SUBROUTINE FLFIND(IERR,MESSAG,IN,MEMBER) C IMPLICIT INTEGER(A-Z) C C CHARACTER*60 MESSAG CHARACTER*256 MEMBER C IERR = 0 MESSAG = ' ' C OPEN (UNIT=IN,FILE=MEMBER,FORM='FORMATTED', * STATUS='OLD') C RETURN END