      FUNCTION FUN3(X)
C
      IMPLICIT REAL   (A-H,O-Z),
     +INTEGER (I-N)
      REAL   MMBSJ1 
      EXTERNAL MMBSJ1 
C
      FUN3=X*MMBSJ1(3.8317*X,IER) 
C
      RETURN
      END
