SUBROUTINE FLAGSET(FLAG,VAL)
      LOGICAL FLAG,VAL
      WRITE(6,100)VAL
  100 FORMAT(' ENTERING FORTRAN FLAGSET, VAL IS ',L6)
      FLAG=VAL
      RETURN
      END