SUBROUTINE GTLIN( STRING ) C*********************************************************************** C C Description : Reads a string from LUN 5 C C Arguments : STRING = BYTE array receiving the string read C C Author : T.Pijl C AKZO PHARMA, Oss Holland C dep. SDA C C Version : V1.1 Date : 16-jun-83 C C Module name : GTLIN.FTN C C Package : RSX-LIBRARY C C Compilation/ C taskbuilding : FOR/F4P/TR:NONE GTLIN C C Updates : name F.A.Minkema version V1.1 C description : Entry CTRL/Z (=END-function in READ statement) corrected C C************************************************************************ BYTE STRING(1) C READ(5,1000,END=9000) N,(STRING(I),I=1,N) 1000 FORMAT(Q,80A1) STRING(N+1)=0 RETURN 9000 CALL EXIT END