]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_99a2.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Using AliLog (F.Carminati)
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_99a2.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_99a2(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
8#include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00497, .00272, 1.10631, .87038, .00000,
12 + .00000, .46509, .88262,
13 + .00514, .00279, 2.37972, .90598, .00000,
14 + .00000, .50585, .91833,
15 + .00539, .00289, 4.88777, .98332, .00000,
16 + .00000, .59051, .99581,
17 + .00558, .00296, 7.23091, 1.05778, .04540,
18 + .00000, .67007, 1.07035,
19 + .00577, .00304, 10.05866, 1.15386, .15609,
20 + .00000, .77130, 1.16651,
21 + .00594, .00311, 12.97519, 1.25282, .26204,
22 + .00000, .87457, 1.26552,
23 + .00610, .00318, 16.24774, 1.36032, .37892,
24 + .00000, .98611, 1.37307,
25 + .00628, .00326, 20.26178, 1.48888, .52058,
26 + .00000, 1.11885, 1.50168 /
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 + .00643, .00332, 24.17125, 1.61488, .65315,
29 + .00000, 1.24839, 1.62770,
30 + .00657, .00339, 28.36697, 1.74862, .79427,
31 + .00000, 1.38549, 1.76147,
32 + .00669, .00344, 32.04142, 1.86307, .91742,
33 + .00000, 1.50254, 1.87594,
34 + .00694, .00355, 40.54470, 2.13544, 1.20427,
35 + .02263, 1.78032, 2.14834,
36 + .00715, .00365, 48.54019, 2.39901, 1.47939,
37 + .34594, 2.04838, 2.41192,
38 + .00740, .00376, 58.63090, 2.72890, 1.82403,
39 + .74388, 2.38316, 2.74182,
40 + .00765, .00388, 70.50028, 3.11216, 2.22358,
41 + 1.16181, 2.77136, 3.12508,
42 + .00788, .00399, 82.49915, 3.49661, 2.62372,
43 + 1.58056, 3.16017, 3.50952 /
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 + .00812, .00410, 95.85857, 3.92237, 3.06660,
46 + 2.04215, 3.59020, 3.93527,
47 + .00832, .00419, 107.87370, 4.30518, 3.46285,
48 + 2.45047, 3.97648, 4.31806,
49 + .00856, .00431, 123.58195, 4.80613, 3.97962,
50 + 2.98090, 4.48153, 4.81898,
51 + .00878, .00441, 138.62471, 5.28496, 4.47423,
52 + 3.49092, 4.96391, 5.29779,
53 + .00898, .00451, 153.38724, 5.75471, 4.95960,
54 + 3.99172, 5.43685, 5.76751,
55 + .00924, .00464, 173.23834, 6.39110, 5.61307,
56 + 4.65950, 6.07719, 6.40386,
57 + .00948, .00475, 193.26999, 7.03451, 6.27423,
58 + 5.33697, 6.72421, 7.04722,
59 + .00971, .00487, 213.33212, 7.67951, 6.93817,
60 + 6.01964, 7.37253, 7.69219 /
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 + .00994, .00498, 234.26096, 8.36018, 7.63416,
63 + 6.72821, 8.05644, 8.37281,
64 + .01017, .00509, 255.95996, 9.06742, 8.35872,
65 + 7.46882, 8.76679, 9.08000,
66 + .01039, .00520, 277.54135, 9.77425, 9.08257,
67 + 8.20862, 9.47651, 9.78678,
68 + .01059, .00531, 298.60437, 10.47053, 9.79344,
69 + 8.93230, 10.17546, 10.48302,
70 + .01080, .00541, 320.86453, 11.20738, 10.54747,
71 + 9.70291, 10.91495, 11.21983,
72 + .01101, .00552, 343.29434, 11.95900, 11.31324,
73 + 10.48097, 11.66911, 11.97139,
74 + .01121, .00562, 365.69553, 12.70998, 12.08058,
75 + 11.26423, 12.42247, 12.72233,
76 + .01140, .00571, 387.25101, 13.44168, 12.82522,
77 + 12.02022, 13.15639, 13.45398 /
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 + .01159, .00581, 409.92413, 14.21256, 13.61129,
80 + 12.82078, 13.92947, 14.22482,
81 + .01179, .00591, 432.78207, 14.99709, 14.40965,
82 + 13.63191, 14.71615, 15.00930,
83 + .01197, .00600, 455.25241, 15.77249, 15.19865,
84 + 14.43369, 15.49356, 15.78465,
85 + .01215, .00609, 477.23602, 16.53419, 15.97423,
86 + 15.22276, 16.25714, 16.54631,
87 + .01233, .00618, 499.70901, 17.32157, 16.77381,
88 + 16.03338, 17.04641, 17.33365 /
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 + .00679, .00363, 1.03840, .74150, .00000,
91 + .00000, .39551, .74868,
92 + .00703, .00373, 2.18801, .77444, .00000,
93 + .00000, .43249, .78168,
94 + .00738, .00388, 4.40202, .84285, .00000,
95 + .00000, .50662, .85016,
96 + .00763, .00399, 6.42818, .90705, .03865,
97 + .00000, .57481, .91441,
98 + .00790, .00411, 8.83149, .98849, .13239,
99 + .00000, .66025, .99590,
100 + .00813, .00421, 11.27380, 1.07125, .22097,
101 + .00000, .74637, 1.07868,
102 + .00835, .00431, 13.98081, 1.16037, .31771,
103 + .00000, .83864, 1.16784,
104 + .00859, .00442, 17.26159, 1.26606, .43392,
105 + .00000, .94758, 1.27355 /
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 + .00880, .00451, 20.42008, 1.36873, .54167,
108 + .00000, 1.05301, 1.37624,
109 + .00900, .00461, 23.77684, 1.47695, .65554,
110 + .00000, 1.16383, 1.48448,
111 + .00916, .00468, 26.69324, 1.56908, .75433,
112 + .00000, 1.25799, 1.57662,
113 + .00950, .00484, 33.36218, 1.78647, .98241,
114 + .01848, 1.47957, 1.79403,
115 + .00980, .00498, 39.54324, 1.99484, 1.19899,
116 + .27243, 1.69142, 2.00241,
117 + .01013, .00514, 47.24720, 2.25330, 1.46778,
118 + .58306, 1.95368, 2.26088,
119 + .01048, .00531, 56.19357, 2.55074, 1.77638,
120 + .90547, 2.25494, 2.55832,
121 + .01080, .00546, 65.12936, 2.84644, 2.08264,
122 + 1.22552, 2.55401, 2.85403 /
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 + .01112, .00562, 74.96897, 3.17120, 2.41878,
125 + 1.57525, 2.88209, 3.17878,
126 + .01139, .00576, 83.73049, 3.46099, 2.71721,
127 + 1.88213, 3.17455, 3.46856,
128 + .01172, .00592, 95.07364, 3.83736, 3.10348,
129 + 2.27773, 3.55410, 3.84492,
130 + .01201, .00607, 105.83356, 4.19448, 3.47052,
131 + 2.65536, 3.91396, 4.20204,
132 + .01229, .00620, 116.30534, 4.54257, 3.82840,
133 + 3.02377, 4.26451, 4.55011,
134 + .01263, .00637, 130.25548, 5.01068, 4.30667,
135 + 3.51125, 4.73568, 5.01821,
136 + .01296, .00654, 144.20216, 5.48048, 4.78709,
137 + 4.00228, 5.20827, 5.48799,
138 + .01327, .00670, 158.05371, 5.94832, 5.26642,
139 + 4.49395, 5.67868, 5.95581 /
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 + .01358, .00685, 172.37700, 6.43861, 5.76536,
142 + 5.00051, 6.17148, 6.44608,
143 + .01389, .00701, 187.11490, 6.94493, 6.28170,
144 + 5.52694, 6.68021, 6.95238,
145 + .01419, .00716, 201.66525, 7.44797, 6.79457,
146 + 6.04976, 7.18547, 7.45540,
147 + .01447, .00730, 215.76253, 7.94061, 7.29530,
148 + 6.55814, 7.68019, 7.94803,
149 + .01475, .00745, 230.57080, 8.45936, 7.82392,
150 + 7.09704, 8.20098, 8.46676,
151 + .01503, .00759, 245.38493, 8.98550, 8.35766,
152 + 7.63787, 8.72909, 8.99287,
153 + .01529, .00773, 260.10025, 9.50881, 8.89024,
154 + 8.18017, 9.25424, 9.51616,
155 + .01555, .00786, 274.16693, 10.01606, 9.40433,
156 + 8.70068, 9.76321, 10.02339 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01581, .00799, 288.89059, 10.54827, 9.94492,
159 + 9.24987, 10.29713, 10.55558,
160 + .01606, .00812, 303.64664, 11.08735, 10.49137,
161 + 9.80362, 10.83786, 11.09464,
162 + .01631, .00825, 318.07877, 11.61793, 11.02923,
163 + 10.34880, 11.37001, 11.62520,
164 + .01654, .00837, 332.13293, 12.13714, 11.55598,
165 + 10.88343, 11.89068, 12.14439,
166 + .01678, .00850, 346.42035, 12.67153, 12.09662,
167 + 11.43012, 12.42653, 12.67876 /
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 + .00928, .00483, .97583, .63144, .00000,
170 + .00000, .33643, .63503,
171 + .00961, .00498, 2.01314, .66171, .00000,
172 + .00000, .36986, .66533,
173 + .01009, .00520, 3.96590, .72210, .00000,
174 + .00000, .43471, .72575,
175 + .01044, .00537, 5.71569, .77743, .03290,
176 + .00000, .49315, .78111,
177 + .01081, .00554, 7.75479, .84641, .11226,
178 + .00000, .56524, .85011,
179 + .01113, .00569, 9.79576, .91556, .18627,
180 + .00000, .63700, .91927,
181 + .01144, .00584, 12.02979, .98935, .26630,
182 + .00000, .71323, .99308,
183 + .01177, .00600, 14.70443, 1.07611, .36156,
184 + .00000, .80251, 1.07985 /
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 + .01205, .00614, 17.24896, 1.15960, .44906,
187 + .00000, .88813, 1.16335,
188 + .01233, .00627, 19.92633, 1.24698, .54084,
189 + .00000, .97752, 1.25074,
190 + .01255, .00638, 22.23370, 1.32097, .62000,
191 + .00000, 1.05308, 1.32473,
192 + .01301, .00661, 27.44574, 1.49400, .80111,
193 + .01508, 1.22935, 1.49778,
194 + .01342, .00681, 32.20534, 1.65822, .97134,
195 + .21443, 1.39625, 1.66201,
196 + .01387, .00704, 38.06226, 1.86005, 1.18062,
197 + .45677, 1.60100, 1.86384,
198 + .01435, .00727, 44.77505, 2.09006, 1.41851,
199 + .70533, 1.83395, 2.09385,
200 + .01478, .00749, 51.39793, 2.31663, 1.65241,
201 + .94973, 2.06311, 2.32043 /
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 + .01523, .00772, 58.60865, 2.56335, 1.90693,
204 + 1.21445, 2.31238, 2.56716,
205 + .01559, .00790, 64.96388, 2.78178, 2.13113,
206 + 1.44482, 2.53287, 2.78559,
207 + .01604, .00813, 73.10967, 3.06331, 2.41907,
208 + 1.73946, 2.81684, 3.06712,
209 + .01644, .00834, 80.76193, 3.32844, 2.69065,
210 + 2.01864, 3.08407, 3.33225,
211 + .01681, .00853, 88.14594, 3.58515, 2.95372,
212 + 2.28921, 3.34267, 3.58896,
213 + .01728, .00877, 97.88839, 3.92780, 3.30263,
214 + 2.64441, 3.68766, 3.93161,
215 + .01773, .00900, 107.53593, 4.26911, 3.65052,
216 + 2.99958, 4.03112, 4.27292,
217 + .01815, .00921, 117.03607, 4.60670, 3.99535,
218 + 3.35291, 4.37068, 4.61051 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01857, .00943, 126.77041, 4.95798, 4.35166,
221 + 3.71416, 4.72387, 4.96178,
222 + .01898, .00965, 136.70889, 5.31848, 4.71820,
223 + 4.08738, 5.08622, 5.32229,
224 + .01938, .00985, 146.44682, 5.67449, 5.08011,
225 + 4.45585, 5.44394, 5.67829,
226 + .01975, .01005, 155.81017, 6.02106, 5.43132,
227 + 4.81193, 5.79209, 6.02486,
228 + .02013, .01025, 165.58516, 6.38415, 5.80031,
229 + 5.18765, 6.15675, 6.38794,
230 + .02051, .01045, 175.29036, 6.75026, 6.17065,
231 + 5.56235, 6.52437, 6.75405,
232 + .02086, .01063, 184.87825, 7.11274, 6.53860,
233 + 5.93657, 6.88826, 7.11653,
234 + .02120, .01081, 193.97990, 7.46222, 6.89181,
235 + 6.29367, 7.23906, 7.46600 /
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 + .02155, .01099, 203.45938, 7.82736, 7.26179,
238 + 6.66905, 7.60551, 7.83114,
239 + .02189, .01118, 212.90094, 8.19543, 7.63394,
240 + 7.04566, 7.97485, 8.19921,
241 + .02222, .01135, 222.08696, 8.55615, 7.99872,
242 + 7.41491, 8.33678, 8.55993,
243 + .02253, .01151, 230.98996, 8.90777, 8.35462,
244 + 7.77569, 8.68952, 8.91155,
245 + .02285, .01168, 239.98708, 9.26804, 8.71821,
246 + 8.14282, 9.05091, 9.27181 /
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 + .01114, .00572, .94195, .57468, .00000,
249 + .00000, .30613, .57676,
250 + .01154, .00591, 1.91852, .60339, .00000,
251 + .00000, .33758, .60549,
252 + .01212, .00619, 3.73217, .65948, .00000,
253 + .00000, .39753, .66161,
254 + .01255, .00639, 5.33699, .71018, .02993,
255 + .00000, .45091, .71232,
256 + .01299, .00661, 7.18746, .77275, .10190,
257 + .00000, .51616, .77490,
258 + .01338, .00680, 9.02291, .83496, .16851,
259 + .00000, .58063, .83712,
260 + .01375, .00698, 11.01702, .90099, .24011,
261 + .00000, .64876, .90316,
262 + .01414, .00718, 13.38707, .97822, .32487,
263 + .00000, .72815, .98040 /
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 + .01449, .00735, 15.62585, 1.05212, .40228,
266 + .00000, .80389, 1.05431,
267 + .01482, .00752, 17.96751, 1.12913, .48313,
268 + .00000, .88262, 1.13132,
269 + .01508, .00765, 19.97586, 1.19412, .55262,
270 + .00000, .94896, 1.19631,
271 + .01565, .00793, 24.47928, 1.34530, .71075,
272 + .01338, 1.10293, 1.34751,
273 + .01613, .00818, 28.55520, 1.48793, .85848,
274 + .18634, 1.24786, 1.49015,
275 + .01668, .00846, 33.53263, 1.66225, 1.03907,
276 + .39583, 1.42468, 1.66448,
277 + .01725, .00875, 39.19286, 1.85975, 1.24314,
278 + .60918, 1.62470, 1.86198,
279 + .01777, .00902, 44.73631, 2.05323, 1.44267,
280 + .81779, 1.82040, 2.05547 /
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 + .01830, .00929, 50.73115, 2.26285, 1.65868,
283 + 1.04255, 2.03220, 2.26510,
284 + .01874, .00952, 55.98237, 2.44756, 1.84806,
285 + 1.23720, 2.21868, 2.44982,
286 + .01928, .00980, 62.67283, 2.68454, 2.09015,
287 + 1.48497, 2.45774, 2.68680,
288 + .01976, .01004, 68.92151, 2.90671, 2.31749,
289 + 1.71871, 2.68171, 2.90898,
290 + .02020, .01027, 74.92051, 3.12098, 2.53684,
291 + 1.94435, 2.89760, 3.12326,
292 + .02076, .01057, 82.78966, 3.40570, 2.82642,
293 + 2.23916, 3.18431, 3.40798,
294 + .02129, .01085, 90.53770, 3.68804, 3.11390,
295 + 2.53267, 3.46848, 3.69033,
296 + .02179, .01111, 98.12856, 3.96617, 3.39773,
297 + 2.82351, 3.74830, 3.96847 /
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 + .02229, .01137, 105.86349, 4.25434, 3.68972,
300 + 3.11950, 4.03812, 4.25665,
301 + .02278, .01163, 113.72402, 4.54899, 3.98901,
302 + 3.42424, 4.33434, 4.55130,
303 + .02326, .01188, 121.39097, 4.83891, 4.28347,
304 + 3.72403, 4.62572, 4.84123,
305 + .02370, .01212, 128.72888, 5.12015, 4.56818,
306 + 4.01265, 4.90831, 5.12247,
307 + .02415, .01236, 136.36130, 5.41390, 4.86647,
308 + 4.31636, 5.20340, 5.41623,
309 + .02459, .01259, 143.90433, 5.70905, 5.16474,
310 + 4.61809, 5.49983, 5.71138,
311 + .02502, .01282, 151.33212, 6.00048, 5.46036,
312 + 4.91872, 5.79247, 6.00282,
313 + .02542, .01303, 158.35289, 6.28055, 5.74317,
314 + 5.20459, 6.07367, 6.28290 /
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 + .02583, .01325, 165.64360, 6.57246, 6.03872,
317 + 5.50443, 6.36670, 6.57481,
318 + .02624, .01347, 172.87773, 6.86584, 6.33513,
319 + 5.80434, 6.66117, 6.86820,
320 + .02663, .01367, 179.89362, 7.15264, 6.62494,
321 + 6.09766, 6.94900, 7.15501,
322 + .02700, .01387, 186.67384, 7.43155, 6.90706,
323 + 6.38364, 7.22887, 7.43393,
324 + .02737, .01407, 193.50090, 7.71654, 7.19447,
325 + 6.67377, 7.51482, 7.71893 /
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 + .01268, .00645, .91927, .53747, .00000,
328 + .00000, .28635, .53873,
329 + .01314, .00667, 1.85483, .56509, .00000,
330 + .00000, .31644, .56637,
331 + .01381, .00700, 3.57545, .61830, .00000,
332 + .00000, .37313, .61958,
333 + .01429, .00724, 5.08420, .66593, .02798,
334 + .00000, .42318, .66723,
335 + .01480, .00749, 6.81067, .72430, .09512,
336 + .00000, .48397, .72561,
337 + .01524, .00771, 8.51197, .78200, .15692,
338 + .00000, .54370, .78331,
339 + .01567, .00793, 10.35041, .84300, .22305,
340 + .00000, .60658, .84432,
341 + .01612, .00815, 12.52400, .91407, .30105,
342 + .00000, .67961, .91540 /
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 + .01651, .00835, 14.56671, .98181, .37200,
345 + .00000, .74899, .98314,
346 + .01689, .00855, 16.69413, 1.05216, .44587,
347 + .00000, .82090, 1.05350,
348 + .01719, .00870, 18.51241, 1.11140, .50920,
349 + .00000, .88135, 1.11274,
350 + .01783, .00903, 22.56811, 1.24866, .65274,
351 + .01229, 1.02111, 1.25002,
352 + .01839, .00932, 26.21512, 1.37760, .78626,
353 + .16862, 1.15212, 1.37897,
354 + .01901, .00964, 30.64430, 1.53457, .94883,
355 + .35748, 1.31133, 1.53595,
356 + .01966, .00997, 35.65268, 1.71164, 1.13174,
357 + .54886, 1.49067, 1.71304,
358 + .02025, .01028, 40.53175, 1.88443, 1.30987,
359 + .73523, 1.66544, 1.88583 /
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 + .02085, .01060, 45.78246, 2.07094, 1.50200,
362 + .93527, 1.85391, 2.07236,
363 + .02135, .01086, 50.36147, 2.23474, 1.66987,
364 + 1.10790, 2.01928, 2.23616,
365 + .02196, .01118, 56.17024, 2.44418, 1.88376,
366 + 1.32690, 2.23059, 2.44562,
367 + .02251, .01147, 61.57271, 2.63991, 2.08396,
368 + 1.53284, 2.42793, 2.64136,
369 + .02301, .01173, 66.74027, 2.82814, 2.27659,
370 + 1.73108, 2.61761, 2.82960,
371 + .02364, .01207, 73.49034, 3.07744, 2.53005,
372 + 1.98921, 2.86870, 3.07892,
373 + .02424, .01238, 80.10910, 3.32386, 2.78088,
374 + 2.24538, 3.11677, 3.32536,
375 + .02481, .01269, 86.56970, 3.56592, 3.02782,
376 + 2.49853, 3.36032, 3.56742 /
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 + .02538, .01299, 93.12634, 3.81593, 3.28105,
379 + 2.75529, 3.61181, 3.81745,
380 + .02594, .01329, 99.76711, 4.07088, 3.53994,
381 + 3.01897, 3.86817, 4.07241,
382 + .02647, .01357, 106.22301, 4.32109, 3.79399,
383 + 3.27771, 4.11969, 4.32264,
384 + .02697, .01384, 112.38109, 4.56317, 4.03900,
385 + 3.52613, 4.36298, 4.56473,
386 + .02748, .01411, 118.76931, 4.81549, 4.29516,
387 + 3.78703, 4.61649, 4.81706,
388 + .02798, .01438, 125.06142, 5.06836, 4.55062,
389 + 4.04551, 4.87051, 5.06994,
390 + .02846, .01464, 131.24292, 5.31755, 4.80335,
391 + 4.30260, 5.12079, 5.31915,
392 + .02892, .01488, 137.06738, 5.55648, 5.04455,
393 + 4.54644, 5.36072, 5.55809 /
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 + .02938, .01513, 143.10297, 5.80506, 5.29620,
396 + 4.80181, 5.61030, 5.80668,
397 + .02983, .01537, 149.07483, 6.05437, 5.54802,
398 + 5.05666, 5.86059, 6.05600,
399 + .03027, .01561, 154.85329, 6.29764, 5.79380,
400 + 5.30547, 6.10478, 6.29929,
401 + .03069, .01583, 160.42607, 6.53382, 6.03268,
402 + 5.54767, 6.34182, 6.53548,
403 + .03111, .01606, 166.02213, 6.77467, 6.27552,
404 + 5.79286, 6.58353, 6.77634 /
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 + .01403, .00708, .90255, .51026, .00000,
407 + .00000, .27193, .51101,
408 + .01453, .00733, 1.80746, .53705, .00000,
409 + .00000, .30100, .53781,
410 + .01527, .00770, 3.45897, .58810, .00000,
411 + .00000, .35527, .58887,
412 + .01581, .00797, 4.89683, .63347, .02655,
413 + .00000, .40288, .63425,
414 + .01638, .00826, 6.53235, .68876, .09016,
415 + .00000, .46040, .68955,
416 + .01687, .00851, 8.13576, .74318, .14846,
417 + .00000, .51669, .74397,
418 + .01734, .00875, 9.86111, .80052, .21063,
419 + .00000, .57577, .80133,
420 + .01784, .00901, 11.89261, .86713, .28374,
421 + .00000, .64419, .86795 /
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 + .01827, .00923, 13.79410, .93042, .35004,
424 + .00000, .70899, .93124,
425 + .01869, .00945, 15.76777, .99598, .41888,
426 + .00000, .77598, .99681,
427 + .01903, .00962, 17.45008, 1.05108, .47779,
428 + .00000, .83220, 1.05192,
429 + .01974, .00999, 21.18684, 1.17838, .61092,
430 + .01151, .96180, 1.17923,
431 + .02035, .01031, 24.52995, 1.29755, .73432,
432 + .15601, 1.08287, 1.29841,
433 + .02104, .01067, 28.57247, 1.44215, .88409,
434 + .33024, 1.22954, 1.44303,
435 + .02176, .01104, 33.12336, 1.60475, 1.05204,
436 + .50610, 1.39422, 1.60564,
437 + .02241, .01139, 37.53828, 1.76291, 1.21509,
438 + .67681, 1.55421, 1.76381 /
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 + .02308, .01174, 42.27129, 1.93313, 1.39045,
441 + .85951, 1.72623, 1.93406,
442 + .02363, .01203, 46.38445, 2.08223, 1.54325,
443 + 1.01673, 1.87678, 2.08317,
444 + .02430, .01239, 51.58443, 2.27239, 1.73742,
445 + 1.21566, 2.06865, 2.27334,
446 + .02490, .01271, 56.40479, 2.44964, 1.91872,
447 + 1.40226, 2.24739, 2.45061,
448 + .02545, .01300, 61.00217, 2.61972, 2.09277,
449 + 1.58149, 2.41880, 2.62071,
450 + .02615, .01338, 66.98750, 2.84442, 2.32120,
451 + 1.81423, 2.64513, 2.84542,
452 + .02682, .01373, 72.83736, 3.06595, 2.54669,
453 + 2.04463, 2.86818, 3.06698,
454 + .02744, .01406, 78.53085, 3.28306, 2.76819,
455 + 2.27181, 3.08667, 3.28411 /
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 + .02806, .01440, 84.29057, 3.50677, 2.99475,
458 + 2.50163, 3.31172, 3.50783,
459 + .02868, .01473, 90.10869, 3.73441, 3.22592,
460 + 2.73718, 3.54066, 3.73550,
461 + .02926, .01504, 95.75011, 3.95737, 3.45231,
462 + 2.96783, 3.76482, 3.95847,
463 + .02982, .01534, 101.11699, 4.17264, 3.67018,
464 + 3.18883, 3.98121, 4.17376,
465 + .03038, .01564, 106.67287, 4.39664, 3.89761,
466 + 3.42056, 4.20631, 4.39778,
467 + .03093, .01594, 112.13026, 4.62068, 4.12394,
468 + 3.64964, 4.43140, 4.62183,
469 + .03145, .01622, 117.48192, 4.84113, 4.34753,
470 + 3.87720, 4.65284, 4.84230,
471 + .03195, .01649, 122.51188, 5.05209, 4.56051,
472 + 4.09258, 4.86473, 5.05328 /
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 + .03246, .01677, 127.71547, 5.27129, 4.78242,
475 + 4.31786, 5.08485, 5.27250,
476 + .03296, .01704, 132.85260, 5.49076, 5.00411,
477 + 4.54230, 5.30521, 5.49198,
478 + .03344, .01730, 137.81444, 5.70460, 5.22018,
479 + 4.76111, 5.51990, 5.70584,
480 + .03390, .01755, 142.59163, 5.91194, 5.42991,
481 + 4.97384, 5.72803, 5.91320,
482 + .03436, .01780, 147.37839, 6.12305, 5.64277,
483 + 5.18882, 5.93992, 6.12432 /
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 + .01919, .00950, .85645, .43420, .00000,
486 + .00000, .23186, .43403,
487 + .01989, .00986, 1.67228, .45844, .00000,
488 + .00000, .25790, .45828,
489 + .02092, .01041, 3.12485, .50323, .00000,
490 + .00000, .30523, .50309,
491 + .02166, .01080, 4.36101, .54219, .02254,
492 + .00000, .34595, .54207,
493 + .02244, .01122, 5.74040, .58885, .07625,
494 + .00000, .39438, .58875,
495 + .02312, .01157, 7.07066, .63412, .12481,
496 + .00000, .44111, .63403,
497 + .02377, .01192, 8.48293, .68135, .17606,
498 + .00000, .48971, .68128,
499 + .02445, .01229, 10.12407, .73569, .23575,
500 + .00000, .54547, .73565 /
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 + .02505, .01261, 11.64052, .78679, .28934,
503 + .00000, .59776, .78676,
504 + .02563, .01292, 13.19767, .83929, .34455,
505 + .00000, .65139, .83928,
506 + .02609, .01316, 14.51352, .88317, .39150,
507 + .00000, .69614, .88317,
508 + .02706, .01369, 17.39745, .98352, .49659,
509 + .00936, .79829, .98356,
510 + .02790, .01414, 19.93550, 1.07645, .59294,
511 + .12232, .89271, 1.07652,
512 + .02884, .01465, 22.96224, 1.18808, .70871,
513 + .25768, 1.00595, 1.18818,
514 + .02983, .01518, 26.32152, 1.31226, .83715,
515 + .39261, 1.13176, 1.31240,
516 + .03072, .01567, 29.53714, 1.43185, .96060,
517 + .52230, 1.25278, 1.43202 /
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 + .03162, .01616, 32.94241, 1.55939, 1.09215,
520 + .65979, 1.38171, 1.55959,
521 + .03238, .01657, 35.86867, 1.67015, 1.20580,
522 + .77707, 1.49360, 1.67038,
523 + .03329, .01707, 39.52776, 1.81023, 1.34902,
524 + .92422, 1.63502, 1.81050,
525 + .03410, .01751, 42.88403, 1.93976, 1.48168,
526 + 1.06116, 1.76570, 1.94006,
527 + .03484, .01792, 46.05547, 2.06316, 1.60814,
528 + 1.19175, 1.89014, 2.06350,
529 + .03579, .01844, 50.14011, 2.22486, 1.77273,
530 + 1.35989, 2.05311, 2.22524,
531 + .03668, .01893, 54.09083, 2.38300, 1.93391,
532 + 1.52502, 2.21243, 2.38343,
533 + .03752, .01939, 57.90030, 2.53688, 2.09112,
534 + 1.68672, 2.36738, 2.53734 /
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 + .03837, .01985, 61.71398, 2.69418, 2.25062,
537 + 1.84890, 2.52573, 2.69468,
538 + .03919, .02030, 65.53378, 2.85320, 2.41232,
539 + 2.01409, 2.68576, 2.85374,
540 + .03998, .02074, 69.20650, 3.00793, 2.56966,
541 + 2.17481, 2.84143, 3.00851,
542 + .04072, .02114, 72.67004, 3.15635, 2.72006,
543 + 2.32773, 2.99071, 3.15696,
544 + .04146, .02155, 76.23181, 3.30997, 2.87626,
545 + 2.48731, 3.14519, 3.31062,
546 + .04220, .02196, 79.69936, 3.46260, 3.03066,
547 + 2.64394, 3.29864, 3.46329,
548 + .04290, .02235, 83.08017, 3.61209, 3.18252,
549 + 2.79888, 3.44891, 3.61281,
550 + .04356, .02271, 86.23109, 3.75428, 3.32625,
551 + 2.94455, 3.59182, 3.75504 /
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 + .04424, .02308, 89.47361, 3.90138, 3.47540,
554 + 3.09634, 3.73964, 3.90217,
555 + .04490, .02345, 92.65116, 4.04787, 3.62358,
556 + 3.24670, 3.88682, 4.04870,
557 + .04554, .02380, 95.70200, 4.18995, 3.76735,
558 + 3.39263, 4.02956, 4.19082,
559 + .04615, .02414, 98.62387, 4.32714, 3.90634,
560 + 3.53395, 4.16737, 4.32803,
561 + .04676, .02448, 101.53013, 4.46610, 4.04665,
562 + 3.67597, 4.30694, 4.46703 /
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 + .02630, .01285, .82265, .36983, .00000,
565 + .00000, .19827, .36963,
566 + .02727, .01338, 1.55803, .39161, .00000,
567 + .00000, .22150, .39144,
568 + .02870, .01417, 2.83272, .43073, .00000,
569 + .00000, .26267, .43062,
570 + .02973, .01474, 3.89157, .46405, .01908,
571 + .00000, .29741, .46398,
572 + .03081, .01533, 5.04935, .50327, .06428,
573 + .00000, .33805, .50325,
574 + .03174, .01585, 6.14666, .54076, .10458,
575 + .00000, .37672, .54078,
576 + .03263, .01634, 7.29514, .57947, .14665,
577 + .00000, .41653, .57954,
578 + .03358, .01687, 8.61135, .62357, .19518,
579 + .00000, .46177, .62368 /
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 + .03440, .01733, 9.81110, .66458, .23828,
582 + .00000, .50374, .66473,
583 + .03520, .01777, 11.02912, .70637, .28235,
584 + .00000, .54643, .70655,
585 + .03583, .01812, 12.04907, .74106, .31957,
586 + .00000, .58184, .74128,
587 + .03716, .01886, 14.25288, .81960, .40204,
588 + .00758, .66182, .81989,
589 + .03831, .01950, 16.15846, .89149, .47682,
590 + .09544, .73491, .89184,
591 + .03960, .02022, 18.39773, .97693, .56571,
592 + .20007, .82165, .97734,
593 + .04093, .02097, 20.84586, 1.07090, .66323,
594 + .30302, .91694, 1.07139,
595 + .04215, .02165, 23.15623, 1.16046, .75598,
596 + .40094, 1.00765, 1.16101 /
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 + .04338, .02233, 25.57114, 1.25503, .85388,
599 + .50375, 1.10335, 1.25566,
600 + .04440, .02290, 27.62164, 1.33643, .93769,
601 + .59065, 1.18566, 1.33711,
602 + .04563, .02360, 30.15571, 1.43847, 1.04237,
603 + .69871, 1.28878, 1.43922,
604 + .04673, .02421, 32.45405, 1.53203, 1.13853,
605 + .79845, 1.38327, 1.53284,
606 + .04773, .02477, 34.60437, 1.62050, 1.22952,
607 + .89286, 1.47258, 1.62137,
608 + .04901, .02549, 37.34178, 1.73541, 1.34689,
609 + 1.01331, 1.58853, 1.73636,
610 + .05021, .02616, 39.95994, 1.84686, 1.46087,
611 + 1.13063, 1.70093, 1.84788,
612 + .05134, .02680, 42.45953, 1.95447, 1.57122,
613 + 1.24467, 1.80941, 1.95556 /
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 + .05246, .02743, 44.93328, 2.06356, 1.68222,
616 + 1.35803, 1.91935, 2.06472,
617 + .05357, .02805, 47.38851, 2.17308, 1.79397,
618 + 1.47273, 2.02969, 2.17431,
619 + .05461, .02864, 49.72786, 2.27891, 1.90198,
620 + 1.58356, 2.13629, 2.28021,
621 + .05560, .02919, 51.91273, 2.37972, 2.00449,
622 + 1.68825, 2.23780, 2.38108,
623 + .05660, .02975, 54.14371, 2.48349, 2.11038,
624 + 1.79693, 2.34226, 2.48491,
625 + .05757, .03029, 56.29396, 2.58586, 2.21429,
626 + 1.90279, 2.44530, 2.58734,
627 + .05850, .03082, 58.37774, 2.68563, 2.31601,
628 + 2.00706, 2.54571, 2.68717,
629 + .05939, .03131, 60.30131, 2.77991, 2.41164,
630 + 2.10440, 2.64058, 2.78151 /
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 + .06028, .03181, 62.26973, 2.87701, 2.51045,
633 + 2.20541, 2.73826, 2.87867,
634 + .06116, .03230, 64.18266, 2.97315, 2.60803,
635 + 2.30486, 2.83497, 2.97486,
636 + .06200, .03278, 66.00740, 3.06594, 2.70226,
637 + 2.40093, 2.92830, 3.06771,
638 + .06280, .03322, 67.74481, 3.15514, 2.79296,
639 + 2.49356, 3.01801, 3.15696,
640 + .06361, .03368, 69.45829, 3.24499, 2.88399,
641 + 2.58609, 3.10836, 3.24687 /
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 + .03167, .01544, .81164, .33722, .00000,
644 + .00000, .18135, .33733,
645 + .03285, .01610, 1.50350, .35759, .00000,
646 + .00000, .20302, .35776,
647 + .03458, .01708, 2.68231, .39362, .00000,
648 + .00000, .24089, .39388,
649 + .03583, .01778, 3.64677, .42394, .01726,
650 + .00000, .27247, .42426,
651 + .03714, .01852, 4.68812, .45926, .05801,
652 + .00000, .30906, .45966,
653 + .03826, .01915, 5.66447, .49272, .09404,
654 + .00000, .34358, .49318,
655 + .03934, .01976, 6.67731, .52705, .13141,
656 + .00000, .37890, .52758,
657 + .04048, .02041, 7.82813, .56592, .17425,
658 + .00000, .41880, .56652 /
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 + .04147, .02097, 8.86827, .60183, .21206,
661 + .00000, .45556, .60248,
662 + .04243, .02151, 9.91683, .63822, .25052,
663 + .00000, .49277, .63893,
664 + .04318, .02194, 10.78993, .66833, .28288,
665 + .00000, .52351, .66908,
666 + .04479, .02285, 12.65970, .73602, .35415,
667 + .00668, .59251, .73687,
668 + .04617, .02363, 14.25856, .79755, .41831,
669 + .08221, .65511, .79849,
670 + .04771, .02451, 16.12019, .87018, .49409,
671 + .17182, .72892, .87122,
672 + .04931, .02542, 18.13638, .94953, .57666,
673 + .25930, .80944, .95066,
674 + .05076, .02624, 20.02231, 1.02464, .65468,
675 + .34198, .88559, 1.02587 /
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 + .05223, .02707, 21.97753, 1.10348, .73654,
678 + .42827, .96547, 1.10481,
679 + .05344, .02776, 23.62524, 1.17097, .80624,
680 + .50079, 1.03377, 1.17238,
681 + .05491, .02860, 25.64651, 1.25510, .89282,
682 + .59049, 1.11889, 1.25661,
683 + .05622, .02934, 27.46683, 1.33184, .97193,
684 + .67286, 1.19647, 1.33343,
685 + .05741, .03002, 29.15933, 1.40407, 1.04645,
686 + .75047, 1.26946, 1.40574,
687 + .05893, .03088, 31.29795, 1.49738, 1.14205,
688 + .84893, 1.36371, 1.49915,
689 + .06035, .03169, 33.32899, 1.58739, 1.23440,
690 + .94435, 1.45459, 1.58927,
691 + .06169, .03244, 35.25591, 1.67391, 1.32341,
692 + 1.03668, 1.54190, 1.67587 /
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 + .06302, .03320, 37.14875, 1.76116, 1.41245,
695 + 1.12794, 1.62992, 1.76321,
696 + .06432, .03394, 39.01664, 1.84836, 1.50172,
697 + 1.21990, 1.71787, 1.85051,
698 + .06556, .03464, 40.78600, 1.93228, 1.58763,
699 + 1.30839, 1.80249, 1.93451,
700 + .06672, .03530, 42.42818, 2.01186, 1.66881,
701 + 1.39160, 1.88271, 2.01418,
702 + .06789, .03596, 44.09756, 2.09350, 1.75239,
703 + 1.47771, 1.96498, 2.09590,
704 + .06904, .03661, 45.69580, 2.17368, 1.83402,
705 + 1.56118, 2.04578, 2.17616,
706 + .07014, .03723, 47.23884, 2.25159, 1.91372,
707 + 1.64318, 2.12427, 2.25415,
708 + .07117, .03782, 48.65408, 2.32491, 1.98831,
709 + 1.71938, 2.19813, 2.32754 /
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 + .07222, .03841, 50.09723, 2.40021, 2.06519,
712 + 1.79826, 2.27397, 2.40292,
713 + .07325, .03899, 51.49192, 2.47449, 2.14082,
714 + 1.87562, 2.34877, 2.47727,
715 + .07423, .03955, 52.81660, 2.54597, 2.21364,
716 + 1.95013, 2.42074, 2.54882,
717 + .07517, .04008, 54.07318, 2.61450, 2.28354,
718 + 2.02180, 2.48973, 2.61741,
719 + .07612, .04061, 55.30518, 2.68327, 2.35344,
720 + 2.09311, 2.55897, 2.68625 /
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 + .03618, .01768, .80963, .31630, .00000,
723 + .00000, .17051, .31672,
724 + .03753, .01845, 1.47192, .33569, .00000,
725 + .00000, .19111, .33620,
726 + .03951, .01959, 2.58562, .36961, .00000,
727 + .00000, .22673, .37024,
728 + .04095, .02041, 3.48651, .39790, .01605,
729 + .00000, .25620, .39862,
730 + .04244, .02126, 4.45011, .43062, .05383,
731 + .00000, .29011, .43144,
732 + .04373, .02200, 5.34630, .46142, .08704,
733 + .00000, .32189, .46232,
734 + .04496, .02270, 6.26984, .49287, .12132,
735 + .00000, .35426, .49385,
736 + .04626, .02345, 7.31247, .52832, .16044,
737 + .00000, .39066, .52939 /
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 + .04739, .02410, 8.24890, .56090, .19481,
740 + .00000, .42405, .56204,
741 + .04848, .02472, 9.18795, .59380, .22964,
742 + .00000, .45770, .59501,
743 + .04934, .02522, 9.96658, .62093, .25886,
744 + .00000, .48543, .62220,
745 + .05117, .02627, 11.62293, .68165, .32292,
746 + .00609, .54737, .68305,
747 + .05274, .02716, 13.02743, .73655, .38029,
748 + .07375, .60328, .73805,
749 + .05449, .02817, 14.65152, .80104, .44773,
750 + .15379, .66887, .80267,
751 + .05630, .02921, 16.39811, .87113, .52084,
752 + .23147, .74006, .87288,
753 + .05795, .03015, 18.02099, .93715, .58960,
754 + .30455, .80706, .93902 /
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 + .05961, .03110, 19.69320, 1.00615, .66142,
757 + .38048, .87702, 1.00813,
758 + .06099, .03189, 21.09443, 1.06495, .72231,
759 + .44403, .93661, 1.06704,
760 + .06265, .03284, 22.80375, 1.13797, .79765,
761 + .52232, 1.01055, 1.14018,
762 + .06412, .03369, 24.33494, 1.20431, .86623,
763 + .59394, 1.07768, 1.20662,
764 + .06547, .03446, 25.75193, 1.26654, .93061,
765 + .66120, 1.14063, 1.26895,
766 + .06718, .03544, 27.53231, 1.34660, 1.01286,
767 + .74617, 1.22158, 1.34913,
768 + .06878, .03635, 29.21405, 1.42354, 1.09201,
769 + .82820, 1.29934, 1.42619,
770 + .07028, .03721, 30.80203, 1.49723, 1.16803,
771 + .90731, 1.37378, 1.49999 /
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 + .07178, .03806, 32.35299, 1.57124, 1.24377,
774 + .98518, 1.44853, 1.57411,
775 + .07325, .03890, 33.87680, 1.64499, 1.31947,
776 + 1.06341, 1.52298, 1.64796,
777 + .07463, .03969, 35.31384, 1.71573, 1.39210,
778 + 1.13845, 1.59438, 1.71881,
779 + .07594, .04043, 36.64101, 1.78259, 1.46048,
780 + 1.20877, 1.66185, 1.78577,
781 + .07725, .04118, 37.98569, 1.85100, 1.53073,
782 + 1.28137, 1.73087, 1.85428,
783 + .07854, .04191, 39.26630, 1.91797, 1.59910,
784 + 1.35149, 1.79843, 1.92134,
785 + .07976, .04261, 40.49918, 1.98290, 1.66571,
786 + 1.42025, 1.86391, 1.98636,
787 + .08092, .04327, 41.62417, 2.04381, 1.72784,
788 + 1.48392, 1.92533, 2.04736 /
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 + .08209, .04393, 42.76834, 2.10624, 1.79176,
791 + 1.54972, 1.98827, 2.10987,
792 + .08324, .04458, 43.86916, 2.16764, 1.85447,
793 + 1.61407, 2.05018, 2.17137,
794 + .08433, .04520, 44.91127, 2.22660, 1.91470,
795 + 1.67590, 2.10961, 2.23041,
796 + .08538, .04580, 45.89693, 2.28301, 1.97242,
797 + 1.73526, 2.16646, 2.28690,
798 + .08643, .04639, 46.85872, 2.33947, 2.02996,
799 + 1.79415, 2.22336, 2.34343 /
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 + .04016, .01980, .81609, .30199, .00000,
802 + .00000, .16289, .30246,
803 + .04167, .02067, 1.45541, .32063, .00000,
804 + .00000, .18265, .32119,
805 + .04388, .02195, 2.51895, .35292, .00000,
806 + .00000, .21653, .35363,
807 + .04547, .02287, 3.37133, .37966, .01512,
808 + .00000, .24437, .38048,
809 + .04713, .02383, 4.27592, .41040, .05067,
810 + .00000, .27621, .41134,
811 + .04856, .02466, 5.11162, .43919, .08175,
812 + .00000, .30592, .44023,
813 + .04992, .02545, 5.96805, .46848, .11370,
814 + .00000, .33607, .46961,
815 + .05137, .02628, 6.92975, .50137, .15004,
816 + .00000, .36985, .50261 /
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 + .05262, .02701, 7.78895, .53148, .18184,
819 + .00000, .40071, .53280,
820 + .05382, .02770, 8.64680, .56178, .21398,
821 + .00000, .43172, .56320,
822 + .05478, .02826, 9.35563, .58672, .24088,
823 + .00000, .45721, .58820,
824 + .05680, .02942, 10.85508, .64232, .29962,
825 + .00565, .51395, .64394,
826 + .05853, .03042, 12.11753, .69236, .35201,
827 + .06751, .56494, .69412,
828 + .06046, .03154, 13.56903, .75092, .41336,
829 + .14053, .62453, .75282,
830 + .06246, .03269, 15.12083, .81428, .47958,
831 + .21106, .68893, .81632,
832 + .06428, .03374, 16.55465, .87373, .54161,
833 + .27716, .74930, .87591 /
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 + .06610, .03479, 18.02445, .93563, .60618,
836 + .34558, .81211, .93795,
837 + .06761, .03566, 19.25017, .98821, .66073,
838 + .40265, .86542, .99064,
839 + .06944, .03671, 20.73854, 1.05328, .72800,
840 + .47272, .93135, 1.05584,
841 + .07106, .03764, 22.06580, 1.11220, .78904,
842 + .53663, .99102, 1.11489,
843 + .07253, .03849, 23.28910, 1.16731, .84618,
844 + .59647, 1.04681, 1.17011,
845 + .07440, .03956, 24.81865, 1.23798, .91893,
846 + .67182, 1.11832, 1.24093,
847 + .07616, .04057, 26.25704, 1.30567, .98872,
848 + .74433, 1.18678, 1.30875,
849 + .07780, .04151, 27.60992, 1.37032, 1.05557,
850 + .81407, 1.25214, 1.37352 /
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 + .07944, .04245, 28.92475, 1.43504, 1.12194,
853 + .88248, 1.31755, 1.43836,
854 + .08103, .04336, 30.21170, 1.49935, 1.18811,
855 + .95103, 1.38253, 1.50280,
856 + .08255, .04422, 31.42066, 1.56087, 1.25142,
857 + 1.01662, 1.44468, 1.56444,
858 + .08397, .04503, 32.53237, 1.61886, 1.31087,
859 + 1.07790, 1.50326, 1.62254,
860 + .08539, .04585, 33.65549, 1.67808, 1.37182,
861 + 1.14106, 1.56305, 1.68187,
862 + .08679, .04665, 34.72039, 1.73588, 1.43096,
863 + 1.20188, 1.62140, 1.73977,
864 + .08813, .04740, 35.74324, 1.79181, 1.48849,
865 + 1.26142, 1.67786, 1.79581,
866 + .08938, .04812, 36.67242, 1.84414, 1.54200,
867 + 1.31640, 1.73068, 1.84824 /
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 + .09065, .04884, 37.61539, 1.89769, 1.59697,
870 + 1.37313, 1.78472, 1.90189,
871 + .09190, .04955, 38.51896, 1.95023, 1.65076,
872 + 1.42848, 1.83774, 1.95453,
873 + .09309, .05022, 39.37180, 2.00059, 1.70233,
874 + 1.48156, 1.88855, 2.00498,
875 + .09422, .05086, 40.17644, 2.04868, 1.75167,
876 + 1.53245, 1.93707, 2.05316,
877 + .09536, .05150, 40.95825, 2.09671, 1.80074,
878 + 1.58280, 1.98551, 2.10127 /
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 + .05585, .02856, .86037, .26286, .00000,
881 + .00000, .14228, .26404,
882 + .05796, .02982, 1.43084, .27921, .00000,
883 + .00000, .15956, .28055,
884 + .06104, .03165, 2.34533, .30670, .00000,
885 + .00000, .18838, .30830,
886 + .06326, .03298, 3.05569, .32896, .01250,
887 + .00000, .21156, .33073,
888 + .06555, .03434, 3.79030, .35405, .04167,
889 + .00000, .23758, .35601,
890 + .06752, .03550, 4.45400, .37715, .06677,
891 + .00000, .26145, .37927,
892 + .06940, .03662, 5.12166, .40037, .09224,
893 + .00000, .28540, .40264,
894 + .07139, .03779, 5.85813, .42612, .12087,
895 + .00000, .31190, .42855 /
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 + .07310, .03881, 6.50476, .44938, .14562,
898 + .00000, .33581, .45196,
899 + .07475, .03978, 7.14096, .47256, .17037,
900 + .00000, .35959, .47527,
901 + .07605, .04055, 7.66052, .49148, .19094,
902 + .00000, .37898, .49430,
903 + .07880, .04216, 8.73899, .53313, .23529,
904 + .00444, .42161, .53618,
905 + .08114, .04354, 9.62520, .57008, .27430,
906 + .05075, .45937, .57333,
907 + .08374, .04506, 10.62444, .61275, .31938,
908 + .10502, .50293, .61621,
909 + .08644, .04663, 11.67171, .65826, .36738,
910 + .15662, .54934, .66194,
911 + .08886, .04805, 12.62115, .70040, .41176,
912 + .20436, .59228, .70428 /
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 + .09130, .04947, 13.57749, .74373, .45739,
915 + .25319, .63640, .74782,
916 + .09331, .05064, 14.36206, .78012, .49552,
917 + .29345, .67344, .78438,
918 + .09574, .05204, 15.29941, .82465, .54200,
919 + .34235, .71872, .82911,
920 + .09787, .05328, 16.12249, .86453, .58375,
921 + .38650, .75927, .86917,
922 + .09982, .05440, 16.87079, .90149, .62246,
923 + .42746, .79682, .90629,
924 + .10227, .05582, 17.79066, .94834, .67119,
925 + .47844, .84441, .95334,
926 + .10457, .05714, 18.64212, .99272, .71744,
927 + .52700, .88948, .99792,
928 + .10672, .05837, 19.43190, 1.03471, .76133,
929 + .57328, .93211, 1.04008 /
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 + .10884, .05958, 20.18582, 1.07626, .80441,
932 + .61815, .97428, 1.08181,
933 + .11091, .06077, 20.91420, 1.11719, .84700,
934 + .66275, 1.01581, 1.12291,
935 + .11287, .06188, 21.58919, 1.15599, .88739,
936 + .70506, 1.05518, 1.16188,
937 + .11469, .06292, 22.20026, 1.19222, .92496,
938 + .74421, 1.09193, 1.19826,
939 + .11653, .06397, 22.81151, 1.22896, .96322,
940 + .78431, 1.12919, 1.23516,
941 + .11832, .06498, 23.38105, 1.26447, .99998,
942 + .82253, 1.16520, 1.27081,
943 + .12002, .06595, 23.92372, 1.29862, 1.03553,
944 + .85976, 1.19983, 1.30510,
945 + .12162, .06685, 24.40809, 1.33027, 1.06829,
946 + .89380, 1.23193, 1.33689 /
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 + .12323, .06776, 24.89588, 1.36248, 1.10177,
949 + .92876, 1.26459, 1.36924,
950 + .12481, .06865, 25.35619, 1.39383, 1.13426,
951 + .96258, 1.29637, 1.40071,
952 + .12632, .06950, 25.78596, 1.42368, 1.16522,
953 + .99483, 1.32663, 1.43069,
954 + .12774, .07030, 26.18771, 1.45202, 1.19468,
955 + 1.02558, 1.35537, 1.45915,
956 + .12917, .07110, 26.57134, 1.48009, 1.22372,
957 + 1.05574, 1.38382, 1.48733 /
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 + .07868, .04251, .97178, .23266, .00000,
960 + .00000, .12624, .23515,
961 + .08164, .04430, 1.47116, .24678, .00000,
962 + .00000, .14117, .24954,
963 + .08594, .04689, 2.23810, .26972, .00000,
964 + .00000, .16527, .27288,
965 + .08902, .04875, 2.81292, .28783, .01016,
966 + .00000, .18420, .29127,
967 + .09218, .05064, 3.39068, .30782, .03369,
968 + .00000, .20501, .31155,
969 + .09488, .05225, 3.89968, .32587, .05356,
970 + .00000, .22375, .32985,
971 + .09746, .05378, 4.40090, .34375, .07345,
972 + .00000, .24229, .34797,
973 + .10017, .05539, 4.94262, .36332, .09549,
974 + .00000, .26254, .36779 /
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 + .10249, .05676, 5.40899, .38074, .11428,
977 + .00000, .28054, .38542,
978 + .10472, .05808, 5.86008, .39788, .13286,
979 + .00000, .29823, .40277,
980 + .10648, .05911, 6.22348, .41175, .14817,
981 + .00000, .31253, .41681,
982 + .11018, .06128, 6.96104, .44185, .18071,
983 + .00340, .34352, .44724,
984 + .11330, .06311, 7.54927, .46812, .20888,
985 + .03715, .37054, .47379,
986 + .11676, .06512, 8.19735, .49797, .24095,
987 + .07635, .40122, .50396,
988 + .12032, .06718, 8.86066, .52930, .27456,
989 + .11297, .43339, .53562,
990 + .12352, .06903, 9.44835, .55787, .30518,
991 + .14636, .46270, .56447 /
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 + .12671, .07087, 10.02786, .58683, .33623,
994 + .18006, .49240, .59372,
995 + .12933, .07237, 10.49381, .61082, .36183,
996 + .20748, .51700, .61794,
997 + .13247, .07416, 11.03925, .63979, .39266,
998 + .24038, .54669, .64719,
999 + .13523, .07573, 11.50912, .66541, .42000,
1000 + .26974, .57294, .67306,
1001 + .13773, .07716, 11.92907, .68888, .44509,
1002 + .29670, .59699, .69676,
1003 + .14087, .07893, 12.43376, .71824, .47625,
1004 + .32981, .62705, .72639,
1005 + .14379, .08058, 12.89141, .74570, .50548,
1006 + .36098, .65517, .75411,
1007 + .14651, .08211, 13.30834, .77138, .53291,
1008 + .39038, .68147, .78004 /
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 + .14919, .08361, 13.69650, .79645, .55947,
1011 + .41851, .70714, .80534,
1012 + .15179, .08506, 14.06512, .82088, .58547,
1013 + .44620, .73216, .82999,
1014 + .15423, .08642, 14.40045, .84379, .60988,
1015 + .47221, .75562, .85312,
1016 + .15651, .08769, 14.69704, .86493, .63233,
1017 + .49602, .77727, .87446,
1018 + .15879, .08895, 14.98985, .88619, .65502,
1019 + .52024, .79905, .89592,
1020 + .16099, .09016, 15.25549, .90649, .67655,
1021 + .54304, .81983, .91640,
1022 + .16309, .09132, 15.50607, .92588, .69726,
1023 + .56512, .83970, .93597,
1024 + .16504, .09239, 15.72301, .94363, .71610,
1025 + .58508, .85788, .95389 /
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 + .16701, .09347, 15.93920, .96157, .73525,
1028 + .60546, .87627, .97200,
1029 + .16893, .09452, 16.13824, .97885, .75366,
1030 + .62500, .89399, .98945,
1031 + .17076, .09551, 16.32100, .99518, .77106,
1032 + .64349, .91072, 1.00593,
1033 + .17248, .09645, 16.48938, 1.01057, .78751,
1034 + .66101, .92650, 1.02147,
1035 + .17420, .09738, 16.64503, 1.02564, .80356,
1036 + .67802, .94196, 1.03668 /
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 + .09696, .05430, 1.07530, .21824, .00000,
1039 + .00000, .11866, .22210,
1040 + .10056, .05647, 1.52653, .23099, .00000,
1041 + .00000, .13221, .23521,
1042 + .10576, .05960, 2.20446, .25130, .00000,
1043 + .00000, .15366, .25603,
1044 + .10947, .06181, 2.70099, .26707, .00890,
1045 + .00000, .17023, .27216,
1046 + .11327, .06406, 3.19085, .28424, .02941,
1047 + .00000, .18821, .28971,
1048 + .11650, .06597, 3.61552, .29955, .04653,
1049 + .00000, .20422, .30534,
1050 + .11957, .06777, 4.02789, .31459, .06349,
1051 + .00000, .21990, .32067,
1052 + .12279, .06966, 4.46771, .33088, .08214,
1053 + .00000, .23687, .33727 /
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 + .12555, .07128, 4.84153, .34525, .09787,
1056 + .00000, .25182, .35191,
1057 + .12819, .07281, 5.19906, .35928, .11333,
1058 + .00000, .26640, .36619,
1059 + .13027, .07402, 5.48452, .37057, .12598,
1060 + .00000, .27812, .37767,
1061 + .13461, .07653, 6.05489, .39482, .15265,
1062 + .00288, .30327, .40234,
1063 + .13827, .07863, 6.50008, .41575, .17548,
1064 + .03044, .32496, .42362,
1065 + .14230, .08094, 6.98276, .43931, .20124,
1066 + .06230, .34935, .44755,
1067 + .14644, .08329, 7.46867, .46375, .22794,
1068 + .09171, .37464, .47238,
1069 + .15014, .08539, 7.89232, .48580, .25203,
1070 + .11828, .39745, .49478 /
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 + .15382, .08746, 8.30384, .50794, .27624,
1073 + .14486, .42035, .51726,
1074 + .15682, .08915, 8.62972, .52612, .29604,
1075 + .16631, .43915, .53572,
1076 + .16042, .09116, 9.00551, .54787, .31966,
1077 + .19184, .46163, .55779,
1078 + .16356, .09291, 9.32459, .56694, .34045,
1079 + .21444, .48135, .57715,
1080 + .16641, .09449, 9.60606, .58428, .35940,
1081 + .23506, .49928, .59475,
1082 + .16996, .09645, 9.93866, .60576, .38271,
1083 + .26016, .52148, .61654,
1084 + .17326, .09826, 10.23544, .62566, .40440,
1085 + .28362, .54207, .63674,
1086 + .17632, .09994, 10.50199, .64414, .42462,
1087 + .30560, .56118, .65549 /
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 + .17931, .10157, 10.74483, .66199, .44401,
1090 + .32643, .57966, .67361,
1091 + .18221, .10314, 10.97214, .67927, .46287,
1092 + .34682, .59753, .69113,
1093 + .18493, .10461, 11.17556, .69534, .48045,
1094 + .36584, .61418, .70745,
1095 + .18745, .10596, 11.35169, .71005, .49650,
1096 + .38312, .62941, .72237,
1097 + .18997, .10732, 11.52371, .72477, .51264,
1098 + .40061, .64466, .73731,
1099 + .19240, .10861, 11.67565, .73867, .52782,
1100 + .41695, .65907, .75142,
1101 + .19470, .10984, 11.81783, .75189, .54236,
1102 + .43272, .67278, .76484,
1103 + .19684, .11097, 11.93712, .76387, .55548,
1104 + .44686, .68522, .77700 /
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 + .19899, .11211, 12.05493, .77594, .56876,
1107 + .46125, .69775, .78925,
1108 + .20108, .11322, 12.16033, .78747, .58143,
1109 + .47494, .70972, .80095,
1110 + .20306, .11425, 12.25532, .79829, .59336,
1111 + .48784, .72097, .81194,
1112 + .20493, .11523, 12.34145, .80845, .60458,
1113 + .50002, .73153, .82225,
1114 + .20678, .11620, 12.41778, .81830, .61544,
1115 + .51176, .74178, .83226 /
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 + .11301, .06493, 1.16557, .20925, .00000,
1118 + .00000, .11399, .21453,
1119 + .11713, .06739, 1.58011, .22098, .00000,
1120 + .00000, .12653, .22668,
1121 + .12307, .07090, 2.19209, .23938, .00000,
1122 + .00000, .14609, .24569,
1123 + .12729, .07339, 2.63254, .25349, .00804,
1124 + .00000, .16102, .26022,
1125 + .13159, .07590, 3.06086, .26869, .02650,
1126 + .00000, .17706, .27587,
1127 + .13523, .07802, 3.42774, .28213, .04177,
1128 + .00000, .19120, .28967,
1129 + .13869, .08002, 3.78019, .29523, .05679,
1130 + .00000, .20496, .30310,
1131 + .14232, .08212, 4.15228, .30932, .07319,
1132 + .00000, .21975, .31755 /
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 + .14541, .08389, 4.46541, .32166, .08693,
1135 + .00000, .23268, .33019,
1136 + .14836, .08558, 4.76228, .33363, .10035,
1137 + .00000, .24522, .34245,
1138 + .15068, .08690, 4.99766, .34321, .11129,
1139 + .00000, .25525, .35226,
1140 + .15551, .08964, 5.46199, .36366, .13418,
1141 + .00253, .27662, .37317,
1142 + .15957, .09193, 5.81788, .38116, .15363,
1143 + .02617, .29490, .39106,
1144 + .16403, .09443, 6.19869, .40069, .17539,
1145 + .05337, .31530, .41102,
1146 + .16858, .09696, 6.57695, .42078, .19778,
1147 + .07827, .33627, .43153,
1148 + .17264, .09921, 6.90231, .43875, .21783,
1149 + .10060, .35503, .44988 /
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 + .17667, .10143, 7.21433, .45666, .23784,
1152 + .12279, .37372, .46817,
1153 + .17995, .10323, 7.45827, .47125, .25408,
1154 + .14058, .38896, .48306,
1155 + .18385, .10536, 7.73589, .48859, .27334,
1156 + .16163, .40706, .50075,
1157 + .18726, .10720, 7.96866, .50368, .29019,
1158 + .18016, .42283, .51616,
1159 + .19034, .10887, 8.17162, .51732, .30546,
1160 + .19696, .43708, .53008,
1161 + .19417, .11092, 8.40754, .53408, .32412,
1162 + .21730, .45460, .54717,
1163 + .19770, .11281, 8.61491, .54950, .34136,
1164 + .23619, .47073, .56291,
1165 + .20097, .11455, 8.79872, .56372, .35735,
1166 + .25379, .48561, .57742 /
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 + .20417, .11624, 8.96251, .57735, .37257,
1169 + .27036, .49989, .59132,
1170 + .20725, .11786, 9.11366, .59045, .38730,
1171 + .28650, .51362, .60469,
1172 + .21013, .11937, 9.24670, .60257, .40096,
1173 + .30149, .52633, .61706,
1174 + .21280, .12075, 9.35920, .61357, .41334,
1175 + .31502, .53788, .62829,
1176 + .21546, .12213, 9.46784, .62453, .42574,
1177 + .32867, .54940, .63947,
1178 + .21801, .12345, 9.56074, .63479, .43733,
1179 + .34134, .56019, .64994,
1180 + .22042, .12469, 9.64695, .64452, .44839,
1181 + .35353, .57043, .65987,
1182 + .22265, .12584, 9.71638, .65326, .45831,
1183 + .36439, .57964, .66879 /
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 + .22490, .12698, 9.78426, .66202, .46832,
1186 + .37541, .58888, .67774,
1187 + .22707, .12808, 9.84262, .67033, .47780,
1188 + .38585, .59766, .68623,
1189 + .22912, .12912, 9.89386, .67809, .48669,
1190 + .39564, .60587, .69415,
1191 + .23105, .13010, 9.93929, .68534, .49503,
1192 + .40485, .61354, .70156,
1193 + .23296, .13106, 9.97684, .69231, .50304,
1194 + .41368, .62092, .70868 /
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 + .12767, .07473, 1.24300, .20274, .00000,
1197 + .00000, .11068, .20947,
1198 + .13223, .07742, 1.62686, .21363, .00000,
1199 + .00000, .12240, .22084,
1200 + .13879, .08124, 2.18573, .23050, .00000,
1201 + .00000, .14048, .23839,
1202 + .14343, .08394, 2.58222, .24331, .00739,
1203 + .00000, .15414, .25168,
1204 + .14815, .08665, 2.96315, .25700, .02431,
1205 + .00000, .16869, .26585,
1206 + .15214, .08893, 3.28631, .26901, .03819,
1207 + .00000, .18143, .27826,
1208 + .15591, .09107, 3.59402, .28064, .05177,
1209 + .00000, .19375, .29027,
1210 + .15986, .09331, 3.91614, .29308, .06652,
1211 + .00000, .20692, .30310 /
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 + .16322, .09520, 4.18493, .30391, .07879,
1214 + .00000, .21836, .31426,
1215 + .16641, .09700, 4.43791, .31436, .09073,
1216 + .00000, .22940, .32502,
1217 + .16893, .09840, 4.63734, .32269, .10043,
1218 + .00000, .23820, .33360,
1219 + .17415, .10130, 5.02634, .34036, .12060,
1220 + .00228, .25684, .35177,
1221 + .17851, .10371, 5.31957, .35538, .13763,
1222 + .02310, .27267, .36721,
1223 + .18330, .10633, 5.62969, .37202, .15657,
1224 + .04700, .29021, .38430,
1225 + .18817, .10898, 5.93421, .38902, .17592,
1226 + .06871, .30813, .40175,
1227 + .19249, .11132, 6.19298, .40412, .19314,
1228 + .08807, .32405, .41725 /
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 + .19677, .11362, 6.43815, .41906, .21023,
1231 + .10720, .33981, .43259,
1232 + .20025, .11548, 6.62758, .43116, .22402,
1233 + .12246, .35258, .44501,
1234 + .20438, .11767, 6.84055, .44544, .24029,
1235 + .14042, .36766, .45965,
1236 + .20797, .11957, 7.01695, .45780, .25445,
1237 + .15616, .38072, .47233,
1238 + .21120, .12127, 7.16898, .46891, .26723,
1239 + .17037, .39247, .48373,
1240 + .21521, .12336, 7.34273, .48246, .28274,
1241 + .18747, .40682, .49763,
1242 + .21891, .12527, 7.49313, .49486, .29701,
1243 + .20328, .41995, .51035,
1244 + .22232, .12704, 7.62462, .50622, .31017,
1245 + .21795, .43200, .52200 /
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 + .22563, .12873, 7.73899, .51702, .32262,
1248 + .23168, .44347, .53308,
1249 + .22883, .13036, 7.84291, .52735, .33462,
1250 + .24501, .45446, .54368,
1251 + .23181, .13187, 7.93266, .53685, .34570,
1252 + .25732, .46458, .55343,
1253 + .23455, .13325, 8.00640, .54541, .35568,
1254 + .26839, .47371, .56222,
1255 + .23727, .13462, 8.07669, .55390, .36565,
1256 + .27952, .48278, .57093,
1257 + .23989, .13592, 8.13397, .56179, .37491,
1258 + .28980, .49122, .57903,
1259 + .24236, .13714, 8.18656, .56924, .38372,
1260 + .29966, .49920, .58668,
1261 + .24463, .13826, 8.22652, .57587, .39157,
1262 + .30840, .50632, .59349 /
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 + .24691, .13938, 8.26506, .58251, .39948,
1265 + .31725, .51346, .60030,
1266 + .24912, .14046, 8.29601, .58875, .40693,
1267 + .32559, .52018, .60672,
1268 + .25119, .14147, 8.32191, .59456, .41389,
1269 + .33339, .52645, .61268,
1270 + .25314, .14241, 8.34394, .59995, .42039,
1271 + .34071, .53228, .61823,
1272 + .25507, .14334, 8.35953, .60509, .42660,
1273 + .34769, .53785, .62351 /
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 + .15435, .09263, 1.36579, .19332, .00000,
1276 + .00000, .10604, .20299,
1277 + .15963, .09564, 1.69911, .20284, .00000,
1278 + .00000, .11646, .21306,
1279 + .16718, .09989, 2.17408, .21731, .00000,
1280 + .00000, .13223, .22832,
1281 + .17249, .10287, 2.50335, .22812, .00643,
1282 + .00000, .14397, .23967,
1283 + .17785, .10584, 2.81342, .23952, .02106,
1284 + .00000, .15631, .25162,
1285 + .18237, .10832, 3.07237, .24939, .03293,
1286 + .00000, .16697, .26195,
1287 + .18663, .11065, 3.31543, .25886, .04443,
1288 + .00000, .17720, .27184,
1289 + .19106, .11307, 3.56637, .26890, .05681,
1290 + .00000, .18802, .28231 /
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 + .19482, .11510, 3.77293, .27754, .06702,
1293 + .00000, .19734, .29132,
1294 + .19838, .11702, 3.96497, .28581, .07688,
1295 + .00000, .20625, .29993,
1296 + .20117, .11851, 4.11490, .29237, .08483,
1297 + .00000, .21332, .30676,
1298 + .20695, .12159, 4.40145, .30613, .10124,
1299 + .00192, .22813, .32107,
1300 + .21174, .12411, 4.61095, .31769, .11494,
1301 + .01887, .24057, .33307,
1302 + .21697, .12685, 4.82778, .33036, .13003,
1303 + .03823, .25421, .34621,
1304 + .22227, .12960, 5.03606, .34312, .14528,
1305 + .05562, .26797, .35946,
1306 + .22695, .13200, 5.20915, .35432, .15873,
1307 + .07098, .28007, .37108 /
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 + .23155, .13435, 5.36957, .36529, .17194,
1310 + .08603, .29192, .38245,
1311 + .23527, .13623, 5.49045, .37406, .18251,
1312 + .09794, .30142, .39155,
1313 + .23966, .13844, 5.62298, .38431, .19486,
1314 + .11183, .31252, .40216,
1315 + .24345, .14033, 5.73009, .39308, .20553,
1316 + .12391, .32205, .41126,
1317 + .24686, .14202, 5.82023, .40089, .21507,
1318 + .13475, .33055, .41935,
1319 + .25106, .14408, 5.91909, .41029, .22656,
1320 + .14768, .34080, .42909,
1321 + .25491, .14596, 6.00164, .41879, .23702,
1322 + .15954, .35009, .43790,
1323 + .25844, .14767, 6.07151, .42650, .24661,
1324 + .17047, .35855, .44590 /
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 + .26185, .14930, 6.12828, .43371, .25558,
1327 + .18060, .36648, .45337,
1328 + .26512, .15086, 6.17762, .44054, .26415,
1329 + .19037, .37401, .46045,
1330 + .26815, .15230, 6.21777, .44676, .27201,
1331 + .19933, .38088, .46689,
1332 + .27093, .15359, 6.24755, .45227, .27902,
1333 + .20733, .38700, .47262,
1334 + .27368, .15488, 6.27464, .45771, .28600,
1335 + .21533, .39305, .47826,
1336 + .27630, .15608, 6.29286, .46266, .29239,
1337 + .22265, .39859, .48340,
1338 + .27877, .15722, 6.30888, .46732, .29846,
1339 + .22965, .40381, .48823,
1340 + .28102, .15824, 6.31684, .47138, .30381,
1341 + .23580, .40840, .49245 /
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 + .28328, .15926, 6.32363, .47543, .30916,
1344 + .24199, .41297, .49665,
1345 + .28544, .16023, 6.32539, .47916, .31417,
1346 + .24779, .41721, .50054,
1347 + .28748, .16114, 6.32461, .48260, .31881,
1348 + .25318, .42113, .50411,
1349 + .28938, .16198, 6.32216, .48576, .32312,
1350 + .25821, .42476, .50740,
1351 + .29124, .16280, 6.31505, .48871, .32720,
1352 + .26297, .42817, .51047 /
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 + .19033, .11648, 1.48770, .18316, .00000,
1355 + .00000, .10127, .19724,
1356 + .19639, .11975, 1.76180, .19104, .00000,
1357 + .00000, .11018, .20574,
1358 + .20499, .12434, 2.14322, .20278, .00000,
1359 + .00000, .12339, .21835,
1360 + .21100, .12752, 2.40063, .21140, .00542,
1361 + .00000, .13304, .22757,
1362 + .21702, .13066, 2.63697, .22036, .01768,
1363 + .00000, .14305, .23710,
1364 + .22206, .13327, 2.83079, .22800, .02751,
1365 + .00000, .15158, .24523,
1366 + .22678, .13570, 3.00968, .23525, .03692,
1367 + .00000, .15967, .25291,
1368 + .23167, .13820, 3.19134, .24284, .04695,
1369 + .00000, .16814, .26096 /
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 + .23580, .14030, 3.33827, .24930, .05514,
1372 + .00000, .17535, .26779,
1373 + .23969, .14226, 3.47276, .25542, .06298,
1374 + .00000, .18218, .27427,
1375 + .24273, .14378, 3.57650, .26024, .06927,
1376 + .00000, .18756, .27936,
1377 + .24897, .14687, 3.76922, .27022, .08210,
1378 + .00157, .19871, .28988,
1379 + .25411, .14939, 3.90364, .27848, .09269,
1380 + .01487, .20794, .29858,
1381 + .25968, .15209, 4.03854, .28740, .10422,
1382 + .02998, .21794, .30797,
1383 + .26527, .15477, 4.16403, .29624, .11574,
1384 + .04339, .22788, .31727,
1385 + .27016, .15710, 4.26461, .30388, .12577,
1386 + .05510, .23649, .32530 /
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 + .27494, .15934, 4.35438, .31125, .13552,
1389 + .06646, .24482, .33304,
1390 + .27878, .16112, 4.41930, .31705, .14324,
1391 + .07537, .25142, .33914,
1392 + .28327, .16319, 4.48686, .32371, .15217,
1393 + .08567, .25901, .34613,
1394 + .28713, .16494, 4.53881, .32934, .15980,
1395 + .09455, .26545, .35203,
1396 + .29057, .16649, 4.58040, .33428, .16657,
1397 + .10245, .27114, .35722,
1398 + .29477, .16835, 4.62176, .34011, .17462,
1399 + .11178, .27788, .36334,
1400 + .29859, .17003, 4.65303, .34528, .18188,
1401 + .12026, .28391, .36877,
1402 + .30207, .17154, 4.67691, .34991, .18847,
1403 + .12801, .28933, .37363 /
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 + .30539, .17296, 4.69149, .35412, .19455,
1406 + .13512, .29431, .37805,
1407 + .30856, .17431, 4.70151, .35805, .20032,
1408 + .14192, .29898, .38218,
1409 + .31147, .17553, 4.70659, .36156, .20555,
1410 + .14812, .30319, .38586,
1411 + .31411, .17661, 4.70585, .36459, .21016,
1412 + .15358, .30687, .38905,
1413 + .31672, .17768, 4.70330, .36755, .21471,
1414 + .15903, .31047, .39215,
1415 + .31916, .17866, 4.69513, .37015, .21883,
1416 + .16395, .31370, .39488,
1417 + .32147, .17958, 4.68665, .37257, .22272,
1418 + .16863, .31671, .39742,
1419 + .32354, .18040, 4.67403, .37461, .22608,
1420 + .17270, .31929, .39956 /
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 + .32561, .18120, 4.66070, .37661, .22944,
1423 + .17678, .32184, .40166,
1424 + .32757, .18195, 4.64431, .37839, .23254,
1425 + .18056, .32415, .40353,
1426 + .32941, .18265, 4.62718, .37998, .23538,
1427 + .18406, .32625, .40521,
1428 + .33112, .18328, 4.60993, .38142, .23801,
1429 + .18730, .32817, .40673,
1430 + .33277, .18389, 4.58947, .38268, .24045,
1431 + .19032, .32991, .40806 /
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 + .24406, .15077, 1.57748, .16994, .00000,
1434 + .00000, .09542, .19114,
1435 + .25090, .15413, 1.77948, .17574, .00000,
1436 + .00000, .10241, .19758,
1437 + .26049, .15877, 2.05243, .18419, .00000,
1438 + .00000, .11255, .20686,
1439 + .26712, .16193, 2.23024, .19025, .00430,
1440 + .00000, .11981, .21349,
1441 + .27368, .16502, 2.38745, .19644, .01393,
1442 + .00000, .12720, .22022,
1443 + .27912, .16754, 2.51330, .20163, .02154,
1444 + .00000, .13339, .22585,
1445 + .28418, .16987, 2.62682, .20647, .02874,
1446 + .00000, .13918, .23109,
1447 + .28938, .17223, 2.73945, .21146, .03632,
1448 + .00000, .14517, .23648 /
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 + .29373, .17418, 2.82823, .21564, .04243,
1451 + .00000, .15020, .24098,
1452 + .29780, .17599, 2.90761, .21955, .04823,
1453 + .00000, .15490, .24518,
1454 + .30095, .17739, 2.96778, .22259, .05285,
1455 + .00000, .15857, .24844,
1456 + .30737, .18017, 3.07382, .22878, .06214,
1457 + .00121, .16606, .25508,
1458 + .31258, .18240, 3.14080, .23380, .06971,
1459 + .01091, .17215, .26044,
1460 + .31816, .18474, 3.20394, .23910, .07783,
1461 + .02187, .17863, .26608,
1462 + .32368, .18702, 3.25861, .24421, .08583,
1463 + .03144, .18494, .27153,
1464 + .32845, .18895, 3.29858, .24852, .09269,
1465 + .03970, .19030, .27610 /
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 + .33305, .19077, 3.33065, .25256, .09927,
1468 + .04762, .19539, .28039,
1469 + .33669, .19219, 3.35079, .25566, .10442,
1470 + .05376, .19934, .28367,
1471 + .34090, .19379, 3.36767, .25911, .11029,
1472 + .06078, .20379, .28732,
1473 + .34447, .19513, 3.37743, .26194, .11524,
1474 + .06676, .20749, .29031,
1475 + .34762, .19628, 3.38247, .26436, .11958,
1476 + .07204, .21070, .29286,
1477 + .35139, .19762, 3.38158, .26709, .12467,
1478 + .07819, .21440, .29573,
1479 + .35476, .19880, 3.37607, .26942, .12918,
1480 + .08372, .21763, .29818,
1481 + .35780, .19983, 3.36771, .27144, .13323,
1482 + .08872, .22047, .30029 /
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 + .36065, .20075, 3.35369, .27314, .13690,
1485 + .09324, .22298, .30207,
1486 + .36333, .20160, 3.33766, .27468, .14034,
1487 + .09753, .22529, .30367,
1488 + .36574, .20235, 3.32008, .27598, .14341,
1489 + .10139, .22731, .30502,
1490 + .36789, .20299, 3.30036, .27701, .14607,
1491 + .10475, .22900, .30608,
1492 + .36999, .20360, 3.27976, .27797, .14867,
1493 + .10807, .23062, .30707,
1494 + .37192, .20412, 3.25626, .27870, .15097,
1495 + .11103, .23200, .30782,
1496 + .37372, .20460, 3.23380, .27937, .15313,
1497 + .11383, .23327, .30850,
1498 + .37529, .20499, 3.20996, .27981, .15495,
1499 + .11622, .23427, .30894 /
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 + .37684, .20538, 3.18584, .28023, .15675,
1502 + .11861, .23524, .30935,
1503 + .37828, .20571, 3.16039, .28052, .15838,
1504 + .12079, .23606, .30962,
1505 + .37961, .20599, 3.13550, .28072, .15985,
1506 + .12278, .23678, .30981,
1507 + .38083, .20624, 3.11153, .28087, .16119,
1508 + .12461, .23740, .30994,
1509 + .38197, .20645, 3.08570, .28089, .16239,
1510 + .12629, .23790, .30993 /
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 + .29280, .18008, 1.57825, .15831, .00000,
1513 + .00000, .09047, .18610,
1514 + .29995, .18325, 1.72940, .16255, .00000,
1515 + .00000, .09602, .19086,
1516 + .30987, .18754, 1.92892, .16861, .00000,
1517 + .00000, .10392, .19762,
1518 + .31665, .19043, 2.05503, .17291, .00352,
1519 + .00000, .10949, .20236,
1520 + .32329, .19318, 2.16242, .17722, .01136,
1521 + .00000, .11511, .20709,
1522 + .32875, .19541, 2.24657, .18078, .01750,
1523 + .00000, .11975, .21097,
1524 + .33378, .19743, 2.32090, .18405, .02326,
1525 + .00000, .12404, .21453,
1526 + .33891, .19946, 2.39301, .18739, .02927,
1527 + .00000, .12843, .21814 /
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 + .34314, .20111, 2.44831, .19014, .03408,
1530 + .00000, .13207, .22110,
1531 + .34707, .20261, 2.49649, .19268, .03861,
1532 + .00000, .13544, .22381,
1533 + .35011, .20377, 2.53234, .19463, .04219,
1534 + .00000, .13806, .22590,
1535 + .35622, .20601, 2.59122, .19854, .04934,
1536 + .00097, .14332, .23008,
1537 + .36110, .20775, 2.62285, .20163, .05510,
1538 + .00848, .14754, .23335,
1539 + .36626, .20954, 2.64930, .20482, .06122,
1540 + .01693, .15194, .23670,
1541 + .37128, .21122, 2.66868, .20781, .06718,
1542 + .02423, .15616, .23983,
1543 + .37556, .21260, 2.67927, .21023, .07224,
1544 + .03048, .15967, .24235 /
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 + .37962, .21385, 2.68406, .21243, .07705,
1547 + .03641, .16293, .24461,
1548 + .38279, .21480, 2.68342, .21404, .08076,
1549 + .04097, .16541, .24626,
1550 + .38638, .21581, 2.67751, .21576, .08495,
1551 + .04613, .16815, .24800,
1552 + .38937, .21662, 2.66880, .21711, .08845,
1553 + .05051, .17037, .24935,
1554 + .39198, .21729, 2.65823, .21820, .09149,
1555 + .05434, .17225, .25045,
1556 + .39502, .21800, 2.64003, .21933, .09500,
1557 + .05875, .17435, .25155,
1558 + .39770, .21858, 2.61996, .22021, .09809,
1559 + .06268, .17613, .25237,
1560 + .40007, .21906, 2.59924, .22090, .10082,
1561 + .06621, .17763, .25301 /
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 + .40220, .21944, 2.57493, .22138, .10326,
1564 + .06937, .17891, .25340,
1565 + .40416, .21974, 2.54985, .22173, .10551,
1566 + .07233, .18002, .25367,
1567 + .40590, .21997, 2.52473, .22195, .10750,
1568 + .07498, .18095, .25380,
1569 + .40740, .22011, 2.49919, .22201, .10920,
1570 + .07726, .18166, .25377,
1571 + .40884, .22023, 2.47332, .22203, .11084,
1572 + .07950, .18233, .25370,
1573 + .41008, .22027, 2.44586, .22190, .11226,
1574 + .08147, .18281, .25346,
1575 + .41123, .22030, 2.41996, .22176, .11358,
1576 + .08332, .18325, .25320,
1577 + .41218, .22026, 2.39389, .22149, .11466,
1578 + .08488, .18352, .25282 /
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 + .41311, .22020, 2.36779, .22120, .11573,
1581 + .08643, .18376, .25241,
1582 + .41393, .22009, 2.34115, .22082, .11666,
1583 + .08783, .18390, .25192,
1584 + .41464, .21997, 2.31555, .22041, .11749,
1585 + .08909, .18398, .25140,
1586 + .41529, .21984, 2.29121, .22000, .11824,
1587 + .09024, .18402, .25087,
1588 + .41583, .21965, 2.26568, .21949, .11889,
1589 + .09128, .18396, .25023 /
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 + .37965, .22768, 1.44969, .13699, .00000,
1592 + .00000, .08138, .17552,
1593 + .38647, .22998, 1.53813, .13913, .00000,
1594 + .00000, .08488, .17781,
1595 + .39573, .23294, 1.65047, .14209, .00000,
1596 + .00000, .08978, .18093,
1597 + .40187, .23483, 1.71754, .14415, .00251,
1598 + .00000, .09317, .18302,
1599 + .40775, .23653, 1.77004, .14615, .00806,
1600 + .00000, .09650, .18505,
1601 + .41246, .23782, 1.80925, .14776, .01235,
1602 + .00000, .09920, .18662,
1603 + .41671, .23894, 1.84227, .14919, .01633,
1604 + .00000, .10166, .18800,
1605 + .42097, .24001, 1.87257, .15060, .02044,
1606 + .00000, .10412, .18933 /
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 + .42441, .24080, 1.89400, .15171, .02368,
1609 + .00000, .10612, .19035,
1610 + .42752, .24148, 1.91117, .15269, .02671,
1611 + .00000, .10794, .19124,
1612 + .42989, .24196, 1.92320, .15343, .02909,
1613 + .00000, .10933, .19190,
1614 + .43448, .24282, 1.93727, .15484, .03378,
1615 + .00069, .11205, .19308,
1616 + .43800, .24335, 1.93696, .15586, .03749,
1617 + .00564, .11416, .19389,
1618 + .44157, .24378, 1.93114, .15680, .04138,
1619 + .01119, .11629, .19458,
1620 + .44488, .24406, 1.92045, .15756, .04510,
1621 + .01592, .11822, .19504,
1622 + .44755, .24416, 1.90689, .15807, .04821,
1623 + .01991, .11975, .19526 /
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 + .44994, .24413, 1.89006, .15841, .05111,
1626 + .02365, .12110, .19529,
1627 + .45169, .24401, 1.87364, .15857, .05331,
1628 + .02649, .12206, .19517,
1629 + .45353, .24374, 1.85103, .15860, .05575,
1630 + .02966, .12303, .19487,
1631 + .45494, .24342, 1.82939, .15852, .05776,
1632 + .03231, .12376, .19449,
1633 + .45608, .24307, 1.80839, .15837, .05947,
1634 + .03460, .12432, .19404,
1635 + .45725, .24248, 1.77942, .15801, .06140,
1636 + .03720, .12485, .19330,
1637 + .45813, .24185, 1.75100, .15758, .06306,
1638 + .03949, .12522, .19249,
1639 + .45880, .24122, 1.72377, .15710, .06450,
1640 + .04151, .12547, .19166 /
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 + .45922, .24049, 1.69491, .15649, .06574,
1643 + .04328, .12556, .19068,
1644 + .45951, .23971, 1.66640, .15583, .06686,
1645 + .04493, .12558, .18967,
1646 + .45968, .23892, 1.63904, .15514, .06783,
1647 + .04637, .12552, .18865,
1648 + .45966, .23812, 1.61256, .15441, .06862,
1649 + .04759, .12536, .18760,
1650 + .45959, .23731, 1.58621, .15367, .06937,
1651 + .04877, .12518, .18653,
1652 + .45934, .23643, 1.55953, .15285, .06998,
1653 + .04979, .12489, .18538,
1654 + .45908, .23560, 1.53463, .15206, .07054,
1655 + .05073, .12461, .18430,
1656 + .45867, .23475, 1.51045, .15125, .07097,
1657 + .05150, .12425, .18319 /
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 + .45824, .23389, 1.48648, .15042, .07139,
1660 + .05227, .12388, .18207,
1661 + .45771, .23300, 1.46257, .14956, .07172,
1662 + .05293, .12347, .18091,
1663 + .45716, .23213, 1.43992, .14872, .07200,
1664 + .05352, .12304, .17978,
1665 + .45659, .23130, 1.41863, .14791, .07224,
1666 + .05405, .12262, .17871,
1667 + .45591, .23041, 1.39684, .14704, .07241,
1668 + .05450, .12213, .17757 /
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 + .45489, .26380, 1.26402, .11770, .00000,
1671 + .00000, .07277, .16328,
1672 + .46053, .26487, 1.32047, .11862, .00000,
1673 + .00000, .07500, .16387,
1674 + .46785, .26607, 1.38969, .11985, .00000,
1675 + .00000, .07804, .16458,
1676 + .47256, .26667, 1.42871, .12068, .00190,
1677 + .00000, .08011, .16499,
1678 + .47686, .26706, 1.45610, .12146, .00607,
1679 + .00000, .08213, .16531,
1680 + .48017, .26721, 1.47518, .12203, .00927,
1681 + .00000, .08372, .16548,
1682 + .48307, .26724, 1.49005, .12250, .01221,
1683 + .00000, .08513, .16554,
1684 + .48586, .26717, 1.50236, .12293, .01523,
1685 + .00000, .08652, .16553 /
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 + .48799, .26699, 1.50946, .12321, .01759,
1688 + .00000, .08762, .16542,
1689 + .48982, .26674, 1.51379, .12344, .01977,
1690 + .00000, .08860, .16525,
1691 + .49117, .26649, 1.51609, .12359, .02148,
1692 + .00000, .08933, .16509,
1693 + .49358, .26580, 1.51263, .12378, .02481,
1694 + .00052, .09070, .16462,
1695 + .49520, .26504, 1.50076, .12383, .02741,
1696 + .00405, .09172, .16408,
1697 + .49664, .26404, 1.48384, .12374, .03011,
1698 + .00801, .09268, .16333,
1699 + .49771, .26285, 1.46332, .12349, .03265,
1700 + .01134, .09348, .16240,
1701 + .49833, .26166, 1.44231, .12315, .03474,
1702 + .01411, .09403, .16143 /
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 + .49867, .26035, 1.41925, .12271, .03667,
1705 + .01669, .09444, .16035,
1706 + .49871, .25917, 1.39866, .12225, .03810,
1707 + .01862, .09468, .15935,
1708 + .49848, .25766, 1.37218, .12159, .03967,
1709 + .02075, .09483, .15805,
1710 + .49807, .25626, 1.34798, .12094, .04093,
1711 + .02252, .09487, .15684,
1712 + .49755, .25493, 1.32530, .12030, .04200,
1713 + .02403, .09484, .15568,
1714 + .49660, .25314, 1.29526, .11938, .04317,
1715 + .02572, .09467, .15410,
1716 + .49553, .25140, 1.26664, .11846, .04415,
1717 + .02719, .09443, .15257,
1718 + .49439, .24974, 1.23980, .11755, .04499,
1719 + .02847, .09415, .15111 /
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 + .49300, .24799, 1.21217, .11657, .04567,
1722 + .02957, .09375, .14956,
1723 + .49154, .24626, 1.18532, .11557, .04628,
1724 + .03058, .09332, .14802,
1725 + .49004, .24460, 1.15997, .11460, .04679,
1726 + .03145, .09287, .14654,
1727 + .48848, .24298, 1.13587, .11364, .04718,
1728 + .03217, .09238, .14509,
1729 + .48687, .24136, 1.11211, .11268, .04754,
1730 + .03286, .09187, .14364,
1731 + .48512, .23971, 1.08845, .11168, .04780,
1732 + .03344, .09131, .14218,
1733 + .48345, .23816, 1.06653, .11073, .04804,
1734 + .03397, .09077, .14080,
1735 + .48173, .23663, 1.04557, .10979, .04820,
1736 + .03439, .09021, .13944 /
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 + .47999, .23510, 1.02492, .10886, .04834,
1739 + .03480, .08964, .13809,
1740 + .47817, .23356, 1.00456, .10790, .04843,
1741 + .03514, .08904, .13674,
1742 + .47640, .23209, .98541, .10698, .04850,
1743 + .03544, .08846, .13544,
1744 + .47469, .23069, .96753, .10611, .04854,
1745 + .03571, .08789, .13421,
1746 + .47287, .22925, .94942, .10520, .04853,
1747 + .03592, .08729, .13294 /
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 + .51966, .29071, 1.08639, .10059, .00000,
1750 + .00000, .06456, .14952,
1751 + .52349, .29042, 1.12685, .10082, .00000,
1752 + .00000, .06597, .14900,
1753 + .52812, .28967, 1.17464, .10111, .00000,
1754 + .00000, .06786, .14810,
1755 + .53086, .28888, 1.19997, .10127, .00150,
1756 + .00000, .06911, .14743,
1757 + .53310, .28787, 1.21550, .10138, .00478,
1758 + .00000, .07030, .14668,
1759 + .53461, .28685, 1.22505, .10142, .00728,
1760 + .00000, .07122, .14596,
1761 + .53578, .28578, 1.23139, .10139, .00956,
1762 + .00000, .07201, .14521,
1763 + .53675, .28455, 1.23527, .10130, .01188,
1764 + .00000, .07277, .14437 /
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 + .53729, .28338, 1.23571, .10117, .01368,
1767 + .00000, .07333, .14358,
1768 + .53760, .28219, 1.23409, .10100, .01534,
1769 + .00000, .07380, .14279,
1770 + .53775, .28123, 1.23193, .10085, .01663,
1771 + .00000, .07414, .14214,
1772 + .53763, .27903, 1.22081, .10044, .01912,
1773 + .00041, .07476, .14069,
1774 + .53710, .27701, 1.20439, .10000, .02104,
1775 + .00306, .07515, .13938,
1776 + .53614, .27466, 1.18335, .09942, .02300,
1777 + .00603, .07543, .13785,
1778 + .53476, .27210, 1.15943, .09871, .02483,
1779 + .00849, .07559, .13615,
1780 + .53320, .26970, 1.13612, .09799, .02631,
1781 + .01052, .07562, .13454 /
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 + .53135, .26721, 1.11142, .09718, .02765,
1784 + .01239, .07554, .13286,
1785 + .52960, .26509, 1.09003, .09646, .02864,
1786 + .01377, .07538, .13142,
1787 + .52721, .26246, 1.06321, .09552, .02969,
1788 + .01529, .07510, .12964,
1789 + .52494, .26009, 1.03916, .09464, .03052,
1790 + .01653, .07479, .12803,
1791 + .52275, .25791, 1.01696, .09381, .03122,
1792 + .01758, .07447, .12653,
1793 + .51970, .25506, .98814, .09269, .03195,
1794 + .01873, .07397, .12459,
1795 + .51667, .25237, .96111, .09160, .03255,
1796 + .01973, .07343, .12274,
1797 + .51374, .24985, .93606, .09057, .03305,
1798 + .02058, .07290, .12101 /
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 + .51061, .24726, .91069, .08948, .03343,
1801 + .02130, .07229, .11924,
1802 + .50747, .24473, .88628, .08840, .03376,
1803 + .02196, .07167, .11752,
1804 + .50440, .24234, .86347, .08737, .03402,
1805 + .02251, .07105, .11588,
1806 + .50139, .24005, .84201, .08637, .03420,
1807 + .02295, .07043, .11431,
1808 + .49836, .23777, .82099, .08538, .03436,
1809 + .02337, .06981, .11276,
1810 + .49525, .23548, .80030, .08436, .03445,
1811 + .02372, .06915, .11121,
1812 + .49231, .23333, .78122, .08340, .03453,
1813 + .02403, .06853, .10977,
1814 + .48937, .23128, .76317, .08249, .03455,
1815 + .02426, .06790, .10838 /
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 + .48643, .22924, .74546, .08157, .03457,
1818 + .02449, .06728, .10699,
1819 + .48345, .22721, .72815, .08065, .03455,
1820 + .02467, .06664, .10562,
1821 + .48060, .22527, .71196, .07977, .03451,
1822 + .02482, .06603, .10431,
1823 + .47788, .22343, .69692, .07894, .03446,
1824 + .02495, .06544, .10309,
1825 + .47505, .22155, .68179, .07808, .03438,
1826 + .02504, .06483, .10185 /
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 + .58672, .31364, .91010, .08230, .00000,
1829 + .00000, .05498, .13107,
1830 + .58775, .31165, .94077, .08216, .00000,
1831 + .00000, .05577, .12967,
1832 + .58831, .30842, .97495, .08185, .00000,
1833 + .00000, .05678, .12762,
1834 + .58815, .30594, .99146, .08161, .00117,
1835 + .00000, .05742, .12614,
1836 + .58742, .30321, .99938, .08132, .00372,
1837 + .00000, .05800, .12461,
1838 + .58638, .30077, 1.00267, .08103, .00564,
1839 + .00000, .05841, .12325,
1840 + .58514, .29837, 1.00332, .08071, .00737,
1841 + .00000, .05873, .12193,
1842 + .58360, .29576, 1.00155, .08031, .00912,
1843 + .00000, .05901, .12052 /
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 + .58199, .29345, .99749, .07992, .01046,
1846 + .00000, .05918, .11927,
1847 + .58024, .29117, .99188, .07952, .01169,
1848 + .00000, .05930, .11805,
1849 + .57879, .28937, .98673, .07921, .01263,
1850 + .00000, .05936, .11707,
1851 + .57532, .28545, .97061, .07845, .01443,
1852 + .00032, .05940, .11501,
1853 + .57199, .28203, .95150, .07775, .01580,
1854 + .00225, .05934, .11322,
1855 + .56797, .27816, .92820, .07690, .01717,
1856 + .00441, .05919, .11119,
1857 + .56349, .27409, .90262, .07595, .01843,
1858 + .00617, .05892, .10905,
1859 + .55917, .27039, .87845, .07503, .01942,
1860 + .00761, .05859, .10708 /
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 + .55462, .26664, .85345, .07406, .02030,
1863 + .00891, .05817, .10510,
1864 + .55071, .26350, .83223, .07321, .02094,
1865 + .00987, .05778, .10346,
1866 + .54574, .25970, .80616, .07216, .02159,
1867 + .01090, .05724, .10144,
1868 + .54125, .25634, .78315, .07121, .02210,
1869 + .01173, .05672, .09966,
1870 + .53708, .25326, .76219, .07031, .02251,
1871 + .01243, .05622, .09805,
1872 + .53157, .24936, .73546, .06915, .02292,
1873 + .01318, .05554, .09597,
1874 + .52630, .24571, .71073, .06805, .02324,
1875 + .01381, .05486, .09404,
1876 + .52134, .24233, .68807, .06701, .02350,
1877 + .01435, .05420, .09225 /
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 + .51622, .23892, .66545, .06595, .02367,
1880 + .01478, .05350, .09046,
1881 + .51120, .23562, .64392, .06490, .02380,
1882 + .01517, .05280, .08873,
1883 + .50643, .23250, .62400, .06390, .02388,
1884 + .01549, .05212, .08713,
1885 + .50182, .22957, .60548, .06295, .02392,
1886 + .01574, .05147, .08562,
1887 + .49722, .22669, .58747, .06202, .02395,
1888 + .01597, .05081, .08412,
1889 + .49259, .22383, .56994, .06109, .02393,
1890 + .01615, .05015, .08263,
1891 + .48826, .22116, .55386, .06022, .02391,
1892 + .01631, .04953, .08125,
1893 + .48406, .21861, .53880, .05938, .02385,
1894 + .01642, .04892, .07994 /
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 + .47987, .21609, .52410, .05855, .02378,
1897 + .01652, .04831, .07865,
1898 + .47569, .21360, .50986, .05772, .02369,
1899 + .01659, .04770, .07738,
1900 + .47170, .21124, .49663, .05693, .02360,
1901 + .01664, .04712, .07619,
1902 + .46793, .20903, .48440, .05620, .02351,
1903 + .01668, .04657, .07507,
1904 + .46405, .20679, .47220, .05546, .02339,
1905 + .01670, .04600, .07394 /
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 + .63907, .32670, .79046, .06724, .00000,
1908 + .00000, .04623, .11225,
1909 + .63699, .32303, .81484, .06694, .00000,
1910 + .00000, .04668, .11045,
1911 + .63308, .31749, .83974, .06641, .00000,
1912 + .00000, .04720, .10781,
1913 + .62978, .31344, .85002, .06601, .00094,
1914 + .00000, .04750, .10595,
1915 + .62589, .30914, .85233, .06554, .00299,
1916 + .00000, .04772, .10406,
1917 + .62220, .30539, .85094, .06509, .00451,
1918 + .00000, .04786, .10243,
1919 + .61848, .30179, .84733, .06462, .00587,
1920 + .00000, .04792, .10088,
1921 + .61436, .29797, .84132, .06410, .00722,
1922 + .00000, .04792, .09924 /
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 + .61055, .29464, .83389, .06363, .00825,
1925 + .00000, .04788, .09779,
1926 + .60675, .29142, .82529, .06314, .00917,
1927 + .00000, .04779, .09640,
1928 + .60371, .28887, .81793, .06274, .00988,
1929 + .00000, .04771, .09531,
1930 + .59690, .28350, .79813, .06187, .01122,
1931 + .00025, .04745, .09301,
1932 + .59087, .27887, .77708, .06105, .01221,
1933 + .00170, .04715, .09108,
1934 + .58392, .27374, .75224, .06012, .01319,
1935 + .00332, .04677, .08892,
1936 + .57650, .26844, .72566, .05909, .01407,
1937 + .00462, .04628, .08667,
1938 + .56963, .26367, .70112, .05812, .01474,
1939 + .00566, .04578, .08466 /
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 + .56259, .25890, .67622, .05713, .01533,
1942 + .00660, .04522, .08265,
1943 + .55666, .25499, .65546, .05630, .01574,
1944 + .00727, .04472, .08098,
1945 + .54936, .25028, .63037, .05525, .01615,
1946 + .00799, .04409, .07898,
1947 + .54289, .24615, .60854, .05431, .01645,
1948 + .00856, .04351, .07724,
1949 + .53696, .24241, .58890, .05344, .01668,
1950 + .00903, .04295, .07568,
1951 + .52928, .23772, .56420, .05235, .01690,
1952 + .00953, .04221, .07369,
1953 + .52206, .23336, .54164, .05131, .01706,
1954 + .00994, .04150, .07187,
1955 + .51535, .22935, .52120, .05034, .01716,
1956 + .01028, .04082, .07020 /
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 + .50854, .22535, .50108, .04936, .01721,
1959 + .01055, .04012, .06854,
1960 + .50192, .22151, .48210, .04842, .01723,
1961 + .01078, .03944, .06694,
1962 + .49570, .21792, .46470, .04752, .01723,
1963 + .01097, .03879, .06547,
1964 + .48978, .21456, .44869, .04667, .01720,
1965 + .01110, .03817, .06409,
1966 + .48392, .21126, .43322, .04582, .01716,
1967 + .01123, .03756, .06275,
1968 + .47809, .20800, .41833, .04500, .01708,
1969 + .01131, .03694, .06143,
1970 + .47265, .20497, .40475, .04423, .01701,
1971 + .01139, .03636, .06021,
1972 + .46742, .20213, .39215, .04350, .01691,
1973 + .01143, .03581, .05906 /
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 + .46222, .19932, .37990, .04279, .01682,
1976 + .01146, .03525, .05792,
1977 + .45708, .19656, .36813, .04208, .01671,
1978 + .01148, .03471, .05681,
1979 + .45222, .19395, .35725, .04141, .01660,
1980 + .01148, .03419, .05577,
1981 + .44765, .19150, .34725, .04078, .01648,
1982 + .01148, .03370, .05481,
1983 + .44299, .18904, .33735, .04014, .01636,
1984 + .01146, .03320, .05384 /
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 + .67747, .33165, .71676, .05502, .00000,
1987 + .00000, .03843, .09399,
1988 + .67216, .32648, .73463, .05466, .00000,
1989 + .00000, .03865, .09206,
1990 + .66369, .31887, .75009, .05405, .00000,
1991 + .00000, .03888, .08927,
1992 + .65722, .31343, .75396, .05360, .00077,
1993 + .00000, .03897, .08731,
1994 + .65018, .30777, .75047, .05306, .00244,
1995 + .00000, .03900, .08533,
1996 + .64385, .30293, .74433, .05258, .00366,
1997 + .00000, .03895, .08361,
1998 + .63768, .29832, .73650, .05208, .00474,
1999 + .00000, .03886, .08199,
2000 + .63106, .29348, .72638, .05151, .00580,
2001 + .00000, .03871, .08031 /
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 + .62519, .28928, .71575, .05098, .00660,
2004 + .00000, .03853, .07889,
2005 + .61943, .28528, .70438, .05046, .00731,
2006 + .00000, .03834, .07751,
2007 + .61485, .28216, .69499, .05005, .00785,
2008 + .00000, .03817, .07641,
2009 + .60496, .27560, .67185, .04914, .00884,
2010 + .00020, .03777, .07413,
2011 + .59641, .27004, .64906, .04833, .00957,
2012 + .00131, .03736, .07223,
2013 + .58678, .26392, .62290, .04739, .01028,
2014 + .00253, .03685, .07013,
2015 + .57670, .25766, .59559, .04638, .01089,
2016 + .00351, .03627, .06799,
2017 + .56753, .25210, .57092, .04546, .01135,
2018 + .00428, .03570, .06609 /
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 + .55830, .24659, .54634, .04450, .01174,
2021 + .00496, .03510, .06420,
2022 + .55062, .24209, .52623, .04371, .01200,
2023 + .00544, .03458, .06265,
2024 + .54133, .23671, .50226, .04272, .01224,
2025 + .00594, .03393, .06082,
2026 + .53316, .23206, .48169, .04185, .01242,
2027 + .00634, .03334, .05923,
2028 + .52571, .22786, .46339, .04107, .01254,
2029 + .00666, .03278, .05781,
2030 + .51627, .22260, .44071, .04005, .01264,
2031 + .00700, .03207, .05604,
2032 + .50747, .21776, .42026, .03910, .01269,
2033 + .00726, .03139, .05442,
2034 + .49933, .21334, .40193, .03824, .01272,
2035 + .00748, .03076, .05293 /
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 + .49116, .20897, .38410, .03737, .01270,
2038 + .00764, .03011, .05148,
2039 + .48330, .20478, .36744, .03653, .01267,
2040 + .00778, .02949, .05009,
2041 + .47596, .20087, .35233, .03573, .01262,
2042 + .00788, .02891, .04882,
2043 + .46901, .19727, .33854, .03499, .01255,
2044 + .00796, .02835, .04763,
2045 + .46215, .19374, .32529, .03427, .01247,
2046 + .00802, .02780, .04647,
2047 + .45540, .19027, .31267, .03356, .01238,
2048 + .00805, .02726, .04534,
2049 + .44913, .18706, .30122, .03290, .01228,
2050 + .00808, .02675, .04431,
2051 + .44315, .18404, .29069, .03228, .01218,
2052 + .00809, .02627, .04334 /
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 + .43723, .18107, .28050, .03166, .01208,
2055 + .00809, .02579, .04238,
2056 + .43141, .17816, .27077, .03106, .01196,
2057 + .00808, .02532, .04146,
2058 + .42592, .17543, .26183, .03050, .01185,
2059 + .00806, .02488, .04059,
2060 + .42077, .17287, .25365, .02998, .01174,
2061 + .00804, .02447, .03979,
2062 + .41557, .17031, .24562, .02944, .01162,
2063 + .00801, .02404, .03899 /
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 + .70292, .32990, .67361, .04508, .00000,
2066 + .00000, .03153, .07703,
2067 + .69443, .32342, .68365, .04470, .00000,
2068 + .00000, .03165, .07517,
2069 + .68150, .31405, .68823, .04409, .00000,
2070 + .00000, .03170, .07246,
2071 + .67199, .30744, .68504, .04361, .00064,
2072 + .00000, .03168, .07057,
2073 + .66193, .30068, .67520, .04305, .00200,
2074 + .00000, .03159, .06867,
2075 + .65318, .29487, .66414, .04253, .00298,
2076 + .00000, .03145, .06707,
2077 + .64475, .28944, .65204, .04201, .00384,
2078 + .00000, .03127, .06554,
2079 + .63579, .28380, .63785, .04145, .00468,
2080 + .00000, .03106, .06394 /
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 + .62797, .27896, .62417, .04094, .00530,
2083 + .00000, .03082, .06258,
2084 + .62044, .27434, .61024, .04041, .00584,
2085 + .00000, .03058, .06129,
2086 + .61452, .27074, .59903, .03999, .00625,
2087 + .00000, .03038, .06029,
2088 + .60187, .26327, .57300, .03910, .00699,
2089 + .00016, .02989, .05820,
2090 + .59108, .25700, .54876, .03832, .00753,
2091 + .00101, .02945, .05646,
2092 + .57912, .25014, .52169, .03741, .00803,
2093 + .00194, .02890, .05457,
2094 + .56677, .24320, .49406, .03645, .00845,
2095 + .00268, .02830, .05265,
2096 + .55566, .23706, .46960, .03558, .00876,
2097 + .00324, .02774, .05094 /
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 + .54457, .23103, .44568, .03471, .00901,
2100 + .00374, .02716, .04925,
2101 + .53546, .22613, .42642, .03398, .00917,
2102 + .00409, .02666, .04790,
2103 + .52450, .22032, .40383, .03309, .00931,
2104 + .00444, .02604, .04629,
2105 + .51495, .21532, .38468, .03230, .00939,
2106 + .00472, .02549, .04492,
2107 + .50632, .21084, .36779, .03159, .00945,
2108 + .00494, .02498, .04369,
2109 + .49546, .20525, .34719, .03068, .00948,
2110 + .00516, .02434, .04217,
2111 + .48541, .20014, .32884, .02985, .00947,
2112 + .00533, .02373, .04078,
2113 + .47617, .19550, .31256, .02909, .00945,
2114 + .00547, .02316, .03952 /
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 + .46699, .19093, .29689, .02832, .00940,
2117 + .00556, .02259, .03829,
2118 + .45818, .18657, .28239, .02759, .00934,
2119 + .00564, .02205, .03713,
2120 + .44998, .18254, .26936, .02692, .00926,
2121 + .00569, .02154, .03606,
2122 + .44230, .17880, .25757, .02629, .00918,
2123 + .00573, .02106, .03508,
2124 + .43475, .17515, .24632, .02568, .00910,
2125 + .00575, .02059, .03411,
2126 + .42738, .17160, .23570, .02506, .00900,
2127 + .00576, .02012, .03320,
2128 + .42053, .16832, .22611, .02449, .00890,
2129 + .00576, .01969, .03237,
2130 + .41403, .16526, .21738, .02397, .00880,
2131 + .00575, .01928, .03157 /
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 + .40762, .16225, .20897, .02347, .00870,
2134 + .00574, .01888, .03078,
2135 + .40134, .15931, .20099, .02298, .00860,
2136 + .00571, .01849, .03003,
2137 + .39545, .15655, .19367, .02251, .00849,
2138 + .00569, .01812, .02934,
2139 + .38994, .15399, .18703, .02208, .00839,
2140 + .00566, .01778, .02869,
2141 + .38438, .15143, .18056, .02163, .00829,
2142 + .00562, .01744, .02804 /
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 + .71644, .32265, .64661, .03693, .00000,
2145 + .00000, .02555, .06187,
2146 + .70487, .31515, .64776, .03658, .00000,
2147 + .00000, .02562, .06014,
2148 + .68782, .30430, .64065, .03593, .00000,
2149 + .00000, .02558, .05772,
2150 + .67550, .29676, .63012, .03544, .00052,
2151 + .00000, .02548, .05601,
2152 + .66276, .28905, .61391, .03486, .00163,
2153 + .00000, .02535, .05430,
2154 + .65173, .28257, .59808, .03435, .00242,
2155 + .00000, .02516, .05285,
2156 + .64126, .27652, .58196, .03385, .00310,
2157 + .00000, .02494, .05148,
2158 + .63027, .27025, .56411, .03329, .00375,
2159 + .00000, .02469, .05006 /
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 + .62077, .26490, .54782, .03279, .00423,
2162 + .00000, .02445, .04885,
2163 + .61166, .25985, .53177, .03229, .00464,
2164 + .00000, .02418, .04771,
2165 + .60455, .25593, .51910, .03189, .00495,
2166 + .00000, .02395, .04683,
2167 + .58954, .24780, .49093, .03105, .00550,
2168 + .00013, .02348, .04498,
2169 + .57686, .24106, .46581, .03031, .00589,
2170 + .00078, .02303, .04346,
2171 + .56292, .23374, .43846, .02948, .00624,
2172 + .00149, .02251, .04181,
2173 + .54868, .22637, .41112, .02861, .00654,
2174 + .00204, .02193, .04014,
2175 + .53601, .21987, .38738, .02780, .00674,
2176 + .00245, .02141, .03869 /
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 + .52348, .21351, .36455, .02699, .00689,
2179 + .00282, .02087, .03728,
2180 + .51322, .20840, .34640, .02633, .00698,
2181 + .00306, .02042, .03613,
2182 + .50098, .20236, .32540, .02554, .00705,
2183 + .00331, .01986, .03478,
2184 + .49039, .19718, .30785, .02485, .00708,
2185 + .00350, .01937, .03362,
2186 + .48087, .19255, .29258, .02422, .00710,
2187 + .00365, .01893, .03259,
2188 + .46892, .18685, .27415, .02346, .00708,
2189 + .00380, .01836, .03130,
2190 + .45796, .18165, .25791, .02275, .00705,
2191 + .00391, .01783, .03016,
2192 + .44797, .17691, .24363, .02209, .00700,
2193 + .00399, .01733, .02916 /
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 + .43808, .17227, .23009, .02143, .00694,
2196 + .00405, .01685, .02816,
2197 + .42862, .16789, .21764, .02081, .00686,
2198 + .00409, .01638, .02722,
2199 + .41984, .16387, .20653, .02024, .00679,
2200 + .00411, .01595, .02636,
2201 + .41169, .16013, .19656, .01971, .00671,
2202 + .00412, .01555, .02556,
2203 + .40372, .15648, .18711, .01919, .00662,
2204 + .00413, .01518, .02478,
2205 + .39592, .15297, .17826, .01869, .00653,
2206 + .00412, .01479, .02405,
2207 + .38870, .14973, .17031, .01823, .00644,
2208 + .00411, .01443, .02337,
2209 + .38193, .14671, .16314, .01780, .00635,
2210 + .00409, .01409, .02275 /
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 + .37526, .14374, .15626, .01737, .00626,
2213 + .00407, .01376, .02215,
2214 + .36873, .14085, .14979, .01696, .00617,
2215 + .00404, .01344, .02155,
2216 + .36261, .13816, .14389, .01659, .00608,
2217 + .00401, .01315, .02099,
2218 + .35691, .13566, .13854, .01624, .00599,
2219 + .00399, .01288, .02048,
2220 + .35119, .13315, .13334, .01588, .00591,
2221 + .00395, .01260, .01998 /
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 + .71907, .31104, .62471, .03020, .00000,
2224 + .00000, .02048, .04874,
2225 + .70474, .30269, .61674, .02985, .00000,
2226 + .00000, .02050, .04722,
2227 + .68385, .29082, .59811, .02924, .00000,
2228 + .00000, .02039, .04507,
2229 + .66906, .28256, .58068, .02874, .00042,
2230 + .00000, .02025, .04361,
2231 + .65386, .27425, .55874, .02821, .00131,
2232 + .00000, .02006, .04213,
2233 + .64090, .26727, .53876, .02772, .00194,
2234 + .00000, .01986, .04086,
2235 + .62868, .26077, .51931, .02724, .00247,
2236 + .00000, .01963, .03968,
2237 + .61594, .25408, .49858, .02671, .00298,
2238 + .00000, .01937, .03847 /
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 + .60500, .24842, .48032, .02625, .00334,
2241 + .00000, .01912, .03743,
2242 + .59460, .24308, .46279, .02577, .00366,
2243 + .00000, .01887, .03646,
2244 + .58651, .23894, .44919, .02539, .00389,
2245 + .00000, .01865, .03572,
2246 + .56958, .23041, .41993, .02460, .00429,
2247 + .00010, .01818, .03418,
2248 + .55541, .22339, .39469, .02394, .00457,
2249 + .00059, .01778, .03287,
2250 + .53991, .21581, .36775, .02318, .00482,
2251 + .00113, .01731, .03149,
2252 + .52420, .20822, .34136, .02240, .00501,
2253 + .00154, .01679, .03011,
2254 + .51033, .20158, .31884, .02169, .00514,
2255 + .00185, .01631, .02890 /
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 + .49670, .19512, .29749, .02097, .00523,
2258 + .00211, .01583, .02774,
2259 + .48561, .18993, .28078, .02041, .00527,
2260 + .00228, .01544, .02679,
2261 + .47246, .18382, .26173, .01971, .00530,
2262 + .00246, .01496, .02569,
2263 + .46114, .17861, .24597, .01912, .00531,
2264 + .00259, .01454, .02476,
2265 + .45100, .17399, .23237, .01858, .00530,
2266 + .00269, .01416, .02393,
2267 + .43836, .16829, .21618, .01792, .00526,
2268 + .00278, .01368, .02292,
2269 + .42684, .16311, .20204, .01731, .00521,
2270 + .00285, .01324, .02200,
2271 + .41637, .15843, .18970, .01674, .00516,
2272 + .00290, .01283, .02119 /
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 + .40605, .15389, .17815, .01620, .00509,
2275 + .00293, .01243, .02040,
2276 + .39622, .14959, .16761, .01569, .00502,
2277 + .00295, .01205, .01965,
2278 + .38715, .14562, .15827, .01523, .00495,
2279 + .00296, .01171, .01895,
2280 + .37877, .14198, .14998, .01478, .00487,
2281 + .00296, .01139, .01834,
2282 + .37059, .13843, .14215, .01435, .00480,
2283 + .00295, .01106, .01775,
2284 + .36261, .13503, .13490, .01395, .00472,
2285 + .00294, .01075, .01717,
2286 + .35524, .13190, .12841, .01358, .00464,
2287 + .00293, .01047, .01663,
2288 + .34837, .12898, .12257, .01321, .00456,
2289 + .00290, .01020, .01617 /
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 + .34162, .12612, .11700, .01285, .00449,
2292 + .00288, .00993, .01571,
2293 + .33504, .12335, .11178, .01252, .00441,
2294 + .00286, .00968, .01526,
2295 + .32888, .12078, .10706, .01222, .00434,
2296 + .00283, .00945, .01483,
2297 + .32316, .11839, .10279, .01194, .00427,
2298 + .00280, .00923, .01443,
2299 + .31741, .11602, .09866, .01165, .00420,
2300 + .00277, .00902, .01405 /
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 + .71154, .29640, .60066, .02494, .00000,
2303 + .00000, .01602, .03742,
2304 + .69483, .28741, .58411, .02454, .00000,
2305 + .00000, .01601, .03619,
2306 + .67079, .27468, .55518, .02387, .00000,
2307 + .00000, .01590, .03444,
2308 + .65389, .26594, .53187, .02338, .00034,
2309 + .00000, .01577, .03321,
2310 + .63667, .25721, .50529, .02287, .00105,
2311 + .00000, .01558, .03197,
2312 + .62215, .24988, .48222, .02237, .00154,
2313 + .00000, .01538, .03095,
2314 + .60851, .24311, .46044, .02189, .00196,
2315 + .00000, .01518, .02999,
2316 + .59436, .23618, .43782, .02139, .00234,
2317 + .00000, .01494, .02898 /
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 + .58233, .23031, .41839, .02094, .00262,
2320 + .00000, .01471, .02814,
2321 + .57090, .22483, .40010, .02051, .00285,
2322 + .00000, .01448, .02734,
2323 + .56202, .22061, .38609, .02019, .00302,
2324 + .00000, .01429, .02671,
2325 + .54360, .21194, .35675, .01947, .00332,
2326 + .00008, .01388, .02544,
2327 + .52832, .20479, .33222, .01884, .00351,
2328 + .00045, .01351, .02443,
2329 + .51171, .19712, .30647, .01816, .00368,
2330 + .00086, .01310, .02331,
2331 + .49496, .18950, .28165, .01748, .00381,
2332 + .00116, .01266, .02218,
2333 + .48026, .18286, .26083, .01686, .00388,
2334 + .00138, .01227, .02120 /
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 + .46591, .17643, .24141, .01623, .00393,
2337 + .00157, .01187, .02027,
2338 + .45431, .17127, .22634, .01571, .00395,
2339 + .00169, .01152, .01958,
2340 + .44059, .16526, .20936, .01513, .00395,
2341 + .00181, .01112, .01869,
2342 + .42883, .16014, .19547, .01463, .00394,
2343 + .00190, .01077, .01794,
2344 + .41836, .15559, .18361, .01418, .00392,
2345 + .00197, .01044, .01732,
2346 + .40538, .15003, .16960, .01360, .00388,
2347 + .00203, .01007, .01652,
2348 + .39356, .14502, .15751, .01309, .00382,
2349 + .00207, .00971, .01581,
2350 + .38284, .14051, .14707, .01264, .00377,
2351 + .00210, .00936, .01517 /
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 + .37237, .13612, .13738, .01220, .00371,
2354 + .00211, .00905, .01454,
2355 + .36244, .13197, .12861, .01177, .00364,
2356 + .00212, .00875, .01396,
2357 + .35331, .12818, .12088, .01137, .00358,
2358 + .00212, .00847, .01345,
2359 + .34488, .12470, .11407, .01102, .00351,
2360 + .00211, .00822, .01298,
2361 + .33667, .12133, .10768, .01068, .00345,
2362 + .00210, .00797, .01252,
2363 + .32871, .11808, .10180, .01035, .00338,
2364 + .00209, .00772, .01209,
2365 + .32137, .11511, .09655, .01005, .00332,
2366 + .00207, .00749, .01169,
2367 + .31455, .11235, .09187, .00977, .00326,
2368 + .00205, .00729, .01133 /
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 + .30787, .10966, .08741, .00949, .00319,
2371 + .00203, .00709, .01097,
2372 + .30138, .10706, .08327, .00922, .00313,
2373 + .00201, .00690, .01063,
2374 + .29533, .10464, .07954, .00897, .00307,
2375 + .00199, .00671, .01031,
2376 + .28970, .10241, .07618, .00874, .00302,
2377 + .00196, .00654, .01002,
2378 + .28407, .10019, .07294, .00853, .00296,
2379 + .00194, .00638, .00974 /
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 + .69592, .27867, .56989, .02012, .00000,
2382 + .00000, .01256, .02838,
2383 + .67712, .26932, .54608, .01974, .00000,
2384 + .00000, .01253, .02736,
2385 + .65032, .25618, .50896, .01913, .00000,
2386 + .00000, .01239, .02591,
2387 + .63166, .24720, .48129, .01867, .00027,
2388 + .00000, .01224, .02492,
2389 + .61283, .23824, .45157, .01818, .00082,
2390 + .00000, .01203, .02395,
2391 + .59699, .23081, .42655, .01773, .00120,
2392 + .00000, .01185, .02311,
2393 + .58223, .22394, .40347, .01731, .00151,
2394 + .00000, .01166, .02232,
2395 + .56702, .21693, .38001, .01686, .00180,
2396 + .00000, .01144, .02151 /
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 + .55408, .21106, .36032, .01646, .00201,
2399 + .00000, .01124, .02083,
2400 + .54190, .20554, .34206, .01607, .00218,
2401 + .00000, .01103, .02019,
2402 + .53249, .20130, .32822, .01577, .00230,
2403 + .00000, .01087, .01971,
2404 + .51300, .19266, .29987, .01515, .00251,
2405 + .00006, .01050, .01868,
2406 + .49693, .18559, .27672, .01461, .00265,
2407 + .00034, .01017, .01788,
2408 + .47960, .17803, .25279, .01402, .00276,
2409 + .00063, .00982, .01701,
2410 + .46222, .17054, .23009, .01343, .00284,
2411 + .00085, .00946, .01612,
2412 + .44703, .16406, .21132, .01290, .00288,
2413 + .00102, .00912, .01536 /
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 + .43227, .15778, .19400, .01238, .00291,
2416 + .00115, .00878, .01465,
2417 + .42040, .15279, .18074, .01196, .00291,
2418 + .00123, .00851, .01406,
2419 + .40641, .14698, .16595, .01148, .00290,
2420 + .00132, .00818, .01338,
2421 + .39447, .14206, .15398, .01106, .00288,
2422 + .00138, .00790, .01282,
2423 + .38389, .13771, .14383, .01067, .00286,
2424 + .00142, .00765, .01232,
2425 + .37085, .13239, .13200, .01021, .00281,
2426 + .00146, .00733, .01172,
2427 + .35903, .12759, .12188, .00980, .00277,
2428 + .00148, .00704, .01117,
2429 + .34835, .12329, .11320, .00944, .00272,
2430 + .00150, .00679, .01068 /
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 + .33793, .11913, .10520, .00906, .00266,
2433 + .00150, .00654, .01023,
2434 + .32809, .11522, .09801, .00871, .00261,
2435 + .00150, .00630, .00981,
2436 + .31909, .11165, .09173, .00839, .00256,
2437 + .00150, .00607, .00943,
2438 + .31080, .10840, .08623, .00811, .00250,
2439 + .00149, .00587, .00907,
2440 + .30275, .10525, .08109, .00783, .00245,
2441 + .00148, .00568, .00872,
2442 + .29496, .10223, .07638, .00757, .00240,
2443 + .00147, .00549, .00840,
2444 + .28779, .09946, .07220, .00734, .00234,
2445 + .00145, .00532, .00812,
2446 + .28115, .09690, .06850, .00712, .00229,
2447 + .00143, .00516, .00785 /
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 + .27466, .09439, .06499, .00690, .00225,
2450 + .00142, .00501, .00758,
2451 + .26838, .09199, .06175, .00669, .00220,
2452 + .00140, .00486, .00734,
2453 + .26254, .08975, .05884, .00649, .00215,
2454 + .00138, .00472, .00711,
2455 + .25713, .08770, .05622, .00631, .00211,
2456 + .00136, .00459, .00690,
2457 + .25173, .08566, .05372, .00614, .00206,
2458 + .00134, .00446, .00669 /
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 + .67268, .25932, .53146, .01620, .00000,
2461 + .00000, .00965, .02104,
2462 + .65226, .24976, .50216, .01583, .00000,
2463 + .00000, .00960, .02025,
2464 + .62332, .23646, .45933, .01525, .00000,
2465 + .00000, .00946, .01911,
2466 + .60330, .22743, .42895, .01484, .00021,
2467 + .00000, .00933, .01830,
2468 + .58330, .21844, .39764, .01437, .00063,
2469 + .00000, .00914, .01755,
2470 + .56650, .21106, .37193, .01398, .00091,
2471 + .00000, .00897, .01688,
2472 + .55095, .20424, .34866, .01360, .00115,
2473 + .00000, .00880, .01626,
2474 + .53502, .19727, .32541, .01318, .00137,
2475 + .00000, .00862, .01564 /
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 + .52154, .19144, .30621, .01283, .00152,
2478 + .00000, .00844, .01512,
2479 + .50888, .18603, .28867, .01249, .00164,
2480 + .00000, .00826, .01463,
2481 + .49912, .18189, .27552, .01222, .00173,
2482 + .00000, .00812, .01425,
2483 + .47906, .17339, .24896, .01166, .00187,
2484 + .00005, .00782, .01349,
2485 + .46257, .16651, .22769, .01121, .00197,
2486 + .00025, .00755, .01285,
2487 + .44486, .15919, .20606, .01070, .00204,
2488 + .00047, .00726, .01218,
2489 + .42720, .15197, .18584, .01021, .00209,
2490 + .00062, .00695, .01152,
2491 + .41185, .14575, .16932, .00978, .00211,
2492 + .00074, .00668, .01093 /
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 + .39698, .13978, .15427, .00935, .00212,
2495 + .00083, .00642, .01036,
2496 + .38509, .13500, .14288, .00900, .00212,
2497 + .00089, .00619, .00994,
2498 + .37117, .12948, .13026, .00860, .00210,
2499 + .00095, .00593, .00942,
2500 + .35932, .12481, .12015, .00825, .00208,
2501 + .00099, .00571, .00899,
2502 + .34883, .12070, .11166, .00795, .00205,
2503 + .00102, .00551, .00863,
2504 + .33595, .11569, .10183, .00757, .00201,
2505 + .00104, .00525, .00820,
2506 + .32434, .11120, .09350, .00723, .00197,
2507 + .00105, .00504, .00780,
2508 + .31390, .10718, .08641, .00693, .00193,
2509 + .00106, .00485, .00743 /
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 + .30374, .10331, .07994, .00666, .00189,
2512 + .00106, .00465, .00708,
2513 + .29417, .09969, .07415, .00640, .00185,
2514 + .00106, .00447, .00677,
2515 + .28542, .09639, .06911, .00614, .00180,
2516 + .00105, .00430, .00649,
2517 + .27741, .09339, .06474, .00591, .00176,
2518 + .00104, .00415, .00623,
2519 + .26964, .09048, .06067, .00569, .00172,
2520 + .00103, .00400, .00597,
2521 + .26216, .08770, .05696, .00549, .00168,
2522 + .00102, .00386, .00574,
2523 + .25531, .08517, .05369, .00531, .00164,
2524 + .00101, .00373, .00553,
2525 + .24896, .08283, .05081, .00515, .00160,
2526 + .00100, .00361, .00533 /
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 + .24277, .08055, .04808, .00498, .00156,
2529 + .00098, .00351, .00513,
2530 + .23678, .07836, .04556, .00483, .00152,
2531 + .00097, .00339, .00496,
2532 + .23121, .07633, .04331, .00468, .00149,
2533 + .00095, .00328, .00480,
2534 + .22607, .07447, .04129, .00454, .00146,
2535 + .00094, .00318, .00465,
2536 + .22098, .07262, .03937, .00440, .00142,
2537 + .00092, .00309, .00451 /
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 + .64318, .23871, .48568, .01285, .00000,
2540 + .00000, .00734, .01533,
2541 + .62151, .22919, .45298, .01251, .00000,
2542 + .00000, .00728, .01472,
2543 + .59109, .21597, .40701, .01196, .00000,
2544 + .00000, .00715, .01383,
2545 + .57019, .20701, .37558, .01156, .00015,
2546 + .00000, .00702, .01324,
2547 + .54935, .19819, .34422, .01116, .00047,
2548 + .00000, .00685, .01265,
2549 + .53199, .19093, .31896, .01082, .00068,
2550 + .00000, .00671, .01216,
2551 + .51596, .18428, .29644, .01048, .00086,
2552 + .00000, .00655, .01170,
2553 + .49960, .17752, .27426, .01012, .00102,
2554 + .00000, .00638, .01123 /
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 + .48586, .17188, .25623, .00980, .00112,
2557 + .00000, .00625, .01081,
2558 + .47295, .16666, .23990, .00953, .00121,
2559 + .00000, .00610, .01043,
2560 + .46302, .16267, .22774, .00933, .00127,
2561 + .00000, .00597, .01014,
2562 + .44275, .15452, .20366, .00886, .00137,
2563 + .00004, .00574, .00954,
2564 + .42616, .14794, .18473, .00848, .00143,
2565 + .00018, .00552, .00907,
2566 + .40846, .14094, .16570, .00806, .00148,
2567 + .00034, .00528, .00857,
2568 + .39087, .13407, .14813, .00765, .00151,
2569 + .00045, .00503, .00809,
2570 + .37562, .12820, .13394, .00730, .00152,
2571 + .00053, .00482, .00766 /
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 + .36094, .12259, .12116, .00697, .00152,
2574 + .00059, .00462, .00722,
2575 + .34925, .11812, .11156, .00668, .00151,
2576 + .00063, .00444, .00690,
2577 + .33561, .11295, .10105, .00634, .00150,
2578 + .00067, .00424, .00655,
2579 + .32405, .10860, .09269, .00607, .00148,
2580 + .00070, .00407, .00623,
2581 + .31385, .10478, .08571, .00584, .00145,
2582 + .00072, .00391, .00595,
2583 + .30134, .10014, .07773, .00554, .00142,
2584 + .00073, .00372, .00563,
2585 + .29012, .09600, .07100, .00528, .00139,
2586 + .00074, .00356, .00533,
2587 + .28006, .09231, .06530, .00506, .00135,
2588 + .00074, .00341, .00506 /
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 + .27030, .08876, .06016, .00484, .00132,
2591 + .00074, .00326, .00483,
2592 + .26116, .08544, .05557, .00463, .00129,
2593 + .00073, .00313, .00460,
2594 + .25284, .08243, .05161, .00442, .00125,
2595 + .00073, .00300, .00439,
2596 + .24522, .07969, .04819, .00426, .00122,
2597 + .00072, .00289, .00421,
2598 + .23784, .07705, .04502, .00410, .00119,
2599 + .00071, .00277, .00403,
2600 + .23079, .07454, .04215, .00394, .00116,
2601 + .00070, .00267, .00386,
2602 + .22434, .07224, .03962, .00379, .00113,
2603 + .00069, .00258, .00371,
2604 + .21837, .07013, .03740, .00366, .00110,
2605 + .00068, .00249, .00358 /
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 + .21254, .06807, .03530, .00354, .00107,
2608 + .00067, .00240, .00346,
2609 + .20693, .06611, .03338, .00342, .00104,
2610 + .00066, .00232, .00334,
2611 + .20174, .06429, .03166, .00330, .00102,
2612 + .00065, .00224, .00322,
2613 + .19695, .06262, .03013, .00320, .00099,
2614 + .00064, .00217, .00311,
2615 + .19219, .06099, .02869, .00311, .00097,
2616 + .00063, .00211, .00300 /
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 + .60860, .21740, .43435, .00997, .00000,
2619 + .00000, .00553, .01100,
2620 + .58610, .20808, .40015, .00966, .00000,
2621 + .00000, .00547, .01053,
2622 + .55473, .19517, .35358, .00917, .00000,
2623 + .00000, .00532, .00989,
2624 + .53332, .18649, .32264, .00885, .00011,
2625 + .00000, .00522, .00941,
2626 + .51208, .17798, .29250, .00850, .00034,
2627 + .00000, .00508, .00897,
2628 + .49450, .17097, .26864, .00820, .00050,
2629 + .00000, .00496, .00859,
2630 + .47833, .16458, .24764, .00792, .00063,
2631 + .00000, .00482, .00825,
2632 + .46185, .15812, .22720, .00762, .00074,
2633 + .00000, .00468, .00790 /
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 + .44802, .15276, .21078, .00738, .00081,
2636 + .00000, .00456, .00759,
2637 + .43515, .14777, .19610, .00713, .00087,
2638 + .00000, .00444, .00732,
2639 + .42529, .14395, .18526, .00694, .00092,
2640 + .00000, .00435, .00712,
2641 + .40510, .13628, .16401, .00660, .00099,
2642 + .00003, .00416, .00664,
2643 + .38873, .13009, .14756, .00628, .00103,
2644 + .00013, .00399, .00630,
2645 + .37128, .12353, .13122, .00596, .00106,
2646 + .00024, .00381, .00593,
2647 + .35409, .11712, .11634, .00562, .00107,
2648 + .00032, .00361, .00557,
2649 + .33927, .11165, .10448, .00532, .00107,
2650 + .00037, .00344, .00526 /
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 + .32499, .10643, .09386, .00506, .00107,
2653 + .00042, .00327, .00496,
2654 + .31367, .10230, .08594, .00485, .00106,
2655 + .00044, .00315, .00473,
2656 + .30052, .09754, .07737, .00459, .00105,
2657 + .00047, .00300, .00448,
2658 + .28940, .09355, .07061, .00437, .00103,
2659 + .00049, .00287, .00425,
2660 + .27960, .09006, .06502, .00420, .00101,
2661 + .00050, .00274, .00405,
2662 + .26769, .08583, .05863, .00397, .00098,
2663 + .00050, .00261, .00380,
2664 + .25702, .08206, .05330, .00377, .00096,
2665 + .00051, .00248, .00360,
2666 + .24748, .07870, .04882, .00359, .00093,
2667 + .00051, .00236, .00343 /
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 + .23829, .07548, .04479, .00343, .00091,
2670 + .00051, .00225, .00325,
2671 + .22968, .07249, .04123, .00327, .00088,
2672 + .00050, .00216, .00309,
2673 + .22184, .06979, .03816, .00312, .00086,
2674 + .00050, .00207, .00294,
2675 + .21470, .06733, .03553, .00300, .00083,
2676 + .00049, .00199, .00281,
2677 + .20780, .06497, .03309, .00289, .00081,
2678 + .00049, .00190, .00269,
2679 + .20123, .06273, .03090, .00276, .00079,
2680 + .00048, .00183, .00257,
2681 + .19522, .06069, .02898, .00265, .00076,
2682 + .00047, .00176, .00246,
2683 + .18970, .05880, .02730, .00255, .00074,
2684 + .00046, .00169, .00238 /
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 + .18432, .05697, .02572, .00245, .00072,
2687 + .00045, .00163, .00229,
2688 + .17915, .05524, .02427, .00236, .00070,
2689 + .00045, .00157, .00220,
2690 + .17435, .05365, .02298, .00228, .00069,
2691 + .00044, .00152, .00211,
2692 + .16993, .05218, .02184, .00221, .00067,
2693 + .00043, .00147, .00203,
2694 + .16557, .05073, .02076, .00215, .00065,
2695 + .00042, .00142, .00196 /
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 + .56981, .19617, .37998, .00776, .00000,
2698 + .00000, .00404, .00766,
2699 + .54702, .18709, .34605, .00745, .00000,
2700 + .00000, .00397, .00736,
2701 + .51525, .17475, .30101, .00704, .00000,
2702 + .00000, .00388, .00683,
2703 + .49375, .16642, .27176, .00673, .00008,
2704 + .00000, .00378, .00652,
2705 + .47248, .15831, .24383, .00645, .00025,
2706 + .00000, .00366, .00618,
2707 + .45496, .15167, .22207, .00621, .00036,
2708 + .00000, .00355, .00591,
2709 + .43890, .14563, .20312, .00596, .00045,
2710 + .00000, .00345, .00567,
2711 + .42260, .13954, .18486, .00571, .00053,
2712 + .00000, .00334, .00542 /
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 + .40900, .13447, .17039, .00552, .00058,
2715 + .00000, .00325, .00519,
2716 + .39636, .12980, .15757, .00532, .00062,
2717 + .00000, .00315, .00499,
2718 + .38669, .12625, .14817, .00515, .00065,
2719 + .00000, .00308, .00485,
2720 + .36699, .11908, .12996, .00487, .00070,
2721 + .00002, .00294, .00452,
2722 + .35109, .11332, .11605, .00461, .00072,
2723 + .00009, .00281, .00427,
2724 + .33417, .10729, .10239, .00437, .00074,
2725 + .00017, .00267, .00399,
2726 + .31758, .10139, .09007, .00411, .00075,
2727 + .00022, .00251, .00375,
2728 + .30337, .09635, .08034, .00387, .00075,
2729 + .00026, .00238, .00355 /
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 + .28973, .09158, .07171, .00366, .00074,
2732 + .00029, .00226, .00333,
2733 + .27893, .08781, .06534, .00350, .00073,
2734 + .00031, .00217, .00315,
2735 + .26647, .08348, .05850, .00329, .00072,
2736 + .00032, .00206, .00297,
2737 + .25596, .07986, .05314, .00313, .00071,
2738 + .00033, .00197, .00282,
2739 + .24671, .07671, .04873, .00300, .00069,
2740 + .00034, .00187, .00269,
2741 + .23552, .07289, .04372, .00284, .00067,
2742 + .00035, .00178, .00252,
2743 + .22553, .06951, .03957, .00268, .00065,
2744 + .00035, .00169, .00238,
2745 + .21661, .06651, .03611, .00255, .00063,
2746 + .00035, .00161, .00225 /
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 + .20806, .06363, .03300, .00241, .00061,
2749 + .00034, .00153, .00213,
2750 + .20006, .06096, .03028, .00229, .00059,
2751 + .00034, .00145, .00203,
2752 + .19280, .05856, .02795, .00218, .00058,
2753 + .00034, .00138, .00193,
2754 + .18622, .05638, .02596, .00208, .00056,
2755 + .00033, .00132, .00184,
2756 + .17988, .05428, .02413, .00199, .00054,
2757 + .00033, .00127, .00176,
2758 + .17384, .05231, .02248, .00191, .00053,
2759 + .00032, .00122, .00167,
2760 + .16832, .05052, .02103, .00184, .00051,
2761 + .00031, .00117, .00160,
2762 + .16324, .04888, .01978, .00178, .00050,
2763 + .00031, .00112, .00153 /
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 + .15831, .04728, .01860, .00172, .00048,
2766 + .00030, .00108, .00147,
2767 + .15359, .04576, .01753, .00166, .00047,
2768 + .00030, .00104, .00141,
2769 + .14924, .04436, .01657, .00159, .00046,
2770 + .00029, .00101, .00136,
2771 + .14523, .04308, .01572, .00154, .00044,
2772 + .00029, .00097, .00131,
2773 + .14128, .04181, .01492, .00150, .00043,
2774 + .00028, .00094, .00126 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .52814, .17509, .32484, .00585, .00000,
2777 + .00000, .00291, .00527,
2778 + .50528, .16655, .29266, .00561, .00000,
2779 + .00000, .00286, .00503,
2780 + .47374, .15483, .25083, .00526, .00000,
2781 + .00000, .00276, .00467,
2782 + .45243, .14701, .22425, .00505, .00006,
2783 + .00000, .00267, .00440,
2784 + .43155, .13938, .19926, .00479, .00017,
2785 + .00000, .00258, .00419,
2786 + .41437, .13319, .18001, .00460, .00025,
2787 + .00000, .00249, .00400,
2788 + .39868, .12756, .16345, .00442, .00031,
2789 + .00000, .00241, .00381,
2790 + .38283, .12189, .14767, .00422, .00037,
2791 + .00000, .00233, .00362 /
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 + .36963, .11721, .13526, .00405, .00040,
2794 + .00000, .00226, .00347,
2795 + .35740, .11289, .12438, .00389, .00043,
2796 + .00000, .00219, .00334,
2797 + .34807, .10961, .11645, .00377, .00045,
2798 + .00000, .00214, .00323,
2799 + .32910, .10302, .10122, .00357, .00048,
2800 + .00002, .00200, .00302,
2801 + .31388, .09776, .08976, .00336, .00050,
2802 + .00006, .00191, .00283,
2803 + .29779, .09225, .07861, .00316, .00051,
2804 + .00012, .00180, .00265,
2805 + .28206, .08688, .06864, .00296, .00051,
2806 + .00015, .00170, .00248,
2807 + .26861, .08232, .06085, .00278, .00051,
2808 + .00018, .00161, .00234 /
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 + .25577, .07801, .05401, .00263, .00050,
2811 + .00020, .00152, .00219,
2812 + .24563, .07463, .04900, .00250, .00050,
2813 + .00021, .00145, .00207,
2814 + .23393, .07075, .04363, .00236, .00049,
2815 + .00022, .00137, .00194,
2816 + .22413, .06751, .03946, .00224, .00048,
2817 + .00023, .00131, .00183,
2818 + .21558, .06469, .03605, .00212, .00047,
2819 + .00023, .00125, .00173,
2820 + .20517, .06131, .03221, .00201, .00045,
2821 + .00023, .00118, .00162,
2822 + .19591, .05831, .02905, .00190, .00044,
2823 + .00023, .00111, .00153,
2824 + .18770, .05565, .02642, .00181, .00042,
2825 + .00023, .00104, .00145 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .17987, .05312, .02408, .00170, .00041,
2828 + .00023, .00100, .00137,
2829 + .17256, .05078, .02203, .00161, .00040,
2830 + .00023, .00095, .00130,
2831 + .16592, .04868, .02028, .00154, .00038,
2832 + .00022, .00090, .00123,
2833 + .15991, .04678, .01879, .00147, .00037,
2834 + .00022, .00087, .00116,
2835 + .15413, .04497, .01742, .00142, .00036,
2836 + .00022, .00083, .00110,
2837 + .14865, .04324, .01620, .00136, .00035,
2838 + .00021, .00079, .00104,
2839 + .14366, .04168, .01514, .00130, .00034,
2840 + .00021, .00075, .00100,
2841 + .13910, .04025, .01421, .00125, .00033,
2842 + .00020, .00072, .00096 /
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 + .13469, .03887, .01335, .00120, .00032,
2845 + .00020, .00070, .00092,
2846 + .13046, .03755, .01256, .00114, .00031,
2847 + .00020, .00067, .00089,
2848 + .12656, .03634, .01186, .00109, .00030,
2849 + .00019, .00065, .00085,
2850 + .12298, .03523, .01124, .00105, .00029,
2851 + .00019, .00063, .00082,
2852 + .11944, .03415, .01066, .00102, .00028,
2853 + .00018, .00060, .00079 /
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 + .48440, .15460, .27111, .00429, .00000,
2856 + .00000, .00211, .00356,
2857 + .46193, .14656, .24178, .00409, .00000,
2858 + .00000, .00204, .00341,
2859 + .43106, .13561, .20430, .00380, .00000,
2860 + .00000, .00195, .00315,
2861 + .41033, .12836, .18089, .00361, .00004,
2862 + .00000, .00188, .00296,
2863 + .39001, .12134, .15926, .00346, .00012,
2864 + .00000, .00180, .00279,
2865 + .37349, .11559, .14277, .00328, .00017,
2866 + .00000, .00175, .00266,
2867 + .35842, .11041, .12871, .00312, .00021,
2868 + .00000, .00169, .00254,
2869 + .34318, .10523, .11546, .00297, .00025,
2870 + .00000, .00162, .00242 /
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 + .33053, .10096, .10513, .00286, .00027,
2873 + .00000, .00156, .00231,
2874 + .31886, .09703, .09613, .00275, .00029,
2875 + .00000, .00151, .00221,
2876 + .30999, .09405, .08962, .00266, .00030,
2877 + .00000, .00147, .00214,
2878 + .29210, .08807, .07725, .00245, .00032,
2879 + .00001, .00138, .00200,
2880 + .27776, .08330, .06804, .00229, .00033,
2881 + .00004, .00131, .00188,
2882 + .26262, .07833, .05917, .00215, .00034,
2883 + .00008, .00125, .00175,
2884 + .24784, .07354, .05133, .00202, .00034,
2885 + .00010, .00117, .00162,
2886 + .23525, .06949, .04523, .00192, .00034,
2887 + .00012, .00110, .00151 /
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 + .22331, .06566, .03992, .00182, .00033,
2890 + .00013, .00103, .00141,
2891 + .21395, .06264, .03605, .00170, .00033,
2892 + .00014, .00099, .00134,
2893 + .20319, .05919, .03195, .00158, .00032,
2894 + .00015, .00093, .00127,
2895 + .19417, .05634, .02879, .00148, .00031,
2896 + .00015, .00088, .00120,
2897 + .18630, .05388, .02620, .00142, .00031,
2898 + .00015, .00084, .00112,
2899 + .17682, .05091, .02332, .00131, .00029,
2900 + .00015, .00079, .00105,
2901 + .16838, .04829, .02096, .00124, .00028,
2902 + .00015, .00074, .00098,
2903 + .16088, .04598, .01901, .00120, .00028,
2904 + .00015, .00070, .00091 /
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 + .15378, .04377, .01728, .00112, .00027,
2907 + .00015, .00067, .00087,
2908 + .14716, .04174, .01576, .00106, .00026,
2909 + .00015, .00064, .00083,
2910 + .14117, .03992, .01448, .00102, .00025,
2911 + .00015, .00061, .00078,
2912 + .13580, .03828, .01339, .00096, .00024,
2913 + .00014, .00058, .00074,
2914 + .13066, .03671, .01239, .00090, .00023,
2915 + .00014, .00055, .00071,
2916 + .12576, .03523, .01151, .00086, .00022,
2917 + .00014, .00052, .00068,
2918 + .12130, .03390, .01074, .00082, .00022,
2919 + .00014, .00050, .00065,
2920 + .11723, .03268, .01007, .00079, .00021,
2921 + .00013, .00048, .00062 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11330, .03150, .00945, .00076, .00020,
2924 + .00013, .00046, .00059,
2925 + .10953, .03038, .00888, .00073, .00020,
2926 + .00013, .00044, .00056,
2927 + .10607, .02935, .00837, .00070, .00019,
2928 + .00012, .00042, .00054,
2929 + .10290, .02842, .00793, .00067, .00019,
2930 + .00012, .00041, .00052,
2931 + .09979, .02749, .00751, .00065, .00018,
2932 + .00012, .00039, .00050 /
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 + .43962, .13504, .22091, .00310, .00000,
2935 + .00000, .00146, .00237,
2936 + .41785, .12759, .19506, .00292, .00000,
2937 + .00000, .00144, .00224,
2938 + .38805, .11753, .16258, .00269, .00000,
2939 + .00000, .00137, .00207,
2940 + .36818, .11086, .14264, .00253, .00003,
2941 + .00000, .00130, .00197,
2942 + .34886, .10440, .12443, .00237, .00008,
2943 + .00000, .00125, .00186,
2944 + .33307, .09922, .11073, .00224, .00011,
2945 + .00000, .00121, .00177,
2946 + .31874, .09453, .09917, .00214, .00014,
2947 + .00000, .00117, .00168,
2948 + .30434, .08983, .08836, .00203, .00016,
2949 + .00000, .00112, .00159 /
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 + .29245, .08597, .08001, .00192, .00018,
2952 + .00000, .00108, .00153,
2953 + .28147, .08244, .07278, .00184, .00019,
2954 + .00000, .00104, .00147,
2955 + .27311, .07977, .06756, .00179, .00020,
2956 + .00000, .00101, .00142,
2957 + .25640, .07443, .05776, .00165, .00021,
2958 + .00001, .00095, .00129,
2959 + .24302, .07020, .05056, .00154, .00022,
2960 + .00003, .00090, .00121,
2961 + .22901, .06578, .04369, .00143, .00022,
2962 + .00005, .00085, .00114,
2963 + .21540, .06153, .03765, .00132, .00022,
2964 + .00007, .00080, .00106,
2965 + .20384, .05795, .03301, .00124, .00022,
2966 + .00008, .00076, .00098 /
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 + .19288, .05459, .02899, .00117, .00022,
2969 + .00009, .00071, .00091,
2970 + .18431, .05196, .02609, .00109, .00021,
2971 + .00009, .00067, .00087,
2972 + .17450, .04897, .02303, .00102, .00021,
2973 + .00010, .00063, .00082,
2974 + .16632, .04649, .02068, .00096, .00020,
2975 + .00010, .00060, .00077,
2976 + .15921, .04433, .01877, .00091, .00020,
2977 + .00010, .00057, .00073,
2978 + .15065, .04176, .01665, .00084, .00019,
2979 + .00010, .00053, .00068,
2980 + .14308, .03950, .01491, .00078, .00018,
2981 + .00010, .00050, .00064,
2982 + .13638, .03751, .01349, .00073, .00018,
2983 + .00010, .00047, .00060 /
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 + .13003, .03563, .01223, .00070, .00017,
2986 + .00010, .00045, .00056,
2987 + .12413, .03390, .01114, .00066, .00016,
2988 + .00010, .00042, .00053,
2989 + .11881, .03235, .01021, .00062, .00016,
2990 + .00009, .00039, .00051,
2991 + .11403, .03095, .00943, .00059, .00015,
2992 + .00009, .00037, .00048,
2993 + .10945, .02963, .00872, .00056, .00015,
2994 + .00009, .00036, .00045,
2995 + .10512, .02838, .00808, .00054, .00014,
2996 + .00009, .00034, .00043,
2997 + .10120, .02725, .00753, .00052, .00014,
2998 + .00009, .00032, .00041,
2999 + .09764, .02621, .00706, .00049, .00013,
3000 + .00008, .00031, .00039 /
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 + .09420, .02522, .00661, .00046, .00013,
3003 + .00008, .00030, .00037,
3004 + .09091, .02428, .00621, .00044, .00012,
3005 + .00008, .00029, .00035,
3006 + .08789, .02342, .00585, .00042, .00012,
3007 + .00008, .00028, .00034,
3008 + .08513, .02264, .00554, .00041, .00012,
3009 + .00008, .00027, .00032,
3010 + .08243, .02188, .00524, .00039, .00011,
3011 + .00008, .00026, .00031 /
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 + .39472, .11676, .17586, .00226, .00000,
3014 + .00000, .00094, .00151,
3015 + .37389, .11000, .15384, .00214, .00000,
3016 + .00000, .00091, .00142,
3017 + .34562, .10087, .12665, .00198, .00000,
3018 + .00000, .00087, .00127,
3019 + .32685, .09484, .11015, .00185, .00002,
3020 + .00000, .00083, .00122,
3021 + .30864, .08904, .09534, .00173, .00005,
3022 + .00000, .00078, .00115,
3023 + .29384, .08439, .08428, .00165, .00007,
3024 + .00000, .00077, .00107,
3025 + .28046, .08020, .07501, .00157, .00009,
3026 + .00000, .00074, .00099,
3027 + .26708, .07601, .06641, .00148, .00011,
3028 + .00000, .00070, .00093 /
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 + .25605, .07258, .05986, .00140, .00012,
3031 + .00000, .00066, .00090,
3032 + .24588, .06946, .05419, .00134, .00012,
3033 + .00000, .00063, .00087,
3034 + .23815, .06711, .05013, .00130, .00013,
3035 + .00000, .00061, .00084,
3036 + .22273, .06238, .04256, .00120, .00014,
3037 + .00001, .00058, .00078,
3038 + .21044, .05866, .03705, .00113, .00014,
3039 + .00002, .00055, .00073,
3040 + .19764, .05480, .03183, .00105, .00014,
3041 + .00003, .00051, .00066,
3042 + .18528, .05109, .02729, .00096, .00014,
3043 + .00004, .00047, .00062,
3044 + .17483, .04796, .02382, .00087, .00014,
3045 + .00005, .00044, .00059 /
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 + .16496, .04504, .02084, .00081, .00014,
3048 + .00006, .00041, .00056,
3049 + .15724, .04278, .01869, .00078, .00013,
3050 + .00006, .00039, .00052,
3051 + .14841, .04020, .01644, .00073, .00013,
3052 + .00006, .00037, .00047,
3053 + .14109, .03808, .01472, .00069, .00013,
3054 + .00006, .00035, .00043,
3055 + .13474, .03625, .01333, .00064, .00012,
3056 + .00006, .00033, .00040,
3057 + .12711, .03404, .01179, .00061, .00012,
3058 + .00006, .00031, .00038,
3059 + .12040, .03211, .01055, .00057, .00011,
3060 + .00006, .00029, .00036,
3061 + .11449, .03043, .00952, .00053, .00011,
3062 + .00006, .00027, .00035 /
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 + .10887, .02884, .00862, .00051, .00011,
3065 + .00006, .00025, .00032,
3066 + .10369, .02737, .00783, .00048, .00010,
3067 + .00006, .00023, .00029,
3068 + .09905, .02606, .00718, .00045, .00010,
3069 + .00006, .00022, .00028,
3070 + .09487, .02488, .00662, .00042, .00010,
3071 + .00006, .00021, .00026,
3072 + .09089, .02377, .00611, .00040, .00009,
3073 + .00006, .00021, .00025,
3074 + .08712, .02271, .00566, .00038, .00009,
3075 + .00006, .00019, .00024,
3076 + .08372, .02177, .00527, .00036, .00009,
3077 + .00006, .00018, .00023,
3078 + .08060, .02091, .00493, .00035, .00008,
3079 + .00005, .00017, .00021 /
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 + .07760, .02009, .00462, .00034, .00008,
3082 + .00005, .00016, .00020,
3083 + .07476, .01931, .00434, .00033, .00008,
3084 + .00005, .00016, .00019,
3085 + .07216, .01859, .00408, .00032, .00007,
3086 + .00005, .00015, .00018,
3087 + .06979, .01794, .00386, .00030, .00007,
3088 + .00005, .00015, .00018,
3089 + .06747, .01731, .00365, .00029, .00007,
3090 + .00005, .00014, .00017 /
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 + .35011, .09948, .13601, .00149, .00000,
3093 + .00000, .00068, .00098,
3094 + .33055, .09339, .11795, .00140, .00000,
3095 + .00000, .00064, .00092,
3096 + .30412, .08525, .09593, .00127, .00000,
3097 + .00000, .00060, .00083,
3098 + .28666, .07989, .08276, .00118, .00001,
3099 + .00000, .00057, .00077,
3100 + .26972, .07477, .07106, .00111, .00003,
3101 + .00000, .00053, .00074,
3102 + .25606, .07064, .06243, .00106, .00005,
3103 + .00000, .00051, .00069,
3104 + .24374, .06695, .05525, .00099, .00006,
3105 + .00000, .00048, .00066,
3106 + .23144, .06329, .04863, .00092, .00007,
3107 + .00000, .00045, .00062 /
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 + .22132, .06030, .04361, .00088, .00007,
3110 + .00000, .00043, .00059,
3111 + .21204, .05758, .03930, .00085, .00008,
3112 + .00000, .00041, .00055,
3113 + .20502, .05552, .03623, .00082, .00008,
3114 + .00000, .00040, .00052,
3115 + .19104, .05143, .03056, .00075, .00008,
3116 + .00000, .00038, .00049,
3117 + .17995, .04821, .02647, .00070, .00009,
3118 + .00001, .00036, .00045,
3119 + .16842, .04488, .02261, .00063, .00009,
3120 + .00002, .00033, .00043,
3121 + .15728, .04170, .01928, .00059, .00009,
3122 + .00003, .00030, .00040,
3123 + .14791, .03905, .01677, .00056, .00009,
3124 + .00003, .00028, .00036 /
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 + .13912, .03656, .01462, .00052, .00008,
3127 + .00004, .00027, .00033,
3128 + .13227, .03463, .01307, .00049, .00008,
3129 + .00004, .00025, .00031,
3130 + .12447, .03245, .01147, .00046, .00008,
3131 + .00004, .00023, .00029,
3132 + .11801, .03064, .01024, .00043, .00008,
3133 + .00004, .00022, .00028,
3134 + .11242, .02909, .00926, .00041, .00008,
3135 + .00004, .00020, .00026,
3136 + .10578, .02724, .00817, .00036, .00007,
3137 + .00004, .00018, .00024,
3138 + .09992, .02563, .00729, .00033, .00007,
3139 + .00004, .00017, .00023,
3140 + .09475, .02423, .00657, .00032, .00007,
3141 + .00004, .00016, .00021 /
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 + .08987, .02290, .00594, .00031, .00006,
3144 + .00004, .00015, .00019,
3145 + .08537, .02168, .00540, .00029, .00006,
3146 + .00004, .00015, .00018,
3147 + .08136, .02060, .00494, .00027, .00006,
3148 + .00004, .00014, .00018,
3149 + .07775, .01963, .00455, .00026, .00006,
3150 + .00004, .00013, .00016,
3151 + .07431, .01871, .00420, .00025, .00006,
3152 + .00004, .00012, .00014,
3153 + .07108, .01785, .00389, .00024, .00005,
3154 + .00003, .00011, .00014,
3155 + .06816, .01707, .00362, .00023, .00005,
3156 + .00003, .00011, .00013,
3157 + .06551, .01637, .00338, .00022, .00005,
3158 + .00003, .00011, .00013 /
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 + .06297, .01569, .00316, .00022, .00005,
3161 + .00003, .00010, .00012,
3162 + .06055, .01506, .00297, .00020, .00005,
3163 + .00003, .00010, .00011,
3164 + .05835, .01447, .00279, .00019, .00004,
3165 + .00003, .00009, .00011,
3166 + .05634, .01395, .00264, .00018, .00004,
3167 + .00003, .00008, .00010,
3168 + .05439, .01343, .00250, .00017, .00004,
3169 + .00003, .00008, .00010 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30682, .08369, .10241, .00094, .00000,
3172 + .00000, .00046, .00062,
3173 + .28870, .07833, .08806, .00089, .00000,
3174 + .00000, .00044, .00059,
3175 + .26433, .07113, .07077, .00078, .00000,
3176 + .00000, .00040, .00053,
3177 + .24825, .06645, .06060, .00072, .00001,
3178 + .00000, .00039, .00050,
3179 + .23276, .06199, .05163, .00071, .00002,
3180 + .00000, .00037, .00045,
3181 + .22033, .05842, .04507, .00066, .00003,
3182 + .00000, .00034, .00042,
3183 + .20912, .05520, .03965, .00062, .00003,
3184 + .00000, .00032, .00040,
3185 + .19797, .05202, .03470, .00059, .00004,
3186 + .00000, .00030, .00038 /
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 + .18890, .04944, .03097, .00053, .00004,
3189 + .00000, .00029, .00036,
3190 + .18056, .04709, .02780, .00050, .00005,
3191 + .00000, .00028, .00034,
3192 + .17426, .04533, .02555, .00049, .00005,
3193 + .00000, .00027, .00033,
3194 + .16170, .04183, .02141, .00046, .00005,
3195 + .00000, .00025, .00031,
3196 + .15182, .03909, .01847, .00043, .00005,
3197 + .00001, .00022, .00029,
3198 + .14161, .03627, .01571, .00038, .00005,
3199 + .00001, .00021, .00027,
3200 + .13179, .03357, .01334, .00034, .00005,
3201 + .00002, .00019, .00025,
3202 + .12352, .03133, .01155, .00033, .00005,
3203 + .00002, .00018, .00023 /
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 + .11580, .02924, .01004, .00031, .00005,
3206 + .00002, .00017, .00021,
3207 + .10983, .02761, .00896, .00027, .00005,
3208 + .00002, .00016, .00020,
3209 + .10303, .02580, .00784, .00025, .00005,
3210 + .00002, .00015, .00018,
3211 + .09742, .02430, .00699, .00024, .00005,
3212 + .00002, .00014, .00016,
3213 + .09258, .02302, .00631, .00023, .00005,
3214 + .00002, .00013, .00015,
3215 + .08681, .02149, .00556, .00021, .00004,
3216 + .00002, .00012, .00014,
3217 + .08175, .02016, .00496, .00020, .00004,
3218 + .00002, .00011, .00014,
3219 + .07732, .01900, .00446, .00019, .00004,
3220 + .00002, .00011, .00013 /
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 + .07314, .01791, .00403, .00018, .00004,
3223 + .00002, .00010, .00012,
3224 + .06931, .01692, .00366, .00017, .00004,
3225 + .00002, .00009, .00011,
3226 + .06590, .01604, .00334, .00016, .00004,
3227 + .00002, .00009, .00010,
3228 + .06284, .01524, .00308, .00014, .00003,
3229 + .00002, .00009, .00010,
3230 + .05994, .01449, .00284, .00013, .00003,
3231 + .00002, .00008, .00010,
3232 + .05720, .01380, .00263, .00013, .00003,
3233 + .00002, .00007, .00009,
3234 + .05473, .01318, .00244, .00014, .00003,
3235 + .00002, .00007, .00008,
3236 + .05250, .01261, .00228, .00013, .00003,
3237 + .00002, .00007, .00008 /
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 + .05037, .01207, .00214, .00012, .00003,
3240 + .00002, .00006, .00007,
3241 + .04836, .01155, .00200, .00011, .00003,
3242 + .00002, .00006, .00007,
3243 + .04652, .01109, .00188, .00010, .00003,
3244 + .00002, .00006, .00007,
3245 + .04484, .01066, .00178, .00010, .00003,
3246 + .00002, .00005, .00007,
3247 + .04320, .01025, .00168, .00010, .00002,
3248 + .00002, .00005, .00006 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .26553, .06958, .07505, .00067, .00000,
3251 + .00000, .00027, .00035,
3252 + .24902, .06489, .06401, .00059, .00000,
3253 + .00000, .00024, .00033,
3254 + .22683, .05864, .05089, .00054, .00000,
3255 + .00000, .00023, .00029,
3256 + .21228, .05461, .04326, .00051, .00000,
3257 + .00000, .00021, .00028,
3258 + .19837, .05075, .03659, .00048, .00001,
3259 + .00000, .00020, .00026,
3260 + .18724, .04768, .03177, .00043, .00002,
3261 + .00000, .00019, .00023,
3262 + .17725, .04494, .02782, .00039, .00002,
3263 + .00000, .00018, .00023,
3264 + .16731, .04223, .02423, .00037, .00002,
3265 + .00000, .00017, .00023 /
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 + .15920, .04004, .02153, .00036, .00002,
3268 + .00000, .00016, .00020,
3269 + .15181, .03805, .01926, .00034, .00003,
3270 + .00000, .00016, .00019,
3271 + .14625, .03655, .01766, .00032, .00003,
3272 + .00000, .00016, .00018,
3273 + .13521, .03361, .01472, .00029, .00003,
3274 + .00000, .00013, .00017,
3275 + .12651, .03131, .01264, .00027, .00003,
3276 + .00000, .00011, .00016,
3277 + .11756, .02895, .01072, .00026, .00003,
3278 + .00001, .00011, .00014,
3279 + .10902, .02670, .00907, .00024, .00003,
3280 + .00001, .00011, .00013,
3281 + .10186, .02484, .00784, .00022, .00003,
3282 + .00001, .00009, .00012 /
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 + .09519, .02311, .00680, .00021, .00003,
3285 + .00001, .00009, .00011,
3286 + .09004, .02178, .00606, .00019, .00003,
3287 + .00001, .00008, .00009,
3288 + .08419, .02027, .00529, .00018, .00003,
3289 + .00001, .00008, .00009,
3290 + .07938, .01904, .00471, .00017, .00003,
3291 + .00001, .00007, .00008,
3292 + .07525, .01800, .00425, .00016, .00003,
3293 + .00001, .00007, .00008,
3294 + .07034, .01675, .00374, .00014, .00003,
3295 + .00001, .00006, .00007,
3296 + .06605, .01567, .00333, .00013, .00002,
3297 + .00001, .00006, .00006,
3298 + .06230, .01474, .00300, .00013, .00002,
3299 + .00001, .00005, .00006 /
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 + .05878, .01386, .00270, .00012, .00002,
3302 + .00001, .00005, .00005,
3303 + .05557, .01305, .00245, .00011, .00002,
3304 + .00001, .00004, .00005,
3305 + .05271, .01234, .00224, .00010, .00002,
3306 + .00001, .00005, .00005,
3307 + .05015, .01171, .00207, .00010, .00002,
3308 + .00001, .00004, .00005,
3309 + .04772, .01111, .00190, .00010, .00002,
3310 + .00001, .00004, .00005,
3311 + .04546, .01055, .00176, .00009, .00002,
3312 + .00001, .00004, .00004,
3313 + .04342, .01005, .00164, .00008, .00002,
3314 + .00001, .00004, .00004,
3315 + .04158, .00960, .00153, .00007, .00002,
3316 + .00001, .00003, .00004 /
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 + .03981, .00917, .00143, .00007, .00002,
3319 + .00001, .00003, .00004,
3320 + .03814, .00877, .00134, .00007, .00002,
3321 + .00001, .00003, .00003,
3322 + .03662, .00840, .00126, .00007, .00002,
3323 + .00001, .00003, .00003,
3324 + .03523, .00806, .00119, .00007, .00001,
3325 + .00001, .00003, .00003,
3326 + .03388, .00774, .00113, .00007, .00001,
3327 + .00001, .00002, .00003 /
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 + .22629, .05674, .05312, .00036, .00000,
3330 + .00000, .00020, .00026,
3331 + .21145, .05273, .04496, .00034, .00000,
3332 + .00000, .00018, .00021,
3333 + .19165, .04743, .03538, .00028, .00000,
3334 + .00000, .00016, .00019,
3335 + .17871, .04401, .02985, .00028, .00000,
3336 + .00000, .00015, .00017,
3337 + .16643, .04077, .02509, .00025, .00001,
3338 + .00000, .00014, .00016,
3339 + .15655, .03819, .02167, .00024, .00001,
3340 + .00000, .00013, .00015,
3341 + .14774, .03590, .01888, .00023, .00001,
3342 + .00000, .00012, .00014,
3343 + .13904, .03363, .01637, .00021, .00001,
3344 + .00000, .00012, .00012 /
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 + .13197, .03179, .01450, .00019, .00001,
3347 + .00000, .00011, .00013,
3348 + .12553, .03014, .01292, .00017, .00001,
3349 + .00000, .00010, .00013,
3350 + .12070, .02891, .01181, .00016, .00002,
3351 + .00000, .00009, .00012,
3352 + .11114, .02646, .00981, .00015, .00002,
3353 + .00000, .00008, .00011,
3354 + .10364, .02457, .00840, .00014, .00002,
3355 + .00000, .00008, .00010,
3356 + .09595, .02263, .00709, .00013, .00002,
3357 + .00000, .00007, .00008,
3358 + .08862, .02080, .00599, .00012, .00002,
3359 + .00001, .00007, .00007,
3360 + .08253, .01928, .00516, .00011, .00002,
3361 + .00001, .00006, .00007 /
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 + .07686, .01788, .00447, .00010, .00002,
3364 + .00001, .00006, .00007,
3365 + .07250, .01680, .00398, .00009, .00002,
3366 + .00001, .00005, .00006,
3367 + .06757, .01559, .00348, .00008, .00002,
3368 + .00001, .00005, .00006,
3369 + .06353, .01460, .00309, .00008, .00002,
3370 + .00001, .00005, .00005,
3371 + .06005, .01376, .00279, .00008, .00001,
3372 + .00001, .00004, .00005,
3373 + .05595, .01277, .00245, .00008, .00001,
3374 + .00001, .00004, .00005,
3375 + .05238, .01190, .00218, .00007, .00001,
3376 + .00001, .00004, .00004,
3377 + .04927, .01116, .00196, .00007, .00001,
3378 + .00001, .00003, .00004 /
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 + .04637, .01047, .00177, .00006, .00001,
3381 + .00001, .00003, .00003,
3382 + .04372, .00984, .00161, .00005, .00001,
3383 + .00001, .00003, .00003,
3384 + .04137, .00927, .00147, .00004, .00001,
3385 + .00001, .00003, .00004,
3386 + .03926, .00878, .00135, .00004, .00001,
3387 + .00001, .00003, .00003,
3388 + .03727, .00831, .00125, .00004, .00001,
3389 + .00001, .00002, .00003,
3390 + .03542, .00788, .00115, .00004, .00001,
3391 + .00001, .00002, .00003,
3392 + .03376, .00749, .00107, .00003, .00001,
3393 + .00001, .00002, .00003,
3394 + .03226, .00714, .00100, .00003, .00001,
3395 + .00001, .00002, .00003 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .03082, .00680, .00094, .00003, .00001,
3398 + .00001, .00002, .00003,
3399 + .02946, .00649, .00088, .00003, .00001,
3400 + .00001, .00002, .00003,
3401 + .02823, .00621, .00082, .00003, .00001,
3402 + .00001, .00002, .00002,
3403 + .02712, .00595, .00078, .00003, .00001,
3404 + .00001, .00001, .00002,
3405 + .02604, .00570, .00073, .00003, .00001,
3406 + .00001, .00001, .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 + .15682, .03598, .02406, .00015, .00000,
3409 + .00000, .00006, .00008,
3410 + .14545, .03320, .02007, .00012, .00000,
3411 + .00000, .00005, .00007,
3412 + .13037, .02954, .01549, .00012, .00000,
3413 + .00000, .00004, .00006,
3414 + .12068, .02719, .01291, .00012, .00000,
3415 + .00000, .00004, .00004,
3416 + .11152, .02500, .01073, .00009, .00000,
3417 + .00000, .00003, .00005,
3418 + .10426, .02326, .00919, .00006, .00000,
3419 + .00000, .00003, .00005,
3420 + .09779, .02173, .00795, .00006, .00000,
3421 + .00000, .00004, .00005,
3422 + .09142, .02024, .00684, .00007, .00000,
3423 + .00000, .00003, .00004 /
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 + .08629, .01903, .00603, .00007, .00000,
3426 + .00000, .00003, .00004,
3427 + .08165, .01795, .00535, .00007, .00000,
3428 + .00000, .00003, .00003,
3429 + .07819, .01714, .00487, .00006, .00000,
3430 + .00000, .00002, .00003,
3431 + .07139, .01556, .00403, .00005, .00000,
3432 + .00000, .00003, .00003,
3433 + .06610, .01435, .00344, .00004, .00000,
3434 + .00000, .00003, .00002,
3435 + .06072, .01311, .00290, .00004, .00000,
3436 + .00000, .00002, .00002,
3437 + .05564, .01195, .00244, .00003, .00000,
3438 + .00000, .00002, .00002,
3439 + .05145, .01100, .00210, .00003, .00000,
3440 + .00000, .00002, .00002 /
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 + .04757, .01013, .00182, .00003, .00000,
3443 + .00000, .00002, .00002,
3444 + .04461, .00946, .00162, .00002, .00000,
3445 + .00000, .00002, .00002,
3446 + .04129, .00872, .00141, .00002, .00000,
3447 + .00000, .00001, .00002,
3448 + .03858, .00812, .00126, .00002, .00000,
3449 + .00000, .00001, .00001,
3450 + .03628, .00761, .00113, .00002, .00000,
3451 + .00000, .00002, .00002,
3452 + .03356, .00701, .00100, .00002, .00000,
3453 + .00000, .00001, .00002,
3454 + .03122, .00650, .00089, .00002, .00000,
3455 + .00000, .00001, .00002,
3456 + .02921, .00606, .00080, .00002, .00000,
3457 + .00000, .00001, .00001 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02732, .00565, .00072, .00001, .00000,
3460 + .00000, .00001, .00001,
3461 + .02561, .00528, .00066, .00001, .00000,
3462 + .00000, .00001, .00001,
3463 + .02411, .00495, .00060, .00001, .00000,
3464 + .00000, .00001, .00001,
3465 + .02277, .00466, .00055, .00001, .00000,
3466 + .00000, .00001, .00001,
3467 + .02150, .00439, .00051, .00001, .00000,
3468 + .00000, .00001, .00001,
3469 + .02034, .00414, .00047, .00001, .00000,
3470 + .00000, .00001, .00001,
3471 + .01930, .00392, .00044, .00001, .00000,
3472 + .00000, .00001, .00001,
3473 + .01836, .00372, .00041, .00001, .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 + .01748, .00353, .00038, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01664, .00336, .00036, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01589, .00320, .00033, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01520, .00306, .00032, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01454, .00292, .00030, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .10043, .02088, .00919, .00004, .00000,
3488 + .00000, .00001, .00001,
3489 + .09238, .01910, .00758, .00004, .00000,
3490 + .00000, .00001, .00001,
3491 + .08185, .01681, .00577, .00004, .00000,
3492 + .00000, .00000, .00001,
3493 + .07515, .01535, .00477, .00003, .00000,
3494 + .00000, .00001, .00001,
3495 + .06886, .01399, .00394, .00002, .00000,
3496 + .00000, .00001, .00002,
3497 + .06392, .01293, .00336, .00003, .00000,
3498 + .00000, .00001, .00001,
3499 + .05955, .01200, .00290, .00003, .00000,
3500 + .00000, .00001, .00001,
3501 + .05529, .01110, .00249, .00003, .00000,
3502 + .00000, .00001, .00000 /
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 + .05188, .01038, .00219, .00002, .00000,
3505 + .00000, .00000, .00001,
3506 + .04882, .00973, .00194, .00002, .00000,
3507 + .00000, .00000, .00001,
3508 + .04654, .00925, .00177, .00002, .00000,
3509 + .00000, .00000, .00000,
3510 + .04210, .00832, .00146, .00001, .00000,
3511 + .00000, .00001, .00001,
3512 + .03868, .00761, .00125, .00002, .00000,
3513 + .00000, .00001, .00000,
3514 + .03524, .00690, .00105, .00001, .00000,
3515 + .00000, .00001, .00000,
3516 + .03201, .00624, .00089, .00001, .00000,
3517 + .00000, .00000, .00000,
3518 + .02937, .00570, .00077, .00001, .00000,
3519 + .00000, .00000, .00001 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02695, .00521, .00067, .00001, .00000,
3522 + .00000, .00000, .00000,
3523 + .02510, .00483, .00060, .00001, .00000,
3524 + .00000, .00000, .00000,
3525 + .02306, .00442, .00052, .00001, .00000,
3526 + .00000, .00000, .00000,
3527 + .02141, .00409, .00047, .00001, .00000,
3528 + .00000, .00000, .00000,
3529 + .02002, .00381, .00042, .00000, .00000,
3530 + .00000, .00000, .00000,
3531 + .01838, .00349, .00037, .00001, .00000,
3532 + .00000, .00000, .00000,
3533 + .01698, .00321, .00033, .00001, .00000,
3534 + .00000, .00000, .00000,
3535 + .01578, .00297, .00030, .00001, .00000,
3536 + .00000, .00000, .00000 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01467, .00275, .00027, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01367, .00256, .00024, .00000, .00000,
3541 + .00000, .00000, .00000,
3542 + .01279, .00239, .00022, .00000, .00000,
3543 + .00000, .00000, .00000,
3544 + .01201, .00224, .00021, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01129, .00210, .00019, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01062, .00197, .00017, .00000, .00000,
3549 + .00000, .00000, .00000,
3550 + .01003, .00185, .00016, .00000, .00000,
3551 + .00000, .00000, .00000,
3552 + .00950, .00175, .00015, .00000, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00900, .00165, .00014, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00853, .00156, .00013, .00000, .00000,
3558 + .00000, .00000, .00000,
3559 + .00811, .00148, .00012, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00773, .00141, .00012, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00736, .00134, .00011, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05793, .01078, .00282, .00002, .00000,
3567 + .00000, .00000, .00000,
3568 + .05281, .00977, .00232, .00001, .00000,
3569 + .00000, .00000, .00000,
3570 + .04618, .00848, .00176, .00002, .00000,
3571 + .00000, .00000, .00000,
3572 + .04201, .00768, .00145, .00001, .00000,
3573 + .00000, .00000, -.00001,
3574 + .03814, .00694, .00120, .00001, .00000,
3575 + .00000, .00000, .00000,
3576 + .03512, .00636, .00102, .00001, .00000,
3577 + .00000, .00000, .00000,
3578 + .03249, .00586, .00089, .00001, .00000,
3579 + .00000, .00000, .00000,
3580 + .02994, .00538, .00076, .00001, .00000,
3581 + .00000, .00000, .00000 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02789, .00499, .00067, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02608, .00465, .00060, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02475, .00440, .00055, .00000, .00000,
3588 + .00000, .00000, .00000,
3589 + .02215, .00392, .00046, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02017, .00356, .00039, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01820, .00319, .00033, .00000, .00000,
3594 + .00000, .00000, .00000,
3595 + .01638, .00286, .00028, .00000, .00000,
3596 + .00000, .00000, .00000,
3597 + .01489, .00259, .00025, .00000, .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 + .01355, .00234, .00022, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01254, .00216, .00019, .00000, .00000,
3603 + .00000, .00000, .00000,
3604 + .01142, .00196, .00017, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01052, .00180, .00015, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00977, .00167, .00014, .00000, .00000,
3609 + .00000, .00000, .00000,
3610 + .00890, .00151, .00012, .00000, .00000,
3611 + .00000, .00000, .00000,
3612 + .00816, .00138, .00011, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00753, .00127, .00010, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00695, .00117, .00009, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00643, .00108, .00008, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00597, .00100, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00558, .00093, .00007, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00521, .00087, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00488, .00081, .00006, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00458, .00076, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00431, .00071, .00005, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00406, .00067, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00383, .00063, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00363, .00060, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00344, .00056, .00004, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00326, .00053, .00004, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02873, .00468, .00064, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02593, .00420, .00053, -.00001, .00000,
3648 + .00000, .00000, .00000,
3649 + .02233, .00359, .00041, .00000, .00000,
3650 + .00000, .00000, .00000,
3651 + .02010, .00322, .00034, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01805, .00288, .00029, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01647, .00261, .00025, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01510, .00239, .00022, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01379, .00217, .00019, .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 + .01275, .00200, .00017, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01183, .00185, .00015, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01116, .00174, .00014, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .00987, .00153, .00012, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00890, .00138, .00010, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00794, .00122, .00009, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00706, .00108, .00008, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00636, .00097, .00007, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00572, .00087, .00006, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00525, .00080, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00474, .00071, .00005, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00433, .00065, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00399, .00060, .00004, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00360, .00054, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00327, .00049, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00299, .00044, .00003, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00274, .00040, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00251, .00037, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00232, .00034, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00215, .00031, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00199, .00029, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00185, .00027, .00002, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00173, .00025, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00162, .00023, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00151, .00022, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00142, .00021, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00133, .00019, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00126, .00018, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00119, .00017, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00295, .00033, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00258, .00029, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00213, .00023, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00186, .00020, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00162, .00018, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00144, .00016, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00129, .00014, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00114, .00012, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00103, .00011, .00000, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00094, .00010, .00000, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00087, .00009, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00074, .00008, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00065, .00007, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00056, .00006, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00048, .00005, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00042, .00004, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00037, .00004, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00033, .00003, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00029, .00003, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00026, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00023, .00002, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00020, .00002, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00018, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00002, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00014, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00012, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00005, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3809 . .8d0,.9d0,1d0/
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3818 data init/0/
3819 save
3820 xsave=x
3821 q2save=qsq
3822 if(init.ne.0) goto 10
3823C open(unit=1,file='cor02.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3829 do 25 i=1,np
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3831 20 continue
3832 do 31 j=1,ntenth-1
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3834 do 31 i=1,8
3835 if(i.eq.5.or.i.eq.7) goto 31
3836 do 30 k=1,nq
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3838 31 continue
3839 50 format(8f10.5)
3840 do 40 i=1,np
3841 do 40 m=1,nq
3842 40 f(i,nx,m)=ZEROD
3843 init=1
3844 10 continue
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3849 xxx=x
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3851 n=0
3852 70 n=n+1
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3855 m=0
3856 80 m=m+1
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3859 do 60 i=1,np
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3866 65 continue
3867 g(i)=g(i)*(ONED-x)**n0(i)
3868 60 continue
3869 upv=g(1)
3870 dnv=g(2)
3871 usea=g(4)
3872 dsea=g(8)
3873 str=g(6)
3874 chm=g(5)
3875 glu=g(3)
3876 bot=g(7)
3877 x=xsave
3878 qsq=q2save
3879 return
3880 end