]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsr4.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsr4.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMSR4(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4#include "pdf/impdp.inc"
5C
6 PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
7C
7ef50f50 8#if defined(CERNLIB_DOUBLE)
9 DOUBLE PRECISION
10#endif
11#if defined(CERNLIB_SINGLE)
12 REAL
13#endif
21886bb6 14 + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00085, .00577, 2.56858, .38075, .00454,
17 + .00000, .22725, .38319,
18 + .00101, .00587, 4.01857, .46959, .01054,
19 + .00000, .30477, .47228,
20 + .00125, .00603, 6.81849, .63039, .02592,
21 + .00000, .44554, .63344,
22 + .00143, .00614, 9.43938, .77039, .04470,
23 + .00000, .56873, .77369,
24 + .00161, .00625, 12.75915, .93797, .07493,
25 + .00000, .71723, .94153,
26 + .00177, .00636, 16.13222, 1.09925, .11332,
27 + .00000, .86140, 1.10304,
28 + .00193, .00645, 19.85547, 1.26857, .16497,
29 + .00000, 1.01433, 1.27256,
30 + .00209, .00656, 24.29172, 1.46164, .24055,
31 + .00000, 1.19106, 1.46586 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00224, .00665, 28.61800, 1.64040, .32852,
34 + .00000, 1.35722, 1.64480,
35 + .00238, .00674, 33.27514, 1.82287, .43786,
36 + .00000, 1.52960, 1.82745,
37 + .00249, .00681, 37.23265, 1.97163, .54366,
38 + .00000, 1.67250, 1.97635,
39 + .00273, .00696, 46.68842, 2.30432, .83561,
40 + .00000, 1.99997, 2.30934,
41 + .00294, .00709, 55.90504, 2.60501, 1.16498,
42 + .09285, 2.30524, 2.61028,
43 + .00318, .00724, 67.43512, 2.95954, 1.61773,
44 + .42666, 2.67434, 2.96508,
45 + .00343, .00739, 80.85163, 3.35709, 2.17214,
46 + .90696, 3.09485, 3.36291,
47 + .00366, .00753, 94.33593, 3.75256, 2.73373,
48 + 1.36649, 3.51455, 3.75864 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00390, .00768, 109.24551, 4.19324, 3.34208,
51 + 1.87519, 3.97967, 4.19957,
52 + .00409, .00780, 122.62965, 4.59523, 3.87113,
53 + 2.32900, 4.40021, 4.60177,
54 + .00433, .00795, 140.00378, 5.12802, 4.53496,
55 + 2.91779, 4.95219, 5.13481,
56 + .00455, .00808, 156.53906, 5.64486, 5.14401,
57 + 3.47700, 5.48261, 5.65186,
58 + .00475, .00820, 172.76350, 6.15896, 5.72387,
59 + 4.02424, 6.00648, 6.16616,
60 + .00501, .00835, 194.48903, 6.85921, 6.48538,
61 + 4.75983, 6.71594, 6.86664,
62 + .00525, .00850, 216.24652, 7.56982, 7.23542,
63 + 5.49809, 7.43261, 7.57748,
64 + .00549, .00864, 237.91757, 8.28391, 7.97451,
65 + 6.23434, 8.15068, 8.29178 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .00572, .00878, 260.72931, 9.04224, 8.74955,
68 + 7.01215, 8.91178, 9.05032,
69 + .00595, .00892, 284.01913, 9.82395, 9.54204,
70 + 7.81108, 9.69541, 9.83223,
71 + .00617, .00906, 307.27795, 10.60802, 10.33283,
72 + 8.61019, 10.48079, 10.61649,
73 + .00638, .00918, 329.87732, 11.37711, 11.10617,
74 + 9.39267, 11.25081, 11.38574,
75 + .00660, .00931, 353.61807, 12.18847, 11.92046,
76 + 10.21689, 12.06291, 12.19728,
77 + .00681, .00944, 377.71402, 13.01834, 12.75233,
78 + 11.05900, 12.89338, 13.02731,
79 + .00701, .00956, 401.46371, 13.84067, 13.57605,
80 + 11.89264, 13.71621, 13.84980,
81 + .00721, .00967, 424.54773, 14.64564, 14.38203,
82 + 12.70811, 14.52160, 14.65491 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .00741, .00979, 448.64511, 15.48957, 15.22679,
85 + 13.56243, 15.36592, 15.49900,
86 + .00760, .00991, 472.87659, 16.34567, 16.08359,
87 + 14.42863, 16.22239, 16.35524,
88 + .00779, .01002, 496.93295, 17.19730, 16.93581,
89 + 15.28976, 17.07436, 17.20701,
90 + .00798, .01013, 519.86127, 18.01829, 17.75731,
91 + 16.11967, 17.89566, 18.02812,
92 + .00816, .01024, 543.92712, 18.88156, 18.62108,
93 + 16.99184, 18.75923, 18.89152 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00192, .00721, 2.37730, .36163, .00407,
96 + .00000, .21337, .36402,
97 + .00215, .00736, 3.65051, .43973, .00937,
98 + .00000, .28151, .44229,
99 + .00249, .00758, 6.05576, .57854, .02273,
100 + .00000, .40303, .58137,
101 + .00275, .00774, 8.26371, .69738, .03884,
102 + .00000, .50764, .70039,
103 + .00301, .00791, 11.01689, .83774, .06452,
104 + .00000, .63206, .84094,
105 + .00324, .00805, 13.77586, .97120, .09684,
106 + .00000, .75145, .97456,
107 + .00346, .00819, 16.78551, 1.10984, .13997,
108 + .00000, .87680, 1.11335,
109 + .00369, .00833, 20.32963, 1.26633, .20263,
110 + .00000, 1.02025, 1.27000 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00390, .00846, 23.75004, 1.40981, .27503,
113 + .00000, 1.15390, 1.41362,
114 + .00410, .00858, 27.39928, 1.55500, .36443,
115 + .00000, 1.29142, 1.55893,
116 + .00426, .00868, 30.47500, 1.67248, .45047,
117 + .00000, 1.40464, 1.67651,
118 + .00460, .00889, 37.74792, 1.93251, .68597,
119 + .00000, 1.66166, 1.93676,
120 + .00490, .00907, 44.74713, 2.16461, .94902,
121 + .07250, 1.89860, 2.16904,
122 + .00523, .00927, 53.39957, 2.43525, 1.30695,
123 + .33138, 2.18216, 2.43988,
124 + .00558, .00948, 63.34490, 2.73565, 1.74029,
125 + .70091, 2.50202, 2.74048,
126 + .00591, .00968, 73.22697, 3.03205, 2.17423,
127 + 1.05088, 2.81847, 3.03706 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .00624, .00987, 84.03941, 3.36013, 2.63907,
130 + 1.43501, 3.16650, 3.36532,
131 + .00651, .01004, 93.65524, 3.65772, 3.03915,
132 + 1.77503, 3.47906, 3.66306,
133 + .00685, .01024, 106.02145, 4.04990, 3.53605,
134 + 2.21284, 3.88660, 4.05542,
135 + .00715, .01041, 117.68421, 4.42815, 3.98735,
136 + 2.62551, 4.27562, 4.43382,
137 + .00743, .01058, 129.03972, 4.80241, 4.41336,
138 + 3.02670, 4.65760, 4.80823,
139 + .00779, .01079, 144.11060, 5.30907, 4.96791,
140 + 3.56212, 5.17148, 5.31505,
141 + .00813, .01099, 159.06821, 5.81983, 5.50929,
142 + 4.09547, 5.68698, 5.82598,
143 + .00845, .01117, 173.84781, 6.32995, 6.03873,
144 + 4.62379, 6.20019, 6.33625 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .00877, .01136, 189.28453, 6.86840, 6.59007,
147 + 5.17834, 6.74081, 6.87485,
148 + .00909, .01155, 204.92181, 7.42008, 7.15004,
149 + 5.74432, 7.29399, 7.42667,
150 + .00940, .01172, 220.43465, 7.97040, 7.70554,
151 + 6.30719, 7.84534, 7.97713,
152 + .00969, .01189, 235.40076, 8.50724, 8.24568,
153 + 6.85524, 8.38293, 8.51409,
154 + .00998, .01206, 251.02997, 9.07080, 8.81153,
155 + 7.42960, 8.94708, 9.07777,
156 + .01027, .01223, 266.79172, 9.64426, 9.38659,
157 + 8.01335, 9.52104, 9.65136,
158 + .01055, .01239, 282.23801, 10.20985, 9.95331,
159 + 8.58847, 10.08704, 10.21707,
160 + .01082, .01254, 297.16647, 10.76098, 10.50528,
161 + 9.14844, 10.63853, 10.76830 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01109, .01269, 312.67249, 11.33640, 11.08141,
164 + 9.73261, 11.21427, 11.34383,
165 + .01136, .01285, 328.17569, 11.91746, 11.66307,
166 + 10.32218, 11.79564, 11.92499,
167 + .01161, .01300, 343.50232, 12.49337, 12.23951,
168 + 10.90610, 12.37185, 12.50101,
169 + .01186, .01314, 358.02451, 13.04610, 12.79271,
170 + 11.46635, 12.92485, 13.05383,
171 + .01211, .01328, 373.21063, 13.62540, 13.37245,
172 + 12.05314, 13.50441, 13.63322 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00358, .00903, 2.19981, .34318, .00363,
175 + .00000, .20022, .34559,
176 + .00392, .00924, 3.31547, .41147, .00828,
177 + .00000, .25980, .41400,
178 + .00441, .00955, 5.37717, .53068, .01985,
179 + .00000, .36418, .53339,
180 + .00477, .00977, 7.23278, .63106, .03361,
181 + .00000, .45256, .63390,
182 + .00515, .01000, 9.51015, .74803, .05533,
183 + .00000, .55632, .75101,
184 + .00548, .01020, 11.76054, .85793, .08243,
185 + .00000, .65471, .86102,
186 + .00580, .01039, 14.18619, .97089, .11831,
187 + .00000, .75696, .97408,
188 + .00613, .01059, 17.00868, 1.09710, .17005,
189 + .00000, .87285, 1.10041 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .00643, .01077, 19.70396, 1.21171, .22942,
192 + .00000, .97984, 1.21511,
193 + .00671, .01094, 22.55363, 1.32665, .30227,
194 + .00000, 1.08903, 1.33014,
195 + .00694, .01107, 24.93547, 1.41895, .37199,
196 + .00000, 1.17830, 1.42251,
197 + .00742, .01136, 30.50853, 1.62112, .56133,
198 + .00000, 1.37905, 1.62483,
199 + .00784, .01161, 35.80270, 1.79928, .77074,
200 + .05639, 1.56203, 1.80312,
201 + .00831, .01188, 42.26857, 2.00470, 1.05283,
202 + .25640, 1.77878, 2.00867,
203 + .00881, .01217, 49.60823, 2.23036, 1.39049,
204 + .53965, 2.02083, 2.23447,
205 + .00926, .01244, 56.81680, 2.45120, 1.72473,
206 + .80516, 2.25823, 2.45544 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .00972, .01270, 64.61993, 2.69406, 2.07874,
209 + 1.09410, 2.51730, 2.69843,
210 + .01011, .01292, 71.49364, 2.91313, 2.38024,
211 + 1.34787, 2.74844, 2.91760,
212 + .01058, .01319, 80.24876, 3.20025, 2.75081,
213 + 1.67213, 3.04781, 3.20485,
214 + .01100, .01343, 88.42969, 3.47559, 3.08389,
215 + 1.97543, 3.33169, 3.48030,
216 + .01139, .01365, 96.33264, 3.74663, 3.39558,
217 + 2.26835, 3.60880, 3.75144,
218 + .01188, .01393, 106.72553, 4.11129, 3.79761,
219 + 2.65644, 3.97913, 4.11622,
220 + .01235, .01420, 116.94547, 4.47649, 4.18657,
221 + 3.04013, 4.34802, 4.48153,
222 + .01280, .01445, 126.96151, 4.83897, 4.56400,
223 + 3.41760, 4.71293, 4.84412 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01325, .01470, 137.33948, 5.21927, 4.95423,
226 + 3.81122, 5.09492, 5.22452,
227 + .01369, .01495, 147.76689, 5.60650, 5.34787,
228 + 4.21036, 5.48334, 5.61186,
229 + .01411, .01518, 158.04164, 5.99067, 5.73605,
230 + 4.60502, 5.86833, 5.99612,
231 + .01450, .01540, 167.88145, 6.36330, 6.11127,
232 + 4.98706, 6.24156, 6.36884,
233 + .01491, .01563, 178.09494, 6.75254, 6.50233,
234 + 5.38538, 6.63130, 6.75817,
235 + .01531, .01585, 188.32661, 7.14657, 6.89765,
236 + 5.78807, 7.02573, 7.15228,
237 + .01569, .01606, 198.29472, 7.53333, 7.28535,
238 + 6.18286, 7.41284, 7.53913,
239 + .01605, .01626, 207.87163, 7.90845, 7.66119,
240 + 6.56543, 7.78826, 7.91432 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .01642, .01646, 217.76846, 8.29845, 8.05181,
243 + 6.96282, 8.17855, 8.30440,
244 + .01679, .01666, 227.60396, 8.69046, 8.44436,
245 + 7.36201, 8.57082, 8.69648,
246 + .01714, .01686, 237.28651, 9.07756, 8.83195,
247 + 7.75587, 8.95818, 9.08366,
248 + .01747, .01704, 246.40302, 9.44736, 9.20218,
249 + 8.13202, 9.32822, 9.45353,
250 + .01782, .01723, 255.90115, 9.83367, 9.58891,
251 + 8.52466, 9.71477, 9.83991 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .00493, .01030, 2.10183, .33263, .00339,
254 + .00000, .19284, .33511,
255 + .00535, .01055, 3.13339, .39558, .00769,
256 + .00000, .24777, .39816,
257 + .00597, .01093, 5.01512, .50433, .01829,
258 + .00000, .34301, .50706,
259 + .00642, .01120, 6.68910, .59502, .03082,
260 + .00000, .42289, .59785,
261 + .00689, .01148, 8.72434, .69989, .05047,
262 + .00000, .51594, .70283,
263 + .00729, .01172, 10.71884, .79771, .07486,
264 + .00000, .60358, .80075,
265 + .00768, .01195, 12.85347, .89766, .10701,
266 + .00000, .69412, .90077,
267 + .00809, .01220, 15.31973, 1.00866, .15317,
268 + .00000, .79615, 1.01187 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .00846, .01241, 17.66008, 1.10888, .20593,
271 + .00000, .88984, 1.11217,
272 + .00881, .01261, 20.12126, 1.20887, .27043,
273 + .00000, .98500, 1.21223,
274 + .00908, .01277, 22.16815, 1.28880, .33197,
275 + .00000, 1.06249, 1.29222,
276 + .00968, .01312, 26.92763, 1.46279, .49831,
277 + .00000, 1.23577, 1.46633,
278 + .01019, .01342, 31.41416, 1.61496, .68125,
279 + .04858, 1.39266, 1.61860,
280 + .01077, .01375, 36.85427, 1.78922, .92623,
281 + .22022, 1.57738, 1.79298,
282 + .01138, .01409, 42.98371, 1.97950, 1.21752,
283 + .46217, 1.78245, 1.98336,
284 + .01193, .01441, 48.96198, 2.16483, 1.50393,
285 + .68760, 1.98254, 2.16880 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01249, .01472, 55.39217, 2.36786, 1.80524,
288 + .93170, 2.19993, 2.37194,
289 + .01296, .01499, 61.02420, 2.55044, 2.06026,
290 + 1.14510, 2.39312, 2.55461,
291 + .01354, .01531, 68.15676, 2.78897, 2.37176,
292 + 1.41654, 2.64238, 2.79324,
293 + .01405, .01559, 74.78467, 3.01697, 2.65002,
294 + 1.66930, 2.87782, 3.02132,
295 + .01452, .01586, 81.15728, 3.24073, 2.90903,
296 + 1.91244, 3.10686, 3.24516,
297 + .01512, .01619, 89.49157, 3.54070, 3.24131,
298 + 2.23321, 3.41175, 3.54523,
299 + .01569, .01650, 97.64192, 3.83995, 3.56104,
300 + 2.54892, 3.71421, 3.84457,
301 + .01622, .01680, 105.59069, 4.13590, 3.86985,
302 + 2.85826, 4.01226, 4.14062 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .01676, .01709, 113.78700, 4.44528, 4.18777,
305 + 3.17959, 4.32311, 4.45008,
306 + .01729, .01739, 121.98212, 4.75915, 4.50716,
307 + 3.50417, 4.63802, 4.76404,
308 + .01780, .01766, 130.02464, 5.06952, 4.82101,
309 + 3.82400, 4.94912, 5.07449,
310 + .01828, .01792, 137.69200, 5.36956, 5.12330,
311 + 4.13254, 5.24970, 5.37460,
312 + .01876, .01819, 145.62180, 5.68205, 5.43740,
313 + 4.45325, 5.56264, 5.68717,
314 + .01924, .01845, 153.53380, 5.99741, 5.75392,
315 + 4.77645, 5.87836, 6.00259,
316 + .01970, .01870, 161.21461, 6.30607, 6.06344,
317 + 5.09239, 6.18735, 6.31132,
318 + .02013, .01893, 168.56754, 6.60461, 6.36265,
319 + 5.39768, 6.48616, 6.60993 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02058, .01917, 176.14275, 6.91421, 6.67284,
322 + 5.71398, 6.79604, 6.91960,
323 + .02101, .01940, 183.64317, 7.22454, 6.98369,
324 + 6.03083, 7.10662, 7.22999,
325 + .02144, .01963, 191.00850, 7.53033, 7.28994,
326 + 6.34274, 7.41265, 7.53584,
327 + .02183, .01985, 197.91620, 7.82164, 7.58167,
328 + 6.63979, 7.70418, 7.82720,
329 + .02224, .02006, 205.09738, 8.12536, 7.88581,
330 + 6.94926, 8.00812, 8.13099 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .00611, .01131, 2.03473, .32523, .00322,
333 + .00000, .18774, .32779,
334 + .00660, .01160, 3.00995, .38456, .00729,
335 + .00000, .23952, .38721,
336 + .00732, .01203, 4.77252, .48630, .01725,
337 + .00000, .32864, .48909,
338 + .00784, .01234, 6.32747, .57057, .02895,
339 + .00000, .40288, .57345,
340 + .00839, .01266, 8.20531, .66748, .04723,
341 + .00000, .48891, .67045,
342 + .00886, .01294, 10.03464, .75744, .06983,
343 + .00000, .56953, .76049,
344 + .00931, .01320, 11.98258, .84894, .09955,
345 + .00000, .65248, .85207,
346 + .00979, .01348, 14.22167, .95014, .14208,
347 + .00000, .74558, .95334 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01021, .01372, 16.33688, 1.04114, .19055,
350 + .00000, .83074, 1.04441,
351 + .01062, .01396, 18.55279, 1.13159, .24965,
352 + .00000, .91694, 1.13492,
353 + .01094, .01414, 20.38906, 1.20366, .30592,
354 + .00000, .98693, 1.20705,
355 + .01163, .01453, 24.63976, 1.35984, .45752,
356 + .00000, 1.14283, 1.36333,
357 + .01222, .01487, 28.62448, 1.49569, .62357,
358 + .04366, 1.28330, 1.49927,
359 + .01289, .01525, 33.43116, 1.65051, .84501,
360 + .19748, 1.44798, 1.65419,
361 + .01359, .01564, 38.81794, 1.81881, 1.10709,
362 + .41361, 1.63002, 1.82260,
363 + .01423, .01599, 44.04568, 1.98220, 1.36352,
364 + .61412, 1.80701, 1.98608 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .01487, .01635, 49.64278, 2.16071, 1.63201,
367 + .83046, 1.99868, 2.16469,
368 + .01541, .01665, 54.52503, 2.32090, 1.85824,
369 + 1.01896, 2.16855, 2.32495,
370 + .01607, .01702, 60.68240, 2.52970, 2.13334,
371 + 1.25796, 2.38711, 2.53383,
372 + .01666, .01734, 66.38128, 2.72882, 2.37798,
373 + 1.47980, 2.59299, 2.73303,
374 + .01720, .01763, 71.84218, 2.92383, 2.60484,
375 + 1.69261, 2.79279, 2.92812,
376 + .01788, .01801, 78.95563, 3.18459, 2.89473,
377 + 1.97249, 3.05800, 3.18897,
378 + .01853, .01836, 85.88413, 3.44400, 3.17258,
379 + 2.24707, 3.32032, 3.44847,
380 + .01915, .01870, 92.61746, 3.69990, 3.44003,
381 + 2.51534, 3.57812, 3.70445 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .01976, .01903, 99.53631, 3.96672, 3.71454,
384 + 2.79323, 3.84628, 3.97135,
385 + .02037, .01936, 106.42950, 4.23670, 3.98949,
386 + 3.07315, 4.11721, 4.24140,
387 + .02095, .01967, 113.17472, 4.50305, 4.25899,
388 + 3.34830, 4.38424, 4.50783,
389 + .02149, .01996, 119.58417, 4.75992, 4.51791,
390 + 3.61308, 4.64160, 4.76476,
391 + .02204, .02026, 126.19558, 5.02688, 4.78635,
392 + 3.88770, 4.90898, 5.03179,
393 + .02259, .02055, 132.77275, 5.29568, 5.05624,
394 + 4.16382, 5.17814, 5.30065,
395 + .02311, .02083, 139.14139, 5.55825, 5.31962,
396 + 4.43317, 5.44101, 5.56328,
397 + .02360, .02109, 145.22203, 5.81169, 5.57370,
398 + 4.69292, 5.69472, 5.81678 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02411, .02136, 151.47275, 6.07406, 5.83664,
401 + 4.96154, 5.95735, 6.07921,
402 + .02460, .02162, 157.64485, 6.33651, 6.09960,
403 + 5.23007, 6.22005, 6.34172,
404 + .02508, .02187, 163.69498, 6.59472, 6.35827,
405 + 5.49400, 6.47850, 6.59999,
406 + .02553, .02211, 169.35281, 6.84021, 6.60417,
407 + 5.74485, 6.72419, 6.84552,
408 + .02600, .02236, 175.22527, 7.09581, 6.86018,
409 + 6.00581, 6.98001, 7.10117 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .00717, .01216, 1.98398, .31952, .00310,
412 + .00000, .18385, .32217,
413 + .00772, .01249, 2.91728, .37614, .00699,
414 + .00000, .23327, .37888,
415 + .00853, .01297, 4.59199, .47267, .01647,
416 + .00000, .31785, .47553,
417 + .00912, .01331, 6.05984, .55221, .02756,
418 + .00000, .38794, .55515,
419 + .00974, .01367, 7.82318, .64328, .04483,
420 + .00000, .46881, .64631,
421 + .01027, .01398, 9.53299, .72750, .06613,
422 + .00000, .54433, .73060,
423 + .01078, .01427, 11.34644, .81287, .09406,
424 + .00000, .62176, .81605,
425 + .01132, .01458, 13.42261, .90699, .13395,
426 + .00000, .70840, .91024 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01179, .01484, 15.37700, .99135, .17931,
429 + .00000, .78742, .99466,
430 + .01224, .01510, 17.41828, 1.07495, .23450,
431 + .00000, .86719, 1.07832,
432 + .01260, .01530, 19.10509, 1.14141, .28696,
433 + .00000, .93182, 1.14482,
434 + .01337, .01574, 22.99612, 1.28490, .42794,
435 + .00000, 1.07532, 1.28842,
436 + .01404, .01611, 26.62782, 1.40919, .58188,
437 + .04016, 1.20414, 1.41279,
438 + .01479, .01653, 30.99090, 1.55029, .78652,
439 + .18136, 1.35465, 1.55398,
440 + .01557, .01696, 35.86000, 1.70315, 1.02781,
441 + .37923, 1.52049, 1.70694,
442 + .01628, .01735, 40.56685, 1.85116, 1.26304,
443 + .56221, 1.68125, 1.85503 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .01700, .01775, 45.58806, 2.01255, 1.50839,
446 + .75907, 1.85493, 2.01651,
447 + .01760, .01807, 49.95387, 2.15712, 1.71441,
448 + .93016, 2.00853, 2.16115,
449 + .01833, .01847, 55.44192, 2.34525, 1.96405,
450 + 1.14654, 2.20573, 2.34936,
451 + .01898, .01883, 60.50534, 2.52434, 2.18528,
452 + 1.34687, 2.39109, 2.52853,
453 + .01958, .01915, 65.34453, 2.69944, 2.38982,
454 + 1.53864, 2.57063, 2.70370,
455 + .02035, .01957, 71.62815, 2.93313, 2.65038,
456 + 1.79023, 2.80843, 2.93747,
457 + .02107, .01995, 77.72909, 3.16511, 2.89934,
458 + 2.03645, 3.04310, 3.16953,
459 + .02175, .02032, 83.64171, 3.39348, 3.13836,
460 + 2.27646, 3.27324, 3.39798 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02243, .02068, 89.70061, 3.63112, 3.38308,
463 + 2.52454, 3.51214, 3.63569,
464 + .02310, .02104, 95.71994, 3.87108, 3.62764,
465 + 2.77389, 3.75298, 3.87573,
466 + .02374, .02138, 101.59648, 4.10739, 3.86687,
467 + 3.01852, 3.98993, 4.11211,
468 + .02434, .02170, 107.16599, 4.33485, 4.09625,
469 + 3.25347, 4.21787, 4.33963,
470 + .02495, .02203, 112.89919, 4.57086, 4.33365,
471 + 3.49674, 4.45428, 4.57570,
472 + .02555, .02234, 118.58936, 4.80808, 4.57190,
473 + 3.74089, 4.69184, 4.81298,
474 + .02613, .02265, 124.08789, 5.03943, 4.80403,
475 + 3.97868, 4.92349, 5.04439,
476 + .02668, .02294, 129.32684, 5.26238, 5.02762,
477 + 4.20761, 5.14671, 5.26740 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .02723, .02323, 134.70294, 5.49287, 5.25866,
480 + 4.44403, 5.37745, 5.49794,
481 + .02778, .02351, 139.99979, 5.72306, 5.48936,
482 + 4.67999, 5.60788, 5.72819,
483 + .02830, .02379, 145.18486, 5.94927, 5.71602,
484 + 4.91161, 5.83432, 5.95445,
485 + .02880, .02405, 150.02211, 6.16397, 5.93114,
486 + 5.13141, 6.04923, 6.16920,
487 + .02931, .02432, 155.03711, 6.38728, 6.15486,
488 + 5.35980, 6.27275, 6.39256 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01149, .01529, 1.83282, .30192, .00273,
491 + .00000, .17211, .30501,
492 + .01230, .01575, 2.64519, .35058, .00611,
493 + .00000, .21465, .35375,
494 + .01348, .01641, 4.07025, .43210, .01420,
495 + .00000, .28616, .43539,
496 + .01433, .01688, 5.29387, .49818, .02355,
497 + .00000, .34447, .50155,
498 + .01522, .01737, 6.73957, .57286, .03797,
499 + .00000, .41088, .57631,
500 + .01599, .01779, 8.12089, .64110, .05561,
501 + .00000, .47218, .64463,
502 + .01672, .01819, 9.56762, .70955, .07855,
503 + .00000, .53439, .71315,
504 + .01749, .01861, 11.20301, .78425, .11109,
505 + .00000, .60334, .78791 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .01816, .01898, 12.72532, .85054, .14785,
508 + .00000, .66565, .85427,
509 + .01881, .01933, 14.30028, .91564, .19229,
510 + .00000, .72802, .91943,
511 + .01932, .01960, 15.59008, .96698, .23431,
512 + .00000, .77820, .97081,
513 + .02042, .02019, 18.53244, 1.07661, .34638,
514 + .00000, .88853, 1.08053,
515 + .02136, .02070, 21.24089, 1.17027, .46757,
516 + .03085, .98643, 1.17427,
517 + .02241, .02126, 24.45296, 1.27532, .62707,
518 + .13858, 1.09959, 1.27942,
519 + .02351, .02184, 27.98982, 1.38791, .81301,
520 + .28838, 1.22299, 1.39210,
521 + .02450, .02237, 31.36629, 1.49603, .99216,
522 + .42545, 1.34155, 1.50030 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .02551, .02291, 34.92696, 1.61319, 1.17685,
525 + .57163, 1.46866, 1.61755,
526 + .02635, .02335, 37.99105, 1.71761, 1.33022,
527 + .69766, 1.58032, 1.72205,
528 + .02737, .02388, 41.80252, 1.85279, 1.51401,
529 + .85580, 1.72272, 1.85730,
530 + .02828, .02436, 45.28389, 1.98077, 1.67506,
531 + 1.00105, 1.85568, 1.98536,
532 + .02911, .02479, 48.58305, 2.10528, 1.82256,
533 + 1.13913, 1.98370, 2.10994,
534 + .03016, .02534, 52.82338, 2.27042, 2.00859,
535 + 1.31893, 2.15211, 2.27516,
536 + .03116, .02586, 56.89876, 2.43325, 2.18460,
537 + 1.49350, 2.31709, 2.43808,
538 + .03209, .02634, 60.81327, 2.59254, 2.35217,
539 + 1.66246, 2.47781, 2.59745 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03303, .02682, 64.78919, 2.75726, 2.52241,
542 + 1.83589, 2.64355, 2.76224,
543 + .03395, .02730, 68.70295, 2.92249, 2.69128,
544 + 2.00901, 2.80954, 2.92755,
545 + .03482, .02775, 72.49606, 3.08429, 2.85543,
546 + 2.17784, 2.97189, 3.08941,
547 + .03564, .02817, 76.06029, 3.23908, 3.01180,
548 + 2.33898, 3.12712, 3.24427,
549 + .03647, .02859, 79.70510, 3.39886, 3.17278,
550 + 2.50491, 3.28727, 3.40411,
551 + .03729, .02901, 83.29496, 3.55856, 3.33339,
552 + 2.67050, 3.44730, 3.56388,
553 + .03807, .02941, 86.74123, 3.71351, 3.48908,
554 + 2.83094, 3.60255, 3.71890,
555 + .03881, .02979, 90.00233, 3.86211, 3.63827,
556 + 2.98462, 3.75140, 3.86755 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .03956, .03017, 93.32998, 4.01503, 3.79175,
559 + 3.14260, 3.90459, 4.02053,
560 + .04030, .03054, 96.58501, 4.16698, 3.94422,
561 + 3.29947, 4.05678, 4.17254,
562 + .04101, .03090, 99.75745, 4.31574, 4.09344,
563 + 3.45285, 4.20577, 4.32135,
564 + .04168, .03124, 102.69358, 4.45619, 4.23432,
565 + 3.59764, 4.34644, 4.46186,
566 + .04236, .03159, 105.72601, 4.60179, 4.38035,
567 + 3.74757, 4.49226, 4.60750 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .01795, .01936, 1.68967, .28426, .00240,
570 + .00000, .16080, .28811,
571 + .01912, .01998, 2.39354, .32563, .00531,
572 + .00000, .19704, .32958,
573 + .02084, .02088, 3.59984, .39372, .01217,
574 + .00000, .25692, .39783,
575 + .02207, .02153, 4.61383, .44804, .02000,
576 + .00000, .30497, .45225,
577 + .02335, .02220, 5.79136, .50863, .03195,
578 + .00000, .35898, .51295,
579 + .02444, .02278, 6.89936, .56334, .04643,
580 + .00000, .40826, .56776,
581 + .02549, .02332, 8.04475, .61764, .06513,
582 + .00000, .45778, .62215,
583 + .02659, .02389, 9.32237, .67629, .09146,
584 + .00000, .51211, .68090 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .02755, .02439, 10.49782, .72781, .12101,
587 + .00000, .56075, .73250,
588 + .02847, .02487, 11.70198, .77794, .15652,
589 + .00000, .60904, .78271,
590 + .02920, .02524, 12.67879, .81714, .18991,
591 + .00000, .64760, .82197,
592 + .03074, .02604, 14.88149, .89989, .27829,
593 + .00000, .73156, .90485,
594 + .03207, .02672, 16.87975, .96958, .37294,
595 + .02349, .80515, .97465,
596 + .03355, .02748, 19.21758, 1.04675, .49627,
597 + .10499, .88928, 1.05195,
598 + .03509, .02827, 21.75570, 1.12853, .63841,
599 + .21742, .98006, 1.13386,
600 + .03648, .02897, 24.14689, 1.20642, .77373,
601 + .31919, 1.06649, 1.21186 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .03788, .02969, 26.63796, 1.29031, .91156,
604 + .42676, 1.15841, 1.29587,
605 + .03905, .03028, 28.75829, 1.36471, 1.02471,
606 + .51874, 1.23862, 1.37036,
607 + .04046, .03099, 31.36637, 1.46052, 1.15874,
608 + .63320, 1.34022, 1.46629,
609 + .04171, .03162, 33.72319, 1.55076, 1.27482,
610 + .73749, 1.43443, 1.55663,
611 + .04285, .03220, 35.93679, 1.63812, 1.38007,
612 + .83594, 1.52460, 1.64408,
613 + .04430, .03292, 38.75061, 1.75325, 1.51143,
614 + .96311, 1.64237, 1.75933,
615 + .04566, .03361, 41.42558, 1.86599, 1.63442,
616 + 1.08558, 1.75687, 1.87218,
617 + .04694, .03425, 43.97060, 1.97558, 1.75047,
618 + 1.20323, 1.86766, 1.98187 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .04822, .03489, 46.53087, 2.08815, 1.86743,
621 + 1.32314, 1.98113, 2.09455,
622 + .04947, .03551, 49.02591, 2.20031, 1.98251,
623 + 1.44198, 2.09397, 2.20681,
624 + .05065, .03610, 51.42525, 2.30950, 2.09366,
625 + 1.55714, 2.20368, 2.31609,
626 + .05176, .03665, 53.65855, 2.41328, 2.19881,
627 + 1.66634, 2.30789, 2.41996,
628 + .05288, .03720, 55.92618, 2.51983, 2.30645,
629 + 1.77816, 2.41483, 2.52660,
630 + .05399, .03775, 58.14085, 2.62570, 2.41319,
631 + 1.88908, 2.52105, 2.63256,
632 + .05503, .03827, 60.25170, 2.72789, 2.51609,
633 + 1.99596, 2.62355, 2.73483,
634 + .05603, .03876, 62.23399, 2.82535, 2.61418,
635 + 2.09780, 2.72130, 2.83237 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05703, .03925, 64.24445, 2.92519, 2.71460,
638 + 2.20197, 2.82143, 2.93229,
639 + .05802, .03974, 66.19498, 3.02386, 2.81382,
640 + 2.30486, 2.92037, 3.03103,
641 + .05896, .04020, 68.08741, 3.12007, 2.91055,
642 + 2.40505, 3.01685, 3.12733,
643 + .05986, .04064, 69.82254, 3.21040, 3.00134,
644 + 2.49910, 3.10741, 3.21772,
645 + .06076, .04109, 71.60773, 3.30371, 3.09513,
646 + 2.59614, 3.20098, 3.31111 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .02314, .02233, 1.60840, .27377, .00222,
649 + .00000, .15427, .27822,
650 + .02460, .02308, 2.25374, .31114, .00488,
651 + .00000, .18710, .31573,
652 + .02672, .02417, 3.34417, .37203, .01109,
653 + .00000, .24076, .37682,
654 + .02824, .02495, 4.24897, .42014, .01811,
655 + .00000, .28341, .42507,
656 + .02982, .02576, 5.28867, .47341, .02877,
657 + .00000, .33101, .47848,
658 + .03117, .02644, 6.25788, .52116, .04161,
659 + .00000, .37413, .52636,
660 + .03246, .02710, 7.25180, .56827, .05813,
661 + .00000, .41719, .57359,
662 + .03381, .02778, 8.35139, .61884, .08128,
663 + .00000, .46418, .62428 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .03498, .02837, 9.35580, .66299, .10716,
666 + .00000, .50600, .66854,
667 + .03611, .02894, 10.37855, .70570, .13814,
668 + .00000, .54731, .71135,
669 + .03699, .02939, 11.20332, .73893, .16719,
670 + .00000, .58016, .74466,
671 + .03888, .03034, 13.04999, .80859, .24371,
672 + .00000, .65124, .81449,
673 + .04050, .03115, 14.71023, .86674, .32520,
674 + .01992, .71310, .87278,
675 + .04230, .03205, 16.63633, .93061, .43075,
676 + .08877, .78333, .93681,
677 + .04416, .03298, 18.70919, .99783, .55157,
678 + .18328, .85863, 1.00420,
679 + .04584, .03382, 20.64608, 1.06153, .66576,
680 + .26828, .92992, 1.06805 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .04754, .03467, 22.64858, 1.12991, .78124,
683 + .35764, 1.00538, 1.13657,
684 + .04894, .03537, 24.34144, 1.19037, .87538,
685 + .43367, 1.07096, 1.19716,
686 + .05064, .03621, 26.40907, 1.26801, .98610,
687 + .52782, 1.15369, 1.27495,
688 + .05214, .03695, 28.26501, 1.34090, 1.08130,
689 + .61317, 1.23008, 1.34797,
690 + .05351, .03763, 29.99847, 1.41127, 1.16709,
691 + .69340, 1.30294, 1.41846,
692 + .05525, .03848, 32.18651, 1.50365, 1.27347,
693 + .79654, 1.39768, 1.51099,
694 + .05688, .03928, 34.25222, 1.59375, 1.37241,
695 + .89536, 1.48937, 1.60122,
696 + .05840, .04003, 36.20583, 1.68098, 1.46527,
697 + .98988, 1.57771, 1.68858 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .05992, .04078, 38.15918, 1.77023, 1.55837,
700 + 1.08578, 1.66781, 1.77796,
701 + .06141, .04151, 40.05043, 1.85877, 1.64954,
702 + 1.18041, 1.75703, 1.86664,
703 + .06281, .04219, 41.86030, 1.94466, 1.73722,
704 + 1.27176, 1.84345, 1.95265,
705 + .06413, .04284, 43.53445, 2.02598, 1.81983,
706 + 1.35803, 1.92521, 2.03407,
707 + .06546, .04348, 45.22674, 2.10919, 1.90409,
708 + 1.44606, 2.00882, 2.11739,
709 + .06676, .04412, 46.87040, 2.19156, 1.98733,
710 + 1.53307, 2.09157, 2.19988,
711 + .06800, .04472, 48.42981, 2.27080, 2.06732,
712 + 1.61663, 2.17116, 2.27922,
713 + .06917, .04529, 49.88694, 2.34614, 2.14329,
714 + 1.69597, 2.24681, 2.35465 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07035, .04586, 51.35899, 2.42309, 2.22086,
717 + 1.77690, 2.32407, 2.43170,
718 + .07151, .04642, 52.77934, 2.49886, 2.29722,
719 + 1.85656, 2.40015, 2.50758,
720 + .07263, .04696, 54.15359, 2.57259, 2.37150,
721 + 1.93394, 2.47417, 2.58140,
722 + .07367, .04747, 55.40548, 2.64155, 2.44096,
723 + 2.00632, 2.54339, 2.65044,
724 + .07474, .04798, 56.69048, 2.71264, 2.51257,
725 + 2.08083, 2.61476, 2.72163 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .02767, .02481, 1.55126, .26619, .00210,
728 + .00000, .14964, .27115,
729 + .02937, .02567, 2.15695, .30083, .00459,
730 + .00000, .18013, .30595,
731 + .03183, .02691, 3.16980, .35687, .01036,
732 + .00000, .22963, .36223,
733 + .03360, .02780, 4.00224, .40085, .01685,
734 + .00000, .26870, .40639,
735 + .03543, .02872, 4.95140, .44928, .02665,
736 + .00000, .31205, .45499,
737 + .03699, .02950, 5.83011, .49248, .03842,
738 + .00000, .35114, .49835,
739 + .03847, .03024, 6.72593, .53491, .05350,
740 + .00000, .39002, .54092,
741 + .04003, .03102, 7.71094, .58024, .07458,
742 + .00000, .43225, .58640 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04138, .03169, 8.60593, .61965, .09806,
745 + .00000, .46969, .62593,
746 + .04268, .03233, 9.51320, .65761, .12610,
747 + .00000, .50654, .66402,
748 + .04370, .03284, 10.24164, .68704, .15233,
749 + .00000, .53574, .69354,
750 + .04587, .03392, 11.86404, .74840, .22121,
751 + .00000, .59866, .75511,
752 + .04772, .03483, 13.31290, .79928, .29426,
753 + .01766, .65311, .80616,
754 + .04978, .03585, 14.98328, .85484, .38847,
755 + .07853, .71464, .86191,
756 + .05190, .03690, 16.76921, .91301, .49577,
757 + .16181, .78028, .92028,
758 + .05383, .03784, 18.42776, .96794, .59667,
759 + .23635, .84217, .97539 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05576, .03879, 20.13278, 1.02674, .69815,
762 + .31440, .90748, 1.03437,
763 + .05736, .03958, 21.56677, 1.07865, .78046,
764 + .38056, .96405, 1.08642,
765 + .05928, .04052, 23.30890, 1.14515, .87676,
766 + .46219, 1.03520, 1.15309,
767 + .06098, .04135, 24.86480, 1.20745, .95913,
768 + .53594, 1.10071, 1.21555,
769 + .06254, .04211, 26.31197, 1.26747, 1.03301,
770 + .60503, 1.16303, 1.27571,
771 + .06451, .04307, 28.12886, 1.34605, 1.12417,
772 + .69354, 1.24379, 1.35447,
773 + .06635, .04396, 29.83519, 1.42245, 1.20855,
774 + .77804, 1.32169, 1.43103,
775 + .06807, .04480, 31.44160, 1.49621, 1.28742,
776 + .85858, 1.39651, 1.50495 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .06978, .04563, 33.04035, 1.57145, 1.36620,
779 + .94005, 1.47259, 1.58034,
780 + .07145, .04644, 34.58054, 1.64587, 1.44305,
781 + 1.02017, 1.54768, 1.65491,
782 + .07304, .04720, 36.04903, 1.71786, 1.51675,
783 + 1.09729, 1.62022, 1.72705,
784 + .07452, .04792, 37.40087, 1.78582, 1.58596,
785 + 1.16990, 1.68863, 1.79513,
786 + .07601, .04864, 38.76268, 1.85519, 1.65637,
787 + 1.24382, 1.75843, 1.86464,
788 + .07747, .04934, 40.07969, 1.92367, 1.72573,
789 + 1.31666, 1.82731, 1.93325,
790 + .07885, .05001, 41.32477, 1.98939, 1.79221,
791 + 1.38645, 1.89340, 1.99909,
792 + .08016, .05064, 42.48364, 2.05171, 1.85520,
793 + 1.45255, 1.95606, 2.06153 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08148, .05127, 43.65089, 2.11524, 1.91937,
796 + 1.51983, 2.01992, 2.12517,
797 + .08278, .05189, 44.77221, 2.17763, 1.98238,
798 + 1.58588, 2.08264, 2.18767,
799 + .08402, .05249, 45.85492, 2.23823, 2.04356,
800 + 1.64993, 2.14355, 2.24839,
801 + .08519, .05304, 46.83604, 2.29475, 2.10061,
802 + 1.70967, 2.20036, 2.30500,
803 + .08637, .05361, 47.84144, 2.35293, 2.15934,
804 + 1.77109, 2.25883, 2.36329 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03188, .02707, 1.50536, .26013, .00201,
807 + .00000, .14588, .26544,
808 + .03379, .02802, 2.08069, .29269, .00437,
809 + .00000, .17459, .29818,
810 + .03654, .02941, 3.03457, .34507, .00982,
811 + .00000, .22093, .35083,
812 + .03852, .03039, 3.81245, .38597, .01591,
813 + .00000, .25731, .39191,
814 + .04056, .03141, 4.69378, .43080, .02507,
815 + .00000, .29751, .43694,
816 + .04230, .03227, 5.50506, .47063, .03603,
817 + .00000, .33361, .47693,
818 + .04395, .03309, 6.32813, .50960, .05004,
819 + .00000, .36938, .51606,
820 + .04568, .03395, 7.22861, .55109, .06957,
821 + .00000, .40811, .55771 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .04718, .03470, 8.04321, .58703, .09128,
824 + .00000, .44233, .59379,
825 + .04862, .03541, 8.86598, .62153, .11715,
826 + .00000, .47591, .62843,
827 + .04975, .03597, 9.52413, .64819, .14131,
828 + .00000, .50246, .65520,
829 + .05216, .03715, 10.98367, .70354, .20457,
830 + .00000, .55944, .71077,
831 + .05421, .03816, 12.27984, .74919, .27144,
832 + .01602, .60853, .75660,
833 + .05648, .03928, 13.76643, .79879, .35737,
834 + .07113, .66378, .80641,
835 + .05883, .04043, 15.34731, .85049, .45486,
836 + .14630, .72250, .85833,
837 + .06095, .04147, 16.80792, .89916, .54613,
838 + .21332, .77768, .90720 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06307, .04251, 18.30226, .95117, .63754,
841 + .28327, .83573, .95940,
842 + .06483, .04336, 19.55371, .99700, .71137,
843 + .34240, .88590, 1.00539,
844 + .06695, .04439, 21.06742, 1.05562, .79737,
845 + .41512, .94883, 1.06420,
846 + .06881, .04530, 22.41353, 1.11044, .87061,
847 + .48062, 1.00664, 1.11919,
848 + .07052, .04613, 23.66113, 1.16316, .93605,
849 + .54184, 1.06151, 1.17207,
850 + .07266, .04717, 25.22055, 1.23204, 1.01648,
851 + .62003, 1.13243, 1.24113,
852 + .07468, .04814, 26.67834, 1.29883, 1.09063,
853 + .69445, 1.20065, 1.30811,
854 + .07655, .04905, 28.04554, 1.36317, 1.15969,
855 + .76519, 1.26601, 1.37261 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07843, .04995, 29.40101, 1.42863, 1.22845,
858 + .83655, 1.33229, 1.43824,
859 + .08024, .05083, 30.70124, 1.49322, 1.29534,
860 + .90654, 1.39754, 1.50299,
861 + .08197, .05165, 31.93709, 1.55557, 1.35932,
862 + .97376, 1.46043, 1.56549,
863 + .08358, .05243, 33.06989, 1.61426, 1.41923,
864 + 1.03688, 1.51959, 1.62433,
865 + .08520, .05320, 34.20782, 1.67406, 1.48006,
866 + 1.10100, 1.57983, 1.68427,
867 + .08678, .05396, 35.30437, 1.73296, 1.53984,
868 + 1.16406, 1.63913, 1.74330,
869 + .08828, .05468, 36.33779, 1.78936, 1.59701,
870 + 1.22434, 1.69592, 1.79984,
871 + .08970, .05536, 37.29630, 1.84274, 1.65107,
872 + 1.28132, 1.74965, 1.85334 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09113, .05604, 38.25936, 1.89705, 1.70605,
875 + 1.33922, 1.80431, 1.90778,
876 + .09253, .05671, 39.18117, 1.95028, 1.75991,
877 + 1.39593, 1.85787, 1.96113,
878 + .09387, .05734, 40.06975, 2.00191, 1.81214,
879 + 1.45085, 1.90983, 2.01288,
880 + .09513, .05794, 40.87091, 2.04994, 1.86072,
881 + 1.50195, 1.95816, 2.06102,
882 + .09641, .05855, 41.69076, 2.09933, 1.91066,
883 + 1.55442, 2.00785, 2.11052 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .04927, .03596, 1.36633, .24058, .00175,
886 + .00000, .13424, .24757,
887 + .05197, .03729, 1.85383, .26705, .00376,
888 + .00000, .15776, .27430,
889 + .05585, .03921, 2.63963, .30891, .00829,
890 + .00000, .19505, .31654,
891 + .05861, .04056, 3.26414, .34104, .01325,
892 + .00000, .22384, .34894,
893 + .06145, .04196, 3.95693, .37578, .02062,
894 + .00000, .25521, .38397,
895 + .06386, .04314, 4.58279, .40626, .02934,
896 + .00000, .28304, .41468,
897 + .06615, .04426, 5.20763, .43573, .04038,
898 + .00000, .31031, .44437,
899 + .06853, .04543, 5.87980, .46674, .05564,
900 + .00000, .33950, .47561 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07058, .04643, 6.47907, .49328, .07248,
903 + .00000, .36503, .50234,
904 + .07255, .04739, 7.07706, .51847, .09239,
905 + .00000, .38983, .52773,
906 + .07410, .04814, 7.54954, .53775, .11089,
907 + .00000, .40927, .54715,
908 + .07736, .04973, 8.58230, .57718, .15888,
909 + .00000, .45051, .58689,
910 + .08013, .05108, 9.48250, .60908, .20908,
911 + .01170, .48552, .61906,
912 + .08319, .05256, 10.49706, .64318, .27288,
913 + .05163, .52440, .65345,
914 + .08633, .05408, 11.55633, .67822, .34431,
915 + .10561, .56518, .68878,
916 + .08915, .05544, 12.51819, .71088, .41028,
917 + .15314, .60309, .72170 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09197, .05680, 13.48654, .74555, .47543,
920 + .20222, .64260, .75664,
921 + .09430, .05791, 14.28568, .77596, .52734,
922 + .24330, .67648, .78727,
923 + .09708, .05925, 15.23749, .81466, .58695,
924 + .29334, .71863, .82622,
925 + .09952, .06042, 16.07168, .85066, .63698,
926 + .33797, .75704, .86244,
927 + .10175, .06149, 16.83567, .88510, .68112,
928 + .37934, .79325, .89709,
929 + .10454, .06282, 17.77546, .92975, .73463,
930 + .43167, .83963, .94199,
931 + .10714, .06406, 18.64043, .97270, .78330,
932 + .48098, .88383, .98518,
933 + .10957, .06521, 19.44093, 1.01376, .82812,
934 + .52743, .92583, 1.02646 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11197, .06635, 20.22356, 1.05520, .87227,
937 + .57388, .96805, 1.06812,
938 + .11430, .06745, 20.96282, 1.09572, .91478,
939 + .61903, 1.00924, 1.10885,
940 + .11649, .06849, 21.65794, 1.13457, .95510,
941 + .66206, 1.04866, 1.14789,
942 + .11854, .06945, 22.28532, 1.17082, .99252,
943 + .70214, 1.08541, 1.18433,
944 + .12059, .07042, 22.90916, 1.20751, 1.03023,
945 + .74257, 1.12258, 1.22120,
946 + .12258, .07136, 23.50215, 1.24337, 1.06700,
947 + .78202, 1.15889, 1.25723,
948 + .12448, .07225, 24.05485, 1.27747, 1.10192,
949 + .81948, 1.19342, 1.29150,
950 + .12625, .07308, 24.56099, 1.30951, 1.13470,
951 + .85465, 1.22585, 1.32370 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12804, .07392, 25.06487, 1.34192, 1.16784,
954 + .89017, 1.25866, 1.35626,
955 + .12979, .07473, 25.54005, 1.37344, 1.20006,
956 + .92472, 1.29056, 1.38794,
957 + .13146, .07551, 25.99553, 1.40388, 1.23116,
958 + .95801, 1.32137, 1.41852,
959 + .13302, .07624, 26.39841, 1.43195, 1.25984,
960 + .98875, 1.34977, 1.44672,
961 + .13460, .07698, 26.80886, 1.46069, 1.28922,
962 + 1.02017, 1.37887, 1.47561 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07586, .04931, 1.23002, .21969, .00155,
965 + .00000, .12223, .22912,
966 + .07959, .05115, 1.63809, .24061, .00327,
967 + .00000, .14104, .25042,
968 + .08492, .05377, 2.27504, .27311, .00701,
969 + .00000, .17031, .28345,
970 + .08869, .05563, 2.76656, .29762, .01101,
971 + .00000, .19252, .30835,
972 + .09255, .05752, 3.29883, .32375, .01686,
973 + .00000, .21638, .33486,
974 + .09580, .05911, 3.76946, .34636, .02368,
975 + .00000, .23725, .35779,
976 + .09887, .06060, 4.23075, .36794, .03221,
977 + .00000, .25747, .37968,
978 + .10206, .06216, 4.71726, .39034, .04389,
979 + .00000, .27884, .40239 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10480, .06348, 5.14378, .40926, .05665,
982 + .00000, .29732, .42158,
983 + .10741, .06475, 5.56356, .42700, .07163,
984 + .00000, .31507, .43957,
985 + .10945, .06574, 5.89042, .44040, .08545,
986 + .00000, .32885, .45317,
987 + .11375, .06781, 6.59297, .46736, .12097,
988 + .00000, .35771, .48055,
989 + .11737, .06956, 7.19210, .48869, .15768,
990 + .00831, .38180, .50222,
991 + .12134, .07147, 7.85353, .51102, .20377,
992 + .03645, .40813, .52493,
993 + .12541, .07341, 8.52903, .53356, .25466,
994 + .07412, .43535, .54785,
995 + .12903, .07514, 9.12980, .55434, .30097,
996 + .10682, .46033, .56898 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .13264, .07686, 9.72303, .57627, .34599,
999 + .14021, .48611, .59124,
1000 + .13559, .07826, 10.20388, .59541, .38131,
1001 + .16785, .50802, .61065,
1002 + .13910, .07992, 10.76553, .61964, .42123,
1003 + .20115, .53502, .63521,
1004 + .14218, .08137, 11.24905, .64205, .45418,
1005 + .23053, .55940, .65790,
1006 + .14497, .08269, 11.68550, .66338, .48283,
1007 + .25750, .58221, .67949,
1008 + .14845, .08432, 12.21105, .69080, .51701,
1009 + .29125, .61112, .70722,
1010 + .15167, .08583, 12.68515, .71693, .54761,
1011 + .32269, .63837, .73364,
1012 + .15465, .08722, 13.11652, .74169, .57541,
1013 + .35202, .66402, .75867 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .15760, .08859, 13.53062, .76646, .60246,
1016 + .38106, .68956, .78370,
1017 + .16043, .08991, 13.91350, .79041, .62818,
1018 + .40898, .71420, .80790,
1019 + .16310, .09114, 14.26853, .81319, .65234,
1020 + .43538, .73758, .83092,
1021 + .16557, .09228, 14.58187, .83423, .67452,
1022 + .45972, .75915, .85216,
1023 + .16803, .09341, 14.88923, .85535, .69668,
1024 + .48409, .78080, .87350,
1025 + .17043, .09451, 15.17560, .87579, .71809,
1026 + .50766, .80174, .89415,
1027 + .17268, .09555, 15.43833, .89508, .73825,
1028 + .52987, .82150, .91363,
1029 + .17479, .09651, 15.67432, .91304, .75701,
1030 + .55055, .83989, .93176 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .17690, .09747, 15.90614, .93107, .77584,
1033 + .57129, .85836, .94998,
1034 + .17896, .09841, 16.11941, .94843, .79397,
1035 + .59129, .87614, .96751,
1036 + .18092, .09930, 16.32247, .96511, .81138,
1037 + .61046, .89323, .98436,
1038 + .18274, .10013, 16.49630, .98032, .82727,
1039 + .62799, .90882, .99972,
1040 + .18459, .10096, 16.67254, .99583, .84347,
1041 + .64584, .92471, 1.01539 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .09741, .06021, 1.15401, .20673, .00147,
1044 + .00000, .11511, .21829,
1045 + .10186, .06241, 1.51927, .22466, .00304,
1046 + .00000, .13139, .23668,
1047 + .10819, .06552, 2.07739, .25221, .00640,
1048 + -.00001, .15645, .26488,
1049 + .11265, .06771, 2.49982, .27278, .00992,
1050 + -.00001, .17526, .28591,
1051 + .11719, .06993, 2.95001, .29450, .01499,
1052 + -.00001, .19529, .30809,
1053 + .12101, .07180, 3.34243, .31313, .02084,
1054 + -.00001, .21266, .32710,
1055 + .12461, .07354, 3.72236, .33077, .02812,
1056 + -.00001, .22936, .34510,
1057 + .12833, .07534, 4.11786, .34892, .03799,
1058 + -.00001, .24687, .36361 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .13150, .07688, 4.46064, .36411, .04871,
1061 + -.00001, .26190, .37912,
1062 + .13454, .07834, 4.79487, .37823, .06123,
1063 + -.00001, .27624, .39354,
1064 + .13689, .07947, 5.05255, .38881, .07272,
1065 + -.00001, .28729, .40435,
1066 + .14184, .08185, 5.60029, .40985, .10209,
1067 + -.00001, .31024, .42586,
1068 + .14599, .08383, 6.06033, .42622, .13221,
1069 + .00670, .32919, .44263,
1070 + .15053, .08600, 6.56101, .44311, .16974,
1071 + .02927, .34969, .45995,
1072 + .15515, .08819, 7.06458, .45995, .21079,
1073 + .05930, .37066, .47722,
1074 + .15926, .09012, 7.50590, .47536, .24780,
1075 + .08514, .38975, .49301 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .16332, .09204, 7.93574, .49155, .28341,
1078 + .11131, .40931, .50958,
1079 + .16664, .09359, 8.27963, .50566, .31110,
1080 + .13284, .42584, .52400,
1081 + .17057, .09543, 8.67572, .52346, .34204,
1082 + .15859, .44608, .54214,
1083 + .17399, .09702, 9.01213, .53986, .36730,
1084 + .18114, .46426, .55886,
1085 + .17709, .09846, 9.31252, .55544, .38906,
1086 + .20173, .48117, .57471,
1087 + .18094, .10023, 9.66848, .57534, .41474,
1088 + .22730, .50246, .59496,
1089 + .18449, .10186, 9.98467, .59419, .43747,
1090 + .25095, .52238, .61412,
1091 + .18776, .10337, 10.26865, .61195, .45794,
1092 + .27286, .54101, .63217 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .19099, .10484, 10.53730, .62961, .47770,
1095 + .29442, .55944, .65009,
1096 + .19407, .10624, 10.78104, .64654, .49630,
1097 + .31500, .57707, .66729,
1098 + .19697, .10755, 11.00455, .66255, .51367,
1099 + .33435, .59370, .68355,
1100 + .19964, .10876, 11.19810, .67723, .52949,
1101 + .35208, .60894, .69845,
1102 + .20229, .10995, 11.38579, .69189, .54521,
1103 + .36973, .62414, .71333,
1104 + .20486, .11110, 11.55744, .70597, .56029,
1105 + .38670, .63875, .72762,
1106 + .20727, .11218, 11.71269, .71918, .57441,
1107 + .40261, .65245, .74102,
1108 + .20953, .11318, 11.84955, .73139, .58746,
1109 + .41734, .66512, .75342 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .21178, .11418, 11.98237, .74360, .60051,
1112 + .43205, .67778, .76581,
1113 + .21396, .11515, 12.10151, .75526, .61298,
1114 + .44615, .68989, .77764,
1115 + .21603, .11606, 12.21439, .76643, .62492,
1116 + .45963, .70149, .78898,
1117 + .21795, .11691, 12.30742, .77651, .63572,
1118 + .47186, .71196, .79921,
1119 + .21989, .11776, 12.40146, .78678, .64671,
1120 + .48428, .72263, .80963 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .11618, .06988, 1.10275, .19721, .00142,
1123 + .00000, .11003, .21071,
1124 + .12119, .07235, 1.43901, .21314, .00292,
1125 + .00000, .12462, .22716,
1126 + .12829, .07583, 1.94446, .23742, .00603,
1127 + -.00001, .14690, .25218,
1128 + .13327, .07827, 2.32131, .25541, .00924,
1129 + -.00001, .16349, .27067,
1130 + .13832, .08073, 2.71796, .27426, .01382,
1131 + .00000, .18104, .29005,
1132 + .14256, .08279, 3.05988, .29033, .01905,
1133 + -.00001, .19616, .30654,
1134 + .14654, .08471, 3.38777, .30544, .02551,
1135 + -.00001, .21060, .32205,
1136 + .15064, .08669, 3.72554, .32089, .03423,
1137 + -.00001, .22566, .33790 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .15414, .08836, 4.01568, .33372, .04364,
1140 + -.00001, .23851, .35107,
1141 + .15747, .08996, 4.29656, .34557, .05459,
1142 + -.00001, .25070, .36325,
1143 + .16005, .09119, 4.51136, .35439, .06460,
1144 + -.00001, .26005, .37232,
1145 + .16546, .09376, 4.96388, .37176, .09005,
1146 + -.00001, .27933, .39020,
1147 + .16998, .09590, 5.33935, .38510, .11601,
1148 + .00570, .29511, .40396,
1149 + .17491, .09823, 5.74331, .39868, .14815,
1150 + .02483, .31204, .41800,
1151 + .17990, .10057, 6.14455, .41208, .18309,
1152 + .05017, .32922, .43187,
1153 + .18432, .10263, 6.49195, .42427, .21434,
1154 + .07183, .34476, .44446 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .18869, .10465, 6.82642, .43704, .24420,
1157 + .09364, .36059, .45763,
1158 + .19223, .10629, 7.09111, .44816, .26723,
1159 + .11148, .37391, .46906,
1160 + .19643, .10822, 7.39225, .46214, .29276,
1161 + .13270, .39014, .48341,
1162 + .20006, .10988, 7.64509, .47501, .31342,
1163 + .15119, .40464, .49660,
1164 + .20335, .11138, 7.86879, .48720, .33108,
1165 + .16799, .41809, .50907,
1166 + .20741, .11322, 8.13000, .50270, .35175,
1167 + .18874, .43491, .52493,
1168 + .21114, .11490, 8.35876, .51731, .36989,
1169 + .20782, .45056, .53985,
1170 + .21458, .11644, 8.56176, .53102, .38611,
1171 + .22541, .46512, .55384 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .21795, .11795, 8.75113, .54456, .40165,
1174 + .24263, .47944, .56766,
1175 + .22116, .11938, 8.91993, .55748, .41618,
1176 + .25898, .49306, .58083,
1177 + .22417, .12071, 9.07313, .56963, .42968,
1178 + .27428, .50584, .59323,
1179 + .22693, .12192, 9.20309, .58069, .44189,
1180 + .28823, .51748, .60452,
1181 + .22967, .12312, 9.32770, .59169, .45398,
1182 + .30206, .52904, .61573,
1183 + .23231, .12428, 9.43941, .60220, .46549,
1184 + .31530, .54008, .62643,
1185 + .23479, .12536, 9.53891, .61200, .47623,
1186 + .32765, .55039, .63642,
1187 + .23709, .12635, 9.62477, .62100, .48611,
1188 + .33905, .55987, .64561 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .23939, .12734, 9.70699, .62997, .49594,
1191 + .35038, .56930, .65475,
1192 + .24161, .12829, 9.77845, .63847, .50528,
1193 + .36120, .57827, .66342,
1194 + .24372, .12919, 9.84584, .64660, .51421,
1195 + .37150, .58683, .67170,
1196 + .24566, .13002, 9.89855, .65387, .52222,
1197 + .38081, .59450, .67911,
1198 + .24762, .13085, 9.95171, .66125, .53035,
1199 + .39023, .60229, .68663 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .13312, .07872, 1.06537, .18963, .00140,
1202 + .00000, .10611, .20499,
1203 + .13858, .08141, 1.37982, .20407, .00284,
1204 + .00000, .11946, .22000,
1205 + .14629, .08518, 1.84611, .22595, .00578,
1206 + .00000, .13970, .24268,
1207 + .15168, .08780, 2.18942, .24205, .00878,
1208 + .00000, .15467, .25933,
1209 + .15714, .09045, 2.54705, .25884, .01300,
1210 + .00000, .17042, .27666,
1211 + .16171, .09265, 2.85246, .27305, .01779,
1212 + .00000, .18391, .29133,
1213 + .16598, .09470, 3.14302, .28635, .02366,
1214 + .00000, .19675, .30506,
1215 + .17038, .09680, 3.43965, .29987, .03154,
1216 + .00000, .21006, .31900 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .17412, .09858, 3.69255, .31103, .04002,
1219 + .00000, .22135, .33053,
1220 + .17767, .10026, 3.93589, .32128, .04984,
1221 + .00000, .23203, .34111,
1222 + .18042, .10156, 4.12071, .32886, .05879,
1223 + .00000, .24018, .34895,
1224 + .18617, .10427, 4.50709, .34365, .08146,
1225 + .00000, .25689, .36429,
1226 + .19096, .10651, 4.82431, .35488, .10446,
1227 + .00501, .27046, .37596,
1228 + .19617, .10893, 5.16216, .36619, .13280,
1229 + .02175, .28492, .38774,
1230 + .20141, .11136, 5.49416, .37723, .16343,
1231 + .04382, .29948, .39926,
1232 + .20605, .11349, 5.77850, .38723, .19067,
1233 + .06259, .31259, .40967 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .21061, .11557, 6.04933, .39768, .21654,
1236 + .08140, .32588, .42052,
1237 + .21431, .11725, 6.26168, .40676, .23635,
1238 + .09672, .33702, .42992,
1239 + .21867, .11922, 6.50045, .41818, .25818,
1240 + .11486, .35053, .44171,
1241 + .22244, .12091, 6.69873, .42866, .27572,
1242 + .13059, .36256, .45251,
1243 + .22584, .12243, 6.87262, .43858, .29062,
1244 + .14484, .37367, .46271,
1245 + .23002, .12428, 7.07297, .45114, .30791,
1246 + .16234, .38750, .47561,
1247 + .23385, .12597, 7.24606, .46293, .32299,
1248 + .17836, .40031, .48770,
1249 + .23737, .12751, 7.39776, .47393, .33638,
1250 + .19307, .41217, .49899 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .24080, .12901, 7.53705, .48476, .34913,
1253 + .20740, .42377, .51009,
1254 + .24407, .13043, 7.65901, .49503, .36098,
1255 + .22095, .43474, .52060,
1256 + .24712, .13174, 7.76855, .50465, .37195,
1257 + .23359, .44501, .53046,
1258 + .24992, .13294, 7.85941, .51336, .38180,
1259 + .24506, .45429, .53937,
1260 + .25269, .13412, 7.94543, .52197, .39152,
1261 + .25640, .46348, .54819,
1262 + .25534, .13524, 8.02070, .53016, .40074,
1263 + .26720, .47221, .55656,
1264 + .25782, .13629, 8.08650, .53776, .40930,
1265 + .27725, .48032, .56434,
1266 + .26013, .13725, 8.14172, .54470, .41713,
1267 + .28648, .48775, .57145 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .26242, .13821, 8.19374, .55159, .42490,
1270 + .29564, .49511, .57849,
1271 + .26463, .13912, 8.23716, .55807, .43225,
1272 + .30434, .50206, .58513,
1273 + .26673, .13999, 8.27786, .56425, .43925,
1274 + .31262, .50869, .59146,
1275 + .26865, .14077, 8.30697, .56973, .44549,
1276 + .32005, .51457, .59706,
1277 + .27058, .14156, 8.33627, .57528, .45181,
1278 + .32756, .52054, .60273 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .16330, .09475, 1.01436, .17785, .00139,
1281 + .00000, .10027, .19675,
1282 + .16944, .09774, 1.29675, .19017, .00276,
1283 + .00000, .11184, .20970,
1284 + .17808, .10191, 1.70637, .20865, .00549,
1285 + .00001, .12920, .22905,
1286 + .18409, .10479, 2.00180, .22209, .00819,
1287 + .00001, .14189, .24309,
1288 + .19014, .10767, 2.30433, .23597, .01192,
1289 + .00001, .15512, .25756,
1290 + .19518, .11005, 2.55872, .24761, .01609,
1291 + .00001, .16636, .26969,
1292 + .19987, .11226, 2.79753, .25841, .02116,
1293 + .00000, .17697, .28094,
1294 + .20468, .11451, 3.03770, .26927, .02788,
1295 + .00001, .18787, .29224 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .20875, .11640, 3.23988, .27814, .03506,
1298 + .00001, .19704, .30149,
1299 + .21261, .11819, 3.43243, .28621, .04333,
1300 + .00001, .20565, .30991,
1301 + .21558, .11956, 3.57688, .29210, .05082,
1302 + .00001, .21217, .31608,
1303 + .22177, .12239, 3.87494, .30345, .06967,
1304 + .00000, .22541, .32797,
1305 + .22690, .12472, 4.11530, .31186, .08863,
1306 + .00408, .23602, .33683,
1307 + .23245, .12722, 4.36682, .32015, .11181,
1308 + .01762, .24719, .34560,
1309 + .23800, .12971, 4.60916, .32811, .13663,
1310 + .03536, .25832, .35402,
1311 + .24288, .13187, 4.81267, .33524, .15849,
1312 + .05030, .26823, .36156 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .24765, .13396, 5.00286, .34268, .17903,
1315 + .06516, .27820, .36938,
1316 + .25150, .13565, 5.14927, .34914, .19461,
1317 + .07717, .28650, .37614,
1318 + .25601, .13760, 5.31023, .35724, .21158,
1319 + .09129, .29649, .38458,
1320 + .25988, .13926, 5.44114, .36466, .22504,
1321 + .10345, .30532, .39230,
1322 + .26336, .14075, 5.55407, .37166, .23637,
1323 + .11439, .31344, .39956,
1324 + .26761, .14254, 5.68033, .38047, .24934,
1325 + .12774, .32346, .40867,
1326 + .27149, .14416, 5.78609, .38867, .26051,
1327 + .13985, .33265, .41715,
1328 + .27503, .14563, 5.87642, .39628, .27033,
1329 + .15090, .34109, .42500 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .27846, .14705, 5.95675, .40369, .27957,
1332 + .16159, .34927, .43265,
1333 + .28170, .14837, 6.02391, .41064, .28807,
1334 + .17161, .35693, .43981,
1335 + .28472, .14959, 6.08269, .41711, .29588,
1336 + .18091, .36405, .44648,
1337 + .28746, .15069, 6.12851, .42289, .30283,
1338 + .18929, .37042, .45242,
1339 + .29017, .15177, 6.17039, .42857, .30963,
1340 + .19752, .37667, .45827,
1341 + .29275, .15279, 6.20439, .43389, .31601,
1342 + .20530, .38255, .46374,
1343 + .29515, .15373, 6.23234, .43879, .32190,
1344 + .21251, .38797, .46878,
1345 + .29736, .15458, 6.25351, .44322, .32725,
1346 + .21909, .39289, .47334 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .29956, .15543, 6.27213, .44757, .33252,
1349 + .22558, .39773, .47782,
1350 + .30165, .15623, 6.28463, .45162, .33745,
1351 + .23170, .40224, .48197,
1352 + .30364, .15698, 6.29608, .45545, .34213,
1353 + .23751, .40652, .48591,
1354 + .30544, .15766, 6.30012, .45878, .34625,
1355 + .24267, .41027, .48933,
1356 + .30726, .15833, 6.30416, .46215, .35041,
1357 + .24788, .41405, .49278 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .20259, .11602, .96974, .16488, .00140,
1360 + .00000, .09418, .18868,
1361 + .20944, .11926, 1.21875, .17510, .00273,
1362 + .00000, .10399, .19957,
1363 + .21898, .12373, 1.57066, .19022, .00527,
1364 + .00000, .11852, .21560,
1365 + .22557, .12678, 1.81827, .20108, .00769,
1366 + .00000, .12900, .22706,
1367 + .23217, .12981, 2.06664, .21215, .01096,
1368 + .00000, .13980, .23873,
1369 + .23762, .13229, 2.27162, .22133, .01456,
1370 + .00000, .14888, .24839,
1371 + .24267, .13458, 2.46090, .22975, .01885,
1372 + .00000, .15736, .25725,
1373 + .24782, .13689, 2.64776, .23809, .02448,
1374 + .00000, .16598, .26603 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .25215, .13881, 2.80256, .24482, .03042,
1377 + .00000, .17316, .27312,
1378 + .25624, .14062, 2.94809, .25086, .03721,
1379 + .00000, .17984, .27949,
1380 + .25938, .14199, 3.05557, .25520, .04333,
1381 + .00000, .18485, .28408,
1382 + .26586, .14481, 3.27370, .26338, .05857,
1383 + .00000, .19489, .29277,
1384 + .27120, .14711, 3.44538, .26925, .07376,
1385 + .00321, .20281, .29904,
1386 + .27692, .14954, 3.62073, .27485, .09215,
1387 + .01383, .21101, .30507,
1388 + .28260, .15192, 3.78513, .28007, .11162,
1389 + .02765, .21904, .31070,
1390 + .28755, .15397, 3.91943, .28469, .12857,
1391 + .03916, .22611, .31566 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .29235, .15594, 4.04145, .28950, .14430,
1394 + .05051, .23315, .32078,
1395 + .29619, .15750, 4.13266, .29367, .15609,
1396 + .05961, .23896, .32521,
1397 + .30066, .15928, 4.22955, .29889, .16875,
1398 + .07020, .24588, .33070,
1399 + .30446, .16078, 4.30559, .30367, .17865,
1400 + .07924, .25195, .33571,
1401 + .30785, .16211, 4.36932, .30818, .18687,
1402 + .08732, .25749, .34042,
1403 + .31196, .16369, 4.43670, .31379, .19614,
1404 + .09708, .26424, .34625,
1405 + .31567, .16509, 4.48990, .31895, .20398,
1406 + .10586, .27035, .35161,
1407 + .31903, .16634, 4.53292, .32370, .21078,
1408 + .11379, .27591, .35652 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .32226, .16754, 4.56828, .32827, .21710,
1411 + .12141, .28123, .36124,
1412 + .32528, .16863, 4.59429, .33247, .22282,
1413 + .12849, .28614, .36557,
1414 + .32807, .16962, 4.61533, .33634, .22802,
1415 + .13500, .29065, .36956,
1416 + .33057, .17051, 4.62812, .33972, .23259,
1417 + .14082, .29462, .37304,
1418 + .33302, .17136, 4.63802, .34300, .23701,
1419 + .14650, .29848, .37642,
1420 + .33535, .17214, 4.64269, .34602, .24112,
1421 + .15183, .30205, .37952,
1422 + .33750, .17286, 4.64411, .34875, .24487,
1423 + .15672, .30530, .38232,
1424 + .33945, .17351, 4.64182, .35116, .24823,
1425 + .16114, .30820, .38479 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .34137, .17413, 4.63767, .35351, .25151,
1428 + .16549, .31102, .38719,
1429 + .34319, .17470, 4.62949, .35562, .25453,
1430 + .16954, .31360, .38935,
1431 + .34491, .17524, 4.62150, .35761, .25739,
1432 + .17337, .31604, .39139,
1433 + .34644, .17571, 4.60932, .35926, .25985,
1434 + .17674, .31810, .39306,
1435 + .34798, .17618, 4.59713, .36092, .26233,
1436 + .18012, .32018, .39476 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .25859, .14663, .93501, .14938, .00145,
1439 + -.00001, .08738, .18048,
1440 + .26606, .14993, 1.14572, .15738, .00277,
1441 + -.00001, .09533, .18909,
1442 + .27634, .15440, 1.43362, .16900, .00513,
1443 + -.00002, .10688, .20151,
1444 + .28336, .15741, 1.62962, .17717, .00729,
1445 + -.00002, .11507, .21022,
1446 + .29031, .16034, 1.82084, .18536, .01010,
1447 + -.00002, .12336, .21892,
1448 + .29601, .16272, 1.97461, .19204, .01311,
1449 + -.00002, .13023, .22598,
1450 + .30125, .16488, 2.11340, .19805, .01662,
1451 + -.00001, .13656, .23235,
1452 + .30652, .16702, 2.24679, .20389, .02114,
1453 + -.00002, .14289, .23852 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .31092, .16878, 2.35476, .20849, .02584,
1456 + -.00002, .14808, .24339,
1457 + .31505, .17042, 2.45438, .21253, .03115,
1458 + -.00002, .15284, .24768,
1459 + .31818, .17165, 2.52619, .21537, .03589,
1460 + -.00002, .15637, .25069,
1461 + .32461, .17413, 2.66822, .22050, .04756,
1462 + -.00002, .16330, .25617,
1463 + .32983, .17611, 2.77573, .22396, .05903,
1464 + .00237, .16862, .25990,
1465 + .33535, .17815, 2.88130, .22704, .07272,
1466 + .01022, .17400, .26324,
1467 + .34075, .18011, 2.97564, .22975, .08701,
1468 + .02032, .17914, .26619,
1469 + .34539, .18175, 3.04877, .23207, .09927,
1470 + .02862, .18356, .26870 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .34982, .18327, 3.11160, .23450, .11046,
1473 + .03671, .18790, .27128,
1474 + .35331, .18445, 3.15581, .23663, .11871,
1475 + .04312, .19144, .27351,
1476 + .35732, .18577, 3.19883, .23928, .12741,
1477 + .05050, .19559, .27628,
1478 + .36068, .18684, 3.22964, .24172, .13407,
1479 + .05672, .19918, .27880,
1480 + .36365, .18776, 3.25347, .24403, .13949,
1481 + .06223, .20242, .28117,
1482 + .36716, .18881, 3.27393, .24684, .14546,
1483 + .06880, .20628, .28403,
1484 + .37027, .18971, 3.28599, .24938, .15040,
1485 + .07464, .20970, .28660,
1486 + .37305, .19048, 3.29261, .25166, .15459,
1487 + .07986, .21276, .28890 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .37567, .19118, 3.29412, .25380, .15840,
1490 + .08481, .21562, .29103,
1491 + .37807, .19178, 3.28998, .25568, .16177,
1492 + .08935, .21817, .29289,
1493 + .38025, .19231, 3.28387, .25737, .16479,
1494 + .09349, .22048, .29457,
1495 + .38217, .19274, 3.27349, .25876, .16737,
1496 + .09713, .22244, .29592,
1497 + .38401, .19314, 3.26138, .26007, .16984,
1498 + .10066, .22431, .29719,
1499 + .38571, .19348, 3.24641, .26120, .17208,
1500 + .10393, .22597, .29827,
1501 + .38726, .19378, 3.23042, .26218, .17408,
1502 + .10690, .22745, .29919,
1503 + .38863, .19401, 3.21310, .26297, .17584,
1504 + .10956, .22871, .29993 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .38997, .19422, 3.19471, .26371, .17753,
1507 + .11214, .22990, .30061,
1508 + .39119, .19438, 3.17423, .26429, .17905,
1509 + .11453, .23094, .30113,
1510 + .39234, .19453, 3.15483, .26484, .18047,
1511 + .11676, .23190, .30161,
1512 + .39330, .19462, 3.13364, .26519, .18163,
1513 + .11869, .23264, .30188,
1514 + .39428, .19470, 3.11253, .26554, .18281,
1515 + .12062, .23338, .30216 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .30729, .17288, .92297, .13761, .00151,
1518 + -.00001, .08250, .17496,
1519 + .31494, .17596, 1.10543, .14413, .00283,
1520 + -.00001, .08920, .18196,
1521 + .32534, .18006, 1.34791, .15344, .00510,
1522 + -.00001, .09876, .19185,
1523 + .33235, .18276, 1.50844, .15987, .00710,
1524 + -.00001, .10543, .19864,
1525 + .33924, .18535, 1.66129, .16619, .00962,
1526 + -.00002, .11209, .20531,
1527 + .34483, .18741, 1.78141, .17125, .01224,
1528 + -.00002, .11752, .21063,
1529 + .34991, .18926, 1.88761, .17575, .01525,
1530 + -.00001, .12246, .21534,
1531 + .35500, .19105, 1.98713, .18001, .01906,
1532 + -.00002, .12734, .21978 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .35919, .19249, 2.06588, .18329, .02298,
1535 + -.00002, .13128, .22320,
1536 + .36309, .19381, 2.13723, .18609, .02735,
1537 + -.00002, .13485, .22614,
1538 + .36603, .19479, 2.18737, .18801, .03122,
1539 + -.00002, .13745, .22812,
1540 + .37197, .19671, 2.28389, .19131, .04065,
1541 + -.00002, .14247, .23157,
1542 + .37672, .19820, 2.35388, .19335, .04980,
1543 + .00188, .14623, .23368,
1544 + .38168, .19968, 2.41939, .19497, .06062,
1545 + .00806, .14991, .23536,
1546 + .38646, .20104, 2.47435, .19624, .07178,
1547 + .01597, .15334, .23666,
1548 + .39048, .20212, 2.51386, .19727, .08122,
1549 + .02239, .15623, .23769 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .39425, .20308, 2.54479, .19836, .08973,
1552 + .02858, .15902, .23875,
1553 + .39718, .20379, 2.56408, .19934, .09590,
1554 + .03344, .16125, .23968,
1555 + .40045, .20452, 2.57926, .20059, .10230,
1556 + .03898, .16383, .24085,
1557 + .40314, .20507, 2.58714, .20174, .10711,
1558 + .04362, .16603, .24192,
1559 + .40549, .20552, 2.59103, .20285, .11098,
1560 + .04768, .16799, .24295,
1561 + .40819, .20597, 2.58875, .20415, .11513,
1562 + .05248, .17026, .24411,
1563 + .41050, .20629, 2.58147, .20528, .11848,
1564 + .05670, .17222, .24510,
1565 + .41252, .20652, 2.57141, .20626, .12126,
1566 + .06043, .17393, .24594 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .41437, .20668, 2.55780, .20713, .12374,
1569 + .06394, .17548, .24665,
1570 + .41599, .20675, 2.54059, .20781, .12588,
1571 + .06712, .17679, .24716,
1572 + .41743, .20679, 2.52300, .20839, .12776,
1573 + .07000, .17795, .24757,
1574 + .41864, .20675, 2.50338, .20877, .12933,
1575 + .07250, .17887, .24779,
1576 + .41977, .20668, 2.48270, .20909, .13080,
1577 + .07490, .17971, .24794,
1578 + .42076, .20656, 2.46039, .20928, .13210,
1579 + .07711, .18041, .24797,
1580 + .42162, .20641, 2.43820, .20939, .13323,
1581 + .07910, .18099, .24791,
1582 + .42234, .20623, 2.41592, .20941, .13420,
1583 + .08085, .18144, .24776 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .42302, .20603, 2.39303, .20938, .13511,
1586 + .08254, .18184, .24756,
1587 + .42357, .20578, 2.36901, .20924, .13590,
1588 + .08408, .18211, .24725,
1589 + .42409, .20554, 2.34642, .20910, .13662,
1590 + .08552, .18236, .24694,
1591 + .42445, .20526, 2.32320, .20884, .13717,
1592 + .08673, .18246, .24652,
1593 + .42481, .20498, 2.30015, .20858, .13772,
1594 + .08793, .18256, .24609 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .39104, .21575, .92414, .11914, .00163,
1597 + .00000, .07491, .16598,
1598 + .39819, .21790, 1.06383, .12369, .00296,
1599 + .00000, .07989, .17059,
1600 + .40764, .22061, 1.24062, .12995, .00511,
1601 + .00000, .08677, .17684,
1602 + .41385, .22228, 1.35180, .13412, .00688,
1603 + .00000, .09141, .18095,
1604 + .41979, .22377, 1.45288, .13807, .00901,
1605 + .00000, .09592, .18481,
1606 + .42449, .22489, 1.52876, .14112, .01113,
1607 + -.00001, .09951, .18774,
1608 + .42870, .22580, 1.59302, .14370, .01349,
1609 + -.00001, .10268, .19022,
1610 + .43273, .22662, 1.64984, .14605, .01638,
1611 + .00000, .10572, .19237 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .43600, .22721, 1.69245, .14773, .01929,
1614 + .00000, .10810, .19390,
1615 + .43898, .22771, 1.72942, .14907, .02247,
1616 + .00000, .11019, .19509,
1617 + .44115, .22802, 1.75366, .14990, .02525,
1618 + .00000, .11167, .19575,
1619 + .44543, .22855, 1.79689, .15107, .03190,
1620 + .00000, .11440, .19661,
1621 + .44870, .22882, 1.82395, .15149, .03822,
1622 + .00132, .11629, .19673,
1623 + .45194, .22896, 1.84478, .15150, .04555,
1624 + .00554, .11801, .19637,
1625 + .45485, .22894, 1.85710, .15122, .05295,
1626 + .01087, .11949, .19568,
1627 + .45715, .22877, 1.86115, .15088, .05907,
1628 + .01512, .12064, .19497 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45916, .22848, 1.85932, .15056, .06446,
1631 + .01915, .12170, .19426,
1632 + .46060, .22815, 1.85378, .15035, .06828,
1633 + .02227, .12250, .19371,
1634 + .46204, .22763, 1.84195, .15012, .07210,
1635 + .02576, .12337, .19307,
1636 + .46310, .22709, 1.82826, .14996, .07488,
1637 + .02863, .12407, .19252,
1638 + .46392, .22655, 1.81396, .14985, .07704,
1639 + .03112, .12468, .19205,
1640 + .46467, .22575, 1.79174, .14963, .07925,
1641 + .03401, .12528, .19137,
1642 + .46515, .22492, 1.76818, .14937, .08095,
1643 + .03649, .12572, .19066,
1644 + .46544, .22409, 1.74466, .14908, .08229,
1645 + .03867, .12605, .18995 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46556, .22319, 1.71955, .14871, .08342,
1648 + .04067, .12627, .18916,
1649 + .46548, .22224, 1.69316, .14825, .08433,
1650 + .04244, .12636, .18828,
1651 + .46532, .22132, 1.66791, .14778, .08509,
1652 + .04402, .12639, .18742,
1653 + .46499, .22039, 1.64271, .14724, .08567,
1654 + .04537, .12630, .18650,
1655 + .46460, .21944, 1.61728, .14666, .08618,
1656 + .04664, .12617, .18555,
1657 + .46409, .21846, 1.59158, .14602, .08660,
1658 + .04779, .12596, .18454,
1659 + .46352, .21751, 1.56697, .14538, .08693,
1660 + .04880, .12571, .18354,
1661 + .46289, .21658, 1.54329, .14472, .08716,
1662 + .04967, .12541, .18254 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46221, .21563, 1.51951, .14403, .08736,
1665 + .05049, .12508, .18151,
1666 + .46143, .21465, 1.49557, .14328, .08749,
1667 + .05122, .12469, .18043,
1668 + .46069, .21373, 1.47322, .14258, .08759,
1669 + .05190, .12431, .17942,
1670 + .45984, .21280, 1.45129, .14185, .08762,
1671 + .05246, .12388, .17838,
1672 + .45899, .21187, 1.42961, .14111, .08763,
1673 + .05301, .12344, .17733 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .46207, .24846, .93381, .10396, .00170,
1676 + .00000, .06827, .15662,
1677 + .46791, .24934, 1.04023, .10721, .00304,
1678 + .00000, .07205, .15946,
1679 + .47536, .25020, 1.16847, .11148, .00508,
1680 + .00000, .07711, .16311,
1681 + .48004, .25054, 1.24483, .11420, .00668,
1682 + .00000, .08041, .16533,
1683 + .48433, .25067, 1.31063, .11668, .00853,
1684 + .00000, .08352, .16727,
1685 + .48758, .25063, 1.35727, .11849, .01031,
1686 + .00000, .08593, .16860,
1687 + .49037, .25047, 1.39455, .11994, .01222,
1688 + -.00001, .08800, .16960,
1689 + .49289, .25014, 1.42465, .12114, .01452,
1690 + .00000, .08989, .17027 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49482, .24976, 1.44519, .12190, .01677,
1693 + .00000, .09132, .17058,
1694 + .49650, .24933, 1.46160, .12241, .01920,
1695 + .00000, .09253, .17067,
1696 + .49763, .24892, 1.47066, .12263, .02129,
1697 + .00000, .09334, .17053,
1698 + .49968, .24791, 1.48342, .12266, .02622,
1699 + .00000, .09473, .16982,
1700 + .50101, .24691, 1.48680, .12224, .03081,
1701 + .00097, .09557, .16875,
1702 + .50208, .24566, 1.48385, .12145, .03605,
1703 + .00406, .09620, .16722,
1704 + .50275, .24422, 1.47433, .12041, .04124,
1705 + .00791, .09661, .16543,
1706 + .50299, .24280, 1.46094, .11942, .04545,
1707 + .01093, .09684, .16376 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50293, .24128, 1.44370, .11847, .04908,
1710 + .01376, .09700, .16210,
1711 + .50267, .23995, 1.42695, .11771, .05158,
1712 + .01593, .09707, .16077,
1713 + .50206, .23823, 1.40357, .11682, .05402,
1714 + .01831, .09708, .15918,
1715 + .50130, .23667, 1.38119, .11606, .05572,
1716 + .02024, .09704, .15781,
1717 + .50048, .23521, 1.35990, .11541, .05700,
1718 + .02190, .09697, .15660,
1719 + .49916, .23326, 1.33066, .11453, .05823,
1720 + .02378, .09677, .15502,
1721 + .49770, .23138, 1.30204, .11367, .05910,
1722 + .02538, .09651, .15350,
1723 + .49620, .22959, 1.27483, .11284, .05975,
1724 + .02676, .09620, .15206 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49454, .22776, 1.24708, .11198, .06025,
1727 + .02801, .09583, .15058,
1728 + .49273, .22593, 1.21923, .11107, .06059,
1729 + .02909, .09538, .14908,
1730 + .49096, .22419, 1.19315, .11020, .06084,
1731 + .03004, .09492, .14766,
1732 + .48913, .22251, 1.16808, .10931, .06099,
1733 + .03084, .09441, .14626,
1734 + .48724, .22082, 1.14321, .10842, .06110,
1735 + .03158, .09389, .14485,
1736 + .48528, .21912, 1.11867, .10749, .06113,
1737 + .03223, .09332, .14343,
1738 + .48335, .21751, 1.09557, .10660, .06113,
1739 + .03279, .09276, .14206,
1740 + .48144, .21596, 1.07375, .10572, .06107,
1741 + .03326, .09218, .14075 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .47948, .21440, 1.05209, .10484, .06100,
1744 + .03370, .09158, .13942,
1745 + .47745, .21284, 1.03068, .10394, .06087,
1746 + .03408, .09095, .13807,
1747 + .47552, .21138, 1.01080, .10309, .06074,
1748 + .03442, .09036, .13681,
1749 + .47356, .20994, .99172, .10223, .06057,
1750 + .03468, .08975, .13557,
1751 + .47161, .20850, .97295, .10138, .06039,
1752 + .03493, .08914, .13433 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52311, .27286, .94066, .09061, .00173,
1755 + -.00001, .06187, .14599,
1756 + .52710, .27232, 1.01949, .09291, .00304,
1757 + .00000, .06475, .14749,
1758 + .53176, .27116, 1.10907, .09582, .00498,
1759 + .00000, .06846, .14913,
1760 + .53442, .27010, 1.15874, .09756, .00643,
1761 + .00000, .07079, .14998,
1762 + .53662, .26879, 1.19831, .09903, .00805,
1763 + -.00001, .07291, .15053,
1764 + .53807, .26755, 1.22380, .10002, .00955,
1765 + -.00001, .07449, .15075,
1766 + .53912, .26629, 1.24202, .10074, .01113,
1767 + -.00001, .07580, .15074,
1768 + .53984, .26479, 1.25368, .10122, .01298,
1769 + -.00001, .07692, .15043 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54017, .26344, 1.25936, .10142, .01476,
1772 + -.00001, .07772, .14993,
1773 + .54031, .26211, 1.26217, .10144, .01665,
1774 + -.00001, .07836, .14928,
1775 + .54025, .26099, 1.26139, .10131, .01826,
1776 + -.00001, .07875, .14862,
1777 + .53978, .25850, 1.25492, .10068, .02198,
1778 + -.00001, .07929, .14693,
1779 + .53897, .25627, 1.24392, .09981, .02540,
1780 + .00073, .07948, .14516,
1781 + .53767, .25369, 1.22703, .09861, .02924,
1782 + .00307, .07947, .14295,
1783 + .53592, .25092, 1.20524, .09722, .03298,
1784 + .00596, .07927, .14054,
1785 + .53400, .24835, 1.18254, .09594, .03595,
1786 + .00819, .07898, .13833 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53179, .24572, 1.15750, .09468, .03846,
1789 + .01025, .07862, .13617,
1790 + .52976, .24349, 1.13541, .09369, .04015,
1791 + .01181, .07830, .13442,
1792 + .52705, .24072, 1.10699, .09249, .04173,
1793 + .01351, .07785, .13236,
1794 + .52446, .23826, 1.08116, .09149, .04279,
1795 + .01487, .07742, .13058,
1796 + .52199, .23601, 1.05737, .09061, .04355,
1797 + .01602, .07700, .12899,
1798 + .51863, .23308, 1.02624, .08944, .04422,
1799 + .01730, .07641, .12696,
1800 + .51526, .23032, .99675, .08834, .04465,
1801 + .01838, .07579, .12507,
1802 + .51201, .22774, .96937, .08731, .04492,
1803 + .01929, .07518, .12331 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .50866, .22514, .94210, .08626, .04508,
1806 + .02010, .07454, .12154,
1807 + .50524, .22256, .91539, .08518, .04514,
1808 + .02079, .07384, .11979,
1809 + .50197, .22015, .89073, .08417, .04515,
1810 + .02139, .07318, .11815,
1811 + .49874, .21786, .86750, .08320, .04509,
1812 + .02188, .07250, .11657,
1813 + .49547, .21558, .84470, .08222, .04500,
1814 + .02233, .07180, .11500,
1815 + .49218, .21333, .82252, .08123, .04486,
1816 + .02271, .07110, .11345,
1817 + .48901, .21119, .80187, .08029, .04471,
1818 + .02304, .07042, .11198,
1819 + .48594, .20917, .78260, .07938, .04453,
1820 + .02330, .06976, .11058 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48284, .20714, .76361, .07847, .04433,
1823 + .02354, .06908, .10917,
1824 + .47970, .20513, .74507, .07756, .04411,
1825 + .02374, .06839, .10778,
1826 + .47673, .20325, .72793, .07671, .04390,
1827 + .02391, .06775, .10647,
1828 + .47381, .20143, .71172, .07587, .04365,
1829 + .02403, .06710, .10521,
1830 + .47090, .19962, .69582, .07503, .04341,
1831 + .02416, .06645, .10397 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .58703, .29356, .93950, .07576, .00172,
1834 + -.00001, .05402, .13118,
1835 + .58815, .29121, .98960, .07724, .00298,
1836 + -.00002, .05604, .13138,
1837 + .58870, .28749, 1.04039, .07893, .00475,
1838 + -.00001, .05851, .13129,
1839 + .58841, .28468, 1.06430, .07984, .00603,
1840 + -.00001, .05998, .13093,
1841 + .58756, .28164, 1.07929, .08052, .00739,
1842 + -.00002, .06124, .13030,
1843 + .58644, .27898, 1.08551, .08088, .00862,
1844 + -.00002, .06212, .12957,
1845 + .58507, .27640, 1.08680, .08104, .00988,
1846 + -.00001, .06278, .12872,
1847 + .58326, .27356, 1.08251, .08097, .01130,
1848 + -.00001, .06328, .12760 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58146, .27106, 1.07565, .08074, .01264,
1851 + -.00001, .06358, .12649,
1852 + .57959, .26865, 1.06726, .08040, .01404,
1853 + -.00001, .06377, .12531,
1854 + .57794, .26671, 1.05856, .08002, .01521,
1855 + -.00001, .06382, .12428,
1856 + .57412, .26258, 1.03709, .07900, .01788,
1857 + -.00001, .06372, .12190,
1858 + .57051, .25898, 1.01535, .07788, .02027,
1859 + .00053, .06343, .11966,
1860 + .56618, .25495, .98858, .07648, .02291,
1861 + .00222, .06295, .11705,
1862 + .56135, .25076, .95867, .07495, .02543,
1863 + .00430, .06233, .11429,
1864 + .55673, .24696, .93029, .07356, .02739,
1865 + .00588, .06170, .11181 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .55188, .24313, .90096, .07220, .02899,
1868 + .00731, .06103, .10939,
1869 + .54772, .23996, .87630, .07110, .03002,
1870 + .00838, .06046, .10746,
1871 + .54246, .23613, .84599, .06982, .03096,
1872 + .00952, .05973, .10515,
1873 + .53770, .23275, .81935, .06873, .03154,
1874 + .01042, .05907, .10318,
1875 + .53332, .22968, .79536, .06775, .03191,
1876 + .01118, .05846, .10143,
1877 + .52754, .22579, .76494, .06651, .03219,
1878 + .01201, .05764, .09924,
1879 + .52202, .22215, .73687, .06534, .03231,
1880 + .01270, .05686, .09722,
1881 + .51680, .21878, .71128, .06426, .03232,
1882 + .01327, .05611, .09535 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51152, .21546, .68629, .06319, .03227,
1885 + .01377, .05533, .09352,
1886 + .50624, .21221, .66231, .06213, .03216,
1887 + .01418, .05454, .09171,
1888 + .50129, .20919, .64042, .06114, .03202,
1889 + .01452, .05380, .09003,
1890 + .49654, .20633, .62012, .06017, .03185,
1891 + .01480, .05308, .08846,
1892 + .49178, .20351, .60041, .05921, .03166,
1893 + .01505, .05236, .08690,
1894 + .48705, .20074, .58150, .05828, .03144,
1895 + .01525, .05163, .08538,
1896 + .48254, .19814, .56406, .05741, .03121,
1897 + .01541, .05093, .08396,
1898 + .47825, .19571, .54796, .05658, .03098,
1899 + .01553, .05027, .08261 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .47394, .19328, .53223, .05574, .03074,
1902 + .01564, .04961, .08128,
1903 + .46965, .19088, .51702, .05491, .03048,
1904 + .01571, .04894, .07997,
1905 + .46562, .18863, .50303, .05412, .03024,
1906 + .01578, .04833, .07874,
1907 + .46169, .18649, .48994, .05338, .02999,
1908 + .01582, .04772, .07756,
1909 + .45779, .18437, .47716, .05264, .02974,
1910 + .01587, .04713, .07640 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .63816, .30509, .92573, .06267, .00166,
1913 + -.00002, .04645, .11539,
1914 + .63607, .30098, .95221, .06357, .00284,
1915 + -.00004, .04784, .11476,
1916 + .63198, .29489, .97230, .06449, .00445,
1917 + -.00003, .04945, .11346,
1918 + .62849, .29046, .97659, .06487, .00557,
1919 + -.00003, .05033, .11234,
1920 + .62438, .28583, .97348, .06504, .00672,
1921 + -.00003, .05100, .11101,
1922 + .62056, .28187, .96595, .06500, .00772,
1923 + -.00003, .05143, .10973,
1924 + .61672, .27808, .95549, .06482, .00871,
1925 + -.00003, .05169, .10841,
1926 + .61229, .27406, .94048, .06445, .00981,
1927 + -.00004, .05180, .10687 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .60828, .27058, .92546, .06401, .01082,
1930 + -.00004, .05179, .10543,
1931 + .60434, .26726, .90999, .06351, .01186,
1932 + -.00003, .05170, .10398,
1933 + .60107, .26463, .89645, .06303, .01272,
1934 + -.00003, .05155, .10278,
1935 + .59396, .25907, .86621, .06184, .01464,
1936 + -.00003, .05111, .10012,
1937 + .58760, .25435, .83862, .06067, .01634,
1938 + .00037, .05059, .09772,
1939 + .58033, .24914, .80694, .05926, .01817,
1940 + .00164, .04989, .09500,
1941 + .57257, .24380, .77350, .05776, .01987,
1942 + .00317, .04908, .09221,
1943 + .56539, .23903, .74312, .05642, .02116,
1944 + .00431, .04831, .08973 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .55807, .23428, .71278, .05511, .02218,
1947 + .00534, .04752, .08732,
1948 + .55195, .23038, .68796, .05406, .02282,
1949 + .00611, .04685, .08538,
1950 + .54439, .22570, .65827, .05282, .02334,
1951 + .00689, .04603, .08312,
1952 + .53767, .22164, .63271, .05177, .02364,
1953 + .00751, .04531, .08119,
1954 + .53154, .21799, .61006, .05083, .02380,
1955 + .00802, .04465, .07947,
1956 + .52368, .21338, .58191, .04964, .02387,
1957 + .00858, .04379, .07734,
1958 + .51625, .20913, .55640, .04855, .02382,
1959 + .00903, .04296, .07539,
1960 + .50932, .20524, .53346, .04755, .02373,
1961 + .00939, .04220, .07360 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .50240, .20141, .51135, .04656, .02358,
1964 + .00970, .04143, .07184,
1965 + .49560, .19768, .49045, .04559, .02340,
1966 + .00994, .04066, .07016,
1967 + .48924, .19424, .47155, .04469, .02320,
1968 + .01015, .03994, .06861,
1969 + .48321, .19102, .45425, .04384, .02299,
1970 + .01030, .03927, .06716,
1971 + .47720, .18786, .43758, .04300, .02277,
1972 + .01043, .03859, .06573,
1973 + .47129, .18479, .42173, .04218, .02253,
1974 + .01053, .03791, .06434,
1975 + .46572, .18191, .40725, .04141, .02230,
1976 + .01061, .03728, .06305,
1977 + .46046, .17921, .39399, .04069, .02206,
1978 + .01067, .03669, .06184 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .45520, .17654, .38111, .03997, .02182,
1981 + .01072, .03609, .06065,
1982 + .44998, .17392, .36877, .03926, .02158,
1983 + .01075, .03550, .05949,
1984 + .44510, .17149, .35746, .03859, .02135,
1985 + .01077, .03494, .05842,
1986 + .44043, .16915, .34698, .03795, .02111,
1987 + .01076, .03442, .05740,
1988 + .43579, .16684, .33678, .03732, .02088,
1989 + .01076, .03389, .05639 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .67715, .30896, .89993, .05123, .00157,
1992 + -.00001, .03932, .09950,
1993 + .67159, .30333, .90714, .05177, .00265,
1994 + -.00001, .04025, .09831,
1995 + .66269, .29516, .90306, .05219, .00407,
1996 + .00000, .04122, .09635,
1997 + .65589, .28933, .89250, .05224, .00502,
1998 + .00000, .04169, .09480,
1999 + .64850, .28332, .87612, .05211, .00598,
2000 + -.00001, .04198, .09307,
2001 + .64197, .27826, .85886, .05186, .00679,
2002 + -.00001, .04210, .09151,
2003 + .63560, .27349, .84036, .05152, .00757,
2004 + -.00001, .04211, .08997,
2005 + .62862, .26849, .81829, .05102, .00842,
2006 + -.00002, .04198, .08823 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .62248, .26421, .79810, .05049, .00918,
2009 + -.00002, .04179, .08669,
2010 + .61654, .26015, .77833, .04993, .00995,
2011 + -.00002, .04155, .08517,
2012 + .61173, .25696, .76201, .04943, .01056,
2013 + -.00001, .04131, .08392,
2014 + .60146, .25030, .72703, .04826, .01194,
2015 + -.00001, .04069, .08123,
2016 + .59254, .24469, .69669, .04714, .01313,
2017 + .00029, .04006, .07888,
2018 + .58254, .23858, .66317, .04584, .01439,
2019 + .00123, .03928, .07629,
2020 + .57212, .23237, .62894, .04447, .01553,
2021 + .00236, .03843, .07364,
2022 + .56267, .22687, .59870, .04325, .01637,
2023 + .00318, .03763, .07132 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .55315, .22144, .56919, .04206, .01701,
2026 + .00391, .03682, .06907,
2027 + .54527, .21703, .54550, .04112, .01739,
2028 + .00445, .03616, .06726,
2029 + .53572, .21180, .51770, .04000, .01766,
2030 + .00501, .03536, .06516,
2031 + .52732, .20727, .49415, .03905, .01779,
2032 + .00544, .03465, .06337,
2033 + .51970, .20322, .47349, .03822, .01783,
2034 + .00580, .03400, .06179,
2035 + .51005, .19817, .44823, .03716, .01779,
2036 + .00616, .03319, .05984,
2037 + .50103, .19354, .42568, .03621, .01767,
2038 + .00644, .03242, .05806,
2039 + .49272, .18929, .40562, .03533, .01752,
2040 + .00667, .03171, .05646 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .48451, .18513, .38646, .03444, .01733,
2043 + .00687, .03100, .05492,
2044 + .47649, .18114, .36858, .03359, .01713,
2045 + .00702, .03031, .05341,
2046 + .46902, .17747, .35254, .03281, .01693,
2047 + .00714, .02968, .05203,
2048 + .46197, .17406, .33802, .03209, .01672,
2049 + .00722, .02906, .05076,
2050 + .45502, .17072, .32410, .03138, .01650,
2051 + .00729, .02846, .04952,
2052 + .44824, .16746, .31098, .03068, .01627,
2053 + .00734, .02788, .04833,
2054 + .44187, .16444, .29905, .03003, .01605,
2055 + .00738, .02733, .04721,
2056 + .43587, .16162, .28822, .02943, .01584,
2057 + .00740, .02682, .04618 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .42990, .15885, .27776, .02884, .01563,
2060 + .00741, .02631, .04516,
2061 + .42402, .15614, .26781, .02825, .01541,
2062 + .00741, .02580, .04417,
2063 + .41853, .15362, .25874, .02771, .01521,
2064 + .00741, .02533, .04326,
2065 + .41329, .15124, .25039, .02720, .01500,
2066 + .00738, .02489, .04239,
2067 + .40810, .14889, .24228, .02669, .01479,
2068 + .00736, .02445, .04153 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .70452, .30656, .86364, .04136, .00144,
2071 + -.00002, .03276, .08423,
2072 + .69551, .29959, .85536, .04165, .00240,
2073 + -.00002, .03337, .08275,
2074 + .68187, .28961, .83255, .04175, .00366,
2075 + -.00003, .03392, .08043,
2076 + .67183, .28261, .81094, .04161, .00447,
2077 + -.00003, .03412, .07869,
2078 + .66123, .27550, .78507, .04133, .00526,
2079 + -.00003, .03418, .07681,
2080 + .65209, .26955, .76113, .04099, .00591,
2081 + -.00003, .03411, .07516,
2082 + .64334, .26400, .73732, .04058, .00652,
2083 + -.00002, .03396, .07357,
2084 + .63397, .25822, .71088, .04004, .00717,
2085 + -.00002, .03371, .07183 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .62582, .25331, .68768, .03950, .00774,
2088 + -.00001, .03343, .07030,
2089 + .61802, .24869, .66556, .03894, .00830,
2090 + -.00001, .03312, .06883,
2091 + .61181, .24508, .64786, .03846, .00875,
2092 + -.00002, .03283, .06764,
2093 + .59869, .23758, .61089, .03735, .00973,
2094 + -.00001, .03217, .06511,
2095 + .58747, .23133, .57983, .03635, .01056,
2096 + .00021, .03153, .06293,
2097 + .57509, .22455, .54637, .03519, .01142,
2098 + .00092, .03076, .06055,
2099 + .56234, .21774, .51303, .03398, .01218,
2100 + .00176, .02994, .05816,
2101 + .55089, .21176, .48418, .03293, .01271,
2102 + .00236, .02919, .05607 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .53949, .20590, .45650, .03190, .01310,
2105 + .00289, .02844, .05405,
2106 + .53016, .20117, .43460, .03107, .01331,
2107 + .00329, .02782, .05245,
2108 + .51892, .19559, .40930, .03013, .01344,
2109 + .00369, .02707, .05058,
2110 + .50914, .19079, .38812, .02930, .01347,
2111 + .00399, .02642, .04901,
2112 + .50035, .18650, .36973, .02857, .01345,
2113 + .00423, .02584, .04762,
2114 + .48929, .18119, .34754, .02767, .01333,
2115 + .00448, .02511, .04592,
2116 + .47904, .17635, .32795, .02685, .01319,
2117 + .00468, .02443, .04438,
2118 + .46962, .17196, .31069, .02610, .01302,
2119 + .00483, .02380, .04299 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46037, .16767, .29438, .02536, .01284,
2122 + .00495, .02319, .04165,
2123 + .45140, .16357, .27929, .02466, .01264,
2124 + .00503, .02259, .04036,
2125 + .44309, .15982, .26583, .02403, .01246,
2126 + .00510, .02204, .03918,
2127 + .43535, .15634, .25374, .02342, .01226,
2128 + .00514, .02152, .03810,
2129 + .42772, .15294, .24224, .02283, .01207,
2130 + .00518, .02101, .03705,
2131 + .42030, .14965, .23149, .02227, .01186,
2132 + .00520, .02051, .03605,
2133 + .41336, .14661, .22177, .02174, .01167,
2134 + .00521, .02005, .03513,
2135 + .40685, .14378, .21300, .02124, .01149,
2136 + .00521, .01962, .03427 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40040, .14100, .20456, .02075, .01131,
2139 + .00520, .01920, .03343,
2140 + .39408, .13830, .19657, .02030, .01112,
2141 + .00519, .01879, .03261,
2142 + .38818, .13579, .18931, .01988, .01094,
2143 + .00519, .01841, .03185,
2144 + .38259, .13342, .18268, .01947, .01077,
2145 + .00517, .01804, .03116,
2146 + .37706, .13109, .17627, .01907, .01059,
2147 + .00514, .01767, .03048 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .72093, .29898, .81877, .03295, .00130,
2150 + -.00002, .02690, .07004,
2151 + .70858, .29090, .79835, .03307, .00216,
2152 + -.00003, .02728, .06846,
2153 + .69036, .27950, .76143, .03299, .00324,
2154 + -.00003, .02755, .06606,
2155 + .67726, .27159, .73191, .03277, .00392,
2156 + -.00002, .02758, .06431,
2157 + .66370, .26360, .69958, .03241, .00456,
2158 + .00000, .02749, .06247,
2159 + .65215, .25699, .67135, .03203, .00509,
2160 + .00000, .02733, .06086,
2161 + .64122, .25087, .64437, .03161, .00556,
2162 + -.00001, .02712, .05930,
2163 + .62966, .24452, .61556, .03109, .00606,
2164 + .00001, .02680, .05766 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .61973, .23916, .59095, .03058, .00648,
2167 + .00000, .02649, .05625,
2168 + .61029, .23414, .56788, .03006, .00688,
2169 + -.00001, .02616, .05489,
2170 + .60285, .23023, .54978, .02962, .00720,
2171 + -.00002, .02588, .05380,
2172 + .58724, .22217, .51269, .02866, .00789,
2173 + -.00002, .02523, .05151,
2174 + .57403, .21550, .48227, .02779, .00846,
2175 + .00017, .02461, .04958,
2176 + .55957, .20835, .45012, .02680, .00904,
2177 + .00071, .02390, .04749,
2178 + .54485, .20119, .41870, .02578, .00954,
2179 + .00133, .02316, .04538,
2180 + .53178, .19493, .39196, .02489, .00987,
2181 + .00179, .02248, .04357 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .51887, .18885, .36667, .02402, .01010,
2184 + .00218, .02180, .04183,
2185 + .50839, .18394, .34691, .02331, .01020,
2186 + .00246, .02126, .04048,
2187 + .49582, .17821, .32432, .02250, .01025,
2188 + .00274, .02061, .03886,
2189 + .48497, .17329, .30563, .02182, .01022,
2190 + .00296, .02004, .03751,
2191 + .47527, .16892, .28956, .02122, .01015,
2192 + .00313, .01954, .03634,
2193 + .46314, .16353, .27035, .02048, .01002,
2194 + .00330, .01892, .03490,
2195 + .45198, .15865, .25358, .01979, .00987,
2196 + .00343, .01832, .03361,
2197 + .44178, .15424, .23892, .01917, .00971,
2198 + .00352, .01778, .03245 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .43177, .14997, .22516, .01860, .00954,
2201 + .00359, .01727, .03131,
2202 + .42217, .14590, .21257, .01802, .00936,
2203 + .00365, .01676, .03024,
2204 + .41334, .14217, .20142, .01748, .00920,
2205 + .00369, .01630, .02927,
2206 + .40512, .13873, .19146, .01699, .00903,
2207 + .00371, .01588, .02838,
2208 + .39704, .13538, .18205, .01653, .00885,
2209 + .00372, .01546, .02752,
2210 + .38921, .13218, .17331, .01609, .00868,
2211 + .00372, .01506, .02668,
2212 + .38192, .12920, .16545, .01567, .00851,
2213 + .00372, .01468, .02593,
2214 + .37513, .12644, .15836, .01528, .00835,
2215 + .00371, .01433, .02525 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .36842, .12372, .15159, .01489, .00819,
2218 + .00370, .01398, .02458,
2219 + .36186, .12111, .14522, .01452, .00804,
2220 + .00367, .01365, .02392,
2221 + .35575, .11869, .13945, .01418, .00790,
2222 + .00365, .01333, .02332,
2223 + .35000, .11640, .13422, .01386, .00776,
2224 + .00363, .01305, .02275,
2225 + .34433, .11415, .12916, .01355, .00762,
2226 + .00361, .01276, .02220 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .72700, .28729, .76735, .02589, .00116,
2229 + .00005, .02177, .05727,
2230 + .71151, .27838, .73775, .02594, .00191,
2231 + .00004, .02199, .05571,
2232 + .68904, .26596, .69074, .02579, .00282,
2233 + .00004, .02207, .05340,
2234 + .67315, .25740, .65591, .02554, .00338,
2235 + .00004, .02200, .05173,
2236 + .65690, .24881, .61958, .02518, .00390,
2237 + .00004, .02183, .04999,
2238 + .64322, .24172, .58894, .02481, .00430,
2239 + .00004, .02163, .04852,
2240 + .63040, .23520, .56041, .02441, .00466,
2241 + .00005, .02137, .04713,
2242 + .61693, .22852, .53072, .02394, .00502,
2243 + .00004, .02106, .04563 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60544, .22290, .50584, .02349, .00533,
2246 + .00003, .02074, .04437,
2247 + .59460, .21765, .48284, .02304, .00563,
2248 + .00003, .02042, .04316,
2249 + .58611, .21357, .46508, .02267, .00586,
2250 + .00002, .02015, .04221,
2251 + .56839, .20523, .42922, .02185, .00633,
2252 + .00003, .01955, .04022,
2253 + .55357, .19833, .40033, .02111, .00671,
2254 + .00016, .01900, .03856,
2255 + .53751, .19096, .37028, .02028, .00709,
2256 + .00056, .01838, .03678,
2257 + .52128, .18365, .34139, .01943, .00740,
2258 + .00101, .01771, .03502,
2259 + .50694, .17732, .31713, .01869, .00760,
2260 + .00134, .01712, .03350 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .49288, .17118, .29445, .01798, .00772,
2263 + .00164, .01656, .03202,
2264 + .48149, .16628, .27693, .01742, .00776,
2265 + .00183, .01610, .03085,
2266 + .46796, .16055, .25712, .01677, .00775,
2267 + .00203, .01554, .02952,
2268 + .45636, .15566, .24088, .01620, .00769,
2269 + .00217, .01506, .02841,
2270 + .44605, .15134, .22700, .01570, .00761,
2271 + .00228, .01463, .02743,
2272 + .43319, .14602, .21059, .01511, .00749,
2273 + .00239, .01411, .02623,
2274 + .42144, .14121, .19640, .01455, .00734,
2275 + .00248, .01363, .02518,
2276 + .41076, .13688, .18410, .01404, .00719,
2277 + .00254, .01319, .02424 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40033, .13273, .17268, .01357, .00704,
2280 + .00258, .01276, .02331,
2281 + .39034, .12878, .16226, .01313, .00689,
2282 + .00261, .01234, .02244,
2283 + .38118, .12517, .15307, .01273, .00675,
2284 + .00264, .01197, .02165,
2285 + .37269, .12187, .14493, .01235, .00660,
2286 + .00264, .01163, .02094,
2287 + .36440, .11864, .13728, .01197, .00645,
2288 + .00264, .01129, .02026,
2289 + .35646, .11554, .13020, .01159, .00631,
2290 + .00265, .01096, .01962,
2291 + .34905, .11269, .12388, .01125, .00618,
2292 + .00264, .01066, .01902,
2293 + .34214, .11008, .11823, .01096, .00605,
2294 + .00263, .01038, .01845 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .33532, .10752, .11283, .01068, .00593,
2297 + .00261, .01011, .01790,
2298 + .32869, .10504, .10777, .01040, .00580,
2299 + .00258, .00985, .01737,
2300 + .32253, .10274, .10319, .01014, .00568,
2301 + .00256, .00961, .01689,
2302 + .31677, .10058, .09908, .00989, .00557,
2303 + .00254, .00938, .01646,
2304 + .31110, .09846, .09511, .00964, .00546,
2305 + .00253, .00916, .01604 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .72321, .27273, .71144, .02031, .00092,
2308 + -.00016, .01719, .04602,
2309 + .70494, .26321, .67523, .02028, .00156,
2310 + -.00016, .01732, .04458,
2311 + .67881, .25003, .62145, .02007, .00234,
2312 + -.00015, .01733, .04246,
2313 + .66051, .24103, .58345, .01982, .00280,
2314 + -.00014, .01722, .04095,
2315 + .64195, .23208, .54508, .01947, .00322,
2316 + -.00015, .01704, .03940,
2317 + .62647, .22473, .51352, .01912, .00354,
2318 + -.00015, .01682, .03810,
2319 + .61203, .21800, .48463, .01877, .00382,
2320 + -.00013, .01657, .03688,
2321 + .59706, .21109, .45524, .01832, .00409,
2322 + -.00015, .01627, .03562 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58433, .20533, .43093, .01794, .00431,
2325 + -.00014, .01599, .03451,
2326 + .57235, .19999, .40870, .01757, .00452,
2327 + -.00012, .01571, .03346,
2328 + .56301, .19585, .39177, .01726, .00467,
2329 + -.00012, .01547, .03266,
2330 + .54370, .18739, .35800, .01655, .00499,
2331 + -.00011, .01494, .03101,
2332 + .52764, .18048, .33120, .01594, .00525,
2333 + .00000, .01447, .02961,
2334 + .51034, .17312, .30368, .01526, .00550,
2335 + .00029, .01395, .02811,
2336 + .49295, .16586, .27760, .01459, .00569,
2337 + .00064, .01340, .02663,
2338 + .47771, .15958, .25599, .01399, .00580,
2339 + .00091, .01290, .02539 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46288, .15352, .23599, .01341, .00585,
2342 + .00113, .01242, .02421,
2343 + .45092, .14872, .22068, .01294, .00585,
2344 + .00127, .01205, .02326,
2345 + .43684, .14311, .20355, .01241, .00582,
2346 + .00142, .01159, .02216,
2347 + .42477, .13835, .18963, .01197, .00575,
2348 + .00153, .01119, .02125,
2349 + .41405, .13415, .17782, .01158, .00567,
2350 + .00161, .01084, .02047,
2351 + .40082, .12903, .16402, .01108, .00555,
2352 + .00169, .01041, .01952,
2353 + .38877, .12442, .15212, .01064, .00542,
2354 + .00175, .01003, .01867,
2355 + .37785, .12028, .14187, .01025, .00530,
2356 + .00180, .00968, .01790 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .36725, .11632, .13242, .00988, .00516,
2359 + .00182, .00934, .01716,
2360 + .35715, .11255, .12387, .00953, .00504,
2361 + .00184, .00900, .01648,
2362 + .34790, .10912, .11639, .00921, .00492,
2363 + .00186, .00870, .01586,
2364 + .33938, .10599, .10980, .00892, .00479,
2365 + .00186, .00843, .01531,
2366 + .33106, .10297, .10363, .00864, .00467,
2367 + .00186, .00817, .01477,
2368 + .32305, .10009, .09795, .00837, .00456,
2369 + .00186, .00792, .01424,
2370 + .31566, .09742, .09289, .00811, .00446,
2371 + .00185, .00769, .01376,
2372 + .30884, .09496, .08838, .00786, .00436,
2373 + .00183, .00747, .01334 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30213, .09256, .08410, .00763, .00426,
2376 + .00182, .00726, .01293,
2377 + .29560, .09025, .08012, .00741, .00416,
2378 + .00180, .00705, .01253,
2379 + .28955, .08812, .07653, .00722, .00406,
2380 + .00179, .00686, .01217,
2381 + .28388, .08613, .07330, .00702, .00398,
2382 + .00177, .00669, .01182,
2383 + .27830, .08419, .07020, .00683, .00390,
2384 + .00176, .00652, .01147 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .71114, .25538, .65241, .01550, .00083,
2387 + -.00005, .01356, .03637,
2388 + .69038, .24555, .61183, .01544, .00136,
2389 + -.00005, .01361, .03513,
2390 + .66104, .23197, .55414, .01524, .00199,
2391 + -.00003, .01354, .03328,
2392 + .64069, .22279, .51471, .01502, .00237,
2393 + -.00003, .01341, .03196,
2394 + .62020, .21371, .47584, .01473, .00270,
2395 + -.00002, .01320, .03061,
2396 + .60322, .20630, .44448, .01445, .00294,
2397 + -.00002, .01299, .02950,
2398 + .58748, .19954, .41624, .01415, .00314,
2399 + -.00002, .01276, .02847,
2400 + .57126, .19262, .38791, .01378, .00333,
2401 + -.00003, .01250, .02740 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55756, .18687, .36483, .01346, .00349,
2404 + -.00003, .01225, .02648,
2405 + .54474, .18154, .34394, .01315, .00364,
2406 + -.00003, .01200, .02561,
2407 + .53478, .17744, .32814, .01289, .00374,
2408 + -.00002, .01180, .02494,
2409 + .51431, .16908, .29696, .01232, .00395,
2410 + -.00002, .01135, .02356,
2411 + .49734, .16228, .27259, .01184, .00411,
2412 + .00006, .01095, .02243,
2413 + .47917, .15511, .24789, .01131, .00425,
2414 + .00028, .01051, .02122,
2415 + .46107, .14804, .22474, .01077, .00437,
2416 + .00053, .01006, .02003,
2417 + .44530, .14196, .20575, .01030, .00442,
2418 + .00071, .00965, .01902 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43000, .13614, .18838, .00985, .00443,
2421 + .00087, .00926, .01805,
2422 + .41774, .13151, .17520, .00948, .00441,
2423 + .00097, .00896, .01731,
2424 + .40336, .12615, .16057, .00906, .00436,
2425 + .00108, .00858, .01645,
2426 + .39109, .12161, .14878, .00872, .00429,
2427 + .00115, .00826, .01572,
2428 + .38024, .11763, .13885, .00843, .00422,
2429 + .00121, .00798, .01508,
2430 + .36689, .11279, .12732, .00804, .00411,
2431 + .00125, .00765, .01433,
2432 + .35482, .10844, .11746, .00769, .00399,
2433 + .00129, .00734, .01366,
2434 + .34392, .10455, .10903, .00739, .00389,
2435 + .00131, .00706, .01307 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .33336, .10083, .10130, .00711, .00378,
2438 + .00132, .00678, .01251,
2439 + .32335, .09733, .09435, .00684, .00367,
2440 + .00134, .00653, .01197,
2441 + .31423, .09415, .08829, .00659, .00358,
2442 + .00134, .00630, .01147,
2443 + .30583, .09125, .08300, .00636, .00348,
2444 + .00134, .00608, .01104,
2445 + .29767, .08844, .07806, .00614, .00339,
2446 + .00133, .00588, .01063,
2447 + .28985, .08577, .07354, .00593, .00330,
2448 + .00132, .00568, .01024,
2449 + .28264, .08332, .06953, .00573, .00321,
2450 + .00131, .00550, .00988,
2451 + .27600, .08106, .06598, .00555, .00313,
2452 + .00130, .00534, .00955 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .26947, .07887, .06262, .00538, .00305,
2455 + .00128, .00518, .00922,
2456 + .26315, .07676, .05950, .00522, .00298,
2457 + .00127, .00502, .00892,
2458 + .25730, .07482, .05669, .00507, .00290,
2459 + .00126, .00487, .00865,
2460 + .25184, .07301, .05418, .00493, .00283,
2461 + .00125, .00474, .00840,
2462 + .24647, .07123, .05177, .00480, .00277,
2463 + .00123, .00461, .00815 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .69119, .23652, .59214, .01170, .00069,
2466 + -.00004, .01046, .02832,
2467 + .66842, .22654, .54912, .01165, .00114,
2468 + -.00006, .01049, .02722,
2469 + .63645, .21295, .48986, .01149, .00164,
2470 + -.00004, .01040, .02564,
2471 + .61449, .20376, .45040, .01130, .00193,
2472 + -.00003, .01027, .02454,
2473 + .59254, .19471, .41224, .01105, .00218,
2474 + -.00003, .01008, .02343,
2475 + .57446, .18737, .38194, .01080, .00237,
2476 + -.00004, .00989, .02252,
2477 + .55781, .18068, .35502, .01055, .00253,
2478 + -.00003, .00970, .02166,
2479 + .54070, .17391, .32839, .01027, .00267,
2480 + -.00004, .00948, .02073 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52632, .16828, .30688, .01002, .00278,
2483 + -.00003, .00926, .01999,
2484 + .51291, .16308, .28758, .00977, .00289,
2485 + -.00002, .00904, .01930,
2486 + .50257, .15908, .27314, .00956, .00295,
2487 + -.00002, .00887, .01877,
2488 + .48129, .15102, .24494, .00912, .00307,
2489 + -.00003, .00850, .01765,
2490 + .46384, .14447, .22316, .00874, .00318,
2491 + .00002, .00818, .01674,
2492 + .44524, .13757, .20130, .00831, .00326,
2493 + .00019, .00782, .01578,
2494 + .42681, .13082, .18103, .00789, .00332,
2495 + .00039, .00746, .01484,
2496 + .41083, .12504, .16459, .00752, .00334,
2497 + .00052, .00714, .01403 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .39539, .11950, .14969, .00717, .00332,
2500 + .00063, .00683, .01330,
2501 + .38305, .11515, .13850, .00691, .00329,
2502 + .00071, .00657, .01272,
2503 + .36866, .11010, .12615, .00659, .00322,
2504 + .00078, .00629, .01203,
2505 + .35646, .10586, .11627, .00631, .00316,
2506 + .00083, .00604, .01147,
2507 + .34571, .10215, .10801, .00607, .00310,
2508 + .00087, .00581, .01100,
2509 + .33252, .09764, .09845, .00577, .00301,
2510 + .00089, .00554, .01042,
2511 + .32067, .09361, .09037, .00550, .00292,
2512 + .00092, .00530, .00989,
2513 + .31000, .09001, .08351, .00528, .00284,
2514 + .00094, .00508, .00942 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .29966, .08659, .07727, .00509, .00275,
2517 + .00095, .00488, .00897,
2518 + .28991, .08337, .07167, .00488, .00266,
2519 + .00094, .00468, .00857,
2520 + .28106, .08046, .06681, .00468, .00258,
2521 + .00094, .00449, .00821,
2522 + .27298, .07781, .06259, .00450, .00251,
2523 + .00094, .00433, .00788,
2524 + .26513, .07526, .05867, .00433, .00243,
2525 + .00093, .00418, .00756,
2526 + .25760, .07283, .05509, .00417, .00236,
2527 + .00092, .00403, .00728,
2528 + .25067, .07060, .05194, .00403, .00229,
2529 + .00091, .00389, .00701,
2530 + .24429, .06857, .04915, .00392, .00223,
2531 + .00091, .00377, .00674 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .23805, .06659, .04652, .00380, .00217,
2534 + .00090, .00364, .00650,
2535 + .23204, .06469, .04410, .00367, .00211,
2536 + .00089, .00353, .00628,
2537 + .22650, .06294, .04193, .00355, .00206,
2538 + .00088, .00342, .00609,
2539 + .22133, .06132, .03998, .00344, .00201,
2540 + .00087, .00332, .00590,
2541 + .21625, .05973, .03812, .00334, .00195,
2542 + .00086, .00323, .00571 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .66447, .21662, .53184, .00869, .00060,
2545 + -.00001, .00799, .02163,
2546 + .64010, .20675, .48800, .00865, .00094,
2547 + -.00001, .00800, .02074,
2548 + .60625, .19327, .42910, .00847, .00135,
2549 + -.00001, .00789, .01948,
2550 + .58313, .18427, .39071, .00832, .00158,
2551 + .00000, .00776, .01859,
2552 + .56015, .17544, .35417, .00813, .00177,
2553 + .00000, .00761, .01765,
2554 + .54134, .16832, .32557, .00793, .00191,
2555 + .00001, .00746, .01688,
2556 + .52409, .16185, .30045, .00772, .00202,
2557 + .00001, .00728, .01622,
2558 + .50642, .15530, .27585, .00751, .00213,
2559 + .00000, .00708, .01549 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .49162, .14992, .25625, .00733, .00220,
2562 + -.00001, .00690, .01489,
2563 + .47789, .14496, .23879, .00715, .00226,
2564 + .00000, .00673, .01434,
2565 + .46734, .14116, .22578, .00699, .00229,
2566 + .00000, .00659, .01391,
2567 + .44581, .13345, .20063, .00664, .00239,
2568 + .00000, .00630, .01303,
2569 + .42817, .12723, .18145, .00636, .00244,
2570 + .00004, .00604, .01232,
2571 + .40949, .12072, .16240, .00602, .00247,
2572 + .00017, .00575, .01159,
2573 + .39108, .11438, .14494, .00568, .00250,
2574 + .00031, .00546, .01087,
2575 + .37517, .10899, .13090, .00541, .00249,
2576 + .00040, .00522, .01023 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .35987, .10385, .11829, .00516, .00247,
2579 + .00048, .00498, .00964,
2580 + .34775, .09979, .10884, .00496, .00244,
2581 + .00054, .00479, .00918,
2582 + .33363, .09512, .09855, .00470, .00238,
2583 + .00058, .00455, .00869,
2584 + .32170, .09121, .09037, .00450, .00232,
2585 + .00062, .00435, .00827,
2586 + .31123, .08779, .08355, .00431, .00227,
2587 + .00064, .00419, .00790,
2588 + .29843, .08368, .07575, .00408, .00219,
2589 + .00066, .00398, .00745,
2590 + .28692, .08000, .06918, .00390, .00212,
2591 + .00067, .00380, .00705,
2592 + .27661, .07673, .06364, .00374, .00205,
2593 + .00068, .00363, .00671 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .26670, .07362, .05860, .00358, .00198,
2596 + .00068, .00346, .00639,
2597 + .25740, .07070, .05415, .00342, .00191,
2598 + .00068, .00331, .00609,
2599 + .24896, .06807, .05031, .00328, .00185,
2600 + .00067, .00318, .00581,
2601 + .24126, .06570, .04698, .00315, .00179,
2602 + .00067, .00306, .00555,
2603 + .23379, .06341, .04389, .00303, .00173,
2604 + .00066, .00294, .00532,
2605 + .22668, .06123, .04109, .00292, .00168,
2606 + .00066, .00283, .00510,
2607 + .22014, .05924, .03863, .00283, .00163,
2608 + .00065, .00273, .00490,
2609 + .21415, .05743, .03646, .00273, .00158,
2610 + .00063, .00263, .00471 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .20830, .05566, .03442, .00263, .00154,
2613 + .00062, .00254, .00454,
2614 + .20269, .05398, .03255, .00252, .00149,
2615 + .00061, .00246, .00438,
2616 + .19753, .05244, .03088, .00243, .00144,
2617 + .00061, .00238, .00423,
2618 + .19266, .05100, .02939, .00237, .00140,
2619 + .00060, .00231, .00409,
2620 + .18791, .04961, .02796, .00231, .00137,
2621 + .00060, .00224, .00395 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .63204, .19617, .47273, .00627, .00052,
2624 + .00006, .00603, .01630,
2625 + .60655, .18656, .42936, .00627, .00080,
2626 + .00006, .00602, .01554,
2627 + .57137, .17355, .37232, .00616, .00112,
2628 + .00007, .00593, .01450,
2629 + .54752, .16487, .33584, .00605, .00129,
2630 + .00006, .00582, .01378,
2631 + .52397, .15640, .30161, .00589, .00143,
2632 + .00006, .00568, .01307,
2633 + .50479, .14959, .27513, .00573, .00154,
2634 + .00006, .00554, .01248,
2635 + .48722, .14346, .25212, .00558, .00160,
2636 + .00005, .00539, .01196,
2637 + .46935, .13726, .22988, .00542, .00167,
2638 + .00005, .00524, .01138 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .45449, .13216, .21227, .00528, .00172,
2641 + .00004, .00510, .01090,
2642 + .44073, .12747, .19669, .00513, .00176,
2643 + .00004, .00496, .01046,
2644 + .43015, .12389, .18520, .00501, .00179,
2645 + .00005, .00485, .01014,
2646 + .40870, .11667, .16311, .00473, .00183,
2647 + .00005, .00462, .00947,
2648 + .39122, .11089, .14644, .00451, .00186,
2649 + .00007, .00441, .00894,
2650 + .37276, .10485, .13005, .00430, .00187,
2651 + .00016, .00419, .00836,
2652 + .35464, .09899, .11517, .00407, .00188,
2653 + .00026, .00398, .00779,
2654 + .33912, .09400, .10334, .00385, .00186,
2655 + .00033, .00378, .00734 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .32428, .08929, .09278, .00363, .00183,
2658 + .00037, .00359, .00691,
2659 + .31248, .08558, .08495, .00349, .00179,
2660 + .00041, .00344, .00656,
2661 + .29887, .08133, .07646, .00329, .00175,
2662 + .00045, .00327, .00617,
2663 + .28738, .07778, .06976, .00315, .00170,
2664 + .00046, .00312, .00585,
2665 + .27730, .07469, .06422, .00304, .00165,
2666 + .00047, .00298, .00558,
2667 + .26509, .07096, .05789, .00286, .00160,
2668 + .00049, .00282, .00526,
2669 + .25416, .06765, .05262, .00272, .00153,
2670 + .00049, .00268, .00497,
2671 + .24439, .06473, .04820, .00260, .00147,
2672 + .00049, .00256, .00470 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .23504, .06195, .04421, .00248, .00142,
2675 + .00050, .00245, .00445,
2676 + .22626, .05936, .04069, .00237, .00137,
2677 + .00049, .00234, .00422,
2678 + .21832, .05703, .03765, .00227, .00132,
2679 + .00048, .00224, .00402,
2680 + .21111, .05491, .03505, .00216, .00128,
2681 + .00048, .00214, .00387,
2682 + .20414, .05288, .03264, .00207, .00123,
2683 + .00048, .00205, .00370,
2684 + .19749, .05097, .03047, .00201, .00119,
2685 + .00047, .00198, .00351,
2686 + .19142, .04923, .02857, .00194, .00115,
2687 + .00046, .00190, .00336,
2688 + .18587, .04763, .02689, .00186, .00111,
2689 + .00045, .00183, .00325 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18046, .04608, .02533, .00179, .00107,
2692 + .00044, .00176, .00313,
2693 + .17526, .04461, .02390, .00173, .00104,
2694 + .00043, .00170, .00300,
2695 + .17047, .04326, .02262, .00168, .00101,
2696 + .00043, .00165, .00288,
2697 + .16603, .04201, .02149, .00162, .00098,
2698 + .00042, .00159, .00279,
2699 + .16168, .04078, .02040, .00157, .00095,
2700 + .00041, .00154, .00270 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .59482, .17589, .41588, .00456, .00040,
2703 + .00002, .00441, .01203,
2704 + .56870, .16668, .37405, .00454, .00063,
2705 + .00001, .00440, .01145,
2706 + .53287, .15429, .32002, .00447, .00087,
2707 + .00003, .00432, .01063,
2708 + .50876, .14606, .28603, .00437, .00099,
2709 + .00002, .00423, .01008,
2710 + .48504, .13805, .25457, .00425, .00109,
2711 + .00002, .00412, .00953,
2712 + .46582, .13164, .23052, .00414, .00116,
2713 + .00002, .00402, .00908,
2714 + .44831, .12589, .20982, .00403, .00123,
2715 + .00002, .00391, .00864,
2716 + .43058, .12009, .18996, .00389, .00127,
2717 + .00002, .00378, .00824 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .41587, .11534, .17438, .00379, .00130,
2720 + .00002, .00368, .00788,
2721 + .40229, .11098, .16069, .00369, .00132,
2722 + .00002, .00358, .00754,
2723 + .39190, .10768, .15065, .00358, .00134,
2724 + .00001, .00350, .00729,
2725 + .37085, .10103, .13156, .00340, .00136,
2726 + .00002, .00331, .00677,
2727 + .35380, .09571, .11729, .00325, .00137,
2728 + .00004, .00315, .00635,
2729 + .33588, .09018, .10338, .00306, .00137,
2730 + .00010, .00298, .00593,
2731 + .31842, .08483, .09088, .00286, .00136,
2732 + .00017, .00282, .00555,
2733 + .30349, .08031, .08100, .00271, .00134,
2734 + .00021, .00267, .00519 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .28925, .07604, .07226, .00258, .00132,
2737 + .00025, .00253, .00485,
2738 + .27805, .07269, .06584, .00245, .00129,
2739 + .00028, .00242, .00461,
2740 + .26509, .06886, .05891, .00232, .00125,
2741 + .00030, .00229, .00433,
2742 + .25421, .06569, .05348, .00220, .00121,
2743 + .00031, .00218, .00409,
2744 + .24471, .06294, .04902, .00210, .00117,
2745 + .00033, .00208, .00388,
2746 + .23317, .05962, .04397, .00200, .00112,
2747 + .00033, .00197, .00365,
2748 + .22292, .05668, .03978, .00190, .00108,
2749 + .00034, .00187, .00344,
2750 + .21381, .05408, .03628, .00180, .00104,
2751 + .00034, .00178, .00326 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .20512, .05163, .03314, .00170, .00100,
2754 + .00033, .00169, .00308,
2755 + .19697, .04935, .03039, .00163, .00096,
2756 + .00034, .00161, .00290,
2757 + .18961, .04731, .02803, .00156, .00092,
2758 + .00034, .00154, .00274,
2759 + .18293, .04547, .02600, .00150, .00089,
2760 + .00033, .00147, .00263,
2761 + .17650, .04369, .02414, .00144, .00086,
2762 + .00033, .00141, .00252,
2763 + .17043, .04202, .02247, .00138, .00082,
2764 + .00032, .00134, .00241,
2765 + .16487, .04050, .02101, .00132, .00079,
2766 + .00032, .00129, .00230,
2767 + .15977, .03912, .01974, .00128, .00077,
2768 + .00031, .00124, .00221 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .15481, .03778, .01855, .00124, .00074,
2771 + .00030, .00120, .00211,
2772 + .15009, .03651, .01746, .00119, .00071,
2773 + .00030, .00115, .00202,
2774 + .14575, .03535, .01648, .00115, .00069,
2775 + .00029, .00111, .00194,
2776 + .14172, .03427, .01563, .00111, .00067,
2777 + .00028, .00107, .00187,
2778 + .13780, .03322, .01482, .00107, .00065,
2779 + .00028, .00103, .00181 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .55391, .15596, .36194, .00320, .00029,
2782 + .00003, .00319, .00874,
2783 + .52759, .14730, .32248, .00322, .00048,
2784 + .00003, .00318, .00828,
2785 + .49177, .13566, .27234, .00318, .00066,
2786 + .00002, .00311, .00764,
2787 + .46780, .12797, .24126, .00312, .00075,
2788 + .00003, .00303, .00722,
2789 + .44435, .12055, .21283, .00303, .00083,
2790 + .00004, .00295, .00681,
2791 + .42541, .11462, .19132, .00295, .00087,
2792 + .00003, .00287, .00647,
2793 + .40823, .10929, .17298, .00288, .00091,
2794 + .00002, .00278, .00616,
2795 + .39092, .10397, .15553, .00276, .00093,
2796 + .00001, .00267, .00587 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .37661, .09961, .14195, .00267, .00095,
2799 + .00002, .00259, .00560,
2800 + .36344, .09562, .13012, .00259, .00096,
2801 + .00003, .00252, .00534,
2802 + .35336, .09261, .12150, .00254, .00097,
2803 + .00002, .00245, .00515,
2804 + .33305, .08655, .10520, .00242, .00098,
2805 + .00002, .00232, .00478,
2806 + .31672, .08173, .09313, .00229, .00098,
2807 + .00003, .00220, .00447,
2808 + .29960, .07675, .08149, .00217, .00098,
2809 + .00008, .00208, .00415,
2810 + .28297, .07195, .07110, .00204, .00097,
2811 + .00013, .00196, .00386,
2812 + .26883, .06791, .06296, .00193, .00094,
2813 + .00015, .00185, .00360 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .25538, .06411, .05583, .00183, .00092,
2816 + .00017, .00174, .00336,
2817 + .24485, .06114, .05062, .00173, .00090,
2818 + .00019, .00166, .00319,
2819 + .23269, .05776, .04504, .00165, .00087,
2820 + .00021, .00156, .00297,
2821 + .22254, .05494, .04070, .00156, .00083,
2822 + .00022, .00149, .00280,
2823 + .21373, .05250, .03714, .00148, .00080,
2824 + .00022, .00143, .00266,
2825 + .20305, .04959, .03315, .00140, .00077,
2826 + .00022, .00133, .00249,
2827 + .19355, .04702, .02985, .00133, .00073,
2828 + .00022, .00126, .00234,
2829 + .18514, .04475, .02711, .00127, .00070,
2830 + .00022, .00119, .00221 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .17718, .04261, .02466, .00119, .00067,
2833 + .00022, .00114, .00210,
2834 + .16972, .04063, .02253, .00114, .00064,
2835 + .00021, .00108, .00198,
2836 + .16300, .03886, .02071, .00109, .00061,
2837 + .00021, .00102, .00188,
2838 + .15693, .03727, .01915, .00104, .00059,
2839 + .00021, .00097, .00178,
2840 + .15110, .03574, .01773, .00099, .00057,
2841 + .00021, .00093, .00169,
2842 + .14559, .03431, .01646, .00096, .00055,
2843 + .00021, .00089, .00160,
2844 + .14056, .03301, .01535, .00092, .00053,
2845 + .00020, .00086, .00153,
2846 + .13598, .03182, .01439, .00088, .00051,
2847 + .00019, .00082, .00147 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .13153, .03068, .01349, .00084, .00050,
2850 + .00019, .00079, .00141,
2851 + .12728, .02960, .01267, .00081, .00048,
2852 + .00019, .00076, .00135,
2853 + .12338, .02861, .01194, .00079, .00046,
2854 + .00018, .00073, .00129,
2855 + .11977, .02769, .01130, .00076, .00044,
2856 + .00018, .00070, .00125,
2857 + .11626, .02680, .01070, .00074, .00042,
2858 + .00017, .00067, .00121 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .51027, .13668, .31134, .00220, .00026,
2861 + .00007, .00230, .00620,
2862 + .48425, .12861, .27480, .00221, .00039,
2863 + .00004, .00228, .00586,
2864 + .44903, .11785, .22912, .00216, .00051,
2865 + .00005, .00222, .00541,
2866 + .42558, .11079, .20116, .00212, .00058,
2867 + .00005, .00216, .00509,
2868 + .40271, .10399, .17588, .00207, .00064,
2869 + .00005, .00210, .00477,
2870 + .38432, .09857, .15696, .00202, .00068,
2871 + .00004, .00204, .00452,
2872 + .36774, .09373, .14095, .00194, .00070,
2873 + .00004, .00198, .00429,
2874 + .35104, .08891, .12586, .00191, .00072,
2875 + .00004, .00192, .00403 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .33733, .08496, .11422, .00184, .00073,
2878 + .00004, .00185, .00385,
2879 + .32474, .08136, .10412, .00177, .00073,
2880 + .00004, .00178, .00369,
2881 + .31513, .07866, .09682, .00172, .00072,
2882 + .00004, .00173, .00356,
2883 + .29583, .07324, .08312, .00165, .00073,
2884 + .00003, .00163, .00328,
2885 + .28041, .06893, .07307, .00154, .00074,
2886 + .00004, .00155, .00307,
2887 + .26432, .06448, .06344, .00143, .00072,
2888 + .00007, .00146, .00285,
2889 + .24871, .06024, .05495, .00135, .00070,
2890 + .00011, .00137, .00263,
2891 + .23548, .05668, .04836, .00127, .00069,
2892 + .00012, .00129, .00245 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22298, .05331, .04261, .00120, .00066,
2895 + .00013, .00121, .00230,
2896 + .21318, .05072, .03843, .00115, .00065,
2897 + .00014, .00115, .00216,
2898 + .20200, .04775, .03400, .00107, .00062,
2899 + .00015, .00108, .00202,
2900 + .19268, .04530, .03057, .00101, .00059,
2901 + .00016, .00103, .00189,
2902 + .18458, .04319, .02778, .00096, .00058,
2903 + .00017, .00099, .00177,
2904 + .17482, .04068, .02467, .00090, .00056,
2905 + .00016, .00093, .00166,
2906 + .16616, .03846, .02210, .00085, .00053,
2907 + .00017, .00087, .00158,
2908 + .15851, .03651, .01999, .00081, .00050,
2909 + .00017, .00082, .00150 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .15130, .03468, .01813, .00077, .00048,
2912 + .00016, .00078, .00140,
2913 + .14455, .03298, .01649, .00073, .00046,
2914 + .00017, .00074, .00131,
2915 + .13849, .03147, .01510, .00070, .00044,
2916 + .00017, .00070, .00124,
2917 + .13306, .03011, .01393, .00066, .00042,
2918 + .00016, .00066, .00117,
2919 + .12784, .02881, .01286, .00063, .00040,
2920 + .00015, .00063, .00112,
2921 + .12289, .02760, .01191, .00061, .00038,
2922 + .00015, .00060, .00106,
2923 + .11841, .02650, .01108, .00059, .00036,
2924 + .00015, .00058, .00102,
2925 + .11435, .02550, .01036, .00055, .00035,
2926 + .00015, .00056, .00098 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11041, .02454, .00968, .00053, .00034,
2929 + .00014, .00053, .00093,
2930 + .10664, .02363, .00908, .00051, .00033,
2931 + .00014, .00051, .00089,
2932 + .10319, .02280, .00854, .00050, .00032,
2933 + .00014, .00049, .00084,
2934 + .10002, .02204, .00807, .00048, .00031,
2935 + .00014, .00047, .00081,
2936 + .09693, .02130, .00762, .00046, .00030,
2937 + .00013, .00045, .00078 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .46496, .11848, .26469, .00148, .00021,
2940 + .00005, .00160, .00430,
2941 + .43964, .11105, .23150, .00146, .00029,
2942 + .00005, .00160, .00407,
2943 + .40547, .10122, .19047, .00143, .00039,
2944 + .00003, .00156, .00374,
2945 + .38286, .09481, .16576, .00139, .00045,
2946 + .00004, .00152, .00352,
2947 + .36091, .08866, .14365, .00136, .00049,
2948 + .00004, .00148, .00328,
2949 + .34337, .08379, .12727, .00131, .00051,
2950 + .00003, .00143, .00310,
2951 + .32764, .07942, .11351, .00125, .00053,
2952 + .00003, .00139, .00295,
2953 + .31183, .07510, .10068, .00122, .00054,
2954 + .00003, .00134, .00278 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29885, .07159, .09084, .00117, .00055,
2957 + .00003, .00129, .00264,
2958 + .28698, .06841, .08238, .00113, .00056,
2959 + .00003, .00125, .00251,
2960 + .27796, .06600, .07628, .00109, .00056,
2961 + .00003, .00122, .00242,
2962 + .25989, .06121, .06491, .00104, .00055,
2963 + .00004, .00114, .00222,
2964 + .24546, .05742, .05665, .00099, .00054,
2965 + .00004, .00109, .00205,
2966 + .23049, .05353, .04883, .00094, .00053,
2967 + .00005, .00102, .00190,
2968 + .21610, .04981, .04198, .00086, .00052,
2969 + .00008, .00096, .00176,
2970 + .20395, .04669, .03671, .00079, .00050,
2971 + .00010, .00090, .00164 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19247, .04380, .03215, .00076, .00049,
2974 + .00010, .00083, .00152,
2975 + .18353, .04155, .02885, .00072, .00047,
2976 + .00012, .00079, .00144,
2977 + .17333, .03901, .02537, .00068, .00045,
2978 + .00012, .00075, .00133,
2979 + .16486, .03690, .02270, .00064, .00043,
2980 + .00012, .00071, .00125,
2981 + .15753, .03509, .02054, .00060, .00041,
2982 + .00013, .00067, .00119,
2983 + .14876, .03295, .01814, .00055, .00039,
2984 + .00013, .00063, .00109,
2985 + .14098, .03106, .01618, .00053, .00037,
2986 + .00012, .00059, .00102,
2987 + .13413, .02941, .01458, .00050, .00035,
2988 + .00012, .00056, .00096 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12767, .02787, .01316, .00047, .00034,
2991 + .00012, .00053, .00090,
2992 + .12168, .02644, .01193, .00045, .00032,
2993 + .00012, .00050, .00085,
2994 + .11632, .02516, .01089, .00042, .00031,
2995 + .00012, .00047, .00080,
2996 + .11149, .02402, .01002, .00040, .00029,
2997 + .00012, .00045, .00076,
2998 + .10688, .02294, .00922, .00038, .00028,
2999 + .00011, .00043, .00072,
3000 + .10254, .02193, .00851, .00037, .00027,
3001 + .00011, .00041, .00068,
3002 + .09860, .02101, .00790, .00035, .00026,
3003 + .00011, .00039, .00065,
3004 + .09501, .02018, .00737, .00035, .00025,
3005 + .00011, .00037, .00063 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09155, .01938, .00688, .00033, .00024,
3008 + .00011, .00036, .00060,
3009 + .08828, .01863, .00643, .00031, .00023,
3010 + .00011, .00034, .00057,
3011 + .08529, .01794, .00604, .00029, .00022,
3012 + .00010, .00033, .00055,
3013 + .08252, .01732, .00570, .00028, .00021,
3014 + .00010, .00032, .00052,
3015 + .07984, .01671, .00537, .00028, .00021,
3016 + .00010, .00030, .00050 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .41895, .10160, .22254, .00108, .00010,
3019 + -.00002, .00104, .00292,
3020 + .39464, .09490, .19289, .00108, .00018,
3021 + -.00002, .00103, .00276,
3022 + .36210, .08608, .15677, .00103, .00025,
3023 + -.00002, .00101, .00253,
3024 + .34068, .08034, .13528, .00100, .00028,
3025 + -.00001, .00099, .00236,
3026 + .31998, .07486, .11625, .00097, .00031,
3027 + -.00002, .00095, .00220,
3028 + .30345, .07054, .10227, .00096, .00033,
3029 + -.00002, .00092, .00208,
3030 + .28866, .06669, .09062, .00093, .00034,
3031 + .00000, .00090, .00195,
3032 + .27390, .06287, .07986, .00090, .00034,
3033 + -.00001, .00086, .00186 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .26183, .05980, .07167, .00086, .00034,
3036 + -.00001, .00082, .00176,
3037 + .25082, .05701, .06466, .00083, .00034,
3038 + -.00001, .00079, .00167,
3039 + .24248, .05490, .05963, .00082, .00035,
3040 + -.00002, .00077, .00160,
3041 + .22580, .05072, .05033, .00078, .00034,
3042 + -.00001, .00073, .00146,
3043 + .21258, .04744, .04363, .00073, .00034,
3044 + -.00001, .00068, .00137,
3045 + .19891, .04407, .03733, .00067, .00033,
3046 + .00001, .00064, .00126,
3047 + .18582, .04087, .03187, .00062, .00031,
3048 + .00002, .00059, .00116,
3049 + .17480, .03820, .02769, .00058, .00030,
3050 + .00003, .00055, .00108 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .16444, .03571, .02411, .00054, .00029,
3053 + .00005, .00052, .00100,
3054 + .15642, .03380, .02154, .00051, .00028,
3055 + .00005, .00050, .00093,
3056 + .14724, .03163, .01884, .00049, .00027,
3057 + .00005, .00046, .00086,
3058 + .13966, .02985, .01678, .00047, .00026,
3059 + .00005, .00044, .00081,
3060 + .13313, .02833, .01512, .00044, .00024,
3061 + .00006, .00041, .00076,
3062 + .12530, .02652, .01329, .00043, .00023,
3063 + .00006, .00039, .00070,
3064 + .11843, .02493, .01181, .00039, .00022,
3065 + .00006, .00036, .00066,
3066 + .11240, .02354, .01060, .00036, .00021,
3067 + .00006, .00033, .00062 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10671, .02225, .00953, .00034, .00019,
3070 + .00006, .00031, .00059,
3071 + .10144, .02105, .00861, .00033, .00018,
3072 + .00006, .00030, .00055,
3073 + .09674, .01999, .00784, .00032, .00018,
3074 + .00006, .00029, .00051,
3075 + .09252, .01906, .00718, .00031, .00017,
3076 + .00006, .00027, .00048,
3077 + .08850, .01816, .00659, .00029, .00016,
3078 + .00006, .00025, .00045,
3079 + .08474, .01733, .00607, .00027, .00015,
3080 + .00006, .00024, .00043,
3081 + .08133, .01657, .00563, .00026, .00015,
3082 + .00006, .00023, .00041,
3083 + .07824, .01589, .00524, .00025, .00014,
3084 + .00006, .00022, .00039 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07525, .01523, .00488, .00024, .00013,
3087 + .00005, .00021, .00037,
3088 + .07242, .01461, .00455, .00023, .00013,
3089 + .00005, .00020, .00036,
3090 + .06984, .01405, .00426, .00023, .00013,
3091 + .00005, .00019, .00034,
3092 + .06747, .01354, .00402, .00021, .00012,
3093 + .00005, .00018, .00033,
3094 + .06517, .01304, .00378, .00020, .00012,
3095 + .00005, .00017, .00032 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .37284, .08573, .18425, .00063, .00011,
3098 + .00004, .00072, .00195,
3099 + .34987, .07982, .15827, .00064, .00015,
3100 + .00004, .00071, .00181,
3101 + .31927, .07202, .12703, .00062, .00020,
3102 + .00004, .00070, .00165,
3103 + .29922, .06699, .10867, .00062, .00022,
3104 + .00004, .00069, .00153,
3105 + .27997, .06220, .09256, .00060, .00024,
3106 + .00004, .00067, .00143,
3107 + .26469, .05843, .08085, .00058, .00024,
3108 + .00005, .00064, .00135,
3109 + .25105, .05506, .07118, .00054, .00025,
3110 + .00003, .00060, .00131,
3111 + .23745, .05178, .06230, .00055, .00024,
3112 + .00002, .00058, .00120 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22637, .04911, .05558, .00054, .00024,
3115 + .00002, .00056, .00114,
3116 + .21632, .04669, .04987, .00052, .00025,
3117 + .00003, .00054, .00109,
3118 + .20876, .04488, .04580, .00049, .00025,
3119 + .00003, .00053, .00104,
3120 + .19362, .04130, .03833, .00048, .00024,
3121 + .00003, .00049, .00095,
3122 + .18164, .03850, .03301, .00045, .00023,
3123 + .00003, .00045, .00089,
3124 + .16933, .03564, .02803, .00041, .00023,
3125 + .00003, .00042, .00081,
3126 + .15756, .03293, .02374, .00039, .00022,
3127 + .00004, .00039, .00073,
3128 + .14771, .03068, .02050, .00036, .00021,
3129 + .00005, .00037, .00068 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13850, .02860, .01774, .00034, .00020,
3132 + .00005, .00035, .00064,
3133 + .13136, .02699, .01577, .00034, .00019,
3134 + .00005, .00032, .00059,
3135 + .12327, .02518, .01372, .00030, .00018,
3136 + .00005, .00030, .00055,
3137 + .11660, .02370, .01216, .00028, .00017,
3138 + .00005, .00028, .00051,
3139 + .11085, .02243, .01091, .00027, .00016,
3140 + .00006, .00027, .00048,
3141 + .10400, .02093, .00954, .00025, .00015,
3142 + .00005, .00024, .00045,
3143 + .09801, .01962, .00844, .00024, .00014,
3144 + .00005, .00023, .00042,
3145 + .09276, .01848, .00754, .00022, .00014,
3146 + .00005, .00022, .00039 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08784, .01742, .00675, .00020, .00013,
3149 + .00005, .00020, .00037,
3150 + .08327, .01645, .00608, .00020, .00012,
3151 + .00005, .00019, .00034,
3152 + .07921, .01559, .00552, .00021, .00012,
3153 + .00005, .00017, .00031,
3154 + .07559, .01482, .00505, .00019, .00011,
3155 + .00004, .00016, .00030,
3156 + .07215, .01409, .00462, .00018, .00010,
3157 + .00004, .00016, .00029,
3158 + .06893, .01341, .00424, .00017, .00010,
3159 + .00004, .00015, .00027,
3160 + .06602, .01280, .00392, .00016, .00010,
3161 + .00004, .00014, .00026,
3162 + .06338, .01225, .00364, .00016, .00009,
3163 + .00004, .00014, .00025 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06085, .01172, .00338, .00015, .00009,
3166 + .00004, .00013, .00023,
3167 + .05846, .01123, .00315, .00014, .00008,
3168 + .00004, .00012, .00022,
3169 + .05628, .01077, .00295, .00013, .00008,
3170 + .00003, .00012, .00020,
3171 + .05428, .01036, .00277, .00013, .00008,
3172 + .00003, .00011, .00019,
3173 + .05234, .00997, .00260, .00013, .00007,
3174 + .00003, .00011, .00018 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .32763, .07142, .15045, .00034, .00009,
3177 + .00005, .00049, .00124,
3178 + .30626, .06622, .12804, .00035, .00012,
3179 + .00005, .00048, .00118,
3180 + .27793, .05944, .10145, .00036, .00016,
3181 + .00005, .00047, .00106,
3182 + .25949, .05508, .08602, .00035, .00016,
3183 + .00004, .00045, .00098,
3184 + .24183, .05096, .07263, .00035, .00017,
3185 + .00004, .00043, .00091,
3186 + .22787, .04772, .06297, .00035, .00018,
3187 + .00004, .00042, .00085,
3188 + .21547, .04485, .05505, .00033, .00018,
3189 + .00004, .00041, .00081,
3190 + .20316, .04203, .04786, .00033, .00017,
3191 + .00002, .00038, .00077 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .19317, .03976, .04245, .00033, .00017,
3194 + .00002, .00037, .00071,
3195 + .18411, .03771, .03787, .00032, .00017,
3196 + .00002, .00035, .00067,
3197 + .17729, .03618, .03463, .00030, .00018,
3198 + .00002, .00034, .00064,
3199 + .16378, .03317, .02873, .00028, .00017,
3200 + .00003, .00032, .00059,
3201 + .15310, .03081, .02456, .00026, .00016,
3202 + .00003, .00030, .00055,
3203 + .14216, .02841, .02070, .00025, .00016,
3204 + .00003, .00028, .00050,
3205 + .13177, .02614, .01741, .00023, .00015,
3206 + .00003, .00026, .00046,
3207 + .12312, .02427, .01493, .00021, .00014,
3208 + .00004, .00024, .00042 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11506, .02255, .01284, .00019, .00014,
3211 + .00004, .00022, .00039,
3212 + .10882, .02123, .01136, .00019, .00013,
3213 + .00004, .00021, .00035,
3214 + .10177, .01974, .00982, .00017, .00012,
3215 + .00004, .00019, .00034,
3216 + .09598, .01852, .00866, .00016, .00012,
3217 + .00004, .00018, .00032,
3218 + .09102, .01748, .00774, .00014, .00011,
3219 + .00004, .00017, .00031,
3220 + .08512, .01626, .00673, .00014, .00010,
3221 + .00004, .00016, .00028,
3222 + .07995, .01520, .00593, .00014, .00010,
3223 + .00004, .00014, .00025,
3224 + .07545, .01428, .00528, .00014, .00009,
3225 + .00004, .00014, .00023 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07126, .01342, .00471, .00012, .00009,
3228 + .00004, .00013, .00022,
3229 + .06738, .01264, .00423, .00012, .00008,
3230 + .00003, .00012, .00020,
3231 + .06394, .01194, .00382, .00012, .00008,
3232 + .00003, .00011, .00019,
3233 + .06088, .01133, .00349, .00010, .00007,
3234 + .00003, .00011, .00018,
3235 + .05798, .01075, .00318, .00010, .00007,
3236 + .00003, .00010, .00017,
3237 + .05525, .01021, .00291, .00010, .00006,
3238 + .00002, .00009, .00016,
3239 + .05280, .00972, .00269, .00009, .00006,
3240 + .00002, .00009, .00015,
3241 + .05060, .00929, .00249, .00009, .00006,
3242 + .00002, .00008, .00014 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .04848, .00887, .00231, .00009, .00006,
3245 + .00002, .00008, .00013,
3246 + .04649, .00848, .00215, .00008, .00005,
3247 + .00002, .00008, .00013,
3248 + .04467, .00812, .00200, .00007, .00005,
3249 + .00002, .00007, .00013,
3250 + .04301, .00780, .00188, .00007, .00005,
3251 + .00002, .00007, .00012,
3252 + .04141, .00749, .00177, .00007, .00005,
3253 + .00003, .00007, .00011 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .28416, .05872, .12111, .00025, .00004,
3256 + .00001, .00029, .00079,
3257 + .26458, .05425, .10216, .00025, .00006,
3258 + .00001, .00029, .00073,
3259 + .23877, .04845, .07990, .00028, .00008,
3260 + .00000, .00028, .00063,
3261 + .22208, .04473, .06717, .00027, .00009,
3262 + .00000, .00027, .00059,
3263 + .20617, .04121, .05623, .00025, .00009,
3264 + .00000, .00025, .00057,
3265 + .19364, .03847, .04840, .00024, .00009,
3266 + .00000, .00023, .00054,
3267 + .18254, .03606, .04205, .00024, .00010,
3268 + .00000, .00023, .00049,
3269 + .17160, .03368, .03629, .00021, .00010,
3270 + .00000, .00021, .00047 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .16271, .03178, .03200, .00021, .00009,
3273 + .00000, .00021, .00045,
3274 + .15467, .03008, .02839, .00021, .00009,
3275 + .00001, .00020, .00043,
3276 + .14864, .02879, .02586, .00020, .00009,
3277 + .00001, .00020, .00041,
3278 + .13672, .02628, .02127, .00019, .00009,
3279 + .00001, .00019, .00036,
3280 + .12736, .02433, .01806, .00018, .00010,
3281 + .00001, .00017, .00033,
3282 + .11781, .02235, .01510, .00017, .00009,
3283 + .00001, .00016, .00031,
3284 + .10878, .02050, .01261, .00015, .00008,
3285 + .00001, .00015, .00027,
3286 + .10127, .01897, .01074, .00015, .00008,
3287 + .00002, .00013, .00025 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09431, .01756, .00918, .00014, .00008,
3290 + .00001, .00012, .00024,
3291 + .08895, .01648, .00808, .00013, .00007,
3292 + .00001, .00011, .00022,
3293 + .08293, .01527, .00695, .00011, .00007,
3294 + .00002, .00010, .00021,
3295 + .07797, .01430, .00610, .00011, .00006,
3296 + .00002, .00010, .00019,
3297 + .07374, .01347, .00543, .00012, .00006,
3298 + .00002, .00010, .00017,
3299 + .06874, .01249, .00470, .00010, .00006,
3300 + .00002, .00009, .00016,
3301 + .06439, .01164, .00412, .00009, .00005,
3302 + .00002, .00008, .00015,
3303 + .06060, .01090, .00365, .00009, .00005,
3304 + .00002, .00008, .00014 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05706, .01022, .00325, .00008, .00004,
3307 + .00001, .00007, .00013,
3308 + .05382, .00960, .00291, .00008, .00004,
3309 + .00002, .00006, .00012,
3310 + .05095, .00905, .00262, .00008, .00004,
3311 + .00002, .00006, .00011,
3312 + .04839, .00856, .00238, .00007, .00004,
3313 + .00001, .00006, .00011,
3314 + .04597, .00810, .00217, .00007, .00004,
3315 + .00001, .00005, .00010,
3316 + .04372, .00768, .00198, .00007, .00003,
3317 + .00001, .00005, .00009,
3318 + .04170, .00730, .00182, .00007, .00003,
3319 + .00001, .00005, .00009,
3320 + .03987, .00696, .00169, .00006, .00003,
3321 + .00001, .00005, .00009 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03813, .00663, .00156, .00005, .00003,
3324 + .00001, .00004, .00008,
3325 + .03649, .00633, .00145, .00005, .00003,
3326 + .00001, .00004, .00008,
3327 + .03500, .00606, .00135, .00005, .00003,
3328 + .00001, .00004, .00007,
3329 + .03364, .00580, .00126, .00005, .00002,
3330 + .00001, .00004, .00007,
3331 + .03233, .00556, .00118, .00004, .00002,
3332 + .00001, .00003, .00006 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .24256, .04735, .09559, .00010, .00006,
3335 + .00004, .00021, .00046,
3336 + .22496, .04357, .07990, .00009, .00006,
3337 + .00003, .00020, .00043,
3338 + .20189, .03869, .06168, .00010, .00007,
3339 + .00004, .00019, .00037,
3340 + .18703, .03558, .05138, .00010, .00007,
3341 + .00003, .00018, .00035,
3342 + .17292, .03266, .04261, .00009, .00007,
3343 + .00003, .00017, .00034,
3344 + .16183, .03038, .03639, .00011, .00007,
3345 + .00003, .00015, .00032,
3346 + .15205, .02838, .03139, .00011, .00007,
3347 + .00003, .00015, .00030,
3348 + .14245, .02643, .02690, .00010, .00007,
3349 + .00003, .00015, .00028 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13469, .02488, .02358, .00010, .00007,
3352 + .00002, .00014, .00026,
3353 + .12769, .02348, .02080, .00011, .00007,
3354 + .00002, .00014, .00024,
3355 + .12246, .02244, .01886, .00010, .00007,
3356 + .00002, .00013, .00022,
3357 + .11216, .02038, .01537, .00009, .00007,
3358 + .00002, .00012, .00021,
3359 + .10410, .01880, .01295, .00008, .00006,
3360 + .00002, .00011, .00020,
3361 + .09591, .01721, .01075, .00008, .00006,
3362 + .00002, .00010, .00018,
3363 + .08819, .01572, .00890, .00007, .00006,
3364 + .00002, .00009, .00016,
3365 + .08180, .01449, .00753, .00006, .00005,
3366 + .00002, .00009, .00015 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07589, .01337, .00640, .00006, .00005,
3369 + .00002, .00008, .00014,
3370 + .07136, .01251, .00560, .00006, .00005,
3371 + .00002, .00008, .00013,
3372 + .06628, .01156, .00479, .00007, .00005,
3373 + .00002, .00007, .00011,
3374 + .06214, .01078, .00419, .00006, .00004,
3375 + .00002, .00006, .00011,
3376 + .05863, .01013, .00371, .00004, .00004,
3377 + .00002, .00006, .00010,
3378 + .05445, .00936, .00319, .00005, .00004,
3379 + .00002, .00006, .00009,
3380 + .05084, .00869, .00279, .00004, .00004,
3381 + .00002, .00005, .00009,
3382 + .04772, .00812, .00246, .00004, .00003,
3383 + .00001, .00005, .00008 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04481, .00759, .00218, .00003, .00003,
3386 + .00001, .00004, .00007,
3387 + .04214, .00711, .00194, .00003, .00003,
3388 + .00001, .00004, .00006,
3389 + .03979, .00669, .00174, .00003, .00003,
3390 + .00001, .00004, .00007,
3391 + .03770, .00631, .00158, .00003, .00003,
3392 + .00001, .00004, .00006,
3393 + .03572, .00596, .00144, .00003, .00002,
3394 + .00001, .00004, .00006,
3395 + .03389, .00563, .00131, .00003, .00002,
3396 + .00001, .00003, .00005,
3397 + .03225, .00534, .00120, .00003, .00002,
3398 + .00001, .00003, .00005,
3399 + .03076, .00508, .00111, .00003, .00002,
3400 + .00001, .00003, .00005 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .02935, .00484, .00102, .00003, .00002,
3403 + .00001, .00003, .00005,
3404 + .02803, .00460, .00095, .00003, .00002,
3405 + .00001, .00003, .00004,
3406 + .02683, .00440, .00088, .00003, .00002,
3407 + .00001, .00002, .00004,
3408 + .02575, .00421, .00083, .00002, .00002,
3409 + .00001, .00002, .00004,
3410 + .02471, .00402, .00077, .00002, .00001,
3411 + .00001, .00002, .00003 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .16835, .02925, .05632, .00003, .00001,
3414 + .00000, .00005, .00014,
3415 + .15479, .02668, .04616, .00004, .00002,
3416 + .00000, .00005, .00014,
3417 + .13726, .02341, .03467, .00003, .00002,
3418 + .00000, .00005, .00013,
3419 + .12607, .02136, .02834, .00004, .00002,
3420 + .00000, .00005, .00011,
3421 + .11556, .01944, .02306, .00004, .00002,
3422 + .00000, .00005, .00010,
3423 + .10741, .01795, .01939, .00004, .00002,
3424 + .00000, .00005, .00009,
3425 + .10025, .01666, .01649, .00004, .00002,
3426 + .00000, .00005, .00009,
3427 + .09327, .01541, .01392, .00003, .00002,
3428 + .00000, .00005, .00008 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08767, .01441, .01205, .00002, .00002,
3431 + .00000, .00004, .00008,
3432 + .08264, .01353, .01051, .00002, .00002,
3433 + .00000, .00004, .00008,
3434 + .07891, .01287, .00944, .00002, .00002,
3435 + .00000, .00004, .00008,
3436 + .07159, .01159, .00755, .00003, .00002,
3437 + .00000, .00004, .00006,
3438 + .06593, .01061, .00627, .00003, .00002,
3439 + .00000, .00003, .00005,
3440 + .06024, .00963, .00512, .00003, .00002,
3441 + .00000, .00003, .00005,
3442 + .05493, .00873, .00417, .00002, .00002,
3443 + .00000, .00003, .00005,
3444 + .05056, .00799, .00348, .00002, .00002,
3445 + .00000, .00003, .00005 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04655, .00731, .00292, .00002, .00002,
3448 + .00000, .00002, .00004,
3449 + .04352, .00680, .00253, .00001, .00001,
3450 + .00000, .00002, .00004,
3451 + .04013, .00624, .00214, .00001, .00001,
3452 + .00000, .00002, .00003,
3453 + .03739, .00578, .00185, .00001, .00001,
3454 + .00001, .00002, .00003,
3455 + .03506, .00540, .00162, .00001, .00001,
3456 + .00001, .00002, .00003,
3457 + .03233, .00495, .00138, .00001, .00001,
3458 + .00001, .00002, .00003,
3459 + .02998, .00457, .00120, .00001, .00001,
3460 + .00001, .00002, .00003,
3461 + .02796, .00424, .00105, .00001, .00001,
3462 + .00001, .00001, .00002 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02610, .00394, .00092, .00000, .00001,
3465 + .00001, .00001, .00002,
3466 + .02441, .00367, .00082, .00001, .00001,
3467 + .00001, .00001, .00002,
3468 + .02292, .00343, .00073, .00001, .00001,
3469 + .00000, .00001, .00002,
3470 + .02160, .00323, .00066, .00001, .00001,
3471 + .00000, .00001, .00002,
3472 + .02037, .00303, .00059, .00001, .00001,
3473 + .00000, .00001, .00002,
3474 + .01923, .00285, .00054, .00001, .00001,
3475 + .00000, .00001, .00002,
3476 + .01821, .00269, .00049, .00001, .00001,
3477 + .00000, .00001, .00001,
3478 + .01730, .00255, .00045, .00001, .00001,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01644, .00242, .00042, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01563, .00229, .00038, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01491, .00218, .00036, .00000, .00000,
3486 + .00000, .00001, .00001,
3487 + .01425, .00208, .00033, .00000, .00000,
3488 + .00000, .00001, .00001,
3489 + .01361, .00198, .00031, .00000, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .10761, .01644, .03007, .00001, .00000,
3493 + -.00001, .00001, .00004,
3494 + .09804, .01487, .02414, .00002, .00000,
3495 + -.00001, .00001, .00003,
3496 + .08581, .01289, .01762, .00002, .00000,
3497 + .00000, .00001, .00002,
3498 + .07812, .01164, .01412, .00001, .00000,
3499 + .00000, .00001, .00002,
3500 + .07095, .01050, .01125, .00001, .00000,
3501 + .00000, .00001, .00002,
3502 + .06543, .00963, .00931, .00001, .00000,
3503 + .00000, .00001, .00003,
3504 + .06061, .00887, .00779, .00001, .00000,
3505 + -.00001, .00000, .00003,
3506 + .05597, .00815, .00647, .00000, .00000,
3507 + -.00001, .00000, .00002 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05228, .00758, .00553, .00001, .00000,
3510 + .00000, .00000, .00002,
3511 + .04899, .00707, .00476, .00001, .00000,
3512 + .00000, .00001, .00002,
3513 + .04655, .00669, .00424, .00002, .00000,
3514 + .00000, .00001, .00001,
3515 + .04182, .00597, .00332, .00001, .00001,
3516 + .00000, .00001, .00002,
3517 + .03819, .00542, .00271, .00001, .00000,
3518 + .00000, .00001, .00001,
3519 + .03457, .00487, .00218, .00001, .00000,
3520 + .00000, .00001, .00001,
3521 + .03124, .00437, .00175, .00000, .00000,
3522 + .00000, .00000, .00001,
3523 + .02852, .00397, .00144, .00000, .00000,
3524 + .00000, .00000, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02604, .00361, .00119, .00001, .00000,
3527 + .00000, .00000, .00001,
3528 + .02418, .00333, .00102, .00001, .00000,
3529 + .00000, .00000, .00001,
3530 + .02212, .00303, .00085, .00000, .00000,
3531 + .00000, .00000, .00001,
3532 + .02047, .00279, .00073, .00000, .00000,
3533 + .00000, .00000, .00001,
3534 + .01907, .00259, .00063, .00000, .00000,
3535 + .00000, .00000, .00001,
3536 + .01745, .00236, .00053, .00000, .00000,
3537 + .00000, .00000, .00001,
3538 + .01607, .00216, .00046, .00000, .00000,
3539 + .00000, .00000, .00001,
3540 + .01489, .00199, .00040, .00000, .00000,
3541 + .00000, .00000, .00001 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01381, .00184, .00035, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01283, .00170, .00031, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .01197, .00158, .00027, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .01122, .00148, .00024, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .01052, .00138, .00022, .00000, .00000,
3552 + .00000, .00000, .00000,
3553 + .00988, .00129, .00020, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .00931, .00122, .00018, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00881, .00115, .00017, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00833, .00108, .00015, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00788, .00102, .00014, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00748, .00097, .00013, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00712, .00092, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00677, .00087, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .06175, .00817, .01409, .00002, -.00001,
3572 + -.00001, .00000, .00000,
3573 + .05569, .00731, .01105, .00001, -.00001,
3574 + .00000, .00000, .00001,
3575 + .04804, .00625, .00781, .00001, -.00001,
3576 + -.00001, -.00001, .00001,
3577 + .04329, .00559, .00612, .00000, -.00001,
3578 + -.00001, -.00001, .00000,
3579 + .03892, .00499, .00477, .00000, -.00001,
3580 + -.00001, .00000, .00000,
3581 + .03558, .00454, .00387, .00000, .00000,
3582 + .00000, .00000, .00000,
3583 + .03270, .00415, .00319, .00000, .00000,
3584 + .00000, .00000, .00000,
3585 + .02993, .00378, .00260, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02776, .00349, .00219, .00000, .00000,
3589 + .00000, .00000, .00000,
3590 + .02584, .00323, .00186, .00000, .00000,
3591 + .00000, .00000, .00000,
3592 + .02442, .00304, .00164, .00000, .00000,
3593 + .00000, .00000, .00000,
3594 + .02170, .00269, .00126, .00000, .00000,
3595 + .00000, .00000, .00000,
3596 + .01963, .00242, .00101, .00000, .00000,
3597 + .00000, .00000, .00000,
3598 + .01759, .00215, .00079, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01573, .00191, .00063, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01423, .00172, .00051, .00000, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01287, .00155, .00041, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01186, .00142, .00035, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01075, .00128, .00029, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .00987, .00117, .00024, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00914, .00108, .00021, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00829, .00097, .00018, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00757, .00088, .00015, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00696, .00081, .00013, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00641, .00074, .00011, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00591, .00068, .00010, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00548, .00063, .00009, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00511, .00059, .00008, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00476, .00054, .00007, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00444, .00051, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00416, .00047, .00006, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00391, .00044, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00368, .00042, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00346, .00039, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00327, .00037, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00310, .00035, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00294, .00033, .00003, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .03030, .00338, .00544, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .02701, .00299, .00416, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02291, .00251, .00283, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02041, .00222, .00216, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01813, .00196, .00164, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01641, .00177, .00131, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01494, .00160, .00105, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01354, .00144, .00084, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01245, .00132, .00070, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01150, .00121, .00058, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01080, .00114, .00051, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00947, .00099, .00038, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00848, .00088, .00030, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00751, .00078, .00023, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00663, .00068, .00018, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00593, .00061, .00014, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00531, .00054, .00011, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00485, .00049, .00010, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00435, .00044, .00008, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00396, .00040, .00007, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00363, .00036, .00006, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00326, .00032, .00005, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00295, .00029, .00004, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00269, .00027, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00246, .00024, .00003, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00225, .00022, .00003, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00207, .00020, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00191, .00019, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00177, .00017, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00164, .00016, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00153, .00015, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00143, .00014, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00133, .00013, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00125, .00012, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00117, .00011, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00110, .00011, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00104, .00010, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00296, .00020, .00026, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00255, .00017, .00019, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00206, .00014, .00012, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00178, .00012, .00008, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00152, .00010, .00006, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00134, .00009, .00004, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00119, .00008, .00003, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00105, .00007, .00003, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00094, .00006, .00002, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00085, .00006, .00002, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00078, .00005, .00001, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00066, .00004, .00001, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00057, .00004, .00001, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00049, .00003, .00001, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00042, .00003, .00001, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00036, .00002, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00031, .00002, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00028, .00002, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00024, .00002, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00022, .00001, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00019, .00001, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00017, .00001, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00015, .00001, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00012, .00001, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00010, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00009, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00008, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00008, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00007, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00006, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00005, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00005, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00004, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00004, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00004, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
3808 . 1D-4,2D-4,4D-4,6D-4,8D-4,
3809 . 1D-3,2D-3,4D-3,6D-3,8D-3,
3810 . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
3811 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
3812 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
3813 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
3814 . .8D0,.9D0,1D0/
3815 DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
3816 . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
3817 . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
3818 . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
3819 . 1.8D6,3.2D6,5.6D6,1D7/
3820 DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
3821 DATA N0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3823 DATA INIT/0/
3824 SAVE
3825 XSAVE=X
3826 Q2SAVE=QSQ
3827 IF(INIT.NE.0) GOTO 10
3828C OPEN(UNIT=1,FILE='MRSR4.DAT',STATUS='OLD')
3829 DO 20 N=1,NX-1
3830 DO 20 M=1,NQ
3831C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),
3832C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M)
3833C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA
3834 DO 25 I=1,NP
3835 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
3836 20 CONTINUE
3837 DO 31 J=1,NTENTH-1
3838 XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH)
3839 DO 31 I=1,8
3840 IF(I.EQ.5.OR.I.EQ.7) GOTO 31
3841 DO 30 K=1,NQ
3842 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K)
3843 31 CONTINUE
3844 50 FORMAT(8F10.5)
3845 DO 40 I=1,NP
3846 DO 40 M=1,NQ
3847 40 F(I,NX,M)=ZEROD
3848 INIT=1
3849 10 CONTINUE
3850 IF(X.LT.XMIN) X=XMIN
3851 IF(X.GT.XMAX) X=XMAX
3852 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
3853 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
3854 XXX=X
3855 IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH)
3856 N=0
3857 70 N=N+1
3858 IF(XXX.GT.XX(N+1)) GOTO 70
3859 A=(XXX-XX(N))/(XX(N+1)-XX(N))
3860 M=0
3861 80 M=M+1
3862 IF(QSQ.GT.QQ(M+1)) GOTO 80
3863 B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M))
3864 DO 60 I=1,NP
3865 G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1)
3866 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
3867 IF(N.GE.NTENTH) GOTO 65
3868 IF(I.EQ.5.OR.I.EQ.7) GOTO 65
3869 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
3870 G(I)=FAC*10D0**(G(I)-FAC)
3871 65 CONTINUE
3872 G(I)=G(I)*(ONED-X)**N0(I)
3873 60 CONTINUE
3874 UPV=G(1)
3875 DNV=G(2)
3876 USEA=G(4)
3877 DSEA=G(8)
3878 STR=G(6)
3879 CHM=G(5)
3880 GLU=G(3)
3881 BOT=G(7)
3882 X=XSAVE
3883 QSQ=Q2SAVE
3884 RETURN
3885 END