8 DATA w/0.1012285,.2223810,.3137067,.3623838,.0271525,
9 & .0622535,0.0951585,.1246290,.1495960,.1691565,
11 DATA x/0.9602899,.7966665,.5255324,.1834346,.9894009,
12 & .9445750,0.8656312,.7554044,.6178762,.4580168,
18 IF(abs(
y).LE.delta)
RETURN
26 1 s8=s8+
w(
i)*(
f(c1+u)+
f(c1-u))
29 3 s16=s16+
w(
i)*(
f(c1+u)+
f(c1-u))
32 IF(abs(s16-s8).GT.
eps*(1.+abs(s16))) goto 4
37 IF(abs(
y).GT.delta) goto 2
41 7
FORMAT(1
x,
'GAUSS3....TOO HIGH ACURACY REQUIRED')