RECIO_CLOSE - close a file

SUBROUTINE RECIO_CLOSE ( FILENUM, STATUS )

   FILENUM = INTEGER (given)
            file number
   STATUS = INTEGER (given and returned)
            global status