53 static double A[8] = {
54 4.65128586073990045278E-5,
55 7.31589045238094711071E-3,
56 1.33847639578309018650E-1,
57 8.79691311754530315341E-1,
58 2.71149851196553469920E0,
59 4.25697156008121755724E0,
60 3.29771340985225106936E0,
61 1.00000000000000000126E0,
64 static double B[8] = {
65 6.90990488912553276999E-4,
66 2.54043763932544379113E-2,
67 2.82974860602568089943E-1,
68 1.41172597751831069617E0,
69 3.63800533345137075418E0,
70 5.03278880143316990390E0,
71 3.54771340985225096217E0,
72 9.99999999999999998740E-1,
121 y = -0.5 *
z *
z -
y;