]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrs_98a3.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Separated TOF libraries (base,rec,sim)
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrs_98a3.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 subroutine sfmrs_98a3(x,qsq,upv,dnv,usea,dsea,str,chm,bot,glu)
3C
4#include "pdf/impdp.inc"
5C
6 parameter(nx=49,nq=37,ntenth=23,np=8)
7C
8#include "pdf/expdp.inc"
9 + f(np,nx,nq+1),qq(nq),xx(nx),g(np),n0(np)
10 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
11 + .00408, .00237, 1.12142, .87870, .00000,
12 + .00000, .46696, .88815,
13 + .00424, .00243, 2.37000, .91425, .00000,
14 + .00000, .50714, .92386,
15 + .00448, .00253, 4.81686, .99040, .03290,
16 + .00000, .58990, 1.00023,
17 + .00466, .00260, 7.17814, 1.06354, .11029,
18 + .00000, .66770, 1.07352,
19 + .00485, .00268, 10.19450, 1.16003, .19842,
20 + .00000, .76897, 1.17017,
21 + .00501, .00275, 13.28564, 1.25984, .29008,
22 + .00000, .87279, 1.27010,
23 + .00516, .00282, 16.76563, 1.36922, .39514,
24 + .00000, .98593, 1.37959,
25 + .00533, .00289, 21.04811, 1.50104, .52477,
26 + .00000, 1.12165, 1.51152 /
27 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
28 + .00548, .00296, 25.21732, 1.63088, .64963,
29 + .00000, 1.25481, 1.64145,
30 + .00562, .00302, 29.69568, 1.76926, .78392,
31 + .00000, 1.39634, 1.77992,
32 + .00573, .00307, 33.62181, 1.88804, .90202,
33 + .00000, 1.51757, 1.89876,
34 + .00598, .00318, 42.86912, 2.17165, 1.18099,
35 + .02218, 1.80630, 2.18251,
36 + .00619, .00328, 51.86707, 2.44974, 1.45396,
37 + .34036, 2.08870, 2.46070,
38 + .00643, .00339, 63.25751, 2.80034, 1.80032,
39 + .73816, 2.44399, 2.81140,
40 + .00668, .00350, 76.64371, 3.21127, 2.20734,
41 + 1.16250, 2.85969, 3.22244,
42 + .00691, .00361, 90.18671, 3.62664, 2.61969,
43 + 1.59281, 3.27926, 3.63790 /
44 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
45 + .00714, .00372, 105.25520, 4.08895, 3.07994,
46 + 2.07133, 3.74571, 4.10028,
47 + .00734, .00382, 118.79253, 4.50635, 3.49468,
48 + 2.49774, 4.16649, 4.51775,
49 + .00758, .00393, 136.46303, 5.05420, 4.03859,
50 + 3.05489, 4.71835, 5.06566,
51 + .00780, .00403, 153.36763, 5.57932, 4.56178,
52 + 3.59335, 5.24693, 5.59084,
53 + .00800, .00413, 169.93800, 6.09560, 5.07725,
54 + 4.12424, 5.76633, 6.10717,
55 + .00825, .00425, 192.16139, 6.79570, 5.77350,
56 + 4.83461, 6.47032, 6.80733,
57 + .00849, .00437, 214.54834, 7.50452, 6.48022,
58 + 5.55764, 7.18270, 7.51619,
59 + .00872, .00448, 236.93715, 8.21606, 7.19193,
60 + 6.28827, 7.89752, 8.22777 /
61 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
62 + .00895, .00460, 260.21698, 8.96644, 7.93891,
63 + 7.04782, 8.65112, 8.97818,
64 + .00918, .00471, 284.31726, 9.74670, 8.71803,
65 + 7.84316, 9.43447, 9.75846,
66 + .00940, .00482, 308.24033, 10.52667, 9.49750,
67 + 8.63875, 10.21731, 10.53846,
68 + .00961, .00492, 331.52756, 11.29427, 10.26324,
69 + 9.41745, 10.98758, 11.30609,
70 + .00982, .00502, 356.10956, 12.10709, 11.07664,
71 + 10.24768, 11.80303, 12.11892,
72 + .01003, .00513, 380.80463, 12.93482, 11.90234,
73 + 11.08581, 12.63332, 12.94667,
74 + .01023, .00523, 405.44580, 13.76243, 12.73084,
75 + 11.93051, 13.46332, 13.77429,
76 + .01042, .00532, 429.08972, 14.56726, 13.53410,
77 + 12.74528, 14.27038, 14.57913 /
78 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
79 + .01061, .00542, 453.93533, 15.41547, 14.38284,
80 + 13.60876, 15.12081, 15.42735,
81 + .01080, .00552, 478.92456, 16.27757, 15.24439,
82 + 14.48328, 15.98507, 16.28945,
83 + .01099, .00561, 503.44965, 17.12922, 16.09595,
84 + 15.34782, 16.83876, 17.14110,
85 + .01117, .00570, 527.41248, 17.96556, 16.93321,
86 + 16.19884, 17.67701, 17.97746,
87 + .01135, .00579, 551.84790, 18.82849, 17.79538,
88 + 17.07224, 18.54185, 18.84039 /
89 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
90 + .00570, .00320, 1.03310, .75182, .00000,
91 + .00000, .39899, .75747,
92 + .00593, .00330, 2.15359, .78416, .00000,
93 + .00000, .43507, .78991,
94 + .00627, .00344, 4.30511, .85093, .02848,
95 + .00000, .50715, .85682,
96 + .00651, .00355, 6.33978, .91365, .09494,
97 + .00000, .57361, .91963,
98 + .00678, .00367, 8.89548, .99504, .16921,
99 + .00000, .65882, 1.00112,
100 + .00700, .00377, 11.47574, 1.07818, .24551,
101 + .00000, .74517, 1.08433,
102 + .00722, .00387, 14.34528, 1.16851, .33214,
103 + .00000, .83850, 1.17473,
104 + .00745, .00398, 17.83455, 1.27648, .43800,
105 + .00000, .94958, 1.28277 /
106 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
107 + .00766, .00407, 21.19213, 1.38191, .53905,
108 + .00000, 1.05765, 1.38826,
109 + .00786, .00416, 24.76344, 1.49351, .64692,
110 + .00000, 1.17175, 1.49992,
111 + .00801, .00423, 27.86952, 1.58880, .74122,
112 + .00000, 1.26899, 1.59525,
113 + .00835, .00439, 35.09740, 1.81439, .96203,
114 + .01803, 1.49864, 1.82092,
115 + .00864, .00453, 42.02779, 2.03339, 1.17584,
116 + .26670, 1.72104, 2.03999,
117 + .00897, .00469, 50.68799, 2.30692, 1.44456,
118 + .57550, 1.99829, 2.31360,
119 + .00932, .00486, 60.73025, 2.62439, 1.75718,
120 + .90094, 2.31951, 2.63113,
121 + .00964, .00501, 70.76392, 2.94230, 2.07094,
122 + 1.22779, 2.64074, 2.94910 /
123 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
124 + .00996, .00517, 81.80051, 3.29309, 2.41813,
125 + 1.58803, 2.99479, 3.29995,
126 + .01023, .00530, 91.61332, 3.60732, 2.72853,
127 + 1.90640, 3.31168, 3.61423,
128 + .01056, .00546, 104.29307, 4.01656, 3.13246,
129 + 2.31912, 3.72407, 4.02352,
130 + .01086, .00561, 116.30483, 4.40585, 3.51812,
131 + 2.71504, 4.11608, 4.41286,
132 + .01113, .00574, 127.97827, 4.78603, 3.89560,
133 + 3.10283, 4.49871, 4.79307,
134 + .01148, .00591, 143.48306, 5.29771, 4.40164,
135 + 3.61768, 5.01343, 5.30479,
136 + .01181, .00608, 158.95288, 5.81184, 4.91150,
137 + 4.13790, 5.53036, 5.81896,
138 + .01212, .00624, 174.29153, 6.32441, 5.42157,
139 + 4.66019, 6.04550, 6.33157 /
140 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
141 + .01244, .00639, 190.09596, 6.86116, 5.95310,
142 + 5.19909, 6.58476, 6.86835,
143 + .01275, .00655, 206.33009, 7.41576, 6.50416,
144 + 5.76010, 7.14178, 7.42298,
145 + .01304, .00670, 222.32335, 7.96680, 7.05220,
146 + 6.31799, 7.69507, 7.97404,
147 + .01333, .00684, 237.77411, 8.50589, 7.58741,
148 + 6.86073, 8.23625, 8.51316,
149 + .01361, .00699, 253.98309, 9.07381, 8.15317,
150 + 7.43673, 8.80623, 9.08110,
151 + .01389, .00713, 270.14569, 9.64883, 8.72412,
152 + 8.01466, 9.38324, 9.65614,
153 + .01416, .00727, 286.18436, 10.22109, 9.29454,
154 + 8.59477, 9.95737, 10.22842,
155 + .01442, .00740, 301.46918, 10.77467, 9.84461,
156 + 9.15119, 10.51270, 10.78202 /
157 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
158 + .01468, .00753, 317.45087, 11.35565, 10.42354,
159 + 9.73869, 11.09542, 11.36301,
160 + .01494, .00766, 333.42682, 11.94331, 11.00838,
161 + 10.33079, 11.68477, 11.95069,
162 + .01519, .00779, 349.02484, 12.52137, 11.58406,
163 + 10.91376, 12.26443, 12.52877,
164 + .01543, .00792, 364.19305, 13.08684, 12.14796,
165 + 11.48553, 12.83139, 13.09425,
166 + .01567, .00804, 379.57153, 13.66771, 12.72600,
167 + 12.06959, 13.41376, 13.67513 /
168 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
169 + .00798, .00432, .95258, .64292, .00000,
170 + .00000, .34096, .64591,
171 + .00829, .00447, 1.95794, .67221, .00000,
172 + .00000, .37327, .67526,
173 + .00877, .00468, 3.84872, .73069, .02465,
174 + .00000, .43602, .73382,
175 + .00911, .00485, 5.60015, .78445, .08170,
176 + .00000, .49278, .78763,
177 + .00948, .00502, 7.76244, .85306, .14426,
178 + .00000, .56445, .85629,
179 + .00979, .00517, 9.91241, .92223, .20775,
180 + .00000, .63618, .92551,
181 + .01010, .00531, 12.27374, .99671, .27911,
182 + .00000, .71306, 1.00004,
183 + .01042, .00547, 15.11018, 1.08499, .36548,
184 + .00000, .80382, 1.08836 /
185 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
186 + .01071, .00560, 17.80711, 1.17041, .44717,
187 + .00000, .89134, 1.17382,
188 + .01098, .00574, 20.64705, 1.26018, .53371,
189 + .00000, .98310, 1.26362,
190 + .01120, .00584, 23.09710, 1.33642, .60891,
191 + .00000, 1.06088, 1.33988,
192 + .01167, .00607, 28.72801, 1.51533, .78341,
193 + .01466, 1.24301, 1.51885,
194 + .01207, .00627, 34.04599, 1.68721, .95061,
195 + .20888, 1.41758, 1.69078,
196 + .01253, .00650, 40.60380, 1.89986, 1.15870,
197 + .44847, 1.63316, 1.90348,
198 + .01301, .00673, 48.10469, 2.14417, 1.39831,
199 + .69789, 1.88043, 2.14783,
200 + .01345, .00695, 55.50371, 2.38650, 1.63650,
201 + .94595, 2.12537, 2.39021 /
202 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
203 + .01389, .00718, 63.54739, 2.65154, 1.89776,
204 + 1.21687, 2.39299, 2.65530,
205 + .01426, .00736, 70.62322, 2.88705, 2.12946,
206 + 1.45429, 2.63058, 2.89084,
207 + .01472, .00759, 79.67174, 3.19135, 2.42860,
208 + 1.75960, 2.93735, 3.19518,
209 + .01512, .00780, 88.15784, 3.47858, 2.71203,
210 + 2.05028, 3.22671, 3.48244,
211 + .01549, .00798, 96.33260, 3.75717, 2.98760,
212 + 2.33307, 3.50722, 3.76107,
213 + .01597, .00823, 107.08201, 4.12925, 3.35418,
214 + 2.70551, 3.88168, 4.13319,
215 + .01642, .00846, 117.70217, 4.50025, 3.72075,
216 + 3.07904, 4.25486, 4.50421,
217 + .01685, .00867, 128.13979, 4.86754, 4.08499,
218 + 3.45157, 4.62416, 4.87155 /
219 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
220 + .01728, .00889, 138.79277, 5.24937, 4.46177,
221 + 3.83297, 5.00796, 5.25341,
222 + .01770, .00911, 149.64824, 5.64139, 4.84999,
223 + 4.22767, 5.40186, 5.64546,
224 + .01810, .00932, 160.25938, 6.02849, 5.23374,
225 + 4.61779, 5.79071, 6.03258,
226 + .01848, .00951, 170.43010, 6.40489, 5.60623,
227 + 4.99495, 6.16874, 6.40901,
228 + .01887, .00971, 181.03267, 6.79938, 5.99805,
229 + 5.39335, 6.56483, 6.80352,
230 + .01925, .00991, 191.52205, 7.19641, 6.39105,
231 + 5.79054, 6.96342, 7.20058,
232 + .01961, .01010, 201.87326, 7.58969, 6.78198,
233 + 6.18762, 7.35816, 7.59389,
234 + .01996, .01028, 211.66670, 7.96808, 7.15686,
235 + 6.56624, 7.73790, 7.97229 /
236 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
237 + .02031, .01046, 221.85484, 8.36350, 7.54983,
238 + 6.96451, 8.13467, 8.36774,
239 + .02066, .01065, 231.97409, 8.76150, 7.94484,
240 + 7.36386, 8.53398, 8.76576,
241 + .02100, .01082, 241.80070, 9.15131, 8.33202,
242 + 7.75542, 8.92504, 9.15559,
243 + .02132, .01099, 251.30998, 9.53111, 8.70983,
244 + 8.13802, 9.30600, 9.53541,
245 + .02164, .01116, 260.89200, 9.91946, 9.09530,
246 + 8.52693, 9.69551, 9.92377 /
247 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
248 + .00971, .00516, .90909, .58649, .00000,
249 + .00000, .31104, .58840,
250 + .01009, .00534, 1.85263, .61409, .00000,
251 + .00000, .34129, .61603,
252 + .01067, .00561, 3.60529, .66817, .02265,
253 + .00000, .39915, .67017,
254 + .01109, .00582, 5.20880, .71726, .07482,
255 + .00000, .45089, .71931,
256 + .01153, .00603, 7.16815, .77931, .13138,
257 + .00000, .51563, .78140,
258 + .01192, .00622, 9.09860, .84138, .18837,
259 + .00000, .57995, .84351,
260 + .01229, .00640, 11.20310, .90786, .25206,
261 + .00000, .64854, .91002,
262 + .01268, .00659, 13.71268, .98625, .32869,
263 + .00000, .72910, .98844 /
264 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
265 + .01302, .00676, 16.08177, 1.06168, .40077,
266 + .00000, .80637, 1.06390,
267 + .01336, .00693, 18.56158, 1.14061, .47679,
268 + .00000, .88704, 1.14286,
269 + .01362, .00706, 20.69062, 1.20742, .54261,
270 + .00000, .95521, 1.20969,
271 + .01419, .00734, 25.54745, 1.36339, .69454,
272 + .01298, 1.11398, 1.36570,
273 + .01468, .00759, 30.09278, 1.51229, .83919,
274 + .18099, 1.26524, 1.51464,
275 + .01523, .00786, 35.65355, 1.69546, 1.01817,
276 + .38744, 1.45097, 1.69785,
277 + .01581, .00816, 41.96204, 1.90462, 1.22302,
278 + .60081, 1.66271, 1.90706,
279 + .01634, .00842, 48.13725, 2.11091, 1.42548,
280 + .81177, 1.87127, 2.11339 /
281 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
282 + .01687, .00870, 54.80348, 2.33535, 1.64640,
283 + 1.04094, 2.09794, 2.33786,
284 + .01732, .00893, 60.63017, 2.53382, 1.84137,
285 + 1.24077, 2.29822, 2.53637,
286 + .01787, .00921, 68.03490, 2.78904, 2.09191,
287 + 1.49650, 2.55560, 2.79163,
288 + .01835, .00946, 74.93766, 3.02884, 2.32822,
289 + 1.73888, 2.79725, 3.03147,
290 + .01880, .00969, 81.55212, 3.26049, 2.55706,
291 + 1.97373, 3.03056, 3.26314,
292 + .01937, .00998, 90.19733, 3.56845, 2.86005,
293 + 2.28155, 3.34058, 3.57114,
294 + .01992, .01026, 98.68818, 3.87410, 3.16168,
295 + 2.58889, 3.64813, 3.87683,
296 + .02043, .01052, 106.98922, 4.17546, 3.46020,
297 + 2.89420, 3.95122, 4.17822 /
298 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
299 + .02094, .01079, 115.41262, 4.48738, 3.76761,
300 + 3.20532, 4.26484, 4.49018,
301 + .02144, .01105, 123.95512, 4.80640, 4.08319,
302 + 3.52613, 4.58550, 4.80924,
303 + .02192, .01130, 132.26602, 5.12027, 4.39402,
304 + 3.84209, 4.90088, 5.12313,
305 + .02238, .01154, 140.19391, 5.42434, 4.69461,
306 + 4.14639, 5.20636, 5.42724,
307 + .02284, .01178, 148.42725, 5.74205, 5.00989,
308 + 4.46693, 5.52545, 5.74497,
309 + .02329, .01202, 156.53333, 6.06066, 5.32495,
310 + 4.78527, 5.84541, 6.06361,
311 + .02373, .01225, 164.50620, 6.37540, 5.63753,
312 + 5.10275, 6.16140, 6.37838,
313 + .02414, .01246, 172.01596, 6.67721, 5.93627,
314 + 5.40439, 6.46439, 6.68022 /
315 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
316 + .02456, .01268, 179.80486, 6.99183, 6.24868,
317 + 5.72098, 6.78018, 6.99486,
318 + .02497, .01290, 187.51030, 7.30755, 6.56177,
319 + 6.03745, 7.09704, 7.31061,
320 + .02537, .01311, 194.96852, 7.61599, 6.86789,
321 + 6.34696, 7.40654, 7.61907,
322 + .02575, .01331, 202.16466, 7.91579, 7.16590,
323 + 6.64873, 7.70735, 7.91889,
324 + .02614, .01351, 209.38814, 8.22148, 7.46909,
325 + 6.95455, 8.01405, 8.22461 /
326 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
327 + .01116, .00585, .87989, .54939, .00000,
328 + .00000, .29143, .55072,
329 + .01160, .00606, 1.78190, .57581, .00000,
330 + .00000, .32029, .57718,
331 + .01226, .00638, 3.44248, .62696, .02133,
332 + .00000, .37490, .62837,
333 + .01275, .00662, 4.94824, .67298, .07028,
334 + .00000, .42335, .67443,
335 + .01326, .00687, 6.77453, .73075, .12294,
336 + .00000, .48357, .73223,
337 + .01370, .00709, 8.56205, .78820, .17571,
338 + .00000, .54309, .78971,
339 + .01412, .00730, 10.50031, .84950, .23443,
340 + .00000, .60631, .85104,
341 + .01457, .00753, 12.79954, .92151, .30481,
342 + .00000, .68030, .92308 /
343 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
344 + .01497, .00773, 14.95885, .99052, .37074,
345 + .00000, .75100, .99212,
346 + .01535, .00792, 17.20934, 1.06251, .44006,
347 + .00000, .82458, 1.06414,
348 + .01565, .00807, 19.13479, 1.12331, .49992,
349 + .00000, .88661, 1.12495,
350 + .01630, .00840, 23.50362, 1.26468, .63755,
351 + .01190, 1.03054, 1.26637,
352 + .01686, .00868, 27.56535, 1.39904, .76800,
353 + .16345, 1.16704, 1.40076,
354 + .01749, .00901, 32.50612, 1.56363, .92874,
355 + .34915, 1.33396, 1.56540,
356 + .01816, .00935, 38.07817, 1.75077, 1.11190,
357 + .54008, 1.52344, 1.75258,
358 + .01876, .00966, 43.50236, 1.93457, 1.29219,
359 + .72807, 1.70931, 1.93642 /
360 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
361 + .01937, .00997, 49.32821, 2.13379, 1.48817,
362 + .93150, 1.91055, 2.13568,
363 + .01988, .01024, 54.39679, 2.30934, 1.66053,
364 + 1.10823, 2.08775, 2.31127,
365 + .02051, .01056, 60.80904, 2.53433, 1.88126,
366 + 1.33363, 2.31469, 2.53630,
367 + .02106, .01085, 66.76067, 2.74502, 2.08878,
368 + 1.54657, 2.52706, 2.74702,
369 + .02157, .01111, 72.44198, 2.94796, 2.28916,
370 + 1.75230, 2.73150, 2.94999,
371 + .02222, .01145, 79.83485, 3.21685, 2.55358,
372 + 2.02100, 3.00226, 3.21893,
373 + .02284, .01177, 87.06477, 3.48285, 2.81596,
374 + 2.28843, 3.26997, 3.48497,
375 + .02342, .01207, 94.10621, 3.74433, 3.07488,
376 + 2.55334, 3.53303, 3.74649 /
377 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
378 + .02400, .01238, 101.22124, 4.01413, 3.34066,
379 + 2.82237, 3.80436, 4.01632,
380 + .02457, .01268, 108.41190, 4.28932, 3.61278,
381 + 3.09908, 4.08103, 4.29155,
382 + .02511, .01297, 115.38367, 4.55934, 3.88011,
383 + 3.37088, 4.35242, 4.56160,
384 + .02563, .01324, 122.01080, 4.82026, 4.13793,
385 + 3.63194, 4.61460, 4.82255,
386 + .02615, .01351, 128.87462, 5.09226, 4.40779,
387 + 3.90638, 4.88787, 5.09459,
388 + .02666, .01378, 135.60835, 5.36434, 4.67674,
389 + 4.17817, 5.16115, 5.36670,
390 + .02716, .01404, 142.21577, 5.63257, 4.94309,
391 + 4.44876, 5.43053, 5.63496,
392 + .02762, .01429, 148.41869, 5.88918, 5.19700,
393 + 4.70518, 5.68819, 5.89160 /
394 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
395 + .02810, .01454, 154.83836, 6.15619, 5.46209,
396 + 4.97388, 5.95626, 6.15864,
397 + .02857, .01479, 161.17065, 6.42356, 5.72718,
398 + 5.24187, 6.22466, 6.42604,
399 + .02902, .01503, 167.28517, 6.68428, 5.98589,
400 + 5.50350, 6.48634, 6.68679,
401 + .02944, .01525, 173.17235, 6.93726, 6.23734,
402 + 5.75817, 6.74024, 6.93980,
403 + .02988, .01548, 179.06483, 7.19470, 6.49262,
404 + 6.01570, 6.99858, 7.19726 /
405 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
406 + .01243, .00645, .85823, .52218, .00000,
407 + .00000, .27709, .52316,
408 + .01293, .00669, 1.72930, .54771, .00000,
409 + .00000, .30491, .54873,
410 + .01366, .00706, 3.32167, .59668, .02036,
411 + .00000, .35711, .59774,
412 + .01420, .00733, 4.75546, .64044, .06695,
413 + .00000, .40315, .64154,
414 + .01477, .00761, 6.48434, .69508, .11675,
415 + .00000, .46008, .69621,
416 + .01526, .00786, 8.16776, .74918, .16646,
417 + .00000, .51610, .75034,
418 + .01573, .00810, 9.98547, .80672, .22159,
419 + .00000, .57544, .80790,
420 + .01624, .00835, 12.13281, .87411, .28746,
421 + .00000, .64469, .87533 /
422 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
423 + .01667, .00857, 14.14130, .93850, .34896,
424 + .00000, .71065, .93975,
425 + .01710, .00879, 16.22748, 1.00550, .41347,
426 + .00000, .77912, 1.00677,
427 + .01743, .00896, 18.00750, 1.06197, .46906,
428 + .00000, .83675, 1.06327,
429 + .01815, .00933, 22.02926, 1.19290, .59650,
430 + .01113, .97006, 1.19423,
431 + .01878, .00965, 25.74892, 1.31689, .71686,
432 + .15099, 1.09605, 1.31826,
433 + .01948, .01001, 30.25326, 1.46829, .86468,
434 + .32201, 1.24961, 1.46970,
435 + .02021, .01039, 35.30952, 1.63982, 1.03254,
436 + .49712, 1.42333, 1.64128,
437 + .02088, .01074, 40.21015, 1.80776, 1.19724,
438 + .66899, 1.59319, 1.80926 /
439 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
440 + .02156, .01109, 45.45269, 1.98924, 1.37573,
441 + .85439, 1.77655, 1.99079,
442 + .02213, .01138, 49.99715, 2.14873, 1.53229,
443 + 1.01501, 1.93757, 2.15031,
444 + .02282, .01174, 55.72586, 2.35259, 1.73226,
445 + 1.21931, 2.14323, 2.35421,
446 + .02343, .01206, 61.02486, 2.54299, 1.91977,
447 + 1.41182, 2.33519, 2.54465,
448 + .02399, .01236, 66.06799, 2.72596, 2.10041,
449 + 1.59739, 2.51956, 2.72766,
450 + .02471, .01274, 72.60756, 2.96777, 2.33817,
451 + 1.83910, 2.76310, 2.96951,
452 + .02539, .01309, 78.98146, 3.20636, 2.57349,
453 + 2.07906, 3.00328, 3.20815,
454 + .02603, .01343, 85.17049, 3.44036, 2.80518,
455 + 2.31622, 3.23874, 3.44218 /
456 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
457 + .02667, .01377, 91.40331, 3.68119, 3.04240,
458 + 2.55643, 3.48099, 3.68306,
459 + .02731, .01410, 97.68514, 3.92632, 3.28479,
460 + 2.80299, 3.72749, 3.92822,
461 + .02791, .01442, 103.75928, 4.16633, 3.52241,
462 + 3.04469, 3.96878, 4.16828,
463 + .02847, .01472, 109.51704, 4.39778, 3.75110,
464 + 3.27633, 4.20140, 4.39976,
465 + .02905, .01503, 115.46767, 4.63865, 3.99008,
466 + 3.51947, 4.44343, 4.64066,
467 + .02961, .01533, 121.28902, 4.87908, 4.22775,
468 + 3.75972, 4.68498, 4.88113,
469 + .03015, .01561, 126.99046, 5.11575, 4.46277,
470 + 3.99858, 4.92271, 5.11784,
471 + .03067, .01589, 132.32866, 5.34174, 4.68639,
472 + 4.22447, 5.14968, 5.34386 /
473 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
474 + .03119, .01616, 137.84407, 5.57656, 4.91954,
475 + 4.46089, 5.38548, 5.57871,
476 + .03170, .01644, 143.27168, 5.81130, 5.15229,
477 + 4.69626, 5.62116, 5.81348,
478 + .03220, .01670, 148.50256, 6.03985, 5.37910,
479 + 4.92571, 5.85062, 6.04208,
480 + .03267, .01695, 153.53050, 6.26134, 5.59927,
481 + 5.14879, 6.07295, 6.26359,
482 + .03315, .01721, 158.55153, 6.48636, 5.82242,
483 + 5.37397, 6.29881, 6.48864 /
484 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
485 + .01739, .00877, .79696, .44566, .00000,
486 + .00000, .23698, .44614,
487 + .01809, .00913, 1.57865, .46855, .00000,
488 + .00000, .26176, .46907,
489 + .01912, .00966, 2.97566, .51124, .01760,
490 + .00000, .30711, .51181,
491 + .01988, .01005, 4.20555, .54862, .05753,
492 + .00000, .34635, .54923,
493 + .02067, .01047, 5.66113, .59449, .09937,
494 + .00000, .39411, .59514,
495 + .02136, .01083, 7.05511, .63927, .14059,
496 + .00000, .44047, .63997,
497 + .02201, .01117, 8.54016, .68644, .18585,
498 + .00000, .48911, .68717,
499 + .02272, .01154, 10.27158, .74117, .23936,
500 + .00000, .54535, .74194 /
501 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
502 + .02333, .01186, 11.87006, .79292, .28885,
503 + .00000, .59839, .79373,
504 + .02391, .01217, 13.51244, .84634, .34033,
505 + .00000, .65302, .84719,
506 + .02438, .01242, 14.90168, .89111, .38442,
507 + .00000, .69872, .89198,
508 + .02538, .01294, 17.99809, .99388, .48451,
509 + .00902, .80344, .99481,
510 + .02624, .01340, 20.81430, 1.09010, .57799,
511 + .11783, .90128, 1.09109,
512 + .02721, .01392, 24.17580, 1.20638, .69161,
513 + .24999, 1.01931, 1.20742,
514 + .02822, .01445, 27.89329, 1.33667, .81922,
515 + .38359, 1.15137, 1.33778,
516 + .02915, .01495, 31.44626, 1.46292, .94315,
517 + .51336, 1.27918, 1.46409 /
518 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
519 + .03008, .01544, 35.19873, 1.59806, 1.07620,
520 + .65200, 1.41584, 1.59929,
521 + .03086, .01586, 38.41350, 1.71579, 1.19189,
522 + .77104, 1.53481, 1.71707,
523 + .03180, .01636, 42.41968, 1.86500, 1.33839,
524 + .92113, 1.68547, 1.86633,
525 + .03264, .01681, 46.08481, 2.00320, 1.47465,
526 + 1.06143, 1.82494, 2.00460,
527 + .03341, .01723, 49.53928, 2.13505, 1.60498,
528 + 1.19569, 1.95791, 2.13650,
529 + .03438, .01775, 53.96853, 2.30785, 1.77507,
530 + 1.36905, 2.13211, 2.30936,
531 + .03531, .01825, 58.23886, 2.47695, 1.94206,
532 + 1.53977, 2.30249, 2.47852,
533 + .03618, .01872, 62.34541, 2.64157, 2.10529,
534 + 1.70730, 2.46828, 2.64320 /
535 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
536 + .03705, .01918, 66.43568, 2.80965, 2.27105,
537 + 1.87552, 2.63751, 2.81135,
538 + .03790, .01964, 70.52200, 2.97958, 2.43930,
539 + 2.04710, 2.80854, 2.98133,
540 + .03871, .02008, 74.43867, 3.14486, 2.60316,
541 + 2.21419, 2.97484, 3.14667,
542 + .03948, .02050, 78.11737, 3.30318, 2.75981,
543 + 2.37320, 3.13410, 3.30504,
544 + .04025, .02091, 81.89332, 3.46705, 2.92264,
545 + 2.53929, 3.29891, 3.46896,
546 + .04101, .02132, 85.55244, 3.62953, 3.08348,
547 + 2.70222, 3.46230, 3.63150,
548 + .04174, .02172, 89.11514, 3.78871, 3.24181,
549 + 2.86352, 3.62232, 3.79073,
550 + .04242, .02209, 92.42132, 3.93977, 3.39149,
551 + 3.01504, 3.77416, 3.94183 /
552 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
553 + .04312, .02247, 95.81867, 4.09603, 3.54691,
554 + 3.17300, 3.93122, 4.09815,
555 + .04381, .02284, 99.13606, 4.25139, 3.70118,
556 + 3.32935, 4.08734, 4.25356,
557 + .04447, .02320, 102.31346, 4.40196, 3.85084,
558 + 3.48109, 4.23862, 4.40417,
559 + .04510, .02354, 105.35080, 4.54724, 3.99551,
560 + 3.62801, 4.38458, 4.54949,
561 + .04573, .02388, 108.36037, 4.69407, 4.14135,
562 + 3.77547, 4.53208, 4.69637 /
563 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
564 + .02437, .01203, .74663, .38003, .00000,
565 + .00000, .20289, .38079,
566 + .02536, .01255, 1.44855, .40044, .00000,
567 + .00000, .22488, .40126,
568 + .02680, .01333, 2.67258, .43750, .01518,
569 + .00000, .26419, .43842,
570 + .02786, .01390, 3.72465, .46932, .04933,
571 + .00000, .29757, .47031,
572 + .02897, .01450, 4.94539, .50768, .08439,
573 + .00000, .33752, .50875,
574 + .02993, .01502, 6.09407, .54459, .11847,
575 + .00000, .37575, .54572,
576 + .03085, .01551, 7.30047, .58306, .15549,
577 + .00000, .41545, .58426,
578 + .03182, .01604, 8.68756, .62725, .19880,
579 + .00000, .46092, .62852 /
580 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
581 + .03267, .01650, 9.95054, .66860, .23843,
582 + .00000, .50335, .66993,
583 + .03349, .01695, 11.23338, .71092, .27932,
584 + .00000, .54668, .71231,
585 + .03414, .01730, 12.30860, .74616, .31411,
586 + .00000, .58271, .74760,
587 + .03552, .01805, 14.67057, .82622, .39230,
588 + .00728, .66441, .82776,
589 + .03671, .01870, 16.78051, .90028, .46447,
590 + .09153, .73983, .90191,
591 + .03805, .01943, 19.26068, .98880, .55123,
592 + .19317, .82981, .99052,
593 + .03944, .02019, 21.96029, 1.08683, .64756,
594 + .29455, .92934, 1.08866,
595 + .04070, .02088, 24.50216, 1.18080, .74010,
596 + .39196, 1.02461, 1.18273 /
597 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
598 + .04198, .02158, 27.15031, 1.28039, .83849,
599 + .49499, 1.12548, 1.28241,
600 + .04304, .02217, 29.39051, 1.36635, .92324,
601 + .58261, 1.21247, 1.36845,
602 + .04433, .02287, 32.14794, 1.47431, 1.02962,
603 + .69211, 1.32166, 1.47651,
604 + .04547, .02350, 34.64106, 1.57344, 1.12771,
605 + .79359, 1.42185, 1.57573,
606 + .04651, .02407, 36.96659, 1.66730, 1.22083,
607 + .88997, 1.51665, 1.66967,
608 + .04784, .02480, 39.91178, 1.78922, 1.34127,
609 + 1.01326, 1.63975, 1.79169,
610 + .04909, .02549, 42.71817, 1.90751, 1.45850,
611 + 1.13366, 1.75911, 1.91007,
612 + .05027, .02613, 45.38906, 2.02176, 1.57222,
613 + 1.25092, 1.87436, 2.02443 /
614 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
615 + .05144, .02678, 48.01703, 2.13744, 1.68670,
616 + 1.36760, 1.99099, 2.14019,
617 + .05259, .02741, 50.61762, 2.25355, 1.80210,
618 + 1.48580, 2.10803, 2.25639,
619 + .05368, .02801, 53.08652, 2.36570, 1.91372,
620 + 1.60011, 2.22104, 2.36863,
621 + .05470, .02857, 55.38173, 2.47237, 2.01964,
622 + 1.70810, 2.32850, 2.47537,
623 + .05574, .02914, 57.72037, 2.58215, 2.12915,
624 + 1.82029, 2.43907, 2.58524,
625 + .05675, .02970, 59.96242, 2.69022, 2.23652,
626 + 1.92950, 2.54790, 2.69339,
627 + .05772, .03023, 62.13181, 2.79556, 2.34172,
628 + 2.03715, 2.65396, 2.79881,
629 + .05864, .03074, 64.12439, 2.89487, 2.44049,
630 + 2.13754, 2.75393, 2.89819 /
631 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
632 + .05956, .03125, 66.16017, 2.99713, 2.54259,
633 + 2.24175, 2.85685, 3.00052,
634 + .06048, .03175, 68.13031, 3.09819, 2.64333,
635 + 2.34428, 2.95856, 3.10166,
636 + .06135, .03223, 70.00439, 3.19565, 2.74058,
637 + 2.44329, 3.05663, 3.19919,
638 + .06219, .03269, 71.78496, 3.28928, 2.83419,
639 + 2.53876, 3.15082, 3.29288,
640 + .06302, .03315, 73.53307, 3.38335, 2.92798,
641 + 2.63399, 3.24547, 3.38702 /
642 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
643 + .02974, .01457, .72397, .34619, .00000,
644 + .00000, .18542, .34743,
645 + .03094, .01522, 1.38335, .36520, .00000,
646 + .00000, .20589, .36654,
647 + .03270, .01619, 2.51518, .39924, .01390,
648 + .00000, .24198, .40071,
649 + .03399, .01690, 3.47344, .42811, .04502,
650 + .00000, .27228, .42968,
651 + .03534, .01764, 4.57169, .46256, .07656,
652 + .00000, .30818, .46424,
653 + .03650, .01828, 5.59381, .49541, .10698,
654 + .00000, .34225, .49718,
655 + .03762, .01890, 6.65778, .52944, .13980,
656 + .00000, .37740, .53130,
657 + .03880, .01955, 7.87052, .56829, .17795,
658 + .00000, .41742, .57024 /
659 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
660 + .03983, .02012, 8.96526, .60439, .21264,
661 + .00000, .45451, .60643,
662 + .04082, .02066, 10.06925, .64115, .24825,
663 + .00000, .49220, .64327,
664 + .04160, .02110, 10.98931, .67164, .27842,
665 + .00000, .52342, .67383,
666 + .04327, .02202, 12.99213, .74048, .34582,
667 + .00640, .59375, .74280,
668 + .04471, .02282, 14.76102, .80367, .40756,
669 + .07867, .65820, .80611,
670 + .04632, .02371, 16.82045, .87868, .48130,
671 + .16548, .73457, .88126,
672 + .04799, .02464, 19.03987, .96118, .56260,
673 + .25136, .81843, .96388,
674 + .04951, .02548, 21.11009, 1.03971, .64018,
675 + .33334, .89816, 1.04254 /
676 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
677 + .05104, .02633, 23.24838, 1.12242, .72215,
678 + .41951, .98206, 1.12539,
679 + .05231, .02704, 25.04288, 1.19341, .79237,
680 + .49237, 1.05401, 1.19648,
681 + .05385, .02789, 27.23448, 1.28208, .88001,
682 + .58291, 1.14380, 1.28527,
683 + .05521, .02865, 29.20127, 1.36306, .96040,
684 + .66638, 1.22575, 1.36637,
685 + .05646, .02934, 31.02384, 1.43936, 1.03635,
686 + .74528, 1.30294, 1.44278,
687 + .05804, .03022, 33.31383, 1.53794, 1.13405,
688 + .84564, 1.40260, 1.54149,
689 + .05953, .03105, 35.47966, 1.63306, 1.22863,
690 + .94314, 1.49871, 1.63673,
691 + .06092, .03182, 37.52734, 1.72451, 1.31996,
692 + 1.03765, 1.59108, 1.72830 /
693 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
694 + .06231, .03259, 39.52609, 1.81659, 1.41139,
695 + 1.13116, 1.68405, 1.82050,
696 + .06367, .03335, 41.49203, 1.90862, 1.50316,
697 + 1.22550, 1.77694, 1.91264,
698 + .06496, .03407, 43.34694, 1.99712, 1.59154,
699 + 1.31633, 1.86624, 2.00125,
700 + .06618, .03474, 45.05972, 2.08091, 1.67503,
701 + 1.40174, 1.95077, 2.08515,
702 + .06740, .03542, 46.79683, 2.16686, 1.76106,
703 + 1.49020, 2.03745, 2.17119,
704 + .06860, .03608, 48.45017, 2.25108, 1.84501,
705 + 1.57589, 2.12238, 2.25552,
706 + .06974, .03672, 50.04372, 2.33292, 1.92703,
707 + 1.66012, 2.20489, 2.33746,
708 + .07082, .03731, 51.49714, 2.40975, 2.00369,
709 + 1.73830, 2.28232, 2.41437 /
710 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
711 + .07191, .03792, 52.97672, 2.48864, 2.08273,
712 + 1.81927, 2.36183, 2.49335,
713 + .07298, .03851, 54.39988, 2.56631, 2.16042,
714 + 1.89862, 2.44010, 2.57111,
715 + .07401, .03908, 55.74752, 2.64098, 2.23519,
716 + 1.97501, 2.51534, 2.64587,
717 + .07498, .03962, 57.02283, 2.71251, 2.30696,
718 + 2.04847, 2.58740, 2.71748,
719 + .07596, .04016, 58.26686, 2.78412, 2.37861,
720 + 2.12146, 2.65954, 2.78918 /
721 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
722 + .03428, .01677, .71197, .32410, .00000,
723 + .00000, .17404, .32579,
724 + .03566, .01754, 1.34288, .34216, .00000,
725 + .00000, .19347, .34397,
726 + .03770, .01867, 2.41278, .37414, .01305,
727 + .00000, .22739, .37613,
728 + .03918, .01949, 3.30835, .40104, .04214,
729 + .00000, .25564, .40315,
730 + .04073, .02036, 4.32532, .43290, .07136,
731 + .00000, .28887, .43514,
732 + .04206, .02110, 5.26401, .46308, .09938,
733 + .00000, .32019, .46544,
734 + .04334, .02181, 6.23462, .49419, .12945,
735 + .00000, .35238, .49666,
736 + .04470, .02257, 7.33379, .52955, .16424,
737 + .00000, .38885, .53214 /
738 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
739 + .04587, .02323, 8.31959, .56226, .19573,
740 + .00000, .42248, .56495,
741 + .04700, .02386, 9.30841, .59542, .22794,
742 + .00000, .45653, .59821,
743 + .04790, .02436, 10.12897, .62286, .25514,
744 + .00000, .48465, .62573,
745 + .04980, .02543, 11.90301, .68450, .31563,
746 + .00583, .54771, .68753,
747 + .05144, .02635, 13.45645, .74077, .37075,
748 + .07046, .60517, .74395,
749 + .05328, .02737, 15.25203, .80723, .43624,
750 + .14787, .67292, .81057,
751 + .05518, .02844, 17.17268, .87993, .50807,
752 + .22398, .74691, .88343,
753 + .05691, .02941, 18.95158, .94878, .57628,
754 + .29628, .81692, .95244 /
755 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
756 + .05865, .03038, 20.77708, 1.02098, .64802,
757 + .37192, .89024, 1.02479,
758 + .06009, .03119, 22.29982, 1.08268, .70921,
759 + .43561, .95284, 1.08661,
760 + .06183, .03216, 24.14852, 1.15941, .78527,
761 + .51442, 1.03065, 1.16350,
762 + .06337, .03303, 25.79825, 1.22922, .85476,
763 + .58680, 1.10139, 1.23344,
764 + .06479, .03382, 27.31939, 1.29476, .92019,
765 + .65497, 1.16777, 1.29911,
766 + .06657, .03482, 29.21906, 1.37909, 1.00399,
767 + .74132, 1.25313, 1.38359,
768 + .06825, .03576, 31.00550, 1.46013, 1.08482,
769 + .82488, 1.33513, 1.46478,
770 + .06982, .03664, 32.68605, 1.53777, 1.16258,
771 + .90561, 1.41365, 1.54256 /
772 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
773 + .07139, .03751, 34.31623, 1.61564, 1.24011,
774 + .98513, 1.49236, 1.62056,
775 + .07292, .03837, 35.91226, 1.69319, 1.31768,
776 + 1.06511, 1.57074, 1.69825,
777 + .07437, .03918, 37.41100, 1.76754, 1.39215,
778 + 1.14188, 1.64586, 1.77273,
779 + .07573, .03993, 38.78755, 1.83770, 1.46225,
780 + 1.21381, 1.71672, 1.84300,
781 + .07710, .04070, 40.17876, 1.90947, 1.53431,
782 + 1.28813, 1.78919, 1.91489,
783 + .07844, .04145, 41.49522, 1.97955, 1.60438,
784 + 1.35985, 1.85995, 1.98509,
785 + .07972, .04216, 42.76038, 2.04751, 1.67269,
786 + 1.43022, 1.92855, 2.05316,
787 + .08092, .04283, 43.90781, 2.11108, 1.73632,
788 + 1.49532, 1.99272, 2.11684 /
789 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
790 + .08214, .04351, 45.07265, 2.17624, 1.80180,
791 + 1.56260, 2.05846, 2.18210,
792 + .08334, .04418, 46.18765, 2.24020, 1.86597,
793 + 1.62834, 2.12300, 2.24617,
794 + .08449, .04482, 47.23967, 2.30155, 1.92760,
795 + 1.69149, 2.18490, 2.30762,
796 + .08557, .04542, 48.23214, 2.36019, 1.98663,
797 + 1.75210, 2.24406, 2.36636,
798 + .08667, .04603, 49.19515, 2.41874, 2.04538,
799 + 1.81214, 2.30311, 2.42500 /
800 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
801 + .03833, .01886, .70694, .30832, .00000,
802 + .00000, .16575, .31021,
803 + .03987, .01973, 1.31674, .32564, .00000,
804 + .00000, .18437, .32768,
805 + .04214, .02101, 2.34002, .35607, .01240,
806 + .00000, .21662, .35830,
807 + .04379, .02193, 3.18835, .38147, .03996,
808 + .00000, .24330, .38385,
809 + .04552, .02291, 4.14422, .41138, .06744,
810 + .00000, .27450, .41391,
811 + .04700, .02374, 5.02041, .43956, .09365,
812 + .00000, .30377, .44223,
813 + .04842, .02454, 5.92129, .46851, .12168,
814 + .00000, .33372, .47130,
815 + .04993, .02539, 6.93592, .50128, .15399,
816 + .00000, .36754, .50421 /
817 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
818 + .05123, .02613, 7.84102, .53147, .18311,
819 + .00000, .39861, .53452,
820 + .05248, .02683, 8.74479, .56200, .21280,
821 + .00000, .42997, .56515,
822 + .05348, .02739, 9.49209, .58719, .23781,
823 + .00000, .45580, .59043,
824 + .05559, .02858, 11.09843, .64356, .29323,
825 + .00541, .51352, .64699,
826 + .05740, .02961, 12.49486, .69479, .34350,
827 + .06445, .56587, .69838,
828 + .05943, .03075, 14.09919, .75504, .40299,
829 + .13497, .62734, .75882,
830 + .06153, .03193, 15.80451, .82066, .46795,
831 + .20397, .69418, .82462,
832 + .06343, .03301, 17.37465, .88255, .52938,
833 + .26925, .75716, .88669 /
834 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
835 + .06535, .03408, 18.97720, .94720, .59375,
836 + .33729, .82288, .95151,
837 + .06694, .03498, 20.30702, 1.00226, .64847,
838 + .39437, .87879, 1.00671,
839 + .06885, .03606, 21.91353, 1.07049, .71624,
840 + .46476, .94805, 1.07512,
841 + .07054, .03701, 23.34027, 1.13236, .77796,
842 + .52920, 1.01080, 1.13714,
843 + .07209, .03788, 24.65014, 1.19028, .83590,
844 + .58973, 1.06951, 1.19520,
845 + .07405, .03898, 26.27751, 1.26455, .90986,
846 + .66612, 1.14476, 1.26964,
847 + .07589, .04001, 27.80054, 1.33568, .98096,
848 + .73980, 1.21680, 1.34094,
849 + .07761, .04098, 29.22720, 1.40362, 1.04917,
850 + .81078, 1.28557, 1.40903 /
851 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
852 + .07931, .04193, 30.60371, 1.47154, 1.11694,
853 + .88046, 1.35429, 1.47710,
854 + .08099, .04287, 31.94608, 1.53899, 1.18457,
855 + .95036, 1.42253, 1.54470,
856 + .08257, .04376, 33.20148, 1.60348, 1.24931,
857 + 1.01727, 1.48775, 1.60933,
858 + .08405, .04459, 34.34915, 1.66416, 1.31009,
859 + 1.07979, 1.54910, 1.67014,
860 + .08554, .04542, 35.50551, 1.72611, 1.37244,
861 + 1.14425, 1.61171, 1.73222,
862 + .08700, .04624, 36.59424, 1.78642, 1.43288,
863 + 1.20628, 1.67267, 1.79266,
864 + .08839, .04701, 37.63799, 1.84479, 1.49170,
865 + 1.26703, 1.73165, 1.85116,
866 + .08970, .04774, 38.57983, 1.89925, 1.54635,
867 + 1.32307, 1.78667, 1.90573 /
868 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
869 + .09102, .04848, 39.53376, 1.95497, 1.60249,
870 + 1.38090, 1.84296, 1.96157,
871 + .09232, .04921, 40.44273, 2.00952, 1.65737,
872 + 1.43727, 1.89806, 2.01624,
873 + .09356, .04990, 41.29761, 2.06175, 1.70997,
874 + 1.49131, 1.95080, 2.06857,
875 + .09474, .05055, 42.10199, 2.11159, 1.76028,
876 + 1.54310, 2.00113, 2.11851,
877 + .09593, .05121, 42.87880, 2.16123, 1.81023,
878 + 1.59427, 2.05126, 2.16826 /
879 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
880 + .05446, .02755, .70959, .26429, .00000,
881 + .00000, .14291, .26747,
882 + .05663, .02881, 1.25759, .27944, .00000,
883 + .00000, .15917, .28283,
884 + .05981, .03065, 2.14456, .30532, .01054,
885 + .00000, .18662, .30901,
886 + .06211, .03199, 2.85638, .32645, .03376,
887 + .00000, .20885, .33036,
888 + .06452, .03338, 3.63792, .35082, .05635,
889 + .00000, .23435, .35497,
890 + .06658, .03457, 4.33781, .37340, .07755,
891 + .00000, .25786, .37775,
892 + .06854, .03570, 5.04392, .39630, .09993,
893 + .00000, .28164, .40084,
894 + .07062, .03690, 5.82473, .42192, .12538,
895 + .00000, .30817, .42665 /
896 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
897 + .07241, .03793, 6.50868, .44521, .14803,
898 + .00000, .33222, .45011,
899 + .07413, .03892, 7.18133, .46851, .17088,
900 + .00000, .35624, .47357,
901 + .07549, .03971, 7.73090, .48758, .18998,
902 + .00000, .37588, .49278,
903 + .07837, .04136, 8.88927, .52973, .23175,
904 + .00424, .41920, .53520,
905 + .08084, .04278, 9.87153, .56745, .26908,
906 + .04836, .45789, .57316,
907 + .08358, .04435, 10.97702, .61120, .31266,
908 + .10062, .50271, .61717,
909 + .08641, .04597, 12.12718, .65815, .35955,
910 + .15091, .55074, .66438,
911 + .08897, .04743, 13.16477, .70182, .40330,
912 + .19785, .59536, .70830 /
913 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
914 + .09153, .04889, 14.20407, .74687, .44856,
915 + .24617, .64134, .75358,
916 + .09364, .05009, 15.05132, .78477, .48659,
917 + .28622, .68001, .79169,
918 + .09619, .05154, 16.05707, .83120, .53315,
919 + .33505, .72734, .83836,
920 + .09842, .05281, 16.93557, .87284, .57510,
921 + .37928, .76975, .88020,
922 + .10047, .05397, 17.73028, .91144, .61410,
923 + .42042, .80906, .91899,
924 + .10304, .05542, 18.69945, .96035, .66330,
925 + .47174, .85883, .96814,
926 + .10544, .05678, 19.59106, 1.00667, .71008,
927 + .52072, .90596, 1.01468,
928 + .10769, .05805, 20.41378, 1.05048, .75453,
929 + .56746, .95051, 1.05870 /
930 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
931 + .10991, .05929, 21.19196, 1.09376, .79818,
932 + .61279, .99451, 1.10218,
933 + .11207, .06051, 21.94018, 1.13636, .84135,
934 + .65788, 1.03780, 1.14498,
935 + .11411, .06166, 22.62959, 1.17670, .88231,
936 + .70067, 1.07880, 1.18551,
937 + .11602, .06272, 23.24891, 1.21430, .92039,
938 + .74025, 1.11699, 1.22328,
939 + .11793, .06380, 23.86632, 1.25240, .95918,
940 + .78080, 1.15570, 1.26156,
941 + .11980, .06484, 24.43624, 1.28912, .99641,
942 + .81941, 1.19299, 1.29844,
943 + .12157, .06583, 24.97796, 1.32444, 1.03243,
944 + .85703, 1.22886, 1.33392,
945 + .12323, .06675, 25.45702, 1.35707, 1.06556,
946 + .89139, 1.26199, 1.36670 /
947 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
948 + .12491, .06769, 25.93824, 1.39026, 1.09942,
949 + .92666, 1.29570, 1.40005,
950 + .12655, .06860, 26.38886, 1.42249, 1.13225,
951 + .96076, 1.32842, 1.43242,
952 + .12812, .06947, 26.80750, 1.45313, 1.16351,
953 + .99325, 1.35952, 1.46320,
954 + .12960, .07029, 27.19737, 1.48219, 1.19323,
955 + 1.02421, 1.38904, 1.49240,
956 + .13108, .07111, 27.56629, 1.51089, 1.22249,
957 + 1.05453, 1.41817, 1.52123 /
958 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
959 + .07828, .04149, .76010, .22814, .00000,
960 + .00000, .12417, .23335,
961 + .08133, .04329, 1.24831, .24124, .00000,
962 + .00000, .13825, .24677,
963 + .08576, .04590, 2.00571, .26295, .00891,
964 + .00000, .16132, .26893,
965 + .08896, .04778, 2.59134, .28024, .02831,
966 + .00000, .17958, .28654,
967 + .09228, .04972, 3.21551, .29974, .04667,
968 + .00000, .20007, .30639,
969 + .09510, .05137, 3.75968, .31746, .06358,
970 + .00000, .21862, .32439,
971 + .09779, .05293, 4.29668, .33518, .08116,
972 + .00000, .23711, .34238,
973 + .10063, .05458, 4.87793, .35472, .10086,
974 + .00000, .25745, .36221 /
975 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
976 + .10306, .05599, 5.37636, .37222, .11812,
977 + .00000, .27563, .37995,
978 + .10538, .05733, 5.85788, .38951, .13533,
979 + .00000, .29357, .39748,
980 + .10722, .05840, 6.24580, .40355, .14958,
981 + .00000, .30811, .41169,
982 + .11108, .06062, 7.04440, .43409, .18029,
983 + .00326, .33970, .44262,
984 + .11437, .06251, 7.70122, .46095, .20726,
985 + .03544, .36743, .46981,
986 + .11801, .06460, 8.42219, .49160, .23825,
987 + .07319, .39904, .50082,
988 + .12175, .06673, 9.15305, .52393, .27104,
989 + .10884, .43234, .53351,
990 + .12511, .06864, 9.79605, .55353, .30114,
991 + .14159, .46279, .56342 /
992 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
993 + .12845, .07054, 10.42520, .58359, .33184,
994 + .17481, .49371, .59381,
995 + .13120, .07209, 10.92672, .60854, .35728,
996 + .20198, .51934, .61902,
997 + .13448, .07394, 11.50883, .63867, .38801,
998 + .23468, .55029, .64947,
999 + .13736, .07556, 12.00667, .66535, .41534,
1000 + .26394, .57767, .67641,
1001 + .13998, .07703, 12.44854, .68979, .44047,
1002 + .29085, .60275, .70110,
1003 + .14325, .07886, 12.97372, .72031, .47173,
1004 + .32396, .63408, .73193,
1005 + .14630, .08056, 13.44600, .74884, .50108,
1006 + .35518, .66334, .76075,
1007 + .14913, .08214, 13.87323, .77551, .52865,
1008 + .38464, .69069, .78767 /
1009 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1010 + .15191, .08368, 14.26569, .80147, .55535,
1011 + .41282, .71731, .81388,
1012 + .15462, .08517, 14.63572, .82674, .58148,
1013 + .44058, .74322, .83940,
1014 + .15716, .08657, 14.96937, .85041, .60601,
1015 + .46664, .76750, .86330,
1016 + .15951, .08787, 15.26119, .87219, .62855,
1017 + .49048, .78983, .88529,
1018 + .16188, .08917, 15.54790, .89408, .65133,
1019 + .51472, .81228, .90740,
1020 + .16416, .09041, 15.80408, .91489, .67291,
1021 + .53751, .83363, .92841,
1022 + .16633, .09160, 16.04488, .93477, .69366,
1023 + .55958, .85402, .94849,
1024 + .16835, .09270, 16.25020, .95290, .71251,
1025 + .57950, .87262, .96680 /
1026 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1027 + .17038, .09381, 16.45403, .97123, .73166,
1028 + .59983, .89142, .98530,
1029 + .17237, .09488, 16.63907, .98882, .75002,
1030 + .61928, .90947, 1.00306,
1031 + .17425, .09590, 16.80750, 1.00540, .76737,
1032 + .63768, .92649, 1.01981,
1033 + .17603, .09686, 16.96158, 1.02102, .78377,
1034 + .65510, .94252, 1.03558,
1035 + .17780, .09782, 17.10134, 1.03625, .79972,
1036 + .67198, .95816, 1.05096 /
1037 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1038 + .09748, .05332, .82019, .21015, .00000,
1039 + .00000, .11501, .21723,
1040 + .10118, .05551, 1.27312, .22212, .00000,
1041 + .00000, .12789, .22959,
1042 + .10653, .05865, 1.95503, .24151, .00804,
1043 + .00000, .14860, .24955,
1044 + .11038, .06090, 2.46926, .25672, .02544,
1045 + .00000, .16473, .26515,
1046 + .11435, .06322, 3.00723, .27362, .04159,
1047 + .00000, .18257, .28247,
1048 + .11772, .06518, 3.46790, .28878, .05628,
1049 + .00000, .19852, .29798,
1050 + .12092, .06703, 3.91580, .30380, .07140,
1051 + .00000, .21427, .31332,
1052 + .12428, .06897, 4.39375, .32020, .08818,
1053 + .00000, .23145, .33007 /
1054 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1055 + .12715, .07062, 4.79781, .33474, .10273,
1056 + .00000, .24664, .34491,
1057 + .12990, .07220, 5.18344, .34900, .11712,
1058 + .00000, .26151, .35944,
1059 + .13206, .07344, 5.49117, .36050, .12896,
1060 + .00000, .27350, .37115,
1061 + .13659, .07602, 6.11430, .38527, .15422,
1062 + .00276, .29928, .39638,
1063 + .14043, .07820, 6.61567, .40680, .17615,
1064 + .02914, .32165, .41828,
1065 + .14466, .08060, 7.15656, .43109, .20107,
1066 + .05989, .34687, .44299,
1067 + .14899, .08304, 7.69466, .45642, .22714,
1068 + .08856, .37314, .46874,
1069 + .15286, .08521, 8.15944, .47934, .25083,
1070 + .11462, .39690, .49204 /
1071 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1072 + .15670, .08736, 8.60659, .50239, .27475,
1073 + .14082, .42077, .51545,
1074 + .15984, .08910, 8.95717, .52133, .29438,
1075 + .16205, .44038, .53470,
1076 + .16359, .09118, 9.35689, .54400, .31788,
1077 + .18737, .46384, .55771,
1078 + .16686, .09299, 9.69318, .56387, .33861,
1079 + .20984, .48441, .57789,
1080 + .16982, .09462, 9.98730, .58194, .35751,
1081 + .23036, .50310, .59623,
1082 + .17351, .09664, 10.32986, .60427, .38082,
1083 + .25538, .52621, .61890,
1084 + .17692, .09851, 10.63211, .62495, .40250,
1085 + .27877, .54761, .63989,
1086 + .18009, .10024, 10.90093, .64412, .42272,
1087 + .30069, .56745, .65935 /
1088 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1089 + .18319, .10191, 11.14127, .66258, .44210,
1090 + .32145, .58656, .67809,
1091 + .18619, .10353, 11.36425, .68042, .46094,
1092 + .34177, .60502, .69619,
1093 + .18899, .10504, 11.56163, .69699, .47849,
1094 + .36071, .62218, .71301,
1095 + .19159, .10644, 11.72955, .71209, .49448,
1096 + .37790, .63783, .72833,
1097 + .19419, .10783, 11.89230, .72718, .51056,
1098 + .39530, .65347, .74365,
1099 + .19668, .10916, 12.03262, .74137, .52566,
1100 + .41151, .66819, .75806,
1101 + .19905, .11042, 12.16322, .75487, .54011,
1102 + .42716, .68219, .77176,
1103 + .20125, .11158, 12.27003, .76705, .55311,
1104 + .44115, .69484, .78413 /
1105 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1106 + .20345, .11275, 12.37490, .77931, .56627,
1107 + .45538, .70756, .79657,
1108 + .20560, .11388, 12.46635, .79097, .57879,
1109 + .46889, .71967, .80840,
1110 + .20762, .11494, 12.54741, .80189, .59056,
1111 + .48161, .73102, .81949,
1112 + .20954, .11595, 12.61997, .81212, .60162,
1113 + .49360, .74166, .82988,
1114 + .21143, .11694, 12.68176, .82199, .61229,
1115 + .50513, .75194, .83991 /
1116 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1117 + .11435, .06400, .88387, .19876, .00000,
1118 + .00000, .10930, .20762,
1119 + .11857, .06648, 1.30840, .20991, .00000,
1120 + .00000, .12135, .21923,
1121 + .12466, .07003, 1.93528, .22771, .00746,
1122 + .00000, .14043, .23767,
1123 + .12903, .07256, 2.39891, .24148, .02351,
1124 + .00000, .15511, .25191,
1125 + .13351, .07515, 2.87710, .25662, .03820,
1126 + .00000, .17118, .26752,
1127 + .13731, .07733, 3.28099, .27007, .05143,
1128 + .00000, .18539, .28135,
1129 + .14090, .07939, 3.66912, .28328, .06494,
1130 + .00000, .19933, .29493,
1131 + .14467, .08154, 4.07870, .29761, .07980,
1132 + .00000, .21442, .30965 /
1133 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1134 + .14788, .08336, 4.42110, .31021, .09259,
1135 + .00000, .22767, .32258,
1136 + .15094, .08509, 4.74475, .32248, .10516,
1137 + .00000, .24055, .33516,
1138 + .15334, .08645, 5.00107, .33233, .11545,
1139 + .00000, .25088, .34525,
1140 + .15837, .08928, 5.51311, .35339, .13724,
1141 + .00244, .27294, .36681,
1142 + .16261, .09166, 5.91755, .37151, .15598,
1143 + .02515, .29189, .38534,
1144 + .16728, .09426, 6.34754, .39179, .17709,
1145 + .05150, .31309, .40607,
1146 + .17203, .09689, 6.76870, .41272, .19898,
1147 + .07582, .33496, .42747,
1148 + .17626, .09922, 7.12686, .43150, .21870,
1149 + .09776, .35456, .44665 /
1150 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1151 + .18045, .10152, 7.46639, .45023, .23846,
1152 + .11964, .37411, .46577,
1153 + .18386, .10338, 7.72863, .46550, .25456,
1154 + .13724, .39005, .48135,
1155 + .18791, .10558, 8.02298, .48363, .27370,
1156 + .15810, .40896, .49985,
1157 + .19144, .10749, 8.26698, .49940, .29046,
1158 + .17649, .42543, .51595,
1159 + .19463, .10921, 8.47745, .51364, .30565,
1160 + .19320, .44030, .53048,
1161 + .19858, .11133, 8.71766, .53110, .32424,
1162 + .21341, .45853, .54829,
1163 + .20223, .11328, 8.92575, .54714, .34141,
1164 + .23218, .47529, .56465,
1165 + .20560, .11507, 9.10783, .56191, .35733,
1166 + .24968, .49072, .57971 /
1167 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1168 + .20888, .11681, 9.26599, .57600, .37246,
1169 + .26613, .50546, .59408,
1170 + .21206, .11848, 9.41013, .58952, .38709,
1171 + .28214, .51961, .60787,
1172 + .21502, .12003, 9.53500, .60199, .40064,
1173 + .29699, .53268, .62060,
1174 + .21774, .12145, 9.63784, .61327, .41289,
1175 + .31038, .54450, .63210,
1176 + .22046, .12287, 9.73605, .62448, .42516,
1177 + .32387, .55626, .64354,
1178 + .22307, .12422, 9.81678, .63493, .43659,
1179 + .33636, .56723, .65420,
1180 + .22554, .12550, 9.89108, .64483, .44749,
1181 + .34838, .57763, .66430,
1182 + .22782, .12667, 9.94812, .65367, .45723,
1183 + .35905, .58694, .67332 /
1184 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1185 + .23011, .12784, 10.00329, .66254, .46705,
1186 + .36987, .59627, .68237,
1187 + .23232, .12897, 10.04831, .67089, .47634,
1188 + .38009, .60508, .69090,
1189 + .23441, .13004, 10.08643, .67868, .48502,
1190 + .38966, .61330, .69885,
1191 + .23638, .13103, 10.11921, .68594, .49315,
1192 + .39866, .62097, .70626,
1193 + .23832, .13201, 10.14347, .69287, .50094,
1194 + .40724, .62831, .71334 /
1195 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1196 + .12976, .07388, .94561, .19057, .00000,
1197 + .00000, .10530, .20118,
1198 + .13442, .07659, 1.34622, .20109, .00000,
1199 + .00000, .11671, .21219,
1200 + .14112, .08045, 1.92898, .21764, .00703,
1201 + .00000, .13454, .22947,
1202 + .14590, .08319, 2.35312, .23032, .02207,
1203 + .00000, .14813, .24265,
1204 + .15081, .08599, 2.78541, .24412, .03566,
1205 + .00000, .16285, .25696,
1206 + .15495, .08834, 3.14634, .25628, .04781,
1207 + .00000, .17578, .26954,
1208 + .15886, .09055, 3.48983, .26815, .06013,
1209 + .00000, .18838, .28181,
1210 + .16295, .09285, 3.84891, .28094, .07360,
1211 + .00000, .20193, .29502 /
1212 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1213 + .16643, .09480, 4.14630, .29211, .08511,
1214 + .00000, .21375, .30654,
1215 + .16973, .09664, 4.42504, .30293, .09636,
1216 + .00000, .22518, .31769,
1217 + .17233, .09809, 4.64436, .31158, .10553,
1218 + .00000, .23431, .32660,
1219 + .17774, .10108, 5.07739, .32995, .12483,
1220 + .00220, .25368, .34550,
1221 + .18229, .10359, 5.41371, .34563, .14129,
1222 + .02231, .27019, .36161,
1223 + .18728, .10632, 5.76660, .36303, .15971,
1224 + .04554, .28852, .37949,
1225 + .19235, .10907, 6.10737, .38086, .17866,
1226 + .06680, .30729, .39779,
1227 + .19684, .11150, 6.39307, .39673, .19561,
1228 + .08585, .32399, .41408 /
1229 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1230 + .20127, .11388, 6.66018, .41244, .21249,
1231 + .10474, .34052, .43019,
1232 + .20487, .11581, 6.86345, .42515, .22615,
1233 + .11984, .35391, .44323,
1234 + .20914, .11808, 7.08825, .44014, .24228,
1235 + .13763, .36970, .45860,
1236 + .21284, .12003, 7.27188, .45311, .25634,
1237 + .15324, .38336, .47189,
1238 + .21618, .12179, 7.42803, .46475, .26901,
1239 + .16734, .39563, .48382,
1240 + .22030, .12395, 7.60234, .47890, .28441,
1241 + .18431, .41056, .49833,
1242 + .22409, .12593, 7.75047, .49181, .29856,
1243 + .19998, .42419, .51156,
1244 + .22759, .12774, 7.87788, .50362, .31160,
1245 + .21452, .43667, .52366 /
1246 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1247 + .23099, .12949, 7.98493, .51479, .32391,
1248 + .22809, .44850, .53511,
1249 + .23425, .13117, 8.08027, .52545, .33576,
1250 + .24126, .45979, .54603,
1251 + .23729, .13272, 8.16043, .53521, .34667,
1252 + .25340, .47014, .55603,
1253 + .24008, .13413, 8.22373, .54398, .35648,
1254 + .26429, .47946, .56502,
1255 + .24286, .13554, 8.28302, .55266, .36627,
1256 + .27524, .48869, .57392,
1257 + .24552, .13687, 8.32818, .56066, .37532,
1258 + .28531, .49722, .58213,
1259 + .24804, .13813, 8.36904, .56822, .38393,
1260 + .29496, .50528, .58988,
1261 + .25034, .13928, 8.39690, .57490, .39156,
1262 + .30349, .51243, .59673 /
1263 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1264 + .25265, .14043, 8.42309, .58158, .39924,
1265 + .31212, .51958, .60358,
1266 + .25488, .14153, 8.44128, .58783, .40645,
1267 + .32022, .52628, .60999,
1268 + .25698, .14256, 8.45478, .59361, .41317,
1269 + .32778, .53250, .61592,
1270 + .25896, .14353, 8.46494, .59897, .41944,
1271 + .33487, .53828, .62143,
1272 + .26090, .14447, 8.46823, .60404, .42540,
1273 + .34160, .54375, .62664 /
1274 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1275 + .15770, .09192, 1.05942, .17908, .00000,
1276 + .00000, .09991, .19308,
1277 + .16307, .09495, 1.42068, .18859, .00000,
1278 + .00000, .11032, .20316,
1279 + .17073, .09926, 1.93328, .20324, .00639,
1280 + .00000, .12627, .21861,
1281 + .17617, .10229, 2.29663, .21426, .01993,
1282 + .00000, .13822, .23020,
1283 + .18173, .10537, 2.65991, .22608, .03194,
1284 + .00000, .15098, .24258,
1285 + .18639, .10794, 2.95754, .23634, .04253,
1286 + .00000, .16202, .25331,
1287 + .19077, .11034, 3.23616, .24624, .05314,
1288 + .00000, .17267, .26365,
1289 + .19534, .11283, 3.52282, .25681, .06462,
1290 + .00000, .18402, .27466 /
1291 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1292 + .19920, .11493, 3.75640, .26594, .07432,
1293 + .00000, .19380, .28416,
1294 + .20287, .11690, 3.97225, .27469, .08372,
1295 + .00000, .20318, .29326,
1296 + .20574, .11844, 4.14023, .28164, .09133,
1297 + .00000, .21063, .30049,
1298 + .21169, .12162, 4.46474, .29623, .10716,
1299 + .00187, .22624, .31563,
1300 + .21666, .12425, 4.70891, .30850, .12049,
1301 + .01840, .23936, .32835,
1302 + .22208, .12711, 4.95905, .32196, .13523,
1303 + .03736, .25376, .34229,
1304 + .22755, .12996, 5.19431, .33554, .15021,
1305 + .05448, .26830, .35636,
1306 + .23237, .13246, 5.38612, .34747, .16345,
1307 + .06965, .28108, .36870 /
1308 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1309 + .23711, .13490, 5.56050, .35912, .17648,
1310 + .08454, .29358, .38076,
1311 + .24093, .13685, 5.68911, .36844, .18691,
1312 + .09633, .30359, .39040,
1313 + .24543, .13914, 5.82689, .37929, .19911,
1314 + .11009, .31525, .40161,
1315 + .24932, .14110, 5.93587, .38856, .20963,
1316 + .12205, .32522, .41119,
1317 + .25280, .14285, 6.02559, .39679, .21904,
1318 + .13278, .33410, .41970,
1319 + .25708, .14497, 6.12036, .40666, .23034,
1320 + .14555, .34476, .42989,
1321 + .26100, .14691, 6.19682, .41554, .24062,
1322 + .15724, .35438, .43907,
1323 + .26459, .14867, 6.25942, .42358, .25001,
1324 + .16800, .36310, .44737 /
1325 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1326 + .26804, .15035, 6.30660, .43104, .25876,
1327 + .17794, .37122, .45508,
1328 + .27136, .15196, 6.34562, .43808, .26710,
1329 + .18751, .37891, .46236,
1330 + .27442, .15343, 6.37504, .44446, .27472,
1331 + .19627, .38589, .46895,
1332 + .27722, .15476, 6.39385, .45008, .28150,
1333 + .20406, .39207, .47476,
1334 + .28000, .15608, 6.40966, .45560, .28822,
1335 + .21183, .39815, .48047,
1336 + .28263, .15731, 6.41570, .46060, .29435,
1337 + .21891, .40368, .48564,
1338 + .28512, .15848, 6.42006, .46529, .30015,
1339 + .22567, .40888, .49048,
1340 + .28738, .15953, 6.41671, .46934, .30523,
1341 + .23158, .41340, .49467 /
1342 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1343 + .28964, .16057, 6.41213, .47336, .31031,
1344 + .23753, .41789, .49883,
1345 + .29181, .16156, 6.40232, .47704, .31503,
1346 + .24307, .42203, .50264,
1347 + .29384, .16249, 6.39037, .48041, .31939,
1348 + .24821, .42584, .50612,
1349 + .29574, .16335, 6.37735, .48350, .32343,
1350 + .25300, .42934, .50932,
1351 + .29760, .16418, 6.35948, .48634, .32722,
1352 + .25750, .43260, .51227 /
1353 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1354 + .19515, .11599, 1.20606, .16760, .00000,
1355 + .00000, .09483, .18647,
1356 + .20126, .11930, 1.51960, .17593, .00000,
1357 + .00000, .10411, .19542,
1358 + .20992, .12395, 1.95134, .18847, .00570,
1359 + .00000, .11801, .20882,
1360 + .21602, .12720, 2.24767, .19770, .01767,
1361 + .00000, .12821, .21864,
1362 + .22221, .13047, 2.53719, .20741, .02804,
1363 + .00000, .13890, .22894,
1364 + .22738, .13317, 2.76888, .21569, .03703,
1365 + .00000, .14800, .23769,
1366 + .23221, .13568, 2.98139, .22358, .04593,
1367 + .00000, .15667, .24602,
1368 + .23722, .13827, 3.19569, .23189, .05543,
1369 + .00000, .16579, .25478 /
1370 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1371 + .24143, .14043, 3.36663, .23896, .06335,
1372 + .00000, .17354, .26222,
1373 + .24539, .14245, 3.52164, .24566, .07094,
1374 + .00000, .18090, .26926,
1375 + .24849, .14402, 3.64056, .25094, .07703,
1376 + .00000, .18669, .27480,
1377 + .25486, .14724, 3.86313, .26185, .08955,
1378 + .00155, .19866, .28624,
1379 + .26015, .14987, 4.02282, .27086, .09992,
1380 + .01469, .20856, .29567,
1381 + .26587, .15269, 4.18034, .28057, .11123,
1382 + .02964, .21924, .30583,
1383 + .27159, .15549, 4.32232, .29018, .12254,
1384 + .04294, .22985, .31588,
1385 + .27659, .15791, 4.43275, .29847, .13239,
1386 + .05456, .23902, .32454 /
1387 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1388 + .28146, .16024, 4.52828, .30644, .14196,
1389 + .06583, .24786, .33285,
1390 + .28536, .16209, 4.59482, .31269, .14953,
1391 + .07465, .25481, .33937,
1392 + .28992, .16422, 4.66104, .31983, .15825,
1393 + .08483, .26280, .34682,
1394 + .29383, .16604, 4.70958, .32584, .16568,
1395 + .09359, .26953, .35308,
1396 + .29730, .16765, 4.74639, .33110, .17226,
1397 + .10136, .27544, .35855,
1398 + .30153, .16957, 4.77906, .33724, .18004,
1399 + .11051, .28240, .36495,
1400 + .30537, .17130, 4.80067, .34266, .18702,
1401 + .11880, .28857, .37059,
1402 + .30886, .17286, 4.81456, .34748, .19332,
1403 + .12635, .29408, .37561 /
1404 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1405 + .31219, .17432, 4.81772, .35183, .19910,
1406 + .13323, .29911, .38013,
1407 + .31535, .17570, 4.81608, .35586, .20455,
1408 + .13980, .30380, .38432,
1409 + .31825, .17695, 4.80961, .35942, .20947,
1410 + .14575, .30797, .38803,
1411 + .32088, .17806, 4.79749, .36247, .21377,
1412 + .15098, .31158, .39120,
1413 + .32347, .17915, 4.78347, .36542, .21800,
1414 + .15617, .31509, .39426,
1415 + .32589, .18016, 4.76368, .36798, .22179,
1416 + .16083, .31820, .39692,
1417 + .32817, .18110, 4.74428, .37036, .22536,
1418 + .16526, .32109, .39940,
1419 + .33021, .18193, 4.72105, .37232, .22841,
1420 + .16907, .32352, .40143 /
1421 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1422 + .33225, .18275, 4.69713, .37424, .23145,
1423 + .17289, .32592, .40342,
1424 + .33418, .18352, 4.67037, .37591, .23422,
1425 + .17641, .32806, .40516,
1426 + .33598, .18422, 4.64348, .37740, .23676,
1427 + .17965, .32998, .40670,
1428 + .33765, .18487, 4.61712, .37873, .23908,
1429 + .18264, .33173, .40808,
1430 + .33926, .18549, 4.58765, .37987, .24121,
1431 + .18541, .33327, .40926 /
1432 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1433 + .25050, .15065, 1.39364, .15444, .00000,
1434 + .00000, .08942, .18089,
1435 + .25731, .15405, 1.64315, .16126, .00000,
1436 + .00000, .09726, .18830,
1437 + .26686, .15877, 1.97293, .17119, .00488,
1438 + .00000, .10865, .19902,
1439 + .27353, .16201, 2.18925, .17829, .01498,
1440 + .00000, .11678, .20665,
1441 + .28020, .16523, 2.39377, .18557, .02350,
1442 + .00000, .12510, .21442,
1443 + .28572, .16785, 2.55185, .19162, .03072,
1444 + .00000, .13202, .22088,
1445 + .29084, .17027, 2.69252, .19728, .03775,
1446 + .00000, .13850, .22690,
1447 + .29609, .17273, 2.83011, .20313, .04513,
1448 + .00000, .14521, .23311 /
1449 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1450 + .30048, .17475, 2.93604, .20800, .05117,
1451 + .00000, .15080, .23827,
1452 + .30457, .17662, 3.02909, .21254, .05688,
1453 + .00000, .15603, .24307,
1454 + .30774, .17807, 3.09881, .21607, .06142,
1455 + .00000, .16009, .24680,
1456 + .31422, .18097, 3.22161, .22319, .07057,
1457 + .00121, .16833, .25430,
1458 + .31951, .18331, 3.30077, .22890, .07800,
1459 + .01095, .17497, .26030,
1460 + .32517, .18577, 3.37255, .23490, .08595,
1461 + .02194, .18197, .26659,
1462 + .33074, .18815, 3.43048, .24065, .09374,
1463 + .03151, .18875, .27261,
1464 + .33555, .19017, 3.46946, .24546, .10038,
1465 + .03973, .19446, .27763 /
1466 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1467 + .34016, .19207, 3.49749, .24993, .10671,
1468 + .04758, .19982, .28229,
1469 + .34381, .19354, 3.51179, .25333, .11163,
1470 + .05363, .20395, .28582,
1471 + .34800, .19521, 3.51968, .25708, .11720,
1472 + .06051, .20855, .28971,
1473 + .35154, .19659, 3.52019, .26012, .12185,
1474 + .06635, .21233, .29286,
1475 + .35467, .19778, 3.51581, .26270, .12591,
1476 + .07147, .21558, .29552,
1477 + .35838, .19917, 3.50158, .26556, .13061,
1478 + .07740, .21926, .29846,
1479 + .36170, .20039, 3.48298, .26798, .13474,
1480 + .08268, .22243, .30092,
1481 + .36469, .20145, 3.46209, .27003, .13840,
1482 + .08744, .22518, .30302 /
1483 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1484 + .36746, .20240, 3.43487, .27174, .14167,
1485 + .09170, .22756, .30474,
1486 + .37006, .20327, 3.40600, .27323, .14470,
1487 + .09571, .22971, .30624,
1488 + .37241, .20403, 3.37629, .27446, .14738,
1489 + .09930, .23155, .30747,
1490 + .37448, .20468, 3.34520, .27541, .14967,
1491 + .10240, .23305, .30839,
1492 + .37651, .20531, 3.31340, .27628, .15189,
1493 + .10545, .23447, .30923,
1494 + .37835, .20584, 3.27904, .27688, .15381,
1495 + .10814, .23562, .30981,
1496 + .38007, .20633, 3.24653, .27742, .15560,
1497 + .11067, .23666, .31032,
1498 + .38157, .20672, 3.21339, .27774, .15707,
1499 + .11280, .23744, .31059 /
1500 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1501 + .38305, .20710, 3.18014, .27802, .15852,
1502 + .11492, .23819, .31083,
1503 + .38441, .20743, 3.14594, .27815, .15979,
1504 + .11684, .23878, .31091,
1505 + .38565, .20773, 3.11294, .27821, .16093,
1506 + .11858, .23926, .31091,
1507 + .38679, .20798, 3.08152, .27821, .16195,
1508 + .12018, .23966, .31085,
1509 + .38785, .20819, 3.04852, .27808, .16284,
1510 + .12162, .23992, .31065 /
1511 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1512 + .30012, .18030, 1.52141, .14416, .00000,
1513 + .00000, .08537, .17734,
1514 + .30716, .18351, 1.71876, .14976, .00000,
1515 + .00000, .09203, .18339,
1516 + .31697, .18789, 1.96994, .15768, .00424,
1517 + .00000, .10147, .19190,
1518 + .32371, .19086, 2.12761, .16321, .01294,
1519 + .00000, .10806, .19780,
1520 + .33039, .19377, 2.27188, .16875, .02011,
1521 + .00000, .11467, .20366,
1522 + .33587, .19609, 2.37936, .17324, .02609,
1523 + .00000, .12007, .20841,
1524 + .34091, .19820, 2.47199, .17736, .03184,
1525 + .00000, .12504, .21276,
1526 + .34604, .20032, 2.55955, .18155, .03779,
1527 + .00000, .13011, .21717 /
1528 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1529 + .35026, .20204, 2.62406, .18497, .04259,
1530 + .00000, .13426, .22074,
1531 + .35418, .20361, 2.67848, .18810, .04709,
1532 + .00000, .13808, .22399,
1533 + .35720, .20480, 2.71806, .19050, .05062,
1534 + .00000, .14103, .22649,
1535 + .36329, .20715, 2.78114, .19523, .05765,
1536 + .00099, .14689, .23140,
1537 + .36818, .20899, 2.81385, .19891, .06326,
1538 + .00860, .15150, .23516,
1539 + .37334, .21089, 2.83736, .20265, .06917,
1540 + .01712, .15625, .23897,
1541 + .37834, .21266, 2.84956, .20609, .07485,
1542 + .02442, .16073, .24247,
1543 + .38259, .21410, 2.85092, .20885, .07962,
1544 + .03061, .16439, .24524 /
1545 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1546 + .38660, .21541, 2.84439, .21131, .08409,
1547 + .03644, .16774, .24770,
1548 + .38970, .21640, 2.83302, .21309, .08751,
1549 + .04088, .17024, .24945,
1550 + .39321, .21746, 2.81291, .21495, .09131,
1551 + .04587, .17294, .25125,
1552 + .39612, .21831, 2.79110, .21637, .09444,
1553 + .05006, .17509, .25260,
1554 + .39863, .21900, 2.76821, .21751, .09713,
1555 + .05370, .17687, .25365,
1556 + .40157, .21974, 2.73397, .21861, .10017,
1557 + .05785, .17879, .25465,
1558 + .40412, .22035, 2.69891, .21944, .10280,
1559 + .06151, .18036, .25535,
1560 + .40636, .22085, 2.66438, .22007, .10510,
1561 + .06477, .18166, .25585 /
1562 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1563 + .40838, .22122, 2.62632, .22043, .10708,
1564 + .06764, .18267, .25606,
1565 + .41022, .22153, 2.58821, .22066, .10889,
1566 + .07031, .18353, .25614,
1567 + .41184, .22176, 2.55114, .22074, .11045,
1568 + .07268, .18420, .25607,
1569 + .41321, .22192, 2.51473, .22066, .11175,
1570 + .07469, .18466, .25583,
1571 + .41451, .22204, 2.47831, .22053, .11299,
1572 + .07666, .18506, .25554,
1573 + .41565, .22208, 2.44096, .22023, .11401,
1574 + .07835, .18527, .25506,
1575 + .41669, .22209, 2.40602, .21992, .11495,
1576 + .07995, .18544, .25460,
1577 + .41753, .22204, 2.37184, .21948, .11569,
1578 + .08126, .18545, .25400 /
1579 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1580 + .41835, .22198, 2.33787, .21901, .11640,
1581 + .08255, .18543, .25337,
1582 + .41904, .22187, 2.30385, .21846, .11699,
1583 + .08370, .18530, .25265,
1584 + .41965, .22174, 2.27152, .21788, .11749,
1585 + .08473, .18513, .25192,
1586 + .42019, .22159, 2.24109, .21731, .11793,
1587 + .08567, .18494, .25119,
1588 + .42063, .22139, 2.20986, .21663, .11827,
1589 + .08649, .18464, .25035 /
1590 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1591 + .38733, .22851, 1.64344, .12685, .00000,
1592 + .00000, .07832, .17037,
1593 + .39394, .23087, 1.75996, .13054, .00000,
1594 + .00000, .08307, .17408,
1595 + .40288, .23393, 1.89581, .13549, .00326,
1596 + .00000, .08955, .17901,
1597 + .40892, .23589, 1.97200, .13877, .00984,
1598 + .00000, .09389, .18223,
1599 + .41472, .23773, 2.03542, .14190, .01510,
1600 + .00000, .09808, .18523,
1601 + .41935, .23911, 2.07731, .14432, .01936,
1602 + .00000, .10138, .18751,
1603 + .42353, .24030, 2.10957, .14645, .02338,
1604 + .00000, .10433, .18950,
1605 + .42769, .24144, 2.13606, .14852, .02746,
1606 + .00000, .10725, .19141 /
1607 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1608 + .43103, .24230, 2.15131, .15012, .03067,
1609 + .00000, .10957, .19283,
1610 + .43405, .24302, 2.16087, .15151, .03363,
1611 + .00000, .11163, .19404,
1612 + .43636, .24354, 2.16616, .15253, .03592,
1613 + .00000, .11319, .19493,
1614 + .44079, .24447, 2.16353, .15442, .04038,
1615 + .00070, .11614, .19647,
1616 + .44421, .24508, 2.14736, .15573, .04383,
1617 + .00569, .11833, .19744,
1618 + .44766, .24557, 2.12235, .15690, .04737,
1619 + .01123, .12046, .19823,
1620 + .45082, .24589, 2.09046, .15780, .05067,
1621 + .01586, .12232, .19871,
1622 + .45334, .24602, 2.05716, .15835, .05336,
1623 + .01970, .12372, .19887 /
1624 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1625 + .45557, .24601, 2.02039, .15868, .05580,
1626 + .02325, .12488, .19879,
1627 + .45716, .24590, 1.98761, .15879, .05762,
1628 + .02590, .12564, .19854,
1629 + .45880, .24565, 1.94566, .15872, .05957,
1630 + .02882, .12634, .19803,
1631 + .46006, .24533, 1.90754, .15852, .06113,
1632 + .03123, .12681, .19744,
1633 + .46106, .24495, 1.87199, .15823, .06243,
1634 + .03328, .12712, .19680,
1635 + .46200, .24437, 1.82544, .15768, .06383,
1636 + .03558, .12730, .19577,
1637 + .46266, .24374, 1.78152, .15704, .06500,
1638 + .03756, .12732, .19466,
1639 + .46314, .24310, 1.74065, .15636, .06598,
1640 + .03929, .12725, .19355 /
1641 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1642 + .46338, .24233, 1.69912, .15552, .06676,
1643 + .04077, .12699, .19228,
1644 + .46349, .24154, 1.65905, .15464, .06744,
1645 + .04213, .12667, .19098,
1646 + .46346, .24073, 1.62151, .15374, .06799,
1647 + .04330, .12630, .18968,
1648 + .46328, .23991, 1.58620, .15282, .06841,
1649 + .04427, .12585, .18838,
1650 + .46303, .23907, 1.55153, .15187, .06879,
1651 + .04521, .12537, .18705,
1652 + .46261, .23817, 1.51743, .15084, .06904,
1653 + .04598, .12479, .18565,
1654 + .46219, .23732, 1.48590, .14986, .06927,
1655 + .04670, .12424, .18431,
1656 + .46163, .23645, 1.45609, .14888, .06939,
1657 + .04727, .12363, .18298 /
1658 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1659 + .46104, .23558, 1.42676, .14789, .06950,
1660 + .04782, .12301, .18163,
1661 + .46037, .23466, 1.39810, .14685, .06954,
1662 + .04829, .12234, .18025,
1663 + .45968, .23376, 1.37126, .14584, .06956,
1664 + .04871, .12169, .17893,
1665 + .45898, .23290, 1.34628, .14488, .06955,
1666 + .04907, .12106, .17767,
1667 + .45816, .23200, 1.32119, .14386, .06948,
1668 + .04936, .12036, .17633 /
1669 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1670 + .46182, .26517, 1.64371, .11181, .00000,
1671 + .00000, .07151, .16147,
1672 + .46714, .26633, 1.70264, .11409, .00000,
1673 + .00000, .07481, .16327,
1674 + .47410, .26761, 1.76049, .11696, .00252,
1675 + .00000, .07910, .16544,
1676 + .47858, .26829, 1.78470, .11875, .00754,
1677 + .00000, .08187, .16668,
1678 + .48276, .26876, 1.79852, .12033, .01147,
1679 + .00000, .08444, .16767,
1680 + .48593, .26899, 1.80187, .12144, .01459,
1681 + .00000, .08638, .16826,
1682 + .48868, .26908, 1.79988, .12236, .01748,
1683 + .00000, .08806, .16867,
1684 + .49131, .26905, 1.79293, .12317, .02036,
1685 + .00000, .08965, .16894 /
1686 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1687 + .49328, .26891, 1.78223, .12372, .02260,
1688 + .00000, .09085, .16900,
1689 + .49497, .26869, 1.76890, .12413, .02462,
1690 + .00000, .09187, .16895,
1691 + .49621, .26847, 1.75714, .12441, .02617,
1692 + .00000, .09261, .16886,
1693 + .49838, .26781, 1.72364, .12475, .02913,
1694 + .00051, .09393, .16840,
1695 + .49983, .26707, 1.68627, .12481, .03137,
1696 + .00396, .09480, .16776,
1697 + .50104, .26609, 1.64165, .12467, .03362,
1698 + .00775, .09553, .16685,
1699 + .50187, .26490, 1.59350, .12431, .03565,
1700 + .01086, .09603, .16568,
1701 + .50227, .26370, 1.54876, .12381, .03726,
1702 + .01340, .09628, .16445 /
1703 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1704 + .50238, .26237, 1.50320, .12317, .03869,
1705 + .01571, .09637, .16308,
1706 + .50221, .26119, 1.46511, .12253, .03971,
1707 + .01741, .09632, .16182,
1708 + .50173, .25964, 1.41896, .12163, .04078,
1709 + .01925, .09609, .16021,
1710 + .50111, .25821, 1.37870, .12076, .04161,
1711 + .02075, .09580, .15870,
1712 + .50038, .25685, 1.34236, .11991, .04227,
1713 + .02201, .09548, .15725,
1714 + .49917, .25502, 1.29664, .11871, .04295,
1715 + .02339, .09492, .15531,
1716 + .49784, .25325, 1.25475, .11753, .04348,
1717 + .02456, .09431, .15344,
1718 + .49646, .25157, 1.21662, .11639, .04390,
1719 + .02557, .09368, .15167 /
1720 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1721 + .49485, .24978, 1.17904, .11516, .04419,
1722 + .02641, .09296, .14980,
1723 + .49317, .24801, 1.14342, .11393, .04442,
1724 + .02717, .09222, .14797,
1725 + .49148, .24630, 1.11064, .11274, .04459,
1726 + .02781, .09148, .14623,
1727 + .48973, .24464, 1.08040, .11158, .04467,
1728 + .02832, .09072, .14454,
1729 + .48793, .24299, 1.05101, .11042, .04474,
1730 + .02881, .08996, .14286,
1731 + .48600, .24129, 1.02266, .10923, .04473,
1732 + .02920, .08915, .14116,
1733 + .48416, .23970, .99661, .10812, .04471,
1734 + .02956, .08839, .13957,
1735 + .48227, .23814, .97242, .10702, .04464,
1736 + .02982, .08763, .13803 /
1737 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1738 + .48037, .23659, .94878, .10593, .04456,
1739 + .03008, .08687, .13649,
1740 + .47840, .23502, .92595, .10483, .04444,
1741 + .03028, .08608, .13495,
1742 + .47647, .23351, .90475, .10379, .04431,
1743 + .03045, .08533, .13349,
1744 + .47463, .23208, .88516, .10280, .04418,
1745 + .03060, .08461, .13211,
1746 + .47267, .23060, .86571, .10177, .04401,
1747 + .03070, .08386, .13070 /
1748 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1749 + .52522, .29258, 1.56929, .09849, .00000,
1750 + .00000, .06476, .15044,
1751 + .52873, .29237, 1.58770, .09973, .00000,
1752 + .00000, .06691, .15079,
1753 + .53294, .29170, 1.59327, .10112, .00195,
1754 + .00000, .06959, .15087,
1755 + .53543, .29100, 1.58434, .10188, .00579,
1756 + .00000, .07122, .15068,
1757 + .53748, .29002, 1.56781, .10242, .00874,
1758 + .00000, .07266, .15024,
1759 + .53882, .28903, 1.54847, .10270, .01104,
1760 + .00000, .07368, .14968,
1761 + .53980, .28799, 1.52710, .10285, .01315,
1762 + .00000, .07451, .14903,
1763 + .54056, .28679, 1.50196, .10290, .01523,
1764 + .00000, .07524, .14822 /
1765 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1766 + .54092, .28564, 1.47769, .10282, .01682,
1767 + .00000, .07574, .14739,
1768 + .54106, .28446, 1.45290, .10265, .01824,
1769 + .00000, .07613, .14653,
1770 + .54108, .28350, 1.43289, .10248, .01931,
1771 + .00000, .07638, .14582,
1772 + .54067, .28129, 1.38558, .10195, .02134,
1773 + .00038, .07670, .14416,
1774 + .53990, .27927, 1.34015, .10134, .02283,
1775 + .00282, .07679, .14258,
1776 + .53866, .27689, 1.28916, .10053, .02430,
1777 + .00550, .07673, .14069,
1778 + .53699, .27428, 1.23690, .09953, .02559,
1779 + .00766, .07650, .13862,
1780 + .53515, .27183, 1.19037, .09852, .02659,
1781 + .00940, .07615, .13666 /
1782 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1783 + .53302, .26930, 1.14456, .09743, .02746,
1784 + .01096, .07569, .13461,
1785 + .53103, .26714, 1.10740, .09646, .02806,
1786 + .01209, .07522, .13288,
1787 + .52838, .26444, 1.06353, .09522, .02865,
1788 + .01331, .07457, .13072,
1789 + .52587, .26202, 1.02607, .09409, .02910,
1790 + .01429, .07394, .12878,
1791 + .52345, .25979, .99284, .09301, .02944,
1792 + .01510, .07331, .12700,
1793 + .52010, .25690, .95192, .09160, .02976,
1794 + .01597, .07245, .12470,
1795 + .51682, .25414, .91507, .09025, .02999,
1796 + .01669, .07160, .12254,
1797 + .51368, .25154, .88199, .08896, .03016,
1798 + .01731, .07077, .12052 /
1799 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1800 + .51031, .24890, .84997, .08765, .03024,
1801 + .01782, .06989, .11849,
1802 + .50694, .24632, .81995, .08636, .03028,
1803 + .01826, .06902, .11650,
1804 + .50368, .24386, .79264, .08514, .03028,
1805 + .01863, .06818, .11464,
1806 + .50049, .24153, .76775, .08397, .03024,
1807 + .01892, .06736, .11287,
1808 + .49727, .23921, .74373, .08281, .03018,
1809 + .01919, .06654, .11112,
1810 + .49396, .23688, .72084, .08165, .03009,
1811 + .01940, .06571, .10940,
1812 + .49084, .23469, .69992, .08056, .02999,
1813 + .01958, .06493, .10779,
1814 + .48776, .23260, .68070, .07952, .02986,
1815 + .01971, .06416, .10625 /
1816 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1817 + .48468, .23051, .66199, .07848, .02973,
1818 + .01983, .06340, .10473,
1819 + .48156, .22843, .64408, .07746, .02957,
1820 + .01992, .06264, .10323,
1821 + .47856, .22646, .62755, .07649, .02942,
1822 + .01998, .06191, .10181,
1823 + .47571, .22460, .61233, .07557, .02926,
1824 + .02004, .06123, .10049,
1825 + .47277, .22267, .59735, .07463, .02909,
1826 + .02006, .06052, .09915 /
1827 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1828 + .59021, .31608, 1.41799, .08397, .00000,
1829 + .00000, .05649, .13460,
1830 + .59094, .31415, 1.40366, .08429, .00000,
1831 + .00000, .05760, .13361,
1832 + .59111, .31099, 1.36923, .08442, .00141,
1833 + .00000, .05884, .13190,
1834 + .59066, .30858, 1.33652, .08434, .00415,
1835 + .00000, .05951, .13049,
1836 + .58970, .30585, 1.29934, .08407, .00623,
1837 + .00000, .06000, .12890,
1838 + .58846, .30340, 1.26541, .08371, .00782,
1839 + .00000, .06027, .12742,
1840 + .58701, .30099, 1.23226, .08329, .00925,
1841 + .00000, .06042, .12595,
1842 + .58524, .29839, 1.19674, .08277, .01065,
1843 + .00000, .06050, .12434 /
1844 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1845 + .58344, .29604, 1.16538, .08222, .01170,
1846 + .00000, .06047, .12290,
1847 + .58152, .29376, 1.13513, .08166, .01263,
1848 + .00000, .06037, .12147,
1849 + .57992, .29195, 1.11150, .08119, .01333,
1850 + .00000, .06026, .12033,
1851 + .57613, .28797, 1.05952, .08011, .01461,
1852 + .00027, .05989, .11785,
1853 + .57252, .28448, 1.01315, .07908, .01554,
1854 + .00189, .05947, .11567,
1855 + .56820, .28052, .96298, .07785, .01642,
1856 + .00366, .05889, .11321,
1857 + .56339, .27636, .91330, .07651, .01718,
1858 + .00507, .05819, .11063,
1859 + .55877, .27258, .87035, .07525, .01775,
1860 + .00619, .05748, .10827 /
1861 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1862 + .55392, .26876, .82907, .07396, .01822,
1863 + .00718, .05671, .10588,
1864 + .54975, .26555, .79632, .07286, .01853,
1865 + .00789, .05604, .10392,
1866 + .54451, .26164, .75844, .07149, .01883,
1867 + .00864, .05517, .10156,
1868 + .53978, .25820, .72663, .07027, .01904,
1869 + .00924, .05439, .09949,
1870 + .53537, .25507, .69881, .06916, .01918,
1871 + .00972, .05365, .09762,
1872 + .52959, .25108, .66515, .06773, .01930,
1873 + .01023, .05268, .09526,
1874 + .52409, .24734, .63526, .06639, .01936,
1875 + .01066, .05176, .09307,
1876 + .51891, .24387, .60875, .06514, .01938,
1877 + .01101, .05089, .09107 /
1878 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1879 + .51357, .24039, .58344, .06389, .01935,
1880 + .01129, .05002, .08905,
1881 + .50834, .23702, .55996, .06268, .01930,
1882 + .01153, .04916, .08713,
1883 + .50336, .23387, .53882, .06154, .01924,
1884 + .01172, .04834, .08535,
1885 + .49859, .23089, .51975, .06048, .01915,
1886 + .01187, .04757, .08368,
1887 + .49384, .22794, .50146, .05943, .01905,
1888 + .01200, .04680, .08204,
1889 + .48908, .22501, .48422, .05839, .01893,
1890 + .01210, .04603, .08046,
1891 + .48462, .22227, .46853, .05742, .01882,
1892 + .01218, .04531, .07899,
1893 + .48028, .21969, .45423, .05650, .01869,
1894 + .01223, .04463, .07759 /
1895 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1896 + .47595, .21712, .44036, .05560, .01856,
1897 + .01227, .04396, .07621,
1898 + .47165, .21459, .42719, .05471, .01841,
1899 + .01230, .04330, .07487,
1900 + .46757, .21219, .41509, .05387, .01827,
1901 + .01231, .04267, .07360,
1902 + .46370, .20994, .40400, .05309, .01813,
1903 + .01232, .04208, .07243,
1904 + .45972, .20766, .39316, .05231, .01798,
1905 + .01231, .04148, .07124 /
1906 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1907 + .64043, .32965, 1.23812, .07152, .00000,
1908 + .00000, .04862, .11764,
1909 + .63810, .32603, 1.20532, .07121, .00000,
1910 + .00000, .04903, .11582,
1911 + .63386, .32055, 1.15016, .07055, .00101,
1912 + .00000, .04933, .11303,
1913 + .63032, .31651, 1.10646, .06993, .00297,
1914 + .00000, .04938, .11096,
1915 + .62620, .31214, 1.06069, .06917, .00443,
1916 + .00000, .04931, .10874,
1917 + .62228, .30837, 1.02153, .06844, .00553,
1918 + .00000, .04913, .10677,
1919 + .61834, .30474, .98478, .06771, .00651,
1920 + .00000, .04890, .10488,
1921 + .61399, .30088, .94678, .06689, .00746,
1922 + .00000, .04859, .10289 /
1923 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1924 + .61001, .29750, .91443, .06613, .00817,
1925 + .00000, .04827, .10116,
1926 + .60604, .29423, .88401, .06537, .00878,
1927 + .00000, .04791, .09949,
1928 + .60286, .29166, .86063, .06476, .00924,
1929 + .00000, .04762, .09819,
1930 + .59575, .28618, .81102, .06343, .01006,
1931 + .00020, .04692, .09540,
1932 + .58940, .28146, .76847, .06223, .01065,
1933 + .00129, .04625, .09302,
1934 + .58212, .27620, .72345, .06086, .01119,
1935 + .00248, .04545, .09040,
1936 + .57435, .27077, .67979, .05944, .01165,
1937 + .00342, .04457, .08770,
1938 + .56718, .26588, .64277, .05813, .01198,
1939 + .00415, .04375, .08530 /
1940 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1941 + .55985, .26100, .60778, .05681, .01224,
1942 + .00479, .04290, .08293,
1943 + .55368, .25699, .58041, .05571, .01241,
1944 + .00525, .04216, .08101,
1945 + .54614, .25215, .54919, .05438, .01255,
1946 + .00573, .04127, .07872,
1947 + .53945, .24792, .52328, .05321, .01264,
1948 + .00610, .04047, .07673,
1949 + .53329, .24411, .50083, .05216, .01270,
1950 + .00640, .03975, .07496,
1951 + .52538, .23929, .47400, .05084, .01272,
1952 + .00671, .03883, .07274,
1953 + .51796, .23484, .45043, .04961, .01271,
1954 + .00697, .03796, .07071,
1955 + .51107, .23073, .42971, .04848, .01269,
1956 + .00718, .03716, .06887 /
1957 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1958 + .50408, .22666, .41014, .04735, .01263,
1959 + .00734, .03635, .06707,
1960 + .49729, .22274, .39209, .04629, .01256,
1961 + .00747, .03557, .06534,
1962 + .49089, .21910, .37592, .04530, .01248,
1963 + .00758, .03486, .06373,
1964 + .48484, .21567, .36148, .04438, .01239,
1965 + .00765, .03418, .06226,
1966 + .47886, .21230, .34769, .04347, .01230,
1967 + .00772, .03351, .06082,
1968 + .47290, .20900, .33475, .04257, .01219,
1969 + .00776, .03285, .05944,
1970 + .46733, .20594, .32301, .04175, .01209,
1971 + .00780, .03223, .05816,
1972 + .46202, .20303, .31241, .04098, .01198,
1973 + .00782, .03166, .05696 /
1974 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1975 + .45675, .20016, .30217, .04022, .01187,
1976 + .00783, .03110, .05577,
1977 + .45153, .19735, .29248, .03948, .01175,
1978 + .00783, .03054, .05462,
1979 + .44659, .19470, .28359, .03878, .01164,
1980 + .00783, .03001, .05356,
1981 + .44195, .19222, .27549, .03813, .01153,
1982 + .00782, .02952, .05257,
1983 + .43724, .18971, .26761, .03746, .01141,
1984 + .00780, .02903, .05159 /
1985 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1986 + .67693, .33498, 1.05370, .06083, .00000,
1987 + .00000, .04135, .10070,
1988 + .67140, .32989, 1.01220, .06015, .00000,
1989 + .00000, .04127, .09840,
1990 + .66267, .32234, .94888, .05900, .00072,
1991 + .00000, .04095, .09508,
1992 + .65602, .31688, .90213, .05810, .00211,
1993 + .00000, .04065, .09265,
1994 + .64871, .31113, .85501, .05708, .00314,
1995 + .00000, .04021, .09015,
1996 + .64218, .30621, .81601, .05616, .00391,
1997 + .00000, .03978, .08801,
1998 + .63582, .30153, .78022, .05527, .00458,
1999 + .00000, .03933, .08600,
2000 + .62900, .29661, .74396, .05431, .00523,
2001 + .00000, .03883, .08390 /
2002 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2003 + .62294, .29236, .71375, .05345, .00571,
2004 + .00000, .03836, .08210,
2005 + .61701, .28830, .68581, .05262, .00612,
2006 + .00000, .03788, .08040,
2007 + .61232, .28513, .66456, .05197, .00642,
2008 + .00000, .03750, .07907,
2009 + .60216, .27841, .62045, .05057, .00696,
2010 + .00014, .03665, .07629,
2011 + .59328, .27271, .58356, .04936, .00734,
2012 + .00088, .03590, .07394,
2013 + .58333, .26642, .54515, .04799, .00768,
2014 + .00170, .03504, .07141,
2015 + .57292, .26001, .50847, .04660, .00796,
2016 + .00233, .03414, .06884,
2017 + .56347, .25430, .47779, .04535, .00816,
2018 + .00282, .03331, .06659 /
2019 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2020 + .55399, .24863, .44913, .04409, .00830,
2021 + .00325, .03247, .06440,
2022 + .54613, .24399, .42699, .04305, .00839,
2023 + .00354, .03178, .06265,
2024 + .53657, .23849, .40193, .04184, .00846,
2025 + .00385, .03095, .06056,
2026 + .52819, .23372, .38131, .04080, .00850,
2027 + .00409, .03022, .05876,
2028 + .52058, .22943, .36357, .03986, .00851,
2029 + .00429, .02956, .05716,
2030 + .51093, .22406, .34261, .03866, .00850,
2031 + .00448, .02873, .05521,
2032 + .50194, .21913, .32430, .03759, .00847,
2033 + .00464, .02796, .05343,
2034 + .49364, .21463, .30827, .03662, .00843,
2035 + .00477, .02725, .05182 /
2036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2037 + .48535, .21015, .29328, .03563, .00837,
2038 + .00486, .02656, .05026,
2039 + .47735, .20588, .27952, .03470, .00830,
2040 + .00494, .02590, .04879,
2041 + .46986, .20192, .26726, .03386, .00823,
2042 + .00500, .02529, .04742,
2043 + .46284, .19824, .25637, .03306, .00816,
2044 + .00504, .02472, .04617,
2045 + .45592, .19463, .24600, .03229, .00808,
2046 + .00507, .02415, .04496,
2047 + .44908, .19111, .23632, .03154, .00799,
2048 + .00509, .02361, .04380,
2049 + .44272, .18785, .22757, .03085, .00791,
2050 + .00511, .02311, .04273,
2051 + .43668, .18478, .21969, .03021, .00782,
2052 + .00511, .02263, .04174 /
2053 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2054 + .43071, .18175, .21210, .02958, .00774,
2055 + .00511, .02217, .04077,
2056 + .42485, .17880, .20494, .02896, .00765,
2057 + .00510, .02172, .03982,
2058 + .41932, .17602, .19840, .02838, .00756,
2059 + .00509, .02130, .03894,
2060 + .41414, .17343, .19244, .02784, .00748,
2061 + .00508, .02091, .03813,
2062 + .40890, .17083, .18665, .02731, .00739,
2063 + .00506, .02051, .03733 /
2064 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2065 + .70066, .33364, .87860, .05167, .00000,
2066 + .00000, .03473, .08450,
2067 + .69202, .32724, .83480, .05075, .00000,
2068 + .00000, .03436, .08205,
2069 + .67898, .31787, .77120, .04930, .00052,
2070 + .00000, .03370, .07856,
2071 + .66933, .31122, .72611, .04824, .00150,
2072 + .00000, .03318, .07610,
2073 + .65905, .30429, .68171, .04709, .00222,
2074 + .00000, .03257, .07360,
2075 + .65007, .29842, .64575, .04609, .00275,
2076 + .00000, .03201, .07149,
2077 + .64147, .29289, .61324, .04515, .00322,
2078 + .00000, .03148, .06951,
2079 + .63235, .28712, .58078, .04415, .00366,
2080 + .00000, .03090, .06747 /
2081 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2082 + .62440, .28217, .55412, .04327, .00398,
2083 + .00000, .03038, .06575,
2084 + .61672, .27747, .52975, .04243, .00426,
2085 + .00000, .02987, .06414,
2086 + .61068, .27382, .51136, .04178, .00446,
2087 + .00000, .02946, .06290,
2088 + .59777, .26617, .47382, .04041, .00482,
2089 + .00010, .02861, .06029,
2090 + .58670, .25971, .44297, .03922, .00507,
2091 + .00061, .02786, .05815,
2092 + .57441, .25266, .41123, .03794, .00529,
2093 + .00117, .02703, .05584,
2094 + .56174, .24553, .38126, .03664, .00546,
2095 + .00160, .02617, .05353,
2096 + .55038, .23923, .35645, .03548, .00558,
2097 + .00193, .02540, .05153 /
2098 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2099 + .53907, .23303, .33348, .03435, .00566,
2100 + .00222, .02465, .04959,
2101 + .52976, .22801, .31587, .03343, .00571,
2102 + .00242, .02403, .04804,
2103 + .51861, .22204, .29611, .03234, .00574,
2104 + .00262, .02328, .04623,
2105 + .50890, .21692, .27997, .03141, .00575,
2106 + .00278, .02264, .04469,
2107 + .50012, .21234, .26617, .03059, .00574,
2108 + .00290, .02207, .04331,
2109 + .48910, .20662, .24990, .02955, .00572,
2110 + .00303, .02135, .04165,
2111 + .47891, .20140, .23581, .02861, .00569,
2112 + .00313, .02070, .04016,
2113 + .46955, .19666, .22357, .02777, .00565,
2114 + .00320, .02011, .03880 /
2115 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2116 + .46028, .19198, .21213, .02694, .00560,
2117 + .00326, .01953, .03750,
2118 + .45139, .18754, .20168, .02615, .00554,
2119 + .00331, .01898, .03627,
2120 + .44311, .18344, .19241, .02543, .00548,
2121 + .00334, .01848, .03513,
2122 + .43538, .17964, .18421, .02477, .00542,
2123 + .00336, .01800, .03411,
2124 + .42779, .17591, .17641, .02413, .00536,
2125 + .00338, .01754, .03313,
2126 + .42035, .17231, .16917, .02350, .00529,
2127 + .00339, .01710, .03218,
2128 + .41345, .16899, .16264, .02293, .00523,
2129 + .00339, .01669, .03130,
2130 + .40693, .16587, .15679, .02240, .00517,
2131 + .00339, .01631, .03050 /
2132 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2133 + .40050, .16281, .15115, .02189, .00510,
2134 + .00338, .01593, .02971,
2135 + .39421, .15983, .14585, .02138, .00504,
2136 + .00338, .01557, .02896,
2137 + .38831, .15704, .14100, .02090, .00497,
2138 + .00336, .01523, .02827,
2139 + .38279, .15444, .13660, .02046, .00491,
2140 + .00335, .01492, .02762,
2141 + .37724, .15184, .13234, .02003, .00485,
2142 + .00333, .01461, .02698 /
2143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2144 + .71277, .32677, .72024, .04371, .00000,
2145 + .00000, .02884, .06968,
2146 + .70125, .31923, .67811, .04262, .00000,
2147 + .00000, .02832, .06730,
2148 + .68417, .30839, .61886, .04104, .00037,
2149 + .00000, .02749, .06392,
2150 + .67175, .30079, .57795, .03993, .00106,
2151 + .00000, .02687, .06157,
2152 + .65876, .29290, .53833, .03874, .00156,
2153 + .00000, .02620, .05920,
2154 + .64756, .28630, .50678, .03774, .00193,
2155 + .00000, .02561, .05724,
2156 + .63694, .28012, .47858, .03679, .00226,
2157 + .00000, .02505, .05541,
2158 + .62581, .27371, .45070, .03580, .00256,
2159 + .00000, .02447, .05355 /
2160 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2161 + .61616, .26827, .42809, .03496, .00278,
2162 + .00000, .02395, .05199,
2163 + .60695, .26311, .40759, .03416, .00297,
2164 + .00000, .02346, .05053,
2165 + .59975, .25911, .39221, .03354, .00310,
2166 + .00000, .02307, .04942,
2167 + .58451, .25078, .36114, .03226, .00334,
2168 + .00008, .02224, .04711,
2169 + .57158, .24380, .33596, .03117, .00350,
2170 + .00042, .02155, .04522,
2171 + .55736, .23624, .31030, .02999, .00364,
2172 + .00081, .02080, .04321,
2173 + .54283, .22865, .28628, .02881, .00375,
2174 + .00111, .02003, .04121,
2175 + .52992, .22198, .26658, .02778, .00382,
2176 + .00133, .01935, .03949 /
2177 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2178 + .51717, .21547, .24850, .02677, .00387,
2179 + .00152, .01868, .03784,
2180 + .50675, .21023, .23469, .02597, .00389,
2181 + .00166, .01814, .03651,
2182 + .49435, .20402, .21928, .02501, .00391,
2183 + .00179, .01750, .03500,
2184 + .48363, .19871, .20675, .02420, .00391,
2185 + .00190, .01696, .03371,
2186 + .47399, .19398, .19610, .02350, .00390,
2187 + .00198, .01649, .03257,
2188 + .46193, .18814, .18362, .02262, .00387,
2189 + .00206, .01588, .03119,
2190 + .45088, .18282, .17283, .02183, .00384,
2191 + .00212, .01534, .02996,
2192 + .44080, .17799, .16347, .02111, .00381,
2193 + .00217, .01485, .02884 /
2194 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2195 + .43085, .17325, .15481, .02041, .00376,
2196 + .00221, .01438, .02778,
2197 + .42136, .16876, .14691, .01975, .00372,
2198 + .00224, .01393, .02679,
2199 + .41256, .16465, .13991, .01915, .00368,
2200 + .00226, .01352, .02588,
2201 + .40439, .16085, .13372, .01860, .00363,
2202 + .00227, .01313, .02507,
2203 + .39638, .15715, .12787, .01806, .00358,
2204 + .00227, .01276, .02429,
2205 + .38858, .15358, .12244, .01756, .00353,
2206 + .00228, .01241, .02352,
2207 + .38135, .15028, .11756, .01709, .00349,
2208 + .00228, .01210, .02282,
2209 + .37457, .14721, .11317, .01665, .00344,
2210 + .00227, .01179, .02218 /
2211 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2212 + .36790, .14419, .10895, .01622, .00339,
2213 + .00227, .01149, .02156,
2214 + .36139, .14127, .10500, .01583, .00334,
2215 + .00226, .01121, .02096,
2216 + .35528, .13855, .10140, .01546, .00330,
2217 + .00225, .01095, .02039,
2218 + .34959, .13602, .09813, .01512, .00326,
2219 + .00223, .01071, .01987,
2220 + .34390, .13349, .09496, .01477, .00321,
2221 + .00222, .01046, .01938 /
2222 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2223 + .71437, .31545, .58197, .03673, .00000,
2224 + .00000, .02369, .05653,
2225 + .70016, .30706, .54379, .03564, .00000,
2226 + .00000, .02309, .05430,
2227 + .67940, .29512, .49124, .03406, .00026,
2228 + .00000, .02219, .05120,
2229 + .66455, .28678, .45575, .03294, .00074,
2230 + .00000, .02155, .04906,
2231 + .64914, .27824, .42173, .03179, .00110,
2232 + .00000, .02089, .04692,
2233 + .63602, .27111, .39500, .03083, .00135,
2234 + .00000, .02030, .04517,
2235 + .62367, .26446, .37132, .02993, .00158,
2236 + .00000, .01976, .04356,
2237 + .61081, .25762, .34810, .02901, .00179,
2238 + .00000, .01920, .04192 /
2239 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2240 + .59977, .25182, .32939, .02823, .00194,
2241 + .00000, .01873, .04055,
2242 + .58927, .24636, .31256, .02749, .00206,
2243 + .00000, .01827, .03928,
2244 + .58111, .24215, .30001, .02693, .00216,
2245 + .00000, .01790, .03831,
2246 + .56397, .23342, .27484, .02576, .00232,
2247 + .00006, .01718, .03632,
2248 + .54954, .22613, .25470, .02477, .00242,
2249 + .00029, .01656, .03473,
2250 + .53379, .21830, .23430, .02373, .00252,
2251 + .00056, .01588, .03302,
2252 + .51783, .21047, .21534, .02269, .00259,
2253 + .00077, .01522, .03135,
2254 + .50374, .20364, .19989, .02179, .00263,
2255 + .00092, .01464, .02991 /
2256 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2257 + .48991, .19701, .18576, .02093, .00266,
2258 + .00105, .01408, .02853,
2259 + .47871, .19166, .17504, .02023, .00267,
2260 + .00115, .01363, .02745,
2261 + .46544, .18540, .16312, .01940, .00267,
2262 + .00124, .01310, .02620,
2263 + .45402, .18006, .15347, .01870, .00267,
2264 + .00131, .01264, .02516,
2265 + .44381, .17531, .14529, .01809, .00266,
2266 + .00136, .01224, .02425,
2267 + .43111, .16947, .13574, .01734, .00264,
2268 + .00141, .01175, .02314,
2269 + .41952, .16419, .12751, .01669, .00261,
2270 + .00145, .01131, .02214,
2271 + .40896, .15942, .12041, .01611, .00258,
2272 + .00149, .01091, .02125 /
2273 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2274 + .39864, .15476, .11382, .01553, .00255,
2275 + .00151, .01054, .02039,
2276 + .38883, .15036, .10783, .01498, .00252,
2277 + .00152, .01019, .01959,
2278 + .37977, .14632, .10255, .01448, .00248,
2279 + .00153, .00986, .01887,
2280 + .37139, .14263, .09789, .01403, .00245,
2281 + .00154, .00955, .01823,
2282 + .36319, .13903, .09348, .01359, .00241,
2283 + .00154, .00925, .01762,
2284 + .35523, .13558, .08939, .01317, .00238,
2285 + .00154, .00898, .01702,
2286 + .34788, .13241, .08571, .01279, .00234,
2287 + .00154, .00872, .01648,
2288 + .34104, .12944, .08243, .01244, .00231,
2289 + .00154, .00849, .01599 /
2290 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2291 + .33432, .12653, .07928, .01209, .00228,
2292 + .00153, .00826, .01551,
2293 + .32777, .12372, .07632, .01176, .00224,
2294 + .00152, .00804, .01505,
2295 + .32165, .12111, .07363, .01146, .00221,
2296 + .00151, .00783, .01462,
2297 + .31595, .11870, .07119, .01119, .00218,
2298 + .00150, .00764, .01423,
2299 + .31025, .11628, .06883, .01091, .00215,
2300 + .00149, .00745, .01385 /
2301 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2302 + .70625, .30095, .46455, .03093, .00000,
2303 + .00000, .01907, .04494,
2304 + .68971, .29193, .43133, .02983, .00000,
2305 + .00000, .01846, .04298,
2306 + .66584, .27917, .38636, .02827, .00018,
2307 + .00000, .01762, .04025,
2308 + .64896, .27028, .35642, .02717, .00052,
2309 + .00000, .01701, .03842,
2310 + .63154, .26130, .32808, .02608, .00077,
2311 + .00000, .01639, .03658,
2312 + .61686, .25380, .30600, .02517, .00095,
2313 + .00000, .01586, .03509,
2314 + .60311, .24687, .28656, .02433, .00111,
2315 + .00000, .01537, .03372,
2316 + .58886, .23976, .26762, .02349, .00125,
2317 + .00000, .01487, .03233 /
2318 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2319 + .57673, .23377, .25250, .02277, .00135,
2320 + .00000, .01446, .03115,
2321 + .56525, .22814, .23894, .02210, .00144,
2322 + .00000, .01407, .03009,
2323 + .55635, .22379, .22885, .02158, .00150,
2324 + .00000, .01376, .02929,
2325 + .53776, .21485, .20886, .02053, .00161,
2326 + .00004, .01313, .02766,
2327 + .52219, .20748, .19296, .01967, .00168,
2328 + .00021, .01260, .02632,
2329 + .50535, .19956, .17695, .01874, .00174,
2330 + .00039, .01204, .02491,
2331 + .48841, .19168, .16212, .01783, .00179,
2332 + .00054, .01148, .02355,
2333 + .47353, .18485, .15010, .01706, .00181,
2334 + .00064, .01099, .02238 /
2335 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2336 + .45899, .17824, .13919, .01632, .00183,
2337 + .00073, .01053, .02126,
2338 + .44729, .17294, .13091, .01571, .00183,
2339 + .00080, .01017, .02039,
2340 + .43349, .16675, .12175, .01501, .00183,
2341 + .00086, .00973, .01941,
2342 + .42166, .16149, .11435, .01443, .00183,
2343 + .00090, .00936, .01858,
2344 + .41111, .15686, .10810, .01393, .00182,
2345 + .00094, .00904, .01784,
2346 + .39809, .15116, .10081, .01331, .00180,
2347 + .00098, .00865, .01695,
2348 + .38624, .14603, .09453, .01275, .00178,
2349 + .00100, .00829, .01617,
2350 + .37549, .14142, .08911, .01226, .00176,
2351 + .00102, .00797, .01548 /
2352 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2353 + .36505, .13692, .08413, .01178, .00174,
2354 + .00103, .00767, .01483,
2355 + .35514, .13269, .07960, .01134, .00171,
2356 + .00104, .00739, .01422,
2357 + .34600, .12883, .07561, .01095, .00169,
2358 + .00105, .00714, .01366,
2359 + .33761, .12530, .07208, .01058, .00166,
2360 + .00105, .00691, .01316,
2361 + .32945, .12186, .06875, .01022, .00164,
2362 + .00105, .00668, .01267,
2363 + .32153, .11857, .06567, .00989, .00161,
2364 + .00105, .00647, .01222,
2365 + .31423, .11554, .06291, .00959, .00158,
2366 + .00105, .00627, .01181,
2367 + .30746, .11274, .06044, .00930, .00156,
2368 + .00105, .00609, .01144 /
2369 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2370 + .30083, .11000, .05807, .00902, .00153,
2371 + .00104, .00591, .01107,
2372 + .29438, .10736, .05585, .00875, .00151,
2373 + .00103, .00574, .01072,
2374 + .28836, .10492, .05383, .00851, .00149,
2375 + .00103, .00558, .01039,
2376 + .28278, .10265, .05200, .00829, .00146,
2377 + .00102, .00544, .01009,
2378 + .27722, .10041, .05023, .00807, .00144,
2379 + .00101, .00529, .00981 /
2380 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2381 + .69025, .28341, .36642, .02550, .00000,
2382 + .00000, .01534, .03539,
2383 + .67171, .27399, .33842, .02446, .00000,
2384 + .00000, .01478, .03368,
2385 + .64519, .26075, .30106, .02301, .00013,
2386 + .00000, .01398, .03136,
2387 + .62656, .25162, .27647, .02204, .00036,
2388 + .00000, .01342, .02976,
2389 + .60754, .24238, .25342, .02105, .00054,
2390 + .00000, .01286, .02822,
2391 + .59154, .23479, .23553, .02026, .00066,
2392 + .00000, .01238, .02694,
2393 + .57670, .22774, .21990, .01951, .00077,
2394 + .00000, .01195, .02579,
2395 + .56144, .22050, .20479, .01874, .00087,
2396 + .00000, .01153, .02464 /
2397 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2398 + .54844, .21447, .19279, .01812, .00094,
2399 + .00000, .01116, .02369,
2400 + .53620, .20881, .18206, .01753, .00100,
2401 + .00000, .01081, .02283,
2402 + .52676, .20446, .17410, .01708, .00104,
2403 + .00000, .01054, .02217,
2404 + .50716, .19554, .15836, .01616, .00111,
2405 + .00003, .01001, .02082,
2406 + .49085, .18823, .14595, .01542, .00116,
2407 + .00014, .00956, .01974,
2408 + .47327, .18039, .13349, .01463, .00120,
2409 + .00027, .00909, .01862,
2410 + .45569, .17265, .12202, .01386, .00123,
2411 + .00037, .00863, .01753,
2412 + .44034, .16596, .11276, .01321, .00125,
2413 + .00045, .00824, .01659 /
2414 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2415 + .42545, .15951, .10434, .01257, .00126,
2416 + .00051, .00786, .01571,
2417 + .41348, .15436, .09799, .01209, .00126,
2418 + .00055, .00755, .01504,
2419 + .39943, .14840, .09098, .01152, .00126,
2420 + .00059, .00720, .01424,
2421 + .38746, .14334, .08533, .01103, .00125,
2422 + .00062, .00691, .01359,
2423 + .37686, .13886, .08057, .01060, .00124,
2424 + .00065, .00665, .01303,
2425 + .36378, .13341, .07500, .01009, .00123,
2426 + .00067, .00635, .01234,
2427 + .35194, .12851, .07024, .00965, .00121,
2428 + .00069, .00608, .01173,
2429 + .34127, .12412, .06615, .00925, .00120,
2430 + .00070, .00583, .01118 /
2431 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2432 + .33090, .11988, .06236, .00886, .00118,
2433 + .00071, .00558, .01068,
2434 + .32108, .11590, .05893, .00851, .00116,
2435 + .00072, .00535, .01021,
2436 + .31207, .11226, .05591, .00821, .00114,
2437 + .00072, .00516, .00978,
2438 + .30383, .10895, .05325, .00791, .00113,
2439 + .00072, .00498, .00939,
2440 + .29583, .10574, .05073, .00762, .00111,
2441 + .00072, .00481, .00902,
2442 + .28810, .10267, .04841, .00736, .00109,
2443 + .00072, .00464, .00869,
2444 + .28100, .09986, .04632, .00711, .00107,
2445 + .00071, .00448, .00839,
2446 + .27443, .09726, .04446, .00688, .00105,
2447 + .00071, .00435, .00810 /
2448 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2449 + .26801, .09471, .04268, .00666, .00104,
2450 + .00071, .00422, .00782,
2451 + .26178, .09227, .04100, .00646, .00102,
2452 + .00070, .00409, .00756,
2453 + .25599, .09002, .03948, .00627, .00100,
2454 + .00070, .00397, .00731,
2455 + .25063, .08793, .03810, .00610, .00099,
2456 + .00069, .00386, .00709,
2457 + .24531, .08586, .03676, .00592, .00097,
2458 + .00068, .00375, .00688 /
2459 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2460 + .66694, .26414, .28620, .02089, .00000,
2461 + .00000, .01215, .02738,
2462 + .64686, .25447, .26323, .01993, .00000,
2463 + .00000, .01164, .02597,
2464 + .61826, .24106, .23287, .01862, .00009,
2465 + .00000, .01091, .02404,
2466 + .59832, .23185, .21308, .01776, .00025,
2467 + .00000, .01043, .02272,
2468 + .57809, .22258, .19463, .01689, .00037,
2469 + .00000, .00996, .02142,
2470 + .56124, .21494, .18044, .01617, .00046,
2471 + .00000, .00955, .02040,
2472 + .54561, .20792, .16810, .01551, .00053,
2473 + .00000, .00918, .01949,
2474 + .52956, .20078, .15619, .01486, .00060,
2475 + .00000, .00880, .01856 /
2476 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2477 + .51602, .19480, .14675, .01433, .00065,
2478 + .00000, .00851, .01777,
2479 + .50332, .18923, .13834, .01382, .00069,
2480 + .00000, .00822, .01707,
2481 + .49355, .18496, .13213, .01343, .00072,
2482 + .00000, .00800, .01654,
2483 + .47334, .17622, .11990, .01264, .00077,
2484 + .00002, .00756, .01549,
2485 + .45665, .16908, .11029, .01200, .00080,
2486 + .00010, .00719, .01464,
2487 + .43871, .16148, .10068, .01133, .00083,
2488 + .00019, .00680, .01376,
2489 + .42088, .15401, .09185, .01070, .00085,
2490 + .00026, .00642, .01289,
2491 + .40540, .14758, .08473, .01017, .00086,
2492 + .00031, .00611, .01214 /
2493 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2494 + .39044, .14140, .07830, .00966, .00086,
2495 + .00035, .00582, .01144,
2496 + .37846, .13650, .07345, .00925, .00086,
2497 + .00038, .00558, .01092,
2498 + .36448, .13080, .06809, .00876, .00086,
2499 + .00041, .00529, .01034,
2500 + .35260, .12600, .06377, .00837, .00085,
2501 + .00043, .00505, .00984,
2502 + .34207, .12180, .06014, .00805, .00085,
2503 + .00045, .00486, .00939,
2504 + .32923, .11666, .05591, .00762, .00084,
2505 + .00047, .00462, .00887,
2506 + .31763, .11207, .05230, .00727, .00083,
2507 + .00048, .00441, .00841,
2508 + .30716, .10798, .04920, .00697, .00082,
2509 + .00049, .00422, .00799 /
2510 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2511 + .29710, .10401, .04631, .00664, .00080,
2512 + .00049, .00404, .00761,
2513 + .28760, .10031, .04371, .00635, .00079,
2514 + .00049, .00386, .00725,
2515 + .27888, .09695, .04142, .00610, .00078,
2516 + .00049, .00369, .00693,
2517 + .27092, .09388, .03941, .00586, .00076,
2518 + .00049, .00356, .00665,
2519 + .26320, .09092, .03751, .00564, .00075,
2520 + .00049, .00343, .00639,
2521 + .25580, .08810, .03575, .00543, .00074,
2522 + .00049, .00330, .00613,
2523 + .24902, .08552, .03417, .00525, .00072,
2524 + .00049, .00319, .00588,
2525 + .24273, .08315, .03277, .00507, .00071,
2526 + .00048, .00309, .00568 /
2527 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2528 + .23659, .08083, .03142, .00490, .00070,
2529 + .00048, .00298, .00549,
2530 + .23068, .07861, .03016, .00474, .00069,
2531 + .00048, .00289, .00530,
2532 + .22519, .07656, .02901, .00459, .00068,
2533 + .00047, .00280, .00511,
2534 + .22013, .07467, .02797, .00446, .00067,
2535 + .00047, .00272, .00495,
2536 + .21510, .07280, .02697, .00432, .00065,
2537 + .00046, .00264, .00479 /
2538 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2539 + .63772, .24348, .22151, .01681, .00000,
2540 + .00000, .00953, .02094,
2541 + .61637, .23388, .20307, .01599, .00000,
2542 + .00000, .00907, .01977,
2543 + .58628, .22054, .17886, .01487, .00006,
2544 + .00000, .00845, .01819,
2545 + .56550, .21138, .16323, .01409, .00018,
2546 + .00000, .00805, .01712,
2547 + .54440, .20229, .14872, .01335, .00026,
2548 + .00000, .00764, .01608,
2549 + .52700, .19476, .13760, .01274, .00032,
2550 + .00000, .00730, .01526,
2551 + .51094, .18788, .12795, .01217, .00037,
2552 + .00000, .00699, .01453,
2553 + .49452, .18092, .11866, .01158, .00041,
2554 + .00000, .00668, .01381 /
2555 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2556 + .48068, .17512, .11134, .01112, .00045,
2557 + .00000, .00641, .01321,
2558 + .46774, .16975, .10483, .01072, .00047,
2559 + .00000, .00619, .01264,
2560 + .45779, .16565, .10002, .01042, .00049,
2561 + .00000, .00603, .01219,
2562 + .43734, .15726, .09059, .00978, .00053,
2563 + .00002, .00568, .01135,
2564 + .42057, .15039, .08319, .00927, .00055,
2565 + .00007, .00537, .01068,
2566 + .40266, .14312, .07581, .00872, .00057,
2567 + .00013, .00505, .01001,
2568 + .38493, .13602, .06906, .00816, .00058,
2569 + .00018, .00475, .00936,
2570 + .36962, .12993, .06364, .00769, .00059,
2571 + .00021, .00450, .00882 /
2572 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2573 + .35486, .12411, .05873, .00728, .00059,
2574 + .00024, .00425, .00831,
2575 + .34309, .11951, .05504, .00696, .00059,
2576 + .00026, .00408, .00789,
2577 + .32934, .11420, .05094, .00662, .00059,
2578 + .00028, .00387, .00741,
2579 + .31775, .10974, .04765, .00631, .00058,
2580 + .00029, .00368, .00702,
2581 + .30759, .10581, .04489, .00602, .00058,
2582 + .00031, .00351, .00669,
2583 + .29512, .10106, .04169, .00569, .00057,
2584 + .00032, .00334, .00630,
2585 + .28392, .09681, .03894, .00540, .00056,
2586 + .00033, .00317, .00596,
2587 + .27389, .09301, .03658, .00516, .00055,
2588 + .00033, .00303, .00566 /
2589 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2590 + .26419, .08940, .03441, .00492, .00054,
2591 + .00034, .00288, .00538,
2592 + .25511, .08601, .03243, .00469, .00053,
2593 + .00034, .00275, .00512,
2594 + .24687, .08293, .03069, .00448, .00053,
2595 + .00034, .00263, .00488,
2596 + .23931, .08015, .02917, .00430, .00052,
2597 + .00034, .00253, .00467,
2598 + .23200, .07746, .02774, .00413, .00051,
2599 + .00034, .00243, .00446,
2600 + .22501, .07491, .02641, .00397, .00050,
2601 + .00034, .00234, .00428,
2602 + .21861, .07258, .02522, .00383, .00049,
2603 + .00034, .00225, .00411,
2604 + .21271, .07043, .02415, .00369, .00048,
2605 + .00034, .00218, .00395 /
2606 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2607 + .20696, .06835, .02314, .00356, .00047,
2608 + .00033, .00210, .00380,
2609 + .20143, .06635, .02218, .00344, .00047,
2610 + .00033, .00203, .00366,
2611 + .19631, .06450, .02132, .00332, .00046,
2612 + .00033, .00196, .00354,
2613 + .19159, .06281, .02054, .00322, .00045,
2614 + .00033, .00189, .00342,
2615 + .18694, .06114, .01978, .00310, .00044,
2616 + .00033, .00184, .00331 /
2617 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2618 + .60344, .22222, .17004, .01334, .00000,
2619 + .00000, .00741, .01576,
2620 + .58131, .21277, .15550, .01263, .00000,
2621 + .00000, .00702, .01482,
2622 + .55040, .19963, .13654, .01163, .00004,
2623 + .00000, .00650, .01360,
2624 + .52904, .19077, .12431, .01102, .00012,
2625 + .00000, .00616, .01274,
2626 + .50762, .18193, .11306, .01036, .00018,
2627 + .00000, .00579, .01196,
2628 + .48994, .17470, .10445, .00985, .00022,
2629 + .00000, .00552, .01131,
2630 + .47367, .16810, .09699, .00940, .00025,
2631 + .00000, .00527, .01071,
2632 + .45711, .16143, .08983, .00895, .00028,
2633 + .00000, .00503, .01011 /
2634 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2635 + .44326, .15588, .08419, .00856, .00030,
2636 + .00000, .00482, .00966,
2637 + .43036, .15074, .07920, .00820, .00032,
2638 + .00000, .00463, .00924,
2639 + .42047, .14683, .07552, .00794, .00034,
2640 + .00000, .00447, .00892,
2641 + .40017, .13887, .06828, .00743, .00036,
2642 + .00001, .00418, .00829,
2643 + .38363, .13240, .06262, .00699, .00038,
2644 + .00005, .00396, .00776,
2645 + .36599, .12561, .05699, .00656, .00039,
2646 + .00009, .00372, .00722,
2647 + .34860, .11897, .05184, .00613, .00040,
2648 + .00012, .00348, .00673,
2649 + .33367, .11328, .04771, .00577, .00040,
2650 + .00014, .00328, .00633 /
2651 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2652 + .31938, .10787, .04397, .00542, .00041,
2653 + .00016, .00310, .00594,
2654 + .30802, .10362, .04115, .00516, .00041,
2655 + .00018, .00295, .00562,
2656 + .29482, .09871, .03805, .00487, .00041,
2657 + .00019, .00279, .00527,
2658 + .28368, .09459, .03557, .00464, .00041,
2659 + .00020, .00265, .00499,
2660 + .27391, .09099, .03347, .00442, .00040,
2661 + .00020, .00254, .00475,
2662 + .26205, .08665, .03103, .00416, .00040,
2663 + .00021, .00240, .00445,
2664 + .25140, .08280, .02895, .00395, .00039,
2665 + .00022, .00227, .00419,
2666 + .24187, .07937, .02716, .00377, .00038,
2667 + .00022, .00215, .00397 /
2668 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2669 + .23279, .07607, .02551, .00355, .00038,
2670 + .00022, .00205, .00377,
2671 + .22425, .07301, .02402, .00337, .00037,
2672 + .00022, .00195, .00357,
2673 + .21647, .07025, .02272, .00323, .00037,
2674 + .00022, .00186, .00339,
2675 + .20939, .06775, .02156, .00310, .00036,
2676 + .00022, .00179, .00324,
2677 + .20257, .06534, .02047, .00297, .00036,
2678 + .00022, .00172, .00310,
2679 + .19605, .06307, .01947, .00285, .00035,
2680 + .00022, .00165, .00295,
2681 + .19010, .06100, .01857, .00275, .00035,
2682 + .00022, .00159, .00283,
2683 + .18465, .05909, .01777, .00264, .00034,
2684 + .00022, .00153, .00272 /
2685 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2686 + .17934, .05723, .01700, .00253, .00034,
2687 + .00022, .00147, .00261,
2688 + .17425, .05546, .01628, .00244, .00033,
2689 + .00022, .00142, .00251,
2690 + .16954, .05383, .01563, .00235, .00033,
2691 + .00022, .00137, .00242,
2692 + .16520, .05233, .01504, .00228, .00032,
2693 + .00022, .00132, .00234,
2694 + .16089, .05087, .01447, .00221, .00032,
2695 + .00022, .00128, .00226 /
2696 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2697 + .56525, .20084, .12970, .01051, .00000,
2698 + .00000, .00561, .01165,
2699 + .54274, .19170, .11839, .00991, .00000,
2700 + .00000, .00532, .01091,
2701 + .51145, .17909, .10371, .00908, .00003,
2702 + .00000, .00488, .00996,
2703 + .49003, .17055, .09430, .00853, .00008,
2704 + .00000, .00458, .00933,
2705 + .46855, .16212, .08564, .00800, .00012,
2706 + .00000, .00432, .00872,
2707 + .45097, .15523, .07904, .00757, .00014,
2708 + .00000, .00411, .00820,
2709 + .43484, .14897, .07332, .00719, .00017,
2710 + .00000, .00391, .00775,
2711 + .41846, .14268, .06784, .00681, .00019,
2712 + .00000, .00370, .00732 /
2713 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2714 + .40479, .13745, .06354, .00652, .00020,
2715 + .00000, .00354, .00695,
2716 + .39209, .13263, .05973, .00625, .00022,
2717 + .00000, .00339, .00662,
2718 + .38238, .12896, .05691, .00603, .00023,
2719 + .00000, .00328, .00638,
2720 + .36265, .12151, .05138, .00558, .00024,
2721 + .00001, .00305, .00591,
2722 + .34650, .11552, .04710, .00526, .00025,
2723 + .00003, .00287, .00552,
2724 + .32942, .10921, .04280, .00491, .00026,
2725 + .00006, .00269, .00514,
2726 + .31268, .10307, .03888, .00459, .00027,
2727 + .00008, .00251, .00476,
2728 + .29836, .09785, .03573, .00431, .00027,
2729 + .00010, .00236, .00444 /
2730 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2731 + .28468, .09289, .03289, .00404, .00027,
2732 + .00011, .00222, .00416,
2733 + .27383, .08901, .03076, .00385, .00027,
2734 + .00012, .00210, .00393,
2735 + .26132, .08455, .02840, .00361, .00027,
2736 + .00012, .00198, .00368,
2737 + .25082, .08082, .02651, .00341, .00027,
2738 + .00013, .00188, .00348,
2739 + .24163, .07757, .02492, .00323, .00027,
2740 + .00013, .00179, .00330,
2741 + .23046, .07365, .02307, .00304, .00027,
2742 + .00013, .00169, .00309,
2743 + .22052, .07018, .02150, .00287, .00027,
2744 + .00013, .00159, .00290,
2745 + .21167, .06711, .02015, .00271, .00027,
2746 + .00013, .00150, .00272 /
2747 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2748 + .20316, .06417, .01890, .00257, .00027,
2749 + .00013, .00143, .00258,
2750 + .19522, .06144, .01777, .00244, .00027,
2751 + .00013, .00136, .00245,
2752 + .18804, .05898, .01678, .00232, .00027,
2753 + .00013, .00129, .00233,
2754 + .18152, .05677, .01591, .00222, .00027,
2755 + .00013, .00124, .00222,
2756 + .17525, .05464, .01509, .00213, .00027,
2757 + .00013, .00119, .00211,
2758 + .16927, .05263, .01433, .00204, .00027,
2759 + .00013, .00114, .00201,
2760 + .16381, .05081, .01365, .00196, .00027,
2761 + .00013, .00110, .00192,
2762 + .15882, .04913, .01305, .00188, .00026,
2763 + .00013, .00105, .00184 /
2764 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2765 + .15398, .04751, .01247, .00181, .00026,
2766 + .00013, .00102, .00176,
2767 + .14933, .04596, .01193, .00174, .00026,
2768 + .00013, .00098, .00169,
2769 + .14504, .04454, .01145, .00168, .00026,
2770 + .00013, .00094, .00163,
2771 + .14111, .04323, .01100, .00163, .00025,
2772 + .00013, .00090, .00157,
2773 + .13724, .04195, .01058, .00157, .00025,
2774 + .00013, .00087, .00152 /
2775 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2776 + .52419, .17961, .09830, .00811, .00000,
2777 + .00000, .00422, .00851,
2778 + .50169, .17090, .08962, .00762, .00000,
2779 + .00000, .00396, .00796,
2780 + .47055, .15898, .07841, .00695, .00002,
2781 + .00000, .00360, .00722,
2782 + .44936, .15093, .07124, .00650, .00005,
2783 + .00000, .00338, .00673,
2784 + .42821, .14298, .06462, .00610, .00008,
2785 + .00000, .00317, .00626,
2786 + .41094, .13655, .05959, .00576, .00010,
2787 + .00000, .00299, .00588,
2788 + .39518, .13072, .05524, .00545, .00011,
2789 + .00000, .00283, .00554,
2790 + .37926, .12485, .05108, .00515, .00013,
2791 + .00000, .00267, .00521 /
2792 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2793 + .36599, .12002, .04781, .00492, .00014,
2794 + .00000, .00255, .00492,
2795 + .35372, .11556, .04491, .00470, .00014,
2796 + .00000, .00244, .00467,
2797 + .34437, .11216, .04277, .00452, .00015,
2798 + .00000, .00236, .00448,
2799 + .32534, .10531, .03858, .00418, .00016,
2800 + .00001, .00218, .00415,
2801 + .30989, .09981, .03532, .00393, .00016,
2802 + .00002, .00203, .00388,
2803 + .29362, .09404, .03206, .00367, .00017,
2804 + .00004, .00190, .00357,
2805 + .27774, .08845, .02909, .00340, .00017,
2806 + .00005, .00177, .00329,
2807 + .26419, .08373, .02670, .00318, .00017,
2808 + .00006, .00165, .00307 /
2809 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2810 + .25130, .07926, .02454, .00298, .00017,
2811 + .00007, .00154, .00287,
2812 + .24113, .07576, .02293, .00283, .00017,
2813 + .00007, .00147, .00270,
2814 + .22944, .07173, .02114, .00265, .00017,
2815 + .00007, .00137, .00251,
2816 + .21964, .06840, .01971, .00250, .00017,
2817 + .00007, .00130, .00236,
2818 + .21107, .06551, .01850, .00239, .00017,
2819 + .00007, .00124, .00223,
2820 + .20069, .06204, .01711, .00225, .00017,
2821 + .00007, .00115, .00208,
2822 + .19151, .05895, .01592, .00211, .00017,
2823 + .00007, .00108, .00196,
2824 + .18340, .05621, .01490, .00198, .00017,
2825 + .00007, .00103, .00185 /
2826 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2827 + .17558, .05362, .01396, .00187, .00017,
2828 + .00007, .00097, .00174,
2829 + .16832, .05123, .01310, .00176, .00017,
2830 + .00007, .00092, .00163,
2831 + .16179, .04907, .01236, .00167, .00017,
2832 + .00007, .00087, .00154,
2833 + .15585, .04713, .01170, .00159, .00017,
2834 + .00007, .00083, .00146,
2835 + .15013, .04528, .01108, .00153, .00017,
2836 + .00007, .00080, .00140,
2837 + .14472, .04352, .01051, .00146, .00017,
2838 + .00007, .00076, .00133,
2839 + .13979, .04192, .01000, .00140, .00017,
2840 + .00007, .00072, .00128,
2841 + .13530, .04047, .00955, .00134, .00017,
2842 + .00007, .00069, .00122 /
2843 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2844 + .13095, .03906, .00911, .00128, .00017,
2845 + .00007, .00067, .00117,
2846 + .12678, .03772, .00871, .00123, .00017,
2847 + .00007, .00064, .00113,
2848 + .12294, .03649, .00834, .00119, .00017,
2849 + .00007, .00061, .00108,
2850 + .11941, .03537, .00801, .00115, .00017,
2851 + .00007, .00059, .00104,
2852 + .11594, .03427, .00769, .00111, .00017,
2853 + .00007, .00057, .00100 /
2854 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2855 + .48117, .15890, .07397, .00610, .00000,
2856 + .00000, .00314, .00615,
2857 + .45905, .15070, .06741, .00569, .00000,
2858 + .00000, .00295, .00572,
2859 + .42854, .13954, .05892, .00515, .00001,
2860 + .00000, .00266, .00517,
2861 + .40785, .13208, .05348, .00482, .00003,
2862 + .00000, .00249, .00480,
2863 + .38737, .12469, .04847, .00449, .00005,
2864 + .00000, .00233, .00444,
2865 + .37068, .11874, .04466, .00423, .00006,
2866 + .00000, .00217, .00416,
2867 + .35550, .11336, .04138, .00400, .00007,
2868 + .00000, .00206, .00391,
2869 + .34023, .10798, .03823, .00376, .00008,
2870 + .00000, .00196, .00366 /
2871 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2872 + .32754, .10357, .03574, .00357, .00009,
2873 + .00000, .00186, .00345,
2874 + .31582, .09949, .03355, .00340, .00009,
2875 + .00000, .00176, .00328,
2876 + .30691, .09638, .03194, .00326, .00009,
2877 + .00000, .00169, .00316,
2878 + .28890, .09016, .02877, .00300, .00010,
2879 + .00000, .00157, .00291,
2880 + .27431, .08518, .02630, .00280, .00010,
2881 + .00001, .00147, .00270,
2882 + .25898, .07999, .02384, .00261, .00010,
2883 + .00003, .00136, .00248,
2884 + .24412, .07498, .02160, .00241, .00010,
2885 + .00003, .00126, .00229,
2886 + .23149, .07074, .01981, .00223, .00010,
2887 + .00004, .00117, .00214 /
2888 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2889 + .21951, .06674, .01818, .00208, .00010,
2890 + .00004, .00109, .00200,
2891 + .21010, .06363, .01696, .00197, .00010,
2892 + .00004, .00104, .00187,
2893 + .19928, .06010, .01562, .00184, .00010,
2894 + .00004, .00097, .00173,
2895 + .19025, .05716, .01454, .00174, .00010,
2896 + .00004, .00092, .00162,
2897 + .18241, .05460, .01363, .00164, .00010,
2898 + .00004, .00087, .00153,
2899 + .17294, .05155, .01259, .00153, .00010,
2900 + .00004, .00082, .00143,
2901 + .16457, .04885, .01169, .00144, .00010,
2902 + .00004, .00076, .00134,
2903 + .15716, .04646, .01092, .00135, .00010,
2904 + .00004, .00071, .00126 /
2905 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2906 + .15012, .04421, .01021, .00127, .00010,
2907 + .00004, .00069, .00117,
2908 + .14356, .04213, .00957, .00120, .00010,
2909 + .00004, .00065, .00110,
2910 + .13762, .04027, .00901, .00114, .00010,
2911 + .00004, .00061, .00104,
2912 + .13230, .03860, .00852, .00108, .00010,
2913 + .00004, .00058, .00100,
2914 + .12721, .03701, .00806, .00103, .00010,
2915 + .00004, .00055, .00095,
2916 + .12236, .03550, .00764, .00099, .00010,
2917 + .00004, .00052, .00090,
2918 + .11796, .03413, .00726, .00095, .00010,
2919 + .00004, .00050, .00086,
2920 + .11396, .03288, .00692, .00090, .00010,
2921 + .00004, .00048, .00082 /
2922 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2923 + .11011, .03168, .00659, .00085, .00010,
2924 + .00004, .00046, .00079,
2925 + .10641, .03055, .00629, .00082, .00010,
2926 + .00004, .00044, .00075,
2927 + .10300, .02951, .00602, .00079, .00010,
2928 + .00004, .00043, .00072,
2929 + .09988, .02856, .00577, .00076, .00010,
2930 + .00004, .00041, .00069,
2931 + .09682, .02762, .00554, .00074, .00010,
2932 + .00004, .00040, .00067 /
2933 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2934 + .43713, .13909, .05537, .00449, .00000,
2935 + .00000, .00228, .00437,
2936 + .41566, .13149, .05042, .00419, .00000,
2937 + .00000, .00213, .00405,
2938 + .38622, .12119, .04402, .00376, .00001,
2939 + .00000, .00193, .00365,
2940 + .36636, .11431, .03993, .00351, .00002,
2941 + .00000, .00181, .00335,
2942 + .34680, .10756, .03616, .00320, .00003,
2943 + .00000, .00167, .00312,
2944 + .33091, .10212, .03330, .00300, .00004,
2945 + .00000, .00158, .00292,
2946 + .31647, .09723, .03082, .00283, .00004,
2947 + .00000, .00150, .00273,
2948 + .30198, .09236, .02845, .00266, .00005,
2949 + .00000, .00141, .00253 /
2950 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2951 + .29003, .08835, .02658, .00251, .00005,
2952 + .00000, .00133, .00241,
2953 + .27902, .08468, .02493, .00237, .00005,
2954 + .00000, .00127, .00229,
2955 + .27067, .08190, .02371, .00228, .00005,
2956 + .00000, .00122, .00220,
2957 + .25379, .07632, .02134, .00208, .00005,
2958 + .00000, .00112, .00202,
2959 + .24020, .07187, .01948, .00194, .00005,
2960 + .00001, .00104, .00188,
2961 + .22600, .06726, .01763, .00179, .00005,
2962 + .00001, .00097, .00172,
2963 + .21226, .06282, .01595, .00164, .00005,
2964 + .00001, .00090, .00158,
2965 + .20064, .05909, .01460, .00151, .00005,
2966 + .00001, .00083, .00146 /
2967 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2968 + .18966, .05559, .01338, .00140, .00005,
2969 + .00001, .00077, .00135,
2970 + .18105, .05287, .01246, .00133, .00005,
2971 + .00001, .00073, .00126,
2972 + .17120, .04976, .01146, .00123, .00005,
2973 + .00001, .00069, .00118,
2974 + .16301, .04719, .01065, .00116, .00005,
2975 + .00001, .00064, .00112,
2976 + .15590, .04497, .00997, .00110, .00005,
2977 + .00001, .00061, .00105,
2978 + .14739, .04233, .00919, .00101, .00005,
2979 + .00001, .00057, .00098,
2980 + .13985, .04001, .00852, .00095, .00005,
2981 + .00001, .00053, .00091,
2982 + .13317, .03798, .00795, .00090, .00005,
2983 + .00001, .00050, .00084 /
2984 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2985 + .12689, .03604, .00742, .00084, .00005,
2986 + .00001, .00047, .00080,
2987 + .12106, .03425, .00694, .00078, .00005,
2988 + .00001, .00045, .00076,
2989 + .11580, .03266, .00653, .00074, .00005,
2990 + .00001, .00042, .00071,
2991 + .11107, .03123, .00616, .00070, .00005,
2992 + .00001, .00040, .00068,
2993 + .10655, .02987, .00582, .00066, .00005,
2994 + .00001, .00038, .00064,
2995 + .10229, .02860, .00550, .00063, .00005,
2996 + .00001, .00036, .00061,
2997 + .09842, .02745, .00522, .00060, .00005,
2998 + .00001, .00035, .00058,
2999 + .09492, .02641, .00497, .00057, .00005,
3000 + .00001, .00033, .00055 /
3001 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3002 + .09154, .02540, .00473, .00053, .00005,
3003 + .00001, .00032, .00052,
3004 + .08830, .02444, .00451, .00052, .00005,
3005 + .00001, .00030, .00050,
3006 + .08532, .02357, .00431, .00051, .00005,
3007 + .00001, .00029, .00048,
3008 + .08260, .02277, .00413, .00050, .00005,
3009 + .00001, .00028, .00046,
3010 + .07994, .02199, .00395, .00048, .00005,
3011 + .00001, .00027, .00043 /
3012 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3013 + .39287, .12055, .04135, .00339, .00000,
3014 + .00000, .00157, .00300,
3015 + .37235, .11363, .03763, .00317, .00000,
3016 + .00000, .00146, .00274,
3017 + .34445, .10423, .03284, .00279, .00000,
3018 + .00000, .00132, .00248,
3019 + .32564, .09802, .02978, .00263, .00001,
3020 + .00000, .00122, .00226,
3021 + .30721, .09193, .02696, .00239, .00002,
3022 + .00000, .00112, .00209,
3023 + .29228, .08705, .02481, .00222, .00002,
3024 + .00000, .00104, .00197,
3025 + .27878, .08267, .02295, .00208, .00002,
3026 + .00000, .00098, .00184,
3027 + .26529, .07831, .02117, .00194, .00002,
3028 + .00000, .00093, .00171 /
3029 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3030 + .25417, .07474, .01977, .00184, .00002,
3031 + .00000, .00087, .00161,
3032 + .24395, .07148, .01853, .00176, .00002,
3033 + .00000, .00082, .00152,
3034 + .23622, .06902, .01761, .00170, .00002,
3035 + .00000, .00080, .00144,
3036 + .22068, .06407, .01582, .00155, .00002,
3037 + .00000, .00073, .00131,
3038 + .20821, .06017, .01443, .00146, .00002,
3039 + .00000, .00067, .00121,
3040 + .19523, .05612, .01304, .00133, .00002,
3041 + .00000, .00062, .00110,
3042 + .18272, .05225, .01178, .00121, .00002,
3043 + .00000, .00057, .00101,
3044 + .17217, .04899, .01076, .00112, .00002,
3045 + .00000, .00052, .00094 /
3046 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3047 + .16223, .04594, .00985, .00104, .00002,
3048 + .00000, .00048, .00087,
3049 + .15449, .04359, .00916, .00098, .00002,
3050 + .00000, .00046, .00081,
3051 + .14565, .04092, .00841, .00091, .00002,
3052 + .00000, .00043, .00075,
3053 + .13832, .03871, .00780, .00086, .00002,
3054 + .00000, .00040, .00070,
3055 + .13198, .03681, .00729, .00081, .00002,
3056 + .00000, .00037, .00067,
3057 + .12442, .03454, .00671, .00074, .00002,
3058 + .00000, .00034, .00061,
3059 + .11773, .03255, .00621, .00069, .00002,
3060 + .00000, .00032, .00056,
3061 + .11182, .03082, .00578, .00066, .00002,
3062 + .00000, .00030, .00053 /
3063 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3064 + .10629, .02918, .00539, .00060, .00002,
3065 + .00000, .00029, .00049,
3066 + .10116, .02768, .00504, .00056, .00002,
3067 + .00000, .00027, .00046,
3068 + .09654, .02634, .00472, .00054, .00002,
3069 + .00000, .00025, .00044,
3070 + .09241, .02514, .00445, .00052, .00002,
3071 + .00000, .00024, .00041,
3072 + .08847, .02399, .00420, .00049, .00002,
3073 + .00000, .00023, .00038,
3074 + .08475, .02292, .00397, .00047, .00002,
3075 + .00000, .00022, .00036,
3076 + .08139, .02196, .00376, .00044, .00002,
3077 + .00000, .00021, .00035,
3078 + .07835, .02108, .00357, .00042, .00002,
3079 + .00000, .00020, .00033 /
3080 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3081 + .07542, .02024, .00340, .00040, .00002,
3082 + .00000, .00019, .00031,
3083 + .07262, .01944, .00323, .00038, .00002,
3084 + .00000, .00018, .00030,
3085 + .07006, .01872, .00309, .00037, .00002,
3086 + .00000, .00017, .00028,
3087 + .06773, .01806, .00295, .00036, .00002,
3088 + .00000, .00016, .00027,
3089 + .06545, .01741, .00282, .00034, .00002,
3090 + .00000, .00015, .00026 /
3091 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3092 + .34904, .10294, .03052, .00230, .00000,
3093 + .00000, .00115, .00209,
3094 + .32974, .09671, .02777, .00212, .00000,
3095 + .00000, .00106, .00192,
3096 + .30347, .08832, .02424, .00191, .00000,
3097 + .00000, .00095, .00170,
3098 + .28590, .08278, .02196, .00178, .00000,
3099 + .00000, .00087, .00157,
3100 + .26880, .07739, .01986, .00162, .00000,
3101 + .00000, .00079, .00143,
3102 + .25500, .07306, .01827, .00151, .00000,
3103 + .00000, .00074, .00133,
3104 + .24256, .06919, .01689, .00142, .00000,
3105 + .00000, .00070, .00124,
3106 + .23013, .06536, .01557, .00133, .00000,
3107 + .00000, .00065, .00115 /
3108 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3109 + .21994, .06223, .01452, .00126, .00000,
3110 + .00000, .00062, .00108,
3111 + .21060, .05938, .01359, .00119, .00000,
3112 + .00000, .00058, .00102,
3113 + .20355, .05724, .01291, .00114, .00000,
3114 + .00000, .00055, .00098,
3115 + .18944, .05296, .01158, .00103, .00000,
3116 + .00000, .00050, .00088,
3117 + .17817, .04957, .01054, .00094, .00000,
3118 + .00000, .00046, .00081,
3119 + .16646, .04606, .00951, .00087, .00000,
3120 + .00000, .00043, .00073,
3121 + .15521, .04273, .00857, .00080, .00000,
3122 + .00000, .00039, .00067,
3123 + .14578, .03995, .00781, .00074, .00000,
3124 + .00000, .00036, .00062 /
3125 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3126 + .13695, .03734, .00714, .00068, .00000,
3127 + .00000, .00033, .00058,
3128 + .13007, .03534, .00663, .00064, .00000,
3129 + .00000, .00031, .00053,
3130 + .12225, .03306, .00607, .00059, .00000,
3131 + .00000, .00028, .00050,
3132 + .11578, .03119, .00562, .00055, .00000,
3133 + .00000, .00026, .00047,
3134 + .11020, .02959, .00525, .00052, .00000,
3135 + .00000, .00024, .00043,
3136 + .10357, .02768, .00481, .00047, .00000,
3137 + .00000, .00023, .00040,
3138 + .09773, .02602, .00445, .00043, .00000,
3139 + .00000, .00021, .00038,
3140 + .09259, .02457, .00413, .00041, .00000,
3141 + .00000, .00020, .00034 /
3142 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3143 + .08774, .02320, .00384, .00039, .00000,
3144 + .00000, .00018, .00032,
3145 + .08329, .02195, .00358, .00037, .00000,
3146 + .00000, .00017, .00030,
3147 + .07931, .02084, .00336, .00035, .00000,
3148 + .00000, .00016, .00028,
3149 + .07575, .01984, .00316, .00033, .00000,
3150 + .00000, .00015, .00027,
3151 + .07235, .01890, .00298, .00031, .00000,
3152 + .00000, .00014, .00026,
3153 + .06917, .01802, .00280, .00030, .00000,
3154 + .00000, .00013, .00024,
3155 + .06631, .01723, .00265, .00028, .00000,
3156 + .00000, .00013, .00022,
3157 + .06369, .01651, .00252, .00027, .00000,
3158 + .00000, .00012, .00021 /
3159 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3160 + .06118, .01582, .00239, .00027, .00000,
3161 + .00000, .00012, .00020,
3162 + .05880, .01517, .00227, .00026, .00000,
3163 + .00000, .00011, .00019,
3164 + .05663, .01458, .00216, .00024, .00000,
3165 + .00000, .00011, .00018,
3166 + .05466, .01404, .00207, .00023, .00000,
3167 + .00000, .00010, .00017,
3168 + .05275, .01352, .00198, .00022, .00000,
3169 + .00000, .00009, .00016 /
3170 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3171 + .30631, .08683, .02239, .00157, .00000,
3172 + .00000, .00081, .00140,
3173 + .28840, .08130, .02037, .00144, .00000,
3174 + .00000, .00074, .00130,
3175 + .26418, .07390, .01775, .00126, .00000,
3176 + .00000, .00065, .00116,
3177 + .24807, .06903, .01606, .00115, .00000,
3178 + .00000, .00060, .00107,
3179 + .23233, .06431, .01452, .00108, .00000,
3180 + .00000, .00057, .00094,
3181 + .21972, .06053, .01333, .00101, .00000,
3182 + .00000, .00052, .00088,
3183 + .20841, .05716, .01231, .00094, .00000,
3184 + .00000, .00048, .00082,
3185 + .19717, .05384, .01133, .00087, .00000,
3186 + .00000, .00044, .00077 /
3187 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3188 + .18797, .05114, .01055, .00082, .00000,
3189 + .00000, .00042, .00071,
3190 + .17957, .04868, .00987, .00077, .00000,
3191 + .00000, .00040, .00067,
3192 + .17324, .04684, .00936, .00074, .00000,
3193 + .00000, .00038, .00063,
3194 + .16057, .04316, .00838, .00067, .00000,
3195 + .00000, .00035, .00058,
3196 + .15053, .04026, .00761, .00060, .00000,
3197 + .00000, .00033, .00054,
3198 + .14012, .03728, .00685, .00055, .00000,
3199 + .00000, .00029, .00049,
3200 + .13017, .03446, .00616, .00051, .00000,
3201 + .00000, .00026, .00044,
3202 + .12186, .03211, .00561, .00046, .00000,
3203 + .00000, .00024, .00040 /
3204 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3205 + .11409, .02992, .00511, .00042, .00000,
3206 + .00000, .00022, .00037,
3207 + .10807, .02824, .00474, .00039, .00000,
3208 + .00000, .00020, .00035,
3209 + .10123, .02634, .00433, .00037, .00000,
3210 + .00000, .00019, .00032,
3211 + .09561, .02478, .00400, .00035, .00000,
3212 + .00000, .00018, .00030,
3213 + .09079, .02344, .00373, .00031, .00000,
3214 + .00000, .00017, .00029,
3215 + .08501, .02187, .00341, .00031, .00000,
3216 + .00000, .00016, .00025,
3217 + .07998, .02050, .00314, .00028, .00000,
3218 + .00000, .00014, .00023,
3219 + .07560, .01930, .00292, .00025, .00000,
3220 + .00000, .00013, .00022 /
3221 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3222 + .07145, .01818, .00271, .00024, .00000,
3223 + .00000, .00013, .00020,
3224 + .06765, .01716, .00252, .00023, .00000,
3225 + .00000, .00012, .00019,
3226 + .06427, .01625, .00236, .00021, .00000,
3227 + .00000, .00011, .00018,
3228 + .06124, .01544, .00221, .00020, .00000,
3229 + .00000, .00010, .00017,
3230 + .05836, .01467, .00208, .00019, .00000,
3231 + .00000, .00009, .00016,
3232 + .05567, .01396, .00196, .00018, .00000,
3233 + .00000, .00009, .00015,
3234 + .05326, .01331, .00185, .00017, .00000,
3235 + .00000, .00009, .00014,
3236 + .05106, .01274, .00175, .00017, .00000,
3237 + .00000, .00008, .00013 /
3238 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3239 + .04896, .01218, .00166, .00016, .00000,
3240 + .00000, .00008, .00012,
3241 + .04697, .01166, .00157, .00015, .00000,
3242 + .00000, .00007, .00011,
3243 + .04517, .01119, .00150, .00014, .00000,
3244 + .00000, .00007, .00011,
3245 + .04353, .01076, .00143, .00013, .00000,
3246 + .00000, .00007, .00011,
3247 + .04191, .01034, .00136, .00013, .00000,
3248 + .00000, .00007, .00011 /
3249 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3250 + .26559, .07237, .01633, .00109, .00000,
3251 + .00000, .00051, .00092,
3252 + .24916, .06754, .01484, .00100, .00000,
3253 + .00000, .00046, .00085,
3254 + .22710, .06110, .01291, .00091, .00000,
3255 + .00000, .00040, .00072,
3256 + .21250, .05688, .01167, .00083, .00000,
3257 + .00000, .00037, .00065,
3258 + .19838, .05280, .01054, .00073, .00000,
3259 + .00000, .00033, .00059,
3260 + .18702, .04956, .00967, .00068, .00000,
3261 + .00000, .00031, .00055,
3262 + .17689, .04668, .00891, .00064, .00000,
3263 + .00000, .00029, .00051,
3264 + .16686, .04384, .00819, .00060, .00000,
3265 + .00000, .00027, .00046 /
3266 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3267 + .15865, .04153, .00762, .00057, .00000,
3268 + .00000, .00025, .00045,
3269 + .15120, .03943, .00712, .00053, .00000,
3270 + .00000, .00024, .00042,
3271 + .14560, .03785, .00675, .00050, .00000,
3272 + .00000, .00023, .00039,
3273 + .13442, .03476, .00602, .00045, .00000,
3274 + .00000, .00020, .00036,
3275 + .12557, .03233, .00546, .00043, .00000,
3276 + .00000, .00019, .00032,
3277 + .11646, .02983, .00490, .00039, .00000,
3278 + .00000, .00017, .00030,
3279 + .10781, .02746, .00440, .00034, .00000,
3280 + .00000, .00015, .00027,
3281 + .10060, .02550, .00399, .00031, .00000,
3282 + .00000, .00014, .00025 /
3283 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3284 + .09387, .02368, .00363, .00029, .00000,
3285 + .00000, .00013, .00023,
3286 + .08866, .02229, .00336, .00027, .00000,
3287 + .00000, .00012, .00021,
3288 + .08279, .02073, .00306, .00026, .00000,
3289 + .00000, .00011, .00018,
3290 + .07797, .01945, .00282, .00024, .00000,
3291 + .00000, .00010, .00017,
3292 + .07385, .01836, .00263, .00022, .00000,
3293 + .00000, .00009, .00016,
3294 + .06894, .01707, .00240, .00021, .00000,
3295 + .00000, .00009, .00015,
3296 + .06467, .01595, .00221, .00019, .00000,
3297 + .00000, .00008, .00014,
3298 + .06096, .01498, .00204, .00017, .00000,
3299 + .00000, .00008, .00014 /
3300 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3301 + .05747, .01407, .00189, .00016, .00000,
3302 + .00000, .00007, .00012,
3303 + .05427, .01325, .00175, .00015, .00000,
3304 + .00000, .00006, .00011,
3305 + .05144, .01252, .00164, .00014, .00000,
3306 + .00000, .00006, .00010,
3307 + .04890, .01187, .00153, .00013, .00000,
3308 + .00000, .00006, .00010,
3309 + .04649, .01126, .00144, .00013, .00000,
3310 + .00000, .00005, .00009,
3311 + .04426, .01068, .00135, .00012, .00000,
3312 + .00000, .00005, .00009,
3313 + .04227, .01017, .00128, .00010, .00000,
3314 + .00000, .00005, .00009,
3315 + .04044, .00971, .00121, .00011, .00000,
3316 + .00000, .00005, .00008 /
3317 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3318 + .03868, .00927, .00114, .00011, .00000,
3319 + .00000, .00004, .00008,
3320 + .03704, .00886, .00108, .00011, .00000,
3321 + .00000, .00004, .00007,
3322 + .03555, .00848, .00103, .00010, .00000,
3323 + .00000, .00004, .00007,
3324 + .03420, .00814, .00098, .00010, .00000,
3325 + .00000, .00004, .00006,
3326 + .03288, .00781, .00093, .00009, .00000,
3327 + .00000, .00003, .00006 /
3328 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3329 + .22680, .05922, .01171, .00066, .00000,
3330 + .00000, .00036, .00062,
3331 + .21206, .05508, .01063, .00059, .00000,
3332 + .00000, .00033, .00055,
3333 + .19225, .04959, .00923, .00055, .00000,
3334 + .00000, .00029, .00047,
3335 + .17924, .04599, .00834, .00051, .00000,
3336 + .00000, .00026, .00044,
3337 + .16671, .04251, .00751, .00044, .00000,
3338 + .00000, .00024, .00040,
3339 + .15669, .03979, .00688, .00041, .00000,
3340 + .00000, .00022, .00037,
3341 + .14775, .03737, .00633, .00038, .00000,
3342 + .00000, .00021, .00034,
3343 + .13893, .03499, .00581, .00035, .00000,
3344 + .00000, .00020, .00030 /
3345 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3346 + .13175, .03307, .00540, .00034, .00000,
3347 + .00000, .00017, .00029,
3348 + .12524, .03132, .00503, .00032, .00000,
3349 + .00000, .00016, .00027,
3350 + .12036, .03002, .00476, .00030, .00000,
3351 + .00000, .00016, .00025,
3352 + .11067, .02744, .00424, .00026, .00000,
3353 + .00000, .00014, .00023,
3354 + .10304, .02542, .00384, .00024, .00000,
3355 + .00000, .00014, .00021,
3356 + .09521, .02337, .00343, .00021, .00000,
3357 + .00000, .00012, .00020,
3358 + .08777, .02143, .00307, .00019, .00000,
3359 + .00000, .00010, .00018,
3360 + .08160, .01983, .00278, .00018, .00000,
3361 + .00000, .00010, .00015 /
3362 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3363 + .07587, .01836, .00252, .00017, .00000,
3364 + .00000, .00009, .00014,
3365 + .07146, .01723, .00233, .00016, .00000,
3366 + .00000, .00008, .00013,
3367 + .06650, .01597, .00212, .00014, .00000,
3368 + .00000, .00007, .00013,
3369 + .06245, .01494, .00195, .00013, .00000,
3370 + .00000, .00007, .00012,
3371 + .05898, .01407, .00181, .00012, .00000,
3372 + .00000, .00006, .00011,
3373 + .05488, .01304, .00165, .00012, .00000,
3374 + .00000, .00006, .00009,
3375 + .05132, .01214, .00151, .00011, .00000,
3376 + .00000, .00005, .00008,
3377 + .04823, .01137, .00139, .00010, .00000,
3378 + .00000, .00005, .00008 /
3379 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3380 + .04534, .01066, .00129, .00009, .00000,
3381 + .00000, .00004, .00008,
3382 + .04270, .01000, .00119, .00008, .00000,
3383 + .00000, .00004, .00007,
3384 + .04036, .00943, .00111, .00008, .00000,
3385 + .00000, .00004, .00006,
3386 + .03829, .00891, .00104, .00007, .00000,
3387 + .00000, .00004, .00006,
3388 + .03634, .00843, .00097, .00006, .00000,
3389 + .00000, .00004, .00006,
3390 + .03451, .00798, .00091, .00006, .00000,
3391 + .00000, .00004, .00006,
3392 + .03286, .00758, .00086, .00006, .00000,
3393 + .00000, .00003, .00006,
3394 + .03138, .00723, .00081, .00006, .00000,
3395 + .00000, .00003, .00005 /
3396 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3397 + .02997, .00689, .00077, .00005, .00000,
3398 + .00000, .00003, .00005,
3399 + .02864, .00657, .00072, .00005, .00000,
3400 + .00000, .00003, .00004,
3401 + .02743, .00627, .00069, .00005, .00000,
3402 + .00000, .00002, .00004,
3403 + .02634, .00601, .00065, .00005, .00000,
3404 + .00000, .00002, .00004,
3405 + .02528, .00576, .00062, .00004, .00000,
3406 + .00000, .00002, .00004 /
3407 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3408 + .15788, .03780, .00578, .00028, .00000,
3409 + .00000, .00012, .00021,
3410 + .14652, .03489, .00523, .00025, .00000,
3411 + .00000, .00011, .00020,
3412 + .13147, .03107, .00452, .00021, .00000,
3413 + .00000, .00010, .00018,
3414 + .12164, .02860, .00406, .00019, .00000,
3415 + .00000, .00009, .00016,
3416 + .11225, .02624, .00364, .00016, .00000,
3417 + .00000, .00009, .00014,
3418 + .10479, .02439, .00332, .00016, .00000,
3419 + .00000, .00008, .00013,
3420 + .09820, .02276, .00305, .00015, .00000,
3421 + .00000, .00007, .00012,
3422 + .09174, .02117, .00279, .00012, .00000,
3423 + .00000, .00006, .00012 /
3424 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3425 + .08651, .01990, .00258, .00012, .00000,
3426 + .00000, .00006, .00011,
3427 + .08180, .01875, .00240, .00012, .00000,
3428 + .00000, .00006, .00010,
3429 + .07829, .01790, .00226, .00011, .00000,
3430 + .00000, .00005, .00009,
3431 + .07136, .01622, .00200, .00010, .00000,
3432 + .00000, .00004, .00008,
3433 + .06595, .01492, .00180, .00008, .00000,
3434 + .00000, .00004, .00007,
3435 + .06044, .01361, .00160, .00007, .00000,
3436 + .00000, .00004, .00007,
3437 + .05526, .01238, .00143, .00007, .00000,
3438 + .00000, .00003, .00006,
3439 + .05100, .01137, .00128, .00006, .00000,
3440 + .00000, .00003, .00005 /
3441 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3442 + .04708, .01045, .00116, .00006, .00000,
3443 + .00000, .00003, .00005,
3444 + .04410, .00975, .00106, .00005, .00000,
3445 + .00000, .00003, .00004,
3446 + .04074, .00897, .00096, .00006, .00000,
3447 + .00000, .00002, .00004,
3448 + .03801, .00834, .00088, .00005, .00000,
3449 + .00000, .00002, .00004,
3450 + .03571, .00781, .00081, .00005, .00000,
3451 + .00000, .00002, .00003,
3452 + .03301, .00719, .00074, .00003, .00000,
3453 + .00000, .00002, .00003,
3454 + .03067, .00665, .00067, .00003, .00000,
3455 + .00000, .00002, .00003,
3456 + .02865, .00620, .00062, .00003, .00000,
3457 + .00000, .00002, .00003 /
3458 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3459 + .02677, .00577, .00057, .00003, .00000,
3460 + .00000, .00002, .00002,
3461 + .02507, .00538, .00052, .00003, .00000,
3462 + .00000, .00002, .00002,
3463 + .02357, .00505, .00049, .00003, .00000,
3464 + .00000, .00001, .00002,
3465 + .02225, .00475, .00045, .00002, .00000,
3466 + .00000, .00001, .00002,
3467 + .02101, .00447, .00042, .00002, .00000,
3468 + .00000, .00001, .00002,
3469 + .01985, .00421, .00039, .00002, .00000,
3470 + .00000, .00001, .00002,
3471 + .01881, .00398, .00037, .00002, .00000,
3472 + .00000, .00001, .00002,
3473 + .01789, .00378, .00035, .00002, .00000,
3474 + .00000, .00001, .00001 /
3475 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3476 + .01702, .00359, .00033, .00001, .00000,
3477 + .00000, .00001, .00001,
3478 + .01620, .00341, .00031, .00001, .00000,
3479 + .00000, .00001, .00001,
3480 + .01545, .00324, .00029, .00001, .00000,
3481 + .00000, .00001, .00001,
3482 + .01478, .00310, .00028, .00001, .00000,
3483 + .00000, .00001, .00001,
3484 + .01413, .00295, .00026, .00001, .00000,
3485 + .00000, .00001, .00001 /
3486 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3487 + .10169, .02209, .00259, .00009, .00000,
3488 + .00000, .00003, .00007,
3489 + .09360, .02023, .00234, .00009, .00000,
3490 + .00000, .00003, .00007,
3491 + .08302, .01781, .00201, .00006, .00000,
3492 + .00000, .00003, .00005,
3493 + .07619, .01626, .00180, .00006, .00000,
3494 + .00000, .00002, .00005,
3495 + .06968, .01480, .00161, .00006, .00000,
3496 + .00000, .00003, .00004,
3497 + .06460, .01366, .00146, .00005, .00000,
3498 + .00000, .00002, .00004,
3499 + .06012, .01266, .00134, .00005, .00000,
3500 + .00000, .00002, .00003,
3501 + .05575, .01170, .00121, .00006, .00000,
3502 + .00000, .00001, .00002 /
3503 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3504 + .05228, .01092, .00112, .00005, .00000,
3505 + .00000, .00001, .00002,
3506 + .04916, .01024, .00104, .00004, .00000,
3507 + .00000, .00001, .00002,
3508 + .04684, .00973, .00098, .00003, .00000,
3509 + .00000, .00002, .00003,
3510 + .04228, .00874, .00086, .00004, .00000,
3511 + .00000, .00001, .00002,
3512 + .03876, .00797, .00077, .00003, .00000,
3513 + .00000, .00001, .00002,
3514 + .03522, .00721, .00068, .00002, .00000,
3515 + .00000, .00001, .00002,
3516 + .03192, .00650, .00060, .00002, .00000,
3517 + .00000, .00001, .00002,
3518 + .02922, .00592, .00054, .00002, .00000,
3519 + .00000, .00001, .00002 /
3520 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3521 + .02677, .00540, .00048, .00001, .00000,
3522 + .00000, .00001, .00001,
3523 + .02490, .00501, .00044, .00002, .00000,
3524 + .00000, .00001, .00001,
3525 + .02283, .00457, .00040, .00001, .00000,
3526 + .00000, .00001, .00001,
3527 + .02117, .00422, .00036, .00001, .00000,
3528 + .00000, .00001, .00001,
3529 + .01976, .00393, .00033, .00001, .00000,
3530 + .00000, .00001, .00001,
3531 + .01812, .00359, .00030, .00001, .00000,
3532 + .00000, .00000, .00001,
3533 + .01672, .00330, .00027, .00001, .00000,
3534 + .00000, .00000, .00001,
3535 + .01552, .00305, .00025, .00001, .00000,
3536 + .00000, .00000, .00001 /
3537 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3538 + .01441, .00282, .00023, .00001, .00000,
3539 + .00000, .00000, .00001,
3540 + .01341, .00262, .00021, .00001, .00000,
3541 + .00000, .00000, .00000,
3542 + .01253, .00244, .00019, .00001, .00000,
3543 + .00000, .00000, .00001,
3544 + .01177, .00228, .00018, .00001, .00000,
3545 + .00000, .00000, .00000,
3546 + .01105, .00214, .00016, .00001, .00000,
3547 + .00000, .00000, .00000,
3548 + .01039, .00201, .00015, .00001, .00000,
3549 + .00000, .00000, .00000,
3550 + .00980, .00189, .00014, .00001, .00000,
3551 + .00000, .00000, .00000,
3552 + .00927, .00178, .00013, .00001, .00000,
3553 + .00000, .00000, .00000 /
3554 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3555 + .00878, .00168, .00013, .00001, .00000,
3556 + .00000, .00000, .00000,
3557 + .00832, .00159, .00012, .00001, .00000,
3558 + .00000, .00000, .00000,
3559 + .00790, .00151, .00011, .00000, .00000,
3560 + .00000, .00000, .00000,
3561 + .00753, .00143, .00010, .00000, .00000,
3562 + .00000, .00000, .00000,
3563 + .00717, .00136, .00010, .00000, .00000,
3564 + .00000, .00000, .00000 /
3565 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3566 + .05908, .01151, .00100, .00004, .00000,
3567 + .00000, .00000, .00001,
3568 + .05389, .01045, .00091, .00003, .00000,
3569 + .00000, .00000, .00001,
3570 + .04717, .00907, .00078, .00003, .00000,
3571 + .00000, .00000, .00001,
3572 + .04290, .00821, .00069, .00002, .00000,
3573 + .00000, .00000, .00001,
3574 + .03886, .00740, .00062, .00002, .00000,
3575 + .00000, .00000, .00001,
3576 + .03574, .00678, .00056, .00002, .00000,
3577 + .00000, .00000, .00001,
3578 + .03302, .00624, .00051, .00001, .00000,
3579 + .00000, .00000, .00001,
3580 + .03039, .00572, .00046, .00001, .00000,
3581 + .00000, .00000, .00001 /
3582 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3583 + .02829, .00530, .00043, .00001, .00000,
3584 + .00000, .00000, .00001,
3585 + .02642, .00494, .00039, .00001, .00000,
3586 + .00000, .00000, .00000,
3587 + .02505, .00467, .00037, .00001, .00000,
3588 + .00000, .00000, .00000,
3589 + .02238, .00415, .00032, .00001, .00000,
3590 + .00000, .00000, .00000,
3591 + .02033, .00375, .00029, .00001, .00000,
3592 + .00000, .00000, .00000,
3593 + .01829, .00336, .00025, .00001, .00000,
3594 + .00000, .00000, .00000,
3595 + .01641, .00300, .00022, .00001, .00000,
3596 + .00000, .00000, .00000,
3597 + .01489, .00271, .00020, .00001, .00000,
3598 + .00000, .00000, .00000 /
3599 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3600 + .01352, .00245, .00017, .00001, .00000,
3601 + .00000, .00000, .00000,
3602 + .01248, .00225, .00016, .00001, .00000,
3603 + .00000, .00000, .00000,
3604 + .01135, .00204, .00014, .00000, .00000,
3605 + .00000, .00000, .00000,
3606 + .01044, .00187, .00013, .00000, .00000,
3607 + .00000, .00000, .00000,
3608 + .00968, .00173, .00012, .00001, .00000,
3609 + .00000, .00000, .00000,
3610 + .00880, .00157, .00010, .00001, .00000,
3611 + .00000, .00000, .00000,
3612 + .00806, .00143, .00009, .00000, .00000,
3613 + .00000, .00000, .00000,
3614 + .00743, .00131, .00009, .00000, .00000,
3615 + .00000, .00000, .00000 /
3616 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3617 + .00684, .00121, .00008, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00633, .00111, .00007, .00000, .00000,
3620 + .00000, .00000, .00000,
3621 + .00587, .00103, .00007, .00000, .00000,
3622 + .00000, .00000, .00000,
3623 + .00548, .00096, .00006, .00000, .00000,
3624 + .00000, .00000, .00000,
3625 + .00511, .00089, .00006, .00000, .00000,
3626 + .00000, .00000, .00000,
3627 + .00478, .00083, .00005, .00000, .00000,
3628 + .00000, .00000, .00000,
3629 + .00448, .00078, .00005, .00000, .00000,
3630 + .00000, .00000, .00000,
3631 + .00422, .00073, .00004, .00000, .00000,
3632 + .00000, .00000, .00000 /
3633 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3634 + .00397, .00069, .00004, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00375, .00064, .00004, .00000, .00000,
3637 + .00000, .00000, .00000,
3638 + .00354, .00061, .00004, .00000, .00000,
3639 + .00000, .00000, .00000,
3640 + .00336, .00058, .00003, .00000, .00000,
3641 + .00000, .00000, .00000,
3642 + .00318, .00054, .00003, .00000, .00000,
3643 + .00000, .00000, .00000 /
3644 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3645 + .02957, .00505, .00031, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .02669, .00454, .00028, .00000, .00000,
3648 + .00000, .00001, .00000,
3649 + .02301, .00389, .00024, .00000, .00000,
3650 + .00000, .00000, .00001,
3651 + .02070, .00348, .00022, .00000, .00000,
3652 + .00000, .00000, .00000,
3653 + .01855, .00310, .00019, .00000, .00000,
3654 + .00000, .00000, .00000,
3655 + .01690, .00281, .00018, .00000, .00000,
3656 + .00000, .00000, .00000,
3657 + .01548, .00257, .00016, .00000, .00000,
3658 + .00000, .00000, .00000,
3659 + .01411, .00233, .00014, .00000, .00000,
3660 + .00000, .00000, .00000 /
3661 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3662 + .01303, .00215, .00013, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01208, .00198, .00012, .00000, .00000,
3665 + .00000, .00000, .00000,
3666 + .01139, .00186, .00011, .00000, .00000,
3667 + .00000, .00000, .00000,
3668 + .01005, .00164, .00010, .00000, .00000,
3669 + .00000, .00000, .00000,
3670 + .00903, .00147, .00009, .00000, .00000,
3671 + .00000, .00000, .00000,
3672 + .00803, .00130, .00008, .00000, .00000,
3673 + .00000, .00000, .00000,
3674 + .00712, .00114, .00007, .00000, .00000,
3675 + .00000, .00000, .00000,
3676 + .00640, .00102, .00006, .00000, .00000,
3677 + .00000, .00000, .00000 /
3678 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3679 + .00575, .00092, .00005, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00526, .00084, .00005, .00000, .00000,
3682 + .00000, .00000, .00000,
3683 + .00474, .00075, .00004, .00000, .00000,
3684 + .00000, .00000, .00000,
3685 + .00432, .00068, .00004, .00000, .00000,
3686 + .00000, .00000, .00000,
3687 + .00397, .00062, .00003, .00000, .00000,
3688 + .00000, .00000, .00000,
3689 + .00358, .00056, .00003, .00000, .00000,
3690 + .00000, .00000, .00000,
3691 + .00324, .00051, .00003, .00000, .00000,
3692 + .00000, .00000, .00000,
3693 + .00296, .00046, .00002, .00000, .00000,
3694 + .00000, .00000, .00000 /
3695 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3696 + .00271, .00042, .00002, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00248, .00038, .00002, .00000, .00000,
3699 + .00000, .00000, .00000,
3700 + .00229, .00035, .00002, .00000, .00000,
3701 + .00000, .00000, .00000,
3702 + .00212, .00033, .00002, .00000, .00000,
3703 + .00000, .00000, .00000,
3704 + .00196, .00030, .00002, .00000, .00000,
3705 + .00000, .00000, .00000,
3706 + .00182, .00028, .00001, .00000, .00000,
3707 + .00000, .00000, .00000,
3708 + .00170, .00026, .00001, .00000, .00000,
3709 + .00000, .00000, .00000,
3710 + .00159, .00024, .00001, .00000, .00000,
3711 + .00000, .00000, .00000 /
3712 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3713 + .00149, .00023, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00139, .00021, .00001, .00000, .00000,
3716 + .00000, .00000, .00000,
3717 + .00131, .00020, .00001, .00000, .00000,
3718 + .00000, .00000, .00000,
3719 + .00123, .00019, .00001, .00000, .00000,
3720 + .00000, .00000, .00000,
3721 + .00116, .00018, .00001, .00000, .00000,
3722 + .00000, .00000, .00000 /
3723 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3724 + .00313, .00037, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00274, .00032, .00001, .00000, .00000,
3727 + .00000, .00000, .00000,
3728 + .00226, .00026, .00001, .00000, .00000,
3729 + .00000, .00000, .00000,
3730 + .00197, .00023, .00001, .00000, .00000,
3731 + .00000, .00000, .00000,
3732 + .00171, .00020, .00001, .00000, .00000,
3733 + .00000, .00000, .00000,
3734 + .00152, .00017, .00001, .00000, .00000,
3735 + .00000, .00000, .00000,
3736 + .00135, .00015, .00001, .00000, .00000,
3737 + .00000, .00000, .00000,
3738 + .00120, .00014, .00001, .00000, .00000,
3739 + .00000, .00000, .00000 /
3740 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3741 + .00108, .00012, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00098, .00011, .00001, .00000, .00000,
3744 + .00000, .00000, .00000,
3745 + .00091, .00010, .00000, .00000, .00000,
3746 + .00000, .00000, .00000,
3747 + .00078, .00009, .00000, .00000, .00000,
3748 + .00000, .00000, .00000,
3749 + .00068, .00008, .00000, .00000, .00000,
3750 + .00000, .00000, .00000,
3751 + .00058, .00007, .00000, .00000, .00000,
3752 + .00000, .00000, .00000,
3753 + .00050, .00006, .00000, .00000, .00000,
3754 + .00000, .00000, .00000,
3755 + .00043, .00005, .00000, .00000, .00000,
3756 + .00000, .00000, .00000 /
3757 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3758 + .00038, .00004, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00034, .00004, .00000, .00000, .00000,
3761 + .00000, .00000, .00000,
3762 + .00030, .00003, .00000, .00000, .00000,
3763 + .00000, .00000, .00000,
3764 + .00026, .00003, .00000, .00000, .00000,
3765 + .00000, .00000, .00000,
3766 + .00024, .00003, .00000, .00000, .00000,
3767 + .00000, .00000, .00000,
3768 + .00021, .00002, .00000, .00000, .00000,
3769 + .00000, .00000, .00000,
3770 + .00018, .00002, .00000, .00000, .00000,
3771 + .00000, .00000, .00000,
3772 + .00016, .00002, .00000, .00000, .00000,
3773 + .00000, .00000, .00000 /
3774 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3775 + .00014, .00002, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00013, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000,
3779 + .00012, .00001, .00000, .00000, .00000,
3780 + .00000, .00000, .00000,
3781 + .00011, .00001, .00000, .00000, .00000,
3782 + .00000, .00000, .00000,
3783 + .00010, .00001, .00000, .00000, .00000,
3784 + .00000, .00000, .00000,
3785 + .00009, .00001, .00000, .00000, .00000,
3786 + .00000, .00000, .00000,
3787 + .00008, .00001, .00000, .00000, .00000,
3788 + .00000, .00000, .00000,
3789 + .00007, .00001, .00000, .00000, .00000,
3790 + .00000, .00000, .00000 /
3791 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000,
3796 + .00006, .00001, .00000, .00000, .00000,
3797 + .00000, .00000, .00000,
3798 + .00005, .00001, .00000, .00000, .00000,
3799 + .00000, .00000, .00000,
3800 + .00005, .00001, .00000, .00000, .00000,
3801 + .00000, .00000, .00000 /
3802 data xx/1d-5,2d-5,4d-5,6d-5,8d-5,
3803 . 1d-4,2d-4,4d-4,6d-4,8d-4,
3804 . 1d-3,2d-3,4d-3,6d-3,8d-3,
3805 . 1d-2,1.4d-2,2d-2,3d-2,4d-2,6d-2,8d-2,
3806 . .1d0,.125d0,.15d0,.175d0,.2d0,.225d0,.25d0,.275d0,
3807 . .3d0,.325d0,.35d0,.375d0,.4d0,.425d0,.45d0,.475d0,
3808 . .5d0,.525d0,.55d0,.575d0,.6d0,.65d0,.7d0,.75d0,
3809 . .8d0,.9d0,1d0/
3810 data qq/1.25d0,1.5d0,2d0,2.5d0,3.2d0,4d0,5d0,6.4d0,8d0,1d1,
3811 . 1.2d1,1.8d1,2.6d1,4d1,6.4d1,1d2,
3812 . 1.6d2,2.4d2,4d2,6.4d2,1d3,1.8d3,3.2d3,5.6d3,1d4,
3813 . 1.8d4,3.2d4,5.6d4,1d5,1.8d5,3.2d5,5.6d5,1d6,
3814 . 1.8d6,3.2d6,5.6d6,1d7/
3815 data xmin,xmax,qsqmin,qsqmax/1d-5,1d0,1.25d0,1d7/
3816 data n0/3,4,5,9,9,9,9,9/
3817 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3818 data init/0/
3819 save
3820 xsave=x
3821 q2save=qsq
3822 if(init.ne.0) goto 10
3823C open(unit=1,file='ft11a.dat',status='old')
3824 do 20 n=1,nx-1
3825 do 20 m=1,nq
3826C read(1,50)f(1,n,m),f(2,n,m),f(3,n,m),f(4,n,m),
3827C . f(5,n,m),f(7,n,m),f(6,n,m),f(8,n,m)
3828c notation: 1=uval 2=val 3=glue 4=usea 5=chm 6=str 7=btm 8=dsea
3829 do 25 i=1,np
3830 25 f(i,n,m)=f(i,n,m)/(ONED-xx(n))**n0(i)
3831 20 continue
3832 do 31 j=1,ntenth-1
3833 xx(j)= log10(xx(j)/xx(ntenth))+xx(ntenth)
3834 do 31 i=1,8
3835 if(i.eq.5.or.i.eq.7) goto 31
3836 do 30 k=1,nq
3837 30 f(i,j,k)= log10(f(i,j,k)/f(i,ntenth,k))+f(i,ntenth,k)
3838 31 continue
3839 50 format(8f10.5)
3840 do 40 i=1,np
3841 do 40 m=1,nq
3842 40 f(i,nx,m)=ZEROD
3843 init=1
3844 10 continue
3845 if(x.lt.xmin) x=xmin
3846 if(x.gt.xmax) x=xmax
3847 if(qsq.lt.qsqmin) qsq=qsqmin
3848 if(qsq.gt.qsqmax) qsq=qsqmax
3849 xxx=x
3850 if(x.lt.xx(ntenth)) xxx= log10(x/xx(ntenth))+xx(ntenth)
3851 n=0
3852 70 n=n+1
3853 if(xxx.gt.xx(n+1)) goto 70
3854 a=(xxx-xx(n))/(xx(n+1)-xx(n))
3855 m=0
3856 80 m=m+1
3857 if(qsq.gt.qq(m+1)) goto 80
3858 b=(qsq-qq(m))/(qq(m+1)-qq(m))
3859 do 60 i=1,np
3860 g(i)=(ONED-a)*(ONED-b)*f(i,n,m) + (ONED-a)*b*f(i,n,m+1)
3861 . + a*(ONED-b)*f(i,n+1,m) + a*b*f(i,n+1,m+1)
3862 if(n.ge.ntenth) goto 65
3863 if(i.eq.5.or.i.eq.7) goto 65
3864 fac=(ONED-b)*f(i,ntenth,m)+b*f(i,ntenth,m+1)
3865 g(i)=fac*10d0**(g(i)-fac)
3866 65 continue
3867 g(i)=g(i)*(ONED-x)**n0(i)
3868 60 continue
3869 upv=g(1)
3870 dnv=g(2)
3871 usea=g(4)
3872 dsea=g(8)
3873 str=g(6)
3874 chm=g(5)
3875 glu=g(3)
3876 bot=g(7)
3877 x=xsave
3878 qsq=q2save
3879 return
3880 end
3881
3882