]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_99a8.F
PDF version 8 added
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_99a8.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_99a8(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
8#include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00524, .00225, 1.11507, .87315, .00000,
12 + .00000, .52072, .88527,
13 + .00541, .00231, 2.38593, .90817, .00000,
14 + .00000, .56040, .92033,
15 + .00565, .00241, 4.88911, .98487, .00000,
16 + .00000, .64374, .99708,
17 + .00582, .00249, 7.22930, 1.05900, .04540,
18 + .00000, .72248, 1.07123,
19 + .00601, .00257, 10.05464, 1.15491, .15607,
20 + .00000, .82306, 1.16715,
21 + .00617, .00264, 12.97012, 1.25385, .26204,
22 + .00000, .92593, 1.26610,
23 + .00632, .00271, 16.24274, 1.36142, .37896,
24 + .00000, 1.03716, 1.37367,
25 + .00648, .00279, 20.25854, 1.49012, .52072,
26 + .00000, 1.16965, 1.50236 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00663, .00285, 24.17170, 1.61637, .65343,
29 + .00000, 1.29914, 1.62861,
30 + .00677, .00292, 28.37326, 1.75045, .79473,
31 + .00000, 1.43627, 1.76268,
32 + .00688, .00297, 32.05407, 1.86519, .91807,
33 + .00000, 1.55338, 1.87741,
34 + .00712, .00308, 40.57703, 2.13846, 1.20547,
35 + .02267, 1.83156, 2.15064,
36 + .00732, .00318, 48.59679, 2.40304, 1.48125,
37 + .34670, 2.10023, 2.41519,
38 + .00756, .00329, 58.72475, 2.73434, 1.82688,
39 + .74567, 2.43599, 2.74645,
40 + .00780, .00341, 70.64552, 3.11942, 2.22779,
41 + 1.16491, 2.82556, 3.13148,
42 + .00803, .00352, 82.70376, 3.50586, 2.62948,
43 + 1.58516, 3.21597, 3.51786 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00826, .00363, 96.13752, 3.93397, 3.07427,
46 + 2.04863, 3.64798, 3.94592,
47 + .00845, .00373, 108.22611, 4.31905, 3.47240,
48 + 2.45877, 4.03622, 4.33095,
49 + .00868, .00384, 124.03743, 4.82316, 3.99182,
50 + 2.99179, 4.54407, 4.83499,
51 + .00889, .00395, 139.18558, 5.30515, 4.48917,
52 + 3.50449, 5.02929, 5.31693,
53 + .00909, .00405, 154.05742, 5.77816, 4.97738,
54 + 4.00810, 5.50519, 5.78988,
55 + .00934, .00417, 174.06555, 6.41916, 5.63494,
56 + 4.67988, 6.14979, 6.43080,
57 + .00957, .00429, 194.26398, 7.06743, 6.30046,
58 + 5.36164, 6.80136, 7.07900,
59 + .00979, .00440, 214.50067, 7.71749, 6.96900,
60 + 6.04885, 7.45444, 7.72900 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .01002, .00452, 235.61906, 8.40367, 7.67005,
63 + 6.76241, 8.14358, 8.41511,
64 + .01024, .00463, 257.52185, 9.11683, 8.40007,
65 + 7.50843, 8.85957, 9.12820,
66 + .01045, .00474, 279.31253, 9.82979, 9.12959,
67 + 8.25385, 9.57515, 9.84109,
68 + .01065, .00485, 300.58368, 10.53226, 9.84621,
69 + 8.98322, 10.28004, 10.54348,
70 + .01086, .00495, 323.06915, 11.27576, 10.60650,
71 + 9.76005, 11.02594, 11.28693,
72 + .01106, .00506, 345.73203, 12.03432, 11.37879,
73 + 10.54457, 11.78681, 12.04541,
74 + .01125, .00516, 368.37097, 12.79232, 12.15279,
75 + 11.33447, 12.54698, 12.80335,
76 + .01144, .00526, 390.16098, 13.53101, 12.90404,
77 + 12.09701, 13.28769, 13.54199 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01163, .00535, 413.08563, 14.30935, 13.69720,
80 + 12.90463, 14.06802, 14.32026,
81 + .01181, .00545, 436.19785, 15.10161, 14.50293,
82 + 13.72307, 14.86222, 15.11246,
83 + .01199, .00555, 458.92014, 15.88476, 15.29935,
84 + 14.53222, 15.64720, 15.89555,
85 + .01217, .00564, 481.15384, 16.65416, 16.08232,
86 + 15.32866, 16.41832, 16.66490,
87 + .01234, .00573, 503.88434, 17.44962, 16.88959,
88 + 16.14695, 17.21548, 17.46031 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00708, .00307, 1.04011, .73972, .00000,
91 + .00000, .44000, .74676,
92 + .00730, .00317, 2.18517, .77225, .00000,
93 + .00000, .47616, .77931,
94 + .00764, .00332, 4.39208, .84018, .00000,
95 + .00000, .54924, .84727,
96 + .00788, .00343, 6.41419, .90413, .03864,
97 + .00000, .61677, .91123,
98 + .00814, .00355, 8.81468, .98542, .13234,
99 + .00000, .70167, .99253,
100 + .00836, .00365, 11.25605, 1.06815, .22094,
101 + .00000, .78743, 1.07526,
102 + .00857, .00375, 13.96372, 1.15730, .31773,
103 + .00000, .87942, 1.16441,
104 + .00880, .00386, 17.24739, 1.26308, .43405,
105 + .00000, .98813, 1.27020 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00900, .00396, 20.41074, 1.36594, .54195,
108 + .00000, 1.09348, 1.37305,
109 + .00920, .00405, 23.77456, 1.47442, .65602,
110 + .00000, 1.20430, 1.48152,
111 + .00935, .00413, 26.69842, 1.56678, .75502,
112 + .00000, 1.29849, 1.57387,
113 + .00968, .00429, 33.38902, 1.78487, .98368,
114 + .01852, 1.52037, 1.79196,
115 + .00996, .00443, 39.59538, 1.99405, 1.20093,
116 + .27322, 1.73270, 2.00112,
117 + .01029, .00459, 47.33649, 2.25366, 1.47070,
118 + .58488, 1.99573, 2.26071,
119 + .01062, .00476, 56.33228, 2.55258, 1.78060,
120 + .90858, 2.29810, 2.55960,
121 + .01093, .00492, 65.32340, 2.84990, 2.08830,
122 + 1.23006, 2.59847, 2.85690 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .01125, .00508, 75.23013, 3.17658, 2.42619,
125 + 1.58154, 2.92814, 3.18355,
126 + .01151, .00521, 84.05628, 3.46820, 2.72630,
127 + 1.89008, 3.22219, 3.47515,
128 + .01183, .00537, 95.48808, 3.84712, 3.11491,
129 + 2.28799, 3.60397, 3.85403,
130 + .01211, .00552, 106.33683, 4.20678, 3.48432,
131 + 2.66797, 3.96611, 4.21366,
132 + .01238, .00566, 116.89914, 4.55745, 3.84463,
133 + 3.03880, 4.31901, 4.56431,
134 + .01272, .00583, 130.97639, 5.02921, 4.32633,
135 + 3.52968, 4.79352, 5.03603,
136 + .01304, .00600, 145.05559, 5.50282, 4.81037,
137 + 4.02430, 5.26966, 5.50961,
138 + .01334, .00616, 159.04370, 5.97461, 5.29347,
139 + 4.51972, 5.74377, 5.98136 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01364, .00632, 173.51248, 6.46916, 5.79648,
142 + 5.03032, 6.24058, 6.47588,
143 + .01394, .00648, 188.40450, 6.98001, 6.31720,
144 + 5.56110, 6.75361, 6.98670,
145 + .01423, .00663, 203.11081, 7.48770, 6.83454,
146 + 6.08838, 7.26331, 7.49436,
147 + .01450, .00677, 217.36116, 7.98500, 7.33975,
148 + 6.60121, 7.76248, 7.99163,
149 + .01478, .00692, 232.33342, 8.50873, 7.87322,
150 + 7.14495, 8.28805, 8.51533,
151 + .01505, .00706, 247.31435, 9.04003, 8.41195,
152 + 7.69074, 8.82113, 9.04659,
153 + .01531, .00720, 262.19849, 9.56855, 8.94960,
154 + 8.23810, 9.35130, 9.57508,
155 + .01556, .00733, 276.42926, 10.08092, 9.46867,
156 + 8.76356, 9.86523, 10.08743 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01581, .00747, 291.32748, 10.61856, 10.01457,
159 + 9.31805, 10.40441, 10.62504,
160 + .01606, .00760, 306.25809, 11.16324, 10.56648,
161 + 9.87724, 10.95059, 11.16969,
162 + .01630, .00773, 320.86191, 11.69941, 11.10979,
163 + 10.42786, 11.48816, 11.70583,
164 + .01653, .00785, 335.08524, 12.22414, 11.64195,
165 + 10.96788, 12.01420, 12.23053,
166 + .01677, .00798, 349.54446, 12.76426, 12.18817,
167 + 11.52014, 12.55564, 12.77063 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .00955, .00419, .97124, .62641, .00000,
170 + .00000, .37190, .62990,
171 + .00987, .00434, 2.00252, .65638, .00000,
172 + .00000, .40469, .65988,
173 + .01033, .00456, 3.94679, .71641, .00000,
174 + .00000, .46870, .71992,
175 + .01067, .00473, 5.69200, .77155, .03287,
176 + .00000, .52660, .77505,
177 + .01103, .00490, 7.72829, .84040, .11219,
178 + .00000, .59824, .84391,
179 + .01134, .00505, 9.76873, .90952, .18622,
180 + .00000, .66970, .91303,
181 + .01164, .00520, 12.00411, .98334, .26631,
182 + .00000, .74569, .98685,
183 + .01195, .00536, 14.68262, 1.07017, .36168,
184 + .00000, .83477, 1.07368 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01223, .00550, 17.23293, 1.15382, .44934,
187 + .00000, .92033, 1.15733,
188 + .01250, .00564, 19.91822, 1.24141, .54133,
189 + .00000, 1.00972, 1.24492,
190 + .01271, .00574, 22.23371, 1.31559, .62070,
191 + .00000, 1.08530, 1.31910,
192 + .01316, .00598, 27.46826, 1.48922, .80239,
193 + .01512, 1.26183, 1.49272,
194 + .01356, .00618, 32.25300, 1.65412, .97327,
195 + .21521, 1.42914, 1.65762,
196 + .01400, .00641, 38.14560, 1.85692, 1.18348,
197 + .45855, 1.63454, 1.86041,
198 + .01446, .00665, 44.90436, 2.08816, 1.42257,
199 + .70831, 1.86842, 2.09165,
200 + .01488, .00687, 51.57720, 2.31609, 1.65779,
201 + .95403, 2.09867, 2.31956 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01531, .00710, 58.84702, 2.56441, 1.91387,
204 + 1.22031, 2.34926, 2.56787,
205 + .01567, .00728, 65.25777, 2.78436, 2.13954,
206 + 1.45215, 2.57106, 2.78782,
207 + .01611, .00752, 73.47825, 3.06796, 2.42951,
208 + 1.74880, 2.85684, 3.07141,
209 + .01650, .00772, 81.20396, 3.33514, 2.70311,
210 + 2.02999, 3.12591, 3.33858,
211 + .01686, .00791, 88.66174, 3.59394, 2.96823,
212 + 2.30261, 3.38639, 3.59737,
213 + .01732, .00816, 98.50539, 3.93948, 3.31998,
214 + 2.66064, 3.73403, 3.94291,
215 + .01775, .00839, 108.25667, 4.28381, 3.67084,
216 + 3.01876, 4.08028, 4.28722,
217 + .01816, .00861, 117.86207, 4.62449, 4.01871,
218 + 3.37514, 4.42272, 4.62790 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01857, .00883, 127.70645, 4.97906, 4.37827,
221 + 3.73962, 4.77901, 4.98245,
222 + .01898, .00905, 137.75996, 5.34304, 4.74825,
223 + 4.11628, 5.14464, 5.34643,
224 + .01937, .00926, 147.61273, 5.70259, 5.11365,
225 + 4.48824, 5.50572, 5.70597,
226 + .01973, .00946, 157.08716, 6.05267, 5.46832,
227 + 4.84777, 5.85722, 6.05605,
228 + .02010, .00966, 166.97978, 6.41950, 5.84103,
229 + 5.22720, 6.22545, 6.42287,
230 + .02047, .00986, 176.80305, 6.78944, 6.21515,
231 + 5.60567, 6.59674, 6.79280,
232 + .02082, .01005, 186.50916, 7.15577, 6.58693,
233 + 5.98371, 6.96433, 7.15912,
234 + .02115, .01023, 195.72423, 7.50899, 6.94385,
235 + 6.34450, 7.31873, 7.51234 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02149, .01042, 205.32343, 7.87810, 7.31776,
238 + 6.72382, 7.68901, 7.88144,
239 + .02183, .01060, 214.88344, 8.25021, 7.69392,
240 + 7.10443, 8.06226, 8.25355,
241 + .02215, .01078, 224.18472, 8.61494, 8.06268,
242 + 7.47765, 8.42806, 8.61828,
243 + .02246, .01094, 233.20016, 8.97050, 8.42250,
244 + 7.84235, 8.78462, 8.97382,
245 + .02277, .01112, 242.31064, 9.33482, 8.79010,
246 + 8.21348, 9.14995, 9.33815 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01138, .00503, .93392, .56824, .00000,
249 + .00000, .33715, .57026,
250 + .01177, .00521, 1.90382, .59670, .00000,
251 + .00000, .36804, .59872,
252 + .01233, .00550, 3.70850, .65248, .00000,
253 + .00000, .42725, .65450,
254 + .01275, .00570, 5.30865, .70301, .02990,
255 + .00000, .48015, .70503,
256 + .01318, .00592, 7.15650, .76547, .10183,
257 + .00000, .54500, .76749,
258 + .01355, .00611, 8.99173, .82766, .16845,
259 + .00000, .60920, .82969,
260 + .01391, .00630, 10.98762, .89371, .24011,
261 + .00000, .67712, .89574,
262 + .01430, .00650, 13.36209, .97102, .32499,
263 + .00000, .75635, .97305 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01463, .00667, 15.60710, 1.04507, .40257,
266 + .00000, .83203, 1.04710,
267 + .01495, .00684, 17.95703, 1.12227, .48363,
268 + .00000, .91077, 1.12430,
269 + .01521, .00697, 19.97372, 1.18745, .55333,
270 + .00000, .97715, 1.18948,
271 + .01576, .00726, 24.49977, 1.33918, .71203,
272 + .01343, 1.13136, 1.34122,
273 + .01623, .00751, 28.60038, 1.48244, .86039,
274 + .18709, 1.27667, 1.48448,
275 + .01676, .00779, 33.61220, 1.65766, 1.04187,
276 + .39755, 1.45411, 1.65969,
277 + .01732, .00809, 39.31599, 1.85629, 1.24708,
278 + .61204, 1.65499, 1.85833,
279 + .01783, .00836, 44.90605, 2.05100, 1.44784,
280 + .82189, 1.85168, 2.05304 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01835, .00863, 50.95521, 2.26206, 1.66530,
283 + 1.04811, 2.06468, 2.26410,
284 + .01878, .00886, 56.25687, 2.44814, 1.85604,
285 + 1.24411, 2.25232, 2.45018,
286 + .01930, .00915, 63.01435, 2.68696, 2.09998,
287 + 1.49372, 2.49300, 2.68900,
288 + .01977, .00940, 69.32825, 2.91097, 2.32914,
289 + 1.72928, 2.71861, 2.91301,
290 + .02020, .00963, 75.39213, 3.12708, 2.55033,
291 + 1.95677, 2.93616, 3.12913,
292 + .02075, .00993, 83.34931, 3.41434, 2.84245,
293 + 2.25410, 3.22519, 3.41638,
294 + .02127, .01021, 91.18669, 3.69930, 3.13255,
295 + 2.55021, 3.51179, 3.70135,
296 + .02176, .01048, 98.86726, 3.98012, 3.41905,
297 + 2.84374, 3.79411, 3.98218 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02225, .01075, 106.69511, 4.27113, 3.71387,
300 + 3.14255, 4.08658, 4.27319,
301 + .02273, .01101, 114.65194, 4.56877, 4.01614,
302 + 3.45027, 4.38561, 4.57083,
303 + .02319, .01126, 122.41418, 4.86171, 4.31361,
304 + 3.75306, 4.67986, 4.86378,
305 + .02363, .01150, 129.84366, 5.14592, 4.60129,
306 + 4.04464, 4.96526, 5.14798,
307 + .02407, .01175, 137.57248, 5.44283, 4.90274,
308 + 4.35151, 5.26336, 5.44490,
309 + .02451, .01198, 145.21123, 5.74119, 5.20421,
310 + 4.65644, 5.56288, 5.74327,
311 + .02492, .01221, 152.73439, 6.03585, 5.50305,
312 + 4.96030, 5.85860, 6.03793,
313 + .02532, .01243, 159.84604, 6.31904, 5.78897,
314 + 5.24926, 6.14280, 6.32113 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02572, .01265, 167.23213, 6.61424, 6.08782,
317 + 5.55240, 6.43899, 6.61633,
318 + .02612, .01287, 174.55977, 6.91096, 6.38756,
319 + 5.85562, 6.73668, 6.91306,
320 + .02650, .01309, 181.66635, 7.20107, 6.68067,
321 + 6.15224, 7.02769, 7.20317,
322 + .02687, .01329, 188.53462, 7.48321, 6.96602,
323 + 6.44144, 7.31069, 7.48531,
324 + .02724, .01349, 195.44975, 7.77151, 7.25672,
325 + 6.73487, 7.59984, 7.77362 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01290, .00572, .90888, .53023, .00000,
328 + .00000, .31454, .53144,
329 + .01334, .00595, 1.83741, .55762, .00000,
330 + .00000, .34412, .55883,
331 + .01399, .00628, 3.54883, .61054, .00000,
332 + .00000, .40012, .61175,
333 + .01446, .00652, 5.05294, .65801, .02795,
334 + .00000, .44974, .65923,
335 + .01495, .00678, 6.77699, .71628, .09505,
336 + .00000, .51016, .71751,
337 + .01538, .00700, 8.47832, .77397, .15686,
338 + .00000, .56964, .77520,
339 + .01579, .00722, 10.31886, .83500, .22306,
340 + .00000, .63234, .83622,
341 + .01623, .00745, 12.49725, .90615, .30118,
342 + .00000, .70522, .90738 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01662, .00765, 14.54646, .97403, .37229,
345 + .00000, .77456, .97526,
346 + .01698, .00784, 16.68237, 1.04457, .44637,
347 + .00000, .84649, 1.04581,
348 + .01728, .00800, 18.50912, 1.10399, .50990,
349 + .00000, .90698, 1.10523,
350 + .01790, .00833, 22.58739, 1.24179, .65401,
351 + .01234, 1.04699, 1.24304,
352 + .01844, .00862, 26.25867, 1.37134, .78815,
353 + .16935, 1.17837, 1.37259,
354 + .01905, .00895, 30.72119, 1.52914, .95158,
355 + .35915, 1.33817, 1.53040,
356 + .01969, .00929, 35.77131, 1.70729, 1.13558,
357 + .55163, 1.51832, 1.70856,
358 + .02027, .00960, 40.69457, 1.88124, 1.31488,
359 + .73918, 1.69403, 1.88251 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .02086, .00992, 45.99630, 2.06910, 1.50839,
362 + .94060, 1.88362, 2.07038,
363 + .02135, .01019, 50.62225, 2.23416, 1.67753,
364 + 1.11450, 2.05009, 2.23545,
365 + .02194, .01052, 56.49287, 2.44531, 1.89314,
366 + 1.33521, 2.26289, 2.44661,
367 + .02247, .01081, 61.95516, 2.64273, 2.09504,
368 + 1.54285, 2.46173, 2.64404,
369 + .02296, .01107, 67.18176, 2.83265, 2.28937,
370 + 1.74280, 2.65294, 2.83397,
371 + .02359, .01141, 74.01127, 3.08427, 2.54517,
372 + 2.00325, 2.90614, 3.08560,
373 + .02418, .01174, 80.71011, 3.33308, 2.79839,
374 + 2.26181, 3.15641, 3.33442,
375 + .02473, .01204, 87.25063, 3.57757, 3.04776,
376 + 2.51739, 3.40223, 3.57892 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02529, .01235, 93.88946, 3.83014, 3.30356,
379 + 2.77671, 3.65610, 3.83150,
380 + .02584, .01265, 100.61486, 4.08776, 3.56513,
381 + 3.04308, 3.91497, 4.08914,
382 + .02636, .01294, 107.15408, 4.34068, 3.82189,
383 + 3.30451, 4.16904, 4.34206,
384 + .02685, .01322, 113.39166, 4.58541, 4.06955,
385 + 3.55558, 4.41484, 4.58680,
386 + .02735, .01349, 119.86333, 4.84052, 4.32852,
387 + 3.81929, 4.67102, 4.84193,
388 + .02784, .01377, 126.23753, 5.09623, 4.58683,
389 + 4.08060, 4.92775, 5.09765,
390 + .02831, .01403, 132.50072, 5.34827, 4.84241,
391 + 4.34055, 5.18075, 5.34971,
392 + .02876, .01428, 138.40245, 5.58993, 5.08635,
393 + 4.58713, 5.42330, 5.59138 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02921, .01453, 144.51881, 5.84140, 5.34088,
396 + 4.84538, 5.67565, 5.84285,
397 + .02966, .01478, 150.56964, 6.09363, 5.59563,
398 + 5.10314, 5.92874, 6.09509,
399 + .03009, .01502, 156.42438, 6.33977, 5.84428,
400 + 5.35483, 6.17569, 6.34125,
401 + .03051, .01525, 162.07086, 6.57875, 6.08597,
402 + 5.59983, 6.41544, 6.58024,
403 + .03092, .01548, 167.74022, 6.82247, 6.33167,
404 + 5.84787, 6.65991, 6.82397 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01421, .00634, .89036, .50248, .00000,
407 + .00000, .29809, .50320,
408 + .01470, .00659, 1.78800, .52905, .00000,
409 + .00000, .32668, .52977,
410 + .01542, .00696, 3.43021, .57983, .00000,
411 + .00000, .38030, .58055,
412 + .01595, .00724, 4.86351, .62506, .02653,
413 + .00000, .42751, .62579,
414 + .01650, .00753, 6.49679, .68027, .09008,
415 + .00000, .48469, .68100,
416 + .01697, .00778, 8.10045, .73467, .14840,
417 + .00000, .54075, .73541,
418 + .01743, .00802, 9.82816, .79205, .21064,
419 + .00000, .59966, .79279,
420 + .01792, .00828, 11.86473, .85875, .28387,
421 + .00000, .66796, .85950 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01834, .00851, 13.77292, .92217, .35033,
424 + .00000, .73273, .92293,
425 + .01875, .00873, 15.75522, .98792, .41939,
426 + .00000, .79975, .98869,
427 + .01908, .00890, 17.44606, 1.04321, .47850,
428 + .00000, .85602, 1.04398,
429 + .01977, .00928, 21.20529, 1.17102, .61218,
430 + .01155, .98586, 1.17180,
431 + .02037, .00960, 24.57227, 1.29078, .73619,
432 + .15673, 1.10730, 1.29156,
433 + .02104, .00997, 28.64731, 1.43620, .88680,
434 + .33187, 1.25455, 1.43700,
435 + .02175, .01035, 33.23850, 1.59982, 1.05581,
436 + .50879, 1.42001, 1.60064,
437 + .02239, .01070, 37.69575, 1.75909, 1.21998,
438 + .68064, 1.58089, 1.75991 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02304, .01106, 42.47726, 1.93060, 1.39665,
441 + .86465, 1.75399, 1.93144,
442 + .02358, .01136, 46.63472, 2.08090, 1.55067,
443 + 1.02309, 1.90557, 2.08175,
444 + .02424, .01172, 51.89274, 2.27267, 1.74647,
445 + 1.22364, 2.09886, 2.27353,
446 + .02483, .01204, 56.76890, 2.45150, 1.92937,
447 + 1.41184, 2.27900, 2.45238,
448 + .02537, .01234, 61.42110, 2.62317, 2.10503,
449 + 1.59267, 2.45184, 2.62407,
450 + .02605, .01272, 67.47970, 2.85002, 2.33563,
451 + 1.82758, 2.68014, 2.85093,
452 + .02670, .01308, 73.40303, 3.07378, 2.56335,
453 + 2.06021, 2.90523, 3.07471,
454 + .02732, .01342, 79.16953, 3.29314, 2.78711,
455 + 2.28966, 3.12581, 3.29409 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02793, .01376, 85.00373, 3.51920, 3.01605,
458 + 2.52184, 3.35306, 3.52016,
459 + .02853, .01410, 90.89830, 3.74931, 3.24969,
460 + 2.75986, 3.58431, 3.75029,
461 + .02911, .01442, 96.61463, 3.97474, 3.47857,
462 + 2.99300, 3.81081, 3.97574,
463 + .02965, .01472, 102.05259, 4.19243, 3.69886,
464 + 3.21641, 4.02948, 4.19345,
465 + .03020, .01503, 107.68278, 4.41899, 3.92886,
466 + 3.45072, 4.25700, 4.42002,
467 + .03074, .01533, 113.21310, 4.64560, 4.15778,
468 + 3.68238, 4.48455, 4.64665,
469 + .03126, .01562, 118.63709, 4.86863, 4.38396,
470 + 3.91253, 4.70845, 4.86970,
471 + .03175, .01589, 123.73497, 5.08207, 4.59942,
472 + 4.13038, 4.92271, 5.08316 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03225, .01617, 129.00952, 5.30386, 4.82394,
475 + 4.35828, 5.14531, 5.30497,
476 + .03274, .01645, 134.21579, 5.52596, 5.04826,
477 + 4.58533, 5.36819, 5.52708,
478 + .03321, .01671, 139.24394, 5.74238, 5.26691,
479 + 4.80672, 5.58536, 5.74352,
480 + .03366, .01697, 144.08517, 5.95223, 5.47917,
481 + 5.02197, 5.79591, 5.95339,
482 + .03412, .01722, 148.93529, 6.16589, 5.69458,
483 + 5.23951, 6.01026, 6.16706 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .01922, .00871, .83860, .42522, .00000,
486 + .00000, .25257, .42505,
487 + .01990, .00908, 1.64666, .44927, .00000,
488 + .00000, .27822, .44911,
489 + .02091, .00963, 3.09004, .49384, .00000,
490 + .00000, .32502, .49370,
491 + .02164, .01003, 4.32212, .53268, .02252,
492 + .00000, .36541, .53257,
493 + .02240, .01045, 5.70005, .57929, .07618,
494 + .00000, .41356, .57919,
495 + .02306, .01082, 7.03138, .62457, .12476,
496 + .00000, .46013, .62448,
497 + .02369, .01117, 8.44685, .67185, .17608,
498 + .00000, .50861, .67178,
499 + .02437, .01154, 10.09392, .72630, .23591,
500 + .00000, .56431, .72625 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02495, .01187, 11.61763, .77754, .28966,
503 + .00000, .61660, .77752,
504 + .02552, .01219, 13.18375, .83024, .34508,
505 + .00000, .67028, .83023,
506 + .02597, .01244, 14.50823, .87430, .39223,
507 + .00000, .71511, .87430,
508 + .02692, .01297, 17.41410, .97515, .49784,
509 + .00940, .81754, .97519,
510 + .02775, .01343, 19.97463, 1.06862, .59476,
511 + .12299, .91232, 1.06869,
512 + .02867, .01395, 23.03109, 1.18100, .71130,
513 + .25918, 1.02610, 1.18110,
514 + .02963, .01450, 26.42619, 1.30610, .84068,
515 + .39506, 1.15263, 1.30624,
516 + .03051, .01499, 29.67850, 1.42666, .96512,
517 + .52574, 1.27444, 1.42683 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03140, .01549, 33.12479, 1.55531, 1.09781,
520 + .66437, 1.40432, 1.55551,
521 + .03214, .01591, 36.08778, 1.66708, 1.21250,
522 + .78268, 1.51709, 1.66732,
523 + .03304, .01642, 39.79404, 1.80851, 1.35709,
524 + .93119, 1.65969, 1.80879,
525 + .03383, .01687, 43.19487, 1.93935, 1.49108,
526 + 1.06946, 1.79153, 1.93966,
527 + .03457, .01729, 46.40940, 2.06406, 1.61885,
528 + 1.20137, 1.91715, 2.06440,
529 + .03550, .01782, 50.55047, 2.22750, 1.78520,
530 + 1.37126, 2.08170, 2.22788,
531 + .03638, .01832, 54.55672, 2.38741, 1.94816,
532 + 1.53817, 2.24264, 2.38784,
533 + .03721, .01879, 58.42054, 2.54307, 2.10716,
534 + 1.70166, 2.39924, 2.54353 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03804, .01926, 62.28871, 2.70220, 2.26851,
537 + 1.86568, 2.55929, 2.70270,
538 + .03885, .01973, 66.16357, 2.86311, 2.43212,
539 + 2.03278, 2.72108, 2.86366,
540 + .03962, .02017, 69.88950, 3.01973, 2.59135,
541 + 2.19539, 2.87852, 3.02032,
542 + .04035, .02058, 73.40279, 3.16998, 2.74359,
543 + 2.35013, 3.02952, 3.17060,
544 + .04109, .02100, 77.01593, 3.32551, 2.90171,
545 + 2.51163, 3.18580, 3.32616,
546 + .04181, .02142, 80.53297, 3.48006, 3.05803,
547 + 2.67017, 3.34107, 3.48075,
548 + .04251, .02181, 83.96243, 3.63144, 3.21179,
549 + 2.82702, 3.49313, 3.63217,
550 + .04316, .02219, 87.15832, 3.77543, 3.35733,
551 + 2.97450, 3.63775, 3.77619 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04383, .02256, 90.44739, 3.92441, 3.50837,
554 + 3.12817, 3.78736, 3.92521,
555 + .04449, .02294, 93.66962, 4.07278, 3.65844,
556 + 3.28041, 3.93634, 4.07361,
557 + .04512, .02330, 96.76295, 4.21670, 3.80404,
558 + 3.42818, 4.08083, 4.21756,
559 + .04572, .02364, 99.72530, 4.35566, 3.94482,
560 + 3.57128, 4.22033, 4.35656,
561 + .04632, .02399, 102.67111, 4.49641, 4.08692,
562 + 3.71508, 4.36162, 4.49734 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .02607, .01207, .79842, .36020, .00000,
565 + .00000, .21466, .35999,
566 + .02702, .01261, 1.52590, .38181, .00000,
567 + .00000, .23754, .38164,
568 + .02842, .01341, 2.79219, .42074, .00000,
569 + .00000, .27827, .42063,
570 + .02943, .01400, 3.84790, .45398, .01906,
571 + .00000, .31275, .45391,
572 + .03049, .01461, 5.00539, .49318, .06422,
573 + .00000, .35320, .49316,
574 + .03141, .01514, 6.10480, .53070, .10456,
575 + .00000, .39176, .53072,
576 + .03228, .01564, 7.25746, .56949, .14672,
577 + .00000, .43151, .56955,
578 + .03321, .01618, 8.58051, .61372, .19538,
579 + .00000, .47674, .61383 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03402, .01665, 9.78807, .65490, .23866,
582 + .00000, .51876, .65504,
583 + .03480, .01710, 11.01534, .69689, .28292,
584 + .00000, .56154, .69707,
585 + .03542, .01746, 12.04395, .73177, .32034,
586 + .00000, .59704, .73198,
587 + .03673, .01822, 14.26900, .81080, .40332,
588 + .00762, .67734, .81108,
589 + .03786, .01888, 16.19555, .88321, .47862,
590 + .09606, .75080, .88355,
591 + .03913, .01961, 18.46170, .96934, .56820,
592 + .20144, .83806, .96975,
593 + .04045, .02038, 20.94131, 1.06416, .66657,
594 + .30523, .93402, 1.06464,
595 + .04165, .02108, 23.28308, 1.15457, .76019,
596 + .40402, 1.02545, 1.15512 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04286, .02178, 25.73228, 1.25012, .85907,
599 + .50781, 1.12198, 1.25073,
600 + .04386, .02237, 27.81280, 1.33240, .94376,
601 + .59558, 1.20505, 1.33306,
602 + .04508, .02308, 30.38466, 1.43558, 1.04959,
603 + .70477, 1.30918, 1.43632,
604 + .04616, .02370, 32.71801, 1.53023, 1.14684,
605 + .80560, 1.40464, 1.53103,
606 + .04716, .02428, 34.90164, 1.61977, 1.23890,
607 + .90108, 1.49491, 1.62063,
608 + .04842, .02501, 37.68175, 1.73610, 1.35769,
609 + 1.02293, 1.61214, 1.73703,
610 + .04960, .02571, 40.34114, 1.84896, 1.47308,
611 + 1.14167, 1.72583, 1.84996,
612 + .05072, .02635, 42.88042, 1.95797, 1.58483,
613 + 1.25711, 1.83561, 1.95905 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05183, .02700, 45.39313, 2.06849, 1.69725,
616 + 1.37188, 1.94687, 2.06963,
617 + .05293, .02764, 47.88715, 2.17947, 1.81047,
618 + 1.48803, 2.05855, 2.18067,
619 + .05396, .02824, 50.26330, 2.28674, 1.91991,
620 + 1.60029, 2.16649, 2.28801,
621 + .05494, .02880, 52.48197, 2.38892, 2.02378,
622 + 1.70633, 2.26928, 2.39025,
623 + .05592, .02938, 54.74751, 2.49411, 2.13110,
624 + 1.81644, 2.37508, 2.49550,
625 + .05689, .02994, 56.93035, 2.59789, 2.23641,
626 + 1.92370, 2.47944, 2.59935,
627 + .05782, .03047, 59.04585, 2.69905, 2.33952,
628 + 2.02935, 2.58116, 2.70057,
629 + .05869, .03098, 60.99816, 2.79464, 2.43645,
630 + 2.12798, 2.67725, 2.79621 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .05957, .03149, 62.99603, 2.89309, 2.53661,
633 + 2.23034, 2.77621, 2.89472,
634 + .06045, .03200, 64.93672, 2.99056, 2.63552,
635 + 2.33111, 2.87418, 2.99224,
636 + .06128, .03248, 66.78748, 3.08465, 2.73104,
637 + 2.42846, 2.96873, 3.08638,
638 + .06207, .03294, 68.54951, 3.17509, 2.82298,
639 + 2.52234, 3.05962, 3.17688,
640 + .06288, .03340, 70.28646, 3.26618, 2.91524,
641 + 2.61609, 3.15115, 3.26802 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .03123, .01470, .78279, .32740, .00000,
644 + .00000, .19566, .32747,
645 + .03239, .01538, 1.46689, .34761, .00000,
646 + .00000, .21701, .34774,
647 + .03408, .01638, 2.63818, .38348, .00000,
648 + .00000, .25448, .38370,
649 + .03531, .01711, 3.60037, .41373, .01724,
650 + .00000, .28585, .41402,
651 + .03660, .01787, 4.64233, .44905, .05797,
652 + .00000, .32228, .44941,
653 + .03770, .01852, 5.62154, .48256, .09405,
654 + .00000, .35672, .48298,
655 + .03876, .01914, 6.63925, .51699, .13151,
656 + .00000, .39202, .51747,
657 + .03989, .01981, 7.79753, .55601, .17449,
658 + .00000, .43193, .55656 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .04086, .02038, 8.84585, .59209, .21248,
661 + .00000, .46877, .59270,
662 + .04180, .02094, 9.90383, .62870, .25115,
663 + .00000, .50609, .62935,
664 + .04255, .02138, 10.78562, .65899, .28370,
665 + .00000, .53694, .65970,
666 + .04413, .02232, 12.67622, .72719, .35546,
667 + .00672, .60627, .72798,
668 + .04549, .02312, 14.29517, .78923, .42012,
669 + .08281, .66925, .79011,
670 + .04701, .02402, 16.18208, .86253, .49656,
671 + .17313, .74359, .86351,
672 + .04859, .02495, 18.22735, .94267, .57992,
673 + .26139, .82476, .94374,
674 + .05003, .02580, 20.14179, 1.01859, .65876,
675 + .34488, .90159, 1.01976 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05147, .02665, 22.12769, 1.09835, .74151,
678 + .43205, .98224, 1.09960,
679 + .05268, .02736, 23.80189, 1.16663, .81201,
680 + .50536, 1.05125, 1.16797,
681 + .05413, .02822, 25.85609, 1.25181, .89962,
682 + .59608, 1.13727, 1.25324,
683 + .05542, .02898, 27.70656, 1.32953, .97971,
684 + .67942, 1.21573, 1.33104,
685 + .05661, .02968, 29.42742, 1.40271, 1.05517,
686 + .75797, 1.28958, 1.40430,
687 + .05811, .03056, 31.60191, 1.49727, 1.15201,
688 + .85766, 1.38496, 1.49896,
689 + .05952, .03139, 33.66714, 1.58853, 1.24560,
690 + .95430, 1.47697, 1.59032,
691 + .06084, .03216, 35.62668, 1.67627, 1.33581,
692 + 1.04783, 1.56541, 1.67815 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06216, .03294, 37.55106, 1.76475, 1.42607,
695 + 1.14030, 1.65456, 1.76671,
696 + .06346, .03370, 39.45002, 1.85320, 1.51658,
697 + 1.23350, 1.74367, 1.85525,
698 + .06468, .03442, 41.24856, 1.93835, 1.60370,
699 + 1.32319, 1.82941, 1.94048,
700 + .06584, .03509, 42.91718, 2.01908, 1.68602,
701 + 1.40753, 1.91071, 2.02129,
702 + .06700, .03577, 44.61341, 2.10192, 1.77079,
703 + 1.49482, 1.99410, 2.10421,
704 + .06814, .03644, 46.23659, 2.18327, 1.85358,
705 + 1.57944, 2.07599, 2.18564,
706 + .06923, .03707, 47.80375, 2.26234, 1.93442,
707 + 1.66258, 2.15556, 2.26478,
708 + .07026, .03767, 49.24052, 2.33672, 2.01007,
709 + 1.73983, 2.23041, 2.33924 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07130, .03828, 50.70566, 2.41314, 2.08805,
712 + 1.81980, 2.30729, 2.41572,
713 + .07232, .03888, 52.12072, 2.48850, 2.16476,
714 + 1.89824, 2.38311, 2.49116,
715 + .07330, .03945, 53.46436, 2.56103, 2.23861,
716 + 1.97378, 2.45607, 2.56375,
717 + .07423, .03999, 54.73871, 2.63056, 2.30951,
718 + 2.04643, 2.52601, 2.63335,
719 + .07517, .04053, 55.98736, 2.70033, 2.38038,
720 + 2.11871, 2.59618, 2.70318 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .03556, .01700, .77674, .30640, .00000,
723 + .00000, .18352, .30676,
724 + .03689, .01779, 1.43155, .32565, .00000,
725 + .00000, .20382, .32608,
726 + .03883, .01896, 2.53864, .35942, .00000,
727 + .00000, .23909, .35997,
728 + .04025, .01981, 3.43805, .38766, .01603,
729 + .00000, .26837, .38830,
730 + .04172, .02068, 4.40305, .42040, .05382,
731 + .00000, .30214, .42113,
732 + .04298, .02144, 5.30275, .45126, .08708,
733 + .00000, .33386, .45207,
734 + .04419, .02217, 6.23173, .48282, .12145,
735 + .00000, .36623, .48371,
736 + .04548, .02294, 7.28232, .51843, .16073,
737 + .00000, .40268, .51940 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .04659, .02360, 8.22722, .55120, .19527,
740 + .00000, .43616, .55224,
741 + .04767, .02425, 9.17585, .58431, .23031,
742 + .00000, .46993, .58543,
743 + .04852, .02476, 9.96321, .61164, .25973,
744 + .00000, .49778, .61281,
745 + .05033, .02584, 11.64012, .67287, .32427,
746 + .00613, .56008, .67416,
747 + .05187, .02676, 13.06412, .72827, .38214,
748 + .07432, .61637, .72966,
749 + .05360, .02779, 14.71239, .79342, .45022,
750 + .15505, .68248, .79493,
751 + .05540, .02886, 16.48641, .86428, .52408,
752 + .23348, .75431, .86591,
753 + .05703, .02983, 18.13585, .93108, .59360,
754 + .30732, .82197, .93282 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .05867, .03081, 19.83631, 1.00093, .66627,
757 + .38409, .89266, 1.00279,
758 + .06004, .03162, 21.26170, 1.06050, .72790,
759 + .44838, .95291, 1.06245,
760 + .06169, .03260, 23.00074, 1.13449, .80420,
761 + .52760, 1.02771, 1.13655,
762 + .06315, .03347, 24.55889, 1.20175, .87368,
763 + .60012, 1.09566, 1.20391,
764 + .06449, .03426, 26.00104, 1.26486, .93892,
765 + .66823, 1.15940, 1.26711,
766 + .06618, .03526, 27.81288, 1.34607, 1.02229,
767 + .75431, 1.24139, 1.34844,
768 + .06777, .03620, 29.52437, 1.42413, 1.10256,
769 + .83745, 1.32017, 1.42662,
770 + .06926, .03708, 31.14047, 1.49893, 1.17967,
771 + .91764, 1.39563, 1.50153 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07075, .03796, 32.71831, 1.57405, 1.25649,
774 + .99658, 1.47138, 1.57675,
775 + .07221, .03882, 34.26839, 1.64891, 1.33330,
776 + 1.07591, 1.54687, 1.65172,
777 + .07359, .03963, 35.72988, 1.72074, 1.40699,
778 + 1.15200, 1.61927, 1.72364,
779 + .07488, .04039, 37.07903, 1.78862, 1.47638,
780 + 1.22331, 1.68768, 1.79162,
781 + .07619, .04116, 38.44583, 1.85809, 1.54767,
782 + 1.29695, 1.75769, 1.86118,
783 + .07747, .04191, 39.74676, 1.92609, 1.61705,
784 + 1.36807, 1.82619, 1.92927,
785 + .07869, .04262, 40.99919, 1.99202, 1.68465,
786 + 1.43781, 1.89261, 1.99529,
787 + .07984, .04329, 42.14141, 2.05386, 1.74769,
788 + 1.50239, 1.95489, 2.05721 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08100, .04397, 43.30307, 2.11724, 1.81255,
791 + 1.56913, 2.01873, 2.12068,
792 + .08215, .04464, 44.41993, 2.17959, 1.87618,
793 + 1.63438, 2.08150, 2.18311,
794 + .08324, .04528, 45.47681, 2.23944, 1.93729,
795 + 1.69709, 2.14177, 2.24304,
796 + .08428, .04589, 46.47623, 2.29671, 1.99585,
797 + 1.75729, 2.19943, 2.30039,
798 + .08533, .04649, 47.45072, 2.35401, 2.05422,
799 + 1.81700, 2.25711, 2.35776 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .03940, .01918, .77871, .29203, .00000,
802 + .00000, .17500, .29243,
803 + .04088, .02007, 1.41112, .31052, .00000,
804 + .00000, .19448, .31102,
805 + .04305, .02139, 2.46931, .34269, .00000,
806 + .00000, .22803, .34333,
807 + .04463, .02234, 3.32113, .36940, .01512,
808 + .00000, .25571, .37014,
809 + .04626, .02333, 4.22799, .40017, .05067,
810 + .00000, .28745, .40102,
811 + .04767, .02418, 5.06785, .42904, .08181,
812 + .00000, .31712, .42999,
813 + .04902, .02499, 5.93032, .45845, .11387,
814 + .00000, .34728, .45949,
815 + .05045, .02586, 6.90050, .49151, .15037,
816 + .00000, .38113, .49265 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05168, .02660, 7.76852, .52181, .18236,
819 + .00000, .41209, .52304,
820 + .05287, .02732, 8.63616, .55234, .21470,
821 + .00000, .44324, .55365,
822 + .05382, .02789, 9.35380, .57748, .24180,
823 + .00000, .46886, .57885,
824 + .05582, .02909, 10.87364, .63358, .30102,
825 + .00569, .52596, .63509,
826 + .05753, .03012, 12.15519, .68413, .35390,
827 + .06808, .57734, .68576,
828 + .05944, .03126, 13.62998, .74333, .41587,
829 + .14177, .63744, .74509,
830 + .06143, .03245, 15.20792, .80744, .48282,
831 + .21302, .70246, .80935,
832 + .06323, .03353, 16.66681, .86764, .54559,
833 + .27985, .76347, .86968 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .06504, .03461, 18.16304, .93036, .61095,
836 + .34906, .82698, .93253,
837 + .06654, .03550, 19.41115, .98366, .66621,
838 + .40683, .88092, .98594,
839 + .06836, .03658, 20.92673, 1.04965, .73438,
840 + .47779, .94767, 1.05206,
841 + .06996, .03754, 22.27855, 1.10944, .79626,
842 + .54252, 1.00811, 1.11197,
843 + .07143, .03841, 23.52471, 1.16537, .85421,
844 + .60317, 1.06464, 1.16801,
845 + .07329, .03951, 25.08263, 1.23711, .92801,
846 + .67954, 1.13711, 1.23989,
847 + .07503, .04054, 26.54743, 1.30585, .99882,
848 + .75307, 1.20652, 1.30875,
849 + .07667, .04151, 27.92491, 1.37152, 1.06667,
850 + .82380, 1.27281, 1.37454 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .07830, .04247, 29.26313, 1.43725, 1.13403,
853 + .89319, 1.33915, 1.44039,
854 + .07989, .04341, 30.57278, 1.50258, 1.20120,
855 + .96273, 1.40506, 1.50584,
856 + .08140, .04429, 31.80276, 1.56509, 1.26548,
857 + 1.02928, 1.46812, 1.56846,
858 + .08281, .04512, 32.93354, 1.62400, 1.32583,
859 + 1.09145, 1.52754, 1.62748,
860 + .08423, .04596, 34.07595, 1.68417, 1.38771,
861 + 1.15554, 1.58821, 1.68776,
862 + .08563, .04677, 35.15788, 1.74289, 1.44775,
863 + 1.21724, 1.64741, 1.74658,
864 + .08696, .04755, 36.19698, 1.79973, 1.50616,
865 + 1.27766, 1.70471, 1.80351,
866 + .08821, .04828, 37.14016, 1.85288, 1.56048,
867 + 1.33344, 1.75829, 1.85676 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .08947, .04902, 38.09722, 1.90728, 1.61628,
870 + 1.39099, 1.81311, 1.91125,
871 + .09072, .04975, 39.01365, 1.96065, 1.67088,
872 + 1.44714, 1.86690, 1.96472,
873 + .09191, .05044, 39.87831, 2.01179, 1.72322,
874 + 1.50099, 1.91844, 2.01596,
875 + .09303, .05109, 40.69391, 2.06065, 1.77330,
876 + 1.55260, 1.96766, 2.06489,
877 + .09417, .05175, 41.48587, 2.10941, 1.82308,
878 + 1.60367, 2.01679, 2.11374 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .05454, .02826, .80541, .25284, .00000,
881 + .00000, .15203, .25386,
882 + .05663, .02956, 1.37157, .26907, .00000,
883 + .00000, .16909, .27025,
884 + .05968, .03146, 2.28533, .29651, .00000,
885 + .00000, .19769, .29792,
886 + .06189, .03282, 2.99849, .31878, .01251,
887 + .00000, .22078, .32037,
888 + .06417, .03422, 3.73843, .34396, .04173,
889 + .00000, .24677, .34572,
890 + .06612, .03543, 4.40863, .36719, .06693,
891 + .00000, .27068, .36910,
892 + .06799, .03657, 5.08431, .39056, .09254,
893 + .00000, .29469, .39262,
894 + .06997, .03778, 5.83099, .41652, .12136,
895 + .00000, .32132, .41874 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .07168, .03883, 6.48745, .44001, .14630,
898 + .00000, .34537, .44237,
899 + .07332, .03983, 7.13405, .46343, .17128,
900 + .00000, .36932, .46592,
901 + .07461, .04062, 7.66265, .48257, .19205,
902 + .00000, .38887, .48515,
903 + .07735, .04228, 8.76110, .52473, .23688,
904 + .00447, .43190, .52754,
905 + .07968, .04369, 9.66511, .56219, .27636,
906 + .05130, .47007, .56518,
907 + .08228, .04526, 10.68520, .60547, .32202,
908 + .10619, .51413, .60867,
909 + .08497, .04687, 11.75491, .65169, .37068,
910 + .15843, .56114, .65510,
911 + .08740, .04833, 12.72512, .69451, .41571,
912 + .20681, .60466, .69812 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .08983, .04978, 13.70266, .73858, .46204,
915 + .25632, .64942, .74238,
916 + .09184, .05098, 14.50461, .77559, .50076,
917 + .29718, .68700, .77956,
918 + .09426, .05242, 15.46248, .82091, .54800,
919 + .34681, .73297, .82506,
920 + .09640, .05369, 16.30354, .86151, .59043,
921 + .39163, .77416, .86584,
922 + .09835, .05484, 17.06816, .89914, .62978,
923 + .43322, .81231, .90363,
924 + .10080, .05629, 18.00762, .94685, .67933,
925 + .48501, .86067, .95154,
926 + .10310, .05764, 18.87675, .99207, .72638,
927 + .53435, .90649, .99694,
928 + .10525, .05890, 19.68255, 1.03484, .77102,
929 + .58137, .94982, 1.03989 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .10737, .06015, 20.45109, 1.07717, .81484,
932 + .62696, .99269, 1.08238,
933 + .10945, .06136, 21.19327, 1.11886, .85816,
934 + .67229, 1.03490, 1.12424,
935 + .11141, .06250, 21.88066, 1.15840, .89924,
936 + .71527, 1.07493, 1.16394,
937 + .11324, .06356, 22.50256, 1.19530, .93745,
938 + .75505, 1.11228, 1.20098,
939 + .11508, .06463, 23.12455, 1.23272, .97636,
940 + .79579, 1.15017, 1.23856,
941 + .11688, .06567, 23.70303, 1.26887, 1.01374,
942 + .83462, 1.18676, 1.27485,
943 + .11859, .06666, 24.25408, 1.30366, 1.04989,
944 + .87243, 1.22196, 1.30978,
945 + .12019, .06758, 24.74519, 1.33588, 1.08319,
946 + .90701, 1.25456, 1.34212 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12180, .06851, 25.23965, 1.36867, 1.11721,
949 + .94250, 1.28774, 1.37504,
950 + .12339, .06942, 25.70567, 1.40057, 1.15023,
951 + .97684, 1.32002, 1.40707,
952 + .12490, .07028, 26.14047, 1.43094, 1.18168,
953 + 1.00958, 1.35075, 1.43756,
954 + .12633, .07110, 26.54672, 1.45978, 1.21161,
955 + 1.04078, 1.37993, 1.46652,
956 + .12777, .07191, 26.93410, 1.48832, 1.24110,
957 + 1.07139, 1.40881, 1.49517 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .07680, .04282, .88798, .22258, .00000,
960 + .00000, .13420, .22477,
961 + .07976, .04466, 1.38828, .23663, .00000,
962 + .00000, .14897, .23908,
963 + .08407, .04733, 2.16153, .25960, .00000,
964 + .00000, .17297, .26243,
965 + .08715, .04924, 2.74406, .27780, .01019,
966 + .00000, .19189, .28090,
967 + .09032, .05118, 3.33137, .29795, .03383,
968 + .00000, .21277, .30133,
969 + .09303, .05283, 3.84995, .31619, .05385,
970 + .00000, .23162, .31981,
971 + .09560, .05440, 4.36172, .33429, .07391,
972 + .00000, .25029, .33815,
973 + .09832, .05605, 4.91583, .35413, .09619,
974 + .00000, .27073, .35822 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .10066, .05746, 5.39336, .37182, .11520,
977 + .00000, .28893, .37612,
978 + .10289, .05881, 5.85567, .38924, .13403,
979 + .00000, .30684, .39374,
980 + .10466, .05988, 6.22848, .40336, .14954,
981 + .00000, .32133, .40801,
982 + .10837, .06209, 6.98590, .43401, .18258,
983 + .00344, .35277, .43899,
984 + .11150, .06396, 7.59079, .46080, .21121,
985 + .03768, .38021, .46605,
986 + .11498, .06602, 8.25751, .49128, .24384,
987 + .07747, .41141, .49684,
988 + .11856, .06813, 8.94007, .52329, .27806,
989 + .11468, .44416, .52916,
990 + .12177, .07002, 9.54480, .55249, .30926,
991 + .14864, .47401, .55864 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .12498, .07190, 10.14086, .58212, .34092,
994 + .18292, .50429, .58855,
995 + .12762, .07343, 10.61976, .60667, .36703,
996 + .21084, .52937, .61333,
997 + .13078, .07526, 11.18004, .63631, .39847,
998 + .24434, .55964, .64324,
999 + .13355, .07686, 11.66240, .66254, .42637,
1000 + .27424, .58642, .66971,
1001 + .13608, .07832, 12.09321, .68658, .45197,
1002 + .30169, .61096, .69397,
1003 + .13924, .08012, 12.61039, .71664, .48377,
1004 + .33542, .64163, .72430,
1005 + .14218, .08180, 13.07889, .74475, .51359,
1006 + .36718, .67032, .75267,
1007 + .14492, .08336, 13.50533, .77105, .54158,
1008 + .39713, .69716, .77920 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .14761, .08489, 13.90146, .79670, .56867,
1011 + .42577, .72333, .80507,
1012 + .15024, .08636, 14.27725, .82169, .59519,
1013 + .45397, .74883, .83030,
1014 + .15270, .08775, 14.61864, .84515, .62008,
1015 + .48044, .77276, .85396,
1016 + .15499, .08903, 14.92014, .86677, .64296,
1017 + .50467, .79482, .87577,
1018 + .15729, .09031, 15.21765, .88851, .66609,
1019 + .52931, .81702, .89771,
1020 + .15952, .09155, 15.48652, .90925, .68802,
1021 + .55250, .83818, .91863,
1022 + .16163, .09272, 15.73996, .92907, .70910,
1023 + .57495, .85841, .93863,
1024 + .16360, .09381, 15.95885, .94719, .72828,
1025 + .59524, .87691, .95692 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .16559, .09490, 16.17686, .96552, .74777,
1028 + .61595, .89562, .97542,
1029 + .16753, .09597, 16.37712, .98316, .76648,
1030 + .63579, .91363, .99321,
1031 + .16937, .09698, 16.56075, .99982, .78417,
1032 + .65456, .93064, 1.01002,
1033 + .17110, .09793, 16.72968, 1.01552, .80089,
1034 + .67234, .94668, 1.02587,
1035 + .17284, .09887, 16.88521, 1.03088, .81719,
1036 + .68960, .96238, 1.04137 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .09481, .05514, .97078, .20814, .00000,
1039 + .00000, .12581, .21157,
1040 + .09843, .05736, 1.42811, .22089, .00000,
1041 + .00000, .13927, .22467,
1042 + .10366, .06056, 2.11801, .24132, .00000,
1043 + .00000, .16070, .24559,
1044 + .10740, .06283, 2.62589, .25725, .00896,
1045 + .00000, .17734, .26187,
1046 + .11122, .06514, 3.12842, .27465, .02963,
1047 + .00000, .19546, .27963,
1048 + .11447, .06709, 3.56491, .29022, .04694,
1049 + .00000, .21163, .29550,
1050 + .11756, .06893, 3.98965, .30552, .06411,
1051 + .00000, .22751, .31109,
1052 + .12081, .07087, 4.44336, .32214, .08303,
1053 + .00000, .24472, .32801 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .12359, .07251, 4.82921, .33682, .09901,
1056 + .00000, .25991, .34295,
1057 + .12624, .07408, 5.19851, .35117, .11474,
1058 + .00000, .27474, .35754,
1059 + .12834, .07531, 5.49362, .36272, .12762,
1060 + .00000, .28667, .36929,
1061 + .13272, .07787, 6.08367, .38757, .15479,
1062 + .00292, .31231, .39454,
1063 + .13640, .08001, 6.54492, .40905, .17809,
1064 + .03098, .33445, .41635,
1065 + .14048, .08237, 7.04489, .43324, .20439,
1066 + .06342, .35936, .44091,
1067 + .14465, .08476, 7.54807, .45836, .23169,
1068 + .09340, .38522, .46641,
1069 + .14838, .08689, 7.98654, .48103, .25633,
1070 + .12050, .40856, .48942 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .15209, .08900, 8.41205, .50381, .28109,
1073 + .14762, .43200, .51253,
1074 + .15513, .09072, 8.74862, .52251, .30135,
1075 + .16952, .45124, .53150,
1076 + .15876, .09276, 9.13640, .54489, .32552,
1077 + .19557, .47425, .55420,
1078 + .16193, .09454, 9.46525, .56451, .34680,
1079 + .21865, .49444, .57411,
1080 + .16482, .09614, 9.75488, .58236, .36619,
1081 + .23969, .51280, .59221,
1082 + .16840, .09813, 10.09633, .60445, .39004,
1083 + .26532, .53552, .61461,
1084 + .17173, .09996, 10.40051, .62493, .41222,
1085 + .28925, .55659, .63538,
1086 + .17482, .10166, 10.67329, .64393, .43290,
1087 + .31167, .57614, .65466 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .17785, .10331, 10.92080, .66228, .45271,
1090 + .33292, .59502, .67326,
1091 + .18078, .10491, 11.15212, .68002, .47198,
1092 + .35370, .61329, .69126,
1093 + .18353, .10639, 11.35874, .69654, .48993,
1094 + .37309, .63030, .70801,
1095 + .18608, .10776, 11.53723, .71164, .50630,
1096 + .39069, .64584, .72332,
1097 + .18863, .10913, 11.71141, .72673, .52277,
1098 + .40850, .66140, .73864,
1099 + .19108, .11044, 11.86421, .74098, .53824,
1100 + .42512, .67609, .75309,
1101 + .19341, .11168, 12.00701, .75454, .55305,
1102 + .44116, .69007, .76685,
1103 + .19558, .11282, 12.12629, .76681, .56641,
1104 + .45553, .70273, .77930 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .19775, .11397, 12.24398, .77916, .57992,
1107 + .47014, .71548, .79184,
1108 + .19986, .11508, 12.34867, .79095, .59281,
1109 + .48404, .72765, .80380,
1110 + .20186, .11613, 12.44269, .80202, .60492,
1111 + .49713, .73908, .81503,
1112 + .20375, .11712, 12.52772, .81240, .61632,
1113 + .50948, .74981, .82556,
1114 + .20563, .11809, 12.60244, .82245, .62733,
1115 + .52137, .76020, .83577 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .11075, .06621, 1.04773, .19917, .00000,
1118 + .00000, .12068, .20390,
1119 + .11491, .06873, 1.47173, .21097, .00000,
1120 + .00000, .13319, .21611,
1121 + .12090, .07232, 2.10045, .22959, .00000,
1122 + .00000, .15282, .23531,
1123 + .12516, .07486, 2.55521, .24393, .00813,
1124 + .00000, .16789, .25006,
1125 + .12950, .07742, 2.99868, .25943, .02680,
1126 + .00000, .18413, .26599,
1127 + .13318, .07958, 3.37909, .27318, .04230,
1128 + .00000, .19848, .28009,
1129 + .13667, .08162, 3.74524, .28659, .05757,
1130 + .00000, .21249, .29384,
1131 + .14033, .08375, 4.13229, .30106, .07427,
1132 + .00000, .22756, .30865 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .14346, .08556, 4.45806, .31374, .08829,
1135 + .00000, .24076, .32163,
1136 + .14644, .08727, 4.76705, .32606, .10199,
1137 + .00000, .25358, .33423,
1138 + .14878, .08862, 5.01220, .33593, .11317,
1139 + .00000, .26384, .34432,
1140 + .15367, .09140, 5.49604, .35701, .13658,
1141 + .00257, .28573, .36586,
1142 + .15777, .09372, 5.86740, .37507, .15650,
1143 + .02671, .30447, .38430,
1144 + .16228, .09626, 6.26450, .39524, .17881,
1145 + .05450, .32539, .40489,
1146 + .16689, .09883, 6.65855, .41601, .20177,
1147 + .07995, .34693, .42608,
1148 + .17099, .10111, 6.99712, .43460, .22234,
1149 + .10279, .36620, .44504 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .17506, .10335, 7.32130, .45312, .24287,
1152 + .12549, .38540, .46393,
1153 + .17838, .10517, 7.57429, .46821, .25954,
1154 + .14370, .40106, .47933,
1155 + .18233, .10733, 7.86175, .48614, .27930,
1156 + .16522, .41964, .49761,
1157 + .18578, .10919, 8.10230, .50175, .29659,
1158 + .18418, .43584, .51352,
1159 + .18890, .11087, 8.31159, .51585, .31225,
1160 + .20137, .45047, .52790,
1161 + .19277, .11295, 8.55400, .53317, .33137,
1162 + .22215, .46844, .54556,
1163 + .19635, .11485, 8.76654, .54910, .34904,
1164 + .24146, .48499, .56180,
1165 + .19967, .11661, 8.95448, .56379, .36542,
1166 + .25944, .50025, .57678 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20290, .11831, 9.12095, .57785, .38099,
1169 + .27635, .51485, .59111,
1170 + .20603, .11994, 9.27419, .59136, .39604,
1171 + .29282, .52890, .60488,
1172 + .20894, .12146, 9.40864, .60385, .41000,
1173 + .30809, .54191, .61762,
1174 + .21164, .12286, 9.52187, .61517, .42264,
1175 + .32188, .55370, .62918,
1176 + .21433, .12425, 9.63105, .62645, .43530,
1177 + .33578, .56545, .64068,
1178 + .21692, .12557, 9.72340, .63699, .44710,
1179 + .34867, .57645, .65143,
1180 + .21937, .12682, 9.80892, .64699, .45837,
1181 + .36106, .58689, .66163,
1182 + .22163, .12796, 9.87717, .65595, .46846,
1183 + .37209, .59625, .67078 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .22390, .12911, 9.94376, .66494, .47863,
1186 + .38328, .60566, .67996,
1187 + .22610, .13022, 10.00038, .67346, .48826,
1188 + .39386, .61457, .68865,
1189 + .22818, .13126, 10.04972, .68141, .49728,
1190 + .40378, .62289, .69677,
1191 + .23013, .13224, 10.09319, .68883, .50574,
1192 + .41311, .63067, .70434,
1193 + .23207, .13320, 10.12839, .69594, .51385,
1194 + .42203, .63814, .71162 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .12539, .07642, 1.11663, .19272, .00000,
1197 + .00000, .11708, .19879,
1198 + .13001, .07915, 1.51318, .20374, .00000,
1199 + .00000, .12884, .21027,
1200 + .13664, .08305, 2.09283, .22093, .00000,
1201 + .00000, .14708, .22812,
1202 + .14134, .08578, 2.50605, .23404, .00750,
1203 + .00000, .16093, .24170,
1204 + .14611, .08854, 2.90417, .24810, .02468,
1205 + .00000, .17575, .25622,
1206 + .15014, .09086, 3.24216, .26046, .03883,
1207 + .00000, .18874, .26897,
1208 + .15396, .09304, 3.56453, .27245, .05269,
1209 + .00000, .20134, .28134,
1210 + .15795, .09530, 3.90234, .28531, .06777,
1211 + .00000, .21483, .29458 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .16136, .09722, 4.18415, .29651, .08035,
1214 + .00000, .22657, .30611,
1215 + .16459, .09904, 4.44943, .30733, .09259,
1216 + .00000, .23791, .31724,
1217 + .16713, .10046, 4.65866, .31597, .10253,
1218 + .00000, .24695, .32612,
1219 + .17242, .10340, 5.06683, .33430, .12325,
1220 + .00232, .26613, .34495,
1221 + .17684, .10583, 5.37489, .34990, .14075,
1222 + .02366, .28243, .36096,
1223 + .18169, .10848, 5.70050, .36719, .16022,
1224 + .04814, .30050, .37870,
1225 + .18662, .11116, 6.01951, .38485, .18013,
1226 + .07039, .31896, .39682,
1227 + .19100, .11352, 6.29002, .40055, .19785,
1228 + .09024, .33537, .41291 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .19534, .11584, 6.54588, .41609, .21543,
1231 + .10986, .35162, .42884,
1232 + .19887, .11771, 6.74307, .42867, .22962,
1233 + .12551, .36478, .44174,
1234 + .20305, .11992, 6.96398, .44351, .24635,
1235 + .14391, .38031, .45695,
1236 + .20669, .12183, 7.14652, .45635, .26091,
1237 + .16004, .39375, .47012,
1238 + .20997, .12354, 7.30353, .46789, .27403,
1239 + .17460, .40584, .48194,
1240 + .21403, .12564, 7.48205, .48196, .28996,
1241 + .19210, .42059, .49636,
1242 + .21777, .12757, 7.63597, .49481, .30459,
1243 + .20828, .43407, .50953,
1244 + .22123, .12934, 7.77005, .50659, .31808,
1245 + .22327, .44644, .52161 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .22459, .13104, 7.88566, .51776, .33083,
1248 + .23729, .45819, .53306,
1249 + .22783, .13267, 7.99031, .52845, .34310,
1250 + .25089, .46944, .54402,
1251 + .23085, .13418, 8.08024, .53827, .35441,
1252 + .26345, .47979, .55409,
1253 + .23363, .13556, 8.15341, .54711, .36459,
1254 + .27472, .48911, .56315,
1255 + .23640, .13693, 8.22286, .55587, .37476,
1256 + .28605, .49836, .57214,
1257 + .23904, .13824, 8.27870, .56399, .38418,
1258 + .29650, .50696, .58048,
1259 + .24155, .13946, 8.32982, .57166, .39315,
1260 + .30651, .51508, .58835,
1261 + .24385, .14058, 8.36785, .57848, .40113,
1262 + .31538, .52231, .59535 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .24617, .14170, 8.40435, .58529, .40915,
1265 + .32435, .52955, .60234,
1266 + .24840, .14278, 8.43287, .59169, .41670,
1267 + .33279, .53636, .60892,
1268 + .25051, .14378, 8.45623, .59763, .42374,
1269 + .34068, .54269, .61502,
1270 + .25249, .14473, 8.47574, .60315, .43032,
1271 + .34808, .54858, .62070,
1272 + .25444, .14565, 8.48851, .60839, .43659,
1273 + .35512, .55419, .62609 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .15221, .09496, 1.23390, .18349, .00000,
1276 + .00000, .11213, .19229,
1277 + .15756, .09801, 1.58534, .19327, .00000,
1278 + .00000, .12270, .20262,
1279 + .16521, .10231, 2.08751, .20823, .00000,
1280 + .00000, .13880, .21836,
1281 + .17061, .10532, 2.43716, .21946, .00658,
1282 + .00000, .15083, .23012,
1283 + .17604, .10832, 2.76720, .23133, .02158,
1284 + .00000, .16353, .24254,
1285 + .18062, .11083, 3.04278, .24165, .03378,
1286 + .00000, .17453, .25330,
1287 + .18494, .11318, 3.30171, .25155, .04562,
1288 + .00000, .18509, .26362,
1289 + .18944, .11561, 3.56910, .26207, .05838,
1290 + .00000, .19629, .27457 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .19325, .11766, 3.78889, .27113, .06892,
1293 + .00000, .20594, .28400,
1294 + .19687, .11959, 3.99307, .27981, .07910,
1295 + .00000, .21518, .29303,
1296 + .19970, .12109, 4.15248, .28670, .08733,
1297 + .00000, .22250, .30018,
1298 + .20556, .12418, 4.45712, .30116, .10428,
1299 + .00197, .23787, .31519,
1300 + .21042, .12672, 4.67995, .31331, .11846,
1301 + .01944, .25078, .32778,
1302 + .21573, .12947, 4.91020, .32662, .13407,
1303 + .03938, .26493, .34158,
1304 + .22111, .13222, 5.13056, .34004, .14985,
1305 + .05730, .27920, .35548,
1306 + .22585, .13463, 5.31292, .35181, .16374,
1307 + .07312, .29174, .36768 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23052, .13698, 5.48127, .36333, .17739,
1310 + .08861, .30402, .37961,
1311 + .23430, .13886, 5.60766, .37254, .18830,
1312 + .10086, .31385, .38914,
1313 + .23875, .14107, 5.74536, .38328, .20104,
1314 + .11514, .32533, .40026,
1315 + .24260, .14296, 5.85602, .39247, .21203,
1316 + .12755, .33517, .40978,
1317 + .24607, .14465, 5.94864, .40065, .22185,
1318 + .13868, .34393, .41825,
1319 + .25032, .14670, 6.04949, .41048, .23366,
1320 + .15194, .35448, .42843,
1321 + .25423, .14857, 6.13300, .41935, .24440,
1322 + .16408, .36403, .43762,
1323 + .25782, .15027, 6.20308, .42739, .25422,
1324 + .17526, .37270, .44595 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26128, .15190, 6.25902, .43490, .26339,
1327 + .18560, .38082, .45373,
1328 + .26460, .15345, 6.30711, .44200, .27215,
1329 + .19556, .38851, .46109,
1330 + .26768, .15487, 6.34562, .44845, .28016,
1331 + .20470, .39552, .46778,
1332 + .27050, .15615, 6.37332, .45417, .28729,
1333 + .21282, .40175, .47371,
1334 + .27329, .15743, 6.39816, .45979, .29438,
1335 + .22095, .40789, .47954,
1336 + .27595, .15862, 6.41352, .46490, .30086,
1337 + .22837, .41350, .48485,
1338 + .27845, .15975, 6.42674, .46971, .30701,
1339 + .23546, .41879, .48984,
1340 + .28074, .16076, 6.43175, .47389, .31240,
1341 + .24166, .42340, .49419 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28303, .16177, 6.43554, .47805, .31781,
1344 + .24792, .42800, .49851,
1345 + .28523, .16273, 6.43404, .48188, .32284,
1346 + .25376, .43226, .50250,
1347 + .28730, .16362, 6.43001, .48539, .32750,
1348 + .25919, .43619, .50616,
1349 + .28923, .16445, 6.42443, .48863, .33183,
1350 + .26425, .43981, .50953,
1351 + .29112, .16526, 6.41399, .49163, .33590,
1352 + .26901, .44319, .51265 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .18861, .11952, 1.36810, .17371, .00000,
1355 + .00000, .10720, .18668,
1356 + .19478, .12280, 1.66592, .18204, .00000,
1357 + .00000, .11641, .19563,
1358 + .20351, .12741, 2.08067, .19450, .00000,
1359 + .00000, .13015, .20896,
1360 + .20961, .13059, 2.36144, .20368, .00563,
1361 + .00000, .14023, .21874,
1362 + .21572, .13375, 2.61974, .21324, .01838,
1363 + .00000, .15069, .22888,
1364 + .22084, .13636, 2.83105, .22140, .02861,
1365 + .00000, .15962, .23754,
1366 + .22564, .13879, 3.02600, .22915, .03842,
1367 + .00000, .16810, .24574,
1368 + .23061, .14128, 3.22374, .23729, .04888,
1369 + .00000, .17698, .25433 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .23481, .14337, 3.38325, .24420, .05742,
1372 + .00000, .18454, .26163,
1373 + .23876, .14532, 3.52891, .25076, .06560,
1374 + .00000, .19171, .26855,
1375 + .24185, .14684, 3.64114, .25591, .07217,
1376 + .00000, .19735, .27399,
1377 + .24819, .14992, 3.84931, .26661, .08555,
1378 + .00162, .20904, .28524,
1379 + .25341, .15243, 3.99431, .27544, .09659,
1380 + .01544, .21871, .29453,
1381 + .25907, .15511, 4.13926, .28497, .10859,
1382 + .03112, .22915, .30454,
1383 + .26475, .15777, 4.27307, .29442, .12057,
1384 + .04502, .23953, .31446,
1385 + .26972, .16007, 4.37945, .30257, .13098,
1386 + .05714, .24851, .32302 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .27457, .16229, 4.47364, .31041, .14109,
1389 + .06889, .25718, .33125,
1390 + .27847, .16405, 4.54096, .31658, .14908,
1391 + .07809, .26401, .33773,
1392 + .28303, .16609, 4.61038, .32365, .15830,
1393 + .08870, .27188, .34515,
1394 + .28695, .16782, 4.66303, .32961, .16617,
1395 + .09784, .27852, .35141,
1396 + .29044, .16935, 4.70443, .33484, .17313,
1397 + .10596, .28437, .35688,
1398 + .29471, .17118, 4.74458, .34098, .18138,
1399 + .11553, .29129, .36334,
1400 + .29858, .17283, 4.77391, .34643, .18881,
1401 + .12420, .29746, .36906,
1402 + .30212, .17432, 4.79540, .35128, .19553,
1403 + .13212, .30298, .37416 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .30549, .17571, 4.80691, .35570, .20171,
1406 + .13936, .30804, .37880,
1407 + .30870, .17702, 4.81360, .35981, .20756,
1408 + .14627, .31277, .38312,
1409 + .31167, .17822, 4.81517, .36345, .21285,
1410 + .15256, .31700, .38696,
1411 + .31434, .17928, 4.81085, .36660, .21749,
1412 + .15808, .32068, .39027,
1413 + .31699, .18032, 4.80463, .36965, .22207,
1414 + .16358, .32428, .39348,
1415 + .31948, .18128, 4.79246, .37233, .22619,
1416 + .16853, .32747, .39630,
1417 + .32181, .18217, 4.78018, .37482, .23008,
1418 + .17324, .33046, .39893,
1419 + .32392, .18296, 4.76370, .37690, .23343,
1420 + .17731, .33299, .40112 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .32602, .18374, 4.74648, .37894, .23677,
1423 + .18140, .33549, .40328,
1424 + .32802, .18446, 4.72612, .38074, .23982,
1425 + .18517, .33774, .40519,
1426 + .32988, .18513, 4.70517, .38235, .24263,
1427 + .18864, .33977, .40690,
1428 + .33162, .18575, 4.68435, .38380, .24521,
1429 + .19187, .34162, .40845,
1430 + .33329, .18633, 4.66038, .38507, .24759,
1431 + .19486, .34328, .40980 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .24328, .15450, 1.50983, .16126, .00000,
1434 + .00000, .10135, .18111,
1435 + .25024, .15784, 1.73955, .16774, .00000,
1436 + .00000, .10884, .18823,
1437 + .25998, .16243, 2.04891, .17717, .00000,
1438 + .00000, .11972, .19854,
1439 + .26671, .16555, 2.25041, .18393, .00456,
1440 + .00000, .12751, .20591,
1441 + .27338, .16860, 2.42857, .19084, .01480,
1442 + .00000, .13544, .21338,
1443 + .27891, .17109, 2.57025, .19662, .02288,
1444 + .00000, .14207, .21962,
1445 + .28405, .17338, 2.69756, .20201, .03052,
1446 + .00000, .14827, .22543,
1447 + .28933, .17570, 2.82328, .20757, .03856,
1448 + .00000, .15468, .23142 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29375, .17762, 2.92167, .21221, .04503,
1451 + .00000, .16003, .23640,
1452 + .29788, .17939, 3.00908, .21654, .05116,
1453 + .00000, .16504, .24105,
1454 + .30108, .18076, 3.07508, .21991, .05603,
1455 + .00000, .16894, .24466,
1456 + .30759, .18350, 3.19062, .22676, .06582,
1457 + .00126, .17688, .25198,
1458 + .31289, .18566, 3.26308, .23228, .07377,
1459 + .01144, .18331, .25788,
1460 + .31855, .18795, 3.33033, .23809, .08227,
1461 + .02291, .19012, .26408,
1462 + .32416, .19017, 3.38717, .24369, .09061,
1463 + .03291, .19672, .27004,
1464 + .32899, .19205, 3.42757, .24838, .09774,
1465 + .04150, .20229, .27503 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .33366, .19381, 3.45886, .25277, .10456,
1468 + .04972, .20756, .27970,
1469 + .33736, .19518, 3.47729, .25612, .10986,
1470 + .05606, .21162, .28326,
1471 + .34164, .19672, 3.49127, .25984, .11588,
1472 + .06329, .21618, .28721,
1473 + .34526, .19800, 3.49781, .26288, .12094,
1474 + .06944, .21994, .29043,
1475 + .34845, .19911, 3.49937, .26547, .12537,
1476 + .07485, .22318, .29318,
1477 + .35227, .20039, 3.49345, .26837, .13051,
1478 + .08113, .22689, .29626,
1479 + .35569, .20151, 3.48277, .27084, .13506,
1480 + .08675, .23010, .29887,
1481 + .35878, .20249, 3.46930, .27296, .13913,
1482 + .09181, .23290, .30110 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36167, .20336, 3.44991, .27474, .14278,
1485 + .09637, .23534, .30299,
1486 + .36438, .20416, 3.42850, .27632, .14618,
1487 + .10068, .23757, .30467,
1488 + .36683, .20487, 3.40567, .27766, .14921,
1489 + .10454, .23950, .30607,
1490 + .36901, .20546, 3.38096, .27871, .15181,
1491 + .10790, .24108, .30717,
1492 + .37114, .20602, 3.35541, .27967, .15435,
1493 + .11120, .24260, .30819,
1494 + .37309, .20650, 3.32694, .28040, .15657,
1495 + .11412, .24384, .30895,
1496 + .37491, .20694, 3.29985, .28105, .15865,
1497 + .11689, .24499, .30963,
1498 + .37650, .20730, 3.27163, .28147, .16039,
1499 + .11923, .24586, .31007 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .37808, .20764, 3.24318, .28186, .16210,
1502 + .12156, .24671, .31047,
1503 + .37954, .20793, 3.21347, .28210, .16363,
1504 + .12368, .24739, .31071,
1505 + .38088, .20818, 3.18458, .28227, .16500,
1506 + .12562, .24796, .31087,
1507 + .38212, .20840, 3.15690, .28237, .16625,
1508 + .12739, .24846, .31097,
1509 + .38327, .20857, 3.12743, .28234, .16735,
1510 + .12900, .24882, .31093 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .29298, .18410, 1.57981, .15046, .00000,
1513 + .00000, .09648, .17683,
1514 + .30026, .18719, 1.75775, .15550, .00000,
1515 + .00000, .10263, .18244,
1516 + .31033, .19139, 1.99062, .16267, .00000,
1517 + .00000, .11137, .19037,
1518 + .31721, .19420, 2.13696, .16772, .00381,
1519 + .00000, .11751, .19592,
1520 + .32395, .19688, 2.26103, .17277, .01230,
1521 + .00000, .12366, .20144,
1522 + .32948, .19903, 2.35695, .17692, .01892,
1523 + .00000, .12872, .20595,
1524 + .33458, .20099, 2.44087, .18074, .02511,
1525 + .00000, .13338, .21008,
1526 + .33977, .20296, 2.52143, .18462, .03155,
1527 + .00000, .13814, .21427 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .34407, .20455, 2.58228, .18779, .03668,
1530 + .00000, .14206, .21769,
1531 + .34806, .20600, 2.63458, .19070, .04150,
1532 + .00000, .14567, .22082,
1533 + .35114, .20711, 2.67313, .19295, .04531,
1534 + .00000, .14846, .22322,
1535 + .35733, .20925, 2.73503, .19741, .05287,
1536 + .00102, .15406, .22799,
1537 + .36227, .21092, 2.76678, .20091, .05892,
1538 + .00895, .15849, .23173,
1539 + .36750, .21261, 2.79153, .20450, .06532,
1540 + .01783, .16310, .23553,
1541 + .37259, .21421, 2.80758, .20784, .07151,
1542 + .02546, .16745, .23905,
1543 + .37692, .21550, 2.81404, .21054, .07673,
1544 + .03196, .17104, .24189 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .38103, .21667, 2.81376, .21297, .08165,
1547 + .03810, .17435, .24444,
1548 + .38424, .21755, 2.80828, .21473, .08544,
1549 + .04280, .17683, .24628,
1550 + .38787, .21849, 2.79592, .21661, .08967,
1551 + .04809, .17953, .24822,
1552 + .39090, .21923, 2.78120, .21807, .09319,
1553 + .05256, .18170, .24970,
1554 + .39354, .21983, 2.76493, .21923, .09623,
1555 + .05645, .18352, .25089,
1556 + .39662, .22047, 2.73921, .22042, .09970,
1557 + .06090, .18550, .25209,
1558 + .39932, .22098, 2.71200, .22134, .10273,
1559 + .06486, .18715, .25299,
1560 + .40170, .22139, 2.68460, .22205, .10540,
1561 + .06839, .18853, .25368 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .40386, .22170, 2.65356, .22251, .10775,
1564 + .07152, .18963, .25410,
1565 + .40585, .22194, 2.62203, .22284, .10990,
1566 + .07445, .19058, .25437,
1567 + .40762, .22210, 2.59092, .22303, .11179,
1568 + .07706, .19134, .25450,
1569 + .40912, .22220, 2.55983, .22305, .11338,
1570 + .07929, .19189, .25445,
1571 + .41056, .22227, 2.52851, .22303, .11491,
1572 + .08147, .19238, .25435,
1573 + .41181, .22226, 2.49585, .22284, .11621,
1574 + .08337, .19269, .25406,
1575 + .41297, .22224, 2.46516, .22264, .11741,
1576 + .08515, .19295, .25376,
1577 + .41394, .22215, 2.43470, .22230, .11838,
1578 + .08664, .19305, .25334 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41488, .22205, 2.40431, .22195, .11933,
1581 + .08811, .19312, .25289,
1582 + .41570, .22190, 2.37357, .22149, .12014,
1583 + .08942, .19308, .25234,
1584 + .41643, .22173, 2.34418, .22101, .12085,
1585 + .09061, .19299, .25176,
1586 + .41707, .22155, 2.31636, .22052, .12148,
1587 + .09169, .19287, .25118,
1588 + .41762, .22133, 2.28750, .21994, .12201,
1589 + .09265, .19265, .25049 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .38157, .23151, 1.58960, .13068, .00000,
1592 + .00000, .08751, .16810,
1593 + .38846, .23369, 1.69459, .13368, .00000,
1594 + .00000, .09164, .17131,
1595 + .39781, .23646, 1.82407, .13774, .00000,
1596 + .00000, .09730, .17563,
1597 + .40400, .23824, 1.89916, .14051, .00278,
1598 + .00000, .10116, .17850,
1599 + .40994, .23981, 1.95567, .14317, .00890,
1600 + .00000, .10490, .18124,
1601 + .41469, .24099, 1.99592, .14525, .01359,
1602 + .00000, .10789, .18336,
1603 + .41898, .24201, 2.02848, .14711, .01791,
1604 + .00000, .11058, .18522,
1605 + .42327, .24297, 2.05692, .14892, .02233,
1606 + .00000, .11325, .18701 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .42673, .24368, 2.07537, .15032, .02579,
1609 + .00000, .11537, .18838,
1610 + .42986, .24427, 2.08886, .15156, .02900,
1611 + .00000, .11729, .18956,
1612 + .43225, .24470, 2.09761, .15249, .03151,
1613 + .00000, .11873, .19044,
1614 + .43687, .24541, 2.10305, .15422, .03640,
1615 + .00072, .12154, .19202,
1616 + .44042, .24582, 2.09382, .15546, .04024,
1617 + .00593, .12366, .19311,
1618 + .44401, .24613, 2.07741, .15660, .04422,
1619 + .01174, .12574, .19405,
1620 + .44733, .24629, 2.05529, .15750, .04798,
1621 + .01663, .12759, .19472,
1622 + .45000, .24628, 2.03119, .15810, .05108,
1623 + .02072, .12900, .19507 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .45239, .24615, 2.00376, .15851, .05394,
1626 + .02453, .13020, .19520,
1627 + .45414, .24595, 1.97858, .15868, .05609,
1628 + .02739, .13101, .19515,
1629 + .45597, .24558, 1.94558, .15872, .05845,
1630 + .03057, .13179, .19488,
1631 + .45738, .24518, 1.91506, .15862, .06036,
1632 + .03321, .13233, .19451,
1633 + .45852, .24475, 1.88620, .15844, .06197,
1634 + .03547, .13271, .19406,
1635 + .45967, .24407, 1.84761, .15801, .06377,
1636 + .03802, .13298, .19330,
1637 + .46055, .24336, 1.81063, .15750, .06528,
1638 + .04024, .13310, .19245,
1639 + .46121, .24265, 1.77578, .15695, .06658,
1640 + .04219, .13312, .19157 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .46163, .24183, 1.73970, .15624, .06767,
1643 + .04388, .13298, .19054,
1644 + .46191, .24098, 1.70456, .15549, .06865,
1645 + .04544, .13276, .18946,
1646 + .46204, .24014, 1.67132, .15472, .06947,
1647 + .04680, .13247, .18838,
1648 + .46200, .23929, 1.63961, .15392, .07013,
1649 + .04793, .13209, .18726,
1650 + .46191, .23841, 1.60828, .15309, .07074,
1651 + .04903, .13169, .18612,
1652 + .46165, .23748, 1.57705, .15217, .07121,
1653 + .04995, .13119, .18491,
1654 + .46137, .23660, 1.54804, .15129, .07164,
1655 + .05081, .13071, .18375,
1656 + .46095, .23570, 1.52029, .15040, .07194,
1657 + .05151, .13017, .18258 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .46051, .23480, 1.49289, .14950, .07223,
1660 + .05218, .12961, .18139,
1661 + .45996, .23386, 1.46585, .14856, .07244,
1662 + .05277, .12901, .18016,
1663 + .45939, .23295, 1.44038, .14764, .07261,
1664 + .05328, .12842, .17897,
1665 + .45881, .23207, 1.41656, .14675, .07274,
1666 + .05374, .12783, .17784,
1667 + .45811, .23115, 1.39243, .14581, .07281,
1668 + .05412, .12718, .17664 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .45807, .26692, 1.50624, .11274, .00000,
1671 + .00000, .07888, .15785,
1672 + .46371, .26784, 1.56467, .11440, .00000,
1673 + .00000, .08158, .15927,
1674 + .47105, .26881, 1.63087, .11653, .00000,
1675 + .00000, .08515, .16098,
1676 + .47575, .26927, 1.66429, .11790, .00209,
1677 + .00000, .08752, .16201,
1678 + .48007, .26949, 1.68286, .11914, .00667,
1679 + .00000, .08974, .16288,
1680 + .48338, .26952, 1.69293, .12005, .01013,
1681 + .00000, .09145, .16344,
1682 + .48625, .26944, 1.69842, .12081, .01328,
1683 + .00000, .09294, .16384,
1684 + .48902, .26926, 1.70016, .12149, .01646,
1685 + .00000, .09438, .16412 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .49114, .26897, 1.69759, .12195, .01892,
1688 + .00000, .09547, .16422,
1689 + .49296, .26862, 1.69237, .12230, .02118,
1690 + .00000, .09642, .16423,
1691 + .49430, .26831, 1.68707, .12254, .02293,
1692 + .00000, .09711, .16420,
1693 + .49667, .26747, 1.66710, .12289, .02631,
1694 + .00054, .09837, .16392,
1695 + .49827, .26659, 1.64089, .12301, .02890,
1696 + .00418, .09924, .16352,
1697 + .49967, .26547, 1.60845, .12298, .03156,
1698 + .00823, .10001, .16286,
1699 + .50069, .26416, 1.57254, .12275, .03402,
1700 + .01158, .10057, .16198,
1701 + .50128, .26286, 1.53828, .12239, .03601,
1702 + .01435, .10090, .16103 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .50158, .26144, 1.50259, .12190, .03781,
1705 + .01689, .10107, .15993,
1706 + .50157, .26019, 1.47215, .12140, .03914,
1707 + .01878, .10109, .15891,
1708 + .50130, .25858, 1.43453, .12066, .04056,
1709 + .02085, .10097, .15757,
1710 + .50087, .25709, 1.40115, .11994, .04169,
1711 + .02255, .10078, .15631,
1712 + .50031, .25568, 1.37058, .11922, .04262,
1713 + .02398, .10053, .15510,
1714 + .49933, .25380, 1.33139, .11820, .04362,
1715 + .02558, .10007, .15345,
1716 + .49820, .25199, 1.29492, .11718, .04444,
1717 + .02695, .09955, .15183,
1718 + .49702, .25026, 1.26131, .11619, .04513,
1719 + .02813, .09902, .15029 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .49557, .24846, 1.22760, .11512, .04567,
1722 + .02914, .09838, .14865,
1723 + .49407, .24667, 1.19530, .11403, .04613,
1724 + .03005, .09772, .14703,
1725 + .49253, .24495, 1.16524, .11298, .04651,
1726 + .03083, .09704, .14548,
1727 + .49093, .24328, 1.13715, .11194, .04677,
1728 + .03147, .09635, .14397,
1729 + .48929, .24161, 1.10967, .11090, .04701,
1730 + .03208, .09565, .14245,
1731 + .48750, .23991, 1.08279, .10982, .04716,
1732 + .03258, .09490, .14091,
1733 + .48581, .23830, 1.05800, .10880, .04730,
1734 + .03303, .09419, .13947,
1735 + .48405, .23674, 1.03467, .10779, .04736,
1736 + .03339, .09346, .13806 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .48228, .23518, 1.01177, .10680, .04741,
1739 + .03373, .09273, .13665,
1740 + .48042, .23361, .98946, .10578, .04741,
1741 + .03401, .09198, .13524,
1742 + .47862, .23210, .96861, .10481, .04738,
1743 + .03425, .09125, .13389,
1744 + .47687, .23067, .94926, .10389, .04735,
1745 + .03445, .09056, .13262,
1746 + .47502, .22919, .92986, .10293, .04727,
1747 + .03461, .08983, .13130 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .52361, .29287, 1.38320, .09678, .00000,
1750 + .00000, .07050, .14604,
1751 + .52740, .29243, 1.41162, .09757, .00000,
1752 + .00000, .07219, .14613,
1753 + .53196, .29143, 1.43847, .09849, .00000,
1754 + .00000, .07434, .14596,
1755 + .53463, .29052, 1.44693, .09902, .00161,
1756 + .00000, .07569, .14570,
1757 + .53682, .28935, 1.44375, .09942, .00511,
1758 + .00000, .07690, .14529,
1759 + .53829, .28820, 1.43704, .09964, .00773,
1760 + .00000, .07778, .14480,
1761 + .53941, .28700, 1.42790, .09975, .01008,
1762 + .00000, .07851, .14423,
1763 + .54033, .28565, 1.41563, .09979, .01245,
1764 + .00000, .07917, .14355 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .54081, .28441, 1.40236, .09973, .01426,
1767 + .00000, .07962, .14286,
1768 + .54107, .28313, 1.38789, .09961, .01590,
1769 + .00000, .07998, .14213,
1770 + .54118, .28210, 1.37582, .09949, .01717,
1771 + .00000, .08023, .14153,
1772 + .54100, .27975, 1.34448, .09909, .01958,
1773 + .00041, .08058, .14014,
1774 + .54038, .27764, 1.31171, .09865, .02141,
1775 + .00305, .08074, .13884,
1776 + .53934, .27517, 1.27374, .09804, .02325,
1777 + .00598, .08077, .13727,
1778 + .53789, .27249, 1.23376, .09727, .02493,
1779 + .00837, .08063, .13554,
1780 + .53625, .26999, 1.19723, .09646, .02627,
1781 + .01033, .08038, .13388 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .53432, .26742, 1.16041, .09558, .02745,
1784 + .01210, .08001, .13214,
1785 + .53250, .26524, 1.12990, .09479, .02831,
1786 + .01341, .07964, .13064,
1787 + .53006, .26252, 1.09313, .09375, .02921,
1788 + .01482, .07908, .12877,
1789 + .52773, .26008, 1.06115, .09279, .02991,
1790 + .01597, .07853, .12708,
1791 + .52547, .25784, 1.03236, .09189, .03048,
1792 + .01693, .07799, .12551,
1793 + .52236, .25491, .99618, .09067, .03106,
1794 + .01798, .07722, .12349,
1795 + .51928, .25215, .96305, .08950, .03152,
1796 + .01887, .07644, .12156,
1797 + .51627, .24959, .93292, .08840, .03189,
1798 + .01963, .07567, .11974 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .51307, .24695, .90320, .08724, .03216,
1801 + .02026, .07486, .11789,
1802 + .50986, .24439, .87502, .08609, .03237,
1803 + .02083, .07404, .11609,
1804 + .50673, .24196, .84908, .08501, .03253,
1805 + .02130, .07323, .11439,
1806 + .50367, .23963, .82512, .08395, .03262,
1807 + .02168, .07245, .11276,
1808 + .50060, .23732, .80182, .08291, .03269,
1809 + .02204, .07167, .11115,
1810 + .49742, .23500, .77930, .08185, .03270,
1811 + .02232, .07086, .10956,
1812 + .49442, .23283, .75863, .08086, .03271,
1813 + .02257, .07009, .10807,
1814 + .49145, .23074, .73938, .07990, .03267,
1815 + .02275, .06935, .10664 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .48848, .22866, .72058, .07894, .03262,
1818 + .02293, .06861, .10521,
1819 + .48547, .22659, .70240, .07799, .03254,
1820 + .02307, .06786, .10381,
1821 + .48257, .22463, .68550, .07708, .03245,
1822 + .02318, .06713, .10248,
1823 + .47981, .22278, .66989, .07623, .03235,
1824 + .02327, .06645, .10123,
1825 + .47693, .22089, .65436, .07536, .03223,
1826 + .02333, .06575, .09995 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .59109, .31452, 1.21467, .07972, .00000,
1829 + .00000, .06061, .12973,
1830 + .59199, .31238, 1.22025, .07987, .00000,
1831 + .00000, .06141, .12866,
1832 + .59241, .30894, 1.21811, .07988, .00000,
1833 + .00000, .06236, .12694,
1834 + .59213, .30634, 1.20904, .07980, .00119,
1835 + .00000, .06289, .12563,
1836 + .59128, .30349, 1.19137, .07962, .00374,
1837 + .00000, .06330, .12420,
1838 + .59017, .30093, 1.17385, .07936, .00564,
1839 + .00000, .06354, .12291,
1840 + .58883, .29844, 1.15565, .07906, .00733,
1841 + .00000, .06369, .12161,
1842 + .58717, .29576, 1.13506, .07869, .00900,
1843 + .00000, .06377, .12019 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .58548, .29336, 1.11577, .07829, .01027,
1846 + .00000, .06375, .11893,
1847 + .58366, .29101, 1.09639, .07787, .01141,
1848 + .00000, .06368, .11769,
1849 + .58214, .28916, 1.08088, .07752, .01228,
1850 + .00000, .06360, .11670,
1851 + .57855, .28513, 1.04463, .07669, .01392,
1852 + .00030, .06332, .11455,
1853 + .57513, .28161, 1.01018, .07591, .01514,
1854 + .00213, .06299, .11269,
1855 + .57100, .27766, .97168, .07499, .01636,
1856 + .00415, .06252, .11056,
1857 + .56639, .27353, .93236, .07394, .01744,
1858 + .00578, .06194, .10830,
1859 + .56199, .26975, .89738, .07294, .01828,
1860 + .00709, .06134, .10624 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .55734, .26593, .86290, .07189, .01902,
1863 + .00827, .06067, .10416,
1864 + .55333, .26275, .83489, .07098, .01953,
1865 + .00913, .06005, .10243,
1866 + .54828, .25889, .80174, .06985, .02005,
1867 + .01004, .05927, .10032,
1868 + .54371, .25549, .77335, .06884, .02045,
1869 + .01078, .05855, .09846,
1870 + .53945, .25238, .74811, .06790, .02076,
1871 + .01139, .05787, .09677,
1872 + .53385, .24844, .71691, .06668, .02106,
1873 + .01204, .05695, .09462,
1874 + .52850, .24475, .68872, .06552, .02128,
1875 + .01258, .05608, .09262,
1876 + .52346, .24134, .66334, .06443, .02144,
1877 + .01303, .05525, .09077 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .51826, .23791, .63867, .06333, .02154,
1880 + .01340, .05440, .08892,
1881 + .51316, .23458, .61550, .06225, .02160,
1882 + .01373, .05356, .08715,
1883 + .50832, .23146, .59435, .06124, .02163,
1884 + .01399, .05276, .08549,
1885 + .50365, .22852, .57501, .06028, .02162,
1886 + .01420, .05199, .08392,
1887 + .49899, .22561, .55633, .05934, .02160,
1888 + .01438, .05123, .08238,
1889 + .49430, .22275, .53844, .05841, .02155,
1890 + .01452, .05046, .08087,
1891 + .48990, .22007, .52210, .05753, .02148,
1892 + .01465, .04974, .07946,
1893 + .48566, .21751, .50702, .05669, .02140,
1894 + .01473, .04906, .07814 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .48144, .21497, .49236, .05585, .02131,
1897 + .01480, .04838, .07683,
1898 + .47721, .21247, .47829, .05502, .02120,
1899 + .01485, .04770, .07555,
1900 + .47318, .21010, .46529, .05424, .02109,
1901 + .01489, .04705, .07435,
1902 + .46936, .20788, .45333, .05351, .02098,
1903 + .01491, .04645, .07323,
1904 + .46544, .20564, .44152, .05277, .02085,
1905 + .01492, .04583, .07208 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .64335, .32638, 1.05341, .06571, .00000,
1908 + .00000, .05147, .11263,
1909 + .64113, .32258, 1.04598, .06548, .00000,
1910 + .00000, .05174, .11087,
1911 + .63701, .31689, 1.02799, .06500, .00000,
1912 + .00000, .05192, .10827,
1913 + .63354, .31274, 1.00990, .06460, .00089,
1914 + .00000, .05196, .10638,
1915 + .62952, .30834, .98542, .06410, .00279,
1916 + .00000, .05192, .10441,
1917 + .62572, .30450, .96314, .06360, .00419,
1918 + .00000, .05179, .10269,
1919 + .62188, .30084, .94121, .06309, .00542,
1920 + .00000, .05161, .10104,
1921 + .61761, .29697, .91749, .06251, .00663,
1922 + .00000, .05137, .09930 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .61372, .29358, .89625, .06196, .00754,
1925 + .00000, .05110, .09778,
1926 + .60982, .29031, .87554, .06141, .00835,
1927 + .00000, .05080, .09631,
1928 + .60669, .28775, .85924, .06097, .00896,
1929 + .00000, .05056, .09514,
1930 + .59977, .28227, .82282, .05998, .01010,
1931 + .00023, .04996, .09271,
1932 + .59359, .27764, .78980, .05910, .01094,
1933 + .00152, .04940, .09062,
1934 + .58651, .27245, .75364, .05807, .01176,
1935 + .00295, .04871, .08832,
1936 + .57894, .26711, .71737, .05696, .01248,
1937 + .00409, .04794, .08594,
1938 + .57194, .26232, .68565, .05593, .01302,
1939 + .00500, .04720, .08381 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .56481, .25752, .65483, .05487, .01348,
1942 + .00580, .04641, .08170,
1943 + .55878, .25359, .63014, .05398, .01380,
1944 + .00638, .04574, .07996,
1945 + .55137, .24885, .60123, .05290, .01411,
1946 + .00699, .04490, .07787,
1947 + .54480, .24472, .57675, .05193, .01434,
1948 + .00747, .04416, .07606,
1949 + .53876, .24099, .55520, .05105, .01450,
1950 + .00787, .04346, .07442,
1951 + .53100, .23626, .52885, .04991, .01465,
1952 + .00828, .04256, .07238,
1953 + .52372, .23189, .50525, .04885, .01474,
1954 + .00862, .04171, .07051,
1955 + .51694, .22787, .48420, .04786, .01481,
1956 + .00891, .04093, .06879 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .51007, .22387, .46392, .04687, .01482,
1959 + .00912, .04012, .06709,
1960 + .50338, .22003, .44501, .04592, .01482,
1961 + .00931, .03935, .06546,
1962 + .49707, .21644, .42788, .04504, .01479,
1963 + .00947, .03861, .06396,
1964 + .49109, .21309, .41235, .04421, .01474,
1965 + .00958, .03792, .06256,
1966 + .48516, .20979, .39743, .04340, .01468,
1967 + .00968, .03723, .06118,
1968 + .47928, .20655, .38326, .04258, .01460,
1969 + .00974, .03656, .05985,
1970 + .47379, .20353, .37036, .04181, .01453,
1971 + .00980, .03594, .05862,
1972 + .46853, .20068, .35853, .04110, .01443,
1973 + .00983, .03534, .05747 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .46331, .19785, .34707, .04039, .01434,
1976 + .00986, .03474, .05634,
1977 + .45813, .19509, .33614, .03970, .01423,
1978 + .00987, .03416, .05523,
1979 + .45323, .19250, .32608, .03905, .01412,
1980 + .00987, .03361, .05419,
1981 + .44861, .19007, .31685, .03845, .01402,
1982 + .00986, .03310, .05322,
1983 + .44390, .18762, .30779, .03784, .01390,
1984 + .00985, .03257, .05225 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .68137, .33026, .90960, .05440, .00000,
1987 + .00000, .04323, .09561,
1988 + .67585, .32503, .89478, .05397, .00000,
1989 + .00000, .04313, .09353,
1990 + .66713, .31733, .86826, .05322, .00000,
1991 + .00000, .04288, .09051,
1992 + .66049, .31184, .84571, .05266, .00067,
1993 + .00000, .04262, .08836,
1994 + .65327, .30614, .81843, .05201, .00211,
1995 + .00000, .04229, .08618,
1996 + .64683, .30123, .79446, .05141, .00315,
1997 + .00000, .04195, .08431,
1998 + .64054, .29658, .77145, .05081, .00407,
1999 + .00000, .04160, .08255,
2000 + .63377, .29173, .74710, .05015, .00495,
2001 + .00000, .04118, .08071 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .62775, .28754, .72582, .04957, .00561,
2004 + .00000, .04079, .07910,
2005 + .62189, .28352, .70540, .04897, .00620,
2006 + .00000, .04038, .07759,
2007 + .61727, .28036, .68951, .04849, .00664,
2008 + .00000, .04004, .07644,
2009 + .60724, .27376, .65496, .04746, .00744,
2010 + .00017, .03932, .07398,
2011 + .59854, .26820, .62453, .04656, .00803,
2012 + .00110, .03867, .07192,
2013 + .58876, .26208, .59169, .04554, .00859,
2014 + .00213, .03791, .06968,
2015 + .57855, .25583, .55919, .04446, .00907,
2016 + .00294, .03708, .06740,
2017 + .56928, .25026, .53111, .04347, .00943,
2018 + .00358, .03632, .06537 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .55994, .24476, .50414, .04248, .00972,
2021 + .00414, .03555, .06338,
2022 + .55216, .24027, .48270, .04166, .00992,
2023 + .00454, .03489, .06176,
2024 + .54276, .23490, .45788, .04066, .01010,
2025 + .00495, .03408, .05985,
2026 + .53451, .23024, .43704, .03977, .01022,
2027 + .00528, .03338, .05820,
2028 + .52700, .22605, .41885, .03897, .01031,
2029 + .00554, .03274, .05672,
2030 + .51745, .22082, .39678, .03796, .01038,
2031 + .00581, .03191, .05491,
2032 + .50856, .21601, .37719, .03703, .01041,
2033 + .00603, .03113, .05324,
2034 + .50036, .21161, .35983, .03618, .01042,
2035 + .00620, .03043, .05171 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .49213, .20725, .34325, .03532, .01039,
2038 + .00634, .02972, .05023,
2039 + .48418, .20308, .32788, .03450, .01036,
2040 + .00645, .02903, .04883,
2041 + .47674, .19921, .31406, .03373, .01031,
2042 + .00654, .02839, .04755,
2043 + .46976, .19561, .30158, .03301, .01025,
2044 + .00660, .02780, .04635,
2045 + .46288, .19208, .28964, .03231, .01018,
2046 + .00665, .02722, .04518,
2047 + .45609, .18864, .27839, .03162, .01010,
2048 + .00668, .02664, .04405,
2049 + .44976, .18546, .26819, .03098, .01002,
2050 + .00670, .02611, .04302,
2051 + .44376, .18245, .25887, .03038, .00993,
2052 + .00671, .02560, .04205 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .43783, .17948, .24988, .02979, .00985,
2055 + .00671, .02511, .04110,
2056 + .43197, .17658, .24135, .02922, .00975,
2057 + .00670, .02462, .04019,
2058 + .42644, .17387, .23353, .02868, .00966,
2059 + .00669, .02417, .03933,
2060 + .42126, .17133, .22639, .02818, .00957,
2061 + .00667, .02375, .03854,
2062 + .41603, .16878, .21940, .02767, .00947,
2063 + .00665, .02332, .03775 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .70616, .32769, .78533, .04526, .00000,
2066 + .00000, .03587, .07944,
2067 + .69744, .32122, .76630, .04470, .00000,
2068 + .00000, .03561, .07728,
2069 + .68428, .31179, .73526, .04382, .00000,
2070 + .00000, .03509, .07419,
2071 + .67462, .30515, .71072, .04316, .00051,
2072 + .00000, .03468, .07203,
2073 + .66440, .29836, .68264, .04244, .00160,
2074 + .00000, .03421, .06987,
2075 + .65547, .29259, .65853, .04180, .00239,
2076 + .00000, .03377, .06804,
2077 + .64691, .28716, .63573, .04116, .00307,
2078 + .00000, .03334, .06633,
2079 + .63785, .28151, .61197, .04047, .00373,
2080 + .00000, .03285, .06455 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .62994, .27666, .59154, .03986, .00421,
2083 + .00000, .03242, .06304,
2084 + .62229, .27206, .57215, .03927, .00464,
2085 + .00000, .03198, .06160,
2086 + .61627, .26848, .55718, .03881, .00496,
2087 + .00000, .03162, .06050,
2088 + .60351, .26100, .52520, .03780, .00553,
2089 + .00013, .03087, .05821,
2090 + .59258, .25477, .49769, .03694, .00594,
2091 + .00081, .03022, .05630,
2092 + .58047, .24796, .46836, .03596, .00633,
2093 + .00156, .02947, .05425,
2094 + .56798, .24106, .43964, .03494, .00665,
2095 + .00214, .02868, .05219,
2096 + .55677, .23495, .41508, .03403, .00688,
2097 + .00259, .02796, .05038 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .54559, .22895, .39170, .03313, .00707,
2100 + .00299, .02724, .04862,
2101 + .53639, .22408, .37328, .03239, .00719,
2102 + .00326, .02664, .04719,
2103 + .52535, .21831, .35215, .03149, .00729,
2104 + .00355, .02591, .04552,
2105 + .51573, .21333, .33454, .03070, .00736,
2106 + .00377, .02527, .04409,
2107 + .50703, .20888, .31925, .03000, .00740,
2108 + .00394, .02470, .04281,
2109 + .49607, .20334, .30086, .02911, .00742,
2110 + .00412, .02397, .04126,
2111 + .48596, .19826, .28465, .02829, .00741,
2112 + .00426, .02330, .03985,
2113 + .47669, .19363, .27039, .02753, .00740,
2114 + .00437, .02269, .03858 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .46745, .18911, .25684, .02679, .00736,
2117 + .00445, .02208, .03733,
2118 + .45858, .18479, .24436, .02610, .00731,
2119 + .00452, .02150, .03616,
2120 + .45032, .18079, .23320, .02546, .00726,
2121 + .00456, .02096, .03509,
2122 + .44260, .17708, .22321, .02485, .00719,
2123 + .00459, .02046, .03410,
2124 + .43502, .17346, .21369, .02426, .00713,
2125 + .00462, .01997, .03314,
2126 + .42759, .16995, .20472, .02369, .00705,
2127 + .00463, .01950, .03221,
2128 + .42069, .16670, .19662, .02316, .00698,
2129 + .00463, .01907, .03135,
2130 + .41419, .16366, .18930, .02265, .00691,
2131 + .00463, .01866, .03058 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .40776, .16067, .18226, .02215, .00683,
2134 + .00462, .01825, .02982,
2135 + .40146, .15775, .17560, .02168, .00675,
2136 + .00461, .01785, .02908,
2137 + .39553, .15502, .16950, .02124, .00667,
2138 + .00459, .01748, .02839,
2139 + .38999, .15249, .16395, .02084, .00660,
2140 + .00457, .01714, .02775,
2141 + .38440, .14995, .15853, .02043, .00652,
2142 + .00454, .01680, .02711 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .71889, .31987, .67926, .03781, .00000,
2145 + .00000, .02946, .06467,
2146 + .70715, .31236, .65776, .03719, .00000,
2147 + .00000, .02909, .06258,
2148 + .68983, .30157, .62447, .03622, .00000,
2149 + .00000, .02846, .05967,
2150 + .67737, .29403, .59924, .03553, .00039,
2151 + .00000, .02799, .05764,
2152 + .66445, .28637, .57143, .03475, .00122,
2153 + .00000, .02748, .05565,
2154 + .65330, .27993, .54792, .03411, .00182,
2155 + .00000, .02702, .05394,
2156 + .64270, .27391, .52599, .03349, .00233,
2157 + .00000, .02656, .05235,
2158 + .63158, .26769, .50339, .03283, .00282,
2159 + .00000, .02607, .05072 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .62199, .26237, .48415, .03222, .00317,
2162 + .00000, .02564, .04936,
2163 + .61280, .25734, .46611, .03163, .00348,
2164 + .00000, .02520, .04810,
2165 + .60561, .25344, .45230, .03118, .00371,
2166 + .00000, .02485, .04713,
2167 + .59048, .24536, .42321, .03022, .00412,
2168 + .00010, .02414, .04509,
2169 + .57773, .23864, .39862, .02940, .00441,
2170 + .00059, .02351, .04345,
2171 + .56367, .23137, .37266, .02851, .00468,
2172 + .00114, .02282, .04165,
2173 + .54933, .22405, .34748, .02758, .00489,
2174 + .00156, .02210, .03988,
2175 + .53656, .21763, .32616, .02675, .00505,
2176 + .00188, .02145, .03832 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .52392, .21136, .30606, .02595, .00516,
2179 + .00216, .02081, .03679,
2180 + .51360, .20628, .29036, .02527, .00523,
2181 + .00236, .02027, .03561,
2182 + .50129, .20028, .27246, .02448, .00529,
2183 + .00255, .01964, .03421,
2184 + .49064, .19515, .25766, .02379, .00532,
2185 + .00270, .01909, .03302,
2186 + .48107, .19058, .24489, .02317, .00533,
2187 + .00282, .01859, .03197,
2188 + .46908, .18492, .22961, .02241, .00533,
2189 + .00294, .01798, .03066,
2190 + .45808, .17977, .21624, .02171, .00531,
2191 + .00303, .01741, .02949,
2192 + .44803, .17508, .20454, .02106, .00528,
2193 + .00310, .01690, .02845 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .43809, .17050, .19356, .02042, .00524,
2196 + .00314, .01639, .02744,
2197 + .42859, .16616, .18347, .01983, .00519,
2198 + .00318, .01591, .02650,
2199 + .41978, .16216, .17446, .01930, .00514,
2200 + .00321, .01547, .02563,
2201 + .41159, .15848, .16645, .01879, .00508,
2202 + .00322, .01506, .02484,
2203 + .40356, .15490, .15885, .01830, .00502,
2204 + .00323, .01466, .02406,
2205 + .39577, .15140, .15174, .01782, .00496,
2206 + .00323, .01428, .02334,
2207 + .38855, .14817, .14535, .01737, .00489,
2208 + .00322, .01392, .02267,
2209 + .38175, .14518, .13957, .01696, .00483,
2210 + .00321, .01359, .02204 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .37505, .14225, .13403, .01656, .00477,
2213 + .00320, .01327, .02142,
2214 + .36851, .13940, .12881, .01617, .00470,
2215 + .00319, .01295, .02084,
2216 + .36238, .13674, .12406, .01581, .00464,
2217 + .00317, .01265, .02031,
2218 + .35667, .13426, .11975, .01547, .00458,
2219 + .00315, .01237, .01981,
2220 + .35094, .13179, .11557, .01514, .00452,
2221 + .00313, .01211, .01932 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .72072, .30786, .58868, .03164, .00000,
2224 + .00000, .02395, .05161,
2225 + .70619, .29959, .56584, .03100, .00000,
2226 + .00000, .02352, .04971,
2227 + .68512, .28777, .53157, .03001, .00000,
2228 + .00000, .02285, .04708,
2229 + .67017, .27957, .50647, .02933, .00030,
2230 + .00000, .02237, .04525,
2231 + .65484, .27133, .47954, .02859, .00093,
2232 + .00000, .02183, .04349,
2233 + .64176, .26441, .45707, .02794, .00138,
2234 + .00000, .02138, .04199,
2235 + .62943, .25798, .43632, .02733, .00177,
2236 + .00000, .02094, .04061,
2237 + .61658, .25137, .41515, .02669, .00213,
2238 + .00000, .02047, .03920 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .60557, .24574, .39735, .02614, .00239,
2241 + .00000, .02006, .03802,
2242 + .59510, .24044, .38078, .02559, .00261,
2243 + .00000, .01966, .03693,
2244 + .58696, .23635, .36815, .02515, .00278,
2245 + .00000, .01935, .03610,
2246 + .56989, .22793, .34195, .02428, .00308,
2247 + .00008, .01869, .03434,
2248 + .55564, .22097, .32015, .02353, .00328,
2249 + .00044, .01813, .03295,
2250 + .54010, .21345, .29737, .02271, .00346,
2251 + .00084, .01751, .03145,
2252 + .52432, .20592, .27548, .02188, .00361,
2253 + .00114, .01688, .02997,
2254 + .51037, .19935, .25713, .02114, .00371,
2255 + .00137, .01631, .02869 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .49666, .19297, .23995, .02041, .00378,
2258 + .00157, .01576, .02745,
2259 + .48552, .18786, .22662, .01983, .00382,
2260 + .00171, .01530, .02646,
2261 + .47233, .18182, .21156, .01912, .00384,
2262 + .00184, .01477, .02531,
2263 + .46097, .17666, .19916, .01852, .00385,
2264 + .00194, .01431, .02435,
2265 + .45079, .17208, .18850, .01800, .00385,
2266 + .00202, .01389, .02351,
2267 + .43813, .16645, .17593, .01734, .00384,
2268 + .00210, .01339, .02246,
2269 + .42656, .16135, .16497, .01674, .00381,
2270 + .00216, .01292, .02152,
2271 + .41603, .15674, .15541, .01620, .00378,
2272 + .00220, .01250, .02069 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .40570, .15222, .14650, .01566, .00374,
2275 + .00223, .01209, .01991,
2276 + .39587, .14796, .13836, .01516, .00369,
2277 + .00225, .01170, .01916,
2278 + .38679, .14404, .13115, .01472, .00365,
2279 + .00226, .01135, .01846,
2280 + .37837, .14046, .12475, .01429, .00360,
2281 + .00227, .01102, .01783,
2282 + .37015, .13697, .11869, .01388, .00355,
2283 + .00227, .01070, .01723,
2284 + .36218, .13360, .11307, .01348, .00349,
2285 + .00226, .01039, .01667,
2286 + .35482, .13049, .10802, .01312, .00344,
2287 + .00226, .01010, .01616,
2288 + .34792, .12761, .10350, .01278, .00339,
2289 + .00224, .00983, .01569 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .34114, .12479, .09916, .01245, .00334,
2292 + .00223, .00958, .01522,
2293 + .33455, .12206, .09509, .01213, .00329,
2294 + .00222, .00933, .01478,
2295 + .32839, .11951, .09139, .01183, .00324,
2296 + .00220, .00910, .01436,
2297 + .32266, .11715, .08804, .01156, .00319,
2298 + .00218, .00889, .01398,
2299 + .31692, .11480, .08481, .01130, .00314,
2300 + .00216, .00869, .01360 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .71240, .29302, .51084, .02678, .00000,
2303 + .00000, .01906, .04017,
2304 + .69555, .28412, .48728, .02611, .00000,
2305 + .00000, .01865, .03853,
2306 + .67130, .27155, .45291, .02508, .00000,
2307 + .00000, .01803, .03629,
2308 + .65427, .26290, .42831, .02437, .00023,
2309 + .00000, .01757, .03476,
2310 + .63702, .25421, .40264, .02361, .00071,
2311 + .00000, .01709, .03328,
2312 + .62235, .24700, .38144, .02300, .00105,
2313 + .00000, .01668, .03203,
2314 + .60863, .24031, .36205, .02241, .00134,
2315 + .00000, .01628, .03088,
2316 + .59442, .23345, .34247, .02179, .00161,
2317 + .00000, .01586, .02971 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .58226, .22770, .32619, .02128, .00180,
2320 + .00000, .01549, .02871,
2321 + .57079, .22227, .31114, .02077, .00197,
2322 + .00000, .01514, .02780,
2323 + .56191, .21806, .29975, .02036, .00209,
2324 + .00000, .01487, .02712,
2325 + .54341, .20949, .27636, .01954, .00229,
2326 + .00006, .01431, .02569,
2327 + .52806, .20243, .25720, .01887, .00244,
2328 + .00032, .01382, .02455,
2329 + .51141, .19487, .23736, .01812, .00256,
2330 + .00062, .01329, .02335,
2331 + .49459, .18734, .21847, .01739, .00266,
2332 + .00084, .01276, .02213,
2333 + .47983, .18079, .20277, .01675, .00272,
2334 + .00100, .01230, .02109 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .46544, .17444, .18821, .01610, .00276,
2337 + .00114, .01184, .02011,
2338 + .45380, .16937, .17697, .01558, .00278,
2339 + .00124, .01145, .01934,
2340 + .44006, .16341, .16434, .01497, .00279,
2341 + .00133, .01101, .01844,
2342 + .42828, .15836, .15404, .01446, .00279,
2343 + .00140, .01064, .01768,
2344 + .41776, .15389, .14525, .01401, .00278,
2345 + .00146, .01030, .01700,
2346 + .40479, .14838, .13492, .01345, .00276,
2347 + .00151, .00989, .01618,
2348 + .39297, .14341, .12600, .01294, .00273,
2349 + .00154, .00952, .01546,
2350 + .38224, .13894, .11826, .01247, .00270,
2351 + .00157, .00917, .01483 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .37174, .13462, .11106, .01203, .00267,
2354 + .00158, .00885, .01422,
2355 + .36181, .13053, .10453, .01161, .00263,
2356 + .00159, .00854, .01364,
2357 + .35268, .12679, .09876, .01122, .00259,
2358 + .00160, .00825, .01312,
2359 + .34425, .12336, .09367, .01087, .00255,
2360 + .00160, .00799, .01265,
2361 + .33603, .12003, .08888, .01053, .00251,
2362 + .00160, .00773, .01220,
2363 + .32808, .11684, .08445, .01021, .00246,
2364 + .00159, .00750, .01176,
2365 + .32075, .11390, .08048, .00992, .00242,
2366 + .00158, .00728, .01137,
2367 + .31391, .11118, .07693, .00964, .00238,
2368 + .00157, .00707, .01101 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30721, .10852, .07355, .00936, .00234,
2371 + .00156, .00686, .01066,
2372 + .30070, .10595, .07038, .00911, .00230,
2373 + .00154, .00667, .01033,
2374 + .29464, .10357, .06750, .00888, .00226,
2375 + .00153, .00650, .01001,
2376 + .28901, .10136, .06491, .00867, .00222,
2377 + .00152, .00633, .00973,
2378 + .28342, .09916, .06241, .00844, .00219,
2379 + .00150, .00617, .00945 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .69603, .27528, .44250, .02224, .00000,
2382 + .00000, .01520, .03084,
2383 + .67713, .26603, .41885, .02160, .00000,
2384 + .00000, .01480, .02946,
2385 + .65016, .25309, .38506, .02064, .00000,
2386 + .00000, .01421, .02758,
2387 + .63145, .24418, .36145, .01993, .00018,
2388 + .00000, .01378, .02634,
2389 + .61250, .23539, .33727, .01928, .00054,
2390 + .00000, .01335, .02506,
2391 + .59661, .22804, .31753, .01869, .00079,
2392 + .00000, .01298, .02405,
2393 + .58178, .22128, .29968, .01815, .00100,
2394 + .00000, .01262, .02312,
2395 + .56649, .21438, .28182, .01760, .00120,
2396 + .00000, .01224, .02216 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .55357, .20853, .26704, .01709, .00134,
2399 + .00000, .01193, .02139,
2400 + .54136, .20308, .25353, .01663, .00146,
2401 + .00000, .01162, .02066,
2402 + .53192, .19891, .24335, .01628, .00155,
2403 + .00000, .01139, .02010,
2404 + .51242, .19036, .22275, .01556, .00169,
2405 + .00005, .01090, .01895,
2406 + .49628, .18342, .20607, .01498, .00179,
2407 + .00024, .01049, .01802,
2408 + .47888, .17596, .18893, .01433, .00188,
2409 + .00045, .01005, .01706,
2410 + .46148, .16856, .17277, .01368, .00194,
2411 + .00061, .00961, .01613,
2412 + .44628, .16216, .15946, .01311, .00198,
2413 + .00073, .00921, .01532 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .43149, .15600, .14719, .01256, .00200,
2416 + .00082, .00882, .01455,
2417 + .41960, .15106, .13782, .01213, .00201,
2418 + .00089, .00853, .01393,
2419 + .40563, .14533, .12737, .01160, .00201,
2420 + .00095, .00817, .01323,
2421 + .39369, .14046, .11889, .01116, .00201,
2422 + .00100, .00787, .01265,
2423 + .38308, .13617, .11169, .01078, .00199,
2424 + .00104, .00759, .01217,
2425 + .37001, .13092, .10327, .01032, .00197,
2426 + .00107, .00726, .01153,
2427 + .35818, .12619, .09603, .00990, .00195,
2428 + .00109, .00696, .01098,
2429 + .34750, .12194, .08979, .00952, .00192,
2430 + .00111, .00669, .01051 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33711, .11784, .08403, .00915, .00189,
2433 + .00112, .00643, .01003,
2434 + .32728, .11399, .07882, .00880, .00186,
2435 + .00112, .00618, .00960,
2436 + .31826, .11049, .07426, .00850, .00182,
2437 + .00112, .00596, .00920,
2438 + .30997, .10728, .07024, .00821, .00179,
2439 + .00112, .00576, .00884,
2440 + .30192, .10416, .06645, .00794, .00176,
2441 + .00112, .00557, .00850,
2442 + .29415, .10118, .06299, .00768, .00172,
2443 + .00111, .00538, .00818,
2444 + .28701, .09844, .05989, .00744, .00169,
2445 + .00110, .00521, .00789,
2446 + .28037, .09591, .05713, .00722, .00166,
2447 + .00109, .00505, .00762 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27388, .09344, .05450, .00701, .00163,
2450 + .00108, .00490, .00736,
2451 + .26760, .09107, .05205, .00680, .00160,
2452 + .00107, .00476, .00712,
2453 + .26176, .08887, .04984, .00660, .00157,
2454 + .00106, .00462, .00691,
2455 + .25635, .08683, .04784, .00642, .00154,
2456 + .00105, .00449, .00671,
2457 + .25096, .08482, .04592, .00626, .00151,
2458 + .00103, .00437, .00650 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .67211, .25605, .38219, .01847, .00000,
2461 + .00000, .01191, .02314,
2462 + .65162, .24663, .35887, .01782, .00000,
2463 + .00000, .01154, .02206,
2464 + .62258, .23354, .32621, .01691, .00000,
2465 + .00000, .01102, .02054,
2466 + .60254, .22461, .30388, .01631, .00013,
2467 + .00000, .01065, .01951,
2468 + .58243, .21580, .28141, .01568, .00040,
2469 + .00000, .01027, .01851,
2470 + .56567, .20846, .26328, .01513, .00059,
2471 + .00000, .00995, .01771,
2472 + .55009, .20173, .24702, .01463, .00075,
2473 + .00000, .00965, .01697,
2474 + .53407, .19491, .23088, .01413, .00089,
2475 + .00000, .00934, .01622 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .52056, .18918, .21769, .01371, .00099,
2478 + .00000, .00906, .01560,
2479 + .50789, .18384, .20573, .01329, .00108,
2480 + .00000, .00881, .01503,
2481 + .49813, .17975, .19679, .01297, .00114,
2482 + .00000, .00862, .01459,
2483 + .47802, .17140, .17876, .01235, .00124,
2484 + .00004, .00822, .01370,
2485 + .46153, .16461, .16437, .01182, .00131,
2486 + .00017, .00787, .01299,
2487 + .44382, .15740, .14976, .01125, .00137,
2488 + .00033, .00749, .01227,
2489 + .42617, .15027, .13610, .01068, .00141,
2490 + .00044, .00713, .01156,
2491 + .41086, .14411, .12491, .01019, .00143,
2492 + .00052, .00682, .01094 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39603, .13819, .11469, .00971, .00144,
2495 + .00059, .00653, .01034,
2496 + .38410, .13352, .10695, .00936, .00144,
2497 + .00064, .00628, .00988,
2498 + .37016, .12806, .09835, .00894, .00144,
2499 + .00068, .00598, .00937,
2500 + .35831, .12345, .09142, .00858, .00143,
2501 + .00071, .00574, .00894,
2502 + .34783, .11941, .08557, .00827, .00142,
2503 + .00074, .00554, .00854,
2504 + .33498, .11447, .07876, .00787, .00140,
2505 + .00076, .00527, .00807,
2506 + .32337, .11005, .07296, .00752, .00138,
2507 + .00077, .00504, .00766,
2508 + .31291, .10610, .06798, .00721, .00136,
2509 + .00078, .00483, .00729 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30280, .10226, .06339, .00690, .00133,
2512 + .00078, .00463, .00697,
2513 + .29325, .09868, .05928, .00663, .00130,
2514 + .00079, .00444, .00665,
2515 + .28449, .09544, .05569, .00639, .00128,
2516 + .00078, .00427, .00635,
2517 + .27649, .09247, .05254, .00616, .00125,
2518 + .00078, .00412, .00609,
2519 + .26874, .08960, .04959, .00593, .00123,
2520 + .00078, .00397, .00585,
2521 + .26127, .08686, .04689, .00574, .00120,
2522 + .00077, .00383, .00562,
2523 + .25442, .08436, .04450, .00556, .00118,
2524 + .00076, .00370, .00540,
2525 + .24809, .08205, .04236, .00538, .00115,
2526 + .00076, .00358, .00521 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24192, .07980, .04033, .00519, .00113,
2529 + .00075, .00346, .00502,
2530 + .23595, .07763, .03845, .00502, .00111,
2531 + .00074, .00335, .00485,
2532 + .23041, .07563, .03675, .00487, .00108,
2533 + .00073, .00325, .00470,
2534 + .22528, .07378, .03523, .00472, .00106,
2535 + .00072, .00315, .00455,
2536 + .22019, .07196, .03376, .00459, .00104,
2537 + .00071, .00306, .00441 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .64209, .23567, .32815, .01512, .00000,
2540 + .00000, .00924, .01706,
2541 + .62041, .22626, .30560, .01452, .00000,
2542 + .00000, .00891, .01622,
2543 + .58985, .21330, .27465, .01371, .00000,
2544 + .00000, .00846, .01502,
2545 + .56898, .20446, .25381, .01312, .00010,
2546 + .00000, .00816, .01421,
2547 + .54812, .19579, .23328, .01255, .00030,
2548 + .00000, .00783, .01346,
2549 + .53075, .18865, .21689, .01208, .00044,
2550 + .00000, .00754, .01284,
2551 + .51472, .18209, .20231, .01164, .00055,
2552 + .00000, .00728, .01228,
2553 + .49835, .17543, .18796, .01119, .00065,
2554 + .00000, .00703, .01170 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48457, .16989, .17635, .01083, .00073,
2557 + .00000, .00682, .01120,
2558 + .47168, .16473, .16587, .01048, .00079,
2559 + .00000, .00661, .01076,
2560 + .46178, .16079, .15807, .01020, .00083,
2561 + .00000, .00644, .01043,
2562 + .44152, .15274, .14253, .00963, .00090,
2563 + .00003, .00613, .00976,
2564 + .42495, .14626, .13028, .00918, .00095,
2565 + .00012, .00584, .00925,
2566 + .40720, .13940, .11795, .00873, .00098,
2567 + .00023, .00554, .00869,
2568 + .38965, .13263, .10652, .00826, .00101,
2569 + .00031, .00526, .00814,
2570 + .37448, .12683, .09725, .00784, .00102,
2571 + .00037, .00501, .00767 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .35982, .12129, .08882, .00746, .00103,
2574 + .00042, .00475, .00724,
2575 + .34810, .11689, .08247, .00717, .00103,
2576 + .00045, .00457, .00689,
2577 + .33444, .11180, .07549, .00682, .00102,
2578 + .00048, .00434, .00651,
2579 + .32292, .10751, .06990, .00651, .00101,
2580 + .00050, .00415, .00619,
2581 + .31280, .10372, .06522, .00623, .00100,
2582 + .00052, .00400, .00592,
2583 + .30029, .09916, .05978, .00594, .00098,
2584 + .00053, .00379, .00557,
2585 + .28907, .09507, .05517, .00567, .00097,
2586 + .00054, .00361, .00527,
2587 + .27903, .09142, .05123, .00542, .00095,
2588 + .00055, .00346, .00501 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .26931, .08792, .04762, .00518, .00093,
2591 + .00055, .00330, .00476,
2592 + .26019, .08464, .04439, .00495, .00091,
2593 + .00055, .00316, .00453,
2594 + .25187, .08166, .04160, .00475, .00089,
2595 + .00055, .00303, .00434,
2596 + .24428, .07896, .03915, .00457, .00087,
2597 + .00054, .00291, .00416,
2598 + .23693, .07637, .03687, .00439, .00085,
2599 + .00054, .00280, .00398,
2600 + .22988, .07389, .03477, .00423, .00083,
2601 + .00053, .00269, .00381,
2602 + .22341, .07163, .03291, .00408, .00081,
2603 + .00053, .00259, .00366,
2604 + .21746, .06954, .03128, .00395, .00079,
2605 + .00052, .00251, .00352 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21167, .06751, .02974, .00382, .00078,
2608 + .00051, .00242, .00338,
2609 + .20609, .06557, .02830, .00369, .00076,
2610 + .00051, .00234, .00326,
2611 + .20092, .06377, .02701, .00357, .00074,
2612 + .00050, .00226, .00315,
2613 + .19615, .06212, .02585, .00346, .00073,
2614 + .00049, .00219, .00304,
2615 + .19141, .06050, .02473, .00335, .00071,
2616 + .00049, .00213, .00294 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60700, .21473, .27946, .01219, .00000,
2619 + .00000, .00710, .01236,
2620 + .58458, .20549, .25810, .01164, .00000,
2621 + .00000, .00684, .01171,
2622 + .55319, .19281, .22928, .01088, .00000,
2623 + .00000, .00644, .01081,
2624 + .53175, .18428, .21029, .01040, .00007,
2625 + .00000, .00618, .01019,
2626 + .51055, .17589, .19177, .00989, .00022,
2627 + .00000, .00591, .00961,
2628 + .49296, .16900, .17716, .00950, .00032,
2629 + .00000, .00568, .00912,
2630 + .47680, .16270, .16428, .00911, .00040,
2631 + .00000, .00547, .00871,
2632 + .46036, .15633, .15171, .00871, .00047,
2633 + .00000, .00525, .00829 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .44654, .15105, .14164, .00841, .00052,
2636 + .00000, .00508, .00791,
2637 + .43368, .14614, .13258, .00812, .00056,
2638 + .00000, .00490, .00758,
2639 + .42382, .14240, .12587, .00789, .00059,
2640 + .00000, .00476, .00734,
2641 + .40371, .13482, .11266, .00741, .00064,
2642 + .00002, .00450, .00685,
2643 + .38735, .12872, .10241, .00704, .00067,
2644 + .00009, .00430, .00645,
2645 + .36992, .12227, .09214, .00666, .00070,
2646 + .00017, .00406, .00605,
2647 + .35274, .11595, .08270, .00627, .00071,
2648 + .00022, .00383, .00566,
2649 + .33794, .11055, .07511, .00594, .00072,
2650 + .00026, .00363, .00533 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .32371, .10540, .06827, .00564, .00072,
2653 + .00030, .00344, .00500,
2654 + .31242, .10134, .06315, .00539, .00072,
2655 + .00032, .00331, .00475,
2656 + .29929, .09663, .05754, .00510, .00071,
2657 + .00034, .00313, .00447,
2658 + .28820, .09268, .05307, .00486, .00071,
2659 + .00035, .00297, .00425,
2660 + .27847, .08924, .04933, .00464, .00070,
2661 + .00036, .00284, .00406,
2662 + .26662, .08506, .04505, .00438, .00068,
2663 + .00037, .00270, .00380,
2664 + .25598, .08133, .04142, .00416, .00067,
2665 + .00037, .00257, .00359,
2666 + .24646, .07801, .03833, .00397, .00066,
2667 + .00038, .00245, .00342 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .23727, .07486, .03554, .00379, .00064,
2670 + .00038, .00233, .00322,
2671 + .22868, .07191, .03304, .00363, .00062,
2672 + .00038, .00223, .00304,
2673 + .22089, .06923, .03086, .00347, .00061,
2674 + .00037, .00213, .00290,
2675 + .21377, .06680, .02898, .00333, .00060,
2676 + .00037, .00204, .00278,
2677 + .20690, .06446, .02723, .00319, .00058,
2678 + .00037, .00196, .00266,
2679 + .20034, .06224, .02564, .00307, .00057,
2680 + .00036, .00188, .00254,
2681 + .19435, .06022, .02422, .00295, .00055,
2682 + .00036, .00181, .00244,
2683 + .18884, .05837, .02298, .00285, .00054,
2684 + .00035, .00175, .00234 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18348, .05657, .02181, .00275, .00053,
2687 + .00035, .00168, .00225,
2688 + .17833, .05485, .02072, .00264, .00051,
2689 + .00034, .00162, .00216,
2690 + .17356, .05327, .01974, .00255, .00050,
2691 + .00034, .00156, .00207,
2692 + .16917, .05181, .01886, .00247, .00049,
2693 + .00033, .00151, .00200,
2694 + .16481, .05037, .01803, .00240, .00048,
2695 + .00033, .00147, .00194 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .56796, .19383, .23571, .00977, .00000,
2698 + .00000, .00533, .00872,
2699 + .54512, .18494, .21589, .00929, .00000,
2700 + .00000, .00510, .00824,
2701 + .51345, .17276, .18959, .00862, .00000,
2702 + .00000, .00479, .00757,
2703 + .49194, .16457, .17249, .00819, .00005,
2704 + .00000, .00455, .00712,
2705 + .47075, .15656, .15612, .00776, .00016,
2706 + .00000, .00435, .00671,
2707 + .45326, .15003, .14331, .00742, .00023,
2708 + .00000, .00418, .00635,
2709 + .43724, .14407, .13211, .00709, .00029,
2710 + .00000, .00401, .00604,
2711 + .42100, .13806, .12127, .00676, .00034,
2712 + .00000, .00383, .00574 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .40739, .13309, .11265, .00652, .00037,
2715 + .00000, .00369, .00546,
2716 + .39478, .12850, .10498, .00625, .00040,
2717 + .00000, .00356, .00522,
2718 + .38515, .12499, .09933, .00604, .00042,
2719 + .00000, .00345, .00505,
2720 + .36549, .11791, .08830, .00569, .00046,
2721 + .00002, .00326, .00468,
2722 + .34961, .11226, .07978, .00537, .00048,
2723 + .00006, .00308, .00441,
2724 + .33278, .10629, .07134, .00506, .00049,
2725 + .00012, .00290, .00412,
2726 + .31625, .10046, .06366, .00474, .00050,
2727 + .00016, .00273, .00383,
2728 + .30207, .09549, .05752, .00445, .00050,
2729 + .00018, .00258, .00360 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .28850, .09078, .05203, .00420, .00050,
2732 + .00021, .00244, .00339,
2733 + .27773, .08707, .04795, .00400, .00050,
2734 + .00022, .00232, .00322,
2735 + .26528, .08279, .04351, .00379, .00049,
2736 + .00023, .00219, .00300,
2737 + .25479, .07922, .03999, .00361, .00049,
2738 + .00024, .00209, .00283,
2739 + .24558, .07610, .03705, .00345, .00048,
2740 + .00025, .00199, .00269,
2741 + .23443, .07234, .03370, .00325, .00047,
2742 + .00025, .00189, .00253,
2743 + .22447, .06899, .03088, .00308, .00046,
2744 + .00026, .00179, .00238,
2745 + .21560, .06601, .02850, .00292, .00045,
2746 + .00026, .00170, .00224 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .20705, .06319, .02635, .00278, .00044,
2749 + .00026, .00161, .00212,
2750 + .19907, .06056, .02444, .00266, .00043,
2751 + .00026, .00154, .00201,
2752 + .19184, .05818, .02278, .00254, .00041,
2753 + .00026, .00147, .00191,
2754 + .18530, .05602, .02135, .00243, .00040,
2755 + .00025, .00141, .00182,
2756 + .17901, .05395, .02001, .00232, .00039,
2757 + .00025, .00136, .00174,
2758 + .17299, .05200, .01881, .00222, .00038,
2759 + .00025, .00129, .00166,
2760 + .16750, .05024, .01774, .00212, .00037,
2761 + .00024, .00124, .00158,
2762 + .16247, .04860, .01680, .00204, .00036,
2763 + .00024, .00119, .00152 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .15758, .04701, .01592, .00196, .00036,
2766 + .00024, .00115, .00146,
2767 + .15288, .04550, .01510, .00189, .00035,
2768 + .00023, .00110, .00141,
2769 + .14853, .04410, .01437, .00183, .00034,
2770 + .00023, .00106, .00135,
2771 + .14454, .04283, .01371, .00177, .00033,
2772 + .00023, .00102, .00131,
2773 + .14062, .04158, .01309, .00171, .00032,
2774 + .00022, .00099, .00126 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .52600, .17319, .19639, .00767, .00000,
2777 + .00000, .00395, .00606,
2778 + .50324, .16473, .17840, .00726, .00000,
2779 + .00000, .00377, .00570,
2780 + .47178, .15322, .15489, .00670, .00000,
2781 + .00000, .00350, .00520,
2782 + .45057, .14549, .13983, .00634, .00004,
2783 + .00000, .00333, .00487,
2784 + .42973, .13800, .12560, .00597, .00011,
2785 + .00000, .00316, .00456,
2786 + .41262, .13188, .11460, .00568, .00016,
2787 + .00000, .00301, .00433,
2788 + .39697, .12633, .10505, .00543, .00020,
2789 + .00000, .00288, .00410,
2790 + .38114, .12075, .09588, .00517, .00024,
2791 + .00000, .00274, .00386 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .36799, .11614, .08865, .00495, .00026,
2794 + .00000, .00263, .00368,
2795 + .35578, .11190, .08224, .00475, .00028,
2796 + .00000, .00252, .00352,
2797 + .34647, .10867, .07753, .00459, .00029,
2798 + .00000, .00244, .00340,
2799 + .32767, .10214, .06845, .00425, .00032,
2800 + .00001, .00230, .00315,
2801 + .31248, .09694, .06152, .00402, .00033,
2802 + .00004, .00218, .00295,
2803 + .29640, .09152, .05470, .00380, .00034,
2804 + .00008, .00204, .00273,
2805 + .28071, .08622, .04854, .00355, .00034,
2806 + .00011, .00190, .00254,
2807 + .26731, .08172, .04365, .00334, .00035,
2808 + .00013, .00179, .00238 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .25450, .07746, .03930, .00315, .00035,
2811 + .00014, .00169, .00222,
2812 + .24441, .07411, .03610, .00300, .00034,
2813 + .00015, .00161, .00210,
2814 + .23279, .07029, .03261, .00281, .00034,
2815 + .00016, .00151, .00196,
2816 + .22303, .06709, .02987, .00265, .00033,
2817 + .00017, .00143, .00185,
2818 + .21449, .06429, .02760, .00253, .00033,
2819 + .00017, .00136, .00176,
2820 + .20415, .06094, .02502, .00238, .00032,
2821 + .00017, .00128, .00164,
2822 + .19496, .05798, .02286, .00225, .00031,
2823 + .00018, .00121, .00154,
2824 + .18678, .05536, .02104, .00213, .00030,
2825 + .00018, .00114, .00145 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .17896, .05285, .01940, .00201, .00029,
2828 + .00018, .00108, .00136,
2829 + .17168, .05053, .01794, .00191, .00029,
2830 + .00017, .00103, .00129,
2831 + .16509, .04842, .01669, .00181, .00028,
2832 + .00017, .00099, .00123,
2833 + .15910, .04655, .01561, .00174, .00027,
2834 + .00017, .00094, .00117,
2835 + .15336, .04475, .01461, .00167, .00026,
2836 + .00017, .00090, .00112,
2837 + .14791, .04305, .01371, .00160, .00026,
2838 + .00017, .00085, .00106,
2839 + .14295, .04150, .01291, .00153, .00025,
2840 + .00016, .00081, .00102,
2841 + .13841, .04008, .01221, .00147, .00024,
2842 + .00016, .00079, .00097 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13400, .03870, .01155, .00141, .00024,
2845 + .00016, .00076, .00092,
2846 + .12978, .03739, .01094, .00136, .00023,
2847 + .00016, .00073, .00088,
2848 + .12589, .03619, .01040, .00131, .00022,
2849 + .00015, .00070, .00084,
2850 + .12232, .03510, .00991, .00127, .00022,
2851 + .00015, .00067, .00081,
2852 + .11881, .03403, .00945, .00122, .00021,
2853 + .00015, .00065, .00078 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .48222, .15305, .16120, .00582, .00000,
2856 + .00000, .00292, .00416,
2857 + .45982, .14514, .14524, .00550, .00000,
2858 + .00000, .00276, .00389,
2859 + .42903, .13437, .12466, .00504, .00000,
2860 + .00000, .00255, .00355,
2861 + .40842, .12720, .11167, .00474, .00003,
2862 + .00000, .00240, .00332,
2863 + .38823, .12026, .09956, .00447, .00008,
2864 + .00000, .00228, .00309,
2865 + .37170, .11463, .09027, .00424, .00011,
2866 + .00000, .00217, .00292,
2867 + .35668, .10952, .08227, .00401, .00014,
2868 + .00000, .00207, .00276,
2869 + .34155, .10439, .07466, .00379, .00016,
2870 + .00000, .00197, .00261 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .32895, .10019, .06868, .00362, .00018,
2873 + .00000, .00188, .00246,
2874 + .31732, .09630, .06344, .00347, .00019,
2875 + .00000, .00181, .00234,
2876 + .30848, .09336, .05962, .00335, .00020,
2877 + .00000, .00175, .00226,
2878 + .29061, .08746, .05226, .00311, .00022,
2879 + .00001, .00162, .00211,
2880 + .27630, .08276, .04673, .00291, .00022,
2881 + .00003, .00153, .00196,
2882 + .26126, .07785, .04132, .00270, .00023,
2883 + .00006, .00143, .00183,
2884 + .24657, .07309, .03646, .00252, .00023,
2885 + .00007, .00134, .00169,
2886 + .23407, .06907, .03263, .00236, .00023,
2887 + .00009, .00126, .00157 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .22221, .06528, .02926, .00220, .00023,
2890 + .00010, .00118, .00147,
2891 + .21285, .06230, .02678, .00211, .00023,
2892 + .00010, .00112, .00139,
2893 + .20209, .05891, .02410, .00197, .00023,
2894 + .00011, .00105, .00129,
2895 + .19312, .05609, .02201, .00185, .00022,
2896 + .00011, .00100, .00121,
2897 + .18531, .05364, .02027, .00174, .00022,
2898 + .00011, .00094, .00116,
2899 + .17588, .05068, .01832, .00164, .00021,
2900 + .00012, .00089, .00107,
2901 + .16750, .04808, .01669, .00154, .00021,
2902 + .00012, .00084, .00100,
2903 + .16006, .04579, .01533, .00145, .00020,
2904 + .00012, .00079, .00095 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15297, .04361, .01410, .00138, .00019,
2907 + .00012, .00074, .00089,
2908 + .14639, .04160, .01301, .00130, .00019,
2909 + .00012, .00070, .00085,
2910 + .14045, .03980, .01208, .00124, .00018,
2911 + .00011, .00067, .00081,
2912 + .13509, .03817, .01128, .00118, .00018,
2913 + .00011, .00064, .00076,
2914 + .12995, .03662, .01053, .00112, .00017,
2915 + .00011, .00061, .00072,
2916 + .12508, .03515, .00987, .00107, .00017,
2917 + .00011, .00058, .00069,
2918 + .12066, .03382, .00928, .00102, .00016,
2919 + .00011, .00056, .00066,
2920 + .11659, .03261, .00876, .00099, .00016,
2921 + .00011, .00053, .00062 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11266, .03144, .00828, .00095, .00015,
2924 + .00010, .00051, .00059,
2925 + .10892, .03032, .00783, .00091, .00015,
2926 + .00010, .00049, .00057,
2927 + .10550, .02929, .00743, .00086, .00015,
2928 + .00010, .00047, .00056,
2929 + .10236, .02836, .00708, .00082, .00014,
2930 + .00010, .00046, .00054,
2931 + .09927, .02745, .00674, .00079, .00014,
2932 + .00010, .00044, .00052 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .43742, .13392, .13027, .00434, .00000,
2935 + .00000, .00210, .00279,
2936 + .41572, .12659, .11640, .00408, .00000,
2937 + .00000, .00199, .00261,
2938 + .38607, .11663, .09873, .00373, .00000,
2939 + .00000, .00184, .00235,
2940 + .36629, .11004, .08778, .00347, .00002,
2941 + .00000, .00171, .00221,
2942 + .34704, .10370, .07768, .00322, .00005,
2943 + .00000, .00163, .00205,
2944 + .33131, .09855, .06998, .00305, .00007,
2945 + .00000, .00154, .00194,
2946 + .31705, .09391, .06343, .00289, .00009,
2947 + .00000, .00147, .00183,
2948 + .30275, .08928, .05724, .00272, .00011,
2949 + .00000, .00141, .00171 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .29090, .08547, .05242, .00258, .00012,
2952 + .00000, .00134, .00163,
2953 + .28001, .08198, .04821, .00244, .00013,
2954 + .00000, .00128, .00155,
2955 + .27175, .07933, .04515, .00234, .00013,
2956 + .00000, .00124, .00149,
2957 + .25503, .07404, .03933, .00218, .00014,
2958 + .00001, .00116, .00139,
2959 + .24171, .06985, .03498, .00202, .00015,
2960 + .00002, .00108, .00130,
2961 + .22777, .06548, .03076, .00187, .00015,
2962 + .00004, .00101, .00120,
2963 + .21422, .06128, .02701, .00174, .00015,
2964 + .00005, .00094, .00110,
2965 + .20271, .05773, .02408, .00163, .00015,
2966 + .00006, .00088, .00103 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .19182, .05439, .02150, .00152, .00015,
2969 + .00006, .00083, .00097,
2970 + .18330, .05178, .01962, .00144, .00015,
2971 + .00007, .00078, .00091,
2972 + .17356, .04881, .01759, .00133, .00015,
2973 + .00007, .00074, .00084,
2974 + .16543, .04635, .01602, .00124, .00015,
2975 + .00007, .00070, .00080,
2976 + .15834, .04422, .01472, .00117, .00014,
2977 + .00008, .00066, .00076,
2978 + .14982, .04168, .01326, .00110, .00014,
2979 + .00008, .00062, .00070,
2980 + .14229, .03943, .01205, .00103, .00013,
2981 + .00008, .00058, .00065,
2982 + .13564, .03746, .01103, .00096, .00013,
2983 + .00008, .00056, .00062 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .12929, .03559, .01013, .00091, .00013,
2986 + .00008, .00051, .00058,
2987 + .12341, .03387, .00933, .00086, .00012,
2988 + .00008, .00048, .00055,
2989 + .11814, .03232, .00865, .00081, .00012,
2990 + .00008, .00046, .00051,
2991 + .11339, .03093, .00806, .00077, .00012,
2992 + .00007, .00044, .00049,
2993 + .10885, .02961, .00752, .00073, .00011,
2994 + .00007, .00042, .00047,
2995 + .10455, .02836, .00703, .00070, .00011,
2996 + .00007, .00040, .00044,
2997 + .10066, .02724, .00660, .00067, .00011,
2998 + .00007, .00038, .00041,
2999 + .09709, .02622, .00623, .00064, .00010,
3000 + .00007, .00036, .00040 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09365, .02523, .00588, .00062, .00010,
3003 + .00007, .00035, .00038,
3004 + .09039, .02429, .00555, .00059, .00010,
3005 + .00007, .00033, .00037,
3006 + .08740, .02344, .00527, .00056, .00009,
3007 + .00007, .00032, .00036,
3008 + .08466, .02265, .00501, .00053, .00009,
3009 + .00006, .00031, .00034,
3010 + .08197, .02189, .00476, .00051, .00009,
3011 + .00006, .00030, .00033 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .39248, .11603, .10357, .00333, .00000,
3014 + .00000, .00143, .00176,
3015 + .37189, .10932, .09181, .00306, .00000,
3016 + .00000, .00134, .00165,
3017 + .34373, .10029, .07709, .00281, .00000,
3018 + .00000, .00123, .00148,
3019 + .32506, .09435, .06804, .00261, .00001,
3020 + .00000, .00115, .00140,
3021 + .30693, .08863, .05978, .00244, .00003,
3022 + .00000, .00108, .00127,
3023 + .29225, .08399, .05358, .00226, .00005,
3024 + .00000, .00102, .00120,
3025 + .27896, .07984, .04833, .00212, .00006,
3026 + .00000, .00096, .00114,
3027 + .26562, .07572, .04338, .00199, .00007,
3028 + .00000, .00090, .00108 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .25461, .07231, .03955, .00192, .00008,
3031 + .00000, .00087, .00101,
3032 + .24450, .06920, .03624, .00182, .00008,
3033 + .00000, .00083, .00095,
3034 + .23685, .06686, .03384, .00175, .00009,
3035 + .00000, .00079, .00092,
3036 + .22149, .06218, .02931, .00161, .00009,
3037 + .00000, .00073, .00085,
3038 + .20930, .05849, .02594, .00150, .00010,
3039 + .00001, .00069, .00078,
3040 + .19656, .05466, .02271, .00139, .00010,
3041 + .00003, .00063, .00071,
3042 + .18424, .05100, .01986, .00128, .00010,
3043 + .00003, .00058, .00065,
3044 + .17385, .04790, .01764, .00118, .00010,
3045 + .00004, .00055, .00061 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .16404, .04499, .01570, .00109, .00010,
3048 + .00004, .00051, .00057,
3049 + .15634, .04275, .01428, .00104, .00010,
3050 + .00005, .00048, .00053,
3051 + .14757, .04018, .01277, .00097, .00010,
3052 + .00005, .00046, .00049,
3053 + .14030, .03806, .01160, .00091, .00009,
3054 + .00005, .00043, .00047,
3055 + .13399, .03623, .01063, .00085, .00009,
3056 + .00005, .00040, .00045,
3057 + .12641, .03405, .00955, .00079, .00009,
3058 + .00005, .00037, .00042,
3059 + .11973, .03213, .00866, .00074, .00009,
3060 + .00005, .00035, .00039,
3061 + .11385, .03045, .00792, .00070, .00008,
3062 + .00005, .00032, .00037 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .10829, .02885, .00726, .00065, .00008,
3065 + .00005, .00030, .00034,
3066 + .10313, .02739, .00667, .00061, .00008,
3067 + .00005, .00028, .00031,
3068 + .09849, .02609, .00617, .00058, .00008,
3069 + .00005, .00027, .00030,
3070 + .09431, .02493, .00575, .00056, .00007,
3071 + .00005, .00025, .00028,
3072 + .09033, .02382, .00535, .00054, .00007,
3073 + .00005, .00024, .00026,
3074 + .08660, .02277, .00500, .00051, .00007,
3075 + .00005, .00023, .00025,
3076 + .08322, .02182, .00469, .00048, .00007,
3077 + .00005, .00022, .00024,
3078 + .08013, .02097, .00442, .00047, .00007,
3079 + .00005, .00021, .00023 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .07715, .02015, .00417, .00046, .00006,
3082 + .00004, .00021, .00021,
3083 + .07433, .01937, .00393, .00043, .00006,
3084 + .00004, .00020, .00020,
3085 + .07175, .01866, .00373, .00041, .00006,
3086 + .00004, .00018, .00019,
3087 + .06940, .01801, .00354, .00039, .00006,
3088 + .00004, .00018, .00019,
3089 + .06710, .01737, .00337, .00037, .00006,
3090 + .00004, .00017, .00018 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .34812, .09903, .08050, .00226, .00000,
3093 + .00000, .00103, .00121,
3094 + .32866, .09303, .07081, .00214, .00000,
3095 + .00000, .00096, .00108,
3096 + .30236, .08496, .05881, .00190, .00000,
3097 + .00000, .00088, .00098,
3098 + .28496, .07966, .05157, .00176, .00001,
3099 + .00000, .00081, .00091,
3100 + .26818, .07457, .04502, .00164, .00002,
3101 + .00000, .00075, .00083,
3102 + .25461, .07049, .04011, .00152, .00003,
3103 + .00000, .00071, .00079,
3104 + .24234, .06684, .03599, .00143, .00004,
3105 + .00000, .00067, .00074,
3106 + .23007, .06320, .03215, .00136, .00005,
3107 + .00000, .00063, .00068 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .22004, .06022, .02920, .00128, .00005,
3110 + .00000, .00060, .00065,
3111 + .21081, .05750, .02664, .00122, .00005,
3112 + .00000, .00057, .00061,
3113 + .20382, .05547, .02481, .00119, .00006,
3114 + .00000, .00055, .00057,
3115 + .18994, .05140, .02136, .00106, .00006,
3116 + .00000, .00049, .00054,
3117 + .17890, .04821, .01883, .00099, .00006,
3118 + .00001, .00046, .00050,
3119 + .16741, .04491, .01641, .00092, .00006,
3120 + .00002, .00042, .00046,
3121 + .15637, .04173, .01428, .00084, .00006,
3122 + .00002, .00038, .00042,
3123 + .14709, .03907, .01264, .00077, .00006,
3124 + .00002, .00036, .00039 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .13834, .03661, .01121, .00072, .00006,
3127 + .00003, .00034, .00036,
3128 + .13151, .03469, .01018, .00069, .00006,
3129 + .00003, .00032, .00033,
3130 + .12375, .03251, .00907, .00064, .00006,
3131 + .00003, .00029, .00031,
3132 + .11733, .03071, .00822, .00060, .00006,
3133 + .00003, .00027, .00029,
3134 + .11177, .02917, .00753, .00058, .00006,
3135 + .00003, .00026, .00028,
3136 + .10514, .02733, .00675, .00053, .00006,
3137 + .00003, .00024, .00025,
3138 + .09932, .02572, .00611, .00049, .00005,
3139 + .00003, .00023, .00023,
3140 + .09421, .02431, .00557, .00045, .00005,
3141 + .00003, .00021, .00022 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .08935, .02298, .00510, .00042, .00005,
3144 + .00003, .00019, .00021,
3145 + .08488, .02177, .00468, .00040, .00005,
3146 + .00003, .00018, .00020,
3147 + .08088, .02068, .00432, .00038, .00005,
3148 + .00003, .00017, .00018,
3149 + .07730, .01971, .00402, .00036, .00005,
3150 + .00003, .00016, .00017,
3151 + .07388, .01880, .00374, .00035, .00004,
3152 + .00003, .00016, .00016,
3153 + .07068, .01793, .00349, .00033, .00004,
3154 + .00003, .00015, .00015,
3155 + .06779, .01715, .00327, .00031, .00004,
3156 + .00003, .00014, .00014,
3157 + .06515, .01645, .00307, .00029, .00004,
3158 + .00003, .00013, .00014 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06262, .01578, .00290, .00028, .00004,
3161 + .00003, .00012, .00013,
3162 + .06022, .01515, .00273, .00027, .00004,
3163 + .00003, .00012, .00012,
3164 + .05803, .01457, .00258, .00026, .00004,
3165 + .00003, .00012, .00011,
3166 + .05603, .01404, .00245, .00025, .00004,
3167 + .00003, .00011, .00011,
3168 + .05408, .01352, .00233, .00023, .00003,
3169 + .00003, .00011, .00010 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30504, .08354, .06124, .00152, .00000,
3172 + .00000, .00071, .00077,
3173 + .28700, .07820, .05347, .00142, .00000,
3174 + .00000, .00066, .00071,
3175 + .26272, .07108, .04396, .00127, .00000,
3176 + .00000, .00059, .00065,
3177 + .24675, .06642, .03826, .00118, .00000,
3178 + .00000, .00055, .00058,
3179 + .23140, .06198, .03318, .00110, .00001,
3180 + .00000, .00051, .00053,
3181 + .21903, .05842, .02941, .00102, .00002,
3182 + .00000, .00048, .00050,
3183 + .20791, .05523, .02626, .00095, .00002,
3184 + .00000, .00045, .00047,
3185 + .19685, .05208, .02334, .00089, .00003,
3186 + .00000, .00043, .00043 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .18777, .04951, .02112, .00084, .00003,
3189 + .00000, .00040, .00040,
3190 + .17948, .04717, .01920, .00079, .00003,
3191 + .00000, .00038, .00038,
3192 + .17323, .04542, .01783, .00076, .00003,
3193 + .00000, .00037, .00036,
3194 + .16078, .04193, .01527, .00068, .00004,
3195 + .00000, .00033, .00035,
3196 + .15096, .03919, .01341, .00063, .00004,
3197 + .00001, .00030, .00033,
3198 + .14080, .03637, .01164, .00057, .00004,
3199 + .00001, .00028, .00030,
3200 + .13101, .03369, .01009, .00053, .00004,
3201 + .00001, .00027, .00027,
3202 + .12281, .03145, .00890, .00049, .00004,
3203 + .00002, .00024, .00025 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .11515, .02937, .00787, .00045, .00004,
3206 + .00002, .00022, .00023,
3207 + .10919, .02775, .00713, .00043, .00004,
3208 + .00002, .00021, .00021,
3209 + .10244, .02592, .00634, .00039, .00004,
3210 + .00002, .00019, .00020,
3211 + .09686, .02442, .00574, .00036, .00004,
3212 + .00002, .00018, .00019,
3213 + .09203, .02315, .00524, .00034, .00004,
3214 + .00002, .00016, .00017,
3215 + .08631, .02162, .00469, .00031, .00003,
3216 + .00002, .00015, .00016,
3217 + .08128, .02029, .00423, .00029, .00003,
3218 + .00002, .00014, .00015,
3219 + .07687, .01913, .00386, .00028, .00003,
3220 + .00002, .00013, .00014 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07274, .01803, .00352, .00026, .00003,
3223 + .00002, .00012, .00014,
3224 + .06893, .01704, .00323, .00024, .00003,
3225 + .00002, .00012, .00013,
3226 + .06552, .01616, .00298, .00023, .00003,
3227 + .00002, .00011, .00011,
3228 + .06247, .01536, .00277, .00022, .00003,
3229 + .00002, .00011, .00010,
3230 + .05958, .01461, .00257, .00021, .00003,
3231 + .00002, .00010, .00010,
3232 + .05687, .01391, .00240, .00020, .00003,
3233 + .00002, .00010, .00010,
3234 + .05443, .01328, .00224, .00019, .00003,
3235 + .00002, .00009, .00009,
3236 + .05222, .01271, .00211, .00018, .00002,
3237 + .00002, .00009, .00009 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05009, .01217, .00198, .00017, .00002,
3240 + .00002, .00009, .00008,
3241 + .04808, .01166, .00187, .00016, .00002,
3242 + .00002, .00008, .00008,
3243 + .04626, .01119, .00177, .00015, .00002,
3244 + .00002, .00007, .00007,
3245 + .04459, .01077, .00168, .00014, .00002,
3246 + .00002, .00007, .00007,
3247 + .04296, .01035, .00159, .00014, .00002,
3248 + .00002, .00007, .00006 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .26390, .06965, .04560, .00109, .00000,
3251 + .00000, .00044, .00046,
3252 + .24749, .06498, .03952, .00100, .00000,
3253 + .00000, .00040, .00042,
3254 + .22540, .05878, .03218, .00091, .00000,
3255 + .00000, .00036, .00037,
3256 + .21102, .05475, .02781, .00081, .00000,
3257 + .00000, .00032, .00034,
3258 + .19718, .05090, .02399, .00074, .00001,
3259 + .00000, .00030, .00032,
3260 + .18609, .04785, .02116, .00069, .00001,
3261 + .00000, .00029, .00029,
3262 + .17615, .04513, .01881, .00066, .00001,
3263 + .00000, .00028, .00026,
3264 + .16629, .04243, .01665, .00062, .00002,
3265 + .00000, .00027, .00024 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .15823, .04023, .01501, .00057, .00002,
3268 + .00000, .00024, .00023,
3269 + .15088, .03824, .01361, .00054, .00002,
3270 + .00000, .00022, .00022,
3271 + .14536, .03676, .01261, .00052, .00002,
3272 + .00000, .00021, .00021,
3273 + .13440, .03379, .01075, .00047, .00002,
3274 + .00000, .00020, .00019,
3275 + .12579, .03149, .00941, .00042, .00002,
3276 + .00000, .00018, .00018,
3277 + .11689, .02913, .00814, .00039, .00002,
3278 + .00001, .00016, .00017,
3279 + .10838, .02688, .00703, .00036, .00002,
3280 + .00001, .00015, .00016,
3281 + .10128, .02502, .00619, .00034, .00002,
3282 + .00001, .00013, .00014 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .09465, .02329, .00546, .00031, .00002,
3285 + .00001, .00012, .00012,
3286 + .08951, .02195, .00493, .00029, .00002,
3287 + .00001, .00012, .00013,
3288 + .08371, .02044, .00438, .00027, .00002,
3289 + .00001, .00011, .00011,
3290 + .07893, .01921, .00396, .00025, .00002,
3291 + .00001, .00010, .00010,
3292 + .07481, .01816, .00361, .00025, .00002,
3293 + .00001, .00010, .00009,
3294 + .06995, .01691, .00323, .00021, .00002,
3295 + .00001, .00009, .00008,
3296 + .06568, .01582, .00291, .00020, .00002,
3297 + .00001, .00008, .00008,
3298 + .06195, .01488, .00265, .00020, .00002,
3299 + .00001, .00007, .00007 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .05846, .01399, .00241, .00018, .00002,
3302 + .00001, .00007, .00007,
3303 + .05525, .01319, .00221, .00017, .00002,
3304 + .00001, .00006, .00007,
3305 + .05240, .01248, .00204, .00016, .00002,
3306 + .00001, .00006, .00006,
3307 + .04986, .01184, .00189, .00015, .00002,
3308 + .00001, .00006, .00005,
3309 + .04746, .01123, .00175, .00013, .00002,
3310 + .00001, .00005, .00005,
3311 + .04521, .01067, .00163, .00013, .00002,
3312 + .00001, .00005, .00005,
3313 + .04318, .01017, .00153, .00012, .00002,
3314 + .00001, .00005, .00005,
3315 + .04135, .00972, .00143, .00011, .00001,
3316 + .00001, .00005, .00005 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .03959, .00928, .00135, .00011, .00001,
3319 + .00001, .00004, .00004,
3320 + .03793, .00888, .00127, .00010, .00001,
3321 + .00001, .00004, .00004,
3322 + .03641, .00851, .00120, .00010, .00001,
3323 + .00001, .00004, .00004,
3324 + .03504, .00817, .00114, .00010, .00001,
3325 + .00001, .00004, .00003,
3326 + .03371, .00784, .00108, .00009, .00001,
3327 + .00001, .00003, .00004 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .22488, .05701, .03294, .00067, .00000,
3330 + .00000, .00031, .00031,
3331 + .21015, .05302, .02835, .00061, .00000,
3332 + .00000, .00029, .00027,
3333 + .19048, .04771, .02286, .00052, .00000,
3334 + .00000, .00025, .00025,
3335 + .17763, .04428, .01964, .00049, .00000,
3336 + .00000, .00023, .00024,
3337 + .16544, .04103, .01683, .00042, .00000,
3338 + .00000, .00022, .00020,
3339 + .15564, .03844, .01479, .00040, .00001,
3340 + .00000, .00020, .00019,
3341 + .14688, .03615, .01309, .00038, .00001,
3342 + .00000, .00019, .00018,
3343 + .13822, .03389, .01154, .00036, .00001,
3344 + .00000, .00018, .00016 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .13120, .03206, .01037, .00033, .00001,
3347 + .00000, .00016, .00015,
3348 + .12481, .03040, .00937, .00030, .00001,
3349 + .00000, .00015, .00014,
3350 + .12001, .02916, .00866, .00028, .00001,
3351 + .00000, .00014, .00013,
3352 + .11048, .02670, .00736, .00026, .00001,
3353 + .00000, .00012, .00014,
3354 + .10304, .02480, .00642, .00024, .00001,
3355 + .00000, .00011, .00012,
3356 + .09540, .02286, .00554, .00022, .00001,
3357 + .00000, .00011, .00010,
3358 + .08812, .02102, .00477, .00020, .00001,
3359 + .00001, .00010, .00010,
3360 + .08206, .01949, .00419, .00019, .00001,
3361 + .00001, .00009, .00009 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .07642, .01808, .00369, .00017, .00001,
3364 + .00001, .00009, .00008,
3365 + .07209, .01699, .00333, .00016, .00001,
3366 + .00001, .00008, .00008,
3367 + .06719, .01578, .00295, .00014, .00001,
3368 + .00001, .00007, .00007,
3369 + .06317, .01478, .00266, .00013, .00001,
3370 + .00001, .00007, .00006,
3371 + .05973, .01394, .00242, .00013, .00001,
3372 + .00001, .00006, .00006,
3373 + .05566, .01294, .00216, .00011, .00001,
3374 + .00001, .00006, .00006,
3375 + .05211, .01207, .00195, .00010, .00001,
3376 + .00001, .00005, .00005,
3377 + .04900, .01132, .00177, .00010, .00001,
3378 + .00001, .00005, .00005 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .04612, .01062, .00161, .00009, .00001,
3381 + .00001, .00004, .00005,
3382 + .04348, .00998, .00148, .00008, .00001,
3383 + .00001, .00004, .00004,
3384 + .04113, .00942, .00136, .00008, .00001,
3385 + .00001, .00004, .00003,
3386 + .03905, .00891, .00126, .00007, .00001,
3387 + .00001, .00004, .00003,
3388 + .03708, .00844, .00117, .00007, .00001,
3389 + .00001, .00004, .00003,
3390 + .03523, .00800, .00108, .00006, .00001,
3391 + .00001, .00003, .00003,
3392 + .03358, .00761, .00101, .00006, .00001,
3393 + .00001, .00003, .00003,
3394 + .03208, .00726, .00095, .00006, .00001,
3395 + .00001, .00003, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03065, .00692, .00089, .00006, .00001,
3398 + .00001, .00003, .00003,
3399 + .02931, .00660, .00084, .00006, .00001,
3400 + .00001, .00003, .00003,
3401 + .02809, .00631, .00079, .00005, .00001,
3402 + .00001, .00003, .00003,
3403 + .02699, .00605, .00075, .00005, .00001,
3404 + .00001, .00002, .00003,
3405 + .02591, .00580, .00071, .00005, .00001,
3406 + .00001, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .15595, .03642, .01576, .00025, .00000,
3409 + .00000, .00010, .00010,
3410 + .14461, .03362, .01339, .00024, .00000,
3411 + .00000, .00009, .00011,
3412 + .12965, .02995, .01061, .00021, .00000,
3413 + .00000, .00009, .00007,
3414 + .12000, .02759, .00902, .00019, .00000,
3415 + .00000, .00008, .00007,
3416 + .11089, .02536, .00765, .00017, .00000,
3417 + .00000, .00008, .00007,
3418 + .10365, .02362, .00667, .00016, .00000,
3419 + .00000, .00007, .00006,
3420 + .09723, .02208, .00587, .00015, .00000,
3421 + .00000, .00006, .00005,
3422 + .09094, .02056, .00514, .00013, .00000,
3423 + .00000, .00005, .00005 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08584, .01934, .00459, .00012, .00000,
3426 + .00000, .00005, .00005,
3427 + .08123, .01824, .00414, .00011, .00000,
3428 + .00000, .00005, .00004,
3429 + .07779, .01743, .00381, .00010, .00000,
3430 + .00000, .00004, .00004,
3431 + .07100, .01583, .00322, .00010, .00000,
3432 + .00000, .00004, .00004,
3433 + .06576, .01460, .00279, .00008, .00000,
3434 + .00000, .00004, .00004,
3435 + .06041, .01335, .00240, .00008, .00000,
3436 + .00000, .00004, .00003,
3437 + .05536, .01218, .00206, .00007, .00000,
3438 + .00000, .00003, .00003,
3439 + .05118, .01122, .00181, .00006, .00000,
3440 + .00000, .00003, .00003 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .04733, .01033, .00159, .00006, .00000,
3443 + .00000, .00003, .00002,
3444 + .04439, .00966, .00143, .00005, .00000,
3445 + .00000, .00003, .00002,
3446 + .04109, .00891, .00127, .00005, .00000,
3447 + .00000, .00002, .00002,
3448 + .03840, .00829, .00114, .00004, .00000,
3449 + .00000, .00002, .00002,
3450 + .03611, .00778, .00104, .00004, .00000,
3451 + .00000, .00002, .00002,
3452 + .03341, .00717, .00092, .00003, .00000,
3453 + .00000, .00002, .00002,
3454 + .03109, .00665, .00083, .00003, .00000,
3455 + .00000, .00002, .00002,
3456 + .02907, .00620, .00075, .00003, .00000,
3457 + .00000, .00002, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02719, .00578, .00068, .00003, .00000,
3460 + .00000, .00001, .00002,
3461 + .02549, .00540, .00062, .00003, .00000,
3462 + .00000, .00001, .00001,
3463 + .02400, .00507, .00057, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02267, .00478, .00053, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02141, .00450, .00049, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02025, .00425, .00046, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .01921, .00402, .00042, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .01828, .00382, .00040, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01740, .00362, .00037, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01657, .00344, .00035, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01582, .00328, .00033, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01514, .00314, .00031, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01448, .00299, .00029, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .09990, .02135, .00648, .00010, .00000,
3488 + .00000, .00003, .00002,
3489 + .09193, .01955, .00545, .00008, .00000,
3490 + .00000, .00003, .00002,
3491 + .08146, .01721, .00427, .00007, .00000,
3492 + .00000, .00002, .00002,
3493 + .07479, .01573, .00360, .00006, .00000,
3494 + .00000, .00002, .00003,
3495 + .06853, .01435, .00303, .00006, .00000,
3496 + .00000, .00001, .00002,
3497 + .06362, .01326, .00263, .00005, .00000,
3498 + .00000, .00001, .00001,
3499 + .05928, .01231, .00231, .00005, .00000,
3500 + .00000, .00001, .00001,
3501 + .05504, .01140, .00202, .00005, .00000,
3502 + .00000, .00002, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .05165, .01066, .00180, .00004, .00000,
3505 + .00000, .00002, .00001,
3506 + .04861, .01000, .00161, .00004, .00000,
3507 + .00000, .00001, .00001,
3508 + .04635, .00951, .00149, .00003, .00000,
3509 + .00000, .00001, .00001,
3510 + .04191, .00856, .00125, .00003, .00000,
3511 + .00000, .00001, .00001,
3512 + .03852, .00784, .00109, .00003, .00000,
3513 + .00000, .00001, .00001,
3514 + .03509, .00710, .00093, .00003, .00000,
3515 + .00000, .00001, .00001,
3516 + .03187, .00642, .00080, .00002, .00000,
3517 + .00000, .00001, .00001,
3518 + .02924, .00587, .00070, .00002, .00000,
3519 + .00000, .00001, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02684, .00537, .00062, .00001, .00000,
3522 + .00000, .00000, .00001,
3523 + .02502, .00499, .00055, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02298, .00456, .00049, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02133, .00423, .00044, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .01994, .00394, .00040, .00001, .00000,
3530 + .00000, .00001, .00000,
3531 + .01832, .00360, .00036, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01693, .00332, .00032, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01573, .00307, .00029, .00001, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01462, .00285, .00026, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01362, .00265, .00024, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01275, .00247, .00022, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01197, .00232, .00020, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01125, .00217, .00019, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01059, .00204, .00017, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01000, .00192, .00016, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00947, .00181, .00015, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00897, .00171, .00014, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00850, .00162, .00013, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00808, .00154, .00012, .00001, .00000,
3560 + .00000, .00000, .00000,
3561 + .00770, .00146, .00012, .00001, .00000,
3562 + .00000, .00000, .00000,
3563 + .00734, .00139, .00011, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05773, .01116, .00219, .00003, .00000,
3567 + .00000, .00000, .00001,
3568 + .05263, .01013, .00183, .00003, .00000,
3569 + .00000, .00000, .00000,
3570 + .04605, .00880, .00143, .00001, .00000,
3571 + .00000, .00000, .00000,
3572 + .04188, .00798, .00120, .00002, .00000,
3573 + .00000, .00000, .00000,
3574 + .03803, .00721, .00101, .00002, .00000,
3575 + .00000, .00000, .00000,
3576 + .03502, .00661, .00088, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03239, .00609, .00077, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02985, .00560, .00067, .00001, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02782, .00520, .00060, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02601, .00484, .00054, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02467, .00459, .00050, .00001, .00000,
3588 + .00000, .00000, .00000,
3589 + .02209, .00409, .00042, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02012, .00371, .00037, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01816, .00333, .00032, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .01633, .00298, .00027, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .01486, .00270, .00024, .00001, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01352, .00245, .00021, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01251, .00226, .00019, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01139, .00205, .00017, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01050, .00188, .00015, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00976, .00175, .00014, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00889, .00158, .00012, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00814, .00145, .00011, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00751, .00133, .00010, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00693, .00123, .00009, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00642, .00113, .00008, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00597, .00105, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00557, .00098, .00007, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00520, .00091, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00487, .00085, .00006, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00457, .00080, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00431, .00075, .00005, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00406, .00070, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00383, .00066, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00362, .00063, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00344, .00059, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00326, .00056, .00004, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02869, .00493, .00056, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02589, .00443, .00047, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .02231, .00379, .00037, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02008, .00340, .00031, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01803, .00304, .00027, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01646, .00276, .00023, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01509, .00252, .00021, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01378, .00230, .00018, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01274, .00212, .00016, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01183, .00196, .00015, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01116, .00185, .00014, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00987, .00162, .00012, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00890, .00146, .00010, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00794, .00130, .00009, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00706, .00115, .00008, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00636, .00103, .00007, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00573, .00092, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00526, .00085, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00474, .00076, .00005, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00433, .00069, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00399, .00064, .00004, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00360, .00057, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00327, .00052, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00299, .00047, .00003, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00274, .00043, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00251, .00040, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00232, .00036, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00215, .00034, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00199, .00031, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00185, .00029, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00173, .00027, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00162, .00025, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00152, .00024, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00142, .00022, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00134, .00021, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00126, .00019, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00119, .00018, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00298, .00037, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00261, .00032, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00215, .00026, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00188, .00023, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00163, .00020, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00145, .00017, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00130, .00016, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00115, .00014, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00104, .00012, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00095, .00011, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00088, .00010, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00075, .00009, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00066, .00008, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00057, .00007, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00049, .00006, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00043, .00005, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00037, .00004, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00034, .00004, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00029, .00003, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00026, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00024, .00003, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00021, .00002, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00018, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00002, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00015, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00012, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00005, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3809 . .8d0,.9d0,1d0/
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3818 data init/0/
3819 save
3820 xsave=x
3821 q2save=qsq
3822 if(init.ne.0) goto 10
3823C open(unit=1,file='cor08.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3829 do 25 i=1,np
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3831 20 continue
3832 do 31 j=1,ntenth-1
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3834 do 31 i=1,8
3835 if(i.eq.5.or.i.eq.7) goto 31
3836 do 30 k=1,nq
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3838 31 continue
3839 50 format(8f10.5)
3840 do 40 i=1,np
3841 do 40 m=1,nq
3842 40 f(i,nx,m)=ZEROD
3843 init=1
3844 10 continue
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3849 xxx=x
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3851 n=0
3852 70 n=n+1
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3855 m=0
3856 80 m=m+1
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3859 do 60 i=1,np
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3866 65 continue
3867 g(i)=g(i)*(ONED-x)**n0(i)
3868 60 continue
3869 upv=g(1)
3870 dnv=g(2)
3871 usea=g(4)
3872 dsea=g(8)
3873 str=g(6)
3874 chm=g(5)
3875 glu=g(3)
3876 bot=g(7)
3877 x=xsave
3878 qsq=q2save
3879 return
3880 end