SUBROUTINE RECIO_READ ( FILENUM, RECLEN, RECORD, ENDFILE, STATUS ) FILENUM = INTEGER (given) file number RECLEN = INTEGER (given) record length in bytes RECORD(*) = INTEGER (returned) values read from file ENDFILE = INTEGER (returned) 1 if end of file occured, 0 otherwise STATUS = INTEGER (given and returned) global status