2 subroutine sfmrs_99a6(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
4 #include "pdf/impdp.inc"
6 parameter(nx=49,nq=37,ntenth=23,np=8)
8 #if defined(CERNLIB_DOUBLE)
11 #if defined(CERNLIB_SINGLE)
14 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00497, .00177, 1.15210, .89336, .00000,
17 + .00000, .47667, .90539,
18 + .00513, .00183, 2.47205, .93052, .00000,
19 + .00000, .51900, .94263,
20 + .00537, .00192, 5.03464, 1.01120, .00000,
21 + .00000, .60700, 1.02342,
22 + .00554, .00199, 7.43318, 1.08834, .04830,
23 + .00000, .68924, 1.10062,
24 + .00572, .00207, 10.34505, 1.18713, .16725,
25 + .00000, .79318, 1.19948,
26 + .00588, .00213, 13.33317, 1.28929, .27343,
27 + .00000, .89967, 1.30168,
28 + .00603, .00220, 16.68069, 1.40013, .39316,
29 + .00000, 1.01455, 1.41255,
30 + .00619, .00227, 20.78683, 1.53255, .53848,
31 + .00000, 1.15116, 1.54500 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00633, .00233, 24.80729, 1.66186, .67612,
34 + .00000, 1.28403, 1.67433,
35 + .00647, .00239, 29.09272, 1.79950, .82038,
36 + .00000, 1.42504, 1.81200,
37 + .00658, .00244, 32.87029, 1.91693, .94795,
38 + .00000, 1.54509, 1.92944,
39 + .00681, .00254, 41.55747, 2.19668, 1.24255,
40 + .04991, 1.83027, 2.20920,
41 + .00702, .00263, 49.69793, 2.46693, 1.52425,
42 + .38292, 2.10503, 2.47945,
43 + .00725, .00274, 60.02327, 2.80539, 1.87769,
44 + .78330, 2.44842, 2.81792,
45 + .00749, .00285, 72.15387, 3.19814, 2.28702,
46 + 1.21100, 2.84615, 3.21066,
47 + .00771, .00295, 84.41103, 3.59208, 2.69672,
48 + 1.63845, 3.24448, 3.60459 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00794, .00306, 98.05283, 4.02809, 3.14997,
51 + 2.11006, 3.68481, 4.04058,
52 + .00813, .00314, 110.37105, 4.42044, 3.55744,
53 + 2.53295, 4.08066, 4.43291,
54 + .00836, .00325, 126.40661, 4.93327, 4.08603,
55 + 3.07418, 4.59765, 4.94571,
56 + .00857, .00335, 141.74768, 5.42313, 4.59147,
57 + 3.59405, 5.09109, 5.43554,
58 + .00876, .00344, 156.87645, 5.90443, 5.08999,
59 + 4.11059, 5.57562, 5.91681,
60 + .00900, .00356, 177.12810, 6.55537, 5.75793,
61 + 4.79199, 6.23056, 6.56771,
62 + .00924, .00367, 197.54942, 7.21308, 6.43328,
63 + 5.48291, 6.89194, 7.22538,
64 + .00946, .00378, 217.98642, 7.87198, 7.11103,
65 + 6.17877, 7.55422, 7.88424 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .00968, .00389, 239.41856, 8.56906, 7.82488,
68 + 6.90709, 8.25459, 8.58128,
69 + .00990, .00399, 261.50864, 9.29117, 8.56406,
70 + 7.66150, 8.97986, 9.30333,
71 + .01011, .00410, 283.60461, 10.01490, 9.30620,
72 + 8.42130, 9.70653, 10.02702,
73 + .01031, .00419, 305.01801, 10.72516, 10.03058,
74 + 9.15741, 10.41951, 10.73724,
75 + .01051, .00429, 327.75452, 11.47855, 10.80199,
76 + 9.94631, 11.17559, 11.49058,
77 + .01071, .00439, 350.58826, 12.24562, 11.58317,
78 + 10.73938, 11.94526, 12.25760,
79 + .01090, .00449, 373.44971, 13.01297, 12.36754,
80 + 11.54034, 12.71502, 13.02490,
81 + .01109, .00458, 395.37778, 13.75926, 13.12668,
82 + 12.31038, 13.46359, 13.77115 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .01127, .00467, 418.56946, 14.54795, 13.93157,
85 + 13.13096, 14.25452, 14.55980,
86 + .01146, .00476, 441.74615, 15.34638, 14.74331,
87 + 13.95443, 15.05515, 15.35818,
88 + .01164, .00485, 464.72070, 16.13945, 15.55091,
89 + 14.77582, 15.85027, 16.15120,
90 + .01181, .00494, 486.97900, 16.91376, 16.33856,
91 + 15.57600, 16.62651, 16.92547,
92 + .01198, .00503, 509.94702, 17.71894, 17.15668,
93 + 16.40602, 17.43362, 17.73061 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00674, .00246, 1.07231, .76209, .00000,
96 + .00000, .40603, .76909,
97 + .00696, .00255, 2.26038, .79622, .00000,
98 + .00000, .44423, .80326,
99 + .00729, .00269, 4.51702, .86720, .00000,
100 + .00000, .52098, .87430,
101 + .00754, .00280, 6.58703, .93350, .04105,
102 + .00000, .59129, .94064,
103 + .00779, .00291, 9.05823, 1.01709, .14163,
104 + .00000, .67892, 1.02425,
105 + .00801, .00301, 11.55681, 1.10236, .23019,
106 + .00000, .76758, 1.10955,
107 + .00822, .00310, 14.32226, 1.19408, .32913,
108 + .00000, .86248, 1.20129,
109 + .00845, .00320, 17.67462, 1.30278, .44817,
110 + .00000, .97445, 1.31001 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00864, .00329, 20.92012, 1.40804, .55992,
113 + .00000, 1.08250, 1.41529,
114 + .00883, .00338, 24.34522, 1.51927, .67616,
115 + .00000, 1.19636, 1.52653,
116 + .00899, .00345, 27.34146, 1.61372, .77840,
117 + .00000, 1.29285, 1.62098,
118 + .00931, .00360, 34.14922, 1.83677, 1.01238,
119 + .04013, 1.52014, 1.84404,
120 + .00959, .00373, 40.43729, 2.05021, 1.23391,
121 + .30140, 1.73709, 2.05748,
122 + .00991, .00388, 48.31535, 2.31515, 1.50930,
123 + .61356, 2.00587, 2.32243,
124 + .01024, .00404, 57.45286, 2.61968, 1.82517,
125 + .94323, 2.31427, 2.62696,
126 + .01055, .00419, 66.57521, 2.92242, 2.13845,
127 + 1.26964, 2.62042, 2.92969 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .01086, .00434, 76.61635, 3.25472, 2.48216,
130 + 1.62666, 2.95608, 3.26199,
131 + .01112, .00447, 85.59460, 3.55153, 2.78884,
132 + 1.94435, 3.25561, 3.55879,
133 + .01144, .00462, 97.16595, 3.93651, 3.18360,
134 + 2.34764, 3.64381, 3.94375,
135 + .01172, .00476, 108.13094, 4.30154, 3.55834,
136 + 2.73221, 4.01163, 4.30877,
137 + .01198, .00489, 118.85684, 4.65794, 3.92568,
138 + 3.11203, 4.37052, 4.66516,
139 + .01232, .00506, 133.07704, 5.13635, 4.41410,
140 + 3.60902, 4.85204, 5.14356,
141 + .01264, .00521, 147.28285, 5.61618, 4.90440,
142 + 4.10936, 5.33472, 5.62337,
143 + .01293, .00536, 161.38051, 6.09369, 5.39326,
144 + 4.61008, 5.81484, 6.10086 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .01324, .00551, 176.03821, 6.59545, 5.90465,
147 + 5.13048, 6.31916, 6.60260,
148 + .01353, .00566, 191.02635, 7.11194, 6.43091,
149 + 5.66620, 6.83810, 7.11907,
150 + .01382, .00581, 205.91228, 7.62662, 6.95638,
151 + 6.20286, 7.35505, 7.63373,
152 + .01409, .00594, 220.22716, 8.12867, 7.46609,
153 + 6.71942, 7.85921, 8.13575,
154 + .01436, .00608, 235.33824, 8.65862, 8.00646,
155 + 7.27071, 8.39124, 8.66569,
156 + .01463, .00622, 250.40137, 9.19508, 8.55041,
157 + 7.82144, 8.92971, 9.20212,
158 + .01489, .00635, 265.40344, 9.72933, 9.09435,
159 + 8.37556, 9.46585, 9.73635,
160 + .01514, .00648, 279.69492, 10.24618, 9.61791,
161 + 8.90520, 9.98446, 10.25319 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01539, .00661, 294.74033, 10.79024, 10.17103,
164 + 9.46775, 10.53027, 10.79723,
165 + .01564, .00673, 309.67938, 11.33826, 10.72596,
166 + 10.02923, 11.07998, 11.34522,
167 + .01588, .00686, 324.41992, 11.88047, 11.27606,
168 + 10.58736, 11.62379, 11.88741,
169 + .01611, .00698, 338.62619, 12.40765, 11.81034,
170 + 11.12880, 12.15247, 12.41457,
171 + .01634, .00710, 353.21179, 12.95363, 12.36305,
172 + 11.68814, 12.69995, 12.96054 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00914, .00342, .99915, .64985, .00000,
175 + .00000, .34595, .65332,
176 + .00945, .00356, 2.06813, .68101, .00000,
177 + .00000, .38031, .68449,
178 + .00992, .00377, 4.05388, .74338, .00000,
179 + .00000, .44722, .74689,
180 + .01025, .00393, 5.83825, .80034, .03487,
181 + .00000, .50732, .80386,
182 + .01061, .00409, 7.93215, .87101, .11989,
183 + .00000, .58115, .87454,
184 + .01091, .00424, 10.01731, .94212, .19372,
185 + .00000, .65491, .94566,
186 + .01121, .00438, 12.29688, 1.01792, .27544,
187 + .00000, .73320, 1.02148,
188 + .01152, .00453, 15.02712, 1.10700, .37288,
189 + .00000, .82484, 1.11057 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .01179, .00466, 17.63990, 1.19253, .46353,
192 + .00000, .91252, 1.19610,
193 + .01206, .00479, 20.36929, 1.28221, .55709,
194 + .00000, 1.00425, 1.28578,
195 + .01227, .00489, 22.73849, 1.35799, .63894,
196 + .00000, 1.08162, 1.36157,
197 + .01272, .00511, 28.05524, 1.53533, .82453,
198 + .03226, 1.26226, 1.53892,
199 + .01311, .00530, 32.89364, 1.70338, .99847,
200 + .23713, 1.43303, 1.70697,
201 + .01355, .00552, 38.87954, 1.91007, 1.21269,
202 + .48037, 1.64269, 1.91367,
203 + .01401, .00574, 45.73190, 2.14535, 1.45596,
204 + .73429, 1.88097, 2.14895,
205 + .01443, .00595, 52.48901, 2.37710, 1.69501,
206 + .98333, 2.11536, 2.38070 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01486, .00617, 59.84299, 2.62934, 1.95504,
209 + 1.25334, 2.37018, 2.63294,
210 + .01521, .00635, 66.35276, 2.85291, 2.18529,
211 + 1.49172, 2.59586, 2.85651,
212 + .01565, .00657, 74.65672, 3.14063, 2.47930,
213 + 1.79182, 2.88606, 3.14423,
214 + .01603, .00676, 82.44904, 3.41140, 2.75633,
215 + 2.07587, 3.15897, 3.41499,
216 + .01639, .00695, 90.00859, 3.67406, 3.02620,
217 + 2.35470, 3.42356, 3.67766,
218 + .01685, .00718, 99.93141, 4.02395, 3.38220,
219 + 2.71649, 3.77584, 4.02754,
220 + .01728, .00740, 109.74957, 4.37224, 3.73692,
221 + 3.07807, 4.12632, 4.37583,
222 + .01769, .00761, 119.40958, 4.71649, 4.08828,
223 + 3.43757, 4.47258, 4.72008 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01810, .00782, 129.36427, 5.07573, 4.45326,
226 + 3.80850, 4.83378, 5.07931,
227 + .01850, .00803, 139.46075, 5.44312, 4.82646,
228 + 4.18793, 5.20306, 5.44671,
229 + .01889, .00823, 149.41571, 5.80709, 5.19701,
230 + 4.56595, 5.56878, 5.81068,
231 + .01925, .00842, 158.91158, 6.15992, 5.55414,
232 + 4.92734, 5.92323, 6.16350,
233 + .01962, .00862, 168.87665, 6.53054, 5.93104,
234 + 5.31142, 6.29545, 6.53411,
235 + .01998, .00881, 178.73265, 6.90346, 6.30807,
236 + 5.69259, 6.66991, 6.90703,
237 + .02033, .00899, 188.49651, 7.27318, 6.68355,
238 + 6.07466, 7.04109, 7.27675,
239 + .02067, .00917, 197.73083, 7.62890, 7.04289,
240 + 6.43763, 7.39815, 7.63247 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .02100, .00934, 207.40767, 8.00186, 7.42115,
243 + 6.82189, 7.77246, 8.00542,
244 + .02134, .00952, 216.95029, 8.37558, 7.79860,
245 + 7.20324, 8.14748, 8.37914,
246 + .02166, .00969, 226.32225, 8.74389, 8.17137,
247 + 7.58100, 8.51703, 8.74746,
248 + .02196, .00985, 235.30515, 9.10045, 8.53187,
249 + 7.94586, 8.87474, 9.10401,
250 + .02228, .01002, 244.47920, 9.46819, 8.90327,
251 + 8.32121, 9.24363, 9.47175 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .01092, .00416, .95959, .59191, .00000,
254 + .00000, .31508, .59391,
255 + .01130, .00433, 1.96438, .62137, .00000,
256 + .00000, .34734, .62338,
257 + .01187, .00460, 3.80630, .67916, .00000,
258 + .00000, .40906, .68118,
259 + .01228, .00479, 5.44118, .73125, .03170,
260 + .00000, .46388, .73328,
261 + .01271, .00500, 7.34003, .79528, .10873,
262 + .00000, .53065, .79732,
263 + .01308, .00518, 9.21384, .85918, .17509,
264 + .00000, .59685, .86123,
265 + .01343, .00536, 11.24731, .92694, .24812,
266 + .00000, .66676, .92899,
267 + .01382, .00554, 13.66535, 1.00616, .33475,
268 + .00000, .74818, 1.00821 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01415, .00571, 15.96338, 1.08181, .41490,
271 + .00000, .82571, 1.08387,
272 + .01447, .00587, 18.34937, 1.16078, .49726,
273 + .00000, .90644, 1.16284,
274 + .01472, .00599, 20.41100, 1.22731, .56907,
275 + .00000, .97434, 1.22937,
276 + .01527, .00627, 25.00319, 1.38216, .73101,
277 + .02838, 1.13203, 1.38423,
278 + .01574, .00650, 29.14494, 1.52803, .88187,
279 + .20600, 1.28025, 1.53011,
280 + .01627, .00677, 34.23050, 1.70645, 1.06662,
281 + .41613, 1.46122, 1.70853,
282 + .01682, .00705, 40.00671, 1.90837, 1.27520,
283 + .63398, 1.66572, 1.91046,
284 + .01733, .00731, 45.66071, 2.10616, 1.47902,
285 + .84644, 1.86579, 2.10826 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01784, .00758, 51.77266, 2.32035, 1.69959,
288 + 1.07557, 2.08220, 2.32246,
289 + .01827, .00780, 57.15047, 2.50934, 1.89402,
290 + 1.27694, 2.27299, 2.51145,
291 + .01879, .00807, 63.96812, 2.75140, 2.14109,
292 + 1.52917, 2.51718, 2.75352,
293 + .01926, .00831, 70.32844, 2.97818, 2.37286,
294 + 1.76686, 2.74580, 2.98030,
295 + .01969, .00853, 76.46835, 3.19733, 2.59781,
296 + 1.99932, 2.96661, 3.19946,
297 + .02023, .00882, 84.47935, 3.48791, 2.89313,
298 + 2.29944, 3.25923, 3.49004,
299 + .02075, .00909, 92.36030, 3.77587, 3.18610,
300 + 2.59807, 3.54906, 3.77801,
301 + .02124, .00935, 100.07452, 4.05934, 3.47513,
302 + 2.89383, 3.83426, 4.06148 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .02173, .00960, 107.98147, 4.35391, 3.77412,
305 + 3.19767, 4.13051, 4.35606,
306 + .02221, .00986, 115.96161, 4.65402, 4.07867,
307 + 3.50728, 4.43223, 4.65618,
308 + .02267, .01010, 123.79581, 4.95030, 4.38005,
309 + 3.81474, 4.73001, 4.95246,
310 + .02310, .01033, 131.23172, 5.23642, 4.66937,
311 + 4.10747, 5.01752, 5.23859,
312 + .02354, .01057, 139.00803, 5.53611, 4.97390,
313 + 4.41781, 5.31858, 5.53829,
314 + .02398, .01080, 146.66214, 5.83657, 5.27739,
315 + 4.72455, 5.62036, 5.83875,
316 + .02439, .01102, 154.22110, 6.13367, 5.57889,
317 + 5.03134, 5.91870, 6.13585,
318 + .02479, .01123, 161.33797, 6.41856, 5.86642,
319 + 5.32172, 6.20474, 6.42075 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02519, .01144, 168.77577, 6.71656, 6.16846,
322 + 5.62853, 6.50390, 6.71876,
323 + .02559, .01166, 176.07950, 7.01423, 6.46885,
324 + 5.93197, 6.80268, 7.01643,
325 + .02597, .01186, 183.23259, 7.30691, 6.76488,
326 + 6.23192, 7.09641, 7.30911,
327 + .02633, .01206, 190.06569, 7.58951, 7.05041,
328 + 6.52087, 7.38000, 7.59172,
329 + .02670, .01225, 197.02168, 7.88025, 7.34384,
330 + 6.81737, 7.67173, 7.88247 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .01240, .00477, .93307, .55391, .00000,
333 + .00000, .29491, .55511,
334 + .01284, .00498, 1.89462, .58220, .00000,
335 + .00000, .32573, .58340,
336 + .01348, .00529, 3.64052, .63691, .00000,
337 + .00000, .38401, .63812,
338 + .01395, .00552, 5.17649, .68579, .02961,
339 + .00000, .43536, .68701,
340 + .01444, .00577, 6.94727, .74547, .10143,
341 + .00000, .49753, .74670,
342 + .01487, .00598, 8.68326, .80469, .16293,
343 + .00000, .55882, .80592,
344 + .01528, .00618, 10.55722, .86724, .23035,
345 + .00000, .62330, .86848,
346 + .01572, .00640, 12.77406, .94009, .31003,
347 + .00000, .69815, .94133 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01610, .00660, 14.87037, 1.00940, .38345,
350 + .00000, .76915, 1.01065,
351 + .01646, .00678, 17.03738, 1.08150, .45865,
352 + .00000, .84284, 1.08275,
353 + .01676, .00693, 18.90361, 1.14212, .52407,
354 + .00000, .90470, 1.14337,
355 + .01738, .00725, 23.03825, 1.28265, .67102,
356 + .02591, 1.04778, 1.28391,
357 + .01792, .00752, 26.74322, 1.41446, .80731,
358 + .18638, 1.18171, 1.41574,
359 + .01852, .00783, 31.26778, 1.57505, .97355,
360 + .37572, 1.34459, 1.57633,
361 + .01916, .00816, 36.37778, 1.75602, 1.16044,
362 + .57106, 1.52788, 1.75731,
363 + .01973, .00846, 41.35311, 1.93260, 1.34233,
364 + .76080, 1.70650, 1.93390 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .02032, .00877, 46.70518, 2.12310, 1.53846,
367 + .96466, 1.89900, 2.12442,
368 + .02081, .00902, 51.39396, 2.29064, 1.71076,
369 + 1.14321, 2.06816, 2.29196,
370 + .02140, .00934, 57.31154, 2.50450, 1.92897,
371 + 1.36607, 2.28393, 2.50583,
372 + .02193, .00962, 62.80886, 2.70421, 2.13300,
373 + 1.57541, 2.48529, 2.70555,
374 + .02242, .00987, 68.09689, 2.89668, 2.33050,
375 + 1.77961, 2.67924, 2.89803,
376 + .02304, .01020, 74.96618, 3.15102, 2.58889,
377 + 2.04229, 2.93542, 3.15238,
378 + .02363, .01051, 81.69593, 3.40225, 2.84441,
379 + 2.30283, 3.18833, 3.40362,
380 + .02418, .01081, 88.25879, 3.64885, 3.09578,
381 + 2.56015, 3.43648, 3.65024 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02474, .01111, 94.95933, 3.90434, 3.35501,
384 + 2.82366, 3.69347, 3.90574,
385 + .02528, .01140, 101.69788, 4.16390, 3.61834,
386 + 3.09145, 3.95448, 4.16532,
387 + .02580, .01168, 108.29245, 4.41952, 3.87830,
388 + 3.35674, 4.21144, 4.42095,
389 + .02630, .01194, 114.52911, 4.66570, 4.12715,
390 + 3.60857, 4.45886, 4.66714,
391 + .02679, .01221, 121.03493, 4.92302, 4.38859,
392 + 3.87508, 4.71741, 4.92447,
393 + .02729, .01247, 127.41595, 5.18031, 4.64840,
394 + 4.13773, 4.97589, 5.18178,
395 + .02776, .01273, 133.70337, 5.43426, 4.90608,
396 + 4.40001, 5.23095, 5.43573,
397 + .02820, .01297, 139.60374, 5.67718, 5.15118,
398 + 4.64757, 5.47490, 5.67866 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02865, .01321, 145.75816, 5.93085, 5.40826,
401 + 4.90880, 5.72961, 5.93235,
402 + .02910, .01346, 151.78264, 6.18367, 5.66333,
403 + 5.16649, 5.98342, 6.18518,
404 + .02953, .01369, 157.67101, 6.43182, 5.91430,
405 + 5.42085, 6.23252, 6.43335,
406 + .02994, .01391, 163.28220, 6.67099, 6.15591,
407 + 5.66541, 6.47257, 6.67253,
408 + .03036, .01414, 168.98079, 6.91661, 6.40375,
409 + 5.91589, 6.71907, 6.91816 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .01368, .00531, .91347, .52611, .00000,
412 + .00000, .28020, .52681,
413 + .01417, .00555, 1.84275, .55349, .00000,
414 + .00000, .30993, .55421,
415 + .01489, .00591, 3.51742, .60592, .00000,
416 + .00000, .36567, .60664,
417 + .01541, .00617, 4.98048, .65244, .02809,
418 + .00000, .41447, .65316,
419 + .01596, .00644, 6.65742, .70895, .09609,
420 + .00000, .47328, .70968,
421 + .01643, .00668, 8.29293, .76475, .15406,
422 + .00000, .53100, .76549,
423 + .01689, .00692, 10.05108, .82352, .21742,
424 + .00000, .59156, .82426,
425 + .01737, .00716, 12.12249, .89176, .29206,
426 + .00000, .66165, .89251 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01779, .00738, 14.07360, .95649, .36065,
429 + .00000, .72794, .95725,
430 + .01820, .00759, 16.08353, 1.02365, .43071,
431 + .00000, .79657, 1.02442,
432 + .01853, .00776, 17.81002, 1.08003, .49155,
433 + .00000, .85408, 1.08079,
434 + .01922, .00811, 21.61888, 1.21030, .62778,
435 + .02414, .98672, 1.21108,
436 + .01981, .00842, 25.01445, 1.33208, .75371,
437 + .17242, 1.11045, 1.33287,
438 + .02049, .00877, 29.14350, 1.47998, .90682,
439 + .34703, 1.26047, 1.48078,
440 + .02119, .00914, 33.78611, 1.64610, 1.07837,
441 + .52647, 1.42872, 1.64692,
442 + .02183, .00948, 38.28744, 1.80768, 1.24482,
443 + .70022, 1.59218, 1.80851 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .02247, .00982, 43.11102, 1.98151, 1.42377,
446 + .88636, 1.76785, 1.98235,
447 + .02301, .01011, 47.32240, 2.13398, 1.58059,
448 + 1.04895, 1.92182, 2.13484,
449 + .02367, .01046, 52.61868, 2.32809, 1.77863,
450 + 1.25133, 2.11768, 2.32896,
451 + .02426, .01077, 57.52249, 2.50889, 1.96335,
452 + 1.44095, 2.30001, 2.50978,
453 + .02480, .01106, 62.22643, 2.68277, 2.14177,
454 + 1.62553, 2.47525, 2.68367,
455 + .02548, .01143, 68.31583, 2.91193, 2.37457,
456 + 1.86230, 2.70610, 2.91285,
457 + .02613, .01177, 74.26198, 3.13772, 2.60420,
458 + 2.09657, 2.93343, 3.13866,
459 + .02674, .01210, 80.04373, 3.35884, 2.82961,
460 + 2.32742, 3.15597, 3.35979 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02735, .01243, 85.92854, 3.58739, 3.06150,
463 + 2.56324, 3.38591, 3.58836,
464 + .02796, .01276, 91.82995, 3.81907, 3.29655,
465 + 2.80237, 3.61893, 3.82007,
466 + .02853, .01307, 97.59109, 4.04680, 3.52816,
467 + 3.03884, 3.84788, 4.04781,
468 + .02907, .01336, 103.02381, 4.26563, 3.74937,
469 + 3.26277, 4.06786, 4.26666,
470 + .02962, .01366, 108.67991, 4.49401, 3.98141,
471 + 3.49943, 4.29737, 4.49505,
472 + .03016, .01395, 114.21176, 4.72188, 4.21152,
473 + 3.73212, 4.52633, 4.72294,
474 + .03068, .01424, 119.65307, 4.94646, 4.43942,
475 + 3.96420, 4.75193, 4.94754,
476 + .03117, .01450, 124.74576, 5.16088, 4.65576,
477 + 4.18278, 4.96730, 5.16197 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .03167, .01477, 130.04980, 5.38450, 4.88242,
480 + 4.41319, 5.19187, 5.38561,
481 + .03216, .01504, 135.22879, 5.60695, 5.10686,
482 + 4.64002, 5.41524, 5.60808,
483 + .03263, .01530, 140.28278, 5.82503, 5.32743,
484 + 4.86365, 5.63418, 5.82617,
485 + .03308, .01555, 145.08955, 6.03489, 5.53946,
486 + 5.07835, 5.84486, 6.03605,
487 + .03354, .01580, 149.96169, 6.25010, 5.75664,
488 + 5.29791, 6.06088, 6.25128 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01858, .00744, .85877, .44833, .00000,
491 + .00000, .23924, .44815,
492 + .01926, .00780, 1.69452, .47301, .00000,
493 + .00000, .26579, .47284,
494 + .02027, .00833, 3.16471, .51883, .00000,
495 + .00000, .31425, .51868,
496 + .02100, .00871, 4.42077, .55866, .02381,
497 + .00000, .35590, .55852,
498 + .02176, .00912, 5.83384, .60626, .08115,
499 + .00000, .40533, .60615,
500 + .02242, .00947, 7.18944, .65259, .12932,
501 + .00000, .45317, .65249,
502 + .02305, .00980, 8.62742, .70090, .18147,
503 + .00000, .50290, .70082,
504 + .02373, .01017, 10.29975, .75648, .24233,
505 + .00000, .55994, .75642 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02431, .01048, 11.85531, .80869, .29772,
508 + .00000, .61339, .80865,
509 + .02488, .01078, 13.44014, .86240, .35383,
510 + .00000, .66825, .86237,
511 + .02532, .01103, 14.79030, .90724, .40228,
512 + .00000, .71400, .90722,
513 + .02628, .01154, 17.72866, 1.00983, .50971,
514 + .01933, .81845, 1.00984,
515 + .02710, .01199, 20.30523, 1.10470, .60795,
516 + .13513, .91485, 1.10474,
517 + .02802, .01249, 23.39581, 1.21876, .72619,
518 + .27063, 1.03058, 1.21883,
519 + .02899, .01302, 26.82159, 1.34551, .85728,
520 + .40819, 1.15901, 1.34562,
521 + .02986, .01350, 30.09879, 1.46758, .98320,
522 + .54007, 1.28255, 1.46772 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .03075, .01399, 33.56760, 1.59769, 1.11734,
525 + .68003, 1.41411, 1.59786,
526 + .03149, .01439, 36.56309, 1.71089, 1.23392,
527 + .80127, 1.52848, 1.71109,
528 + .03239, .01489, 40.28756, 1.85375, 1.37987,
529 + .95083, 1.67272, 1.85398,
530 + .03319, .01533, 43.69944, 1.98575, 1.51491,
531 + 1.08985, 1.80590, 1.98601,
532 + .03392, .01573, 46.94313, 2.11182, 1.64448,
533 + 1.22429, 1.93305, 2.11212,
534 + .03485, .01625, 51.09515, 2.27658, 1.81207,
535 + 1.39517, 2.09913, 2.27692,
536 + .03573, .01674, 55.10693, 2.43761, 1.97606,
537 + 1.56291, 2.26137, 2.43799,
538 + .03656, .01720, 58.97126, 2.59416, 2.13589,
539 + 1.72706, 2.41903, 2.59458 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03739, .01766, 62.86501, 2.75476, 2.29905,
542 + 1.89339, 2.58071, 2.75521,
543 + .03820, .01811, 66.73438, 2.91642, 2.46329,
544 + 2.06090, 2.74341, 2.91691,
545 + .03898, .01854, 70.48190, 3.07434, 2.62415,
546 + 2.22557, 2.90230, 3.07486,
547 + .03971, .01895, 73.98219, 3.22503, 2.77668,
548 + 2.38033, 3.05388, 3.22559,
549 + .04044, .01936, 77.60398, 3.38150, 2.93592,
550 + 2.54317, 3.21124, 3.38210,
551 + .04117, .01977, 81.11302, 3.53658, 3.09272,
552 + 2.70208, 3.36716, 3.53721,
553 + .04186, .02015, 84.54561, 3.68871, 3.24736,
554 + 2.85995, 3.52009, 3.68938,
555 + .04252, .02052, 87.72998, 3.83305, 3.39318,
556 + 3.00761, 3.66517, 3.83374 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04318, .02089, 91.03090, 3.98298, 3.54540,
559 + 3.16274, 3.81585, 3.98371,
560 + .04384, .02126, 94.22682, 4.13124, 3.69519,
561 + 3.31446, 3.96483, 4.13200,
562 + .04447, .02162, 97.33006, 4.27599, 3.84183,
563 + 3.46349, 4.11025, 4.27679,
564 + .04507, .02195, 100.26223, 4.41462, 3.98211,
565 + 3.60587, 4.24953, 4.41545,
566 + .04568, .02229, 103.21578, 4.55614, 4.12514,
567 + 3.75078, 4.39168, 4.55700 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02531, .01051, .81642, .38240, .00000,
570 + .00000, .20480, .38217,
571 + .02627, .01104, 1.56805, .40450, .00000,
572 + .00000, .22842, .40430,
573 + .02767, .01182, 2.85632, .44439, .00000,
574 + .00000, .27045, .44425,
575 + .02868, .01238, 3.93113, .47836, .02012,
576 + .00000, .30590, .47826,
577 + .02974, .01298, 5.11658, .51831, .06831,
578 + .00000, .34733, .51826,
579 + .03066, .01349, 6.23410, .55661, .10821,
580 + .00000, .38686, .55659,
581 + .03154, .01398, 7.40295, .59614, .15096,
582 + .00000, .42753, .59616,
583 + .03247, .01451, 8.74377, .64116, .20037,
584 + .00000, .47374, .64123 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03328, .01496, 9.97448, .68303, .24489,
587 + .00000, .51661, .68313,
588 + .03406, .01540, 11.21373, .72571, .28961,
589 + .00000, .56023, .72585,
590 + .03468, .01575, 12.26040, .76114, .32800,
591 + .00000, .59640, .76131,
592 + .03600, .01650, 14.50539, .84134, .41224,
593 + .01542, .67810, .84157,
594 + .03713, .01714, 16.43926, .91466, .48841,
595 + .10540, .75266, .91495,
596 + .03840, .01785, 18.72550, 1.00187, .57913,
597 + .21001, .84123, 1.00223,
598 + .03972, .01860, 21.22160, 1.09771, .67859,
599 + .31489, .93843, 1.09814,
600 + .04092, .01929, 23.57550, 1.18904, .77313,
601 + .41438, 1.03095, 1.18952 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04213, .01998, 26.03455, 1.28544, .87287,
604 + .51895, 1.12853, 1.28599,
605 + .04314, .02055, 28.13335, 1.36858, .95881,
606 + .60875, 1.21262, 1.36919,
607 + .04436, .02125, 30.71111, 1.47255, 1.06541,
608 + .71848, 1.31771, 1.47323,
609 + .04544, .02187, 33.04573, 1.56780, 1.16321,
610 + .81964, 1.41393, 1.56854,
611 + .04644, .02243, 35.24431, 1.65813, 1.25639,
612 + .91679, 1.50513, 1.65893,
613 + .04770, .02315, 38.02420, 1.77511, 1.37579,
614 + 1.03909, 1.62318, 1.77598,
615 + .04889, .02383, 40.67988, 1.88847, 1.49166,
616 + 1.15814, 1.73752, 1.88941,
617 + .05001, .02447, 43.21231, 1.99785, 1.60374,
618 + 1.27379, 1.84781, 1.99885 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .05113, .02511, 45.73605, 2.10914, 1.71721,
621 + 1.38998, 1.95998, 2.11020,
622 + .05222, .02574, 48.21922, 2.22035, 1.83060,
623 + 1.50615, 2.07204, 2.22148,
624 + .05326, .02633, 50.60384, 2.32828, 1.94095,
625 + 1.61964, 2.18075, 2.32947,
626 + .05424, .02689, 52.80751, 2.43050, 2.04477,
627 + 1.72543, 2.28370, 2.43175,
628 + .05523, .02746, 55.07288, 2.53608, 2.15264,
629 + 1.83624, 2.39001, 2.53739,
630 + .05620, .02801, 57.24446, 2.63996, 2.25802,
631 + 1.94351, 2.49458, 2.64133,
632 + .05712, .02854, 59.35657, 2.74138, 2.36151,
633 + 2.04965, 2.59666, 2.74281,
634 + .05800, .02904, 61.29600, 2.83695, 2.45840,
635 + 2.14817, 2.69283, 2.83843 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05889, .02955, 63.29677, 2.93582, 2.55916,
638 + 2.25132, 2.79231, 2.93736,
639 + .05976, .03005, 65.21503, 3.03295, 2.65763,
640 + 2.35148, 2.89003, 3.03455,
641 + .06060, .03053, 67.06784, 3.12739, 2.75365,
642 + 2.44950, 2.98502, 3.12903,
643 + .06139, .03098, 68.80563, 3.21736, 2.84503,
644 + 2.54265, 3.07552, 3.21906,
645 + .06220, .03144, 70.54349, 3.30876, 2.93773,
646 + 2.63698, 3.16744, 3.31050 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .03040, .01295, .79999, .34893, .00000,
649 + .00000, .18741, .34897,
650 + .03156, .01361, 1.50634, .36957, .00000,
651 + .00000, .20941, .36967,
652 + .03326, .01459, 2.69707, .40626, .00000,
653 + .00000, .24800, .40644,
654 + .03450, .01530, 3.67581, .43712, .01819,
655 + .00000, .28019, .43736,
656 + .03578, .01604, 4.74203, .47307, .06161,
657 + .00000, .31747, .47338,
658 + .03689, .01667, 5.73626, .50721, .09723,
659 + .00000, .35272, .50759,
660 + .03795, .01729, 6.76705, .54224, .13517,
661 + .00000, .38877, .54267,
662 + .03908, .01794, 7.93944, .58189, .17877,
663 + .00000, .42949, .58239 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .04006, .01850, 9.00668, .61853, .21781,
666 + .00000, .46703, .61908,
667 + .04100, .01905, 10.07349, .65567, .25682,
668 + .00000, .50501, .65627,
669 + .04175, .01948, 10.96970, .68640, .29018,
670 + .00000, .53641, .68705,
671 + .04334, .02040, 12.87452, .75549, .36294,
672 + .01346, .60686, .75623,
673 + .04470, .02119, 14.49702, .81820, .42827,
674 + .09078, .67069, .81903,
675 + .04623, .02207, 16.39781, .89232, .50558,
676 + .18032, .74602, .89323,
677 + .04781, .02299, 18.45350, .97319, .58976,
678 + .26940, .82813, .97420,
679 + .04925, .02382, 20.37475, 1.04976, .66926,
680 + .35337, .90577, 1.05085 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .05071, .02467, 22.36537, 1.13009, .75263,
683 + .44109, .98717, 1.13128,
684 + .05191, .02537, 24.05191, 1.19900, .82408,
685 + .51602, 1.05694, 1.20026,
686 + .05338, .02621, 26.10727, 1.28468, .91220,
687 + .60705, 1.14364, 1.28604,
688 + .05467, .02696, 27.95543, 1.36277, .99263,
689 + .69055, 1.22260, 1.36420,
690 + .05586, .02765, 29.68559, 1.43649, 1.06893,
691 + .77040, 1.29711, 1.43800,
692 + .05736, .02852, 31.85600, 1.53142, 1.16613,
693 + .87031, 1.39302, 1.53303,
694 + .05878, .02935, 33.91458, 1.62293, 1.25996,
695 + .96707, 1.48542, 1.62464,
696 + .06011, .03012, 35.86517, 1.71081, 1.35031,
697 + 1.06064, 1.57413, 1.71260 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06143, .03088, 37.79520, 1.79978, 1.44130,
700 + 1.15416, 1.66390, 1.80165,
701 + .06273, .03164, 39.68221, 1.88827, 1.53182,
702 + 1.24723, 1.75316, 1.89023,
703 + .06396, .03235, 41.48458, 1.97380, 1.61956,
704 + 1.33781, 1.83942, 1.97585,
705 + .06512, .03302, 43.13845, 2.05443, 1.70170,
706 + 1.42181, 1.92071, 2.05655,
707 + .06629, .03370, 44.83183, 2.13745, 1.78680,
708 + 1.50955, 2.00439, 2.13965,
709 + .06743, .03436, 46.44350, 2.21874, 1.86953,
710 + 1.59406, 2.08632, 2.22102,
711 + .06853, .03499, 48.00557, 2.29788, 1.95056,
712 + 1.67747, 2.16606, 2.30024,
713 + .06956, .03559, 49.43001, 2.37214, 2.02606,
714 + 1.75453, 2.24087, 2.37456 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07060, .03619, 50.89522, 2.44876, 2.10441,
717 + 1.83504, 2.31805, 2.45125,
718 + .07163, .03679, 52.29064, 2.52372, 2.18065,
719 + 1.91286, 2.39356, 2.52629,
720 + .07261, .03735, 53.63396, 2.59641, 2.25480,
721 + 1.98884, 2.46676, 2.59905,
722 + .07355, .03789, 54.88761, 2.66545, 2.32514,
723 + 2.06081, 2.53628, 2.66815,
724 + .07449, .03844, 56.13532, 2.73535, 2.39627,
725 + 2.13345, 2.60666, 2.73811 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03467, .01509, .79367, .32741, .00000,
728 + .00000, .17623, .32773,
729 + .03600, .01587, 1.46940, .34704, .00000,
730 + .00000, .19712, .34743,
731 + .03796, .01701, 2.59423, .38154, .00000,
732 + .00000, .23340, .38205,
733 + .03938, .01784, 3.50849, .41032, .01690,
734 + .00000, .26341, .41091,
735 + .04085, .01871, 4.49530, .44361, .05715,
736 + .00000, .29793, .44429,
737 + .04212, .01945, 5.40800, .47501, .08996,
738 + .00000, .33037, .47577,
739 + .04334, .02016, 6.34806, .50708, .12474,
740 + .00000, .36339, .50791,
741 + .04463, .02092, 7.41044, .54322, .16453,
742 + .00000, .40053, .54413 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04575, .02158, 8.37156, .57646, .20001,
745 + .00000, .43461, .57744,
746 + .04683, .02221, 9.32708, .61001, .23533,
747 + .00000, .46895, .61106,
748 + .04769, .02271, 10.12657, .63770, .26545,
749 + .00000, .49726, .63881,
750 + .04950, .02378, 11.81420, .69966, .33083,
751 + .01219, .56048, .70088,
752 + .05105, .02469, 13.23952, .75560, .38924,
753 + .08143, .61747, .75692,
754 + .05279, .02570, 14.89798, .82138, .45803,
755 + .16137, .68440, .82282,
756 + .05460, .02676, 16.67888, .89280, .53254,
757 + .24046, .75697, .89436,
758 + .05623, .02772, 18.33211, .96008, .60258,
759 + .31465, .82527, .96175 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05788, .02869, 20.03442, 1.03036, .67571,
762 + .39183, .89654, 1.03213,
763 + .05925, .02950, 21.46873, 1.09040, .73813,
764 + .45748, .95740, 1.09227,
765 + .06091, .03047, 23.20642, 1.16474, .81479,
766 + .53690, 1.03269, 1.16672,
767 + .06237, .03132, 24.76046, 1.23222, .88448,
768 + .60947, 1.10100, 1.23430,
769 + .06372, .03211, 26.20878, 1.29572, .95039,
770 + .67866, 1.16525, 1.29789,
771 + .06542, .03311, 28.01467, 1.37714, 1.03398,
772 + .76484, 1.24759, 1.37944,
773 + .06702, .03404, 29.71816, 1.45532, 1.11436,
774 + .84798, 1.32662, 1.45773,
775 + .06852, .03492, 31.32450, 1.53014, 1.19150,
776 + .92812, 1.40222, 1.53264 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07001, .03579, 32.90520, 1.60559, 1.26889,
779 + 1.00789, 1.47843, 1.60820,
780 + .07147, .03665, 34.44318, 1.68038, 1.34560,
781 + 1.08702, 1.55395, 1.68309,
782 + .07286, .03746, 35.90615, 1.75246, 1.41976,
783 + 1.16381, 1.62672, 1.75527,
784 + .07416, .03821, 37.24115, 1.82015, 1.48891,
785 + 1.23475, 1.69504, 1.82306,
786 + .07547, .03898, 38.60395, 1.88969, 1.56040,
787 + 1.30870, 1.76521, 1.89269,
788 + .07676, .03973, 39.89367, 1.95754, 1.62964,
789 + 1.37965, 1.83367, 1.96063,
790 + .07798, .04044, 41.14042, 2.02346, 1.69733,
791 + 1.44955, 1.90017, 2.02664,
792 + .07914, .04111, 42.27101, 2.08510, 1.76019,
793 + 1.51389, 1.96233, 2.08836 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08031, .04179, 43.43150, 2.14859, 1.82530,
796 + 1.58102, 2.02636, 2.15194,
797 + .08146, .04246, 44.53075, 2.21051, 1.88845,
798 + 1.64569, 2.08879, 2.21394,
799 + .08256, .04310, 45.58630, 2.27044, 1.94976,
800 + 1.70871, 2.14921, 2.27394,
801 + .08360, .04370, 46.56750, 2.32721, 2.00778,
802 + 1.76826, 2.20644, 2.33079,
803 + .08465, .04431, 47.54026, 2.38456, 2.06630,
804 + 1.82822, 2.26425, 2.38822 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03846, .01713, .79574, .31256, .00000,
807 + .00000, .16833, .31290,
808 + .03995, .01801, 1.44791, .33141, .00000,
809 + .00000, .18835, .33184,
810 + .04214, .01930, 2.52251, .36424, .00000,
811 + .00000, .22283, .36481,
812 + .04372, .02024, 3.38787, .39142, .01593,
813 + .00000, .25117, .39210,
814 + .04537, .02122, 4.31463, .42269, .05377,
815 + .00000, .28359, .42347,
816 + .04678, .02205, 5.16600, .45204, .08446,
817 + .00000, .31390, .45291,
818 + .04814, .02285, 6.03804, .48189, .11688,
819 + .00000, .34464, .48285,
820 + .04957, .02370, 7.01827, .51541, .15384,
821 + .00000, .37910, .51647 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05082, .02444, 7.90051, .54613, .18666,
824 + .00000, .41060, .54727,
825 + .05201, .02515, 8.77361, .57703, .21924,
826 + .00000, .44223, .57825,
827 + .05296, .02571, 9.50170, .60248, .24696,
828 + .00000, .46826, .60377,
829 + .05497, .02690, 11.02979, .65919, .30691,
830 + .01125, .52616, .66062,
831 + .05669, .02792, 12.31109, .71018, .36023,
832 + .07455, .57813, .71172,
833 + .05861, .02905, 13.79350, .76990, .42279,
834 + .14746, .63892, .77158,
835 + .06061, .03023, 15.37594, .83446, .49028,
836 + .21924, .70456, .83627,
837 + .06241, .03130, 16.83659, .89503, .55346,
838 + .28633, .76609, .89697 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06423, .03237, 18.33274, .95806, .61919,
841 + .35586, .83007, .96014,
842 + .06574, .03326, 19.58747, 1.01174, .67511,
843 + .41482, .88450, 1.01392,
844 + .06757, .03434, 21.10022, 1.07797, .74354,
845 + .48588, .95163, 1.08028,
846 + .06918, .03529, 22.44679, 1.13789, .80555,
847 + .55061, 1.01233, 1.14032,
848 + .07066, .03616, 23.69690, 1.19412, .86405,
849 + .61217, 1.06927, 1.19666,
850 + .07252, .03725, 25.24784, 1.26597, .93797,
851 + .68856, 1.14198, 1.26864,
852 + .07428, .03828, 26.70392, 1.33473, 1.00882,
853 + .76203, 1.21154, 1.33753,
854 + .07592, .03925, 28.07131, 1.40034, 1.07662,
855 + .83264, 1.27790, 1.40326 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07755, .04020, 29.41074, 1.46629, 1.14442,
858 + .90271, 1.34457, 1.46933,
859 + .07915, .04114, 30.70846, 1.53148, 1.21144,
860 + .97202, 1.41045, 1.53464,
861 + .08067, .04203, 31.93857, 1.59416, 1.27608,
862 + 1.03912, 1.47378, 1.59743,
863 + .08209, .04286, 33.05578, 1.65284, 1.33616,
864 + 1.10091, 1.53306, 1.65621,
865 + .08352, .04369, 34.19343, 1.71301, 1.39816,
866 + 1.16522, 1.59382, 1.71649,
867 + .08492, .04451, 35.26458, 1.77154, 1.45803,
868 + 1.22671, 1.65292, 1.77512,
869 + .08626, .04529, 36.29782, 1.82830, 1.51646,
870 + 1.28722, 1.71024, 1.83198,
871 + .08751, .04602, 37.23009, 1.88123, 1.57056,
872 + 1.34274, 1.76366, 1.88500 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .08879, .04676, 38.18533, 1.93566, 1.62653,
875 + 1.40060, 1.81861, 1.93953,
876 + .09004, .04749, 39.08587, 1.98861, 1.68066,
877 + 1.45617, 1.87204, 1.99257,
878 + .09123, .04818, 39.94881, 2.03976, 1.73314,
879 + 1.51026, 1.92367, 2.04382,
880 + .09236, .04884, 40.74811, 2.08813, 1.78269,
881 + 1.56125, 1.97247, 2.09226,
882 + .09350, .04950, 41.53778, 2.13688, 1.83257,
883 + 1.61250, 2.02166, 2.14110 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .05346, .02571, .82421, .27192, .00000,
886 + .00000, .14689, .27284,
887 + .05557, .02700, 1.40678, .28843, .00000,
888 + .00000, .16438, .28950,
889 + .05865, .02889, 2.33308, .31633, .00000,
890 + .00000, .19366, .31764,
891 + .06087, .03025, 3.05597, .33894, .01315,
892 + .00000, .21723, .34042,
893 + .06317, .03165, 3.81037, .36446, .04421,
894 + .00000, .24372, .36611,
895 + .06514, .03284, 4.48788, .38799, .06895,
896 + .00000, .26806, .38980,
897 + .06702, .03399, 5.16906, .41163, .09478,
898 + .00000, .29246, .41359,
899 + .06902, .03519, 5.92117, .43787, .12389,
900 + .00000, .31949, .43998 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07074, .03624, 6.58650, .46161, .14943,
903 + .00000, .34389, .46385,
904 + .07239, .03723, 7.23493, .48523, .17451,
905 + .00000, .36814, .48760,
906 + .07370, .03802, 7.76962, .50454, .19571,
907 + .00000, .38795, .50702,
908 + .07645, .03969, 8.87006, .54703, .24096,
909 + .00868, .43145, .54971,
910 + .07880, .04110, 9.77022, .58467, .28066,
911 + .05606, .46994, .58754,
912 + .08141, .04266, 10.79176, .62818, .32662,
913 + .11020, .51437, .63126,
914 + .08412, .04428, 11.86036, .67454, .37553,
915 + .16269, .56167, .67784,
916 + .08656, .04574, 12.82780, .71746, .42071,
917 + .21112, .60542, .72095 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .08901, .04720, 13.80123, .76158, .46715,
920 + .26072, .65035, .76526,
921 + .09103, .04841, 14.60460, .79873, .50623,
922 + .30231, .68817, .80258,
923 + .09347, .04985, 15.55652, .84403, .55349,
924 + .35186, .73425, .84807,
925 + .09562, .05113, 16.39053, .88456, .59587,
926 + .39654, .77547, .88877,
927 + .09758, .05229, 17.15484, .92226, .63549,
928 + .43866, .81379, .92663,
929 + .10005, .05375, 18.08579, .96985, .68496,
930 + .49028, .86214, .97441,
931 + .10236, .05511, 18.94567, 1.01489, .73186,
932 + .53943, .90789, 1.01963,
933 + .10452, .05638, 19.74168, 1.05745, .77632,
934 + .58622, .95111, 1.06237 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .10667, .05763, 20.50825, 1.09977, .82030,
937 + .63215, .99407, 1.10486,
938 + .10876, .05886, 21.23989, 1.14119, .86337,
939 + .67716, 1.03611, 1.14645,
940 + .11073, .06001, 21.92497, 1.18068, .90457,
941 + .72040, 1.07619, 1.18610,
942 + .11257, .06108, 22.53596, 1.21727, .94246,
943 + .75979, 1.11331, 1.22283,
944 + .11442, .06216, 23.15286, 1.25455, .98133,
945 + .80056, 1.15113, 1.26026,
946 + .11623, .06321, 23.72261, 1.29043, 1.01846,
947 + .83913, 1.18753, 1.29628,
948 + .11795, .06421, 24.26826, 1.32503, 1.05452,
949 + .87690, 1.22263, 1.33102,
950 + .11956, .06514, 24.75106, 1.35697, 1.08756,
951 + .91119, 1.25502, 1.36309 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12119, .06608, 25.24298, 1.38966, 1.12160,
954 + .94678, 1.28818, 1.39591,
955 + .12278, .06700, 25.69785, 1.42115, 1.15420,
956 + .98064, 1.32011, 1.42753,
957 + .12430, .06788, 26.13047, 1.45142, 1.18565,
958 + 1.01344, 1.35081, 1.45792,
959 + .12574, .06871, 26.52566, 1.47982, 1.21513,
960 + 1.04415, 1.37961, 1.48644,
961 + .12719, .06954, 26.91077, 1.50825, 1.24460,
962 + 1.07479, 1.40845, 1.51498 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .07560, .03967, .91292, .24032, .00000,
965 + .00000, .13006, .24233,
966 + .07859, .04153, 1.42618, .25458, .00000,
967 + .00000, .14517, .25685,
968 + .08294, .04422, 2.20793, .27787, .00000,
969 + .00000, .16967, .28052,
970 + .08605, .04613, 2.79638, .29627, .01070,
971 + .00000, .18892, .29920,
972 + .08926, .04810, 3.39298, .31663, .03576,
973 + .00000, .21014, .31984,
974 + .09199, .04976, 3.91513, .33504, .05534,
975 + .00000, .22926, .33849,
976 + .09459, .05135, 4.42893, .35328, .07551,
977 + .00000, .24817, .35696,
978 + .09733, .05301, 4.98466, .37324, .09794,
979 + .00000, .26884, .37716 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .09969, .05444, 5.46656, .39104, .11735,
982 + .00000, .28724, .39517,
983 + .10195, .05580, 5.92794, .40854, .13619,
984 + .00000, .30530, .41286,
985 + .10373, .05687, 6.30342, .42272, .15198,
986 + .00000, .31993, .42720,
987 + .10747, .05912, 7.05827, .45346, .18520,
988 + .00655, .35160, .45827,
989 + .11063, .06101, 7.65711, .48025, .21388,
990 + .04107, .37916, .48534,
991 + .11414, .06309, 8.32119, .51073, .24660,
992 + .08018, .41048, .51612,
993 + .11775, .06523, 8.99907, .54268, .28086,
994 + .11743, .44330, .54839,
995 + .12099, .06714, 9.59853, .57180, .31204,
996 + .15130, .47318, .57778 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .12422, .06905, 10.18866, .60130, .34364,
999 + .18551, .50344, .60756,
1000 + .12688, .07061, 10.66596, .62582, .36990,
1001 + .21385, .52858, .63231,
1002 + .13007, .07247, 11.21926, .65528, .40122,
1003 + .24716, .55879, .66205,
1004 + .13286, .07410, 11.69438, .68131, .42896,
1005 + .27684, .58547, .68833,
1006 + .13541, .07558, 12.12279, .70527, .45465,
1007 + .30456, .61001, .71250,
1008 + .13859, .07742, 12.63177, .73507, .48625,
1009 + .33804, .64054, .74257,
1010 + .14156, .07913, 13.09207, .76290, .51584,
1011 + .36954, .66906, .77066,
1012 + .14431, .08072, 13.51032, .78890, .54359,
1013 + .39922, .69568, .79690 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .14704, .08228, 13.90359, .81441, .57068,
1016 + .42798, .72181, .82264,
1017 + .14968, .08379, 14.27116, .83908, .59692,
1018 + .45586, .74709, .84754,
1019 + .15216, .08520, 14.60968, .86238, .62179,
1020 + .48242, .77095, .87104,
1021 + .15447, .08651, 14.90318, .88367, .64436,
1022 + .50630, .79276, .89253,
1023 + .15679, .08783, 15.19638, .90521, .66737,
1024 + .53086, .81483, .91426,
1025 + .15903, .08909, 15.45894, .92565, .68905,
1026 + .55380, .83577, .93489,
1027 + .16116, .09029, 15.70822, .94524, .71000,
1028 + .57615, .85585, .95466,
1029 + .16314, .09141, 15.92168, .96309, .72894,
1030 + .59618, .87414, .97267 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .16515, .09253, 16.13783, .98126, .74836,
1033 + .61689, .89277, .99101,
1034 + .16710, .09362, 16.33095, .99853, .76674,
1035 + .63635, .91048, 1.00845,
1036 + .16895, .09466, 16.51272, 1.01504, .78436,
1037 + .65510, .92741, 1.02511,
1038 + .17070, .09563, 16.67480, 1.03038, .80074,
1039 + .67251, .94315, 1.04060,
1040 + .17245, .09660, 16.82891, 1.04560, .81697,
1041 + .68973, .95876, 1.05596 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .09355, .05163, 1.00255, .22523, .00000,
1044 + .00000, .12211, .22844,
1045 + .09721, .05389, 1.46987, .23815, .00000,
1046 + .00000, .13585, .24170,
1047 + .10251, .05714, 2.16566, .25881, .00000,
1048 + .00000, .15768, .26286,
1049 + .10628, .05944, 2.67709, .27487, .00939,
1050 + .00000, .17457, .27927,
1051 + .11015, .06178, 3.18584, .29241, .03127,
1052 + .00000, .19295, .29717,
1053 + .11344, .06376, 3.62384, .30807, .04815,
1054 + .00000, .20931, .31314,
1055 + .11656, .06564, 4.04870, .32343, .06538,
1056 + .00000, .22534, .32879,
1057 + .11984, .06761, 4.50197, .34009, .08437,
1058 + .00000, .24270, .34575 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .12265, .06928, 4.88988, .35482, .10066,
1061 + .00000, .25802, .36074,
1062 + .12533, .07088, 5.25689, .36916, .11634,
1063 + .00000, .27293, .37533,
1064 + .12745, .07213, 5.55296, .38073, .12942,
1065 + .00000, .28494, .38710,
1066 + .13187, .07474, 6.13851, .40555, .15667,
1067 + .00547, .31068, .41232,
1068 + .13559, .07693, 6.59267, .42694, .17995,
1069 + .03370, .33285, .43405,
1070 + .13970, .07933, 7.08845, .45103, .20624,
1071 + .06549, .35778, .45851,
1072 + .14391, .08178, 7.58590, .47599, .23348,
1073 + .09543, .38361, .48385,
1074 + .14768, .08395, 8.01823, .49849, .25802,
1075 + .12238, .40689, .50669 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .15142, .08611, 8.43715, .52106, .28267,
1078 + .14937, .43024, .52960,
1079 + .15449, .08788, 8.77135, .53965, .30298,
1080 + .17155, .44947, .54847,
1081 + .15815, .08996, 9.15197, .56178, .32698,
1082 + .19738, .47235, .57092,
1083 + .16135, .09178, 9.47397, .58116, .34807,
1084 + .22022, .49238, .59058,
1085 + .16426, .09343, 9.76091, .59886, .36746,
1086 + .24141, .51069, .60854,
1087 + .16788, .09547, 10.09497, .62065, .39108,
1088 + .26678, .53322, .63065,
1089 + .17124, .09736, 10.39181, .64081, .41302,
1090 + .29045, .55408, .65111,
1091 + .17435, .09910, 10.65745, .65950, .43344,
1092 + .31259, .57341, .67006 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .17741, .10080, 10.90223, .67766, .45320,
1095 + .33388, .59221, .68849,
1096 + .18036, .10244, 11.12703, .69507, .47219,
1097 + .35436, .61023, .70615,
1098 + .18314, .10398, 11.33126, .71139, .49008,
1099 + .37376, .62714, .72271,
1100 + .18570, .10539, 11.50352, .72616, .50617,
1101 + .39105, .64244, .73770,
1102 + .18827, .10680, 11.67420, .74103, .52250,
1103 + .40876, .65786, .75279,
1104 + .19075, .10815, 11.82219, .75498, .53774,
1105 + .42515, .67234, .76695,
1106 + .19311, .10944, 11.96179, .76830, .55241,
1107 + .44107, .68616, .78048,
1108 + .19528, .11062, 12.07692, .78031, .56555,
1109 + .45522, .69863, .79266 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .19748, .11181, 12.19303, .79249, .57899,
1112 + .46980, .71128, .80504,
1113 + .19960, .11295, 12.29266, .80396, .59159,
1114 + .48338, .72320, .81668,
1115 + .20163, .11404, 12.38553, .81486, .60362,
1116 + .49643, .73455, .82775,
1117 + .20352, .11506, 12.46577, .82492, .61474,
1118 + .50847, .74502, .83796,
1119 + .20542, .11608, 12.53953, .83482, .62568,
1120 + .52032, .75533, .84802 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .10946, .06247, 1.08535, .21588, .00000,
1123 + .00000, .11722, .22034,
1124 + .11367, .06504, 1.51730, .22780, .00000,
1125 + .00000, .12998, .23268,
1126 + .11974, .06870, 2.14972, .24658, .00000,
1127 + .00000, .14994, .25205,
1128 + .12405, .07129, 2.60621, .26100, .00850,
1129 + .00000, .16521, .26689,
1130 + .12845, .07391, 3.05364, .27659, .02824,
1131 + .00000, .18164, .28290,
1132 + .13218, .07612, 3.43406, .29036, .04332,
1133 + .00000, .19614, .29704,
1134 + .13571, .07821, 3.79900, .30378, .05860,
1135 + .00000, .21024, .31079,
1136 + .13940, .08039, 4.18424, .31823, .07533,
1137 + .00000, .22540, .32560 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .14257, .08224, 4.51056, .33091, .08958,
1140 + .00000, .23868, .33858,
1141 + .14558, .08399, 4.81642, .34318, .10322,
1142 + .00000, .25153, .35113,
1143 + .14795, .08538, 5.06147, .35303, .11455,
1144 + .00000, .26184, .36121,
1145 + .15289, .08823, 5.53957, .37400, .13797,
1146 + .00477, .28376, .38264,
1147 + .15702, .09061, 5.90339, .39191, .15781,
1148 + .02900, .30247, .40094,
1149 + .16158, .09322, 6.29537, .41191, .18005,
1150 + .05617, .32335, .42136,
1151 + .16624, .09586, 6.68312, .43246, .20291,
1152 + .08153, .34479, .44233,
1153 + .17038, .09820, 7.01530, .45082, .22334,
1154 + .10419, .36396, .46107 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .17449, .10052, 7.33283, .46909, .24371,
1157 + .12673, .38303, .47972,
1158 + .17784, .10240, 7.58298, .48403, .26039,
1159 + .14513, .39863, .49496,
1160 + .18183, .10462, 7.86358, .50167, .27996,
1161 + .16642, .41705, .51296,
1162 + .18531, .10654, 8.09776, .51700, .29703,
1163 + .18513, .43306, .52860,
1164 + .18846, .10828, 8.30422, .53093, .31266,
1165 + .20240, .44762, .54281,
1166 + .19237, .11042, 8.53996, .54791, .33154,
1167 + .22293, .46538, .56014,
1168 + .19598, .11240, 8.74601, .56352, .34896,
1169 + .24196, .48171, .57606,
1170 + .19932, .11421, 8.92776, .57788, .36509,
1171 + .25968, .49674, .59071 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .20259, .11598, 9.09172, .59172, .38058,
1174 + .27659, .51124, .60484,
1175 + .20574, .11767, 9.23951, .60489, .39537,
1176 + .29278, .52506, .61828,
1177 + .20869, .11925, 9.37189, .61717, .40925,
1178 + .30804, .53794, .63081,
1179 + .21141, .12070, 9.48006, .62818, .42162,
1180 + .32154, .54951, .64205,
1181 + .21412, .12215, 9.58639, .63922, .43415,
1182 + .33534, .56112, .65332,
1183 + .21673, .12352, 9.67493, .64948, .44574,
1184 + .34801, .57193, .66380,
1185 + .21921, .12482, 9.75795, .65924, .45687,
1186 + .36029, .58221, .67377,
1187 + .22149, .12602, 9.82301, .66796, .46676,
1188 + .37112, .59140, .68267 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .22378, .12722, 9.88844, .67678, .47685,
1191 + .38226, .60072, .69169,
1192 + .22599, .12837, 9.94126, .68499, .48624,
1193 + .39257, .60940, .70008,
1194 + .22810, .12946, 9.98985, .69278, .49518,
1195 + .40244, .61765, .70804,
1196 + .23006, .13048, 10.02979, .69991, .50339,
1197 + .41151, .62520, .71532,
1198 + .23203, .13149, 10.06443, .70687, .51143,
1199 + .42039, .63260, .72245 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .12410, .07252, 1.15929, .20917, .00000,
1202 + .00000, .11379, .21494,
1203 + .12878, .07532, 1.56198, .22029, .00000,
1204 + .00000, .12577, .22653,
1205 + .13549, .07932, 2.14341, .23757, .00000,
1206 + .00000, .14427, .24449,
1207 + .14026, .08213, 2.55684, .25071, .00783,
1208 + .00000, .15829, .25811,
1209 + .14509, .08496, 2.95711, .26480, .02597,
1210 + .00000, .17325, .27267,
1211 + .14918, .08734, 3.29394, .27715, .03970,
1212 + .00000, .18634, .28541,
1213 + .15304, .08958, 3.61406, .28910, .05354,
1214 + .00000, .19900, .29774,
1215 + .15708, .09191, 3.94900, .30189, .06862,
1216 + .00000, .21253, .31093 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .16053, .09389, 4.23031, .31305, .08138,
1219 + .00000, .22432, .32242,
1220 + .16380, .09576, 4.49187, .32378, .09353,
1221 + .00000, .23565, .33347,
1222 + .16637, .09723, 4.70020, .33237, .10358,
1223 + .00000, .24472, .34230,
1224 + .17171, .10026, 5.10186, .35054, .12426,
1225 + .00427, .26387, .36097,
1226 + .17617, .10277, 5.40221, .36593, .14165,
1227 + .02564, .28010, .37679,
1228 + .18108, .10550, 5.72203, .38300, .16102,
1229 + .04952, .29808, .39432,
1230 + .18606, .10827, 6.03436, .40040, .18079,
1231 + .07165, .31642, .41218,
1232 + .19049, .11072, 6.29852, .41584, .19835,
1233 + .09131, .33269, .42802 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .19487, .11312, 6.54792, .43109, .21575,
1236 + .11074, .34878, .44367,
1237 + .19843, .11507, 6.74202, .44348, .22991,
1238 + .12652, .36186, .45639,
1239 + .20266, .11736, 6.95646, .45801, .24643,
1240 + .14468, .37720, .47129,
1241 + .20632, .11933, 7.13310, .47055, .26077,
1242 + .16057, .39046, .48416,
1243 + .20965, .12112, 7.28726, .48189, .27383,
1244 + .17517, .40245, .49579,
1245 + .21374, .12330, 7.45970, .49561, .28952,
1246 + .19242, .41697, .50987,
1247 + .21752, .12531, 7.60792, .50812, .30391,
1248 + .20833, .43024, .52271,
1249 + .22101, .12715, 7.73664, .51957, .31716,
1250 + .22308, .44239, .53446 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .22442, .12893, 7.84977, .53052, .32981,
1253 + .23707, .45403, .54570,
1254 + .22768, .13063, 7.94971, .54088, .34183,
1255 + .25040, .46505, .55633,
1256 + .23073, .13222, 8.03785, .55048, .35305,
1257 + .26292, .47529, .56619,
1258 + .23353, .13366, 8.10684, .55900, .36300,
1259 + .27394, .48440, .57494,
1260 + .23633, .13510, 8.17402, .56753, .37304,
1261 + .28516, .49351, .58370,
1262 + .23900, .13646, 8.22701, .57538, .38227,
1263 + .29541, .50192, .59176,
1264 + .24153, .13775, 8.27633, .58282, .39110,
1265 + .30532, .50991, .59942,
1266 + .24385, .13892, 8.31174, .58940, .39890,
1267 + .31400, .51698, .60618 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .24620, .14010, 8.34726, .59604, .40684,
1270 + .32293, .52414, .61301,
1271 + .24844, .14123, 8.37286, .60216, .41417,
1272 + .33113, .53075, .61931,
1273 + .25058, .14229, 8.39585, .60794, .42114,
1274 + .33897, .53700, .62526,
1275 + .25256, .14328, 8.41273, .61320, .42751,
1276 + .34615, .54270, .63067,
1277 + .25454, .14426, 8.42525, .61830, .43371,
1278 + .35314, .54825, .63593 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .15094, .09091, 1.28407, .19960, .00000,
1281 + .00000, .10906, .20807,
1282 + .15638, .09406, 1.63853, .20940, .00000,
1283 + .00000, .11979, .21845,
1284 + .16414, .09852, 2.13917, .22435, .00000,
1285 + .00000, .13607, .23418,
1286 + .16960, .10162, 2.48658, .23553, .00685,
1287 + .00000, .14818, .24592,
1288 + .17512, .10474, 2.81601, .24735, .02263,
1289 + .00000, .16096, .25829,
1290 + .17976, .10734, 3.08862, .25757, .03442,
1291 + .00000, .17198, .26897,
1292 + .18413, .10978, 3.34378, .26736, .04619,
1293 + .00000, .18254, .27919,
1294 + .18868, .11231, 3.60686, .27774, .05889,
1295 + .00000, .19373, .29002 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .19256, .11444, 3.82463, .28670, .06954,
1298 + .00000, .20337, .29935,
1299 + .19621, .11644, 4.02435, .29523, .07961,
1300 + .00000, .21256, .30824,
1301 + .19909, .11801, 4.18188, .30203, .08789,
1302 + .00000, .21987, .31530,
1303 + .20502, .12122, 4.47894, .31622, .10474,
1304 + .00356, .23514, .33006,
1305 + .20993, .12387, 4.69390, .32811, .11876,
1306 + .02100, .24792, .34241,
1307 + .21530, .12673, 4.91790, .34113, .13422,
1308 + .04038, .26193, .35592,
1309 + .22074, .12961, 5.13153, .35421, .14981,
1310 + .05812, .27604, .36950,
1311 + .22553, .13212, 5.30770, .36567, .16352,
1312 + .07372, .28840, .38139 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .23025, .13458, 5.46988, .37685, .17697,
1315 + .08901, .30049, .39299,
1316 + .23407, .13657, 5.59303, .38585, .18782,
1317 + .10132, .31022, .40232,
1318 + .23857, .13888, 5.72512, .39624, .20033,
1319 + .11536, .32149, .41310,
1320 + .24246, .14086, 5.83078, .40512, .21110,
1321 + .12754, .33114, .42231,
1322 + .24597, .14264, 5.92086, .41307, .22085,
1323 + .13866, .33979, .43056,
1324 + .25027, .14480, 6.01668, .42253, .23241,
1325 + .15167, .35013, .44039,
1326 + .25421, .14677, 6.09572, .43106, .24292,
1327 + .16357, .35946, .44924,
1328 + .25783, .14856, 6.16176, .43877, .25252,
1329 + .17452, .36793, .45725 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .26134, .15029, 6.21587, .44604, .26159,
1332 + .18481, .37593, .46479,
1333 + .26469, .15192, 6.26045, .45282, .27013,
1334 + .19454, .38343, .47184,
1335 + .26781, .15344, 6.29765, .45905, .27805,
1336 + .20362, .39033, .47832,
1337 + .27064, .15480, 6.32243, .46448, .28498,
1338 + .21153, .39638, .48396,
1339 + .27347, .15616, 6.34576, .46987, .29195,
1340 + .21956, .40240, .48957,
1341 + .27616, .15743, 6.35926, .47473, .29827,
1342 + .22681, .40787, .49464,
1343 + .27869, .15862, 6.37139, .47932, .30431,
1344 + .23380, .41303, .49942,
1345 + .28100, .15970, 6.37489, .48328, .30956,
1346 + .23986, .41752, .50355 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .28333, .16078, 6.37839, .48727, .31489,
1349 + .24607, .42205, .50770,
1350 + .28553, .16180, 6.37518, .49085, .31975,
1351 + .25172, .42615, .51144,
1352 + .28763, .16277, 6.37123, .49421, .32435,
1353 + .25710, .43001, .51495,
1354 + .28957, .16365, 6.36408, .49721, .32851,
1355 + .26199, .43348, .51809,
1356 + .29149, .16452, 6.35376, .50007, .33253,
1357 + .26671, .43682, .52108 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .18744, .11549, 1.42374, .18946, .00000,
1360 + .00000, .10432, .20212,
1361 + .19371, .11894, 1.72086, .19772, .00000,
1362 + .00000, .11362, .21102,
1363 + .20257, .12376, 2.13009, .21002, .00000,
1364 + .00000, .12741, .22422,
1365 + .20877, .12708, 2.40590, .21904, .00583,
1366 + .00000, .13749, .23387,
1367 + .21499, .13039, 2.66073, .22843, .01916,
1368 + .00000, .14795, .24386,
1369 + .22018, .13313, 2.86733, .23642, .02898,
1370 + .00000, .15684, .25235,
1371 + .22504, .13568, 3.05714, .24397, .03868,
1372 + .00000, .16526, .26037,
1373 + .23008, .13831, 3.24928, .25189, .04903,
1374 + .00000, .17407, .26876 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .23434, .14051, 3.40535, .25863, .05762,
1377 + .00000, .18157, .27590,
1378 + .23834, .14256, 3.54596, .26498, .06565,
1379 + .00000, .18865, .28262,
1380 + .24148, .14416, 3.65554, .27000, .07223,
1381 + .00000, .19424, .28792,
1382 + .24789, .14741, 3.85566, .28033, .08544,
1383 + .00288, .20577, .29883,
1384 + .25317, .15005, 3.99297, .28885, .09629,
1385 + .01660, .21528, .30781,
1386 + .25890, .15290, 4.13168, .29802, .10811,
1387 + .03175, .22554, .31748,
1388 + .26465, .15571, 4.25912, .30707, .11987,
1389 + .04544, .23572, .32702,
1390 + .26968, .15816, 4.35989, .31486, .13008,
1391 + .05734, .24450, .33523 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .27459, .16052, 4.44873, .32234, .13998,
1394 + .06887, .25297, .34311,
1395 + .27854, .16240, 4.51326, .32825, .14788,
1396 + .07807, .25969, .34933,
1397 + .28316, .16457, 4.57804, .33496, .15688,
1398 + .08845, .26736, .35641,
1399 + .28711, .16641, 4.62673, .34059, .16455,
1400 + .09737, .27383, .36235,
1401 + .29066, .16806, 4.66617, .34557, .17142,
1402 + .10546, .27956, .36759,
1403 + .29497, .17003, 4.70279, .35135, .17946,
1404 + .11479, .28629, .37369,
1405 + .29888, .17179, 4.72898, .35646, .18669,
1406 + .12326, .29227, .37908,
1407 + .30245, .17339, 4.74775, .36100, .19322,
1408 + .13097, .29762, .38388 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .30588, .17490, 4.75835, .36517, .19931,
1411 + .13815, .30258, .38828,
1412 + .30912, .17632, 4.76292, .36897, .20497,
1413 + .14487, .30714, .39230,
1414 + .31212, .17763, 4.76392, .37240, .21018,
1415 + .15110, .31130, .39593,
1416 + .31482, .17878, 4.75809, .37528, .21466,
1417 + .15645, .31484, .39898,
1418 + .31751, .17991, 4.75139, .37812, .21915,
1419 + .16186, .31834, .40199,
1420 + .32002, .18095, 4.73833, .38056, .22314,
1421 + .16669, .32142, .40459,
1422 + .32239, .18194, 4.72570, .38285, .22694,
1423 + .17132, .32432, .40702,
1424 + .32451, .18280, 4.70873, .38473, .23019,
1425 + .17527, .32676, .40902 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .32665, .18367, 4.69184, .38662, .23347,
1428 + .17932, .32921, .41103,
1429 + .32865, .18447, 4.67082, .38821, .23641,
1430 + .18295, .33135, .41272,
1431 + .33054, .18521, 4.65041, .38968, .23917,
1432 + .18639, .33334, .41430,
1433 + .33228, .18589, 4.62901, .39094, .24163,
1434 + .18948, .33509, .41564,
1435 + .33398, .18655, 4.60554, .39208, .24398,
1436 + .19245, .33672, .41687 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .24236, .15092, 1.56293, .17648, .00000,
1439 + .00000, .09863, .19613,
1440 + .24945, .15447, 1.78762, .18273, .00000,
1441 + .00000, .10610, .20306,
1442 + .25936, .15936, 2.08698, .19179, .00000,
1443 + .00000, .11689, .21303,
1444 + .26620, .16269, 2.28092, .19827, .00468,
1445 + .00000, .12459, .22013,
1446 + .27299, .16595, 2.45289, .20487, .01529,
1447 + .00000, .13242, .22732,
1448 + .27860, .16861, 2.58834, .21035, .02296,
1449 + .00000, .13895, .23329,
1450 + .28382, .17106, 2.70953, .21546, .03044,
1451 + .00000, .14503, .23883,
1452 + .28918, .17356, 2.82893, .22071, .03831,
1453 + .00000, .15130, .24452 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .29367, .17563, 2.92303, .22510, .04476,
1456 + .00000, .15656, .24927,
1457 + .29786, .17753, 3.00531, .22916, .05071,
1458 + .00000, .16144, .25366,
1459 + .30113, .17900, 3.06827, .23233, .05555,
1460 + .00000, .16526, .25709,
1461 + .30772, .18196, 3.17620, .23874, .06513,
1462 + .00218, .17299, .26399,
1463 + .31308, .18431, 3.24208, .24388, .07287,
1464 + .01221, .17924, .26951,
1465 + .31882, .18679, 3.30396, .24928, .08116,
1466 + .02320, .18586, .27531,
1467 + .32450, .18920, 3.35572, .25445, .08929,
1468 + .03296, .19225, .28085,
1469 + .32941, .19125, 3.39198, .25875, .09622,
1470 + .04133, .19765, .28547 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .33414, .19318, 3.41952, .26275, .10283,
1473 + .04934, .20272, .28976,
1474 + .33790, .19471, 3.43606, .26583, .10804,
1475 + .05564, .20668, .29306,
1476 + .34222, .19641, 3.44715, .26918, .11387,
1477 + .06266, .21107, .29666,
1478 + .34588, .19783, 3.45137, .27190, .11877,
1479 + .06863, .21468, .29956,
1480 + .34912, .19908, 3.45197, .27424, .12311,
1481 + .07398, .21783, .30206,
1482 + .35299, .20052, 3.44430, .27680, .12809,
1483 + .08007, .22140, .30480,
1484 + .35646, .20177, 3.43235, .27895, .13248,
1485 + .08551, .22448, .30711,
1486 + .35958, .20288, 3.41792, .28077, .13640,
1487 + .09042, .22716, .30906 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .36251, .20389, 3.39863, .28232, .13999,
1490 + .09493, .22953, .31072,
1491 + .36524, .20481, 3.37662, .28364, .14327,
1492 + .09909, .23165, .31212,
1493 + .36774, .20564, 3.35419, .28477, .14624,
1494 + .10291, .23353, .31333,
1495 + .36994, .20633, 3.32924, .28558, .14874,
1496 + .10614, .23503, .31420,
1497 + .37211, .20700, 3.30409, .28636, .15122,
1498 + .10938, .23649, .31503,
1499 + .37408, .20757, 3.27591, .28689, .15336,
1500 + .11222, .23768, .31561,
1501 + .37593, .20811, 3.24940, .28737, .15539,
1502 + .11493, .23879, .31613,
1503 + .37754, .20855, 3.22158, .28763, .15706,
1504 + .11719, .23961, .31640 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .37915, .20898, 3.19403, .28788, .15875,
1507 + .11950, .24044, .31667,
1508 + .38061, .20934, 3.16462, .28795, .16021,
1509 + .12154, .24107, .31674,
1510 + .38199, .20968, 3.13670, .28799, .16156,
1511 + .12345, .24164, .31678,
1512 + .38322, .20996, 3.10932, .28793, .16274,
1513 + .12515, .24208, .31672,
1514 + .38440, .21021, 3.08087, .28780, .16384,
1515 + .12675, .24244, .31658 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .29239, .18124, 1.62085, .16505, .00000,
1518 + .00000, .09384, .19140,
1519 + .29981, .18460, 1.79131, .16975, .00000,
1520 + .00000, .09989, .19670,
1521 + .31006, .18914, 2.01192, .17640, .00000,
1522 + .00000, .10844, .20414,
1523 + .31706, .19220, 2.14963, .18106, .00387,
1524 + .00000, .11443, .20931,
1525 + .32391, .19515, 2.26652, .18572, .01258,
1526 + .00000, .12042, .21445,
1527 + .32954, .19750, 2.35595, .18951, .01880,
1528 + .00000, .12533, .21862,
1529 + .33473, .19965, 2.43380, .19298, .02480,
1530 + .00000, .12985, .22242,
1531 + .34001, .20181, 2.50830, .19648, .03106,
1532 + .00000, .13445, .22626 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .34439, .20357, 2.56506, .19936, .03613,
1535 + .00000, .13825, .22939,
1536 + .34843, .20517, 2.61281, .20197, .04077,
1537 + .00000, .14173, .23223,
1538 + .35158, .20639, 2.64859, .20400, .04452,
1539 + .00000, .14443, .23443,
1540 + .35787, .20879, 2.70410, .20797, .05185,
1541 + .00173, .14982, .23872,
1542 + .36288, .21066, 2.73071, .21107, .05770,
1543 + .00948, .15408, .24206,
1544 + .36818, .21257, 2.75156, .21423, .06390,
1545 + .01793, .15850, .24545,
1546 + .37335, .21439, 2.76412, .21712, .06988,
1547 + .02534, .16267, .24854,
1548 + .37774, .21588, 2.76788, .21943, .07492,
1549 + .03162, .16611, .25099 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38191, .21724, 2.76538, .22148, .07968,
1552 + .03757, .16927, .25317,
1553 + .38518, .21827, 2.75909, .22298, .08337,
1554 + .04221, .17166, .25475,
1555 + .38886, .21938, 2.74548, .22450, .08746,
1556 + .04733, .17423, .25634,
1557 + .39192, .22026, 2.72982, .22565, .09084,
1558 + .05163, .17630, .25753,
1559 + .39462, .22101, 2.71350, .22658, .09381,
1560 + .05546, .17805, .25850,
1561 + .39773, .22182, 2.68743, .22746, .09716,
1562 + .05977, .17994, .25937,
1563 + .40046, .22248, 2.66020, .22809, .10008,
1564 + .06358, .18149, .25999,
1565 + .40288, .22302, 2.63296, .22854, .10264,
1566 + .06700, .18279, .26042 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .40509, .22346, 2.60283, .22878, .10495,
1569 + .07008, .18386, .26062,
1570 + .40709, .22382, 2.57178, .22888, .10702,
1571 + .07291, .18475, .26066,
1572 + .40889, .22413, 2.54179, .22889, .10888,
1573 + .07548, .18550, .26061,
1574 + .41040, .22431, 2.51128, .22872, .11040,
1575 + .07762, .18600, .26036,
1576 + .41189, .22449, 2.48098, .22851, .11190,
1577 + .07976, .18647, .26009,
1578 + .41316, .22457, 2.44925, .22815, .11315,
1579 + .08160, .18676, .25965,
1580 + .41436, .22464, 2.41963, .22780, .11433,
1581 + .08335, .18701, .25922,
1582 + .41533, .22463, 2.39008, .22733, .11526,
1583 + .08479, .18710, .25865 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .41630, .22462, 2.36091, .22686, .11621,
1586 + .08625, .18719, .25808,
1587 + .41711, .22454, 2.33098, .22626, .11698,
1588 + .08750, .18713, .25737,
1589 + .41786, .22446, 2.30279, .22568, .11770,
1590 + .08869, .18705, .25668,
1591 + .41850, .22434, 2.27569, .22506, .11830,
1592 + .08971, .18691, .25597,
1593 + .41907, .22419, 2.24802, .22439, .11883,
1594 + .09067, .18671, .25519 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .38171, .23052, 1.59408, .14377, .00000,
1597 + .00000, .08492, .18155,
1598 + .38877, .23300, 1.69041, .14628, .00000,
1599 + .00000, .08886, .18428,
1600 + .39829, .23621, 1.80770, .14963, .00000,
1601 + .00000, .09422, .18789,
1602 + .40464, .23825, 1.87490, .15188, .00277,
1603 + .00000, .09787, .19029,
1604 + .41070, .24012, 1.92527, .15404, .00894,
1605 + .00000, .10142, .19253,
1606 + .41554, .24154, 1.96058, .15571, .01327,
1607 + .00000, .10424, .19423,
1608 + .41991, .24277, 1.98880, .15717, .01738,
1609 + .00000, .10677, .19570,
1610 + .42428, .24394, 2.01317, .15857, .02161,
1611 + .00000, .10928, .19709 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .42782, .24484, 2.02911, .15965, .02498,
1614 + .00000, .11130, .19814,
1615 + .43100, .24560, 2.04002, .16058, .02803,
1616 + .00000, .11309, .19900,
1617 + .43343, .24617, 2.04732, .16128, .03047,
1618 + .00000, .11447, .19964,
1619 + .43816, .24714, 2.04972, .16251, .03516,
1620 + .00118, .11709, .20074,
1621 + .44176, .24777, 2.03851, .16336, .03883,
1622 + .00621, .11907, .20143,
1623 + .44541, .24831, 2.02124, .16409, .04265,
1624 + .01167, .12103, .20195,
1625 + .44878, .24869, 1.99878, .16459, .04626,
1626 + .01637, .12276, .20220,
1627 + .45150, .24888, 1.97476, .16483, .04923,
1628 + .02029, .12408, .20220 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .45394, .24894, 1.94772, .16489, .05198,
1631 + .02395, .12519, .20200,
1632 + .45575, .24888, 1.92353, .16482, .05407,
1633 + .02676, .12597, .20169,
1634 + .45761, .24868, 1.89158, .16456, .05633,
1635 + .02981, .12669, .20113,
1636 + .45905, .24841, 1.86210, .16420, .05817,
1637 + .03233, .12719, .20049,
1638 + .46024, .24811, 1.83464, .16381, .05975,
1639 + .03456, .12756, .19984,
1640 + .46140, .24760, 1.79768, .16314, .06148,
1641 + .03701, .12781, .19880,
1642 + .46229, .24703, 1.76228, .16240, .06294,
1643 + .03914, .12791, .19772,
1644 + .46297, .24643, 1.72895, .16163, .06420,
1645 + .04103, .12791, .19664 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .46342, .24574, 1.69484, .16076, .06528,
1648 + .04269, .12778, .19542,
1649 + .46370, .24499, 1.66130, .15983, .06622,
1650 + .04419, .12756, .19415,
1651 + .46387, .24426, 1.62985, .15892, .06704,
1652 + .04554, .12730, .19292,
1653 + .46383, .24348, 1.59957, .15796, .06767,
1654 + .04663, .12694, .19165,
1655 + .46376, .24270, 1.56986, .15699, .06829,
1656 + .04771, .12656, .19038,
1657 + .46349, .24184, 1.54014, .15596, .06876,
1658 + .04861, .12609, .18903,
1659 + .46322, .24104, 1.51263, .15498, .06919,
1660 + .04946, .12564, .18775,
1661 + .46280, .24020, 1.48619, .15398, .06950,
1662 + .05013, .12513, .18646 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .46238, .23938, 1.46023, .15298, .06981,
1665 + .05081, .12461, .18518,
1666 + .46183, .23849, 1.43438, .15193, .07001,
1667 + .05137, .12403, .18384,
1668 + .46128, .23764, 1.41023, .15093, .07020,
1669 + .05189, .12347, .18258,
1670 + .46067, .23681, 1.38744, .14996, .07033,
1671 + .05233, .12290, .18135,
1672 + .45999, .23594, 1.36453, .14895, .07042,
1673 + .05272, .12230, .18008 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .45900, .26801, 1.47257, .12417, .00000,
1676 + .00000, .07629, .16991,
1677 + .46480, .26926, 1.52412, .12526, .00000,
1678 + .00000, .07877, .17076,
1679 + .47232, .27066, 1.58168, .12661, .00000,
1680 + .00000, .08204, .17168,
1681 + .47714, .27140, 1.61007, .12745, .00206,
1682 + .00000, .08420, .17217,
1683 + .48157, .27191, 1.62529, .12819, .00661,
1684 + .00000, .08624, .17253,
1685 + .48495, .27218, 1.63307, .12868, .00975,
1686 + .00000, .08780, .17265,
1687 + .48789, .27231, 1.63678, .12904, .01272,
1688 + .00000, .08916, .17264,
1689 + .49073, .27233, 1.63711, .12933, .01573,
1690 + .00000, .09046, .17253 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .49291, .27222, 1.63407, .12948, .01810,
1693 + .00000, .09147, .17232,
1694 + .49477, .27203, 1.62838, .12954, .02023,
1695 + .00000, .09232, .17201,
1696 + .49615, .27185, 1.62312, .12956, .02192,
1697 + .00000, .09296, .17174,
1698 + .49860, .27125, 1.60334, .12945, .02513,
1699 + .00085, .09411, .17102,
1700 + .50023, .27057, 1.57785, .12922, .02761,
1701 + .00434, .09489, .17024,
1702 + .50166, .26965, 1.54710, .12881, .03014,
1703 + .00812, .09559, .16920,
1704 + .50272, .26854, 1.51318, .12824, .03249,
1705 + .01132, .09610, .16794,
1706 + .50334, .26741, 1.48096, .12758, .03440,
1707 + .01396, .09638, .16667 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .50366, .26615, 1.44749, .12680, .03613,
1710 + .01639, .09652, .16528,
1711 + .50371, .26503, 1.41921, .12608, .03743,
1712 + .01824, .09654, .16406,
1713 + .50346, .26354, 1.38400, .12510, .03880,
1714 + .02022, .09642, .16245,
1715 + .50301, .26217, 1.35275, .12418, .03989,
1716 + .02185, .09622, .16096,
1717 + .50248, .26089, 1.32437, .12331, .04081,
1718 + .02326, .09599, .15957,
1719 + .50148, .25913, 1.28774, .12207, .04179,
1720 + .02479, .09555, .15770,
1721 + .50036, .25741, 1.25362, .12087, .04260,
1722 + .02611, .09506, .15588,
1723 + .49917, .25576, 1.22216, .11971, .04327,
1724 + .02726, .09456, .15416 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49776, .25405, 1.19076, .11849, .04382,
1727 + .02825, .09396, .15239,
1728 + .49624, .25233, 1.16045, .11726, .04428,
1729 + .02913, .09333, .15062,
1730 + .49472, .25069, 1.13240, .11609, .04466,
1731 + .02991, .09271, .14894,
1732 + .49310, .24907, 1.10597, .11494, .04493,
1733 + .03053, .09205, .14730,
1734 + .49146, .24746, 1.08022, .11380, .04519,
1735 + .03114, .09140, .14568,
1736 + .48967, .24580, 1.05492, .11262, .04536,
1737 + .03163, .09068, .14404,
1738 + .48797, .24425, 1.03163, .11152, .04551,
1739 + .03208, .09001, .14251,
1740 + .48620, .24272, 1.00962, .11043, .04558,
1741 + .03243, .08933, .14101 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .48444, .24120, .98810, .10936, .04565,
1744 + .03278, .08865, .13952,
1745 + .48255, .23966, .96696, .10827, .04566,
1746 + .03305, .08794, .13802,
1747 + .48075, .23819, .94732, .10724, .04566,
1748 + .03330, .08726, .13660,
1749 + .47897, .23678, .92895, .10625, .04563,
1750 + .03350, .08660, .13525,
1751 + .47713, .23534, .91063, .10524, .04558,
1752 + .03368, .08592, .13388 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .52532, .29610, 1.31846, .10652, .00000,
1755 + .00000, .06792, .15653,
1756 + .52925, .29596, 1.34323, .10674, .00000,
1757 + .00000, .06940, .15603,
1758 + .53396, .29535, 1.36619, .10689, .00000,
1759 + .00000, .07125, .15508,
1760 + .53671, .29471, 1.37301, .10692, .00157,
1761 + .00000, .07244, .15427,
1762 + .53901, .29378, 1.36971, .10683, .00501,
1763 + .00000, .07350, .15339,
1764 + .54052, .29285, 1.36328, .10667, .00738,
1765 + .00000, .07427, .15246,
1766 + .54168, .29185, 1.35473, .10644, .00958,
1767 + .00000, .07490, .15152,
1768 + .54263, .29068, 1.34342, .10612, .01180,
1769 + .00000, .07547, .15046 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .54318, .28958, 1.33152, .10578, .01354,
1772 + .00000, .07587, .14947,
1773 + .54346, .28843, 1.31834, .10539, .01508,
1774 + .00000, .07617, .14846,
1775 + .54361, .28750, 1.30754, .10507, .01630,
1776 + .00000, .07638, .14765,
1777 + .54344, .28537, 1.27893, .10429, .01859,
1778 + .00064, .07668, .14584,
1779 + .54286, .28340, 1.24874, .10354, .02033,
1780 + .00316, .07679, .14423,
1781 + .54183, .28110, 1.21416, .10262, .02209,
1782 + .00588, .07678, .14233,
1783 + .54037, .27858, 1.17774, .10154, .02371,
1784 + .00816, .07663, .14027,
1785 + .53874, .27620, 1.14440, .10049, .02499,
1786 + .01003, .07639, .13833 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .53681, .27373, 1.11078, .09938, .02614,
1789 + .01172, .07604, .13633,
1790 + .53502, .27164, 1.08304, .09841, .02699,
1791 + .01300, .07568, .13465,
1792 + .53256, .26902, 1.04935, .09718, .02786,
1793 + .01436, .07516, .13255,
1794 + .53021, .26666, 1.01998, .09605, .02854,
1795 + .01545, .07464, .13068,
1796 + .52798, .26449, .99363, .09501, .02911,
1797 + .01641, .07413, .12897,
1798 + .52482, .26165, .96033, .09363, .02969,
1799 + .01742, .07340, .12675,
1800 + .52170, .25895, .92974, .09231, .03015,
1801 + .01828, .07267, .12465,
1802 + .51868, .25642, .90185, .09107, .03052,
1803 + .01901, .07196, .12269 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .51549, .25384, .87441, .08979, .03081,
1806 + .01964, .07119, .12072,
1807 + .51225, .25130, .84821, .08855, .03103,
1808 + .02019, .07042, .11879,
1809 + .50913, .24892, .82417, .08738, .03121,
1810 + .02068, .06968, .11697,
1811 + .50604, .24660, .80179, .08623, .03131,
1812 + .02104, .06895, .11526,
1813 + .50297, .24430, .78009, .08509, .03140,
1814 + .02140, .06822, .11357,
1815 + .49976, .24200, .75901, .08395, .03143,
1816 + .02168, .06745, .11189,
1817 + .49675, .23986, .73967, .08289, .03145,
1818 + .02194, .06674, .11032,
1819 + .49374, .23779, .72158, .08187, .03143,
1820 + .02213, .06604, .10882 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .49076, .23573, .70396, .08087, .03141,
1823 + .02231, .06534, .10733,
1824 + .48770, .23366, .68680, .07986, .03134,
1825 + .02245, .06464, .10585,
1826 + .48480, .23171, .67092, .07891, .03127,
1827 + .02257, .06397, .10446,
1828 + .48200, .22985, .65614, .07800, .03119,
1829 + .02266, .06333, .10315,
1830 + .47913, .22796, .64149, .07708, .03109,
1831 + .02273, .06267, .10183 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .59372, .32030, 1.12518, .08748, .00000,
1834 + .00000, .05804, .13821,
1835 + .59474, .31838, 1.13134, .08710, .00000,
1836 + .00000, .05868, .13662,
1837 + .59523, .31527, 1.13110, .08645, .00000,
1838 + .00000, .05941, .13414,
1839 + .59500, .31287, 1.12415, .08592, .00115,
1840 + .00000, .05982, .13236,
1841 + .59418, .31024, 1.10970, .08533, .00366,
1842 + .00000, .06015, .13046,
1843 + .59309, .30781, 1.09510, .08473, .00536,
1844 + .00000, .06032, .12880,
1845 + .59178, .30543, 1.07977, .08413, .00693,
1846 + .00000, .06041, .12719,
1847 + .59013, .30288, 1.06231, .08345, .00850,
1848 + .00000, .06044, .12546 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .58845, .30060, 1.04600, .08283, .00972,
1851 + .00000, .06041, .12393,
1852 + .58662, .29834, 1.02933, .08220, .01079,
1853 + .00000, .06032, .12245,
1854 + .58513, .29655, 1.01609, .08169, .01163,
1855 + .00000, .06022, .12128,
1856 + .58152, .29265, .98444, .08055, .01319,
1857 + .00046, .05993, .11879,
1858 + .57806, .28926, .95389, .07953, .01437,
1859 + .00220, .05960, .11665,
1860 + .57392, .28538, .91984, .07835, .01553,
1861 + .00408, .05915, .11425,
1862 + .56930, .28131, .88490, .07707, .01658,
1863 + .00564, .05859, .11174,
1864 + .56484, .27760, .85368, .07588, .01739,
1865 + .00689, .05801, .10946 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .56014, .27385, .82278, .07465, .01811,
1868 + .00803, .05738, .10716,
1869 + .55611, .27074, .79768, .07362, .01863,
1870 + .00887, .05682, .10527,
1871 + .55103, .26689, .76772, .07233, .01915,
1872 + .00975, .05609, .10298,
1873 + .54643, .26350, .74195, .07118, .01954,
1874 + .01045, .05541, .10098,
1875 + .54217, .26042, .71907, .07013, .01986,
1876 + .01106, .05478, .09918,
1877 + .53651, .25648, .69059, .06878, .02017,
1878 + .01169, .05393, .09689,
1879 + .53111, .25279, .66472, .06751, .02040,
1880 + .01222, .05311, .09477,
1881 + .52602, .24936, .64137, .06634, .02057,
1882 + .01267, .05233, .09281 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .52082, .24594, .61868, .06515, .02069,
1885 + .01304, .05154, .09086,
1886 + .51566, .24259, .59721, .06399, .02077,
1887 + .01335, .05075, .08898,
1888 + .51079, .23947, .57763, .06291, .02082,
1889 + .01363, .05002, .08723,
1890 + .50609, .23649, .55959, .06188, .02082,
1891 + .01383, .04930, .08561,
1892 + .50144, .23355, .54219, .06086, .02081,
1893 + .01402, .04858, .08402,
1894 + .49671, .23066, .52545, .05986, .02077,
1895 + .01416, .04787, .08244,
1896 + .49229, .22796, .51017, .05893, .02074,
1897 + .01429, .04720, .08098,
1898 + .48799, .22538, .49599, .05805, .02066,
1899 + .01438, .04656, .07960 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .48374, .22284, .48222, .05717, .02059,
1902 + .01446, .04592, .07823,
1903 + .47946, .22030, .46891, .05630, .02050,
1904 + .01451, .04528, .07690,
1905 + .47542, .21792, .45664, .05549, .02040,
1906 + .01455, .04468, .07565,
1907 + .47156, .21566, .44528, .05472, .02030,
1908 + .01458, .04411, .07448,
1909 + .46764, .21338, .43409, .05394, .02019,
1910 + .01459, .04353, .07332 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .64683, .33444, .95427, .07172, .00000,
1913 + .00000, .04896, .11918,
1914 + .64460, .33085, .95088, .07107, .00000,
1915 + .00000, .04911, .11694,
1916 + .64051, .32533, .93916, .07000, .00000,
1917 + .00000, .04917, .11371,
1918 + .63707, .32129, .92582, .06924, .00086,
1919 + .00000, .04915, .11142,
1920 + .63300, .31705, .90678, .06840, .00273,
1921 + .00000, .04905, .10907,
1922 + .62916, .31331, .88902, .06765, .00399,
1923 + .00000, .04890, .10703,
1924 + .62529, .30970, .87128, .06690, .00514,
1925 + .00000, .04870, .10511,
1926 + .62101, .30588, .85187, .06608, .00629,
1927 + .00000, .04843, .10311 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .61710, .30255, .83438, .06534, .00716,
1930 + .00000, .04818, .10138,
1931 + .61318, .29930, .81703, .06461, .00793,
1932 + .00000, .04789, .09973,
1933 + .61006, .29675, .80342, .06404, .00852,
1934 + .00000, .04765, .09844,
1935 + .60305, .29136, .77229, .06281, .00962,
1936 + .00034, .04708, .09571,
1937 + .59683, .28673, .74352, .06174, .01043,
1938 + .00158, .04655, .09342,
1939 + .58968, .28155, .71197, .06052, .01122,
1940 + .00292, .04591, .09090,
1941 + .58204, .27622, .68008, .05923, .01192,
1942 + .00401, .04518, .08830,
1943 + .57499, .27141, .65198, .05804, .01245,
1944 + .00488, .04449, .08601 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .56779, .26660, .62453, .05684, .01291,
1947 + .00566, .04376, .08374,
1948 + .56174, .26264, .60247, .05585, .01323,
1949 + .00623, .04314, .08188,
1950 + .55428, .25786, .57644, .05464, .01354,
1951 + .00682, .04235, .07967,
1952 + .54763, .25369, .55425, .05357, .01377,
1953 + .00729, .04165, .07775,
1954 + .54157, .24994, .53468, .05261, .01395,
1955 + .00768, .04101, .07604,
1956 + .53375, .24515, .51059, .05137, .01411,
1957 + .00809, .04017, .07389,
1958 + .52639, .24073, .48892, .05024, .01421,
1959 + .00842, .03938, .07191,
1960 + .51952, .23666, .46951, .04919, .01429,
1961 + .00870, .03864, .07010 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .51261, .23261, .45080, .04814, .01432,
1964 + .00893, .03790, .06834,
1965 + .50586, .22869, .43323, .04712, .01432,
1966 + .00911, .03717, .06664,
1967 + .49954, .22506, .41731, .04617, .01431,
1968 + .00927, .03650, .06508,
1969 + .49350, .22165, .40274, .04528, .01428,
1970 + .00938, .03585, .06363,
1971 + .48754, .21830, .38875, .04441, .01424,
1972 + .00949, .03522, .06220,
1973 + .48160, .21499, .37542, .04356, .01416,
1974 + .00956, .03458, .06083,
1975 + .47606, .21191, .36329, .04277, .01410,
1976 + .00962, .03400, .05955,
1977 + .47076, .20900, .35208, .04202, .01402,
1978 + .00965, .03344, .05836 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .46551, .20614, .34124, .04128, .01393,
1981 + .00968, .03289, .05719,
1982 + .46027, .20330, .33083, .04055, .01384,
1983 + .00969, .03234, .05605,
1984 + .45535, .20064, .32126, .03988, .01374,
1985 + .00970, .03182, .05498,
1986 + .45068, .19814, .31245, .03924, .01365,
1987 + .00970, .03134, .05399,
1988 + .44597, .19564, .30381, .03861, .01354,
1989 + .00969, .03085, .05299 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .68551, .34035, .81257, .05890, .00000,
1992 + .00000, .04079, .10043,
1993 + .67997, .33520, .80407, .05812, .00000,
1994 + .00000, .04064, .09795,
1995 + .67116, .32758, .78645, .05694, .00000,
1996 + .00000, .04034, .09439,
1997 + .66449, .32209, .77009, .05606, .00066,
1998 + .00000, .04007, .09193,
1999 + .65721, .31644, .74926, .05516, .00208,
2000 + .00000, .03972, .08945,
2001 + .65068, .31155, .73045, .05435, .00303,
2002 + .00000, .03939, .08735,
2003 + .64432, .30691, .71209, .05357, .00389,
2004 + .00000, .03904, .08537,
2005 + .63748, .30204, .69240, .05273, .00473,
2006 + .00000, .03864, .08332 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .63144, .29783, .67501, .05198, .00537,
2009 + .00000, .03826, .08158,
2010 + .62551, .29378, .65803, .05125, .00593,
2011 + .00000, .03788, .07993,
2012 + .62084, .29062, .64479, .05069, .00636,
2013 + .00000, .03758, .07864,
2014 + .61072, .28398, .61538, .04947, .00714,
2015 + .00026, .03688, .07599,
2016 + .60194, .27837, .58893, .04843, .00771,
2017 + .00116, .03627, .07378,
2018 + .59208, .27216, .56027, .04724, .00826,
2019 + .00212, .03557, .07137,
2020 + .58177, .26583, .53166, .04603, .00873,
2021 + .00291, .03481, .06893,
2022 + .57239, .26019, .50671, .04494, .00909,
2023 + .00352, .03410, .06678 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .56295, .25460, .48254, .04385, .00938,
2026 + .00407, .03338, .06467,
2027 + .55515, .25003, .46330, .04294, .00958,
2028 + .00446, .03277, .06298,
2029 + .54565, .24456, .44081, .04184, .00977,
2030 + .00487, .03203, .06098,
2031 + .53731, .23981, .42181, .04089, .00990,
2032 + .00518, .03137, .05925,
2033 + .52976, .23556, .40518, .04004, .01000,
2034 + .00545, .03077, .05771,
2035 + .52014, .23020, .38487, .03894, .01007,
2036 + .00572, .03001, .05581,
2037 + .51117, .22528, .36674, .03793, .01011,
2038 + .00593, .02930, .05408,
2039 + .50287, .22078, .35060, .03702, .01013,
2040 + .00610, .02864, .05250 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .49461, .21632, .33515, .03611, .01012,
2043 + .00624, .02798, .05097,
2044 + .48659, .21205, .32072, .03525, .01009,
2045 + .00635, .02734, .04952,
2046 + .47912, .20810, .30772, .03445, .01005,
2047 + .00645, .02675, .04818,
2048 + .47205, .20441, .29595, .03369, .01000,
2049 + .00650, .02619, .04695,
2050 + .46510, .20080, .28470, .03296, .00994,
2051 + .00656, .02565, .04575,
2052 + .45825, .19726, .27399, .03224, .00987,
2053 + .00659, .02511, .04460,
2054 + .45188, .19398, .26428, .03158, .00980,
2055 + .00662, .02461, .04353,
2056 + .44583, .19088, .25540, .03095, .00972,
2057 + .00662, .02415, .04254 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .43986, .18783, .24683, .03034, .00964,
2060 + .00663, .02370, .04156,
2061 + .43394, .18485, .23864, .02973, .00955,
2062 + .00663, .02324, .04062,
2063 + .42840, .18206, .23113, .02917, .00947,
2064 + .00662, .02281, .03975,
2065 + .42316, .17944, .22425, .02864, .00938,
2066 + .00660, .02242, .03893,
2067 + .41790, .17682, .21753, .02812, .00929,
2068 + .00658, .02202, .03812 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .71089, .33942, .69825, .04851, .00000,
2071 + .00000, .03359, .08278,
2072 + .70207, .33293, .68659, .04770, .00000,
2073 + .00000, .03329, .08030,
2074 + .68871, .32348, .66545, .04647, .00000,
2075 + .00000, .03278, .07681,
2076 + .67894, .31678, .64748, .04558, .00051,
2077 + .00000, .03238, .07442,
2078 + .66861, .30994, .62592, .04467, .00160,
2079 + .00000, .03196, .07200,
2080 + .65959, .30409, .60690, .04385, .00232,
2081 + .00000, .03154, .07001,
2082 + .65092, .29859, .58859, .04308, .00297,
2083 + .00000, .03112, .06814,
2084 + .64173, .29287, .56920, .04226, .00360,
2085 + .00000, .03067, .06621 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .63374, .28795, .55232, .04155, .00408,
2088 + .00000, .03026, .06457,
2089 + .62601, .28326, .53605, .04085, .00448,
2090 + .00000, .02985, .06304,
2091 + .61996, .27962, .52345, .04031, .00480,
2092 + .00000, .02953, .06186,
2093 + .60705, .27201, .49599, .03914, .00536,
2094 + .00019, .02883, .05944,
2095 + .59604, .26565, .47191, .03818, .00576,
2096 + .00085, .02822, .05742,
2097 + .58380, .25868, .44604, .03709, .00614,
2098 + .00156, .02754, .05526,
2099 + .57118, .25163, .42044, .03599, .00646,
2100 + .00213, .02681, .05308,
2101 + .55987, .24538, .39836, .03499, .00670,
2102 + .00257, .02614, .05119 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .54860, .23921, .37718, .03398, .00689,
2105 + .00296, .02547, .04937,
2106 + .53933, .23424, .36047, .03318, .00701,
2107 + .00323, .02491, .04789,
2108 + .52817, .22831, .34108, .03222, .00712,
2109 + .00351, .02425, .04614,
2110 + .51844, .22320, .32483, .03138, .00719,
2111 + .00373, .02366, .04466,
2112 + .50969, .21863, .31070, .03063, .00724,
2113 + .00390, .02313, .04336,
2114 + .49863, .21293, .29355, .02969, .00726,
2115 + .00408, .02247, .04173,
2116 + .48842, .20770, .27835, .02883, .00726,
2117 + .00422, .02185, .04027,
2118 + .47903, .20293, .26491, .02805, .00725,
2119 + .00433, .02127, .03896 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .46973, .19827, .25217, .02728, .00722,
2122 + .00441, .02071, .03769,
2123 + .46078, .19380, .24035, .02654, .00718,
2124 + .00448, .02017, .03649,
2125 + .45250, .18967, .22976, .02586, .00713,
2126 + .00453, .01968, .03539,
2127 + .44471, .18585, .22020, .02522, .00707,
2128 + .00456, .01922, .03438,
2129 + .43707, .18211, .21108, .02461, .00702,
2130 + .00459, .01876, .03339,
2131 + .42959, .17848, .20250, .02400, .00695,
2132 + .00460, .01833, .03244,
2133 + .42265, .17512, .19475, .02345, .00688,
2134 + .00460, .01792, .03157,
2135 + .41608, .17196, .18768, .02293, .00681,
2136 + .00460, .01753, .03078 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .40962, .16886, .18087, .02242, .00674,
2139 + .00460, .01715, .03001,
2140 + .40325, .16583, .17441, .02193, .00666,
2141 + .00458, .01678, .02926,
2142 + .39730, .16300, .16850, .02148, .00659,
2143 + .00457, .01644, .02856,
2144 + .39170, .16036, .16312, .02106, .00652,
2145 + .00455, .01612, .02790,
2146 + .38609, .15774, .15787, .02065, .00644,
2147 + .00452, .01581, .02725 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .72401, .33295, .60640, .04007, .00000,
2150 + .00000, .02732, .06679,
2151 + .71209, .32534, .59235, .03925, .00000,
2152 + .00000, .02696, .06448,
2153 + .69454, .31433, .56865, .03801, .00000,
2154 + .00000, .02640, .06126,
2155 + .68192, .30665, .54960, .03713, .00039,
2156 + .00000, .02595, .05909,
2157 + .66879, .29890, .52775, .03625, .00124,
2158 + .00000, .02548, .05690,
2159 + .65752, .29228, .50876, .03547, .00179,
2160 + .00000, .02504, .05510,
2161 + .64682, .28610, .49072, .03472, .00228,
2162 + .00000, .02462, .05343,
2163 + .63559, .27970, .47187, .03394, .00275,
2164 + .00000, .02417, .05172 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .62589, .27426, .45571, .03326, .00310,
2167 + .00000, .02377, .05029,
2168 + .61657, .26910, .44026, .03261, .00340,
2169 + .00000, .02338, .04894,
2170 + .60932, .26512, .42838, .03211, .00363,
2171 + .00000, .02306, .04790,
2172 + .59402, .25682, .40292, .03105, .00404,
2173 + .00015, .02241, .04576,
2174 + .58114, .24992, .38098, .03015, .00432,
2175 + .00063, .02185, .04403,
2176 + .56693, .24246, .35769, .02919, .00459,
2177 + .00116, .02121, .04215,
2178 + .55244, .23490, .33491, .02817, .00480,
2179 + .00157, .02055, .04032,
2180 + .53954, .22826, .31545, .02729, .00496,
2181 + .00188, .01996, .03872 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .52676, .22179, .29695, .02643, .00508,
2184 + .00216, .01936, .03715,
2185 + .51637, .21658, .28243, .02573, .00515,
2186 + .00235, .01888, .03591,
2187 + .50392, .21039, .26577, .02488, .00521,
2188 + .00255, .01830, .03446,
2189 + .49317, .20506, .25189, .02415, .00524,
2190 + .00269, .01779, .03324,
2191 + .48356, .20032, .23988, .02349, .00526,
2192 + .00281, .01734, .03217,
2193 + .47144, .19446, .22547, .02270, .00526,
2194 + .00293, .01677, .03084,
2195 + .46033, .18910, .21280, .02197, .00524,
2196 + .00302, .01625, .02965,
2197 + .45017, .18424, .20167, .02130, .00522,
2198 + .00309, .01578, .02858 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .44018, .17950, .19115, .02063, .00518,
2201 + .00314, .01531, .02756,
2202 + .43059, .17499, .18147, .02002, .00513,
2203 + .00318, .01486, .02659,
2204 + .42172, .17084, .17283, .01947, .00509,
2205 + .00320, .01445, .02571,
2206 + .41348, .16699, .16508, .01894, .00503,
2207 + .00322, .01407, .02489,
2208 + .40542, .16325, .15772, .01843, .00498,
2209 + .00323, .01370, .02411,
2210 + .39754, .15963, .15084, .01793, .00491,
2211 + .00323, .01334, .02338,
2212 + .39026, .15630, .14465, .01747, .00486,
2213 + .00323, .01300, .02270,
2214 + .38340, .15317, .13903, .01706, .00479,
2215 + .00321, .01270, .02207 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .37666, .15011, .13364, .01665, .00473,
2218 + .00320, .01241, .02145,
2219 + .37007, .14712, .12854, .01625, .00467,
2220 + .00319, .01211, .02087,
2221 + .36393, .14434, .12389, .01587, .00461,
2222 + .00317, .01183, .02033,
2223 + .35816, .14175, .11965, .01552, .00455,
2224 + .00315, .01157, .01983,
2225 + .35238, .13918, .11555, .01518, .00449,
2226 + .00313, .01133, .01934 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .72606, .32198, .53145, .03309, .00000,
2229 + .00000, .02199, .05279,
2230 + .71135, .31346, .51539, .03230, .00000,
2231 + .00000, .02160, .05075,
2232 + .68996, .30131, .48961, .03110, .00000,
2233 + .00000, .02099, .04795,
2234 + .67481, .29287, .46982, .03028, .00031,
2235 + .00000, .02056, .04604,
2236 + .65928, .28440, .44786, .02946, .00095,
2237 + .00000, .02009, .04413,
2238 + .64600, .27729, .42909, .02874, .00138,
2239 + .00000, .01968, .04255,
2240 + .63352, .27065, .41153, .02804, .00175,
2241 + .00000, .01928, .04112,
2242 + .62052, .26380, .39339, .02732, .00210,
2243 + .00000, .01885, .03966 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60940, .25800, .37794, .02671, .00236,
2246 + .00000, .01849, .03841,
2247 + .59879, .25253, .36335, .02611, .00258,
2248 + .00000, .01813, .03727,
2249 + .59056, .24831, .35221, .02565, .00275,
2250 + .00000, .01784, .03640,
2251 + .57334, .23958, .32871, .02469, .00304,
2252 + .00011, .01724, .03462,
2253 + .55891, .23239, .30889, .02390, .00324,
2254 + .00047, .01674, .03316,
2255 + .54319, .22460, .28803, .02302, .00343,
2256 + .00086, .01619, .03161,
2257 + .52725, .21679, .26781, .02213, .00357,
2258 + .00116, .01561, .03010,
2259 + .51315, .20998, .25073, .02136, .00367,
2260 + .00138, .01509, .02879 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .49928, .20336, .23465, .02061, .00375,
2263 + .00158, .01459, .02752,
2264 + .48807, .19802, .22211, .02000, .00379,
2265 + .00172, .01418, .02651,
2266 + .47474, .19175, .20784, .01928, .00382,
2267 + .00185, .01370, .02533,
2268 + .46327, .18637, .19607, .01865, .00383,
2269 + .00195, .01327, .02435,
2270 + .45305, .18160, .18594, .01808, .00383,
2271 + .00203, .01289, .02351,
2272 + .44029, .17572, .17387, .01739, .00382,
2273 + .00211, .01241, .02247,
2274 + .42861, .17039, .16332, .01677, .00379,
2275 + .00217, .01198, .02153,
2276 + .41797, .16556, .15412, .01622, .00376,
2277 + .00221, .01159, .02069 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .40758, .16088, .14549, .01567, .00372,
2280 + .00224, .01123, .01985,
2281 + .39764, .15644, .13759, .01516, .00368,
2282 + .00226, .01087, .01909,
2283 + .38850, .15237, .13058, .01470, .00363,
2284 + .00227, .01054, .01840,
2285 + .38001, .14860, .12433, .01426, .00359,
2286 + .00228, .01023, .01779,
2287 + .37174, .14494, .11842, .01384, .00354,
2288 + .00228, .00993, .01721,
2289 + .36371, .14142, .11291, .01344, .00349,
2290 + .00227, .00966, .01662,
2291 + .35631, .13818, .10796, .01307, .00344,
2292 + .00227, .00941, .01608,
2293 + .34935, .13516, .10350, .01273, .00339,
2294 + .00225, .00916, .01561 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .34253, .13221, .09924, .01240, .00334,
2297 + .00224, .00892, .01514,
2298 + .33589, .12933, .09522, .01207, .00329,
2299 + .00223, .00868, .01469,
2300 + .32971, .12666, .09157, .01177, .00324,
2301 + .00221, .00847, .01428,
2302 + .32392, .12418, .08827, .01149, .00319,
2303 + .00219, .00827, .01389,
2304 + .31814, .12173, .08507, .01123, .00314,
2305 + .00218, .00808, .01351 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .71789, .30778, .46867, .02755, .00000,
2308 + .00000, .01729, .04071,
2309 + .70076, .29857, .45083, .02677, .00000,
2310 + .00000, .01694, .03899,
2311 + .67616, .28554, .42329, .02564, .00000,
2312 + .00000, .01640, .03663,
2313 + .65886, .27661, .40299, .02485, .00024,
2314 + .00000, .01600, .03501,
2315 + .64133, .26766, .38116, .02404, .00074,
2316 + .00000, .01558, .03346,
2317 + .62651, .26012, .36281, .02334, .00106,
2318 + .00000, .01521, .03218,
2319 + .61260, .25316, .34580, .02271, .00134,
2320 + .00000, .01487, .03099,
2321 + .59819, .24605, .32844, .02205, .00161,
2322 + .00000, .01450, .02977 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58593, .24005, .31385, .02148, .00180,
2325 + .00000, .01416, .02879,
2326 + .57430, .23440, .30025, .02094, .00196,
2327 + .00000, .01385, .02785,
2328 + .56531, .23005, .28992, .02053, .00208,
2329 + .00000, .01361, .02713,
2330 + .54664, .22109, .26843, .01966, .00229,
2331 + .00009, .01310, .02569,
2332 + .53113, .21376, .25061, .01895, .00243,
2333 + .00035, .01267, .02452,
2334 + .51428, .20587, .23203, .01818, .00256,
2335 + .00064, .01221, .02327,
2336 + .49729, .19802, .21423, .01742, .00265,
2337 + .00085, .01173, .02206,
2338 + .48238, .19118, .19935, .01674, .00272,
2339 + .00102, .01130, .02101 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .46784, .18454, .18547, .01607, .00276,
2342 + .00116, .01087, .02003,
2343 + .45614, .17923, .17474, .01552, .00278,
2344 + .00125, .01052, .01927,
2345 + .44226, .17301, .16258, .01492, .00279,
2346 + .00135, .01013, .01832,
2347 + .43035, .16771, .15264, .01439, .00279,
2348 + .00141, .00978, .01756,
2349 + .41976, .16304, .14417, .01390, .00278,
2350 + .00147, .00946, .01693,
2351 + .40666, .15728, .13415, .01333, .00276,
2352 + .00152, .00912, .01608,
2353 + .39475, .15206, .12544, .01280, .00274,
2354 + .00155, .00877, .01535,
2355 + .38395, .14736, .11788, .01233, .00271,
2356 + .00158, .00845, .01472 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .37336, .14283, .11084, .01192, .00267,
2359 + .00160, .00816, .01407,
2360 + .36333, .13853, .10442, .01150, .00263,
2361 + .00161, .00788, .01350,
2362 + .35415, .13461, .09876, .01109, .00259,
2363 + .00161, .00761, .01301,
2364 + .34566, .13100, .09375, .01073, .00255,
2365 + .00161, .00737, .01254,
2366 + .33740, .12750, .08902, .01038, .00251,
2367 + .00161, .00714, .01208,
2368 + .32935, .12416, .08464, .01008, .00247,
2369 + .00160, .00692, .01163,
2370 + .32196, .12108, .08072, .00980, .00243,
2371 + .00159, .00671, .01123,
2372 + .31509, .11820, .07721, .00952, .00239,
2373 + .00158, .00653, .01087 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .30838, .11539, .07385, .00925, .00235,
2376 + .00157, .00635, .01053,
2377 + .30182, .11268, .07070, .00899, .00231,
2378 + .00156, .00617, .01020,
2379 + .29572, .11017, .06785, .00875, .00227,
2380 + .00154, .00601, .00990,
2381 + .29005, .10784, .06527, .00852, .00223,
2382 + .00153, .00586, .00962,
2383 + .28442, .10553, .06280, .00829, .00219,
2384 + .00151, .00570, .00934 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .70150, .29044, .41358, .02255, .00000,
2387 + .00000, .01362, .03091,
2388 + .68232, .28077, .39430, .02180, .00000,
2389 + .00000, .01328, .02953,
2390 + .65493, .26727, .36575, .02075, .00000,
2391 + .00000, .01280, .02758,
2392 + .63588, .25803, .34523, .02005, .00018,
2393 + .00000, .01244, .02627,
2394 + .61674, .24879, .32388, .01931, .00056,
2395 + .00000, .01206, .02501,
2396 + .60060, .24114, .30611, .01871, .00080,
2397 + .00000, .01173, .02396,
2398 + .58558, .23406, .28989, .01813, .00101,
2399 + .00000, .01141, .02301,
2400 + .57011, .22682, .27355, .01753, .00121,
2401 + .00000, .01108, .02206 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55701, .22075, .25996, .01704, .00135,
2404 + .00000, .01081, .02124,
2405 + .54464, .21506, .24740, .01656, .00147,
2406 + .00000, .01054, .02050,
2407 + .53509, .21069, .23793, .01620, .00156,
2408 + .00000, .01033, .01994,
2409 + .51535, .20175, .21846, .01546, .00170,
2410 + .00007, .00989, .01879,
2411 + .49907, .19445, .20263, .01485, .00180,
2412 + .00026, .00953, .01787,
2413 + .48152, .18664, .18631, .01417, .00189,
2414 + .00046, .00914, .01690,
2415 + .46397, .17886, .17080, .01350, .00195,
2416 + .00062, .00874, .01596,
2417 + .44860, .17214, .15795, .01293, .00199,
2418 + .00074, .00839, .01515 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .43363, .16567, .14608, .01238, .00201,
2421 + .00084, .00805, .01438,
2422 + .42163, .16052, .13699, .01194, .00202,
2423 + .00090, .00777, .01378,
2424 + .40756, .15447, .12679, .01141, .00202,
2425 + .00097, .00745, .01308,
2426 + .39551, .14935, .11850, .01097, .00202,
2427 + .00102, .00717, .01249,
2428 + .38481, .14485, .11146, .01060, .00201,
2429 + .00105, .00693, .01197,
2430 + .37164, .13930, .10317, .01013, .00198,
2431 + .00108, .00664, .01135,
2432 + .35972, .13432, .09605, .00970, .00196,
2433 + .00111, .00637, .01081,
2434 + .34896, .12984, .08991, .00932, .00193,
2435 + .00112, .00612, .01033 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .33850, .12552, .08422, .00895, .00190,
2438 + .00113, .00588, .00987,
2439 + .32859, .12145, .07906, .00860, .00187,
2440 + .00113, .00566, .00944,
2441 + .31952, .11774, .07453, .00828, .00183,
2442 + .00114, .00546, .00906,
2443 + .31116, .11434, .07055, .00800, .00180,
2444 + .00113, .00528, .00871,
2445 + .30306, .11105, .06680, .00772, .00177,
2446 + .00113, .00511, .00837,
2447 + .29523, .10790, .06334, .00747, .00174,
2448 + .00112, .00493, .00806,
2449 + .28804, .10501, .06025, .00723, .00170,
2450 + .00111, .00477, .00777,
2451 + .28135, .10235, .05750, .00702, .00167,
2452 + .00110, .00464, .00749 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .27482, .09975, .05487, .00681, .00164,
2455 + .00109, .00450, .00722,
2456 + .26848, .09724, .05242, .00661, .00161,
2457 + .00108, .00436, .00698,
2458 + .26261, .09491, .05021, .00642, .00158,
2459 + .00107, .00424, .00677,
2460 + .25715, .09275, .04822, .00624, .00155,
2461 + .00106, .00412, .00657,
2462 + .25176, .09061, .04630, .00605, .00152,
2463 + .00105, .00401, .00637 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .67750, .27128, .36405, .01839, .00000,
2466 + .00000, .01054, .02297,
2467 + .65663, .26144, .34386, .01772, .00000,
2468 + .00000, .01024, .02185,
2469 + .62716, .24766, .31485, .01678, .00000,
2470 + .00000, .00981, .02031,
2471 + .60683, .23829, .29458, .01611, .00014,
2472 + .00000, .00949, .01930,
2473 + .58645, .22902, .27391, .01547, .00042,
2474 + .00000, .00915, .01831,
2475 + .56942, .22135, .25708, .01491, .00060,
2476 + .00000, .00888, .01750,
2477 + .55363, .21428, .24187, .01441, .00076,
2478 + .00000, .00862, .01675,
2479 + .53743, .20709, .22668, .01390, .00090,
2480 + .00000, .00835, .01598 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52377, .20106, .21421, .01345, .00101,
2483 + .00000, .00812, .01537,
2484 + .51093, .19541, .20279, .01304, .00109,
2485 + .00000, .00790, .01480,
2486 + .50106, .19109, .19423, .01273, .00115,
2487 + .00000, .00773, .01438,
2488 + .48076, .18233, .17690, .01208, .00126,
2489 + .00005, .00739, .01345,
2490 + .46411, .17518, .16297, .01155, .00132,
2491 + .00019, .00709, .01276,
2492 + .44619, .16758, .14880, .01098, .00138,
2493 + .00034, .00677, .01203,
2494 + .42836, .16005, .13548, .01042, .00142,
2495 + .00045, .00645, .01132,
2496 + .41287, .15356, .12455, .00994, .00144,
2497 + .00053, .00616, .01072 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .39787, .14734, .11451, .00948, .00145,
2500 + .00060, .00588, .01014,
2501 + .38587, .14239, .10688, .00910, .00146,
2502 + .00065, .00566, .00970,
2503 + .37180, .13663, .09840, .00868, .00145,
2504 + .00069, .00540, .00918,
2505 + .35987, .13176, .09156, .00831, .00144,
2506 + .00072, .00519, .00875,
2507 + .34935, .12748, .08578, .00799, .00143,
2508 + .00075, .00501, .00837,
2509 + .33635, .12226, .07903, .00761, .00141,
2510 + .00077, .00477, .00790,
2511 + .32462, .11758, .07327, .00728, .00139,
2512 + .00078, .00456, .00748,
2513 + .31408, .11338, .06832, .00698, .00137,
2514 + .00079, .00438, .00711 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .30391, .10933, .06376, .00669, .00134,
2517 + .00080, .00420, .00678,
2518 + .29429, .10553, .05965, .00641, .00131,
2519 + .00080, .00403, .00647,
2520 + .28552, .10209, .05606, .00615, .00129,
2521 + .00080, .00387, .00620,
2522 + .27744, .09894, .05292, .00594, .00126,
2523 + .00079, .00373, .00595,
2524 + .26962, .09590, .04997, .00574, .00124,
2525 + .00079, .00360, .00571,
2526 + .26211, .09299, .04726, .00553, .00121,
2527 + .00078, .00348, .00548,
2528 + .25523, .09033, .04485, .00534, .00119,
2529 + .00077, .00336, .00527,
2530 + .24885, .08788, .04271, .00517, .00116,
2531 + .00077, .00325, .00508 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .24263, .08549, .04068, .00500, .00114,
2534 + .00076, .00314, .00491,
2535 + .23662, .08319, .03880, .00484, .00112,
2536 + .00075, .00304, .00473,
2537 + .23106, .08106, .03710, .00469, .00109,
2538 + .00074, .00295, .00457,
2539 + .22590, .07910, .03556, .00455, .00107,
2540 + .00073, .00286, .00442,
2541 + .22081, .07716, .03409, .00441, .00105,
2542 + .00072, .00278, .00427 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .64729, .25073, .31819, .01478, .00000,
2545 + .00000, .00806, .01677,
2546 + .62519, .24086, .29766, .01418, .00000,
2547 + .00000, .00782, .01589,
2548 + .59421, .22712, .26897, .01335, .00000,
2549 + .00000, .00744, .01470,
2550 + .57298, .21782, .24943, .01276, .00010,
2551 + .00000, .00717, .01392,
2552 + .55182, .20867, .22994, .01220, .00031,
2553 + .00000, .00691, .01314,
2554 + .53426, .20109, .21424, .01172, .00045,
2555 + .00000, .00666, .01254,
2556 + .51802, .19416, .20022, .01127, .00056,
2557 + .00000, .00645, .01197,
2558 + .50141, .18714, .18638, .01083, .00066,
2559 + .00000, .00623, .01139 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48743, .18129, .17514, .01047, .00074,
2562 + .00000, .00604, .01092,
2563 + .47439, .17582, .16493, .01011, .00080,
2564 + .00000, .00586, .01050,
2565 + .46441, .17165, .15732, .00982, .00084,
2566 + .00000, .00572, .01018,
2567 + .44391, .16315, .14213, .00929, .00091,
2568 + .00004, .00544, .00953,
2569 + .42719, .15630, .13010, .00885, .00096,
2570 + .00014, .00520, .00900,
2571 + .40929, .14900, .11795, .00838, .00100,
2572 + .00024, .00494, .00845,
2573 + .39153, .14183, .10664, .00794, .00102,
2574 + .00032, .00468, .00792,
2575 + .37620, .13568, .09745, .00754, .00103,
2576 + .00038, .00446, .00747 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .36143, .12979, .08910, .00715, .00104,
2579 + .00043, .00425, .00703,
2580 + .34963, .12514, .08281, .00688, .00104,
2581 + .00046, .00409, .00669,
2582 + .33588, .11972, .07584, .00652, .00103,
2583 + .00049, .00388, .00632,
2584 + .32425, .11515, .07025, .00621, .00102,
2585 + .00051, .00371, .00602,
2586 + .31403, .11115, .06556, .00593, .00101,
2587 + .00053, .00358, .00574,
2588 + .30145, .10630, .06014, .00565, .00099,
2589 + .00054, .00339, .00540,
2590 + .29012, .10196, .05553, .00540, .00097,
2591 + .00055, .00324, .00510,
2592 + .27997, .09808, .05160, .00517, .00096,
2593 + .00055, .00310, .00484 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .27023, .09434, .04799, .00492, .00094,
2596 + .00056, .00295, .00461,
2597 + .26106, .09084, .04476, .00469, .00092,
2598 + .00055, .00283, .00438,
2599 + .25271, .08768, .04196, .00450, .00090,
2600 + .00055, .00272, .00418,
2601 + .24504, .08481, .03949, .00432, .00088,
2602 + .00055, .00262, .00401,
2603 + .23763, .08204, .03719, .00416, .00086,
2604 + .00054, .00251, .00385,
2605 + .23055, .07939, .03510, .00400, .00084,
2606 + .00054, .00242, .00368,
2607 + .22408, .07698, .03324, .00386, .00082,
2608 + .00053, .00233, .00353,
2609 + .21811, .07475, .03159, .00372, .00080,
2610 + .00053, .00225, .00340 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .21230, .07258, .03002, .00358, .00078,
2613 + .00052, .00217, .00327,
2614 + .20665, .07051, .02858, .00347, .00076,
2615 + .00051, .00210, .00314,
2616 + .20142, .06861, .02728, .00337, .00075,
2617 + .00051, .00204, .00303,
2618 + .19660, .06685, .02611, .00328, .00073,
2619 + .00050, .00197, .00293,
2620 + .19185, .06511, .02499, .00317, .00072,
2621 + .00049, .00191, .00283 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .61192, .22943, .27527, .01170, .00000,
2624 + .00000, .00613, .01199,
2625 + .58911, .21964, .25502, .01116, .00000,
2626 + .00000, .00590, .01135,
2627 + .55721, .20618, .22740, .01041, .00000,
2628 + .00000, .00558, .01048,
2629 + .53546, .19712, .20898, .00992, .00008,
2630 + .00000, .00536, .00987,
2631 + .51397, .18820, .19095, .00943, .00023,
2632 + .00000, .00515, .00930,
2633 + .49613, .18090, .17668, .00904, .00033,
2634 + .00000, .00494, .00884,
2635 + .47976, .17421, .16404, .00867, .00041,
2636 + .00000, .00477, .00842,
2637 + .46309, .16744, .15167, .00830, .00048,
2638 + .00000, .00459, .00800 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .44911, .16183, .14172, .00801, .00053,
2641 + .00000, .00444, .00764,
2642 + .43608, .15662, .13276, .00772, .00057,
2643 + .00000, .00430, .00731,
2644 + .42611, .15265, .12613, .00750, .00061,
2645 + .00000, .00419, .00706,
2646 + .40579, .14457, .11304, .00703, .00065,
2647 + .00003, .00395, .00660,
2648 + .38929, .13807, .10279, .00669, .00068,
2649 + .00010, .00376, .00622,
2650 + .37172, .13121, .09257, .00629, .00071,
2651 + .00017, .00359, .00582,
2652 + .35437, .12447, .08315, .00591, .00072,
2653 + .00023, .00339, .00544,
2654 + .33943, .11871, .07555, .00560, .00073,
2655 + .00027, .00321, .00512 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .32509, .11323, .06869, .00530, .00073,
2658 + .00030, .00304, .00482,
2659 + .31368, .10890, .06356, .00508, .00073,
2660 + .00032, .00292, .00458,
2661 + .30048, .10389, .05795, .00478, .00072,
2662 + .00034, .00276, .00430,
2663 + .28931, .09967, .05346, .00454, .00071,
2664 + .00036, .00263, .00408,
2665 + .27950, .09598, .04970, .00435, .00070,
2666 + .00037, .00251, .00390,
2667 + .26753, .09153, .04540, .00412, .00069,
2668 + .00038, .00239, .00366,
2669 + .25681, .08756, .04177, .00391, .00068,
2670 + .00038, .00227, .00344,
2671 + .24722, .08402, .03868, .00373, .00066,
2672 + .00038, .00217, .00325 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .23800, .08063, .03586, .00355, .00065,
2675 + .00038, .00207, .00309,
2676 + .22935, .07746, .03334, .00338, .00063,
2677 + .00038, .00198, .00293,
2678 + .22151, .07460, .03116, .00323, .00062,
2679 + .00038, .00190, .00280,
2680 + .21435, .07200, .02927, .00309, .00060,
2681 + .00038, .00182, .00267,
2682 + .20745, .06951, .02750, .00296, .00059,
2683 + .00037, .00174, .00254,
2684 + .20085, .06713, .02590, .00285, .00057,
2685 + .00037, .00167, .00243,
2686 + .19483, .06496, .02447, .00274, .00056,
2687 + .00036, .00160, .00234,
2688 + .18927, .06298, .02322, .00265, .00054,
2689 + .00036, .00155, .00224 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .18387, .06105, .02204, .00256, .00053,
2692 + .00035, .00150, .00215,
2693 + .17870, .05920, .02094, .00246, .00052,
2694 + .00035, .00145, .00207,
2695 + .17393, .05750, .01996, .00236, .00051,
2696 + .00034, .00140, .00200,
2697 + .16952, .05594, .01908, .00228, .00050,
2698 + .00034, .00135, .00193,
2699 + .16515, .05440, .01823, .00221, .00048,
2700 + .00033, .00130, .00186 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .57252, .20798, .23525, .00920, .00000,
2703 + .00000, .00453, .00836,
2704 + .54932, .19849, .21583, .00873, .00000,
2705 + .00000, .00434, .00789,
2706 + .51714, .18544, .18994, .00810, .00000,
2707 + .00000, .00407, .00726,
2708 + .49534, .17673, .17300, .00766, .00005,
2709 + .00000, .00391, .00683,
2710 + .47383, .16819, .15674, .00725, .00017,
2711 + .00000, .00374, .00644,
2712 + .45611, .16123, .14398, .00694, .00023,
2713 + .00000, .00359, .00606,
2714 + .43985, .15488, .13281, .00665, .00029,
2715 + .00000, .00345, .00574,
2716 + .42337, .14849, .12199, .00634, .00034,
2717 + .00000, .00330, .00544 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .40964, .14317, .11338, .00607, .00038,
2720 + .00000, .00319, .00521,
2721 + .39687, .13824, .10568, .00582, .00041,
2722 + .00000, .00308, .00499,
2723 + .38713, .13448, .10001, .00563, .00043,
2724 + .00000, .00299, .00482,
2725 + .36735, .12693, .08893, .00525, .00046,
2726 + .00002, .00281, .00449,
2727 + .35133, .12088, .08037, .00495, .00048,
2728 + .00007, .00267, .00422,
2729 + .33432, .11449, .07190, .00467, .00050,
2730 + .00012, .00253, .00393,
2731 + .31759, .10827, .06419, .00440, .00051,
2732 + .00016, .00238, .00364,
2733 + .30327, .10295, .05802, .00414, .00051,
2734 + .00019, .00225, .00342 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .28958, .09788, .05249, .00390, .00051,
2737 + .00021, .00212, .00322,
2738 + .27873, .09391, .04836, .00372, .00051,
2739 + .00023, .00204, .00305,
2740 + .26619, .08935, .04388, .00351, .00050,
2741 + .00024, .00192, .00285,
2742 + .25564, .08552, .04034, .00333, .00049,
2743 + .00025, .00183, .00269,
2744 + .24640, .08217, .03739, .00317, .00049,
2745 + .00025, .00174, .00257,
2746 + .23515, .07814, .03401, .00299, .00047,
2747 + .00026, .00164, .00240,
2748 + .22512, .07454, .03118, .00283, .00046,
2749 + .00026, .00155, .00226,
2750 + .21618, .07135, .02878, .00269, .00045,
2751 + .00026, .00148, .00215 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .20761, .06832, .02661, .00255, .00044,
2754 + .00026, .00140, .00203,
2755 + .19958, .06549, .02467, .00243, .00043,
2756 + .00026, .00133, .00192,
2757 + .19231, .06293, .02300, .00232, .00042,
2758 + .00026, .00127, .00182,
2759 + .18572, .06063, .02156, .00221, .00041,
2760 + .00026, .00122, .00174,
2761 + .17939, .05842, .02022, .00210, .00040,
2762 + .00025, .00117, .00165,
2763 + .17332, .05630, .01900, .00203, .00039,
2764 + .00025, .00112, .00157,
2765 + .16780, .05438, .01792, .00196, .00038,
2766 + .00025, .00107, .00150,
2767 + .16274, .05263, .01698, .00188, .00037,
2768 + .00024, .00104, .00144 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .15785, .05093, .01608, .00180, .00036,
2771 + .00024, .00101, .00138,
2772 + .15312, .04930, .01526, .00173, .00035,
2773 + .00024, .00097, .00133,
2774 + .14877, .04780, .01452, .00167, .00034,
2775 + .00023, .00093, .00128,
2776 + .14476, .04643, .01386, .00161, .00033,
2777 + .00023, .00090, .00123,
2778 + .14082, .04508, .01324, .00155, .00032,
2779 + .00022, .00086, .00119 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .53021, .18660, .19793, .00707, .00000,
2782 + .00000, .00330, .00572,
2783 + .50706, .17752, .17994, .00666, .00000,
2784 + .00000, .00313, .00543,
2785 + .47505, .16519, .15630, .00618, .00000,
2786 + .00000, .00294, .00492,
2787 + .45354, .15692, .14117, .00583, .00004,
2788 + .00000, .00280, .00461,
2789 + .43243, .14884, .12685, .00550, .00012,
2790 + .00000, .00267, .00431,
2791 + .41508, .14230, .11574, .00522, .00016,
2792 + .00000, .00253, .00410,
2793 + .39921, .13636, .10608, .00499, .00020,
2794 + .00000, .00243, .00388,
2795 + .38319, .13038, .09682, .00475, .00024,
2796 + .00000, .00232, .00365 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .36992, .12542, .08951, .00453, .00026,
2799 + .00000, .00223, .00347,
2800 + .35758, .12085, .08304, .00434, .00028,
2801 + .00000, .00215, .00331,
2802 + .34817, .11738, .07829, .00419, .00030,
2803 + .00000, .00209, .00320,
2804 + .32910, .11041, .06912, .00395, .00032,
2805 + .00001, .00195, .00293,
2806 + .31382, .10482, .06211, .00369, .00033,
2807 + .00005, .00184, .00278,
2808 + .29765, .09895, .05521, .00345, .00034,
2809 + .00008, .00173, .00260,
2810 + .28180, .09327, .04900, .00324, .00035,
2811 + .00011, .00162, .00240,
2812 + .26830, .08843, .04407, .00303, .00035,
2813 + .00013, .00152, .00225 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .25543, .08385, .03967, .00283, .00035,
2816 + .00015, .00143, .00211,
2817 + .24522, .08027, .03643, .00272, .00035,
2818 + .00015, .00137, .00198,
2819 + .23351, .07613, .03291, .00255, .00034,
2820 + .00016, .00130, .00184,
2821 + .22369, .07268, .03014, .00241, .00033,
2822 + .00017, .00123, .00174,
2823 + .21510, .06968, .02786, .00228, .00033,
2824 + .00017, .00116, .00167,
2825 + .20468, .06608, .02525, .00215, .00032,
2826 + .00018, .00109, .00155,
2827 + .19543, .06287, .02307, .00203, .00031,
2828 + .00018, .00103, .00145,
2829 + .18721, .06004, .02123, .00192, .00030,
2830 + .00018, .00098, .00136 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .17933, .05734, .01959, .00183, .00030,
2833 + .00018, .00093, .00129,
2834 + .17199, .05484, .01812, .00174, .00029,
2835 + .00018, .00088, .00122,
2836 + .16537, .05259, .01686, .00165, .00028,
2837 + .00017, .00084, .00116,
2838 + .15936, .05056, .01577, .00157, .00027,
2839 + .00017, .00080, .00110,
2840 + .15360, .04861, .01476, .00150, .00026,
2841 + .00017, .00077, .00104,
2842 + .14811, .04677, .01385, .00144, .00026,
2843 + .00017, .00073, .00099,
2844 + .14313, .04510, .01305, .00138, .00025,
2845 + .00017, .00070, .00095,
2846 + .13859, .04356, .01234, .00132, .00024,
2847 + .00016, .00068, .00091 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .13419, .04208, .01167, .00126, .00024,
2850 + .00016, .00065, .00087,
2851 + .12993, .04067, .01106, .00121, .00023,
2852 + .00016, .00063, .00083,
2853 + .12602, .03938, .01051, .00118, .00023,
2854 + .00015, .00060, .00079,
2855 + .12243, .03819, .01002, .00114, .00022,
2856 + .00015, .00058, .00076,
2857 + .11891, .03703, .00955, .00110, .00021,
2858 + .00015, .00056, .00073 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .48597, .16564, .16360, .00528, .00000,
2861 + .00000, .00240, .00387,
2862 + .46320, .15710, .14736, .00498, .00000,
2863 + .00000, .00227, .00363,
2864 + .43196, .14548, .12641, .00454, .00000,
2865 + .00000, .00212, .00330,
2866 + .41103, .13776, .11319, .00427, .00003,
2867 + .00000, .00200, .00310,
2868 + .39059, .13026, .10087, .00399, .00008,
2869 + .00000, .00189, .00291,
2870 + .37378, .12421, .09141, .00382, .00011,
2871 + .00000, .00181, .00272,
2872 + .35854, .11871, .08328, .00363, .00014,
2873 + .00000, .00173, .00256,
2874 + .34323, .11319, .07555, .00342, .00016,
2875 + .00000, .00164, .00242 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .33054, .10863, .06949, .00326, .00018,
2878 + .00000, .00157, .00231,
2879 + .31881, .10444, .06415, .00311, .00019,
2880 + .00000, .00151, .00219,
2881 + .30990, .10127, .06025, .00300, .00020,
2882 + .00000, .00146, .00210,
2883 + .29185, .09489, .05282, .00278, .00022,
2884 + .00001, .00136, .00195,
2885 + .27740, .08983, .04718, .00262, .00023,
2886 + .00003, .00130, .00181,
2887 + .26221, .08453, .04170, .00243, .00023,
2888 + .00006, .00121, .00169,
2889 + .24742, .07940, .03680, .00224, .00023,
2890 + .00008, .00112, .00156,
2891 + .23482, .07505, .03293, .00210, .00023,
2892 + .00009, .00106, .00146 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .22284, .07095, .02951, .00197, .00023,
2895 + .00010, .00100, .00138,
2896 + .21345, .06775, .02702, .00186, .00023,
2897 + .00010, .00095, .00129,
2898 + .20263, .06409, .02431, .00175, .00023,
2899 + .00011, .00088, .00118,
2900 + .19359, .06103, .02219, .00165, .00022,
2901 + .00011, .00083, .00111,
2902 + .18573, .05836, .02045, .00155, .00022,
2903 + .00012, .00079, .00107,
2904 + .17622, .05518, .01848, .00146, .00021,
2905 + .00012, .00075, .00101,
2906 + .16779, .05237, .01684, .00137, .00021,
2907 + .00012, .00071, .00094,
2908 + .16033, .04989, .01546, .00129, .00020,
2909 + .00012, .00067, .00087 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .15323, .04752, .01422, .00122, .00020,
2912 + .00012, .00065, .00082,
2913 + .14661, .04534, .01313, .00116, .00019,
2914 + .00012, .00061, .00078,
2915 + .14064, .04338, .01219, .00110, .00018,
2916 + .00012, .00058, .00074,
2917 + .13525, .04162, .01138, .00105, .00018,
2918 + .00011, .00055, .00071,
2919 + .13008, .03994, .01063, .00099, .00017,
2920 + .00011, .00052, .00067,
2921 + .12518, .03834, .00996, .00095, .00017,
2922 + .00011, .00049, .00064,
2923 + .12073, .03690, .00937, .00091, .00016,
2924 + .00011, .00047, .00062,
2925 + .11667, .03558, .00885, .00087, .00016,
2926 + .00011, .00046, .00058 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11275, .03432, .00836, .00084, .00015,
2929 + .00011, .00044, .00055,
2930 + .10901, .03310, .00791, .00080, .00015,
2931 + .00010, .00042, .00052,
2932 + .10557, .03199, .00751, .00076, .00015,
2933 + .00010, .00040, .00051,
2934 + .10240, .03098, .00715, .00073, .00014,
2935 + .00010, .00039, .00049,
2936 + .09929, .02999, .00681, .00071, .00014,
2937 + .00010, .00037, .00047 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .44077, .14553, .13267, .00384, .00000,
2940 + .00000, .00169, .00257,
2941 + .41872, .13759, .11843, .00362, .00000,
2942 + .00000, .00161, .00238,
2943 + .38859, .12681, .10032, .00327, .00000,
2944 + .00000, .00150, .00217,
2945 + .36850, .11970, .08912, .00307, .00002,
2946 + .00000, .00141, .00203,
2947 + .34901, .11280, .07876, .00285, .00005,
2948 + .00000, .00134, .00189,
2949 + .33311, .10723, .07092, .00268, .00008,
2950 + .00000, .00127, .00178,
2951 + .31868, .10221, .06423, .00253, .00009,
2952 + .00000, .00121, .00169,
2953 + .30418, .09719, .05792, .00239, .00011,
2954 + .00000, .00115, .00159 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29223, .09305, .05301, .00225, .00012,
2957 + .00000, .00110, .00151,
2958 + .28119, .08926, .04872, .00214, .00013,
2959 + .00000, .00106, .00144,
2960 + .27282, .08640, .04562, .00206, .00013,
2961 + .00000, .00102, .00139,
2962 + .25600, .08067, .03971, .00190, .00014,
2963 + .00001, .00096, .00127,
2964 + .24259, .07613, .03529, .00177, .00015,
2965 + .00002, .00089, .00119,
2966 + .22854, .07140, .03101, .00162, .00015,
2967 + .00004, .00084, .00109,
2968 + .21490, .06683, .02722, .00150, .00015,
2969 + .00005, .00078, .00102,
2970 + .20332, .06297, .02426, .00139, .00015,
2971 + .00006, .00073, .00096 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19235, .05935, .02166, .00130, .00015,
2974 + .00007, .00068, .00089,
2975 + .18375, .05651, .01976, .00123, .00015,
2976 + .00007, .00065, .00084,
2977 + .17391, .05329, .01772, .00115, .00015,
2978 + .00007, .00061, .00078,
2979 + .16572, .05063, .01613, .00109, .00015,
2980 + .00008, .00057, .00073,
2981 + .15862, .04833, .01483, .00103, .00014,
2982 + .00008, .00054, .00068,
2983 + .15002, .04555, .01335, .00096, .00014,
2984 + .00008, .00052, .00064,
2985 + .14245, .04311, .01214, .00090, .00013,
2986 + .00008, .00048, .00060,
2987 + .13577, .04097, .01112, .00084, .00013,
2988 + .00008, .00045, .00057 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .12943, .03893, .01021, .00079, .00013,
2991 + .00008, .00043, .00054,
2992 + .12353, .03705, .00941, .00074, .00012,
2993 + .00008, .00041, .00050,
2994 + .11823, .03538, .00871, .00071, .00012,
2995 + .00008, .00039, .00047,
2996 + .11345, .03387, .00813, .00067, .00011,
2997 + .00007, .00037, .00045,
2998 + .10888, .03243, .00758, .00063, .00011,
2999 + .00007, .00036, .00043,
3000 + .10458, .03107, .00709, .00060, .00011,
3001 + .00007, .00034, .00041,
3002 + .10068, .02984, .00666, .00057, .00010,
3003 + .00007, .00032, .00039,
3004 + .09712, .02872, .00628, .00055, .00010,
3005 + .00007, .00031, .00038 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09368, .02765, .00593, .00052, .00010,
3008 + .00007, .00029, .00036,
3009 + .09040, .02663, .00561, .00050, .00010,
3010 + .00007, .00028, .00034,
3011 + .08739, .02570, .00532, .00048, .00009,
3012 + .00007, .00027, .00032,
3013 + .08464, .02485, .00506, .00046, .00009,
3014 + .00006, .00026, .00030,
3015 + .08194, .02401, .00481, .00044, .00009,
3016 + .00006, .00025, .00030 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .39541, .12663, .10560, .00289, .00000,
3019 + .00000, .00110, .00161,
3020 + .37440, .11935, .09347, .00268, .00000,
3021 + .00000, .00103, .00150,
3022 + .34584, .10950, .07829, .00243, .00000,
3023 + .00000, .00097, .00135,
3024 + .32693, .10302, .06900, .00225, .00001,
3025 + .00000, .00092, .00124,
3026 + .30858, .09681, .06057, .00211, .00004,
3027 + .00000, .00085, .00115,
3028 + .29369, .09176, .05421, .00198, .00005,
3029 + .00000, .00081, .00108,
3030 + .28023, .08724, .04884, .00186, .00006,
3031 + .00000, .00077, .00102,
3032 + .26675, .08274, .04381, .00174, .00007,
3033 + .00000, .00072, .00096 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25564, .07906, .03992, .00165, .00008,
3036 + .00000, .00068, .00091,
3037 + .24545, .07567, .03655, .00157, .00008,
3038 + .00000, .00066, .00087,
3039 + .23774, .07310, .03411, .00151, .00009,
3040 + .00000, .00063, .00083,
3041 + .22221, .06804, .02951, .00141, .00009,
3042 + .00001, .00058, .00075,
3043 + .20994, .06401, .02611, .00129, .00010,
3044 + .00001, .00054, .00071,
3045 + .19712, .05984, .02285, .00118, .00010,
3046 + .00003, .00051, .00066,
3047 + .18468, .05584, .01996, .00111, .00010,
3048 + .00003, .00047, .00059,
3049 + .17420, .05246, .01773, .00103, .00010,
3050 + .00004, .00043, .00055 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .16434, .04928, .01577, .00095, .00010,
3053 + .00004, .00040, .00052,
3054 + .15662, .04684, .01434, .00090, .00010,
3055 + .00005, .00039, .00049,
3056 + .14778, .04404, .01283, .00084, .00010,
3057 + .00005, .00036, .00045,
3058 + .14045, .04173, .01166, .00079, .00009,
3059 + .00005, .00034, .00042,
3060 + .13412, .03974, .01069, .00075, .00009,
3061 + .00005, .00032, .00040,
3062 + .12649, .03736, .00961, .00070, .00009,
3063 + .00005, .00030, .00037,
3064 + .11980, .03526, .00872, .00065, .00009,
3065 + .00005, .00028, .00035,
3066 + .11392, .03341, .00797, .00060, .00008,
3067 + .00005, .00027, .00033 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .10835, .03168, .00730, .00055, .00008,
3070 + .00005, .00025, .00030,
3071 + .10316, .03008, .00672, .00052, .00008,
3072 + .00005, .00023, .00029,
3073 + .09850, .02866, .00622, .00051, .00008,
3074 + .00005, .00022, .00027,
3075 + .09433, .02738, .00579, .00048, .00007,
3076 + .00005, .00021, .00026,
3077 + .09036, .02617, .00540, .00045, .00007,
3078 + .00005, .00020, .00024,
3079 + .08659, .02503, .00504, .00043, .00007,
3080 + .00005, .00018, .00023,
3081 + .08318, .02400, .00473, .00041, .00007,
3082 + .00005, .00017, .00021,
3083 + .08010, .02306, .00446, .00040, .00006,
3084 + .00005, .00017, .00020 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .07714, .02216, .00420, .00038, .00006,
3087 + .00004, .00016, .00019,
3088 + .07430, .02130, .00397, .00036, .00006,
3089 + .00004, .00015, .00019,
3090 + .07172, .02052, .00376, .00035, .00006,
3091 + .00004, .00015, .00018,
3092 + .06935, .01981, .00358, .00033, .00006,
3093 + .00004, .00014, .00017,
3094 + .06704, .01912, .00340, .00031, .00006,
3095 + .00004, .00014, .00017 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .35062, .10860, .08190, .00191, .00000,
3098 + .00000, .00080, .00106,
3099 + .33086, .10201, .07190, .00177, .00000,
3100 + .00000, .00075, .00098,
3101 + .30418, .09315, .05958, .00159, .00000,
3102 + .00000, .00068, .00088,
3103 + .28655, .08736, .05212, .00147, .00001,
3104 + .00000, .00064, .00081,
3105 + .26948, .08182, .04544, .00139, .00002,
3106 + .00000, .00058, .00076,
3107 + .25573, .07736, .04044, .00129, .00003,
3108 + .00000, .00055, .00071,
3109 + .24335, .07335, .03624, .00121, .00004,
3110 + .00000, .00052, .00066,
3111 + .23098, .06937, .03234, .00114, .00005,
3112 + .00000, .00049, .00062 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22081, .06612, .02934, .00109, .00005,
3115 + .00000, .00046, .00059,
3116 + .21150, .06315, .02676, .00103, .00005,
3117 + .00000, .00044, .00056,
3118 + .20447, .06091, .02491, .00098, .00006,
3119 + .00000, .00042, .00054,
3120 + .19045, .05648, .02143, .00089, .00006,
3121 + .00000, .00038, .00048,
3122 + .17934, .05297, .01888, .00084, .00006,
3123 + .00001, .00036, .00045,
3124 + .16781, .04935, .01645, .00077, .00006,
3125 + .00002, .00033, .00041,
3126 + .15670, .04589, .01432, .00071, .00006,
3127 + .00002, .00031, .00037,
3128 + .14733, .04299, .01267, .00065, .00006,
3129 + .00002, .00029, .00034 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .13853, .04027, .01124, .00060, .00006,
3132 + .00003, .00026, .00032,
3133 + .13170, .03817, .01020, .00056, .00006,
3134 + .00003, .00025, .00031,
3135 + .12389, .03578, .00910, .00052, .00006,
3136 + .00003, .00024, .00028,
3137 + .11742, .03382, .00824, .00050, .00006,
3138 + .00003, .00022, .00026,
3139 + .11183, .03213, .00755, .00048, .00006,
3140 + .00003, .00020, .00023,
3141 + .10518, .03011, .00677, .00044, .00006,
3142 + .00003, .00019, .00022,
3143 + .09932, .02835, .00613, .00041, .00005,
3144 + .00003, .00018, .00021,
3145 + .09417, .02680, .00560, .00038, .00005,
3146 + .00003, .00017, .00020 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .08935, .02534, .00512, .00034, .00005,
3149 + .00003, .00015, .00019,
3150 + .08486, .02401, .00470, .00032, .00005,
3151 + .00003, .00014, .00017,
3152 + .08084, .02282, .00434, .00032, .00005,
3153 + .00003, .00013, .00016,
3154 + .07724, .02176, .00404, .00031, .00005,
3155 + .00003, .00013, .00015,
3156 + .07381, .02075, .00376, .00030, .00004,
3157 + .00003, .00012, .00014,
3158 + .07061, .01980, .00351, .00027, .00004,
3159 + .00003, .00012, .00014,
3160 + .06773, .01895, .00329, .00025, .00004,
3161 + .00003, .00011, .00013,
3162 + .06509, .01817, .00310, .00024, .00004,
3163 + .00003, .00010, .00013 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06255, .01743, .00292, .00024, .00004,
3166 + .00003, .00010, .00012,
3167 + .06014, .01673, .00275, .00023, .00004,
3168 + .00003, .00009, .00011,
3169 + .05794, .01609, .00261, .00021, .00004,
3170 + .00003, .00009, .00011,
3171 + .05594, .01551, .00247, .00021, .00004,
3172 + .00003, .00009, .00010,
3173 + .05398, .01494, .00235, .00020, .00003,
3174 + .00003, .00008, .00010 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .30709, .09204, .06204, .00124, .00000,
3177 + .00000, .00055, .00068,
3178 + .28879, .08616, .05404, .00116, .00000,
3179 + .00000, .00051, .00061,
3180 + .26419, .07830, .04429, .00103, .00000,
3181 + .00000, .00046, .00056,
3182 + .24800, .07320, .03847, .00095, .00000,
3183 + .00000, .00042, .00052,
3184 + .23246, .06829, .03330, .00089, .00001,
3185 + .00000, .00040, .00047,
3186 + .21993, .06439, .02949, .00083, .00002,
3187 + .00000, .00037, .00044,
3188 + .20868, .06090, .02631, .00078, .00002,
3189 + .00000, .00035, .00041,
3190 + .19749, .05743, .02336, .00072, .00003,
3191 + .00000, .00033, .00039 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .18836, .05460, .02112, .00068, .00003,
3194 + .00000, .00031, .00036,
3195 + .17998, .05203, .01919, .00065, .00003,
3196 + .00000, .00030, .00034,
3197 + .17366, .05011, .01781, .00063, .00003,
3198 + .00000, .00029, .00033,
3199 + .16117, .04627, .01525, .00054, .00004,
3200 + .00000, .00026, .00030,
3201 + .15128, .04326, .01338, .00050, .00004,
3202 + .00001, .00025, .00027,
3203 + .14102, .04016, .01161, .00047, .00004,
3204 + .00001, .00023, .00025,
3205 + .13118, .03720, .01007, .00043, .00004,
3206 + .00001, .00020, .00023,
3207 + .12293, .03474, .00889, .00041, .00004,
3208 + .00002, .00019, .00021 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11522, .03245, .00786, .00038, .00004,
3211 + .00002, .00018, .00019,
3212 + .10927, .03067, .00712, .00034, .00004,
3213 + .00002, .00017, .00019,
3214 + .10245, .02866, .00634, .00033, .00004,
3215 + .00002, .00016, .00017,
3216 + .09684, .02701, .00573, .00030, .00004,
3217 + .00002, .00015, .00016,
3218 + .09203, .02560, .00524, .00028, .00003,
3219 + .00002, .00014, .00015,
3220 + .08627, .02392, .00469, .00025, .00003,
3221 + .00002, .00012, .00015,
3222 + .08123, .02245, .00424, .00023, .00003,
3223 + .00002, .00011, .00014,
3224 + .07682, .02117, .00387, .00022, .00003,
3225 + .00002, .00011, .00012 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07268, .01997, .00353, .00021, .00003,
3228 + .00002, .00011, .00011,
3229 + .06886, .01887, .00324, .00020, .00003,
3230 + .00002, .00010, .00010,
3231 + .06545, .01789, .00299, .00019, .00003,
3232 + .00002, .00009, .00010,
3233 + .06239, .01702, .00278, .00018, .00003,
3234 + .00002, .00008, .00009,
3235 + .05948, .01620, .00259, .00017, .00003,
3236 + .00002, .00008, .00008,
3237 + .05677, .01543, .00241, .00016, .00003,
3238 + .00002, .00008, .00008,
3239 + .05434, .01473, .00226, .00016, .00002,
3240 + .00002, .00007, .00008,
3241 + .05211, .01411, .00212, .00015, .00002,
3242 + .00002, .00007, .00007 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .04998, .01351, .00200, .00015, .00002,
3245 + .00002, .00007, .00006,
3246 + .04798, .01294, .00188, .00013, .00002,
3247 + .00002, .00006, .00006,
3248 + .04616, .01242, .00178, .00012, .00002,
3249 + .00002, .00006, .00006,
3250 + .04449, .01195, .00169, .00011, .00002,
3251 + .00002, .00005, .00006,
3252 + .04286, .01150, .00160, .00011, .00002,
3253 + .00002, .00005, .00006 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .26561, .07708, .04586, .00088, .00000,
3256 + .00000, .00032, .00039,
3257 + .24892, .07192, .03967, .00080, .00000,
3258 + .00000, .00030, .00035,
3259 + .22656, .06505, .03219, .00072, .00000,
3260 + .00000, .00027, .00033,
3261 + .21196, .06060, .02779, .00065, .00000,
3262 + .00000, .00024, .00030,
3263 + .19798, .05637, .02391, .00060, .00001,
3264 + .00000, .00021, .00027,
3265 + .18676, .05297, .02107, .00058, .00001,
3266 + .00000, .00022, .00024,
3267 + .17672, .04996, .01872, .00053, .00001,
3268 + .00000, .00020, .00022,
3269 + .16678, .04698, .01655, .00048, .00002,
3270 + .00000, .00018, .00020 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .15868, .04455, .01491, .00044, .00002,
3273 + .00000, .00018, .00020,
3274 + .15125, .04235, .01352, .00043, .00002,
3275 + .00000, .00017, .00019,
3276 + .14566, .04071, .01252, .00042, .00002,
3277 + .00000, .00016, .00018,
3278 + .13461, .03745, .01067, .00038, .00002,
3279 + .00000, .00014, .00017,
3280 + .12596, .03493, .00934, .00034, .00002,
3281 + .00000, .00013, .00015,
3282 + .11701, .03231, .00808, .00031, .00002,
3283 + .00001, .00012, .00014,
3284 + .10845, .02982, .00699, .00029, .00002,
3285 + .00001, .00011, .00013,
3286 + .10131, .02775, .00615, .00027, .00002,
3287 + .00001, .00010, .00012 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09464, .02584, .00543, .00025, .00002,
3290 + .00001, .00009, .00011,
3291 + .08949, .02437, .00491, .00024, .00002,
3292 + .00001, .00009, .00009,
3293 + .08368, .02270, .00436, .00021, .00002,
3294 + .00001, .00008, .00009,
3295 + .07888, .02134, .00394, .00019, .00002,
3296 + .00001, .00007, .00008,
3297 + .07477, .02017, .00360, .00018, .00002,
3298 + .00001, .00007, .00008,
3299 + .06987, .01879, .00322, .00018, .00002,
3300 + .00001, .00007, .00007,
3301 + .06558, .01759, .00291, .00017, .00002,
3302 + .00001, .00006, .00007,
3303 + .06185, .01654, .00265, .00017, .00002,
3304 + .00001, .00006, .00007 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .05836, .01556, .00242, .00015, .00002,
3307 + .00001, .00005, .00005,
3308 + .05515, .01467, .00222, .00014, .00002,
3309 + .00001, .00005, .00005,
3310 + .05230, .01388, .00205, .00013, .00002,
3311 + .00001, .00005, .00005,
3312 + .04976, .01318, .00190, .00012, .00002,
3313 + .00001, .00004, .00005,
3314 + .04736, .01251, .00176, .00010, .00002,
3315 + .00001, .00003, .00005,
3316 + .04510, .01189, .00164, .00010, .00002,
3317 + .00001, .00004, .00004,
3318 + .04307, .01133, .00154, .00010, .00001,
3319 + .00001, .00004, .00004,
3320 + .04123, .01083, .00144, .00009, .00001,
3321 + .00001, .00003, .00004 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .03947, .01035, .00136, .00009, .00001,
3324 + .00001, .00003, .00004,
3325 + .03781, .00989, .00128, .00009, .00001,
3326 + .00001, .00003, .00003,
3327 + .03630, .00948, .00121, .00008, .00001,
3328 + .00001, .00003, .00003,
3329 + .03493, .00911, .00114, .00008, .00001,
3330 + .00001, .00003, .00003,
3331 + .03360, .00875, .00108, .00008, .00001,
3332 + .00001, .00003, .00003 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .22629, .06341, .03282, .00050, .00000,
3335 + .00000, .00024, .00026,
3336 + .21132, .05895, .02818, .00045, .00000,
3337 + .00000, .00021, .00025,
3338 + .19136, .05308, .02266, .00040, .00000,
3339 + .00000, .00019, .00020,
3340 + .17837, .04926, .01944, .00036, .00000,
3341 + .00000, .00017, .00020,
3342 + .16600, .04565, .01663, .00034, .00000,
3343 + .00000, .00016, .00017,
3344 + .15612, .04278, .01460, .00031, .00001,
3345 + .00000, .00015, .00016,
3346 + .14727, .04023, .01292, .00029, .00001,
3347 + .00000, .00014, .00015,
3348 + .13852, .03772, .01138, .00028, .00001,
3349 + .00000, .00012, .00013 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13142, .03568, .01023, .00027, .00001,
3352 + .00000, .00011, .00014,
3353 + .12498, .03384, .00924, .00025, .00001,
3354 + .00000, .00011, .00013,
3355 + .12017, .03246, .00854, .00023, .00001,
3356 + .00000, .00010, .00011,
3357 + .11060, .02974, .00726, .00020, .00001,
3358 + .00000, .00010, .00010,
3359 + .10314, .02763, .00634, .00018, .00001,
3360 + .00000, .00009, .00010,
3361 + .09544, .02546, .00547, .00017, .00001,
3362 + .00000, .00008, .00008,
3363 + .08812, .02342, .00472, .00015, .00001,
3364 + .00001, .00008, .00008,
3365 + .08204, .02173, .00415, .00013, .00001,
3366 + .00001, .00007, .00008 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07639, .02016, .00365, .00012, .00001,
3369 + .00001, .00007, .00007,
3370 + .07203, .01896, .00330, .00012, .00001,
3371 + .00001, .00006, .00007,
3372 + .06711, .01760, .00293, .00011, .00001,
3373 + .00001, .00005, .00006,
3374 + .06308, .01650, .00265, .00011, .00001,
3375 + .00001, .00005, .00005,
3376 + .05964, .01556, .00241, .00010, .00001,
3377 + .00001, .00005, .00005,
3378 + .05555, .01445, .00215, .00009, .00001,
3379 + .00001, .00005, .00004,
3380 + .05199, .01348, .00194, .00008, .00001,
3381 + .00001, .00004, .00004,
3382 + .04890, .01264, .00177, .00007, .00001,
3383 + .00001, .00004, .00004 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04601, .01186, .00161, .00007, .00001,
3386 + .00001, .00003, .00004,
3387 + .04336, .01115, .00148, .00007, .00001,
3388 + .00001, .00003, .00003,
3389 + .04102, .01052, .00136, .00006, .00001,
3390 + .00001, .00003, .00003,
3391 + .03893, .00997, .00126, .00006, .00001,
3392 + .00001, .00003, .00003,
3393 + .03696, .00944, .00117, .00005, .00001,
3394 + .00001, .00003, .00003,
3395 + .03511, .00895, .00109, .00005, .00001,
3396 + .00001, .00003, .00003,
3397 + .03347, .00851, .00102, .00005, .00001,
3398 + .00001, .00003, .00003,
3399 + .03198, .00812, .00096, .00004, .00001,
3400 + .00001, .00002, .00003 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03056, .00774, .00090, .00004, .00001,
3403 + .00001, .00002, .00002,
3404 + .02921, .00738, .00084, .00004, .00001,
3405 + .00001, .00002, .00002,
3406 + .02799, .00706, .00080, .00004, .00001,
3407 + .00001, .00002, .00002,
3408 + .02688, .00678, .00076, .00004, .00001,
3409 + .00001, .00002, .00002,
3410 + .02580, .00650, .00072, .00004, .00001,
3411 + .00001, .00002, .00002 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .15671, .04096, .01530, .00019, .00000,
3414 + .00000, .00007, .00007,
3415 + .14523, .03779, .01297, .00018, .00000,
3416 + .00000, .00006, .00007,
3417 + .13011, .03366, .01027, .00015, .00000,
3418 + .00000, .00005, .00006,
3419 + .12037, .03101, .00872, .00012, .00000,
3420 + .00000, .00006, .00004,
3421 + .11113, .02851, .00740, .00013, .00000,
3422 + .00000, .00005, .00004,
3423 + .10386, .02654, .00645, .00010, .00000,
3424 + .00000, .00004, .00004,
3425 + .09738, .02481, .00568, .00010, .00000,
3426 + .00000, .00004, .00004,
3427 + .09101, .02311, .00498, .00009, .00000,
3428 + .00000, .00004, .00004 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08588, .02175, .00446, .00009, .00000,
3431 + .00000, .00004, .00004,
3432 + .08124, .02052, .00401, .00008, .00000,
3433 + .00000, .00003, .00003,
3434 + .07778, .01961, .00370, .00007, .00000,
3435 + .00000, .00003, .00003,
3436 + .07097, .01781, .00313, .00006, .00000,
3437 + .00000, .00003, .00004,
3438 + .06572, .01643, .00273, .00006, .00000,
3439 + .00000, .00003, .00003,
3440 + .06034, .01503, .00235, .00005, .00000,
3441 + .00000, .00003, .00003,
3442 + .05526, .01371, .00202, .00005, .00000,
3443 + .00000, .00002, .00002,
3444 + .05108, .01263, .00178, .00005, .00000,
3445 + .00000, .00002, .00002 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04723, .01164, .00156, .00004, .00000,
3448 + .00000, .00002, .00002,
3449 + .04428, .01088, .00141, .00003, .00000,
3450 + .00000, .00002, .00002,
3451 + .04097, .01003, .00125, .00003, .00000,
3452 + .00000, .00001, .00002,
3453 + .03828, .00935, .00113, .00003, .00000,
3454 + .00000, .00002, .00002,
3455 + .03598, .00877, .00103, .00003, .00000,
3456 + .00000, .00002, .00001,
3457 + .03330, .00808, .00092, .00002, .00000,
3458 + .00000, .00001, .00002,
3459 + .03096, .00750, .00083, .00002, .00000,
3460 + .00000, .00001, .00002,
3461 + .02894, .00699, .00075, .00003, .00000,
3462 + .00000, .00001, .00001 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02707, .00652, .00068, .00002, .00000,
3465 + .00000, .00001, .00001,
3466 + .02537, .00610, .00062, .00002, .00000,
3467 + .00000, .00001, .00001,
3468 + .02387, .00572, .00057, .00002, .00000,
3469 + .00000, .00001, .00001,
3470 + .02255, .00539, .00053, .00002, .00000,
3471 + .00000, .00001, .00001,
3472 + .02131, .00508, .00049, .00001, .00000,
3473 + .00000, .00001, .00001,
3474 + .02015, .00480, .00046, .00002, .00000,
3475 + .00000, .00001, .00001,
3476 + .01911, .00454, .00043, .00002, .00000,
3477 + .00000, .00001, .00001,
3478 + .01818, .00431, .00040, .00001, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01731, .00410, .00037, .00001, .00000,
3482 + .00000, .00001, .00001,
3483 + .01647, .00389, .00035, .00001, .00000,
3484 + .00000, .00001, .00001,
3485 + .01572, .00371, .00033, .00001, .00000,
3486 + .00000, .00001, .00001,
3487 + .01505, .00355, .00031, .00001, .00000,
3488 + .00000, .00001, .00001,
3489 + .01439, .00338, .00030, .00001, .00000,
3490 + .00000, .00001, .00000 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .10030, .02428, .00607, .00006, .00000,
3493 + .00000, .00002, .00003,
3494 + .09219, .02223, .00511, .00006, .00000,
3495 + .00000, .00002, .00001,
3496 + .08161, .01957, .00400, .00005, .00000,
3497 + .00000, .00001, .00002,
3498 + .07488, .01788, .00339, .00005, .00000,
3499 + .00000, .00001, .00001,
3500 + .06857, .01632, .00286, .00004, .00000,
3501 + .00000, .00001, .00001,
3502 + .06362, .01509, .00249, .00004, .00000,
3503 + .00000, .00001, .00001,
3504 + .05926, .01401, .00219, .00003, .00000,
3505 + .00000, .00001, .00001,
3506 + .05502, .01296, .00192, .00003, .00000,
3507 + .00000, .00001, .00001 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05160, .01212, .00171, .00003, .00000,
3510 + .00000, .00001, .00001,
3511 + .04853, .01137, .00154, .00003, .00000,
3512 + .00000, .00001, .00001,
3513 + .04626, .01082, .00142, .00003, .00000,
3514 + .00000, .00000, .00001,
3515 + .04181, .00974, .00121, .00002, .00000,
3516 + .00000, .00000, .00000,
3517 + .03841, .00892, .00105, .00002, .00000,
3518 + .00000, .00000, .00001,
3519 + .03498, .00809, .00091, .00001, .00000,
3520 + .00000, .00000, .00001,
3521 + .03176, .00732, .00078, .00002, .00000,
3522 + .00000, .00000, .00000,
3523 + .02913, .00669, .00069, .00002, .00000,
3524 + .00000, .00001, .00000 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02673, .00611, .00060, .00001, .00000,
3527 + .00000, .00001, .00000,
3528 + .02489, .00568, .00055, .00001, .00000,
3529 + .00000, .00000, .00000,
3530 + .02287, .00520, .00048, .00001, .00000,
3531 + .00000, .00000, .00000,
3532 + .02123, .00481, .00044, .00001, .00000,
3533 + .00000, .00000, .00000,
3534 + .01984, .00449, .00040, .00001, .00000,
3535 + .00000, .00000, .00000,
3536 + .01822, .00411, .00035, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01683, .00378, .00032, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01564, .00350, .00029, .00000, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01453, .00325, .00026, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01353, .00302, .00024, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .01266, .00282, .00022, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .01189, .00264, .00020, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .01117, .00248, .00019, .00000, .00000,
3552 + .00000, .00000, .00000,
3553 + .01051, .00233, .00017, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .00993, .00219, .00016, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00940, .00207, .00015, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00890, .00196, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00844, .00185, .00013, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00802, .00176, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00764, .00167, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00728, .00159, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .05784, .01287, .00196, .00003, .00000,
3572 + .00000, .00000, .00000,
3573 + .05269, .01167, .00165, .00002, .00000,
3574 + .00000, .00000, .00000,
3575 + .04604, .01014, .00129, .00002, .00000,
3576 + .00000, .00000, .00000,
3577 + .04186, .00919, .00110, .00002, .00000,
3578 + .00000, .00000, .00000,
3579 + .03797, .00830, .00093, .00002, .00000,
3580 + .00000, .00000, .00000,
3581 + .03496, .00762, .00081, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03232, .00702, .00072, .00001, .00000,
3584 + .00000, .00000, .00000,
3585 + .02976, .00644, .00063, .00001, .00000,
3586 + .00000, .00000, .00000 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02772, .00599, .00057, .00001, .00000,
3589 + .00000, .00000, .00000,
3590 + .02592, .00558, .00051, .00001, .00000,
3591 + .00000, .00000, .00000,
3592 + .02458, .00528, .00047, .00001, .00000,
3593 + .00000, .00000, .00000,
3594 + .02199, .00471, .00040, .00001, .00000,
3595 + .00000, .00000, .00000,
3596 + .02003, .00428, .00035, .00001, .00000,
3597 + .00000, .00000, .00000,
3598 + .01806, .00384, .00031, .00001, .00000,
3599 + .00000, .00000, .00000,
3600 + .01624, .00344, .00026, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01476, .00312, .00023, .00000, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01343, .00283, .00021, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01242, .00261, .00019, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01132, .00237, .00016, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01043, .00217, .00015, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00968, .00201, .00013, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00881, .00183, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00807, .00167, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00745, .00154, .00010, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00687, .00142, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00636, .00131, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00591, .00121, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00552, .00113, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00516, .00105, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00482, .00098, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00453, .00092, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00426, .00087, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00402, .00082, .00005, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00379, .00077, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00358, .00072, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00340, .00069, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00322, .00065, .00004, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .02870, .00577, .00047, .00000, .00000,
3651 + .00000, .00000, .00001,
3652 + .02586, .00518, .00040, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .02226, .00444, .00033, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .02002, .00397, .00028, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01797, .00356, .00024, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01639, .00323, .00021, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01502, .00295, .00019, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01370, .00269, .00017, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01267, .00248, .00015, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01175, .00229, .00014, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01108, .00216, .00013, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00980, .00190, .00011, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00883, .00171, .00010, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00788, .00152, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00700, .00134, .00007, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00630, .00121, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00567, .00108, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00520, .00099, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00469, .00089, .00005, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00429, .00081, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00395, .00075, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00356, .00067, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00323, .00061, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00296, .00055, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00271, .00051, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00248, .00046, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00229, .00043, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00212, .00039, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00197, .00037, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00183, .00034, .00002, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00171, .00032, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00160, .00030, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00150, .00028, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00140, .00026, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00132, .00024, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00125, .00023, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00117, .00022, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00296, .00045, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00258, .00039, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00213, .00032, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00185, .00028, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00161, .00024, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00143, .00021, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00128, .00019, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00114, .00017, .00001, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00103, .00015, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00093, .00014, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00087, .00013, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00074, .00011, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00065, .00010, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00056, .00008, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00048, .00007, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00042, .00006, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00037, .00005, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00033, .00005, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00029, .00004, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00026, .00004, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00023, .00003, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00020, .00003, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00018, .00003, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00016, .00002, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00014, .00002, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00013, .00002, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00012, .00002, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00010, .00002, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00009, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00009, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00008, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00007, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00007, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00006, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00006, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00005, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3808 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3809 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3810 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3811 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3812 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3813 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3815 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3816 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3817 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3818 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3819 . 1.8d6,3.2d6,5.6d6,1d7/
3820 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3821 data n0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3827 if(init.ne.0) goto 10
3828 C open(unit=1,file='cor06.dat',status='old')
3831 C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3832 C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3833 c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3835 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3838 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3840 if(i.eq.5.or.i.eq.7) goto 31
3842 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3850 if(x.lt.xmin) x=xmin
3851 if(x.gt.xmax) x=xmax
3852 if(qsq.lt.qsqmin) qsq=qsqmin
3853 if(qsq.gt.qsqmax) qsq=qsqmax
3855 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3858 if(xxx.gt.xx(n+1)) goto 70
3859 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3862 if(qsq.gt.qq(m+1)) goto 80
3863 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3865 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3866 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3867 if(n.ge.ntenth) goto 65
3868 if(i.eq.5.or.i.eq.7) goto 65
3869 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3870 g(i)=fac*10d0**(g(i)-fac)
3872 g(i)=g(i)*(ONED-x)**n0(i)
git://git.uio.no / u / mrichter / AliRoot.git / blob