      subroutine userf2
c ====================================================================
c     evaluate user functions
c ================================== ( Inria    ) =============
      include '../stack.h'
c
 9999 return
      end
