2 subroutine sfmrs_99d7(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00717, .00345, 1.13235, .86984, .00000,
12 + .00000, .46696, .88277,
13 + .00731, .00350, 2.30301, .90813, .00000,
14 + .00000, .50984, .92110,
15 + .00752, .00359, 4.65298, .98662, .01861,
16 + .00000, .59494, .99968,
17 + .00768, .00366, 6.86618, 1.06094, .05201,
18 + .00000, .67393, 1.07405,
19 + .00784, .00373, 9.56719, 1.15519, .16361,
20 + .00000, .77292, 1.16833,
21 + .00798, .00379, 12.37458, 1.25070, .27190,
22 + .00000, .87244, 1.26386,
23 + .00813, .00385, 15.54423, 1.35388, .38616,
24 + .00000, .97939, 1.36706,
25 + .00828, .00392, 19.44288, 1.47657, .52338,
26 + .00000, 1.10600, 1.48976 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00841, .00398, 23.21055, 1.59704, .64799,
29 + .00000, 1.22983, 1.61024,
30 + .00854, .00404, 27.31881, 1.72367, .78433,
31 + .00000, 1.35964, 1.73687,
32 + .00864, .00409, 30.87486, 1.83237, .89979,
33 + .00000, 1.47082, 1.84557,
34 + .00886, .00419, 39.27772, 2.08972, 1.17253,
35 + .00000, 1.73335, 2.10292,
36 + .00905, .00428, 47.13178, 2.33895, 1.43501,
37 + .30452, 1.98691, 2.35211,
38 + .00927, .00439, 57.08773, 2.65004, 1.76223,
39 + .69370, 2.30276, 2.66318,
40 + .00950, .00449, 68.84790, 3.01198, 2.14184,
41 + 1.09126, 2.66950, 3.02508,
42 + .00971, .00460, 80.76862, 3.37500, 2.52224,
43 + 1.49167, 3.03679, 3.38807 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00993, .00471, 94.07154, 3.77760, 2.94362,
46 + 1.93240, 3.44359, 3.79062,
47 + .01011, .00480, 105.95430, 4.13928, 3.31702,
48 + 2.31154, 3.80869, 4.15226,
49 + .01034, .00491, 121.64052, 4.61417, 3.80962,
50 + 2.81959, 4.28764, 4.62710,
51 + .01054, .00501, 136.70639, 5.06918, 4.28246,
52 + 3.30965, 4.74617, 5.08206,
53 + .01073, .00510, 151.35640, 5.51472, 4.74204,
54 + 3.77983, 5.19488, 5.52756,
55 + .01096, .00523, 171.25609, 6.12142, 5.36773,
56 + 4.42130, 5.80552, 6.13419,
57 + .01120, .00534, 191.37984, 6.73653, 6.00248,
58 + 5.07370, 6.42425, 6.74923,
59 + .01141, .00545, 211.38855, 7.35226, 6.63610,
60 + 5.72264, 7.04330, 7.36490 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .01163, .00556, 232.43061, 8.00546, 7.30611,
63 + 6.40622, 7.69978, 8.01804,
64 + .01184, .00567, 254.32302, 8.68659, 8.00646,
65 + 7.12418, 8.38404, 8.69911,
66 + .01205, .00578, 275.85285, 9.36462, 8.70013,
67 + 7.83049, 9.06497, 9.37708,
68 + .01225, .00589, 297.17088, 10.03860, 9.39069,
69 + 8.53591, 9.74166, 10.05098,
70 + .01244, .00599, 319.40183, 10.74776, 10.11572,
71 + 9.27458, 10.45348, 10.76009,
72 + .01264, .00609, 342.14292, 11.47829, 10.86237,
73 + 10.03555, 11.18660, 11.49056,
74 + .01283, .00619, 364.53419, 12.20342, 11.60262,
75 + 10.78917, 11.91415, 12.21564,
76 + .01302, .00628, 386.45694, 12.91799, 12.33201,
77 + 11.53210, 12.63098, 12.93014 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01320, .00638, 409.14378, 13.66457, 13.09257,
80 + 12.30496, 13.37980, 13.67667,
81 + .01338, .00648, 432.42302, 14.43340, 13.87697,
82 + 13.10414, 14.15080, 14.44543,
83 + .01356, .00657, 454.92088, 15.18648, 14.64258,
84 + 13.88066, 14.90595, 15.19847,
85 + .01373, .00666, 477.16770, 15.93190, 15.40223,
86 + 14.65399, 15.65330, 15.94383,
87 + .01390, .00675, 499.88980, 16.70294, 16.18569,
88 + 15.44867, 16.42625, 16.71482 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00966, .00468, 1.03899, .73721, .00000,
91 + .00000, .39549, .74480,
92 + .00985, .00475, 2.09526, .77258, .00000,
93 + .00000, .43443, .78021,
94 + .01014, .00488, 4.17101, .84213, .01699,
95 + .00000, .50912, .84978,
96 + .01036, .00498, 6.08838, .90618, .04546,
97 + .00000, .57680, .91384,
98 + .01058, .00509, 8.38964, .98595, .13980,
99 + .00000, .66026, .99364,
100 + .01077, .00518, 10.74800, 1.06575, .23038,
101 + .00000, .74316, 1.07344,
102 + .01096, .00526, 13.37915, 1.15121, .32494,
103 + .00000, .83153, 1.15890,
104 + .01117, .00536, 16.57774, 1.25198, .43750,
105 + .00000, .93534, 1.25968 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .01134, .00545, 19.63272, 1.34997, .53871,
108 + .00000, 1.03593, 1.35768,
109 + .01151, .00553, 22.93366, 1.45238, .64878,
110 + .00000, 1.14079, 1.46009,
111 + .01165, .00560, 25.76722, 1.53979, .74140,
112 + .00000, 1.23011, 1.54748,
113 + .01195, .00574, 32.38951, 1.74514, .95842,
114 + .00000, 1.43946, 1.75283,
115 + .01222, .00587, 38.48735, 1.94219, 1.16528,
116 + .24010, 1.63987, 1.94989,
117 + .01251, .00602, 46.12496, 2.18611, 1.42087,
118 + .54452, 1.88743, 2.19378,
119 + .01283, .00618, 55.03209, 2.46732, 1.71460,
120 + .85180, 2.17235, 2.47497,
121 + .01312, .00632, 63.95318, 2.74700, 2.00641,
122 + 1.15853, 2.45532, 2.75463 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .01341, .00647, 73.79903, 3.05471, 2.32704,
125 + 1.49332, 2.76628, 3.06233,
126 + .01366, .00660, 82.50258, 3.32905, 2.60892,
127 + 1.77886, 3.04325, 3.33664,
128 + .01396, .00675, 93.88464, 3.68680, 2.97828,
129 + 2.15898, 3.40412, 3.69436,
130 + .01423, .00690, 104.71313, 4.02717, 3.33035,
131 + 2.52308, 3.74719, 4.03470,
132 + .01447, .00702, 115.14956, 4.35824, 3.67023,
133 + 2.86992, 4.08071, 4.36575,
134 + .01479, .00719, 129.19899, 4.80603, 4.12987,
135 + 3.33997, 4.53153, 4.81351,
136 + .01511, .00734, 143.27412, 5.25680, 4.59290,
137 + 3.81470, 4.98508, 5.26424,
138 + .01539, .00750, 157.14555, 5.70497, 5.05200,
139 + 4.28367, 5.43582, 5.71238 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01568, .00766, 171.60931, 6.17732, 5.53429,
142 + 4.77439, 5.91067, 6.18470,
143 + .01598, .00781, 186.54410, 6.66695, 6.03556,
144 + 5.28697, 6.40271, 6.67430,
145 + .01625, .00795, 201.11324, 7.15130, 6.52891,
146 + 5.78791, 6.88931, 7.15862,
147 + .01651, .00809, 215.44302, 7.63022, 7.01756,
148 + 6.28577, 7.37031, 7.63752,
149 + .01678, .00823, 230.28368, 8.13145, 7.52785,
150 + 6.80426, 7.87359, 8.13870,
151 + .01704, .00837, 245.36612, 8.64511, 8.05070,
152 + 7.33574, 8.38923, 8.65234,
153 + .01729, .00850, 260.12374, 9.15244, 8.56654,
154 + 7.85950, 8.89843, 9.15964,
155 + .01753, .00863, 274.48936, 9.65008, 9.07252,
156 + 8.37355, 9.39781, 9.65725 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01777, .00877, 289.26763, 10.16759, 9.59767,
159 + 8.90577, 9.91705, 10.17474,
160 + .01802, .00890, 304.35575, 10.69833, 10.13718,
161 + 9.45409, 10.44947, 10.70544,
162 + .01825, .00902, 318.84765, 11.21574, 10.66117,
163 + 9.98411, 10.96846, 11.22282,
164 + .01848, .00914, 333.11929, 11.72608, 11.17944,
165 + 10.51043, 11.48030, 11.73314,
166 + .01871, .00927, 347.61237, 12.25163, 11.71154,
167 + 11.04875, 12.00734, 12.25867 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .01302, .00634, .95243, .62489, .00000,
170 + .00000, .33544, .62879,
171 + .01328, .00646, 1.90549, .65729, .00000,
172 + .00000, .37064, .66119,
173 + .01367, .00664, 3.73811, .71866, .01569,
174 + .00000, .43600, .72257,
175 + .01395, .00678, 5.39805, .77373, .03987,
176 + .00000, .49388, .77765,
177 + .01426, .00694, 7.35645, .84114, .11951,
178 + .00000, .56414, .84505,
179 + .01453, .00707, 9.33456, .90768, .19519,
180 + .00000, .63308, .91160,
181 + .01478, .00719, 11.51482, .97830, .27332,
182 + .00000, .70595, .98221,
183 + .01506, .00733, 14.13367, 1.06087, .36550,
184 + .00000, .79087, 1.06479 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01530, .00746, 16.60480, 1.14037, .44758,
187 + .00000, .87236, 1.14428,
188 + .01553, .00757, 19.25028, 1.22296, .53626,
189 + .00000, .95685, 1.22687,
190 + .01571, .00767, 21.50185, 1.29302, .61042,
191 + .00000, 1.02838, 1.29693,
192 + .01613, .00787, 26.70514, 1.45635, .78277,
193 + .00000, 1.19478, 1.46025,
194 + .01647, .00805, 31.42304, 1.61165, .94547,
195 + .18878, 1.35264, 1.61553,
196 + .01688, .00826, 37.25948, 1.80219, 1.14467,
197 + .42668, 1.54599, 1.80606,
198 + .01731, .00848, 43.97753, 2.01984, 1.37144,
199 + .66392, 1.76648, 2.02370,
200 + .01770, .00869, 50.62398, 2.23445, 1.59473,
201 + .89863, 1.98361, 2.23830 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01809, .00890, 57.87663, 2.46867, 1.83808,
204 + 1.15262, 2.22031, 2.47251,
205 + .01842, .00907, 64.21921, 2.67584, 2.05028,
206 + 1.36737, 2.42950, 2.67969,
207 + .01883, .00929, 72.43448, 2.94413, 2.32642,
208 + 1.65134, 2.70017, 2.94795,
209 + .01919, .00949, 80.17462, 3.19757, 2.58779,
210 + 1.92142, 2.95568, 3.20139,
211 + .01953, .00966, 87.56628, 3.44243, 2.83835,
212 + 2.17682, 3.20239, 3.44624,
213 + .01997, .00989, 97.42554, 3.77132, 3.17489,
214 + 2.52058, 3.53360, 3.77511,
215 + .02037, .01011, 107.20846, 4.10002, 3.51149,
216 + 2.86532, 3.86441, 4.10379,
217 + .02075, .01031, 116.76213, 4.42456, 3.84295,
218 + 3.20348, 4.19092, 4.42833 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .02115, .01052, 126.63627, 4.76433, 4.18880,
221 + 3.55489, 4.53259, 4.76808,
222 + .02153, .01074, 136.75330, 5.11442, 4.54618,
223 + 3.91989, 4.88453, 5.11816,
224 + .02190, .01094, 146.53990, 5.45853, 4.89563,
225 + 4.27421, 5.23034, 5.46226,
226 + .02224, .01112, 156.10017, 5.79695, 5.23997,
227 + 4.62458, 5.57035, 5.80068,
228 + .02260, .01132, 165.93048, 6.14918, 5.59756,
229 + 4.98741, 5.92415, 6.15290,
230 + .02295, .01151, 175.85418, 6.50826, 5.96207,
231 + 5.35743, 6.28474, 6.51197,
232 + .02329, .01169, 185.50083, 6.86111, 6.31988,
233 + 5.72023, 6.63902, 6.86481,
234 + .02361, .01187, 194.83539, 7.20560, 6.66926,
235 + 6.07469, 6.98483, 7.20930 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02393, .01205, 204.37872, 7.56214, 7.03011,
238 + 6.43987, 7.34270, 7.56583,
239 + .02426, .01222, 214.07263, 7.92627, 7.39936,
240 + 6.81469, 7.70811, 7.92995,
241 + .02457, .01240, 223.32220, 8.27950, 7.75619,
242 + 7.17507, 8.06255, 8.28317,
243 + .02486, .01256, 232.39405, 8.62670, 8.10797,
244 + 7.53188, 8.41087, 8.63036,
245 + .02516, .01273, 241.55039, 8.98261, 8.46744,
246 + 7.89502, 8.76793, 8.98627 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .01550, .00758, .90453, .56744, .00000,
249 + .00000, .30499, .56982,
250 + .01580, .00773, 1.80212, .59808, .00000,
251 + .00000, .33805, .60047,
252 + .01626, .00796, 3.50556, .65499, .01508,
253 + .00000, .39839, .65736,
254 + .01661, .00814, 5.03079, .70533, .03701,
255 + .00000, .45117, .70771,
256 + .01698, .00831, 6.81192, .76632, .10907,
257 + .00000, .51462, .76870,
258 + .01729, .00847, 8.59541, .82607, .17712,
259 + .00000, .57642, .82844,
260 + .01760, .00864, 10.54689, .88915, .24693,
261 + .00000, .64145, .89152,
262 + .01792, .00880, 12.87420, .96253, .32886,
263 + .00000, .71684, .96489 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01822, .00895, 15.05431, 1.03275, .40137,
266 + .00000, .78878, 1.03511,
267 + .01849, .00910, 17.37534, 1.10546, .47945,
268 + .00000, .86311, 1.10781,
269 + .01872, .00921, 19.34071, 1.16690, .54449,
270 + .00000, .92582, 1.16926,
271 + .01920, .00946, 23.85220, 1.30950, .69492,
272 + .00000, 1.07105, 1.31184,
273 + .01962, .00969, 27.90541, 1.44432, .83611,
274 + .16366, 1.20808, 1.44667,
275 + .02011, .00994, 32.88202, 1.60889, 1.00808,
276 + .36947, 1.37505, 1.61123,
277 + .02061, .01021, 38.56564, 1.79585, 1.20272,
278 + .57324, 1.56444, 1.79819,
279 + .02108, .01046, 44.14741, 1.97925, 1.39338,
280 + .77378, 1.74999, 1.98157 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .02155, .01071, 50.19699, 2.17844, 1.60015,
283 + .98969, 1.95130, 2.18076,
284 + .02195, .01092, 55.45327, 2.35381, 1.77959,
285 + 1.17130, 2.12839, 2.35612,
286 + .02243, .01118, 62.22248, 2.57996, 2.01214,
287 + 1.41049, 2.35658, 2.58228,
288 + .02286, .01142, 68.56315, 2.79271, 2.23131,
289 + 1.63704, 2.57110, 2.79503,
290 + .02326, .01163, 74.58492, 2.99741, 2.44057,
291 + 1.85034, 2.77737, 2.99972,
292 + .02378, .01192, 82.57258, 3.27124, 2.72048,
293 + 2.13627, 3.05318, 3.27355,
294 + .02426, .01218, 90.45278, 3.54374, 2.99926,
295 + 2.42179, 3.32748, 3.54604,
296 + .02472, .01244, 98.10611, 3.81168, 3.27263,
297 + 2.70069, 3.59710, 3.81399 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02518, .01268, 105.97410, 4.09108, 3.55673,
300 + 2.98933, 3.87812, 4.09338,
301 + .02563, .01293, 113.99832, 4.37794, 3.84930,
302 + 3.28813, 4.16655, 4.38024,
303 + .02606, .01317, 121.72077, 4.65882, 4.13425,
304 + 3.57700, 4.44889, 4.66112,
305 + .02648, .01340, 129.23373, 4.93418, 4.41417,
306 + 3.86179, 4.72560, 4.93648,
307 + .02690, .01363, 136.92544, 5.21983, 4.70390,
308 + 4.15572, 5.01259, 5.22214,
309 + .02731, .01386, 144.65861, 5.51013, 4.99833,
310 + 4.45456, 5.30418, 5.51244,
311 + .02771, .01408, 152.14629, 5.79452, 5.28646,
312 + 4.74666, 5.58978, 5.79683,
313 + .02809, .01429, 159.36573, 6.07140, 5.56704,
314 + 5.03128, 5.86779, 6.07372 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02847, .01450, 166.71872, 6.35715, 5.85599,
317 + 5.32365, 6.15465, 6.35946,
318 + .02885, .01471, 174.16457, 6.64825, 6.15097,
319 + 5.62304, 6.44686, 6.65057,
320 + .02921, .01491, 181.24062, 6.92980, 6.43514,
321 + 5.90998, 6.72944, 6.93211,
322 + .02956, .01511, 188.16380, 7.20599, 6.71477,
323 + 6.19358, 7.00659, 7.20830,
324 + .02992, .01531, 195.12513, 7.48831, 6.99969,
325 + 6.48134, 7.28988, 7.49063 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01754, .00861, .87176, .53000, .00000,
328 + .00000, .28526, .53156,
329 + .01788, .00878, 1.73207, .55939, .00000,
330 + .00000, .31684, .56096,
331 + .01840, .00905, 3.34924, .61326, .01473,
332 + .00000, .37382, .61482,
333 + .01880, .00925, 4.78543, .66046, .03515,
334 + .00000, .42320, .66201,
335 + .01921, .00947, 6.45017, .71722, .10224,
336 + .00000, .48218, .71877,
337 + .01957, .00965, 8.10671, .77254, .16531,
338 + .00000, .53936, .77408,
339 + .01992, .00983, 9.90980, .83071, .22971,
340 + .00000, .59927, .83224,
341 + .02029, .01003, 12.04900, .89813, .30502,
342 + .00000, .66852, .89967 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .02062, .01020, 14.04238, .96238, .37139,
345 + .00000, .73430, .96392,
346 + .02094, .01037, 16.15619, 1.02874, .44266,
347 + .00000, .80211, 1.03026,
348 + .02119, .01050, 17.93948, 1.08467, .50188,
349 + .00000, .85918, 1.08620,
350 + .02174, .01080, 22.01319, 1.21403, .63838,
351 + .00000, .99091, 1.21556,
352 + .02222, .01106, 25.64919, 1.33587, .76598,
353 + .14769, 1.11473, 1.33739,
354 + .02276, .01134, 30.08907, 1.48404, .92078,
355 + .33331, 1.26504, 1.48556,
356 + .02333, .01166, 35.13102, 1.65168, 1.09531,
357 + .51616, 1.43487, 1.65320,
358 + .02386, .01194, 40.05635, 1.81552, 1.26561,
359 + .69543, 1.60065, 1.81705 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .02440, .01223, 45.36825, 1.99288, 1.44966,
362 + .88773, 1.77989, 1.99440,
363 + .02485, .01247, 49.96191, 2.14848, 1.60883,
364 + 1.04889, 1.93704, 2.15000,
365 + .02539, .01278, 55.85330, 2.34856, 1.81450,
366 + 1.26055, 2.13894, 2.35010,
367 + .02588, .01304, 61.34850, 2.53621, 2.00777,
368 + 1.46041, 2.32818, 2.53774,
369 + .02633, .01329, 66.54644, 2.71624, 2.19173,
370 + 1.64799, 2.50962, 2.71777,
371 + .02692, .01360, 73.41371, 2.95635, 2.43709,
372 + 1.89872, 2.75149, 2.95789,
373 + .02746, .01390, 80.16035, 3.19455, 2.68071,
374 + 2.14833, 2.99132, 3.19610,
375 + .02797, .01419, 86.68666, 3.42809, 2.91889,
376 + 2.39140, 3.22634, 3.42964 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02850, .01448, 93.36997, 3.67090, 3.16570,
379 + 2.64222, 3.47062, 3.67246,
380 + .02901, .01476, 100.16329, 3.91958, 3.41925,
381 + 2.90126, 3.72069, 3.92114,
382 + .02950, .01503, 106.67660, 4.16239, 3.66549,
383 + 3.15093, 3.96480, 4.16396,
384 + .02997, .01529, 112.99437, 4.39989, 3.90685,
385 + 3.39656, 4.20351, 4.40146,
386 + .03043, .01556, 119.44208, 4.64568, 4.15607,
387 + 3.64944, 4.45049, 4.64726,
388 + .03090, .01582, 125.90537, 4.89490, 4.40876,
389 + 3.90598, 4.70086, 4.89649,
390 + .03134, .01606, 132.14548, 5.13852, 4.65552,
391 + 4.15619, 4.94557, 5.14012,
392 + .03178, .01630, 138.14627, 5.37523, 4.89532,
393 + 4.39951, 5.18328, 5.37684 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .03221, .01654, 144.24107, 5.61901, 5.14177,
396 + 4.64891, 5.42807, 5.62063,
397 + .03263, .01678, 150.39938, 5.86692, 5.39294,
398 + 4.90390, 5.67696, 5.86855,
399 + .03304, .01701, 156.23389, 6.10618, 5.63436,
400 + 5.14770, 5.91714, 6.10781,
401 + .03343, .01723, 161.93273, 6.34053, 5.87159,
402 + 5.38836, 6.15236, 6.34218,
403 + .03382, .01745, 167.64675, 6.57962, 6.11281,
404 + 5.63202, 6.39230, 6.58126 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01929, .00951, .84725, .50273, .00000,
407 + .00000, .27092, .50376,
408 + .01968, .00970, 1.67977, .53117, .00000,
409 + .00000, .30137, .53219,
410 + .02025, .01000, 3.23294, .58275, .01448,
411 + .00000, .35585, .58377,
412 + .02069, .01023, 4.60353, .62761, .03380,
413 + .00000, .40273, .62863,
414 + .02115, .01047, 6.18313, .68128, .09723,
415 + .00000, .45844, .68229,
416 + .02155, .01068, 7.74720, .73335, .15667,
417 + .00000, .51223, .73436,
418 + .02193, .01088, 9.44259, .78795, .21715,
419 + .00000, .56844, .78895,
420 + .02234, .01110, 11.44587, .85106, .28765,
421 + .00000, .63322, .85207 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .02270, .01129, 13.30484, .91100, .34959,
424 + .00000, .69458, .91200,
425 + .02305, .01148, 15.26995, .97276, .41598,
426 + .00000, .75770, .97377,
427 + .02333, .01163, 16.92299, 1.02474, .47102,
428 + .00000, .81072, 1.02574,
429 + .02393, .01195, 20.68480, 1.14463, .59755,
430 + .00000, .93278, 1.14564,
431 + .02446, .01224, 24.02560, 1.25718, .71545,
432 + .13626, 1.04716, 1.25818,
433 + .02506, .01256, 28.08728, 1.39365, .85807,
434 + .30755, 1.18562, 1.39467,
435 + .02569, .01291, 32.67910, 1.54760, 1.01834,
436 + .47559, 1.34158, 1.54862,
437 + .02628, .01323, 37.14591, 1.69762, 1.17428,
438 + .63987, 1.49337, 1.69865 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02686, .01354, 41.94466, 1.85957, 1.34237,
441 + .81561, 1.65707, 1.86061,
442 + .02735, .01382, 46.07910, 2.00128, 1.48732,
443 + .96245, 1.80020, 2.00233,
444 + .02795, .01415, 51.36431, 2.18310, 1.67419,
445 + 1.15488, 1.98370, 2.18414,
446 + .02849, .01444, 56.27775, 2.35319, 1.84938,
447 + 1.33615, 2.15525, 2.35425,
448 + .02899, .01472, 60.91061, 2.51601, 2.01575,
449 + 1.50587, 2.31937, 2.51707,
450 + .02963, .01508, 67.01195, 2.73267, 2.23712,
451 + 1.73220, 2.53765, 2.73374,
452 + .03023, .01541, 72.98647, 2.94708, 2.45640,
453 + 1.95698, 2.75355, 2.94817,
454 + .03079, .01572, 78.74755, 3.15681, 2.67029,
455 + 2.17536, 2.96466, 3.15791 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .03136, .01604, 84.62911, 3.37438, 2.89142,
458 + 2.40016, 3.18357, 3.37550,
459 + .03193, .01636, 90.59177, 3.59675, 3.11814,
460 + 2.63190, 3.40723, 3.59788,
461 + .03247, .01665, 96.29164, 3.81341, 3.33784,
462 + 2.85474, 3.62508, 3.81455,
463 + .03298, .01694, 101.80743, 4.02495, 3.55281,
464 + 3.07360, 3.83773, 4.02610,
465 + .03350, .01723, 107.42249, 4.24347, 3.77437,
466 + 3.29850, 4.05733, 4.24463,
467 + .03400, .01751, 113.03797, 4.46464, 3.99861,
468 + 3.52624, 4.27957, 4.46582,
469 + .03449, .01779, 118.44710, 4.68047, 4.21721,
470 + 3.74798, 4.49640, 4.68165,
471 + .03495, .01805, 123.63794, 4.88985, 4.42932,
472 + 3.96328, 4.70671, 4.89105 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03543, .01831, 128.89840, 5.10513, 4.64694,
475 + 4.18358, 4.92291, 5.10634,
476 + .03590, .01858, 134.20436, 5.32376, 4.86845,
477 + 4.40854, 5.14245, 5.32499,
478 + .03634, .01883, 139.21929, 5.53439, 5.08097,
479 + 4.62322, 5.35393, 5.53564,
480 + .03677, .01907, 144.11092, 5.74047, 5.28959,
481 + 4.83494, 5.56079, 5.74172,
482 + .03721, .01932, 149.00451, 5.95038, 5.50138,
483 + 5.04893, 5.77149, 5.95164 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .02604, .01301, .77475, .42720, .00000,
486 + .00000, .23173, .42734,
487 + .02655, .01328, 1.52734, .45263, .00000,
488 + .00000, .25877, .45278,
489 + .02733, .01371, 2.89708, .49745, .01397,
490 + .00000, .30586, .49760,
491 + .02792, .01402, 4.08185, .53557, .03008,
492 + .00000, .34559, .53573,
493 + .02854, .01436, 5.42203, .58045, .08321,
494 + .00000, .39208, .58061,
495 + .02908, .01466, 6.72813, .62343, .13249,
496 + .00000, .43642, .62360,
497 + .02959, .01494, 8.12527, .66808, .18205,
498 + .00000, .48235, .66826,
499 + .03016, .01524, 9.75473, .71923, .23933,
500 + .00000, .53482, .71943 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .03064, .01551, 11.24673, .76731, .28913,
503 + .00000, .58401, .76752,
504 + .03111, .01578, 12.80822, .81656, .34218,
505 + .00000, .63433, .81678,
506 + .03149, .01598, 14.10954, .85773, .38587,
507 + .00000, .67632, .85795,
508 + .03230, .01643, 17.03501, .95192, .48548,
509 + .00000, .77222, .95217,
510 + .03301, .01683, 19.59146, 1.03950, .57739,
511 + .10530, .86123, 1.03977,
512 + .03382, .01728, 22.65513, 1.14472, .68756,
513 + .23842, .96801, 1.14500,
514 + .03467, .01776, 26.06930, 1.26225, .81012,
515 + .36736, 1.08712, 1.26257,
516 + .03545, .01820, 29.34608, 1.37575, .92827,
517 + .49225, 1.20200, 1.37608 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03624, .01864, 32.82281, 1.49723, 1.05454,
520 + .62469, 1.32485, 1.49760,
521 + .03690, .01902, 35.78236, 1.60264, 1.16249,
522 + .73433, 1.43136, 1.60302,
523 + .03771, .01947, 39.52631, 1.73687, 1.30065,
524 + .87702, 1.56691, 1.73729,
525 + .03843, .01988, 42.97003, 1.86154, 1.42921,
526 + 1.01045, 1.69271, 1.86198,
527 + .03909, .02025, 46.18372, 1.97999, 1.55038,
528 + 1.13438, 1.81218, 1.98045,
529 + .03994, .02074, 50.37316, 2.13647, 1.71045,
530 + 1.29847, 1.96993, 2.13697,
531 + .04074, .02120, 54.43222, 2.29015, 1.86781,
532 + 1.46022, 2.12477, 2.29068,
533 + .04150, .02163, 58.30648, 2.43937, 2.02015,
534 + 1.61616, 2.27506, 2.43993 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .04226, .02206, 62.22230, 2.59305, 2.17651,
537 + 1.77551, 2.42978, 2.59364,
538 + .04301, .02249, 66.15863, 2.74914, 2.33584,
539 + 1.93878, 2.58687, 2.74976,
540 + .04373, .02290, 69.88490, 2.90016, 2.48913,
541 + 2.09463, 2.73882, 2.90082,
542 + .04440, .02328, 73.46366, 3.04678, 2.63829,
543 + 2.24686, 2.88631, 3.04747,
544 + .04509, .02367, 77.07705, 3.19733, 2.79109,
545 + 2.40233, 3.03771, 3.19805,
546 + .04576, .02406, 80.66317, 3.34887, 2.94489,
547 + 2.55890, 3.19007, 3.34961,
548 + .04640, .02443, 84.09181, 3.49592, 3.09400,
549 + 2.71049, 3.33791, 3.49671,
550 + .04702, .02478, 87.35981, 3.63787, 3.23796,
551 + 2.85696, 3.48058, 3.63868 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04764, .02513, 90.64751, 3.78305, 3.38488,
554 + 3.00602, 3.62648, 3.78390,
555 + .04826, .02549, 93.94514, 3.92985, 3.53379,
556 + 3.15761, 3.77398, 3.93072,
557 + .04885, .02582, 97.03660, 4.07051, 3.67583,
558 + 3.30139, 3.91529, 4.07141,
559 + .04941, .02615, 100.03954, 4.20761, 3.81482,
560 + 3.44277, 4.05303, 4.20855,
561 + .04999, .02648, 103.02046, 4.34657, 3.95514,
562 + 3.58486, 4.19258, 4.34752 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .03527, .01792, .70976, .36434, .00000,
565 + .00000, .19978, .36456,
566 + .03596, .01830, 1.39172, .38673, .00000,
567 + .00000, .22349, .38697,
568 + .03700, .01887, 2.59898, .42516, .01382,
569 + .00000, .26378, .42543,
570 + .03779, .01932, 3.62208, .45720, .02699,
571 + .00000, .29713, .45751,
572 + .03861, .01978, 4.75649, .49437, .07116,
573 + .00000, .33560, .49470,
574 + .03933, .02018, 5.84343, .52950, .11171,
575 + .00000, .37185, .52986,
576 + .04002, .02058, 6.98981, .56568, .15202,
577 + .00000, .40906, .56607,
578 + .04076, .02100, 8.30834, .60676, .19820,
579 + .00000, .45121, .60717 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .04141, .02137, 9.49849, .64497, .23792,
582 + .00000, .49033, .64541,
583 + .04205, .02173, 10.73093, .68386, .27999,
584 + .00000, .53008, .68433,
585 + .04256, .02202, 11.74784, .71616, .31440,
586 + .00000, .56305, .71667,
587 + .04364, .02264, 14.00444, .78947, .39224,
588 + .00000, .63776, .79001,
589 + .04459, .02319, 15.94400, .85696, .46334,
590 + .07999, .70640, .85754,
591 + .04568, .02382, 18.23095, .93728, .54774,
592 + .18280, .78798, .93793,
593 + .04682, .02448, 20.74075, 1.02611, .64071,
594 + .28109, .87809, 1.02681,
595 + .04786, .02507, 23.11508, 1.11108, .72949,
596 + .37542, .96418, 1.11183 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04891, .02569, 25.60091, 1.20123, .82353,
599 + .47454, 1.05545, 1.20203,
600 + .04979, .02620, 27.68954, 1.27876, .90319,
601 + .55581, 1.13387, 1.27962,
602 + .05086, .02683, 30.30236, 1.37677, 1.00440,
603 + .66083, 1.23295, 1.37768,
604 + .05183, .02738, 32.67836, 1.46708, 1.09785,
605 + .75829, 1.32417, 1.46805,
606 + .05271, .02790, 34.87094, 1.55224, 1.18524,
607 + .84808, 1.41016, 1.55325,
608 + .05384, .02855, 37.69792, 1.66389, 1.29981,
609 + .96607, 1.52283, 1.66496,
610 + .05491, .02917, 40.40582, 1.77266, 1.41155,
611 + 1.08146, 1.63256, 1.77380,
612 + .05591, .02975, 42.96177, 1.87748, 1.51889,
613 + 1.19183, 1.73824, 1.87867 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05693, .03034, 45.51698, 1.98460, 1.62822,
616 + 1.30373, 1.84620, 1.98586,
617 + .05792, .03092, 48.06234, 2.09270, 1.73890,
618 + 1.41768, 1.95512, 2.09401,
619 + .05886, .03147, 50.44582, 2.19651, 1.84459,
620 + 1.52559, 2.05969, 2.19789,
621 + .05975, .03199, 52.71634, 2.29672, 1.94683,
622 + 1.63040, 2.16060, 2.29814,
623 + .06065, .03252, 54.98800, 2.39896, 2.05090,
624 + 1.73674, 2.26353, 2.40043,
625 + .06155, .03304, 57.22371, 2.50124, 2.15504,
626 + 1.84321, 2.36649, 2.50278,
627 + .06240, .03352, 59.34355, 2.59995, 2.25541,
628 + 1.94569, 2.46582, 2.60153,
629 + .06321, .03400, 61.34904, 2.69472, 2.35181,
630 + 2.04419, 2.56118, 2.69635 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .06403, .03447, 63.35001, 2.79110, 2.44962,
633 + 2.14384, 2.65816, 2.79279,
634 + .06484, .03494, 65.34499, 2.88813, 2.54833,
635 + 2.24477, 2.75575, 2.88986,
636 + .06562, .03539, 67.19763, 2.98052, 2.64189,
637 + 2.33986, 2.84868, 2.98230,
638 + .06636, .03582, 68.98943, 3.07026, 2.73314,
639 + 2.43309, 2.93894, 3.07209,
640 + .06710, .03626, 70.75214, 3.16069, 2.82472,
641 + 2.52620, 3.02987, 3.16257 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .04218, .02168, .67776, .33284, .00000,
644 + .00000, .18408, .33345,
645 + .04298, .02213, 1.32257, .35343, .00000,
646 + .00000, .20584, .35408,
647 + .04421, .02282, 2.44326, .38825, .01385,
648 + .00000, .24236, .38898,
649 + .04514, .02334, 3.38123, .41701, .02540,
650 + .00000, .27229, .41777,
651 + .04611, .02391, 4.40832, .45007, .06484,
652 + .00000, .30653, .45087,
653 + .04695, .02439, 5.38195, .48111, .10083,
654 + .00000, .33856, .48196,
655 + .04777, .02487, 6.39970, .51290, .13636,
656 + .00000, .37129, .51379,
657 + .04865, .02539, 7.56012, .54882, .17685,
658 + .00000, .40818, .54976 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .04942, .02583, 8.59824, .58201, .21147,
661 + .00000, .44218, .58299,
662 + .05017, .02627, 9.66607, .61568, .24801,
663 + .00000, .47664, .61671,
664 + .05078, .02662, 10.54169, .64356, .27778,
665 + .00000, .50510, .64461,
666 + .05206, .02736, 12.46896, .70648, .34479,
667 + .00000, .56929, .70761,
668 + .05319, .02803, 14.10914, .76407, .40564,
669 + .06730, .62792, .76526,
670 + .05448, .02878, 16.02239, .83224, .47749,
671 + .15529, .69722, .83351,
672 + .05582, .02957, 18.10193, .90715, .55612,
673 + .23874, .77329, .90850,
674 + .05705, .03029, 20.05143, .97841, .63080,
675 + .31838, .84557, .97983 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05830, .03103, 22.07536, 1.05360, .70946,
678 + .40160, .92177, 1.05511,
679 + .05934, .03163, 23.76181, 1.11793, .77574,
680 + .46946, .98691, 1.11949,
681 + .06062, .03238, 25.85671, 1.19887, .85956,
682 + .55676, 1.06882, 1.20052,
683 + .06175, .03306, 27.74803, 1.27311, .93660,
684 + .63740, 1.14388, 1.27482,
685 + .06280, .03366, 29.48083, 1.34277, 1.00828,
686 + .71131, 1.21430, 1.34455,
687 + .06413, .03444, 31.69944, 1.43369, 1.10182,
688 + .80800, 1.30615, 1.43556,
689 + .06538, .03518, 33.80919, 1.52183, 1.19262,
690 + .90210, 1.39515, 1.52378,
691 + .06656, .03588, 35.78638, 1.60635, 1.27941,
692 + .99167, 1.48046, 1.60839 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06776, .03659, 37.74898, 1.69234, 1.36739,
695 + 1.08204, 1.56722, 1.69446,
696 + .06892, .03726, 39.69281, 1.77876, 1.45613,
697 + 1.17373, 1.65438, 1.78095,
698 + .07003, .03792, 41.50007, 1.86138, 1.54044,
699 + 1.26011, 1.73769, 1.86364,
700 + .07108, .03853, 43.21269, 1.94083, 1.62172,
701 + 1.34373, 1.81778, 1.94316,
702 + .07214, .03915, 44.91601, 2.02157, 1.70413,
703 + 1.42823, 1.89915, 2.02397,
704 + .07319, .03977, 46.58322, 2.10206, 1.78628,
705 + 1.51253, 1.98026, 2.10454,
706 + .07418, .04035, 48.15547, 2.17945, 1.86518,
707 + 1.59337, 2.05822, 2.18199,
708 + .07513, .04090, 49.63564, 2.25351, 1.94070,
709 + 1.67081, 2.13281, 2.25610 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07609, .04146, 51.10436, 2.32856, 2.01706,
712 + 1.74887, 2.20841, 2.33123,
713 + .07703, .04202, 52.56310, 2.40390, 2.09391,
714 + 1.82774, 2.28428, 2.40663,
715 + .07793, .04254, 53.90887, 2.47537, 2.16646,
716 + 1.90173, 2.35624, 2.47816,
717 + .07880, .04304, 55.20716, 2.54464, 2.23708,
718 + 1.97414, 2.42597, 2.54750,
719 + .07967, .04356, 56.47634, 2.61419, 2.30768,
720 + 2.04617, 2.49598, 2.61710 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .04789, .02479, .66066, .31236, .00000,
723 + .00000, .17407, .31351,
724 + .04880, .02531, 1.28072, .33168, .00000,
725 + .00000, .19449, .33287,
726 + .05017, .02611, 2.34312, .36407, .01389,
727 + .00000, .22842, .36530,
728 + .05121, .02671, 3.22407, .39060, .02434,
729 + .00000, .25605, .39191,
730 + .05230, .02735, 4.17960, .42096, .06062,
731 + .00000, .28750, .42232,
732 + .05325, .02791, 5.07813, .44931, .09359,
733 + .00000, .31679, .45073,
734 + .05418, .02845, 6.01112, .47824, .12597,
735 + .00000, .34658, .47970,
736 + .05518, .02904, 7.06794, .51081, .16275,
737 + .00000, .38005, .51235 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .05604, .02955, 8.00700, .54080, .19406,
740 + .00000, .41079, .54237,
741 + .05688, .03005, 8.96818, .57112, .22702,
742 + .00000, .44184, .57274,
743 + .05757, .03045, 9.75266, .59614, .25381,
744 + .00000, .46743, .59780,
745 + .05901, .03130, 11.46881, .65246, .31389,
746 + .00000, .52491, .65421,
747 + .06029, .03207, 12.91846, .70377, .36821,
748 + .05922, .57719, .70560,
749 + .06174, .03292, 14.59563, .76426, .43209,
750 + .13779, .63874, .76617,
751 + .06325, .03382, 16.40542, .83043, .50169,
752 + .21187, .70601, .83245,
753 + .06464, .03464, 18.09043, .89312, .56751,
754 + .28229, .76964, .89522 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .06605, .03548, 19.82872, .95902, .63657,
757 + .35556, .83647, .96121,
758 + .06722, .03618, 21.26799, 1.01515, .69452,
759 + .41506, .89336, 1.01742,
760 + .06866, .03703, 23.04643, 1.08554, .76756,
761 + .49137, .96466, 1.08791,
762 + .06992, .03779, 24.64330, 1.14987, .83445,
763 + .56160, 1.02978, 1.15233,
764 + .07110, .03848, 26.09830, 1.21004, .89648,
765 + .62574, 1.09064, 1.21256,
766 + .07259, .03937, 27.95136, 1.28827, .97715,
767 + .70937, 1.16974, 1.29090,
768 + .07400, .04021, 29.70378, 1.36385, 1.05514,
769 + .79046, 1.24614, 1.36658,
770 + .07534, .04099, 31.33711, 1.43607, 1.12945,
771 + .86736, 1.31909, 1.43889 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07666, .04178, 32.94956, 1.50928, 1.20450,
774 + .94468, 1.39302, 1.51218,
775 + .07797, .04255, 34.53962, 1.58263, 1.27997,
776 + 1.02290, 1.46707, 1.58563,
777 + .07921, .04329, 36.00974, 1.65251, 1.35142,
778 + 1.09633, 1.53760, 1.65558,
779 + .08039, .04397, 37.39734, 1.71952, 1.42013,
780 + 1.16722, 1.60522, 1.72268,
781 + .08158, .04467, 38.77103, 1.78743, 1.48957,
782 + 1.23865, 1.67373, 1.79067,
783 + .08274, .04536, 40.10988, 1.85493, 1.55861,
784 + 1.30970, 1.74180, 1.85826,
785 + .08385, .04601, 41.36716, 1.91965, 1.62473,
786 + 1.37765, 1.80707, 1.92307,
787 + .08491, .04663, 42.54630, 1.98144, 1.68786,
788 + 1.44259, 1.86937, 1.98492 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08597, .04725, 43.71119, 2.04389, 1.75153,
791 + 1.50788, 1.93233, 2.04745,
792 + .08703, .04788, 44.86480, 2.10644, 1.81549,
793 + 1.57371, 1.99539, 2.11008,
794 + .08804, .04846, 45.92350, 2.16561, 1.87567,
795 + 1.63527, 2.05502, 2.16932,
796 + .08899, .04902, 46.94287, 2.22287, 1.93417,
797 + 1.69543, 2.11272, 2.22664,
798 + .08997, .04959, 47.93430, 2.28019, 1.99248,
799 + 1.75511, 2.17047, 2.28403 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .05288, .02767, .65291, .29826, .00000,
802 + .00000, .16690, .29947,
803 + .05387, .02824, 1.25467, .31658, .00000,
804 + .00000, .18623, .31785,
805 + .05537, .02912, 2.27309, .34706, .01387,
806 + .00000, .21814, .34841,
807 + .05651, .02981, 3.11094, .37192, .02348,
808 + .00000, .24401, .37333,
809 + .05771, .03051, 4.01266, .40022, .05738,
810 + .00000, .27334, .40171,
811 + .05876, .03113, 4.85482, .42656, .08807,
812 + .00000, .30053, .42811,
813 + .05978, .03174, 5.72432, .45335, .11812,
814 + .00000, .32814, .45497,
815 + .06087, .03239, 6.70381, .48344, .15216,
816 + .00000, .35906, .48512 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .06183, .03295, 7.56923, .51104, .18102,
819 + .00000, .38736, .51279,
820 + .06276, .03351, 8.45136, .53890, .21135,
821 + .00000, .41589, .54070,
822 + .06350, .03396, 9.16851, .56185, .23595,
823 + .00000, .43935, .56369,
824 + .06509, .03491, 10.72926, .61332, .29094,
825 + .00000, .49192, .61527,
826 + .06650, .03575, 12.03966, .66006, .34051,
827 + .05340, .53958, .66211,
828 + .06808, .03669, 13.54532, .71498, .39859,
829 + .12508, .59550, .71714,
830 + .06975, .03768, 15.16008, .77486, .46165,
831 + .19236, .65637, .77712,
832 + .07127, .03860, 16.65487, .83136, .52107,
833 + .25609, .71377, .83373 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .07281, .03952, 18.18869, .89056, .58323,
836 + .32219, .77385, .89304,
837 + .07410, .04028, 19.45189, .94083, .63519,
838 + .37566, .82484, .94340,
839 + .07567, .04122, 21.00579, 1.00370, .70053,
840 + .44408, .88855, 1.00637,
841 + .07706, .04205, 22.39465, 1.06098, .76018,
842 + .50687, .94656, 1.06376,
843 + .07834, .04281, 23.65417, 1.11440, .81532,
844 + .56403, 1.00064, 1.11726,
845 + .07998, .04378, 25.25114, 1.18364, .88684,
846 + .63834, 1.07072, 1.18663,
847 + .08152, .04469, 26.75436, 1.25035, .95579,
848 + .71019, 1.13817, 1.25344,
849 + .08297, .04555, 28.14887, 1.31388, 1.02127,
850 + .77813, 1.20240, 1.31707 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .08442, .04642, 29.51907, 1.37810, 1.08721,
853 + .84622, 1.26730, 1.38140,
854 + .08585, .04726, 30.86522, 1.44229, 1.15336,
855 + .91495, 1.33215, 1.44570,
856 + .08720, .04805, 32.10382, 1.50325, 1.21580,
857 + .97927, 1.39374, 1.50676,
858 + .08848, .04881, 33.26885, 1.56158, 1.27570,
859 + 1.04124, 1.45264, 1.56519,
860 + .08976, .04956, 34.41743, 1.62056, 1.33611,
861 + 1.10352, 1.51218, 1.62425,
862 + .09103, .05031, 35.53309, 1.67904, 1.39601,
863 + 1.16532, 1.57121, 1.68282,
864 + .09224, .05102, 36.57715, 1.73497, 1.45326,
865 + 1.22430, 1.62766, 1.73885,
866 + .09338, .05170, 37.55285, 1.78825, 1.50782,
867 + 1.28056, 1.68142, 1.79222 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .09454, .05237, 38.51264, 1.84199, 1.56270,
870 + 1.33698, 1.73563, 1.84604,
871 + .09569, .05304, 39.46085, 1.89572, 1.61773,
872 + 1.39377, 1.78984, 1.89985,
873 + .09678, .05368, 40.32729, 1.94643, 1.66939,
874 + 1.44675, 1.84099, 1.95064,
875 + .09782, .05429, 41.16027, 1.99542, 1.71955,
876 + 1.49846, 1.89041, 1.99971,
877 + .09887, .05490, 41.96658, 2.04436, 1.76943,
878 + 1.54964, 1.93975, 2.04872 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .07211, .03909, .64783, .26001, .00000,
881 + .00000, .14806, .26222,
882 + .07341, .03988, 1.19704, .27512, .00000,
883 + .00000, .16398, .27741,
884 + .07542, .04110, 2.08750, .29982, .01372,
885 + .00000, .18988, .30225,
886 + .07694, .04204, 2.80107, .31971, .02084,
887 + .00000, .21059, .32224,
888 + .07853, .04302, 3.54874, .34210, .04793,
889 + .00000, .23382, .34475,
890 + .07994, .04387, 4.23108, .36273, .07225,
891 + .00000, .25515, .36547,
892 + .08130, .04471, 4.92215, .38352, .09576,
893 + .00000, .27661, .38636,
894 + .08277, .04560, 5.68630, .40668, .12217,
895 + .00000, .30046, .40963 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .08404, .04638, 6.34875, .42772, .14432,
898 + .00000, .32208, .43075,
899 + .08529, .04714, 7.01444, .44881, .16745,
900 + .00000, .34374, .45194,
901 + .08628, .04775, 7.54853, .46605, .18608,
902 + .00000, .36143, .46927,
903 + .08841, .04905, 8.69082, .50444, .22738,
904 + .00000, .40072, .50780,
905 + .09028, .05018, 9.63056, .53891, .26420,
906 + .03747, .43595, .54241,
907 + .09239, .05146, 10.68377, .57896, .30686,
908 + .09081, .47684, .58263,
909 + .09461, .05280, 11.78998, .62209, .35263,
910 + .14009, .52083, .62594,
911 + .09662, .05401, 12.79397, .66236, .39528,
912 + .18627, .56185, .66635 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09867, .05525, 13.80542, .70409, .43942,
915 + .23365, .60434, .70825,
916 + .10036, .05626, 14.62293, .73914, .47591,
917 + .27154, .63998, .74342,
918 + .10242, .05750, 15.61322, .78254, .52136,
919 + .31959, .68412, .78700,
920 + .10426, .05859, 16.48432, .82173, .56247,
921 + .36329, .72393, .82632,
922 + .10594, .05959, 17.26134, .85790, .60009,
923 + .40265, .76066, .86261,
924 + .10807, .06086, 18.23105, .90434, .64842,
925 + .45337, .80782, .90923,
926 + .11009, .06205, 19.12892, .94861, .69455,
927 + .50192, .85276, .95366,
928 + .11197, .06316, 19.94805, .99035, .73791,
929 + .54736, .89510, .99556 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .11385, .06427, 20.73934, 1.03213, .78115,
932 + .59246, .93748, 1.03749,
933 + .11569, .06535, 21.50664, 1.07355, .82418,
934 + .63762, .97947, 1.07905,
935 + .11744, .06637, 22.20012, 1.11247, .86438,
936 + .67945, 1.01893, 1.11812,
937 + .11909, .06734, 22.84450, 1.14944, .90267,
938 + .71948, 1.05641, 1.15522,
939 + .12074, .06829, 23.47031, 1.18649, .94094,
940 + .75935, 1.09396, 1.19241,
941 + .12236, .06923, 24.07003, 1.22295, .97861,
942 + .79863, 1.13088, 1.22900,
943 + .12390, .07012, 24.62361, 1.25754, 1.01433,
944 + .83583, 1.16594, 1.26371,
945 + .12536, .07097, 25.13455, 1.29027, 1.04813,
946 + .87106, 1.19909, 1.29655 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12682, .07182, 25.62970, 1.32300, 1.08187,
949 + .90612, 1.23225, 1.32940,
950 + .12828, .07266, 26.11449, 1.35555, 1.11553,
951 + .94123, 1.26522, 1.36207,
952 + .12965, .07345, 26.54911, 1.38599, 1.14683,
953 + .97368, 1.29605, 1.39262,
954 + .13097, .07420, 26.96482, 1.41528, 1.17710,
955 + 1.00525, 1.32572, 1.42201,
956 + .13228, .07495, 27.35956, 1.44427, 1.20694,
957 + 1.03621, 1.35509, 1.45113 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .09883, .05571, .70443, .22971, .00000,
960 + .00000, .13297, .23354,
961 + .10057, .05681, 1.20268, .24156, .00000,
962 + .00000, .14551, .24553,
963 + .10324, .05851, 1.97130, .26078, .01280,
964 + .00000, .16571, .26496,
965 + .10529, .05978, 2.56870, .27613, .01768,
966 + .00000, .18175, .28047,
967 + .10743, .06111, 3.17559, .29327, .03880,
968 + .00000, .19961, .29779,
969 + .10930, .06228, 3.71465, .30892, .05761,
970 + .00000, .21586, .31359,
971 + .11112, .06341, 4.24843, .32458, .07557,
972 + .00000, .23208, .32940,
973 + .11308, .06462, 4.82596, .34189, .09557,
974 + .00000, .24998, .34687 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .11479, .06566, 5.31566, .35744, .11214,
977 + .00000, .26605, .36257,
978 + .11645, .06669, 5.79955, .37294, .12936,
979 + .00000, .28202, .37821,
980 + .11778, .06750, 6.18177, .38552, .14312,
981 + .00000, .29499, .39091,
982 + .12061, .06922, 6.98241, .41326, .17334,
983 + .00000, .32352, .41889,
984 + .12309, .07072, 7.62665, .43786, .19995,
985 + .02435, .34879, .44371,
986 + .12587, .07239, 8.32476, .46612, .23041,
987 + .06306, .37778, .47219,
988 + .12878, .07412, 9.03972, .49613, .26266,
989 + .09824, .40855, .50246,
990 + .13142, .07569, 9.67296, .52378, .29233,
991 + .13078, .43687, .53034 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .13409, .07727, 10.29656, .55207, .32265,
994 + .16377, .46585, .55887,
995 + .13629, .07856, 10.78878, .57554, .34738,
996 + .18980, .48985, .58252,
997 + .13896, .08013, 11.37360, .60429, .37789,
998 + .22251, .51925, .61150,
999 + .14133, .08151, 11.87773, .62993, .40517,
1000 + .25191, .54547, .63735,
1001 + .14349, .08277, 12.31762, .65332, .42985,
1002 + .27810, .56937, .66093,
1003 + .14622, .08434, 12.85533, .68302, .46119,
1004 + .31147, .59972, .69086,
1005 + .14878, .08582, 13.34255, .71099, .49078,
1006 + .34308, .62829, .71905,
1007 + .15117, .08719, 13.77696, .73704, .51825,
1008 + .37230, .65490, .74532 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .15354, .08854, 14.18683, .76280, .54532,
1011 + .40097, .68122, .77127,
1012 + .15587, .08987, 14.57744, .78808, .57200,
1013 + .42943, .70703, .79675,
1014 + .15805, .09110, 14.92118, .81153, .59664,
1015 + .45548, .73099, .82040,
1016 + .16010, .09225, 15.23519, .83362, .61990,
1017 + .48019, .75353, .84266,
1018 + .16216, .09340, 15.53339, .85551, .64290,
1019 + .50455, .77589, .86472,
1020 + .16417, .09453, 15.81328, .87684, .66534,
1021 + .52835, .79768, .88623,
1022 + .16607, .09559, 16.06611, .89689, .68642,
1023 + .55068, .81815, .90644,
1024 + .16787, .09658, 16.29509, .91569, .70620,
1025 + .57166, .83735, .92539 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .16966, .09757, 16.51170, .93431, .72576,
1028 + .59235, .85638, .94416,
1029 + .17144, .09855, 16.72102, .95269, .74515,
1030 + .61295, .87516, .96269,
1031 + .17311, .09947, 16.90213, .96968, .76297,
1032 + .63177, .89251, .97982,
1033 + .17471, .10035, 17.07444, .98594, .78014,
1034 + .65001, .90914, .99622,
1035 + .17630, .10121, 17.23190, 1.00187, .79688,
1036 + .66770, .92542, 1.01228 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .11903, .06859, .78148, .21399, .00000,
1039 + .00000, .12489, .21925,
1040 + .12111, .06992, 1.24840, .22402, .00000,
1041 + .00000, .13554, .22945,
1042 + .12431, .07196, 1.94561, .24025, .01153,
1043 + .00000, .15267, .24596,
1044 + .12673, .07348, 2.47570, .25316, .01524,
1045 + .00000, .16624, .25909,
1046 + .12928, .07507, 3.00358, .26759, .03328,
1047 + .00000, .18132, .27374,
1048 + .13149, .07645, 3.46417, .28066, .04927,
1049 + .00000, .19496, .28702,
1050 + .13367, .07778, 3.91340, .29370, .06441,
1051 + .00000, .20853, .30025,
1052 + .13600, .07921, 4.39249, .30804, .08121,
1053 + .00000, .22344, .31480 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .13801, .08044, 4.79272, .32085, .09501,
1056 + .00000, .23673, .32780,
1057 + .13998, .08163, 5.18368, .33357, .10931,
1058 + .00000, .24991, .34069,
1059 + .14155, .08257, 5.48927, .34385, .12067,
1060 + .00000, .26054, .35111,
1061 + .14489, .08458, 6.12030, .36637, .14549,
1062 + .00000, .28381, .37393,
1063 + .14778, .08630, 6.62129, .38617, .16715,
1064 + .01771, .30426, .39399,
1065 + .15103, .08821, 7.14974, .40871, .19176,
1066 + .04938, .32753, .41684,
1067 + .15441, .09020, 7.68135, .43245, .21759,
1068 + .07784, .35200, .44089,
1069 + .15747, .09197, 8.14413, .45413, .24114,
1070 + .10396, .37433, .46283 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .16056, .09376, 8.59234, .47613, .26501,
1073 + .13021, .39698, .48511,
1074 + .16310, .09521, 8.93966, .49419, .28432,
1075 + .15076, .41559, .50342,
1076 + .16617, .09696, 9.34648, .51617, .30796,
1077 + .17639, .43820, .52567,
1078 + .16887, .09849, 9.69189, .53561, .32895,
1079 + .19928, .45821, .54536,
1080 + .17134, .09989, 9.98813, .55321, .34778,
1081 + .21951, .47632, .56317,
1082 + .17445, .10162, 10.34421, .57537, .37153,
1083 + .24510, .49912, .58560,
1084 + .17735, .10325, 10.66133, .59606, .39375,
1085 + .26914, .52041, .60656,
1086 + .18007, .10474, 10.93900, .61516, .41423,
1087 + .29122, .54007, .62590 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .18273, .10621, 11.19533, .63388, .43424,
1090 + .31269, .55933, .64485,
1091 + .18535, .10764, 11.43603, .65212, .45385,
1092 + .33389, .57811, .66333,
1093 + .18777, .10896, 11.64268, .66891, .47179,
1094 + .35313, .59539, .68033,
1095 + .19007, .11021, 11.82866, .68460, .48862,
1096 + .37128, .61154, .69621,
1097 + .19235, .11143, 12.00141, .70003, .50516,
1098 + .38905, .62745, .71185,
1099 + .19457, .11262, 12.16050, .71496, .52119,
1100 + .40631, .64283, .72697,
1101 + .19668, .11374, 12.30119, .72888, .53615,
1102 + .42241, .65719, .74108,
1103 + .19865, .11479, 12.42602, .74186, .55011,
1104 + .43745, .67057, .75422 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .20062, .11583, 12.54066, .75463, .56381,
1107 + .45218, .68374, .76716,
1108 + .20257, .11686, 12.65001, .76716, .57733,
1109 + .46679, .69668, .77986,
1110 + .20438, .11781, 12.74056, .77863, .58966,
1111 + .48003, .70853, .79149,
1112 + .20612, .11872, 12.82640, .78958, .60150,
1113 + .49283, .71984, .80259,
1114 + .20784, .11962, 12.90096, .80020, .61295,
1115 + .50516, .73081, .81335 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .13594, .07948, .86696, .20331, .00000,
1118 + .00000, .11909, .20985,
1119 + .13830, .08099, 1.30618, .21210, .00000,
1120 + .00000, .12848, .21888,
1121 + .14195, .08330, 1.95066, .22634, .01009,
1122 + .00000, .14359, .23345,
1123 + .14471, .08503, 2.43192, .23768, .01309,
1124 + .00000, .15556, .24505,
1125 + .14759, .08682, 2.90373, .25031, .02913,
1126 + .00000, .16881, .25795,
1127 + .15011, .08837, 3.30979, .26172, .04330,
1128 + .00000, .18078, .26961,
1129 + .15256, .08986, 3.70119, .27307, .05664,
1130 + .00000, .19265, .28119,
1131 + .15518, .09144, 4.11394, .28550, .07139,
1132 + .00000, .20564, .29386 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .15746, .09281, 4.45478, .29656, .08343,
1135 + .00000, .21716, .30514,
1136 + .15967, .09412, 4.78474, .30748, .09587,
1137 + .00000, .22855, .31628,
1138 + .16143, .09517, 5.04051, .31628, .10571,
1139 + .00000, .23770, .32526,
1140 + .16516, .09736, 5.56258, .33548, .12712,
1141 + .00000, .25765, .34480,
1142 + .16840, .09925, 5.97314, .35224, .14569,
1143 + .01340, .27506, .36188,
1144 + .17201, .10133, 6.39571, .37121, .16665,
1145 + .04065, .29474, .38118,
1146 + .17575, .10346, 6.81449, .39103, .18849,
1147 + .06495, .31530, .40134,
1148 + .17912, .10537, 7.17371, .40900, .20827,
1149 + .08709, .33392, .41963 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .18252, .10729, 7.51668, .42710, .22820,
1152 + .10921, .35270, .43806,
1153 + .18529, .10884, 7.77816, .44187, .24420,
1154 + .12641, .36800, .45307,
1155 + .18865, .11069, 8.08062, .45971, .26368,
1156 + .14775, .38648, .47122,
1157 + .19161, .11232, 8.33396, .47540, .28087,
1158 + .16670, .40274, .48718,
1159 + .19429, .11377, 8.54771, .48949, .29621,
1160 + .18335, .41736, .50153,
1161 + .19766, .11559, 8.80067, .50713, .31542,
1162 + .20430, .43564, .51946,
1163 + .20080, .11729, 9.02225, .52347, .33329,
1164 + .22385, .45260, .53609,
1165 + .20370, .11884, 9.21264, .53846, .34965,
1166 + .24170, .46815, .55133 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20657, .12037, 9.38463, .55303, .36554,
1169 + .25896, .48328, .56616,
1170 + .20936, .12184, 9.54378, .56716, .38102,
1171 + .27591, .49795, .58054,
1172 + .21197, .12319, 9.67665, .58005, .39508,
1173 + .29120, .51135, .59365,
1174 + .21441, .12446, 9.79427, .59203, .40822,
1175 + .30556, .52381, .60585,
1176 + .21682, .12571, 9.90072, .60374, .42105,
1177 + .31954, .53600, .61777,
1178 + .21917, .12692, 9.99645, .61499, .43342,
1179 + .33305, .54772, .62922,
1180 + .22139, .12805, 10.07881, .62542, .44490,
1181 + .34560, .55859, .63985,
1182 + .22347, .12910, 10.14993, .63509, .45557,
1183 + .35727, .56868, .64970 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .22553, .13015, 10.21266, .64453, .46597,
1186 + .36864, .57853, .65932,
1187 + .22757, .13118, 10.27143, .65377, .47621,
1188 + .37987, .58818, .66873,
1189 + .22947, .13212, 10.31667, .66215, .48548,
1190 + .39001, .59695, .67727,
1191 + .23128, .13303, 10.35946, .67013, .49435,
1192 + .39976, .60529, .68540,
1193 + .23307, .13391, 10.39320, .67781, .50288,
1194 + .40911, .61332, .69321 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .15067, .08899, .95092, .19485, .00000,
1197 + .00000, .11428, .20253,
1198 + .15330, .09069, 1.36681, .20275, .00000,
1199 + .00000, .12276, .21069,
1200 + .15736, .09326, 1.96857, .21555, .00859,
1201 + .00000, .13640, .22390,
1202 + .16041, .09514, 2.41071, .22573, .01111,
1203 + .00000, .14720, .23440,
1204 + .16359, .09708, 2.83857, .23707, .02571,
1205 + .00000, .15918, .24605,
1206 + .16637, .09877, 3.20260, .24729, .03858,
1207 + .00000, .16995, .25654,
1208 + .16906, .10039, 3.55006, .25742, .05064,
1209 + .00000, .18060, .26695,
1210 + .17196, .10211, 3.91302, .26849, .06390,
1211 + .00000, .19222, .27830 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .17444, .10357, 4.20987, .27827, .07470,
1214 + .00000, .20248, .28834,
1215 + .17686, .10499, 4.49504, .28794, .08582,
1216 + .00000, .21259, .29822,
1217 + .17879, .10610, 4.71453, .29569, .09459,
1218 + .00000, .22071, .30617,
1219 + .18286, .10845, 5.15806, .31251, .11358,
1220 + .00000, .23830, .32340,
1221 + .18637, .11044, 5.50436, .32713, .12997,
1222 + .01027, .25357, .33836,
1223 + .19027, .11264, 5.85238, .34357, .14837,
1224 + .03441, .27073, .35517,
1225 + .19430, .11488, 6.19275, .36063, .16742,
1226 + .05577, .28853, .37262,
1227 + .19793, .11688, 6.48074, .37599, .18459,
1228 + .07515, .30457, .38832 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .20156, .11887, 6.75221, .39139, .20177,
1231 + .09440, .32064, .40406,
1232 + .20453, .12047, 6.95576, .40385, .21549,
1233 + .10928, .33365, .41680,
1234 + .20811, .12240, 7.18844, .41884, .23213,
1235 + .12768, .34930, .43212,
1236 + .21126, .12406, 7.38083, .43194, .24672,
1237 + .14393, .36300, .44552,
1238 + .21409, .12556, 7.54046, .44364, .25967,
1239 + .15814, .37522, .45748,
1240 + .21764, .12743, 7.72641, .45819, .27582,
1241 + .17593, .39043, .47235,
1242 + .22095, .12914, 7.88642, .47159, .29074,
1243 + .19245, .40447, .48605,
1244 + .22401, .13072, 8.02094, .48380, .30434,
1245 + .20745, .41726, .49853 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .22701, .13225, 8.13963, .49559, .31747,
1248 + .22189, .42961, .51059,
1249 + .22992, .13373, 8.24771, .50695, .33021,
1250 + .23601, .44154, .52221,
1251 + .23263, .13509, 8.33479, .51724, .34170,
1252 + .24866, .45235, .53274,
1253 + .23516, .13635, 8.41027, .52677, .35240,
1254 + .26052, .46237, .54248,
1255 + .23765, .13758, 8.47617, .53603, .36280,
1256 + .27201, .47211, .55195,
1257 + .24009, .13879, 8.53344, .54486, .37279,
1258 + .28307, .48143, .56100,
1259 + .24236, .13989, 8.58065, .55301, .38200,
1260 + .29329, .49003, .56934,
1261 + .24449, .14093, 8.61977, .56052, .39053,
1262 + .30276, .49796, .57702 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .24661, .14196, 8.65190, .56780, .39880,
1265 + .31194, .50567, .58449,
1266 + .24868, .14295, 8.68104, .57489, .40691,
1267 + .32100, .51318, .59175,
1268 + .25062, .14387, 8.69999, .58127, .41421,
1269 + .32911, .51996, .59829,
1270 + .25247, .14474, 8.71788, .58734, .42119,
1271 + .33692, .52639, .60450,
1272 + .25428, .14560, 8.72821, .59312, .42785,
1273 + .34436, .53255, .61043 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .17617, .10544, 1.10529, .18185, .00000,
1276 + .00000, .10654, .19172,
1277 + .17930, .10742, 1.48098, .18848, .00000,
1278 + .00000, .11375, .19870,
1279 + .18408, .11036, 2.01398, .19927, .00567,
1280 + .00000, .12540, .21002,
1281 + .18765, .11250, 2.39429, .20785, .00761,
1282 + .00000, .13461, .21898,
1283 + .19135, .11471, 2.75432, .21738, .02023,
1284 + .00000, .14479, .22891,
1285 + .19456, .11659, 3.05505, .22592, .03129,
1286 + .00000, .15389, .23780,
1287 + .19767, .11838, 3.33745, .23435, .04159,
1288 + .00000, .16286, .24654,
1289 + .20098, .12028, 3.62781, .24350, .05283,
1290 + .00000, .17259, .25603 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .20382, .12189, 3.86137, .25153, .06192,
1293 + .00000, .18111, .26436,
1294 + .20658, .12344, 4.08283, .25942, .07123,
1295 + .00000, .18947, .27253,
1296 + .20876, .12466, 4.25121, .26571, .07854,
1297 + .00000, .19613, .27905,
1298 + .21335, .12720, 4.58541, .27927, .09424,
1299 + .00000, .21050, .29307,
1300 + .21728, .12931, 4.84396, .29091, .10766,
1301 + .00591, .22282, .30510,
1302 + .22161, .13163, 5.09124, .30388, .12261,
1303 + .02581, .23656, .31851,
1304 + .22608, .13399, 5.32716, .31719, .13792,
1305 + .04324, .25065, .33224,
1306 + .23007, .13607, 5.52163, .32904, .15156,
1307 + .05889, .26321, .34446 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23405, .13812, 5.70006, .34077, .16512,
1310 + .07433, .27565, .35658,
1311 + .23728, .13977, 5.82969, .35017, .17583,
1312 + .08614, .28562, .36628,
1313 + .24114, .14172, 5.97405, .36135, .18869,
1314 + .10063, .29751, .37782,
1315 + .24452, .14340, 6.08992, .37104, .19990,
1316 + .11334, .30782, .38782,
1317 + .24755, .14491, 6.18256, .37959, .20976,
1318 + .12436, .31692, .39664,
1319 + .25134, .14675, 6.28640, .39010, .22193,
1320 + .13805, .32814, .40750,
1321 + .25484, .14845, 6.37192, .39967, .23308,
1322 + .15066, .33837, .41738,
1323 + .25804, .14998, 6.43976, .40829, .24315,
1324 + .16201, .34759, .42627 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26118, .15147, 6.49534, .41651, .25277,
1327 + .17284, .35641, .43476,
1328 + .26422, .15289, 6.54344, .42434, .26203,
1329 + .18336, .36484, .44286,
1330 + .26701, .15418, 6.57743, .43136, .27030,
1331 + .19270, .37239, .45010,
1332 + .26961, .15537, 6.60462, .43777, .27795,
1333 + .20140, .37933, .45674,
1334 + .27217, .15654, 6.62470, .44392, .28531,
1335 + .20976, .38600, .46310,
1336 + .27464, .15765, 6.63890, .44973, .29232,
1337 + .21775, .39231, .46911,
1338 + .27695, .15868, 6.64715, .45503, .29875,
1339 + .22508, .39809, .47459,
1340 + .27910, .15963, 6.65110, .45987, .30464,
1341 + .23184, .40336, .47959 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28122, .16055, 6.65001, .46449, .31032,
1344 + .23835, .40843, .48439,
1345 + .28330, .16145, 6.64720, .46895, .31584,
1346 + .24472, .41334, .48902,
1347 + .28521, .16228, 6.63820, .47291, .32076,
1348 + .25038, .41770, .49310,
1349 + .28703, .16306, 6.62978, .47664, .32544,
1350 + .25581, .42182, .49698,
1351 + .28881, .16381, 6.61607, .48012, .32986,
1352 + .26094, .42569, .50059 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .20818, .12583, 1.30316, .16694, .00000,
1355 + .00000, .09715, .17978,
1356 + .21198, .12813, 1.62717, .17240, .00000,
1357 + .00000, .10325, .18572,
1358 + .21769, .13150, 2.07941, .18133, .00170,
1359 + .00000, .11307, .19533,
1360 + .22188, .13391, 2.38922, .18838, .00326,
1361 + .00000, .12082, .20286,
1362 + .22622, .13636, 2.67450, .19620, .01401,
1363 + .00000, .12932, .21115,
1364 + .22995, .13843, 2.90745, .20313, .02338,
1365 + .00000, .13686, .21850,
1366 + .23354, .14039, 3.12196, .20991, .03201,
1367 + .00000, .14423, .22569,
1368 + .23736, .14244, 3.33834, .21721, .04137,
1369 + .00000, .15216, .23341 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .24060, .14416, 3.50859, .22356, .04885,
1372 + .00000, .15904, .24010,
1373 + .24373, .14580, 3.66736, .22974, .05647,
1374 + .00000, .16574, .24661,
1375 + .24619, .14709, 3.78608, .23463, .06241,
1376 + .00000, .17105, .25176,
1377 + .25134, .14974, 4.01597, .24509, .07507,
1378 + .00000, .18236, .26274,
1379 + .25568, .15192, 4.19258, .25392, .08575,
1380 + .00184, .19195, .27200,
1381 + .26045, .15426, 4.34760, .26364, .09750,
1382 + .01779, .20248, .28218,
1383 + .26530, .15662, 4.48978, .27344, .10939,
1384 + .03161, .21314, .29245,
1385 + .26960, .15868, 4.60193, .28204, .11988,
1386 + .04388, .22251, .30145 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .27386, .16069, 4.70020, .29045, .13015,
1389 + .05584, .23167, .31024,
1390 + .27728, .16227, 4.76695, .29706, .13818,
1391 + .06490, .23891, .31717,
1392 + .28136, .16413, 4.83771, .30482, .14774,
1393 + .07593, .24743, .32529,
1394 + .28488, .16573, 4.89105, .31144, .15597,
1395 + .08550, .25472, .33222,
1396 + .28803, .16712, 4.92949, .31720, .16312,
1397 + .09372, .26107, .33825,
1398 + .29192, .16882, 4.96799, .32417, .17185,
1399 + .10382, .26879, .34555,
1400 + .29549, .17036, 4.99531, .33043, .17977,
1401 + .11304, .27575, .35209,
1402 + .29873, .17173, 5.01218, .33594, .18683,
1403 + .12126, .28191, .35786 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .30187, .17304, 5.02037, .34110, .19348,
1406 + .12901, .28771, .36327,
1407 + .30489, .17429, 5.02412, .34595, .19984,
1408 + .13648, .29319, .36836,
1409 + .30763, .17540, 5.01982, .35019, .20544,
1410 + .14304, .29800, .37279,
1411 + .31018, .17641, 5.01263, .35401, .21056,
1412 + .14910, .30236, .37679,
1413 + .31266, .17739, 5.00069, .35760, .21544,
1414 + .15488, .30649, .38056,
1415 + .31503, .17830, 4.98539, .36092, .22004,
1416 + .16035, .31034, .38406,
1417 + .31723, .17913, 4.96754, .36391, .22420,
1418 + .16532, .31381, .38717,
1419 + .31926, .17990, 4.94826, .36656, .22798,
1420 + .16987, .31693, .38997 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .32126, .18062, 4.92560, .36903, .23158,
1423 + .17421, .31987, .39257,
1424 + .32320, .18134, 4.90243, .37140, .23505,
1425 + .17843, .32268, .39506,
1426 + .32497, .18196, 4.87646, .37340, .23809,
1427 + .18214, .32511, .39717,
1428 + .32665, .18255, 4.85218, .37527, .24097,
1429 + .18568, .32741, .39916,
1430 + .32827, .18310, 4.82436, .37695, .24365,
1431 + .18898, .32949, .40093 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .25259, .15309, 1.54455, .14818, .00000,
1434 + .00000, .08502, .16592,
1435 + .25729, .15575, 1.79714, .15258, .00000,
1436 + .00000, .09012, .17093,
1437 + .26425, .15954, 2.14639, .15963, -.00359,
1438 + .00000, .09827, .17883,
1439 + .26925, .16215, 2.37010, .16514, -.00217,
1440 + .00000, .10456, .18492,
1441 + .27438, .16477, 2.56740, .17115, .00673,
1442 + .00000, .11138, .19152,
1443 + .27871, .16696, 2.72346, .17641, .01441,
1444 + .00000, .11735, .19728,
1445 + .28284, .16900, 2.86309, .18151, .02139,
1446 + .00000, .12311, .20280,
1447 + .28718, .17109, 2.99980, .18690, .02887,
1448 + .00000, .12922, .20865 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .29084, .17282, 3.10352, .19151, .03478,
1451 + .00000, .13444, .21364,
1452 + .29433, .17446, 3.19778, .19594, .04073,
1453 + .00000, .13946, .21843,
1454 + .29705, .17572, 3.26633, .19942, .04532,
1455 + .00000, .14339, .22216,
1456 + .30272, .17829, 3.39305, .20670, .05498,
1457 + .00000, .15165, .22999,
1458 + .30738, .18033, 3.49037, .21274, .06299,
1459 + -.00194, .15851, .23645,
1460 + .31242, .18251, 3.55898, .21922, .07168,
1461 + .01013, .16591, .24337,
1462 + .31749, .18462, 3.61569, .22561, .08031,
1463 + .02044, .17324, .25018,
1464 + .32193, .18642, 3.65469, .23107, .08779,
1465 + .02946, .17954, .25600 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .32625, .18814, 3.68348, .23629, .09502,
1468 + .03814, .18558, .26156,
1469 + .32967, .18947, 3.69716, .24026, .10057,
1470 + .04463, .19024, .26579,
1471 + .33370, .19099, 3.70698, .24484, .10709,
1472 + .05243, .19563, .27066,
1473 + .33715, .19226, 3.70966, .24865, .11261,
1474 + .05911, .20016, .27471,
1475 + .34018, .19335, 3.70531, .25186, .11734,
1476 + .06477, .20401, .27812,
1477 + .34386, .19464, 3.69358, .25564, .12303,
1478 + .07165, .20859, .28213,
1479 + .34718, .19577, 3.67736, .25892, .12811,
1480 + .07784, .21261, .28560,
1481 + .35017, .19675, 3.65705, .26172, .13255,
1482 + .08328, .21609, .28857 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .35301, .19764, 3.63186, .26422, .13667,
1485 + .08834, .21925, .29122,
1486 + .35570, .19846, 3.60513, .26650, .14054,
1487 + .09317, .22218, .29363,
1488 + .35809, .19916, 3.57543, .26837, .14389,
1489 + .09735, .22467, .29562,
1490 + .36028, .19978, 3.54606, .27002, .14692,
1491 + .10116, .22687, .29735,
1492 + .36239, .20035, 3.51413, .27146, .14975,
1493 + .10476, .22888, .29890,
1494 + .36438, .20086, 3.48108, .27275, .15236,
1495 + .10812, .23069, .30025,
1496 + .36618, .20130, 3.44817, .27381, .15469,
1497 + .11114, .23228, .30138,
1498 + .36783, .20169, 3.41607, .27471, .15678,
1499 + .11387, .23364, .30233 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .36940, .20204, 3.38226, .27547, .15871,
1502 + .11643, .23488, .30312,
1503 + .37092, .20236, 3.34885, .27616, .16057,
1504 + .11891, .23602, .30385,
1505 + .37227, .20262, 3.31509, .27664, .16214,
1506 + .12105, .23694, .30436,
1507 + .37355, .20286, 3.28365, .27709, .16362,
1508 + .12307, .23779, .30481,
1509 + .37474, .20306, 3.25031, .27738, .16495,
1510 + .12493, .23849, .30513 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .28965, .17491, 1.69940, .13320, .00000,
1513 + .00000, .07541, .15514,
1514 + .29517, .17775, 1.89371, .13693, .00000,
1515 + .00000, .07998, .15960,
1516 + .30316, .18170, 2.16319, .14284, -.00731,
1517 + .00000, .08710, .16649,
1518 + .30881, .18438, 2.32356, .14735, -.00583,
1519 + .00000, .09250, .17164,
1520 + .31445, .18700, 2.45833, .15222, .00188,
1521 + .00000, .09828, .17712,
1522 + .31922, .18915, 2.56147, .15641, .00848,
1523 + .00000, .10323, .18179,
1524 + .32370, .19112, 2.65111, .16037, .01442,
1525 + .00000, .10795, .18622,
1526 + .32836, .19312, 2.73609, .16454, .02070,
1527 + .00000, .11289, .19084 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .33224, .19474, 2.79749, .16803, .02561,
1530 + .00000, .11704, .19468,
1531 + .33591, .19625, 2.85153, .17134, .03051,
1532 + .00000, .12101, .19834,
1533 + .33876, .19741, 2.88926, .17391, .03426,
1534 + .00000, .12408, .20115,
1535 + .34458, .19968, 2.95423, .17922, .04208,
1536 + .00000, .13044, .20695,
1537 + .34930, .20144, 3.00508, .18350, .04846,
1538 + -.00387, .13561, .21159,
1539 + .35431, .20325, 3.02505, .18801, .05528,
1540 + .00579, .14109, .21647,
1541 + .35925, .20497, 3.03523, .19234, .06198,
1542 + .01397, .14640, .22112,
1543 + .36353, .20640, 3.03576, .19594, .06769,
1544 + .02102, .15087, .22499 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .36763, .20771, 3.02891, .19928, .07314,
1547 + .02775, .15510, .22856,
1548 + .37081, .20868, 3.01624, .20176, .07727,
1549 + .03272, .15827, .23119,
1550 + .37450, .20975, 2.99658, .20452, .08206,
1551 + .03864, .16186, .23413,
1552 + .37763, .21060, 2.97547, .20674, .08607,
1553 + .04365, .16481, .23649,
1554 + .38032, .21129, 2.95180, .20854, .08946,
1555 + .04786, .16726, .23840,
1556 + .38353, .21208, 2.91813, .21056, .09348,
1557 + .05293, .17010, .24054,
1558 + .38638, .21273, 2.88361, .21225, .09701,
1559 + .05743, .17253, .24229,
1560 + .38888, .21324, 2.84838, .21360, .10007,
1561 + .06135, .17456, .24368 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .39119, .21367, 2.81047, .21470, .10286,
1564 + .06496, .17635, .24482,
1565 + .39335, .21402, 2.77265, .21565, .10544,
1566 + .06836, .17794, .24579,
1567 + .39523, .21427, 2.73448, .21633, .10762,
1568 + .07126, .17923, .24647,
1569 + .39692, .21447, 2.69811, .21686, .10957,
1570 + .07390, .18032, .24700,
1571 + .39849, .21460, 2.66044, .21726, .11137,
1572 + .07635, .18126, .24736,
1573 + .39992, .21470, 2.62286, .21753, .11300,
1574 + .07862, .18206, .24759,
1575 + .40120, .21473, 2.58661, .21769, .11443,
1576 + .08064, .18271, .24771,
1577 + .40232, .21474, 2.55205, .21775, .11567,
1578 + .08244, .18322, .24772 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .40337, .21470, 2.51656, .21769, .11681,
1581 + .08412, .18363, .24761,
1582 + .40437, .21463, 2.48192, .21760, .11789,
1583 + .08572, .18399, .24746,
1584 + .40520, .21451, 2.44805, .21738, .11877,
1585 + .08709, .18419, .24718,
1586 + .40598, .21440, 2.41660, .21716, .11960,
1587 + .08838, .18436, .24691,
1588 + .40665, .21423, 2.38407, .21684, .12030,
1589 + .08954, .18443, .24651 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .35297, .20884, 1.81948, .11024, .00000,
1592 + .00000, .06174, .14054,
1593 + .35957, .21168, 1.92747, .11311, .00000,
1594 + .00000, .06562, .14412,
1595 + .36881, .21542, 2.08279, .11742, -.01147,
1596 + .00000, .07137, .14931,
1597 + .37504, .21781, 2.15799, .12058, -.00982,
1598 + .00000, .07552, .15296,
1599 + .38114, .22006, 2.21166, .12388, -.00366,
1600 + .00000, .07985, .15672,
1601 + .38617, .22181, 2.24849, .12660, .00149,
1602 + .00000, .08344, .15981,
1603 + .39080, .22335, 2.27714, .12913, .00608,
1604 + .00000, .08677, .16264,
1605 + .39548, .22486, 2.30061, .13169, .01082,
1606 + .00000, .09019, .16546 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .39929, .22602, 2.31299, .13376, .01448,
1609 + .00000, .09297, .16773,
1610 + .40285, .22705, 2.32154, .13568, .01807,
1611 + .00000, .09557, .16981,
1612 + .40554, .22779, 2.32523, .13713, .02077,
1613 + .00000, .09753, .17136,
1614 + .41091, .22920, 2.32363, .14002, .02632,
1615 + .00000, .10150, .17441,
1616 + .41503, .23014, 2.32507, .14222, .03075,
1617 + -.00536, .10462, .17671,
1618 + .41927, .23099, 2.29708, .14442, .03537,
1619 + .00134, .10780, .17896,
1620 + .42329, .23168, 2.26309, .14638, .03980,
1621 + .00694, .11075, .18092,
1622 + .42662, .23214, 2.22844, .14790, .04351,
1623 + .01169, .11312, .18238 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .42969, .23246, 2.19056, .14917, .04695,
1626 + .01613, .11525, .18358,
1627 + .43193, .23259, 2.15607, .15001, .04952,
1628 + .01937, .11676, .18433,
1629 + .43444, .23262, 2.11310, .15084, .05243,
1630 + .02316, .11840, .18503,
1631 + .43644, .23256, 2.07413, .15143, .05481,
1632 + .02633, .11967, .18546,
1633 + .43804, .23242, 2.03695, .15178, .05677,
1634 + .02893, .12064, .18567,
1635 + .43984, .23211, 1.98911, .15206, .05907,
1636 + .03203, .12168, .18573,
1637 + .44131, .23174, 1.94388, .15216, .06102,
1638 + .03472, .12247, .18561,
1639 + .44248, .23130, 1.90105, .15210, .06266,
1640 + .03703, .12305, .18532 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .44344, .23076, 1.85782, .15189, .06411,
1643 + .03911, .12346, .18489,
1644 + .44424, .23018, 1.81614, .15161, .06543,
1645 + .04105, .12376, .18437,
1646 + .44479, .22954, 1.77635, .15120, .06650,
1647 + .04267, .12389, .18373,
1648 + .44522, .22891, 1.73941, .15076, .06743,
1649 + .04412, .12394, .18305,
1650 + .44549, .22822, 1.70242, .15023, .06825,
1651 + .04544, .12390, .18228,
1652 + .44566, .22749, 1.66646, .14964, .06898,
1653 + .04663, .12379, .18144,
1654 + .44571, .22677, 1.63263, .14902, .06959,
1655 + .04769, .12360, .18059,
1656 + .44568, .22604, 1.60104, .14839, .07010,
1657 + .04861, .12337, .17972 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .44553, .22527, 1.56940, .14768, .07052,
1660 + .04944, .12307, .17878,
1661 + .44534, .22451, 1.53886, .14697, .07092,
1662 + .05023, .12275, .17784,
1663 + .44502, .22372, 1.50974, .14623, .07121,
1664 + .05088, .12237, .17685,
1665 + .44472, .22298, 1.48285, .14553, .07147,
1666 + .05149, .12200, .17592,
1667 + .44430, .22219, 1.45568, .14476, .07166,
1668 + .05201, .12155, .17492 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .40619, .23396, 1.79088, .09274, .00000,
1671 + .00000, .05245, .12991,
1672 + .41330, .23641, 1.84202, .09498, .00000,
1673 + .00000, .05573, .13258,
1674 + .42287, .23947, 1.92313, .09818, -.01288,
1675 + .00000, .06039, .13621,
1676 + .42911, .24122, 1.94726, .10036, -.01116,
1677 + .00000, .06364, .13866,
1678 + .43505, .24277, 1.95449, .10261, -.00611,
1679 + .00000, .06692, .14104,
1680 + .43976, .24390, 1.95457, .10442, -.00193,
1681 + .00000, .06957, .14290,
1682 + .44399, .24481, 1.95050, .10603, .00173,
1683 + .00000, .07196, .14450,
1684 + .44818, .24561, 1.94199, .10759, .00546,
1685 + .00000, .07437, .14605 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .45146, .24613, 1.92974, .10881, .00832,
1688 + .00000, .07626, .14722,
1689 + .45445, .24654, 1.91610, .10990, .01108,
1690 + .00000, .07798, .14822,
1691 + .45665, .24678, 1.90359, .11068, .01313,
1692 + .00000, .07928, .14892,
1693 + .46086, .24707, 1.87167, .11220, .01730,
1694 + .00000, .08180, .15020,
1695 + .46389, .24704, 1.85061, .11324, .02056,
1696 + -.00552, .08371, .15098,
1697 + .46679, .24681, 1.80384, .11420, .02391,
1698 + -.00059, .08556, .15160,
1699 + .46932, .24635, 1.75388, .11493, .02706,
1700 + .00350, .08718, .15194,
1701 + .47123, .24576, 1.70761, .11539, .02964,
1702 + .00690, .08842, .15201 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .47280, .24506, 1.66040, .11564, .03200,
1705 + .01004, .08945, .15188,
1706 + .47376, .24432, 1.62035, .11570, .03372,
1707 + .01231, .09010, .15156,
1708 + .47469, .24331, 1.57231, .11563, .03565,
1709 + .01494, .09074, .15104,
1710 + .47527, .24234, 1.53031, .11545, .03720,
1711 + .01709, .09117, .15046,
1712 + .47555, .24135, 1.49175, .11518, .03845,
1713 + .01885, .09143, .14978,
1714 + .47562, .24001, 1.44352, .11470, .03988,
1715 + .02091, .09161, .14880,
1716 + .47548, .23866, 1.39914, .11414, .04108,
1717 + .02269, .09165, .14776,
1718 + .47510, .23733, 1.35822, .11354, .04205,
1719 + .02417, .09158, .14669 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .47451, .23592, 1.31790, .11283, .04289,
1722 + .02549, .09139, .14551,
1723 + .47379, .23450, 1.27963, .11208, .04363,
1724 + .02672, .09114, .14430,
1725 + .47291, .23307, 1.24387, .11128, .04421,
1726 + .02772, .09080, .14309,
1727 + .47198, .23171, 1.21111, .11050, .04469,
1728 + .02859, .09044, .14190,
1729 + .47090, .23028, 1.17883, .10967, .04510,
1730 + .02939, .09001, .14065,
1731 + .46973, .22886, 1.14783, .10882, .04544,
1732 + .03009, .08955, .13938,
1733 + .46850, .22748, 1.11903, .10798, .04571,
1734 + .03069, .08907, .13814,
1735 + .46726, .22615, 1.09241, .10715, .04592,
1736 + .03122, .08858, .13694 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .46593, .22478, 1.06606, .10629, .04608,
1739 + .03169, .08804, .13571,
1740 + .46457, .22341, 1.04081, .10543, .04621,
1741 + .03212, .08749, .13448,
1742 + .46314, .22207, 1.01703, .10456, .04629,
1743 + .03246, .08693, .13328,
1744 + .46178, .22081, .99516, .10374, .04634,
1745 + .03278, .08640, .13215,
1746 + .46030, .21949, .97334, .10289, .04636,
1747 + .03305, .08582, .13096 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .45233, .25309, 1.68661, .07887, .00000,
1750 + .00000, .04564, .12099,
1751 + .45947, .25494, 1.70096, .08053, .00000,
1752 + .00000, .04834, .12271,
1753 + .46873, .25694, 1.73410, .08282, -.01288,
1754 + .00000, .05205, .12491,
1755 + .47445, .25789, 1.72762, .08435, -.01121,
1756 + .00000, .05456, .12625,
1757 + .47967, .25858, 1.70825, .08586, -.00702,
1758 + .00000, .05700, .12747,
1759 + .48369, .25892, 1.68797, .08699, -.00358,
1760 + .00000, .05894, .12833,
1761 + .48717, .25906, 1.66634, .08797, -.00061,
1762 + .00000, .06064, .12901,
1763 + .49043, .25904, 1.64126, .08891, .00239,
1764 + .00000, .06230, .12955 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .49286, .25884, 1.61671, .08957, .00467,
1767 + .00000, .06357, .12985,
1768 + .49495, .25855, 1.59229, .09013, .00684,
1769 + .00000, .06471, .13005,
1770 + .49643, .25824, 1.57215, .09052, .00846,
1771 + .00000, .06553, .13015,
1772 + .49903, .25737, 1.52678, .09118, .01168,
1773 + .00000, .06710, .13014,
1774 + .50056, .25634, 1.49582, .09156, .01417,
1775 + -.00521, .06820, .12991,
1776 + .50176, .25497, 1.44295, .09180, .01668,
1777 + -.00147, .06921, .12945,
1778 + .50248, .25337, 1.38868, .09183, .01900,
1779 + .00161, .07002, .12877,
1780 + .50267, .25178, 1.34015, .09172, .02089,
1781 + .00415, .07056, .12795 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .50252, .25004, 1.29209, .09146, .02259,
1784 + .00647, .07094, .12696,
1785 + .50203, .24846, 1.25245, .09111, .02381,
1786 + .00813, .07111, .12604,
1787 + .50118, .24648, 1.20580, .09060, .02515,
1788 + .01002, .07119, .12482,
1789 + .50017, .24467, 1.16576, .09007, .02621,
1790 + .01156, .07118, .12365,
1791 + .49901, .24292, 1.12966, .08950, .02706,
1792 + .01281, .07106, .12250,
1793 + .49727, .24063, 1.08527, .08870, .02800,
1794 + .01425, .07080, .12097,
1795 + .49541, .23842, 1.04501, .08789, .02877,
1796 + .01548, .07047, .11946,
1797 + .49346, .23629, 1.00845, .08705, .02939,
1798 + .01649, .07008, .11801 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .49129, .23410, .97295, .08614, .02989,
1801 + .01739, .06962, .11648,
1802 + .48907, .23195, .93958, .08525, .03033,
1803 + .01820, .06912, .11498,
1804 + .48673, .22986, .90881, .08435, .03066,
1805 + .01885, .06858, .11350,
1806 + .48446, .22788, .88083, .08348, .03092,
1807 + .01943, .06806, .11209,
1808 + .48208, .22585, .85355, .08257, .03113,
1809 + .01993, .06750, .11067,
1810 + .47961, .22384, .82756, .08167, .03129,
1811 + .02038, .06691, .10925,
1812 + .47718, .22193, .80360, .08079, .03140,
1813 + .02075, .06631, .10789,
1814 + .47481, .22010, .78161, .07996, .03148,
1815 + .02107, .06574, .10660 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .47235, .21824, .76003, .07909, .03152,
1818 + .02134, .06514, .10530,
1819 + .46991, .21639, .73943, .07823, .03155,
1820 + .02160, .06455, .10400,
1821 + .46742, .21462, .72023, .07740, .03153,
1822 + .02179, .06395, .10276,
1823 + .46511, .21295, .70262, .07662, .03150,
1824 + .02196, .06340, .10158,
1825 + .46266, .21124, .68515, .07581, .03145,
1826 + .02210, .06281, .10038 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .50153, .26972, 1.51566, .06475, .00000,
1829 + .00000, .03889, .11004,
1830 + .50793, .27051, 1.50233, .06596, .00000,
1831 + .00000, .04096, .11067,
1832 + .51567, .27095, 1.49877, .06747, -.01202,
1833 + .00000, .04369, .11130,
1834 + .52007, .27074, 1.47115, .06843, -.01046,
1835 + .00000, .04542, .11149,
1836 + .52378, .27020, 1.43433, .06933, -.00710,
1837 + .00000, .04710, .11159,
1838 + .52638, .26947, 1.40125, .06997, -.00438,
1839 + .00000, .04839, .11149,
1840 + .52842, .26860, 1.36901, .07047, -.00203,
1841 + .00000, .04947, .11127,
1842 + .53010, .26752, 1.33437, .07088, .00029,
1843 + .00000, .05048, .11093 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .53110, .26640, 1.30312, .07115, .00206,
1846 + .00000, .05124, .11051,
1847 + .53182, .26523, 1.27319, .07134, .00371,
1848 + .00000, .05188, .11002,
1849 + .53217, .26422, 1.24941, .07141, .00494,
1850 + .00000, .05232, .10960,
1851 + .53235, .26190, 1.19841, .07147, .00733,
1852 + .00000, .05310, .10857,
1853 + .53172, .25967, 1.16317, .07139, .00916,
1854 + -.00456, .05359, .10754,
1855 + .53050, .25702, 1.11025, .07115, .01098,
1856 + -.00183, .05397, .10627,
1857 + .52868, .25411, 1.05732, .07076, .01264,
1858 + .00041, .05420, .10479,
1859 + .52662, .25135, 1.01113, .07030, .01396,
1860 + .00223, .05425, .10335 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .52417, .24849, .96630, .06973, .01512,
1863 + .00386, .05418, .10182,
1864 + .52181, .24600, .93014, .06914, .01595,
1865 + .00503, .05400, .10049,
1866 + .51871, .24297, .88817, .06839, .01685,
1867 + .00634, .05372, .09883,
1868 + .51574, .24026, .85264, .06769, .01755,
1869 + .00740, .05341, .09732,
1870 + .51280, .23770, .82112, .06699, .01808,
1871 + .00824, .05305, .09588,
1872 + .50883, .23444, .78286, .06606, .01867,
1873 + .00921, .05252, .09406,
1874 + .50492, .23136, .74862, .06515, .01913,
1875 + .01001, .05199, .09233,
1876 + .50111, .22840, .71791, .06423, .01950,
1877 + .01068, .05144, .09070 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .49708, .22545, .68845, .06330, .01978,
1880 + .01125, .05085, .08904,
1881 + .49306, .22259, .66101, .06239, .02002,
1882 + .01176, .05025, .08743,
1883 + .48911, .21984, .63598, .06149, .02019,
1884 + .01217, .04964, .08589,
1885 + .48533, .21725, .61343, .06064, .02030,
1886 + .01252, .04905, .08446,
1887 + .48144, .21466, .59162, .05978, .02038,
1888 + .01282, .04845, .08301,
1889 + .47755, .21210, .57100, .05893, .02044,
1890 + .01308, .04784, .08159,
1891 + .47379, .20967, .55212, .05810, .02047,
1892 + .01330, .04725, .08026,
1893 + .47020, .20739, .53492, .05732, .02047,
1894 + .01348, .04669, .07900 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .46650, .20508, .51815, .05654, .02044,
1897 + .01362, .04610, .07774,
1898 + .46284, .20283, .50221, .05578, .02041,
1899 + .01376, .04553, .07651,
1900 + .45927, .20067, .48749, .05503, .02036,
1901 + .01386, .04497, .07534,
1902 + .45592, .19864, .47404, .05434, .02030,
1903 + .01394, .04445, .07424,
1904 + .45247, .19657, .46079, .05362, .02022,
1905 + .01400, .04390, .07313 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .54271, .28023, 1.33600, .05350, .00000,
1908 + .00000, .03329, .09879,
1909 + .54764, .27981, 1.30743, .05433, .00000,
1910 + .00000, .03481, .09854,
1911 + .55303, .27843, 1.28309, .05532, -.01083,
1912 + .00000, .03677, .09791,
1913 + .55550, .27698, 1.24505, .05593, -.00941,
1914 + .00000, .03798, .09726,
1915 + .55721, .27514, 1.20060, .05643, -.00669,
1916 + .00000, .03912, .09649,
1917 + .55801, .27329, 1.16234, .05672, -.00451,
1918 + .00000, .03992, .09578,
1919 + .55828, .27138, 1.12617, .05692, -.00264,
1920 + .00000, .04058, .09499,
1921 + .55807, .26925, 1.08836, .05704, -.00080,
1922 + .00000, .04117, .09407 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .55742, .26721, 1.05545, .05704, .00058,
1925 + .00000, .04157, .09319,
1926 + .55652, .26519, 1.02442, .05700, .00187,
1927 + .00000, .04188, .09229,
1928 + .55558, .26354, 1.00020, .05692, .00281,
1929 + .00000, .04210, .09154,
1930 + .55302, .25989, .94945, .05666, .00464,
1931 + .00000, .04241, .08990,
1932 + .55012, .25656, .91426, .05633, .00601,
1933 + -.00389, .04253, .08843,
1934 + .54637, .25273, .86487, .05586, .00736,
1935 + -.00185, .04253, .08672,
1936 + .54198, .24867, .81628, .05524, .00858,
1937 + -.00019, .04239, .08487,
1938 + .53760, .24491, .77454, .05460, .00953,
1939 + .00114, .04216, .08315 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .53290, .24109, .73457, .05392, .01036,
1942 + .00233, .04187, .08136,
1943 + .52866, .23790, .70278, .05328, .01093,
1944 + .00317, .04153, .07986,
1945 + .52337, .23398, .66627, .05247, .01155,
1946 + .00411, .04107, .07806,
1947 + .51852, .23052, .63573, .05172, .01202,
1948 + .00485, .04064, .07646,
1949 + .51390, .22733, .60891, .05099, .01238,
1950 + .00545, .04019, .07498,
1951 + .50789, .22328, .57666, .05005, .01276,
1952 + .00611, .03959, .07312,
1953 + .50212, .21950, .54808, .04914, .01305,
1954 + .00666, .03898, .07137,
1955 + .49657, .21599, .52269, .04829, .01327,
1956 + .00711, .03840, .06973 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .49089, .21245, .49858, .04741, .01343,
1959 + .00748, .03778, .06814,
1960 + .48533, .20905, .47626, .04655, .01356,
1961 + .00782, .03717, .06659,
1962 + .47996, .20580, .45613, .04571, .01364,
1963 + .00808, .03657, .06515,
1964 + .47487, .20280, .43807, .04495, .01369,
1965 + .00830, .03600, .06379,
1966 + .46969, .19982, .42070, .04417, .01372,
1967 + .00849, .03544, .06244,
1968 + .46458, .19690, .40441, .04342, .01372,
1969 + .00865, .03487, .06113,
1970 + .45971, .19413, .38960, .04269, .01371,
1971 + .00878, .03432, .05993,
1972 + .45509, .19153, .37618, .04200, .01367,
1973 + .00888, .03380, .05879 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .45041, .18893, .36315, .04132, .01363,
1976 + .00897, .03328, .05764,
1977 + .44582, .18639, .35084, .04065, .01358,
1978 + .00904, .03278, .05655,
1979 + .44137, .18397, .33951, .04001, .01352,
1980 + .00909, .03228, .05551,
1981 + .43719, .18172, .32918, .03942, .01345,
1982 + .00912, .03182, .05456,
1983 + .43293, .17944, .31910, .03881, .01337,
1984 + .00915, .03134, .05359 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .57625, .28568, 1.16606, .04450, .00000,
1987 + .00000, .02832, .08708,
1988 + .57919, .28395, 1.12937, .04512, .00000,
1989 + .00000, .02944, .08615,
1990 + .58144, .28075, 1.09351, .04580, -.00960,
1991 + .00000, .03080, .08458,
1992 + .58164, .27802, 1.05094, .04609, -.00832,
1993 + .00000, .03160, .08342,
1994 + .58093, .27491, 1.00394, .04637, -.00610,
1995 + .00000, .03232, .08216,
1996 + .57962, .27206, .96442, .04647, -.00432,
1997 + .00000, .03281, .08099,
1998 + .57789, .26921, .92767, .04648, -.00282,
1999 + .00000, .03319, .07982,
2000 + .57561, .26606, .88996, .04642, -.00136,
2001 + .00000, .03348, .07854 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .57316, .26321, .85772, .04628, -.00026,
2004 + .00000, .03365, .07741,
2005 + .57051, .26044, .82767, .04611, .00076,
2006 + .00000, .03375, .07628,
2007 + .56820, .25822, .80445, .04597, .00150,
2008 + .00000, .03379, .07537,
2009 + .56283, .25339, .75664, .04556, .00292,
2010 + .00000, .03379, .07341,
2011 + .55763, .24911, .72335, .04509, .00397,
2012 + -.00328, .03370, .07175,
2013 + .55136, .24429, .67874, .04449, .00500,
2014 + -.00173, .03349, .06988,
2015 + .54444, .23926, .63542, .04380, .00589,
2016 + -.00049, .03318, .06790,
2017 + .53791, .23468, .59864, .04310, .00660,
2018 + .00051, .03283, .06611 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .53103, .23011, .56384, .04236, .00721,
2021 + .00140, .03241, .06432,
2022 + .52512, .22627, .53643, .04171, .00762,
2023 + .00202, .03201, .06283,
2024 + .51783, .22169, .50523, .04090, .00805,
2025 + .00270, .03149, .06105,
2026 + .51131, .21767, .47934, .04016, .00838,
2027 + .00324, .03100, .05951,
2028 + .50519, .21399, .45686, .03947, .00861,
2029 + .00365, .03052, .05810,
2030 + .49737, .20935, .43000, .03858, .00887,
2031 + .00412, .02991, .05634,
2032 + .48997, .20507, .40640, .03773, .00905,
2033 + .00451, .02933, .05473,
2034 + .48292, .20113, .38565, .03694, .00919,
2035 + .00482, .02876, .05324 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .47585, .19722, .36608, .03615, .00928,
2038 + .00507, .02818, .05177,
2039 + .46899, .19347, .34806, .03538, .00935,
2040 + .00530, .02762, .05036,
2041 + .46240, .18994, .33190, .03466, .00939,
2042 + .00548, .02708, .04905,
2043 + .45625, .18667, .31750, .03397, .00941,
2044 + .00562, .02657, .04785,
2045 + .45006, .18340, .30376, .03329, .00940,
2046 + .00574, .02605, .04668,
2047 + .44400, .18025, .29094, .03261, .00939,
2048 + .00584, .02554, .04555,
2049 + .43824, .17728, .27934, .03199, .00936,
2050 + .00592, .02508, .04449,
2051 + .43283, .17450, .26887, .03140, .00932,
2052 + .00598, .02463, .04351 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .42738, .17173, .25879, .03080, .00927,
2055 + .00602, .02417, .04255,
2056 + .42204, .16903, .24927, .03023, .00922,
2057 + .00606, .02374, .04161,
2058 + .41690, .16650, .24056, .02971, .00916,
2059 + .00608, .02331, .04072,
2060 + .41209, .16415, .23264, .02922, .00910,
2061 + .00611, .02292, .03991,
2062 + .40724, .16176, .22495, .02871, .00903,
2063 + .00611, .02254, .03909 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .60253, .28678, 1.01181, .03734, .00000,
2066 + .00000, .02385, .07511,
2067 + .60299, .28377, .97110, .03778, .00000,
2068 + .00000, .02465, .07378,
2069 + .60163, .27875, .92900, .03816, -.00845,
2070 + .00000, .02561, .07175,
2071 + .59927, .27480, .88508, .03834, -.00730,
2072 + .00000, .02614, .07021,
2073 + .59592, .27050, .83827, .03839, -.00546,
2074 + .00000, .02658, .06868,
2075 + .59243, .26665, .79949, .03835, -.00401,
2076 + .00000, .02684, .06734,
2077 + .58860, .26289, .76397, .03824, -.00279,
2078 + .00000, .02702, .06600,
2079 + .58409, .25889, .72787, .03809, -.00160,
2080 + .00000, .02714, .06453 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .57980, .25532, .69739, .03788, -.00072,
2083 + .00000, .02718, .06330,
2084 + .57544, .25188, .66930, .03762, .00009,
2085 + .00000, .02715, .06210,
2086 + .57180, .24913, .64779, .03741, .00067,
2087 + .00000, .02709, .06114,
2088 + .56372, .24327, .60404, .03687, .00179,
2089 + .00000, .02693, .05916,
2090 + .55625, .23822, .57348, .03634, .00260,
2091 + -.00274, .02670, .05748,
2092 + .54762, .23261, .53393, .03569, .00338,
2093 + -.00155, .02639, .05561,
2094 + .53835, .22680, .49597, .03497, .00407,
2095 + -.00060, .02599, .05368,
2096 + .52973, .22161, .46410, .03428, .00460,
2097 + .00016, .02556, .05198 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .52100, .21641, .43419, .03352, .00504,
2100 + .00081, .02510, .05032,
2101 + .51352, .21216, .41090, .03292, .00533,
2102 + .00127, .02469, .04891,
2103 + .50446, .20707, .38459, .03214, .00565,
2104 + .00177, .02417, .04726,
2105 + .49645, .20266, .36293, .03144, .00588,
2106 + .00217, .02371, .04585,
2107 + .48905, .19862, .34425, .03080, .00604,
2108 + .00247, .02326, .04459,
2109 + .47964, .19365, .32212, .02999, .00622,
2110 + .00281, .02269, .04301,
2111 + .47085, .18907, .30284, .02922, .00633,
2112 + .00307, .02214, .04158,
2113 + .46266, .18483, .28597, .02852, .00641,
2114 + .00329, .02162, .04028 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .45447, .18063, .27017, .02780, .00647,
2117 + .00347, .02111, .03903,
2118 + .44657, .17665, .25573, .02710, .00651,
2119 + .00363, .02061, .03783,
2120 + .43905, .17297, .24290, .02647, .00652,
2121 + .00375, .02015, .03669,
2122 + .43207, .16955, .23153, .02587, .00651,
2123 + .00384, .01970, .03565,
2124 + .42511, .16616, .22070, .02528, .00650,
2125 + .00392, .01927, .03465,
2126 + .41830, .16289, .21065, .02471, .00647,
2127 + .00398, .01884, .03369,
2128 + .41190, .15982, .20163, .02416, .00645,
2129 + .00403, .01842, .03283,
2130 + .40588, .15698, .19351, .02366, .00641,
2131 + .00407, .01804, .03202 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .39986, .15414, .18569, .02318, .00636,
2134 + .00409, .01767, .03121,
2135 + .39399, .15140, .17837, .02270, .00632,
2136 + .00411, .01731, .03043,
2137 + .38842, .14881, .17171, .02223, .00626,
2138 + .00412, .01695, .02971,
2139 + .38324, .14642, .16566, .02180, .00621,
2140 + .00412, .01664, .02905,
2141 + .37798, .14400, .15981, .02138, .00616,
2142 + .00413, .01631, .02839 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .62170, .28416, .87345, .03156, .00000,
2145 + .00000, .01980, .06346,
2146 + .61940, .27986, .83117, .03184, .00000,
2147 + .00000, .02047, .06189,
2148 + .61414, .27310, .78606, .03204, -.00738,
2149 + .00000, .02111, .05965,
2150 + .60908, .26801, .74261, .03203, -.00635,
2151 + .00000, .02148, .05805,
2152 + .60299, .26263, .69759, .03199, -.00482,
2153 + .00000, .02171, .05641,
2154 + .59716, .25794, .66073, .03184, -.00362,
2155 + .00000, .02185, .05497,
2156 + .59120, .25345, .62723, .03167, -.00262,
2157 + .00000, .02192, .05360,
2158 + .58456, .24868, .59358, .03143, -.00166,
2159 + .00000, .02192, .05216 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .57846, .24447, .56560, .03114, -.00095,
2162 + .00000, .02183, .05095,
2163 + .57243, .24045, .53992, .03084, -.00030,
2164 + .00000, .02173, .04979,
2165 + .56752, .23729, .52040, .03058, .00016,
2166 + .00000, .02164, .04886,
2167 + .55685, .23057, .48118, .02998, .00104,
2168 + .00000, .02138, .04696,
2169 + .54732, .22491, .45370, .02943, .00167,
2170 + -.00226, .02111, .04537,
2171 + .53648, .21870, .41921, .02877, .00228,
2172 + -.00135, .02075, .04364,
2173 + .52510, .21233, .38645, .02804, .00280,
2174 + -.00062, .02031, .04189,
2175 + .51473, .20666, .35921, .02736, .00319,
2176 + -.00005, .01989, .04034 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .50423, .20109, .33387, .02667, .00353,
2179 + .00045, .01943, .03882,
2180 + .49547, .19651, .31430, .02608, .00374,
2181 + .00079, .01904, .03761,
2182 + .48495, .19109, .29235, .02536, .00396,
2183 + .00116, .01856, .03618,
2184 + .47572, .18643, .27444, .02473, .00413,
2185 + .00145, .01813, .03493,
2186 + .46724, .18223, .25911, .02413, .00425,
2187 + .00168, .01773, .03382,
2188 + .45661, .17701, .24108, .02340, .00436,
2189 + .00192, .01720, .03247,
2190 + .44676, .17224, .22548, .02273, .00444,
2191 + .00211, .01672, .03125,
2192 + .43759, .16789, .21193, .02210, .00449,
2193 + .00226, .01627, .03013 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .42855, .16361, .19935, .02147, .00453,
2196 + .00239, .01582, .02906,
2197 + .41990, .15954, .18789, .02086, .00454,
2198 + .00249, .01539, .02806,
2199 + .41170, .15575, .17775, .02029, .00454,
2200 + .00257, .01499, .02717,
2201 + .40412, .15228, .16881, .01978, .00453,
2202 + .00264, .01461, .02633,
2203 + .39659, .14888, .16038, .01927, .00451,
2204 + .00268, .01424, .02551,
2205 + .38928, .14560, .15260, .01880, .00448,
2206 + .00272, .01387, .02472,
2207 + .38242, .14255, .14560, .01836, .00446,
2208 + .00276, .01353, .02399,
2209 + .37601, .13973, .13934, .01794, .00442,
2210 + .00278, .01323, .02333 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .36962, .13691, .13335, .01752, .00439,
2213 + .00280, .01291, .02269,
2214 + .36344, .13421, .12777, .01711, .00434,
2215 + .00280, .01261, .02207,
2216 + .35757, .13165, .12271, .01673, .00430,
2217 + .00281, .01234, .02148,
2218 + .35214, .12928, .11814, .01637, .00426,
2219 + .00281, .01208, .02095,
2220 + .34666, .12692, .11372, .01602, .00421,
2221 + .00280, .01182, .02042 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .63420, .27803, .74899, .02663, .00000,
2224 + .00000, .01648, .05253,
2225 + .62891, .27259, .70683, .02686, .00000,
2226 + .00000, .01688, .05096,
2227 + .61935, .26446, .66101, .02697, -.00639,
2228 + .00000, .01732, .04863,
2229 + .61148, .25841, .61940, .02692, -.00548,
2230 + .00000, .01750, .04702,
2231 + .60262, .25214, .57698, .02679, -.00420,
2232 + .00000, .01763, .04542,
2233 + .59455, .24673, .54273, .02661, -.00322,
2234 + .00000, .01765, .04402,
2235 + .58655, .24159, .51194, .02638, -.00240,
2236 + .00000, .01761, .04274,
2237 + .57786, .23618, .48129, .02605, -.00162,
2238 + .00000, .01751, .04144 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .57008, .23150, .45597, .02572, -.00103,
2241 + .00000, .01740, .04028,
2242 + .56248, .22705, .43298, .02539, -.00051,
2243 + .00000, .01727, .03920,
2244 + .55639, .22356, .41559, .02512, -.00015,
2245 + .00000, .01714, .03837,
2246 + .54326, .21629, .38101, .02452, .00055,
2247 + .00000, .01684, .03663,
2248 + .53190, .21017, .35682, .02396, .00105,
2249 + -.00185, .01653, .03521,
2250 + .51917, .20353, .32720, .02333, .00151,
2251 + -.00115, .01615, .03367,
2252 + .50597, .19676, .29931, .02264, .00192,
2253 + -.00059, .01574, .03213,
2254 + .49414, .19079, .27635, .02198, .00221,
2255 + -.00015, .01534, .03078 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .48226, .18496, .25519, .02132, .00246,
2258 + .00023, .01493, .02948,
2259 + .47241, .18022, .23898, .02079, .00263,
2260 + .00049, .01455, .02844,
2261 + .46067, .17465, .22095, .02014, .00278,
2262 + .00075, .01413, .02721,
2263 + .45049, .16986, .20636, .01955, .00290,
2264 + .00097, .01375, .02617,
2265 + .44123, .16557, .19390, .01902, .00299,
2266 + .00113, .01340, .02527,
2267 + .42968, .16027, .17943, .01836, .00307,
2268 + .00131, .01294, .02417,
2269 + .41902, .15545, .16695, .01777, .00312,
2270 + .00145, .01252, .02317,
2271 + .40923, .15108, .15621, .01720, .00315,
2272 + .00156, .01214, .02225 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .39956, .14682, .14630, .01666, .00317,
2275 + .00165, .01177, .02138,
2276 + .39032, .14277, .13735, .01615, .00317,
2277 + .00172, .01141, .02056,
2278 + .38172, .13903, .12946, .01566, .00316,
2279 + .00177, .01107, .01982,
2280 + .37379, .13560, .12253, .01521, .00315,
2281 + .00182, .01077, .01915,
2282 + .36591, .13223, .11601, .01479, .00313,
2283 + .00185, .01047, .01849,
2284 + .35830, .12900, .11004, .01439, .00311,
2285 + .00187, .01018, .01787,
2286 + .35119, .12603, .10469, .01401, .00309,
2287 + .00189, .00991, .01731,
2288 + .34459, .12328, .09994, .01366, .00306,
2289 + .00190, .00964, .01679 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .33805, .12055, .09542, .01330, .00302,
2292 + .00191, .00939, .01629,
2293 + .33173, .11794, .09121, .01295, .00299,
2294 + .00191, .00915, .01580,
2295 + .32575, .11546, .08737, .01264, .00296,
2296 + .00192, .00893, .01535,
2297 + .32021, .11317, .08393, .01236, .00293,
2298 + .00192, .00873, .01494,
2299 + .31462, .11091, .08063, .01207, .00289,
2300 + .00191, .00853, .01453 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .63895, .27028, .63676, .02354, .00000,
2303 + .00000, .01295, .04195,
2304 + .63078, .26372, .59575, .02353, .00000,
2305 + .00000, .01331, .04056,
2306 + .61732, .25409, .55062, .02341, -.00548,
2307 + .00000, .01368, .03848,
2308 + .60680, .24713, .51159, .02318, -.00466,
2309 + .00000, .01382, .03706,
2310 + .59544, .24001, .47254, .02289, -.00361,
2311 + .00000, .01389, .03563,
2312 + .58528, .23397, .44134, .02259, -.00280,
2313 + .00000, .01391, .03442,
2314 + .57544, .22827, .41350, .02226, -.00211,
2315 + .00000, .01386, .03329,
2316 + .56492, .22231, .38608, .02186, -.00148,
2317 + .00000, .01375, .03216 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .55554, .21729, .36371, .02151, -.00102,
2320 + .00000, .01360, .03115,
2321 + .54653, .21253, .34345, .02117, -.00060,
2322 + .00000, .01348, .03021,
2323 + .53940, .20880, .32827, .02088, -.00031,
2324 + .00000, .01335, .02949,
2325 + .52430, .20103, .29837, .02023, .00024,
2326 + .00000, .01305, .02799,
2327 + .51137, .19459, .27748, .01969, .00063,
2328 + -.00150, .01277, .02675,
2329 + .49707, .18767, .25243, .01905, .00099,
2330 + -.00096, .01243, .02547,
2331 + .48236, .18069, .22913, .01838, .00130,
2332 + -.00053, .01205, .02419,
2333 + .46928, .17457, .21012, .01777, .00153,
2334 + -.00019, .01171, .02307 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .45644, .16859, .19272, .01710, .00171,
2337 + .00009, .01131, .02203,
2338 + .44574, .16383, .17957, .01661, .00184,
2339 + .00029, .01102, .02114,
2340 + .43312, .15820, .16502, .01603, .00195,
2341 + .00049, .01063, .02015,
2342 + .42224, .15339, .15328, .01552, .00203,
2343 + .00065, .01029, .01932,
2344 + .41239, .14910, .14340, .01505, .00209,
2345 + .00076, .01001, .01857,
2346 + .40019, .14384, .13192, .01446, .00215,
2347 + .00090, .00966, .01768,
2348 + .38901, .13909, .12214, .01392, .00218,
2349 + .00099, .00931, .01688,
2350 + .37880, .13477, .11377, .01345, .00221,
2351 + .00108, .00898, .01616 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .36880, .13058, .10609, .01298, .00221,
2354 + .00113, .00869, .01547,
2355 + .35929, .12664, .09916, .01253, .00221,
2356 + .00118, .00840, .01483,
2357 + .35047, .12300, .09311, .01212, .00221,
2358 + .00123, .00813, .01426,
2359 + .34233, .11970, .08786, .01174, .00219,
2360 + .00125, .00786, .01373,
2361 + .33430, .11646, .08295, .01139, .00218,
2362 + .00127, .00761, .01323,
2363 + .32659, .11337, .07843, .01104, .00215,
2364 + .00129, .00737, .01276,
2365 + .31943, .11052, .07443, .01071, .00213,
2366 + .00130, .00717, .01230,
2367 + .31279, .10788, .07087, .01042, .00211,
2368 + .00131, .00698, .01190 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30620, .10528, .06749, .01013, .00209,
2371 + .00132, .00678, .01151,
2372 + .29985, .10280, .06435, .00986, .00206,
2373 + .00131, .00658, .01114,
2374 + .29390, .10045, .06152, .00958, .00203,
2375 + .00131, .00641, .01081,
2376 + .28838, .09829, .05898, .00933, .00200,
2377 + .00131, .00625, .01051,
2378 + .28287, .09616, .05656, .00909, .00199,
2379 + .00131, .00609, .01020 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .63826, .25918, .53359, .02000, .00000,
2382 + .00000, .01050, .03328,
2383 + .62701, .25178, .49492, .02000, .00000,
2384 + .00000, .01076, .03194,
2385 + .60955, .24099, .45212, .01972, -.00463,
2386 + .00000, .01102, .03011,
2387 + .59642, .23345, .41637, .01948, -.00393,
2388 + .00000, .01108, .02885,
2389 + .58245, .22585, .38128, .01922, -.00305,
2390 + .00000, .01106, .02756,
2391 + .57037, .21938, .35349, .01889, -.00239,
2392 + .00000, .01101, .02652,
2393 + .55878, .21331, .32895, .01853, -.00184,
2394 + .00000, .01094, .02553,
2395 + .54651, .20707, .30496, .01814, -.00133,
2396 + .00000, .01082, .02450 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .53583, .20174, .28552, .01780, -.00095,
2399 + .00000, .01068, .02370,
2400 + .52564, .19674, .26814, .01742, -.00062,
2401 + .00000, .01052, .02294,
2402 + .51762, .19285, .25521, .01711, -.00039,
2403 + .00000, .01038, .02234,
2404 + .50073, .18487, .22985, .01647, .00004,
2405 + .00000, .01009, .02112,
2406 + .48649, .17831, .21224, .01596, .00035,
2407 + -.00119, .00983, .02010,
2408 + .47095, .17124, .19154, .01538, .00062,
2409 + -.00079, .00954, .01900,
2410 + .45513, .16421, .17243, .01475, .00086,
2411 + -.00045, .00919, .01795,
2412 + .44114, .15809, .15702, .01416, .00103,
2413 + -.00020, .00887, .01707 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .42740, .15215, .14302, .01361, .00117,
2416 + .00001, .00856, .01622,
2417 + .41619, .14739, .13255, .01319, .00126,
2418 + .00015, .00829, .01550,
2419 + .40300, .14182, .12102, .01265, .00135,
2420 + .00031, .00800, .01470,
2421 + .39168, .13709, .11181, .01219, .00140,
2422 + .00042, .00774, .01404,
2423 + .38150, .13292, .10411, .01178, .00145,
2424 + .00051, .00747, .01345,
2425 + .36897, .12780, .09524, .01127, .00149,
2426 + .00060, .00715, .01276,
2427 + .35755, .12319, .08772, .01081, .00151,
2428 + .00068, .00686, .01215,
2429 + .34714, .11904, .08133, .01041, .00152,
2430 + .00073, .00661, .01157 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33699, .11502, .07550, .01002, .00152,
2433 + .00077, .00637, .01105,
2434 + .32738, .11126, .07031, .00963, .00153,
2435 + .00082, .00612, .01058,
2436 + .31845, .10783, .06581, .00930, .00152,
2437 + .00083, .00591, .01011,
2438 + .31032, .10469, .06187, .00901, .00151,
2439 + .00085, .00571, .00970,
2440 + .30236, .10162, .05822, .00869, .00149,
2441 + .00087, .00551, .00932,
2442 + .29473, .09870, .05488, .00840, .00148,
2443 + .00088, .00534, .00896,
2444 + .28765, .09598, .05193, .00813, .00146,
2445 + .00088, .00518, .00866,
2446 + .28111, .09351, .04934, .00788, .00145,
2447 + .00090, .00502, .00837 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .27464, .09107, .04688, .00763, .00143,
2450 + .00090, .00487, .00806,
2451 + .26842, .08875, .04462, .00741, .00141,
2452 + .00090, .00473, .00778,
2453 + .26258, .08658, .04258, .00721, .00139,
2454 + .00089, .00459, .00752,
2455 + .25717, .08458, .04076, .00703, .00137,
2456 + .00089, .00447, .00729,
2457 + .25180, .08260, .03901, .00683, .00135,
2458 + .00089, .00434, .00706 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .63102, .24662, .43930, .01739, .00000,
2461 + .00000, .00823, .02551,
2462 + .61702, .23843, .40374, .01720, .00000,
2463 + .00000, .00842, .02448,
2464 + .59584, .22679, .36425, .01686, -.00387,
2465 + .00000, .00860, .02295,
2466 + .58035, .21875, .33235, .01653, -.00326,
2467 + .00000, .00865, .02189,
2468 + .56431, .21063, .30150, .01614, -.00254,
2469 + .00000, .00866, .02085,
2470 + .55049, .20386, .27735, .01578, -.00200,
2471 + .00000, .00857, .02000,
2472 + .53740, .19759, .25620, .01543, -.00156,
2473 + .00000, .00847, .01920,
2474 + .52372, .19113, .23573, .01502, -.00115,
2475 + .00000, .00835, .01838 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .51188, .18569, .21936, .01466, -.00085,
2478 + .00000, .00827, .01765,
2479 + .50067, .18055, .20477, .01431, -.00059,
2480 + .00000, .00815, .01700,
2481 + .49193, .17658, .19396, .01404, -.00040,
2482 + .00000, .00800, .01653,
2483 + .47371, .16850, .17307, .01342, -.00006,
2484 + .00000, .00773, .01555,
2485 + .45849, .16192, .15860, .01291, .00017,
2486 + -.00094, .00749, .01477,
2487 + .44200, .15490, .14186, .01235, .00039,
2488 + -.00063, .00722, .01392,
2489 + .42536, .14795, .12660, .01180, .00055,
2490 + -.00038, .00691, .01308,
2491 + .41074, .14194, .11437, .01131, .00069,
2492 + -.00019, .00666, .01238 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39652, .13610, .10347, .01080, .00079,
2495 + -.00003, .00642, .01167,
2496 + .38497, .13148, .09528, .01041, .00086,
2497 + .00008, .00621, .01116,
2498 + .37146, .12610, .08643, .00993, .00092,
2499 + .00019, .00594, .01056,
2500 + .35991, .12155, .07941, .00954, .00097,
2501 + .00027, .00570, .01006,
2502 + .34962, .11753, .07353, .00919, .00099,
2503 + .00033, .00550, .00961,
2504 + .33697, .11263, .06687, .00875, .00102,
2505 + .00041, .00525, .00907,
2506 + .32551, .10825, .06128, .00836, .00104,
2507 + .00046, .00501, .00860,
2508 + .31512, .10430, .05656, .00801, .00105,
2509 + .00050, .00482, .00818 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .30506, .10052, .05227, .00769, .00105,
2512 + .00052, .00462, .00777,
2513 + .29556, .09697, .04847, .00738, .00105,
2514 + .00055, .00444, .00739,
2515 + .28682, .09373, .04517, .00709, .00105,
2516 + .00057, .00427, .00707,
2517 + .27886, .09078, .04235, .00683, .00103,
2518 + .00058, .00411, .00678,
2519 + .27107, .08790, .03973, .00657, .00103,
2520 + .00060, .00396, .00648,
2521 + .26362, .08519, .03737, .00633, .00101,
2522 + .00060, .00382, .00621,
2523 + .25672, .08269, .03528, .00612, .00100,
2524 + .00060, .00367, .00598,
2525 + .25035, .08041, .03343, .00593, .00099,
2526 + .00061, .00356, .00576 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .24409, .07816, .03169, .00575, .00097,
2529 + .00061, .00346, .00554,
2530 + .23809, .07604, .03008, .00557, .00096,
2531 + .00061, .00335, .00534,
2532 + .23249, .07404, .02867, .00538, .00094,
2533 + .00060, .00325, .00515,
2534 + .22733, .07220, .02740, .00523, .00093,
2535 + .00060, .00315, .00499,
2536 + .22220, .07039, .02619, .00507, .00091,
2537 + .00059, .00305, .00483 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .61817, .23242, .35273, .01494, .00000,
2540 + .00000, .00643, .01920,
2541 + .60153, .22369, .32097, .01468, .00000,
2542 + .00000, .00665, .01833,
2543 + .57703, .21146, .28586, .01418, -.00317,
2544 + .00000, .00671, .01717,
2545 + .55949, .20302, .25819, .01381, -.00265,
2546 + .00000, .00676, .01633,
2547 + .54156, .19464, .23188, .01339, -.00208,
2548 + .00000, .00669, .01554,
2549 + .52630, .18770, .21155, .01305, -.00165,
2550 + .00000, .00664, .01479,
2551 + .51198, .18128, .19389, .01269, -.00130,
2552 + .00000, .00654, .01415,
2553 + .49717, .17471, .17694, .01227, -.00097,
2554 + .00000, .00638, .01355 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48442, .16922, .16351, .01194, -.00073,
2557 + .00000, .00628, .01299,
2558 + .47243, .16413, .15164, .01160, -.00052,
2559 + .00000, .00617, .01248,
2560 + .46313, .16020, .14296, .01132, -.00038,
2561 + .00000, .00606, .01208,
2562 + .44382, .15220, .12616, .01080, -.00013,
2563 + .00000, .00586, .01128,
2564 + .42799, .14573, .11466, .01031, .00006,
2565 + -.00073, .00565, .01067,
2566 + .41088, .13885, .10157, .00982, .00021,
2567 + -.00050, .00541, .01004,
2568 + .39375, .13207, .08977, .00933, .00035,
2569 + -.00031, .00517, .00938,
2570 + .37887, .12624, .08043, .00890, .00045,
2571 + -.00017, .00493, .00883 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .36438, .12068, .07213, .00847, .00053,
2574 + -.00005, .00468, .00834,
2575 + .35278, .11623, .06600, .00812, .00057,
2576 + .00003, .00452, .00793,
2577 + .33922, .11110, .05939, .00772, .00062,
2578 + .00011, .00433, .00746,
2579 + .32771, .10679, .05420, .00737, .00065,
2580 + .00017, .00415, .00707,
2581 + .31745, .10298, .04995, .00706, .00067,
2582 + .00021, .00400, .00673,
2583 + .30493, .09836, .04511, .00671, .00069,
2584 + .00027, .00382, .00633,
2585 + .29365, .09424, .04108, .00639, .00071,
2586 + .00030, .00364, .00599,
2587 + .28344, .09058, .03769, .00612, .00071,
2588 + .00033, .00347, .00569 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .27360, .08704, .03468, .00585, .00071,
2591 + .00035, .00332, .00538,
2592 + .26436, .08374, .03202, .00560, .00071,
2593 + .00037, .00319, .00509,
2594 + .25591, .08072, .02974, .00537, .00070,
2595 + .00038, .00305, .00486,
2596 + .24821, .07801, .02776, .00515, .00070,
2597 + .00040, .00293, .00466,
2598 + .24071, .07538, .02596, .00494, .00070,
2599 + .00040, .00283, .00444,
2600 + .23358, .07291, .02433, .00474, .00069,
2601 + .00041, .00272, .00425,
2602 + .22699, .07062, .02292, .00457, .00067,
2603 + .00040, .00261, .00409,
2604 + .22095, .06853, .02168, .00440, .00066,
2605 + .00041, .00251, .00393 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .21499, .06649, .02051, .00427, .00066,
2608 + .00041, .00243, .00376,
2609 + .20930, .06455, .01946, .00411, .00064,
2610 + .00041, .00234, .00360,
2611 + .20401, .06274, .01850, .00398, .00064,
2612 + .00041, .00227, .00348,
2613 + .19915, .06108, .01765, .00385, .00062,
2614 + .00040, .00221, .00337,
2615 + .19431, .05945, .01686, .00373, .00062,
2616 + .00041, .00213, .00325 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60019, .21678, .27414, .01241, .00000,
2619 + .00000, .00509, .01426,
2620 + .58111, .20781, .24676, .01217, .00000,
2621 + .00000, .00522, .01355,
2622 + .55365, .19519, .21664, .01169, -.00256,
2623 + .00000, .00531, .01258,
2624 + .53439, .18664, .19346, .01137, -.00213,
2625 + .00000, .00523, .01195,
2626 + .51488, .17816, .17179, .01095, -.00168,
2627 + .00000, .00521, .01129,
2628 + .49848, .17120, .15518, .01056, -.00132,
2629 + .00000, .00513, .01080,
2630 + .48319, .16481, .14093, .01021, -.00105,
2631 + .00000, .00502, .01032,
2632 + .46745, .15831, .12744, .00985, -.00080,
2633 + .00000, .00490, .00979 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .45411, .15288, .11676, .00955, -.00061,
2636 + .00000, .00481, .00936,
2637 + .44160, .14784, .10749, .00925, -.00045,
2638 + .00000, .00470, .00896,
2639 + .43195, .14397, .10070, .00899, -.00034,
2640 + .00000, .00463, .00867,
2641 + .41203, .13618, .08789, .00850, -.00015,
2642 + .00000, .00442, .00805,
2643 + .39579, .12989, .07913, .00808, -.00001,
2644 + -.00056, .00424, .00759,
2645 + .37843, .12327, .06923, .00765, .00011,
2646 + -.00038, .00404, .00711,
2647 + .36115, .11682, .06041, .00724, .00021,
2648 + -.00025, .00383, .00663,
2649 + .34621, .11128, .05356, .00687, .00028,
2650 + -.00014, .00368, .00619 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .33178, .10598, .04758, .00650, .00034,
2653 + -.00006, .00348, .00583,
2654 + .32024, .10177, .04318, .00621, .00037,
2655 + .00000, .00334, .00554,
2656 + .30684, .09695, .03851, .00587, .00041,
2657 + .00006, .00318, .00520,
2658 + .29552, .09290, .03487, .00561, .00043,
2659 + .00010, .00303, .00492,
2660 + .28554, .08937, .03190, .00535, .00045,
2661 + .00014, .00291, .00466,
2662 + .27334, .08509, .02858, .00507, .00046,
2663 + .00017, .00274, .00437,
2664 + .26239, .08127, .02583, .00481, .00047,
2665 + .00019, .00262, .00412,
2666 + .25258, .07789, .02357, .00455, .00047,
2667 + .00022, .00249, .00389 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .24314, .07465, .02154, .00435, .00048,
2670 + .00024, .00238, .00367,
2671 + .23430, .07164, .01978, .00416, .00048,
2672 + .00025, .00228, .00347,
2673 + .22619, .06890, .01830, .00397, .00047,
2674 + .00026, .00218, .00331,
2675 + .21887, .06643, .01704, .00381, .00047,
2676 + .00026, .00208, .00315,
2677 + .21175, .06404, .01588, .00365, .00047,
2678 + .00027, .00198, .00300,
2679 + .20499, .06180, .01483, .00351, .00045,
2680 + .00027, .00190, .00285,
2681 + .19877, .05975, .01393, .00338, .00045,
2682 + .00027, .00184, .00273,
2683 + .19309, .05786, .01315, .00326, .00044,
2684 + .00027, .00177, .00262 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .18753, .05604, .01243, .00312, .00044,
2687 + .00027, .00170, .00252,
2688 + .18225, .05431, .01175, .00301, .00043,
2689 + .00027, .00163, .00243,
2690 + .17732, .05269, .01117, .00289, .00042,
2691 + .00028, .00158, .00233,
2692 + .17279, .05121, .01065, .00279, .00041,
2693 + .00027, .00152, .00225,
2694 + .16831, .04976, .01016, .00271, .00040,
2695 + .00027, .00147, .00216 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .57718, .20088, .20344, .01059, .00000,
2698 + .00000, .00382, .01013,
2699 + .55621, .19156, .18085, .01023, .00000,
2700 + .00000, .00391, .00970,
2701 + .52627, .17888, .15619, .00974, -.00202,
2702 + .00000, .00398, .00896,
2703 + .50566, .17028, .13756, .00938, -.00168,
2704 + .00000, .00397, .00846,
2705 + .48498, .16179, .12048, .00894, -.00131,
2706 + .00000, .00388, .00804,
2707 + .46782, .15490, .10750, .00860, -.00105,
2708 + .00000, .00382, .00763,
2709 + .45187, .14863, .09650, .00827, -.00084,
2710 + .00000, .00377, .00723,
2711 + .43552, .14225, .08617, .00796, -.00064,
2712 + .00000, .00369, .00685 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .42181, .13695, .07821, .00761, -.00050,
2715 + .00000, .00358, .00658,
2716 + .40898, .13207, .07130, .00734, -.00038,
2717 + .00000, .00348, .00631,
2718 + .39905, .12837, .06631, .00715, -.00029,
2719 + .00000, .00341, .00608,
2720 + .37896, .12084, .05696, .00673, -.00014,
2721 + .00000, .00324, .00562,
2722 + .36264, .11486, .05061, .00635, -.00004,
2723 + -.00042, .00310, .00528,
2724 + .34532, .10859, .04356, .00595, .00005,
2725 + -.00029, .00294, .00492,
2726 + .32822, .10244, .03742, .00557, .00012,
2727 + -.00019, .00278, .00455,
2728 + .31347, .09724, .03271, .00526, .00017,
2729 + -.00012, .00264, .00427 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .29937, .09230, .02861, .00495, .00021,
2732 + -.00005, .00251, .00399,
2733 + .28806, .08841, .02565, .00474, .00024,
2734 + -.00001, .00239, .00377,
2735 + .27505, .08394, .02255, .00447, .00027,
2736 + .00003, .00227, .00352,
2737 + .26414, .08020, .02019, .00423, .00028,
2738 + .00006, .00215, .00333,
2739 + .25448, .07692, .01829, .00402, .00030,
2740 + .00009, .00205, .00318,
2741 + .24281, .07299, .01620, .00377, .00031,
2742 + .00011, .00195, .00296,
2743 + .23239, .06952, .01450, .00358, .00031,
2744 + .00012, .00184, .00275,
2745 + .22299, .06643, .01310, .00342, .00032,
2746 + .00015, .00174, .00260 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .21405, .06350, .01189, .00325, .00032,
2749 + .00016, .00165, .00245,
2750 + .20573, .06079, .01081, .00308, .00032,
2751 + .00017, .00157, .00233,
2752 + .19816, .05831, .00996, .00290, .00031,
2753 + .00016, .00151, .00221,
2754 + .19131, .05609, .00922, .00277, .00031,
2755 + .00017, .00144, .00209,
2756 + .18465, .05397, .00857, .00266, .00031,
2757 + .00018, .00137, .00199,
2758 + .17837, .05196, .00797, .00253, .00030,
2759 + .00018, .00131, .00190,
2760 + .17263, .05011, .00746, .00244, .00030,
2761 + .00018, .00125, .00182,
2762 + .16738, .04845, .00702, .00235, .00029,
2763 + .00018, .00121, .00174 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .16222, .04684, .00662, .00226, .00028,
2766 + .00018, .00117, .00164,
2767 + .15732, .04532, .00626, .00218, .00029,
2768 + .00018, .00112, .00157,
2769 + .15278, .04388, .00594, .00209, .00028,
2770 + .00018, .00108, .00152,
2771 + .14861, .04258, .00566, .00201, .00027,
2772 + .00018, .00105, .00147,
2773 + .14453, .04130, .00540, .00195, .00026,
2774 + .00017, .00101, .00142 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .54989, .18438, .14095, .00881, .00000,
2777 + .00000, .00286, .00710,
2778 + .52739, .17509, .12315, .00848, .00000,
2779 + .00000, .00291, .00677,
2780 + .49577, .16239, .10418, .00799, -.00157,
2781 + .00000, .00292, .00624,
2782 + .47419, .15391, .09011, .00760, -.00129,
2783 + .00000, .00289, .00586,
2784 + .45268, .14571, .07724, .00729, -.00101,
2785 + .00000, .00286, .00549,
2786 + .43494, .13900, .06774, .00695, -.00081,
2787 + .00000, .00279, .00522,
2788 + .41864, .13289, .05985, .00662, -.00065,
2789 + .00000, .00273, .00497,
2790 + .40207, .12677, .05243, .00633, -.00050,
2791 + .00000, .00266, .00468 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .38824, .12171, .04685, .00603, -.00039,
2794 + .00000, .00256, .00447,
2795 + .37537, .11706, .04205, .00578, -.00030,
2796 + .00000, .00248, .00426,
2797 + .36550, .11352, .03863, .00561, -.00024,
2798 + .00000, .00241, .00410,
2799 + .34542, .10641, .03236, .00521, -.00013,
2800 + .00000, .00229, .00382,
2801 + .32925, .10077, .02815, .00496, -.00006,
2802 + -.00032, .00219, .00355,
2803 + .31219, .09488, .02353, .00467, .00001,
2804 + -.00022, .00206, .00327,
2805 + .29549, .08918, .01958, .00434, .00006,
2806 + -.00015, .00194, .00304,
2807 + .28118, .08434, .01657, .00408, .00011,
2808 + -.00009, .00186, .00282 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .26760, .07975, .01404, .00382, .00014,
2811 + -.00004, .00176, .00263,
2812 + .25677, .07618, .01232, .00362, .00015,
2813 + -.00002, .00168, .00249,
2814 + .24433, .07208, .01053, .00339, .00017,
2815 + .00001, .00156, .00233,
2816 + .23388, .06867, .00919, .00322, .00019,
2817 + .00004, .00148, .00217,
2818 + .22473, .06572, .00814, .00307, .00019,
2819 + .00005, .00141, .00205,
2820 + .21370, .06216, .00700, .00287, .00019,
2821 + .00007, .00132, .00192,
2822 + .20388, .05902, .00610, .00270, .00020,
2823 + .00008, .00125, .00180,
2824 + .19515, .05624, .00538, .00256, .00020,
2825 + .00009, .00118, .00170 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .18683, .05360, .00481, .00239, .00020,
2828 + .00010, .00113, .00159,
2829 + .17909, .05117, .00433, .00223, .00021,
2830 + .00011, .00107, .00148,
2831 + .17201, .04898, .00390, .00216, .00020,
2832 + .00011, .00101, .00140,
2833 + .16565, .04702, .00357, .00207, .00020,
2834 + .00011, .00097, .00133,
2835 + .15953, .04513, .00329, .00198, .00020,
2836 + .00011, .00092, .00126,
2837 + .15375, .04335, .00304, .00188, .00020,
2838 + .00012, .00088, .00121,
2839 + .14848, .04174, .00283, .00180, .00019,
2840 + .00012, .00085, .00114,
2841 + .14366, .04026, .00266, .00173, .00019,
2842 + .00012, .00082, .00109 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13897, .03884, .00252, .00166, .00018,
2845 + .00011, .00077, .00104,
2846 + .13451, .03748, .00238, .00159, .00019,
2847 + .00012, .00074, .00101,
2848 + .13039, .03624, .00227, .00153, .00018,
2849 + .00012, .00070, .00097,
2850 + .12663, .03512, .00217, .00147, .00018,
2851 + .00012, .00068, .00092,
2852 + .12291, .03401, .00207, .00142, .00017,
2853 + .00012, .00066, .00089 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .51913, .16736, .08697, .00699, .00000,
2856 + .00000, .00218, .00493,
2857 + .49541, .15827, .07398, .00669, .00000,
2858 + .00000, .00221, .00464,
2859 + .46245, .14583, .06056, .00629, -.00119,
2860 + .00000, .00222, .00429,
2861 + .44034, .13763, .05059, .00596, -.00097,
2862 + .00000, .00218, .00403,
2863 + .41854, .12973, .04180, .00561, -.00077,
2864 + .00000, .00211, .00378,
2865 + .40055, .12329, .03541, .00534, -.00062,
2866 + .00000, .00205, .00359,
2867 + .38413, .11746, .03017, .00510, -.00049,
2868 + .00000, .00200, .00340,
2869 + .36756, .11167, .02541, .00483, -.00038,
2870 + .00000, .00192, .00323 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .35375, .10687, .02194, .00464, -.00031,
2873 + .00000, .00187, .00303,
2874 + .34102, .10248, .01901, .00444, -.00024,
2875 + .00000, .00182, .00287,
2876 + .33130, .09916, .01691, .00429, -.00019,
2877 + .00000, .00179, .00275,
2878 + .31165, .09254, .01317, .00396, -.00012,
2879 + .00000, .00168, .00254,
2880 + .29590, .08731, .01091, .00372, -.00006,
2881 + -.00023, .00158, .00238,
2882 + .27942, .08187, .00830, .00343, -.00001,
2883 + -.00016, .00147, .00222,
2884 + .26337, .07663, .00616, .00317, .00003,
2885 + -.00011, .00139, .00204,
2886 + .24967, .07222, .00462, .00298, .00005,
2887 + -.00008, .00131, .00189 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .23670, .06806, .00343, .00276, .00008,
2890 + -.00004, .00121, .00176,
2891 + .22644, .06479, .00261, .00262, .00009,
2892 + -.00002, .00116, .00167,
2893 + .21470, .06110, .00182, .00245, .00011,
2894 + .00000, .00110, .00155,
2895 + .20492, .05804, .00127, .00231, .00011,
2896 + .00002, .00103, .00144,
2897 + .19634, .05539, .00086, .00217, .00012,
2898 + .00003, .00099, .00138,
2899 + .18608, .05223, .00047, .00203, .00013,
2900 + .00004, .00092, .00129,
2901 + .17698, .04943, .00025, .00188, .00013,
2902 + .00005, .00087, .00119,
2903 + .16889, .04697, .00004, .00178, .00013,
2904 + .00005, .00082, .00110 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .16119, .04464, -.00008, .00169, .00013,
2907 + .00006, .00077, .00104,
2908 + .15408, .04250, -.00019, .00159, .00013,
2909 + .00006, .00073, .00100,
2910 + .14767, .04055, -.00022, .00149, .00013,
2911 + .00007, .00070, .00093,
2912 + .14188, .03883, -.00026, .00141, .00013,
2913 + .00007, .00066, .00088,
2914 + .13629, .03719, -.00029, .00137, .00012,
2915 + .00007, .00064, .00083,
2916 + .13106, .03564, -.00030, .00130, .00013,
2917 + .00008, .00061, .00078,
2918 + .12631, .03425, -.00029, .00121, .00012,
2919 + .00008, .00057, .00075,
2920 + .12199, .03297, -.00027, .00115, .00012,
2921 + .00008, .00054, .00073 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11774, .03174, -.00024, .00112, .00012,
2924 + .00007, .00052, .00069,
2925 + .11375, .03058, -.00022, .00107, .00011,
2926 + .00007, .00049, .00067,
2927 + .11004, .02951, -.00020, .00103, .00011,
2928 + .00007, .00048, .00064,
2929 + .10667, .02855, -.00017, .00099, .00012,
2930 + .00008, .00046, .00062,
2931 + .10338, .02760, -.00015, .00096, .00011,
2932 + .00008, .00045, .00058 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .48531, .15041, .04154, .00540, .00000,
2935 + .00000, .00173, .00335,
2936 + .46078, .14160, .03314, .00518, .00000,
2937 + .00000, .00173, .00313,
2938 + .42732, .12956, .02498, .00473, -.00088,
2939 + .00000, .00169, .00293,
2940 + .40488, .12173, .01884, .00443, -.00072,
2941 + .00000, .00168, .00281,
2942 + .38306, .11417, .01365, .00406, -.00057,
2943 + .00000, .00162, .00268,
2944 + .36515, .10809, .00999, .00390, -.00045,
2945 + .00000, .00158, .00249,
2946 + .34890, .10265, .00715, .00372, -.00036,
2947 + .00000, .00153, .00231,
2948 + .33265, .09722, .00471, .00345, -.00029,
2949 + .00000, .00151, .00217 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .31915, .09278, .00294, .00326, -.00023,
2952 + .00000, .00144, .00210,
2953 + .30671, .08871, .00159, .00311, -.00018,
2954 + .00000, .00138, .00201,
2955 + .29721, .08563, .00067, .00299, -.00015,
2956 + .00000, .00132, .00195,
2957 + .27824, .07948, -.00091, .00277, -.00009,
2958 + .00000, .00125, .00179,
2959 + .26318, .07473, -.00169, .00256, -.00006,
2960 + -.00016, .00117, .00166,
2961 + .24745, .06979, -.00271, .00240, -.00002,
2962 + -.00012, .00111, .00151,
2963 + .23219, .06504, -.00338, .00223, .00001,
2964 + -.00008, .00105, .00136,
2965 + .21930, .06107, -.00379, .00203, .00003,
2966 + -.00005, .00098, .00129 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .20713, .05733, -.00399, .00188, .00004,
2969 + -.00003, .00091, .00118,
2970 + .19755, .05443, -.00409, .00177, .00005,
2971 + -.00002, .00086, .00112,
2972 + .18665, .05117, -.00410, .00164, .00007,
2973 + .00000, .00080, .00103,
2974 + .17760, .04846, -.00404, .00154, .00006,
2975 + .00000, .00076, .00096,
2976 + .16968, .04610, -.00395, .00146, .00007,
2977 + .00002, .00072, .00089,
2978 + .16022, .04331, -.00379, .00137, .00008,
2979 + .00003, .00066, .00083,
2980 + .15190, .04087, -.00362, .00127, .00008,
2981 + .00003, .00061, .00078,
2982 + .14456, .03873, -.00342, .00117, .00008,
2983 + .00004, .00058, .00073 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .13758, .03671, -.00324, .00110, .00008,
2986 + .00004, .00055, .00069,
2987 + .13112, .03485, -.00305, .00104, .00008,
2988 + .00004, .00053, .00064,
2989 + .12532, .03319, -.00286, .00099, .00008,
2990 + .00005, .00050, .00060,
2991 + .12013, .03171, -.00269, .00094, .00008,
2992 + .00005, .00047, .00057,
2993 + .11515, .03028, -.00251, .00086, .00008,
2994 + .00005, .00045, .00054,
2995 + .11047, .02895, -.00234, .00082, .00007,
2996 + .00004, .00043, .00052,
2997 + .10622, .02775, -.00219, .00078, .00008,
2998 + .00005, .00040, .00048,
2999 + .10235, .02668, -.00207, .00076, .00008,
3000 + .00005, .00039, .00046 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09859, .02563, -.00193, .00073, .00008,
3003 + .00005, .00036, .00045,
3004 + .09503, .02465, -.00180, .00071, .00007,
3005 + .00005, .00035, .00043,
3006 + .09179, .02375, -.00168, .00067, .00007,
3007 + .00005, .00034, .00040,
3008 + .08883, .02293, -.00158, .00065, .00007,
3009 + .00005, .00033, .00038,
3010 + .08592, .02213, -.00149, .00063, .00007,
3011 + .00005, .00032, .00036 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .44943, .13451, .00396, .00461, .00000,
3014 + .00000, .00098, .00203,
3015 + .42472, .12597, -.00024, .00429, .00000,
3016 + .00000, .00098, .00197,
3017 + .39113, .11457, -.00369, .00392, -.00064,
3018 + .00000, .00106, .00179,
3019 + .36902, .10719, -.00646, .00363, -.00052,
3020 + .00000, .00104, .00167,
3021 + .34739, .10012, -.00851, .00334, -.00040,
3022 + .00000, .00102, .00160,
3023 + .32986, .09443, -.00982, .00317, -.00033,
3024 + .00000, .00099, .00151,
3025 + .31406, .08935, -.01067, .00300, -.00026,
3026 + .00000, .00096, .00142,
3027 + .29830, .08432, -.01121, .00276, -.00021,
3028 + .00000, .00091, .00135 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .28529, .08019, -.01147, .00264, -.00017,
3031 + .00000, .00087, .00129,
3032 + .27336, .07646, -.01161, .00251, -.00013,
3033 + .00000, .00085, .00123,
3034 + .26434, .07367, -.01155, .00240, -.00011,
3035 + .00000, .00082, .00114,
3036 + .24626, .06812, -.01133, .00217, -.00007,
3037 + .00000, .00077, .00102,
3038 + .23207, .06377, -.01097, .00202, -.00004,
3039 + -.00011, .00073, .00096,
3040 + .21729, .05928, -.01068, .00183, -.00002,
3041 + -.00008, .00068, .00090,
3042 + .20302, .05504, -.01027, .00171, .00000,
3043 + -.00005, .00062, .00083,
3044 + .19103, .05151, -.00981, .00160, .00001,
3045 + -.00004, .00058, .00076 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .17978, .04818, -.00932, .00145, .00002,
3048 + -.00002, .00055, .00072,
3049 + .17094, .04561, -.00885, .00138, .00003,
3050 + -.00001, .00052, .00067,
3051 + .16093, .04271, -.00825, .00125, .00004,
3052 + .00000, .00048, .00062,
3053 + .15267, .04032, -.00777, .00116, .00004,
3054 + .00000, .00045, .00058,
3055 + .14548, .03827, -.00732, .00109, .00005,
3056 + .00001, .00043, .00054,
3057 + .13692, .03584, -.00674, .00100, .00005,
3058 + .00001, .00039, .00051,
3059 + .12939, .03371, -.00623, .00092, .00004,
3060 + .00001, .00037, .00047,
3061 + .12278, .03183, -.00580, .00087, .00005,
3062 + .00002, .00034, .00045 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .11650, .03008, -.00537, .00082, .00005,
3065 + .00002, .00032, .00041,
3066 + .11073, .02849, -.00497, .00078, .00005,
3067 + .00002, .00031, .00037,
3068 + .10554, .02707, -.00463, .00074, .00005,
3069 + .00002, .00029, .00036,
3070 + .10091, .02581, -.00430, .00069, .00005,
3071 + .00003, .00028, .00034,
3072 + .09651, .02459, -.00400, .00065, .00005,
3073 + .00003, .00025, .00032,
3074 + .09237, .02347, -.00372, .00062, .00005,
3075 + .00003, .00024, .00029,
3076 + .08860, .02245, -.00347, .00058, .00005,
3077 + .00003, .00023, .00029,
3078 + .08520, .02153, -.00325, .00056, .00005,
3079 + .00003, .00022, .00028 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .08193, .02065, -.00304, .00055, .00004,
3082 + .00003, .00022, .00026,
3083 + .07885, .01981, -.00285, .00053, .00004,
3084 + .00003, .00021, .00023,
3085 + .07600, .01906, -.00267, .00050, .00004,
3086 + .00003, .00020, .00022,
3087 + .07343, .01837, -.00250, .00047, .00004,
3088 + .00003, .00018, .00022,
3089 + .07091, .01770, -.00234, .00044, .00004,
3090 + .00003, .00017, .00021 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .41143, .11826, -.02522, .00331, .00000,
3093 + .00000, .00087, .00136,
3094 + .38688, .11021, -.02589, .00308, .00000,
3095 + .00000, .00087, .00133,
3096 + .35388, .09962, -.02497, .00270, -.00045,
3097 + .00000, .00079, .00122,
3098 + .33214, .09275, -.02501, .00255, -.00036,
3099 + .00000, .00079, .00115,
3100 + .31122, .08620, -.02456, .00239, -.00028,
3101 + .00000, .00077, .00107,
3102 + .29445, .08102, -.02389, .00222, -.00024,
3103 + .00000, .00073, .00097,
3104 + .27933, .07642, -.02314, .00208, -.00019,
3105 + .00000, .00070, .00091,
3106 + .26422, .07188, -.02221, .00195, -.00014,
3107 + .00000, .00064, .00086 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .25185, .06817, -.02134, .00185, -.00012,
3110 + .00000, .00062, .00080,
3111 + .24058, .06482, -.02044, .00176, -.00010,
3112 + .00000, .00062, .00075,
3113 + .23209, .06227, -.01975, .00169, -.00009,
3114 + .00000, .00059, .00073,
3115 + .21518, .05730, -.01828, .00152, -.00005,
3116 + .00000, .00054, .00070,
3117 + .20194, .05344, -.01698, .00140, -.00004,
3118 + -.00008, .00049, .00065,
3119 + .18829, .04950, -.01578, .00127, -.00002,
3120 + -.00006, .00047, .00060,
3121 + .17519, .04576, -.01456, .00115, -.00001,
3122 + -.00004, .00043, .00055,
3123 + .16416, .04264, -.01347, .00108, .00000,
3124 + -.00003, .00040, .00049 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .15389, .03975, -.01239, .00098, .00001,
3127 + -.00002, .00036, .00045,
3128 + .14590, .03753, -.01155, .00091, .00001,
3129 + -.00002, .00033, .00041,
3130 + .13684, .03502, -.01063, .00085, .00002,
3131 + .00000, .00032, .00039,
3132 + .12935, .03295, -.00982, .00080, .00002,
3133 + .00000, .00028, .00036,
3134 + .12292, .03120, -.00916, .00074, .00003,
3135 + .00001, .00027, .00033,
3136 + .11527, .02911, -.00834, .00067, .00003,
3137 + .00001, .00026, .00031,
3138 + .10856, .02729, -.00764, .00064, .00003,
3139 + .00001, .00025, .00029,
3140 + .10266, .02571, -.00701, .00062, .00002,
3141 + .00001, .00024, .00025 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .09716, .02423, -.00644, .00056, .00003,
3144 + .00002, .00021, .00024,
3145 + .09211, .02289, -.00595, .00051, .00003,
3146 + .00002, .00019, .00024,
3147 + .08756, .02168, -.00549, .00049, .00003,
3148 + .00002, .00018, .00022,
3149 + .08352, .02060, -.00510, .00046, .00003,
3150 + .00002, .00018, .00021,
3151 + .07967, .01959, -.00472, .00043, .00003,
3152 + .00002, .00017, .00019,
3153 + .07606, .01866, -.00436, .00041, .00003,
3154 + .00002, .00015, .00018,
3155 + .07280, .01780, -.00406, .00040, .00003,
3156 + .00002, .00014, .00017,
3157 + .06986, .01704, -.00380, .00038, .00002,
3158 + .00002, .00014, .00017 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06704, .01631, -.00353, .00035, .00002,
3161 + .00001, .00013, .00015,
3162 + .06439, .01562, -.00331, .00033, .00002,
3163 + .00001, .00013, .00014,
3164 + .06194, .01500, -.00310, .00032, .00003,
3165 + .00002, .00012, .00014,
3166 + .05972, .01443, -.00291, .00030, .00003,
3167 + .00002, .00012, .00013,
3168 + .05756, .01387, -.00272, .00029, .00003,
3169 + .00002, .00011, .00013 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .37233, .10269, -.04657, .00223, .00000,
3172 + .00000, .00071, .00099,
3173 + .34831, .09528, -.04422, .00214, .00000,
3174 + .00000, .00071, .00085,
3175 + .31635, .08550, -.04006, .00190, -.00031,
3176 + .00000, .00064, .00081,
3177 + .29554, .07930, -.03771, .00173, -.00025,
3178 + .00000, .00061, .00072,
3179 + .27557, .07339, -.03532, .00161, -.00020,
3180 + .00000, .00059, .00066,
3181 + .25967, .06868, -.03324, .00147, -.00016,
3182 + .00000, .00055, .00067,
3183 + .24539, .06452, -.03124, .00135, -.00013,
3184 + .00000, .00051, .00064,
3185 + .23121, .06046, -.02921, .00128, -.00011,
3186 + .00000, .00050, .00058 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .21973, .05716, -.02747, .00116, -.00009,
3189 + .00000, .00046, .00054,
3190 + .20927, .05419, -.02592, .00110, -.00006,
3191 + .00000, .00045, .00052,
3192 + .20134, .05196, -.02472, .00108, -.00006,
3193 + .00000, .00044, .00049,
3194 + .18570, .04759, -.02223, .00096, -.00004,
3195 + .00000, .00038, .00044,
3196 + .17355, .04421, -.02032, .00088, -.00003,
3197 + -.00006, .00036, .00041,
3198 + .16108, .04075, -.01852, .00082, -.00002,
3199 + -.00004, .00032, .00039,
3200 + .14920, .03750, -.01675, .00072, -.00001,
3201 + -.00003, .00030, .00036,
3202 + .13930, .03482, -.01528, .00066, .00000,
3203 + -.00002, .00028, .00033 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .13002, .03235, -.01390, .00062, .00000,
3206 + -.00002, .00027, .00029,
3207 + .12289, .03042, -.01287, .00058, .00001,
3208 + .00000, .00026, .00027,
3209 + .11485, .02827, -.01167, .00053, .00001,
3210 + .00000, .00023, .00024,
3211 + .10824, .02654, -.01071, .00047, .00001,
3212 + .00000, .00020, .00024,
3213 + .10251, .02503, -.00989, .00045, .00001,
3214 + .00000, .00019, .00023,
3215 + .09579, .02328, -.00893, .00042, .00002,
3216 + .00001, .00018, .00020,
3217 + .08992, .02176, -.00813, .00038, .00002,
3218 + .00001, .00017, .00019,
3219 + .08478, .02043, -.00743, .00034, .00002,
3220 + .00001, .00017, .00018 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07994, .01921, -.00679, .00034, .00002,
3223 + .00001, .00015, .00017,
3224 + .07553, .01809, -.00620, .00033, .00002,
3225 + .00001, .00012, .00014,
3226 + .07164, .01709, -.00570, .00030, .00001,
3227 + .00001, .00013, .00012,
3228 + .06815, .01620, -.00526, .00029, .00001,
3229 + .00001, .00011, .00011,
3230 + .06484, .01536, -.00489, .00027, .00001,
3231 + .00001, .00012, .00012,
3232 + .06176, .01459, -.00451, .00026, .00001,
3233 + .00001, .00010, .00012,
3234 + .05899, .01389, -.00419, .00024, .00002,
3235 + .00002, .00010, .00012,
3236 + .05650, .01327, -.00391, .00023, .00002,
3237 + .00002, .00009, .00010 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .05412, .01267, -.00364, .00020, .00002,
3240 + .00002, .00009, .00010,
3241 + .05187, .01212, -.00339, .00019, .00002,
3242 + .00002, .00008, .00009,
3243 + .04980, .01160, -.00316, .00018, .00002,
3244 + .00001, .00008, .00009,
3245 + .04792, .01114, -.00297, .00018, .00002,
3246 + .00001, .00008, .00008,
3247 + .04608, .01071, -.00279, .00018, .00002,
3248 + .00001, .00008, .00008 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .33352, .08858, -.06181, .00183, .00000,
3251 + .00000, .00034, .00051,
3252 + .31055, .08180, -.05709, .00160, .00000,
3253 + .00000, .00034, .00051,
3254 + .27989, .07292, -.05032, .00149, -.00021,
3255 + .00000, .00034, .00048,
3256 + .26029, .06729, -.04635, .00135, -.00017,
3257 + .00000, .00035, .00041,
3258 + .24159, .06201, -.04237, .00119, -.00013,
3259 + .00000, .00030, .00038,
3260 + .22665, .05783, -.03919, .00111, -.00011,
3261 + .00000, .00029, .00034,
3262 + .21337, .05413, -.03634, .00103, -.00009,
3263 + .00000, .00030, .00033,
3264 + .20029, .05050, -.03353, .00096, -.00007,
3265 + .00000, .00028, .00034 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .18964, .04757, -.03115, .00091, -.00006,
3268 + .00000, .00025, .00030,
3269 + .18004, .04496, -.02905, .00085, -.00004,
3270 + .00000, .00022, .00027,
3271 + .17283, .04301, -.02749, .00079, -.00004,
3272 + .00000, .00022, .00026,
3273 + .15861, .03920, -.02447, .00072, -.00003,
3274 + .00000, .00021, .00025,
3275 + .14763, .03626, -.02217, .00065, -.00002,
3276 + -.00004, .00021, .00023,
3277 + .13638, .03330, -.01990, .00060, -.00001,
3278 + -.00002, .00018, .00020,
3279 + .12573, .03051, -.01779, .00054, -.00001,
3280 + -.00002, .00015, .00019,
3281 + .11693, .02819, -.01608, .00048, .00000,
3282 + -.00001, .00014, .00018 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .10873, .02609, -.01447, .00043, .00000,
3285 + -.00001, .00013, .00016,
3286 + .10241, .02447, -.01329, .00040, .00000,
3287 + -.00001, .00012, .00014,
3288 + .09534, .02266, -.01199, .00038, .00001,
3289 + .00000, .00011, .00013,
3290 + .08956, .02120, -.01095, .00035, .00001,
3291 + .00000, .00010, .00013,
3292 + .08458, .01994, -.01006, .00032, .00001,
3293 + .00000, .00010, .00013,
3294 + .07871, .01848, -.00903, .00031, .00001,
3295 + .00000, .00009, .00012,
3296 + .07364, .01721, -.00816, .00028, .00001,
3297 + .00000, .00008, .00010,
3298 + .06920, .01612, -.00742, .00026, .00001,
3299 + .00000, .00008, .00009 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .06511, .01509, -.00675, .00023, .00001,
3302 + .00000, .00008, .00008,
3303 + .06137, .01416, -.00617, .00020, .00001,
3304 + .00000, .00008, .00008,
3305 + .05799, .01335, -.00565, .00021, .00001,
3306 + .00001, .00007, .00008,
3307 + .05501, .01263, -.00521, .00021, .00001,
3308 + .00001, .00007, .00007,
3309 + .05221, .01195, -.00479, .00019, .00001,
3310 + .00001, .00006, .00005,
3311 + .04961, .01132, -.00443, .00018, .00001,
3312 + .00001, .00006, .00006,
3313 + .04729, .01075, -.00411, .00017, .00001,
3314 + .00001, .00006, .00006,
3315 + .04519, .01026, -.00382, .00015, .00001,
3316 + .00001, .00004, .00006 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .04317, .00976, -.00354, .00014, .00001,
3319 + .00001, .00004, .00006,
3320 + .04128, .00932, -.00329, .00012, .00001,
3321 + .00001, .00004, .00006,
3322 + .03956, .00891, -.00309, .00013, .00001,
3323 + .00001, .00005, .00005,
3324 + .03800, .00854, -.00290, .00012, .00001,
3325 + .00001, .00005, .00005,
3326 + .03650, .00818, -.00271, .00012, .00001,
3327 + .00001, .00003, .00005 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .29446, .07476, -.07045, .00108, .00000,
3330 + .00000, .00035, .00038,
3331 + .27272, .06872, -.06403, .00095, .00000,
3332 + .00000, .00033, .00035,
3333 + .24413, .06087, -.05541, .00082, -.00013,
3334 + .00000, .00031, .00029,
3335 + .22584, .05593, -.05033, .00077, -.00011,
3336 + .00000, .00027, .00029,
3337 + .20852, .05124, -.04548, .00071, -.00009,
3338 + .00000, .00027, .00029,
3339 + .19480, .04759, -.04159, .00067, -.00007,
3340 + .00000, .00025, .00026,
3341 + .18266, .04439, -.03821, .00063, -.00005,
3342 + .00000, .00022, .00024,
3343 + .17077, .04127, -.03487, .00056, -.00004,
3344 + .00000, .00022, .00021 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .16110, .03878, -.03227, .00055, -.00004,
3347 + .00000, .00020, .00022,
3348 + .15243, .03653, -.02988, .00051, -.00003,
3349 + .00000, .00019, .00022,
3350 + .14600, .03484, -.02809, .00045, -.00003,
3351 + .00000, .00017, .00020,
3352 + .13327, .03157, -.02470, .00041, -.00002,
3353 + .00000, .00016, .00016,
3354 + .12346, .02911, -.02217, .00039, -.00001,
3355 + -.00002, .00015, .00013,
3356 + .11355, .02661, -.01975, .00034, -.00001,
3357 + -.00002, .00013, .00013,
3358 + .10420, .02426, -.01751, .00031, -.00001,
3359 + -.00002, .00012, .00012,
3360 + .09647, .02234, -.01569, .00029, .00000,
3361 + -.00001, .00011, .00011 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .08934, .02058, -.01407, .00025, .00000,
3364 + .00000, .00011, .00011,
3365 + .08386, .01925, -.01286, .00024, .00000,
3366 + .00000, .00010, .00008,
3367 + .07774, .01776, -.01150, .00022, .00000,
3368 + .00000, .00008, .00007,
3369 + .07276, .01655, -.01042, .00020, .00000,
3370 + .00000, .00007, .00006,
3371 + .06850, .01552, -.00954, .00019, .00000,
3372 + .00000, .00007, .00007,
3373 + .06351, .01433, -.00853, .00018, .00000,
3374 + .00000, .00006, .00007,
3375 + .05920, .01329, -.00768, .00016, .00001,
3376 + .00001, .00006, .00007,
3377 + .05546, .01240, -.00695, .00015, .00001,
3378 + .00001, .00006, .00006 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .05199, .01158, -.00631, .00014, .00001,
3381 + .00001, .00006, .00006,
3382 + .04882, .01084, -.00573, .00012, .00001,
3383 + .00001, .00005, .00006,
3384 + .04601, .01019, -.00526, .00011, .00001,
3385 + .00001, .00005, .00006,
3386 + .04355, .00960, -.00481, .00011, .00001,
3387 + .00001, .00005, .00005,
3388 + .04122, .00907, -.00441, .00010, .00001,
3389 + .00001, .00003, .00005,
3390 + .03906, .00856, -.00406, .00010, .00001,
3391 + .00001, .00003, .00003,
3392 + .03713, .00812, -.00375, .00008, .00001,
3393 + .00001, .00003, .00003,
3394 + .03540, .00772, -.00348, .00008, .00001,
3395 + .00001, .00003, .00002 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03374, .00734, -.00323, .00008, .00001,
3398 + .00001, .00003, .00002,
3399 + .03219, .00699, -.00300, .00008, .00001,
3400 + .00001, .00003, .00002,
3401 + .03078, .00667, -.00279, .00007, .00001,
3402 + .00001, .00002, .00002,
3403 + .02952, .00637, -.00260, .00006, .00001,
3404 + .00001, .00002, .00002,
3405 + .02828, .00609, -.00244, .00006, .00001,
3406 + .00001, .00002, .00002 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .21978, .05127, -.07353, .00045, .00000,
3409 + .00000, .00011, .00014,
3410 + .20129, .04663, -.06556, .00045, .00000,
3411 + .00000, .00012, .00012,
3412 + .17743, .04068, -.05540, .00037, -.00005,
3413 + .00000, .00012, .00014,
3414 + .16242, .03700, -.04931, .00036, -.00004,
3415 + .00000, .00011, .00011,
3416 + .14843, .03357, -.04368, .00033, -.00003,
3417 + .00000, .00009, .00009,
3418 + .13749, .03092, -.03936, .00028, -.00003,
3419 + .00000, .00007, .00009,
3420 + .12786, .02861, -.03563, .00024, -.00002,
3421 + .00000, .00007, .00007,
3422 + .11851, .02639, -.03212, .00020, -.00002,
3423 + .00000, .00007, .00009 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .11102, .02459, -.02934, .00019, -.00002,
3426 + .00000, .00007, .00007,
3427 + .10433, .02302, -.02692, .00019, -.00002,
3428 + .00000, .00007, .00007,
3429 + .09934, .02185, -.02514, .00018, -.00001,
3430 + .00000, .00007, .00007,
3431 + .08969, .01959, -.02174, .00016, -.00001,
3432 + .00000, .00005, .00005,
3433 + .08236, .01790, -.01930, .00014, -.00001,
3434 + -.00001, .00005, .00005,
3435 + .07500, .01620, -.01697, .00013, -.00001,
3436 + -.00001, .00005, .00005,
3437 + .06813, .01463, -.01481, .00011, -.00001,
3438 + -.00001, .00005, .00004,
3439 + .06252, .01336, -.01312, .00009, -.00001,
3440 + -.00001, .00004, .00004 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .05739, .01220, -.01162, .00009, .00000,
3443 + .00000, .00004, .00004,
3444 + .05349, .01132, -.01048, .00008, .00000,
3445 + .00000, .00002, .00002,
3446 + .04918, .01037, -.00929, .00006, .00000,
3447 + .00000, .00002, .00002,
3448 + .04569, .00959, -.00839, .00007, .00000,
3449 + .00000, .00002, .00004,
3450 + .04273, .00893, -.00762, .00007, .00000,
3451 + .00000, .00003, .00002,
3452 + .03929, .00818, -.00672, .00005, .00000,
3453 + .00000, .00002, .00002,
3454 + .03636, .00753, -.00602, .00005, .00000,
3455 + .00000, .00002, .00003,
3456 + .03383, .00699, -.00542, .00005, .00000,
3457 + .00000, .00002, .00003 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .03150, .00647, -.00489, .00004, .00000,
3460 + .00000, .00003, .00003,
3461 + .02940, .00603, -.00439, .00004, .00000,
3462 + .00000, .00001, .00001,
3463 + .02754, .00562, -.00398, .00002, .00000,
3464 + .00000, .00001, .00001,
3465 + .02592, .00528, -.00364, .00002, .00000,
3466 + .00000, .00001, .00001,
3467 + .02440, .00496, -.00334, .00002, .00000,
3468 + .00000, .00001, .00001,
3469 + .02300, .00466, -.00306, .00002, .00000,
3470 + .00000, .00001, .00001,
3471 + .02173, .00439, -.00281, .00002, .00000,
3472 + .00000, .00001, .00001,
3473 + .02062, .00415, -.00259, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01956, .00393, -.00239, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01857, .00372, -.00222, .00002, .00000,
3479 + .00000, .00001, .00001,
3480 + .01768, .00353, -.00206, .00003, .00000,
3481 + .00000, .00001, .00001,
3482 + .01689, .00337, -.00193, .00003, .00000,
3483 + .00000, .00001, .00001,
3484 + .01610, .00321, -.00180, .00003, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .15252, .03246, -.06344, .00017, .00000,
3488 + .00000, .00005, .00005,
3489 + .13812, .02917, -.05575, .00017, .00000,
3490 + .00000, .00005, .00005,
3491 + .11983, .02508, -.04617, .00014, -.00002,
3492 + .00000, .00003, .00003,
3493 + .10850, .02257, -.04054, .00011, -.00001,
3494 + .00000, .00003, .00003,
3495 + .09802, .02026, -.03543, .00009, -.00001,
3496 + .00000, .00003, .00003,
3497 + .08992, .01849, -.03156, .00007, -.00001,
3498 + .00000, .00003, .00003,
3499 + .08287, .01696, -.02832, .00008, -.00001,
3500 + .00000, .00003, .00003,
3501 + .07609, .01549, -.02524, .00010, -.00001,
3502 + .00000, .00001, .00001 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .07072, .01435, -.02284, .00008, -.00001,
3505 + .00000, .00001, .00001,
3506 + .06598, .01332, -.02075, .00006, -.00001,
3507 + .00000, .00001, .00001,
3508 + .06249, .01259, -.01928, .00006, .00000,
3509 + .00000, .00001, .00001,
3510 + .05575, .01115, -.01647, .00004, .00000,
3511 + .00000, .00001, .00001,
3512 + .05069, .01009, -.01448, .00004, .00000,
3513 + .00000, .00001, .00001,
3514 + .04567, .00904, -.01255, .00002, .00000,
3515 + .00000, .00002, .00002,
3516 + .04105, .00807, -.01084, .00002, .00000,
3517 + .00000, .00002, .00002,
3518 + .03728, .00730, -.00951, .00002, .00000,
3519 + .00000, .00002, .00002 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .03390, .00660, -.00833, .00002, .00000,
3522 + .00000, .00001, .00001,
3523 + .03137, .00608, -.00749, .00002, .00000,
3524 + .00000, .00001, .00001,
3525 + .02858, .00551, -.00658, .00002, .00000,
3526 + .00000, .00001, .00001,
3527 + .02634, .00506, -.00588, .00001, .00000,
3528 + .00000, .00001, .00001,
3529 + .02446, .00468, -.00530, .00001, .00000,
3530 + .00000, .00000, .00001,
3531 + .02230, .00426, -.00466, .00001, .00000,
3532 + .00000, .00001, .00001,
3533 + .02047, .00389, -.00413, .00001, .00000,
3534 + .00000, .00001, .00000,
3535 + .01889, .00358, -.00368, .00001, .00000,
3536 + .00000, .00001, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01745, .00330, -.00328, .00001, .00000,
3539 + .00000, .00000, .00000,
3540 + .01617, .00304, -.00296, .00001, .00000,
3541 + .00000, .00000, .00001,
3542 + .01505, .00282, -.00265, .00001, .00000,
3543 + .00000, .00000, .00000,
3544 + .01408, .00264, -.00242, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01316, .00246, -.00220, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01233, .00229, -.00199, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .01159, .00215, -.00183, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .01094, .00202, -.00169, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .01032, .00191, -.00154, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00975, .00180, -.00142, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00925, .00169, -.00131, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00878, .00161, -.00122, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00834, .00152, -.00113, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .09638, .01849, -.04698, .00010, .00000,
3567 + .00000, -.00001, -.00001,
3568 + .08620, .01645, -.04074, .00007, .00000,
3569 + .00000, -.00001, -.00001,
3570 + .07347, .01389, -.03321, .00007, .00000,
3571 + .00000, .00000, .00000,
3572 + .06572, .01236, -.02878, .00004, .00000,
3573 + .00000, .00000, .00000,
3574 + .05861, .01097, -.02484, .00004, .00000,
3575 + .00000, .00000, .00000,
3576 + .05321, .00991, -.02191, .00004, .00000,
3577 + .00000, .00000, .00000,
3578 + .04858, .00900, -.01944, .00002, .00000,
3579 + .00000, .00000, .00000,
3580 + .04416, .00813, -.01716, .00002, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .04069, .00748, -.01542, .00002, .00000,
3584 + .00000, .00000, .00000,
3585 + .03764, .00688, -.01391, .00002, .00000,
3586 + .00000, .00000, .00000,
3587 + .03541, .00644, -.01282, .00002, .00000,
3588 + .00000, .00000, .00000,
3589 + .03115, .00565, -.01082, .00002, .00000,
3590 + .00000, .00000, .00000,
3591 + .02802, .00505, -.00941, .00002, .00000,
3592 + .00000, .00000, .00000,
3593 + .02494, .00448, -.00808, .00002, .00000,
3594 + .00000, .00000, .00000,
3595 + .02214, .00396, -.00690, .00002, .00000,
3596 + .00000, .00000, .00000,
3597 + .01992, .00353, -.00599, .00002, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01792, .00317, -.00520, .00002, .00000,
3601 + .00000, .00000, .00000,
3602 + .01643, .00290, -.00464, .00002, .00000,
3603 + .00000, .00000, .00000,
3604 + .01481, .00260, -.00403, .00002, .00000,
3605 + .00000, .00000, .00000,
3606 + .01355, .00235, -.00356, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .01247, .00217, -.00319, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .01125, .00195, -.00277, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .01022, .00176, -.00243, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00936, .00161, -.00216, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00858, .00147, -.00192, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00789, .00134, -.00170, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00728, .00125, -.00153, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00676, .00115, -.00138, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00627, .00106, -.00124, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00584, .00099, -.00112, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00546, .00092, -.00103, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00513, .00086, -.00094, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00481, .00081, -.00086, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00451, .00075, -.00078, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00426, .00071, -.00072, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00402, .00066, -.00066, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00380, .00063, -.00062, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .05329, .00897, -.02947, .00000, .00000,
3646 + .00000, .00000, .00003,
3647 + .04699, .00786, -.02521, .00000, .00000,
3648 + .00000, .00000, .00000,
3649 + .03924, .00656, -.02022, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .03459, .00576, -.01730, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .03045, .00504, -.01477, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .02730, .00451, -.01289, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .02463, .00403, -.01131, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .02212, .00362, -.00988, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .02017, .00328, -.00879, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01848, .00300, -.00786, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01727, .00280, -.00722, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01494, .00242, -.00600, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .01327, .00214, -.00516, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .01164, .00186, -.00436, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .01019, .00164, -.00369, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00905, .00142, -.00315, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00804, .00128, -.00272, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00729, .00114, -.00238, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00650, .00102, -.00206, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00587, .00092, -.00180, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00537, .00082, -.00159, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00478, .00074, -.00138, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00430, .00066, -.00119, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00389, .00060, -.00104, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00353, .00054, -.00092, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00322, .00049, -.00081, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00293, .00046, -.00072, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00271, .00041, -.00064, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00249, .00038, -.00057, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00230, .00034, -.00051, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00214, .00033, -.00047, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00199, .00030, -.00043, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00185, .00027, -.00038, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00173, .00026, -.00035, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00161, .00024, -.00032, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00153, .00023, -.00029, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00143, .00020, -.00027, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00752, .00095, -.00524, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00636, .00080, -.00434, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00500, .00061, -.00327, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00423, .00051, -.00271, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00355, .00043, -.00221, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00309, .00037, -.00188, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00269, .00034, -.00161, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00233, .00028, -.00136, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00206, .00026, -.00117, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00184, .00023, -.00103, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00167, .00020, -.00092, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00139, .00016, -.00073, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00119, .00013, -.00061, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00100, .00011, -.00050, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00084, .00009, -.00040, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00072, .00009, -.00034, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00062, .00007, -.00028, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00054, .00007, -.00024, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00047, .00005, -.00020, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00041, .00005, -.00017, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00036, .00005, -.00015, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00031, .00003, -.00012, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00027, .00003, -.00010, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00024, .00003, -.00009, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00020, .00003, -.00008, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00019, .00003, -.00007, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00017, .00001, -.00006, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00016, .00001, -.00005, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00014, .00001, -.00004, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00012, .00001, -.00004, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00011, .00001, -.00003, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00010, .00001, -.00003, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00009, .00001, -.00003, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00008, .00001, -.00002, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00008, .00001, -.00002, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00007, .00001, -.00002, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00007, .00001, -.00002, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3822 if(init.ne.0) goto 10
3823 C open(unit=1,file='cor07dis.dat',status='old')
3826 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3835 if(i.eq.5.or.i.eq.7) goto 31
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3867 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob