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