PROGRAM FUNCTEST
      INTEGER TWO
      WRITE(6,100)
  100 FORMAT(' CALLING TWO')
      ITWO=TWO(IDUMMY)
      WRITE(6,200)ITWO
  200 FORMAT(' ITWO= ',I4)
      WRITE(6,400)
  400 FORMAT(' DID IT WORK')
      STOP
      END