]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98lo1.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Updates on golden D hadronic decay channel by
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98lo1.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98lo1(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .01518, .00513, 3.68244, .86800, .00000,
17 + .00000, .44989, .88043,
18 + .01534, .00518, 6.24307, .88205, .00003,
19 + .00000, .46639, .89442,
20 + .01559, .00524, 11.05139, .91886, .03227,
21 + .00000, .50684, .93116,
22 + .01577, .00529, 15.37825, .95997, .08412,
23 + .00000, .55058, .97222,
24 + .01597, .00534, 20.54786, 1.02269, .14877,
25 + .00000, .61607, 1.03488,
26 + .01613, .00539, 25.87997, 1.08763, .22202,
27 + .00000, .68336, 1.09976,
28 + .01630, .00544, 31.48650, 1.16556, .30272,
29 + .00000, .76355, 1.17764,
30 + .01647, .00549, 38.19562, 1.26306, .40640,
31 + .00000, .86343, 1.27508 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .01662, .00553, 44.69263, 1.36120, .51210,
34 + .00000, .96361, 1.37316,
35 + .01676, .00558, 51.42669, 1.47041, .62615,
36 + .00000, 1.07479, 1.48232,
37 + .01688, .00562, 57.20334, 1.56638, .72756,
38 + .00000, 1.17232, 1.57825,
39 + .01713, .00570, 70.62117, 1.80214, .97596,
40 + .00042, 1.41135, 1.81391,
41 + .01734, .00578, 83.50434, 2.04055, 1.22977,
42 + .21520, 1.65256, 2.05224,
43 + .01759, .00586, 99.26808, 2.34878, 1.55816,
44 + .62424, 1.96387, 2.36037,
45 + .01784, .00596, 117.13634, 2.72076, 1.94525,
46 + 1.00765, 2.33902, 2.73224,
47 + .01807, .00604, 134.87820, 3.10372, 2.34531,
48 + 1.42250, 2.72482, 3.11511 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .01831, .00614, 154.38010, 3.53791, 2.80142,
51 + 1.90329, 3.16184, 3.54920,
52 + .01851, .00621, 171.60985, 3.93600, 3.21652,
53 + 2.33137, 3.56226, 3.94722,
54 + .01875, .00631, 193.78899, 4.46512, 3.76652,
55 + 2.89798, 4.09416, 4.47623,
56 + .01896, .00640, 214.89481, 4.98110, 4.30575,
57 + 3.45978, 4.61257, 4.99213,
58 + .01916, .00648, 234.93695, 5.48855, 4.82956,
59 + 3.99390, 5.12222, 5.49949,
60 + .01941, .00659, 261.98752, 6.18910, 5.55546,
61 + 4.74104, 5.82554, 6.19994,
62 + .01965, .00669, 289.01031, 6.90776, 6.30033,
63 + 5.50879, 6.54676, 6.91850,
64 + .01987, .00679, 315.12421, 7.62426, 7.03684,
65 + 6.25919, 7.26565, 7.63491 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .02010, .00689, 342.80673, 8.39819, 7.83575,
68 + 7.07966, 8.04192, 8.40875,
69 + .02032, .00699, 370.71918, 9.19912, 8.65815,
70 + 7.91829, 8.84513, 9.20959,
71 + .02054, .00708, 398.31635, 10.00621, 9.48773,
72 + 8.76657, 9.65435, 10.01660,
73 + .02074, .00718, 425.10541, 10.80590, 10.30763,
74 + 9.60252, 10.45602, 10.81622,
75 + .02094, .00727, 452.96622, 11.65207, 11.17527,
76 + 10.48807, 11.30416, 11.66230,
77 + .02115, .00737, 481.05176, 12.52131, 12.06456,
78 + 11.39334, 12.17534, 12.53147,
79 + .02134, .00746, 508.69336, 13.38978, 12.95374,
80 + 12.30020, 13.04562, 13.39986,
81 + .02153, .00755, 535.18030, 14.23688, 13.81822,
82 + 13.17835, 13.89443, 14.24690 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .02171, .00764, 563.08673, 15.13941, 14.74174,
85 + 14.12059, 14.79866, 15.14936,
86 + .02190, .00773, 590.49207, 16.04276, 15.66159,
87 + 15.05309, 15.70368, 16.05264,
88 + .02208, .00781, 617.67798, 16.94849, 16.58568,
89 + 15.99294, 16.61098, 16.95831,
90 + .02225, .00790, 643.85529, 17.83243, 17.48656,
91 + 16.90825, 17.49641, 17.84218,
92 + .02242, .00798, 670.62598, 18.74867, 18.41889,
93 + 17.85379, 18.41415, 18.75837 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .01868, .00648, 3.61785, .76598, .00000,
96 + .00000, .39539, .77333,
97 + .01889, .00654, 5.86376, .77983, .00003,
98 + .00000, .41136, .78714,
99 + .01920, .00664, 9.94786, .81356, .02900,
100 + .00000, .44821, .82082,
101 + .01944, .00672, 13.53065, .84981, .07493,
102 + .00000, .48672, .85703,
103 + .01969, .00680, 17.73643, .90363, .13082,
104 + .00000, .54291, .91080,
105 + .01990, .00688, 22.00579, .95875, .19306,
106 + .00000, .60005, .96588,
107 + .02011, .00695, 26.43816, 1.02401, .26063,
108 + .00000, .66723, 1.03108,
109 + .02033, .00703, 31.67731, 1.10484, .34641,
110 + .00000, .75010, 1.11188 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .02053, .00711, 36.69535, 1.18550, .43288,
113 + .00000, .83251, 1.19249,
114 + .02072, .00718, 41.84610, 1.27446, .52524,
115 + .00000, .92315, 1.28141,
116 + .02087, .00723, 46.22931, 1.35212, .60673,
117 + .00000, 1.00213, 1.35904,
118 + .02119, .00736, 56.29525, 1.54109, .80419,
119 + .00036, 1.19389, 1.54794,
120 + .02147, .00747, 65.82890, 1.73004, 1.00344,
121 + .16773, 1.38522, 1.73683,
122 + .02179, .00760, 77.34151, 1.97162, 1.25825,
123 + .48455, 1.62942, 1.97834,
124 + .02212, .00773, 90.22787, 2.25974, 1.55494,
125 + .77678, 1.92024, 2.26638,
126 + .02243, .00786, 102.87527, 2.55317, 1.85826,
127 + 1.08981, 2.21608, 2.55975 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .02273, .00799, 116.63111, 2.88253, 2.20072,
130 + 1.44918, 2.54784, 2.88904,
131 + .02299, .00810, 128.66806, 3.18179, 2.50960,
132 + 1.76616, 2.84906, 3.18825,
133 + .02330, .00824, 144.01862, 3.57604, 2.91536,
134 + 2.18213, 3.24567, 3.58243,
135 + .02358, .00837, 158.49641, 3.95717, 3.30993,
136 + 2.59142, 3.62885, 3.96349,
137 + .02384, .00848, 172.12665, 4.32906, 3.69021,
138 + 2.97724, 4.00261, 4.33534,
139 + .02417, .00863, 190.37146, 4.83835, 4.21326,
140 + 3.51318, 4.51423, 4.84455,
141 + .02448, .00878, 208.43709, 5.35634, 4.74567,
142 + 4.05964, 5.03439, 5.36248,
143 + .02478, .00892, 225.74153, 5.86871, 5.26796,
144 + 4.58931, 5.54876, 5.87479 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .02507, .00906, 243.95296, 6.41814, 5.83079,
147 + 5.16501, 6.10017, 6.42416,
148 + .02536, .00920, 262.16998, 6.98269, 6.40607,
149 + 5.74916, 6.66663, 6.98865,
150 + .02564, .00933, 280.05777, 7.54783, 6.98283,
151 + 6.33661, 7.23356, 7.55374,
152 + .02591, .00946, 297.30496, 8.10435, 7.54945,
153 + 6.91204, 7.79175, 8.11020,
154 + .02617, .00959, 315.13217, 8.68978, 8.14579,
155 + 7.51842, 8.37884, 8.69558,
156 + .02644, .00972, 332.98895, 9.28774, 8.75358,
157 + 8.13482, 8.97841, 9.29349,
158 + .02669, .00985, 350.46606, 9.88200, 9.35831,
159 + 8.74942, 9.57419, 9.88770,
160 + .02693, .00997, 367.11212, 10.45864, 9.94319,
161 + 9.34137, 10.15226, 10.46430 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .02717, .01009, 384.57391, 11.07021, 10.56553,
164 + 9.97430, 10.76526, 11.07583,
165 + .02741, .01021, 401.61096, 11.67919, 11.18202,
166 + 10.59701, 11.37564, 11.68476,
167 + .02764, .01033, 418.44214, 12.28721, 11.79905,
168 + 11.22254, 11.98498, 12.29275,
169 + .02787, .01044, 434.56937, 12.87802, 12.39804,
170 + 11.82917, 12.57703, 12.88352,
171 + .02809, .01056, 450.98129, 13.48785, 13.01534,
172 + 12.45318, 13.18812, 13.49331 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .02298, .00818, 3.55346, .67520, .00000,
175 + .00000, .34747, .67888,
176 + .02325, .00828, 5.50631, .68869, .00002,
177 + .00000, .36279, .69235,
178 + .02365, .00843, 8.95244, .71953, .02605,
179 + .00000, .39632, .72315,
180 + .02395, .00855, 11.90193, .75147, .06672,
181 + .00000, .43021, .75505,
182 + .02427, .00868, 15.30522, .79759, .11499,
183 + .00000, .47835, .80113,
184 + .02455, .00879, 18.70564, .84428, .16779,
185 + .00000, .52679, .84779,
186 + .02482, .00890, 22.19174, .89875, .22430,
187 + .00000, .58292, .90223,
188 + .02511, .00902, 26.26192, .96554, .29514,
189 + .00000, .65144, .96899 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .02536, .00913, 30.11768, 1.03156, .36574,
192 + .00000, .71897, 1.03498,
193 + .02560, .00923, 34.03689, 1.10370, .44038,
194 + .00000, .79255, 1.10710,
195 + .02580, .00932, 37.34534, 1.16625, .50572,
196 + .00000, .85623, 1.16962,
197 + .02622, .00950, 44.85603, 1.31694, .66232,
198 + .00032, 1.00931, 1.32027,
199 + .02658, .00966, 51.87140, 1.46588, .81836,
200 + .13065, 1.16028, 1.46916,
201 + .02699, .00985, 60.22972, 1.65417, 1.01555,
202 + .37589, 1.35081, 1.65740,
203 + .02742, .01005, 69.46667, 1.87603, 1.24230,
204 + .59844, 1.57497, 1.87922,
205 + .02782, .01023, 78.42588, 2.09952, 1.47159,
206 + .83442, 1.80052, 2.10267 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .02822, .01042, 88.06633, 2.34786, 1.72790,
209 + 1.10274, 2.05090, 2.35096,
210 + .02855, .01058, 96.41977, 2.57144, 1.95700,
211 + 1.33713, 2.27616, 2.57451,
212 + .02896, .01077, 106.97157, 2.86339, 2.25532,
213 + 1.64207, 2.57011, 2.86642,
214 + .02932, .01095, 116.83355, 3.14315, 2.54302,
215 + 1.93977, 2.85161, 3.14614,
216 + .02966, .01111, 126.03609, 3.41400, 2.81808,
217 + 2.21795, 3.12404, 3.41695,
218 + .03009, .01133, 138.25069, 3.78189, 3.19353,
219 + 2.60162, 3.49391, 3.78480,
220 + .03049, .01153, 150.23653, 4.15288, 3.57260,
221 + 2.98973, 3.86673, 4.15576,
222 + .03088, .01172, 161.61246, 4.51692, 3.94145,
223 + 3.36270, 4.23247, 4.51976 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .03126, .01192, 173.49684, 4.90446, 4.33631,
226 + 3.76564, 4.62168, 4.90727,
227 + .03164, .01211, 185.28712, 5.29980, 4.73699,
228 + 4.17141, 5.01863, 5.30257,
229 + .03200, .01230, 196.78310, 5.69293, 5.13620,
230 + 4.57707, 5.41328, 5.69567,
231 + .03234, .01247, 207.79007, 6.07766, 5.52601,
232 + 4.97199, 5.79941, 6.08037,
233 + .03269, .01265, 219.09509, 6.48001, 5.93397,
234 + 5.38590, 6.20316, 6.48269,
235 + .03303, .01283, 230.34398, 6.88859, 6.34740,
236 + 5.80422, 6.61310, 6.89124,
237 + .03336, .01300, 241.29128, 7.29246, 6.75669,
238 + 6.21933, 7.01826, 7.29509,
239 + .03367, .01317, 251.65173, 7.68231, 7.15042,
240 + 6.61692, 7.40931, 7.68491 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .03398, .01333, 262.47256, 8.09390, 7.56770,
243 + 7.04054, 7.82209, 8.09647,
244 + .03429, .01350, 272.95639, 8.50158, 7.97872,
245 + 7.45476, 8.23095, 8.50413,
246 + .03459, .01366, 283.27148, 8.90688, 8.38856,
247 + 7.86947, 8.63737, 8.90942,
248 + .03488, .01382, 293.10349, 9.29900, 8.78469,
249 + 8.26989, 9.03053, 9.30151,
250 + .03517, .01397, 303.05762, 9.70200, 9.19117,
251 + 8.67996, 9.43458, 9.70449 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .02594, .00938, 3.51555, .62675, .00000,
254 + .00000, .32216, .62888,
255 + .02625, .00950, 5.30646, .63997, .00002,
256 + .00000, .33706, .64208,
257 + .02672, .00970, 8.41536, .66920, .02445,
258 + .00000, .36876, .67127,
259 + .02707, .00985, 11.03924, .69884, .06231,
260 + .00000, .40019, .70088,
261 + .02744, .01001, 14.03720, .74093, .10659,
262 + .00000, .44415, .74294,
263 + .02776, .01015, 17.00514, .78326, .15452,
264 + .00000, .48807, .78524,
265 + .02807, .01029, 20.02570, .83219, .20535,
266 + .00000, .53852, .83415,
267 + .02840, .01044, 23.52700, .89180, .26863,
268 + .00000, .59973, .89374 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .02869, .01057, 26.82255, .95040, .33126,
271 + .00000, .65971, .95232,
272 + .02898, .01071, 30.15309, 1.01406, .39709,
273 + .00000, .72469, 1.01596,
274 + .02920, .01081, 32.95134, 1.06903, .45443,
275 + .00000, .78069, 1.07091,
276 + .02969, .01104, 39.26056, 1.20067, .59100,
277 + .00030, .91452, 1.20251,
278 + .03011, .01124, 45.10521, 1.32988, .72605,
279 + .11283, 1.04559, 1.33169,
280 + .03059, .01147, 52.01289, 1.49212, .89552,
281 + .32385, 1.20988, 1.49390,
282 + .03109, .01171, 59.58908, 1.68193, 1.08896,
283 + .51350, 1.40179, 1.68367,
284 + .03155, .01194, 66.88609, 1.87189, 1.28330,
285 + .71339, 1.59364, 1.87361 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .03202, .01217, 74.68806, 2.08172, 1.49927,
288 + .93938, 1.80533, 2.08340,
289 + .03241, .01236, 81.40891, 2.26962, 1.69126,
290 + 1.13567, 1.99475, 2.27128,
291 + .03288, .01261, 89.85031, 2.51369, 1.93997,
292 + 1.38971, 2.24065, 2.51532,
293 + .03331, .01282, 97.69725, 2.74636, 2.17866,
294 + 1.63658, 2.47491, 2.74797,
295 + .03370, .01302, 104.98046, 2.97058, 2.40576,
296 + 1.86604, 2.70057, 2.97216,
297 + .03420, .01328, 114.59908, 3.27368, 2.71436,
298 + 2.18119, 3.00548, 3.27524,
299 + .03467, .01352, 123.98669, 3.57780, 3.02443,
300 + 2.49849, 3.31126, 3.57933,
301 + .03511, .01376, 132.84715, 3.87481, 3.32468,
302 + 2.80183, 3.60982, 3.87632 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .03556, .01399, 142.06322, 4.18965, 3.64485,
305 + 3.12838, 3.92618, 4.19114,
306 + .03600, .01423, 151.16048, 4.50945, 3.96832,
307 + 3.45573, 4.24745, 4.51092,
308 + .03642, .01445, 159.99336, 4.82623, 4.28942,
309 + 3.78184, 4.56560, 4.82767,
310 + .03682, .01467, 168.41481, 5.13510, 4.60181,
311 + 4.09813, 4.87575, 5.13653,
312 + .03722, .01488, 177.03108, 5.45700, 4.92768,
313 + 4.42859, 5.19892, 5.45841,
314 + .03762, .01510, 185.57016, 5.78276, 5.25678,
315 + 4.76138, 5.52592, 5.78416,
316 + .03800, .01530, 193.85184, 6.10376, 5.58162,
317 + 5.09070, 5.84808, 6.10513,
318 + .03836, .01550, 201.65910, 6.41264, 5.89310,
319 + 5.40505, 6.15805, 6.41400 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .03872, .01570, 209.79239, 6.73786, 6.22245,
322 + 5.73929, 6.48437, 6.73922,
323 + .03909, .01590, 217.63766, 7.05899, 6.54573,
324 + 6.06488, 6.80656, 7.06033,
325 + .03943, .01609, 225.33791, 7.37746, 6.86738,
326 + 6.39022, 7.12604, 7.37879,
327 + .03977, .01628, 232.65437, 7.68475, 7.17746,
328 + 6.70353, 7.43428, 7.68607,
329 + .04010, .01646, 240.03790, 7.99976, 7.49481,
330 + 7.02354, 7.75025, 8.00107 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .02828, .01034, 3.48837, .59428, .00000,
333 + .00000, .30531, .59555,
334 + .02862, .01049, 5.16844, .60729, .00002,
335 + .00000, .31990, .60853,
336 + .02914, .01072, 8.05287, .63541, .02338,
337 + .00000, .35036, .63662,
338 + .02952, .01090, 10.46378, .66351, .05935,
339 + .00000, .38014, .66470,
340 + .02993, .01108, 13.19955, .70294, .10097,
341 + .00000, .42133, .70410,
342 + .03029, .01125, 15.89031, .74239, .14570,
343 + .00000, .46228, .74353,
344 + .03063, .01141, 18.61470, .78769, .19284,
345 + .00000, .50902, .78882,
346 + .03100, .01159, 21.75654, .84263, .25121,
347 + .00000, .56547, .84374 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .03133, .01174, 24.70025, .89642, .30871,
350 + .00000, .62055, .89751,
351 + .03164, .01190, 27.66303, .95460, .36888,
352 + .00000, .67997, .95567,
353 + .03189, .01202, 30.14391, 1.00469, .42111,
354 + .00000, .73104, 1.00575,
355 + .03243, .01228, 35.71024, 1.12412, .54494,
356 + .00028, .85253, 1.12515,
357 + .03290, .01252, 40.83618, 1.24076, .66675,
358 + .10165, .97092, 1.24177,
359 + .03343, .01278, 46.85941, 1.38650, .81883,
360 + .29126, 1.11860, 1.38749,
361 + .03399, .01307, 53.42973, 1.55614, .99149,
362 + .46049, 1.29021, 1.55710,
363 + .03450, .01333, 59.72612, 1.72513, 1.16416,
364 + .63810, 1.46096, 1.72607 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .03502, .01359, 66.42747, 1.91099, 1.35523,
367 + .83807, 1.64858, 1.91191,
368 + .03546, .01382, 72.17590, 2.07679, 1.52443,
369 + 1.01106, 1.81581, 2.07769,
370 + .03599, .01410, 79.36631, 2.29136, 1.74280,
371 + 1.23410, 2.03209, 2.29224,
372 + .03646, .01434, 86.02460, 2.49515, 1.95165,
373 + 1.45012, 2.23738, 2.49601,
374 + .03689, .01457, 92.18044, 2.69088, 2.14966,
375 + 1.65015, 2.43446, 2.69173,
376 + .03745, .01487, 100.28083, 2.95458, 2.41786,
377 + 1.92405, 2.69986, 2.95541,
378 + .03797, .01515, 108.15595, 3.21822, 2.68642,
379 + 2.19888, 2.96506, 3.21903,
380 + .03847, .01542, 115.55888, 3.47482, 2.94556,
381 + 2.46064, 3.22311, 3.47562 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .03897, .01569, 123.23465, 3.74601, 3.22112,
384 + 2.74171, 3.49572, 3.74679,
385 + .03946, .01596, 130.78375, 4.02062, 3.49865,
386 + 3.02255, 3.77171, 4.02140,
387 + .03992, .01621, 138.09111, 4.29189, 3.77342,
388 + 3.30161, 4.04426, 4.29265,
389 + .04037, .01646, 145.03664, 4.55568, 4.04004,
390 + 3.57154, 4.30926, 4.55643,
391 + .04081, .01670, 152.12305, 4.82993, 4.31749,
392 + 3.85291, 4.58469, 4.83067,
393 + .04125, .01695, 159.12541, 5.10678, 4.59701,
394 + 4.13555, 4.86271, 5.10752,
395 + .04168, .01718, 165.89978, 5.37897, 4.87232,
396 + 4.41468, 5.13599, 5.37969,
397 + .04208, .01741, 172.26764, 5.64030, 5.13569,
398 + 4.68045, 5.39834, 5.64102 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .04248, .01763, 178.88937, 5.91493, 5.41371,
401 + 4.96264, 5.67399, 5.91564,
402 + .04289, .01786, 185.25558, 6.18548, 5.68591,
403 + 5.23678, 5.94554, 6.18619,
404 + .04327, .01808, 191.49365, 6.45332, 5.95633,
405 + 5.51032, 6.21432, 6.45402,
406 + .04364, .01829, 197.40677, 6.71127, 6.21652,
407 + 5.77324, 6.47316, 6.71197,
408 + .04401, .01850, 203.35986, 6.97522, 6.48233,
409 + 6.04126, 6.73800, 6.97591 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .03023, .01116, 3.46702, .57013, .00000,
412 + .00000, .29285, .57086,
413 + .03061, .01133, 5.06337, .58296, .00002,
414 + .00000, .30719, .58367,
415 + .03116, .01159, 7.78166, .61023, .02257,
416 + .00000, .33670, .61092,
417 + .03158, .01179, 10.03696, .63718, .05713,
418 + .00000, .36526, .63785,
419 + .03202, .01200, 12.58273, .67465, .09680,
420 + .00000, .40441, .67529,
421 + .03241, .01219, 15.07400, .71199, .13918,
422 + .00000, .44318, .71261,
423 + .03278, .01237, 17.58636, .75465, .18362,
424 + .00000, .48721, .75526,
425 + .03318, .01257, 20.47217, .80618, .23843,
426 + .00000, .54018, .80677 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .03353, .01274, 23.16639, .85647, .29222,
429 + .00000, .59171, .85705,
430 + .03388, .01291, 25.86942, .91068, .34831,
431 + .00000, .64711, .91125,
432 + .03415, .01305, 28.12686, .95725, .39687,
433 + .00000, .69461, .95780,
434 + .03474, .01335, 33.17249, 1.06789, .51159,
435 + .00027, .80723, 1.06843,
436 + .03525, .01361, 37.79736, 1.17553, .62396,
437 + .09372, .91653, 1.17604,
438 + .03582, .01391, 43.20707, 1.30951, .76371,
439 + .26818, 1.05236, 1.31001,
440 + .03643, .01423, 49.08310, 1.46482, .92172,
441 + .42306, 1.20956, 1.46530,
442 + .03698, .01452, 54.69190, 1.61899, 1.07915,
443 + .58505, 1.36541, 1.61945 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .03755, .01482, 60.64011, 1.78798, 1.25280,
446 + .76686, 1.53608, 1.78843,
447 + .03802, .01507, 65.72558, 1.93828, 1.40610,
448 + .92363, 1.68774, 1.93872,
449 + .03859, .01538, 72.06629, 2.13222, 1.60338,
450 + 1.12518, 1.88332, 2.13264,
451 + .03911, .01565, 77.91979, 2.31589, 1.79153,
452 + 1.31987, 2.06842, 2.31631,
453 + .03958, .01591, 83.31506, 2.49185, 1.96944,
454 + 1.49961, 2.24566, 2.49225,
455 + .04018, .01624, 90.39440, 2.72828, 2.20981,
456 + 1.74515, 2.48370, 2.72867,
457 + .04075, .01655, 97.25583, 2.96398, 2.44984,
458 + 1.99086, 2.72090, 2.96436,
459 + .04129, .01685, 103.68510, 3.19280, 2.68082,
460 + 2.22421, 2.95109, 3.19317 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .04183, .01715, 110.33495, 3.43405, 2.92590,
463 + 2.47426, 3.19370, 3.43441,
464 + .04236, .01744, 116.85600, 3.67776, 3.17213,
465 + 2.72346, 3.43873, 3.67813,
466 + .04287, .01773, 123.15311, 3.91798, 3.41540,
467 + 2.97059, 3.68017, 3.91834,
468 + .04335, .01800, 129.12375, 4.15111, 3.65097,
469 + 3.20914, 3.91444, 4.15146,
470 + .04383, .01827, 135.20210, 4.39300, 3.89565,
471 + 3.45734, 4.15747, 4.39335,
472 + .04431, .01854, 141.19426, 4.63673, 4.14168,
473 + 3.70617, 4.40230, 4.63707,
474 + .04477, .01880, 146.97998, 4.87592, 4.38360,
475 + 3.95152, 4.64254, 4.87627,
476 + .04521, .01905, 152.40591, 5.10517, 4.61461,
477 + 4.18467, 4.87276, 5.10551 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .04565, .01930, 158.04028, 5.34574, 4.85814,
480 + 4.43195, 5.11430, 5.34608,
481 + .04609, .01955, 163.44283, 5.58230, 5.09611,
482 + 4.67164, 5.35181, 5.58264,
483 + .04650, .01979, 168.72942, 5.81617, 5.33223,
484 + 4.91055, 5.58657, 5.81651,
485 + .04690, .02002, 173.73129, 6.04107, 5.55909,
486 + 5.13985, 5.81232, 6.04141,
487 + .04731, .02025, 178.75746, 6.27087, 5.79049,
488 + 5.37323, 6.04297, 6.27121 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .03724, .01418, 3.39811, .50046, .00000,
491 + .00000, .25722, .50019,
492 + .03771, .01443, 4.74657, .51264, .00002,
493 + .00000, .27073, .51236,
494 + .03842, .01481, 6.98996, .53738, .02019,
495 + .00000, .29743, .53708,
496 + .03895, .01510, 8.81034, .56100, .05068,
497 + .00000, .32246, .56070,
498 + .03952, .01540, 10.83264, .59289, .08477,
499 + .00000, .35583, .59258,
500 + .04001, .01567, 12.78092, .62427, .12051,
501 + .00000, .38846, .62395,
502 + .04049, .01593, 14.72161, .65951, .15743,
503 + .00000, .42490, .65918,
504 + .04101, .01622, 16.92324, .70157, .20237,
505 + .00000, .46822, .70124 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .04146, .01647, 18.95601, .74219, .24594,
508 + .00000, .50993, .74185,
509 + .04190, .01671, 20.97504, .78549, .29091,
510 + .00000, .55427, .78516,
511 + .04225, .01691, 22.64741, .82240, .32951,
512 + .00000, .59200, .82207,
513 + .04300, .01733, 26.34026, .90916, .41968,
514 + .00023, .68048, .90882,
515 + .04366, .01770, 29.67546, .99250, .50684,
516 + .07266, .76529, .99216,
517 + .04441, .01812, 33.52017, 1.09500, .61389,
518 + .20706, .86939, 1.09465,
519 + .04519, .01857, 37.64029, 1.21228, .73335,
520 + .32436, .98833, 1.21194,
521 + .04591, .01898, 41.52393, 1.32738, .85101,
522 + .44575, 1.10490, 1.32704 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .04663, .01940, 45.59593, 1.45224, .97945,
525 + .58064, 1.23122, 1.45191,
526 + .04724, .01975, 49.04064, 1.56224, 1.09176,
527 + .69576, 1.34241, 1.56191,
528 + .04798, .02018, 53.29134, 1.70289, 1.23496,
529 + .84241, 1.48448, 1.70256,
530 + .04864, .02057, 57.17770, 1.83490, 1.37036,
531 + .98290, 1.61774, 1.83458,
532 + .04926, .02092, 60.72429, 1.96033, 1.49728,
533 + 1.11138, 1.74429, 1.96002,
534 + .05003, .02138, 65.33586, 2.12748, 1.66741,
535 + 1.28558, 1.91285, 2.12718,
536 + .05077, .02181, 69.76177, 2.29266, 1.83585,
537 + 1.45844, 2.07933, 2.29236,
538 + .05147, .02222, 73.86555, 2.45168, 1.99651,
539 + 1.62105, 2.23956, 2.45140 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .05216, .02264, 78.07693, 2.61811, 2.16582,
542 + 1.79422, 2.40717, 2.61784,
543 + .05285, .02304, 82.16776, 2.78497, 2.33459,
544 + 1.96537, 2.57518, 2.78472,
545 + .05350, .02343, 86.08746, 2.94832, 2.50025,
546 + 2.13403, 2.73960, 2.94808,
547 + .05412, .02380, 89.77434, 3.10583, 2.65960,
548 + 2.29574, 2.89810, 3.10560,
549 + .05475, .02417, 93.50108, 3.26826, 2.82415,
550 + 2.46302, 3.06152, 3.26805,
551 + .05536, .02454, 97.14677, 3.43094, 2.98858,
552 + 2.62967, 3.22516, 3.43073,
553 + .05595, .02489, 100.64462, 3.58970, 3.14942,
554 + 2.79315, 3.38483, 3.58951,
555 + .05651, .02522, 103.89980, 3.74102, 3.30209,
556 + 2.94753, 3.53699, 3.74084 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .05708, .02556, 107.26506, 3.89907, 3.46239,
559 + 3.11069, 3.69589, 3.89891,
560 + .05764, .02590, 110.46277, 4.05359, 3.61802,
561 + 3.26773, 3.85123, 4.05344,
562 + .05818, .02622, 113.57884, 4.20570, 3.77185,
563 + 3.42373, 4.00413, 4.20556,
564 + .05869, .02653, 116.50865, 4.35129, 3.91895,
565 + 3.57272, 4.15045, 4.35117,
566 + .05921, .02684, 119.43383, 4.49936, 4.06828,
567 + 3.72362, 4.29926, 4.49926 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .04592, .01818, 3.32177, .43816, .00000,
570 + .00000, .22578, .43775,
571 + .04653, .01854, 4.44005, .44961, .00002,
572 + .00000, .23840, .44919,
573 + .04744, .01908, 6.26416, .47189, .01798,
574 + .00000, .26242, .47148,
575 + .04812, .01949, 7.71341, .49247, .04474,
576 + .00000, .28426, .49207,
577 + .04885, .01993, 9.29877, .51944, .07388,
578 + .00000, .31254, .51904,
579 + .04949, .02031, 10.80231, .54563, .10386,
580 + .00000, .33984, .54523,
581 + .05010, .02068, 12.28168, .57450, .13433,
582 + .00000, .36978, .57411,
583 + .05076, .02109, 13.93891, .60853, .17095,
584 + .00000, .40492, .60814 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .05135, .02144, 15.45187, .64102, .20601,
587 + .00000, .43838, .64064,
588 + .05191, .02178, 16.93923, .67526, .24179,
589 + .00000, .47353, .67489,
590 + .05236, .02206, 18.16087, .70420, .27226,
591 + .00000, .50321, .70384,
592 + .05334, .02266, 20.82458, .77146, .34257,
593 + .00020, .57199, .77111,
594 + .05419, .02318, 23.19327, .83521, .40963,
595 + .05600, .63704, .83488,
596 + .05515, .02377, 25.88194, .91263, .49095,
597 + .15892, .71589, .91231,
598 + .05616, .02439, 28.72286, 1.00004, .58046,
599 + .24719, .80477, .99975,
600 + .05708, .02497, 31.36570, 1.08482, .66758,
601 + .33755, .89086, 1.08455 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .05802, .02555, 34.10384, 1.17581, .76167,
604 + .43692, .98314, 1.17555,
605 + .05881, .02604, 36.39427, 1.25519, .84313,
606 + .52083, 1.06358, 1.25495,
607 + .05977, .02663, 39.18974, 1.35573, .94601,
608 + .62670, 1.16540, 1.35552,
609 + .06062, .02717, 41.71972, 1.44924, 1.04242,
610 + .72728, 1.26001, 1.44905,
611 + .06141, .02766, 44.00365, 1.53734, 1.13198,
612 + .81834, 1.34911, 1.53717,
613 + .06241, .02828, 46.94503, 1.65375, 1.25104,
614 + .94085, 1.46678, 1.65361,
615 + .06336, .02888, 49.73855, 1.76775, 1.36787,
616 + 1.06135, 1.58195, 1.76765,
617 + .06426, .02944, 52.29894, 1.87657, 1.47829,
618 + 1.17360, 1.69183, 1.87649 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .06515, .03000, 54.90473, 1.98959, 1.59383,
621 + 1.29235, 1.80591, 1.98954,
622 + .06604, .03056, 57.40948, 2.10203, 1.70806,
623 + 1.40870, 1.91937, 2.10201,
624 + .06688, .03108, 59.78946, 2.21133, 1.81942,
625 + 1.52261, 2.02962, 2.21134,
626 + .06768, .03158, 62.00834, 2.31601, 1.92581,
627 + 1.63105, 2.13519, 2.31605,
628 + .06848, .03208, 64.23380, 2.42329, 2.03499,
629 + 1.74255, 2.24335, 2.42336,
630 + .06927, .03258, 66.39220, 2.53005, 2.14338,
631 + 1.85288, 2.35097, 2.53015,
632 + .07003, .03306, 68.44891, 2.63365, 2.24882,
633 + 1.96055, 2.45538, 2.63377,
634 + .07075, .03351, 70.34598, 2.73180, 2.34827,
635 + 2.06155, 2.55429, 2.73196 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .07147, .03396, 72.29848, 2.83385, 2.45228,
638 + 2.16791, 2.65710, 2.83403,
639 + .07219, .03441, 74.13376, 2.93300, 2.55254,
640 + 2.26948, 2.75698, 2.93321,
641 + .07288, .03484, 75.91459, 3.03017, 2.65127,
642 + 2.37005, 2.85486, 3.03041,
643 + .07354, .03525, 77.57690, 3.12272, 2.74520,
644 + 2.46560, 2.94807, 3.12299,
645 + .07420, .03567, 79.22430, 3.21639, 2.84006,
646 + 2.56187, 3.04240, 3.21668 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .05197, .02118, 3.27072, .40484, .00000,
649 + .00000, .20909, .40464,
650 + .05268, .02162, 4.26242, .41580, .00002,
651 + .00000, .22115, .41561,
652 + .05374, .02229, 5.86369, .43666, .01674,
653 + .00000, .24363, .43647,
654 + .05453, .02279, 7.12073, .45556, .04144,
655 + .00000, .26371, .45539,
656 + .05537, .02332, 8.48369, .47990, .06791,
657 + .00000, .28927, .47974,
658 + .05611, .02379, 9.76436, .50333, .09484,
659 + .00000, .31375, .50318,
660 + .05683, .02425, 11.01532, .52889, .12195,
661 + .00000, .34030, .52875,
662 + .05760, .02474, 12.40615, .55877, .15427,
663 + .00000, .37123, .55864 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .05828, .02517, 13.66736, .58710, .18499,
666 + .00000, .40047, .58699,
667 + .05894, .02559, 14.89954, .61674, .21613,
668 + .00000, .43097, .61664,
669 + .05946, .02593, 15.90648, .64167, .24251,
670 + .00000, .45658, .64159,
671 + .06060, .02665, 18.08508, .69919, .30297,
672 + .00019, .51554, .69913,
673 + .06158, .02729, 20.00393, .75328, .36016,
674 + .04786, .57085, .75325,
675 + .06270, .02801, 22.16110, .81846, .42897,
676 + .13546, .63738, .81846,
677 + .06388, .02876, 24.42074, .89145, .50409,
678 + .20981, .71175, .89148,
679 + .06495, .02945, 26.50579, .96174, .57668,
680 + .28542, .78327, .96180 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .06604, .03016, 28.65021, 1.03669, .65458,
683 + .36805, .85944, 1.03678,
684 + .06696, .03075, 30.43144, 1.10169, .72161,
685 + .43738, .92544, 1.10181,
686 + .06807, .03146, 32.59051, 1.18356, .80577,
687 + .52435, 1.00850, 1.18371,
688 + .06906, .03210, 34.53225, 1.25928, .88422,
689 + .60655, 1.08527, 1.25946,
690 + .06998, .03269, 36.27307, 1.33025, .95669,
691 + .68051, 1.15718, 1.33047,
692 + .07114, .03345, 38.50155, 1.42355, 1.05255,
693 + .77956, 1.25167, 1.42381,
694 + .07225, .03416, 40.60409, 1.51442, 1.14612,
695 + .87646, 1.34364, 1.51472,
696 + .07329, .03483, 42.51674, 1.60070, 1.23404,
697 + .96617, 1.43093, 1.60104 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .07433, .03550, 44.45325, 1.68991, 1.32566,
700 + 1.06071, 1.52114, 1.69029,
701 + .07535, .03616, 46.30192, 1.77824, 1.41577,
702 + 1.15285, 1.61043, 1.77866,
703 + .07633, .03678, 48.04917, 1.86373, 1.50325,
704 + 1.24269, 1.69683, 1.86419,
705 + .07725, .03738, 49.66874, 1.94527, 1.58647,
706 + 1.32784, 1.77921, 1.94577,
707 + .07818, .03797, 51.28493, 2.02852, 1.67156,
708 + 1.41507, 1.86330, 2.02906,
709 + .07910, .03856, 52.84356, 2.11104, 1.75569,
710 + 1.50103, 1.94663, 2.11162,
711 + .07997, .03912, 54.32217, 2.19084, 1.83726,
712 + 1.58465, 2.02720, 2.19145,
713 + .08080, .03966, 55.67789, 2.26617, 1.91389,
714 + 1.66276, 2.10325, 2.26682 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .08164, .04019, 57.06943, 2.34427, 1.99384,
717 + 1.74484, 2.18207, 2.34496,
718 + .08247, .04072, 58.36747, 2.41985, 2.07056,
719 + 1.82284, 2.25835, 2.42057,
720 + .08327, .04123, 59.62379, 2.49373, 2.14594,
721 + 1.89992, 2.33290, 2.49449,
722 + .08402, .04172, 60.79072, 2.56388, 2.21743,
723 + 1.97292, 2.40367, 2.56467,
724 + .08479, .04221, 61.94125, 2.63465, 2.28940,
725 + 2.04622, 2.47507, 2.63548 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .05679, .02372, 3.23000, .38253, .00000,
728 + .00000, .19792, .38254,
729 + .05757, .02423, 4.13555, .39312, .00002,
730 + .00000, .20956, .39314,
731 + .05876, .02501, 5.58758, .41295, .01586,
732 + .00000, .23094, .41299,
733 + .05964, .02558, 6.71781, .43069, .03913,
734 + .00000, .24981, .43075,
735 + .06058, .02620, 7.93560, .45324, .06379,
736 + .00000, .27353, .45332,
737 + .06141, .02674, 9.07223, .47482, .08868,
738 + .00000, .29611, .47492,
739 + .06221, .02727, 10.17669, .49818, .11355,
740 + .00000, .32042, .49829,
741 + .06307, .02783, 11.39793, .52532, .14303,
742 + .00000, .34856, .52545 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .06382, .02833, 12.49995, .55092, .17091,
745 + .00000, .37504, .55108,
746 + .06456, .02881, 13.57172, .57757, .19903,
747 + .00000, .40251, .57774,
748 + .06515, .02920, 14.44434, .59990, .22276,
749 + .00000, .42550, .60009,
750 + .06641, .03003, 16.32156, .65116, .27688,
751 + .00018, .47813, .65138,
752 + .06752, .03076, 17.96325, .69907, .32776,
753 + .04266, .52722, .69933,
754 + .06876, .03158, 19.79557, .75649, .38864,
755 + .12053, .58593, .75678,
756 + .07007, .03244, 21.70264, .82040, .45471,
757 + .18611, .65116, .82073,
758 + .07127, .03323, 23.45176, .88163, .51821,
759 + .25249, .71357, .88200 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .07249, .03404, 25.24085, .94660, .58603,
762 + .32470, .77972, .94701,
763 + .07351, .03471, 26.71914, 1.00271, .64414,
764 + .38501, .83679, 1.00316,
765 + .07475, .03553, 28.50177, 1.07308, .71678,
766 + .46034, .90831, 1.07357,
767 + .07585, .03625, 30.09744, 1.13790, .78423,
768 + .53126, .97415, 1.13844,
769 + .07687, .03692, 31.52044, 1.19843, .84628,
770 + .59480, 1.03559, 1.19901,
771 + .07817, .03777, 33.33386, 1.27771, .92807,
772 + .67959, 1.11601, 1.27834,
773 + .07940, .03858, 35.03629, 1.35462, 1.00758,
774 + .76222, 1.19398, 1.35530,
775 + .08055, .03934, 36.57598, 1.42736, 1.08198,
776 + .83838, 1.26769, 1.42808 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .08171, .04009, 38.12883, 1.50231, 1.15927,
779 + .91840, 1.34361, 1.50308,
780 + .08285, .04084, 39.60334, 1.57626, 1.23500,
781 + .99608, 1.41849, 1.57708,
782 + .08394, .04155, 40.99130, 1.64761, 1.30829,
783 + 1.07161, 1.49072, 1.64848,
784 + .08496, .04221, 42.27205, 1.71546, 1.37780,
785 + 1.14296, 1.55938, 1.71637,
786 + .08599, .04288, 43.54515, 1.78454, 1.44867,
787 + 1.21586, 1.62927, 1.78549,
788 + .08701, .04354, 44.76743, 1.85281, 1.51853,
789 + 1.28747, 1.69833, 1.85381,
790 + .08798, .04417, 45.92301, 1.91866, 1.58610,
791 + 1.35697, 1.76492, 1.91971,
792 + .08890, .04477, 46.97741, 1.98065, 1.64940,
793 + 1.42169, 1.82761, 1.98174 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08983, .04537, 48.05758, 2.04479, 1.71531,
796 + 1.48959, 1.89245, 2.04593,
797 + .09075, .04597, 49.05885, 2.10667, 1.77835,
798 + 1.55389, 1.95501, 2.10785,
799 + .09162, .04653, 50.02613, 2.16705, 1.84019,
800 + 1.61733, 2.01603, 2.16827,
801 + .09246, .04707, 50.92106, 2.22424, 1.89869,
802 + 1.67727, 2.07383, 2.22550,
803 + .09331, .04762, 51.79964, 2.28182, 1.95745,
804 + 1.73730, 2.13202, 2.28312 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .06085, .02613, 3.19378, .36613, .00000,
807 + .00000, .18955, .36610,
808 + .06171, .02670, 4.03502, .37640, .00002,
809 + .00000, .20084, .37639,
810 + .06301, .02757, 5.37431, .39539, .01516,
811 + .00000, .22132, .39541,
812 + .06398, .02822, 6.40918, .41221, .03731,
813 + .00000, .23922, .41225,
814 + .06501, .02891, 7.51848, .43337, .06056,
815 + .00000, .26150, .43343,
816 + .06592, .02951, 8.54820, .45353, .08388,
817 + .00000, .28263, .45362,
818 + .06680, .03010, 9.54456, .47520, .10705,
819 + .00000, .30522, .47532,
820 + .06774, .03073, 10.64140, .50028, .13440,
821 + .00000, .33127, .50042 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .06856, .03129, 11.62724, .52385, .16014,
824 + .00000, .35567, .52402,
825 + .06937, .03183, 12.58248, .54827, .18601,
826 + .00000, .38089, .54846,
827 + .07001, .03226, 13.35786, .56868, .20777,
828 + .00000, .40194, .56890,
829 + .07140, .03319, 15.01807, .61534, .25720,
830 + .00017, .44992, .61560,
831 + .07261, .03400, 16.46149, .65875, .30345,
832 + .03883, .49446, .65905,
833 + .07397, .03491, 18.06292, .71054, .35854,
834 + .10954, .54750, .71089,
835 + .07541, .03586, 19.72087, .76790, .41801,
836 + .16874, .60614, .76831,
837 + .07672, .03674, 21.23395, .82262, .47495,
838 + .22841, .66200, .82308 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .07805, .03763, 22.77463, .88048, .53553,
841 + .29309, .72099, .88099,
842 + .07917, .03837, 24.04215, .93026, .58724,
843 + .34690, .77171, .93081,
844 + .08052, .03927, 25.56394, .99248, .65167,
845 + .41389, .83504, .99309,
846 + .08173, .04007, 26.92084, 1.04961, .71130,
847 + .47676, .89315, 1.05027,
848 + .08284, .04081, 28.12565, 1.10279, .76597,
849 + .53289, .94721, 1.10350,
850 + .08426, .04174, 29.65516, 1.17223, .83783,
851 + .60758, 1.01775, 1.17300,
852 + .08560, .04263, 31.08496, 1.23937, .90746,
853 + .68014, 1.08591, 1.24020,
854 + .08686, .04345, 32.37159, 1.30266, .97239,
855 + .74677, 1.15015, 1.30355 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .08812, .04429, 33.66507, 1.36770, 1.03966,
858 + .81663, 1.21613, 1.36865,
859 + .08936, .04510, 34.88776, 1.43169, 1.10538,
860 + .88421, 1.28102, 1.43269,
861 + .09053, .04587, 36.03455, 1.49327, 1.16884,
862 + .94977, 1.34344, 1.49433,
863 + .09165, .04660, 37.08847, 1.55167, 1.22885,
864 + 1.01154, 1.40263, 1.55278,
865 + .09277, .04733, 38.13279, 1.61099, 1.28991,
866 + 1.07451, 1.46273, 1.61215,
867 + .09387, .04805, 39.13180, 1.66948, 1.34994,
868 + 1.13621, 1.52199, 1.67070,
869 + .09492, .04873, 40.07352, 1.72578, 1.40790,
870 + 1.19598, 1.57901, 1.72706,
871 + .09592, .04938, 40.92907, 1.77865, 1.46205,
872 + 1.25150, 1.63256, 1.77998 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09693, .05004, 41.80413, 1.83327, 1.51837,
875 + 1.30967, 1.68785, 1.83464,
876 + .09793, .05068, 42.61046, 1.88583, 1.57208,
877 + 1.36460, 1.74107, 1.88726,
878 + .09888, .05129, 43.38823, 1.93704, 1.62469,
879 + 1.41872, 1.79291, 1.93852,
880 + .09978, .05188, 44.10533, 1.98545, 1.67437,
881 + 1.46976, 1.84191, 1.98697,
882 + .10070, .05247, 44.80675, 2.03408, 1.72416,
883 + 1.52078, 1.89114, 2.03566 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .07576, .03576, 3.05765, .31874, .00000,
886 + .00000, .16547, .31885,
887 + .07691, .03657, 3.71094, .32792, .00002,
888 + .00000, .17557, .32808,
889 + .07866, .03781, 4.72923, .34428, .01302,
890 + .00000, .19327, .34450,
891 + .07996, .03873, 5.49848, .35830, .03177,
892 + .00000, .20826, .35857,
893 + .08134, .03971, 6.31010, .37541, .05091,
894 + .00000, .22639, .37573,
895 + .08256, .04056, 7.05063, .39146, .06972,
896 + .00000, .24332, .39183,
897 + .08373, .04138, 7.75761, .40838, .08808,
898 + .00000, .26107, .40880,
899 + .08499, .04227, 8.52490, .42768, .10944,
900 + .00000, .28125, .42815 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .08610, .04304, 9.20581, .44558, .12927,
903 + .00000, .29991, .44610,
904 + .08718, .04379, 9.85775, .46388, .14895,
905 + .00000, .31894, .46445,
906 + .08804, .04438, 10.38182, .47904, .16535,
907 + .00000, .33467, .47964,
908 + .08989, .04566, 11.48651, .51323, .20210,
909 + .00014, .37007, .51392,
910 + .09150, .04677, 12.42825, .54456, .23597,
911 + .02862, .40243, .54532,
912 + .09331, .04802, 13.45200, .58140, .27572,
913 + .08034, .44041, .58224,
914 + .09522, .04932, 14.49332, .62156, .31797,
915 + .12279, .48174, .62250,
916 + .09696, .05050, 15.42784, .65935, .35786,
917 + .16506, .52058, .66038 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09872, .05170, 16.36506, .69881, .39978,
920 + .21032, .56109, .69993,
921 + .10019, .05269, 17.12464, .73238, .43516,
922 + .24753, .59551, .73357,
923 + .10198, .05390, 18.02311, .77387, .47873,
924 + .29333, .63803, .77516,
925 + .10357, .05496, 18.81368, .81156, .51866,
926 + .33590, .67662, .81294,
927 + .10503, .05593, 19.50453, .84628, .55486,
928 + .37345, .71215, .84773,
929 + .10688, .05717, 20.37022, .89116, .60198,
930 + .42298, .75806, .89272,
931 + .10863, .05833, 21.16773, .93411, .64718,
932 + .47060, .80195, .93576,
933 + .11027, .05941, 21.87235, .97414, .68884,
934 + .51381, .84286, .97589 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11191, .06049, 22.57285, 1.01493, .73165,
937 + .55877, .88453, 1.01677,
938 + .11352, .06154, 23.22383, 1.05466, .77305,
939 + .60182, .92509, 1.05659,
940 + .11504, .06253, 23.82682, 1.09257, .81270,
941 + .64324, .96379, 1.09459,
942 + .11648, .06346, 24.37295, 1.12822, .84989,
943 + .68194, 1.00018, 1.13032,
944 + .11792, .06440, 24.90754, 1.16415, .88743,
945 + .72111, 1.03685, 1.16634,
946 + .11934, .06532, 25.41137, 1.19929, .92405,
947 + .75917, 1.07270, 1.20157,
948 + .12069, .06619, 25.88124, 1.23288, .95916,
949 + .79580, 1.10697, 1.23525,
950 + .12197, .06700, 26.30087, 1.26417, .99170,
951 + .82954, 1.13890, 1.26662 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12326, .06783, 26.72791, 1.29634, 1.02539,
954 + .86476, 1.17170, 1.29886,
955 + .12453, .06863, 27.11206, 1.32700, 1.05721,
956 + .89767, 1.20298, 1.32960,
957 + .12574, .06941, 27.48080, 1.35674, 1.08825,
958 + .92998, 1.23331, 1.35941,
959 + .12689, .07013, 27.81589, 1.38466, 1.11736,
960 + .96025, 1.26179, 1.38741,
961 + .12805, .07087, 28.13850, 1.41252, 1.14634,
962 + .99029, 1.29020, 1.41534 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .09547, .05040, 2.86346, .27654, .00000,
965 + .00000, .14378, .27689,
966 + .09707, .05155, 3.34882, .28442, .00002,
967 + .00000, .15249, .28485,
968 + .09949, .05328, 4.08790, .29794, .01084,
969 + .00000, .16725, .29850,
970 + .10128, .05456, 4.63276, .30918, .02623,
971 + .00000, .17939, .30984,
972 + .10319, .05590, 5.19808, .32249, .04152,
973 + .00000, .19363, .32325,
974 + .10485, .05708, 5.70461, .33478, .05624,
975 + .00000, .20674, .33563,
976 + .10647, .05820, 6.18119, .34748, .07034,
977 + .00000, .22021, .34842,
978 + .10819, .05940, 6.69053, .36175, .08650,
979 + .00000, .23529, .36279 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10971, .06045, 7.13631, .37481, .10130,
982 + .00000, .24906, .37594,
983 + .11117, .06146, 7.55746, .38797, .11579,
984 + .00000, .26290, .38919,
985 + .11234, .06226, 7.89242, .39878, .12775,
986 + .00000, .27424, .40007,
987 + .11485, .06397, 8.58576, .42280, .15417,
988 + .00012, .29939, .42424,
989 + .11703, .06545, 9.16326, .44445, .17813,
990 + .02044, .32201, .44603,
991 + .11948, .06710, 9.77556, .46952, .20581,
992 + .05707, .34815, .47125,
993 + .12203, .06880, 10.38573, .49638, .23473,
994 + .08652, .37612, .49828,
995 + .12435, .07034, 10.92244, .52128, .26164,
996 + .11545, .40200, .52333 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12670, .07188, 11.45095, .54694, .28955,
999 + .14604, .42865, .54914,
1000 + .12865, .07316, 11.87120, .56848, .31280,
1001 + .17085, .45100, .57081,
1002 + .13101, .07469, 12.35926, .59477, .34109,
1003 + .20103, .47827, .59726,
1004 + .13310, .07605, 12.78187, .61839, .36673,
1005 + .22879, .50274, .62102,
1006 + .13502, .07728, 13.14306, .63987, .38968,
1007 + .25296, .52500, .64263,
1008 + .13744, .07882, 13.58831, .66734, .41926,
1009 + .28453, .55345, .67027,
1010 + .13972, .08027, 13.99081, .69332, .44730,
1011 + .31455, .58033, .69640,
1012 + .14184, .08161, 14.33730, .71722, .47281,
1013 + .34143, .60508, .72045 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14397, .08294, 14.67683, .74134, .49881,
1016 + .36917, .63003, .74472,
1017 + .14603, .08423, 14.98428, .76454, .52365,
1018 + .39541, .65405, .76808,
1019 + .14798, .08544, 15.26416, .78647, .54722,
1020 + .42046, .67674, .79015,
1021 + .14982, .08657, 15.51221, .80689, .56911,
1022 + .44362, .69787, .81070,
1023 + .15165, .08769, 15.75054, .82729, .59103,
1024 + .46688, .71898, .83123,
1025 + .15345, .08879, 15.96984, .84705, .61221,
1026 + .48927, .73942, .85112,
1027 + .15515, .08983, 16.17098, .86578, .63237,
1028 + .51068, .75881, .86997,
1029 + .15676, .09079, 16.34517, .88305, .65086,
1030 + .53019, .77669, .88736 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .15838, .09177, 16.52149, .90070, .66993,
1033 + .55049, .79496, .90513,
1034 + .15996, .09272, 16.67322, .91732, .68771,
1035 + .56921, .81219, .92187,
1036 + .16147, .09362, 16.81807, .93336, .70498,
1037 + .58753, .82880, .93802,
1038 + .16290, .09447, 16.94600, .94830, .72106,
1039 + .60456, .84428, .95307,
1040 + .16433, .09532, 17.06516, .96307, .73693,
1041 + .62133, .85959, .96795 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .11035, .06228, 2.71339, .25397, .00000,
1044 + .00000, .13212, .25464,
1045 + .11230, .06366, 3.11051, .26097, .00002,
1046 + .00000, .13993, .26176,
1047 + .11525, .06572, 3.70661, .27277, .00956,
1048 + .00000, .15293, .27374,
1049 + .11743, .06724, 4.13943, .28239, .02303,
1050 + .00000, .16343, .28350,
1051 + .11975, .06884, 4.58383, .29359, .03619,
1052 + .00000, .17555, .29486,
1053 + .12178, .07022, 4.97765, .30385, .04872,
1054 + .00000, .18660, .30525,
1055 + .12373, .07155, 5.34474, .31432, .06058,
1056 + .00000, .19782, .31585,
1057 + .12581, .07296, 5.73328, .32597, .07407,
1058 + .00000, .21028, .32765 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12764, .07418, 6.07035, .33656, .08631,
1061 + .00000, .22156, .33836,
1062 + .12940, .07536, 6.38605, .34713, .09820,
1063 + .00000, .23280, .34906,
1064 + .13081, .07629, 6.63544, .35576, .10795,
1065 + .00000, .24195, .35779,
1066 + .13381, .07827, 7.14521, .37478, .12932,
1067 + .00011, .26209, .37702,
1068 + .13641, .07997, 7.56303, .39176, .14851,
1069 + .01649, .28002, .39419,
1070 + .13933, .08186, 7.99825, .41122, .17047,
1071 + .04589, .30054, .41385,
1072 + .14235, .08380, 8.42544, .43184, .19316,
1073 + .06923, .32226, .43470,
1074 + .14510, .08554, 8.79593, .45078, .21408,
1075 + .09197, .34217, .45384 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .14787, .08729, 9.15610, .47011, .23561,
1078 + .11582, .36249, .47339,
1079 + .15015, .08872, 9.43856, .48622, .25339,
1080 + .13502, .37940, .48966,
1081 + .15292, .09044, 9.76179, .50571, .27487,
1082 + .15819, .39987, .50937,
1083 + .15536, .09195, 10.03830, .52309, .29419,
1084 + .17936, .41811, .52694,
1085 + .15758, .09331, 10.27071, .53877, .31136,
1086 + .19764, .43455, .54279,
1087 + .16039, .09501, 10.55348, .55867, .33333,
1088 + .22138, .45543, .56291,
1089 + .16302, .09661, 10.80513, .57734, .35401,
1090 + .24380, .47501, .58179,
1091 + .16546, .09806, 11.01653, .59437, .37266,
1092 + .26369, .49288, .59900 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .16790, .09952, 11.22134, .61144, .39156,
1095 + .28412, .51078, .61626,
1096 + .17026, .10091, 11.40259, .62772, .40947,
1097 + .30330, .52788, .63273,
1098 + .17249, .10221, 11.56505, .64301, .42638,
1099 + .32150, .54393, .64820,
1100 + .17457, .10342, 11.70602, .65715, .44198,
1101 + .33823, .55877, .66250,
1102 + .17664, .10463, 11.83897, .67117, .45751,
1103 + .35494, .57351, .67669,
1104 + .17867, .10580, 11.95815, .68466, .47241,
1105 + .37093, .58770, .69035,
1106 + .18059, .10690, 12.06571, .69738, .48653,
1107 + .38615, .60107, .70322,
1108 + .18239, .10792, 12.15570, .70902, .49940,
1109 + .39993, .61332, .71501 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .18421, .10895, 12.24650, .72088, .51263,
1112 + .41422, .62581, .72701,
1113 + .18597, .10994, 12.31989, .73194, .52486,
1114 + .42730, .63747, .73821,
1115 + .18765, .11088, 12.38969, .74257, .53670,
1116 + .44006, .64868, .74899,
1117 + .18924, .11177, 12.44906, .75241, .54767,
1118 + .45187, .65906, .75895,
1119 + .19082, .11265, 12.50182, .76207, .55843,
1120 + .46343, .66927, .76874 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .12307, .07266, 2.58651, .23882, .00000,
1123 + .00000, .12429, .23989,
1124 + .12533, .07421, 2.92600, .24515, .00002,
1125 + .00000, .13142, .24637,
1126 + .12874, .07653, 3.43015, .25567, .00865,
1127 + .00000, .14314, .25714,
1128 + .13126, .07823, 3.79203, .26415, .02077,
1129 + .00000, .15249, .26581,
1130 + .13393, .08000, 4.16067, .27391, .03249,
1131 + .00000, .16316, .27577,
1132 + .13626, .08154, 4.48471, .28279, .04355,
1133 + .00000, .17283, .28482,
1134 + .13849, .08301, 4.78459, .29177, .05394,
1135 + .00000, .18257, .29397,
1136 + .14088, .08456, 5.09966, .30171, .06568,
1137 + .00000, .19331, .30409 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14296, .08591, 5.37118, .31068, .07626,
1140 + .00000, .20298, .31323,
1141 + .14497, .08720, 5.62372, .31960, .08649,
1142 + .00000, .21256, .32230,
1143 + .14657, .08822, 5.82215, .32683, .09484,
1144 + .00000, .22032, .32966,
1145 + .14997, .09038, 6.22372, .34269, .11303,
1146 + .00010, .23729, .34578,
1147 + .15292, .09223, 6.54853, .35673, .12924,
1148 + .01402, .25230, .36006,
1149 + .15621, .09428, 6.88178, .37271, .14766,
1150 + .03892, .26935, .37630,
1151 + .15961, .09637, 7.20484, .38951, .16655,
1152 + .05850, .28724, .39338,
1153 + .16268, .09824, 7.48170, .40481, .18385,
1154 + .07747, .30354, .40893 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .16578, .10010, 7.74790, .42034, .20153,
1157 + .09725, .32006, .42472,
1158 + .16833, .10163, 7.95410, .43319, .21606,
1159 + .11307, .33372, .43777,
1160 + .17139, .10345, 8.18702, .44864, .23349,
1161 + .13206, .35015, .45348,
1162 + .17410, .10504, 8.38419, .46234, .24910,
1163 + .14933, .36471, .46740,
1164 + .17655, .10647, 8.54710, .47461, .26288,
1165 + .16415, .37776, .47988,
1166 + .17965, .10826, 8.74295, .49010, .28043,
1167 + .18331, .39424, .49563,
1168 + .18254, .10992, 8.91469, .50454, .29686,
1169 + .20130, .40960, .51031,
1170 + .18521, .11144, 9.05547, .51760, .31157,
1171 + .21716, .42351, .52360 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .18786, .11294, 9.19035, .53063, .32642,
1174 + .23339, .43739, .53686,
1175 + .19043, .11437, 9.30664, .54298, .34040,
1176 + .24854, .45056, .54942,
1177 + .19284, .11571, 9.40909, .55451, .35354,
1178 + .26285, .46286, .56116,
1179 + .19509, .11695, 9.49577, .56511, .36560,
1180 + .27595, .47417, .57195,
1181 + .19733, .11818, 9.57579, .57557, .37756,
1182 + .28897, .48535, .58260,
1183 + .19951, .11936, 9.64523, .58556, .38898,
1184 + .30137, .49605, .59278,
1185 + .20157, .12048, 9.70659, .59494, .39975,
1186 + .31314, .50610, .60234,
1187 + .20349, .12151, 9.75539, .60346, .40952,
1188 + .32374, .51524, .61103 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .20543, .12254, 9.80451, .61213, .41953,
1191 + .33471, .52453, .61986,
1192 + .20731, .12353, 9.84041, .62013, .42872,
1193 + .34468, .53315, .62802,
1194 + .20909, .12448, 9.87443, .62781, .43761,
1195 + .35440, .54141, .63586,
1196 + .21077, .12535, 9.90141, .63488, .44580,
1197 + .36334, .54902, .64306,
1198 + .21245, .12622, 9.92310, .64176, .45379,
1199 + .37206, .55646, .65009 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .13453, .08202, 2.47572, .22750, .00000,
1202 + .00000, .11845, .22903,
1203 + .13708, .08371, 2.77355, .23328, .00002,
1204 + .00000, .12504, .23501,
1205 + .14090, .08622, 3.21204, .24279, .00795,
1206 + .00000, .13576, .24483,
1207 + .14371, .08806, 3.52386, .25039, .01905,
1208 + .00000, .14425, .25266,
1209 + .14669, .08997, 3.83948, .25907, .02969,
1210 + .00000, .15384, .26158,
1211 + .14927, .09162, 4.11512, .26692, .03966,
1212 + .00000, .16249, .26964,
1213 + .15175, .09319, 4.36861, .27481, .04898,
1214 + .00000, .17114, .27773,
1215 + .15440, .09485, 4.63338, .28349, .05945,
1216 + .00000, .18063, .28664 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .15670, .09629, 4.86033, .29130, .06885,
1219 + .00000, .18914, .29464,
1220 + .15892, .09766, 5.07013, .29901, .07789,
1221 + .00000, .19753, .30254,
1222 + .16068, .09874, 5.23423, .30525, .08524,
1223 + .00000, .20431, .30893,
1224 + .16442, .10102, 5.56345, .31886, .10119,
1225 + .00009, .21905, .32285,
1226 + .16765, .10297, 5.82663, .33084, .11531,
1227 + .01228, .23200, .33511,
1228 + .17125, .10512, 6.09288, .34438, .13128,
1229 + .03403, .24663, .34896,
1230 + .17496, .10730, 6.34818, .35852, .14754,
1231 + .05102, .26188, .36342,
1232 + .17830, .10925, 6.56462, .37132, .16236,
1233 + .06738, .27569, .37652 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .18165, .11119, 6.77064, .38424, .17743,
1236 + .08437, .28962, .38973,
1237 + .18440, .11277, 6.92832, .39487, .18974,
1238 + .09789, .30107, .40060,
1239 + .18771, .11464, 7.10431, .40759, .20445,
1240 + .11405, .31478, .41360,
1241 + .19062, .11628, 7.25181, .41880, .21757,
1242 + .12869, .32688, .42508,
1243 + .19325, .11774, 7.37140, .42879, .22909,
1244 + .14119, .33766, .43530,
1245 + .19656, .11956, 7.51340, .44134, .24370,
1246 + .15728, .35121, .44814,
1247 + .19964, .12125, 7.63597, .45297, .25731,
1248 + .17233, .36377, .46004,
1249 + .20248, .12278, 7.73389, .46341, .26944,
1250 + .18553, .37509, .47074 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .20530, .12429, 7.82660, .47380, .28163,
1253 + .19900, .38633, .48138,
1254 + .20801, .12573, 7.90402, .48357, .29306,
1255 + .21150, .39694, .49139,
1256 + .21055, .12707, 7.97073, .49265, .30375,
1257 + .22328, .40680, .50070,
1258 + .21292, .12830, 8.02523, .50095, .31352,
1259 + .23401, .41582, .50921,
1260 + .21527, .12952, 8.07414, .50910, .32318,
1261 + .24464, .42471, .51757,
1262 + .21755, .13069, 8.11468, .51685, .33235,
1263 + .25473, .43317, .52552,
1264 + .21970, .13179, 8.14933, .52409, .34099,
1265 + .26427, .44109, .53296,
1266 + .22170, .13280, 8.17448, .53062, .34877,
1267 + .27283, .44825, .53966 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .22371, .13381, 8.19975, .53725, .35674,
1270 + .28168, .45551, .54647,
1271 + .22565, .13477, 8.21457, .54331, .36401,
1272 + .28967, .46219, .55270,
1273 + .22750, .13569, 8.22855, .54911, .37103,
1274 + .29744, .46858, .55868,
1275 + .22923, .13654, 8.23759, .55441, .37747,
1276 + .30458, .47444, .56414,
1277 + .23095, .13738, 8.24227, .55956, .38373,
1278 + .31151, .48015, .56943 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15525, .09864, 2.28777, .21099, .00000,
1281 + .00000, .11003, .21364,
1282 + .15827, .10052, 2.52821, .21590, .00002,
1283 + .00000, .11578, .21882,
1284 + .16278, .10330, 2.87740, .22388, .00692,
1285 + .00000, .12501, .22722,
1286 + .16610, .10532, 3.12196, .23017, .01652,
1287 + .00000, .13221, .23382,
1288 + .16958, .10741, 3.36690, .23726, .02561,
1289 + .00000, .14026, .24123,
1290 + .17260, .10921, 3.57867, .24362, .03405,
1291 + .00000, .14745, .24787,
1292 + .17549, .11091, 3.77149, .24995, .04185,
1293 + .00000, .15457, .25447,
1294 + .17856, .11270, 3.97084, .25687, .05056,
1295 + .00000, .16233, .26167 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .18121, .11425, 4.14011, .26304, .05833,
1298 + .00000, .16924, .26809,
1299 + .18377, .11571, 4.29501, .26910, .06575,
1300 + .00000, .17599, .27439,
1301 + .18579, .11687, 4.41529, .27397, .07175,
1302 + .00000, .18142, .27945,
1303 + .19008, .11928, 4.65284, .28449, .08465,
1304 + .00008, .19312, .29039,
1305 + .19375, .12133, 4.83880, .29368, .09599,
1306 + .00994, .20332, .29992,
1307 + .19782, .12358, 5.02224, .30396, .10869,
1308 + .02747, .21473, .31058,
1309 + .20199, .12584, 5.19436, .31456, .12149,
1310 + .04100, .22649, .32158,
1311 + .20573, .12785, 5.33723, .32407, .13305,
1312 + .05394, .23704, .33144 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .20947, .12983, 5.47057, .33357, .14473,
1315 + .06728, .24759, .34130,
1316 + .21252, .13143, 5.57016, .34131, .15419,
1317 + .07781, .25620, .34934,
1318 + .21617, .13332, 5.67841, .35048, .16541,
1319 + .09031, .26640, .35886,
1320 + .21937, .13496, 5.76723, .35851, .17534,
1321 + .10156, .27534, .36719,
1322 + .22223, .13641, 5.83642, .36557, .18399,
1323 + .11109, .28323, .37453,
1324 + .22582, .13822, 5.91633, .37438, .19489,
1325 + .12329, .29307, .38367,
1326 + .22916, .13987, 5.98282, .38246, .20497,
1327 + .13462, .30212, .39207,
1328 + .23220, .14136, 6.03187, .38962, .21386,
1329 + .14447, .31017, .39952 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .23522, .14282, 6.07682, .39668, .22275,
1332 + .15447, .31813, .40687,
1333 + .23810, .14419, 6.11093, .40325, .23101,
1334 + .16368, .32555, .41371,
1335 + .24079, .14546, 6.13825, .40930, .23869,
1336 + .17230, .33241, .42001,
1337 + .24327, .14663, 6.15776, .41476, .24565,
1338 + .18011, .33862, .42571,
1339 + .24574, .14777, 6.17308, .42008, .25249,
1340 + .18781, .34469, .43126,
1341 + .24811, .14886, 6.18265, .42507, .25894,
1342 + .19506, .35042, .43648,
1343 + .25034, .14987, 6.18899, .42970, .26498,
1344 + .20189, .35574, .44131,
1345 + .25240, .15080, 6.18955, .43382, .27037,
1346 + .20796, .36050, .44562 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .25448, .15173, 6.19012, .43798, .27589,
1349 + .21423, .36532, .44998,
1350 + .25646, .15260, 6.18338, .44171, .28085,
1351 + .21983, .36968, .45389,
1352 + .25834, .15342, 6.17694, .44527, .28563,
1353 + .22527, .37384, .45763,
1354 + .26010, .15418, 6.16791, .44848, .28999,
1355 + .23023, .37762, .46100,
1356 + .26184, .15492, 6.15572, .45155, .29419,
1357 + .23502, .38126, .46423 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18319, .12002, 2.06245, .19387, .00000,
1360 + .00000, .10150, .19859,
1361 + .18678, .12206, 2.24967, .19782, .00001,
1362 + .00000, .10635, .20291,
1363 + .19212, .12505, 2.51734, .20416, .00587,
1364 + .00000, .11402, .20981,
1365 + .19602, .12720, 2.70149, .20908, .01397,
1366 + .00000, .11993, .21514,
1367 + .20009, .12941, 2.88348, .21456, .02153,
1368 + .00000, .12643, .22104,
1369 + .20361, .13130, 3.03899, .21944, .02848,
1370 + .00000, .13219, .22628,
1371 + .20695, .13308, 3.17878, .22424, .03485,
1372 + .00000, .13784, .23144,
1373 + .21047, .13493, 3.32155, .22944, .04189,
1374 + .00000, .14394, .23701 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .21352, .13653, 3.44140, .23405, .04813,
1377 + .00000, .14933, .24193,
1378 + .21643, .13802, 3.54959, .23853, .05404,
1379 + .00000, .15455, .24670,
1380 + .21873, .13920, 3.63279, .24210, .05879,
1381 + .00000, .15872, .25052,
1382 + .22357, .14164, 3.79371, .24976, .06892,
1383 + .00007, .16764, .25868,
1384 + .22769, .14370, 3.91602, .25636, .07773,
1385 + .00781, .17533, .26571,
1386 + .23224, .14593, 4.03207, .26367, .08751,
1387 + .02151, .18383, .27348,
1388 + .23684, .14815, 4.13748, .27109, .09725,
1389 + .03196, .19248, .28138,
1390 + .24094, .15009, 4.22208, .27766, .10596,
1391 + .04186, .20015, .28836 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .24500, .15200, 4.29852, .28414, .11467,
1394 + .05198, .20774, .29525,
1395 + .24831, .15352, 4.35322, .28936, .12166,
1396 + .05991, .21386, .30080,
1397 + .25222, .15529, 4.40968, .29545, .12988,
1398 + .06924, .22104, .30730,
1399 + .25563, .15682, 4.45410, .30072, .13711,
1400 + .07757, .22728, .31292,
1401 + .25866, .15816, 4.48556, .30530, .14333,
1402 + .08457, .23271, .31778,
1403 + .26244, .15980, 4.51953, .31092, .15111,
1404 + .09346, .23942, .32378,
1405 + .26592, .16129, 4.54504, .31600, .15824,
1406 + .10166, .24551, .32922,
1407 + .26906, .16260, 4.55934, .32042, .16445,
1408 + .10870, .25086, .33394 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .27216, .16389, 4.57070, .32474, .17063,
1411 + .11582, .25609, .33856,
1412 + .27509, .16508, 4.57472, .32867, .17630,
1413 + .12231, .26091, .34277,
1414 + .27781, .16617, 4.57511, .33223, .18153,
1415 + .12835, .26531, .34660,
1416 + .28031, .16715, 4.57120, .33539, .18623,
1417 + .13377, .26925, .35000,
1418 + .28277, .16810, 4.56436, .33842, .19081,
1419 + .13908, .27305, .35327,
1420 + .28512, .16900, 4.55389, .34121, .19508,
1421 + .14404, .27659, .35628,
1422 + .28732, .16982, 4.54214, .34375, .19905,
1423 + .14868, .27985, .35903,
1424 + .28933, .17056, 4.52735, .34595, .20256,
1425 + .15278, .28271, .36142 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .29136, .17130, 4.51259, .34817, .20614,
1428 + .15699, .28560, .36383,
1429 + .29325, .17197, 4.49312, .35007, .20931,
1430 + .16070, .28814, .36590,
1431 + .29505, .17260, 4.47470, .35187, .21235,
1432 + .16430, .29056, .36787,
1433 + .29672, .17318, 4.45540, .35346, .21509,
1434 + .16756, .29271, .36960,
1435 + .29836, .17373, 4.43398, .35492, .21770,
1436 + .17068, .29476, .37122 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .22542, .14955, 1.78178, .17401, .00000,
1439 + .00000, .09208, .18303,
1440 + .22968, .15163, 1.91859, .17683, .00001,
1441 + .00000, .09591, .18634,
1442 + .23598, .15465, 2.11023, .18131, .00477,
1443 + .00000, .10188, .19154,
1444 + .24052, .15680, 2.23890, .18474, .01129,
1445 + .00000, .10640, .19549,
1446 + .24521, .15897, 2.36367, .18851, .01729,
1447 + .00000, .11130, .19979,
1448 + .24924, .16082, 2.46867, .19183, .02274,
1449 + .00000, .11560, .20357,
1450 + .25304, .16253, 2.56125, .19505, .02767,
1451 + .00000, .11976, .20722,
1452 + .25702, .16429, 2.65414, .19851, .03309,
1453 + .00000, .12420, .21111 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .26045, .16579, 2.73081, .20153, .03783,
1456 + .00000, .12809, .21452,
1457 + .26368, .16719, 2.79853, .20444, .04228,
1458 + .00000, .13181, .21778,
1459 + .26622, .16827, 2.84983, .20674, .04583,
1460 + .00000, .13477, .22036,
1461 + .27152, .17050, 2.94559, .21162, .05333,
1462 + .00006, .14100, .22580,
1463 + .27599, .17234, 3.01472, .21574, .05977,
1464 + .00579, .14629, .23041,
1465 + .28086, .17430, 3.07569, .22023, .06683,
1466 + .01589, .15206, .23541,
1467 + .28574, .17622, 3.12707, .22467, .07376,
1468 + .02347, .15783, .24036,
1469 + .29002, .17786, 3.16533, .22852, .07987,
1470 + .03057, .16285, .24465 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .29423, .17943, 3.19720, .23224, .08591,
1473 + .03776, .16775, .24881,
1474 + .29761, .18066, 3.21721, .23517, .09071,
1475 + .04333, .17164, .25209,
1476 + .30155, .18206, 3.23437, .23852, .09628,
1477 + .04982, .17612, .25582,
1478 + .30495, .18325, 3.24560, .24136, .10112,
1479 + .05556, .17996, .25900,
1480 + .30794, .18425, 3.24949, .24373, .10523,
1481 + .06032, .18324, .26166,
1482 + .31163, .18547, 3.25037, .24658, .11032,
1483 + .06632, .18722, .26487,
1484 + .31498, .18654, 3.24687, .24910, .11492,
1485 + .07179, .19078, .26771,
1486 + .31795, .18745, 3.23736, .25117, .11886,
1487 + .07643, .19381, .27005 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .32085, .18832, 3.22605, .25316, .12274,
1490 + .08108, .19674, .27230,
1491 + .32355, .18909, 3.21035, .25488, .12625,
1492 + .08527, .19936, .27426,
1493 + .32602, .18977, 3.19349, .25638, .12945,
1494 + .08912, .20171, .27598,
1495 + .32827, .19037, 3.17506, .25764, .13228,
1496 + .09255, .20376, .27744,
1497 + .33045, .19092, 3.15482, .25880, .13501,
1498 + .09587, .20570, .27879,
1499 + .33251, .19141, 3.13269, .25979, .13752,
1500 + .09894, .20745, .27996,
1501 + .33440, .19186, 3.11075, .26065, .13983,
1502 + .10179, .20903, .28099,
1503 + .33609, .19223, 3.08788, .26134, .14182,
1504 + .10427, .21036, .28180 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .33779, .19261, 3.06514, .26202, .14386,
1507 + .10682, .21171, .28262,
1508 + .33935, .19290, 3.03982, .26248, .14560,
1509 + .10902, .21281, .28320,
1510 + .34083, .19318, 3.01600, .26291, .14727,
1511 + .11114, .21385, .28375,
1512 + .34217, .19341, 2.99242, .26323, .14875,
1513 + .11304, .21474, .28418,
1514 + .34345, .19361, 2.96756, .26347, .15013,
1515 + .11483, .21554, .28450 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .26441, .17387, 1.57726, .15872, .00000,
1518 + .00000, .08532, .17273,
1519 + .26907, .17583, 1.68481, .16077, .00001,
1520 + .00000, .08845, .17532,
1521 + .27589, .17864, 1.83283, .16398, .00405,
1522 + .00000, .09328, .17933,
1523 + .28078, .18061, 1.93011, .16642, .00957,
1524 + .00000, .09689, .18234,
1525 + .28578, .18257, 2.02276, .16906, .01459,
1526 + .00000, .10077, .18555,
1527 + .29005, .18422, 2.09967, .17138, .01911,
1528 + .00000, .10414, .18835,
1529 + .29403, .18572, 2.16614, .17361, .02316,
1530 + .00000, .10736, .19102,
1531 + .29817, .18726, 2.23167, .17597, .02757,
1532 + .00000, .11077, .19383 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .30172, .18855, 2.28485, .17803, .03141,
1535 + .00000, .11373, .19627,
1536 + .30503, .18973, 2.33075, .17998, .03498,
1537 + .00000, .11654, .19857,
1538 + .30762, .19064, 2.36499, .18151, .03782,
1539 + .00000, .11875, .20038,
1540 + .31299, .19247, 2.42633, .18471, .04376,
1541 + .00005, .12337, .20412,
1542 + .31747, .19395, 2.46779, .18736, .04882,
1543 + .00460, .12724, .20724,
1544 + .32228, .19551, 2.50055, .19019, .05430,
1545 + .01258, .13140, .21054,
1546 + .32703, .19694, 2.52493, .19292, .05961,
1547 + .01849, .13549, .21374,
1548 + .33115, .19815, 2.54035, .19522, .06425,
1549 + .02399, .13900, .21643 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .33515, .19928, 2.55058, .19739, .06880,
1552 + .02950, .14236, .21897,
1553 + .33832, .20012, 2.55406, .19905, .07236,
1554 + .03374, .14499, .22090,
1555 + .34198, .20106, 2.55292, .20087, .07646,
1556 + .03863, .14797, .22304,
1557 + .34510, .20182, 2.54901, .20237, .07999,
1558 + .04293, .15048, .22482,
1559 + .34779, .20243, 2.54059, .20356, .08295,
1560 + .04645, .15257, .22622,
1561 + .35107, .20313, 2.52703, .20493, .08657,
1562 + .05087, .15507, .22786,
1563 + .35400, .20370, 2.51128, .20608, .08982,
1564 + .05486, .15726, .22925,
1565 + .35654, .20414, 2.49207, .20694, .09256,
1566 + .05820, .15905, .23029 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .35900, .20454, 2.47181, .20772, .09523,
1569 + .06153, .16076, .23124,
1570 + .36123, .20485, 2.44880, .20830, .09761,
1571 + .06448, .16223, .23197,
1572 + .36325, .20509, 2.42581, .20876, .09975,
1573 + .06719, .16351, .23256,
1574 + .36504, .20527, 2.40249, .20907, .10162,
1575 + .06957, .16459, .23299,
1576 + .36674, .20540, 2.37807, .20930, .10341,
1577 + .07187, .16558, .23332,
1578 + .36831, .20548, 2.35270, .20942, .10502,
1579 + .07396, .16642, .23352,
1580 + .36974, .20553, 2.32815, .20947, .10648,
1581 + .07589, .16716, .23364,
1582 + .37098, .20552, 2.30359, .20941, .10773,
1583 + .07755, .16773, .23363 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .37222, .20552, 2.27926, .20935, .10899,
1586 + .07925, .16831, .23362,
1587 + .37330, .20543, 2.25340, .20913, .11004,
1588 + .08069, .16870, .23345,
1589 + .37432, .20535, 2.22915, .20892, .11103,
1590 + .08207, .16907, .23328,
1591 + .37521, .20524, 2.20560, .20867, .11190,
1592 + .08330, .16935, .23305,
1593 + .37604, .20510, 2.18122, .20834, .11269,
1594 + .08444, .16955, .23274 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .33553, .21184, 1.30519, .13363, .00000,
1597 + .00000, .07497, .15826,
1598 + .34038, .21329, 1.37946, .13467, .00001,
1599 + .00000, .07719, .15979,
1600 + .34735, .21528, 1.47833, .13630, .00317,
1601 + .00000, .08055, .16210,
1602 + .35225, .21663, 1.54059, .13752, .00745,
1603 + .00000, .08300, .16379,
1604 + .35715, .21790, 1.59751, .13883, .01127,
1605 + .00000, .08558, .16552,
1606 + .36128, .21894, 1.64344, .13995, .01466,
1607 + .00000, .08779, .16700,
1608 + .36506, .21983, 1.68135, .14101, .01766,
1609 + .00000, .08987, .16837,
1610 + .36893, .22070, 1.71719, .14210, .02089,
1611 + .00000, .09202, .16977 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .37220, .22139, 1.74506, .14303, .02366,
1614 + .00000, .09387, .17094,
1615 + .37520, .22198, 1.76763, .14388, .02621,
1616 + .00000, .09559, .17201,
1617 + .37751, .22242, 1.78374, .14453, .02821,
1618 + .00000, .09692, .17283,
1619 + .38219, .22321, 1.80899, .14585, .03235,
1620 + .00005, .09965, .17445,
1621 + .38599, .22379, 1.82202, .14688, .03581,
1622 + .00322, .10187, .17571,
1623 + .38998, .22431, 1.82658, .14790, .03950,
1624 + .00876, .10419, .17694,
1625 + .39374, .22466, 1.82437, .14878, .04299,
1626 + .01279, .10637, .17800,
1627 + .39689, .22486, 1.81781, .14943, .04599,
1628 + .01648, .10817, .17877 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .39986, .22497, 1.80771, .14997, .04888,
1631 + .02012, .10984, .17941,
1632 + .40212, .22496, 1.79608, .15030, .05109,
1633 + .02288, .11108, .17980,
1634 + .40461, .22486, 1.77867, .15057, .05359,
1635 + .02602, .11241, .18010,
1636 + .40666, .22471, 1.76164, .15073, .05571,
1637 + .02875, .11349, .18028,
1638 + .40831, .22446, 1.74309, .15074, .05744,
1639 + .03094, .11432, .18027,
1640 + .41025, .22408, 1.71812, .15066, .05953,
1641 + .03366, .11526, .18016,
1642 + .41189, .22365, 1.69316, .15048, .06136,
1643 + .03607, .11602, .17994,
1644 + .41317, .22314, 1.66734, .15017, .06285,
1645 + .03805, .11655, .17956 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .41434, .22261, 1.64130, .14981, .06428,
1648 + .03999, .11701, .17912,
1649 + .41527, .22201, 1.61427, .14936, .06550,
1650 + .04169, .11732, .17855,
1651 + .41604, .22139, 1.58834, .14886, .06658,
1652 + .04322, .11755, .17794,
1653 + .41665, .22075, 1.56325, .14833, .06750,
1654 + .04454, .11767, .17730,
1655 + .41715, .22008, 1.53780, .14773, .06835,
1656 + .04579, .11773, .17659,
1657 + .41752, .21937, 1.51231, .14709, .06908,
1658 + .04691, .11771, .17581,
1659 + .41780, .21868, 1.48813, .14644, .06974,
1660 + .04793, .11764, .17503,
1661 + .41793, .21797, 1.46475, .14577, .07026,
1662 + .04878, .11750, .17423 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .41806, .21726, 1.44171, .14510, .07078,
1665 + .04965, .11736, .17343,
1666 + .41800, .21649, 1.41818, .14434, .07117,
1667 + .05036, .11711, .17251,
1668 + .41794, .21576, 1.39622, .14363, .07154,
1669 + .05103, .11687, .17165,
1670 + .41781, .21505, 1.37532, .14292, .07184,
1671 + .05162, .11660, .17079,
1672 + .41760, .21429, 1.35409, .14216, .07209,
1673 + .05214, .11628, .16989 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .39881, .23954, 1.14076, .11222, .00000,
1676 + .00000, .06641, .14656,
1677 + .40321, .24028, 1.19535, .11273, .00001,
1678 + .00000, .06805, .14730,
1679 + .40941, .24119, 1.26530, .11352, .00263,
1680 + .00000, .07049, .14837,
1681 + .41367, .24172, 1.30714, .11409, .00615,
1682 + .00000, .07224, .14912,
1683 + .41781, .24212, 1.34336, .11469, .00925,
1684 + .00000, .07403, .14984,
1685 + .42124, .24239, 1.37152, .11519, .01197,
1686 + .00000, .07555, .15043,
1687 + .42430, .24255, 1.39321, .11563, .01434,
1688 + .00000, .07693, .15091,
1689 + .42735, .24263, 1.41235, .11607, .01686,
1690 + .00000, .07835, .15136 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .42986, .24264, 1.42613, .11643, .01900,
1693 + .00000, .07954, .15171,
1694 + .43209, .24256, 1.43584, .11673, .02095,
1695 + .00000, .08062, .15198,
1696 + .43378, .24246, 1.44206, .11694, .02247,
1697 + .00000, .08144, .15216,
1698 + .43708, .24211, 1.44797, .11732, .02557,
1699 + .00004, .08309, .15244,
1700 + .43964, .24170, 1.44614, .11755, .02811,
1701 + .00243, .08438, .15255,
1702 + .44216, .24113, 1.43637, .11770, .03078,
1703 + .00658, .08567, .15252,
1704 + .44435, .24034, 1.42118, .11770, .03326,
1705 + .00955, .08680, .15230,
1706 + .44603, .23952, 1.40424, .11759, .03535,
1707 + .01223, .08767, .15196 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .44747, .23860, 1.38488, .11738, .03733,
1710 + .01485, .08843, .15149,
1711 + .44845, .23774, 1.36671, .11713, .03882,
1712 + .01680, .08895, .15100,
1713 + .44935, .23661, 1.34261, .11671, .04046,
1714 + .01899, .08943, .15028,
1715 + .44998, .23557, 1.32048, .11629, .04184,
1716 + .02087, .08979, .14958,
1717 + .45032, .23452, 1.29840, .11580, .04293,
1718 + .02236, .08998, .14882,
1719 + .45056, .23313, 1.26985, .11512, .04421,
1720 + .02418, .09014, .14778,
1721 + .45060, .23178, 1.24243, .11442, .04532,
1722 + .02577, .09021, .14672,
1723 + .45035, .23041, 1.21544, .11367, .04618,
1724 + .02705, .09013, .14561 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .45001, .22902, 1.18872, .11289, .04699,
1727 + .02830, .09001, .14448,
1728 + .44945, .22760, 1.16192, .11205, .04766,
1729 + .02937, .08979, .14327,
1730 + .44883, .22623, 1.13668, .11122, .04823,
1731 + .03031, .08953, .14210,
1732 + .44811, .22489, 1.11278, .11039, .04868,
1733 + .03111, .08923, .14094,
1734 + .44728, .22352, 1.08891, .10953, .04909,
1735 + .03185, .08889, .13975,
1736 + .44634, .22213, 1.06542, .10866, .04942,
1737 + .03251, .08850, .13853,
1738 + .44538, .22081, 1.04340, .10781, .04970,
1739 + .03309, .08810, .13736,
1740 + .44434, .21951, 1.02248, .10696, .04989,
1741 + .03356, .08767, .13620 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .44331, .21822, 1.00196, .10612, .05009,
1744 + .03404, .08724, .13505,
1745 + .44209, .21688, .98144, .10523, .05019,
1746 + .03441, .08674, .13385,
1747 + .44094, .21562, .96237, .10440, .05029,
1748 + .03476, .08628, .13272,
1749 + .43978, .21440, .94442, .10358, .05035,
1750 + .03506, .08580, .13162,
1751 + .43853, .21315, .92638, .10274, .05037,
1752 + .03531, .08530, .13050 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .45451, .25956, 1.03654, .09356, .00000,
1755 + .00000, .05872, .13527,
1756 + .45801, .25950, 1.07673, .09381, .00001,
1757 + .00000, .05996, .13538,
1758 + .46279, .25922, 1.12571, .09418, .00225,
1759 + .00000, .06177, .13550,
1760 + .46596, .25888, 1.15286, .09444, .00525,
1761 + .00000, .06305, .13552,
1762 + .46887, .25836, 1.17440, .09468, .00785,
1763 + .00000, .06431, .13548,
1764 + .47121, .25783, 1.19009, .09486, .01011,
1765 + .00000, .06535, .13540,
1766 + .47319, .25721, 1.20050, .09500, .01204,
1767 + .00000, .06629, .13525,
1768 + .47507, .25647, 1.20819, .09509, .01408,
1769 + .00000, .06722, .13503 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .47655, .25577, 1.21246, .09515, .01580,
1772 + .00000, .06798, .13480,
1773 + .47774, .25502, 1.21358, .09517, .01734,
1774 + .00000, .06865, .13451,
1775 + .47859, .25439, 1.21326, .09517, .01853,
1776 + .00000, .06915, .13426,
1777 + .48008, .25293, 1.20662, .09509, .02094,
1778 + .00003, .07010, .13361,
1779 + .48105, .25156, 1.19543, .09493, .02289,
1780 + .00191, .07080, .13296,
1781 + .48181, .24990, 1.17694, .09464, .02489,
1782 + .00515, .07145, .13212,
1783 + .48208, .24804, 1.15415, .09423, .02672,
1784 + .00743, .07195, .13108,
1785 + .48202, .24625, 1.13142, .09376, .02822,
1786 + .00946, .07227, .13002 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .48171, .24438, 1.10716, .09322, .02963,
1789 + .01142, .07249, .12887,
1790 + .48121, .24276, 1.08575, .09270, .03067,
1791 + .01286, .07258, .12785,
1792 + .48033, .24071, 1.05865, .09200, .03178,
1793 + .01446, .07259, .12653,
1794 + .47941, .23887, 1.03446, .09134, .03270,
1795 + .01582, .07253, .12531,
1796 + .47832, .23710, 1.01128, .09065, .03340,
1797 + .01688, .07237, .12412,
1798 + .47676, .23482, .98192, .08974, .03422,
1799 + .01815, .07211, .12256,
1800 + .47511, .23266, .95435, .08886, .03489,
1801 + .01926, .07181, .12105,
1802 + .47330, .23054, .92800, .08795, .03539,
1803 + .02012, .07142, .11956 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .47142, .22843, .90224, .08703, .03585,
1806 + .02096, .07101, .11807,
1807 + .46936, .22631, .87693, .08608, .03620,
1808 + .02165, .07053, .11656,
1809 + .46732, .22430, .85340, .08517, .03648,
1810 + .02226, .07005, .11511,
1811 + .46527, .22237, .83141, .08428, .03669,
1812 + .02277, .06955, .11373,
1813 + .46313, .22043, .80971, .08337, .03686,
1814 + .02323, .06902, .11233,
1815 + .46092, .21850, .78862, .08245, .03697,
1816 + .02363, .06847, .11093,
1817 + .45878, .21666, .76902, .08158, .03705,
1818 + .02397, .06793, .10960,
1819 + .45663, .21489, .75063, .08072, .03708,
1820 + .02424, .06738, .10832 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .45449, .21313, .73265, .07988, .03711,
1823 + .02451, .06684, .10704,
1824 + .45219, .21134, .71494, .07901, .03707,
1825 + .02470, .06626, .10575,
1826 + .45002, .20966, .69854, .07819, .03704,
1827 + .02489, .06571, .10453,
1828 + .44789, .20805, .68324, .07741, .03698,
1829 + .02503, .06517, .10337,
1830 + .44568, .20641, .66799, .07660, .03690,
1831 + .02515, .06461, .10219 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .51363, .27606, .95264, .07392, .00000,
1834 + .00000, .04993, .12062,
1835 + .51556, .27498, .97819, .07406, .00001,
1836 + .00000, .05084, .12014,
1837 + .51792, .27320, 1.00618, .07425, .00190,
1838 + .00000, .05212, .11937,
1839 + .51926, .27177, 1.01886, .07437, .00441,
1840 + .00000, .05299, .11873,
1841 + .52022, .27010, 1.02619, .07442, .00655,
1842 + .00000, .05381, .11801,
1843 + .52086, .26859, 1.03003, .07444, .00838,
1844 + .00000, .05447, .11734,
1845 + .52118, .26706, 1.02990, .07441, .00992,
1846 + .00000, .05503, .11665,
1847 + .52128, .26535, 1.02708, .07433, .01153,
1848 + .00000, .05555, .11586 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .52120, .26380, 1.02274, .07423, .01287,
1851 + .00000, .05596, .11515,
1852 + .52089, .26225, 1.01625, .07410, .01405,
1853 + .00000, .05629, .11441,
1854 + .52054, .26100, 1.01023, .07398, .01496,
1855 + .00000, .05653, .11380,
1856 + .51946, .25822, .99291, .07364, .01675,
1857 + .00003, .05694, .11242,
1858 + .51822, .25575, .97402, .07328, .01818,
1859 + .00146, .05719, .11116,
1860 + .51649, .25292, .94870, .07279, .01962,
1861 + .00391, .05736, .10968,
1862 + .51422, .24983, .92032, .07216, .02089,
1863 + .00560, .05738, .10804,
1864 + .51185, .24698, .89365, .07153, .02192,
1865 + .00708, .05729, .10649 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .50924, .24406, .86634, .07083, .02285,
1868 + .00850, .05712, .10488,
1869 + .50687, .24159, .84319, .07021, .02352,
1870 + .00952, .05692, .10349,
1871 + .50374, .23855, .81484, .06939, .02422,
1872 + .01064, .05659, .10177,
1873 + .50085, .23587, .79010, .06865, .02477,
1874 + .01157, .05626, .10024,
1875 + .49795, .23336, .76711, .06792, .02518,
1876 + .01228, .05588, .09878,
1877 + .49416, .23017, .73853, .06696, .02563,
1878 + .01313, .05536, .09693,
1879 + .49045, .22717, .71223, .06603, .02598,
1880 + .01386, .05483, .09521,
1881 + .48677, .22429, .68769, .06511, .02621,
1882 + .01441, .05426, .09355 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .48304, .22145, .66398, .06420, .02642,
1885 + .01493, .05368, .09190,
1886 + .47919, .21867, .64114, .06328, .02654,
1887 + .01535, .05307, .09025,
1888 + .47551, .21604, .62017, .06240, .02662,
1889 + .01571, .05247, .08871,
1890 + .47196, .21353, .60084, .06155, .02666,
1891 + .01600, .05189, .08726,
1892 + .46834, .21103, .58195, .06069, .02667,
1893 + .01626, .05129, .08581,
1894 + .46470, .20855, .56381, .05983, .02664,
1895 + .01647, .05068, .08439,
1896 + .46121, .20623, .54710, .05902, .02660,
1897 + .01665, .05010, .08305,
1898 + .45780, .20403, .53161, .05825, .02652,
1899 + .01677, .04952, .08177 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .45441, .20185, .51654, .05749, .02645,
1902 + .01690, .04896, .08050,
1903 + .45092, .19965, .50189, .05671, .02633,
1904 + .01698, .04836, .07924,
1905 + .44763, .19759, .48839, .05599, .02622,
1906 + .01705, .04780, .07807,
1907 + .44447, .19563, .47589, .05529, .02610,
1908 + .01710, .04726, .07695,
1909 + .44123, .19365, .46354, .05459, .02596,
1910 + .01713, .04672, .07583 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .56120, .28502, .89447, .05824, .00000,
1913 + .00000, .04200, .10522,
1914 + .56122, .28295, .90750, .05839, .00001,
1915 + .00000, .04269, .10435,
1916 + .56073, .27971, .91793, .05857, .00163,
1917 + .00000, .04362, .10300,
1918 + .56000, .27723, .91881, .05864, .00375,
1919 + .00000, .04421, .10198,
1920 + .55877, .27446, .91484, .05863, .00553,
1921 + .00000, .04474, .10084,
1922 + .55750, .27204, .90944, .05860, .00703,
1923 + .00000, .04515, .09983,
1924 + .55597, .26966, .90129, .05852, .00828,
1925 + .00000, .04547, .09880,
1926 + .55411, .26707, .89064, .05839, .00956,
1927 + .00000, .04575, .09768 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .55234, .26479, .88003, .05825, .01061,
1930 + .00000, .04595, .09667,
1931 + .55041, .26252, .86814, .05807, .01153,
1932 + .00000, .04608, .09567,
1933 + .54880, .26071, .85815, .05791, .01223,
1934 + .00000, .04615, .09487,
1935 + .54505, .25677, .83369, .05748, .01359,
1936 + .00003, .04624, .09312,
1937 + .54152, .25334, .80992, .05705, .01465,
1938 + .00114, .04622, .09157,
1939 + .53727, .24948, .78062, .05650, .01569,
1940 + .00303, .04609, .08980,
1941 + .53243, .24536, .74934, .05583, .01659,
1942 + .00430, .04585, .08789,
1943 + .52778, .24163, .72095, .05518, .01729,
1944 + .00541, .04554, .08613 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .52291, .23786, .69264, .05448, .01791,
1947 + .00645, .04518, .08433,
1948 + .51871, .23471, .66925, .05385, .01834,
1949 + .00719, .04483, .08283,
1950 + .51343, .23089, .64125, .05304, .01877,
1951 + .00798, .04434, .08099,
1952 + .50868, .22753, .61721, .05232, .01909,
1953 + .00864, .04389, .07938,
1954 + .50413, .22443, .59538, .05161, .01931,
1955 + .00913, .04342, .07788,
1956 + .49829, .22053, .56860, .05069, .01955,
1957 + .00971, .04279, .07601,
1958 + .49274, .21689, .54431, .04982, .01971,
1959 + .01019, .04218, .07427,
1960 + .48734, .21345, .52210, .04897, .01979,
1961 + .01054, .04157, .07262 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .48197, .21007, .50084, .04813, .01984,
1964 + .01087, .04095, .07100,
1965 + .47657, .20676, .48063, .04729, .01984,
1966 + .01113, .04031, .06944,
1967 + .47145, .20367, .46227, .04650, .01982,
1968 + .01134, .03970, .06797,
1969 + .46656, .20079, .44554, .04576, .01976,
1970 + .01150, .03911, .06658,
1971 + .46164, .19791, .42935, .04500, .01969,
1972 + .01165, .03852, .06521,
1973 + .45678, .19507, .41396, .04425, .01960,
1974 + .01175, .03793, .06389,
1975 + .45216, .19242, .39988, .04354, .01950,
1976 + .01184, .03737, .06264,
1977 + .44772, .18991, .38695, .04287, .01938,
1978 + .01189, .03683, .06147 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .44330, .18743, .37443, .04221, .01927,
1981 + .01194, .03630, .06032,
1982 + .43883, .18497, .36238, .04155, .01912,
1983 + .01196, .03575, .05918,
1984 + .43463, .18266, .35132, .04092, .01898,
1985 + .01198, .03525, .05811,
1986 + .43062, .18048, .34114, .04033, .01884,
1987 + .01198, .03476, .05711,
1988 + .42654, .17829, .33115, .03974, .01869,
1989 + .01196, .03427, .05612 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .59755, .28790, .84663, .04613, .00000,
1992 + .00000, .03492, .08955,
1993 + .59551, .28491, .84881, .04632, .00001,
1994 + .00000, .03544, .08847,
1995 + .59195, .28035, .84442, .04653, .00139,
1996 + .00000, .03613, .08681,
1997 + .58897, .27696, .83562, .04662, .00320,
1998 + .00000, .03653, .08556,
1999 + .58539, .27326, .82260, .04662, .00469,
2000 + .00000, .03686, .08422,
2001 + .58213, .27005, .81000, .04659, .00592,
2002 + .00000, .03709, .08303,
2003 + .57870, .26692, .79577, .04652, .00693,
2004 + .00000, .03726, .08184,
2005 + .57487, .26357, .77934, .04638, .00796,
2006 + .00000, .03737, .08056 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .57141, .26063, .76424, .04622, .00880,
2009 + .00000, .03743, .07946,
2010 + .56787, .25776, .74860, .04602, .00952,
2011 + .00000, .03743, .07837,
2012 + .56500, .25548, .73593, .04585, .01005,
2013 + .00000, .03741, .07750,
2014 + .55859, .25059, .70687, .04542, .01109,
2015 + .00002, .03729, .07561,
2016 + .55284, .24638, .68027, .04498, .01187,
2017 + .00089, .03712, .07397,
2018 + .54619, .24168, .64903, .04444, .01264,
2019 + .00236, .03684, .07213,
2020 + .53888, .23677, .61673, .04380, .01327,
2021 + .00334, .03646, .07017,
2022 + .53213, .23233, .58811, .04316, .01375,
2023 + .00417, .03606, .06841 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .52522, .22788, .56014, .04248, .01415,
2026 + .00494, .03560, .06664,
2027 + .51934, .22421, .53749, .04190, .01442,
2028 + .00549, .03518, .06518,
2029 + .51210, .21978, .51082, .04116, .01467,
2030 + .00606, .03464, .06341,
2031 + .50571, .21592, .48824, .04048, .01486,
2032 + .00653, .03414, .06186,
2033 + .49968, .21239, .46805, .03984, .01496,
2034 + .00687, .03365, .06045,
2035 + .49204, .20797, .44359, .03901, .01506,
2036 + .00726, .03301, .05870,
2037 + .48487, .20387, .42170, .03823, .01511,
2038 + .00758, .03240, .05708,
2039 + .47799, .20006, .40197, .03748, .01510,
2040 + .00781, .03180, .05557 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .47120, .19632, .38326, .03673, .01507,
2043 + .00803, .03121, .05410,
2044 + .46453, .19266, .36570, .03598, .01501,
2045 + .00818, .03061, .05268,
2046 + .45823, .18926, .34987, .03528, .01493,
2047 + .00830, .03004, .05137,
2048 + .45228, .18610, .33559, .03462, .01484,
2049 + .00839, .02950, .05015,
2050 + .44631, .18297, .32187, .03397, .01473,
2051 + .00847, .02896, .04895,
2052 + .44042, .17994, .30893, .03334, .01461,
2053 + .00851, .02842, .04778,
2054 + .43488, .17710, .29718, .03274, .01449,
2055 + .00855, .02791, .04669,
2056 + .42965, .17441, .28648, .03215, .01436,
2057 + .00856, .02743, .04567 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .42446, .17175, .27615, .03158, .01422,
2060 + .00857, .02696, .04468,
2061 + .41923, .16913, .26631, .03102, .01408,
2062 + .00856, .02649, .04371,
2063 + .41432, .16668, .25731, .03050, .01394,
2064 + .00855, .02604, .04281,
2065 + .40968, .16438, .24908, .03000, .01380,
2066 + .00853, .02562, .04196,
2067 + .40499, .16207, .24105, .02950, .01365,
2068 + .00850, .02520, .04112 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .62324, .28586, .80090, .03700, .00000,
2071 + .00000, .02867, .07420,
2072 + .61905, .28206, .79381, .03722, .00001,
2073 + .00000, .02909, .07306,
2074 + .61237, .27635, .77712, .03744, .00119,
2075 + .00000, .02960, .07133,
2076 + .60716, .27213, .76055, .03752, .00272,
2077 + .00000, .02989, .07005,
2078 + .60126, .26762, .74049, .03753, .00396,
2079 + .00000, .03008, .06865,
2080 + .59603, .26373, .72245, .03750, .00498,
2081 + .00000, .03021, .06744,
2082 + .59079, .25996, .70378, .03740, .00580,
2083 + .00000, .03027, .06625,
2084 + .58505, .25596, .68328, .03725, .00662,
2085 + .00000, .03028, .06499 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .57995, .25250, .66513, .03709, .00728,
2088 + .00000, .03026, .06388,
2089 + .57486, .24914, .64707, .03690, .00784,
2090 + .00000, .03019, .06280,
2091 + .57079, .24648, .63273, .03673, .00826,
2092 + .00000, .03011, .06195,
2093 + .56192, .24082, .60112, .03629, .00904,
2094 + .00002, .02989, .06012,
2095 + .55412, .23598, .57325, .03587, .00963,
2096 + .00070, .02965, .05855,
2097 + .54525, .23063, .54156, .03534, .01018,
2098 + .00185, .02930, .05680,
2099 + .53581, .22506, .50955, .03471, .01061,
2100 + .00260, .02886, .05499,
2101 + .52713, .22009, .48181, .03411, .01093,
2102 + .00323, .02842, .05335 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .51836, .21517, .45511, .03349, .01119,
2105 + .00381, .02794, .05172,
2106 + .51104, .21113, .43376, .03295, .01135,
2107 + .00420, .02753, .05037,
2108 + .50212, .20626, .40904, .03225, .01149,
2109 + .00462, .02699, .04879,
2110 + .49430, .20204, .38835, .03163, .01158,
2111 + .00495, .02651, .04742,
2112 + .48705, .19820, .37012, .03104, .01161,
2113 + .00519, .02604, .04618,
2114 + .47792, .19344, .34825, .03030, .01163,
2115 + .00546, .02543, .04463,
2116 + .46938, .18906, .32889, .02961, .01161,
2117 + .00568, .02486, .04320,
2118 + .46135, .18498, .31164, .02894, .01155,
2119 + .00582, .02431, .04190 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .45346, .18101, .29541, .02828, .01148,
2122 + .00595, .02377, .04063,
2123 + .44572, .17717, .28035, .02762, .01139,
2124 + .00604, .02325, .03941,
2125 + .43846, .17361, .26689, .02702, .01129,
2126 + .00611, .02275, .03829,
2127 + .43165, .17031, .25483, .02647, .01118,
2128 + .00616, .02227, .03725,
2129 + .42488, .16705, .24333, .02591, .01106,
2130 + .00619, .02179, .03623,
2131 + .41827, .16388, .23257, .02536, .01093,
2132 + .00621, .02132, .03525,
2133 + .41206, .16093, .22284, .02484, .01081,
2134 + .00621, .02089, .03435,
2135 + .40618, .15817, .21405, .02436, .01068,
2136 + .00621, .02048, .03352 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40038, .15545, .20559, .02388, .01055,
2139 + .00620, .02007, .03270,
2140 + .39461, .15278, .19763, .02340, .01041,
2141 + .00617, .01967, .03189,
2142 + .38921, .15028, .19037, .02296, .01028,
2143 + .00615, .01929, .03114,
2144 + .38412, .14795, .18375, .02255, .01016,
2145 + .00612, .01894, .03045,
2146 + .37899, .14561, .17731, .02213, .01003,
2147 + .00608, .01858, .02978 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .63889, .27985, .75325, .03017, .00000,
2150 + .00000, .02327, .05981,
2151 + .63261, .27535, .73852, .03037, .00001,
2152 + .00000, .02361, .05873,
2153 + .62289, .26864, .71204, .03056, .00101,
2154 + .00000, .02400, .05711,
2155 + .61554, .26373, .68952, .03063, .00230,
2156 + .00000, .02420, .05591,
2157 + .60744, .25853, .66431, .03061, .00333,
2158 + .00000, .02432, .05459,
2159 + .60035, .25409, .64242, .03056, .00416,
2160 + .00000, .02439, .05346,
2161 + .59337, .24983, .62075, .03045, .00482,
2162 + .00000, .02439, .05236,
2163 + .58586, .24532, .59764, .03028, .00548,
2164 + .00000, .02434, .05119 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .57927, .24142, .57765, .03010, .00600,
2167 + .00000, .02427, .05018,
2168 + .57280, .23766, .55827, .02989, .00644,
2169 + .00000, .02416, .04920,
2170 + .56765, .23472, .54312, .02971, .00676,
2171 + .00000, .02406, .04843,
2172 + .55654, .22847, .51056, .02928, .00734,
2173 + .00002, .02378, .04679,
2174 + .54689, .22317, .48262, .02887, .00777,
2175 + .00055, .02350, .04538,
2176 + .53606, .21737, .45166, .02838, .00817,
2177 + .00144, .02313, .04381,
2178 + .52470, .21136, .42103, .02777, .00847,
2179 + .00202, .02269, .04222,
2180 + .51440, .20603, .39483, .02721, .00867,
2181 + .00250, .02227, .04078 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .50409, .20077, .36997, .02663, .00883,
2184 + .00293, .02182, .03936,
2185 + .49556, .19645, .35041, .02612, .00892,
2186 + .00322, .02142, .03822,
2187 + .48526, .19133, .32798, .02548, .00898,
2188 + .00352, .02092, .03686,
2189 + .47628, .18691, .30938, .02492, .00901,
2190 + .00376, .02047, .03568,
2191 + .46802, .18290, .29319, .02440, .00900,
2192 + .00392, .02004, .03463,
2193 + .45768, .17794, .27396, .02374, .00897,
2194 + .00411, .01950, .03333,
2195 + .44808, .17340, .25710, .02314, .00892,
2196 + .00425, .01900, .03213,
2197 + .43917, .16918, .24228, .02253, .00884,
2198 + .00434, .01852, .03105 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43043, .16509, .22842, .02194, .00875,
2201 + .00442, .01805, .03001,
2202 + .42188, .16120, .21566, .02140, .00864,
2203 + .00447, .01759, .02899,
2204 + .41392, .15759, .20435, .02089, .00853,
2205 + .00451, .01715, .02806,
2206 + .40650, .15425, .19432, .02040, .00842,
2207 + .00453, .01675, .02723,
2208 + .39917, .15095, .18479, .01991, .00831,
2209 + .00454, .01634, .02642,
2210 + .39206, .14775, .17592, .01943, .00819,
2211 + .00454, .01595, .02563,
2212 + .38539, .14478, .16794, .01899, .00807,
2213 + .00453, .01558, .02491,
2214 + .37910, .14202, .16077, .01857, .00795,
2215 + .00451, .01524, .02425 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37291, .13931, .15389, .01816, .00784,
2218 + .00449, .01490, .02360,
2219 + .36679, .13665, .14748, .01777, .00771,
2220 + .00446, .01456, .02297,
2221 + .36108, .13418, .14164, .01740, .00760,
2222 + .00444, .01425, .02238,
2223 + .35571, .13186, .13636, .01705, .00749,
2224 + .00440, .01396, .02184,
2225 + .35034, .12954, .13125, .01670, .00738,
2226 + .00437, .01367, .02129 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .64529, .27060, .70217, .02498, .00000,
2229 + .00000, .01867, .04692,
2230 + .63699, .26555, .68149, .02516, .00001,
2231 + .00000, .01895, .04595,
2232 + .62439, .25807, .64770, .02532, .00085,
2233 + .00000, .01926, .04449,
2234 + .61505, .25262, .62095, .02535, .00193,
2235 + .00000, .01939, .04344,
2236 + .60489, .24692, .59227, .02531, .00278,
2237 + .00000, .01945, .04229,
2238 + .59612, .24206, .56795, .02523, .00346,
2239 + .00000, .01946, .04131,
2240 + .58760, .23740, .54457, .02509, .00399,
2241 + .00000, .01942, .04036,
2242 + .57850, .23250, .52014, .02490, .00451,
2243 + .00000, .01934, .03935 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .57058, .22830, .49935, .02471, .00491,
2246 + .00000, .01926, .03847,
2247 + .56285, .22428, .47958, .02450, .00525,
2248 + .00000, .01913, .03762,
2249 + .55675, .22112, .46430, .02433, .00549,
2250 + .00000, .01902, .03696,
2251 + .54370, .21448, .43209, .02389, .00594,
2252 + .00002, .01873, .03556,
2253 + .53251, .20887, .40504, .02347, .00625,
2254 + .00043, .01845, .03436,
2255 + .52007, .20273, .37564, .02299, .00653,
2256 + .00112, .01809, .03304,
2257 + .50714, .19645, .34703, .02242, .00673,
2258 + .00157, .01768, .03170,
2259 + .49550, .19091, .32289, .02189, .00685,
2260 + .00193, .01728, .03051 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .48395, .18546, .30026, .02135, .00694,
2263 + .00225, .01686, .02933,
2264 + .47446, .18102, .28267, .02087, .00699,
2265 + .00246, .01651, .02839,
2266 + .46307, .17575, .26269, .02030, .00700,
2267 + .00268, .01606, .02728,
2268 + .45320, .17123, .24629, .01980, .00699,
2269 + .00285, .01566, .02633,
2270 + .44417, .16716, .23219, .01932, .00696,
2271 + .00296, .01529, .02546,
2272 + .43295, .16215, .21556, .01874, .00690,
2273 + .00309, .01483, .02440,
2274 + .42260, .15758, .20110, .01820, .00683,
2275 + .00318, .01440, .02345,
2276 + .41301, .15336, .18850, .01769, .00675,
2277 + .00324, .01399, .02258 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40367, .14928, .17680, .01719, .00665,
2280 + .00329, .01359, .02174,
2281 + .39463, .14536, .16615, .01669, .00655,
2282 + .00331, .01321, .02094,
2283 + .38625, .14176, .15674, .01623, .00645,
2284 + .00333, .01284, .02022,
2285 + .37846, .13844, .14844, .01582, .00635,
2286 + .00333, .01249, .01957,
2287 + .37077, .13519, .14060, .01541, .00624,
2288 + .00333, .01216, .01893,
2289 + .36329, .13208, .13335, .01501, .00613,
2290 + .00332, .01184, .01832,
2291 + .35634, .12919, .12688, .01463, .00603,
2292 + .00330, .01154, .01775,
2293 + .34986, .12646, .12112, .01428, .00592,
2294 + .00328, .01125, .01724 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34349, .12379, .11561, .01393, .00582,
2297 + .00326, .01098, .01675,
2298 + .33718, .12121, .11046, .01360, .00572,
2299 + .00323, .01071, .01625,
2300 + .33130, .11882, .10579, .01329, .00562,
2301 + .00321, .01046, .01579,
2302 + .32579, .11657, .10159, .01300, .00553,
2303 + .00318, .01022, .01537,
2304 + .32029, .11434, .09756, .01272, .00543,
2305 + .00315, .00999, .01496 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .64295, .25918, .64784, .02125, .00000,
2308 + .00000, .01463, .03554,
2309 + .63286, .25365, .62276, .02135, .00001,
2310 + .00000, .01488, .03477,
2311 + .61773, .24551, .58389, .02139, .00072,
2312 + .00000, .01513, .03362,
2313 + .60661, .23966, .55452, .02135, .00161,
2314 + .00000, .01523, .03278,
2315 + .59469, .23356, .52387, .02124, .00231,
2316 + .00000, .01528, .03183,
2317 + .58445, .22838, .49835, .02111, .00286,
2318 + .00000, .01528, .03103,
2319 + .57458, .22344, .47435, .02093, .00328,
2320 + .00000, .01523, .03026,
2321 + .56412, .21829, .44964, .02071, .00369,
2322 + .00000, .01514, .02943 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .55506, .21390, .42889, .02052, .00401,
2325 + .00000, .01505, .02871,
2326 + .54631, .20968, .40941, .02029, .00426,
2327 + .00000, .01493, .02802,
2328 + .53942, .20638, .39449, .02010, .00445,
2329 + .00000, .01482, .02748,
2330 + .52483, .19945, .36357, .01964, .00477,
2331 + .00001, .01456, .02636,
2332 + .51240, .19364, .33808, .01921, .00500,
2333 + .00034, .01430, .02540,
2334 + .49864, .18735, .31084, .01873, .00519,
2335 + .00088, .01398, .02434,
2336 + .48444, .18096, .28471, .01821, .00532,
2337 + .00121, .01360, .02325,
2338 + .47182, .17529, .26295, .01771, .00540,
2339 + .00149, .01326, .02230 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .45934, .16976, .24276, .01720, .00544,
2342 + .00172, .01291, .02138,
2343 + .44911, .16532, .22722, .01677, .00545,
2344 + .00188, .01260, .02063,
2345 + .43693, .16006, .20975, .01627, .00543,
2346 + .00204, .01221, .01973,
2347 + .42642, .15556, .19551, .01582, .00541,
2348 + .00216, .01187, .01896,
2349 + .41690, .15148, .18337, .01538, .00536,
2350 + .00223, .01156, .01831,
2351 + .40511, .14650, .16918, .01485, .00529,
2352 + .00232, .01117, .01750,
2353 + .39428, .14198, .15697, .01437, .00522,
2354 + .00238, .01081, .01676,
2355 + .38430, .13783, .14640, .01392, .00513,
2356 + .00241, .01048, .01609 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37460, .13382, .13666, .01349, .00505,
2359 + .00244, .01015, .01545,
2360 + .36526, .12999, .12784, .01307, .00495,
2361 + .00245, .00982, .01485,
2362 + .35664, .12648, .12011, .01267, .00486,
2363 + .00245, .00953, .01430,
2364 + .34867, .12326, .11333, .01230, .00477,
2365 + .00245, .00926, .01380,
2366 + .34082, .12011, .10697, .01194, .00467,
2367 + .00244, .00899, .01332,
2368 + .33323, .11709, .10111, .01160, .00458,
2369 + .00243, .00872, .01286,
2370 + .32619, .11430, .09590, .01128, .00449,
2371 + .00241, .00848, .01244,
2372 + .31963, .11170, .09128, .01098, .00440,
2373 + .00239, .00826, .01204 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .31319, .10917, .08687, .01069, .00432,
2376 + .00237, .00805, .01165,
2377 + .30687, .10669, .08279, .01042, .00423,
2378 + .00234, .00784, .01129,
2379 + .30099, .10439, .07911, .01017, .00415,
2380 + .00232, .00764, .01096,
2381 + .29550, .10226, .07580, .00993, .00407,
2382 + .00229, .00745, .01065,
2383 + .29001, .10013, .07262, .00970, .00399,
2384 + .00226, .00727, .01035 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .63335, .24535, .59048, .01786, .00000,
2387 + .00000, .01149, .02630,
2388 + .62162, .23952, .56254, .01792, .00001,
2389 + .00000, .01169, .02571,
2390 + .60419, .23101, .52071, .01791, .00059,
2391 + .00000, .01189, .02480,
2392 + .59150, .22489, .49011, .01783, .00132,
2393 + .00000, .01197, .02413,
2394 + .57807, .21851, .45886, .01767, .00189,
2395 + .00000, .01199, .02342,
2396 + .56659, .21313, .43318, .01751, .00233,
2397 + .00000, .01197, .02280,
2398 + .55556, .20806, .40939, .01733, .00266,
2399 + .00000, .01190, .02219,
2400 + .54397, .20276, .38523, .01710, .00298,
2401 + .00000, .01181, .02154 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .53402, .19824, .36519, .01688, .00322,
2404 + .00000, .01172, .02099,
2405 + .52442, .19393, .34660, .01665, .00342,
2406 + .00000, .01161, .02045,
2407 + .51689, .19059, .33248, .01646, .00355,
2408 + .00000, .01152, .02002,
2409 + .50100, .18361, .30359, .01603, .00379,
2410 + .00001, .01128, .01913,
2411 + .48756, .17776, .28014, .01564, .00395,
2412 + .00026, .01104, .01839,
2413 + .47286, .17142, .25547, .01518, .00408,
2414 + .00067, .01074, .01758,
2415 + .45778, .16500, .23205, .01468, .00416,
2416 + .00093, .01043, .01673,
2417 + .44444, .15938, .21278, .01421, .00420,
2418 + .00113, .01012, .01601 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43132, .15392, .19507, .01373, .00421,
2421 + .00131, .00980, .01531,
2422 + .42066, .14952, .18154, .01334, .00421,
2423 + .00142, .00954, .01472,
2424 + .40797, .14433, .16651, .01289, .00418,
2425 + .00153, .00922, .01404,
2426 + .39707, .13990, .15438, .01251, .00414,
2427 + .00162, .00894, .01347,
2428 + .38723, .13595, .14410, .01214, .00409,
2429 + .00167, .00869, .01296,
2430 + .37512, .13110, .13216, .01168, .00403,
2431 + .00172, .00837, .01234,
2432 + .36409, .12670, .12195, .01125, .00395,
2433 + .00176, .00808, .01179,
2434 + .35392, .12271, .11322, .01087, .00387,
2435 + .00178, .00780, .01128 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .34407, .11886, .10521, .01049, .00380,
2438 + .00180, .00753, .01080,
2439 + .33462, .11520, .09801, .01014, .00371,
2440 + .00180, .00728, .01035,
2441 + .32595, .11185, .09172, .00980, .00363,
2442 + .00180, .00704, .00994,
2443 + .31800, .10877, .08624, .00949, .00355,
2444 + .00179, .00681, .00957,
2445 + .31017, .10577, .08112, .00919, .00347,
2446 + .00178, .00659, .00922,
2447 + .30260, .10291, .07645, .00891, .00339,
2448 + .00176, .00639, .00888,
2449 + .29560, .10026, .07230, .00865, .00332,
2450 + .00174, .00620, .00857,
2451 + .28912, .09780, .06863, .00840, .00325,
2452 + .00173, .00603, .00828 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .28277, .09540, .06514, .00816, .00318,
2455 + .00171, .00586, .00800,
2456 + .27654, .09308, .06193, .00793, .00311,
2457 + .00168, .00568, .00773,
2458 + .27077, .09094, .05904, .00772, .00304,
2459 + .00166, .00552, .00748,
2460 + .26538, .08894, .05645, .00753, .00298,
2461 + .00164, .00538, .00725,
2462 + .26003, .08696, .05397, .00733, .00291,
2463 + .00162, .00525, .00703 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .61691, .23028, .53173, .01513, .00000,
2466 + .00000, .00885, .01878,
2467 + .60381, .22423, .50226, .01513, .00001,
2468 + .00000, .00902, .01837,
2469 + .58448, .21544, .45928, .01504, .00048,
2470 + .00000, .00918, .01774,
2471 + .57049, .20919, .42861, .01492, .00108,
2472 + .00000, .00924, .01727,
2473 + .55581, .20270, .39784, .01472, .00153,
2474 + .00000, .00925, .01674,
2475 + .54334, .19724, .37285, .01454, .00188,
2476 + .00000, .00923, .01628,
2477 + .53145, .19209, .34999, .01434, .00214,
2478 + .00000, .00918, .01583,
2479 + .51898, .18675, .32704, .01411, .00239,
2480 + .00000, .00909, .01534 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .50830, .18222, .30820, .01389, .00257,
2483 + .00000, .00900, .01493,
2484 + .49810, .17791, .29089, .01365, .00272,
2485 + .00000, .00890, .01454,
2486 + .49012, .17454, .27783, .01346, .00282,
2487 + .00000, .00881, .01423,
2488 + .47335, .16759, .25146, .01303, .00299,
2489 + .00001, .00861, .01356,
2490 + .45925, .16180, .23033, .01265, .00310,
2491 + .00020, .00841, .01299,
2492 + .44390, .15550, .20834, .01221, .00319,
2493 + .00051, .00816, .01241,
2494 + .42824, .14922, .18777, .01176, .00323,
2495 + .00071, .00789, .01178,
2496 + .41444, .14374, .17100, .01135, .00325,
2497 + .00086, .00763, .01123 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .40095, .13841, .15573, .01094, .00324,
2500 + .00098, .00737, .01070,
2501 + .39005, .13412, .14418, .01060, .00322,
2502 + .00107, .00717, .01026,
2503 + .37715, .12911, .13145, .01018, .00319,
2504 + .00115, .00691, .00977,
2505 + .36611, .12485, .12122, .00983, .00315,
2506 + .00120, .00668, .00937,
2507 + .35619, .12104, .11261, .00950, .00310,
2508 + .00124, .00646, .00899,
2509 + .34401, .11639, .10269, .00911, .00304,
2510 + .00128, .00620, .00854,
2511 + .33294, .11220, .09429, .00875, .00297,
2512 + .00130, .00597, .00813,
2513 + .32282, .10840, .08715, .00842, .00290,
2514 + .00131, .00574, .00777 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .31306, .10475, .08063, .00810, .00284,
2517 + .00131, .00553, .00742,
2518 + .30373, .10128, .07482, .00780, .00276,
2519 + .00131, .00532, .00708,
2520 + .29518, .09812, .06977, .00752, .00270,
2521 + .00131, .00513, .00679,
2522 + .28733, .09523, .06537, .00726, .00263,
2523 + .00130, .00496, .00653,
2524 + .27964, .09241, .06130, .00702, .00257,
2525 + .00129, .00479, .00628,
2526 + .27226, .08973, .05760, .00678, .00250,
2527 + .00127, .00464, .00603,
2528 + .26544, .08726, .05433, .00657, .00244,
2529 + .00126, .00450, .00581,
2530 + .25913, .08498, .05145, .00638, .00238,
2531 + .00124, .00436, .00559 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .25295, .08276, .04872, .00620, .00233,
2534 + .00123, .00423, .00538,
2535 + .24693, .08060, .04622, .00600, .00227,
2536 + .00121, .00409, .00520,
2537 + .24136, .07861, .04396, .00583, .00222,
2538 + .00119, .00397, .00503,
2539 + .23618, .07676, .04195, .00566, .00217,
2540 + .00117, .00386, .00488,
2541 + .23104, .07493, .04005, .00550, .00212,
2542 + .00115, .00375, .00473 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .59464, .21416, .47263, .01268, .00000,
2545 + .00000, .00675, .01298,
2546 + .58043, .20802, .44285, .01262, .00001,
2547 + .00000, .00689, .01273,
2548 + .55962, .19911, .40030, .01246, .00039,
2549 + .00000, .00704, .01234,
2550 + .54465, .19281, .37052, .01232, .00087,
2551 + .00000, .00709, .01201,
2552 + .52903, .18633, .34106, .01211, .00123,
2553 + .00000, .00709, .01163,
2554 + .51581, .18088, .31739, .01191, .00150,
2555 + .00000, .00707, .01131,
2556 + .50329, .17575, .29601, .01170, .00170,
2557 + .00000, .00701, .01099,
2558 + .49021, .17045, .27476, .01147, .00189,
2559 + .00000, .00694, .01065 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .47904, .16597, .25746, .01125, .00203,
2562 + .00000, .00687, .01036,
2563 + .46842, .16173, .24172, .01102, .00213,
2564 + .00000, .00677, .01009,
2565 + .46015, .15845, .22993, .01083, .00221,
2566 + .00000, .00669, .00988,
2567 + .44283, .15163, .20630, .01043, .00233,
2568 + .00001, .00651, .00940,
2569 + .42833, .14597, .18761, .01010, .00241,
2570 + .00015, .00634, .00900,
2571 + .41261, .13986, .16843, .00971, .00246,
2572 + .00039, .00615, .00857,
2573 + .39670, .13378, .15064, .00931, .00248,
2574 + .00053, .00592, .00810,
2575 + .38277, .12849, .13629, .00894, .00248,
2576 + .00064, .00571, .00772 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .36919, .12338, .12333, .00857, .00247,
2579 + .00073, .00550, .00735,
2580 + .35822, .11930, .11359, .00827, .00245,
2581 + .00079, .00532, .00705,
2582 + .34533, .11452, .10293, .00793, .00241,
2583 + .00085, .00511, .00668,
2584 + .33435, .11047, .09444, .00765, .00237,
2585 + .00089, .00493, .00636,
2586 + .32452, .10685, .08738, .00738, .00233,
2587 + .00091, .00477, .00611,
2588 + .31250, .10245, .07927, .00704, .00227,
2589 + .00094, .00456, .00580,
2590 + .30164, .09851, .07242, .00671, .00222,
2591 + .00095, .00437, .00551,
2592 + .29171, .09494, .06666, .00645, .00216,
2593 + .00095, .00419, .00525 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .28215, .09153, .06143, .00620, .00210,
2596 + .00096, .00402, .00500,
2597 + .27307, .08831, .05679, .00595, .00204,
2598 + .00095, .00387, .00476,
2599 + .26477, .08537, .05278, .00573, .00199,
2600 + .00095, .00373, .00455,
2601 + .25718, .08268, .04932, .00551, .00193,
2602 + .00094, .00359, .00437,
2603 + .24978, .08008, .04611, .00530, .00188,
2604 + .00093, .00347, .00420,
2605 + .24270, .07760, .04319, .00511, .00183,
2606 + .00091, .00334, .00403,
2607 + .23618, .07533, .04063, .00493, .00178,
2608 + .00090, .00323, .00387,
2609 + .23015, .07322, .03839, .00476, .00174,
2610 + .00089, .00312, .00373 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .22427, .07118, .03627, .00459, .00169,
2613 + .00088, .00302, .00360,
2614 + .21853, .06921, .03434, .00446, .00165,
2615 + .00086, .00292, .00346,
2616 + .21322, .06739, .03261, .00433, .00161,
2617 + .00085, .00283, .00334,
2618 + .20831, .06571, .03106, .00421, .00157,
2619 + .00083, .00274, .00323,
2620 + .20345, .06406, .02960, .00408, .00153,
2621 + .00082, .00266, .00312 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .56748, .19735, .41459, .01040, .00000,
2624 + .00000, .00511, .00870,
2625 + .55244, .19123, .38548, .01032, .00000,
2626 + .00000, .00524, .00855,
2627 + .53052, .18240, .34459, .01016, .00031,
2628 + .00000, .00535, .00831,
2629 + .51484, .17616, .31647, .01000, .00069,
2630 + .00000, .00537, .00813,
2631 + .49861, .16975, .28898, .00977, .00097,
2632 + .00000, .00537, .00790,
2633 + .48493, .16440, .26712, .00957, .00118,
2634 + .00000, .00536, .00768,
2635 + .47196, .15940, .24758, .00939, .00133,
2636 + .00000, .00533, .00745,
2637 + .45851, .15424, .22832, .00917, .00148,
2638 + .00000, .00526, .00723 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44709, .14988, .21275, .00895, .00158,
2641 + .00000, .00519, .00705,
2642 + .43624, .14575, .19871, .00875, .00166,
2643 + .00000, .00511, .00685,
2644 + .42782, .14257, .18826, .00860, .00171,
2645 + .00000, .00505, .00669,
2646 + .41025, .13598, .16753, .00824, .00179,
2647 + .00001, .00490, .00637,
2648 + .39563, .13054, .15130, .00793, .00185,
2649 + .00011, .00476, .00610,
2650 + .37987, .12470, .13481, .00758, .00188,
2651 + .00029, .00459, .00582,
2652 + .36400, .11890, .11967, .00721, .00188,
2653 + .00040, .00441, .00551,
2654 + .35014, .11388, .10758, .00691, .00188,
2655 + .00048, .00425, .00522 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .33668, .10905, .09676, .00662, .00186,
2658 + .00054, .00408, .00494,
2659 + .32587, .10519, .08871, .00637, .00184,
2660 + .00059, .00393, .00475,
2661 + .31321, .10069, .07994, .00608, .00180,
2662 + .00062, .00375, .00449,
2663 + .30245, .09690, .07299, .00583, .00177,
2664 + .00065, .00361, .00427,
2665 + .29287, .09353, .06725, .00561, .00173,
2666 + .00067, .00348, .00409,
2667 + .28120, .08944, .06069, .00533, .00168,
2668 + .00068, .00332, .00388,
2669 + .27069, .08577, .05518, .00507, .00163,
2670 + .00069, .00317, .00368,
2671 + .26113, .08246, .05059, .00484, .00159,
2672 + .00069, .00304, .00350 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .25197, .07931, .04643, .00463, .00154,
2675 + .00069, .00291, .00332,
2676 + .24328, .07633, .04277, .00443, .00149,
2677 + .00068, .00279, .00316,
2678 + .23536, .07364, .03962, .00425, .00145,
2679 + .00068, .00268, .00301,
2680 + .22812, .07119, .03692, .00409, .00141,
2681 + .00067, .00258, .00288,
2682 + .22107, .06881, .03442, .00393, .00136,
2683 + .00066, .00248, .00276,
2684 + .21435, .06655, .03217, .00378, .00132,
2685 + .00065, .00238, .00265,
2686 + .20818, .06447, .03020, .00364, .00129,
2687 + .00064, .00230, .00255,
2688 + .20249, .06257, .02847, .00351, .00125,
2689 + .00063, .00222, .00245 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .19695, .06072, .02685, .00338, .00122,
2692 + .00062, .00214, .00236,
2693 + .19159, .05894, .02537, .00326, .00118,
2694 + .00061, .00207, .00227,
2695 + .18665, .05729, .02405, .00315, .00115,
2696 + .00060, .00200, .00218,
2697 + .18206, .05578, .02287, .00306, .00112,
2698 + .00059, .00194, .00211,
2699 + .17752, .05429, .02176, .00297, .00109,
2700 + .00058, .00188, .00203 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .53621, .18044, .35887, .00852, .00000,
2703 + .00000, .00375, .00554,
2704 + .52060, .17441, .33123, .00842, .00000,
2705 + .00000, .00385, .00550,
2706 + .49799, .16578, .29298, .00822, .00025,
2707 + .00000, .00395, .00539,
2708 + .48194, .15968, .26702, .00803, .00054,
2709 + .00000, .00399, .00530,
2710 + .46535, .15345, .24193, .00782, .00076,
2711 + .00000, .00398, .00517,
2712 + .45142, .14826, .22217, .00764, .00092,
2713 + .00000, .00396, .00506,
2714 + .43832, .14342, .20467, .00744, .00104,
2715 + .00000, .00392, .00494,
2716 + .42474, .13845, .18758, .00724, .00114,
2717 + .00000, .00387, .00480 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .41323, .13426, .17388, .00706, .00122,
2720 + .00000, .00383, .00466,
2721 + .40236, .13032, .16160, .00689, .00127,
2722 + .00000, .00377, .00453,
2723 + .39393, .12728, .15250, .00675, .00131,
2724 + .00000, .00371, .00443,
2725 + .37649, .12100, .13462, .00644, .00137,
2726 + .00001, .00360, .00422,
2727 + .36202, .11583, .12077, .00617, .00140,
2728 + .00009, .00349, .00403,
2729 + .34645, .11033, .10686, .00587, .00142,
2730 + .00022, .00334, .00382,
2731 + .33079, .10488, .09419, .00560, .00142,
2732 + .00029, .00321, .00361,
2733 + .31726, .10016, .08415, .00532, .00141,
2734 + .00035, .00307, .00344 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .30419, .09563, .07524, .00504, .00139,
2737 + .00040, .00294, .00327,
2738 + .29370, .09201, .06865, .00486, .00137,
2739 + .00043, .00284, .00313,
2740 + .28148, .08783, .06153, .00462, .00134,
2741 + .00046, .00271, .00295,
2742 + .27113, .08432, .05594, .00441, .00131,
2743 + .00048, .00261, .00280,
2744 + .26194, .08121, .05133, .00423, .00128,
2745 + .00049, .00251, .00268,
2746 + .25076, .07745, .04611, .00400, .00124,
2747 + .00049, .00238, .00253,
2748 + .24070, .07408, .04175, .00380, .00120,
2749 + .00050, .00227, .00240,
2750 + .23164, .07106, .03813, .00362, .00116,
2751 + .00050, .00217, .00227 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .22296, .06819, .03487, .00344, .00112,
2754 + .00050, .00207, .00215,
2755 + .21472, .06548, .03202, .00330, .00108,
2756 + .00049, .00197, .00205,
2757 + .20725, .06303, .02958, .00316, .00105,
2758 + .00048, .00189, .00196,
2759 + .20048, .06080, .02748, .00302, .00102,
2760 + .00048, .00181, .00188,
2761 + .19390, .05866, .02556, .00290, .00099,
2762 + .00047, .00174, .00179,
2763 + .18761, .05664, .02383, .00279, .00095,
2764 + .00046, .00167, .00171,
2765 + .18185, .05479, .02232, .00268, .00093,
2766 + .00046, .00160, .00164,
2767 + .17658, .05306, .02101, .00258, .00090,
2768 + .00045, .00155, .00158 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .17145, .05139, .01977, .00248, .00087,
2771 + .00044, .00150, .00153,
2772 + .16650, .04980, .01865, .00238, .00085,
2773 + .00043, .00144, .00146,
2774 + .16193, .04834, .01765, .00229, .00082,
2775 + .00042, .00139, .00141,
2776 + .15771, .04700, .01676, .00221, .00080,
2777 + .00042, .00135, .00135,
2778 + .15354, .04567, .01592, .00214, .00078,
2779 + .00041, .00131, .00130 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .50180, .16347, .30634, .00674, .00000,
2782 + .00000, .00275, .00339,
2783 + .48591, .15763, .28073, .00664, .00000,
2784 + .00000, .00283, .00340,
2785 + .46298, .14929, .24576, .00648, .00019,
2786 + .00000, .00290, .00338,
2787 + .44680, .14345, .22241, .00631, .00042,
2788 + .00000, .00293, .00334,
2789 + .43012, .13751, .20003, .00614, .00059,
2790 + .00000, .00293, .00326,
2791 + .41618, .13257, .18254, .00598, .00071,
2792 + .00000, .00291, .00319,
2793 + .40316, .12794, .16718, .00582, .00080,
2794 + .00000, .00287, .00313,
2795 + .38970, .12321, .15228, .00565, .00087,
2796 + .00000, .00282, .00305 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .37832, .11924, .14043, .00550, .00093,
2799 + .00000, .00278, .00297,
2800 + .36762, .11552, .12988, .00534, .00097,
2801 + .00000, .00274, .00289,
2802 + .35936, .11265, .12212, .00520, .00099,
2803 + .00000, .00270, .00283,
2804 + .34225, .10676, .10696, .00493, .00103,
2805 + .00001, .00260, .00270,
2806 + .32809, .10193, .09534, .00472, .00105,
2807 + .00006, .00251, .00259,
2808 + .31295, .09680, .08378, .00448, .00106,
2809 + .00016, .00240, .00247,
2810 + .29784, .09171, .07336, .00425, .00105,
2811 + .00021, .00230, .00232,
2812 + .28479, .08733, .06517, .00403, .00104,
2813 + .00026, .00219, .00221 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .27223, .08314, .05794, .00382, .00102,
2816 + .00029, .00209, .00210,
2817 + .26224, .07983, .05262, .00366, .00100,
2818 + .00031, .00201, .00200,
2819 + .25058, .07600, .04691, .00346, .00098,
2820 + .00034, .00191, .00189,
2821 + .24074, .07279, .04245, .00330, .00095,
2822 + .00035, .00182, .00180,
2823 + .23205, .06995, .03881, .00315, .00093,
2824 + .00036, .00175, .00172,
2825 + .22150, .06653, .03471, .00297, .00090,
2826 + .00036, .00166, .00162,
2827 + .21203, .06350, .03132, .00282, .00087,
2828 + .00037, .00157, .00152,
2829 + .20355, .06075, .02850, .00267, .00084,
2830 + .00037, .00149, .00145 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .19546, .05815, .02598, .00252, .00081,
2833 + .00036, .00142, .00138,
2834 + .18782, .05572, .02378, .00240, .00078,
2835 + .00036, .00136, .00131,
2836 + .18088, .05352, .02190, .00230, .00075,
2837 + .00036, .00130, .00124,
2838 + .17458, .05153, .02030, .00221, .00073,
2839 + .00035, .00125, .00119,
2840 + .16849, .04961, .01884, .00211, .00070,
2841 + .00035, .00119, .00113,
2842 + .16271, .04779, .01753, .00202, .00068,
2843 + .00034, .00115, .00109,
2844 + .15743, .04614, .01639, .00194, .00066,
2845 + .00034, .00110, .00105,
2846 + .15257, .04463, .01540, .00187, .00064,
2847 + .00033, .00106, .00099 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .14785, .04317, .01446, .00179, .00062,
2850 + .00032, .00102, .00094,
2851 + .14332, .04176, .01362, .00173, .00060,
2852 + .00032, .00098, .00090,
2853 + .13915, .04048, .01287, .00167, .00058,
2854 + .00031, .00095, .00087,
2855 + .13531, .03929, .01221, .00161, .00057,
2856 + .00031, .00092, .00084,
2857 + .13153, .03812, .01159, .00155, .00055,
2858 + .00030, .00088, .00081 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .46495, .14671, .25757, .00520, .00000,
2861 + .00000, .00200, .00198,
2862 + .44902, .14114, .23437, .00510, .00000,
2863 + .00000, .00206, .00204,
2864 + .42617, .13320, .20309, .00493, .00015,
2865 + .00000, .00211, .00208,
2866 + .41012, .12763, .18246, .00479, .00032,
2867 + .00000, .00213, .00207,
2868 + .39368, .12199, .16291, .00464, .00045,
2869 + .00000, .00214, .00204,
2870 + .37998, .11731, .14775, .00450, .00054,
2871 + .00000, .00213, .00201,
2872 + .36719, .11298, .13453, .00436, .00060,
2873 + .00000, .00209, .00199,
2874 + .35404, .10855, .12182, .00421, .00066,
2875 + .00000, .00206, .00194 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .34296, .10484, .11178, .00409, .00070,
2878 + .00000, .00203, .00189,
2879 + .33255, .10136, .10289, .00396, .00073,
2880 + .00000, .00200, .00185,
2881 + .32453, .09869, .09637, .00385, .00074,
2882 + .00000, .00197, .00181,
2883 + .30799, .09321, .08376, .00365, .00077,
2884 + .00000, .00189, .00172,
2885 + .29438, .08873, .07419, .00348, .00078,
2886 + .00005, .00182, .00165,
2887 + .27985, .08400, .06476, .00329, .00078,
2888 + .00011, .00174, .00159,
2889 + .26546, .07933, .05631, .00310, .00077,
2890 + .00015, .00166, .00150,
2891 + .25306, .07533, .04972, .00292, .00076,
2892 + .00018, .00158, .00143 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .24118, .07152, .04395, .00275, .00075,
2895 + .00021, .00150, .00135,
2896 + .23174, .06850, .03976, .00263, .00073,
2897 + .00022, .00144, .00129,
2898 + .22080, .06503, .03527, .00247, .00071,
2899 + .00024, .00136, .00122,
2900 + .21159, .06213, .03178, .00234, .00069,
2901 + .00025, .00129, .00116,
2902 + .20344, .05958, .02895, .00224, .00067,
2903 + .00025, .00124, .00111,
2904 + .19361, .05651, .02577, .00211, .00064,
2905 + .00026, .00117, .00104,
2906 + .18488, .05377, .02316, .00198, .00062,
2907 + .00026, .00111, .00099,
2908 + .17701, .05132, .02101, .00187, .00060,
2909 + .00026, .00106, .00095 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .16953, .04900, .01909, .00177, .00058,
2912 + .00026, .00101, .00091,
2913 + .16253, .04685, .01743, .00168, .00056,
2914 + .00026, .00096, .00085,
2915 + .15618, .04490, .01601, .00159, .00054,
2916 + .00026, .00092, .00081,
2917 + .15043, .04314, .01481, .00152, .00052,
2918 + .00025, .00088, .00077,
2919 + .14488, .04145, .01371, .00145, .00050,
2920 + .00025, .00084, .00073,
2921 + .13963, .03985, .01273, .00138, .00049,
2922 + .00025, .00081, .00070,
2923 + .13483, .03840, .01188, .00132, .00047,
2924 + .00025, .00077, .00067,
2925 + .13044, .03708, .01114, .00127, .00046,
2926 + .00025, .00074, .00065 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .12618, .03581, .01045, .00121, .00044,
2929 + .00025, .00071, .00062,
2930 + .12207, .03458, .00983, .00118, .00043,
2931 + .00024, .00068, .00059,
2932 + .11830, .03346, .00928, .00114, .00042,
2933 + .00024, .00066, .00056,
2934 + .11485, .03242, .00879, .00110, .00041,
2935 + .00024, .00063, .00054,
2936 + .11147, .03141, .00833, .00105, .00040,
2937 + .00024, .00061, .00052 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .42660, .13049, .21335, .00388, .00000,
2940 + .00000, .00140, .00110,
2941 + .41090, .12520, .19279, .00380, .00000,
2942 + .00000, .00146, .00117,
2943 + .38844, .11772, .16540, .00368, .00011,
2944 + .00000, .00152, .00122,
2945 + .37271, .11250, .14751, .00358, .00024,
2946 + .00000, .00154, .00123,
2947 + .35672, .10721, .13075, .00341, .00034,
2948 + .00000, .00154, .00126,
2949 + .34345, .10284, .11786, .00328, .00041,
2950 + .00000, .00154, .00126,
2951 + .33110, .09881, .10670, .00318, .00045,
2952 + .00000, .00153, .00124,
2953 + .31842, .09470, .09604, .00306, .00049,
2954 + .00000, .00150, .00121 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .30776, .09128, .08767, .00295, .00052,
2957 + .00000, .00148, .00119,
2958 + .29778, .08807, .08032, .00285, .00054,
2959 + .00000, .00145, .00117,
2960 + .29009, .08561, .07495, .00277, .00055,
2961 + .00000, .00143, .00116,
2962 + .27433, .08058, .06466, .00261, .00057,
2963 + .00000, .00137, .00112,
2964 + .26143, .07648, .05692, .00248, .00058,
2965 + .00003, .00132, .00107,
2966 + .24773, .07217, .04934, .00233, .00058,
2967 + .00008, .00125, .00103,
2968 + .23422, .06793, .04263, .00215, .00057,
2969 + .00011, .00118, .00098,
2970 + .22258, .06433, .03744, .00202, .00056,
2971 + .00013, .00112, .00094 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .21147, .06090, .03292, .00191, .00055,
2974 + .00014, .00107, .00089,
2975 + .20270, .05818, .02965, .00181, .00053,
2976 + .00015, .00103, .00084,
2977 + .19255, .05507, .02618, .00170, .00052,
2978 + .00016, .00097, .00079,
2979 + .18404, .05248, .02349, .00161, .00050,
2980 + .00017, .00093, .00076,
2981 + .17655, .05021, .02133, .00152, .00049,
2982 + .00017, .00088, .00073,
2983 + .16754, .04748, .01891, .00142, .00047,
2984 + .00017, .00083, .00069,
2985 + .15951, .04507, .01693, .00134, .00045,
2986 + .00017, .00080, .00064,
2987 + .15231, .04292, .01531, .00128, .00044,
2988 + .00017, .00075, .00060 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .14549, .04089, .01388, .00122, .00042,
2991 + .00017, .00071, .00056,
2992 + .13914, .03900, .01263, .00114, .00041,
2993 + .00017, .00067, .00054,
2994 + .13340, .03729, .01157, .00107, .00039,
2995 + .00017, .00064, .00052,
2996 + .12823, .03575, .01068, .00102, .00038,
2997 + .00017, .00062, .00050,
2998 + .12325, .03427, .00987, .00096, .00037,
2999 + .00017, .00059, .00048,
3000 + .11853, .03289, .00915, .00091, .00036,
3001 + .00017, .00056, .00046,
3002 + .11423, .03163, .00852, .00087, .00035,
3003 + .00017, .00053, .00044,
3004 + .11030, .03049, .00798, .00083, .00034,
3005 + .00017, .00051, .00042 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .10650, .02938, .00747, .00080, .00033,
3008 + .00017, .00049, .00040,
3009 + .10288, .02833, .00702, .00076, .00032,
3010 + .00017, .00047, .00038,
3011 + .09955, .02736, .00662, .00073, .00031,
3012 + .00017, .00045, .00036,
3013 + .09649, .02648, .00626, .00071, .00031,
3014 + .00017, .00044, .00035,
3015 + .09348, .02561, .00593, .00068, .00030,
3016 + .00017, .00042, .00034 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .38735, .11512, .17415, .00299, .00000,
3019 + .00000, .00092, .00049,
3020 + .37213, .11019, .15633, .00291, .00000,
3021 + .00000, .00096, .00055,
3022 + .35048, .10322, .13284, .00278, .00008,
3023 + .00000, .00101, .00062,
3024 + .33536, .09838, .11769, .00268, .00018,
3025 + .00000, .00102, .00065,
3026 + .32002, .09351, .10361, .00257, .00025,
3027 + .00000, .00103, .00069,
3028 + .30732, .08950, .09285, .00247, .00030,
3029 + .00000, .00103, .00071,
3030 + .29555, .08579, .08361, .00238, .00033,
3031 + .00000, .00101, .00071,
3032 + .28351, .08203, .07484, .00228, .00037,
3033 + .00000, .00100, .00071 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .27344, .07889, .06799, .00220, .00039,
3036 + .00000, .00098, .00071,
3037 + .26402, .07596, .06202, .00213, .00040,
3038 + .00000, .00096, .00069,
3039 + .25678, .07373, .05770, .00207, .00041,
3040 + .00000, .00094, .00068,
3041 + .24202, .06917, .04944, .00193, .00042,
3042 + .00000, .00090, .00066,
3043 + .22998, .06548, .04326, .00181, .00043,
3044 + .00002, .00086, .00064,
3045 + .21718, .06162, .03727, .00171, .00043,
3046 + .00006, .00082, .00060,
3047 + .20462, .05781, .03201, .00160, .00042,
3048 + .00007, .00078, .00058,
3049 + .19389, .05458, .02797, .00150, .00041,
3050 + .00009, .00073, .00056 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .18368, .05152, .02447, .00140, .00040,
3053 + .00010, .00069, .00053,
3054 + .17561, .04914, .02195, .00134, .00039,
3055 + .00010, .00066, .00049,
3056 + .16635, .04638, .01929, .00124, .00038,
3057 + .00010, .00063, .00046,
3058 + .15862, .04407, .01725, .00116, .00037,
3059 + .00010, .00059, .00045,
3060 + .15180, .04207, .01562, .00110, .00036,
3061 + .00010, .00057, .00045,
3062 + .14361, .03968, .01380, .00104, .00035,
3063 + .00010, .00053, .00042,
3064 + .13633, .03757, .01232, .00099, .00034,
3065 + .00010, .00050, .00039,
3066 + .12990, .03570, .01111, .00093, .00033,
3067 + .00010, .00048, .00036 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .12381, .03393, .01004, .00086, .00031,
3070 + .00010, .00045, .00034,
3071 + .11811, .03228, .00912, .00081, .00030,
3072 + .00010, .00043, .00031,
3073 + .11297, .03081, .00834, .00077, .00030,
3074 + .00010, .00040, .00030,
3075 + .10834, .02948, .00768, .00073, .00029,
3076 + .00010, .00038, .00029,
3077 + .10390, .02822, .00709, .00070, .00028,
3078 + .00010, .00036, .00028,
3079 + .09974, .02702, .00656, .00067, .00027,
3080 + .00010, .00034, .00026,
3081 + .09594, .02594, .00610, .00064, .00026,
3082 + .00010, .00032, .00025,
3083 + .09247, .02496, .00571, .00061, .00026,
3084 + .00010, .00031, .00024 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .08912, .02402, .00534, .00058, .00025,
3087 + .00010, .00030, .00024,
3088 + .08593, .02311, .00501, .00055, .00025,
3089 + .00010, .00029, .00022,
3090 + .08301, .02228, .00472, .00053, .00024,
3091 + .00010, .00028, .00021,
3092 + .08034, .02153, .00446, .00051, .00024,
3093 + .00010, .00027, .00020,
3094 + .07771, .02079, .00422, .00049, .00023,
3095 + .00010, .00026, .00019 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .34791, .10018, .13936, .00201, .00000,
3098 + .00000, .00067, .00026,
3099 + .33332, .09565, .12427, .00197, .00000,
3100 + .00000, .00071, .00031,
3101 + .31268, .08926, .10462, .00188, .00006,
3102 + .00000, .00074, .00038,
3103 + .29833, .08485, .09209, .00180, .00013,
3104 + .00000, .00074, .00042,
3105 + .28380, .08043, .08049, .00173, .00018,
3106 + .00000, .00074, .00044,
3107 + .27182, .07679, .07171, .00167, .00021,
3108 + .00000, .00073, .00044,
3109 + .26076, .07344, .06425, .00161, .00024,
3110 + .00000, .00073, .00044,
3111 + .24949, .07005, .05719, .00155, .00026,
3112 + .00000, .00072, .00043 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .24008, .06724, .05171, .00150, .00028,
3115 + .00000, .00071, .00043,
3116 + .23132, .06462, .04695, .00144, .00029,
3117 + .00000, .00068, .00044,
3118 + .22461, .06261, .04352, .00139, .00029,
3119 + .00000, .00066, .00044,
3120 + .21092, .05856, .03702, .00129, .00030,
3121 + .00000, .00062, .00042,
3122 + .19977, .05529, .03220, .00123, .00031,
3123 + .00001, .00060, .00040,
3124 + .18802, .05183, .02756, .00117, .00031,
3125 + .00004, .00057, .00038,
3126 + .17657, .04848, .02354, .00107, .00031,
3127 + .00005, .00054, .00036,
3128 + .16682, .04564, .02046, .00098, .00030,
3129 + .00005, .00051, .00035 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .15756, .04295, .01781, .00091, .00029,
3132 + .00006, .00049, .00034,
3133 + .15023, .04085, .01592, .00088, .00029,
3134 + .00006, .00045, .00033,
3135 + .14187, .03845, .01394, .00082, .00028,
3136 + .00006, .00043, .00031,
3137 + .13491, .03646, .01242, .00076, .00027,
3138 + .00006, .00040, .00029,
3139 + .12880, .03472, .01121, .00072, .00027,
3140 + .00006, .00038, .00028,
3141 + .12149, .03265, .00987, .00068, .00026,
3142 + .00006, .00035, .00026,
3143 + .11502, .03084, .00878, .00065, .00025,
3144 + .00006, .00034, .00024,
3145 + .10928, .02922, .00790, .00060, .00024,
3146 + .00006, .00032, .00023 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .10387, .02770, .00712, .00056, .00024,
3149 + .00006, .00030, .00022,
3150 + .09886, .02629, .00645, .00053, .00023,
3151 + .00006, .00029, .00021,
3152 + .09435, .02503, .00589, .00050, .00022,
3153 + .00006, .00027, .00020,
3154 + .09029, .02390, .00541, .00048, .00022,
3155 + .00006, .00026, .00019,
3156 + .08640, .02282, .00499, .00045, .00021,
3157 + .00006, .00024, .00018,
3158 + .08276, .02182, .00461, .00043, .00021,
3159 + .00006, .00023, .00017,
3160 + .07945, .02091, .00428, .00041, .00020,
3161 + .00006, .00022, .00016,
3162 + .07643, .02008, .00400, .00039, .00020,
3163 + .00006, .00021, .00015 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .07353, .01929, .00374, .00037, .00020,
3166 + .00006, .00020, .00014,
3167 + .07076, .01853, .00351, .00036, .00020,
3168 + .00006, .00019, .00014,
3169 + .06823, .01784, .00330, .00035, .00019,
3170 + .00006, .00019, .00013,
3171 + .06592, .01720, .00311, .00034, .00019,
3172 + .00006, .00018, .00012,
3173 + .06366, .01659, .00294, .00032, .00019,
3174 + .00006, .00017, .00012 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .30888, .08630, .10957, .00134, .00000,
3177 + .00000, .00045, .00012,
3178 + .29514, .08218, .09707, .00130, .00000,
3179 + .00000, .00048, .00017,
3180 + .27573, .07639, .08093, .00124, .00004,
3181 + .00000, .00051, .00022,
3182 + .26227, .07242, .07074, .00120, .00009,
3183 + .00000, .00053, .00025,
3184 + .24878, .06843, .06141, .00113, .00012,
3185 + .00000, .00052, .00027,
3186 + .23768, .06517, .05439, .00107, .00015,
3187 + .00000, .00051, .00028,
3188 + .22742, .06219, .04845, .00104, .00016,
3189 + .00000, .00050, .00028,
3190 + .21700, .05917, .04288, .00101, .00018,
3191 + .00000, .00049, .00029 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .20833, .05666, .03859, .00098, .00018,
3194 + .00000, .00048, .00029,
3195 + .20029, .05433, .03489, .00094, .00019,
3196 + .00000, .00046, .00029,
3197 + .19416, .05256, .03223, .00090, .00019,
3198 + .00000, .00045, .00028,
3199 + .18167, .04898, .02722, .00082, .00019,
3200 + .00000, .00043, .00027,
3201 + .17155, .04609, .02354, .00077, .00019,
3202 + .00001, .00042, .00027,
3203 + .16091, .04308, .02003, .00073, .00019,
3204 + .00002, .00038, .00026,
3205 + .15056, .04016, .01700, .00067, .00019,
3206 + .00003, .00037, .00025,
3207 + .14175, .03769, .01470, .00063, .00018,
3208 + .00003, .00035, .00023 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .13343, .03537, .01274, .00060, .00018,
3211 + .00003, .00034, .00022,
3212 + .12693, .03356, .01135, .00056, .00017,
3213 + .00003, .00032, .00020,
3214 + .11948, .03149, .00989, .00052, .00017,
3215 + .00003, .00030, .00019,
3216 + .11330, .02978, .00879, .00049, .00016,
3217 + .00003, .00028, .00019,
3218 + .10792, .02829, .00791, .00045, .00015,
3219 + .00003, .00026, .00018,
3220 + .10149, .02652, .00694, .00042, .00015,
3221 + .00003, .00024, .00018,
3222 + .09581, .02497, .00615, .00039, .00014,
3223 + .00003, .00022, .00017,
3224 + .09079, .02361, .00552, .00037, .00014,
3225 + .00003, .00021, .00015 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .08608, .02232, .00496, .00034, .00014,
3228 + .00003, .00020, .00014,
3229 + .08171, .02113, .00449, .00032, .00014,
3230 + .00003, .00019, .00013,
3231 + .07779, .02007, .00409, .00030, .00014,
3232 + .00003, .00018, .00013,
3233 + .07427, .01913, .00376, .00029, .00014,
3234 + .00003, .00017, .00012,
3235 + .07092, .01822, .00346, .00028, .00014,
3236 + .00003, .00016, .00012,
3237 + .06777, .01738, .00319, .00026, .00014,
3238 + .00003, .00015, .00011,
3239 + .06492, .01662, .00296, .00025, .00013,
3240 + .00003, .00015, .00011,
3241 + .06234, .01594, .00276, .00024, .00013,
3242 + .00003, .00014, .00010 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05986, .01528, .00258, .00022, .00013,
3245 + .00003, .00013, .00010,
3246 + .05749, .01465, .00242, .00022, .00013,
3247 + .00003, .00012, .00009,
3248 + .05533, .01408, .00227, .00021, .00013,
3249 + .00003, .00012, .00009,
3250 + .05337, .01356, .00214, .00020, .00013,
3251 + .00003, .00011, .00009,
3252 + .05147, .01305, .00202, .00018, .00013,
3253 + .00003, .00011, .00008 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .27105, .07360, .08459, .00094, .00000,
3256 + .00000, .00028, .00002,
3257 + .25827, .06990, .07445, .00091, .00000,
3258 + .00000, .00029, .00006,
3259 + .24031, .06473, .06152, .00086, .00003,
3260 + .00000, .00031, .00010,
3261 + .22791, .06118, .05343, .00084, .00006,
3262 + .00000, .00032, .00012,
3263 + .21549, .05765, .04606, .00080, .00009,
3264 + .00000, .00032, .00014,
3265 + .20532, .05477, .04056, .00076, .00010,
3266 + .00000, .00032, .00015,
3267 + .19600, .05213, .03594, .00073, .00011,
3268 + .00000, .00032, .00014,
3269 + .18654, .04947, .03164, .00070, .00012,
3270 + .00000, .00031, .00014 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .17868, .04727, .02834, .00067, .00012,
3273 + .00000, .00031, .00015,
3274 + .17139, .04524, .02551, .00064, .00013,
3275 + .00000, .00030, .00015,
3276 + .16583, .04369, .02349, .00062, .00013,
3277 + .00000, .00029, .00016,
3278 + .15459, .04057, .01971, .00058, .00013,
3279 + .00000, .00028, .00016,
3280 + .14553, .03806, .01696, .00054, .00013,
3281 + .00000, .00026, .00015,
3282 + .13605, .03546, .01435, .00051, .00012,
3283 + .00001, .00024, .00014,
3284 + .12684, .03293, .01211, .00046, .00012,
3285 + .00001, .00022, .00014,
3286 + .11905, .03082, .01042, .00043, .00011,
3287 + .00001, .00021, .00014 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .11172, .02883, .00899, .00040, .00011,
3290 + .00001, .00019, .00013,
3291 + .10599, .02728, .00798, .00038, .00010,
3292 + .00001, .00018, .00013,
3293 + .09946, .02552, .00693, .00036, .00010,
3294 + .00001, .00017, .00011,
3295 + .09405, .02408, .00614, .00034, .00009,
3296 + .00001, .00016, .00009,
3297 + .08934, .02282, .00551, .00032, .00009,
3298 + .00001, .00015, .00010,
3299 + .08376, .02133, .00482, .00029, .00008,
3300 + .00001, .00015, .00010,
3301 + .07887, .02003, .00426, .00026, .00008,
3302 + .00001, .00014, .00009,
3303 + .07455, .01888, .00382, .00024, .00007,
3304 + .00001, .00013, .00008 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .07049, .01781, .00343, .00023, .00007,
3307 + .00001, .00012, .00008,
3308 + .06673, .01682, .00310, .00022, .00007,
3309 + .00001, .00011, .00008,
3310 + .06337, .01594, .00282, .00020, .00007,
3311 + .00001, .00010, .00008,
3312 + .06037, .01516, .00258, .00019, .00007,
3313 + .00001, .00010, .00007,
3314 + .05751, .01441, .00237, .00018, .00007,
3315 + .00001, .00009, .00007,
3316 + .05484, .01372, .00219, .00018, .00007,
3317 + .00001, .00009, .00006,
3318 + .05243, .01309, .00203, .00017, .00007,
3319 + .00001, .00008, .00006,
3320 + .05026, .01252, .00189, .00016, .00007,
3321 + .00001, .00008, .00006 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .04817, .01198, .00176, .00014, .00007,
3324 + .00001, .00008, .00005,
3325 + .04618, .01147, .00165, .00014, .00007,
3326 + .00001, .00007, .00005,
3327 + .04437, .01100, .00155, .00013, .00007,
3328 + .00001, .00007, .00005,
3329 + .04272, .01058, .00146, .00013, .00007,
3330 + .00001, .00007, .00005,
3331 + .04112, .01017, .00138, .00012, .00007,
3332 + .00001, .00006, .00005 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .23455, .06172, .06372, .00051, .00000,
3335 + .00000, .00020, .00002,
3336 + .22283, .05847, .05572, .00051, .00000,
3337 + .00000, .00022, .00005,
3338 + .20643, .05394, .04560, .00051, .00002,
3339 + .00000, .00023, .00007,
3340 + .19519, .05083, .03933, .00049, .00004,
3341 + .00000, .00024, .00009,
3342 + .18398, .04775, .03367, .00046, .00006,
3343 + .00000, .00024, .00010,
3344 + .17482, .04524, .02948, .00044, .00007,
3345 + .00000, .00023, .00010,
3346 + .16642, .04295, .02598, .00042, .00007,
3347 + .00000, .00022, .00011,
3348 + .15795, .04065, .02275, .00040, .00007,
3349 + .00000, .00021, .00011 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .15093, .03875, .02028, .00039, .00007,
3352 + .00000, .00021, .00010,
3353 + .14445, .03701, .01818, .00038, .00007,
3354 + .00000, .00020, .00011,
3355 + .13951, .03568, .01668, .00037, .00007,
3356 + .00000, .00020, .00011,
3357 + .12954, .03301, .01390, .00033, .00007,
3358 + .00000, .00019, .00011,
3359 + .12155, .03088, .01189, .00031, .00007,
3360 + .00000, .00018, .00011,
3361 + .11323, .02866, .01000, .00028, .00007,
3362 + .00000, .00016, .00011,
3363 + .10517, .02652, .00839, .00026, .00007,
3364 + .00000, .00015, .00010,
3365 + .09839, .02473, .00719, .00024, .00006,
3366 + .00000, .00014, .00009 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .09203, .02306, .00618, .00021, .00006,
3369 + .00000, .00014, .00009,
3370 + .08707, .02176, .00547, .00020, .00006,
3371 + .00000, .00013, .00009,
3372 + .08142, .02030, .00473, .00020, .00006,
3373 + .00000, .00012, .00008,
3374 + .07676, .01910, .00418, .00019, .00005,
3375 + .00000, .00011, .00007,
3376 + .07273, .01806, .00374, .00018, .00005,
3377 + .00000, .00010, .00007,
3378 + .06796, .01682, .00326, .00017, .00005,
3379 + .00000, .00010, .00006,
3380 + .06380, .01574, .00288, .00015, .00005,
3381 + .00000, .00009, .00006,
3382 + .06012, .01480, .00258, .00014, .00004,
3383 + .00000, .00009, .00006 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .05669, .01392, .00231, .00012, .00004,
3386 + .00000, .00008, .00005,
3387 + .05353, .01311, .00208, .00012, .00004,
3388 + .00000, .00007, .00005,
3389 + .05071, .01240, .00189, .00011, .00004,
3390 + .00000, .00007, .00005,
3391 + .04820, .01177, .00173, .00010, .00004,
3392 + .00000, .00007, .00005,
3393 + .04581, .01116, .00159, .00010, .00004,
3394 + .00000, .00006, .00004,
3395 + .04358, .01060, .00146, .00010, .00004,
3396 + .00000, .00006, .00004,
3397 + .04157, .01009, .00136, .00009, .00004,
3398 + .00000, .00006, .00004,
3399 + .03976, .00963, .00126, .00009, .00004,
3400 + .00000, .00005, .00004 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03803, .00920, .00118, .00008, .00004,
3403 + .00000, .00005, .00004,
3404 + .03639, .00879, .00110, .00007, .00004,
3405 + .00000, .00005, .00004,
3406 + .03490, .00842, .00103, .00007, .00004,
3407 + .00000, .00005, .00004,
3408 + .03354, .00808, .00097, .00007, .00004,
3409 + .00000, .00005, .00003,
3410 + .03222, .00775, .00092, .00007, .00004,
3411 + .00000, .00004, .00003 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .16807, .04171, .03369, .00021, .00000,
3414 + .00000, .00007, .00000,
3415 + .15873, .03927, .02906, .00020, .00000,
3416 + .00000, .00008, .00001,
3417 + .14575, .03591, .02333, .00020, .00001,
3418 + .00000, .00008, .00002,
3419 + .13692, .03363, .01985, .00020, .00001,
3420 + .00000, .00009, .00002,
3421 + .12819, .03138, .01676, .00018, .00001,
3422 + .00000, .00008, .00004,
3423 + .12110, .02956, .01450, .00016, .00001,
3424 + .00000, .00008, .00005,
3425 + .11467, .02791, .01264, .00014, .00001,
3426 + .00000, .00007, .00005,
3427 + .10821, .02627, .01095, .00013, .00001,
3428 + .00000, .00008, .00005 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .10287, .02492, .00968, .00013, .00001,
3431 + .00000, .00008, .00005,
3432 + .09798, .02369, .00860, .00013, .00001,
3433 + .00000, .00008, .00004,
3434 + .09427, .02275, .00784, .00013, .00001,
3435 + .00000, .00008, .00004,
3436 + .08683, .02089, .00645, .00012, .00001,
3437 + .00000, .00007, .00004,
3438 + .08091, .01941, .00546, .00011, .00001,
3439 + .00000, .00006, .00004,
3440 + .07479, .01788, .00454, .00010, .00001,
3441 + .00000, .00006, .00004,
3442 + .06893, .01642, .00377, .00009, .00001,
3443 + .00000, .00006, .00004,
3444 + .06403, .01521, .00321, .00009, .00001,
3445 + .00000, .00005, .00004 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .05947, .01409, .00274, .00008, .00001,
3448 + .00000, .00005, .00004,
3449 + .05595, .01322, .00241, .00007, .00001,
3450 + .00000, .00004, .00003,
3451 + .05198, .01225, .00207, .00007, .00001,
3452 + .00000, .00004, .00003,
3453 + .04872, .01145, .00182, .00006, .00001,
3454 + .00000, .00004, .00003,
3455 + .04591, .01077, .00162, .00006, .00001,
3456 + .00000, .00004, .00003,
3457 + .04260, .00997, .00141, .00005, .00001,
3458 + .00000, .00003, .00003,
3459 + .03974, .00927, .00124, .00005, .00001,
3460 + .00000, .00003, .00003,
3461 + .03723, .00867, .00111, .00004, .00001,
3462 + .00000, .00003, .00003 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .03490, .00811, .00099, .00004, .00001,
3465 + .00000, .00003, .00002,
3466 + .03277, .00760, .00089, .00004, .00001,
3467 + .00000, .00003, .00002,
3468 + .03088, .00714, .00081, .00003, .00001,
3469 + .00000, .00002, .00002,
3470 + .02920, .00675, .00074, .00004, .00001,
3471 + .00000, .00002, .00002,
3472 + .02761, .00637, .00068, .00003, .00001,
3473 + .00000, .00002, .00001,
3474 + .02615, .00602, .00062, .00003, .00001,
3475 + .00000, .00002, .00001,
3476 + .02483, .00571, .00057, .00003, .00001,
3477 + .00000, .00002, .00002,
3478 + .02365, .00542, .00054, .00002, .00001,
3479 + .00000, .00002, .00002 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .02252, .00516, .00050, .00002, .00001,
3482 + .00000, .00002, .00002,
3483 + .02146, .00491, .00046, .00002, .00001,
3484 + .00000, .00002, .00001,
3485 + .02050, .00468, .00044, .00002, .00001,
3486 + .00000, .00002, .00001,
3487 + .01963, .00448, .00041, .00002, .00001,
3488 + .00000, .00002, .00001,
3489 + .01879, .00428, .00039, .00002, .00001,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .11197, .02610, .01574, .00007, .00000,
3493 + .00000, .00002, -.00001,
3494 + .10506, .02442, .01339, .00007, .00000,
3495 + .00000, .00002, .00000,
3496 + .09554, .02212, .01054, .00006, .00000,
3497 + .00000, .00002, .00001,
3498 + .08913, .02058, .00885, .00006, .00000,
3499 + .00000, .00002, .00002,
3500 + .08284, .01907, .00737, .00005, .00000,
3501 + .00000, .00002, .00001,
3502 + .07777, .01786, .00631, .00005, .00000,
3503 + .00000, .00002, .00001,
3504 + .07318, .01677, .00544, .00005, .00000,
3505 + .00000, .00002, .00001,
3506 + .06861, .01569, .00466, .00005, .00000,
3507 + .00000, .00002, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .06487, .01480, .00408, .00005, .00000,
3510 + .00000, .00002, .00002,
3511 + .06147, .01400, .00360, .00004, .00000,
3512 + .00000, .00002, .00002,
3513 + .05892, .01339, .00326, .00004, .00000,
3514 + .00000, .00002, .00001,
3515 + .05380, .01219, .00265, .00003, .00000,
3516 + .00000, .00002, .00001,
3517 + .04976, .01124, .00222, .00003, .00000,
3518 + .00000, .00002, .00001,
3519 + .04562, .01027, .00183, .00003, .00000,
3520 + .00000, .00002, .00001,
3521 + .04169, .00936, .00151, .00003, .00000,
3522 + .00000, .00002, .00001,
3523 + .03844, .00860, .00127, .00003, .00000,
3524 + .00000, .00002, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .03543, .00791, .00108, .00002, .00000,
3527 + .00000, .00001, .00001,
3528 + .03312, .00738, .00095, .00002, .00000,
3529 + .00000, .00001, .00001,
3530 + .03054, .00679, .00081, .00002, .00000,
3531 + .00000, .00001, .00001,
3532 + .02844, .00631, .00071, .00002, .00000,
3533 + .00000, .00001, .00001,
3534 + .02665, .00590, .00063, .00002, .00000,
3535 + .00000, .00001, .00001,
3536 + .02455, .00542, .00055, .00002, .00000,
3537 + .00000, .00001, .00001,
3538 + .02273, .00500, .00048, .00002, .00000,
3539 + .00000, .00001, .00001,
3540 + .02116, .00465, .00043, .00002, .00000,
3541 + .00000, .00001, .00001 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01971, .00432, .00038, .00001, .00000,
3544 + .00000, .00001, .00001,
3545 + .01840, .00403, .00034, .00001, .00000,
3546 + .00000, .00001, .00001,
3547 + .01724, .00376, .00031, .00001, .00000,
3548 + .00000, .00001, .00001,
3549 + .01621, .00353, .00028, .00001, .00000,
3550 + .00000, .00001, .00001,
3551 + .01524, .00332, .00026, .00001, .00000,
3552 + .00000, .00001, .00001,
3553 + .01436, .00312, .00024, .00001, .00000,
3554 + .00000, .00000, .00000,
3555 + .01357, .00295, .00022, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .01287, .00279, .00020, .00001, .00000,
3558 + .00000, .00001, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .01220, .00264, .00019, .00001, .00000,
3561 + .00000, .00001, .00000,
3562 + .01157, .00250, .00018, .00001, .00000,
3563 + .00000, .00000, .00000,
3564 + .01100, .00237, .00017, .00001, .00000,
3565 + .00000, .00000, .00000,
3566 + .01049, .00226, .00016, .00001, .00000,
3567 + .00000, .00000, .00000,
3568 + .01000, .00215, .00015, .00001, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .06774, .01478, .00625, .00003, .00000,
3572 + .00000, .00000, -.00001,
3573 + .06310, .01373, .00524, .00002, .00000,
3574 + .00000, .00000, .00000,
3575 + .05679, .01231, .00404, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .05257, .01136, .00335, .00001, .00000,
3578 + .00000, .00000, .00000,
3579 + .04845, .01045, .00275, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .04515, .00972, .00232, .00002, .00000,
3582 + .00000, .00000, .00000,
3583 + .04221, .00906, .00198, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03930, .00842, .00168, .00002, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .03693, .00790, .00146, .00002, .00000,
3589 + .00000, .00000, .00000,
3590 + .03479, .00743, .00128, .00002, .00000,
3591 + .00000, .00000, .00000,
3592 + .03318, .00707, .00115, .00002, .00000,
3593 + .00000, .00000, .00000,
3594 + .03001, .00638, .00093, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02753, .00583, .00077, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .02500, .00528, .00063, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .02264, .00477, .00052, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .02069, .00435, .00043, .00001, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01891, .00396, .00037, .00001, .00000,
3606 + .00000, .00000, .00000,
3607 + .01756, .00367, .00032, .00001, .00000,
3608 + .00000, .00000, .00000,
3609 + .01606, .00335, .00027, .00001, .00000,
3610 + .00000, .00000, .00000,
3611 + .01484, .00309, .00024, .00001, .00000,
3612 + .00000, .00000, .00000,
3613 + .01381, .00287, .00021, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .01262, .00262, .00018, .00001, .00000,
3616 + .00000, .00000, .00000,
3617 + .01159, .00240, .00016, .00001, .00000,
3618 + .00000, .00000, .00000,
3619 + .01072, .00221, .00014, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00991, .00204, .00013, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00919, .00189, .00012, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00855, .00176, .00010, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00800, .00164, .00010, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00748, .00153, .00009, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00700, .00143, .00008, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00658, .00134, .00007, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00620, .00126, .00007, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00585, .00119, .00006, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00552, .00112, .00006, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00523, .00106, .00006, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00496, .00101, .00005, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00471, .00095, .00005, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .03566, .00721, .00195, -.00001, .00000,
3651 + .00000, .00000, .00000,
3652 + .03294, .00665, .00161, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02927, .00589, .00122, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02685, .00539, .00100, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .02451, .00491, .00081, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .02267, .00453, .00067, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .02103, .00419, .00057, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01942, .00386, .00048, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01812, .00360, .00041, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01695, .00336, .00036, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01609, .00318, .00032, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .01438, .00284, .00026, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .01306, .00257, .00021, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .01174, .00231, .00017, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .01051, .00206, .00014, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00951, .00186, .00012, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00861, .00168, .00010, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00793, .00154, .00009, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00718, .00139, .00007, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00658, .00127, .00007, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00607, .00118, .00006, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00549, .00106, .00005, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00500, .00096, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00459, .00088, .00004, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00421, .00081, .00004, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00387, .00074, .00003, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00357, .00068, .00003, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00332, .00063, .00003, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00308, .00059, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00286, .00055, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00267, .00051, .00002, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00250, .00048, .00002, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00235, .00045, .00002, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00220, .00042, .00002, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00207, .00039, .00002, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00196, .00037, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00185, .00035, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00443, .00074, .00005, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00399, .00066, .00004, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00342, .00057, .00003, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00306, .00050, .00002, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00272, .00045, .00002, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00245, .00040, .00002, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00223, .00037, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00201, .00033, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00183, .00030, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00168, .00028, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00157, .00026, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00136, .00022, .00001, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00120, .00020, .00001, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00105, .00017, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00091, .00015, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00080, .00013, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00070, .00011, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00063, .00010, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00056, .00009, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00050, .00008, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00045, .00007, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00039, .00006, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00035, .00006, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00031, .00005, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00028, .00004, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00025, .00004, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00023, .00004, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00021, .00003, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00019, .00003, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00017, .00003, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00016, .00003, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00014, .00002, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00013, .00002, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00012, .00002, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00011, .00002, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00011, .00002, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00010, .00002, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3814 . .8d0,.9d0,1d0/
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 data init/0/
3824 save
3825 xsave=x
3826 q2save=qsq
3827 if(init.ne.0) goto 10
3828C open(unit=1,file='lo05a.dat',status='old')
3829 do 20 n=1,nx-1
3830 do 20 m=1,nq
3831C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3834 do 25 i=1,np
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3836 20 continue
3837 do 31 j=1,ntenth-1
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3839 do 31 i=1,8
3840 if(i.eq.5.or.i.eq.7) goto 31
3841 do 30 k=1,nq
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3843 31 continue
3844 50 format(8f10.5)
3845 do 40 i=1,np
3846 do 40 m=1,nq
3847 40 f(i,nx,m)=ZEROD
3848 init=1
3849 10 continue
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3854 xxx=x
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3856 n=0
3857 70 n=n+1
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3860 m=0
3861 80 m=m+1
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3864 do 60 i=1,np
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3871 65 continue
3872 g(i)=g(i)*(ONED-x)**n0(i)
3873 60 continue
3874 upv=g(1)
3875 dnv=g(2)
3876 usea=g(4)
3877 dsea=g(8)
3878 str=g(6)
3879 chm=g(5)
3880 glu=g(3)
3881 bot=g(7)
3882 x=xsave
3883 qsq=q2save
3884 return
3885 end