SUBROUTINE CALLFUNC(FUNC,PARAM,RES)
      INTEGER FUNC,PARAM RES
      WRITE(6,100)
  100 FORMAT(' ENTERING CALLFUNC')
      RES=FUNC(PARAM)
      RETURN
      END