RECIO_OPENW - open a file for WRITE/UPDATE access

SUBROUTINE RECIO_OPENW ( NAME, FILENUM, STATUS ) 

   NAME = CHARACTER*(*) (given)
            directory name for big image
   FILENUM = INTEGER (returned)
            file number
   STATUS = INTEGER (given and returned)
            global status