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