86 static double RP[4] = {
87 -8.99971225705559398224E8,
88 4.52228297998194034323E11,
89 -7.27494245221818276015E13,
90 3.68295732863852883286E15,
93 static double RQ[8] = {
95 6.20836478118054335476E2,
96 2.56987256757748830383E5,
97 8.35146791431949253037E7,
98 2.21511595479792499675E10,
99 4.74914122079991414898E12,
100 7.84369607876235854894E14,
101 8.95222336184627338078E16,
102 5.32278620332680085395E18,
105 static double PP[7] = {
106 7.62125616208173112003E-4,
107 7.31397056940917570436E-2,
108 1.12719608129684925192E0,
109 5.11207951146807644818E0,
110 8.42404590141772420927E0,
111 5.21451598682361504063E0,
112 1.00000000000000000254E0,
115 static double PQ[7] = {
116 5.71323128072548699714E-4,
117 6.88455908754495404082E-2,
118 1.10514232634061696926E0,
119 5.07386386128601488557E0,
120 8.39985554327604159757E0,
121 5.20982848682361821619E0,
122 9.99999999999999997461E-1,
125 static double QP[8] = {
126 5.10862594750176621635E-2,
127 4.98213872951233449420E0,
128 7.58238284132545283818E1,
129 3.66779609360150777800E2,
130 7.10856304998926107277E2,
131 5.97489612400613639965E2,
132 2.11688757100572135698E2,
133 2.52070205858023719784E1,
136 static double QQ[7] = {
138 7.42373277035675149943E1,
139 1.05644886038262816351E3,
140 4.98641058337653607651E3,
141 9.56231892404756170795E3,
142 7.99704160447350683650E3,
143 2.82619278517639096600E3,
144 3.36093607810698293419E2,
147 static double YP[6] = {
148 1.26320474790178026440E9,
149 -6.47355876379160291031E11,
150 1.14509511541823727583E14,
151 -8.12770255501325109621E15,
152 2.02439475713594898196E17,
153 -7.78877196265950026825E17,
156 static double YQ[8] = {
158 5.94301592346128195359E2,
159 2.35564092943068577943E5,
160 7.34811944459721705660E7,
161 1.87601316108706159478E10,
162 3.88231277496238566008E12,
163 6.20557727146953693363E14,
164 6.87141087355300489866E16,
165 3.97270608116560655612E18,
169 static double Z1 = 1.46819706421238932572E1;
170 static double Z2 = 4.92184563216946036703E1;
176 double w,
z,
p,
q, xn;
201 double w,
z,
p,
q, xn;