56 static double s2pi = 2.50662827463100050242E0;
59 static double P0[5] = {
60 -5.99633501014107895267E1,
61 9.80010754185999661536E1,
62 -5.66762857469070293439E1,
63 1.39312609387279679503E1,
64 -1.23916583867381258016E0,
67 static double Q0[8] = {
69 1.95448858338141759834E0,
70 4.67627912898881538453E0,
71 8.63602421390890590575E1,
72 -2.25462687854119370527E2,
73 2.00260212380060660359E2,
74 -8.20372256168333339912E1,
75 1.59056225126211695515E1,
76 -1.18331621121330003142E0,
82 static double P1[9] = {
83 4.05544892305962419923E0,
84 3.15251094599893866154E1,
85 5.71628192246421288162E1,
86 4.40805073893200834700E1,
87 1.46849561928858024014E1,
88 2.18663306850790267539E0,
89 -1.40256079171354495875E-1,
90 -3.50424626827848203418E-2,
91 -8.57456785154685413611E-4,
94 static double Q1[8] = {
96 1.57799883256466749731E1,
97 4.53907635128879210584E1,
98 4.13172038254672030440E1,
99 1.50425385692907503408E1,
100 2.50464946208309415979E0,
101 -1.42182922854787788574E-1,
102 -3.80806407691578277194E-2,
103 -9.33259480895457427372E-4,
110 static double P2[9] = {
111 3.23774891776946035970E0,
112 6.91522889068984211695E0,
113 3.93881025292474443415E0,
114 1.33303460815807542389E0,
115 2.01485389549179081538E-1,
116 1.23716634817820021358E-2,
117 3.01581553508235416007E-4,
118 2.65806974686737550832E-6,
119 6.23974539184983293730E-9,
122 static double Q2[8] = {
124 6.02427039364742014255E0,
125 3.67983563856160859403E0,
126 1.37702099489081330271E0,
127 2.16236993594496635890E-1,
128 1.34204006088543189037E-2,
129 3.28014464682127739104E-4,
130 2.89247864745380683936E-6,
131 6.79019408009981274425E-9,
145 if (y0 < 0.0 || y0 > 1.0) {
151 if (
y > (1.0 - 0.13533528323661269189)) {
156 if (
y > 0.13533528323661269189) {