2 SUBROUTINE SFMSR1(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
4 #include "pdf/impdp.inc"
6 PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
8 #if defined(CERNLIB_DOUBLE)
11 #if defined(CERNLIB_SINGLE)
14 + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP)
15 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
16 + .00150, .00820, 1.27651, .47232, .00361,
17 + .00000, .26825, .47591,
18 + .00164, .00829, 2.51076, .54184, .00842,
19 + .00000, .32962, .54574,
20 + .00186, .00842, 5.15239, .66876, .02078,
21 + .00000, .44176, .67312,
22 + .00202, .00852, 7.60560, .78049, .03596,
23 + .00000, .54082, .78518,
24 + .00218, .00863, 10.75238, .91570, .06054,
25 + .00000, .66140, .92073,
26 + .00233, .00872, 13.97310, 1.04723, .09196,
27 + .00000, .77960, 1.05255,
28 + .00248, .00880, 17.38378, 1.18507, .13419,
29 + .00000, .90471, 1.19066,
30 + .00263, .00889, 21.60102, 1.34504, .19659,
31 + .00000, 1.05170, 1.35091 /
32 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
33 + .00277, .00897, 25.71856, 1.49464, .26966,
34 + .00000, 1.19120, 1.50075,
35 + .00290, .00905, 30.04072, 1.64629, .36031,
36 + .00000, 1.33493, 1.65265,
37 + .00301, .00912, 33.83256, 1.77280, .44901,
38 + .00000, 1.45665, 1.77933,
39 + .00323, .00925, 42.72836, 2.05508, .69411,
40 + .00000, 1.73491, 2.06200,
41 + .00344, .00937, 51.41478, 2.31292, .97263,
42 + .08206, 1.99679, 2.32016,
43 + .00366, .00950, 62.32519, 2.62014, 1.35857,
44 + .34230, 2.31645, 2.62773,
45 + .00390, .00964, 75.04426, 2.96732, 1.83495,
46 + .76585, 2.68330, 2.97528,
47 + .00412, .00976, 87.89626, 3.31593, 2.32213,
48 + 1.16297, 3.05277, 3.32420 /
49 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
50 + .00435, .00989, 101.95473, 3.70341, 2.85158,
51 + 1.60616, 3.46160, 3.71199,
52 + .00454, .01000, 114.59903, 4.05840, 3.31499,
53 + 2.00384, 3.83294, 4.06724,
54 + .00477, .01013, 131.23253, 4.53483, 3.90384,
55 + 2.52600, 4.32645, 4.54397,
56 + .00498, .01025, 146.98965, 4.99712, 4.44615,
57 + 3.02310, 4.80107, 5.00653,
58 + .00518, .01036, 162.32021, 5.45550, 4.96222,
59 + 3.50873, 5.26849, 5.46514,
60 + .00543, .01050, 183.20419, 6.08918, 5.65019,
61 + 4.17132, 5.91093, 6.09911,
62 + .00567, .01063, 204.04591, 6.73289, 6.32948,
63 + 4.83757, 6.56064, 6.74309,
64 + .00589, .01075, 224.70506, 7.37940, 6.99909,
65 + 5.50208, 7.21129, 7.38984 /
66 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
67 + .00612, .01088, 246.71046, 8.07342, 7.70902,
68 + 6.21185, 7.90842, 8.08411,
69 + .00635, .01101, 269.03000, 8.78754, 8.43387,
70 + 6.93984, 8.62487, 8.79846,
71 + .00656, .01112, 291.36292, 9.50638, 9.15980,
72 + 7.67077, 9.34546, 9.51751,
73 + .00677, .01124, 313.19193, 10.21589, 9.87416,
74 + 8.39103, 10.05634, 10.22721,
75 + .00698, .01135, 336.06308, 10.96444, 10.62638,
76 + 9.14992, 10.80610, 10.97596,
77 + .00718, .01147, 359.35037, 11.73321, 11.39798,
78 + 9.92851, 11.57593, 11.74491,
79 + .00738, .01158, 382.31967, 12.49669, 12.16367,
80 + 10.70110, 12.34034, 12.50857,
81 + .00757, .01168, 404.63406, 13.24494, 12.91373,
82 + 11.45779, 13.08942, 13.25698 /
83 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
84 + .00777, .01178, 428.05157, 14.03363, 13.70408,
85 + 12.25486, 13.87892, 14.04584,
86 + .00796, .01189, 451.47595, 14.83160, 14.50354,
87 + 13.06099, 14.67765, 14.84395,
88 + .00814, .01199, 474.82428, 15.62897, 15.30227,
89 + 13.86604, 15.47575, 15.64148,
90 + .00832, .01209, 497.14151, 16.39982, 16.07436,
91 + 14.64411, 16.24726, 16.41246,
92 + .00850, .01219, 520.44489, 17.20842, 16.88418,
93 + 15.45994, 17.05652, 17.22120 /
94 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
95 + .00302, .00997, 1.37009, .43396, .00331,
96 + .00000, .24514, .43707,
97 + .00322, .01010, 2.53859, .49645, .00764,
98 + .00000, .30021, .49977,
99 + .00353, .01028, 4.92867, .60861, .01861,
100 + .00000, .39919, .61223,
101 + .00375, .01042, 7.08166, .70567, .03192,
102 + .00000, .48520, .70951,
103 + .00399, .01056, 9.78428, .82162, .05326,
104 + .00000, .58857, .82569,
105 + .00420, .01068, 12.50101, .93309, .08030,
106 + .00000, .68877, .93736,
107 + .00440, .01080, 15.33646, 1.04857, .11635,
108 + .00000, .79364, 1.05301,
109 + .00461, .01093, 18.79419, 1.18129, .16922,
110 + .00000, .91572, 1.18592 /
111 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
112 + .00480, .01104, 22.12853, 1.30418, .23068,
113 + .00000, 1.03051, 1.30898,
114 + .00499, .01115, 25.59074, 1.42761, .30643,
115 + .00000, 1.14776, 1.43257,
116 + .00514, .01123, 28.60125, 1.52981, .38013,
117 + .00000, 1.24638, 1.53489,
118 + .00545, .01142, 35.57806, 1.75536, .58206,
119 + .00000, 1.46959, 1.76069,
120 + .00573, .01157, 42.29364, 1.95870, .80917,
121 + .06534, 1.67720, 1.96425,
122 + .00605, .01175, 50.61731, 2.19817, 1.12053,
123 + .27098, 1.92789, 2.20395,
124 + .00638, .01194, 60.18987, 2.46583, 1.50028,
125 + .60330, 2.21254, 2.47186,
126 + .00668, .01211, 69.74239, 2.73221, 1.88398,
127 + .91134, 2.49654, 2.73846 /
128 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
129 + .00700, .01228, 80.06973, 3.02602, 2.29604,
130 + 1.25201, 2.80809, 3.03248,
131 + .00726, .01243, 89.26488, 3.29352, 2.65279,
132 + 1.55515, 3.08903, 3.30015,
133 + .00758, .01261, 101.24441, 3.65035, 3.10128,
134 + 1.94998, 3.45978, 3.65719,
135 + .00787, .01276, 112.48016, 3.99434, 3.50989,
136 + 2.32280, 3.81372, 4.00135,
137 + .00813, .01291, 123.31759, 4.33339, 3.89521,
138 + 2.68440, 4.16002, 4.34056,
139 + .00847, .01310, 137.95073, 4.79913, 4.40415,
140 + 3.17410, 4.63273, 4.80650,
141 + .00880, .01327, 152.41275, 5.26880, 4.90196,
142 + 3.66254, 5.10716, 5.27635,
143 + .00910, .01344, 166.62314, 5.73732, 5.38865,
144 + 4.14613, 5.57895, 5.74504 /
145 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
146 + .00941, .01361, 181.64133, 6.23711, 5.90091,
147 + 4.65920, 6.08119, 6.24500,
148 + .00972, .01377, 196.74548, 6.74796, 6.42014,
149 + 5.18180, 6.59388, 6.75600,
150 + .01001, .01393, 211.75232, 7.25916, 6.93690,
151 + 5.70332, 7.10647, 7.26735,
152 + .01029, .01408, 226.31653, 7.76082, 7.44237,
153 + 6.21418, 7.60922, 7.76914,
154 + .01057, .01423, 241.47786, 8.28725, 7.97170,
155 + 6.74948, 8.13662, 8.29571,
156 + .01085, .01438, 256.81439, 8.82499, 8.51169,
157 + 7.29567, 8.67520, 8.83358,
158 + .01112, .01452, 271.85089, 9.35636, 9.04484,
159 + 7.83489, 9.20732, 9.36507,
160 + .01138, .01466, 286.37207, 9.87457, 9.56453,
161 + 8.36039, 9.72621, 9.88339 /
162 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
163 + .01164, .01480, 301.53430, 10.41844, 10.10974,
164 + 8.91149, 10.27074, 10.42738,
165 + .01190, .01493, 316.60855, 10.96602, 10.65855,
166 + 9.46611, 10.81893, 10.97506,
167 + .01215, .01507, 331.56818, 11.51106, 11.20471,
168 + 10.01779, 11.36456, 11.52021,
169 + .01239, .01519, 345.78561, 12.03560, 11.73028,
170 + 10.54856, 11.88965, 12.04484,
171 + .01263, .01532, 360.56714, 12.58379, 12.27948,
172 + 11.10299, 12.43838, 12.59313 /
173 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
174 + .00528, .01213, 1.47075, .39836, .00303,
175 + .00000, .22399, .40115,
176 + .00557, .01230, 2.56714, .45448, .00693,
177 + .00000, .27336, .45740,
178 + .00600, .01256, 4.71504, .55344, .01666,
179 + .00000, .36060, .55656,
180 + .00632, .01274, 6.59385, .63756, .02831,
181 + .00000, .43510, .64081,
182 + .00665, .01294, 8.90274, .73672, .04681,
183 + .00000, .52348, .74012,
184 + .00695, .01310, 11.18264, .83090, .07003,
185 + .00000, .60815, .83441,
186 + .00723, .01327, 13.52799, .92729, .10074,
187 + .00000, .69575, .93091,
188 + .00753, .01344, 16.34862, 1.03697, .14544,
189 + .00000, .79677, 1.04072 /
190 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
191 + .00780, .01359, 19.03495, 1.13751, .19703,
192 + .00000, .89084, 1.14135,
193 + .00806, .01373, 21.79394, 1.23751, .26017,
194 + .00000, .98608, 1.24146,
195 + .00826, .01385, 24.17163, 1.31969, .32126,
196 + .00000, 1.06564, 1.32371,
197 + .00871, .01410, 29.61423, 1.49898, .48724,
198 + .00000, 1.24385, 1.50316,
199 + .00909, .01431, 34.77762, 1.65845, .67196,
200 + .05182, 1.40762, 1.66277,
201 + .00953, .01455, 41.09204, 1.84400, .92249,
202 + .21369, 1.60321, 1.84847,
203 + .00999, .01480, 48.25468, 2.04909, 1.22436,
204 + .47340, 1.82290, 2.05371,
205 + .01041, .01503, 55.31235, 2.25139, 1.52566,
206 + .71138, 2.04002, 2.25614 /
207 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
208 + .01084, .01526, 62.85176, 2.47281, 1.84530,
209 + .97214, 2.27615, 2.47770,
210 + .01120, .01546, 69.49609, 2.67318, 2.11896,
211 + 1.20224, 2.48753, 2.67818,
212 + .01164, .01569, 78.06766, 2.93889, 2.45921,
213 + 1.49950, 2.76454, 2.94402,
214 + .01204, .01591, 86.02574, 3.19338, 2.76578,
215 + 1.77786, 3.02705, 3.19863,
216 + .01240, .01610, 93.63403, 3.44274, 3.05216,
217 + 2.04589, 3.28220, 3.44809,
218 + .01287, .01635, 103.81516, 3.78310, 3.42685,
219 + 2.40614, 3.62811, 3.78858,
220 + .01331, .01658, 113.77729, 4.12384, 3.78979,
221 + 2.76252, 3.97260, 4.12944,
222 + .01373, .01680, 123.47881, 4.46143, 4.14164,
223 + 3.11276, 4.31277, 4.46713 /
224 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
225 + .01415, .01702, 133.65033, 4.81928, 4.50925,
226 + 3.48181, 4.67254, 4.82509,
227 + .01457, .01724, 143.79108, 5.18256, 4.87908,
228 + 3.85507, 5.03726, 5.18847,
229 + .01497, .01745, 153.79414, 5.54394, 5.24481,
230 + 4.22526, 5.39974, 5.54995,
231 + .01534, .01765, 163.43129, 5.89651, 5.60036,
232 + 4.58571, 5.75317, 5.90261,
233 + .01573, .01784, 173.39726, 6.26447, 5.97062,
234 + 4.96129, 6.12189, 6.27065,
235 + .01611, .01804, 183.41074, 6.63827, 6.34622,
236 + 5.34238, 6.49638, 6.64455,
237 + .01647, .01823, 193.16772, 7.00577, 6.71514,
238 + 5.71664, 6.86447, 7.01212,
239 + .01681, .01841, 202.53276, 7.36239, 7.07296,
240 + 6.07955, 7.22164, 7.36882 /
241 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
242 + .01716, .01859, 212.26091, 7.73504, 7.44670,
243 + 6.45844, 7.59481, 7.74154,
244 + .01751, .01877, 221.87061, 8.10832, 7.82100,
245 + 6.83781, 7.96860, 8.11490,
246 + .01785, .01894, 231.36542, 8.47846, 8.19205,
247 + 7.21367, 8.33920, 8.48510,
248 + .01817, .01910, 240.33441, 8.83298, 8.54743,
249 + 7.57359, 8.69417, 8.83969,
250 + .01849, .01927, 249.61873, 9.20211, 8.91739,
251 + 7.94811, 9.06373, 9.20888 /
252 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
253 + .00706, .01361, 1.53322, .37869, .00288,
254 + .00000, .21247, .38141,
255 + .00742, .01382, 2.58435, .43136, .00654,
256 + .00000, .25875, .43416,
257 + .00795, .01412, 4.59470, .52325, .01562,
258 + .00000, .33971, .52620,
259 + .00834, .01434, 6.32426, .60052, .02638,
260 + .00000, .40812, .60356,
261 + .00875, .01457, 8.42389, .69087, .04338,
262 + .00000, .48865, .69402,
263 + .00911, .01477, 10.47581, .77604, .06460,
264 + .00000, .56524, .77929,
265 + .00945, .01497, 12.56889, .86259, .09253,
266 + .00000, .64394, .86592,
267 + .00982, .01517, 15.06571, .96050, .13300,
268 + .00000, .73418, .96391 /
269 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
270 + .01015, .01535, 17.42632, 1.04968, .17951,
271 + .00000, .81773, 1.05317,
272 + .01046, .01552, 19.83518, 1.13789, .23621,
273 + .00000, .90187, 1.14145,
274 + .01071, .01566, 21.90024, 1.21004, .29088,
275 + .00000, .97187, 1.21366,
276 + .01125, .01595, 26.59290, 1.36636, .43866,
277 + .00000, 1.12769, 1.37010,
278 + .01172, .01621, 31.00678, 1.50427, .60213,
279 + .04515, 1.26985, 1.50811,
280 + .01225, .01649, 36.36189, 1.66357, .82242,
281 + .18557, 1.43853, 1.66752,
282 + .01281, .01679, 42.38701, 1.83848, 1.08596,
283 + .40993, 1.62678, 1.84255,
284 + .01332, .01706, 48.27945, 2.01011, 1.34707,
285 + .61411, 1.81179, 2.01428 /
286 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
287 + .01384, .01734, 54.52941, 2.19714, 1.62208,
288 + .83662, 2.01197, 2.20141,
289 + .01427, .01757, 60.00384, 2.36578, 1.85595,
290 + 1.03199, 2.19041, 2.37014,
291 + .01481, .01785, 67.02507, 2.58867, 2.14481,
292 + 1.28317, 2.42329, 2.59313,
293 + .01528, .01810, 73.50425, 2.80136, 2.40335,
294 + 1.51723, 2.64302, 2.80590,
295 + .01572, .01832, 79.66604, 3.00904, 2.64348,
296 + 1.74163, 2.85578, 3.01365,
297 + .01628, .01862, 87.86759, 3.29146, 2.95588,
298 + 2.04189, 3.14304, 3.29618,
299 + .01681, .01889, 95.84486, 3.57298, 3.25671,
300 + 2.33749, 3.42783, 3.57779,
301 + .01731, .01915, 103.57189, 3.85078, 3.54688,
302 + 2.62671, 3.70787, 3.85567 /
303 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
304 + .01782, .01941, 111.63496, 4.14416, 3.84871,
305 + 2.93024, 4.00292, 4.14914,
306 + .01832, .01967, 119.63110, 4.44078, 4.15099,
307 + 3.23595, 4.30079, 4.44583,
308 + .01879, .01991, 127.48499, 4.73483, 4.44881,
309 + 3.53803, 4.59579, 4.73996,
310 + .01924, .02014, 135.01810, 5.02069, 4.73727,
311 + 3.83111, 4.88242, 5.02590,
312 + .01970, .02037, 142.77744, 5.31808, 5.03667,
313 + 4.13548, 5.18047, 5.32336,
314 + .02015, .02060, 150.54222, 5.61922, 5.33937,
315 + 4.44329, 5.48220, 5.62455,
316 + .02058, .02082, 158.08008, 5.91437, 5.63578,
317 + 4.74464, 5.77788, 5.91977,
318 + .02099, .02103, 165.28799, 6.19994, 5.92241,
319 + 5.03599, 6.06392, 6.20540 /
320 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
321 + .02141, .02124, 172.75272, 6.49756, 6.22101,
322 + 5.33934, 6.36201, 6.50308,
323 + .02182, .02145, 180.09729, 6.79480, 6.51915,
324 + 5.64217, 6.65969, 6.80038,
325 + .02222, .02165, 187.33549, 7.08885, 6.81402,
326 + 5.94148, 6.95415, 7.09448,
327 + .02260, .02184, 194.14720, 7.36971, 7.09564,
328 + 6.22729, 7.23540, 7.37539,
329 + .02299, .02204, 201.18002, 7.66148, 7.38817,
330 + 6.52402, 7.52756, 7.66722 /
331 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
332 + .00859, .01478, 1.57929, .36523, .00278,
333 + .00000, .20465, .36793,
334 + .00899, .01501, 2.59688, .41555, .00628,
335 + .00000, .24885, .41833,
336 + .00961, .01535, 4.51139, .50268, .01491,
337 + .00000, .32559, .50558,
338 + .01006, .01560, 6.13971, .57538, .02509,
339 + .00000, .38994, .57836,
340 + .01053, .01586, 8.09954, .65988, .04108,
341 + .00000, .46527, .66295,
342 + .01095, .01609, 10.00087, .73913, .06099,
343 + .00000, .53654, .74227,
344 + .01134, .01631, 11.92878, .81923, .08708,
345 + .00000, .60940, .82244,
346 + .01177, .01654, 14.21527, .90945, .12477,
347 + .00000, .69261, .91273 /
348 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
349 + .01215, .01674, 16.36580, .99128, .16795,
350 + .00000, .76934, .99461,
351 + .01251, .01694, 18.55020, 1.07185, .22044,
352 + .00000, .84630, 1.07525,
353 + .01280, .01709, 20.41583, 1.13755, .27094,
354 + .00000, .91014, 1.14099,
355 + .01342, .01742, 24.63322, 1.27918, .40694,
356 + .00000, 1.05162, 1.28272,
357 + .01396, .01771, 28.57582, 1.40338, .55671,
358 + .04090, 1.18003, 1.40700,
359 + .01457, .01803, 33.33201, 1.54610, .75763,
360 + .16770, 1.33166, 1.54982,
361 + .01520, .01837, 38.65208, 1.70205, .99676,
362 + .36972, 1.50011, 1.70586,
363 + .01579, .01867, 43.82704, 1.85452, 1.23245,
364 + .55266, 1.66501, 1.85841 /
365 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
366 + .01638, .01898, 49.28793, 2.02013, 1.47938,
367 + .75125, 1.84277, 2.02411,
368 + .01688, .01924, 54.05032, 2.16910, 1.68837,
369 + .92499, 2.00075, 2.17315,
370 + .01749, .01956, 60.13276, 2.36553, 1.94525,
371 + 1.14761, 2.20634, 2.36966,
372 + .01803, .01983, 65.72110, 2.55247, 2.17406,
373 + 1.35431, 2.39971, 2.55668,
374 + .01853, .02009, 71.01545, 2.73457, 2.38570,
375 + 1.55188, 2.58643, 2.73884,
376 + .01917, .02042, 78.03543, 2.98157, 2.65991,
377 + 1.81539, 2.83782, 2.98592,
378 + .01977, .02073, 84.83403, 3.22701, 2.92284,
379 + 2.07391, 3.08623, 3.23144,
380 + .02034, .02102, 91.39390, 3.46852, 3.17552,
381 + 2.32604, 3.32976, 3.47302 /
382 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
383 + .02092, .02131, 98.21572, 3.72290, 3.43753,
384 + 2.58990, 3.58565, 3.72747,
385 + .02148, .02160, 104.95483, 3.97933, 3.69908,
386 + 2.85484, 3.84322, 3.98397,
387 + .02202, .02187, 111.55376, 4.23291, 3.95606,
388 + 3.11595, 4.09767, 4.23762,
389 + .02253, .02213, 117.86292, 4.47882, 4.20432,
390 + 3.36863, 4.34426, 4.48358,
391 + .02305, .02239, 124.34293, 4.73404, 4.46136,
392 + 3.63042, 4.60009, 4.73887,
393 + .02356, .02265, 130.80826, 4.99188, 4.72063,
394 + 3.89453, 4.85847, 4.99676,
395 + .02405, .02289, 137.06776, 5.24404, 4.97395,
396 + 4.15254, 5.11111, 5.24898,
397 + .02452, .02312, 143.03712, 5.48749, 5.21838,
398 + 4.40143, 5.35500, 5.49249 /
399 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
400 + .02499, .02336, 149.20547, 5.74076, 5.47254,
401 + 4.66009, 5.60869, 5.74580,
402 + .02545, .02359, 155.25697, 5.99314, 5.72576,
403 + 4.91774, 5.86147, 5.99823,
404 + .02590, .02382, 161.20993, 6.24240, 5.97579,
405 + 5.17196, 6.11112, 6.24755,
406 + .02633, .02403, 166.79651, 6.48000, 6.21408,
407 + 5.41422, 6.34907, 6.48519,
408 + .02677, .02424, 172.55348, 6.72643, 6.46122,
409 + 5.66532, 6.59587, 6.73167 /
410 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
411 + .00994, .01575, 1.61608, .35505, .00271,
412 + .00000, .19878, .35778,
413 + .01039, .01601, 2.60683, .40360, .00609,
414 + .00000, .24142, .40641,
415 + .01108, .01638, 4.44797, .48719, .01438,
416 + .00000, .31502, .49009,
417 + .01158, .01666, 6.00030, .55649, .02412,
418 + .00000, .37637, .55946,
419 + .01212, .01695, 7.85635, .63669, .03938,
420 + .00000, .44785, .63973,
421 + .01258, .01719, 9.64682, .71158, .05831,
422 + .00000, .51522, .71468,
423 + .01302, .01743, 11.45394, .78696, .08305,
424 + .00000, .58380, .79012,
425 + .01350, .01769, 13.58751, .87157, .11871,
426 + .00000, .66189, .87480 /
427 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
428 + .01392, .01791, 15.58610, .94805, .15945,
429 + .00000, .73365, .95133,
430 + .01432, .01812, 17.60889, 1.02310, .20888,
431 + .00000, .80542, 1.02643,
432 + .01464, .01829, 19.33144, 1.08414, .25633,
433 + .00000, .86481, 1.08752,
434 + .01534, .01866, 23.20960, 1.21520, .38379,
435 + .00000, .99597, 1.21866,
436 + .01594, .01897, 26.81769, 1.32960, .52366,
437 + .03785, 1.11452, 1.33313,
438 + .01661, .01933, 31.15104, 1.46051, .71064,
439 + .15493, 1.25401, 1.46412,
440 + .01732, .01969, 35.97602, 1.60302, .93228,
441 + .34103, 1.40839, 1.60672,
442 + .01797, .02003, 40.64968, 1.74194, 1.14984,
443 + .50891, 1.55905, 1.74571 /
444 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
445 + .01863, .02037, 45.56176, 1.89248, 1.37684,
446 + .69058, 1.72101, 1.89632,
447 + .01918, .02065, 49.83081, 2.02764, 1.56823,
448 + .84909, 1.86461, 2.03154,
449 + .01985, .02100, 55.26529, 2.20553, 1.80259,
450 + 1.05164, 2.05105, 2.20951,
451 + .02045, .02130, 60.24118, 2.37449, 2.01055,
452 + 1.23919, 2.22600, 2.37853,
453 + .02101, .02158, 64.94121, 2.53876, 2.20227,
454 + 1.41802, 2.39457, 2.54286,
455 + .02171, .02194, 71.15443, 2.76112, 2.44987,
456 + 1.65595, 2.62101, 2.76529,
457 + .02238, .02228, 77.15127, 2.98155, 2.68649,
458 + 1.88873, 2.84419, 2.98580,
459 + .02301, .02260, 82.91988, 3.19797, 2.91325,
460 + 2.11521, 3.06249, 3.20228 /
461 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
462 + .02365, .02292, 88.90279, 3.42545, 3.14777,
463 + 2.35168, 3.29137, 3.42983,
464 + .02427, .02323, 94.79520, 3.65425, 3.38129,
465 + 2.58855, 3.52121, 3.65868,
466 + .02487, .02353, 100.55107, 3.88005, 3.61025,
467 + 2.82153, 3.74782, 3.88455,
468 + .02543, .02381, 106.04026, 4.09860, 3.83097,
469 + 3.04653, 3.96701, 4.10315,
470 + .02600, .02409, 111.66531, 4.32501, 4.05908,
471 + 3.27920, 4.19399, 4.32962,
472 + .02656, .02437, 117.26454, 4.55332, 4.28873,
473 + 3.51350, 4.42280, 4.55798,
474 + .02710, .02464, 122.67403, 4.77623, 4.51272,
475 + 3.74199, 4.64616, 4.78094,
476 + .02761, .02489, 127.82166, 4.99108, 4.72848,
477 + 3.96203, 4.86142, 4.99584 /
478 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
479 + .02813, .02515, 133.13170, 5.21426, 4.95251,
480 + 4.19037, 5.08500, 5.21907,
481 + .02865, .02540, 138.32895, 5.43627, 5.17531,
482 + 4.41741, 5.30739, 5.44113,
483 + .02914, .02564, 143.43436, 5.65527, 5.39503,
484 + 4.64115, 5.52675, 5.66017,
485 + .02961, .02588, 148.21486, 5.86368, 5.60411,
486 + 4.85401, 5.73549, 5.86862,
487 + .03009, .02611, 153.13387, 6.07958, 5.82066,
488 + 5.07436, 5.95173, 6.08457 /
489 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
490 + .01530, .01924, 1.73691, .32481, .00248,
491 + .00000, .18161, .32787,
492 + .01595, .01958, 2.63966, .36819, .00552,
493 + .00000, .21968, .37130,
494 + .01693, .02009, 4.25790, .44145, .01285,
495 + .00000, .28417, .44464,
496 + .01765, .02046, 5.58722, .50100, .02134,
497 + .00000, .33688, .50424,
498 + .01840, .02084, 7.14470, .56890, .03448,
499 + .00000, .39743, .57220,
500 + .01905, .02118, 8.62104, .63146, .05064,
501 + .00000, .45377, .63482,
502 + .01968, .02149, 10.08978, .69359, .07156,
503 + .00000, .51038, .69700,
504 + .02035, .02183, 11.79946, .76260, .10148,
505 + .00000, .57419, .76605 /
506 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
507 + .02094, .02213, 13.38077, .82426, .13540,
508 + .00000, .63222, .82776,
509 + .02150, .02242, 14.96322, .88413, .17627,
510 + .00000, .68969, .88767,
511 + .02196, .02264, 16.29847, .93243, .21527,
512 + .00000, .73690, .93600,
513 + .02292, .02313, 19.26629, 1.03479, .31912,
514 + .00000, .83998, 1.03843,
515 + .02376, .02355, 21.98588, 1.12279, .43186,
516 + .02962, .93195, 1.12649,
517 + .02470, .02402, 25.20653, 1.22216, .58088,
518 + .12057, 1.03888, 1.22594,
519 + .02568, .02450, 28.74099, 1.32904, .75529,
520 + .26410, 1.15589, 1.33289,
521 + .02658, .02495, 32.11915, 1.43230, .92427,
522 + .39201, 1.26896, 1.43622 /
523 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
524 + .02749, .02540, 35.62443, 1.54336, 1.09829,
525 + .52911, 1.38943, 1.54734,
526 + .02825, .02577, 38.63769, 1.64251, 1.24324,
527 + .64768, 1.49545, 1.64654,
528 + .02918, .02623, 42.43379, 1.77229, 1.41860,
529 + .79791, 1.63216, 1.77639,
530 + .03000, .02663, 45.87154, 1.89479, 1.57231,
531 + .93582, 1.75946, 1.89895,
532 + .03076, .02700, 49.08774, 2.01320, 1.71253,
533 + 1.06631, 1.88131, 2.01741,
534 + .03172, .02747, 53.29885, 2.17248, 1.89176,
535 + 1.23857, 2.04383, 2.17677,
536 + .03263, .02792, 57.31908, 2.32921, 2.06120,
537 + 1.40565, 2.20274, 2.33356,
538 + .03349, .02833, 61.14857, 2.48199, 2.22207,
539 + 1.56694, 2.35701, 2.48640 /
540 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
541 + .03435, .02875, 65.08667, 2.64155, 2.38714,
542 + 1.73414, 2.51769, 2.64602,
543 + .03520, .02916, 68.92693, 2.80086, 2.55016,
544 + 1.90038, 2.67785, 2.80539,
545 + .03600, .02955, 72.64932, 2.95714, 2.70893,
546 + 2.06282, 2.83478, 2.96172,
547 + .03677, .02992, 76.17011, 3.10744, 2.86097,
548 + 2.21870, 2.98561, 3.11208,
549 + .03753, .03029, 79.75186, 3.26227, 3.01716,
550 + 2.37895, 3.14090, 3.26696,
551 + .03829, .03065, 83.29028, 3.41748, 3.17347,
552 + 2.53936, 3.29653, 3.42222,
553 + .03901, .03100, 86.68545, 3.56820, 3.32509,
554 + 2.69492, 3.44763, 3.57299,
555 + .03970, .03133, 89.89347, 3.71269, 3.47035,
556 + 2.84392, 3.59247, 3.71754 /
557 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
558 + .04040, .03166, 93.18462, 3.86210, 3.62048,
559 + 2.99782, 3.74223, 3.86700,
560 + .04108, .03199, 96.38093, 4.00991, 3.76896,
561 + 3.15000, 3.89035, 4.01485,
562 + .04174, .03230, 99.50684, 4.15513, 3.91480,
563 + 3.29935, 4.03588, 4.16012,
564 + .04237, .03260, 102.41191, 4.29260, 4.05285,
565 + 3.44069, 4.17364, 4.29764,
566 + .04301, .03291, 105.38697, 4.43446, 4.19527,
567 + 3.58643, 4.31578, 4.43954 /
568 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
569 + .02302, .02363, 1.86960, .29661, .00228,
570 + .00000, .16596, .30040,
571 + .02395, .02409, 2.67734, .33515, .00500,
572 + .00000, .19978, .33900,
573 + .02534, .02476, 4.07922, .39896, .01146,
574 + .00000, .25599, .40291,
575 + .02635, .02525, 5.20287, .44976, .01882,
576 + .00000, .30100, .45380,
577 + .02741, .02577, 6.49320, .50681, .03010,
578 + .00000, .35193, .51092,
579 + .02833, .02621, 7.69493, .55863, .04381,
580 + .00000, .39867, .56281,
581 + .02921, .02664, 8.87322, .60937, .06140,
582 + .00000, .44501, .61362,
583 + .03015, .02709, 10.22504, .66509, .08636,
584 + .00000, .49668, .66941 /
585 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
586 + .03097, .02748, 11.45919, .71429, .11443,
587 + .00000, .54316, .71867,
588 + .03176, .02786, 12.67994, .76152, .14799,
589 + .00000, .58872, .76596,
590 + .03240, .02816, 13.70029, .79928, .17984,
591 + .00000, .62586, .80377,
592 + .03374, .02881, 15.93831, .87823, .26387,
593 + .00000, .70599, .88281,
594 + .03490, .02936, 17.95713, .94499, .35407,
595 + .02297, .77649, .94966,
596 + .03621, .02998, 20.31323, 1.01932, .47194,
597 + .09295, .85747, 1.02408,
598 + .03756, .03063, 22.86015, 1.09826, .60809,
599 + .20259, .94501, 1.10312,
600 + .03880, .03122, 25.26075, 1.17383, .73823,
601 + .29909, 1.02876, 1.17878 /
602 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
603 + .04005, .03181, 27.71827, 1.25449, .87043,
604 + .40148, 1.11717, 1.25954,
605 + .04109, .03230, 29.80670, 1.32612, .97914,
606 + .48924, 1.19440, 1.33124,
607 + .04236, .03290, 32.40913, 1.41940, 1.10899,
608 + .59947, 1.29328, 1.42462,
609 + .04348, .03343, 34.73860, 1.50690, 1.22133,
610 + .69975, 1.38465, 1.51220,
611 + .04452, .03392, 36.89589, 1.59099, 1.32268,
612 + .79388, 1.47149, 1.59637,
613 + .04583, .03454, 39.69215, 1.70340, 1.45078,
614 + .91714, 1.58650, 1.70887,
615 + .04707, .03512, 42.33062, 1.81316, 1.57051,
616 + 1.03563, 1.69802, 1.81872,
617 + .04823, .03566, 44.81767, 1.91938, 1.68308,
618 + 1.14908, 1.80546, 1.92503 /
619 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
620 + .04939, .03621, 47.35239, 2.02958, 1.79761,
621 + 1.26583, 1.91658, 2.03532,
622 + .05053, .03674, 49.79746, 2.13878, 1.90974,
623 + 1.38099, 2.02649, 2.14460,
624 + .05162, .03725, 52.14822, 2.24521, 2.01818,
625 + 1.49278, 2.13349, 2.25111,
626 + .05264, .03772, 54.35182, 2.34691, 2.12130,
627 + 1.59932, 2.23565, 2.35289,
628 + .05367, .03820, 56.57603, 2.45105, 2.22657,
629 + 1.70818, 2.34020, 2.45710,
630 + .05468, .03867, 58.75528, 2.55480, 2.33126,
631 + 1.81648, 2.44433, 2.56093,
632 + .05564, .03912, 60.83076, 2.65498, 2.43223,
633 + 1.92090, 2.54486, 2.66119,
634 + .05656, .03955, 62.77665, 2.75049, 2.52840,
635 + 2.02035, 2.64068, 2.75675 /
636 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
637 + .05749, .03998, 64.76130, 2.84878, 2.62734,
638 + 2.12257, 2.73928, 2.85512,
639 + .05840, .04040, 66.67182, 2.94542, 2.72458,
640 + 2.22305, 2.83623, 2.95183,
641 + .05927, .04081, 68.53179, 3.04001, 2.81973,
642 + 2.32124, 2.93110, 3.04648,
643 + .06010, .04119, 70.24541, 3.12903, 2.90927,
644 + 2.41366, 3.02038, 3.13556,
645 + .06094, .04158, 71.99149, 3.22052, 3.00127,
646 + 2.50855, 3.11214, 3.22711 /
647 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
648 + .02906, .02676, 1.95431, .28108, .00216,
649 + .00000, .15746, .28549,
650 + .03019, .02730, 2.70336, .31688, .00472,
651 + .00000, .18890, .32138,
652 + .03189, .02810, 3.98084, .37546, .01071,
653 + .00000, .24055, .38010,
654 + .03312, .02868, 4.99065, .42153, .01746,
655 + .00000, .28140, .42627,
656 + .03442, .02929, 6.13660, .47276, .02773,
657 + .00000, .32720, .47761,
658 + .03554, .02982, 7.19272, .51891, .04013,
659 + .00000, .36888, .52386,
660 + .03661, .03032, 8.21934, .56370, .05597,
661 + .00000, .40986, .56873,
662 + .03775, .03086, 9.38683, .61254, .07830,
663 + .00000, .45526, .61767 /
664 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
665 + .03875, .03132, 10.44436, .65535, .10332,
666 + .00000, .49582, .66057,
667 + .03971, .03177, 11.48307, .69616, .13309,
668 + .00000, .53533, .70145,
669 + .04047, .03213, 12.34628, .72861, .16124,
670 + .00000, .56738, .73397,
671 + .04210, .03289, 14.22442, .79585, .23511,
672 + .00000, .63603, .80135,
673 + .04350, .03354, 15.90241, .85215, .31387,
674 + .01967, .69592, .85775,
675 + .04507, .03427, 17.84333, .91426, .41607,
676 + .07933, .76418, .91999,
677 + .04671, .03503, 19.92211, .97970, .53320,
678 + .17239, .83743, .98557,
679 + .04819, .03573, 21.86477, 1.04201, .64423,
680 + .25368, .90709, 1.04801 /
681 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
682 + .04970, .03642, 23.83692, 1.10823, .75608,
683 + .33941, .98020, 1.11435,
684 + .05094, .03700, 25.50099, 1.16685, .84734,
685 + .41248, 1.04379, 1.17307,
686 + .05246, .03770, 27.56070, 1.24298, .95548,
687 + .50378, 1.12486, 1.24932,
688 + .05380, .03832, 29.39102, 1.31413, 1.04828,
689 + .58637, 1.19942, 1.32058,
690 + .05503, .03889, 31.07531, 1.38227, 1.13142,
691 + .66354, 1.26999, 1.38882,
692 + .05660, .03961, 33.24486, 1.47303, 1.23578,
693 + .76409, 1.36306, 1.47971,
694 + .05807, .04029, 35.27691, 1.56123, 1.33262,
695 + .86021, 1.45283, 1.56804,
696 + .05944, .04093, 37.17973, 1.64622, 1.42312,
697 + .95179, 1.53892, 1.65314 /
698 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
699 + .06083, .04156, 39.10820, 1.73404, 1.51472,
700 + 1.04562, 1.62759, 1.74108,
701 + .06218, .04218, 40.95552, 1.82065, 1.60391,
702 + 1.13772, 1.71486, 1.82779,
703 + .06346, .04277, 42.72254, 1.90475, 1.68978,
704 + 1.22676, 1.79949, 1.91200,
705 + .06466, .04332, 44.36941, 1.98478, 1.77110,
706 + 1.31127, 1.87996, 1.99213,
707 + .06588, .04388, 46.02343, 2.06643, 1.85379,
708 + 1.39730, 1.96201, 2.07388,
709 + .06707, .04443, 47.63536, 2.14747, 1.93570,
710 + 1.48255, 2.04343, 2.15501,
711 + .06821, .04495, 49.16331, 2.22545, 2.01442,
712 + 1.56446, 2.12175, 2.23309,
713 + .06928, .04544, 50.58853, 2.29952, 2.08913,
714 + 1.64220, 2.19614, 2.30725 /
715 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
716 + .07037, .04593, 52.03683, 2.37554, 2.16577,
717 + 1.72187, 2.27247, 2.38336,
718 + .07144, .04642, 53.42278, 2.45000, 2.24082,
719 + 1.79989, 2.34723, 2.45791,
720 + .07247, .04689, 54.76839, 2.52270, 2.31406,
721 + 1.87595, 2.42021, 2.53069,
722 + .07344, .04733, 56.00077, 2.59087, 2.38274,
723 + 1.94728, 2.48865, 2.59894,
724 + .07442, .04778, 57.25243, 2.66076, 2.45313,
725 + 2.02033, 2.55881, 2.66891 /
726 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
727 + .03423, .02932, 2.01850, .27053, .00209,
728 + .00000, .15170, .27547,
729 + .03554, .02993, 2.72460, .30440, .00452,
730 + .00000, .18148, .30946,
731 + .03749, .03083, 3.91431, .35936, .01019,
732 + .00000, .22997, .36460,
733 + .03891, .03149, 4.84550, .40219, .01653,
734 + .00000, .26799, .40756,
735 + .04040, .03218, 5.89324, .44950, .02611,
736 + .00000, .31032, .45500,
737 + .04169, .03277, 6.85154, .49184, .03764,
738 + .00000, .34862, .49746,
739 + .04291, .03334, 7.77726, .53268, .05229,
740 + .00000, .38604, .53840,
741 + .04422, .03394, 8.82325, .57698, .07288,
742 + .00000, .42730, .58282 /
743 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
744 + .04536, .03447, 9.76531, .61560, .09585,
745 + .00000, .46398, .62155,
746 + .04646, .03497, 10.68584, .65222, .12312,
747 + .00000, .49954, .65826,
748 + .04733, .03538, 11.44762, .68122, .14882,
749 + .00000, .52829, .68734,
750 + .04919, .03623, 13.09528, .74093, .21601,
751 + .00000, .58953, .74722,
752 + .05079, .03697, 14.55699, .79053, .28730,
753 + .01755, .64262, .79696,
754 + .05257, .03779, 16.23665, .84489, .37934,
755 + .07062, .70278, .85148,
756 + .05443, .03864, 18.02335, .90183, .48422,
757 + .15314, .76700, .90858,
758 + .05612, .03942, 19.68249, .95583, .58303,
759 + .22481, .82779, .96273 /
760 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
761 + .05783, .04020, 21.35637, 1.01303, .68197,
762 + .30006, .89134, 1.02009,
763 + .05924, .04084, 22.76132, 1.06357, .76222,
764 + .36394, .94643, 1.07075,
765 + .06096, .04163, 24.49160, 1.12906, .85677,
766 + .44345, 1.01644, 1.13639,
767 + .06247, .04232, 26.02084, 1.19011, .93741,
768 + .51509, 1.08062, 1.19758,
769 + .06386, .04296, 27.42137, 1.24844, 1.00928,
770 + .58179, 1.14118, 1.25603,
771 + .06563, .04376, 29.21698, 1.32593, 1.09904,
772 + .66838, 1.22079, 1.33368,
773 + .06728, .04452, 30.88946, 1.40098, 1.18188,
774 + .75082, 1.29730, 1.40887,
775 + .06884, .04522, 32.44775, 1.47306, 1.25893,
776 + .82909, 1.37041, 1.48109 /
777 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
778 + .07039, .04593, 34.02047, 1.54733, 1.33664,
779 + .90901, 1.44548, 1.55550,
780 + .07191, .04662, 35.51890, 1.62031, 1.41198,
781 + .98718, 1.51910, 1.62862,
782 + .07334, .04727, 36.94674, 1.69099, 1.48430,
783 + 1.06252, 1.59029, 1.69941,
784 + .07470, .04789, 38.27161, 1.75803, 1.55255,
785 + 1.13382, 1.65777, 1.76658,
786 + .07606, .04850, 39.59719, 1.82625, 1.62176,
787 + 1.20619, 1.72640, 1.83492,
788 + .07739, .04911, 40.88373, 1.89377, 1.69012,
789 + 1.27771, 1.79429, 1.90256,
790 + .07866, .04969, 42.09881, 1.95857, 1.75564,
791 + 1.34625, 1.85944, 1.96747,
792 + .07986, .05023, 43.22771, 2.01997, 1.81766,
793 + 1.41113, 1.92115, 2.02897 /
794 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
795 + .08108, .05078, 44.37173, 2.08284, 1.88115,
796 + 1.47747, 1.98434, 2.09195,
797 + .08227, .05132, 45.46129, 2.14425, 1.94313,
798 + 1.54227, 2.04606, 2.15346,
799 + .08342, .05183, 46.51706, 2.20410, 2.00352,
800 + 1.60531, 2.10620, 2.21342,
801 + .08450, .05232, 47.47936, 2.26007, 2.05999,
802 + 1.66428, 2.16244, 2.26948,
803 + .08559, .05282, 48.45438, 2.31734, 2.11777,
804 + 1.72456, 2.21998, 2.32685 /
805 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
806 + .03898, .03160, 2.07605, .26289, .00202,
807 + .00000, .14734, .26815,
808 + .04044, .03227, 2.74914, .29521, .00436,
809 + .00000, .17576, .30060,
810 + .04261, .03328, 3.87013, .34732, .00977,
811 + .00000, .22175, .35290,
812 + .04418, .03400, 4.73995, .38763, .01578,
813 + .00000, .25756, .39336,
814 + .04584, .03476, 5.71166, .43193, .02484,
815 + .00000, .29722, .43780,
816 + .04726, .03542, 6.59486, .47137, .03569,
817 + .00000, .33293, .47738,
818 + .04862, .03604, 7.44373, .50923, .04942,
819 + .00000, .36766, .51535,
820 + .05007, .03671, 8.39780, .55013, .06868,
821 + .00000, .40580, .55638 /
822 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
823 + .05132, .03729, 9.25309, .58563, .09010,
824 + .00000, .43958, .59200,
825 + .05253, .03784, 10.08528, .61914, .11546,
826 + .00000, .47219, .62561,
827 + .05350, .03829, 10.77156, .64559, .13931,
828 + .00000, .49849, .65215,
829 + .05555, .03923, 12.24890, .69977, .20147,
830 + .00000, .55426, .70652,
831 + .05731, .04003, 13.55190, .74448, .26717,
832 + .01600, .60235, .75138,
833 + .05928, .04094, 15.04109, .79321, .35165,
834 + .06424, .65660, .80029,
835 + .06132, .04187, 16.61634, .84401, .44745,
836 + .13905, .71425, .85127,
837 + .06318, .04272, 18.07147, .89202, .53729,
838 + .20374, .76862, .89945 /
839 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
840 + .06505, .04357, 19.53202, .94276, .62679,
841 + .27140, .82527, .95035,
842 + .06660, .04428, 20.75257, .98750, .69904,
843 + .32866, .87425, .99523,
844 + .06848, .04514, 22.24956, 1.04539, .78375,
845 + .39970, .93634, 1.05329,
846 + .07013, .04589, 23.56657, 1.09925, .85565,
847 + .46349, .99309, 1.10730,
848 + .07165, .04658, 24.76788, 1.15060, .91945,
849 + .52271, 1.04652, 1.15879,
850 + .07358, .04746, 26.30209, 1.21867, .99879,
851 + .59937, 1.11656, 1.22703,
852 + .07539, .04828, 27.72445, 1.28442, 1.07170,
853 + .67212, 1.18367, 1.29294,
854 + .07708, .04905, 29.04414, 1.34740, 1.13925,
855 + .74097, 1.24762, 1.35607 /
856 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
857 + .07877, .04982, 30.37143, 1.41213, 1.20715,
858 + .81109, 1.31311, 1.42095,
859 + .08042, .05057, 31.63042, 1.47556, 1.27277,
860 + .87947, 1.37715, 1.48452,
861 + .08199, .05127, 32.82621, 1.53684, 1.33559,
862 + .94521, 1.43893, 1.54594,
863 + .08345, .05194, 33.93155, 1.59483, 1.39473,
864 + 1.00728, 1.49735, 1.60406,
865 + .08493, .05261, 35.03389, 1.65370, 1.45454,
866 + 1.07013, 1.55662, 1.66307,
867 + .08638, .05326, 36.09999, 1.71183, 1.51348,
868 + 1.13209, 1.61512, 1.72132,
869 + .08775, .05388, 37.10369, 1.76751, 1.56985,
870 + 1.19135, 1.67114, 1.77712,
871 + .08905, .05447, 38.03294, 1.82014, 1.62310,
872 + 1.24733, 1.72408, 1.82987 /
873 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
874 + .09037, .05506, 38.97249, 1.87395, 1.67750,
875 + 1.30447, 1.77821, 1.88379,
876 + .09166, .05564, 39.86370, 1.92636, 1.73049,
877 + 1.36013, 1.83093, 1.93632,
878 + .09289, .05620, 40.72589, 1.97738, 1.78204,
879 + 1.41421, 1.88223, 1.98745,
880 + .09406, .05672, 41.50849, 2.02498, 1.83013,
881 + 1.46470, 1.93010, 2.03515,
882 + .09524, .05725, 42.29984, 2.07362, 1.87927,
883 + 1.51623, 1.97902, 2.08390 /
884 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
885 + .05805, .04036, 2.25666, .24019, .00184,
886 + .00000, .13466, .24715,
887 + .06007, .04129, 2.81989, .26777, .00391,
888 + .00000, .15896, .27491,
889 + .06307, .04266, 3.72669, .31126, .00856,
890 + .00000, .19745, .31870,
891 + .06523, .04365, 4.41225, .34417, .01363,
892 + .00000, .22677, .35181,
893 + .06750, .04468, 5.16130, .37970, .02113,
894 + .00000, .25869, .38755,
895 + .06944, .04557, 5.82881, .41083, .03001,
896 + .00000, .28698, .41888,
897 + .07129, .04641, 6.46028, .44022, .04113,
898 + .00000, .31407, .44844,
899 + .07325, .04731, 7.15800, .47154, .05656,
900 + .00000, .34346, .47995 /
901 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
902 + .07496, .04809, 7.77416, .49834, .07357,
903 + .00000, .36914, .50691,
904 + .07659, .04884, 8.36562, .52328, .09354,
905 + .00000, .39364, .53200,
906 + .07789, .04943, 8.84792, .54275, .11219,
907 + .00000, .41321, .55160,
908 + .08064, .05068, 9.87000, .58192, .16030,
909 + .00000, .45411, .59103,
910 + .08300, .05176, 10.75453, .61355, .21052,
911 + .01181, .48877, .62288,
912 + .08563, .05295, 11.74767, .64736, .27425,
913 + .04711, .52728, .65694,
914 + .08834, .05419, 12.77886, .68204, .34545,
915 + .10140, .56760, .69188,
916 + .09080, .05530, 13.71510, .71448, .41118,
917 + .14767, .60518, .72455 /
918 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
919 + .09325, .05642, 14.63869, .74848, .47560,
920 + .19548, .64391, .75878,
921 + .09529, .05734, 15.39926, .77831, .52681,
922 + .23551, .67710, .78880,
923 + .09775, .05846, 16.31923, .81673, .58591,
924 + .28467, .71886, .82746,
925 + .09991, .05944, 17.11621, .85225, .63524,
926 + .32835, .75668, .86318,
927 + .10188, .06033, 17.83330, .88590, .67840,
928 + .36851, .79199, .89701,
929 + .10438, .06146, 18.73711, .93021, .73131,
930 + .42000, .83790, .94156,
931 + .10672, .06251, 19.56153, .97262, .77920,
932 + .46834, .88145, .98419,
933 + .10889, .06350, 20.31532, 1.01290, .82302,
934 + .51365, .92255, 1.02466 /
935 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
936 + .11106, .06447, 21.06450, 1.05398, .86661,
937 + .55939, .96431, 1.06594,
938 + .11317, .06542, 21.76344, 1.09383, .90824,
939 + .60356, 1.00473, 1.10599,
940 + .11516, .06632, 22.42003, 1.13205, .94776,
941 + .64569, 1.04342, 1.14439,
942 + .11702, .06715, 23.01871, 1.16791, .98462,
943 + .68514, 1.07971, 1.18043,
944 + .11889, .06799, 23.60897, 1.20405, 1.02161,
945 + .72479, 1.11624, 1.21674,
946 + .12071, .06881, 24.17256, 1.23945, 1.05777,
947 + .76358, 1.15202, 1.25231,
948 + .12244, .06959, 24.69725, 1.27312, 1.09211,
949 + .80042, 1.18603, 1.28614,
950 + .12407, .07032, 25.17681, 1.30471, 1.12430,
951 + .83497, 1.21795, 1.31788 /
952 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
953 + .12572, .07105, 25.65777, 1.33683, 1.15701,
954 + .87003, 1.25039, 1.35014,
955 + .12733, .07177, 26.10659, 1.36784, 1.18859,
956 + .90393, 1.28172, 1.38131,
957 + .12887, .07246, 26.53859, 1.39790, 1.21919,
958 + .93670, 1.31208, 1.41150,
959 + .13031, .07310, 26.92405, 1.42571, 1.24750,
960 + .96707, 1.34017, 1.43945,
961 + .13177, .07375, 27.31096, 1.45400, 1.27629,
962 + .99791, 1.36874, 1.46786 /
963 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
964 + .08616, .05308, 2.42055, .21997, .00169,
965 + .00000, .12320, .22934,
966 + .08889, .05435, 2.86595, .24266, .00350,
967 + .00000, .14329, .25231,
968 + .09294, .05622, 3.55845, .27765, .00744,
969 + .00000, .17439, .28771,
970 + .09585, .05757, 4.06772, .30350, .01161,
971 + .00000, .19755, .31386,
972 + .09888, .05897, 4.61119, .33089, .01767,
973 + .00000, .22231, .34156,
974 + .10148, .06017, 5.08543, .35449, .02473,
975 + .00000, .24389, .36542,
976 + .10392, .06130, 5.52653, .37637, .03345,
977 + .00000, .26422, .38755,
978 + .10652, .06250, 6.00497, .39935, .04542,
979 + .00000, .28597, .41078 /
980 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
981 + .10877, .06353, 6.42067, .41869, .05848,
982 + .00000, .30471, .43035,
983 + .11092, .06452, 6.81379, .43640, .07366,
984 + .00000, .32235, .44827,
985 + .11263, .06530, 7.13043, .45005, .08774,
986 + .00000, .33629, .46210,
987 + .11622, .06695, 7.78994, .47696, .12366,
988 + .00000, .36495, .48936,
989 + .11928, .06836, 8.34864, .49813, .16065,
990 + .00842, .38879, .51084,
991 + .12268, .06991, 8.96346, .52026, .20695,
992 + .03332, .41482, .53330,
993 + .12617, .07151, 9.58844, .54252, .25786,
994 + .07129, .44163, .55591,
995 + .12932, .07295, 10.14474, .56310, .30406,
996 + .10314, .46628, .57680 /
997 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
998 + .13245, .07437, 10.68234, .58448, .34856,
999 + .13561, .49137, .59848,
1000 + .13503, .07555, 11.11736, .60316, .38333,
1001 + .16250, .51269, .61742,
1002 + .13814, .07696, 11.63498, .62713, .42277,
1003 + .19515, .53928, .64169,
1004 + .14086, .07819, 12.07496, .64915, .45509,
1005 + .22382, .56312, .66396,
1006 + .14333, .07931, 12.46430, .66987, .48290,
1007 + .24991, .58518, .68492,
1008 + .14644, .08072, 12.94726, .69697, .51645,
1009 + .28302, .61361, .71232,
1010 + .14934, .08202, 13.37833, .72264, .54630,
1011 + .31373, .64026, .73827,
1012 + .15202, .08323, 13.76532, .74679, .57322,
1013 + .34220, .66516, .76268 /
1014 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1015 + .15469, .08443, 14.14441, .77122, .59967,
1016 + .37069, .69023, .78736,
1017 + .15726, .08558, 14.48963, .79463, .62460,
1018 + .39788, .71419, .81101,
1019 + .15969, .08667, 14.80943, .81689, .64802,
1020 + .42359, .73694, .83350,
1021 + .16195, .08768, 15.09556, .83758, .66964,
1022 + .44745, .75806, .85440,
1023 + .16420, .08868, 15.37317, .85825, .69115,
1024 + .47123, .77916, .87528,
1025 + .16640, .08966, 15.63328, .87832, .71198,
1026 + .49431, .79963, .89555,
1027 + .16848, .09059, 15.87167, .89724, .73160,
1028 + .51605, .81893, .91466,
1029 + .17043, .09145, 16.08542, .91482, .74982,
1030 + .53626, .83686, .93242 /
1031 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1032 + .17239, .09232, 16.29747, .93258, .76821,
1033 + .55665, .85498, .95036,
1034 + .17429, .09316, 16.48992, .94956, .78580,
1035 + .57618, .87230, .96751,
1036 + .17612, .09396, 16.67414, .96593, .80275,
1037 + .59498, .88901, .98405,
1038 + .17782, .09471, 16.83356, .98092, .81828,
1039 + .61223, .90430, .99919,
1040 + .17954, .09547, 16.99186, .99607, .83399,
1041 + .62967, .91977, 1.01450 /
1042 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1043 + .10831, .06328, 2.48306, .20897, .00161,
1044 + .00000, .11704, .22047,
1045 + .11154, .06480, 2.85603, .22871, .00328,
1046 + -.00001, .13459, .24055,
1047 + .11630, .06702, 3.42442, .25872, .00682,
1048 + -.00001, .16141, .27106,
1049 + .11972, .06862, 3.83560, .28059, .01050,
1050 + .00000, .18110, .29328,
1051 + .12327, .07027, 4.26822, .30348, .01576,
1052 + .00000, .20192, .31655,
1053 + .12630, .07168, 4.64087, .32299, .02182,
1054 + -.00001, .21988, .33638,
1055 + .12915, .07301, 4.98384, .34090, .02924,
1056 + -.00001, .23664, .35458,
1057 + .13217, .07441, 5.35164, .35951, .03935,
1058 + -.00001, .25441, .37351 /
1059 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1060 + .13477, .07561, 5.66799, .37502, .05029,
1061 + -.00001, .26959, .38929,
1062 + .13726, .07676, 5.96429, .38908, .06295,
1063 + -.00001, .28375, .40359,
1064 + .13922, .07767, 6.20111, .39982, .07462,
1065 + -.00001, .29487, .41454,
1066 + .14335, .07957, 6.68877, .42070, .10420,
1067 + -.00001, .31750, .43584,
1068 + .14686, .08119, 7.09622, .43685, .13441,
1069 + .00675, .33609, .45233,
1070 + .15074, .08297, 7.53871, .45345, .17191,
1071 + .02661, .35616, .46933,
1072 + .15471, .08479, 7.98212, .46994, .21274,
1073 + .05673, .37662, .48621,
1074 + .15828, .08641, 8.37150, .48506, .24942,
1075 + .08176, .39527, .50169 /
1076 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1077 + .16181, .08802, 8.74224, .50070, .28436,
1078 + .10707, .41411, .51768,
1079 + .16472, .08934, 9.03866, .51434, .31138,
1080 + .12787, .43002, .53159,
1081 + .16820, .09092, 9.38738, .53180, .34169,
1082 + .15296, .44975, .54939,
1083 + .17124, .09230, 9.67974, .54778, .36623,
1084 + .17484, .46734, .56567,
1085 + .17399, .09354, 9.93509, .56277, .38713,
1086 + .19462, .48352, .58092,
1087 + .17745, .09509, 10.24812, .58228, .41209,
1088 + .21955, .50426, .60077,
1089 + .18065, .09653, 10.52307, .60066, .43404,
1090 + .24251, .52356, .61944,
1091 + .18361, .09785, 10.76592, .61782, .45363,
1092 + .26365, .54145, .63688 /
1093 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1094 + .18655, .09916, 11.00103, .63508, .47273,
1095 + .28466, .55936, .65442,
1096 + .18936, .10041, 11.21121, .65150, .49058,
1097 + .30459, .57635, .67110,
1098 + .19201, .10158, 11.40366, .66703, .50724,
1099 + .32333, .59239, .68687,
1100 + .19447, .10267, 11.57279, .68135, .52250,
1101 + .34061, .60718, .70142,
1102 + .19692, .10375, 11.73472, .69558, .53760,
1103 + .35775, .62185, .71587,
1104 + .19930, .10480, 11.88396, .70930, .55213,
1105 + .37428, .63601, .72981,
1106 + .20154, .10578, 12.01862, .72215, .56573,
1107 + .38978, .64927, .74287,
1108 + .20363, .10670, 12.13691, .73403, .57829,
1109 + .40412, .66153, .75493 /
1110 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1111 + .20574, .10762, 12.25312, .74597, .59092,
1112 + .41852, .67386, .76706,
1113 + .20777, .10850, 12.35546, .75729, .60290,
1114 + .43223, .68555, .77856,
1115 + .20972, .10935, 12.45310, .76818, .61442,
1116 + .44539, .69680, .78962,
1117 + .21152, .11013, 12.53450, .77806, .62490,
1118 + .45739, .70701, .79965,
1119 + .21335, .11092, 12.61444, .78800, .63544,
1120 + .46946, .71729, .80976 /
1121 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1122 + .12729, .07226, 2.49979, .20152, .00155,
1123 + .00000, .11289, .21496,
1124 + .13091, .07397, 2.82079, .21910, .00313,
1125 + -.00001, .12861, .23292,
1126 + .13621, .07647, 3.30313, .24555, .00640,
1127 + -.00001, .15238, .25994,
1128 + .14001, .07825, 3.64785, .26463, .00973,
1129 + .00000, .16966, .27943,
1130 + .14395, .08009, 4.00681, .28444, .01445,
1131 + .00000, .18778, .29966,
1132 + .14730, .08166, 4.31311, .30119, .01983,
1133 + -.00001, .20330, .31676,
1134 + .15045, .08312, 4.59275, .31644, .02636,
1135 + -.00001, .21768, .33234,
1136 + .15378, .08467, 4.89012, .33217, .03521,
1137 + -.00001, .23283, .34842 /
1138 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1139 + .15664, .08600, 5.14393, .34519, .04474,
1140 + -.00001, .24569, .36173,
1141 + .15936, .08726, 5.37991, .35688, .05571,
1142 + -.00001, .25761, .37371,
1143 + .16152, .08825, 5.56744, .36577, .06579,
1144 + -.00001, .26692, .38282,
1145 + .16603, .09034, 5.95016, .38284, .09120,
1146 + -.00001, .28573, .40035,
1147 + .16986, .09210, 6.26648, .39585, .11700,
1148 + .00570, .30104, .41375,
1149 + .17406, .09402, 6.60644, .40906, .14882,
1150 + .02241, .31743, .42738,
1151 + .17837, .09599, 6.94323, .42204, .18322,
1152 + .04763, .33399, .44078,
1153 + .18222, .09774, 7.23577, .43388, .21390,
1154 + .06845, .34900, .45300 /
1155 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1156 + .18602, .09946, 7.51088, .44607, .24290,
1157 + .08937, .36407, .46557,
1158 + .18913, .10087, 7.72857, .45669, .26515,
1159 + .10648, .37674, .47649,
1160 + .19286, .10255, 7.98223, .47028, .28990,
1161 + .12702, .39240, .49044,
1162 + .19611, .10401, 8.19227, .48269, .30977,
1163 + .14482, .40628, .50315,
1164 + .19903, .10532, 8.37365, .49429, .32656,
1165 + .16084, .41900, .51503,
1166 + .20271, .10695, 8.59371, .50936, .34645,
1167 + .18094, .43523, .53045,
1168 + .20609, .10845, 8.78404, .52347, .36379,
1169 + .19935, .45025, .54487,
1170 + .20921, .10983, 8.94971, .53658, .37915,
1171 + .21621, .46409, .55827 /
1172 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1173 + .21230, .11119, 9.10843, .54971, .39403,
1174 + .23289, .47788, .57169,
1175 + .21525, .11249, 9.24739, .56212, .40784,
1176 + .24863, .49089, .58436,
1177 + .21801, .11370, 9.37324, .57381, .42066,
1178 + .26338, .50311, .59630,
1179 + .22058, .11482, 9.48181, .58452, .43235,
1180 + .27691, .51431, .60724,
1181 + .22313, .11592, 9.58424, .59511, .44385,
1182 + .29027, .52538, .61805,
1183 + .22559, .11699, 9.67684, .60526, .45486,
1184 + .30311, .53599, .62842,
1185 + .22791, .11799, 9.75898, .61473, .46512,
1186 + .31510, .54590, .63810,
1187 + .23007, .11892, 9.82941, .62343, .47456,
1188 + .32615, .55500, .64698 /
1189 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1190 + .23223, .11985, 9.89785, .63215, .48401,
1191 + .33721, .56413, .65588,
1192 + .23432, .12074, 9.95571, .64035, .49292,
1193 + .34769, .57273, .66425,
1194 + .23631, .12159, 10.01079, .64821, .50148,
1195 + .35773, .58098, .67229,
1196 + .23816, .12237, 10.05429, .65529, .50920,
1197 + .36683, .58842, .67952,
1198 + .24002, .12316, 10.09638, .66240, .51696,
1199 + .37598, .59589, .68678 /
1200 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1201 + .14421, .08045, 2.49098, .19582, .00152,
1202 + .00000, .10979, .21112,
1203 + .14814, .08231, 2.77185, .21169, .00302,
1204 + .00000, .12406, .22741,
1205 + .15389, .08502, 3.18938, .23538, .00608,
1206 + .00000, .14547, .25172,
1207 + .15799, .08695, 3.48493, .25233, .00916,
1208 + .00000, .16092, .26911,
1209 + .16223, .08894, 3.79017, .26981, .01346,
1210 + .00000, .17702, .28705,
1211 + .16584, .09062, 4.04872, .28450, .01832,
1212 + .00000, .19073, .30212,
1213 + .16922, .09220, 4.28323, .29779, .02420,
1214 + .00000, .20336, .31576,
1215 + .17278, .09385, 4.53092, .31142, .03211,
1216 + .00000, .21659, .32977 /
1217 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1218 + .17584, .09527, 4.74096, .32262, .04059,
1219 + .00000, .22777, .34128,
1220 + .17875, .09661, 4.93509, .33262, .05032,
1221 + .00000, .23808, .35158,
1222 + .18104, .09767, 5.08866, .34018, .05923,
1223 + .00000, .24611, .35937,
1224 + .18584, .09988, 5.39972, .35456, .08161,
1225 + .00000, .26222, .37424,
1226 + .18990, .10174, 5.65434, .36539, .10422,
1227 + .00497, .27522, .38547,
1228 + .19436, .10376, 5.92554, .37625, .13196,
1229 + .01945, .28905, .39678,
1230 + .19890, .10582, 6.19161, .38681, .16180,
1231 + .04124, .30293, .40780,
1232 + .20294, .10765, 6.42054, .39641, .18825,
1233 + .05914, .31544, .41779 /
1234 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1235 + .20694, .10945, 6.63341, .40626, .21309,
1236 + .07704, .32794, .42803,
1237 + .21019, .11091, 6.80027, .41484, .23204,
1238 + .09161, .33842, .43691,
1239 + .21409, .11264, 6.99294, .42582, .25299,
1240 + .10904, .35132, .44826,
1241 + .21746, .11414, 7.15045, .43583, .26969,
1242 + .12408, .36273, .45858,
1243 + .22050, .11548, 7.28504, .44517, .28370,
1244 + .13756, .37313, .46820,
1245 + .22431, .11716, 7.44677, .45726, .30020,
1246 + .15442, .38635, .48064,
1247 + .22780, .11869, 7.58445, .46854, .31447,
1248 + .16978, .39853, .49223,
1249 + .23101, .12009, 7.70261, .47897, .32705,
1250 + .18379, .40970, .50295 /
1251 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1252 + .23418, .12147, 7.81467, .48939, .33917,
1253 + .19761, .42079, .51365,
1254 + .23720, .12277, 7.91035, .49917, .35034,
1255 + .21060, .43119, .52369,
1256 + .24002, .12399, 7.99595, .50834, .36067,
1257 + .22271, .44092, .53310,
1258 + .24264, .12510, 8.06816, .51671, .37005,
1259 + .23380, .44980, .54169,
1260 + .24522, .12621, 8.13510, .52494, .37924,
1261 + .24470, .45853, .55014,
1262 + .24772, .12727, 8.19418, .53279, .38799,
1263 + .25514, .46687, .55820,
1264 + .25007, .12826, 8.24539, .54008, .39613,
1265 + .26486, .47462, .56569,
1266 + .25224, .12917, 8.28780, .54674, .40357,
1267 + .27379, .48171, .57252 /
1268 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1269 + .25443, .13009, 8.32844, .55339, .41101,
1270 + .28271, .48880, .57936,
1271 + .25652, .13096, 8.36080, .55961, .41799,
1272 + .29113, .49544, .58574,
1273 + .25852, .13179, 8.39155, .56556, .42467,
1274 + .29917, .50179, .59185,
1275 + .26036, .13255, 8.41363, .57087, .43067,
1276 + .30644, .50748, .59730,
1277 + .26221, .13332, 8.43442, .57619, .43668,
1278 + .31372, .51319, .60276 /
1279 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1280 + .17400, .09527, 2.43208, .18717, .00146,
1281 + .00000, .10525, .20600,
1282 + .17840, .09735, 2.65404, .20042, .00286,
1283 + .00000, .11731, .21972,
1284 + .18482, .10037, 2.97875, .21995, .00562,
1285 + .00001, .13520, .23995,
1286 + .18937, .10250, 3.20529, .23376, .00831,
1287 + .00001, .14796, .25424,
1288 + .19406, .10468, 3.43635, .24787, .01201,
1289 + .00001, .16113, .26884,
1290 + .19804, .10653, 3.62982, .25959, .01613,
1291 + .00001, .17225, .28098,
1292 + .20176, .10824, 3.80338, .27010, .02106,
1293 + .00001, .18241, .29188,
1294 + .20566, .11003, 3.98476, .28078, .02763,
1295 + .00001, .19297, .30295 /
1296 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1297 + .20900, .11156, 4.13700, .28946, .03463,
1298 + .00001, .20182, .31197,
1299 + .21216, .11301, 4.27622, .29713, .04261,
1300 + .00001, .20992, .31995,
1301 + .21465, .11414, 4.38554, .30286, .04988,
1302 + .00001, .21618, .32593,
1303 + .21984, .11649, 4.60407, .31361, .06802,
1304 + .00001, .22863, .33718,
1305 + .22420, .11845, 4.78026, .32152, .08620,
1306 + .00398, .23855, .34551,
1307 + .22897, .12059, 4.96501, .32929, .10835,
1308 + .01547, .24898, .35374,
1309 + .23380, .12274, 5.14301, .33671, .13197,
1310 + .03268, .25934, .36161,
1311 + .23809, .12463, 5.29362, .34339, .15273,
1312 + .04669, .26861, .36870 /
1313 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1314 + .24229, .12647, 5.43041, .35023, .17204,
1315 + .06061, .27778, .37592,
1316 + .24571, .12796, 5.53572, .35619, .18664,
1317 + .07187, .28542, .38218,
1318 + .24977, .12973, 5.65525, .36381, .20261,
1319 + .08525, .29480, .39016,
1320 + .25328, .13124, 5.75067, .37075, .21521,
1321 + .09672, .30302, .39740,
1322 + .25642, .13259, 5.83026, .37720, .22568,
1323 + .10694, .31048, .40412,
1324 + .26033, .13426, 5.92388, .38552, .23786,
1325 + .11964, .31991, .41277,
1326 + .26390, .13577, 6.00072, .39322, .24829,
1327 + .13114, .32851, .42077,
1328 + .26717, .13714, 6.06420, .40029, .25738,
1329 + .14156, .33634, .42810 /
1330 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1331 + .27038, .13848, 6.12284, .40731, .26607,
1332 + .15178, .34407, .43538,
1333 + .27342, .13974, 6.16974, .41382, .27401,
1334 + .16130, .35123, .44212,
1335 + .27625, .14090, 6.21038, .41989, .28129,
1336 + .17016, .35790, .44841,
1337 + .27886, .14196, 6.24250, .42536, .28785,
1338 + .17821, .36393, .45408,
1339 + .28143, .14301, 6.27060, .43071, .29424,
1340 + .18609, .36982, .45962,
1341 + .28389, .14400, 6.29328, .43576, .30028,
1342 + .19359, .37540, .46485,
1343 + .28620, .14493, 6.31123, .44041, .30585,
1344 + .20054, .38054, .46966,
1345 + .28833, .14577, 6.32383, .44460, .31091,
1346 + .20688, .38520, .47400 /
1347 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1348 + .29046, .14661, 6.33503, .44876, .31594,
1349 + .21319, .38984, .47832,
1350 + .29249, .14741, 6.34054, .45259, .32062,
1351 + .21911, .39412, .48228,
1352 + .29442, .14816, 6.34575, .45625, .32509,
1353 + .22474, .39822, .48607,
1354 + .29619, .14885, 6.34566, .45946, .32905,
1355 + .22980, .40183, .48939,
1356 + .29796, .14953, 6.34453, .46265, .33301,
1357 + .23485, .40544, .49270 /
1358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1359 + .21230, .11496, 2.29683, .17754, .00140,
1360 + .00000, .10049, .20130,
1361 + .21718, .11722, 2.46082, .18799, .00269,
1362 + .00000, .11020, .21225,
1363 + .22425, .12049, 2.69688, .20319, .00513,
1364 + .00000, .12444, .22818,
1365 + .22923, .12277, 2.85899, .21381, .00743,
1366 + .00000, .13448, .23930,
1367 + .23435, .12510, 3.02207, .22453, .01053,
1368 + .00000, .14474, .25052,
1369 + .23868, .12705, 3.15685, .23334, .01391,
1370 + .00000, .15332, .25975,
1371 + .24268, .12884, 3.27611, .24115, .01791,
1372 + .00000, .16109, .26795,
1373 + .24687, .13072, 3.39927, .24899, .02318,
1374 + .00000, .16910, .27619 /
1375 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1376 + .25045, .13231, 3.50142, .25529, .02873,
1377 + .00000, .17575, .28282,
1378 + .25381, .13379, 3.59355, .26078, .03502,
1379 + .00000, .18179, .28861,
1380 + .25646, .13495, 3.66526, .26483, .04071,
1381 + .00000, .18642, .29290,
1382 + .26193, .13734, 3.80626, .27225, .05482,
1383 + .00000, .19552, .30081,
1384 + .26650, .13932, 3.91743, .27754, .06885,
1385 + .00305, .20267, .30650,
1386 + .27147, .14145, 4.03145, .28257, .08580,
1387 + .01182, .21009, .31195,
1388 + .27647, .14357, 4.13851, .28725, .10371,
1389 + .02489, .21736, .31705,
1390 + .28087, .14542, 4.22678, .29142, .11931,
1391 + .03545, .22378, .32158 /
1392 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1393 + .28514, .14720, 4.30417, .29567, .13369,
1394 + .04584, .23008, .32616,
1395 + .28860, .14863, 4.36189, .29937, .14444,
1396 + .05420, .23530, .33013,
1397 + .29269, .15030, 4.42550, .30414, .15609,
1398 + .06406, .24166, .33521,
1399 + .29619, .15171, 4.47400, .30847, .16516,
1400 + .07246, .24720, .33979,
1401 + .29930, .15296, 4.51250, .31248, .17262,
1402 + .07989, .25218, .34402,
1403 + .30315, .15450, 4.55581, .31764, .18119,
1404 + .08907, .25843, .34945,
1405 + .30663, .15586, 4.58837, .32237, .18844,
1406 + .09730, .26406, .35440,
1407 + .30979, .15708, 4.61279, .32665, .19467,
1408 + .10471, .26914, .35889 /
1409 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1410 + .31288, .15827, 4.63376, .33087, .20058,
1411 + .11194, .27411, .36331,
1412 + .31577, .15936, 4.64677, .33471, .20590,
1413 + .11861, .27864, .36731,
1414 + .31845, .16037, 4.65647, .33825, .21075,
1415 + .12478, .28283, .37101,
1416 + .32090, .16127, 4.66129, .34140, .21507,
1417 + .13035, .28657, .37430,
1418 + .32329, .16215, 4.66329, .34442, .21924,
1419 + .13577, .29018, .37745,
1420 + .32557, .16297, 4.66190, .34724, .22315,
1421 + .14089, .29356, .38038,
1422 + .32768, .16373, 4.65818, .34978, .22672,
1423 + .14561, .29664, .38303,
1424 + .32962, .16441, 4.65172, .35204, .22994,
1425 + .14989, .29940, .38538 /
1426 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1427 + .33154, .16509, 4.64427, .35426, .23312,
1428 + .15413, .30212, .38769,
1429 + .33336, .16571, 4.63315, .35622, .23603,
1430 + .15807, .30457, .38973,
1431 + .33509, .16630, 4.62265, .35810, .23880,
1432 + .16180, .30692, .39169,
1433 + .33665, .16681, 4.60939, .35968, .24122,
1434 + .16513, .30893, .39333,
1435 + .33821, .16733, 4.59540, .36124, .24362,
1436 + .16843, .31093, .39495 /
1437 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1438 + .26630, .14341, 2.04049, .16514, .00132,
1439 + -.00002, .09480, .19622,
1440 + .27160, .14573, 2.14877, .17246, .00248,
1441 + -.00002, .10192, .20403,
1442 + .27922, .14904, 2.30176, .18299, .00457,
1443 + -.00001, .11224, .21522,
1444 + .28454, .15132, 2.40481, .19023, .00646,
1445 + -.00002, .11943, .22291,
1446 + .28996, .15362, 2.50674, .19744, .00893,
1447 + -.00002, .12669, .23057,
1448 + .29449, .15553, 2.58961, .20330, .01156,
1449 + -.00002, .13270, .23677,
1450 + .29865, .15727, 2.66154, .20840, .01460,
1451 + -.00002, .13808, .24220,
1452 + .30299, .15906, 2.73463, .21344, .01856,
1453 + -.00002, .14358, .24756 /
1454 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1455 + .30666, .16055, 2.79416, .21741, .02267,
1456 + -.00002, .14809, .25180,
1457 + .31008, .16194, 2.84671, .22079, .02729,
1458 + -.00002, .15214, .25542,
1459 + .31276, .16302, 2.88713, .22324, .03144,
1460 + -.00002, .15522, .25805,
1461 + .31827, .16519, 2.96428, .22753, .04162,
1462 + -.00002, .16117, .26272,
1463 + .32280, .16697, 3.02285, .23041, .05163,
1464 + .00216, .16575, .26588,
1465 + .32767, .16884, 3.08060, .23296, .06362,
1466 + .00839, .17040, .26873,
1467 + .33252, .17067, 3.13216, .23519, .07617,
1468 + .01763, .17488, .27125,
1469 + .33673, .17224, 3.17232, .23715, .08698,
1470 + .02501, .17878, .27342 /
1471 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1472 + .34078, .17370, 3.20454, .23911, .09684,
1473 + .03222, .18254, .27559,
1474 + .34400, .17485, 3.22668, .24085, .10413,
1475 + .03796, .18563, .27748,
1476 + .34778, .17618, 3.24906, .24314, .11193,
1477 + .04469, .18936, .27993,
1478 + .35096, .17727, 3.26352, .24522, .11792,
1479 + .05036, .19256, .28215,
1480 + .35375, .17821, 3.27270, .24714, .12277,
1481 + .05534, .19541, .28416,
1482 + .35717, .17934, 3.28064, .24960, .12828,
1483 + .06144, .19894, .28673,
1484 + .36021, .18032, 3.28268, .25180, .13285,
1485 + .06686, .20207, .28902,
1486 + .36292, .18116, 3.28057, .25375, .13672,
1487 + .07170, .20484, .29104 /
1488 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1489 + .36555, .18196, 3.27631, .25564, .14034,
1490 + .07638, .20751, .29299,
1491 + .36795, .18266, 3.26739, .25727, .14355,
1492 + .08066, .20988, .29466,
1493 + .37016, .18329, 3.25741, .25875, .14643,
1494 + .08458, .21203, .29616,
1495 + .37213, .18383, 3.24534, .26000, .14896,
1496 + .08809, .21391, .29742,
1497 + .37403, .18433, 3.23151, .26115, .15137,
1498 + .09147, .21568, .29859,
1499 + .37582, .18479, 3.21587, .26217, .15360,
1500 + .09465, .21729, .29961,
1501 + .37745, .18518, 3.19965, .26304, .15561,
1502 + .09754, .21873, .30047,
1503 + .37891, .18552, 3.18263, .26376, .15738,
1504 + .10014, .21997, .30117 /
1505 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1506 + .38034, .18585, 3.16503, .26445, .15913,
1507 + .10270, .22118, .30183,
1508 + .38165, .18613, 3.14534, .26498, .16069,
1509 + .10506, .22221, .30232,
1510 + .38290, .18639, 3.12683, .26548, .16217,
1511 + .10728, .22320, .30280,
1512 + .38399, .18659, 3.10731, .26582, .16343,
1513 + .10923, .22399, .30310,
1514 + .38506, .18677, 3.08739, .26613, .16467,
1515 + .11116, .22475, .30337 /
1516 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1517 + .31294, .16794, 1.79680, .15450, .00125,
1518 + -.00001, .09021, .19191,
1519 + .31834, .17012, 1.87464, .15978, .00233,
1520 + -.00001, .09564, .19756,
1521 + .32605, .17318, 1.98327, .16729, .00419,
1522 + -.00001, .10342, .20557,
1523 + .33139, .17526, 2.05532, .17240, .00582,
1524 + -.00001, .10879, .21101,
1525 + .33678, .17733, 2.12557, .17742, .00788,
1526 + -.00001, .11418, .21635,
1527 + .34125, .17903, 2.18192, .18145, .01005,
1528 + -.00001, .11861, .22061,
1529 + .34531, .18054, 2.22980, .18491, .01251,
1530 + -.00001, .12254, .22428,
1531 + .34952, .18208, 2.27776, .18827, .01566,
1532 + -.00002, .12652, .22784 /
1533 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1534 + .35306, .18335, 2.31612, .19085, .01891,
1535 + -.00001, .12975, .23059,
1536 + .35633, .18451, 2.34919, .19299, .02252,
1537 + -.00002, .13262, .23286,
1538 + .35888, .18541, 2.37433, .19450, .02574,
1539 + -.00002, .13479, .23448,
1540 + .36405, .18717, 2.42057, .19700, .03360,
1541 + -.00002, .13891, .23716,
1542 + .36826, .18857, 2.45409, .19850, .04126,
1543 + .00166, .14202, .23881,
1544 + .37273, .19002, 2.48539, .19967, .05037,
1545 + .00644, .14511, .24010,
1546 + .37710, .19138, 2.51119, .20057, .05984,
1547 + .01348, .14803, .24109,
1548 + .38085, .19252, 2.52940, .20131, .06793,
1549 + .01907, .15052, .24189 /
1550 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1551 + .38439, .19354, 2.54139, .20205, .07525,
1552 + .02448, .15289, .24267,
1553 + .38717, .19431, 2.54779, .20274, .08061,
1554 + .02877, .15482, .24338,
1555 + .39038, .19517, 2.55217, .20370, .08630,
1556 + .03376, .15712, .24433,
1557 + .39303, .19584, 2.55201, .20458, .09062,
1558 + .03794, .15907, .24519,
1559 + .39533, .19638, 2.54885, .20540, .09409,
1560 + .04159, .16078, .24597,
1561 + .39809, .19701, 2.54219, .20645, .09797,
1562 + .04603, .16287, .24696,
1563 + .40049, .19750, 2.53206, .20734, .10115,
1564 + .04994, .16468, .24779,
1565 + .40258, .19789, 2.51966, .20809, .10381,
1566 + .05341, .16625, .24845 /
1567 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1568 + .40457, .19823, 2.50581, .20879, .10627,
1569 + .05675, .16773, .24907,
1570 + .40632, .19848, 2.48892, .20931, .10840,
1571 + .05976, .16898, .24947,
1572 + .40790, .19868, 2.47199, .20975, .11030,
1573 + .06250, .17010, .24980,
1574 + .40927, .19882, 2.45422, .21006, .11194,
1575 + .06494, .17104, .25000,
1576 + .41056, .19891, 2.43529, .21029, .11348,
1577 + .06728, .17189, .25012,
1578 + .41173, .19896, 2.41534, .21044, .11489,
1579 + .06945, .17262, .25014,
1580 + .41277, .19898, 2.39554, .21051, .11614,
1581 + .07142, .17325, .25008,
1582 + .41366, .19895, 2.37570, .21049, .11723,
1583 + .07318, .17376, .24994 /
1584 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1585 + .41452, .19892, 2.35554, .21045, .11829,
1586 + .07490, .17423, .24977,
1587 + .41526, .19882, 2.33417, .21030, .11921,
1588 + .07647, .17458, .24949,
1589 + .41596, .19873, 2.31413, .21016, .12008,
1590 + .07794, .17491, .24923,
1591 + .41651, .19859, 2.29378, .20993, .12079,
1592 + .07922, .17512, .24886,
1593 + .41704, .19845, 2.27320, .20967, .12148,
1594 + .08047, .17530, .24847 /
1595 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1596 + .39278, .20819, 1.40209, .13526, .00116,
1597 + .00000, .08196, .18224,
1598 + .39778, .20973, 1.45208, .13808, .00211,
1599 + .00000, .08531, .18511,
1600 + .40480, .21179, 1.52034, .14199, .00369,
1601 + .00000, .09004, .18908,
1602 + .40953, .21312, 1.56425, .14460, .00500,
1603 + .00000, .09326, .19168,
1604 + .41421, .21438, 1.60584, .14710, .00660,
1605 + .00000, .09644, .19414,
1606 + .41804, .21536, 1.63817, .14904, .00821,
1607 + .00001, .09902, .19601,
1608 + .42142, .21618, 1.66433, .15062, .00999,
1609 + .00000, .10127, .19753,
1610 + .42486, .21697, 1.68971, .15209, .01222,
1611 + -.00001, .10350, .19890 /
1612 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1613 + .42769, .21758, 1.70911, .15313, .01448,
1614 + -.00001, .10528, .19984,
1615 + .43025, .21809, 1.72471, .15390, .01695,
1616 + -.00001, .10681, .20051,
1617 + .43222, .21847, 1.73618, .15438, .01913,
1618 + .00000, .10795, .20091,
1619 + .43608, .21911, 1.75501, .15494, .02436,
1620 + .00000, .11003, .20124,
1621 + .43912, .21954, 1.76642, .15500, .02940,
1622 + .00112, .11151, .20108,
1623 + .44221, .21989, 1.77460, .15474, .03532,
1624 + .00427, .11289, .20055,
1625 + .44509, .22011, 1.77816, .15425, .04139,
1626 + .00890, .11411, .19976,
1627 + .44745, .22020, 1.77767, .15376, .04651,
1628 + .01252, .11511, .19900 /
1629 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1630 + .44952, .22017, 1.77275, .15328, .05109,
1631 + .01599, .11599, .19819,
1632 + .45106, .22005, 1.76623, .15291, .05440,
1633 + .01871, .11668, .19756,
1634 + .45274, .21984, 1.75611, .15255, .05785,
1635 + .02183, .11750, .19686,
1636 + .45402, .21957, 1.74454, .15226, .06042,
1637 + .02443, .11816, .19625,
1638 + .45502, .21925, 1.73202, .15199, .06244,
1639 + .02667, .11869, .19569,
1640 + .45613, .21878, 1.71460, .15165, .06466,
1641 + .02936, .11931, .19499,
1642 + .45694, .21825, 1.69581, .15128, .06642,
1643 + .03170, .11978, .19425,
1644 + .45752, .21768, 1.67657, .15088, .06785,
1645 + .03375, .12014, .19350 /
1646 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1647 + .45801, .21708, 1.65669, .15046, .06914,
1648 + .03569, .12044, .19272,
1649 + .45826, .21641, 1.63528, .14995, .07022,
1650 + .03742, .12060, .19184,
1651 + .45841, .21574, 1.61467, .14944, .07117,
1652 + .03898, .12072, .19098,
1653 + .45843, .21507, 1.59428, .14890, .07195,
1654 + .04035, .12075, .19011,
1655 + .45835, .21436, 1.57336, .14831, .07267,
1656 + .04165, .12073, .18918,
1657 + .45817, .21362, 1.55219, .14768, .07329,
1658 + .04282, .12064, .18822,
1659 + .45793, .21288, 1.53177, .14705, .07382,
1660 + .04388, .12051, .18727,
1661 + .45760, .21216, 1.51195, .14641, .07426,
1662 + .04480, .12033, .18632 /
1663 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1664 + .45724, .21142, 1.49208, .14574, .07468,
1665 + .04570, .12013, .18536,
1666 + .45676, .21064, 1.47173, .14503, .07501,
1667 + .04650, .11986, .18434,
1668 + .45630, .20990, 1.45273, .14436, .07533,
1669 + .04725, .11961, .18338,
1670 + .45574, .20916, 1.43406, .14366, .07555,
1671 + .04788, .11930, .18240,
1672 + .45515, .20840, 1.41535, .14295, .07576,
1673 + .04849, .11898, .18141 /
1674 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1675 + .46020, .23900, 1.12967, .11752, .00111,
1676 + .00000, .07400, .17037,
1677 + .46423, .23961, 1.16913, .11899, .00199,
1678 + .00000, .07617, .17156,
1679 + .46971, .24030, 1.22159, .12100, .00340,
1680 + .00000, .07918, .17310,
1681 + .47327, .24063, 1.25404, .12228, .00453,
1682 + .00000, .08120, .17401,
1683 + .47668, .24084, 1.28369, .12345, .00586,
1684 + .00000, .08317, .17477,
1685 + .47938, .24091, 1.30584, .12429, .00716,
1686 + .00001, .08472, .17526,
1687 + .48164, .24086, 1.32257, .12491, .00857,
1688 + .00000, .08604, .17551,
1689 + .48387, .24074, 1.33806, .12540, .01029,
1690 + .00000, .08732, .17561 /
1691 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1692 + .48563, .24057, 1.34906, .12566, .01200,
1693 + .00000, .08831, .17552,
1694 + .48714, .24031, 1.35688, .12574, .01384,
1695 + .00000, .08912, .17525,
1696 + .48828, .24007, 1.36230, .12571, .01545,
1697 + .00000, .08971, .17495,
1698 + .49030, .23946, 1.36892, .12532, .01927,
1699 + .00000, .09070, .17394,
1700 + .49173, .23880, 1.37050, .12469, .02289,
1701 + .00082, .09131, .17277,
1702 + .49300, .23796, 1.36848, .12376, .02708,
1703 + .00310, .09179, .17122,
1704 + .49397, .23696, 1.36238, .12266, .03133,
1705 + .00642, .09213, .16946,
1706 + .49461, .23594, 1.35394, .12161, .03488,
1707 + .00900, .09236, .16786 /
1708 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1709 + .49489, .23480, 1.34191, .12057, .03800,
1710 + .01144, .09249, .16623,
1711 + .49494, .23379, 1.33018, .11976, .04023,
1712 + .01334, .09257, .16490,
1713 + .49482, .23251, 1.31442, .11885, .04252,
1714 + .01550, .09265, .16334,
1715 + .49449, .23131, 1.29859, .11805, .04419,
1716 + .01727, .09266, .16199,
1717 + .49402, .23015, 1.28277, .11732, .04547,
1718 + .01878, .09263, .16076,
1719 + .49328, .22863, 1.26179, .11641, .04684,
1720 + .02058, .09255, .15923,
1721 + .49237, .22712, 1.24051, .11551, .04790,
1722 + .02212, .09240, .15775,
1723 + .49132, .22566, 1.21963, .11466, .04873,
1724 + .02345, .09219, .15632 /
1725 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1726 + .49019, .22418, 1.19854, .11380, .04946,
1727 + .02471, .09195, .15489,
1728 + .48885, .22267, 1.17667, .11289, .05003,
1729 + .02581, .09162, .15343,
1730 + .48752, .22123, 1.15598, .11202, .05051,
1731 + .02678, .09129, .15204,
1732 + .48614, .21982, 1.13602, .11116, .05089,
1733 + .02762, .09092, .15069,
1734 + .48468, .21840, 1.11585, .11028, .05121,
1735 + .02841, .09052, .14932,
1736 + .48314, .21697, 1.09579, .10939, .05148,
1737 + .02911, .09009, .14795,
1738 + .48161, .21559, 1.07671, .10852, .05169,
1739 + .02974, .08965, .14664,
1740 + .48008, .21426, 1.05847, .10767, .05185,
1741 + .03028, .08920, .14538 /
1742 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1743 + .47852, .21292, 1.04033, .10681, .05199,
1744 + .03079, .08874, .14411,
1745 + .47684, .21156, 1.02208, .10594, .05207,
1746 + .03124, .08823, .14281,
1747 + .47526, .21028, 1.00510, .10512, .05214,
1748 + .03165, .08776, .14159,
1749 + .47365, .20902, .98869, .10430, .05216,
1750 + .03199, .08726, .14039,
1751 + .47201, .20776, .97234, .10347, .05217,
1752 + .03231, .08676, .13919 /
1753 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1754 + .51785, .26192, .95254, .10111, .00108,
1755 + .00000, .06614, .15671,
1756 + .52047, .26149, .98639, .10184, .00191,
1757 + -.00001, .06758, .15681,
1758 + .52384, .26065, 1.02991, .10277, .00321,
1759 + -.00001, .06955, .15682,
1760 + .52583, .25989, 1.05549, .10330, .00422,
1761 + .00000, .07083, .15667,
1762 + .52757, .25897, 1.07775, .10373, .00538,
1763 + .00000, .07205, .15635,
1764 + .52882, .25810, 1.09349, .10398, .00647,
1765 + -.00001, .07297, .15596,
1766 + .52969, .25714, 1.10414, .10406, .00763,
1767 + -.00001, .07373, .15543,
1768 + .53044, .25607, 1.11325, .10402, .00902,
1769 + .00000, .07443, .15473 /
1770 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1771 + .53091, .25508, 1.11882, .10385, .01038,
1772 + .00000, .07494, .15399,
1773 + .53115, .25405, 1.12159, .10357, .01182,
1774 + .00000, .07532, .15316,
1775 + .53128, .25321, 1.12307, .10327, .01307,
1776 + -.00001, .07557, .15244,
1777 + .53118, .25132, 1.12178, .10241, .01598,
1778 + -.00001, .07590, .15064,
1779 + .53077, .24959, 1.11706, .10144, .01870,
1780 + .00061, .07600, .14888,
1781 + .53000, .24757, 1.10859, .10021, .02182,
1782 + .00235, .07597, .14676,
1783 + .52887, .24539, 1.09651, .09883, .02494,
1784 + .00487, .07581, .14446,
1785 + .52759, .24334, 1.08324, .09756, .02751,
1786 + .00679, .07560, .14239 /
1787 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1788 + .52598, .24117, 1.06711, .09631, .02973,
1789 + .00860, .07532, .14029,
1790 + .52445, .23933, 1.05244, .09530, .03130,
1791 + .00998, .07506, .13860,
1792 + .52243, .23708, 1.03363, .09414, .03287,
1793 + .01155, .07473, .13662,
1794 + .52045, .23503, 1.01568, .09313, .03399,
1795 + .01282, .07441, .13491,
1796 + .51847, .23311, .99837, .09222, .03483,
1797 + .01389, .07407, .13334,
1798 + .51584, .23067, .97597, .09108, .03570,
1799 + .01516, .07362, .13139,
1800 + .51315, .22831, .95398, .09000, .03633,
1801 + .01622, .07314, .12954,
1802 + .51049, .22607, .93288, .08897, .03681,
1803 + .01713, .07265, .12782 /
1804 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1805 + .50778, .22384, .91189, .08794, .03721,
1806 + .01797, .07215, .12611,
1807 + .50492, .22159, .89067, .08689, .03749,
1808 + .01870, .07159, .12440,
1809 + .50217, .21948, .87081, .08590, .03772,
1810 + .01934, .07105, .12279,
1811 + .49944, .21748, .85193, .08496, .03787,
1812 + .01990, .07050, .12126,
1813 + .49666, .21546, .83308, .08400, .03799,
1814 + .02040, .06993, .11972,
1815 + .49384, .21346, .81457, .08305, .03806,
1816 + .02083, .06936, .11821,
1817 + .49111, .21156, .79714, .08214, .03810,
1818 + .02121, .06879, .11677,
1819 + .48845, .20976, .78066, .08126, .03811,
1820 + .02153, .06822, .11540 /
1821 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1822 + .48577, .20795, .76437, .08039, .03811,
1823 + .02184, .06766, .11403,
1824 + .48301, .20613, .74819, .07950, .03806,
1825 + .02210, .06707, .11267,
1826 + .48041, .20442, .73319, .07866, .03801,
1827 + .02234, .06652, .11139,
1828 + .47784, .20276, .71886, .07785, .03793,
1829 + .02252, .06597, .11015,
1830 + .47525, .20110, .70465, .07704, .03784,
1831 + .02269, .06541, .10891 /
1832 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1833 + .57769, .28112, .82304, .08259, .00105,
1834 + -.00001, .05660, .13823,
1835 + .57815, .27935, .85048, .08285, .00185,
1836 + .00000, .05750, .13750,
1837 + .57831, .27660, .88381, .08308, .00304,
1838 + -.00001, .05867, .13631,
1839 + .57798, .27447, .90162, .08312, .00394,
1840 + -.00001, .05938, .13534,
1841 + .57732, .27215, .91564, .08306, .00493,
1842 + -.00001, .06001, .13423,
1843 + .57650, .27010, .92430, .08292, .00585,
1844 + -.00001, .06047, .13318,
1845 + .57539, .26804, .92837, .08265, .00679,
1846 + -.00001, .06079, .13207,
1847 + .57406, .26583, .93064, .08228, .00789,
1848 + -.00001, .06104, .13081 /
1849 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1850 + .57272, .26389, .93047, .08187, .00894,
1851 + .00000, .06119, .12962,
1852 + .57124, .26195, .92800, .08136, .01003,
1853 + -.00001, .06124, .12840,
1854 + .57001, .26040, .92543, .08091, .01096,
1855 + -.00001, .06124, .12739,
1856 + .56704, .25705, .91620, .07979, .01311,
1857 + .00000, .06110, .12506,
1858 + .56420, .25409, .90534, .07868, .01508,
1859 + .00045, .06084, .12293,
1860 + .56076, .25076, .89076, .07732, .01730,
1861 + .00173, .06044, .12046,
1862 + .55689, .24727, .87321, .07587, .01948,
1863 + .00358, .05994, .11787,
1864 + .55319, .24406, .85570, .07454, .02123,
1865 + .00497, .05944, .11558 /
1866 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1867 + .54915, .24079, .83616, .07325, .02272,
1868 + .00625, .05888, .11326,
1869 + .54567, .23806, .81919, .07220, .02375,
1870 + .00723, .05841, .11139,
1871 + .54133, .23476, .79817, .07098, .02475,
1872 + .00832, .05782, .10920,
1873 + .53733, .23183, .77887, .06991, .02544,
1874 + .00918, .05729, .10730,
1875 + .53355, .22911, .76078, .06894, .02593,
1876 + .00990, .05677, .10560,
1877 + .52867, .22569, .73787, .06775, .02640,
1878 + .01075, .05611, .10350,
1879 + .52391, .22249, .71599, .06663, .02673,
1880 + .01144, .05545, .10151,
1881 + .51935, .21948, .69548, .06557, .02694,
1882 + .01203, .05481, .09968 /
1883 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1884 + .51478, .21650, .67536, .06454, .02710,
1885 + .01257, .05417, .09788,
1886 + .51013, .21356, .65545, .06350, .02718,
1887 + .01302, .05349, .09611,
1888 + .50573, .21082, .63705, .06254, .02722,
1889 + .01341, .05286, .09446,
1890 + .50151, .20823, .61985, .06162, .02722,
1891 + .01373, .05224, .09291,
1892 + .49726, .20565, .60287, .06069, .02720,
1893 + .01402, .05161, .09138,
1894 + .49303, .20310, .58641, .05978, .02715,
1895 + .01427, .05098, .08988,
1896 + .48898, .20071, .57105, .05893, .02707,
1897 + .01449, .05037, .08847,
1898 + .48508, .19846, .55671, .05812, .02698,
1899 + .01465, .04980, .08713 /
1900 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1901 + .48117, .19622, .54262, .05731, .02689,
1902 + .01481, .04922, .08581,
1903 + .47725, .19397, .52880, .05650, .02677,
1904 + .01494, .04863, .08449,
1905 + .47357, .19187, .51605, .05574, .02665,
1906 + .01506, .04807, .08327,
1907 + .46999, .18987, .50402, .05500, .02652,
1908 + .01514, .04753, .08210,
1909 + .46640, .18786, .49215, .05427, .02638,
1910 + .01520, .04699, .08094 /
1911 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1912 + .62478, .29144, .75608, .06649, .00102,
1913 + -.00002, .04763, .11936,
1914 + .62281, .28839, .77567, .06650, .00178,
1915 + -.00002, .04821, .11818,
1916 + .61945, .28377, .79719, .06638, .00289,
1917 + -.00003, .04891, .11635,
1918 + .61658, .28037, .80655, .06621, .00370,
1919 + -.00003, .04929, .11494,
1920 + .61329, .27678, .81194, .06593, .00456,
1921 + -.00002, .04958, .11339,
1922 + .61027, .27365, .81344, .06558, .00534,
1923 + -.00003, .04975, .11202,
1924 + .60708, .27060, .81112, .06516, .00610,
1925 + -.00003, .04981, .11063,
1926 + .60356, .26737, .80692, .06465, .00698,
1927 + -.00003, .04981, .10910 /
1928 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1929 + .60037, .26456, .80147, .06413, .00781,
1930 + -.00003, .04976, .10772,
1931 + .59711, .26182, .79432, .06357, .00865,
1932 + -.00003, .04963, .10632,
1933 + .59450, .25967, .78820, .06308, .00936,
1934 + -.00002, .04949, .10520,
1935 + .58863, .25504, .77222, .06191, .01097,
1936 + -.00003, .04910, .10267,
1937 + .58337, .25105, .75635, .06081, .01241,
1938 + .00032, .04866, .10043,
1939 + .57729, .24662, .73700, .05951, .01401,
1940 + .00130, .04809, .09791,
1941 + .57076, .24205, .71541, .05812, .01554,
1942 + .00269, .04742, .09531,
1943 + .56474, .23790, .69497, .05687, .01676,
1944 + .00373, .04680, .09299 /
1945 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1946 + .55840, .23373, .67328, .05564, .01777,
1947 + .00467, .04613, .09071,
1948 + .55307, .23029, .65501, .05464, .01844,
1949 + .00538, .04557, .08888,
1950 + .54658, .22616, .63292, .05347, .01907,
1951 + .00615, .04489, .08672,
1952 + .54070, .22255, .61319, .05249, .01949,
1953 + .00676, .04427, .08483,
1954 + .53525, .21924, .59512, .05159, .01976,
1955 + .00727, .04370, .08315,
1956 + .52833, .21512, .57260, .05047, .02000,
1957 + .00785, .04298, .08108,
1958 + .52172, .21126, .55155, .04943, .02014,
1959 + .00830, .04227, .07917,
1960 + .51550, .20767, .53216, .04845, .02019,
1961 + .00868, .04160, .07742 /
1962 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1963 + .50933, .20415, .51337, .04749, .02021,
1964 + .00903, .04094, .07571,
1965 + .50314, .20071, .49514, .04655, .02018,
1966 + .00932, .04027, .07404,
1967 + .49734, .19752, .47847, .04568, .02013,
1968 + .00957, .03964, .07249,
1969 + .49183, .19454, .46306, .04487, .02005,
1970 + .00976, .03903, .07105,
1971 + .48632, .19159, .44801, .04405, .01996,
1972 + .00993, .03842, .06963,
1973 + .48088, .18871, .43357, .04324, .01984,
1974 + .01007, .03782, .06825,
1975 + .47573, .18599, .42022, .04249, .01973,
1976 + .01018, .03725, .06696,
1977 + .47084, .18343, .40786, .04179, .01960,
1978 + .01027, .03671, .06575 /
1979 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1980 + .46595, .18090, .39581, .04109, .01947,
1981 + .01035, .03617, .06455,
1982 + .46106, .17842, .38414, .04041, .01932,
1983 + .01041, .03562, .06336,
1984 + .45648, .17611, .37341, .03977, .01918,
1985 + .01047, .03512, .06225,
1986 + .45208, .17388, .36337, .03915, .01903,
1987 + .01049, .03463, .06123,
1988 + .44769, .17167, .35353, .03853, .01887,
1989 + .01051, .03414, .06022 /
1990 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1991 + .65978, .29429, .72150, .05274, .00098,
1992 + -.00001, .03949, .10111,
1993 + .65524, .29009, .73194, .05266, .00169,
1994 + -.00001, .03983, .09971,
1995 + .64817, .28388, .74033, .05243, .00270,
1996 + -.00001, .04021, .09759,
1997 + .64271, .27936, .74079, .05216, .00341,
1998 + -.00001, .04038, .09599,
1999 + .63676, .27464, .73745, .05178, .00414,
2000 + -.00001, .04046, .09428,
2001 + .63149, .27063, .73196, .05140, .00480,
2002 + -.00001, .04045, .09277,
2003 + .62620, .26675, .72363, .05095, .00542,
2004 + -.00001, .04037, .09127,
2005 + .62053, .26268, .71349, .05041, .00613,
2006 + -.00001, .04022, .08966 /
2007 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2008 + .61552, .25915, .70332, .04989, .00678,
2009 + -.00001, .04005, .08821,
2010 + .61052, .25576, .69210, .04933, .00742,
2011 + -.00001, .03982, .08679,
2012 + .60655, .25312, .68298, .04887, .00796,
2013 + -.00001, .03963, .08566,
2014 + .59792, .24746, .66153, .04778, .00915,
2015 + -.00001, .03910, .08319,
2016 + .59035, .24265, .64181, .04676, .01020,
2017 + .00026, .03859, .08105,
2018 + .58179, .23737, .61900, .04557, .01134,
2019 + .00101, .03795, .07864,
2020 + .57280, .23197, .59468, .04434, .01242,
2021 + .00205, .03725, .07617,
2022 + .56463, .22712, .57250, .04323, .01325,
2023 + .00281, .03660, .07400 /
2024 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2025 + .55626, .22227, .54976, .04212, .01393,
2026 + .00351, .03590, .07187,
2027 + .54927, .21832, .53105, .04125, .01435,
2028 + .00402, .03533, .07015,
2029 + .54083, .21361, .50883, .04023, .01474,
2030 + .00457, .03466, .06814,
2031 + .53331, .20951, .48943, .03934, .01497,
2032 + .00500, .03404, .06642,
2033 + .52643, .20579, .47195, .03855, .01511,
2034 + .00534, .03348, .06487,
2035 + .51778, .20115, .45050, .03757, .01520,
2036 + .00573, .03277, .06297,
2037 + .50959, .19687, .43081, .03665, .01522,
2038 + .00606, .03211, .06123,
2039 + .50194, .19292, .41296, .03581, .01520,
2040 + .00631, .03147, .05964 /
2041 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2042 + .49438, .18907, .39584, .03499, .01515,
2043 + .00653, .03084, .05811,
2044 + .48695, .18533, .37948, .03418, .01505,
2045 + .00671, .03022, .05661,
2046 + .48001, .18186, .36464, .03343, .01495,
2047 + .00685, .02964, .05524,
2048 + .47347, .17864, .35108, .03274, .01484,
2049 + .00696, .02909, .05396,
2050 + .46696, .17545, .33796, .03206, .01472,
2051 + .00706, .02854, .05271,
2052 + .46059, .17236, .32549, .03138, .01459,
2053 + .00715, .02800, .05151,
2054 + .45458, .16947, .31406, .03074, .01445,
2055 + .00721, .02749, .05039,
2056 + .44892, .16676, .30357, .03015, .01431,
2057 + .00725, .02701, .04935 /
2058 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2059 + .44328, .16409, .29340, .02956, .01417,
2060 + .00728, .02653, .04833,
2061 + .43768, .16147, .28361, .02900, .01402,
2062 + .00730, .02607, .04731,
2063 + .43244, .15903, .27465, .02848, .01388,
2064 + .00731, .02563, .04636,
2065 + .42744, .15672, .26636, .02797, .01374,
2066 + .00731, .02521, .04548,
2067 + .42245, .15442, .25826, .02747, .01359,
2068 + .00731, .02480, .04461 /
2069 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2070 + .68326, .29101, .69980, .04126, .00092,
2071 + -.00002, .03221, .08416,
2072 + .67614, .28584, .70048, .04116, .00157,
2073 + -.00002, .03243, .08269,
2074 + .66540, .27827, .69553, .04089, .00248,
2075 + -.00002, .03263, .08049,
2076 + .65738, .27282, .68732, .04059, .00310,
2077 + -.00003, .03266, .07887,
2078 + .64885, .26719, .67578, .04021, .00373,
2079 + -.00003, .03261, .07715,
2080 + .64144, .26243, .66395, .03983, .00426,
2081 + -.00003, .03252, .07565,
2082 + .63418, .25788, .65035, .03939, .00477,
2083 + -.00002, .03235, .07419,
2084 + .62647, .25313, .63517, .03889, .00532,
2085 + -.00002, .03214, .07262 /
2086 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2087 + .61972, .24905, .62115, .03840, .00583,
2088 + -.00002, .03192, .07123,
2089 + .61312, .24515, .60672, .03789, .00632,
2090 + -.00002, .03165, .06989,
2091 + .60792, .24211, .59527, .03746, .00672,
2092 + -.00001, .03143, .06883,
2093 + .59676, .23568, .56980, .03647, .00760,
2094 + -.00001, .03088, .06654,
2095 + .58710, .23026, .54743, .03560, .00837,
2096 + .00020, .03035, .06453,
2097 + .57634, .22434, .52245, .03458, .00918,
2098 + .00077, .02972, .06234,
2099 + .56518, .21834, .49673, .03351, .00993,
2100 + .00156, .02903, .06014,
2101 + .55512, .21302, .47386, .03258, .01049,
2102 + .00214, .02841, .05816 /
2103 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2104 + .54493, .20771, .45103, .03165, .01093,
2105 + .00265, .02776, .05626,
2106 + .53654, .20340, .43261, .03089, .01119,
2107 + .00302, .02723, .05473,
2108 + .52647, .19832, .41109, .03001, .01141,
2109 + .00341, .02660, .05296,
2110 + .51761, .19390, .39260, .02925, .01152,
2111 + .00373, .02603, .05145,
2112 + .50951, .18993, .37619, .02858, .01157,
2113 + .00397, .02552, .05009,
2114 + .49937, .18503, .35630, .02776, .01158,
2115 + .00423, .02487, .04842,
2116 + .48995, .18049, .33833, .02698, .01154,
2117 + .00446, .02426, .04691,
2118 + .48117, .17634, .32224, .02628, .01148,
2119 + .00462, .02370, .04551 /
2120 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2121 + .47254, .17231, .30697, .02560, .01140,
2122 + .00476, .02315, .04416,
2123 + .46415, .16840, .29256, .02493, .01127,
2124 + .00488, .02260, .04290,
2125 + .45634, .16480, .27961, .02431, .01115,
2126 + .00497, .02209, .04173,
2127 + .44901, .16148, .26788, .02374, .01103,
2128 + .00503, .02161, .04065,
2129 + .44175, .15821, .25661, .02318, .01090,
2130 + .00508, .02114, .03959,
2131 + .43468, .15505, .24600, .02263, .01077,
2132 + .00511, .02068, .03857,
2133 + .42804, .15210, .23634, .02212, .01063,
2134 + .00514, .02025, .03762,
2135 + .42180, .14935, .22757, .02165, .01051,
2136 + .00516, .01985, .03674 /
2137 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2138 + .41562, .14663, .21909, .02118, .01037,
2139 + .00517, .01945, .03588,
2140 + .40953, .14397, .21099, .02072, .01023,
2141 + .00518, .01906, .03505,
2142 + .40385, .14150, .20360, .02029, .01010,
2143 + .00518, .01869, .03429,
2144 + .39843, .13919, .19682, .01989, .00997,
2145 + .00517, .01835, .03356,
2146 + .39304, .13690, .19022, .01949, .00984,
2147 + .00515, .01800, .03284 /
2148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2149 + .69585, .28274, .67909, .03184, .00085,
2150 + -.00002, .02592, .06884,
2151 + .68629, .27676, .67038, .03173, .00144,
2152 + -.00002, .02605, .06743,
2153 + .67207, .26809, .65305, .03147, .00223,
2154 + -.00002, .02613, .06533,
2155 + .66165, .26192, .63715, .03119, .00276,
2156 + -.00002, .02609, .06379,
2157 + .65072, .25559, .61858, .03083, .00329,
2158 + -.00002, .02598, .06216,
2159 + .64134, .25026, .60151, .03049, .00374,
2160 + -.00002, .02583, .06076,
2161 + .63225, .24521, .58370, .03009, .00414,
2162 + -.00001, .02563, .05939,
2163 + .62268, .23997, .56461, .02963, .00458,
2164 + -.00001, .02539, .05795 /
2165 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2166 + .61438, .23550, .54772, .02921, .00496,
2167 + -.00001, .02514, .05670,
2168 + .60636, .23122, .53102, .02875, .00533,
2169 + -.00001, .02487, .05548,
2170 + .60007, .22789, .51799, .02839, .00563,
2171 + -.00002, .02465, .05453,
2172 + .58662, .22099, .49002, .02757, .00627,
2173 + -.00002, .02411, .05246,
2174 + .57515, .21516, .46626, .02682, .00681,
2175 + .00015, .02361, .05071,
2176 + .56251, .20881, .44040, .02596, .00738,
2177 + .00058, .02303, .04880,
2178 + .54952, .20243, .41443, .02507, .00789,
2179 + .00118, .02242, .04685,
2180 + .53787, .19683, .39182, .02429, .00826,
2181 + .00162, .02186, .04516 /
2182 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2183 + .52620, .19126, .36972, .02352, .00853,
2184 + .00200, .02128, .04352,
2185 + .51665, .18678, .35219, .02290, .00868,
2186 + .00227, .02080, .04220,
2187 + .50527, .18151, .33198, .02218, .00880,
2188 + .00257, .02024, .04066,
2189 + .49531, .17695, .31485, .02157, .00884,
2190 + .00278, .01975, .03936,
2191 + .48629, .17285, .29984, .02101, .00884,
2192 + .00296, .01930, .03820,
2193 + .47507, .16781, .28185, .02032, .00880,
2194 + .00315, .01873, .03680,
2195 + .46468, .16318, .26583, .01968, .00872,
2196 + .00329, .01821, .03554,
2197 + .45507, .15897, .25163, .01910, .00863,
2198 + .00340, .01772, .03438 /
2199 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2200 + .44568, .15490, .23827, .01855, .00854,
2201 + .00350, .01724, .03325,
2202 + .43655, .15100, .22583, .01801, .00842,
2203 + .00357, .01678, .03217,
2204 + .42810, .14740, .21473, .01752, .00831,
2205 + .00361, .01636, .03119,
2206 + .42023, .14407, .20478, .01707, .00819,
2207 + .00364, .01595, .03031,
2208 + .41247, .14081, .19528, .01662, .00806,
2209 + .00366, .01556, .02944,
2210 + .40496, .13768, .18637, .01618, .00793,
2211 + .00368, .01519, .02860,
2212 + .39792, .13476, .17833, .01578, .00781,
2213 + .00369, .01484, .02783,
2214 + .39132, .13205, .17108, .01541, .00770,
2215 + .00369, .01451, .02711 /
2216 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2217 + .38480, .12939, .16410, .01504, .00759,
2218 + .00370, .01418, .02641,
2219 + .37839, .12681, .15748, .01469, .00746,
2220 + .00369, .01386, .02574,
2221 + .37242, .12441, .15146, .01436, .00734,
2222 + .00368, .01356, .02512,
2223 + .36678, .12215, .14598, .01405, .00723,
2224 + .00367, .01328, .02453,
2225 + .36119, .11992, .14068, .01374, .00712,
2226 + .00365, .01301, .02395 /
2227 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2228 + .69835, .27051, .65309, .02421, .00078,
2229 + .00006, .02057, .05542,
2230 + .68649, .26395, .63611, .02412, .00129,
2231 + .00005, .02063, .05413,
2232 + .66908, .25449, .60829, .02390, .00197,
2233 + .00005, .02062, .05220,
2234 + .65649, .24780, .58614, .02366, .00241,
2235 + .00004, .02054, .05081,
2236 + .64338, .24099, .56209, .02336, .00284,
2237 + .00003, .02039, .04933,
2238 + .63221, .23531, .54109, .02308, .00320,
2239 + .00004, .02023, .04804,
2240 + .62155, .22991, .52029, .02273, .00351,
2241 + .00003, .02003, .04684,
2242 + .61037, .22435, .49860, .02235, .00384,
2243 + .00003, .01978, .04557 /
2244 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2245 + .60071, .21965, .47992, .02201, .00413,
2246 + .00004, .01953, .04446,
2247 + .59146, .21515, .46194, .02162, .00440,
2248 + .00004, .01927, .04340,
2249 + .58425, .21166, .44809, .02131, .00462,
2250 + .00005, .01906, .04257,
2251 + .56893, .20442, .41904, .02063, .00508,
2252 + .00002, .01858, .04078,
2253 + .55593, .19840, .39499, .02004, .00546,
2254 + .00014, .01813, .03928,
2255 + .54171, .19189, .36939, .01936, .00584,
2256 + .00047, .01762, .03764,
2257 + .52724, .18533, .34418, .01864, .00617,
2258 + .00091, .01709, .03599,
2259 + .51440, .17959, .32258, .01800, .00640,
2260 + .00123, .01659, .03458 /
2261 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2262 + .50159, .17395, .30187, .01737, .00656,
2263 + .00151, .01610, .03320,
2264 + .49116, .16942, .28565, .01687, .00665,
2265 + .00170, .01570, .03210,
2266 + .47880, .16410, .26715, .01629, .00669,
2267 + .00190, .01521, .03082,
2268 + .46806, .15951, .25170, .01578, .00669,
2269 + .00206, .01479, .02975,
2270 + .45837, .15542, .23832, .01533, .00667,
2271 + .00218, .01441, .02880,
2272 + .44638, .15042, .22243, .01478, .00661,
2273 + .00230, .01393, .02764,
2274 + .43530, .14587, .20843, .01429, .00652,
2275 + .00239, .01350, .02658,
2276 + .42513, .14172, .19616, .01384, .00643,
2277 + .00246, .01310, .02562 /
2278 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2279 + .41523, .13770, .18469, .01340, .00634,
2280 + .00253, .01271, .02471,
2281 + .40566, .13389, .17413, .01298, .00623,
2282 + .00257, .01232, .02384,
2283 + .39684, .13039, .16476, .01259, .00613,
2284 + .00259, .01197, .02305,
2285 + .38868, .12715, .15643, .01222, .00601,
2286 + .00260, .01165, .02235,
2287 + .38064, .12399, .14853, .01187, .00590,
2288 + .00262, .01133, .02166,
2289 + .37286, .12095, .14120, .01155, .00579,
2290 + .00263, .01103, .02098,
2291 + .36561, .11814, .13460, .01124, .00569,
2292 + .00263, .01075, .02036,
2293 + .35885, .11555, .12866, .01095, .00559,
2294 + .00262, .01049, .01979 /
2295 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2296 + .35218, .11300, .12298, .01066, .00549,
2297 + .00261, .01023, .01923,
2298 + .34567, .11052, .11765, .01038, .00538,
2299 + .00259, .00998, .01871,
2300 + .33962, .10822, .11282, .01011, .00528,
2301 + .00258, .00974, .01823,
2302 + .33390, .10608, .10844, .00987, .00519,
2303 + .00257, .00952, .01777,
2304 + .32823, .10396, .10421, .00964, .00511,
2305 + .00255, .00931, .01732 /
2306 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2307 + .69133, .25557, .61945, .01837, .00058,
2308 + -.00017, .01591, .04391,
2309 + .67746, .24858, .59572, .01831, .00103,
2310 + -.00016, .01595, .04274,
2311 + .65730, .23856, .55970, .01809, .00161,
2312 + -.00015, .01592, .04107,
2313 + .64283, .23156, .53296, .01787, .00198,
2314 + -.00016, .01583, .03983,
2315 + .62789, .22445, .50512, .01761, .00234,
2316 + -.00016, .01569, .03853,
2317 + .61528, .21852, .48157, .01735, .00262,
2318 + -.00014, .01552, .03745,
2319 + .60326, .21297, .45905, .01708, .00286,
2320 + -.00014, .01534, .03639,
2321 + .59074, .20724, .43599, .01676, .00312,
2322 + -.00014, .01512, .03528 /
2323 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2324 + .58003, .20237, .41652, .01646, .00334,
2325 + -.00013, .01493, .03432,
2326 + .56979, .19779, .39814, .01614, .00354,
2327 + -.00013, .01470, .03343,
2328 + .56181, .19425, .38411, .01589, .00369,
2329 + -.00012, .01450, .03274,
2330 + .54499, .18690, .35528, .01536, .00400,
2331 + -.00012, .01408, .03125,
2332 + .53087, .18079, .33191, .01487, .00426,
2333 + -.00002, .01370, .03000,
2334 + .51550, .17423, .30743, .01430, .00452,
2335 + .00023, .01327, .02866,
2336 + .49994, .16768, .28372, .01373, .00473,
2337 + .00058, .01282, .02732,
2338 + .48621, .16194, .26372, .01322, .00488,
2339 + .00083, .01242, .02614 /
2340 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2341 + .47257, .15640, .24487, .01274, .00498,
2342 + .00103, .01200, .02500,
2343 + .46155, .15192, .23024, .01233, .00501,
2344 + .00118, .01166, .02411,
2345 + .44855, .14668, .21372, .01185, .00502,
2346 + .00133, .01127, .02310,
2347 + .43727, .14221, .20010, .01147, .00500,
2348 + .00145, .01093, .02221,
2349 + .42714, .13824, .18840, .01113, .00496,
2350 + .00153, .01062, .02143,
2351 + .41467, .13339, .17464, .01071, .00489,
2352 + .00162, .01024, .02049,
2353 + .40323, .12897, .16266, .01031, .00480,
2354 + .00170, .00989, .01965,
2355 + .39278, .12496, .15225, .00995, .00472,
2356 + .00174, .00956, .01889 /
2357 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2358 + .38265, .12111, .14261, .00960, .00464,
2359 + .00178, .00924, .01817,
2360 + .37290, .11745, .13378, .00927, .00454,
2361 + .00180, .00894, .01747,
2362 + .36395, .11410, .12601, .00897, .00445,
2363 + .00182, .00867, .01684,
2364 + .35567, .11102, .11914, .00870, .00436,
2365 + .00183, .00841, .01628,
2366 + .34753, .10802, .11267, .00843, .00427,
2367 + .00184, .00816, .01573,
2368 + .33968, .10516, .10669, .00818, .00418,
2369 + .00184, .00792, .01520,
2370 + .33240, .10252, .10134, .00794, .00410,
2371 + .00183, .00770, .01472,
2372 + .32566, .10008, .09656, .00772, .00402,
2373 + .00183, .00750, .01427 /
2374 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2375 + .31902, .09768, .09201, .00750, .00394,
2376 + .00182, .00730, .01384,
2377 + .31252, .09537, .08776, .00729, .00385,
2378 + .00181, .00710, .01344,
2379 + .30649, .09323, .08392, .00710, .00377,
2380 + .00180, .00692, .01307,
2381 + .30082, .09122, .08046, .00692, .00369,
2382 + .00179, .00675, .01273,
2383 + .29522, .08923, .07712, .00674, .00362,
2384 + .00177, .00659, .01240 /
2385 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2386 + .67632, .23803, .57746, .01351, .00054,
2387 + -.00002, .01231, .03426,
2388 + .66074, .23081, .54879, .01345, .00092,
2389 + -.00003, .01232, .03327,
2390 + .63816, .22058, .50719, .01332, .00138,
2391 + -.00002, .01224, .03181,
2392 + .62212, .21344, .47759, .01315, .00168,
2393 + -.00003, .01215, .03075,
2394 + .60566, .20623, .44763, .01295, .00196,
2395 + -.00004, .01201, .02965,
2396 + .59179, .20027, .42285, .01277, .00218,
2397 + -.00003, .01186, .02871,
2398 + .57872, .19466, .39978, .01253, .00236,
2399 + -.00004, .01168, .02785,
2400 + .56517, .18890, .37649, .01226, .00254,
2401 + -.00004, .01148, .02695 /
2402 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2403 + .55360, .18406, .35713, .01204, .00270,
2404 + -.00003, .01130, .02615,
2405 + .54259, .17950, .33912, .01180, .00283,
2406 + -.00003, .01111, .02539,
2407 + .53404, .17598, .32550, .01162, .00294,
2408 + -.00003, .01096, .02480,
2409 + .51618, .16869, .29794, .01118, .00316,
2410 + -.00002, .01058, .02360,
2411 + .50121, .16269, .27593, .01079, .00333,
2412 + .00005, .01027, .02259,
2413 + .48499, .15627, .25320, .01037, .00350,
2414 + .00023, .00991, .02148,
2415 + .46867, .14988, .23156, .00993, .00363,
2416 + .00048, .00954, .02040,
2417 + .45435, .14431, .21358, .00955, .00371,
2418 + .00066, .00919, .01948 /
2419 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2420 + .44025, .13891, .19678, .00916, .00375,
2421 + .00080, .00886, .01857,
2422 + .42887, .13460, .18389, .00886, .00376,
2423 + .00089, .00860, .01785,
2424 + .41549, .12959, .16949, .00852, .00375,
2425 + .00099, .00829, .01701,
2426 + .40397, .12532, .15777, .00822, .00371,
2427 + .00108, .00800, .01633,
2428 + .39369, .12151, .14777, .00795, .00366,
2429 + .00113, .00775, .01573,
2430 + .38106, .11688, .13609, .00761, .00358,
2431 + .00119, .00744, .01500,
2432 + .36948, .11271, .12602, .00732, .00352,
2433 + .00123, .00715, .01433,
2434 + .35898, .10894, .11734, .00705, .00345,
2435 + .00126, .00691, .01373 /
2436 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2437 + .34884, .10531, .10934, .00678, .00337,
2438 + .00129, .00667, .01315,
2439 + .33910, .10187, .10210, .00652, .00329,
2440 + .00129, .00643, .01263,
2441 + .33017, .09873, .09577, .00629, .00322,
2442 + .00130, .00621, .01215,
2443 + .32195, .09586, .09020, .00610, .00314,
2444 + .00130, .00601, .01170,
2445 + .31391, .09308, .08498, .00590, .00307,
2446 + .00130, .00582, .01128,
2447 + .30619, .09042, .08019, .00570, .00299,
2448 + .00130, .00563, .01090,
2449 + .29902, .08798, .07592, .00552, .00292,
2450 + .00130, .00546, .01054,
2451 + .29238, .08573, .07213, .00538, .00286,
2452 + .00129, .00531, .01020 /
2453 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2454 + .28585, .08353, .06853, .00523, .00279,
2455 + .00129, .00515, .00988,
2456 + .27954, .08139, .06519, .00507, .00273,
2457 + .00127, .00501, .00955,
2458 + .27370, .07943, .06217, .00492, .00267,
2459 + .00126, .00488, .00926,
2460 + .26821, .07760, .05947, .00479, .00261,
2461 + .00125, .00475, .00899,
2462 + .26278, .07580, .05687, .00465, .00256,
2463 + .00123, .00462, .00874 /
2464 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2465 + .65390, .21919, .52879, .00987, .00046,
2466 + -.00004, .00932, .02627,
2467 + .63687, .21195, .49702, .00984, .00075,
2468 + -.00004, .00932, .02544,
2469 + .61242, .20170, .45233, .00973, .00114,
2470 + -.00003, .00926, .02421,
2471 + .59517, .19457, .42150, .00959, .00136,
2472 + -.00004, .00916, .02336,
2473 + .57758, .18739, .39094, .00943, .00157,
2474 + -.00005, .00903, .02247,
2475 + .56283, .18147, .36613, .00929, .00175,
2476 + -.00004, .00890, .02168,
2477 + .54898, .17596, .34343, .00911, .00189,
2478 + -.00004, .00874, .02097,
2479 + .53468, .17032, .32081, .00891, .00202,
2480 + -.00003, .00857, .02023 /
2481 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2482 + .52253, .16557, .30226, .00872, .00212,
2483 + -.00002, .00843, .01960,
2484 + .51101, .16112, .28522, .00853, .00221,
2485 + -.00002, .00826, .01900,
2486 + .50210, .15769, .27243, .00838, .00229,
2487 + -.00001, .00812, .01854,
2488 + .48353, .15062, .24686, .00806, .00244,
2489 + -.00002, .00783, .01755,
2490 + .46806, .14482, .22675, .00777, .00254,
2491 + .00003, .00758, .01674,
2492 + .45140, .13864, .20629, .00744, .00264,
2493 + .00016, .00729, .01588,
2494 + .43473, .13252, .18703, .00711, .00271,
2495 + .00035, .00698, .01503,
2496 + .42010, .12724, .17118, .00683, .00276,
2497 + .00047, .00671, .01429 /
2498 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2499 + .40582, .12212, .15662, .00653, .00278,
2500 + .00057, .00646, .01357,
2501 + .39436, .11802, .14554, .00630, .00277,
2502 + .00064, .00624, .01303,
2503 + .38094, .11327, .13324, .00603, .00274,
2504 + .00072, .00598, .01241,
2505 + .36940, .10926, .12332, .00581, .00270,
2506 + .00077, .00577, .01186,
2507 + .35914, .10571, .11492, .00559, .00266,
2508 + .00081, .00557, .01140,
2509 + .34660, .10138, .10518, .00533, .00261,
2510 + .00085, .00533, .01084,
2511 + .33512, .09748, .09688, .00515, .00254,
2512 + .00087, .00512, .01030,
2513 + .32474, .09398, .08976, .00495, .00248,
2514 + .00089, .00493, .00984 /
2515 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2516 + .31476, .09063, .08324, .00476, .00242,
2517 + .00091, .00474, .00941,
2518 + .30522, .08746, .07740, .00456, .00236,
2519 + .00092, .00456, .00902,
2520 + .29651, .08458, .07231, .00439, .00230,
2521 + .00093, .00440, .00866,
2522 + .28853, .08196, .06785, .00423, .00223,
2523 + .00092, .00424, .00833,
2524 + .28073, .07942, .06370, .00409, .00217,
2525 + .00092, .00410, .00801,
2526 + .27326, .07699, .05991, .00396, .00211,
2527 + .00091, .00396, .00769,
2528 + .26635, .07476, .05655, .00384, .00206,
2529 + .00090, .00383, .00741,
2530 + .25996, .07272, .05358, .00372, .00201,
2531 + .00089, .00371, .00717 /
2532 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2533 + .25370, .07072, .05076, .00360, .00196,
2534 + .00088, .00360, .00692,
2535 + .24764, .06879, .04818, .00349, .00191,
2536 + .00087, .00349, .00669,
2537 + .24203, .06701, .04585, .00338, .00186,
2538 + .00086, .00338, .00648,
2539 + .23680, .06536, .04376, .00329, .00182,
2540 + .00085, .00329, .00629,
2541 + .23165, .06374, .04175, .00319, .00178,
2542 + .00085, .00319, .00610 /
2543 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2544 + .62526, .19940, .47525, .00702, .00039,
2545 + .00000, .00697, .01988,
2546 + .60717, .19228, .44215, .00701, .00063,
2547 + .00000, .00696, .01919,
2548 + .58135, .18221, .39662, .00694, .00093,
2549 + .00000, .00690, .01818,
2550 + .56324, .17525, .36596, .00685, .00111,
2551 + .00000, .00681, .01747,
2552 + .54485, .16828, .33609, .00674, .00127,
2553 + .00000, .00669, .01674,
2554 + .52951, .16257, .31222, .00661, .00139,
2555 + .00001, .00658, .01613,
2556 + .51516, .15725, .29067, .00649, .00148,
2557 + .00000, .00644, .01556,
2558 + .50041, .15181, .26944, .00634, .00157,
2559 + .00000, .00630, .01498 /
2560 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2561 + .48795, .14723, .25223, .00620, .00164,
2562 + .00001, .00618, .01449,
2563 + .47614, .14298, .23659, .00607, .00171,
2564 + .00001, .00605, .01399,
2565 + .46701, .13972, .22492, .00598, .00176,
2566 + .00000, .00595, .01361,
2567 + .44816, .13299, .20189, .00570, .00185,
2568 + .00000, .00572, .01286,
2569 + .43251, .12748, .18402, .00548, .00192,
2570 + .00004, .00552, .01222,
2571 + .41571, .12165, .16602, .00524, .00199,
2572 + .00014, .00529, .01155,
2573 + .39899, .11590, .14929, .00499, .00202,
2574 + .00027, .00505, .01090,
2575 + .38441, .11093, .13566, .00479, .00203,
2576 + .00037, .00484, .01035 /
2577 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2578 + .37026, .10615, .12325, .00456, .00203,
2579 + .00043, .00464, .00980,
2580 + .35887, .10235, .11390, .00440, .00202,
2581 + .00048, .00447, .00936,
2582 + .34557, .09797, .10362, .00422, .00199,
2583 + .00052, .00427, .00887,
2584 + .33424, .09426, .09538, .00405, .00195,
2585 + .00056, .00411, .00847,
2586 + .32421, .09097, .08847, .00390, .00192,
2587 + .00058, .00396, .00811,
2588 + .31198, .08699, .08052, .00372, .00187,
2589 + .00061, .00378, .00768,
2590 + .30084, .08343, .07378, .00356, .00182,
2591 + .00063, .00362, .00731,
2592 + .29081, .08023, .06805, .00340, .00177,
2593 + .00064, .00347, .00697 /
2594 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2595 + .28118, .07718, .06283, .00325, .00172,
2596 + .00064, .00332, .00664,
2597 + .27201, .07431, .05819, .00312, .00167,
2598 + .00065, .00318, .00634,
2599 + .26364, .07171, .05416, .00300, .00161,
2600 + .00065, .00306, .00607,
2601 + .25599, .06934, .05066, .00289, .00157,
2602 + .00064, .00295, .00583,
2603 + .24854, .06705, .04741, .00279, .00152,
2604 + .00063, .00284, .00559,
2605 + .24143, .06488, .04445, .00270, .00148,
2606 + .00063, .00274, .00537,
2607 + .23488, .06287, .04185, .00261, .00144,
2608 + .00062, .00265, .00516,
2609 + .22883, .06104, .03955, .00252, .00140,
2610 + .00062, .00256, .00498 /
2611 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2612 + .22293, .05925, .03738, .00244, .00137,
2613 + .00061, .00248, .00480,
2614 + .21724, .05753, .03538, .00234, .00133,
2615 + .00060, .00240, .00463,
2616 + .21199, .05596, .03359, .00225, .00129,
2617 + .00060, .00233, .00448,
2618 + .20708, .05450, .03200, .00218, .00126,
2619 + .00059, .00226, .00433,
2620 + .20224, .05307, .03048, .00212, .00123,
2621 + .00057, .00219, .00419 /
2622 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2623 + .59136, .17938, .41909, .00488, .00032,
2624 + .00006, .00517, .01478,
2625 + .57259, .17247, .38618, .00489, .00052,
2626 + .00005, .00515, .01420,
2627 + .54593, .16277, .34173, .00483, .00075,
2628 + .00005, .00509, .01340,
2629 + .52730, .15610, .31240, .00478, .00088,
2630 + .00005, .00501, .01284,
2631 + .50848, .14946, .28424, .00470, .00100,
2632 + .00005, .00490, .01227,
2633 + .49287, .14399, .26198, .00460, .00109,
2634 + .00005, .00482, .01179,
2635 + .47832, .13893, .24219, .00451, .00115,
2636 + .00005, .00471, .01135,
2637 + .46339, .13379, .22288, .00441, .00122,
2638 + .00005, .00459, .01090 /
2639 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2640 + .45081, .12949, .20737, .00431, .00127,
2641 + .00004, .00449, .01050,
2642 + .43896, .12548, .19341, .00421, .00131,
2643 + .00004, .00439, .01013,
2644 + .42984, .12240, .18307, .00414, .00134,
2645 + .00004, .00431, .00985,
2646 + .41096, .11613, .16284, .00397, .00139,
2647 + .00005, .00412, .00927,
2648 + .39545, .11099, .14731, .00379, .00143,
2649 + .00008, .00396, .00880,
2650 + .37885, .10557, .13184, .00361, .00147,
2651 + .00014, .00378, .00829,
2652 + .36236, .10025, .11762, .00344, .00149,
2653 + .00022, .00360, .00778,
2654 + .34809, .09568, .10615, .00330, .00149,
2655 + .00029, .00345, .00733 /
2656 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2657 + .33426, .09127, .09580, .00312, .00148,
2658 + .00034, .00329, .00695,
2659 + .32320, .08780, .08809, .00300, .00146,
2660 + .00037, .00316, .00663,
2661 + .31033, .08380, .07967, .00287, .00144,
2662 + .00040, .00301, .00626,
2663 + .29939, .08041, .07294, .00275, .00141,
2664 + .00043, .00289, .00595,
2665 + .28971, .07744, .06737, .00265, .00137,
2666 + .00044, .00278, .00569,
2667 + .27795, .07384, .06099, .00252, .00132,
2668 + .00045, .00265, .00538,
2669 + .26733, .07063, .05562, .00242, .00128,
2670 + .00046, .00252, .00509,
2671 + .25776, .06776, .05108, .00231, .00124,
2672 + .00047, .00241, .00485 /
2673 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2674 + .24860, .06503, .04696, .00219, .00120,
2675 + .00047, .00231, .00462,
2676 + .23991, .06246, .04332, .00210, .00117,
2677 + .00046, .00221, .00438,
2678 + .23201, .06015, .04017, .00202, .00113,
2679 + .00045, .00212, .00417,
2680 + .22482, .05804, .03747, .00194, .00110,
2681 + .00045, .00204, .00400,
2682 + .21783, .05601, .03496, .00187, .00106,
2683 + .00044, .00196, .00384,
2684 + .21117, .05407, .03269, .00180, .00103,
2685 + .00045, .00188, .00367,
2686 + .20505, .05230, .03069, .00173, .00100,
2687 + .00044, .00181, .00353,
2688 + .19944, .05069, .02894, .00166, .00097,
2689 + .00043, .00175, .00341 /
2690 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2691 + .19395, .04912, .02729, .00159, .00094,
2692 + .00043, .00168, .00328,
2693 + .18865, .04762, .02578, .00154, .00091,
2694 + .00042, .00162, .00316,
2695 + .18376, .04624, .02443, .00149, .00088,
2696 + .00041, .00157, .00305,
2697 + .17922, .04496, .02323, .00144, .00086,
2698 + .00040, .00152, .00295,
2699 + .17476, .04370, .02209, .00140, .00084,
2700 + .00040, .00148, .00284 /
2701 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2702 + .55323, .15970, .36281, .00345, .00024,
2703 + .00002, .00372, .01074,
2704 + .53414, .15310, .33127, .00343, .00039,
2705 + .00000, .00370, .01032,
2706 + .50712, .14392, .28940, .00339, .00055,
2707 + .00001, .00364, .00970,
2708 + .48836, .13762, .26223, .00335, .00065,
2709 + .00002, .00358, .00926,
2710 + .46951, .13135, .23648, .00328, .00073,
2711 + .00002, .00350, .00883,
2712 + .45391, .12623, .21640, .00320, .00080,
2713 + .00001, .00342, .00848,
2714 + .43942, .12150, .19874, .00313, .00085,
2715 + .00002, .00334, .00813,
2716 + .42461, .11671, .18164, .00306, .00089,
2717 + .00002, .00326, .00777 /
2718 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2719 + .41216, .11273, .16800, .00299, .00093,
2720 + .00001, .00318, .00748,
2721 + .40047, .10901, .15583, .00292, .00096,
2722 + .00001, .00310, .00720,
2723 + .39148, .10616, .14686, .00287, .00098,
2724 + .00002, .00304, .00698,
2725 + .37299, .10035, .12950, .00273, .00101,
2726 + .00001, .00289, .00657,
2727 + .35785, .09565, .11632, .00261, .00103,
2728 + .00003, .00278, .00621,
2729 + .34171, .09069, .10332, .00249, .00104,
2730 + .00009, .00265, .00582,
2731 + .32576, .08583, .09148, .00237, .00105,
2732 + .00015, .00252, .00544,
2733 + .31200, .08167, .08203, .00225, .00106,
2734 + .00019, .00240, .00513 /
2735 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2736 + .29867, .07770, .07360, .00216, .00103,
2737 + .00022, .00228, .00484,
2738 + .28809, .07456, .06733, .00207, .00101,
2739 + .00025, .00219, .00461,
2740 + .27584, .07095, .06053, .00196, .00099,
2741 + .00027, .00208, .00435,
2742 + .26544, .06791, .05517, .00189, .00097,
2743 + .00029, .00199, .00412,
2744 + .25626, .06526, .05074, .00181, .00095,
2745 + .00030, .00191, .00392,
2746 + .24512, .06207, .04570, .00172, .00092,
2747 + .00031, .00181, .00370,
2748 + .23515, .05921, .04150, .00162, .00088,
2749 + .00032, .00172, .00350,
2750 + .22617, .05667, .03797, .00155, .00085,
2751 + .00031, .00164, .00332 /
2752 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2753 + .21759, .05426, .03479, .00148, .00082,
2754 + .00030, .00156, .00314,
2755 + .20950, .05198, .03197, .00142, .00079,
2756 + .00030, .00148, .00299,
2757 + .20217, .04993, .02955, .00136, .00076,
2758 + .00030, .00142, .00286,
2759 + .19550, .04808, .02748, .00130, .00074,
2760 + .00029, .00137, .00272,
2761 + .18904, .04631, .02557, .00124, .00072,
2762 + .00029, .00131, .00259,
2763 + .18289, .04463, .02384, .00119, .00070,
2764 + .00030, .00126, .00248,
2765 + .17725, .04309, .02234, .00115, .00068,
2766 + .00030, .00121, .00238,
2767 + .17210, .04168, .02102, .00110, .00065,
2768 + .00029, .00117, .00228 /
2769 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2770 + .16707, .04032, .01979, .00106, .00063,
2771 + .00029, .00113, .00219,
2772 + .16220, .03903, .01866, .00103, .00061,
2773 + .00028, .00108, .00211,
2774 + .15773, .03784, .01765, .00100, .00059,
2775 + .00027, .00104, .00203,
2776 + .15358, .03674, .01675, .00097, .00057,
2777 + .00027, .00101, .00195,
2778 + .14950, .03566, .01590, .00095, .00056,
2779 + .00026, .00098, .00187 /
2780 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2781 + .51210, .14047, .30802, .00231, .00019,
2782 + .00004, .00264, .00771,
2783 + .49297, .13434, .27888, .00233, .00029,
2784 + .00004, .00261, .00737,
2785 + .46609, .12577, .24076, .00231, .00041,
2786 + .00004, .00257, .00690,
2787 + .44753, .11993, .21635, .00229, .00047,
2788 + .00004, .00251, .00656,
2789 + .42890, .11413, .19345, .00226, .00054,
2790 + .00004, .00245, .00622,
2791 + .41353, .10941, .17577, .00223, .00058,
2792 + .00004, .00240, .00596,
2793 + .39937, .10506, .16040, .00217, .00061,
2794 + .00003, .00233, .00571,
2795 + .38493, .10066, .14563, .00211, .00064,
2796 + .00002, .00226, .00546 /
2797 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2798 + .37282, .09701, .13394, .00206, .00065,
2799 + .00003, .00220, .00524,
2800 + .36148, .09363, .12359, .00201, .00067,
2801 + .00002, .00213, .00504,
2802 + .35279, .09105, .11602, .00196, .00068,
2803 + .00001, .00208, .00488,
2804 + .33496, .08579, .10147, .00188, .00071,
2805 + .00002, .00198, .00456,
2806 + .32040, .08153, .09054, .00180, .00072,
2807 + .00004, .00190, .00429,
2808 + .30497, .07705, .07984, .00171, .00072,
2809 + .00007, .00180, .00401,
2810 + .28977, .07270, .07020, .00162, .00072,
2811 + .00010, .00171, .00375,
2812 + .27669, .06898, .06256, .00155, .00071,
2813 + .00012, .00161, .00353 /
2814 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2815 + .26409, .06543, .05580, .00148, .00070,
2816 + .00015, .00154, .00331,
2817 + .25412, .06264, .05081, .00142, .00068,
2818 + .00017, .00147, .00315,
2819 + .24261, .05944, .04544, .00135, .00066,
2820 + .00018, .00139, .00296,
2821 + .23289, .05677, .04123, .00129, .00065,
2822 + .00019, .00133, .00279,
2823 + .22434, .05443, .03777, .00123, .00063,
2824 + .00019, .00127, .00265,
2825 + .21399, .05161, .03386, .00117, .00060,
2826 + .00020, .00120, .00248,
2827 + .20472, .04911, .03061, .00111, .00058,
2828 + .00019, .00114, .00235,
2829 + .19642, .04688, .02791, .00105, .00056,
2830 + .00019, .00108, .00222 /
2831 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2832 + .18851, .04477, .02548, .00101, .00053,
2833 + .00020, .00102, .00210,
2834 + .18105, .04281, .02335, .00097, .00051,
2835 + .00020, .00098, .00199,
2836 + .17432, .04104, .02152, .00093, .00049,
2837 + .00020, .00094, .00189,
2838 + .16824, .03945, .01996, .00088, .00048,
2839 + .00019, .00090, .00179,
2840 + .16234, .03791, .01853, .00085, .00047,
2841 + .00019, .00086, .00171,
2842 + .15674, .03646, .01724, .00082, .00045,
2843 + .00019, .00082, .00164,
2844 + .15162, .03514, .01612, .00079, .00043,
2845 + .00019, .00078, .00157,
2846 + .14693, .03393, .01514, .00076, .00042,
2847 + .00018, .00075, .00151 /
2848 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2849 + .14238, .03276, .01423, .00073, .00040,
2850 + .00017, .00072, .00145,
2851 + .13800, .03166, .01340, .00070, .00039,
2852 + .00017, .00069, .00139,
2853 + .13399, .03064, .01265, .00067, .00037,
2854 + .00016, .00066, .00134,
2855 + .13026, .02970, .01200, .00065, .00036,
2856 + .00016, .00064, .00129,
2857 + .12661, .02879, .01137, .00064, .00035,
2858 + .00016, .00063, .00123 /
2859 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2860 + .46879, .12206, .25638, .00149, .00015,
2861 + .00006, .00186, .00541,
2862 + .44999, .11641, .23024, .00151, .00023,
2863 + .00006, .00184, .00516,
2864 + .42364, .10855, .19646, .00152, .00031,
2865 + .00004, .00180, .00481,
2866 + .40554, .10321, .17510, .00150, .00036,
2867 + .00004, .00175, .00457,
2868 + .38750, .09793, .15528, .00146, .00040,
2869 + .00004, .00170, .00432,
2870 + .37271, .09362, .14015, .00142, .00044,
2871 + .00005, .00167, .00412,
2872 + .35903, .08969, .12707, .00139, .00046,
2873 + .00004, .00162, .00395,
2874 + .34512, .08572, .11460, .00136, .00048,
2875 + .00004, .00156, .00376 /
2876 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2877 + .33349, .08243, .10483, .00133, .00048,
2878 + .00003, .00151, .00360,
2879 + .32267, .07939, .09625, .00130, .00049,
2880 + .00003, .00147, .00345,
2881 + .31438, .07708, .09000, .00128, .00049,
2882 + .00003, .00144, .00333,
2883 + .29745, .07236, .07809, .00123, .00052,
2884 + .00003, .00137, .00309,
2885 + .28368, .06855, .06920, .00116, .00052,
2886 + .00005, .00130, .00292,
2887 + .26913, .06458, .06060, .00109, .00051,
2888 + .00007, .00123, .00273,
2889 + .25484, .06074, .05293, .00104, .00051,
2890 + .00009, .00116, .00253,
2891 + .24261, .05748, .04690, .00100, .00050,
2892 + .00010, .00110, .00236 /
2893 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2894 + .23086, .05436, .04159, .00096, .00049,
2895 + .00012, .00104, .00221,
2896 + .22160, .05192, .03770, .00092, .00048,
2897 + .00013, .00099, .00210,
2898 + .21095, .04912, .03355, .00086, .00047,
2899 + .00014, .00093, .00197,
2900 + .20200, .04678, .03032, .00081, .00045,
2901 + .00014, .00089, .00186,
2902 + .19413, .04474, .02767, .00077, .00043,
2903 + .00014, .00085, .00177,
2904 + .18464, .04231, .02469, .00074, .00041,
2905 + .00014, .00080, .00167,
2906 + .17617, .04015, .02224, .00069, .00041,
2907 + .00015, .00077, .00154,
2908 + .16860, .03824, .02020, .00066, .00039,
2909 + .00015, .00073, .00145 /
2910 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2911 + .16140, .03644, .01837, .00063, .00037,
2912 + .00014, .00068, .00137,
2913 + .15466, .03476, .01679, .00059, .00035,
2914 + .00014, .00064, .00130,
2915 + .14857, .03325, .01544, .00056, .00034,
2916 + .00014, .00062, .00124,
2917 + .14305, .03188, .01429, .00055, .00033,
2918 + .00014, .00059, .00119,
2919 + .13774, .03057, .01323, .00053, .00032,
2920 + .00013, .00057, .00113,
2921 + .13272, .02934, .01229, .00051, .00031,
2922 + .00014, .00054, .00107,
2923 + .12814, .02822, .01147, .00050, .00029,
2924 + .00013, .00051, .00102,
2925 + .12396, .02721, .01075, .00047, .00028,
2926 + .00013, .00050, .00097 /
2927 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2928 + .11990, .02623, .01008, .00045, .00027,
2929 + .00012, .00048, .00093,
2930 + .11602, .02530, .00948, .00043, .00026,
2931 + .00012, .00046, .00089,
2932 + .11246, .02445, .00894, .00040, .00025,
2933 + .00011, .00044, .00086,
2934 + .10917, .02366, .00846, .00039, .00024,
2935 + .00011, .00043, .00083,
2936 + .10595, .02289, .00801, .00039, .00024,
2937 + .00011, .00041, .00080 /
2938 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2939 + .42432, .10485, .20924, .00099, .00012,
2940 + .00005, .00126, .00372,
2941 + .40618, .09969, .18638, .00095, .00017,
2942 + .00005, .00125, .00355,
2943 + .38085, .09255, .15719, .00091, .00023,
2944 + .00005, .00123, .00330,
2945 + .36347, .08774, .13899, .00091, .00027,
2946 + .00004, .00120, .00311,
2947 + .34618, .08299, .12228, .00091, .00030,
2948 + .00003, .00117, .00293,
2949 + .33207, .07913, .10963, .00089, .00032,
2950 + .00003, .00114, .00278,
2951 + .31909, .07562, .09880, .00086, .00033,
2952 + .00003, .00111, .00266,
2953 + .30591, .07209, .08855, .00085, .00035,
2954 + .00003, .00107, .00253 /
2955 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2956 + .29492, .06918, .08057, .00084, .00036,
2957 + .00002, .00104, .00241,
2958 + .28475, .06647, .07361, .00081, .00036,
2959 + .00002, .00100, .00231,
2960 + .27700, .06441, .06856, .00078, .00036,
2961 + .00002, .00098, .00223,
2962 + .26114, .06028, .05903, .00074, .00036,
2963 + .00002, .00093, .00206,
2964 + .24829, .05694, .05198, .00070, .00037,
2965 + .00002, .00088, .00193,
2966 + .23477, .05346, .04522, .00066, .00037,
2967 + .00004, .00084, .00180,
2968 + .22157, .05010, .03923, .00062, .00036,
2969 + .00007, .00079, .00167,
2970 + .21030, .04727, .03457, .00059, .00036,
2971 + .00008, .00075, .00154 /
2972 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2973 + .19954, .04457, .03050, .00055, .00034,
2974 + .00009, .00070, .00147,
2975 + .19106, .04246, .02754, .00053, .00034,
2976 + .00010, .00067, .00138,
2977 + .18131, .04007, .02438, .00051, .00034,
2978 + .00010, .00063, .00127,
2979 + .17316, .03806, .02194, .00049, .00032,
2980 + .00011, .00061, .00119,
2981 + .16601, .03632, .01996, .00047, .00031,
2982 + .00011, .00058, .00113,
2983 + .15742, .03425, .01774, .00044, .00029,
2984 + .00011, .00054, .00106,
2985 + .14980, .03241, .01592, .00040, .00028,
2986 + .00010, .00051, .00099,
2987 + .14302, .03078, .01442, .00037, .00027,
2988 + .00011, .00048, .00094 /
2989 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2990 + .13659, .02925, .01308, .00035, .00026,
2991 + .00011, .00046, .00088,
2992 + .13054, .02784, .01192, .00034, .00026,
2993 + .00011, .00044, .00083,
2994 + .12511, .02657, .01093, .00033, .00024,
2995 + .00011, .00042, .00079,
2996 + .12021, .02542, .01009, .00032, .00022,
2997 + .00011, .00040, .00075,
2998 + .11551, .02433, .00933, .00031, .00021,
2999 + .00010, .00038, .00071,
3000 + .11109, .02330, .00865, .00029, .00021,
3001 + .00010, .00036, .00067,
3002 + .10706, .02237, .00806, .00028, .00020,
3003 + .00010, .00034, .00064,
3004 + .10336, .02153, .00754, .00027, .00019,
3005 + .00009, .00033, .00062 /
3006 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3007 + .09979, .02072, .00707, .00025, .00019,
3008 + .00009, .00031, .00059,
3009 + .09637, .01995, .00663, .00025, .00018,
3010 + .00009, .00030, .00057,
3011 + .09324, .01925, .00625, .00024, .00017,
3012 + .00009, .00029, .00054,
3013 + .09037, .01860, .00591, .00023, .00017,
3014 + .00009, .00028, .00052,
3015 + .08757, .01796, .00559, .00022, .00016,
3016 + .00009, .00027, .00050 /
3017 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3018 + .37979, .08905, .16749, .00067, .00004,
3019 + -.00002, .00080, .00251,
3020 + .36244, .08444, .14804, .00070, .00008,
3021 + -.00003, .00079, .00237,
3022 + .33840, .07810, .12352, .00069, .00012,
3023 + -.00003, .00077, .00218,
3024 + .32205, .07381, .10843, .00065, .00015,
3025 + -.00002, .00075, .00207,
3026 + .30581, .06961, .09471, .00064, .00016,
3027 + -.00001, .00073, .00195,
3028 + .29250, .06624, .08441, .00068, .00018,
3029 + -.00001, .00071, .00183,
3030 + .28041, .06314, .07564, .00064, .00019,
3031 + -.00001, .00069, .00175,
3032 + .26818, .06003, .06741, .00061, .00020,
3033 + -.00001, .00066, .00166 /
3034 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3035 + .25802, .05748, .06104, .00059, .00020,
3036 + -.00001, .00064, .00159,
3037 + .24857, .05513, .05552, .00057, .00020,
3038 + -.00001, .00062, .00151,
3039 + .24137, .05335, .05153, .00055, .00020,
3040 + -.00001, .00060, .00146,
3041 + .22676, .04974, .04405, .00054, .00020,
3042 + -.00001, .00056, .00135,
3043 + .21495, .04686, .03858, .00052, .00021,
3044 + -.00001, .00054, .00125,
3045 + .20258, .04387, .03335, .00049, .00020,
3046 + .00000, .00050, .00117,
3047 + .19057, .04098, .02877, .00045, .00020,
3048 + .00002, .00047, .00109,
3049 + .18035, .03854, .02522, .00043, .00020,
3050 + .00004, .00045, .00100 /
3051 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3052 + .17060, .03624, .02214, .00041, .00019,
3053 + .00004, .00042, .00095,
3054 + .16296, .03445, .01992, .00039, .00018,
3055 + .00004, .00039, .00090,
3056 + .15423, .03241, .01757, .00036, .00018,
3057 + .00004, .00037, .00083,
3058 + .14690, .03071, .01576, .00036, .00018,
3059 + .00004, .00035, .00077,
3060 + .14054, .02924, .01429, .00033, .00017,
3061 + .00004, .00034, .00073,
3062 + .13291, .02749, .01266, .00029, .00016,
3063 + .00005, .00032, .00068,
3064 + .12608, .02596, .01132, .00030, .00016,
3065 + .00005, .00030, .00064,
3066 + .12006, .02460, .01023, .00029, .00015,
3067 + .00005, .00028, .00060 /
3068 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3069 + .11439, .02333, .00926, .00027, .00014,
3070 + .00005, .00026, .00056,
3071 + .10908, .02215, .00842, .00026, .00013,
3072 + .00005, .00024, .00053,
3073 + .10432, .02109, .00770, .00025, .00013,
3074 + .00005, .00023, .00050,
3075 + .10003, .02014, .00710, .00024, .00012,
3076 + .00005, .00022, .00047,
3077 + .09592, .01924, .00655, .00023, .00012,
3078 + .00005, .00021, .00045,
3079 + .09206, .01839, .00606, .00021, .00011,
3080 + .00005, .00020, .00044,
3081 + .08855, .01762, .00564, .00020, .00010,
3082 + .00005, .00019, .00042,
3083 + .08535, .01693, .00528, .00020, .00010,
3084 + .00004, .00018, .00039 /
3085 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3086 + .08225, .01626, .00494, .00019, .00010,
3087 + .00004, .00018, .00036,
3088 + .07930, .01563, .00463, .00018, .00009,
3089 + .00004, .00017, .00035,
3090 + .07661, .01505, .00436, .00018, .00009,
3091 + .00004, .00016, .00034,
3092 + .07412, .01452, .00412, .00018, .00009,
3093 + .00004, .00016, .00032,
3094 + .07170, .01401, .00389, .00017, .00008,
3095 + .00004, .00015, .00031 /
3096 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3097 + .33552, .07437, .13080, .00036, .00007,
3098 + .00003, .00057, .00163,
3099 + .31930, .07031, .11481, .00035, .00009,
3100 + .00003, .00055, .00156,
3101 + .29684, .06477, .09481, .00037, .00011,
3102 + .00004, .00053, .00143,
3103 + .28158, .06105, .08262, .00037, .00012,
3104 + .00004, .00051, .00134,
3105 + .26654, .05741, .07162, .00036, .00013,
3106 + .00004, .00049, .00126,
3107 + .25436, .05446, .06342, .00035, .00013,
3108 + .00003, .00048, .00119,
3109 + .24316, .05181, .05653, .00035, .00014,
3110 + .00003, .00046, .00111,
3111 + .23191, .04914, .05010, .00036, .00015,
3112 + .00003, .00045, .00104 /
3113 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3114 + .22263, .04693, .04515, .00034, .00014,
3115 + .00003, .00043, .00099,
3116 + .21401, .04492, .04088, .00034, .00015,
3117 + .00003, .00041, .00094,
3118 + .20746, .04339, .03781, .00034, .00015,
3119 + .00003, .00040, .00091,
3120 + .19422, .04032, .03210, .00031, .00015,
3121 + .00003, .00037, .00084,
3122 + .18354, .03788, .02795, .00029, .00015,
3123 + .00002, .00034, .00080,
3124 + .17239, .03534, .02402, .00027, .00014,
3125 + .00002, .00032, .00075,
3126 + .16163, .03289, .02060, .00025, .00014,
3127 + .00003, .00030, .00068,
3128 + .15249, .03085, .01797, .00023, .00013,
3129 + .00004, .00029, .00064 /
3130 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3131 + .14382, .02892, .01571, .00022, .00014,
3132 + .00004, .00027, .00058,
3133 + .13702, .02742, .01408, .00022, .00013,
3134 + .00004, .00026, .00055,
3135 + .12927, .02572, .01237, .00021, .00012,
3136 + .00004, .00023, .00052,
3137 + .12282, .02432, .01105, .00019, .00011,
3138 + .00004, .00022, .00048,
3139 + .11720, .02310, .01000, .00019, .00011,
3140 + .00004, .00021, .00045,
3141 + .11048, .02166, .00883, .00018, .00010,
3142 + .00004, .00020, .00042,
3143 + .10457, .02039, .00787, .00016, .00009,
3144 + .00004, .00018, .00040,
3145 + .09932, .01928, .00709, .00015, .00009,
3146 + .00004, .00017, .00037 /
3147 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3148 + .09436, .01823, .00640, .00016, .00009,
3149 + .00004, .00016, .00034,
3150 + .08977, .01727, .00581, .00015, .00008,
3151 + .00004, .00015, .00032,
3152 + .08565, .01641, .00531, .00015, .00008,
3153 + .00004, .00014, .00030,
3154 + .08195, .01564, .00489, .00014, .00007,
3155 + .00004, .00014, .00029,
3156 + .07841, .01491, .00450, .00014, .00007,
3157 + .00004, .00013, .00027,
3158 + .07509, .01422, .00416, .00013, .00007,
3159 + .00003, .00013, .00026,
3160 + .07208, .01360, .00387, .00013, .00007,
3161 + .00003, .00012, .00024,
3162 + .06935, .01304, .00362, .00013, .00006,
3163 + .00003, .00011, .00023 /
3164 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3165 + .06671, .01250, .00338, .00012, .00006,
3166 + .00003, .00011, .00022,
3167 + .06420, .01199, .00316, .00011, .00006,
3168 + .00003, .00010, .00021,
3169 + .06192, .01153, .00297, .00010, .00006,
3170 + .00003, .00010, .00020,
3171 + .05982, .01111, .00281, .00010, .00005,
3172 + .00002, .00009, .00019,
3173 + .05777, .01070, .00265, .00010, .00005,
3174 + .00002, .00009, .00019 /
3175 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3176 + .29261, .06125, .09991, .00017, .00006,
3177 + .00005, .00037, .00105,
3178 + .27760, .05775, .08705, .00020, .00007,
3179 + .00005, .00036, .00098,
3180 + .25696, .05297, .07115, .00020, .00008,
3181 + .00004, .00035, .00089,
3182 + .24303, .04978, .06155, .00019, .00009,
3183 + .00004, .00034, .00083,
3184 + .22931, .04666, .05297, .00018, .00010,
3185 + .00004, .00032, .00078,
3186 + .21819, .04415, .04663, .00019, .00010,
3187 + .00005, .00031, .00073,
3188 + .20809, .04189, .04133, .00018, .00010,
3189 + .00004, .00029, .00070,
3190 + .19794, .03963, .03642, .00017, .00010,
3191 + .00003, .00028, .00066 /
3192 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3193 + .18956, .03777, .03266, .00017, .00011,
3194 + .00003, .00027, .00062,
3195 + .18181, .03607, .02945, .00017, .00011,
3196 + .00003, .00026, .00059,
3197 + .17594, .03478, .02715, .00017, .00011,
3198 + .00002, .00026, .00057,
3199 + .16410, .03221, .02289, .00015, .00010,
3200 + .00002, .00024, .00052,
3201 + .15460, .03015, .01982, .00015, .00010,
3202 + .00003, .00022, .00049,
3203 + .14470, .02803, .01694, .00015, .00010,
3204 + .00003, .00021, .00045,
3205 + .13515, .02601, .01444, .00015, .00009,
3206 + .00003, .00019, .00041,
3207 + .12709, .02432, .01254, .00015, .00009,
3208 + .00003, .00018, .00038 /
3209 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3210 + .11949, .02272, .01091, .00012, .00009,
3211 + .00003, .00017, .00037,
3212 + .11357, .02149, .00975, .00012, .00008,
3213 + .00004, .00016, .00034,
3214 + .10682, .02011, .00853, .00011, .00008,
3215 + .00004, .00015, .00030,
3216 + .10122, .01895, .00760, .00010, .00007,
3217 + .00003, .00014, .00029,
3218 + .09636, .01796, .00686, .00010, .00007,
3219 + .00003, .00013, .00027,
3220 + .09056, .01678, .00604, .00009, .00007,
3221 + .00003, .00012, .00025,
3222 + .08546, .01576, .00537, .00009, .00007,
3223 + .00003, .00012, .00023,
3224 + .08096, .01485, .00483, .00009, .00006,
3225 + .00003, .00011, .00022 /
3226 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3227 + .07673, .01401, .00435, .00008, .00006,
3228 + .00003, .00010, .00021,
3229 + .07280, .01324, .00394, .00008, .00005,
3230 + .00003, .00010, .00019,
3231 + .06930, .01255, .00360, .00008, .00005,
3232 + .00003, .00009, .00018,
3233 + .06617, .01194, .00331, .00008, .00005,
3234 + .00003, .00009, .00017,
3235 + .06317, .01135, .00304, .00007, .00005,
3236 + .00003, .00008, .00016,
3237 + .06036, .01081, .00281, .00007, .00005,
3238 + .00002, .00008, .00015,
3239 + .05782, .01032, .00261, .00006, .00004,
3240 + .00002, .00007, .00015,
3241 + .05553, .00987, .00243, .00006, .00004,
3242 + .00002, .00007, .00014 /
3243 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3244 + .05332, .00945, .00227, .00006, .00004,
3245 + .00002, .00007, .00013,
3246 + .05121, .00905, .00213, .00006, .00004,
3247 + .00002, .00006, .00012,
3248 + .04929, .00868, .00200, .00006, .00004,
3249 + .00002, .00006, .00012,
3250 + .04755, .00835, .00188, .00005, .00003,
3251 + .00002, .00006, .00011,
3252 + .04585, .00803, .00178, .00004, .00003,
3253 + .00002, .00006, .00011 /
3254 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3255 + .25177, .04981, .07458, .00015, .00002,
3256 + .00001, .00020, .00063,
3257 + .23817, .04682, .06451, .00015, .00003,
3258 + .00000, .00020, .00059,
3259 + .21950, .04275, .05221, .00014, .00003,
3260 + .00000, .00019, .00056,
3261 + .20695, .04004, .04487, .00013, .00004,
3262 + .00000, .00018, .00053,
3263 + .19464, .03742, .03835, .00013, .00004,
3264 + .00000, .00017, .00048,
3265 + .18471, .03533, .03357, .00014, .00006,
3266 + .00001, .00017, .00043,
3267 + .17570, .03342, .02960, .00013, .00005,
3268 + .00001, .00016, .00042,
3269 + .16667, .03152, .02594, .00013, .00005,
3270 + .00001, .00016, .00040 /
3271 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3272 + .15922, .02999, .02316, .00014, .00005,
3273 + .00000, .00015, .00036,
3274 + .15239, .02857, .02080, .00012, .00005,
3275 + .00000, .00014, .00035,
3276 + .14722, .02751, .01912, .00011, .00005,
3277 + .00000, .00013, .00034,
3278 + .13680, .02537, .01602, .00010, .00005,
3279 + .00000, .00013, .00032,
3280 + .12847, .02368, .01380, .00010, .00004,
3281 + .00000, .00012, .00031,
3282 + .11984, .02195, .01173, .00009, .00004,
3283 + .00000, .00011, .00028,
3284 + .11157, .02029, .00996, .00008, .00004,
3285 + .00001, .00010, .00025,
3286 + .10460, .01891, .00861, .00008, .00005,
3287 + .00000, .00010, .00023 /
3288 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3289 + .09801, .01762, .00747, .00008, .00005,
3290 + .00001, .00009, .00021,
3291 + .09290, .01663, .00665, .00008, .00004,
3292 + .00001, .00009, .00020,
3293 + .08711, .01550, .00580, .00008, .00004,
3294 + .00002, .00008, .00018,
3295 + .08233, .01457, .00516, .00007, .00004,
3296 + .00001, .00008, .00018,
3297 + .07818, .01378, .00465, .00007, .00003,
3298 + .00001, .00007, .00016,
3299 + .07325, .01284, .00408, .00007, .00003,
3300 + .00001, .00006, .00015,
3301 + .06892, .01202, .00362, .00006, .00003,
3302 + .00001, .00006, .00014,
3303 + .06511, .01131, .00325, .00006, .00003,
3304 + .00001, .00006, .00013 /
3305 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3306 + .06155, .01064, .00292, .00006, .00003,
3307 + .00001, .00005, .00012,
3308 + .05825, .01002, .00265, .00006, .00003,
3309 + .00001, .00005, .00011,
3310 + .05532, .00948, .00241, .00006, .00002,
3311 + .00001, .00005, .00010,
3312 + .05270, .00900, .00221, .00005, .00002,
3313 + .00001, .00005, .00010,
3314 + .05021, .00854, .00203, .00005, .00002,
3315 + .00001, .00004, .00009,
3316 + .04789, .00811, .00188, .00005, .00002,
3317 + .00001, .00004, .00009,
3318 + .04578, .00773, .00174, .00004, .00002,
3319 + .00001, .00004, .00008,
3320 + .04388, .00738, .00162, .00004, .00002,
3321 + .00001, .00003, .00008 /
3322 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3323 + .04205, .00705, .00151, .00004, .00002,
3324 + .00001, .00003, .00008,
3325 + .04032, .00674, .00142, .00004, .00002,
3326 + .00001, .00003, .00007,
3327 + .03874, .00646, .00133, .00004, .00002,
3328 + .00001, .00003, .00007,
3329 + .03730, .00620, .00125, .00004, .00002,
3330 + .00001, .00003, .00006,
3331 + .03590, .00595, .00118, .00004, .00002,
3332 + .00001, .00003, .00006 /
3333 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3334 + .21313, .03962, .05401, .00005, .00003,
3335 + .00004, .00014, .00038,
3336 + .20100, .03714, .04641, .00003, .00003,
3337 + .00003, .00014, .00036,
3338 + .18440, .03377, .03719, .00004, .00004,
3339 + .00003, .00014, .00032,
3340 + .17328, .03154, .03174, .00005, .00004,
3341 + .00003, .00013, .00029,
3342 + .16241, .02938, .02694, .00006, .00005,
3343 + .00003, .00012, .00027,
3344 + .15368, .02765, .02345, .00007, .00005,
3345 + .00002, .00011, .00025,
3346 + .14580, .02609, .02057, .00006, .00004,
3347 + .00003, .00011, .00023,
3348 + .13792, .02455, .01793, .00005, .00004,
3349 + .00003, .00011, .00022 /
3350 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3351 + .13145, .02329, .01594, .00005, .00004,
3352 + .00002, .00011, .00021,
3353 + .12551, .02214, .01426, .00004, .00004,
3354 + .00002, .00010, .00020,
3355 + .12103, .02127, .01306, .00004, .00004,
3356 + .00003, .00009, .00020,
3357 + .11201, .01956, .01088, .00005, .00004,
3358 + .00002, .00008, .00018,
3359 + .10485, .01820, .00933, .00005, .00004,
3360 + .00002, .00008, .00016,
3361 + .09747, .01680, .00789, .00004, .00004,
3362 + .00002, .00007, .00015,
3363 + .09040, .01548, .00666, .00002, .00004,
3364 + .00002, .00007, .00014,
3365 + .08445, .01438, .00574, .00003, .00003,
3366 + .00002, .00006, .00014 /
3367 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3368 + .07889, .01335, .00496, .00004, .00003,
3369 + .00002, .00006, .00011,
3370 + .07457, .01256, .00441, .00004, .00003,
3371 + .00002, .00006, .00010,
3372 + .06969, .01167, .00383, .00005, .00003,
3373 + .00002, .00005, .00010,
3374 + .06566, .01095, .00340, .00004, .00002,
3375 + .00002, .00005, .00009,
3376 + .06220, .01033, .00306, .00004, .00002,
3377 + .00002, .00004, .00009,
3378 + .05810, .00959, .00268, .00003, .00002,
3379 + .00001, .00004, .00008,
3380 + .05450, .00895, .00237, .00003, .00002,
3381 + .00002, .00004, .00007,
3382 + .05135, .00840, .00213, .00003, .00002,
3383 + .00001, .00004, .00007 /
3384 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3385 + .04840, .00788, .00191, .00003, .00002,
3386 + .00001, .00004, .00006,
3387 + .04571, .00740, .00173, .00002, .00002,
3388 + .00001, .00003, .00006,
3389 + .04330, .00698, .00157, .00002, .00002,
3390 + .00001, .00003, .00006,
3391 + .04116, .00661, .00144, .00001, .00002,
3392 + .00001, .00003, .00006,
3393 + .03912, .00626, .00132, .00001, .00001,
3394 + .00001, .00002, .00005,
3395 + .03721, .00593, .00122, .00002, .00002,
3396 + .00001, .00002, .00005,
3397 + .03550, .00564, .00113, .00001, .00001,
3398 + .00001, .00002, .00005,
3399 + .03396, .00538, .00105, .00001, .00001,
3400 + .00001, .00002, .00004 /
3401 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3402 + .03248, .00513, .00098, .00001, .00001,
3403 + .00001, .00002, .00004,
3404 + .03108, .00489, .00092, .00001, .00001,
3405 + .00001, .00002, .00004,
3406 + .02980, .00468, .00086, .00001, .00001,
3407 + .00001, .00002, .00004,
3408 + .02864, .00448, .00081, .00001, .00001,
3409 + .00001, .00002, .00003,
3410 + .02752, .00430, .00076, .00001, .00001,
3411 + .00001, .00002, .00003 /
3412 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3413 + .14527, .02379, .02601, .00002, .00000,
3414 + .00000, .00003, .00013,
3415 + .13610, .02215, .02204, .00002, .00000,
3416 + .00000, .00004, .00012,
3417 + .12368, .01995, .01731, .00002, .00000,
3418 + .00000, .00004, .00009,
3419 + .11544, .01850, .01458, .00002, .00001,
3420 + .00000, .00004, .00009,
3421 + .10745, .01711, .01221, .00001, .00001,
3422 + .00000, .00003, .00008,
3423 + .10105, .01601, .01051, .00002, .00001,
3424 + .00000, .00004, .00008,
3425 + .09532, .01502, .00913, .00002, .00001,
3426 + .00000, .00003, .00008,
3427 + .08964, .01405, .00789, .00001, .00001,
3428 + .00000, .00003, .00007 /
3429 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3430 + .08501, .01327, .00696, .00000, .00001,
3431 + .00000, .00003, .00007,
3432 + .08078, .01255, .00618, .00000, .00001,
3433 + .00000, .00003, .00007,
3434 + .07759, .01201, .00563, .00000, .00001,
3435 + .00000, .00003, .00007,
3436 + .07123, .01095, .00464, .00000, .00001,
3437 + .00000, .00002, .00006,
3438 + .06622, .01012, .00394, .00001, .00001,
3439 + .00000, .00002, .00006,
3440 + .06108, .00928, .00331, .00001, .00001,
3441 + .00000, .00002, .00005,
3442 + .05621, .00848, .00277, .00000, .00001,
3443 + .00000, .00002, .00004,
3444 + .05217, .00782, .00238, .00000, .00001,
3445 + .00000, .00002, .00004 /
3446 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3447 + .04839, .00722, .00204, .00001, .00001,
3448 + .00000, .00002, .00003,
3449 + .04549, .00675, .00181, .00001, .00001,
3450 + .00000, .00002, .00003,
3451 + .04222, .00623, .00157, .00000, .00001,
3452 + .00000, .00001, .00003,
3453 + .03955, .00581, .00138, .00001, .00001,
3454 + .00000, .00001, .00003,
3455 + .03726, .00545, .00124, .00001, .00001,
3456 + .00000, .00001, .00003,
3457 + .03457, .00503, .00108, .00000, .00001,
3458 + .00000, .00001, .00002,
3459 + .03223, .00467, .00096, .00001, .00001,
3460 + .00000, .00001, .00002,
3461 + .03019, .00435, .00086, .00001, .00001,
3462 + .00000, .00001, .00002 /
3463 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3464 + .02830, .00406, .00077, .00001, .00001,
3465 + .00000, .00001, .00002,
3466 + .02657, .00379, .00069, .00000, .00000,
3467 + .00000, .00001, .00002,
3468 + .02504, .00356, .00063, .00000, .00000,
3469 + .00000, .00001, .00002,
3470 + .02369, .00335, .00058, .00000, .00000,
3471 + .00000, .00001, .00002,
3472 + .02241, .00316, .00053, .00000, .00000,
3473 + .00000, .00001, .00001,
3474 + .02121, .00298, .00049, .00000, .00000,
3475 + .00000, .00001, .00001,
3476 + .02014, .00282, .00045, .00000, .00000,
3477 + .00000, .00001, .00001,
3478 + .01918, .00268, .00042, .00000, .00000,
3479 + .00000, .00001, .00001 /
3480 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3481 + .01827, .00254, .00039, .00000, .00000,
3482 + .00000, .00001, .00001,
3483 + .01741, .00242, .00037, .00000, .00000,
3484 + .00000, .00001, .00001,
3485 + .01663, .00230, .00034, .00000, .00000,
3486 + .00000, .00001, .00001,
3487 + .01593, .00220, .00032, .00000, .00000,
3488 + .00000, .00001, .00001,
3489 + .01525, .00210, .00030, .00000, .00000,
3490 + .00000, .00001, .00001 /
3491 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3492 + .09097, .01293, .01080, .00001, .00000,
3493 + -.00001, .00001, .00004,
3494 + .08464, .01196, .00902, .00001, .00000,
3495 + -.00001, .00000, .00003,
3496 + .07613, .01066, .00696, .00000, .00000,
3497 + .00000, .00001, .00003,
3498 + .07053, .00982, .00579, .00001, .00000,
3499 + .00000, .00000, .00002,
3500 + .06515, .00901, .00479, .00001, .00000,
3501 + .00000, .00000, .00002,
3502 + .06088, .00838, .00409, .00000, .00000,
3503 + .00000, .00000, .00002,
3504 + .05708, .00781, .00352, .00001, .00000,
3505 + .00000, .00000, .00002,
3506 + .05333, .00726, .00302, .00001, .00000,
3507 + .00000, .00001, .00002 /
3508 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3509 + .05029, .00682, .00264, .00001, .00000,
3510 + .00000, .00001, .00002,
3511 + .04753, .00642, .00233, .00001, .00000,
3512 + .00000, .00001, .00002,
3513 + .04547, .00612, .00212, .00000, .00000,
3514 + .00000, .00000, .00002,
3515 + .04139, .00553, .00173, .00000, .00000,
3516 + .00000, .00000, .00001,
3517 + .03819, .00508, .00146, .00000, .00000,
3518 + .00000, .00000, .00001,
3519 + .03494, .00461, .00122, .00000, .00000,
3520 + .00000, .00000, .00001,
3521 + .03189, .00418, .00102, .00000, .00000,
3522 + .00000, .00000, .00001,
3523 + .02938, .00383, .00087, .00000, .00000,
3524 + .00000, .00000, .00001 /
3525 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3526 + .02704, .00351, .00074, .00001, .00000,
3527 + .00000, .00000, .00001,
3528 + .02526, .00326, .00066, .00000, .00000,
3529 + .00000, .00000, .00001,
3530 + .02329, .00299, .00057, .00000, .00000,
3531 + .00000, .00000, .00001,
3532 + .02168, .00277, .00050, .00000, .00000,
3533 + .00000, .00000, .00001,
3534 + .02030, .00258, .00045, .00000, .00000,
3535 + .00000, .00000, .00000,
3536 + .01869, .00237, .00039, .00001, .00000,
3537 + .00000, .00000, .00000,
3538 + .01731, .00218, .00035, .00000, .00000,
3539 + .00000, .00000, .00000,
3540 + .01611, .00202, .00031, .00000, .00000,
3541 + .00000, .00000, .00000 /
3542 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3543 + .01501, .00187, .00028, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01400, .00174, .00025, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .01313, .00162, .00023, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .01235, .00152, .00021, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .01162, .00143, .00019, .00000, .00000,
3552 + .00000, .00000, .00000,
3553 + .01095, .00134, .00018, .00000, .00000,
3554 + .00000, .00000, .00000,
3555 + .01035, .00126, .00016, .00000, .00000,
3556 + .00000, .00000, .00000,
3557 + .00981, .00119, .00015, .00000, .00000,
3558 + .00000, .00000, .00000 /
3559 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3560 + .00930, .00113, .00014, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00882, .00107, .00013, .00000, .00000,
3563 + .00000, .00000, .00000,
3564 + .00839, .00101, .00012, .00000, .00000,
3565 + .00000, .00000, .00000,
3566 + .00800, .00096, .00012, .00000, .00000,
3567 + .00000, .00000, .00000,
3568 + .00763, .00091, .00011, .00000, .00000,
3569 + .00000, .00000, .00000 /
3570 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3571 + .05096, .00617, .00369, .00001, -.00001,
3572 + -.00001, .00000, .00000,
3573 + .04704, .00566, .00305, .00001, -.00001,
3574 + -.00001, .00000, .00000,
3575 + .04183, .00499, .00231, .00001, .00000,
3576 + .00000, .00000, .00001,
3577 + .03844, .00456, .00190, .00000, .00000,
3578 + .00000, .00000, .00001,
3579 + .03521, .00415, .00156, .00000, .00000,
3580 + .00000, .00000, .00001,
3581 + .03267, .00383, .00132, .00001, .00000,
3582 + .00000, .00000, .00000,
3583 + .03042, .00355, .00113, .00000, .00000,
3584 + .00000, .00000, .00001,
3585 + .02822, .00328, .00096, .00000, .00000,
3586 + .00000, .00000, .00001 /
3587 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3588 + .02645, .00305, .00084, .00000, .00000,
3589 + .00000, .00000, .00001,
3590 + .02485, .00286, .00074, .00000, .00000,
3591 + .00000, .00000, .00000,
3592 + .02366, .00271, .00067, .00000, .00000,
3593 + .00000, .00000, .00000,
3594 + .02133, .00243, .00054, .00000, .00000,
3595 + .00000, .00000, .00000,
3596 + .01952, .00221, .00046, .00000, .00000,
3597 + .00000, .00000, .00000,
3598 + .01769, .00199, .00038, .00000, .00000,
3599 + .00000, .00000, .00000,
3600 + .01600, .00179, .00032, .00000, .00000,
3601 + .00000, .00000, .00000,
3602 + .01461, .00162, .00027, .00000, .00000,
3603 + .00000, .00000, .00000 /
3604 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3605 + .01334, .00148, .00023, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .01238, .00136, .00021, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .01131, .00124, .00018, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .01045, .00114, .00016, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00973, .00106, .00014, .00000, .00000,
3614 + .00000, .00000, .00000,
3615 + .00888, .00096, .00012, .00000, .00000,
3616 + .00000, .00000, .00000,
3617 + .00816, .00088, .00011, .00000, .00000,
3618 + .00000, .00000, .00000,
3619 + .00755, .00081, .00010, .00000, .00000,
3620 + .00000, .00000, .00000 /
3621 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3622 + .00698, .00074, .00009, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00647, .00069, .00008, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00603, .00064, .00007, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00563, .00059, .00007, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00527, .00055, .00006, .00000, .00000,
3631 + .00000, .00000, .00000,
3632 + .00494, .00052, .00006, .00000, .00000,
3633 + .00000, .00000, .00000,
3634 + .00464, .00048, .00005, .00000, .00000,
3635 + .00000, .00000, .00000,
3636 + .00438, .00045, .00005, .00000, .00000,
3637 + .00000, .00000, .00000 /
3638 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3639 + .00413, .00043, .00004, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00390, .00040, .00004, .00000, .00000,
3642 + .00000, .00000, .00000,
3643 + .00369, .00038, .00004, .00000, .00000,
3644 + .00000, .00000, .00000,
3645 + .00350, .00036, .00004, .00000, .00000,
3646 + .00000, .00000, .00000,
3647 + .00333, .00034, .00003, .00000, .00000,
3648 + .00000, .00000, .00000 /
3649 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3650 + .02429, .00242, .00095, -.00001, .00000,
3651 + .00000, .00000, .00000,
3652 + .02222, .00220, .00078, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .01950, .00192, .00058, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01775, .00174, .00048, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01610, .00157, .00039, .00000, .00000,
3659 + .00000, .00000, .00000,
3660 + .01481, .00143, .00033, .00000, .00000,
3661 + .00000, .00000, .00000,
3662 + .01368, .00132, .00028, .00000, .00000,
3663 + .00000, .00000, .00000,
3664 + .01259, .00121, .00024, .00000, .00000,
3665 + .00000, .00000, .00000 /
3666 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3667 + .01171, .00112, .00021, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .01093, .00104, .00018, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .01035, .00098, .00017, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00922, .00087, .00013, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00836, .00078, .00011, .00000, .00000,
3676 + .00000, .00000, .00000,
3677 + .00750, .00070, .00009, .00000, .00000,
3678 + .00000, .00000, .00000,
3679 + .00671, .00062, .00008, .00000, .00000,
3680 + .00000, .00000, .00000,
3681 + .00607, .00056, .00007, .00000, .00000,
3682 + .00000, .00000, .00000 /
3683 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3684 + .00549, .00050, .00006, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00505, .00046, .00005, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00457, .00041, .00004, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00419, .00038, .00004, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00387, .00035, .00004, .00000, .00000,
3693 + .00000, .00000, .00000,
3694 + .00350, .00031, .00003, .00000, .00000,
3695 + .00000, .00000, .00000,
3696 + .00319, .00028, .00003, .00000, .00000,
3697 + .00000, .00000, .00000,
3698 + .00292, .00026, .00003, .00000, .00000,
3699 + .00000, .00000, .00000 /
3700 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3701 + .00268, .00024, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00247, .00022, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00228, .00020, .00002, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00212, .00018, .00002, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00197, .00017, .00002, .00000, .00000,
3710 + .00000, .00000, .00000,
3711 + .00183, .00016, .00001, .00000, .00000,
3712 + .00000, .00000, .00000,
3713 + .00171, .00015, .00001, .00000, .00000,
3714 + .00000, .00000, .00000,
3715 + .00160, .00014, .00001, .00000, .00000,
3716 + .00000, .00000, .00000 /
3717 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3718 + .00150, .00013, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00141, .00012, .00001, .00000, .00000,
3721 + .00000, .00000, .00000,
3722 + .00133, .00011, .00001, .00000, .00000,
3723 + .00000, .00000, .00000,
3724 + .00125, .00011, .00001, .00000, .00000,
3725 + .00000, .00000, .00000,
3726 + .00118, .00010, .00001, .00000, .00000,
3727 + .00000, .00000, .00000 /
3728 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3729 + .00217, .00012, .00001, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00194, .00011, .00001, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00164, .00009, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00145, .00008, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00128, .00007, .00001, .00000, .00000,
3738 + .00000, .00000, .00000,
3739 + .00115, .00006, .00001, .00000, .00000,
3740 + .00000, .00000, .00000,
3741 + .00104, .00006, .00001, .00000, .00000,
3742 + .00000, .00000, .00000,
3743 + .00093, .00005, .00000, .00000, .00000,
3744 + .00000, .00000, .00000 /
3745 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3746 + .00085, .00005, .00000, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00078, .00004, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00072, .00004, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00062, .00003, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00055, .00003, .00000, .00000, .00000,
3755 + .00000, .00000, .00000,
3756 + .00048, .00003, .00000, .00000, .00000,
3757 + .00000, .00000, .00000,
3758 + .00041, .00002, .00000, .00000, .00000,
3759 + .00000, .00000, .00000,
3760 + .00036, .00002, .00000, .00000, .00000,
3761 + .00000, .00000, .00000 /
3762 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3763 + .00032, .00002, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00029, .00002, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00025, .00001, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00023, .00001, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00021, .00001, .00000, .00000, .00000,
3772 + .00000, .00000, .00000,
3773 + .00018, .00001, .00000, .00000, .00000,
3774 + .00000, .00000, .00000,
3775 + .00016, .00001, .00000, .00000, .00000,
3776 + .00000, .00000, .00000,
3777 + .00014, .00001, .00000, .00000, .00000,
3778 + .00000, .00000, .00000 /
3779 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3780 + .00013, .00001, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00012, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00010, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00009, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00009, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000,
3790 + .00008, .00001, .00000, .00000, .00000,
3791 + .00000, .00000, .00000,
3792 + .00007, .00001, .00000, .00000, .00000,
3793 + .00000, .00000, .00000,
3794 + .00006, .00001, .00000, .00000, .00000,
3795 + .00000, .00000, .00000 /
3796 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3797 + .00006, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00005, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000,
3801 + .00005, .00001, .00000, .00000, .00000,
3802 + .00000, .00000, .00000,
3803 + .00005, .00001, .00000, .00000, .00000,
3804 + .00000, .00000, .00000,
3805 + .00004, .00001, .00000, .00000, .00000,
3806 + .00000, .00000, .00000 /
3807 DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
3808 . 1D-4,2D-4,4D-4,6D-4,8D-4,
3809 . 1D-3,2D-3,4D-3,6D-3,8D-3,
3810 . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
3811 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
3812 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
3813 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
3815 DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
3816 . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
3817 . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
3818 . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
3819 . 1.8D6,3.2D6,5.6D6,1D7/
3820 DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
3821 DATA N0/3,4,5,9,9,9,9,9/
3822 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3827 IF(INIT.NE.0) GOTO 10
3828 C OPEN(UNIT=1,FILE='MRSR1.DAT',STATUS='OLD')
3831 C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),
3832 C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M)
3833 C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA
3835 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
3838 XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH)
3840 IF(I.EQ.5.OR.I.EQ.7) GOTO 31
3842 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K)
3850 IF(X.LT.XMIN) X=XMIN
3851 IF(X.GT.XMAX) X=XMAX
3852 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
3853 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
3855 IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH)
3858 IF(XXX.GT.XX(N+1)) GOTO 70
3859 A=(XXX-XX(N))/(XX(N+1)-XX(N))
3862 IF(QSQ.GT.QQ(M+1)) GOTO 80
3863 B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M))
3865 G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1)
3866 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
3867 IF(N.GE.NTENTH) GOTO 65
3868 IF(I.EQ.5.OR.I.EQ.7) GOTO 65
3869 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
3870 G(I)=FAC*10D0**(G(I)-FAC)
3872 G(I)=G(I)*(ONED-X)**N0(I)
git://git.uio.no / u / mrichter / AliRoot.git / blob