SUBROUTINE FOPEN(HTITLE,N,LNEW)
C  Read a file name from input file 5 and open the file.
C  Inputs:
C  HTITLE   Information to print about opened file
C  N        File number to open
C  LNEW     .TRUE.: File is new; .FALSE.: File is old
      CHARACTER*(*)HTITLE
      COMMON/FILES/HFILE(4)
      CHARACTER*40 HFILE
      LOGICAL LNEW
      READ(5,10,ERR=110,END=110)HFILE(N)
   10 FORMAT(A40)
      IF(.NOT.LNEW)GO TO 30
      OPEN(UNIT=N,STATUS='NEW',FILE=HFILE(N),ERR=120)
      WRITE(6,20)HTITLE,HFILE(N)
   20 FORMAT(/,' >>> ',A,' written to file ',A40)
      RETURN
   30 OPEN(UNIT=N,STATUS='OLD',FILE=HFILE(N),ERR=130)
      WRITE(6,40)HTITLE,HFILE(N)
   40 FORMAT(/,' <<< ',A,' read from file ',A40)
      RETURN
  110 WRITE(6,115)
  115 FORMAT(/,' *** ERROR READING FILE NAME')
      CALL TERM
  120 WRITE(6,125)HFILE(N)
  125 FORMAT(/,' *** FAILURE TO OPEN NEW FILE ',A40)
      CALL TERM
  130 WRITE(6,135)HFILE(N)
  135 FORMAT(/,' *** FAILURE TO OPEN OLD FILE ',A40)
      CALL TERM
      END