SUBROUTINE RECIO_OPEN ( NAME, FILENUM, STATUS )
NAME = CHARACTER*(*) (given)
directory name for big image
FILENUM = INTEGER (returned)
file number
STATUS = INTEGER (given and returned)
global status
SuperCOSMOS development
Tue Aug 20 12:03:21 BST 1996