2 SUBROUTINE SFMSR3(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
4 #include "pdf/impdp.inc"
6 PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
7 #include "pdf/expdp.inc"
8 + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP)
9 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
10 + .00181, .00812, 5.27909, .39654, .00527,
11 + .00000, .24132, .40023,
12 + .00195, .00822, 7.12456, .49402, .01190,
13 + .00000, .32619, .49790,
14 + .00217, .00836, 10.57419, .66665, .02856,
15 + .00000, .47709, .67082,
16 + .00233, .00846, 13.61452, .81163, .04836,
17 + .00000, .60458, .81600,
18 + .00250, .00857, 17.36051, .98262, .07986,
19 + .00000, .75604, .98720,
20 + .00265, .00867, 21.08157, 1.14528, .11947,
21 + .00000, .90147, 1.15004,
22 + .00279, .00876, 24.99563, 1.31014, .17161,
23 + .00000, 1.05055, 1.31506,
24 + .00295, .00885, 29.70444, 1.49966, .24790,
25 + .00000, 1.22424, 1.50477 /
26 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
27 + .00309, .00894, 34.23644, 1.67394, .33612,
28 + .00000, 1.38652, 1.67920,
29 + .00322, .00902, 38.95601, 1.84752, .44424,
30 + .00000, 1.55103, 1.85292,
31 + .00333, .00909, 43.03690, 1.99133, .54927,
32 + .00000, 1.68952, 1.99685,
33 + .00356, .00923, 52.53155, 2.30654, .83554,
34 + .00000, 2.00107, 2.31231,
35 + .00376, .00935, 61.68782, 2.58972, 1.15606,
36 + .09099, 2.28998, 2.59569,
37 + .00399, .00949, 73.05939, 2.92276, 1.59395,
38 + .37809, 2.63844, 2.92897,
39 + .00423, .00963, 86.18669, 3.29491, 2.12634,
40 + .84202, 3.03393, 3.30135,
41 + .00445, .00976, 99.33523, 3.66565, 2.66311,
42 + 1.27190, 3.42879, 3.67230 /
43 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
44 + .00468, .00989, 113.65236, 4.07492, 3.23860,
45 + 1.74723, 3.86220, 4.08178,
46 + .00487, .01001, 126.45562, 4.44831, 3.73674,
47 + 2.17069, 4.25375, 4.45534,
48 + .00510, .01014, 143.20030, 4.94743, 4.36328,
49 + 2.72302, 4.77146, 4.95467,
50 + .00531, .01027, 159.00716, 5.42958, 4.93471,
51 + 3.24542, 5.26670, 5.43699,
52 + .00551, .01038, 174.33850, 5.90585, 5.47449,
53 + 3.75311, 5.75236, 5.91343,
54 + .00576, .01052, 195.13324, 6.56158, 6.18897,
55 + 4.44215, 6.41687, 6.56936,
56 + .00600, .01066, 215.83704, 7.22488, 6.88996,
57 + 5.13149, 7.08592, 7.23285,
58 + .00622, .01079, 236.30779, 7.88854, 7.57745,
59 + 5.81602, 7.75332, 7.89669 /
60 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
61 + .00645, .01092, 258.03711, 8.59829, 8.30306,
62 + 6.54410, 8.46566, 8.60661,
63 + .00668, .01105, 280.07166, 9.32647, 9.04143,
64 + 7.28852, 9.19561, 9.33495,
65 + .00689, .01117, 302.05710, 10.05711, 9.77840,
66 + 8.03338, 9.92746, 10.06575,
67 + .00710, .01129, 323.52747, 10.77651, 10.50179,
68 + 8.76546, 10.64771, 10.78530,
69 + .00731, .01140, 345.98718, 11.53366, 11.26167,
70 + 9.53483, 11.40552, 11.54259,
71 + .00752, .01152, 368.83710, 12.30959, 12.03945,
72 + 10.32240, 12.18198, 12.31866,
73 + .00772, .01163, 391.34692, 13.07860, 12.80974,
74 + 11.10222, 12.95143, 13.08781,
75 + .00791, .01174, 413.20798, 13.83107, 13.56313,
76 + 11.86472, 13.70427, 13.84041 /
77 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
78 + .00810, .01185, 436.11215, 14.62262, 14.35542,
79 + 12.66621, 14.49615, 14.63207,
80 + .00829, .01196, 459.03943, 15.42278, 15.15621,
81 + 13.47608, 15.29664, 15.43236,
82 + .00848, .01206, 481.84677, 16.22064, 15.95459,
83 + 14.28307, 16.09479, 16.23034,
84 + .00866, .01216, 503.66721, 16.99164, 16.72605,
85 + 15.06266, 16.86606, 17.00144,
86 + .00884, .01226, 526.42731, 17.79917, 17.53402,
87 + 15.87879, 17.67386, 17.80908 /
88 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
89 + .00338, .00992, 4.91741, .37634, .00469,
90 + .00000, .22583, .37954,
91 + .00358, .01005, 6.51432, .46146, .01049,
92 + .00000, .29993, .46480,
93 + .00389, .01024, 9.43951, .60959, .02488,
94 + .00000, .42941, .61313,
95 + .00411, .01038, 11.97122, .73207, .04179,
96 + .00000, .53714, .73576,
97 + .00435, .01053, 15.04561, .87472, .06843,
98 + .00000, .66355, .87855,
99 + .00456, .01066, 18.06043, 1.00888, .10166,
100 + .00000, .78359, 1.01285,
101 + .00476, .01078, 21.19655, 1.14356, .14509,
102 + .00000, .90550, 1.14764,
103 + .00498, .01092, 24.92996, 1.29687, .20819,
104 + .00000, 1.04622, 1.30109 /
105 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
106 + .00517, .01103, 28.48827, 1.43656, .28068,
107 + .00000, 1.17655, 1.44089,
108 + .00536, .01114, 32.16159, 1.57454, .36899,
109 + .00000, 1.30768, 1.57897,
110 + .00551, .01123, 35.31519, 1.68803, .45432,
111 + .00000, 1.41733, 1.69255,
112 + .00583, .01142, 42.57883, 1.93432, .68518,
113 + .00000, 1.66180, 1.93901,
114 + .00611, .01158, 49.50037, 2.15291, .94124,
115 + .07107, 1.88608, 2.15775,
116 + .00642, .01177, 58.00080, 2.40727, 1.28768,
117 + .29367, 2.15396, 2.41227,
118 + .00675, .01196, 67.70041, 2.68870, 1.70430,
119 + .65107, 2.45508, 2.69388,
120 + .00706, .01214, 77.31176, 2.96691, 2.11970,
121 + .97885, 2.75323, 2.97224 /
122 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
123 + .00737, .01231, 87.67051, 3.27205, 2.56025,
124 + 1.33835, 3.07804, 3.27753,
125 + .00764, .01246, 96.85213, 3.54895, 2.93775,
126 + 1.65623, 3.36959, 3.55455,
127 + .00796, .01265, 108.75803, 3.91717, 3.40782,
128 + 2.06782, 3.75269, 3.92292,
129 + .00825, .01281, 119.89780, 4.27086, 3.83231,
130 + 2.45424, 4.11678, 4.27674,
131 + .00851, .01296, 130.61877, 4.61841, 4.22988,
132 + 2.82735, 4.47174, 4.62441,
133 + .00886, .01315, 145.04549, 5.09421, 4.75166,
134 + 3.33029, 4.95443, 5.10036,
135 + .00918, .01333, 159.28316, 5.57238, 5.25914,
136 + 3.82977, 5.43708, 5.57866,
137 + .00949, .01350, 173.24875, 6.04788, 5.75310,
138 + 4.32245, 5.91550, 6.05429 /
139 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
140 + .00980, .01367, 187.96776, 6.55350, 6.27095,
141 + 4.84325, 6.42315, 6.56003,
142 + .01011, .01384, 202.77763, 7.06910, 6.79439,
143 + 5.37238, 6.94013, 7.07575,
144 + .01040, .01400, 217.45914, 7.58367, 7.31385,
145 + 5.89884, 7.45565, 7.59044,
146 + .01068, .01416, 231.70259, 8.08765, 7.82092,
147 + 6.41347, 7.96030, 8.09453,
148 + .01096, .01431, 246.51384, 8.61545, 8.35085,
149 + 6.95155, 8.48864, 8.62243,
150 + .01124, .01446, 261.49130, 9.15367, 8.89054,
151 + 7.49959, 9.02730, 9.16075,
152 + .01151, .01461, 276.16351, 9.68461, 9.42251,
153 + 8.03964, 9.55860, 9.69179,
154 + .01177, .01475, 290.33359, 10.20180, 9.94046,
155 + 8.56530, 10.07609, 10.20907 /
156 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
157 + .01203, .01489, 305.11035, 10.74365, 10.48295,
158 + 9.11556, 10.61824, 10.75102,
159 + .01229, .01503, 319.81696, 11.28892, 11.02875,
160 + 9.66903, 11.16378, 11.29637,
161 + .01254, .01516, 334.38739, 11.83066, 11.57096,
162 + 10.21849, 11.70578, 11.83820,
163 + .01278, .01529, 348.25162, 12.35195, 12.09266,
164 + 10.74703, 12.22729, 12.35956,
165 + .01302, .01542, 362.65506, 12.89605, 12.63716,
166 + 11.29839, 12.77163, 12.90375 /
167 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
168 + .00569, .01212, 4.57920, .35682, .00415,
169 + .00000, .21116, .35970,
170 + .00598, .01229, 5.95461, .43071, .00920,
171 + .00000, .27549, .43369,
172 + .00641, .01256, 8.42400, .55713, .02157,
173 + .00000, .38600, .56024,
174 + .00673, .01275, 10.52289, .66007, .03593,
175 + .00000, .47657, .66328,
176 + .00707, .01295, 13.03500, .77847, .05836,
177 + .00000, .58155, .78179,
178 + .00736, .01312, 15.46686, .88859, .08611,
179 + .00000, .68015, .89199,
180 + .00765, .01329, 17.96841, .99809, .12214,
181 + .00000, .77938, 1.00157,
182 + .00795, .01346, 20.91508, 1.12151, .17412,
183 + .00000, .89284, 1.12509 /
184 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
185 + .00822, .01362, 23.69610, 1.23293, .23345,
186 + .00000, .99704, 1.23659,
187 + .00848, .01377, 26.54173, 1.34208, .30533,
188 + .00000, 1.10105, 1.34580,
189 + .00869, .01388, 28.96725, 1.43119, .37440,
190 + .00000, 1.18746, 1.43497,
191 + .00913, .01414, 34.49726, 1.62262, .55992,
192 + .00000, 1.37838, 1.62653,
193 + .00952, .01436, 39.70349, 1.79044, .76379,
194 + .05528, 1.55163, 1.79445,
195 + .00996, .01460, 46.02521, 1.98358, 1.03697,
196 + .22722, 1.75652, 1.98771,
197 + .01042, .01486, 53.15448, 2.19518, 1.36193,
198 + .50151, 1.98463, 2.19942,
199 + .01084, .01509, 60.14214, 2.40274, 1.68236,
200 + .75047, 2.20860, 2.40709 /
201 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
202 + .01127, .01533, 67.59483, 2.62894, 2.01845,
203 + 1.02132, 2.45078, 2.63339,
204 + .01164, .01553, 74.14125, 2.83315, 2.30351,
205 + 1.25900, 2.66676, 2.83769,
206 + .01208, .01577, 82.55676, 3.10332, 2.65487,
207 + 1.56448, 2.94881, 3.10796,
208 + .01247, .01599, 90.35958, 3.36139, 2.96893,
209 + 1.84916, 3.21513, 3.36613,
210 + .01284, .01619, 97.80978, 3.61368, 3.26052,
211 + 2.12222, 3.47325, 3.61850,
212 + .01331, .01644, 107.75464, 3.95711, 3.63987,
213 + 2.48780, 3.82209, 3.96204,
214 + .01375, .01668, 117.48080, 4.30000, 4.00553,
215 + 2.84815, 4.16849, 4.30502,
216 + .01417, .01690, 126.94347, 4.63890, 4.35870,
217 + 3.20121, 4.50966, 4.64401 /
218 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
219 + .01459, .01713, 136.84468, 4.99718, 4.72643,
220 + 3.57210, 4.86953, 5.00239,
221 + .01501, .01735, 146.72690, 5.36029, 5.09559,
222 + 3.94649, 5.23372, 5.36558,
223 + .01541, .01756, 156.45908, 5.72072, 5.45980,
224 + 4.31688, 5.59491, 5.72609,
225 + .01578, .01776, 165.83707, 6.07182, 5.81332,
226 + 4.67694, 5.94655, 6.07727,
227 + .01617, .01796, 175.52916, 6.43768, 6.18086,
228 + 5.05147, 6.31285, 6.44321,
229 + .01655, .01816, 185.26892, 6.80889, 6.55326,
230 + 5.43096, 6.68442, 6.81449,
231 + .01691, .01835, 194.75537, 7.17336, 6.91858,
232 + 5.80313, 7.04920, 7.17903,
233 + .01725, .01853, 203.86455, 7.52675, 7.27262,
234 + 6.16369, 7.40285, 7.53248 /
235 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
236 + .01760, .01872, 213.31870, 7.89551, 7.64192,
237 + 6.53955, 7.77185, 7.90130,
238 + .01795, .01890, 222.67049, 8.26483, 8.01172,
239 + 6.91580, 8.14141, 8.27069,
240 + .01829, .01907, 231.89812, 8.63046, 8.37778,
241 + 7.28796, 8.50727, 8.63639,
242 + .01861, .01924, 240.62798, 8.98073, 8.72843,
243 + 7.64437, 8.85774, 8.98672,
244 + .01893, .01941, 249.66026, 9.34507, 9.09313,
245 + 8.01485, 9.22228, 9.35111 /
246 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
247 + .00750, .01363, 4.39120, .34565, .00385,
248 + .00000, .20294, .34844,
249 + .00785, .01384, 5.64839, .41346, .00850,
250 + .00000, .26198, .41633,
251 + .00839, .01415, 7.87936, .52834, .01979,
252 + .00000, .36242, .53131,
253 + .00878, .01438, 9.75570, .62107, .03281,
254 + .00000, .44402, .62413,
255 + .00919, .01461, 11.98249, .72696, .05304,
256 + .00000, .53795, .73010,
257 + .00955, .01482, 14.12187, .82480, .07796,
258 + .00000, .62560, .82802,
259 + .00990, .01501, 16.30813, .92156, .11019,
260 + .00000, .71335, .92484,
261 + .01027, .01522, 18.86746, 1.03000, .15649,
262 + .00000, .81314, 1.03335 /
263 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
264 + .01060, .01541, 21.26897, 1.12736, .20915,
265 + .00000, .90431, 1.13078,
266 + .01091, .01558, 23.71345, 1.22226, .27273,
267 + .00000, .99492, 1.22574,
268 + .01117, .01572, 25.78827, 1.29941, .33365,
269 + .00000, 1.06990, 1.30293,
270 + .01171, .01602, 30.49025, 1.46414, .49658,
271 + .00000, 1.23467, 1.46776,
272 + .01218, .01628, 34.88533, 1.60749, .67466,
273 + .04763, 1.38324, 1.61119,
274 + .01271, .01658, 40.18642, 1.77140, .91195,
275 + .19515, 1.55792, 1.77519,
276 + .01327, .01688, 46.12313, 1.94991, 1.19243,
277 + .42960, 1.75129, 1.95380,
278 + .01378, .01716, 51.90438, 2.12423, 1.46720,
279 + .64113, 1.94022, 2.12821 /
280 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
281 + .01430, .01744, 58.03203, 2.31349, 1.75354,
282 + .87014, 2.14362, 2.31756,
283 + .01474, .01767, 63.38569, 2.48386, 1.99492,
284 + 1.07021, 2.32434, 2.48799,
285 + .01527, .01795, 70.23249, 2.70860, 2.29065,
286 + 1.32625, 2.55948, 2.71282,
287 + .01574, .01821, 76.54660, 2.92259, 2.55337,
288 + 1.56380, 2.78065, 2.92689,
289 + .01618, .01844, 82.54676, 3.13115, 2.79603,
290 + 1.79078, 2.99429, 3.13552,
291 + .01674, .01874, 90.51768, 3.41413, 3.11007,
292 + 2.09342, 3.28196, 3.41859,
293 + .01728, .01902, 98.27114, 3.69559, 3.41115,
294 + 2.39044, 3.56646, 3.70013,
295 + .01778, .01928, 105.77780, 3.97275, 3.70060,
296 + 2.68027, 3.84559, 3.97737 /
297 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
298 + .01829, .01954, 113.59856, 4.26480, 4.00076,
299 + 2.98362, 4.13901, 4.26948,
300 + .01878, .01981, 121.36631, 4.55967, 4.30085,
301 + 3.28866, 4.43484, 4.56443,
302 + .01926, .02005, 128.98602, 4.85144, 4.59589,
303 + 3.58942, 4.72728, 4.85627,
304 + .01971, .02029, 136.29825, 5.13476, 4.88130,
305 + 3.88084, 5.01108, 5.13965,
306 + .02017, .02052, 143.82784, 5.42911, 5.17713,
307 + 4.18303, 5.30582, 5.43406,
308 + .02062, .02075, 151.36583, 5.72686, 5.47594,
309 + 4.48830, 5.60390, 5.73188,
310 + .02105, .02098, 158.68253, 6.01839, 5.76825,
311 + 4.78681, 5.89571, 6.02347,
312 + .02146, .02119, 165.68356, 6.30027, 6.05073,
313 + 5.07520, 6.17784, 6.30541 /
314 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
315 + .02188, .02140, 172.92900, 6.59372, 6.34469,
316 + 5.37509, 6.47152, 6.59891,
317 + .02229, .02161, 180.06946, 6.88678, 6.63821,
318 + 5.67444, 6.76480, 6.89202,
319 + .02269, .02182, 187.09830, 7.17631, 6.92814,
320 + 5.96989, 7.05453, 7.18161,
321 + .02307, .02201, 193.72414, 7.45293, 7.20513,
322 + 6.25209, 7.33135, 7.45828,
323 + .02345, .02221, 200.56261, 7.74007, 7.49263,
324 + 6.54480, 7.61868, 7.74547 /
325 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
326 + .00904, .01482, 4.26181, .33781, .00364,
327 + .00000, .19727, .34059,
328 + .00946, .01505, 5.43980, .40151, .00802,
329 + .00000, .25273, .40436,
330 + .01007, .01541, 7.51308, .50868, .01859,
331 + .00000, .34645, .51163,
332 + .01052, .01566, 9.24382, .59466, .03072,
333 + .00000, .42213, .59768,
334 + .01100, .01593, 11.28548, .69236, .04950,
335 + .00000, .50881, .69545,
336 + .01142, .01616, 13.23647, .78221, .07256,
337 + .00000, .58934, .78536,
338 + .01182, .01638, 15.22087, .87072, .10230,
339 + .00000, .66965, .87393,
340 + .01224, .01662, 17.53363, .96950, .14491,
341 + .00000, .76063, .97278 /
342 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
343 + .01262, .01682, 19.69483, 1.05786, .19324,
344 + .00000, .84345, 1.06119,
345 + .01298, .01702, 21.88651, 1.14368, .25146,
346 + .00000, .92551, 1.14706,
347 + .01327, .01718, 23.74113, 1.21323, .30713,
348 + .00000, .99321, 1.21665,
349 + .01390, .01752, 27.92602, 1.36108, .45556,
350 + .00000, 1.14144, 1.36460,
351 + .01444, .01781, 31.81774, 1.48907, .61718,
352 + .04280, 1.27448, 1.49266,
353 + .01505, .01814, 36.48919, 1.63473, .83170,
354 + .17499, 1.43025, 1.63840,
355 + .01568, .01848, 41.69471, 1.79270, 1.08412,
356 + .38452, 1.60199, 1.79645,
357 + .01627, .01879, 46.74041, 1.94646, 1.33025,
358 + .57274, 1.76920, 1.95029 /
359 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
360 + .01686, .01911, 52.06445, 2.11297, 1.58556,
361 + .77583, 1.94864, 2.11688,
362 + .01736, .01937, 56.69813, 2.26254, 1.79985,
363 + .95269, 2.10766, 2.26651,
364 + .01797, .01969, 62.60219, 2.45945, 2.06124,
365 + 1.17832, 2.31403, 2.46350,
366 + .01851, .01997, 68.02569, 2.64652, 2.29245,
367 + 1.38700, 2.50762, 2.65064,
368 + .01901, .02023, 73.16195, 2.82846, 2.50519,
369 + 1.58585, 2.69415, 2.83264,
370 + .01965, .02056, 79.96172, 3.07475, 2.77947,
371 + 1.85021, 2.94468, 3.07900,
372 + .02026, .02088, 86.55009, 3.31904, 3.04142,
373 + 2.10884, 3.19172, 3.32337,
374 + .02083, .02117, 92.90620, 3.55898, 3.29240,
375 + 2.36049, 3.43345, 3.56338 /
376 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
377 + .02140, .02147, 99.50779, 3.81119, 3.55192,
378 + 2.62319, 3.68691, 3.81566,
379 + .02197, .02176, 106.04128, 4.06518, 3.81060,
380 + 2.88661, 3.94177, 4.06971,
381 + .02251, .02204, 112.43223, 4.31592, 4.06430,
382 + 3.14573, 4.19313, 4.32052,
383 + .02302, .02230, 118.54695, 4.55884, 4.30912,
384 + 3.39619, 4.43649, 4.56349,
385 + .02353, .02256, 124.82674, 4.81068, 4.56232,
386 + 3.65535, 4.68870, 4.81538,
387 + .02404, .02282, 131.09631, 5.06488, 4.81751,
388 + 3.91656, 4.94321, 5.06965,
389 + .02453, .02307, 137.16656, 5.31327, 5.06663,
390 + 4.17147, 5.19187, 5.31809,
391 + .02500, .02330, 142.96014, 5.55297, 5.30690,
392 + 4.41724, 5.43180, 5.55784 /
393 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
394 + .02547, .02354, 148.94388, 5.80207, 5.55649,
395 + 4.67236, 5.68113, 5.80699,
396 + .02594, .02378, 154.82434, 6.05033, 5.80520,
397 + 4.92651, 5.92960, 6.05531,
398 + .02638, .02400, 160.60333, 6.29523, 6.05051,
399 + 5.17694, 6.17471, 6.30026,
400 + .02681, .02422, 166.03630, 6.52877, 6.28440,
401 + 5.41568, 6.40843, 6.53384,
402 + .02725, .02444, 171.63383, 6.77083, 6.52681,
403 + 5.66294, 6.65067, 6.77594 /
404 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
405 + .01041, .01582, 4.16354, .33177, .00349,
406 + .00000, .19295, .33459,
407 + .01087, .01607, 5.28262, .39239, .00766,
408 + .00000, .24574, .39527,
409 + .01156, .01646, 7.23973, .49385, .01769,
410 + .00000, .33448, .49682,
411 + .01207, .01674, 8.86406, .57486, .02917,
412 + .00000, .40580, .57790,
413 + .01260, .01703, 10.77124, .66656, .04689,
414 + .00000, .48718, .66966,
415 + .01307, .01729, 12.58612, .75059, .06857,
416 + .00000, .56251, .75375,
417 + .01351, .01753, 14.42533, .83311, .09650,
418 + .00000, .63744, .83633,
419 + .01399, .01779, 16.56151, .92493, .13642,
420 + .00000, .72205, .92820 /
421 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
422 + .01441, .01801, 18.55127, 1.00681, .18161,
423 + .00000, .79887, 1.01013,
424 + .01481, .01823, 20.56321, 1.08612, .23595,
425 + .00000, .87478, 1.08949,
426 + .01514, .01841, 22.26174, 1.15023, .28782,
427 + .00000, .93728, 1.15364,
428 + .01583, .01878, 26.08150, 1.28608, .42581,
429 + .00000, 1.07372, 1.28957,
430 + .01643, .01910, 29.61947, 1.40318, .57563,
431 + .03937, 1.19574, 1.40673,
432 + .01711, .01946, 33.85035, 1.53595, .77386,
433 + .16069, 1.33813, 1.53959,
434 + .01782, .01983, 38.54650, 1.67948, 1.00632,
435 + .35260, 1.49463, 1.68319,
436 + .01847, .02017, 43.08199, 1.81883, 1.23216,
437 + .52441, 1.64658, 1.82261 /
438 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
439 + .01913, .02051, 47.85077, 1.96943, 1.46558,
440 + .70929, 1.80926, 1.97329,
441 + .01968, .02080, 51.98867, 2.10450, 1.66084,
442 + .86990, 1.95312, 2.10841,
443 + .02035, .02115, 57.24577, 2.28205, 1.89819,
444 + 1.07431, 2.13945, 2.28603,
445 + .02095, .02146, 62.06013, 2.45042, 2.10742,
446 + 1.26290, 2.31387, 2.45448,
447 + .02150, .02175, 66.60728, 2.61391, 2.29936,
448 + 1.44221, 2.48162, 2.61802,
449 + .02221, .02211, 72.61092, 2.83483, 2.54610,
450 + 1.68006, 2.70646, 2.83901,
451 + .02288, .02245, 78.40988, 3.05348, 2.78103,
452 + 1.91218, 2.92766, 3.05773,
453 + .02351, .02277, 83.98889, 3.26782, 3.00553,
454 + 2.13753, 3.14365, 3.27213 /
455 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
456 + .02414, .02309, 89.76920, 3.49269, 3.23713,
457 + 2.37229, 3.36969, 3.49707,
458 + .02477, .02341, 95.47388, 3.71868, 3.46745,
459 + 2.60719, 3.59649, 3.72312,
460 + .02536, .02371, 101.04151, 3.94137, 3.69288,
461 + 2.83782, 3.81976, 3.94588,
462 + .02593, .02400, 106.35620, 4.15674, 3.91003,
463 + 3.06033, 4.03555, 4.16129,
464 + .02649, .02428, 111.80276, 4.37964, 4.13420,
465 + 3.29016, 4.25881, 4.38425,
466 + .02706, .02457, 117.22871, 4.60425, 4.35975,
467 + 3.52143, 4.48372, 4.60892,
468 + .02759, .02483, 122.47175, 4.82338, 4.57958,
469 + 3.74674, 4.70311, 4.82810,
470 + .02810, .02509, 127.46572, 5.03452, 4.79127,
471 + 3.96364, 4.91447, 5.03929 /
472 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
473 + .02862, .02535, 132.61513, 5.25364, 5.01088,
474 + 4.18847, 5.13382, 5.25846,
475 + .02914, .02561, 137.66461, 5.47167, 5.22936,
476 + 4.41209, 5.35206, 5.47654,
477 + .02963, .02585, 142.62032, 5.68651, 5.44459,
478 + 4.63217, 5.56709, 5.69142,
479 + .03010, .02608, 147.26958, 5.89105, 5.64949,
480 + 4.84165, 5.77182, 5.89601,
481 + .03057, .02632, 152.05298, 6.10281, 5.86161,
482 + 5.05835, 5.98377, 6.10782 /
483 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
484 + .01584, .01939, 3.86832, .31315, .00304,
485 + .00000, .17998, .31631,
486 + .01649, .01974, 4.81742, .36479, .00662,
487 + .00000, .22498, .36800,
488 + .01747, .02025, 6.44493, .44984, .01511,
489 + .00000, .29943, .45314,
490 + .01819, .02062, 7.77159, .51679, .02472,
491 + .00000, .35843, .52015,
492 + .01894, .02102, 9.30673, .59167, .03942,
493 + .00000, .42496, .59509,
494 + .01960, .02135, 10.74860, .65953, .05728,
495 + .00000, .48589, .66302,
496 + .02022, .02168, 12.19309, .72557, .08013,
497 + .00000, .54596, .72911,
498 + .02089, .02202, 13.85277, .79832, .11258,
499 + .00000, .61315, .80191 /
500 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
501 + .02148, .02232, 15.38312, .86258, .14908,
502 + .00000, .67363, .86622,
503 + .02204, .02261, 16.91632, .92429, .19274,
504 + .00000, .73293, .92798,
505 + .02250, .02284, 18.20117, .97380, .23420,
506 + .00000, .78142, .97752,
507 + .02346, .02333, 21.05998, 1.07758, .34373,
508 + .00000, .88630, 1.08137,
509 + .02430, .02375, 23.67451, 1.16585, .46158,
510 + .03023, .97904, 1.16972,
511 + .02524, .02423, 26.76413, 1.26477, .61604,
512 + .12274, 1.08616, 1.26871,
513 + .02622, .02472, 30.15126, 1.37058, .79522,
514 + .26815, 1.20272, 1.37460,
515 + .02711, .02517, 33.38498, 1.47252, .96735,
516 + .39696, 1.31493, 1.47661 /
517 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
518 + .02802, .02562, 36.74699, 1.58201, 1.14326,
519 + .53442, 1.43414, 1.58617,
520 + .02878, .02600, 39.63624, 1.67973, 1.28883,
521 + .65291, 1.53890, 1.68395,
522 + .02970, .02646, 43.27329, 1.80758, 1.46389,
523 + .80258, 1.67373, 1.81188,
524 + .03053, .02687, 46.57145, 1.92819, 1.61652,
525 + .93959, 1.79912, 1.93255,
526 + .03128, .02724, 49.65981, 2.04469, 1.75522,
527 + 1.06898, 1.91899, 2.04912,
528 + .03224, .02772, 53.70241, 2.20125, 1.93184,
529 + 1.23940, 2.07864, 2.20575,
530 + .03315, .02816, 57.56856, 2.35517, 2.09837,
531 + 1.40442, 2.23459, 2.35974,
532 + .03401, .02858, 61.25486, 2.50510, 2.25618,
533 + 1.56350, 2.38585, 2.50973 /
534 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
535 + .03487, .02901, 65.04469, 2.66148, 2.41779,
536 + 1.72814, 2.54318, 2.66618,
537 + .03571, .02942, 68.75066, 2.81760, 2.57732,
538 + 1.89176, 2.69998, 2.82237,
539 + .03652, .02981, 72.34215, 2.97059, 2.73249,
540 + 2.05144, 2.85347, 2.97542,
541 + .03728, .03018, 75.74418, 3.11769, 2.88105,
542 + 2.20460, 3.00096, 3.12258,
543 + .03804, .03055, 79.20722, 3.26914, 3.03359,
544 + 2.36195, 3.15274, 3.27409,
545 + .03880, .03092, 82.63289, 3.42094, 3.18621,
546 + 2.51940, 3.30482, 3.42595,
547 + .03952, .03127, 85.92190, 3.56829, 3.33420,
548 + 2.67202, 3.45243, 3.57336,
549 + .04020, .03160, 89.03397, 3.70956, 3.47600,
550 + 2.81820, 3.59393, 3.71468 /
551 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
552 + .04090, .03193, 92.22651, 3.85556, 3.62248,
553 + 2.96907, 3.74015, 3.86073,
554 + .04158, .03226, 95.33412, 4.00008, 3.76744,
555 + 3.11834, 3.88488, 4.00530,
556 + .04224, .03258, 98.37142, 4.14196, 3.90972,
557 + 3.26469, 4.02696, 4.14723,
558 + .04286, .03288, 101.20058, 4.27637, 4.04451,
559 + 3.40332, 4.16156, 4.28169,
560 + .04350, .03319, 104.09845, 4.41503, 4.18354,
561 + 3.54618, 4.30041, 4.42040 /
562 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
563 + .02362, .02389, 3.58376, .29459, .00262,
564 + .00000, .16759, .29850,
565 + .02455, .02435, 4.38030, .33806, .00567,
566 + .00000, .20553, .34204,
567 + .02593, .02503, 5.71967, .40854, .01279,
568 + .00000, .26733, .41263,
569 + .02694, .02553, 6.79183, .46325, .02077,
570 + .00000, .31563, .46743,
571 + .02800, .02605, 8.01429, .52373, .03286,
572 + .00000, .36947, .52799,
573 + .02892, .02650, 9.14729, .57794, .04744,
574 + .00000, .41825, .58229,
575 + .02979, .02693, 10.26902, .63022, .06597,
576 + .00000, .46592, .63463,
577 + .03073, .02738, 11.54369, .68722, .09211,
578 + .00000, .51874, .69171 /
579 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
580 + .03155, .02778, 12.70686, .73710, .12134,
581 + .00000, .56587, .74166,
582 + .03234, .02816, 13.86111, .78457, .15610,
583 + .00000, .61172, .78920,
584 + .03297, .02847, 14.82112, .82236, .18895,
585 + .00000, .64895, .82703,
586 + .03431, .02911, 16.93360, .90068, .27512,
587 + .00000, .72870, .90546,
588 + .03546, .02967, 18.84026, .96638, .36701,
589 + .02300, .79841, .97126,
590 + .03676, .03030, 21.06571, 1.03910, .48632,
591 + .09290, .87807, 1.04408,
592 + .03811, .03095, 23.47408, 1.11603, .62321,
593 + .20209, .96387, 1.12112,
594 + .03935, .03154, 25.74581, 1.18956, .75323,
595 + .29777, 1.04575, 1.19476 /
596 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
597 + .04059, .03214, 28.07975, 1.26806, .88457,
598 + .39900, 1.13206, 1.27335,
599 + .04163, .03263, 30.06522, 1.33779, .99207,
600 + .48557, 1.20741, 1.34317,
601 + .04289, .03323, 32.54058, 1.42862, 1.11990,
602 + .59407, 1.30378, 1.43409,
603 + .04401, .03377, 34.76194, 1.51384, 1.23008,
604 + .69262, 1.39280, 1.51940,
605 + .04504, .03425, 36.82299, 1.59575, 1.32922,
606 + .78503, 1.47738, 1.60139,
607 + .04635, .03488, 39.49647, 1.70519, 1.45421,
608 + .90585, 1.58932, 1.71094,
609 + .04758, .03546, 42.02610, 1.81207, 1.57085,
610 + 1.02191, 1.69784, 1.81792,
611 + .04873, .03601, 44.41497, 1.91549, 1.68041,
612 + 1.13296, 1.80237, 1.92143 /
613 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
614 + .04989, .03655, 46.85093, 2.02272, 1.79175,
615 + 1.24714, 1.91041, 2.02875,
616 + .05103, .03709, 49.20906, 2.12903, 1.90079,
617 + 1.35979, 2.01734, 2.13515,
618 + .05211, .03760, 51.47721, 2.23261, 2.00618,
619 + 1.46906, 2.12139, 2.23882,
620 + .05312, .03807, 53.60783, 2.33161, 2.10642,
621 + 1.57323, 2.22076, 2.33790,
622 + .05415, .03856, 55.76087, 2.43297, 2.20876,
623 + 1.67963, 2.32246, 2.43935,
624 + .05515, .03903, 57.87432, 2.53400, 2.31055,
625 + 1.78550, 2.42379, 2.54045,
626 + .05612, .03948, 59.88939, 2.63156, 2.40874,
627 + 1.88757, 2.52162, 2.63809,
628 + .05703, .03990, 61.78205, 2.72460, 2.50232,
629 + 1.98481, 2.61491, 2.73120 /
630 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
631 + .05795, .04033, 63.71314, 2.82033, 2.59856,
632 + 2.08473, 2.71090, 2.82701,
633 + .05886, .04076, 65.57704, 2.91457, 2.69327,
634 + 2.18304, 2.80536, 2.92131,
635 + .05973, .04117, 67.39124, 3.00674, 2.78588,
636 + 2.27905, 2.89776, 3.01355,
637 + .06055, .04155, 69.06702, 3.09359, 2.87314,
638 + 2.36952, 2.98483, 3.10047,
639 + .06139, .04194, 70.77540, 3.18284, 2.96280,
640 + 2.46239, 3.07430, 3.18979 /
641 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
642 + .02968, .02710, 3.41897, .28368, .00240,
643 + .00000, .16055, .28823,
644 + .03081, .02764, 4.13315, .32269, .00516,
645 + .00000, .19466, .32734,
646 + .03250, .02845, 5.32021, .38539, .01156,
647 + .00000, .24972, .39019,
648 + .03373, .02903, 6.26025, .43368, .01868,
649 + .00000, .29242, .43859,
650 + .03502, .02965, 7.32265, .48668, .02941,
651 + .00000, .33968, .49171,
652 + .03614, .03018, 8.29947, .53390, .04228,
653 + .00000, .38224, .53902,
654 + .03720, .03068, 9.25967, .57918, .05859,
655 + .00000, .42362, .58439,
656 + .03834, .03122, 10.34355, .62825, .08149,
657 + .00000, .46921, .63357 /
658 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
659 + .03933, .03169, 11.32641, .67095, .10701,
660 + .00000, .50967, .67635,
661 + .04028, .03214, 12.29605, .71137, .13726,
662 + .00000, .54885, .71686,
663 + .04104, .03250, 13.09884, .74339, .16576,
664 + .00000, .58053, .74894,
665 + .04266, .03326, 14.85344, .80930, .24022,
666 + .00000, .64801, .81500,
667 + .04406, .03392, 16.42436, .86412, .31920,
668 + .01949, .70657, .86993,
669 + .04562, .03466, 18.24409, .92432, .42117,
670 + .07847, .77306, .93027,
671 + .04724, .03542, 20.19777, .98758, .53743,
672 + .17025, .84423, .99368,
673 + .04872, .03611, 22.02699, 1.04777, .64709,
674 + .25016, .91179, 1.05400 /
675 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
676 + .05022, .03681, 23.89243, 1.11179, .75711,
677 + .33426, .98268, 1.11814,
678 + .05146, .03739, 25.46939, 1.16851, .84655,
679 + .40584, 1.04431, 1.17496,
680 + .05296, .03810, 27.42372, 1.24219, .95219,
681 + .49514, 1.12286, 1.24878,
682 + .05430, .03872, 29.16609, 1.31111, 1.04260,
683 + .57585, 1.19511, 1.31782,
684 + .05552, .03929, 30.77341, 1.37715, 1.12346,
685 + .65121, 1.26351, 1.38396,
686 + .05708, .04001, 32.84661, 1.46511, 1.22478,
687 + .74931, 1.35367, 1.47205,
688 + .05854, .04069, 34.79502, 1.55065, 1.31874,
689 + .84309, 1.44069, 1.55772,
690 + .05991, .04133, 36.62386, 1.63309, 1.40650,
691 + .93242, 1.52415, 1.64028 /
692 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
693 + .06129, .04196, 38.47926, 1.71826, 1.49527,
694 + 1.02389, 1.61010, 1.72557,
695 + .06263, .04259, 40.26366, 1.80235, 1.58178,
696 + 1.11373, 1.69477, 1.80977,
697 + .06391, .04317, 41.97194, 1.88398, 1.66506,
698 + 1.20056, 1.77688, 1.89151,
699 + .06511, .04373, 43.56797, 1.96172, 1.74396,
700 + 1.28302, 1.85501, 1.96935,
701 + .06631, .04429, 45.17334, 2.04105, 1.82422,
702 + 1.36696, 1.93469, 2.04878,
703 + .06750, .04483, 46.74132, 2.11983, 1.90378,
704 + 1.45018, 2.01380, 2.12767,
705 + .06863, .04535, 48.22965, 2.19567, 1.98026,
706 + 1.53015, 2.08993, 2.20360,
707 + .06970, .04585, 49.62084, 2.26776, 2.05291,
708 + 1.60610, 2.16229, 2.27578 /
709 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
710 + .07078, .04634, 51.03543, 2.34174, 2.12742,
711 + 1.68391, 2.23655, 2.34986,
712 + .07185, .04683, 52.39309, 2.41430, 2.20049,
713 + 1.76021, 2.30937, 2.42251,
714 + .07287, .04730, 53.71123, 2.48511, 2.27178,
715 + 1.83456, 2.38044, 2.49341,
716 + .07383, .04774, 54.92188, 2.55161, 2.33872,
717 + 1.90437, 2.44717, 2.55999,
718 + .07481, .04819, 56.15235, 2.61980, 2.40734,
719 + 1.97587, 2.51559, 2.62826 /
720 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
721 + .03487, .02971, 3.30117, .27589, .00225,
722 + .00000, .15561, .28098,
723 + .03617, .03033, 3.95952, .31187, .00482,
724 + .00000, .18712, .31709,
725 + .03811, .03124, 5.04475, .36935, .01074,
726 + .00000, .23766, .37475,
727 + .03952, .03190, 5.89745, .41336, .01728,
728 + .00000, .27664, .41889,
729 + .04100, .03259, 6.85498, .46143, .02711,
730 + .00000, .31957, .46710,
731 + .04228, .03319, 7.73029, .50406, .03886,
732 + .00000, .35806, .50985,
733 + .04350, .03376, 8.58619, .54478, .05370,
734 + .00000, .39534, .55068,
735 + .04480, .03436, 9.54766, .58872, .07448,
736 + .00000, .43625, .59474 /
737 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
738 + .04593, .03489, 10.41549, .62679, .09758,
739 + .00000, .47242, .63292,
740 + .04702, .03540, 11.26799, .66269, .12490,
741 + .00000, .50732, .66892,
742 + .04789, .03580, 11.97144, .69103, .15058,
743 + .00000, .53546, .69734,
744 + .04973, .03666, 13.50123, .74907, .21747,
745 + .00000, .59513, .75555,
746 + .05132, .03739, 14.86274, .79703, .28815,
747 + .01726, .64666, .80365,
748 + .05310, .03822, 16.43109, .84940, .37905,
749 + .06935, .70489, .85619,
750 + .05495, .03907, 18.10498, .90416, .48219,
751 + .15019, .76692, .91112,
752 + .05663, .03985, 19.66365, .95608, .57901,
753 + .22023, .82559, .96320 /
754 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
755 + .05832, .04063, 21.24435, 1.01116, .67565,
756 + .29368, .88692, 1.01843,
757 + .05972, .04128, 22.57435, 1.05986, .75383,
758 + .35597, .94011, 1.06726,
759 + .06143, .04207, 24.21530, 1.12302, .84571,
760 + .43342, 1.00770, 1.13058,
761 + .06294, .04276, 25.67109, 1.18198, .92394,
762 + .50317, 1.06968, 1.18967,
763 + .06432, .04339, 27.00823, 1.23834, .99359,
764 + .56810, 1.12820, 1.24616,
765 + .06607, .04420, 28.72566, 1.31323, 1.08047,
766 + .65235, 1.20513, 1.32121,
767 + .06772, .04496, 30.33145, 1.38584, 1.16066,
768 + .73259, 1.27913, 1.39397,
769 + .06926, .04566, 31.83175, 1.45562, 1.23524,
770 + .80877, 1.34988, 1.46389 /
771 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
772 + .07081, .04637, 33.34804, 1.52752, 1.31044,
773 + .88655, 1.42253, 1.53593,
774 + .07231, .04706, 34.79895, 1.59827, 1.38344,
775 + .96270, 1.49388, 1.60682,
776 + .07374, .04772, 36.18305, 1.66680, 1.45351,
777 + 1.03609, 1.56288, 1.67547,
778 + .07509, .04833, 37.47084, 1.73186, 1.51970,
779 + 1.10559, 1.62835, 1.74065,
780 + .07644, .04895, 38.76157, 1.79810, 1.58686,
781 + 1.17616, 1.69495, 1.80701,
782 + .07777, .04955, 40.01739, 1.86371, 1.65324,
783 + 1.24595, 1.76091, 1.87274,
784 + .07903, .05013, 41.20533, 1.92671, 1.71691,
785 + 1.31285, 1.82423, 1.93586,
786 + .08022, .05067, 42.31158, 1.98645, 1.77723,
787 + 1.37622, 1.88427, 1.99571 /
788 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
789 + .08143, .05122, 43.43352, 2.04765, 1.83898,
790 + 1.44103, 1.94576, 2.05701,
791 + .08262, .05176, 44.50545, 2.10750, 1.89937,
792 + 1.50441, 2.00589, 2.11697,
793 + .08376, .05227, 45.54426, 2.16582, 1.95820,
794 + 1.56605, 2.06449, 2.17539,
795 + .08483, .05276, 46.49398, 2.22045, 2.01329,
796 + 1.62380, 2.11937, 2.23011,
797 + .08592, .05326, 47.45703, 2.27636, 2.06967,
798 + 1.68284, 2.17554, 2.28612 /
799 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
800 + .03960, .03203, 3.20542, .26983, .00214,
801 + .00000, .15169, .27528,
802 + .04105, .03271, 3.82094, .30352, .00457,
803 + .00000, .18122, .30910,
804 + .04320, .03371, 4.82874, .35704, .01012,
805 + .00000, .22835, .36283,
806 + .04477, .03444, 5.61557, .39784, .01624,
807 + .00000, .26452, .40377,
808 + .04641, .03521, 6.49455, .44223, .02539,
809 + .00000, .30421, .44831,
810 + .04783, .03586, 7.29426, .48144, .03629,
811 + .00000, .33967, .48766,
812 + .04918, .03649, 8.07288, .51878, .05004,
813 + .00000, .37390, .52512,
814 + .05061, .03716, 8.94411, .55893, .06924,
815 + .00000, .41134, .56540 /
816 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
817 + .05186, .03774, 9.72754, .59360, .09054,
818 + .00000, .44435, .60019,
819 + .05307, .03829, 10.49437, .62619, .11568,
820 + .00000, .47611, .63289,
821 + .05403, .03874, 11.12543, .65184, .13927,
822 + .00000, .50165, .65862,
823 + .05606, .03968, 12.49215, .70415, .20058,
824 + .00000, .55563, .71112,
825 + .05781, .04049, 13.70261, .74715, .26516,
826 + .01565, .60204, .75428,
827 + .05977, .04139, 15.09055, .79388, .34794,
828 + .06273, .65429, .80119,
829 + .06180, .04233, 16.56467, .84254, .44152,
830 + .13564, .70975, .85004,
831 + .06364, .04318, 17.93107, .88855, .52901,
832 + .19859, .76203, .89623 /
833 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
834 + .06550, .04403, 19.31050, .93726, .61598,
835 + .26438, .81654, .94510,
836 + .06704, .04474, 20.46654, .98026, .68606,
837 + .32002, .86369, .98824,
838 + .06891, .04559, 21.88762, 1.03595, .76808,
839 + .38900, .92348, 1.04411,
840 + .07056, .04635, 23.14321, 1.08784, .83763,
841 + .45096, .97819, 1.09614,
842 + .07206, .04704, 24.29217, 1.13736, .89931,
843 + .50848, 1.02972, 1.14581,
844 + .07398, .04792, 25.76268, 1.20304, .97598,
845 + .58293, 1.09730, 1.21166,
846 + .07578, .04874, 27.13184, 1.26656, 1.04645,
847 + .65362, 1.16213, 1.27534,
848 + .07746, .04951, 28.40598, 1.32746, 1.11178,
849 + .72056, 1.22396, 1.33639 /
850 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
851 + .07914, .05028, 29.68954, 1.39007, 1.17746,
852 + .78873, 1.28731, 1.39916,
853 + .08078, .05102, 30.91269, 1.45152, 1.24103,
854 + .85530, 1.34934, 1.46076,
855 + .08233, .05173, 32.07600, 1.51091, 1.30190,
856 + .91931, 1.40921, 1.52029,
857 + .08379, .05239, 33.15438, 1.56718, 1.35926,
858 + .97979, 1.46588, 1.57668,
859 + .08526, .05306, 34.23197, 1.62434, 1.41732,
860 + 1.04107, 1.52343, 1.63398,
861 + .08670, .05371, 35.27694, 1.68083, 1.47460,
862 + 1.10154, 1.58028, 1.69060,
863 + .08807, .05434, 36.26265, 1.73498, 1.52942,
864 + 1.15940, 1.63476, 1.74487,
865 + .08936, .05492, 37.17768, 1.78623, 1.58126,
866 + 1.21410, 1.68631, 1.79623 /
867 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
868 + .09066, .05551, 38.10364, 1.83863, 1.63424,
869 + 1.26994, 1.73901, 1.84875,
870 + .09195, .05609, 38.98455, 1.88976, 1.68592,
871 + 1.32444, 1.79045, 1.90000,
872 + .09317, .05665, 39.83699, 1.93952, 1.73621,
873 + 1.37736, 1.84049, 1.94988,
874 + .09433, .05717, 40.61322, 1.98603, 1.78320,
875 + 1.42684, 1.88726, 1.99648,
876 + .09551, .05770, 41.39886, 2.03356, 1.83122,
877 + 1.47736, 1.93506, 2.04412 /
878 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
879 + .05855, .04090, 2.90500, .25055, .00182,
880 + .00000, .13973, .25771,
881 + .06056, .04182, 3.39686, .27753, .00385,
882 + .00000, .16351, .28489,
883 + .06353, .04319, 4.18520, .31972, .00838,
884 + .00000, .20086, .32737,
885 + .06568, .04418, 4.78822, .35143, .01328,
886 + .00000, .22912, .35930,
887 + .06792, .04521, 5.45065, .38550, .02054,
888 + .00000, .25976, .39359,
889 + .06985, .04610, 6.04421, .41525, .02909,
890 + .00000, .28681, .42352,
891 + .07169, .04694, 6.61398, .44329, .03980,
892 + .00000, .31269, .45174,
893 + .07364, .04784, 7.24342, .47310, .05463,
894 + .00000, .34070, .48174 /
895 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
896 + .07533, .04862, 7.80248, .49856, .07096,
897 + .00000, .36515, .50737,
898 + .07695, .04936, 8.34333, .52224, .09013,
899 + .00000, .38846, .53121,
900 + .07824, .04995, 8.78451, .54070, .10801,
901 + .00000, .40706, .54979,
902 + .08097, .05120, 9.72700, .57784, .15413,
903 + .00000, .44594, .58720,
904 + .08332, .05228, 10.54825, .60783, .20223,
905 + .01137, .47891, .61741,
906 + .08592, .05347, 11.47559, .63990, .26325,
907 + .04530, .51555, .64974,
908 + .08862, .05470, 12.44461, .67285, .33142,
909 + .09747, .55398, .68294,
910 + .09106, .05581, 13.32924, .70372, .39435,
911 + .14197, .58983, .71405 /
912 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
913 + .09350, .05693, 14.20831, .73618, .45608,
914 + .18801, .62687, .74674,
915 + .09552, .05785, 14.93534, .76471, .50519,
916 + .22659, .65867, .77547,
917 + .09796, .05896, 15.81797, .80151, .56191,
918 + .27400, .69871, .81250,
919 + .10011, .05994, 16.58684, .83560, .60933,
920 + .31618, .73506, .84679,
921 + .10207, .06083, 17.28159, .86796, .65088,
922 + .35503, .76905, .87934,
923 + .10456, .06195, 18.16017, .91062, .70189,
924 + .40487, .81330, .92223,
925 + .10688, .06300, 18.96586, .95153, .74817,
926 + .45174, .85536, .96337,
927 + .10904, .06398, 19.70544, .99046, .79060,
928 + .49574, .89513, 1.00250 /
929 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
930 + .11120, .06496, 20.44238, 1.03021, .83285,
931 + .54019, .93559, 1.04245,
932 + .11329, .06590, 21.13367, 1.06887, .87332,
933 + .58322, .97484, 1.08130,
934 + .11526, .06679, 21.78443, 1.10598, .91176,
935 + .62429, 1.01245, 1.11860,
936 + .11712, .06763, 22.37990, 1.14086, .94769,
937 + .66280, 1.04779, 1.15366,
938 + .11897, .06846, 22.96857, 1.17606, .98381,
939 + .70155, 1.08341, 1.18903,
940 + .12079, .06928, 23.53255, 1.21060, 1.01916,
941 + .73952, 1.11836, 1.22374,
942 + .12251, .07005, 24.05895, 1.24349, 1.05277,
943 + .77562, 1.15162, 1.25678,
944 + .12413, .07078, 24.54169, 1.27439, 1.08434,
945 + .80951, 1.18288, 1.28783 /
946 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
947 + .12577, .07151, 25.02650, 1.30583, 1.11643,
948 + .84393, 1.21467, 1.31942,
949 + .12737, .07223, 25.48055, 1.33626, 1.14749,
950 + .87727, 1.24545, 1.35000,
951 + .12890, .07291, 25.91783, 1.36576, 1.17758,
952 + .90952, 1.27528, 1.37964,
953 + .13034, .07355, 26.30958, 1.39311, 1.20548,
954 + .93944, 1.30294, 1.40712,
955 + .13179, .07420, 26.70331, 1.42093, 1.23387,
956 + .96985, 1.33108, 1.43508 /
957 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
958 + .08637, .05366, 2.58782, .23059, .00157,
959 + .00000, .12781, .24025,
960 + .08908, .05493, 2.96868, .25147, .00325,
961 + .00000, .14637, .26141,
962 + .09310, .05679, 3.56535, .28361, .00690,
963 + .00000, .17508, .29396,
964 + .09598, .05813, 4.01163, .30741, .01078,
965 + .00000, .19648, .31806,
966 + .09900, .05953, 4.49294, .33265, .01641,
967 + .00000, .21939, .34361,
968 + .10158, .06072, 4.91700, .35441, .02297,
969 + .00000, .23938, .36563,
970 + .10401, .06184, 5.31749, .37470, .03110,
971 + .00000, .25830, .38617,
972 + .10659, .06304, 5.75375, .39600, .04225,
973 + .00000, .27855, .40774 /
974 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
975 + .10883, .06407, 6.13587, .41397, .05443,
976 + .00000, .29604, .42594,
977 + .11096, .06505, 6.50057, .43050, .06863,
978 + .00000, .31256, .44268,
979 + .11265, .06583, 6.79520, .44324, .08179,
980 + .00000, .32562, .45560,
981 + .11623, .06747, 7.41457, .46847, .11545,
982 + .00000, .35260, .48118,
983 + .11927, .06887, 7.94422, .48842, .15019,
984 + .00801, .37512, .50144,
985 + .12265, .07042, 8.53170, .50935, .19377,
986 + .03171, .39980, .52271,
987 + .12612, .07201, 9.13389, .53051, .24184,
988 + .06788, .42533, .54421,
989 + .12925, .07343, 9.67389, .55013, .28562,
990 + .09833, .44888, .56415 /
991 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
992 + .13237, .07485, 10.20026, .57062, .32795,
993 + .12948, .47296, .58493,
994 + .13493, .07602, 10.62868, .58855, .36115,
995 + .15533, .49346, .60312,
996 + .13802, .07743, 11.14102, .61159, .39895,
997 + .18678, .51908, .62646,
998 + .14073, .07865, 11.57926, .63282, .43007,
999 + .21448, .54213, .64795,
1000 + .14318, .07976, 11.96911, .65285, .45696,
1001 + .23975, .56351, .66822,
1002 + .14628, .08116, 12.45494, .67908, .48951,
1003 + .27188, .59112, .69475,
1004 + .14916, .08246, 12.89163, .70401, .51860,
1005 + .30177, .61708, .71996,
1006 + .15183, .08366, 13.28538, .72752, .54492,
1007 + .32955, .64140, .74372 /
1008 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1009 + .15449, .08486, 13.67239, .75134, .57085,
1010 + .35738, .66592, .76779,
1011 + .15705, .08600, 14.02733, .77427, .59540,
1012 + .38405, .68947, .79095,
1013 + .15947, .08708, 14.35719, .79610, .61850,
1014 + .40929, .71185, .81301,
1015 + .16172, .08809, 14.65374, .81642, .63987,
1016 + .43275, .73267, .83355,
1017 + .16397, .08909, 14.94254, .83677, .66118,
1018 + .45618, .75350, .85410,
1019 + .16616, .09006, 15.21435, .85657, .68186,
1020 + .47896, .77377, .87410,
1021 + .16822, .09098, 15.46424, .87527, .70137,
1022 + .50045, .79290, .89299,
1023 + .17016, .09184, 15.68920, .89269, .71953,
1024 + .52047, .81073, .91059 /
1025 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1026 + .17212, .09270, 15.91281, .91030, .73789,
1027 + .54068, .82875, .92838,
1028 + .17401, .09354, 16.11683, .92718, .75548,
1029 + .56009, .84603, .94543,
1030 + .17583, .09434, 16.31231, .94347, .77245,
1031 + .57877, .86270, .96189,
1032 + .17752, .09509, 16.48267, .95842, .78804,
1033 + .59596, .87800, .97699,
1034 + .17924, .09584, 16.65221, .97355, .80382,
1035 + .61334, .89349, .99227 /
1036 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1037 + .10826, .06384, 2.39439, .21842, .00145,
1038 + .00000, .12088, .23025,
1039 + .11148, .06535, 2.71659, .23602, .00296,
1040 + .00000, .13667, .24819,
1041 + .11621, .06756, 3.21423, .26286, .00618,
1042 + .00000, .16083, .27554,
1043 + .11960, .06915, 3.58112, .28255, .00953,
1044 + .00000, .17869, .29559,
1045 + .12313, .07079, 3.97215, .30327, .01434,
1046 + .00000, .19766, .31668,
1047 + .12614, .07219, 4.31295, .32099, .01989,
1048 + .00000, .21409, .33472,
1049 + .12898, .07351, 4.63129, .33741, .02671,
1050 + -.00001, .22955, .35143,
1051 + .13198, .07490, 4.97495, .35450, .03601,
1052 + -.00001, .24597, .36884 /
1053 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1054 + .13457, .07610, 5.27320, .36881, .04612,
1055 + -.00001, .26006, .38342,
1056 + .13704, .07724, 5.55525, .38187, .05783,
1057 + -.00001, .27328, .39673,
1058 + .13900, .07815, 5.78169, .39186, .06865,
1059 + -.00001, .28368, .40692,
1060 + .14311, .08004, 6.25251, .41143, .09617,
1061 + -.00001, .30499, .42691,
1062 + .14660, .08165, 6.65002, .42668, .12438,
1063 + .00641, .32260, .44251,
1064 + .15046, .08341, 7.08559, .44247, .15953,
1065 + .02529, .34172, .45869,
1066 + .15442, .08522, 7.52616, .45825, .19799,
1067 + .05397, .36132, .47487,
1068 + .15797, .08684, 7.91635, .47279, .23271,
1069 + .07792, .37927, .48976 /
1070 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1071 + .16149, .08844, 8.29125, .48789, .26600,
1072 + .10224, .39749, .50521,
1073 + .16438, .08975, 8.59288, .50109, .29187,
1074 + .12230, .41293, .51869,
1075 + .16785, .09132, 8.94977, .51802, .32106,
1076 + .14656, .43212, .53596,
1077 + .17088, .09269, 9.25115, .53356, .34485,
1078 + .16778, .44929, .55179,
1079 + .17362, .09392, 9.51594, .54816, .36521,
1080 + .18703, .46512, .56666,
1081 + .17707, .09547, 9.84229, .56722, .38964,
1082 + .21135, .48546, .58604,
1083 + .18026, .09689, 10.13116, .58522, .41126,
1084 + .23383, .50446, .60435,
1085 + .18321, .09821, 10.38797, .60209, .43065,
1086 + .25458, .52214, .62149 /
1087 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1088 + .18614, .09951, 10.63775, .61909, .44961,
1089 + .27525, .53986, .63876,
1090 + .18894, .10076, 10.86246, .63533, .46740,
1091 + .29492, .55675, .65526,
1092 + .19158, .10192, 11.06915, .65071, .48405,
1093 + .31346, .57272, .67089,
1094 + .19403, .10301, 11.25211, .66495, .49937,
1095 + .33059, .58748, .68535,
1096 + .19647, .10408, 11.42800, .67912, .51454,
1097 + .34761, .60217, .69974,
1098 + .19885, .10512, 11.59090, .69282, .52917,
1099 + .36406, .61636, .71365,
1100 + .20108, .10610, 11.73867, .70568, .54290,
1101 + .37951, .62970, .72671,
1102 + .20317, .10701, 11.86938, .71759, .55562,
1103 + .39383, .64205, .73880 /
1104 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1105 + .20527, .10792, 11.99821, .72958, .56841,
1106 + .40823, .65449, .75099,
1107 + .20730, .10880, 12.11276, .74099, .58059,
1108 + .42198, .66632, .76257,
1109 + .20924, .10964, 12.22217, .75196, .59231,
1110 + .43517, .67771, .77371,
1111 + .21104, .11042, 12.31439, .76195, .60299,
1112 + .44723, .68808, .78385,
1113 + .21286, .11121, 12.40527, .77201, .61376,
1114 + .45938, .69853, .79407 /
1115 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1116 + .12703, .07278, 2.25314, .20954, .00138,
1117 + .00000, .11600, .22335,
1118 + .13063, .07448, 2.53657, .22495, .00279,
1119 + .00000, .12992, .23915,
1120 + .13591, .07696, 2.96967, .24827, .00573,
1121 + .00000, .15110, .26305,
1122 + .13969, .07873, 3.28544, .26528, .00874,
1123 + .00000, .16665, .28046,
1124 + .14361, .08056, 3.61897, .28306, .01302,
1125 + .00000, .18306, .29866,
1126 + .14694, .08211, 3.90723, .29818, .01792,
1127 + .00000, .19720, .31414,
1128 + .15008, .08357, 4.17417, .31211, .02390,
1129 + .00000, .21044, .32840,
1130 + .15339, .08511, 4.46034, .32653, .03202,
1131 + -.00001, .22443, .34316 /
1132 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1133 + .15625, .08643, 4.70691, .33853, .04079,
1134 + -.00001, .23638, .35546,
1135 + .15896, .08768, 4.93837, .34940, .05093,
1136 + -.00001, .24754, .36661,
1137 + .16110, .08867, 5.12329, .35768, .06026,
1138 + -.00001, .25628, .37511,
1139 + .16560, .09074, 5.50443, .37375, .08388,
1140 + -.00001, .27407, .39164,
1141 + .16941, .09249, 5.82289, .38612, .10797,
1142 + .00542, .28866, .40439,
1143 + .17361, .09440, 6.16843, .39879, .13784,
1144 + .02133, .30439, .41748,
1145 + .17790, .09636, 6.51415, .41132, .17032,
1146 + .04542, .32040, .43044,
1147 + .18173, .09810, 6.81717, .42282, .19947,
1148 + .06541, .33498, .44232 /
1149 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1150 + .18553, .09981, 7.10486, .43472, .22721,
1151 + .08560, .34970, .45459,
1152 + .18864, .10121, 7.33407, .44510, .24864,
1153 + .10218, .36211, .46527,
1154 + .19236, .10288, 7.60284, .45840, .27265,
1155 + .12213, .37749, .47893,
1156 + .19559, .10433, 7.82715, .47058, .29206,
1157 + .13950, .39118, .49141,
1158 + .19851, .10563, 8.02214, .48200, .30856,
1159 + .15518, .40376, .50310,
1160 + .20218, .10725, 8.26016, .49685, .32821,
1161 + .17490, .41985, .51829,
1162 + .20555, .10875, 8.46784, .51082, .34547,
1163 + .19304, .43479, .53257,
1164 + .20866, .11012, 8.65005, .52383, .36084,
1165 + .20969, .44862, .54587 /
1166 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1167 + .21175, .11147, 8.82558, .53690, .37579,
1168 + .22622, .46242, .55922,
1169 + .21469, .11276, 8.98053, .54930, .38972,
1170 + .24186, .47550, .57188,
1171 + .21745, .11396, 9.12168, .56100, .40270,
1172 + .25654, .48780, .58383,
1173 + .22001, .11508, 9.24462, .57177, .41457,
1174 + .27005, .49912, .59482,
1175 + .22255, .11618, 9.36129, .58243, .42628,
1176 + .28342, .51033, .60570,
1177 + .22501, .11724, 9.46753, .59269, .43752,
1178 + .29628, .52111, .61617,
1179 + .22733, .11823, 9.56252, .60227, .44801,
1180 + .30832, .53119, .62595,
1181 + .22948, .11915, 9.64487, .61110, .45769,
1182 + .31943, .54048, .63496 /
1183 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1184 + .23165, .12008, 9.72529, .61995, .46739,
1185 + .33058, .54980, .64400,
1186 + .23373, .12096, 9.79446, .62831, .47657,
1187 + .34116, .55861, .65253,
1188 + .23572, .12181, 9.86038, .63634, .48539,
1189 + .35129, .56708, .66073,
1190 + .23757, .12259, 9.91366, .64359, .49338,
1191 + .36052, .57473, .66812,
1192 + .23943, .12337, 9.96554, .65088, .50141,
1193 + .36978, .58243, .67556 /
1194 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1195 + .14377, .08092, 2.14181, .20246, .00133,
1196 + .00000, .11225, .21817,
1197 + .14768, .08276, 2.39687, .21625, .00268,
1198 + .00000, .12480, .23238,
1199 + .15341, .08546, 2.78317, .23700, .00542,
1200 + .00000, .14378, .25375,
1201 + .15750, .08737, 3.06228, .25204, .00819,
1202 + .00000, .15765, .26924,
1203 + .16173, .08934, 3.35486, .26769, .01209,
1204 + .00000, .17221, .28534,
1205 + .16533, .09102, 3.60591, .28094, .01652,
1206 + .00000, .18471, .29897,
1207 + .16869, .09258, 3.83675, .29309, .02190,
1208 + .00000, .19637, .31148,
1209 + .17225, .09423, 4.08278, .30560, .02917,
1210 + .00000, .20863, .32436 /
1211 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1212 + .17530, .09564, 4.29346, .31596, .03699,
1213 + .00000, .21906, .33503,
1214 + .17820, .09697, 4.48996, .32530, .04599,
1215 + .00000, .22876, .34467,
1216 + .18049, .09802, 4.64632, .33237, .05426,
1217 + .00000, .23633, .35198,
1218 + .18528, .10022, 4.96613, .34599, .07512,
1219 + .00000, .25167, .36608,
1220 + .18933, .10206, 5.23092, .35636, .09630,
1221 + .00474, .26417, .37686,
1222 + .19377, .10408, 5.51586, .36688, .12244,
1223 + .01859, .27755, .38781,
1224 + .19829, .10613, 5.79828, .37720, .15074,
1225 + .03949, .29110, .39857,
1226 + .20234, .10794, 6.04335, .38662, .17600,
1227 + .05675, .30337, .40838 /
1228 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1229 + .20632, .10973, 6.27352, .39635, .19992,
1230 + .07412, .31570, .41849,
1231 + .20957, .11118, 6.45536, .40482, .21830,
1232 + .08831, .32607, .42727,
1233 + .21346, .11291, 6.66685, .41568, .23876,
1234 + .10533, .33887, .43849,
1235 + .21683, .11439, 6.84134, .42560, .25520,
1236 + .12009, .35023, .44872,
1237 + .21986, .11573, 6.99153, .43488, .26910,
1238 + .13337, .36062, .45827,
1239 + .22366, .11740, 7.17320, .44691, .28555,
1240 + .15000, .37386, .47065,
1241 + .22715, .11892, 7.32936, .45818, .29991,
1242 + .16523, .38610, .48223,
1243 + .23036, .12031, 7.46462, .46865, .31261,
1244 + .17916, .39738, .49298 /
1245 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1246 + .23353, .12168, 7.59373, .47912, .32492,
1247 + .19294, .40860, .50372,
1248 + .23655, .12297, 7.70532, .48899, .33631,
1249 + .20592, .41916, .51385,
1250 + .23937, .12418, 7.80595, .49827, .34689,
1251 + .21806, .42907, .52337,
1252 + .24198, .12529, 7.89207, .50676, .35651,
1253 + .22918, .43813, .53208,
1254 + .24457, .12639, 7.97259, .51514, .36597,
1255 + .24016, .44708, .54067,
1256 + .24707, .12745, 8.04447, .52316, .37500,
1257 + .25069, .45564, .54889,
1258 + .24941, .12843, 8.10767, .53062, .38342,
1259 + .26051, .46361, .55654,
1260 + .25159, .12934, 8.16112, .53745, .39114,
1261 + .26955, .47093, .56355 /
1262 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1263 + .25377, .13025, 8.21272, .54429, .39886,
1264 + .27858, .47825, .57056,
1265 + .25586, .13112, 8.25504, .55070, .40613,
1266 + .28713, .48512, .57712,
1267 + .25786, .13195, 8.29530, .55684, .41309,
1268 + .29529, .49171, .58342,
1269 + .25970, .13271, 8.32588, .56234, .41936,
1270 + .30270, .49764, .58906,
1271 + .26155, .13347, 8.35514, .56786, .42566,
1272 + .31012, .50358, .59471 /
1273 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1274 + .17330, .09562, 1.97188, .19141, .00128,
1275 + .00000, .10665, .21072,
1276 + .17769, .09768, 2.18690, .20286, .00253,
1277 + .00001, .11724, .22265,
1278 + .18410, .10068, 2.50801, .21996, .00501,
1279 + .00001, .13313, .24043,
1280 + .18865, .10280, 2.73649, .23224, .00745,
1281 + .00001, .14464, .25320,
1282 + .19334, .10497, 2.97307, .24493, .01083,
1283 + .00001, .15664, .26637,
1284 + .19731, .10680, 3.17379, .25558, .01461,
1285 + .00001, .16686, .27744,
1286 + .20102, .10851, 3.35596, .26527, .01916,
1287 + .00001, .17634, .28750,
1288 + .20491, .11029, 3.54827, .27517, .02526,
1289 + .00001, .18624, .29779 /
1290 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1291 + .20825, .11181, 3.71124, .28329, .03177,
1292 + .00001, .19460, .30625,
1293 + .21141, .11324, 3.86155, .29054, .03922,
1294 + .00001, .20232, .31381,
1295 + .21390, .11437, 3.98034, .29599, .04604,
1296 + .00001, .20832, .31951,
1297 + .21909, .11671, 4.22022, .30633, .06312,
1298 + .00001, .22036, .33035,
1299 + .22345, .11866, 4.41563, .31405, .08035,
1300 + .00383, .23006, .33848,
1301 + .22821, .12078, 4.62265, .32172, .10147,
1302 + .01493, .24034, .34660,
1303 + .23304, .12292, 4.82433, .32914, .12415,
1304 + .03161, .25065, .35446,
1305 + .23733, .12480, 4.99655, .33586, .14423,
1306 + .04528, .25990, .36157 /
1307 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1308 + .24153, .12664, 5.15492, .34275, .16308,
1309 + .05892, .26913, .36884,
1310 + .24495, .12812, 5.27785, .34876, .17743,
1311 + .07001, .27684, .37515,
1312 + .24901, .12987, 5.41861, .35646, .19327,
1313 + .08323, .28632, .38320,
1314 + .25252, .13138, 5.53244, .36348, .20586,
1315 + .09461, .29466, .39051,
1316 + .25566, .13272, 5.62823, .37002, .21641,
1317 + .10478, .30226, .39730,
1318 + .25958, .13437, 5.74189, .37847, .22877,
1319 + .11746, .31188, .40608,
1320 + .26315, .13588, 5.83669, .38632, .23943,
1321 + .12898, .32069, .41422,
1322 + .26642, .13724, 5.91634, .39355, .24878,
1323 + .13945, .32874, .42170 /
1324 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1325 + .26964, .13857, 5.99080, .40074, .25775,
1326 + .14974, .33670, .42914,
1327 + .27267, .13983, 6.05207, .40744, .26599,
1328 + .15937, .34411, .43607,
1329 + .27551, .14099, 6.10597, .41370, .27358,
1330 + .16833, .35103, .44254,
1331 + .27812, .14204, 6.14989, .41937, .28043,
1332 + .17650, .35730, .44841,
1333 + .28070, .14308, 6.18932, .42492, .28711,
1334 + .18450, .36344, .45414,
1335 + .28316, .14407, 6.22248, .43019, .29346,
1336 + .19214, .36928, .45957,
1337 + .28547, .14499, 6.25002, .43504, .29933,
1338 + .19922, .37467, .46458,
1339 + .28760, .14584, 6.27124, .43944, .30467,
1340 + .20571, .37957, .46912 /
1341 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1342 + .28973, .14667, 6.29093, .44381, .30998,
1343 + .21216, .38445, .47364,
1344 + .29176, .14747, 6.30404, .44784, .31494,
1345 + .21822, .38897, .47780,
1346 + .29370, .14822, 6.31648, .45170, .31967,
1347 + .22399, .39330, .48178,
1348 + .29547, .14890, 6.32275, .45510, .32389,
1349 + .22918, .39713, .48528,
1350 + .29724, .14958, 6.32791, .45848, .32811,
1351 + .23437, .40096, .48877 /
1352 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1353 + .21138, .11514, 1.79079, .17901, .00125,
1354 + .00000, .10074, .20332,
1355 + .21626, .11739, 1.96698, .18816, .00242,
1356 + .00000, .10940, .21298,
1357 + .22334, .12063, 2.22574, .20169, .00465,
1358 + .00000, .12228, .22721,
1359 + .22833, .12290, 2.40649, .21131, .00678,
1360 + .00000, .13151, .23732,
1361 + .23346, .12522, 2.59081, .22114, .00967,
1362 + .00000, .14106, .24765,
1363 + .23778, .12716, 2.74496, .22932, .01284,
1364 + -.00001, .14913, .25625,
1365 + .24178, .12895, 2.88262, .23669, .01661,
1366 + .00000, .15654, .26399,
1367 + .24598, .13081, 3.02624, .24414, .02160,
1368 + .00000, .16422, .27182 /
1369 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1370 + .24956, .13239, 3.14636, .25017, .02688,
1371 + .00000, .17066, .27818,
1372 + .25293, .13387, 3.25551, .25549, .03288,
1373 + .00000, .17656, .28380,
1374 + .25558, .13503, 3.34105, .25944, .03834,
1375 + .00000, .18110, .28799,
1376 + .26106, .13741, 3.51065, .26678, .05191,
1377 + .00000, .19013, .29581,
1378 + .26564, .13937, 3.64592, .27211, .06548,
1379 + .00298, .19730, .30151,
1380 + .27061, .14149, 3.78625, .27725, .08198,
1381 + .01160, .20480, .30707,
1382 + .27562, .14360, 3.91961, .28210, .09954,
1383 + .02449, .21222, .31232,
1384 + .28003, .14545, 4.03076, .28645, .11494,
1385 + .03495, .21881, .31702 /
1386 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1387 + .28432, .14722, 4.12976, .29088, .12925,
1388 + .04531, .22532, .32177,
1389 + .28778, .14864, 4.20458, .29475, .14004,
1390 + .05366, .23072, .32589,
1391 + .29188, .15031, 4.28810, .29972, .15181,
1392 + .06355, .23730, .33115,
1393 + .29537, .15172, 4.35314, .30424, .16106,
1394 + .07200, .24305, .33591,
1395 + .29849, .15296, 4.40591, .30842, .16871,
1396 + .07950, .24824, .34030,
1397 + .30236, .15448, 4.46645, .31381, .17757,
1398 + .08879, .25476, .34595,
1399 + .30585, .15585, 4.51374, .31877, .18512,
1400 + .09715, .26067, .35112,
1401 + .30901, .15707, 4.55100, .32328, .19165,
1402 + .10469, .26601, .35582 /
1403 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1404 + .31212, .15825, 4.58425, .32772, .19785,
1405 + .11205, .27124, .36045,
1406 + .31501, .15934, 4.60809, .33179, .20348,
1407 + .11887, .27604, .36468,
1408 + .31770, .16035, 4.62757, .33555, .20861,
1409 + .12519, .28048, .36859,
1410 + .32016, .16124, 4.64084, .33890, .21319,
1411 + .13089, .28445, .37207,
1412 + .32256, .16211, 4.65078, .34214, .21763,
1413 + .13645, .28830, .37543,
1414 + .32484, .16294, 4.65653, .34516, .22180,
1415 + .14172, .29191, .37855,
1416 + .32696, .16369, 4.65919, .34791, .22562,
1417 + .14657, .29521, .38139,
1418 + .32891, .16437, 4.65828, .35035, .22906,
1419 + .15098, .29817, .38390 /
1420 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1421 + .33084, .16504, 4.65622, .35275, .23247,
1422 + .15535, .30109, .38639,
1423 + .33265, .16567, 4.64977, .35490, .23560,
1424 + .15941, .30374, .38860,
1425 + .33438, .16626, 4.64368, .35695, .23858,
1426 + .16327, .30627, .39072,
1427 + .33594, .16677, 4.63411, .35870, .24119,
1428 + .16670, .30847, .39251,
1429 + .33751, .16729, 4.62373, .36042, .24379,
1430 + .17012, .31064, .39428 /
1431 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1432 + .26529, .14336, 1.58809, .16364, .00123,
1433 + -.00002, .09390, .19535,
1434 + .27059, .14567, 1.72443, .17039, .00233,
1435 + -.00002, .10057, .20255,
1436 + .27824, .14897, 1.92020, .18023, .00433,
1437 + -.00002, .11034, .21303,
1438 + .28358, .15124, 2.05347, .18712, .00616,
1439 + -.00002, .11725, .22036,
1440 + .28902, .15354, 2.18654, .19408, .00855,
1441 + -.00002, .12432, .22774,
1442 + .29356, .15544, 2.29560, .19978, .01113,
1443 + -.00002, .13022, .23379,
1444 + .29774, .15717, 2.39066, .20484, .01412,
1445 + -.00002, .13558, .23914,
1446 + .30209, .15895, 2.48815, .20986, .01801,
1447 + -.00002, .14108, .24448 /
1448 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1449 + .30577, .16045, 2.56807, .21387, .02208,
1450 + -.00002, .14563, .24873,
1451 + .30921, .16183, 2.63906, .21731, .02665,
1452 + -.00002, .14974, .25240,
1453 + .31190, .16291, 2.69400, .21981, .03077,
1454 + -.00002, .15289, .25509,
1455 + .31742, .16508, 2.79974, .22430, .04093,
1456 + -.00002, .15902, .25992,
1457 + .32198, .16685, 2.88107, .22738, .05096,
1458 + .00218, .16380, .26326,
1459 + .32687, .16872, 2.96246, .23017, .06303,
1460 + .00846, .16869, .26633,
1461 + .33173, .17054, 3.03648, .23266, .07572,
1462 + .01779, .17342, .26907,
1463 + .33596, .17211, 3.09532, .23485, .08672,
1464 + .02528, .17756, .27147 /
1465 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1466 + .34002, .17357, 3.14427, .23706, .09681,
1467 + .03262, .18158, .27386,
1468 + .34326, .17472, 3.17918, .23901, .10431,
1469 + .03848, .18488, .27594,
1470 + .34705, .17604, 3.21591, .24154, .11238,
1471 + .04536, .18886, .27862,
1472 + .35024, .17714, 3.24160, .24383, .11861,
1473 + .05117, .19229, .28102,
1474 + .35304, .17808, 3.26007, .24595, .12369,
1475 + .05628, .19534, .28322,
1476 + .35648, .17921, 3.27886, .24866, .12947,
1477 + .06255, .19913, .28602,
1478 + .35954, .18018, 3.28979, .25109, .13430,
1479 + .06813, .20250, .28852,
1480 + .36226, .18102, 3.29510, .25325, .13840,
1481 + .07311, .20548, .29073 /
1482 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1483 + .36490, .18183, 3.29770, .25536, .14225,
1484 + .07794, .20836, .29287,
1485 + .36731, .18253, 3.29429, .25719, .14566,
1486 + .08236, .21093, .29473,
1487 + .36952, .18316, 3.28913, .25885, .14874,
1488 + .08641, .21327, .29640,
1489 + .37150, .18370, 3.28100, .26028, .15145,
1490 + .09003, .21532, .29782,
1491 + .37341, .18421, 3.27074, .26160, .15403,
1492 + .09354, .21726, .29913,
1493 + .37520, .18466, 3.25815, .26277, .15641,
1494 + .09681, .21902, .30029,
1495 + .37684, .18506, 3.24450, .26379, .15856,
1496 + .09981, .22060, .30129,
1497 + .37830, .18541, 3.22948, .26464, .16047,
1498 + .10250, .22197, .30211 /
1499 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1500 + .37974, .18574, 3.21378, .26546, .16235,
1501 + .10516, .22330, .30289,
1502 + .38107, .18601, 3.19560, .26611, .16402,
1503 + .10759, .22446, .30350,
1504 + .38232, .18627, 3.17849, .26673, .16561,
1505 + .10989, .22555, .30408,
1506 + .38342, .18647, 3.15993, .26717, .16697,
1507 + .11192, .22643, .30447,
1508 + .38450, .18666, 3.14088, .26758, .16830,
1509 + .11391, .22729, .30483 /
1510 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1511 + .31202, .16772, 1.45009, .15141, .00123,
1512 + -.00001, .08874, .18943,
1513 + .31744, .16990, 1.56062, .15660, .00229,
1514 + -.00001, .09409, .19496,
1515 + .32518, .17297, 1.71628, .16407, .00415,
1516 + -.00001, .10185, .20289,
1517 + .33054, .17504, 1.81983, .16924, .00579,
1518 + -.00001, .10728, .20835,
1519 + .33595, .17711, 1.92125, .17438, .00788,
1520 + -.00001, .11278, .21378,
1521 + .34045, .17881, 2.00284, .17853, .01007,
1522 + -.00002, .11732, .21816,
1523 + .34454, .18032, 2.07221, .18215, .01258,
1524 + -.00002, .12139, .22196,
1525 + .34877, .18186, 2.14223, .18569, .01579,
1526 + -.00001, .12553, .22568 /
1527 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1528 + .35232, .18313, 2.19851, .18845, .01912,
1529 + -.00002, .12892, .22857,
1530 + .35561, .18429, 2.24725, .19075, .02281,
1531 + -.00001, .13195, .23100,
1532 + .35817, .18518, 2.28450, .19240, .02612,
1533 + -.00001, .13424, .23274,
1534 + .36336, .18695, 2.35385, .19519, .03419,
1535 + -.00002, .13863, .23569,
1536 + .36758, .18835, 2.40499, .19695, .04209,
1537 + .00171, .14197, .23755,
1538 + .37206, .18981, 2.45387, .19839, .05151,
1539 + .00663, .14532, .23907,
1540 + .37646, .19118, 2.49565, .19953, .06131,
1541 + .01388, .14848, .24029,
1542 + .38024, .19231, 2.52664, .20049, .06972,
1543 + .01964, .15121, .24129 /
1544 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1545 + .38380, .19333, 2.54947, .20145, .07734,
1546 + .02524, .15380, .24226,
1547 + .38659, .19410, 2.56379, .20233, .08294,
1548 + .02968, .15590, .24313,
1549 + .38981, .19497, 2.57673, .20352, .08890,
1550 + .03484, .15842, .24428,
1551 + .39248, .19564, 2.58297, .20459, .09344,
1552 + .03917, .16055, .24532,
1553 + .39478, .19619, 2.58483, .20558, .09709,
1554 + .04295, .16242, .24624,
1555 + .39755, .19683, 2.58375, .20684, .10118,
1556 + .04756, .16471, .24742,
1557 + .39997, .19733, 2.57777, .20792, .10454,
1558 + .05162, .16669, .24841,
1559 + .40206, .19772, 2.56858, .20884, .10735,
1560 + .05520, .16840, .24923 /
1561 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1562 + .40406, .19807, 2.55754, .20971, .10994,
1563 + .05865, .17003, .24999,
1564 + .40582, .19832, 2.54257, .21038, .11219,
1565 + .06178, .17142, .25054,
1566 + .40742, .19852, 2.52717, .21096, .11420,
1567 + .06462, .17265, .25099,
1568 + .40879, .19866, 2.51038, .21139, .11593,
1569 + .06715, .17369, .25129,
1570 + .41009, .19876, 2.49220, .21174, .11756,
1571 + .06956, .17464, .25151,
1572 + .41127, .19881, 2.47271, .21199, .11905,
1573 + .07181, .17546, .25161,
1574 + .41231, .19883, 2.45316, .21215, .12037,
1575 + .07384, .17617, .25164,
1576 + .41321, .19881, 2.43335, .21222, .12151,
1577 + .07565, .17674, .25157 /
1578 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1579 + .41408, .19878, 2.41316, .21227, .12262,
1580 + .07742, .17727, .25147,
1581 + .41481, .19869, 2.39147, .21219, .12358,
1582 + .07904, .17768, .25125,
1583 + .41551, .19861, 2.37113, .21213, .12449,
1584 + .08056, .17807, .25104,
1585 + .41607, .19848, 2.35033, .21195, .12524,
1586 + .08187, .17832, .25072,
1587 + .41661, .19833, 2.32924, .21175, .12596,
1588 + .08315, .17855, .25037 /
1589 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1590 + .39226, .20782, 1.26949, .13118, .00123,
1591 + .00000, .08019, .17861,
1592 + .39729, .20936, 1.34639, .13440, .00225,
1593 + .00000, .08385, .18183,
1594 + .40433, .21144, 1.45074, .13891, .00392,
1595 + .00001, .08904, .18633,
1596 + .40908, .21278, 1.51703, .14193, .00532,
1597 + .00000, .09259, .18930,
1598 + .41379, .21405, 1.57943, .14485, .00703,
1599 + .00000, .09611, .19214,
1600 + .41762, .21505, 1.62766, .14713, .00875,
1601 + .00001, .09896, .19433,
1602 + .42102, .21586, 1.66640, .14903, .01065,
1603 + .00000, .10145, .19611,
1604 + .42448, .21666, 1.70402, .15080, .01303,
1605 + .00000, .10393, .19776 /
1606 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1607 + .42733, .21728, 1.73274, .15209, .01544,
1608 + .00000, .10591, .19893,
1609 + .42990, .21780, 1.75596, .15307, .01807,
1610 + .00000, .10762, .19978,
1611 + .43188, .21818, 1.77311, .15372, .02039,
1612 + .00000, .10890, .20031,
1613 + .43576, .21884, 1.80180, .15458, .02597,
1614 + .00000, .11124, .20090,
1615 + .43880, .21928, 1.81989, .15486, .03133,
1616 + .00118, .11291, .20093,
1617 + .44190, .21965, 1.83392, .15481, .03762,
1618 + .00450, .11448, .20057,
1619 + .44479, .21988, 1.84197, .15451, .04405,
1620 + .00936, .11587, .19994,
1621 + .44716, .21999, 1.84443, .15419, .04948,
1622 + .01317, .11700, .19931 /
1623 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1624 + .44925, .21995, 1.84115, .15384, .05430,
1625 + .01681, .11801, .19862,
1626 + .45080, .21984, 1.83545, .15360, .05779,
1627 + .01965, .11881, .19809,
1628 + .45249, .21965, 1.82581, .15339, .06142,
1629 + .02292, .11973, .19752,
1630 + .45376, .21938, 1.81407, .15322, .06411,
1631 + .02563, .12047, .19700,
1632 + .45476, .21907, 1.80099, .15305, .06621,
1633 + .02797, .12108, .19652,
1634 + .45587, .21862, 1.78254, .15285, .06851,
1635 + .03076, .12179, .19592,
1636 + .45668, .21811, 1.76238, .15261, .07033,
1637 + .03320, .12233, .19526,
1638 + .45727, .21755, 1.74161, .15230, .07179,
1639 + .03531, .12274, .19458 /
1640 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1641 + .45775, .21696, 1.72010, .15196, .07310,
1642 + .03731, .12309, .19387,
1643 + .45801, .21629, 1.69682, .15152, .07419,
1644 + .03910, .12329, .19305,
1645 + .45817, .21564, 1.67443, .15107, .07513,
1646 + .04070, .12343, .19225,
1647 + .45819, .21496, 1.65230, .15058, .07591,
1648 + .04210, .12347, .19141,
1649 + .45812, .21426, 1.62959, .15004, .07662,
1650 + .04343, .12346, .19052,
1651 + .45794, .21352, 1.60661, .14946, .07723,
1652 + .04464, .12339, .18958,
1653 + .45769, .21280, 1.58446, .14887, .07775,
1654 + .04572, .12327, .18865,
1655 + .45736, .21208, 1.56300, .14825, .07817,
1656 + .04666, .12309, .18772 /
1657 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1658 + .45699, .21135, 1.54150, .14762, .07857,
1659 + .04756, .12290, .18677,
1660 + .45650, .21057, 1.51953, .14692, .07888,
1661 + .04837, .12262, .18576,
1662 + .45604, .20985, 1.49902, .14627, .07917,
1663 + .04913, .12236, .18481,
1664 + .45548, .20911, 1.47892, .14559, .07937,
1665 + .04976, .12205, .18383,
1666 + .45489, .20836, 1.45878, .14490, .07956,
1667 + .05037, .12172, .18284 /
1668 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1669 + .46012, .23862, 1.15314, .11386, .00123,
1670 + .00000, .07242, .16681,
1671 + .46416, .23923, 1.20745, .11586, .00220,
1672 + .00000, .07499, .16848,
1673 + .46965, .23995, 1.27825, .11859, .00375,
1674 + .00000, .07856, .17067,
1675 + .47322, .24030, 1.32078, .12033, .00498,
1676 + .00000, .08094, .17201,
1677 + .47663, .24053, 1.35881, .12195, .00644,
1678 + .00000, .08324, .17317,
1679 + .47932, .24063, 1.38663, .12316, .00785,
1680 + .00000, .08506, .17397,
1681 + .48159, .24059, 1.40699, .12407, .00937,
1682 + -.00001, .08660, .17448,
1683 + .48383, .24048, 1.42555, .12484, .01124,
1684 + -.00001, .08809, .17483 /
1685 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1686 + .48560, .24032, 1.43836, .12532, .01308,
1687 + .00000, .08925, .17492,
1688 + .48710, .24007, 1.44711, .12558, .01507,
1689 + .00000, .09021, .17481,
1690 + .48823, .23985, 1.45302, .12569, .01680,
1691 + .00000, .09090, .17462,
1692 + .49027, .23925, 1.45944, .12553, .02089,
1693 + .00000, .09206, .17382,
1694 + .49168, .23861, 1.45993, .12505, .02477,
1695 + .00086, .09280, .17278,
1696 + .49295, .23779, 1.45595, .12427, .02925,
1697 + .00328, .09340, .17133,
1698 + .49392, .23680, 1.44717, .12329, .03376,
1699 + .00680, .09383, .16967,
1700 + .49456, .23579, 1.43589, .12236, .03752,
1701 + .00952, .09413, .16814 /
1702 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1703 + .49484, .23466, 1.42058, .12142, .04080,
1704 + .01207, .09432, .16656,
1705 + .49488, .23367, 1.40599, .12068, .04312,
1706 + .01405, .09444, .16529,
1707 + .49476, .23241, 1.38668, .11984, .04549,
1708 + .01630, .09455, .16380,
1709 + .49442, .23122, 1.36764, .11911, .04720,
1710 + .01814, .09460, .16250,
1711 + .49395, .23007, 1.34887, .11844, .04850,
1712 + .01971, .09459, .16131,
1713 + .49319, .22856, 1.32419, .11760, .04988,
1714 + .02157, .09453, .15981,
1715 + .49225, .22707, 1.29944, .11677, .05093,
1716 + .02315, .09439, .15835,
1717 + .49120, .22562, 1.27540, .11595, .05173,
1718 + .02452, .09418, .15696 /
1719 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1720 + .49007, .22415, 1.25126, .11513, .05243,
1721 + .02580, .09394, .15556,
1722 + .48873, .22265, 1.22648, .11425, .05297,
1723 + .02691, .09361, .15412,
1724 + .48739, .22121, 1.20313, .11340, .05341,
1725 + .02790, .09327, .15274,
1726 + .48601, .21982, 1.18075, .11257, .05376,
1727 + .02876, .09290, .15141,
1728 + .48453, .21840, 1.15826, .11171, .05405,
1729 + .02956, .09248, .15005,
1730 + .48299, .21697, 1.13600, .11083, .05427,
1731 + .03027, .09203, .14869,
1732 + .48145, .21561, 1.11490, .10997, .05444,
1733 + .03090, .09157, .14738,
1734 + .47991, .21429, 1.09485, .10913, .05456,
1735 + .03143, .09111, .14610 /
1736 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1737 + .47833, .21296, 1.07494, .10829, .05467,
1738 + .03195, .09063, .14482,
1739 + .47665, .21161, 1.05502, .10741, .05470,
1740 + .03239, .09010, .14352,
1741 + .47506, .21033, 1.03651, .10658, .05474,
1742 + .03279, .08961, .14230,
1743 + .47344, .20908, 1.01871, .10577, .05472,
1744 + .03312, .08909, .14110,
1745 + .47180, .20781, 1.00100, .10494, .05469,
1746 + .03344, .08856, .13989 /
1747 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1748 + .51808, .26164, 1.06865, .09836, .00121,
1749 + -.00001, .06489, .15366,
1750 + .52071, .26121, 1.10590, .09957, .00214,
1751 + -.00001, .06670, .15421,
1752 + .52406, .26041, 1.15189, .10115, .00357,
1753 + .00000, .06915, .15479,
1754 + .52603, .25967, 1.17730, .10210, .00467,
1755 + .00000, .07073, .15499,
1756 + .52776, .25878, 1.19816, .10289, .00593,
1757 + .00000, .07222, .15500,
1758 + .52901, .25791, 1.21186, .10342, .00712,
1759 + .00000, .07336, .15486,
1760 + .52988, .25696, 1.21975, .10373, .00837,
1761 + .00000, .07428, .15453,
1762 + .53061, .25591, 1.22557, .10391, .00987,
1763 + -.00001, .07514, .15402 /
1764 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1765 + .53105, .25494, 1.22796, .10393, .01132,
1766 + .00000, .07577, .15343,
1767 + .53128, .25392, 1.22739, .10377, .01286,
1768 + .00000, .07624, .15271,
1769 + .53141, .25310, 1.22616, .10357, .01419,
1770 + .00000, .07656, .15206,
1771 + .53128, .25123, 1.21879, .10286, .01729,
1772 + -.00001, .07699, .15040,
1773 + .53086, .24952, 1.20871, .10200, .02018,
1774 + .00065, .07717, .14872,
1775 + .53008, .24751, 1.19426, .10085, .02347,
1776 + .00248, .07719, .14667,
1777 + .52893, .24534, 1.17606, .09955, .02674,
1778 + .00512, .07706, .14442,
1779 + .52762, .24332, 1.15739, .09837, .02942,
1780 + .00714, .07689, .14236 /
1781 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1782 + .52597, .24117, 1.13599, .09716, .03173,
1783 + .00901, .07662, .14033,
1784 + .52443, .23935, 1.11712, .09619, .03333,
1785 + .01044, .07637, .13866,
1786 + .52239, .23711, 1.09345, .09508, .03493,
1787 + .01206, .07605, .13670,
1788 + .52039, .23507, 1.07142, .09411, .03605,
1789 + .01337, .07572, .13500,
1790 + .51840, .23316, 1.05056, .09322, .03688,
1791 + .01447, .07538, .13346,
1792 + .51576, .23071, 1.02391, .09211, .03772,
1793 + .01577, .07493, .13154,
1794 + .51306, .22838, .99820, .09105, .03833,
1795 + .01685, .07444, .12971,
1796 + .51039, .22615, .97384, .09003, .03878,
1797 + .01777, .07394, .12799 /
1798 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1799 + .50767, .22392, .94978, .08902, .03913,
1800 + .01864, .07342, .12629,
1801 + .50479, .22169, .92577, .08799, .03938,
1802 + .01937, .07285, .12457,
1803 + .50201, .21959, .90344, .08702, .03956,
1804 + .02001, .07229, .12296,
1805 + .49928, .21759, .88240, .08608, .03967,
1806 + .02055, .07173, .12144,
1807 + .49649, .21558, .86151, .08513, .03975,
1808 + .02105, .07114, .11991,
1809 + .49367, .21357, .84110, .08416, .03979,
1810 + .02149, .07054, .11839,
1811 + .49093, .21167, .82198, .08324, .03980,
1812 + .02188, .06995, .11696,
1813 + .48825, .20987, .80403, .08237, .03977,
1814 + .02220, .06937, .11558 /
1815 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1816 + .48555, .20806, .78632, .08149, .03973,
1817 + .02250, .06879, .11421,
1818 + .48277, .20625, .76884, .08061, .03965,
1819 + .02274, .06818, .11283,
1820 + .48015, .20456, .75265, .07978, .03956,
1821 + .02296, .06761, .11153,
1822 + .47758, .20291, .73727, .07896, .03945,
1823 + .02314, .06704, .11029,
1824 + .47498, .20126, .72203, .07813, .03933,
1825 + .02330, .06647, .10905 /
1826 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1827 + .57813, .28101, .98605, .08110, .00116,
1828 + -.00002, .05579, .13587,
1829 + .57856, .27926, 1.00659, .08169, .00203,
1830 + -.00002, .05695, .13547,
1831 + .57867, .27653, 1.02892, .08238, .00333,
1832 + -.00001, .05844, .13470,
1833 + .57833, .27442, 1.03843, .08270, .00429,
1834 + .00000, .05934, .13398,
1835 + .57764, .27211, 1.04367, .08288, .00534,
1836 + -.00001, .06015, .13308,
1837 + .57679, .27009, 1.04481, .08291, .00632,
1838 + -.00001, .06073, .13220,
1839 + .57565, .26805, 1.04185, .08278, .00731,
1840 + -.00001, .06115, .13122,
1841 + .57428, .26586, 1.03683, .08254, .00847,
1842 + -.00001, .06149, .13006 /
1843 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1844 + .57292, .26393, 1.03051, .08224, .00957,
1845 + -.00001, .06170, .12895,
1846 + .57140, .26200, 1.02233, .08181, .01071,
1847 + -.00001, .06180, .12779,
1848 + .57016, .26047, 1.01536, .08142, .01169,
1849 + -.00001, .06184, .12683,
1850 + .56717, .25712, .99726, .08039, .01393,
1851 + -.00001, .06175, .12457,
1852 + .56429, .25418, .97929, .07933, .01597,
1853 + .00047, .06152, .12248,
1854 + .56081, .25087, .95734, .07803, .01827,
1855 + .00180, .06113, .12005,
1856 + .55691, .24739, .93277, .07662, .02051,
1857 + .00371, .06064, .11749,
1858 + .55317, .24420, .90944, .07533, .02231,
1859 + .00513, .06014, .11520 /
1860 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1861 + .54910, .24094, .88457, .07404, .02383,
1862 + .00646, .05959, .11291,
1863 + .54559, .23822, .86355, .07300, .02485,
1864 + .00746, .05910, .11106,
1865 + .54123, .23492, .83799, .07179, .02585,
1866 + .00857, .05851, .10889,
1867 + .53722, .23199, .81505, .07074, .02653,
1868 + .00946, .05797, .10700,
1869 + .53340, .22930, .79392, .06979, .02700,
1870 + .01019, .05745, .10530,
1871 + .52848, .22591, .76748, .06861, .02745,
1872 + .01104, .05677, .10319,
1873 + .52370, .22269, .74263, .06749, .02773,
1874 + .01174, .05610, .10123,
1875 + .51912, .21968, .71960, .06644, .02791,
1876 + .01233, .05544, .09941 /
1877 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1878 + .51452, .21671, .69716, .06541, .02804,
1879 + .01287, .05479, .09762,
1880 + .50985, .21379, .67527, .06438, .02809,
1881 + .01332, .05410, .09584,
1882 + .50544, .21105, .65514, .06341, .02811,
1883 + .01371, .05345, .09419,
1884 + .50123, .20845, .63644, .06248, .02808,
1885 + .01403, .05282, .09267,
1886 + .49695, .20586, .61809, .06155, .02803,
1887 + .01432, .05218, .09114,
1888 + .49269, .20333, .60038, .06064, .02795,
1889 + .01457, .05153, .08962,
1890 + .48863, .20095, .58394, .05978, .02786,
1891 + .01477, .05092, .08821,
1892 + .48473, .19869, .56868, .05895, .02775,
1893 + .01494, .05033, .08687 /
1894 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1895 + .48083, .19644, .55372, .05814, .02763,
1896 + .01509, .04974, .08555,
1897 + .47688, .19421, .53912, .05733, .02749,
1898 + .01522, .04913, .08424,
1899 + .47318, .19212, .52565, .05657, .02735,
1900 + .01532, .04856, .08302,
1901 + .46958, .19012, .51301, .05584, .02720,
1902 + .01541, .04801, .08185,
1903 + .46596, .18813, .50056, .05511, .02704,
1904 + .01548, .04745, .08069 /
1905 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1906 + .62524, .29150, .91617, .06605, .00110,
1907 + -.00003, .04719, .11760,
1908 + .62322, .28847, .92353, .06627, .00190,
1909 + -.00003, .04790, .11663,
1910 + .61976, .28391, .92772, .06642, .00306,
1911 + -.00003, .04877, .11504,
1912 + .61687, .28051, .92538, .06638, .00390,
1913 + -.00002, .04925, .11378,
1914 + .61354, .27691, .91929, .06622, .00479,
1915 + -.00002, .04963, .11237,
1916 + .61046, .27383, .91155, .06600, .00559,
1917 + -.00002, .04987, .11107,
1918 + .60724, .27078, .90113, .06564, .00639,
1919 + -.00002, .04998, .10974,
1920 + .60369, .26756, .88882, .06519, .00730,
1921 + -.00003, .05003, .10828 /
1922 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1923 + .60045, .26477, .87681, .06473, .00814,
1924 + -.00003, .05000, .10694,
1925 + .59716, .26203, .86381, .06419, .00900,
1926 + -.00003, .04989, .10557,
1927 + .59454, .25987, .85328, .06372, .00973,
1928 + -.00003, .04978, .10447,
1929 + .58861, .25527, .82880, .06260, .01137,
1930 + -.00003, .04939, .10200,
1931 + .58329, .25130, .80642, .06152, .01284,
1932 + .00033, .04896, .09979,
1933 + .57717, .24688, .78060, .06024, .01446,
1934 + .00133, .04839, .09729,
1935 + .57061, .24230, .75311, .05886, .01601,
1936 + .00274, .04773, .09470,
1937 + .56451, .23819, .72796, .05763, .01724,
1938 + .00380, .04710, .09239 /
1939 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1940 + .55817, .23401, .70213, .05640, .01825,
1941 + .00475, .04642, .09012,
1942 + .55281, .23058, .68082, .05541, .01891,
1943 + .00546, .04586, .08828,
1944 + .54627, .22648, .65541, .05425, .01954,
1945 + .00625, .04517, .08613,
1946 + .54039, .22284, .63312, .05324, .01993,
1947 + .00687, .04456, .08428,
1948 + .53491, .21954, .61297, .05234, .02018,
1949 + .00738, .04398, .08262,
1950 + .52796, .21542, .58810, .05123, .02041,
1951 + .00796, .04325, .08056,
1952 + .52133, .21157, .56517, .05019, .02053,
1953 + .00843, .04254, .07864,
1954 + .51508, .20798, .54423, .04921, .02057,
1955 + .00881, .04186, .07690 /
1956 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1957 + .50887, .20446, .52405, .04824, .02058,
1958 + .00915, .04118, .07522,
1959 + .50268, .20102, .50465, .04730, .02053,
1960 + .00944, .04050, .07356,
1961 + .49686, .19783, .48697, .04642, .02046,
1962 + .00968, .03986, .07202,
1963 + .49133, .19486, .47074, .04561, .02037,
1964 + .00987, .03926, .07057,
1965 + .48579, .19191, .45495, .04480, .02027,
1966 + .01004, .03865, .06915,
1967 + .48034, .18903, .43987, .04399, .02015,
1968 + .01018, .03803, .06778,
1969 + .47518, .18631, .42598, .04323, .02002,
1970 + .01030, .03746, .06650,
1971 + .47030, .18375, .41318, .04251, .01988,
1972 + .01040, .03691, .06531 /
1973 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1974 + .46542, .18121, .40070, .04180, .01973,
1975 + .01048, .03636, .06413,
1976 + .46051, .17872, .38864, .04110, .01957,
1977 + .01053, .03582, .06296,
1978 + .45592, .17639, .37756, .04046, .01942,
1979 + .01058, .03531, .06187,
1980 + .45152, .17418, .36725, .03984, .01926,
1981 + .01060, .03482, .06084,
1982 + .44711, .17197, .35715, .03921, .01911,
1983 + .01061, .03433, .05981 /
1984 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1985 + .66002, .29458, .85220, .05311, .00102,
1986 + .00000, .03927, .09978,
1987 + .65544, .29038, .84907, .05312, .00175,
1988 + -.00001, .03969, .09848,
1989 + .64829, .28418, .83922, .05297, .00277,
1990 + -.00001, .04015, .09649,
1991 + .64276, .27968, .82801, .05276, .00349,
1992 + -.00001, .04035, .09497,
1993 + .63675, .27498, .81366, .05244, .00424,
1994 + -.00001, .04046, .09331,
1995 + .63145, .27096, .79962, .05209, .00489,
1996 + -.00002, .04049, .09183,
1997 + .62613, .26708, .78409, .05166, .00553,
1998 + -.00001, .04041, .09037,
1999 + .62042, .26301, .76693, .05114, .00624,
2000 + -.00001, .04028, .08879 /
2001 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2002 + .61535, .25950, .75127, .05064, .00688,
2003 + -.00001, .04012, .08737,
2004 + .61033, .25611, .73530, .05008, .00753,
2005 + -.00001, .03990, .08598,
2006 + .60635, .25345, .72265, .04961, .00808,
2007 + -.00001, .03970, .08487,
2008 + .59766, .24782, .69464, .04852, .00927,
2009 + -.00001, .03919, .08242,
2010 + .59004, .24302, .67008, .04752, .01033,
2011 + .00026, .03867, .08027,
2012 + .58145, .23773, .64263, .04634, .01147,
2013 + .00101, .03804, .07788,
2014 + .57243, .23232, .61429, .04510, .01255,
2015 + .00206, .03733, .07543,
2016 + .56419, .22749, .58899, .04400, .01338,
2017 + .00284, .03668, .07327 /
2018 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2019 + .55578, .22264, .56364, .04288, .01403,
2020 + .00352, .03597, .07119,
2021 + .54878, .21868, .54307, .04199, .01446,
2022 + .00404, .03541, .06949,
2023 + .54033, .21397, .51891, .04096, .01484,
2024 + .00460, .03473, .06749,
2025 + .53280, .20986, .49808, .04006, .01507,
2026 + .00503, .03412, .06578,
2027 + .52587, .20615, .47948, .03927, .01520,
2028 + .00538, .03355, .06426,
2029 + .51714, .20155, .45680, .03829, .01528,
2030 + .00577, .03284, .06238,
2031 + .50897, .19725, .43618, .03736, .01530,
2032 + .00609, .03218, .06064,
2033 + .50131, .19329, .41759, .03651, .01527,
2034 + .00634, .03154, .05907 /
2035 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2036 + .49375, .18943, .39983, .03569, .01522,
2037 + .00655, .03091, .05755,
2038 + .48631, .18567, .38297, .03486, .01512,
2039 + .00673, .03029, .05608,
2040 + .47936, .18220, .36772, .03410, .01502,
2041 + .00689, .02971, .05472,
2042 + .47281, .17898, .35385, .03340, .01491,
2043 + .00702, .02916, .05346,
2044 + .46628, .17580, .34045, .03271, .01479,
2045 + .00712, .02862, .05221,
2046 + .45989, .17271, .32774, .03204, .01465,
2047 + .00719, .02808, .05102,
2048 + .45386, .16981, .31612, .03141, .01451,
2049 + .00725, .02757, .04991,
2050 + .44819, .16711, .30548, .03081, .01437,
2051 + .00729, .02709, .04888 /
2052 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2053 + .44255, .16443, .29516, .03022, .01423,
2054 + .00732, .02661, .04786,
2055 + .43696, .16181, .28527, .02964, .01407,
2056 + .00734, .02615, .04687,
2057 + .43173, .15936, .27622, .02909, .01393,
2058 + .00736, .02571, .04595,
2059 + .42671, .15705, .26785, .02859, .01379,
2060 + .00737, .02530, .04507,
2061 + .42170, .15475, .25969, .02809, .01365,
2062 + .00737, .02489, .04420 /
2063 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2064 + .68321, .29144, .79074, .04214, .00092,
2065 + -.00003, .03217, .08309,
2066 + .67606, .28626, .77931, .04203, .00158,
2067 + -.00003, .03240, .08166,
2068 + .66523, .27869, .75870, .04176, .00248,
2069 + -.00002, .03260, .07952,
2070 + .65714, .27326, .74092, .04147, .00309,
2071 + -.00002, .03264, .07793,
2072 + .64855, .26764, .72067, .04109, .00372,
2073 + -.00002, .03260, .07622,
2074 + .64110, .26287, .70228, .04070, .00426,
2075 + -.00003, .03251, .07473,
2076 + .63380, .25832, .68336, .04025, .00476,
2077 + -.00002, .03234, .07330,
2078 + .62604, .25357, .66314, .03973, .00532,
2079 + -.00002, .03212, .07175 /
2080 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2081 + .61925, .24951, .64530, .03923, .00581,
2082 + -.00002, .03189, .07039,
2083 + .61263, .24561, .62767, .03872, .00630,
2084 + -.00002, .03163, .06905,
2085 + .60741, .24257, .61389, .03829, .00670,
2086 + -.00002, .03140, .06799,
2087 + .59619, .23614, .58426, .03731, .00757,
2088 + -.00002, .03086, .06571,
2089 + .58650, .23072, .55902, .03641, .00833,
2090 + .00019, .03033, .06374,
2091 + .57570, .22480, .53142, .03537, .00914,
2092 + .00075, .02970, .06158,
2093 + .56452, .21877, .50351, .03428, .00988,
2094 + .00154, .02902, .05940,
2095 + .55443, .21345, .47906, .03332, .01045,
2096 + .00212, .02840, .05747 /
2097 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2098 + .54421, .20816, .45504, .03240, .01088,
2099 + .00264, .02776, .05556,
2100 + .53579, .20385, .43581, .03163, .01115,
2101 + .00301, .02723, .05406,
2102 + .52571, .19874, .41348, .03073, .01137,
2103 + .00341, .02659, .05232,
2104 + .51682, .19432, .39445, .02997, .01148,
2105 + .00372, .02603, .05083,
2106 + .50871, .19034, .37767, .02929, .01153,
2107 + .00397, .02552, .04948,
2108 + .49857, .18542, .35742, .02845, .01155,
2109 + .00425, .02489, .04783,
2110 + .48913, .18089, .33921, .02766, .01151,
2111 + .00447, .02428, .04634,
2112 + .48035, .17673, .32295, .02695, .01144,
2113 + .00463, .02371, .04498 /
2114 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2115 + .47173, .17270, .30755, .02625, .01135,
2116 + .00477, .02316, .04366,
2117 + .46329, .16879, .29310, .02558, .01125,
2118 + .00489, .02262, .04240,
2119 + .45546, .16519, .28011, .02496, .01115,
2120 + .00498, .02212, .04124,
2121 + .44815, .16186, .26837, .02437, .01102,
2122 + .00505, .02165, .04018,
2123 + .44088, .15858, .25710, .02380, .01090,
2124 + .00510, .02118, .03914,
2125 + .43379, .15543, .24650, .02325, .01077,
2126 + .00515, .02072, .03812,
2127 + .42714, .15248, .23685, .02274, .01064,
2128 + .00518, .02030, .03719,
2129 + .42091, .14972, .22808, .02226, .01051,
2130 + .00520, .01990, .03633 /
2131 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2132 + .41474, .14700, .21961, .02178, .01038,
2133 + .00521, .01950, .03548,
2134 + .40864, .14434, .21156, .02132, .01024,
2135 + .00522, .01911, .03467,
2136 + .40296, .14186, .20420, .02088, .01011,
2137 + .00522, .01874, .03391,
2138 + .39755, .13954, .19745, .02048, .00998,
2139 + .00521, .01840, .03320,
2140 + .39215, .13724, .19089, .02008, .00985,
2141 + .00519, .01806, .03249 /
2142 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2143 + .69543, .28331, .73028, .03299, .00083,
2144 + -.00003, .02596, .06795,
2145 + .68581, .27732, .71247, .03284, .00141,
2146 + -.00002, .02608, .06655,
2147 + .67152, .26865, .68384, .03251, .00219,
2148 + -.00002, .02613, .06446,
2149 + .66104, .26248, .66137, .03221, .00272,
2150 + -.00002, .02609, .06291,
2151 + .65005, .25615, .63709, .03182, .00324,
2152 + -.00002, .02596, .06129,
2153 + .64065, .25081, .61591, .03143, .00367,
2154 + -.00003, .02580, .05991,
2155 + .63152, .24575, .59496, .03101, .00408,
2156 + -.00001, .02560, .05856,
2157 + .62192, .24050, .57301, .03053, .00451,
2158 + -.00001, .02535, .05713 /
2159 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2160 + .61362, .23600, .55404, .03008, .00488,
2161 + -.00001, .02511, .05589,
2162 + .60556, .23174, .53572, .02962, .00524,
2163 + -.00002, .02484, .05469,
2164 + .59924, .22843, .52156, .02924, .00554,
2165 + -.00003, .02461, .05374,
2166 + .58575, .22150, .49174, .02841, .00618,
2167 + -.00002, .02408, .05168,
2168 + .57427, .21566, .46683, .02764, .00672,
2169 + .00015, .02358, .04995,
2170 + .56159, .20931, .44005, .02676, .00729,
2171 + .00059, .02301, .04807,
2172 + .54858, .20291, .41343, .02585, .00780,
2173 + .00119, .02239, .04617,
2174 + .53694, .19727, .39046, .02505, .00818,
2175 + .00162, .02183, .04451 /
2176 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2177 + .52524, .19172, .36824, .02427, .00846,
2178 + .00199, .02126, .04288,
2179 + .51567, .18723, .35065, .02363, .00861,
2180 + .00227, .02079, .04159,
2181 + .50428, .18195, .33042, .02289, .00873,
2182 + .00256, .02023, .04010,
2183 + .49431, .17738, .31340, .02225, .00879,
2184 + .00279, .01975, .03881,
2185 + .48529, .17328, .29851, .02169, .00879,
2186 + .00296, .01930, .03767,
2187 + .47408, .16823, .28069, .02100, .00876,
2188 + .00315, .01875, .03628,
2189 + .46363, .16363, .26484, .02036, .00869,
2190 + .00330, .01823, .03502,
2191 + .45403, .15940, .25083, .01977, .00862,
2192 + .00342, .01775, .03389 /
2193 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2194 + .44466, .15529, .23764, .01920, .00853,
2195 + .00353, .01728, .03279,
2196 + .43553, .15138, .22538, .01865, .00841,
2197 + .00359, .01683, .03175,
2198 + .42709, .14778, .21442, .01814, .00829,
2199 + .00364, .01641, .03079,
2200 + .41923, .14446, .20460, .01768, .00817,
2201 + .00368, .01601, .02992,
2202 + .41147, .14119, .19523, .01723, .00806,
2203 + .00371, .01563, .02906,
2204 + .40394, .13805, .18645, .01678, .00794,
2205 + .00373, .01526, .02823,
2206 + .39689, .13514, .17851, .01637, .00783,
2207 + .00374, .01491, .02747,
2208 + .39029, .13243, .17133, .01599, .00771,
2209 + .00375, .01458, .02679 /
2210 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2211 + .38377, .12976, .16443, .01562, .00760,
2212 + .00376, .01425, .02611,
2213 + .37739, .12715, .15790, .01526, .00749,
2214 + .00374, .01393, .02543,
2215 + .37145, .12474, .15196, .01492, .00739,
2216 + .00372, .01364, .02480,
2217 + .36582, .12247, .14654, .01460, .00728,
2218 + .00371, .01336, .02424,
2219 + .36021, .12023, .14128, .01428, .00716,
2220 + .00370, .01309, .02368 /
2221 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2222 + .69754, .27114, .67037, .02543, .00075,
2223 + .00006, .02067, .05465,
2224 + .68564, .26456, .64783, .02530, .00125,
2225 + .00004, .02070, .05334,
2226 + .66814, .25512, .61355, .02500, .00192,
2227 + .00005, .02066, .05141,
2228 + .65551, .24843, .58802, .02472, .00235,
2229 + .00005, .02055, .05001,
2230 + .64238, .24160, .56127, .02438, .00277,
2231 + .00004, .02039, .04854,
2232 + .63118, .23589, .53848, .02406, .00312,
2233 + .00003, .02022, .04728,
2234 + .62045, .23053, .51656, .02369, .00342,
2235 + .00003, .02000, .04609,
2236 + .60924, .22497, .49396, .02328, .00376,
2237 + .00004, .01974, .04482 /
2238 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2239 + .59961, .22022, .47474, .02290, .00405,
2240 + .00004, .01951, .04371,
2241 + .59033, .21572, .45648, .02250, .00433,
2242 + .00004, .01926, .04266,
2243 + .58310, .21224, .44247, .02218, .00455,
2244 + .00004, .01905, .04184,
2245 + .56777, .20499, .41336, .02148, .00498,
2246 + .00004, .01858, .04009,
2247 + .55480, .19892, .38946, .02084, .00536,
2248 + .00016, .01813, .03864,
2249 + .54058, .19237, .36417, .02012, .00575,
2250 + .00048, .01762, .03704,
2251 + .52607, .18583, .33942, .01939, .00610,
2252 + .00093, .01709, .03542,
2253 + .51318, .18009, .31831, .01875, .00634,
2254 + .00124, .01661, .03401 /
2255 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2256 + .50042, .17442, .29810, .01809, .00651,
2257 + .00151, .01611, .03268,
2258 + .49000, .16986, .28229, .01756, .00660,
2259 + .00171, .01571, .03161,
2260 + .47763, .16453, .26428, .01697, .00666,
2261 + .00191, .01524, .03037,
2262 + .46688, .15996, .24927, .01646, .00667,
2263 + .00206, .01482, .02930,
2264 + .45718, .15587, .23625, .01601, .00666,
2265 + .00218, .01445, .02835,
2266 + .44518, .15086, .22078, .01546, .00662,
2267 + .00232, .01399, .02720,
2268 + .43411, .14629, .20720, .01494, .00654,
2269 + .00243, .01356, .02618,
2270 + .42396, .14213, .19524, .01447, .00645,
2271 + .00250, .01317, .02526 /
2272 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2273 + .41409, .13811, .18406, .01401, .00635,
2274 + .00256, .01278, .02437,
2275 + .40454, .13426, .17375, .01357, .00624,
2276 + .00260, .01241, .02354,
2277 + .39573, .13073, .16460, .01317, .00614,
2278 + .00264, .01207, .02278,
2279 + .38759, .12750, .15645, .01280, .00605,
2280 + .00265, .01175, .02206,
2281 + .37955, .12434, .14871, .01244, .00595,
2282 + .00266, .01143, .02137,
2283 + .37176, .12131, .14152, .01210, .00585,
2284 + .00267, .01113, .02072,
2285 + .36450, .11849, .13504, .01179, .00575,
2286 + .00267, .01085, .02012,
2287 + .35774, .11589, .12920, .01150, .00565,
2288 + .00266, .01059, .01957 /
2289 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2290 + .35108, .11333, .12361, .01121, .00555,
2291 + .00266, .01033, .01903,
2292 + .34459, .11084, .11835, .01091, .00545,
2293 + .00265, .01008, .01851,
2294 + .33856, .10854, .11358, .01064, .00536,
2295 + .00264, .00985, .01802,
2296 + .33285, .10638, .10925, .01039, .00527,
2297 + .00263, .00964, .01757,
2298 + .32720, .10425, .10506, .01014, .00518,
2299 + .00262, .00943, .01713 /
2300 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2301 + .69011, .25626, .61133, .01960, .00056,
2302 + -.00014, .01601, .04319,
2303 + .67622, .24925, .58547, .01945, .00099,
2304 + -.00014, .01604, .04203,
2305 + .65599, .23925, .54749, .01918, .00156,
2306 + -.00013, .01597, .04033,
2307 + .64150, .23222, .52016, .01892, .00193,
2308 + -.00013, .01586, .03911,
2309 + .62655, .22508, .49217, .01861, .00228,
2310 + -.00013, .01571, .03783,
2311 + .61392, .21913, .46876, .01832, .00257,
2312 + -.00013, .01555, .03673,
2313 + .60191, .21355, .44669, .01800, .00282,
2314 + -.00013, .01535, .03572,
2315 + .58940, .20780, .42421, .01764, .00306,
2316 + -.00014, .01513, .03465 /
2317 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2318 + .57868, .20294, .40533, .01732, .00327,
2319 + -.00015, .01493, .03371,
2320 + .56842, .19834, .38760, .01699, .00347,
2321 + -.00014, .01472, .03283,
2322 + .56044, .19478, .37409, .01672, .00364,
2323 + -.00012, .01454, .03214,
2324 + .54368, .18741, .34647, .01612, .00397,
2325 + -.00012, .01412, .03069,
2326 + .52954, .18129, .32408, .01561, .00423,
2327 + -.00003, .01374, .02948,
2328 + .51416, .17472, .30069, .01504, .00449,
2329 + .00023, .01331, .02816,
2330 + .49859, .16816, .27807, .01445, .00471,
2331 + .00058, .01287, .02683,
2332 + .48483, .16246, .25895, .01393, .00487,
2333 + .00083, .01248, .02568 /
2334 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2335 + .47123, .15686, .24093, .01341, .00497,
2336 + .00104, .01207, .02460,
2337 + .46020, .15237, .22695, .01301, .00501,
2338 + .00120, .01175, .02372,
2339 + .44718, .14713, .21116, .01255, .00503,
2340 + .00136, .01136, .02270,
2341 + .43594, .14265, .19811, .01212, .00504,
2342 + .00149, .01102, .02185,
2343 + .42585, .13866, .18686, .01175, .00500,
2344 + .00157, .01071, .02110,
2345 + .41342, .13377, .17360, .01131, .00494,
2346 + .00166, .01034, .02019,
2347 + .40200, .12934, .16203, .01090, .00486,
2348 + .00173, .00999, .01937,
2349 + .39156, .12533, .15195, .01053, .00478,
2350 + .00178, .00967, .01862 /
2351 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2352 + .38144, .12148, .14258, .01017, .00471,
2353 + .00182, .00937, .01790,
2354 + .37170, .11779, .13399, .00982, .00462,
2355 + .00186, .00907, .01725,
2356 + .36275, .11442, .12641, .00952, .00453,
2357 + .00188, .00880, .01665,
2358 + .35446, .11135, .11971, .00925, .00445,
2359 + .00189, .00855, .01608,
2360 + .34634, .10834, .11337, .00898, .00436,
2361 + .00189, .00830, .01553,
2362 + .33855, .10547, .10750, .00870, .00428,
2363 + .00190, .00806, .01503,
2364 + .33128, .10281, .10224, .00845, .00420,
2365 + .00190, .00784, .01456,
2366 + .32451, .10036, .09753, .00823, .00412,
2367 + .00190, .00763, .01413 /
2368 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2369 + .31787, .09797, .09303, .00801, .00404,
2370 + .00189, .00744, .01371,
2371 + .31142, .09564, .08882, .00778, .00396,
2372 + .00188, .00724, .01331,
2373 + .30545, .09348, .08501, .00757, .00388,
2374 + .00186, .00706, .01294,
2375 + .29979, .09148, .08156, .00738, .00381,
2376 + .00185, .00689, .01259,
2377 + .29418, .08951, .07825, .00721, .00374,
2378 + .00184, .00672, .01225 /
2379 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2380 + .67472, .23875, .55290, .01466, .00053,
2381 + -.00002, .01240, .03359,
2382 + .65913, .23150, .52502, .01453, .00089,
2383 + -.00004, .01241, .03260,
2384 + .63653, .22126, .48509, .01433, .00135,
2385 + -.00002, .01232, .03115,
2386 + .62048, .21410, .45702, .01413, .00164,
2387 + -.00002, .01221, .03012,
2388 + .60404, .20686, .42880, .01387, .00193,
2389 + -.00004, .01206, .02905,
2390 + .59021, .20085, .40560, .01364, .00215,
2391 + -.00003, .01190, .02814,
2392 + .57714, .19522, .38404, .01338, .00234,
2393 + -.00004, .01173, .02729,
2394 + .56359, .18946, .36229, .01310, .00252,
2395 + -.00004, .01155, .02639 /
2396 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2397 + .55203, .18461, .34420, .01285, .00268,
2398 + -.00004, .01137, .02561,
2399 + .54103, .18003, .32742, .01259, .00282,
2400 + -.00003, .01117, .02490,
2401 + .53249, .17649, .31473, .01239, .00293,
2402 + -.00002, .01101, .02435,
2403 + .51463, .16919, .28900, .01192, .00316,
2404 + -.00002, .01066, .02316,
2405 + .49967, .16317, .26843, .01152, .00335,
2406 + .00005, .01035, .02217,
2407 + .48348, .15673, .24718, .01107, .00352,
2408 + .00023, .01001, .02110,
2409 + .46720, .15032, .22687, .01061, .00366,
2410 + .00049, .00965, .02005,
2411 + .45291, .14473, .20988, .01019, .00376,
2412 + .00067, .00931, .01915 /
2413 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2414 + .43878, .13935, .19402, .00982, .00381,
2415 + .00082, .00898, .01825,
2416 + .42743, .13502, .18181, .00950, .00382,
2417 + .00093, .00871, .01756,
2418 + .41410, .12998, .16811, .00911, .00382,
2419 + .00104, .00840, .01677,
2420 + .40261, .12569, .15687, .00880, .00379,
2421 + .00111, .00812, .01609,
2422 + .39232, .12188, .14729, .00852, .00376,
2423 + .00117, .00788, .01549,
2424 + .37970, .11724, .13607, .00819, .00370,
2425 + .00124, .00759, .01476,
2426 + .36821, .11303, .12634, .00785, .00363,
2427 + .00128, .00732, .01414,
2428 + .35772, .10924, .11791, .00757, .00356,
2429 + .00131, .00706, .01356 /
2430 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2431 + .34757, .10561, .11012, .00732, .00349,
2432 + .00134, .00682, .01300,
2433 + .33784, .10217, .10306, .00705, .00340,
2434 + .00136, .00658, .01249,
2435 + .32894, .09903, .09685, .00680, .00333,
2436 + .00137, .00637, .01203,
2437 + .32077, .09616, .09136, .00657, .00327,
2438 + .00137, .00617, .01161,
2439 + .31276, .09337, .08622, .00636, .00320,
2440 + .00137, .00598, .01119,
2441 + .30506, .09070, .08148, .00616, .00312,
2442 + .00136, .00579, .01078,
2443 + .29791, .08824, .07725, .00598, .00306,
2444 + .00136, .00563, .01042,
2445 + .29128, .08598, .07347, .00582, .00299,
2446 + .00136, .00547, .01010 /
2447 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2448 + .28478, .08377, .06988, .00566, .00293,
2449 + .00135, .00531, .00978,
2450 + .27848, .08163, .06654, .00549, .00287,
2451 + .00134, .00516, .00946,
2452 + .27264, .07966, .06352, .00534, .00281,
2453 + .00133, .00502, .00917,
2454 + .26717, .07783, .06081, .00520, .00275,
2455 + .00132, .00490, .00891,
2456 + .26177, .07602, .05821, .00506, .00269,
2457 + .00130, .00477, .00867 /
2458 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2459 + .65201, .21986, .49603, .01086, .00045,
2460 + -.00005, .00941, .02568,
2461 + .63501, .21259, .46717, .01079, .00074,
2462 + -.00003, .00940, .02485,
2463 + .61059, .20230, .42670, .01061, .00112,
2464 + -.00004, .00932, .02369,
2465 + .59334, .19517, .39880, .01046, .00136,
2466 + -.00004, .00922, .02284,
2467 + .57575, .18799, .37114, .01027, .00158,
2468 + -.00003, .00910, .02195,
2469 + .56105, .18203, .34869, .01008, .00175,
2470 + -.00002, .00897, .02122,
2471 + .54721, .17650, .32810, .00988, .00190,
2472 + -.00003, .00883, .02051,
2473 + .53292, .17085, .30752, .00967, .00204,
2474 + -.00003, .00867, .01979 /
2475 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2476 + .52078, .16609, .29059, .00946, .00216,
2477 + -.00003, .00850, .01919,
2478 + .50929, .16162, .27502, .00925, .00226,
2479 + -.00003, .00835, .01862,
2480 + .50039, .15817, .26330, .00908, .00233,
2481 + -.00004, .00823, .01818,
2482 + .48188, .15109, .23981, .00871, .00249,
2483 + -.00004, .00795, .01724,
2484 + .46645, .14527, .22123, .00841, .00261,
2485 + .00003, .00769, .01645,
2486 + .44980, .13907, .20221, .00807, .00272,
2487 + .00017, .00741, .01560,
2488 + .43312, .13293, .18422, .00773, .00281,
2489 + .00036, .00713, .01476,
2490 + .41856, .12762, .16931, .00741, .00287,
2491 + .00050, .00687, .01406 /
2492 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2493 + .40437, .12247, .15554, .00709, .00290,
2494 + .00061, .00661, .01336,
2495 + .39292, .11837, .14502, .00686, .00289,
2496 + .00068, .00640, .01282,
2497 + .37948, .11363, .13329, .00660, .00287,
2498 + .00076, .00615, .01220,
2499 + .36796, .10960, .12375, .00637, .00285,
2500 + .00082, .00593, .01167,
2501 + .35773, .10603, .11566, .00614, .00281,
2502 + .00086, .00574, .01122,
2503 + .34522, .10169, .10625, .00586, .00275,
2504 + .00091, .00551, .01068,
2505 + .33382, .09778, .09815, .00563, .00269,
2506 + .00094, .00529, .01018,
2507 + .32348, .09427, .09119, .00542, .00263,
2508 + .00096, .00509, .00974 /
2509 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2510 + .31351, .09091, .08480, .00522, .00257,
2511 + .00097, .00491, .00932,
2512 + .30402, .08773, .07902, .00501, .00250,
2513 + .00097, .00472, .00893,
2514 + .29534, .08483, .07397, .00483, .00244,
2515 + .00098, .00456, .00858,
2516 + .28739, .08219, .06954, .00466, .00238,
2517 + .00099, .00441, .00825,
2518 + .27961, .07963, .06540, .00450, .00232,
2519 + .00099, .00427, .00794,
2520 + .27215, .07721, .06160, .00436, .00226,
2521 + .00098, .00412, .00764,
2522 + .26527, .07497, .05822, .00422, .00221,
2523 + .00097, .00399, .00737,
2524 + .25891, .07292, .05522, .00408, .00216,
2525 + .00096, .00387, .00713 /
2526 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2527 + .25268, .07092, .05238, .00395, .00211,
2528 + .00095, .00375, .00690,
2529 + .24664, .06899, .04975, .00383, .00206,
2530 + .00094, .00364, .00667,
2531 + .24105, .06721, .04738, .00372, .00202,
2532 + .00094, .00355, .00646,
2533 + .23583, .06556, .04525, .00362, .00198,
2534 + .00093, .00345, .00626,
2535 + .23068, .06393, .04321, .00353, .00193,
2536 + .00092, .00336, .00606 /
2537 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2538 + .62310, .20010, .44108, .00789, .00038,
2539 + .00001, .00705, .01931,
2540 + .60507, .19292, .41222, .00784, .00063,
2541 + .00000, .00705, .01865,
2542 + .57931, .18281, .37231, .00770, .00095,
2543 + .00000, .00699, .01769,
2544 + .56122, .17584, .34528, .00758, .00114,
2545 + .00000, .00691, .01702,
2546 + .54288, .16884, .31881, .00744, .00130,
2547 + -.00001, .00679, .01633,
2548 + .52763, .16307, .29756, .00729, .00143,
2549 + .00000, .00669, .01575,
2550 + .51329, .15773, .27831, .00715, .00153,
2551 + .00000, .00656, .01522,
2552 + .49855, .15227, .25922, .00699, .00163,
2553 + .00000, .00643, .01466 /
2554 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2555 + .48610, .14770, .24363, .00683, .00172,
2556 + .00000, .00632, .01417,
2557 + .47432, .14343, .22941, .00670, .00179,
2558 + .00001, .00619, .01369,
2559 + .46523, .14016, .21879, .00659, .00184,
2560 + .00001, .00609, .01333,
2561 + .44638, .13342, .19770, .00633, .00195,
2562 + .00000, .00587, .01260,
2563 + .43080, .12789, .18116, .00608, .00202,
2564 + .00004, .00566, .01202,
2565 + .41407, .12203, .16438, .00581, .00210,
2566 + .00014, .00544, .01137,
2567 + .39738, .11626, .14867, .00555, .00215,
2568 + .00029, .00521, .01072,
2569 + .38288, .11128, .13578, .00530, .00217,
2570 + .00039, .00500, .01018 /
2571 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2572 + .36871, .10648, .12397, .00509, .00217,
2573 + .00047, .00480, .00966,
2574 + .35738, .10267, .11500, .00490, .00217,
2575 + .00052, .00465, .00925,
2576 + .34418, .09826, .10507, .00468, .00216,
2577 + .00057, .00446, .00878,
2578 + .33287, .09453, .09708, .00451, .00212,
2579 + .00061, .00428, .00839,
2580 + .32284, .09124, .09033, .00437, .00208,
2581 + .00063, .00413, .00804,
2582 + .31062, .08727, .08253, .00418, .00203,
2583 + .00066, .00395, .00760,
2584 + .29957, .08370, .07586, .00398, .00197,
2585 + .00068, .00378, .00724,
2586 + .28957, .08049, .07016, .00381, .00192,
2587 + .00069, .00364, .00691 /
2588 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2589 + .27996, .07742, .06494, .00367, .00188,
2590 + .00070, .00349, .00659,
2591 + .27085, .07453, .06027, .00351, .00183,
2592 + .00071, .00336, .00630,
2593 + .26253, .07191, .05621, .00338, .00178,
2594 + .00071, .00323, .00604,
2595 + .25491, .06952, .05267, .00327, .00173,
2596 + .00070, .00312, .00579,
2597 + .24750, .06722, .04937, .00315, .00168,
2598 + .00070, .00301, .00556,
2599 + .24043, .06504, .04635, .00303, .00164,
2600 + .00069, .00290, .00535,
2601 + .23390, .06303, .04369, .00293, .00159,
2602 + .00069, .00280, .00516,
2603 + .22786, .06120, .04133, .00283, .00155,
2604 + .00068, .00272, .00498 /
2605 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2606 + .22197, .05941, .03910, .00274, .00151,
2607 + .00068, .00264, .00480,
2608 + .21627, .05770, .03703, .00267, .00147,
2609 + .00067, .00255, .00462,
2610 + .21101, .05613, .03518, .00260, .00143,
2611 + .00067, .00247, .00446,
2612 + .20612, .05466, .03353, .00252, .00140,
2613 + .00066, .00240, .00433,
2614 + .20131, .05321, .03195, .00243, .00136,
2615 + .00064, .00233, .00420 /
2616 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2617 + .58908, .17998, .38855, .00559, .00036,
2618 + .00007, .00525, .01424,
2619 + .57034, .17306, .36037, .00557, .00054,
2620 + .00007, .00523, .01373,
2621 + .54373, .16332, .32200, .00549, .00078,
2622 + .00007, .00517, .01301,
2623 + .52517, .15662, .29637, .00541, .00093,
2624 + .00006, .00511, .01250,
2625 + .50642, .14993, .27154, .00530, .00106,
2626 + .00005, .00502, .01196,
2627 + .49085, .14445, .25182, .00521, .00116,
2628 + .00006, .00494, .01149,
2629 + .47633, .13939, .23415, .00511, .00123,
2630 + .00005, .00484, .01107,
2631 + .46146, .13424, .21676, .00499, .00130,
2632 + .00005, .00473, .01064 /
2633 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2634 + .44893, .12992, .20266, .00489, .00136,
2635 + .00006, .00463, .01026,
2636 + .43713, .12589, .18991, .00477, .00141,
2637 + .00005, .00453, .00992,
2638 + .42804, .12280, .18041, .00467, .00145,
2639 + .00004, .00446, .00965,
2640 + .40925, .11649, .16171, .00447, .00151,
2641 + .00004, .00429, .00909,
2642 + .39376, .11134, .14722, .00430, .00156,
2643 + .00007, .00413, .00864,
2644 + .37720, .10589, .13265, .00411, .00160,
2645 + .00014, .00396, .00815,
2646 + .36079, .10055, .11911, .00391, .00163,
2647 + .00024, .00378, .00768,
2648 + .34661, .09595, .10811, .00373, .00164,
2649 + .00031, .00363, .00728 /
2650 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2651 + .33276, .09156, .09809, .00359, .00164,
2652 + .00037, .00348, .00686,
2653 + .32175, .08807, .09055, .00345, .00163,
2654 + .00041, .00335, .00655,
2655 + .30897, .08404, .08227, .00328, .00160,
2656 + .00044, .00319, .00621,
2657 + .29807, .08064, .07562, .00315, .00157,
2658 + .00046, .00306, .00593,
2659 + .28846, .07765, .07006, .00302, .00154,
2660 + .00048, .00294, .00567,
2661 + .27677, .07405, .06366, .00287, .00149,
2662 + .00050, .00281, .00535,
2663 + .26616, .07083, .05823, .00276, .00145,
2664 + .00050, .00269, .00506,
2665 + .25661, .06796, .05363, .00264, .00141,
2666 + .00051, .00258, .00482 /
2667 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2668 + .24746, .06522, .04946, .00253, .00138,
2669 + .00052, .00248, .00460,
2670 + .23882, .06263, .04571, .00244, .00133,
2671 + .00052, .00237, .00439,
2672 + .23096, .06030, .04246, .00235, .00129,
2673 + .00052, .00228, .00420,
2674 + .22380, .05819, .03964, .00225, .00125,
2675 + .00051, .00219, .00403,
2676 + .21685, .05615, .03703, .00216, .00122,
2677 + .00051, .00211, .00386,
2678 + .21023, .05422, .03465, .00207, .00119,
2679 + .00050, .00204, .00369,
2680 + .20414, .05245, .03256, .00200, .00115,
2681 + .00049, .00197, .00354,
2682 + .19852, .05083, .03073, .00193, .00112,
2683 + .00048, .00190, .00341 /
2684 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2685 + .19305, .04925, .02900, .00186, .00108,
2686 + .00048, .00183, .00329,
2687 + .18776, .04774, .02740, .00181, .00106,
2688 + .00047, .00177, .00316,
2689 + .18290, .04635, .02597, .00176, .00103,
2690 + .00046, .00171, .00305,
2691 + .17838, .04507, .02470, .00170, .00100,
2692 + .00045, .00166, .00295,
2693 + .17394, .04381, .02349, .00165, .00098,
2694 + .00044, .00161, .00286 /
2695 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2696 + .55091, .16022, .33918, .00397, .00025,
2697 + -.00001, .00376, .01035,
2698 + .53187, .15359, .31225, .00397, .00041,
2699 + .00001, .00375, .00996,
2700 + .50491, .14438, .27602, .00393, .00061,
2701 + .00001, .00372, .00938,
2702 + .48624, .13805, .25219, .00386, .00072,
2703 + .00001, .00367, .00900,
2704 + .46745, .13175, .22938, .00378, .00082,
2705 + .00001, .00361, .00860,
2706 + .45187, .12663, .21142, .00374, .00090,
2707 + .00002, .00355, .00824,
2708 + .43745, .12188, .19543, .00364, .00096,
2709 + .00002, .00347, .00793,
2710 + .42270, .11706, .17982, .00355, .00101,
2711 + .00001, .00340, .00761 /
2712 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2713 + .41030, .11306, .16727, .00347, .00105,
2714 + .00001, .00332, .00733,
2715 + .39865, .10932, .15598, .00339, .00108,
2716 + .00001, .00325, .00707,
2717 + .38970, .10647, .14762, .00333, .00110,
2718 + .00000, .00319, .00687,
2719 + .37130, .10066, .13127, .00317, .00115,
2720 + .00002, .00306, .00647,
2721 + .35620, .09593, .11874, .00305, .00117,
2722 + .00004, .00295, .00612,
2723 + .34013, .09095, .10624, .00292, .00120,
2724 + .00010, .00281, .00574,
2725 + .32425, .08608, .09473, .00277, .00121,
2726 + .00016, .00268, .00538,
2727 + .31051, .08192, .08545, .00265, .00122,
2728 + .00021, .00257, .00508 /
2729 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2730 + .29729, .07792, .07707, .00251, .00120,
2731 + .00026, .00245, .00480,
2732 + .28677, .07477, .07081, .00241, .00118,
2733 + .00028, .00235, .00459,
2734 + .27456, .07114, .06397, .00230, .00116,
2735 + .00030, .00224, .00434,
2736 + .26420, .06810, .05851, .00221, .00113,
2737 + .00032, .00215, .00412,
2738 + .25507, .06544, .05398, .00213, .00111,
2739 + .00033, .00207, .00393,
2740 + .24401, .06223, .04880, .00202, .00108,
2741 + .00034, .00197, .00370,
2742 + .23405, .05937, .04442, .00192, .00104,
2743 + .00035, .00187, .00350,
2744 + .22510, .05682, .04072, .00184, .00100,
2745 + .00035, .00179, .00332 /
2746 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2747 + .21654, .05440, .03738, .00177, .00097,
2748 + .00035, .00171, .00315,
2749 + .20848, .05212, .03443, .00170, .00094,
2750 + .00035, .00164, .00300,
2751 + .20119, .05007, .03188, .00162, .00091,
2752 + .00035, .00157, .00287,
2753 + .19460, .04821, .02966, .00153, .00087,
2754 + .00035, .00150, .00275,
2755 + .18819, .04642, .02762, .00146, .00085,
2756 + .00034, .00144, .00263,
2757 + .18205, .04473, .02577, .00141, .00083,
2758 + .00034, .00139, .00251,
2759 + .17642, .04319, .02415, .00137, .00081,
2760 + .00034, .00134, .00241,
2761 + .17125, .04179, .02273, .00134, .00078,
2762 + .00034, .00130, .00231 /
2763 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2764 + .16621, .04043, .02139, .00130, .00075,
2765 + .00034, .00125, .00222,
2766 + .16139, .03912, .02017, .00125, .00073,
2767 + .00033, .00121, .00214,
2768 + .15696, .03793, .01908, .00120, .00072,
2769 + .00032, .00117, .00206,
2770 + .15283, .03682, .01810, .00117, .00069,
2771 + .00032, .00113, .00199,
2772 + .14877, .03574, .01717, .00113, .00067,
2773 + .00031, .00109, .00193 /
2774 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2775 + .50976, .14091, .29297, .00274, .00022,
2776 + .00004, .00269, .00733,
2777 + .49071, .13474, .26780, .00276, .00033,
2778 + .00003, .00268, .00707,
2779 + .46391, .12617, .23434, .00274, .00048,
2780 + .00002, .00264, .00664,
2781 + .44542, .12030, .21258, .00270, .00057,
2782 + .00003, .00260, .00635,
2783 + .42690, .11447, .19193, .00266, .00064,
2784 + .00003, .00256, .00605,
2785 + .41164, .10972, .17582, .00262, .00068,
2786 + .00003, .00251, .00580,
2787 + .39754, .10536, .16160, .00255, .00072,
2788 + .00002, .00245, .00559,
2789 + .38315, .10096, .14781, .00248, .00075,
2790 + .00002, .00239, .00535 /
2791 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2792 + .37106, .09730, .13681, .00243, .00077,
2793 + .00003, .00234, .00515,
2794 + .35977, .09390, .12697, .00238, .00080,
2795 + .00003, .00228, .00496,
2796 + .35112, .09131, .11972, .00234, .00081,
2797 + .00003, .00223, .00481,
2798 + .33337, .08603, .10567, .00226, .00084,
2799 + .00003, .00213, .00449,
2800 + .31886, .08175, .09497, .00217, .00085,
2801 + .00004, .00205, .00425,
2802 + .30350, .07725, .08438, .00206, .00086,
2803 + .00008, .00196, .00399,
2804 + .28838, .07287, .07472, .00196, .00087,
2805 + .00012, .00186, .00374,
2806 + .27537, .06914, .06699, .00187, .00086,
2807 + .00015, .00177, .00352 /
2808 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2809 + .26283, .06560, .06007, .00179, .00085,
2810 + .00019, .00169, .00331,
2811 + .25291, .06281, .05493, .00171, .00084,
2812 + .00021, .00161, .00316,
2813 + .24146, .05960, .04934, .00161, .00082,
2814 + .00022, .00153, .00298,
2815 + .23179, .05691, .04492, .00154, .00079,
2816 + .00022, .00146, .00283,
2817 + .22325, .05455, .04127, .00149, .00077,
2818 + .00023, .00141, .00268,
2819 + .21294, .05173, .03711, .00142, .00075,
2820 + .00025, .00135, .00251,
2821 + .20371, .04922, .03363, .00137, .00073,
2822 + .00025, .00128, .00237,
2823 + .19544, .04699, .03070, .00130, .00070,
2824 + .00024, .00121, .00225 /
2825 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2826 + .18757, .04489, .02806, .00124, .00067,
2827 + .00023, .00115, .00214,
2828 + .18018, .04292, .02573, .00118, .00065,
2829 + .00023, .00111, .00203,
2830 + .17348, .04114, .02374, .00113, .00062,
2831 + .00023, .00106, .00193,
2832 + .16740, .03954, .02203, .00109, .00060,
2833 + .00023, .00101, .00184,
2834 + .16154, .03800, .02045, .00105, .00058,
2835 + .00023, .00097, .00176,
2836 + .15600, .03655, .01903, .00099, .00057,
2837 + .00023, .00094, .00167,
2838 + .15092, .03522, .01778, .00095, .00055,
2839 + .00023, .00090, .00160,
2840 + .14625, .03401, .01669, .00091, .00053,
2841 + .00022, .00087, .00154 /
2842 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2843 + .14171, .03284, .01567, .00088, .00051,
2844 + .00022, .00083, .00149,
2845 + .13734, .03173, .01474, .00086, .00050,
2846 + .00021, .00080, .00142,
2847 + .13333, .03072, .01390, .00084, .00048,
2848 + .00021, .00078, .00136,
2849 + .12963, .02977, .01317, .00081, .00047,
2850 + .00020, .00075, .00131,
2851 + .12601, .02885, .01247, .00078, .00045,
2852 + .00020, .00072, .00127 /
2853 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2854 + .46648, .12245, .25024, .00184, .00019,
2855 + .00005, .00189, .00511,
2856 + .44778, .11676, .22711, .00186, .00028,
2857 + .00005, .00189, .00489,
2858 + .42159, .10885, .19670, .00184, .00038,
2859 + .00006, .00187, .00462,
2860 + .40356, .10350, .17717, .00182, .00044,
2861 + .00006, .00185, .00441,
2862 + .38559, .09820, .15880, .00180, .00049,
2863 + .00005, .00182, .00419,
2864 + .37089, .09387, .14455, .00176, .00054,
2865 + .00005, .00178, .00401,
2866 + .35725, .08993, .13209, .00173, .00056,
2867 + .00005, .00174, .00385,
2868 + .34340, .08595, .12010, .00169, .00058,
2869 + .00005, .00169, .00368 /
2870 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2871 + .33187, .08265, .11058, .00165, .00060,
2872 + .00005, .00165, .00354,
2873 + .32109, .07960, .10214, .00161, .00062,
2874 + .00004, .00161, .00341,
2875 + .31284, .07727, .09595, .00158, .00063,
2876 + .00004, .00158, .00330,
2877 + .29601, .07254, .08402, .00150, .00063,
2878 + .00004, .00151, .00309,
2879 + .28228, .06873, .07502, .00144, .00064,
2880 + .00004, .00144, .00292,
2881 + .26778, .06474, .06619, .00137, .00065,
2882 + .00006, .00137, .00274,
2883 + .25360, .06088, .05821, .00129, .00064,
2884 + .00011, .00129, .00256,
2885 + .24145, .05759, .05187, .00122, .00064,
2886 + .00013, .00124, .00240 /
2887 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2888 + .22973, .05447, .04624, .00119, .00063,
2889 + .00014, .00118, .00224,
2890 + .22052, .05202, .04208, .00114, .00062,
2891 + .00015, .00112, .00212,
2892 + .20992, .04922, .03758, .00108, .00060,
2893 + .00016, .00107, .00199,
2894 + .20099, .04688, .03404, .00104, .00058,
2895 + .00017, .00103, .00189,
2896 + .19317, .04484, .03114, .00098, .00056,
2897 + .00017, .00099, .00180,
2898 + .18376, .04240, .02785, .00091, .00054,
2899 + .00018, .00092, .00169,
2900 + .17532, .04023, .02513, .00085, .00051,
2901 + .00017, .00087, .00161,
2902 + .16778, .03832, .02284, .00081, .00050,
2903 + .00018, .00083, .00152 /
2904 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2905 + .16062, .03651, .02079, .00078, .00049,
2906 + .00018, .00080, .00142,
2907 + .15390, .03482, .01900, .00076, .00046,
2908 + .00018, .00076, .00135,
2909 + .14784, .03330, .01746, .00073, .00044,
2910 + .00018, .00072, .00128,
2911 + .14237, .03195, .01615, .00069, .00043,
2912 + .00017, .00069, .00121,
2913 + .13710, .03064, .01494, .00066, .00041,
2914 + .00016, .00066, .00115,
2915 + .13212, .02940, .01386, .00063, .00040,
2916 + .00017, .00064, .00110,
2917 + .12755, .02828, .01292, .00062, .00039,
2918 + .00017, .00061, .00105,
2919 + .12337, .02727, .01209, .00060, .00037,
2920 + .00016, .00059, .00101 /
2921 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2922 + .11931, .02628, .01132, .00058, .00036,
2923 + .00016, .00056, .00097,
2924 + .11545, .02535, .01062, .00055, .00035,
2925 + .00015, .00054, .00093,
2926 + .11191, .02449, .01000, .00053, .00033,
2927 + .00015, .00053, .00089,
2928 + .10863, .02370, .00946, .00052, .00033,
2929 + .00015, .00051, .00086,
2930 + .10542, .02293, .00894, .00050, .00032,
2931 + .00015, .00049, .00083 /
2932 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2933 + .42221, .10514, .21133, .00120, .00015,
2934 + .00004, .00130, .00349,
2935 + .40410, .09996, .19042, .00122, .00022,
2936 + .00004, .00131, .00334,
2937 + .37886, .09282, .16322, .00122, .00030,
2938 + .00003, .00129, .00312,
2939 + .36160, .08798, .14594, .00119, .00035,
2940 + .00003, .00128, .00298,
2941 + .34443, .08321, .12985, .00115, .00039,
2942 + .00003, .00126, .00285,
2943 + .33037, .07934, .11747, .00114, .00042,
2944 + .00004, .00124, .00273,
2945 + .31746, .07582, .10673, .00113, .00044,
2946 + .00003, .00121, .00259,
2947 + .30437, .07227, .09646, .00110, .00046,
2948 + .00003, .00119, .00248 /
2949 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2950 + .29347, .06933, .08838, .00105, .00047,
2951 + .00003, .00115, .00240,
2952 + .28334, .06663, .08123, .00102, .00048,
2953 + .00003, .00112, .00230,
2954 + .27560, .06457, .07601, .00100, .00048,
2955 + .00003, .00110, .00222,
2956 + .25985, .06041, .06605, .00095, .00049,
2957 + .00003, .00105, .00207,
2958 + .24705, .05707, .05859, .00092, .00049,
2959 + .00004, .00101, .00194,
2960 + .23359, .05359, .05133, .00088, .00048,
2961 + .00005, .00096, .00180,
2962 + .22046, .05021, .04482, .00083, .00049,
2963 + .00008, .00090, .00168,
2964 + .20925, .04736, .03970, .00079, .00048,
2965 + .00010, .00086, .00158 /
2966 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2967 + .19850, .04466, .03517, .00076, .00047,
2968 + .00011, .00082, .00146,
2969 + .19009, .04254, .03185, .00072, .00046,
2970 + .00011, .00079, .00140,
2971 + .18043, .04013, .02829, .00066, .00044,
2972 + .00012, .00074, .00132,
2973 + .17228, .03813, .02550, .00063, .00042,
2974 + .00013, .00071, .00124,
2975 + .16518, .03639, .02323, .00061, .00041,
2976 + .00013, .00068, .00117,
2977 + .15667, .03431, .02067, .00059, .00040,
2978 + .00014, .00064, .00109,
2979 + .14906, .03246, .01855, .00055, .00038,
2980 + .00014, .00061, .00104,
2981 + .14228, .03084, .01679, .00053, .00037,
2982 + .00014, .00058, .00097 /
2983 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2984 + .13586, .02931, .01523, .00052, .00036,
2985 + .00014, .00055, .00090,
2986 + .12989, .02788, .01386, .00048, .00034,
2987 + .00014, .00052, .00086,
2988 + .12451, .02661, .01269, .00045, .00032,
2989 + .00014, .00050, .00083,
2990 + .11963, .02547, .01170, .00043, .00031,
2991 + .00013, .00047, .00079,
2992 + .11495, .02438, .01080, .00041, .00030,
2993 + .00013, .00045, .00074,
2994 + .11054, .02335, .00998, .00040, .00028,
2995 + .00013, .00043, .00070,
2996 + .10652, .02242, .00928, .00038, .00027,
2997 + .00013, .00042, .00067,
2998 + .10286, .02157, .00867, .00036, .00026,
2999 + .00012, .00040, .00065 /
3000 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3001 + .09932, .02075, .00810, .00034, .00025,
3002 + .00012, .00038, .00063,
3003 + .09591, .01997, .00758, .00033, .00025,
3004 + .00012, .00036, .00059,
3005 + .09280, .01927, .00712, .00032, .00024,
3006 + .00011, .00035, .00057,
3007 + .08994, .01862, .00672, .00031, .00023,
3008 + .00011, .00034, .00055,
3009 + .08715, .01798, .00634, .00029, .00022,
3010 + .00011, .00033, .00053 /
3011 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3012 + .37778, .08928, .17655, .00085, .00007,
3013 + -.00001, .00082, .00234,
3014 + .36055, .08466, .15797, .00087, .00012,
3015 + -.00002, .00082, .00224,
3016 + .33664, .07828, .13409, .00088, .00017,
3017 + -.00003, .00082, .00208,
3018 + .32036, .07398, .11907, .00087, .00021,
3019 + -.00002, .00082, .00198,
3020 + .30422, .06977, .10518, .00085, .00024,
3021 + -.00001, .00081, .00188,
3022 + .29106, .06637, .09459, .00081, .00027,
3023 + -.00001, .00079, .00180,
3024 + .27899, .06327, .08547, .00081, .00028,
3025 + -.00001, .00078, .00172,
3026 + .26680, .06017, .07680, .00079, .00029,
3027 + -.00002, .00076, .00163 /
3028 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3029 + .25670, .05760, .07000, .00078, .00030,
3030 + -.00003, .00074, .00156,
3031 + .24731, .05524, .06406, .00076, .00030,
3032 + -.00002, .00072, .00150,
3033 + .24015, .05345, .05974, .00074, .00030,
3034 + -.00001, .00070, .00146,
3035 + .22561, .04985, .05152, .00072, .00031,
3036 + -.00001, .00067, .00135,
3037 + .21386, .04695, .04543, .00069, .00031,
3038 + -.00001, .00063, .00128,
3039 + .20158, .04394, .03954, .00064, .00031,
3040 + .00001, .00060, .00120,
3041 + .18964, .04104, .03429, .00059, .00030,
3042 + .00002, .00057, .00110,
3043 + .17945, .03861, .03018, .00057, .00029,
3044 + .00004, .00055, .00103 /
3045 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3046 + .16977, .03629, .02658, .00053, .00029,
3047 + .00005, .00051, .00098,
3048 + .16215, .03449, .02397, .00052, .00029,
3049 + .00006, .00049, .00092,
3050 + .15343, .03245, .02118, .00050, .00028,
3051 + .00006, .00047, .00085,
3052 + .14615, .03076, .01901, .00049, .00027,
3053 + .00007, .00044, .00080,
3054 + .13981, .02929, .01724, .00046, .00026,
3055 + .00007, .00041, .00076,
3056 + .13222, .02754, .01526, .00042, .00024,
3057 + .00007, .00038, .00071,
3058 + .12545, .02600, .01363, .00042, .00023,
3059 + .00007, .00037, .00067,
3060 + .11946, .02463, .01229, .00040, .00022,
3061 + .00007, .00036, .00063 /
3062 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3063 + .11381, .02335, .01110, .00038, .00021,
3064 + .00008, .00034, .00060,
3065 + .10854, .02217, .01007, .00035, .00020,
3066 + .00008, .00032, .00057,
3067 + .10381, .02111, .00919, .00033, .00019,
3068 + .00007, .00030, .00054,
3069 + .09955, .02016, .00845, .00031, .00019,
3070 + .00007, .00028, .00051,
3071 + .09547, .01926, .00777, .00029, .00018,
3072 + .00006, .00027, .00048,
3073 + .09165, .01841, .00717, .00028, .00017,
3074 + .00007, .00026, .00046,
3075 + .08816, .01764, .00664, .00026, .00016,
3076 + .00007, .00024, .00044,
3077 + .08497, .01695, .00619, .00026, .00015,
3078 + .00006, .00023, .00041 /
3079 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3080 + .08188, .01628, .00577, .00025, .00015,
3081 + .00006, .00022, .00039,
3082 + .07892, .01564, .00539, .00025, .00014,
3083 + .00006, .00021, .00038,
3084 + .07622, .01507, .00506, .00025, .00014,
3085 + .00006, .00021, .00037,
3086 + .07376, .01454, .00476, .00024, .00013,
3087 + .00006, .00020, .00035,
3088 + .07137, .01402, .00448, .00023, .00013,
3089 + .00006, .00020, .00033 /
3090 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3091 + .33372, .07453, .14511, .00048, .00009,
3092 + .00003, .00058, .00151,
3093 + .31760, .07047, .12898, .00050, .00012,
3094 + .00004, .00058, .00144,
3095 + .29528, .06489, .10838, .00050, .00015,
3096 + .00004, .00057, .00137,
3097 + .28015, .06115, .09555, .00049, .00018,
3098 + .00004, .00056, .00130,
3099 + .26519, .05750, .08380, .00049, .00021,
3100 + .00003, .00055, .00122,
3101 + .25299, .05457, .07492, .00051, .00022,
3102 + .00003, .00055, .00115,
3103 + .24191, .05189, .06730, .00050, .00022,
3104 + .00003, .00053, .00110,
3105 + .23074, .04921, .06012, .00049, .00022,
3106 + .00003, .00052, .00105 /
3107 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3108 + .22148, .04702, .05455, .00048, .00022,
3109 + .00003, .00050, .00101,
3110 + .21293, .04500, .04967, .00046, .00022,
3111 + .00003, .00049, .00097,
3112 + .20644, .04347, .04614, .00044, .00023,
3113 + .00003, .00048, .00094,
3114 + .19323, .04039, .03949, .00044, .00023,
3115 + .00003, .00045, .00087,
3116 + .18261, .03793, .03459, .00042, .00023,
3117 + .00003, .00043, .00081,
3118 + .17153, .03539, .02990, .00040, .00022,
3119 + .00003, .00041, .00076,
3120 + .16080, .03294, .02574, .00037, .00022,
3121 + .00005, .00039, .00072,
3122 + .15170, .03089, .02252, .00036, .00021,
3123 + .00005, .00036, .00067 /
3124 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3125 + .14308, .02895, .01972, .00033, .00020,
3126 + .00005, .00033, .00062,
3127 + .13633, .02745, .01769, .00032, .00020,
3128 + .00005, .00032, .00058,
3129 + .12862, .02575, .01554, .00031, .00019,
3130 + .00006, .00030, .00054,
3131 + .12221, .02434, .01388, .00029, .00018,
3132 + .00006, .00029, .00051,
3133 + .11662, .02312, .01254, .00027, .00017,
3134 + .00006, .00027, .00049,
3135 + .10995, .02168, .01105, .00026, .00016,
3136 + .00006, .00026, .00045,
3137 + .10405, .02041, .00982, .00025, .00015,
3138 + .00005, .00024, .00042,
3139 + .09883, .01929, .00882, .00024, .00015,
3140 + .00005, .00023, .00039 /
3141 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3142 + .09391, .01825, .00793, .00023, .00014,
3143 + .00005, .00022, .00037,
3144 + .08934, .01728, .00716, .00021, .00014,
3145 + .00005, .00021, .00035,
3146 + .08526, .01642, .00652, .00020, .00013,
3147 + .00005, .00020, .00033,
3148 + .08158, .01565, .00597, .00019, .00012,
3149 + .00005, .00018, .00031,
3150 + .07806, .01491, .00548, .00019, .00012,
3151 + .00005, .00017, .00029,
3152 + .07475, .01422, .00504, .00019, .00011,
3153 + .00005, .00017, .00028,
3154 + .07175, .01360, .00466, .00018, .00011,
3155 + .00005, .00016, .00026,
3156 + .06905, .01305, .00433, .00017, .00010,
3157 + .00005, .00015, .00025 /
3158 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3159 + .06643, .01251, .00403, .00016, .00010,
3160 + .00004, .00014, .00024,
3161 + .06392, .01200, .00375, .00015, .00009,
3162 + .00004, .00014, .00023,
3163 + .06163, .01154, .00351, .00014, .00009,
3164 + .00004, .00013, .00022,
3165 + .05953, .01112, .00330, .00014, .00008,
3166 + .00004, .00013, .00021,
3167 + .05749, .01071, .00310, .00014, .00008,
3168 + .00004, .00012, .00020 /
3169 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3170 + .29107, .06136, .11765, .00027, .00008,
3171 + .00005, .00039, .00093,
3172 + .27617, .05785, .10382, .00028, .00011,
3173 + .00005, .00039, .00089,
3174 + .25563, .05306, .08636, .00028, .00013,
3175 + .00005, .00039, .00084,
3176 + .24176, .04985, .07559, .00029, .00014,
3177 + .00004, .00038, .00080,
3178 + .22812, .04671, .06580, .00030, .00016,
3179 + .00003, .00037, .00077,
3180 + .21708, .04419, .05846, .00030, .00016,
3181 + .00003, .00037, .00073,
3182 + .20701, .04194, .05222, .00030, .00016,
3183 + .00003, .00036, .00068,
3184 + .19690, .03968, .04637, .00030, .00017,
3185 + .00003, .00035, .00065 /
3186 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3187 + .18858, .03780, .04184, .00029, .00017,
3188 + .00003, .00034, .00063,
3189 + .18089, .03610, .03791, .00028, .00017,
3190 + .00003, .00032, .00061,
3191 + .17505, .03482, .03509, .00028, .00017,
3192 + .00003, .00031, .00059,
3193 + .16328, .03223, .02979, .00025, .00017,
3194 + .00003, .00029, .00055,
3195 + .15381, .03018, .02592, .00025, .00016,
3196 + .00003, .00028, .00052,
3197 + .14397, .02805, .02223, .00024, .00016,
3198 + .00003, .00027, .00047,
3199 + .13452, .02602, .01901, .00022, .00015,
3200 + .00003, .00025, .00043,
3201 + .12653, .02432, .01653, .00020, .00015,
3202 + .00004, .00024, .00040 /
3203 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3204 + .11892, .02274, .01439, .00021, .00014,
3205 + .00004, .00022, .00038,
3206 + .11302, .02150, .01284, .00020, .00014,
3207 + .00004, .00021, .00036,
3208 + .10631, .02011, .01122, .00018, .00013,
3209 + .00005, .00020, .00033,
3210 + .10073, .01896, .00997, .00017, .00013,
3211 + .00004, .00020, .00031,
3212 + .09591, .01797, .00897, .00015, .00012,
3213 + .00004, .00018, .00030,
3214 + .09016, .01679, .00785, .00013, .00011,
3215 + .00004, .00017, .00028,
3216 + .08506, .01576, .00696, .00015, .00011,
3217 + .00004, .00016, .00026,
3218 + .08057, .01486, .00622, .00015, .00010,
3219 + .00004, .00015, .00024 /
3220 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3221 + .07637, .01402, .00557, .00014, .00010,
3222 + .00004, .00014, .00023,
3223 + .07246, .01324, .00501, .00013, .00009,
3224 + .00004, .00013, .00022,
3225 + .06899, .01255, .00454, .00012, .00009,
3226 + .00003, .00012, .00020,
3227 + .06588, .01193, .00415, .00011, .00009,
3228 + .00004, .00012, .00019,
3229 + .06290, .01135, .00380, .00010, .00008,
3230 + .00004, .00011, .00018,
3231 + .06011, .01080, .00348, .00009, .00007,
3232 + .00003, .00010, .00018,
3233 + .05758, .01031, .00321, .00009, .00007,
3234 + .00003, .00010, .00018,
3235 + .05528, .00987, .00298, .00010, .00007,
3236 + .00003, .00010, .00016 /
3237 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3238 + .05306, .00945, .00276, .00010, .00007,
3239 + .00003, .00009, .00015,
3240 + .05098, .00905, .00257, .00009, .00006,
3241 + .00003, .00009, .00014,
3242 + .04908, .00868, .00240, .00008, .00006,
3243 + .00003, .00009, .00014,
3244 + .04734, .00835, .00225, .00008, .00006,
3245 + .00003, .00008, .00013,
3246 + .04565, .00803, .00211, .00008, .00006,
3247 + .00003, .00008, .00012 /
3248 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3249 + .25045, .04984, .09407, .00021, .00003,
3250 + .00000, .00022, .00058,
3251 + .23694, .04687, .08242, .00021, .00005,
3252 + .00001, .00022, .00054,
3253 + .21836, .04280, .06785, .00022, .00007,
3254 + .00000, .00023, .00051,
3255 + .20587, .04009, .05898, .00023, .00008,
3256 + .00000, .00022, .00050,
3257 + .19365, .03745, .05097, .00021, .00008,
3258 + .00000, .00021, .00048,
3259 + .18380, .03534, .04499, .00020, .00008,
3260 + .00000, .00020, .00045,
3261 + .17485, .03343, .03996, .00018, .00009,
3262 + .00000, .00020, .00043,
3263 + .16586, .03154, .03527, .00018, .00009,
3264 + .00000, .00020, .00042 /
3265 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3266 + .15844, .03000, .03167, .00020, .00010,
3267 + .00000, .00019, .00040,
3268 + .15164, .02858, .02856, .00019, .00010,
3269 + .00000, .00018, .00039,
3270 + .14650, .02751, .02633, .00018, .00009,
3271 + .00000, .00018, .00037,
3272 + .13615, .02538, .02218, .00016, .00010,
3273 + -.00001, .00017, .00035,
3274 + .12785, .02369, .01917, .00017, .00010,
3275 + .00000, .00016, .00031,
3276 + .11926, .02196, .01633, .00017, .00010,
3277 + .00001, .00016, .00028,
3278 + .11103, .02030, .01387, .00016, .00009,
3279 + .00001, .00015, .00027,
3280 + .10408, .01892, .01199, .00016, .00008,
3281 + .00001, .00014, .00025 /
3282 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3283 + .09756, .01763, .01037, .00014, .00008,
3284 + .00002, .00013, .00023,
3285 + .09249, .01663, .00921, .00013, .00008,
3286 + .00002, .00012, .00022,
3287 + .08672, .01550, .00800, .00013, .00007,
3288 + .00002, .00011, .00020,
3289 + .08195, .01457, .00707, .00012, .00007,
3290 + .00002, .00010, .00019,
3291 + .07783, .01378, .00633, .00011, .00007,
3292 + .00002, .00010, .00018,
3293 + .07294, .01284, .00552, .00010, .00007,
3294 + .00002, .00010, .00017,
3295 + .06861, .01202, .00486, .00010, .00006,
3296 + .00002, .00009, .00016,
3297 + .06483, .01130, .00433, .00010, .00006,
3298 + .00002, .00008, .00015 /
3299 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3300 + .06129, .01063, .00387, .00009, .00005,
3301 + .00002, .00008, .00014,
3302 + .05801, .01002, .00347, .00009, .00005,
3303 + .00002, .00007, .00013,
3304 + .05509, .00948, .00313, .00008, .00005,
3305 + .00002, .00007, .00012,
3306 + .05249, .00899, .00285, .00008, .00005,
3307 + .00002, .00007, .00011,
3308 + .05001, .00853, .00260, .00007, .00005,
3309 + .00002, .00006, .00011,
3310 + .04769, .00811, .00238, .00007, .00004,
3311 + .00002, .00006, .00010,
3312 + .04559, .00772, .00219, .00007, .00004,
3313 + .00001, .00005, .00009,
3314 + .04369, .00738, .00202, .00007, .00004,
3315 + .00001, .00005, .00009 /
3316 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3317 + .04187, .00705, .00187, .00007, .00004,
3318 + .00001, .00005, .00008,
3319 + .04015, .00673, .00174, .00006, .00003,
3320 + .00001, .00005, .00008,
3321 + .03859, .00645, .00162, .00005, .00003,
3322 + .00001, .00005, .00008,
3323 + .03716, .00619, .00152, .00005, .00003,
3324 + .00001, .00005, .00008,
3325 + .03577, .00594, .00142, .00005, .00003,
3326 + .00001, .00004, .00008 /
3327 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3328 + .21211, .03964, .07368, .00004, .00004,
3329 + .00004, .00016, .00034,
3330 + .20001, .03715, .06409, .00007, .00005,
3331 + .00004, .00016, .00033,
3332 + .18351, .03378, .05223, .00009, .00007,
3333 + .00004, .00016, .00031,
3334 + .17244, .03155, .04506, .00010, .00007,
3335 + .00003, .00016, .00029,
3336 + .16164, .02938, .03863, .00010, .00008,
3337 + .00003, .00016, .00027,
3338 + .15298, .02764, .03389, .00010, .00007,
3339 + .00004, .00015, .00026,
3340 + .14511, .02609, .02991, .00010, .00008,
3341 + .00003, .00014, .00024,
3342 + .13727, .02454, .02624, .00010, .00008,
3343 + .00003, .00014, .00022 /
3344 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3345 + .13086, .02328, .02344, .00009, .00008,
3346 + .00003, .00014, .00021,
3347 + .12495, .02213, .02102, .00009, .00008,
3348 + .00003, .00013, .00021,
3349 + .12047, .02127, .01930, .00008, .00008,
3350 + .00002, .00013, .00020,
3351 + .11151, .01955, .01612, .00009, .00007,
3352 + .00002, .00012, .00019,
3353 + .10439, .01819, .01384, .00008, .00007,
3354 + .00002, .00011, .00018,
3355 + .09704, .01679, .01171, .00007, .00007,
3356 + .00002, .00010, .00017,
3357 + .09000, .01547, .00987, .00008, .00007,
3358 + .00002, .00010, .00016,
3359 + .08408, .01437, .00847, .00008, .00006,
3360 + .00002, .00010, .00014 /
3361 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3362 + .07855, .01334, .00728, .00007, .00006,
3363 + .00002, .00008, .00013,
3364 + .07427, .01255, .00643, .00006, .00006,
3365 + .00002, .00008, .00012,
3366 + .06942, .01166, .00555, .00006, .00005,
3367 + .00002, .00007, .00012,
3368 + .06542, .01094, .00489, .00005, .00005,
3369 + .00002, .00007, .00011,
3370 + .06196, .01031, .00436, .00005, .00005,
3371 + .00002, .00007, .00010,
3372 + .05787, .00958, .00378, .00006, .00004,
3373 + .00002, .00006, .00009,
3374 + .05430, .00894, .00331, .00005, .00004,
3375 + .00002, .00006, .00009,
3376 + .05117, .00838, .00294, .00004, .00004,
3377 + .00002, .00006, .00008 /
3378 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3379 + .04823, .00787, .00261, .00004, .00004,
3380 + .00002, .00005, .00008,
3381 + .04552, .00739, .00233, .00004, .00004,
3382 + .00002, .00005, .00007,
3383 + .04313, .00697, .00210, .00004, .00003,
3384 + .00001, .00005, .00007,
3385 + .04099, .00660, .00191, .00004, .00003,
3386 + .00001, .00004, .00006,
3387 + .03896, .00625, .00173, .00004, .00003,
3388 + .00001, .00004, .00006,
3389 + .03706, .00592, .00158, .00003, .00003,
3390 + .00001, .00004, .00005,
3391 + .03535, .00563, .00145, .00003, .00003,
3392 + .00001, .00004, .00005,
3393 + .03381, .00537, .00134, .00004, .00003,
3394 + .00001, .00004, .00005 /
3395 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3396 + .03234, .00512, .00124, .00004, .00003,
3397 + .00001, .00003, .00005,
3398 + .03095, .00488, .00114, .00003, .00002,
3399 + .00001, .00003, .00004,
3400 + .02969, .00467, .00106, .00003, .00002,
3401 + .00001, .00003, .00004,
3402 + .02854, .00447, .00100, .00003, .00002,
3403 + .00001, .00003, .00004,
3404 + .02742, .00429, .00093, .00003, .00002,
3405 + .00001, .00003, .00004 /
3406 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3407 + .14464, .02376, .04271, .00003, .00001,
3408 + .00000, .00005, .00011,
3409 + .13551, .02212, .03659, .00004, .00001,
3410 + .00000, .00005, .00010,
3411 + .12316, .01992, .02916, .00004, .00002,
3412 + .00000, .00005, .00010,
3413 + .11497, .01848, .02477, .00003, .00002,
3414 + .00000, .00005, .00008,
3415 + .10702, .01709, .02091, .00003, .00003,
3416 + .00000, .00005, .00008,
3417 + .10066, .01598, .01810, .00003, .00003,
3418 + .00000, .00005, .00008,
3419 + .09495, .01500, .01578, .00003, .00002,
3420 + .00000, .00005, .00008,
3421 + .08929, .01403, .01366, .00003, .00002,
3422 + .00000, .00004, .00007 /
3423 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3424 + .08468, .01324, .01207, .00002, .00003,
3425 + .00000, .00004, .00007,
3426 + .08047, .01252, .01071, .00002, .00003,
3427 + .00000, .00004, .00008,
3428 + .07729, .01199, .00976, .00001, .00003,
3429 + .00000, .00004, .00008,
3430 + .07096, .01093, .00802, .00003, .00003,
3431 + .00000, .00004, .00006,
3432 + .06598, .01010, .00678, .00003, .00002,
3433 + .00000, .00004, .00005,
3434 + .06087, .00926, .00565, .00003, .00002,
3435 + .00001, .00003, .00005,
3436 + .05602, .00846, .00469, .00003, .00002,
3437 + .00001, .00003, .00005,
3438 + .05199, .00781, .00397, .00002, .00002,
3439 + .00000, .00003, .00004 /
3440 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3441 + .04823, .00720, .00337, .00002, .00002,
3442 + .00000, .00003, .00004,
3443 + .04535, .00673, .00295, .00002, .00002,
3444 + .00000, .00002, .00004,
3445 + .04211, .00622, .00252, .00002, .00002,
3446 + .00001, .00002, .00003,
3447 + .03945, .00580, .00219, .00001, .00002,
3448 + .00001, .00002, .00003,
3449 + .03716, .00544, .00194, .00001, .00002,
3450 + .00001, .00002, .00003,
3451 + .03446, .00502, .00166, .00001, .00001,
3452 + .00000, .00002, .00003,
3453 + .03213, .00465, .00144, .00001, .00001,
3454 + .00001, .00002, .00003,
3455 + .03010, .00434, .00127, .00002, .00001,
3456 + .00001, .00002, .00002 /
3457 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3458 + .02822, .00405, .00112, .00002, .00001,
3459 + .00001, .00002, .00002,
3460 + .02649, .00378, .00099, .00001, .00001,
3461 + .00001, .00002, .00002,
3462 + .02497, .00355, .00089, .00001, .00001,
3463 + .00001, .00001, .00002,
3464 + .02361, .00334, .00080, .00001, .00001,
3465 + .00000, .00001, .00002,
3466 + .02233, .00315, .00072, .00001, .00001,
3467 + .00000, .00001, .00002,
3468 + .02115, .00297, .00066, .00001, .00001,
3469 + .00000, .00001, .00001,
3470 + .02009, .00281, .00060, .00001, .00001,
3471 + .00001, .00001, .00001,
3472 + .01913, .00267, .00055, .00001, .00001,
3473 + .00001, .00001, .00001 /
3474 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3475 + .01822, .00254, .00051, .00001, .00001,
3476 + .00001, .00001, .00001,
3477 + .01737, .00241, .00047, .00001, .00001,
3478 + .00000, .00001, .00001,
3479 + .01660, .00229, .00043, .00000, .00001,
3480 + .00000, .00001, .00001,
3481 + .01589, .00219, .00040, .00000, .00001,
3482 + .00000, .00001, .00001,
3483 + .01522, .00209, .00038, .00000, .00001,
3484 + .00000, .00001, .00001 /
3485 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3486 + .09067, .01289, .02237, .00002, .00000,
3487 + -.00001, .00000, .00003,
3488 + .08437, .01192, .01886, .00001, .00000,
3489 + -.00001, .00001, .00002,
3490 + .07589, .01063, .01469, .00002, .00000,
3491 + .00000, .00001, .00002,
3492 + .07031, .00978, .01227, .00002, .00000,
3493 + .00000, .00001, .00002,
3494 + .06496, .00898, .01019, .00001, .00000,
3495 + .00000, .00001, .00003,
3496 + .06073, .00835, .00869, .00000, .00001,
3497 + .00000, .00001, .00002,
3498 + .05694, .00779, .00748, .00000, .00001,
3499 + .00000, .00001, .00002,
3500 + .05319, .00724, .00638, .00001, .00001,
3501 + .00000, .00001, .00002 /
3502 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3503 + .05015, .00679, .00557, .00002, .00001,
3504 + .00000, .00001, .00002,
3505 + .04740, .00639, .00489, .00002, .00000,
3506 + .00000, .00001, .00002,
3507 + .04534, .00610, .00442, .00001, .00000,
3508 + .00000, .00001, .00002,
3509 + .04128, .00551, .00356, .00001, .00001,
3510 + .00000, .00001, .00002,
3511 + .03810, .00505, .00297, .00001, .00001,
3512 + .00000, .00001, .00002,
3513 + .03487, .00459, .00243, .00000, .00001,
3514 + .00000, .00001, .00002,
3515 + .03183, .00416, .00199, .00000, .00001,
3516 + .00000, .00001, .00001,
3517 + .02932, .00381, .00166, .00000, .00000,
3518 + .00000, .00001, .00001 /
3519 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3520 + .02699, .00349, .00139, .00000, .00000,
3521 + .00000, .00000, .00001,
3522 + .02522, .00325, .00120, .00001, .00000,
3523 + .00000, .00001, .00001,
3524 + .02324, .00297, .00101, .00001, .00000,
3525 + .00000, .00001, .00001,
3526 + .02162, .00276, .00087, .00001, .00000,
3527 + .00000, .00001, .00001,
3528 + .02026, .00257, .00077, .00001, .00000,
3529 + .00000, .00001, .00001,
3530 + .01867, .00235, .00065, .00000, .00000,
3531 + .00000, .00000, .00001,
3532 + .01728, .00217, .00056, .00000, .00000,
3533 + .00000, .00000, .00001,
3534 + .01609, .00201, .00049, .00000, .00000,
3535 + .00000, .00000, .00001 /
3536 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3537 + .01499, .00186, .00043, .00000, .00000,
3538 + .00000, .00000, .00000,
3539 + .01398, .00173, .00037, .00000, .00000,
3540 + .00000, .00000, .00000,
3541 + .01310, .00162, .00033, .00000, .00000,
3542 + .00000, .00000, .00000,
3543 + .01233, .00151, .00030, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01160, .00142, .00027, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .01093, .00133, .00024, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .01033, .00126, .00022, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .00980, .00119, .00020, .00000, .00000,
3552 + .00000, .00000, .00000 /
3553 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3554 + .00929, .00112, .00018, .00000, .00000,
3555 + .00000, .00000, .00000,
3556 + .00881, .00106, .00017, .00000, .00000,
3557 + .00000, .00000, .00000,
3558 + .00839, .00101, .00016, .00000, .00000,
3559 + .00000, .00000, .00000,
3560 + .00800, .00096, .00015, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00762, .00091, .00014, .00000, .00000,
3563 + .00000, .00000, .00000 /
3564 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3565 + .05089, .00613, .01023, .00001, .00000,
3566 + -.00001, .00000, .00001,
3567 + .04697, .00563, .00848, .00001, .00000,
3568 + .00000, .00000, .00000,
3569 + .04178, .00496, .00644, .00000, .00000,
3570 + -.00001, .00000, .00000,
3571 + .03840, .00453, .00528, .00000, .00000,
3572 + .00000, .00000, .00001,
3573 + .03517, .00412, .00430, .00000, .00000,
3574 + .00000, .00000, .00001,
3575 + .03264, .00381, .00361, .00000, .00000,
3576 + .00000, .00000, .00001,
3577 + .03039, .00353, .00306, .00000, .00000,
3578 + .00000, .00000, .00001,
3579 + .02819, .00325, .00258, .00000, .00000,
3580 + .00000, .00000, .00001 /
3581 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3582 + .02642, .00304, .00222, .00000, .00000,
3583 + .00000, .00000, .00000,
3584 + .02483, .00284, .00192, .00000, .00000,
3585 + .00000, .00000, .00000,
3586 + .02364, .00270, .00172, .00000, .00000,
3587 + .00000, .00000, .00000,
3588 + .02131, .00241, .00136, .00000, .00000,
3589 + .00000, .00000, .00000,
3590 + .01950, .00220, .00112, .00000, .00000,
3591 + .00000, .00000, .00000,
3592 + .01769, .00198, .00090, .00000, .00000,
3593 + .00000, .00000, .00000,
3594 + .01599, .00178, .00072, .00000, .00000,
3595 + .00000, .00000, .00000,
3596 + .01461, .00161, .00059, .00000, .00000,
3597 + .00000, .00000, .00000 /
3598 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3599 + .01334, .00147, .00049, .00000, .00000,
3600 + .00000, .00000, .00000,
3601 + .01238, .00135, .00042, .00000, .00000,
3602 + .00000, .00000, .00000,
3603 + .01131, .00123, .00035, .00000, .00000,
3604 + .00000, .00000, .00000,
3605 + .01045, .00113, .00030, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .00973, .00105, .00026, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .00889, .00095, .00022, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .00817, .00087, .00018, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00755, .00080, .00016, .00000, .00000,
3614 + .00000, .00000, .00000 /
3615 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3616 + .00698, .00074, .00014, .00000, .00000,
3617 + .00000, .00000, .00000,
3618 + .00648, .00068, .00012, .00000, .00000,
3619 + .00000, .00000, .00000,
3620 + .00603, .00063, .00011, .00000, .00000,
3621 + .00000, .00000, .00000,
3622 + .00564, .00059, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00527, .00055, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00494, .00051, .00008, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00464, .00048, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00438, .00045, .00006, .00000, .00000,
3631 + .00000, .00000, .00000 /
3632 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3633 + .00413, .00042, .00006, .00000, .00000,
3634 + .00000, .00000, .00000,
3635 + .00390, .00040, .00005, .00000, .00000,
3636 + .00000, .00000, .00000,
3637 + .00369, .00038, .00005, .00000, .00000,
3638 + .00000, .00000, .00000,
3639 + .00351, .00036, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00333, .00034, .00004, .00000, .00000,
3642 + .00000, .00000, .00000 /
3643 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3644 + .02431, .00240, .00384, .00000, .00000,
3645 + .00000, .00000, .00000,
3646 + .02224, .00218, .00311, .00000, .00000,
3647 + .00000, .00000, .00000,
3648 + .01952, .00190, .00230, .00000, .00000,
3649 + .00000, .00000, .00000,
3650 + .01777, .00172, .00185, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .01612, .00155, .00147, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .01484, .00142, .00121, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01371, .00131, .00101, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01261, .00119, .00084, .00000, .00000,
3659 + .00000, .00000, .00000 /
3660 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3661 + .01174, .00111, .00071, .00000, .00000,
3662 + .00000, .00000, .00000,
3663 + .01095, .00103, .00061, .00000, .00000,
3664 + .00000, .00000, .00000,
3665 + .01037, .00097, .00054, .00000, .00000,
3666 + .00000, .00000, .00000,
3667 + .00924, .00086, .00041, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .00838, .00077, .00033, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .00752, .00069, .00026, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00673, .00061, .00021, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00608, .00055, .00017, .00000, .00000,
3676 + .00000, .00000, .00000 /
3677 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3678 + .00550, .00050, .00014, .00000, .00000,
3679 + .00000, .00000, .00000,
3680 + .00506, .00045, .00012, .00000, .00000,
3681 + .00000, .00000, .00000,
3682 + .00458, .00041, .00009, .00000, .00000,
3683 + .00000, .00000, .00000,
3684 + .00420, .00037, .00008, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00388, .00034, .00007, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00351, .00031, .00006, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00320, .00028, .00005, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00293, .00026, .00004, .00000, .00000,
3693 + .00000, .00000, .00000 /
3694 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3695 + .00269, .00023, .00004, .00000, .00000,
3696 + .00000, .00000, .00000,
3697 + .00247, .00021, .00003, .00000, .00000,
3698 + .00000, .00000, .00000,
3699 + .00229, .00020, .00003, .00000, .00000,
3700 + .00000, .00000, .00000,
3701 + .00212, .00018, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00197, .00017, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00184, .00016, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00171, .00015, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00161, .00014, .00002, .00000, .00000,
3710 + .00000, .00000, .00000 /
3711 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3712 + .00151, .00013, .00001, .00000, .00000,
3713 + .00000, .00000, .00000,
3714 + .00141, .00012, .00001, .00000, .00000,
3715 + .00000, .00000, .00000,
3716 + .00133, .00011, .00001, .00000, .00000,
3717 + .00000, .00000, .00000,
3718 + .00126, .00011, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00119, .00010, .00001, .00000, .00000,
3721 + .00000, .00000, .00000 /
3722 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3723 + .00220, .00012, .00017, .00000, .00000,
3724 + .00000, .00000, .00000,
3725 + .00196, .00011, .00013, .00000, .00000,
3726 + .00000, .00000, .00000,
3727 + .00165, .00009, .00009, .00000, .00000,
3728 + .00000, .00000, .00000,
3729 + .00147, .00008, .00007, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00129, .00007, .00005, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00116, .00006, .00004, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00105, .00006, .00003, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00094, .00005, .00002, .00000, .00000,
3738 + .00000, .00000, .00000 /
3739 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3740 + .00086, .00005, .00002, .00000, .00000,
3741 + .00000, .00000, .00000,
3742 + .00079, .00004, .00002, .00000, .00000,
3743 + .00000, .00000, .00000,
3744 + .00073, .00004, .00001, .00000, .00000,
3745 + .00000, .00000, .00000,
3746 + .00063, .00003, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00056, .00003, .00001, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00048, .00003, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00042, .00002, .00001, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00037, .00002, .00000, .00000, .00000,
3755 + .00000, .00000, .00000 /
3756 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3757 + .00032, .00002, .00000, .00000, .00000,
3758 + .00000, .00000, .00000,
3759 + .00029, .00002, .00000, .00000, .00000,
3760 + .00000, .00000, .00000,
3761 + .00026, .00001, .00000, .00000, .00000,
3762 + .00000, .00000, .00000,
3763 + .00023, .00001, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00021, .00001, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00018, .00001, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00016, .00001, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00015, .00001, .00000, .00000, .00000,
3772 + .00000, .00000, .00000 /
3773 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3774 + .00013, .00001, .00000, .00000, .00000,
3775 + .00000, .00000, .00000,
3776 + .00012, .00001, .00000, .00000, .00000,
3777 + .00000, .00000, .00000,
3778 + .00011, .00001, .00000, .00000, .00000,
3779 + .00000, .00000, .00000,
3780 + .00010, .00001, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00009, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00008, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00007, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00007, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000 /
3790 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3791 + .00006, .00001, .00000, .00000, .00000,
3792 + .00000, .00000, .00000,
3793 + .00005, .00001, .00000, .00000, .00000,
3794 + .00000, .00000, .00000,
3795 + .00005, .00001, .00000, .00000, .00000,
3796 + .00000, .00000, .00000,
3797 + .00005, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00004, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000 /
3801 DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
3802 . 1D-4,2D-4,4D-4,6D-4,8D-4,
3803 . 1D-3,2D-3,4D-3,6D-3,8D-3,
3804 . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
3805 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
3806 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
3807 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
3809 DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
3810 . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
3811 . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
3812 . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
3813 . 1.8D6,3.2D6,5.6D6,1D7/
3814 DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
3815 DATA N0/3,4,5,9,9,9,9,9/
3816 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3821 IF(INIT.NE.0) GOTO 10
3822 C OPEN(UNIT=1,FILE='MRSR3.DAT',STATUS='OLD')
3825 C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),
3826 C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M)
3827 C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA
3829 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
3832 XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH)
3834 IF(I.EQ.5.OR.I.EQ.7) GOTO 31
3836 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K)
3844 IF(X.LT.XMIN) X=XMIN
3845 IF(X.GT.XMAX) X=XMAX
3846 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
3847 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
3849 IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH)
3852 IF(XXX.GT.XX(N+1)) GOTO 70
3853 A=(XXX-XX(N))/(XX(N+1)-XX(N))
3856 IF(QSQ.GT.QQ(M+1)) GOTO 80
3857 B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M))
3859 G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1)
3860 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
3861 IF(N.GE.NTENTH) GOTO 65
3862 IF(I.EQ.5.OR.I.EQ.7) GOTO 65
3863 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
3864 G(I)=FAC*10D0**(G(I)-FAC)
3866 G(I)=G(I)*(ONED-X)**N0(I)
git://git.uio.no / u / mrichter / AliRoot.git / blob