      SUBROUTINE MATCH(INCHAR, INSTRING, FOUND)
C CHECKS TO SEE IF CHARACTER INCHAR IS CONTAINED IN INSTRING
C RETURNS FOUND = .TRUE.
      CHARACTER*(*) INSTRING
      CHARACTER*1   INCHAR
      LOGICAL       FOUND

      FOUND = .FALSE.
      IMAX  = LEN(INSTRING)

      DO I = 1, IMAX
          IF (INCHAR.EQ.INSTRING(I:I)) THEN
              FOUND = .TRUE.
              RETURN
          END IF
      END DO
      RETURN
      END

