INTEGER FUNCTION TWO(IDUMMY)
      WRITE(6,100)
  100 FORMAT(' ENTERING FORTRAN TWO')
      TWO=2
      RETURN
      END