PROGRAM CALLTEST
      INTEGER FIVE, T5
      EXTERNAL SETVAL
      T5=5
      WRITE(6,100)
  100 FORMAT (' CALLING CALLFUNC')
      CALL CALLFUNC(SETVAL,T5,FIVE)
       WRITE(6,200)FIVE
  200 FORMAT(' FIVE =',I4)
       WRITE(6,300)
  300 FORMAT('DID IT WORK')
       STOP
      END
      INTEGER FUNCTION SETVAL(VAL)
      INTEGER VAL
      WRITE(6,100)
  100 FORMAT(' ENTERING SETVAL')
      SETVAL=VAL
      RETURN
      END