4
 1.0D0
CONST(1 - EXP(X)) * J0(X) / X . (QUADPACK, PAGE 118)
  Test 4: Successful execution of function 4.
0.0 0.0 1.0e-13 6.2831853071795864769
100 14 -9
0 0 0
F
