C PROGRAM: DKREAD.SUB C INTEGER FUNCTION DKREAD(UNIT,BUFFER,BYTES,FT,IREC) C C THIS ROUTINE READ A RECORD FROM SPECIFIED UNIT INTO BUFFER C RETURNS 1 IF OK OR -1 IF EOF. C INTEGER * UNIT, !DISK LOGICAL UNIT # * BYTES, !# OF BYTES TO READ * FT, !FILETYPE: 1=BINARY 2,3=CHARACTER * IREC !RECORD # C BYTE * BUFFER(BYTES) C DKREAD=1 IF(FT .GT. 1) GOTO 120 C C BINARY FILE. C READ(UNIT'IREC+1,END=110,ERR=110) BUFFER IREC = IREC+1 RETURN 110 DKREAD= -1 RETURN C C CHARACTER READ C 120 READ(UNIT,121,END=110,ERR=110) BUFFER 121 FORMAT(132A1) IREC=IREC+1 RETURN END