real function besj0(x)
C      
C     used as an interface to the bes0 function written in ndp c 
C
      real x,y
      call bes0(x,y)
      besj0 = y
      return
      end