      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
