RECIO_WRITE - write next record

SUBROUTINE RECIO_WRITE ( FILENUM, RECLEN, RECORD, STATUS )

   FILENUM = INTEGER (given)
            file number
   RECLEN = INTEGER (given)
            record length in bytes 
   RECORD(*) = INTEGER (given)
            values to be written to file
   STATUS = INTEGER (given and returned)
            global status