SUBROUTINE PUTSTR ( LUN, AREA, CC, ERR ) C***************************************************************************** C C Description : Writes a string to a specified logical unit C C Arguments : LUN = INTEGER containing the logical unit number C AREA = STRING to be written C CC = BYTE containing a concatenation character C ERR = LOGICAL indicating whether there has been an error C ERR=.FALSE. : no error C -1 : end of file detected C -2 : hardware error C C Author : H.A.M. Fikke C AKZO PHARMA, Oss Holland C dept. SDA C C Version : V1.0 Date : 31-dec-82 C C Module name : PUTSTR.FTN C C Package : RSXLIB C C Compilation/Linking : FORT/F4P/TR:NONE PUTSTR C C Updates : name version C C description : C C***************************************************************************** LOGICAL*1 AREA(1), CC, ERR ERR=.FALSE. !Initialize error flag IF (CC) GOTO 1 !Branch if cc non-0 WRITE (LUN,9,END=2,ERR=3) (AREA(I),I=1,LEN(AREA)) GOTO 4 1 WRITE (LUN,9,END=2,ERR=3) CC,(AREA(I),I=1,LEN(AREA)) GOTO 4 2 ERR=-1 !End of file GOTO 4 3 ERR=-2 !Hardware error 4 RETURN 9 FORMAT (250(250A1)) END