RECIO_READ - read next record

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