4
 1.0D0
CONST*(1 - EXP(X)) * J0(X) / X . (QUADPACK, page 118)
 Test 14: Incorrect period provided. It should be 2*pi.
0.0 0.0 1.0e-13 3.1415926535897932384
100 14 -9
0 40 0
T
Since GPER = 1, wrong period was not noticed, but sign change pattern
ultimately led to termination after the grace period.

