]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsr2.F
added the delete of EMCAL object posted in the folder when new file is opened
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsr2.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMSR2(X,QSQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4#include "pdf/impdp.inc"
5C
6 PARAMETER(NX=49,NQ=37,NTENTH=23,NP=8)
7#include "pdf/expdp.inc"
8 + F(NP,NX,NQ+1),QQ(NQ),XX(NX),G(NP),N0(NP)
9 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,8)/
10 + .00125, .00705, .95079, .46974, .00369,
11 + .00000, .26718, .47247,
12 + .00142, .00716, 2.14763, .54233, .00875,
13 + .00000, .33163, .54546,
14 + .00169, .00731, 4.57296, .68101, .02220,
15 + .00000, .45455, .68470,
16 + .00188, .00743, 6.93782, .80501, .03889,
17 + .00000, .56470, .80910,
18 + .00208, .00755, 9.99880, .95637, .06613,
19 + .00000, .69982, .96086,
20 + .00226, .00765, 13.16388, 1.10405, .10105,
21 + .00000, .83263, 1.10888,
22 + .00243, .00775, 16.70415, 1.26066, .14838,
23 + .00000, .97479, 1.26581,
24 + .00261, .00785, 20.94773, 1.44183, .21831,
25 + .00000, 1.14126, 1.44730 /
26 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=9,16)/
27 + .00276, .00794, 25.12284, 1.61086, .30020,
28 + .00000, 1.29885, 1.61661,
29 + .00292, .00803, 29.65736, 1.78415, .40243,
30 + .00000, 1.46295, 1.79016,
31 + .00304, .00810, 33.51854, 1.92665, .50192,
32 + .00000, 1.60005, 1.93287,
33 + .00330, .00825, 42.81261, 2.24710, .77801,
34 + .00000, 1.91570, 2.25375,
35 + .00353, .00838, 51.92537, 2.53905, 1.09174,
36 + .08999, 2.21204, 2.54605,
37 + .00378, .00853, 63.38321, 2.88537, 1.52589,
38 + .41407, 2.57229, 2.89276,
39 + .00405, .00868, 76.77367, 3.27568, 2.06127,
40 + .88212, 2.98472, 3.28347,
41 + .00430, .00882, 90.27887, 3.66532, 2.60704,
42 + 1.33212, 3.39790, 3.67345 /
43 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=17,24)/
44 + .00455, .00896, 105.25424, 4.10058, 3.20168,
45 + 1.83209, 3.85713, 4.10905,
46 + .00476, .00908, 118.72684, 4.49842, 3.72133,
47 + 2.27950, 4.27335, 4.50716,
48 + .00502, .00923, 136.23756, 5.02671, 4.37627,
49 + 2.86165, 4.82088, 5.03578,
50 + .00525, .00936, 152.93202, 5.54004, 4.97949,
51 + 3.41592, 5.34804, 5.54939,
52 + .00546, .00948, 169.34200, 6.05143, 5.55554,
53 + 3.95946, 5.86956, 6.06102,
54 + .00574, .00963, 191.32417, 6.74912, 6.31416,
55 + 4.69155, 6.57705, 6.75903,
56 + .00600, .00978, 213.35898, 7.45827, 7.06313,
57 + 5.42769, 7.29290, 7.46846,
58 + .00624, .00992, 235.33051, 8.17194, 7.80258,
59 + 6.16303, 8.01117, 8.18239 /
60 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=25,32)/
61 + .00649, .01006, 258.47083, 8.93081, 8.57918,
62 + 6.94097, 8.77348, 8.94151,
63 + .00673, .01020, 282.09943, 9.71395, 9.37422,
64 + 7.74098, 9.55917, 9.72488,
65 + .00697, .01033, 305.71927, 10.50036, 10.16848,
66 + 8.54213, 10.34751, 10.51152,
67 + .00719, .01045, 328.66223, 11.27234, 10.94581,
68 + 9.32724, 11.12098, 11.28370,
69 + .00741, .01058, 352.77954, 12.08749, 11.76498,
70 + 10.15499, 11.93743, 12.09905,
71 + .00764, .01070, 377.25537, 12.92173, 12.60230,
72 + 11.00122, 12.77281, 12.93348,
73 + .00785, .01082, 401.38583, 13.74898, 13.43195,
74 + 11.83957, 13.60106, 13.76092,
75 + .00805, .01094, 424.83652, 14.55918, 14.24410,
76 + 12.66004, 14.41214, 14.57128 /
77 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=33,37)/
78 + .00826, .01105, 449.32571, 15.40913, 15.09581,
79 + 13.52016, 15.26294, 15.42139,
80 + .00847, .01117, 473.94208, 16.27154, 15.95983,
81 + 14.39247, 16.12617, 16.28396,
82 + .00867, .01128, 498.39615, 17.13007, 16.81981,
83 + 15.26030, 16.98546, 17.14265,
84 + .00885, .01138, 521.68097, 17.95758, 17.64863,
85 + 16.09654, 17.81366, 17.97029,
86 + .00905, .01149, 546.13434, 18.82824, 18.52058,
87 + 16.97592, 18.68502, 18.84108 /
88 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,8)/
89 + .00256, .00863, .95452, .42831, .00336,
90 + .00000, .24242, .43084,
91 + .00281, .00878, 2.05475, .49309, .00788,
92 + .00000, .29981, .49588,
93 + .00318, .00901, 4.20982, .61417, .01968,
94 + .00000, .40699, .61734,
95 + .00345, .00917, 6.25730, .72060, .03414,
96 + .00000, .50147, .72403,
97 + .00373, .00933, 8.85593, .84873, .05749,
98 + .00000, .61583, .85243,
99 + .00398, .00948, 11.49813, .97224, .08716,
100 + .00000, .72693, .97617,
101 + .00421, .00961, 14.41224, 1.10184, .12706,
102 + .00000, .84464, 1.10598,
103 + .00446, .00976, 17.85801, 1.25013, .18553,
104 + .00000, .98106, 1.25449 /
105 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=9,16)/
106 + .00468, .00989, 21.20776, 1.38713, .25351,
107 + .00000, 1.10900, 1.39167,
108 + .00490, .01001, 24.80883, 1.52637, .33781,
109 + .00000, 1.24116, 1.53109,
110 + .00507, .01011, 27.84710, 1.63994, .41938,
111 + .00000, 1.35075, 1.64480,
112 + .00543, .01031, 35.07557, 1.89268, .64387,
113 + .00000, 1.60068, 1.89783,
114 + .00575, .01049, 42.06365, 2.11998, .89634,
115 + .07078, 1.83260, 2.12536,
116 + .00610, .01070, 50.73584, 2.38651, 1.24207,
117 + .32396, 2.11155, 2.39216,
118 + .00647, .01090, 60.73619, 2.68368, 1.66341,
119 + .68658, 2.42757, 2.68958,
120 + .00681, .01110, 70.69849, 2.97774, 2.08788,
121 + 1.03150, 2.74124, 2.98388 /
122 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=17,24)/
123 + .00716, .01129, 81.62113, 3.30387, 2.54501,
124 + 1.41133, 3.08705, 3.31024,
125 + .00745, .01145, 91.34998, 3.60015, 2.94026,
126 + 1.74846, 3.39824, 3.60670,
127 + .00780, .01165, 103.86962, 3.99115, 3.43317,
128 + 2.18360, 3.80472, 3.99793,
129 + .00812, .01183, 115.69137, 4.36874, 3.88244,
130 + 2.59465, 4.19334, 4.37570,
131 + .00841, .01199, 127.21683, 4.74281, 4.30772,
132 + 2.99497, 4.57544, 4.74995,
133 + .00878, .01219, 142.51237, 5.24984, 4.86265,
134 + 3.53012, 5.09019, 5.25719,
135 + .00914, .01239, 157.70033, 5.76163, 5.40554,
136 + 4.06405, 5.60723, 5.76917,
137 + .00947, .01257, 172.71829, 6.27337, 5.93732,
138 + 4.59366, 6.12256, 6.28108 /
139 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=25,32)/
140 + .00981, .01276, 188.40701, 6.81408, 6.49177,
141 + 5.15019, 6.66596, 6.82197,
142 + .01014, .01294, 204.29691, 7.36855, 7.05545,
143 + 5.71871, 7.22244, 7.37660,
144 + .01046, .01311, 220.07115, 7.92219, 7.61517,
145 + 6.28469, 7.77758, 7.93039,
146 + .01076, .01328, 235.28136, 8.46253, 8.15967,
147 + 6.83606, 8.31911, 8.47088,
148 + .01106, .01344, 251.17184, 9.03018, 8.73047,
149 + 7.41432, 8.88779, 9.03867,
150 + .01137, .01361, 267.19235, 9.60806, 9.31079,
151 + 8.00232, 9.46659, 9.61668,
152 + .01165, .01377, 282.89365, 10.17831, 9.88295,
153 + 8.58193, 10.03763, 10.18705,
154 + .01193, .01392, 298.06366, 10.73418, 10.44039,
155 + 9.14647, 10.59421, 10.74304 /
156 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=33,37)/
157 + .01221, .01407, 313.82397, 11.31481, 11.02245,
158 + 9.73571, 11.17553, 11.32378,
159 + .01249, .01422, 329.57388, 11.90121, 11.61016,
160 + 10.33048, 11.76259, 11.91030,
161 + .01275, .01436, 345.15158, 12.48276, 12.19290,
162 + 10.91989, 12.34476, 12.49195,
163 + .01301, .01450, 359.89584, 13.04074, 12.75196,
164 + 11.48525, 12.90330, 13.05002,
165 + .01327, .01464, 375.32080, 13.62583, 13.33812,
166 + 12.07771, 13.48897, 13.63522 /
167 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,8)/
168 + .00452, .01057, .95880, .39023, .00306,
169 + .00000, .21994, .39265,
170 + .00487, .01079, 1.96652, .44798, .00709,
171 + .00000, .27098, .45056,
172 + .00540, .01110, 3.87597, .55351, .01743,
173 + .00000, .36429, .55633,
174 + .00578, .01132, 5.64359, .64463, .02994,
175 + .00000, .44513, .64762,
176 + .00619, .01155, 7.84315, .75278, .04993,
177 + .00000, .54164, .75594,
178 + .00653, .01175, 10.04190, .85573, .07509,
179 + .00000, .63427, .85903,
180 + .00686, .01194, 12.43269, .96260, .10865,
181 + .00000, .73140, .96603,
182 + .00722, .01214, 15.22083, 1.08350, .15743,
183 + .00000, .84276, 1.08707 /
184 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=9,16)/
185 + .00752, .01232, 17.89850, 1.19408, .21374,
186 + .00000, .94622, 1.19776,
187 + .00782, .01249, 20.74739, 1.30547, .28311,
188 + .00000, 1.05221, 1.30926,
189 + .00806, .01262, 23.12864, 1.39557, .34983,
190 + .00000, 1.13944, 1.39945,
191 + .00857, .01290, 28.72740, 1.59392, .53192,
192 + .00000, 1.33644, 1.59799,
193 + .00901, .01315, 34.06276, 1.76994, .73461,
194 + .05547, 1.51708, 1.77416,
195 + .00950, .01342, 40.59650, 1.97390, 1.00924,
196 + .25253, 1.73201, 1.97828,
197 + .01001, .01371, 48.02902, 2.19882, 1.33995,
198 + .53245, 1.97292, 2.20337,
199 + .01048, .01396, 55.34068, 2.41945, 1.66913,
200 + .79584, 2.20983, 2.42415 /
201 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=17,24)/
202 + .01096, .01423, 63.26545, 2.66241, 2.01948,
203 + 1.08327, 2.46889, 2.66725,
204 + .01136, .01444, 70.25235, 2.88180, 2.31910,
205 + 1.33630, 2.70036, 2.88676,
206 + .01185, .01471, 79.15251, 3.16960, 2.68871,
207 + 1.66025, 3.00057, 3.17470,
208 + .01228, .01495, 87.47433, 3.44584, 3.02199,
209 + 1.96381, 3.28558, 3.45106,
210 + .01268, .01516, 95.52023, 3.71801, 3.33462,
211 + 2.25742, 3.56409, 3.72334,
212 + .01319, .01544, 106.09579, 4.08449, 3.73870,
213 + 2.64692, 3.93664, 4.08996,
214 + .01368, .01570, 116.49593, 4.45185, 4.13032,
215 + 3.03246, 4.30810, 4.45745,
216 + .01413, .01594, 126.69185, 4.81681, 4.51082,
217 + 3.41217, 4.67586, 4.82252 /
218 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=25,32)/
219 + .01459, .01619, 137.25456, 5.19997, 4.90462,
220 + 3.80848, 5.06112, 5.20580,
221 + .01504, .01643, 147.86296, 5.59035, 5.30211,
222 + 4.21058, 5.45305, 5.59628,
223 + .01547, .01666, 158.32004, 5.97791, 5.69439,
224 + 4.60849, 5.84180, 5.98395,
225 + .01588, .01688, 168.32674, 6.35395, 6.07366,
226 + 4.99379, 6.21877, 6.36008,
227 + .01629, .01709, 178.71536, 6.74696, 6.46913,
228 + 5.39575, 6.61259, 6.75318,
229 + .01670, .01731, 189.11736, 7.14488, 6.86898,
230 + 5.80221, 7.01124, 7.15120,
231 + .01709, .01752, 199.25040, 7.53563, 7.26125,
232 + 6.20086, 7.40262, 7.54202,
233 + .01746, .01771, 208.98117, 7.91466, 7.64155,
234 + 6.58724, 7.78222, 7.92114 /
235 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=33,37)/
236 + .01784, .01791, 219.03743, 8.30887, 8.03692,
237 + 6.98872, 8.17698, 8.31542,
238 + .01821, .01811, 229.02512, 8.70510, 8.43421,
239 + 7.39202, 8.57374, 8.71172,
240 + .01857, .01830, 238.86061, 9.09655, 8.82664,
241 + 7.79013, 8.96569, 9.10325,
242 + .01891, .01848, 248.11046, 9.47035, 9.20133,
243 + 8.17017, 9.33994, 9.47712,
244 + .01926, .01866, 257.75046, 9.86099, 9.59285,
245 + 8.56705, 9.73104, 9.86783 /
246 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,8)/
247 + .00607, .01191, .96177, .36937, .00289,
248 + .00000, .20776, .37179,
249 + .00651, .01217, 1.91719, .42332, .00667,
250 + .00000, .25540, .42587,
251 + .00716, .01254, 3.69346, .52060, .01624,
252 + .00000, .34135, .52332,
253 + .00763, .01281, 5.31296, .60370, .02772,
254 + .00000, .41505, .60654,
255 + .00812, .01309, 7.30488, .70148, .04595,
256 + .00000, .50231, .70445,
257 + .00855, .01333, 9.27617, .79386, .06878,
258 + .00000, .58545, .79694,
259 + .00895, .01356, 11.40167, .88914, .09907,
260 + .00000, .67208, .89231,
261 + .00939, .01380, 13.86018, .99620, .14290,
262 + .00000, .77077, .99948 /
263 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=9,16)/
264 + .00976, .01401, 16.20429, 1.09353, .19326,
265 + .00000, .86195, 1.09690,
266 + .01012, .01421, 18.68305, 1.19105, .25508,
267 + .00000, .95490, 1.19451,
268 + .01041, .01437, 20.74340, 1.26954, .31432,
269 + .00000, 1.03105, 1.27306,
270 + .01103, .01471, 25.55387, 1.44122, .47523,
271 + .00000, 1.20203, 1.44487,
272 + .01156, .01501, 30.09902, 1.59234, .65324,
273 + .04800, 1.35770, 1.59611,
274 + .01216, .01533, 35.62123, 1.76621, .89292,
275 + .21786, 1.54173, 1.77010,
276 + .01278, .01567, 41.85240, 1.95669, 1.17953,
277 + .45797, 1.74671, 1.96071,
278 + .01335, .01598, 47.93647, 2.14258, 1.46278,
279 + .68245, 1.94718, 2.14672 /
280 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=17,24)/
281 + .01393, .01629, 54.48560, 2.34645, 1.76212,
282 + .92613, 2.16535, 2.35069,
283 + .01441, .01655, 60.22464, 2.52991, 2.01645,
284 + 1.13959, 2.35947, 2.53425,
285 + .01500, .01687, 67.49087, 2.76975, 2.32814,
286 + 1.41159, 2.61020, 2.77419,
287 + .01552, .01715, 74.24516, 2.99913, 2.60738,
288 + 1.66525, 2.84725, 3.00367,
289 + .01601, .01740, 80.74314, 3.22443, 2.86789,
290 + 1.90959, 3.07807, 3.22905,
291 + .01662, .01773, 89.23483, 3.52663, 3.20269,
292 + 2.23227, 3.38553, 3.53136,
293 + .01720, .01804, 97.53741, 3.82832, 3.52533,
294 + 2.55018, 3.69076, 3.83314,
295 + .01775, .01832, 105.63536, 4.12689, 3.83731,
296 + 2.86196, 3.99176, 4.13181 /
297 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=25,32)/
298 + .01830, .01861, 113.98271, 4.43918, 4.15874,
299 + 3.18604, 4.30585, 4.44418,
300 + .01884, .01890, 122.32356, 4.75612, 4.48180,
301 + 3.51354, 4.62415, 4.76121,
302 + .01935, .01917, 130.51100, 5.06972, 4.79946,
303 + 3.83648, 4.93877, 5.07489,
304 + .01984, .01942, 138.30943, 5.37293, 5.10546,
305 + 4.14807, 5.24278, 5.37817,
306 + .02033, .01968, 146.37512, 5.68885, 5.42352,
307 + 4.47209, 5.55941, 5.69417,
308 + .02082, .01993, 154.41780, 6.00769, 5.74404,
309 + 4.79866, 5.87889, 6.01308,
310 + .02128, .02017, 162.22395, 6.31985, 6.05755,
311 + 5.11800, 6.19161, 6.32531,
312 + .02172, .02040, 169.69249, 6.62180, 6.36061,
313 + 5.42661, 6.49406, 6.62732 /
314 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=33,37)/
315 + .02217, .02063, 177.38649, 6.93502, 6.67486,
316 + 5.74643, 6.80777, 6.94061,
317 + .02261, .02086, 184.99924, 7.24893, 6.98973,
318 + 6.06677, 7.12214, 7.25458,
319 + .02304, .02108, 192.47658, 7.55838, 7.30004,
320 + 6.38225, 7.43203, 7.56409,
321 + .02344, .02129, 199.48074, 7.85301, 7.59546,
322 + 6.68255, 7.72706, 7.85878,
323 + .02386, .02151, 206.76364, 8.16031, 7.90355,
324 + 6.99550, 8.03476, 8.16613 /
325 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,8)/
326 + .00741, .01297, .96419, .35516, .00278,
327 + .00000, .19953, .35762,
328 + .00792, .01326, 1.88330, .40655, .00638,
329 + .00000, .24488, .40912,
330 + .00867, .01369, 3.56944, .49831, .01544,
331 + .00000, .32593, .50102,
332 + .00921, .01400, 5.09022, .57609, .02624,
333 + .00000, .39490, .57890,
334 + .00978, .01432, 6.94525, .66705, .04331,
335 + .00000, .47607, .66996,
336 + .01027, .01459, 8.76792, .75252, .06460,
337 + .00000, .55300, .75552,
338 + .01074, .01485, 10.72138, .84025, .09275,
339 + .00000, .63281, .84333,
340 + .01124, .01512, 12.96762, .93836, .13335,
341 + .00000, .72330, .94152 /
342 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=9,16)/
343 + .01167, .01536, 15.09830, 1.02715, .17986,
344 + .00000, .80657, 1.03039,
345 + .01209, .01559, 17.34150, 1.11579, .23678,
346 + .00000, .89115, 1.11910,
347 + .01242, .01577, 19.19858, 1.18686, .29120,
348 + .00000, .96022, 1.19022,
349 + .01313, .01616, 23.51276, 1.34160, .43848,
350 + .00000, 1.11466, 1.34507,
351 + .01374, .01649, 27.56405, 1.47701, .60072,
352 + .04328, 1.25455, 1.48058,
353 + .01443, .01686, 32.45835, 1.63201, .81818,
354 + .19599, 1.41916, 1.63568,
355 + .01514, .01724, 37.94894, 1.80102, 1.07690,
356 + .41111, 1.60168, 1.80480,
357 + .01580, .01759, 43.28111, 1.96536, 1.33129,
358 + .61132, 1.77950, 1.96924 /
359 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=17,24)/
360 + .01646, .01794, 48.99258, 2.14507, 1.59877,
361 + .82782, 1.97234, 2.14904,
362 + .01701, .01824, 53.97569, 2.30641, 1.82496,
363 + 1.01681, 2.14343, 2.31045,
364 + .01768, .01859, 60.25713, 2.51680, 2.10085,
365 + 1.25680, 2.36375, 2.52093,
366 + .01828, .01890, 66.07139, 2.71753, 2.34687,
367 + 1.47985, 2.57145, 2.72175,
368 + .01883, .01919, 71.64510, 2.91424, 2.57548,
369 + 1.69408, 2.77316, 2.91853,
370 + .01952, .01956, 78.89846, 3.17739, 2.86807,
371 + 1.97608, 3.04106, 3.18177,
372 + .02018, .01991, 85.96050, 3.43931, 3.14887,
373 + 2.25297, 3.30619, 3.44377,
374 + .02081, .02023, 92.82318, 3.69783, 3.41945,
375 + 2.52370, 3.56690, 3.70237 /
376 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=25,32)/
377 + .02143, .02055, 99.87158, 3.96750, 3.69734,
378 + 2.80430, 3.83819, 3.97212,
379 + .02204, .02087, 106.88850, 4.24043, 3.97577,
380 + 3.08705, 4.11234, 4.24513,
381 + .02263, .02118, 113.75548, 4.50984, 4.24883,
382 + 3.36514, 4.38268, 4.51460,
383 + .02318, .02146, 120.27418, 4.76965, 4.51117,
384 + 3.63276, 4.64322, 4.77448,
385 + .02374, .02175, 126.99796, 5.03977, 4.78322,
386 + 3.91043, 4.91398, 5.04466,
387 + .02429, .02203, 133.68233, 5.31175, 5.05673,
388 + 4.18963, 5.18654, 5.31671,
389 + .02481, .02230, 140.15280, 5.57747, 5.32368,
390 + 4.46205, 5.45277, 5.58249,
391 + .02531, .02256, 146.32683, 5.83397, 5.58120,
392 + 4.72476, 5.70973, 5.83904 /
393 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=33,37)/
394 + .02582, .02282, 152.67271, 6.09954, 5.84772,
395 + 4.99650, 5.97574, 6.10467,
396 + .02632, .02307, 158.93408, 6.36515, 6.11421,
397 + 5.26811, 6.24178, 6.37034,
398 + .02680, .02332, 165.07289, 6.62656, 6.37642,
399 + 5.53516, 6.50360, 6.63180,
400 + .02726, .02355, 170.80612, 6.87494, 6.62554,
401 + 5.78883, 6.75234, 6.88022,
402 + .02772, .02379, 176.75813, 7.13363, 6.88495,
403 + 6.05280, 7.01140, 7.13896 /
404 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,8)/
405 + .00859, .01385, .96633, .34445, .00270,
406 + .00000, .19337, .34697,
407 + .00917, .01418, 1.85770, .39393, .00617,
408 + .00000, .23702, .39654,
409 + .01001, .01465, 3.47630, .48159, .01484,
410 + .00000, .31443, .48433,
411 + .01062, .01499, 4.92393, .55544, .02514,
412 + .00000, .37991, .55827,
413 + .01126, .01534, 6.67833, .64139, .04136,
414 + .00000, .45661, .64431,
415 + .01181, .01565, 8.39248, .72181, .06152,
416 + .00000, .52901, .72480,
417 + .01233, .01593, 10.22099, .80405, .08811,
418 + .00000, .60385, .80711,
419 + .01289, .01624, 12.31391, .89566, .12635,
420 + .00000, .68840, .89880 /
421 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=9,16)/
422 + .01337, .01650, 14.29113, .97830, .17005,
423 + .00000, .76595, .98150,
424 + .01384, .01675, 16.36561, 1.06054, .22342,
425 + .00000, .84451, 1.06380,
426 + .01421, .01695, 18.07762, 1.12629, .27435,
427 + .00000, .90850, 1.12960,
428 + .01500, .01738, 22.03923, 1.26892, .41181,
429 + .00000, 1.05110, 1.27232,
430 + .01568, .01774, 25.74158, 1.39316, .56270,
431 + .03991, 1.17975, 1.39665,
432 + .01644, .01815, 30.19447, 1.53479, .76426,
433 + .18044, 1.33059, 1.53838,
434 + .01724, .01857, 35.16710, 1.68867, 1.00312,
435 + .37785, 1.49725, 1.69234,
436 + .01796, .01895, 39.97584, 1.83786, 1.23703,
437 + .56093, 1.65911, 1.84162 /
438 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=17,24)/
439 + .01870, .01934, 45.10676, 2.00064, 1.48201,
440 + .75831, 1.83420, 2.00449,
441 + .01931, .01966, 49.56796, 2.14652, 1.68840,
442 + .93015, 1.98917, 2.15043,
443 + .02005, .02005, 55.17208, 2.33639, 1.93921,
444 + 1.14776, 2.18828, 2.34039,
445 + .02071, .02040, 60.34218, 2.51721, 2.16204,
446 + 1.34949, 2.37556, 2.52127,
447 + .02132, .02071, 65.28451, 2.69409, 2.36845,
448 + 1.54280, 2.55708, 2.69822,
449 + .02209, .02111, 71.69499, 2.93021, 2.63178,
450 + 1.79659, 2.79759, 2.93442,
451 + .02282, .02149, 77.91586, 3.16469, 2.88368,
452 + 2.04515, 3.03504, 3.16899,
453 + .02351, .02185, 83.94353, 3.39565, 3.12574,
454 + 2.28760, 3.26801, 3.40001 /
455 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=25,32)/
456 + .02420, .02220, 90.11655, 3.63605, 3.37371,
457 + 2.53832, 3.50992, 3.64049,
458 + .02488, .02255, 96.24416, 3.87885, 3.62157,
459 + 2.79038, 3.75384, 3.88335,
460 + .02552, .02288, 102.22656, 4.11804, 3.86414,
461 + 3.03780, 3.99390, 4.12261,
462 + .02613, .02319, 107.89021, 4.34827, 4.09669,
463 + 3.27542, 4.22480, 4.35290,
464 + .02674, .02351, 113.71963, 4.58721, 4.33744,
465 + 3.52152, 4.46435, 4.59191,
466 + .02735, .02382, 119.50094, 4.82737, 4.57902,
467 + 3.76853, 4.70505, 4.83212,
468 + .02793, .02411, 125.08563, 5.06162, 4.81441,
469 + 4.00912, 4.93977, 5.06642,
470 + .02848, .02439, 130.40289, 5.28735, 5.04111,
471 + 4.24076, 5.16593, 5.29221 /
472 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=33,37)/
473 + .02903, .02467, 135.85851, 5.52074, 5.27539,
474 + 4.47999, 5.39974, 5.52565,
475 + .02958, .02495, 141.22934, 5.75379, 5.50926,
476 + 4.71873, 5.63318, 5.75875,
477 + .03011, .02522, 146.48755, 5.98286, 5.73909,
478 + 4.95315, 5.86263, 5.98787,
479 + .03061, .02547, 151.38669, 6.20014, 5.95706,
480 + 5.17545, 6.08026, 6.20519,
481 + .03112, .02573, 156.46631, 6.42619, 6.18381,
482 + 5.40652, 6.30666, 6.43130 /
483 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,8)/
484 + .01334, .01705, .97504, .31289, .00246,
485 + .00000, .17545, .31577,
486 + .01417, .01749, 1.78256, .35677, .00555,
487 + .00000, .21412, .35972,
488 + .01537, .01814, 3.20362, .43263, .01313,
489 + .00000, .28109, .43569,
490 + .01624, .01860, 4.44148, .49530, .02200,
491 + .00000, .33667, .49843,
492 + .01715, .01908, 5.91135, .56710, .03579,
493 + .00000, .40079, .57031,
494 + .01792, .01949, 7.32228, .63338, .05278,
495 + .00000, .46052, .63665,
496 + .01867, .01988, 8.80512, .70037, .07499,
497 + .00000, .52156, .70370,
498 + .01945, .02029, 10.47779, .77408, .10666,
499 + .00000, .58974, .77747 /
500 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=9,16)/
501 + .02013, .02064, 12.03785, .83984, .14258,
502 + .00000, .65163, .84329,
503 + .02079, .02098, 13.65697, .90466, .18615,
504 + .00000, .71379, .90816,
505 + .02130, .02125, 14.97987, .95601, .22747,
506 + .00000, .76399, .95955,
507 + .02241, .02183, 18.00327, 1.06608, .33806,
508 + .00000, .87474, 1.06971,
509 + .02336, .02232, 20.78594, 1.16055, .45817,
510 + .03090, .97337, 1.16425,
511 + .02442, .02286, 24.08571, 1.26685, .61685,
512 + .13896, 1.08768, 1.27063,
513 + .02553, .02343, 27.71745, 1.38099, .80257,
514 + .28949, 1.21258, 1.38485,
515 + .02653, .02394, 31.18248, 1.49067, .98215,
516 + .42753, 1.33273, 1.49462 /
517 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=17,24)/
518 + .02754, .02446, 34.83428, 1.60954, 1.16786,
519 + .57495, 1.46161, 1.61356,
520 + .02839, .02489, 37.97470, 1.71548, 1.32247,
521 + .70221, 1.57488, 1.71956,
522 + .02941, .02540, 41.87618, 1.85257, 1.50814,
523 + .86200, 1.71935, 1.85673,
524 + .03031, .02586, 45.43747, 1.98236, 1.67116,
525 + 1.00889, 1.85427, 1.98659,
526 + .03115, .02628, 48.81157, 2.10866, 1.82066,
527 + 1.14863, 1.98424, 2.11295,
528 + .03220, .02681, 53.14157, 2.27614, 2.00938,
529 + 1.33063, 2.15518, 2.28051,
530 + .03320, .02731, 57.29905, 2.44128, 2.18806,
531 + 1.50740, 2.32264, 2.44573,
532 + .03413, .02778, 61.29009, 2.60287, 2.35824,
533 + 1.67854, 2.48582, 2.60738 /
534 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=25,32)/
535 + .03507, .02825, 65.33988, 2.76994, 2.53118,
536 + 1.85424, 2.65408, 2.77452,
537 + .03598, .02871, 69.32187, 2.93752, 2.70270,
538 + 2.02961, 2.82256, 2.94217,
539 + .03686, .02914, 73.18002, 3.10164, 2.86946,
540 + 2.20068, 2.98738, 3.10635,
541 + .03768, .02955, 76.80062, 3.25860, 3.02827,
542 + 2.36391, 3.14490, 3.26338,
543 + .03850, .02996, 80.50179, 3.42063, 3.19174,
544 + 2.53201, 3.30742, 3.42547,
545 + .03932, .03036, 84.14366, 3.58254, 3.35480,
546 + 2.69974, 3.46978, 3.58743,
547 + .04010, .03075, 87.63791, 3.73963, 3.51284,
548 + 2.86223, 3.62726, 3.74458,
549 + .04083, .03111, 90.94166, 3.89022, 3.66424,
550 + 3.01785, 3.77822, 3.89522 /
551 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=33,37)/
552 + .04158, .03148, 94.31164, 4.04521, 3.81998,
553 + 3.17782, 3.93356, 4.05027,
554 + .04231, .03184, 97.60506, 4.19915, 3.97462,
555 + 3.33661, 4.08784, 4.20426,
556 + .04302, .03218, 100.81474, 4.34987, 4.12600,
557 + 3.49189, 4.23889, 4.35504,
558 + .04368, .03251, 103.78115, 4.49207, 4.26879,
559 + 3.63837, 4.38138, 4.49728,
560 + .04436, .03285, 106.84489, 4.63950, 4.41681,
561 + 3.79007, 4.52911, 4.64476 /
562 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,8)/
563 + .02023, .02111, .98940, .28377, .00224,
564 + .00000, .15923, .28734,
565 + .02142, .02171, 1.71603, .32247, .00499,
566 + .00000, .19336, .32614,
567 + .02314, .02259, 2.95579, .38772, .01160,
568 + .00000, .25101, .39153,
569 + .02437, .02321, 4.00682, .44054, .01921,
570 + .00000, .29790, .44445,
571 + .02566, .02386, 5.22888, .50008, .03089,
572 + .00000, .35114, .50409,
573 + .02675, .02441, 6.38059, .55425, .04513,
574 + .00000, .40005, .55835,
575 + .02780, .02494, 7.57247, .60833, .06359,
576 + .00000, .44946, .61251,
577 + .02890, .02549, 8.89668, .66708, .08968,
578 + .00000, .50396, .67135 /
579 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=9,16)/
580 + .02986, .02597, 10.11535, .71889, .11903,
581 + .00000, .55292, .72323,
582 + .03078, .02643, 11.36596, .76945, .15439,
583 + .00000, .60164, .77386,
584 + .03150, .02679, 12.37711, .80910, .18771,
585 + .00000, .64065, .81357,
586 + .03305, .02756, 14.65833, .89305, .27612,
587 + .00000, .72577, .89763,
588 + .03437, .02822, 16.72455, .96396, .37109,
589 + .02371, .80057, .96865,
590 + .03584, .02895, 19.13870, 1.04264, .49516,
591 + .10611, .88621, 1.04744,
592 + .03737, .02970, 21.75547, 1.12609, .63852,
593 + .21989, .97871, 1.13101,
594 + .03875, .03038, 24.21696, 1.20557, .77532,
595 + .32302, 1.06681, 1.21060 /
596 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=17,24)/
597 + .04015, .03107, 26.77758, 1.29113, .91493,
598 + .43211, 1.16051, 1.29626,
599 + .04130, .03164, 28.95419, 1.36697, 1.02973,
600 + .52543, 1.24226, 1.37219,
601 + .04270, .03232, 31.62656, 1.46457, 1.16587,
602 + .64159, 1.34577, 1.46990,
603 + .04394, .03293, 34.03856, 1.55645, 1.28389,
604 + .74746, 1.44174, 1.56188,
605 + .04507, .03348, 36.30234, 1.64540, 1.39100,
606 + .84743, 1.53359, 1.65091,
607 + .04651, .03418, 39.17430, 1.76254, 1.52468,
608 + .97654, 1.65349, 1.76816,
609 + .04786, .03484, 41.90063, 1.87721, 1.64986,
610 + 1.10085, 1.77002, 1.88293,
611 + .04912, .03545, 44.49200, 1.98865, 1.76798,
612 + 1.22029, 1.88275, 1.99447 /
613 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=25,32)/
614 + .05038, .03606, 47.09552, 2.10308, 1.88698,
615 + 1.34198, 1.99816, 2.10900,
616 + .05162, .03666, 49.62906, 2.21704, 2.00403,
617 + 1.46254, 2.11287, 2.22305,
618 + .05279, .03723, 52.06407, 2.32797, 2.11706,
619 + 1.57937, 2.22440, 2.33407,
620 + .05389, .03776, 54.32705, 2.43334, 2.22393,
621 + 1.69008, 2.33025, 2.43952,
622 + .05499, .03829, 56.62348, 2.54151, 2.33330,
623 + 1.80344, 2.43886, 2.54778,
624 + .05608, .03882, 58.86366, 2.64893, 2.44170,
625 + 1.91584, 2.54668, 2.65528,
626 + .05712, .03931, 60.99723, 2.75258, 2.54617,
627 + 2.02412, 2.65070, 2.75901,
628 + .05810, .03978, 62.99882, 2.85140, 2.64570,
629 + 2.12725, 2.74985, 2.85790 /
630 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=33,37)/
631 + .05909, .04026, 65.02779, 2.95261, 2.74758,
632 + 2.23274, 2.85139, 2.95919,
633 + .06006, .04072, 66.99420, 3.05257, 2.84817,
634 + 2.33686, 2.95166, 3.05923,
635 + .06099, .04117, 68.90170, 3.15006, 2.94624,
636 + 2.43826, 3.04945, 3.15679,
637 + .06187, .04159, 70.64791, 3.24148, 3.03820,
638 + 2.53335, 3.14114, 3.24827,
639 + .06277, .04202, 72.44429, 3.33593, 3.13320,
640 + 2.63148, 3.23588, 3.34280 /
641 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,8)/
642 + .02565, .02404, 1.00257, .26786, .00212,
643 + .00000, .15049, .27201,
644 + .02711, .02476, 1.68280, .30368, .00469,
645 + .00000, .18210, .30796,
646 + .02922, .02581, 2.82254, .36317, .01078,
647 + .00000, .23472, .36763,
648 + .03074, .02655, 3.77298, .41072, .01771,
649 + .00000, .27699, .41532,
650 + .03231, .02733, 4.86403, .46380, .02829,
651 + .00000, .32452, .46854,
652 + .03365, .02799, 5.88084, .51168, .04108,
653 + .00000, .36783, .51654,
654 + .03493, .02861, 6.92325, .55912, .05759,
655 + .00000, .41125, .56409,
656 + .03627, .02927, 8.07072, .61025, .08078,
657 + .00000, .45880, .61533 /
658 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=9,16)/
659 + .03743, .02984, 9.11812, .65502, .10676,
660 + .00000, .50124, .66020,
661 + .03855, .03038, 10.18559, .69844, .13792,
662 + .00000, .54323, .70372,
663 + .03943, .03081, 11.04310, .73228, .16718,
664 + .00000, .57668, .73763,
665 + .04130, .03172, 12.96245, .80337, .24439,
666 + .00000, .64917, .80888,
667 + .04290, .03250, 14.68385, .86282, .32679,
668 + .02020, .71234, .86847,
669 + .04467, .03336, 16.67682, .92821, .43370,
670 + .09011, .78414, .93401,
671 + .04651, .03425, 18.81679, .99704, .55628,
672 + .18615, .86113, 1.00300,
673 + .04817, .03506, 20.81216, 1.06224, .67232,
674 + .27258, .93402, 1.06833 /
675 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=17,24)/
676 + .04985, .03587, 22.87119, 1.13215, .78980,
677 + .36346, 1.01115, 1.13839,
678 + .05123, .03654, 24.60882, 1.19394, .88566,
679 + .44081, 1.07815, 1.20030,
680 + .05291, .03734, 26.72650, 1.27320, .99845,
681 + .53656, 1.16260, 1.27970,
682 + .05438, .03805, 28.62445, 1.34757, 1.09548,
683 + .62336, 1.24056, 1.35419,
684 + .05574, .03870, 30.39537, 1.41935, 1.18294,
685 + .70497, 1.31489, 1.42609,
686 + .05745, .03952, 32.62574, 1.51349, 1.29135,
687 + .80981, 1.41147, 1.52037,
688 + .05905, .04029, 34.72786, 1.60525, 1.39216,
689 + .91023, 1.50487, 1.61226,
690 + .06055, .04100, 36.71349, 1.69405, 1.48673,
691 + 1.00625, 1.59484, 1.70119 /
692 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=25,32)/
693 + .06205, .04172, 38.69590, 1.78486, 1.58151,
694 + 1.10365, 1.68654, 1.79212,
695 + .06351, .04242, 40.61222, 1.87488, 1.67424,
696 + 1.19968, 1.77727, 1.88227,
697 + .06489, .04307, 42.44470, 1.96219, 1.76342,
698 + 1.29237, 1.86514, 1.96970,
699 + .06619, .04369, 44.13695, 2.04478, 1.84735,
700 + 1.37985, 1.94819, 2.05240,
701 + .06749, .04431, 45.84626, 2.12927, 1.93294,
702 + 1.46909, 2.03311, 2.13699,
703 + .06877, .04492, 47.50433, 2.21285, 2.01744,
704 + 1.55724, 2.11709, 2.22068,
705 + .06999, .04549, 49.07606, 2.29323, 2.09859,
706 + 1.64187, 2.19783, 2.30116,
707 + .07114, .04604, 50.54305, 2.36960, 2.17563,
708 + 1.72218, 2.27452, 2.37762 /
709 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=33,37)/
710 + .07230, .04659, 52.02417, 2.44758, 2.25426,
711 + 1.80409, 2.35283, 2.45571,
712 + .07344, .04713, 53.45157, 2.52433, 2.33161,
713 + 1.88466, 2.42989, 2.53255,
714 + .07453, .04764, 54.83226, 2.59899, 2.40685,
715 + 1.96292, 2.50486, 2.60731,
716 + .07556, .04813, 56.08799, 2.66875, 2.47712,
717 + 2.03604, 2.57488, 2.67714,
718 + .07661, .04862, 57.37670, 2.74066, 2.54957,
719 + 2.11133, 2.64708, 2.74915 /
720 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,8)/
721 + .03033, .02646, 1.01535, .25710, .00204,
722 + .00000, .14459, .26175,
723 + .03201, .02728, 1.66276, .29092, .00449,
724 + .00000, .17447, .29572,
725 + .03445, .02846, 2.73352, .34646, .01022,
726 + .00000, .22365, .35150,
727 + .03620, .02931, 3.61567, .39047, .01670,
728 + .00000, .26282, .39567,
729 + .03801, .03019, 4.61887, .43924, .02653,
730 + .00000, .30655, .44461,
731 + .03955, .03093, 5.54616, .48295, .03837,
732 + .00000, .34614, .48847,
733 + .04101, .03164, 6.49024, .52603, .05357,
734 + .00000, .38564, .53168,
735 + .04255, .03239, 7.52240, .57218, .07486,
736 + .00000, .42866, .57798 /
737 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=9,16)/
738 + .04388, .03303, 8.45889, .61239, .09862,
739 + .00000, .46686, .61830,
740 + .04516, .03365, 9.40846, .65119, .12703,
741 + .00000, .50452, .65723,
742 + .04617, .03413, 10.16764, .68131, .15363,
743 + .00000, .53438, .68743,
744 + .04831, .03516, 11.85697, .74419, .22356,
745 + .00000, .59881, .75051,
746 + .05013, .03604, 13.36106, .79638, .29783,
747 + .01797, .65460, .80287,
748 + .05216, .03701, 15.09067, .85342, .39373,
749 + .07996, .71767, .86009,
750 + .05425, .03801, 16.93489, .91311, .50306,
751 + .16481, .78494, .91997,
752 + .05614, .03891, 18.64328, .96943, .60595,
753 + .24076, .84834, .97646 /
754 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=17,24)/
755 + .05804, .03982, 20.39558, 1.02966, .70950,
756 + .32030, .91519, 1.03687,
757 + .05961, .04057, 21.86639, 1.08278, .79352,
758 + .38772, .97307, 1.09013,
759 + .06150, .04147, 23.64895, 1.15076, .89181,
760 + .47085, 1.04579, 1.15828,
761 + .06317, .04226, 25.23816, 1.21440, .97587,
762 + .54593, 1.11270, 1.22207,
763 + .06470, .04299, 26.71450, 1.27568, 1.05128,
764 + .61627, 1.17633, 1.28349,
765 + .06663, .04390, 28.56362, 1.35583, 1.14424,
766 + .70631, 1.25870, 1.36381,
767 + .06844, .04476, 30.29696, 1.43369, 1.23024,
768 + .79221, 1.33810, 1.44183,
769 + .07012, .04556, 31.92654, 1.50882, 1.31058,
770 + .87406, 1.41431, 1.51712 /
771 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=25,32)/
772 + .07181, .04635, 33.54572, 1.58541, 1.39076,
773 + .95680, 1.49175, 1.59386,
774 + .07344, .04713, 35.10294, 1.66110, 1.46892,
775 + 1.03811, 1.56811, 1.66969,
776 + .07500, .04786, 36.58636, 1.73429, 1.54384,
777 + 1.11636, 1.64185, 1.74302,
778 + .07645, .04854, 37.94950, 1.80331, 1.61412,
779 + 1.18997, 1.71133, 1.81217,
780 + .07791, .04923, 39.32158, 1.87374, 1.68560,
781 + 1.26488, 1.78219, 1.88273,
782 + .07934, .04990, 40.64670, 1.94322, 1.75595,
783 + 1.33865, 1.85206, 1.95233,
784 + .08070, .05054, 41.89826, 2.00986, 1.82334,
785 + 1.40929, 1.91906, 2.01909,
786 + .08198, .05114, 43.06174, 2.07301, 1.88716,
787 + 1.47617, 1.98255, 2.08236 /
788 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=33,37)/
789 + .08327, .05175, 44.23286, 2.13736, 1.95214,
790 + 1.54422, 2.04723, 2.14683,
791 + .08455, .05234, 45.35651, 2.20052, 2.01590,
792 + 1.61097, 2.11071, 2.21009,
793 + .08576, .05291, 46.44109, 2.26185, 2.07780,
794 + 1.67570, 2.17235, 2.27154,
795 + .08691, .05344, 47.42225, 2.31899, 2.13545,
796 + 1.73601, 2.22976, 2.32877,
797 + .08807, .05399, 48.42741, 2.37780, 2.19479,
798 + 1.79800, 2.28886, 2.38769 /
799 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,8)/
800 + .03463, .02864, 1.03201, .24930, .00198,
801 + .00000, .14014, .25426,
802 + .03651, .02955, 1.65330, .28152, .00432,
803 + .00000, .16862, .28666,
804 + .03923, .03087, 2.67025, .33401, .00978,
805 + .00000, .21511, .33940,
806 + .04118, .03181, 3.49964, .37531, .01591,
807 + .00000, .25189, .38087,
808 + .04319, .03278, 4.43564, .42081, .02517,
809 + .00000, .29273, .42657,
810 + .04490, .03360, 5.29501, .46140, .03628,
811 + .00000, .32953, .46731,
812 + .04652, .03439, 6.16500, .50121, .05049,
813 + .00000, .36608, .50728,
814 + .04823, .03521, 7.11089, .54368, .07034,
815 + .00000, .40572, .54990 /
816 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=9,16)/
817 + .04970, .03592, 7.96486, .58052, .09242,
818 + .00000, .44079, .58687,
819 + .05112, .03660, 8.82712, .61593, .11876,
820 + .00000, .47524, .62242,
821 + .05223, .03713, 9.51381, .64332, .14338,
822 + .00000, .50247, .64990,
823 + .05459, .03826, 11.03452, .70022, .20789,
824 + .00000, .56099, .70703,
825 + .05660, .03923, 12.38035, .74717, .27614,
826 + .01634, .61141, .75415,
827 + .05883, .04029, 13.91933, .79818, .36391,
828 + .07258, .66815, .80537,
829 + .06114, .04139, 15.55080, .85133, .46352,
830 + .14930, .72841, .85872,
831 + .06321, .04238, 17.05397, .90130, .55683,
832 + .21771, .78500, .90889 /
833 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=17,24)/
834 + .06530, .04337, 18.58807, .95463, .65028,
835 + .28908, .84448, .96241,
836 + .06702, .04419, 19.86990, 1.00158, .72576,
837 + .34938, .89585, 1.00951,
838 + .06909, .04518, 21.41628, 1.06155, .81364,
839 + .42350, .96021, 1.06967,
840 + .07092, .04604, 22.78886, 1.11759, .88844,
841 + .49023, 1.01928, 1.12588,
842 + .07259, .04683, 24.05931, 1.17147, .95526,
843 + .55258, 1.07532, 1.17990,
844 + .07470, .04783, 25.64304, 1.24174, 1.03728,
845 + .63213, 1.14767, 1.25036,
846 + .07667, .04876, 27.12077, 1.30983, 1.11283,
847 + .70779, 1.21719, 1.31863,
848 + .07850, .04962, 28.50467, 1.37538, 1.18316,
849 + .77968, 1.28376, 1.38434 /
850 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=25,32)/
851 + .08034, .05048, 29.87441, 1.44202, 1.25312,
852 + .85214, 1.35121, 1.45115,
853 + .08212, .05132, 31.18591, 1.50770, 1.32109,
854 + .92315, 1.41753, 1.51698,
855 + .08380, .05211, 32.43123, 1.57107, 1.38608,
856 + .99132, 1.48143, 1.58051,
857 + .08538, .05285, 33.57062, 1.63068, 1.44688,
858 + 1.05529, 1.54149, 1.64026,
859 + .08696, .05359, 34.71413, 1.69138, 1.50857,
860 + 1.12025, 1.60261, 1.70110,
861 + .08851, .05432, 35.81441, 1.75110, 1.56914,
862 + 1.18406, 1.66272, 1.76096,
863 + .08998, .05501, 36.85028, 1.80827, 1.62704,
864 + 1.24504, 1.72025, 1.81826,
865 + .09137, .05565, 37.80986, 1.86233, 1.68174,
866 + 1.30265, 1.77464, 1.87244 /
867 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=33,37)/
868 + .09277, .05630, 38.77322, 1.91732, 1.73735,
869 + 1.36115, 1.82995, 1.92755,
870 + .09414, .05694, 39.69402, 1.97115, 1.79177,
871 + 1.41842, 1.88411, 1.98151,
872 + .09545, .05755, 40.58128, 2.02337, 1.84455,
873 + 1.47387, 1.93663, 2.03384,
874 + .09668, .05813, 41.38033, 2.07189, 1.89358,
875 + 1.52541, 1.98542, 2.08247,
876 + .09794, .05871, 42.19775, 2.12177, 1.94398,
877 + 1.57833, 2.03560, 2.13247 /
878 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,8)/
879 + .05207, .03713, 1.09139, .22634, .00180,
880 + .00000, .12731, .23289,
881 + .05470, .03839, 1.63023, .25374, .00387,
882 + .00000, .15161, .26056,
883 + .05849, .04021, 2.48470, .29721, .00853,
884 + .00000, .19025, .30440,
885 + .06118, .04150, 3.15944, .33066, .01367,
886 + .00000, .22015, .33811,
887 + .06395, .04283, 3.90233, .36685, .02129,
888 + .00000, .25275, .37457,
889 + .06630, .04396, 4.56966, .39860, .03032,
890 + .00000, .28168, .40655,
891 + .06853, .04502, 5.23291, .42932, .04175,
892 + .00000, .31003, .43748,
893 + .07086, .04613, 5.94109, .46158, .05754,
894 + .00000, .34033, .46997 /
895 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=9,16)/
896 + .07286, .04709, 6.57012, .48917, .07495,
897 + .00000, .36681, .49776,
898 + .07478, .04800, 7.19660, .51538, .09555,
899 + .00000, .39254, .52415,
900 + .07628, .04872, 7.68913, .53538, .11467,
901 + .00000, .41267, .54430,
902 + .07946, .05023, 8.76268, .57630, .16427,
903 + .00000, .45535, .58551,
904 + .08216, .05151, 9.69400, .60934, .21610,
905 + .01200, .49151, .61882,
906 + .08514, .05293, 10.73937, .64459, .28191,
907 + .05298, .53160, .65435,
908 + .08821, .05437, 11.82629, .68072, .35552,
909 + .10834, .57357, .69077,
910 + .09096, .05567, 12.80969, .71435, .42341,
911 + .15702, .61252, .72466 /
912 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=17,24)/
913 + .09370, .05697, 13.79657, .74999, .49034,
914 + .20723, .65305, .76056,
915 + .09597, .05803, 14.60869, .78120, .54359,
916 + .24921, .68776, .79198,
917 + .09868, .05931, 15.57296, .82084, .60462,
918 + .30027, .73087, .83188,
919 + .10106, .06043, 16.41608, .85768, .65575,
920 + .34576, .77010, .86893,
921 + .10323, .06144, 17.18685, .89290, .70081,
922 + .38790, .80706, .90436,
923 + .10595, .06272, 18.13212, .93847, .75530,
924 + .44111, .85431, .95018,
925 + .10849, .06390, 19.00018, .98225, .80478,
926 + .49119, .89928, .99420,
927 + .11085, .06500, 19.80209, 1.02406, .85028,
928 + .53833, .94196, 1.03623 /
929 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=25,32)/
930 + .11319, .06609, 20.58456, 1.06621, .89504,
931 + .58541, .98483, 1.07859,
932 + .11546, .06715, 21.32210, 1.10736, .93805,
933 + .63112, 1.02657, 1.11995,
934 + .11760, .06814, 22.01469, 1.14679, .97883,
935 + .67466, 1.06650, 1.15957,
936 + .11960, .06906, 22.63852, 1.18353, 1.01662,
937 + .71516, 1.10369, 1.19650,
938 + .12159, .06999, 23.25811, 1.22069, 1.05468,
939 + .75600, 1.14126, 1.23384,
940 + .12354, .07089, 23.84602, 1.25696, 1.09173,
941 + .79580, 1.17792, 1.27029,
942 + .12539, .07174, 24.39330, 1.29143, 1.12690,
943 + .83357, 1.21276, 1.30493,
944 + .12712, .07253, 24.89374, 1.32379, 1.15989,
945 + .86899, 1.24545, 1.33744 /
946 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=33,37)/
947 + .12886, .07334, 25.39145, 1.35650, 1.19321,
948 + .90476, 1.27850, 1.37031,
949 + .13056, .07412, 25.86003, 1.38828, 1.22558,
950 + .93951, 1.31061, 1.40224,
951 + .13219, .07486, 26.30894, 1.41896, 1.25681,
952 + .97299, 1.34160, 1.43306,
953 + .13372, .07556, 26.70547, 1.44720, 1.28558,
954 + 1.00386, 1.37014, 1.46145,
955 + .13526, .07627, 27.10928, 1.47614, 1.31503,
956 + 1.03543, 1.39936, 1.49052 /
957 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,8)/
958 + .07814, .04972, 1.16475, .20611, .00165,
959 + .00000, .11594, .21498,
960 + .08175, .05147, 1.61860, .22875, .00348,
961 + .00000, .13612, .23798,
962 + .08692, .05397, 2.31366, .26369, .00744,
963 + .00000, .16736, .27346,
964 + .09057, .05573, 2.84371, .28995, .01167,
965 + .00000, .19098, .30009,
966 + .09431, .05753, 3.41184, .31782, .01784,
967 + .00000, .21626, .32834,
968 + .09747, .05905, 3.91015, .34185, .02502,
969 + .00000, .23831, .35268,
970 + .10045, .06047, 4.39548, .36472, .03399,
971 + .00000, .25961, .37586,
972 + .10355, .06196, 4.90332, .38835, .04625,
973 + .00000, .28202, .39980 /
974 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=9,16)/
975 + .10620, .06322, 5.34637, .40825, .05962,
976 + .00000, .30134, .41996,
977 + .10874, .06443, 5.78090, .42688, .07529,
978 + .00000, .31989, .43884,
979 + .11072, .06538, 6.11752, .44090, .08973,
980 + .00000, .33422, .45306,
981 + .11489, .06736, 6.83820, .46903, .12677,
982 + .00000, .36418, .48159,
983 + .11842, .06902, 7.44925, .49118, .16497,
984 + .00855, .38908, .50410,
985 + .12228, .07085, 8.12058, .51428, .21281,
986 + .03750, .41622, .52758,
987 + .12623, .07271, 8.80299, .53752, .26547,
988 + .07618, .44417, .55120,
989 + .12975, .07437, 9.40733, .55889, .31323,
990 + .10968, .46977, .57290 /
991 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=17,24)/
992 + .13326, .07601, 10.00186, .58138, .35953,
993 + .14382, .49611, .59573,
994 + .13613, .07735, 10.48218, .60099, .39574,
995 + .17202, .51846, .61562,
996 + .13955, .07894, 11.04139, .62575, .43652,
997 + .20593, .54595, .64070,
998 + .14254, .08033, 11.52136, .64862, .47006,
999 + .23579, .57073, .66385,
1000 + .14526, .08159, 11.95358, .67038, .49916,
1001 + .26319, .59389, .68587,
1002 + .14864, .08316, 12.47250, .69828, .53377,
1003 + .29739, .62318, .71409,
1004 + .15178, .08460, 12.93958, .72483, .56465,
1005 + .32920, .65075, .74092,
1006 + .15469, .08594, 13.36360, .74995, .59266,
1007 + .35884, .67666, .76631 /
1008 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=25,32)/
1009 + .15756, .08726, 13.76953, .77503, .61985,
1010 + .38813, .70241, .79166,
1011 + .16032, .08852, 14.14385, .79925, .64564,
1012 + .41627, .72721, .81613,
1013 + .16292, .08971, 14.49039, .82225, .66986,
1014 + .44284, .75073, .83937,
1015 + .16533, .09080, 14.79566, .84347, .69204,
1016 + .46731, .77239, .86080,
1017 + .16773, .09189, 15.09462, .86474, .71419,
1018 + .49178, .79411, .88229,
1019 + .17007, .09295, 15.37249, .88531, .73554,
1020 + .51542, .81508, .90306,
1021 + .17227, .09394, 15.62707, .90469, .75564,
1022 + .53768, .83485, .92264,
1023 + .17432, .09487, 15.85539, .92271, .77432,
1024 + .55839, .85325, .94085 /
1025 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=33,37)/
1026 + .17639, .09580, 16.07935, .94081, .79307,
1027 + .57915, .87170, .95913,
1028 + .17840, .09670, 16.28484, .95820, .81109,
1029 + .59915, .88945, .97670,
1030 + .18031, .09756, 16.48035, .97491, .82840,
1031 + .61831, .90650, .99358,
1032 + .18209, .09835, 16.64713, .99011, .84415,
1033 + .63580, .92201, 1.00893,
1034 + .18389, .09916, 16.81613, 1.00561, .86021,
1035 + .65360, .93783, 1.02458 /
1036 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,8)/
1037 + .09896, .05996, 1.20622, .19526, .00159,
1038 + .00000, .10995, .20616,
1039 + .10326, .06205, 1.60829, .21510, .00329,
1040 + .00000, .12773, .22645,
1041 + .10940, .06503, 2.21115, .24525, .00688,
1042 + -.00001, .15485, .25724,
1043 + .11372, .06712, 2.66110, .26757, .01064,
1044 + .00000, .17506, .28001,
1045 + .11813, .06924, 3.13541, .29098, .01603,
1046 + .00000, .19644, .30388,
1047 + .12183, .07102, 3.54523, .31094, .02223,
1048 + -.00001, .21489, .32422,
1049 + .12532, .07269, 3.93923, .32976, .02992,
1050 + -.00001, .23255, .34340,
1051 + .12893, .07442, 4.34631, .34899, .04032,
1052 + -.00001, .25095, .36299 /
1053 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=9,16)/
1054 + .13201, .07589, 4.69720, .36502, .05160,
1055 + -.00001, .26668, .37933,
1056 + .13495, .07729, 5.03793, .37989, .06474,
1057 + -.00001, .28166, .39450,
1058 + .13724, .07837, 5.29938, .39097, .07678,
1059 + -.00001, .29315, .40580,
1060 + .14205, .08065, 5.85265, .41291, .10746,
1061 + -.00001, .31692, .42822,
1062 + .14609, .08255, 6.31465, .42989, .13884,
1063 + .00688, .33645, .44560,
1064 + .15051, .08463, 6.81491, .44732, .17779,
1065 + .03008, .35749, .46346,
1066 + .15500, .08673, 7.31567, .46461, .22025,
1067 + .06087, .37893, .48119,
1068 + .15900, .08859, 7.75255, .48039, .25836,
1069 + .08729, .39838, .49735 /
1070 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=17,24)/
1071 + .16295, .09043, 8.17626, .49693, .29489,
1072 + .11398, .41826, .51427,
1073 + .16618, .09192, 8.51429, .51131, .32317,
1074 + .13588, .43503, .52896,
1075 + .17002, .09369, 8.90211, .52943, .35465,
1076 + .16201, .45552, .54743,
1077 + .17335, .09522, 9.23049, .54610, .38024,
1078 + .18486, .47388, .56442,
1079 + .17638, .09661, 9.52301, .56192, .40221,
1080 + .20569, .49095, .58052,
1081 + .18013, .09832, 9.86876, .58208, .42804,
1082 + .23151, .51239, .60102,
1083 + .18359, .09989, 10.17477, .60115, .45083,
1084 + .25534, .53242, .62041,
1085 + .18679, .10134, 10.44881, .61908, .47130,
1086 + .27739, .55112, .63863 /
1087 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=25,32)/
1088 + .18993, .10275, 10.70727, .63686, .49100,
1089 + .29905, .56957, .65670,
1090 + .19295, .10411, 10.94134, .65390, .50951,
1091 + .31969, .58720, .67400,
1092 + .19577, .10537, 11.15562, .67000, .52678,
1093 + .33908, .60382, .69035,
1094 + .19838, .10654, 11.34059, .68471, .54247,
1095 + .35682, .61901, .70529,
1096 + .20098, .10769, 11.51961, .69939, .55805,
1097 + .37447, .63416, .72020,
1098 + .20349, .10880, 11.68279, .71349, .57297,
1099 + .39142, .64869, .73451,
1100 + .20586, .10984, 11.83003, .72668, .58692,
1101 + .40729, .66231, .74791,
1102 + .20806, .11081, 11.95942, .73887, .59981,
1103 + .42197, .67488, .76029 /
1104 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=33,37)/
1105 + .21026, .11178, 12.08480, .75104, .61268,
1106 + .43662, .68744, .77265,
1107 + .21239, .11271, 12.19697, .76266, .62496,
1108 + .45065, .69943, .78444,
1109 + .21443, .11360, 12.30315, .77377, .63672,
1110 + .46405, .71092, .79573,
1111 + .21631, .11441, 12.39013, .78379, .64734,
1112 + .47620, .72127, .80590,
1113 + .21821, .11524, 12.47801, .79399, .65814,
1114 + .48854, .73180, .81625 /
1115 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,8)/
1116 + .11699, .06904, 1.23110, .18799, .00156,
1117 + .00000, .10598, .20073,
1118 + .12183, .07141, 1.59557, .20582, .00318,
1119 + .00000, .12207, .21909,
1120 + .12871, .07474, 2.13356, .23263, .00652,
1121 + -.00001, .14633, .24662,
1122 + .13354, .07708, 2.52876, .25226, .00996,
1123 + .00000, .16421, .26676,
1124 + .13846, .07944, 2.94021, .27267, .01483,
1125 + .00000, .18298, .28768,
1126 + .14257, .08141, 3.29172, .28993, .02039,
1127 + -.00001, .19905, .30536,
1128 + .14643, .08326, 3.62640, .30608, .02722,
1129 + -.00001, .21432, .32191,
1130 + .15042, .08515, 3.96878, .32244, .03640,
1131 + -.00001, .23013, .33868 /
1132 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=9,16)/
1133 + .15382, .08677, 4.26125, .33598, .04630,
1134 + -.00001, .24354, .35256,
1135 + .15706, .08830, 4.54310, .34844, .05779,
1136 + -.00001, .25625, .36535,
1137 + .15957, .08948, 4.75774, .35766, .06826,
1138 + -.00001, .26593, .37481,
1139 + .16483, .09195, 5.20779, .37572, .09483,
1140 + -.00001, .28583, .39339,
1141 + .16924, .09402, 5.57909, .38950, .12182,
1142 + .00585, .30202, .40761,
1143 + .17405, .09625, 5.97653, .40344, .15511,
1144 + .02546, .31930, .42202,
1145 + .17891, .09851, 6.36943, .41713, .19114,
1146 + .05138, .33676, .43618,
1147 + .18322, .10049, 6.70806, .42954, .22323,
1148 + .07345, .35250, .44900 /
1149 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=17,24)/
1150 + .18748, .10245, 7.03268, .44252, .25374,
1151 + .09562, .36850, .46237,
1152 + .19094, .10403, 7.28884, .45379, .27716,
1153 + .11371, .38192, .47397,
1154 + .19504, .10589, 7.57909, .46795, .30301,
1155 + .13518, .39825, .48850,
1156 + .19859, .10750, 7.82201, .48096, .32384,
1157 + .15384, .41282, .50184,
1158 + .20180, .10894, 8.03639, .49328, .34158,
1159 + .17078, .42630, .51445,
1160 + .20578, .11072, 8.28603, .50890, .36224,
1161 + .19165, .44314, .53043,
1162 + .20943, .11235, 8.50375, .52360, .38031,
1163 + .21080, .45878, .54545,
1164 + .21279, .11384, 8.69632, .53737, .39642,
1165 + .22844, .47331, .55951 /
1166 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=25,32)/
1167 + .21609, .11530, 8.87534, .55094, .41181,
1168 + .24567, .48756, .57337,
1169 + .21923, .11668, 9.03452, .56386, .42617,
1170 + .26200, .50109, .58656,
1171 + .22218, .11797, 9.17869, .57601, .43950,
1172 + .27728, .51379, .59896,
1173 + .22488, .11915, 9.30047, .58704, .45152,
1174 + .29118, .52532, .61022,
1175 + .22757, .12032, 9.41693, .59800, .46341,
1176 + .30496, .53676, .62140,
1177 + .23017, .12144, 9.52086, .60845, .47472,
1178 + .31813, .54767, .63207,
1179 + .23260, .12248, 9.61310, .61819, .48526,
1180 + .33041, .55785, .64200,
1181 + .23486, .12345, 9.69231, .62712, .49494,
1182 + .34172, .56720, .65112 /
1183 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=33,37)/
1184 + .23711, .12441, 9.76796, .63601, .50457,
1185 + .35297, .57650, .66019,
1186 + .23929, .12533, 9.83336, .64443, .51370,
1187 + .36369, .58531, .66878,
1188 + .24136, .12621, 9.89497, .65247, .52242,
1189 + .37390, .59373, .67699,
1190 + .24327, .12701, 9.94258, .65964, .53024,
1191 + .38311, .60127, .68431,
1192 + .24520, .12782, 9.99057, .66693, .53818,
1193 + .39244, .60891, .69175 /
1194 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,8)/
1195 + .13320, .07737, 1.24547, .18247, .00154,
1196 + .00000, .10305, .19699,
1197 + .13849, .07995, 1.58036, .19874, .00310,
1198 + .00000, .11783, .21383,
1199 + .14598, .08357, 2.06858, .22298, .00627,
1200 + .00000, .13991, .23887,
1201 + .15122, .08609, 2.42271, .24059, .00948,
1202 + .00000, .15605, .25702,
1203 + .15653, .08863, 2.78769, .25876, .01396,
1204 + .00000, .17288, .27575,
1205 + .16097, .09075, 3.09666, .27402, .01904,
1206 + .00000, .18720, .29147,
1207 + .16513, .09272, 3.38851, .28822, .02524,
1208 + .00000, .20073, .30610,
1209 + .16941, .09475, 3.68465, .30251, .03353,
1210 + .00000, .21466, .32082 /
1211 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=9,16)/
1212 + .17305, .09646, 3.93573, .31425, .04242,
1213 + .00000, .22641, .33292,
1214 + .17652, .09809, 4.17619, .32499, .05270,
1215 + .00000, .23749, .34400,
1216 + .17920, .09934, 4.35815, .33288, .06204,
1217 + .00000, .24589, .35216,
1218 + .18480, .10195, 4.73666, .34820, .08564,
1219 + .00000, .26306, .36803,
1220 + .18948, .10411, 5.04569, .35974, .10948,
1221 + .00512, .27690, .38002,
1222 + .19456, .10645, 5.37324, .37128, .13874,
1223 + .02223, .29158, .39205,
1224 + .19969, .10880, 5.69350, .38250, .17022,
1225 + .04474, .30630, .40375,
1226 + .20423, .11086, 5.96656, .39261, .19808,
1227 + .06381, .31949, .41428 /
1228 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=17,24)/
1229 + .20869, .11288, 6.22565, .40317, .22440,
1230 + .08287, .33284, .42524,
1231 + .21231, .11450, 6.42808, .41233, .24448,
1232 + .09836, .34400, .43474,
1233 + .21658, .11641, 6.65479, .42382, .26648,
1234 + .11664, .35752, .44661,
1235 + .22027, .11805, 6.84250, .43436, .28406,
1236 + .13247, .36953, .45747,
1237 + .22360, .11952, 7.00674, .44431, .29894,
1238 + .14678, .38061, .46773,
1239 + .22770, .12133, 7.19517, .45691, .31614,
1240 + .16432, .39437, .48067,
1241 + .23146, .12297, 7.35720, .46870, .33107,
1242 + .18036, .40709, .49278,
1243 + .23491, .12447, 7.49872, .47970, .34430,
1244 + .19505, .41886, .50407 /
1245 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=25,32)/
1246 + .23828, .12592, 7.62822, .49049, .35685,
1247 + .20934, .43034, .51515,
1248 + .24149, .12730, 7.74113, .50070, .36849,
1249 + .22284, .44118, .52562,
1250 + .24449, .12858, 7.84223, .51027, .37925,
1251 + .23542, .45131, .53543,
1252 + .24724, .12974, 7.92549, .51890, .38890,
1253 + .24681, .46046, .54428,
1254 + .24996, .13089, 8.00404, .52744, .39840,
1255 + .25807, .46951, .55304,
1256 + .25258, .13199, 8.07236, .53553, .40740,
1257 + .26879, .47808, .56133,
1258 + .25502, .13301, 8.13183, .54304, .41575,
1259 + .27875, .48604, .56902,
1260 + .25729, .13395, 8.18147, .54989, .42338,
1261 + .28788, .49332, .57605 /
1262 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=33,37)/
1263 + .25955, .13488, 8.22793, .55667, .43094,
1264 + .29695, .50053, .58300,
1265 + .26172, .13577, 8.26601, .56305, .43808,
1266 + .30554, .50733, .58954,
1267 + .26379, .13662, 8.30167, .56912, .44487,
1268 + .31371, .51380, .59577,
1269 + .26568, .13738, 8.32657, .57450, .45092,
1270 + .32105, .51955, .60128,
1271 + .26759, .13816, 8.35163, .57995, .45706,
1272 + .32846, .52537, .60687 /
1273 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,8)/
1274 + .16204, .09251, 1.25522, .17418, .00152,
1275 + .00000, .09883, .19209,
1276 + .16803, .09539, 1.54521, .18808, .00301,
1277 + .00001, .11162, .20663,
1278 + .17645, .09942, 1.95983, .20851, .00593,
1279 + .00001, .13049, .22794,
1280 + .18231, .10220, 2.25467, .22315, .00880,
1281 + .00001, .14411, .24319,
1282 + .18822, .10498, 2.55375, .23810, .01275,
1283 + .00001, .15815, .25874,
1284 + .19314, .10729, 2.80320, .25052, .01714,
1285 + .00001, .16999, .27166,
1286 + .19773, .10943, 3.03582, .26196, .02245,
1287 + .00001, .18108, .28355,
1288 + .20244, .11161, 3.26867, .27335, .02948,
1289 + .00001, .19239, .29540 /
1290 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=9,16)/
1291 + .20642, .11344, 3.46369, .28259, .03695,
1292 + .00001, .20184, .30503,
1293 + .21020, .11518, 3.64855, .29096, .04553,
1294 + .00001, .21068, .31377,
1295 + .21311, .11651, 3.78683, .29704, .05330,
1296 + .00001, .21734, .32012,
1297 + .21917, .11926, 4.07084, .30866, .07276,
1298 + .00001, .23080, .33230,
1299 + .22421, .12153, 4.29869, .31720, .09227,
1300 + .00415, .24151, .34131,
1301 + .22965, .12395, 4.53600, .32555, .11601,
1302 + .01790, .25272, .35015,
1303 + .23511, .12637, 4.76354, .33351, .14131,
1304 + .03587, .26382, .35861,
1305 + .23990, .12848, 4.95376, .34063, .16348,
1306 + .05095, .27368, .36614 /
1307 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=17,24)/
1308 + .24459, .13053, 5.13077, .34804, .18422,
1309 + .06592, .28358, .37395,
1310 + .24837, .13216, 5.26662, .35446, .19986,
1311 + .07798, .29180, .38069,
1312 + .25281, .13407, 5.41520, .36251, .21682,
1313 + .09213, .30169, .38910,
1314 + .25663, .13569, 5.53562, .36988, .23021,
1315 + .10429, .31041, .39678,
1316 + .26005, .13714, 5.63918, .37683, .24141,
1317 + .11521, .31842, .40401,
1318 + .26425, .13890, 5.75422, .38555, .25420,
1319 + .12851, .32828, .41306,
1320 + .26808, .14049, 5.85007, .39366, .26516,
1321 + .14056, .33731, .42146,
1322 + .27157, .14193, 5.93153, .40117, .27476,
1323 + .15153, .34560, .42924 /
1324 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=25,32)/
1325 + .27496, .14331, 6.00351, .40848, .28378,
1326 + .16214, .35362, .43679,
1327 + .27816, .14461, 6.06311, .41531, .29206,
1328 + .17207, .36111, .44386,
1329 + .28115, .14581, 6.11492, .42167, .29964,
1330 + .18128, .36806, .45043,
1331 + .28386, .14689, 6.15455, .42733, .30637,
1332 + .18955, .37426, .45627,
1333 + .28654, .14794, 6.19049, .43288, .31296,
1334 + .19769, .38036, .46201,
1335 + .28909, .14894, 6.21918, .43808, .31914,
1336 + .20538, .38608, .46739,
1337 + .29148, .14987, 6.24238, .44286, .32483,
1338 + .21249, .39134, .47232,
1339 + .29367, .15071, 6.25943, .44717, .32998,
1340 + .21897, .39611, .47677 /
1341 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=33,37)/
1342 + .29584, .15154, 6.27401, .45141, .33507,
1343 + .22536, .40080, .48115,
1344 + .29792, .15233, 6.28276, .45533, .33982,
1345 + .23139, .40516, .48520,
1346 + .29989, .15307, 6.29069, .45906, .34433,
1347 + .23710, .40931, .48905,
1348 + .30168, .15373, 6.29180, .46228, .34828,
1349 + .24218, .41292, .49237,
1350 + .30349, .15440, 6.29292, .46553, .35228,
1351 + .24729, .41657, .49573 /
1352 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,8)/
1353 + .19966, .11272, 1.24405, .16508, .00152,
1354 + .00000, .09448, .18774,
1355 + .20637, .11587, 1.48687, .17645, .00294,
1356 + .00000, .10518, .19980,
1357 + .21574, .12022, 1.82656, .19292, .00562,
1358 + .00000, .12074, .21720,
1359 + .22221, .12319, 2.06275, .20456, .00816,
1360 + .00000, .13182, .22947,
1361 + .22869, .12614, 2.29791, .21629, .01157,
1362 + .00000, .14310, .24181,
1363 + .23406, .12857, 2.49072, .22591, .01530,
1364 + .00000, .15251, .25193,
1365 + .23904, .13079, 2.66782, .23466, .01973,
1366 + .00000, .16124, .26115,
1367 + .24411, .13305, 2.84206, .24326, .02553,
1368 + -.00001, .17003, .27021 /
1369 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=9,16)/
1370 + .24839, .13493, 2.98580, .25014, .03164,
1371 + .00000, .17731, .27747,
1372 + .25242, .13670, 3.12036, .25628, .03859,
1373 + .00000, .18406, .28397,
1374 + .25551, .13805, 3.21957, .26068, .04484,
1375 + .00000, .18909, .28862,
1376 + .26191, .14081, 3.42003, .26888, .06038,
1377 + .00000, .19913, .29736,
1378 + .26719, .14306, 3.57707, .27470, .07580,
1379 + .00323, .20699, .30362,
1380 + .27284, .14544, 3.73677, .28021, .09440,
1381 + .01392, .21509, .30958,
1382 + .27847, .14779, 3.88579, .28530, .11400,
1383 + .02779, .22298, .31511,
1384 + .28337, .14980, 4.00693, .28979, .13100,
1385 + .03931, .22990, .31997 /
1386 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=17,24)/
1387 + .28812, .15174, 4.11643, .29446, .14670,
1388 + .05063, .23677, .32498,
1389 + .29193, .15327, 4.19789, .29851, .15840,
1390 + .05969, .24244, .32931,
1391 + .29636, .15503, 4.28384, .30359, .17092,
1392 + .07022, .24919, .33469,
1393 + .30014, .15651, 4.35096, .30824, .18066,
1394 + .07920, .25510, .33960,
1395 + .30352, .15783, 4.40694, .31262, .18871,
1396 + .08720, .26049, .34420,
1397 + .30760, .15938, 4.46527, .31807, .19775,
1398 + .09686, .26704, .34991,
1399 + .31129, .16078, 4.51077, .32308, .20538,
1400 + .10554, .27297, .35514,
1401 + .31463, .16202, 4.54703, .32767, .21197,
1402 + .11338, .27836, .35993 /
1403 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=25,32)/
1404 + .31786, .16320, 4.57610, .33208, .21808,
1405 + .12089, .28350, .36453,
1406 + .32087, .16428, 4.59672, .33613, .22360,
1407 + .12787, .28824, .36873,
1408 + .32365, .16528, 4.61297, .33985, .22862,
1409 + .13429, .29259, .37260,
1410 + .32616, .16615, 4.62176, .34310, .23301,
1411 + .14001, .29641, .37596,
1412 + .32861, .16700, 4.62790, .34624, .23726,
1413 + .14559, .30011, .37922,
1414 + .33093, .16778, 4.62930, .34911, .24119,
1415 + .15083, .30353, .38221,
1416 + .33308, .16850, 4.62778, .35172, .24478,
1417 + .15563, .30665, .38490,
1418 + .33503, .16915, 4.62291, .35401, .24800,
1419 + .15998, .30942, .38727 /
1420 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=33,37)/
1421 + .33696, .16977, 4.61634, .35623, .25114,
1422 + .16425, .31212, .38957,
1423 + .33878, .17035, 4.60616, .35823, .25403,
1424 + .16823, .31457, .39163,
1425 + .34051, .17089, 4.59630, .36011, .25676,
1426 + .17199, .31690, .39358,
1427 + .34205, .17136, 4.58259, .36166, .25911,
1428 + .17529, .31886, .39518,
1429 + .34360, .17183, 4.56888, .36323, .26148,
1430 + .17861, .32083, .39679 /
1431 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,8)/
1432 + .25366, .14207, 1.19695, .15352, .00153,
1433 + -.00001, .08938, .18331,
1434 + .26105, .14531, 1.38856, .16205, .00289,
1435 + -.00001, .09775, .19251,
1436 + .27125, .14972, 1.64926, .17420, .00532,
1437 + -.00002, .10972, .20552,
1438 + .27822, .15268, 1.82541, .18262, .00753,
1439 + -.00002, .11809, .21452,
1440 + .28513, .15558, 1.99657, .19097, .01038,
1441 + -.00002, .12649, .22342,
1442 + .29080, .15793, 2.13368, .19770, .01341,
1443 + -.00002, .13340, .23058,
1444 + .29600, .16006, 2.25701, .20373, .01695,
1445 + -.00002, .13972, .23700,
1446 + .30125, .16219, 2.37547, .20952, .02150,
1447 + -.00002, .14601, .24317 /
1448 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=9,16)/
1449 + .30565, .16393, 2.47099, .21405, .02622,
1450 + -.00002, .15114, .24801,
1451 + .30977, .16556, 2.55883, .21801, .03154,
1452 + -.00002, .15583, .25225,
1453 + .31290, .16678, 2.62215, .22076, .03628,
1454 + -.00002, .15927, .25520,
1455 + .31931, .16924, 2.74685, .22570, .04793,
1456 + -.00002, .16604, .26054,
1457 + .32453, .17121, 2.84086, .22897, .05934,
1458 + .00235, .17119, .26412,
1459 + .33005, .17324, 2.93273, .23184, .07294,
1460 + .01013, .17636, .26731,
1461 + .33547, .17520, 3.01433, .23431, .08708,
1462 + .02015, .18129, .27008,
1463 + .34012, .17684, 3.07712, .23643, .09917,
1464 + .02836, .18553, .27243 /
1465 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=17,24)/
1466 + .34457, .17838, 3.13055, .23865, .11018,
1467 + .03634, .18968, .27485,
1468 + .34809, .17956, 3.16775, .24060, .11826,
1469 + .04266, .19305, .27695,
1470 + .35211, .18088, 3.20331, .24306, .12676,
1471 + .04993, .19702, .27956,
1472 + .35549, .18196, 3.22825, .24532, .13324,
1473 + .05605, .20044, .28194,
1474 + .35848, .18289, 3.24713, .24747, .13850,
1475 + .06146, .20353, .28418,
1476 + .36203, .18396, 3.26214, .25007, .14429,
1477 + .06792, .20721, .28688,
1478 + .36518, .18488, 3.26992, .25242, .14905,
1479 + .07365, .21046, .28930,
1480 + .36798, .18567, 3.27299, .25453, .15309,
1481 + .07878, .21336, .29146 /
1482 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=25,32)/
1483 + .37064, .18639, 3.27137, .25649, .15675,
1484 + .08364, .21608, .29346,
1485 + .37307, .18700, 3.26469, .25822, .16000,
1486 + .08809, .21850, .29521,
1487 + .37529, .18755, 3.25641, .25976, .16289,
1488 + .09216, .22069, .29677,
1489 + .37724, .18800, 3.24445, .26101, .16537,
1490 + .09573, .22253, .29802,
1491 + .37912, .18842, 3.23087, .26219, .16773,
1492 + .09919, .22428, .29919,
1493 + .38086, .18879, 3.21468, .26320, .16988,
1494 + .10240, .22585, .30017,
1495 + .38243, .18909, 3.19773, .26405, .17180,
1496 + .10531, .22723, .30101,
1497 + .38384, .18934, 3.17976, .26475, .17348,
1498 + .10792, .22841, .30166 /
1499 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=33,37)/
1500 + .38521, .18957, 3.16079, .26538, .17510,
1501 + .11046, .22952, .30226,
1502 + .38646, .18976, 3.13988, .26587, .17655,
1503 + .11279, .23048, .30270,
1504 + .38764, .18993, 3.12009, .26633, .17791,
1505 + .11498, .23138, .30312,
1506 + .38863, .19003, 3.09873, .26659, .17903,
1507 + .11687, .23205, .30333,
1508 + .38964, .19014, 3.07744, .26686, .18014,
1509 + .11876, .23272, .30354 /
1510 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,8)/
1511 + .30108, .16749, 1.13980, .14372, .00154,
1512 + -.00001, .08532, .17978,
1513 + .30873, .17055, 1.29792, .15033, .00287,
1514 + -.00001, .09210, .18692,
1515 + .31914, .17464, 1.50817, .15960, .00514,
1516 + -.00001, .10166, .19687,
1517 + .32617, .17733, 1.64686, .16592, .00713,
1518 + -.00001, .10826, .20363,
1519 + .33308, .17993, 1.77877, .17209, .00963,
1520 + -.00001, .11480, .21021,
1521 + .33870, .18199, 1.88227, .17699, .01222,
1522 + -.00002, .12012, .21541,
1523 + .34381, .18385, 1.97367, .18130, .01519,
1524 + -.00002, .12493, .21999,
1525 + .34892, .18564, 2.05937, .18536, .01895,
1526 + -.00001, .12965, .22429 /
1527 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=9,16)/
1528 + .35314, .18710, 2.12701, .18846, .02281,
1529 + -.00001, .13345, .22757,
1530 + .35707, .18844, 2.18813, .19110, .02711,
1531 + -.00002, .13688, .23037,
1532 + .36003, .18942, 2.23108, .19287, .03091,
1533 + -.00002, .13937, .23225,
1534 + .36604, .19137, 2.31351, .19587, .04017,
1535 + -.00002, .14416, .23547,
1536 + .37086, .19287, 2.37294, .19766, .04914,
1537 + .00185, .14772, .23741,
1538 + .37588, .19438, 2.42817, .19902, .05974,
1539 + .00792, .15119, .23890,
1540 + .38071, .19578, 2.47404, .20003, .07064,
1541 + .01568, .15442, .24001,
1542 + .38479, .19690, 2.50652, .20085, .07985,
1543 + .02197, .15713, .24087 /
1544 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=17,24)/
1545 + .38864, .19790, 2.53140, .20172, .08813,
1546 + .02803, .15974, .24176,
1547 + .39163, .19863, 2.54644, .20252, .09414,
1548 + .03280, .16183, .24257,
1549 + .39497, .19939, 2.55732, .20355, .10036,
1550 + .03822, .16425, .24359,
1551 + .39773, .19998, 2.56198, .20453, .10503,
1552 + .04276, .16631, .24454,
1553 + .40012, .20046, 2.56330, .20547, .10876,
1554 + .04673, .16814, .24543,
1555 + .40289, .20095, 2.55847, .20657, .11278,
1556 + .05143, .17027, .24646,
1557 + .40528, .20131, 2.54937, .20752, .11602,
1558 + .05556, .17210, .24731,
1559 + .40737, .20158, 2.53794, .20834, .11871,
1560 + .05922, .17369, .24802 /
1561 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=25,32)/
1562 + .40929, .20178, 2.52332, .20904, .12111,
1563 + .06265, .17513, .24862,
1564 + .41098, .20189, 2.50548, .20958, .12317,
1565 + .06577, .17634, .24903,
1566 + .41248, .20197, 2.48744, .21002, .12499,
1567 + .06860, .17742, .24935,
1568 + .41375, .20196, 2.46763, .21029, .12651,
1569 + .07105, .17826, .24949,
1570 + .41494, .20193, 2.44687, .21049, .12793,
1571 + .07341, .17903, .24957,
1572 + .41598, .20184, 2.42465, .21058, .12919,
1573 + .07558, .17967, .24951,
1574 + .41689, .20173, 2.40264, .21059, .13029,
1575 + .07753, .18019, .24939,
1576 + .41767, .20158, 2.38064, .21052, .13123,
1577 + .07925, .18058, .24917 /
1578 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=33,37)/
1579 + .41840, .20141, 2.35806, .21040, .13212,
1580 + .08091, .18093, .24891,
1581 + .41900, .20120, 2.33445, .21019, .13288,
1582 + .08243, .18116, .24854,
1583 + .41956, .20100, 2.31224, .20998, .13359,
1584 + .08384, .18138, .24819,
1585 + .41997, .20075, 2.28951, .20966, .13413,
1586 + .08504, .18145, .24772,
1587 + .42037, .20050, 2.26693, .20934, .13467,
1588 + .08624, .18152, .24725 /
1589 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,8)/
1590 + .38374, .20950, 1.03340, .12619, .00158,
1591 + .00000, .07807, .17202,
1592 + .39100, .21172, 1.14972, .13031, .00286,
1593 + .00000, .08276, .17631,
1594 + .40064, .21449, 1.29803, .13594, .00493,
1595 + .00001, .08922, .18209,
1596 + .40698, .21622, 1.39160, .13966, .00663,
1597 + .00000, .09357, .18586,
1598 + .41306, .21779, 1.47698, .14317, .00868,
1599 + .00000, .09779, .18938,
1600 + .41787, .21896, 1.54124, .14586, .01072,
1601 + .00000, .10113, .19203,
1602 + .42217, .21994, 1.59578, .14813, .01299,
1603 + .00000, .10408, .19425,
1604 + .42633, .22080, 1.64414, .15014, .01577,
1605 + .00000, .10691, .19617 /
1606 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=9,16)/
1607 + .42969, .22144, 1.68040, .15157, .01857,
1608 + .00000, .10911, .19749,
1609 + .43277, .22199, 1.71183, .15268, .02163,
1610 + -.00001, .11105, .19850,
1611 + .43502, .22235, 1.73245, .15333, .02430,
1612 + .00000, .11241, .19906,
1613 + .43946, .22296, 1.76909, .15418, .03071,
1614 + .00000, .11492, .19967,
1615 + .44284, .22331, 1.79179, .15435, .03680,
1616 + .00127, .11664, .19961,
1617 + .44621, .22354, 1.80896, .15411, .04386,
1618 + .00537, .11820, .19909,
1619 + .44928, .22359, 1.81861, .15360, .05100,
1620 + .01055, .11952, .19826,
1621 + .45171, .22350, 1.82103, .15306, .05692,
1622 + .01468, .12056, .19742 /
1623 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=17,24)/
1624 + .45386, .22328, 1.81821, .15255, .06213,
1625 + .01860, .12150, .19658,
1626 + .45540, .22302, 1.81231, .15219, .06583,
1627 + .02163, .12222, .19593,
1628 + .45695, .22258, 1.80045, .15180, .06955,
1629 + .02503, .12299, .19517,
1630 + .45811, .22211, 1.78707, .15150, .07226,
1631 + .02784, .12361, .19454,
1632 + .45904, .22164, 1.77322, .15125, .07437,
1633 + .03028, .12414, .19399,
1634 + .45992, .22091, 1.75184, .15088, .07654,
1635 + .03310, .12468, .19320,
1636 + .46051, .22015, 1.72931, .15047, .07821,
1637 + .03554, .12506, .19241,
1638 + .46091, .21937, 1.70684, .15005, .07953,
1639 + .03766, .12533, .19163 /
1640 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=25,32)/
1641 + .46113, .21855, 1.68283, .14958, .08066,
1642 + .03963, .12551, .19077,
1643 + .46114, .21767, 1.65766, .14901, .08158,
1644 + .04138, .12555, .18982,
1645 + .46106, .21682, 1.63359, .14845, .08235,
1646 + .04294, .12555, .18890,
1647 + .46082, .21595, 1.60956, .14783, .08293,
1648 + .04426, .12544, .18794,
1649 + .46050, .21506, 1.58530, .14718, .08346,
1650 + .04552, .12528, .18694,
1651 + .46006, .21414, 1.56074, .14647, .08389,
1652 + .04666, .12505, .18589,
1653 + .45957, .21323, 1.53722, .14577, .08423,
1654 + .04766, .12479, .18485,
1655 + .45902, .21234, 1.51458, .14505, .08449,
1656 + .04853, .12448, .18383 /
1657 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=33,37)/
1658 + .45842, .21143, 1.49182, .14431, .08471,
1659 + .04935, .12414, .18277,
1660 + .45770, .21051, 1.46887, .14352, .08486,
1661 + .05008, .12374, .18167,
1662 + .45701, .20964, 1.44744, .14278, .08500,
1663 + .05076, .12336, .18063,
1664 + .45622, .20875, 1.42641, .14200, .08503,
1665 + .05131, .12292, .17957,
1666 + .45544, .20786, 1.40561, .14123, .08507,
1667 + .05186, .12249, .17851 /
1668 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,8)/
1669 + .45488, .24201, .95217, .11011, .00160,
1670 + .00001, .07106, .16239,
1671 + .46092, .24300, 1.04238, .11276, .00285,
1672 + .00000, .07444, .16477,
1673 + .46864, .24400, 1.15252, .11625, .00479,
1674 + .00000, .07898, .16777,
1675 + .47351, .24445, 1.21876, .11845, .00631,
1676 + .00000, .08195, .16959,
1677 + .47800, .24471, 1.27638, .12044, .00806,
1678 + .00000, .08475, .17115,
1679 + .48143, .24476, 1.31757, .12187, .00975,
1680 + .00000, .08691, .17220,
1681 + .48437, .24467, 1.35077, .12300, .01158,
1682 + .00000, .08877, .17295,
1683 + .48705, .24444, 1.37787, .12387, .01376,
1684 + -.00001, .09047, .17342 /
1685 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=9,16)/
1686 + .48911, .24415, 1.39654, .12440, .01592,
1687 + .00000, .09175, .17355,
1688 + .49090, .24380, 1.41155, .12471, .01824,
1689 + .00000, .09284, .17347,
1690 + .49213, .24345, 1.41997, .12478, .02024,
1691 + .00000, .09356, .17324,
1692 + .49438, .24257, 1.43208, .12453, .02495,
1693 + .00000, .09479, .17233,
1694 + .49589, .24167, 1.43571, .12391, .02936,
1695 + .00093, .09551, .17114,
1696 + .49713, .24053, 1.43365, .12291, .03440,
1697 + .00392, .09603, .16951,
1698 + .49798, .23920, 1.42553, .12169, .03940,
1699 + .00765, .09636, .16762,
1700 + .49839, .23788, 1.41375, .12056, .04348,
1701 + .01059, .09652, .16585 /
1702 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=17,24)/
1703 + .49849, .23646, 1.39834, .11945, .04700,
1704 + .01334, .09661, .16412,
1705 + .49834, .23521, 1.38324, .11859, .04943,
1706 + .01544, .09664, .16272,
1707 + .49786, .23360, 1.36201, .11757, .05183,
1708 + .01778, .09660, .16105,
1709 + .49723, .23212, 1.34155, .11672, .05351,
1710 + .01967, .09652, .15963,
1711 + .49652, .23074, 1.32201, .11596, .05477,
1712 + .02129, .09642, .15836,
1713 + .49532, .22889, 1.29503, .11499, .05602,
1714 + .02314, .09620, .15671,
1715 + .49399, .22710, 1.26848, .11404, .05691,
1716 + .02471, .09591, .15513,
1717 + .49260, .22539, 1.24315, .11313, .05758,
1718 + .02607, .09559, .15364 /
1719 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=25,32)/
1720 + .49105, .22365, 1.21723, .11219, .05811,
1721 + .02730, .09520, .15213,
1722 + .48935, .22188, 1.19112, .11121, .05848,
1723 + .02837, .09474, .15060,
1724 + .48768, .22021, 1.16663, .11028, .05877,
1725 + .02932, .09427, .14914,
1726 + .48592, .21860, 1.14301, .10936, .05895,
1727 + .03011, .09377, .14771,
1728 + .48411, .21698, 1.11954, .10842, .05909,
1729 + .03085, .09324, .14628,
1730 + .48222, .21534, 1.09630, .10744, .05915,
1731 + .03150, .09267, .14485,
1732 + .48037, .21378, 1.07439, .10651, .05918,
1733 + .03207, .09211, .14347,
1734 + .47853, .21229, 1.05365, .10561, .05916,
1735 + .03255, .09153, .14213 /
1736 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=33,37)/
1737 + .47665, .21078, 1.03304, .10470, .05911,
1738 + .03299, .09094, .14078,
1739 + .47468, .20927, 1.01262, .10377, .05902,
1740 + .03336, .09032, .13942,
1741 + .47282, .20784, .99365, .10289, .05892,
1742 + .03371, .08973, .13815,
1743 + .47093, .20645, .97539, .10201, .05878,
1744 + .03398, .08913, .13689,
1745 + .46903, .20506, .95741, .10113, .05864,
1746 + .03425, .08853, .13565 /
1747 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,8)/
1748 + .51664, .26658, .89542, .09527, .00161,
1749 + -.00001, .06411, .15108,
1750 + .52085, .26619, .96634, .09699, .00284,
1751 + .00000, .06659, .15209,
1752 + .52586, .26522, 1.04866, .09914, .00466,
1753 + .00000, .06982, .15316,
1754 + .52875, .26429, 1.09533, .10041, .00603,
1755 + -.00001, .07186, .15365,
1756 + .53117, .26314, 1.13337, .10146, .00756,
1757 + -.00001, .07372, .15389,
1758 + .53281, .26201, 1.15856, .10214, .00899,
1759 + -.00001, .07511, .15387,
1760 + .53404, .26085, 1.17717, .10259, .01051,
1761 + -.00001, .07626, .15363,
1762 + .53490, .25949, 1.18995, .10281, .01227,
1763 + -.00001, .07724, .15314 /
1764 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=9,16)/
1765 + .53539, .25823, 1.19696, .10281, .01397,
1766 + .00000, .07793, .15252,
1767 + .53569, .25697, 1.20125, .10266, .01579,
1768 + .00000, .07848, .15176,
1769 + .53572, .25593, 1.20185, .10242, .01733,
1770 + .00000, .07880, .15102,
1771 + .53546, .25359, 1.19854, .10158, .02091,
1772 + .00000, .07923, .14920,
1773 + .53481, .25149, 1.19047, .10057, .02420,
1774 + .00071, .07936, .14733,
1775 + .53369, .24905, 1.17696, .09923, .02792,
1776 + .00298, .07928, .14504,
1777 + .53212, .24641, 1.15871, .09770, .03154,
1778 + .00577, .07902, .14257,
1779 + .53037, .24394, 1.13918, .09632, .03443,
1780 + .00794, .07870, .14032 /
1781 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=17,24)/
1782 + .52832, .24141, 1.11726, .09497, .03689,
1783 + .00996, .07833, .13810,
1784 + .52641, .23928, 1.09766, .09389, .03855,
1785 + .01149, .07798, .13631,
1786 + .52382, .23663, 1.07215, .09264, .04012,
1787 + .01315, .07751, .13419,
1788 + .52136, .23426, 1.04876, .09156, .04119,
1789 + .01449, .07706, .13237,
1790 + .51901, .23207, 1.02711, .09060, .04196,
1791 + .01561, .07664, .13076,
1792 + .51575, .22925, .99851, .08937, .04266,
1793 + .01688, .07603, .12870,
1794 + .51252, .22658, .97127, .08822, .04312,
1795 + .01795, .07541, .12676,
1796 + .50939, .22408, .94585, .08714, .04342,
1797 + .01886, .07480, .12496 /
1798 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=25,32)/
1799 + .50613, .22157, .92043, .08606, .04362,
1800 + .01967, .07415, .12316,
1801 + .50280, .21907, .89539, .08494, .04372,
1802 + .02036, .07347, .12139,
1803 + .49962, .21673, .87220, .08389, .04376,
1804 + .02096, .07280, .11973,
1805 + .49646, .21451, .85027, .08289, .04373,
1806 + .02145, .07214, .11814,
1807 + .49326, .21230, .82870, .08188, .04368,
1808 + .02190, .07146, .11655,
1809 + .49003, .21011, .80766, .08088, .04357,
1810 + .02229, .07076, .11497,
1811 + .48691, .20804, .78801, .07993, .04345,
1812 + .02262, .07008, .11348,
1813 + .48391, .20608, .76964, .07901, .04331,
1814 + .02289, .06943, .11205 /
1815 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=33,37)/
1816 + .48088, .20411, .75151, .07809, .04314,
1817 + .02314, .06876, .11064,
1818 + .47780, .20214, .73376, .07716, .04294,
1819 + .02334, .06808, .10924,
1820 + .47490, .20030, .71734, .07629, .04275,
1821 + .02352, .06743, .10794,
1822 + .47202, .19852, .70175, .07544, .04254,
1823 + .02365, .06680, .10665,
1824 + .46916, .19676, .68645, .07461, .04232,
1825 + .02377, .06617, .10538 /
1826 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,8)/
1827 + .58186, .28778, .84991, .07852, .00161,
1828 + -.00002, .05561, .13541,
1829 + .58323, .28559, .90099, .07953, .00279,
1830 + -.00001, .05733, .13524,
1831 + .58409, .28212, .95540, .08066, .00447,
1832 + -.00001, .05944, .13470,
1833 + .58403, .27947, .98290, .08123, .00568,
1834 + -.00001, .06070, .13408,
1835 + .58341, .27660, 1.00220, .08160, .00699,
1836 + -.00001, .06178, .13322,
1837 + .58248, .27406, 1.01239, .08172, .00817,
1838 + -.00001, .06252, .13232,
1839 + .58130, .27158, 1.01757, .08169, .00938,
1840 + -.00001, .06309, .13133,
1841 + .57965, .26886, 1.01746, .08146, .01076,
1842 + .00000, .06349, .13011 /
1843 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=9,16)/
1844 + .57797, .26648, 1.01419, .08111, .01205,
1845 + -.00001, .06372, .12891,
1846 + .57622, .26418, 1.00920, .08066, .01341,
1847 + -.00001, .06385, .12765,
1848 + .57465, .26233, 1.00314, .08022, .01454,
1849 + -.00001, .06386, .12657,
1850 + .57105, .25833, .98707, .07905, .01713,
1851 + -.00001, .06371, .12410,
1852 + .56760, .25486, .96969, .07784, .01947,
1853 + .00052, .06339, .12181,
1854 + .56342, .25098, .94748, .07637, .02205,
1855 + .00217, .06289, .11913,
1856 + .55875, .24693, .92192, .07477, .02452,
1857 + .00419, .06225, .11632,
1858 + .55428, .24324, .89716, .07333, .02644,
1859 + .00574, .06162, .11381 /
1860 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=17,24)/
1861 + .54956, .23952, .87118, .07192, .02803,
1862 + .00715, .06094, .11135,
1863 + .54549, .23645, .84908, .07080, .02907,
1864 + .00821, .06035, .10938,
1865 + .54036, .23271, .82160, .06946, .03000,
1866 + .00933, .05962, .10706,
1867 + .53571, .22942, .79725, .06833, .03060,
1868 + .01022, .05896, .10506,
1869 + .53140, .22643, .77520, .06733, .03100,
1870 + .01097, .05835, .10328,
1871 + .52575, .22263, .74699, .06605, .03130,
1872 + .01181, .05755, .10107,
1873 + .52031, .21909, .72079, .06487, .03145,
1874 + .01249, .05676, .09901,
1875 + .51518, .21582, .69681, .06378, .03151,
1876 + .01305, .05601, .09711 /
1877 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=25,32)/
1878 + .50999, .21256, .67327, .06268, .03150,
1879 + .01356, .05524, .09523,
1880 + .50479, .20939, .65055, .06161, .03141,
1881 + .01397, .05446, .09340,
1882 + .49990, .20643, .62975, .06061, .03130,
1883 + .01431, .05372, .09171,
1884 + .49520, .20364, .61041, .05964, .03115,
1885 + .01459, .05301, .09012,
1886 + .49050, .20087, .59158, .05869, .03098,
1887 + .01484, .05229, .08855,
1888 + .48582, .19817, .57345, .05775, .03078,
1889 + .01505, .05157, .08701,
1890 + .48136, .19562, .55669, .05686, .03058,
1891 + .01521, .05089, .08556,
1892 + .47712, .19322, .54119, .05603, .03037,
1893 + .01534, .05023, .08420 /
1894 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=33,37)/
1895 + .47286, .19084, .52601, .05519, .03015,
1896 + .01546, .04957, .08285,
1897 + .46860, .18849, .51131, .05435, .02991,
1898 + .01555, .04892, .08152,
1899 + .46461, .18630, .49779, .05357, .02969,
1900 + .01563, .04831, .08028,
1901 + .46072, .18420, .48509, .05283, .02945,
1902 + .01567, .04770, .07910,
1903 + .45685, .18212, .47267, .05209, .02921,
1904 + .01570, .04711, .07792 /
1905 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,8)/
1906 + .63438, .29995, .82145, .06384, .00157,
1907 + -.00003, .04754, .11903,
1908 + .63249, .29603, .85498, .06444, .00269,
1909 + -.00003, .04874, .11812,
1910 + .62872, .29019, .88554, .06498, .00424,
1911 + -.00003, .05010, .11654,
1912 + .62542, .28593, .89722, .06515, .00532,
1913 + -.00002, .05085, .11524,
1914 + .62154, .28145, .90148, .06512, .00643,
1915 + -.00001, .05142, .11375,
1916 + .61788, .27760, .89995, .06495, .00741,
1917 + -.00002, .05175, .11236,
1918 + .61416, .27395, .89493, .06466, .00838,
1919 + -.00003, .05196, .11094,
1920 + .60986, .27007, .88528, .06421, .00946,
1921 + -.00002, .05203, .10932 /
1922 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=9,16)/
1923 + .60597, .26669, .87460, .06371, .01045,
1924 + -.00003, .05198, .10782,
1925 + .60214, .26346, .86309, .06315, .01147,
1926 + -.00003, .05186, .10633,
1927 + .59895, .26090, .85248, .06264, .01231,
1928 + -.00003, .05170, .10509,
1929 + .59199, .25550, .82798, .06138, .01420,
1930 + -.00002, .05123, .10236,
1931 + .58577, .25090, .80481, .06016, .01587,
1932 + .00037, .05070, .09991,
1933 + .57862, .24583, .77748, .05873, .01768,
1934 + .00161, .05000, .09715,
1935 + .57099, .24061, .74804, .05721, .01938,
1936 + .00312, .04918, .09431,
1937 + .56394, .23594, .72086, .05584, .02067,
1938 + .00425, .04841, .09180 /
1939 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=17,24)/
1940 + .55672, .23129, .69336, .05450, .02169,
1941 + .00527, .04761, .08935,
1942 + .55067, .22748, .67064, .05344, .02234,
1943 + .00602, .04695, .08739,
1944 + .54320, .22291, .64319, .05220, .02288,
1945 + .00681, .04613, .08509,
1946 + .53657, .21893, .61939, .05113, .02319,
1947 + .00742, .04540, .08313,
1948 + .53051, .21534, .59819, .05018, .02337,
1949 + .00793, .04474, .08139,
1950 + .52269, .21085, .57166, .04901, .02345,
1951 + .00849, .04389, .07920,
1952 + .51533, .20668, .54746, .04792, .02343,
1953 + .00893, .04307, .07721,
1954 + .50847, .20285, .52561, .04691, .02336,
1955 + .00930, .04231, .07540 /
1956 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=25,32)/
1957 + .50162, .19908, .50448, .04591, .02323,
1958 + .00961, .04154, .07363,
1959 + .49485, .19544, .48441, .04494, .02307,
1960 + .00986, .04077, .07191,
1961 + .48852, .19207, .46621, .04405, .02289,
1962 + .01006, .04006, .07032,
1963 + .48254, .18890, .44948, .04321, .02270,
1964 + .01022, .03938, .06884,
1965 + .47658, .18579, .43334, .04237, .02249,
1966 + .01036, .03870, .06740,
1967 + .47072, .18275, .41797, .04155, .02226,
1968 + .01046, .03803, .06600,
1969 + .46518, .17992, .40388, .04078, .02204,
1970 + .01054, .03740, .06469,
1971 + .45995, .17727, .39097, .04006, .02183,
1972 + .01060, .03680, .06345 /
1973 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=33,37)/
1974 + .45472, .17465, .37840, .03935, .02160,
1975 + .01066, .03621, .06223,
1976 + .44954, .17206, .36632, .03864, .02136,
1977 + .01068, .03562, .06105,
1978 + .44470, .16965, .35525, .03799, .02113,
1979 + .01071, .03507, .05996,
1980 + .44003, .16736, .34498, .03737, .02090,
1981 + .01071, .03454, .05892,
1982 + .43540, .16509, .33497, .03675, .02067,
1983 + .01071, .03401, .05790 /
1984 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,8)/
1985 + .67464, .30454, .80047, .05124, .00150,
1986 + -.00001, .04008, .10279,
1987 + .66929, .29906, .81793, .05159, .00254,
1988 + -.00001, .04089, .10144,
1989 + .66064, .29112, .82748, .05181, .00395,
1990 + -.00001, .04173, .09926,
1991 + .65400, .28545, .82574, .05178, .00488,
1992 + -.00001, .04213, .09758,
1993 + .64676, .27961, .81764, .05157, .00582,
1994 + -.00002, .04237, .09574,
1995 + .64035, .27467, .80678, .05126, .00662,
1996 + -.00001, .04244, .09411,
1997 + .63408, .27003, .79382, .05086, .00739,
1998 + -.00002, .04241, .09251,
1999 + .62722, .26514, .77703, .05032, .00823,
2000 + -.00001, .04227, .09071 /
2001 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=9,16)/
2002 + .62116, .26095, .76098, .04978, .00899,
2003 + -.00001, .04206, .08911,
2004 + .61529, .25699, .74486, .04921, .00975,
2005 + -.00002, .04180, .08755,
2006 + .61055, .25387, .73116, .04869, .01037,
2007 + -.00002, .04155, .08628,
2008 + .60041, .24734, .70119, .04749, .01173,
2009 + -.00001, .04093, .08353,
2010 + .59159, .24184, .67455, .04637, .01292,
2011 + .00029, .04029, .08114,
2012 + .58169, .23584, .64454, .04506, .01418,
2013 + .00122, .03951, .07848,
2014 + .57136, .22975, .61343, .04370, .01533,
2015 + .00234, .03866, .07578,
2016 + .56197, .22435, .58560, .04248, .01618,
2017 + .00317, .03786, .07341 /
2018 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=17,24)/
2019 + .55252, .21903, .55815, .04131, .01682,
2020 + .00390, .03704, .07112,
2021 + .54472, .21468, .53594, .04036, .01720,
2022 + .00444, .03638, .06930,
2023 + .53520, .20955, .50965, .03926, .01749,
2024 + .00499, .03558, .06713,
2025 + .52685, .20510, .48725, .03831, .01763,
2026 + .00541, .03487, .06530,
2027 + .51929, .20111, .46753, .03748, .01769,
2028 + .00577, .03423, .06370,
2029 + .50968, .19613, .44331, .03644, .01765,
2030 + .00613, .03340, .06171,
2031 + .50071, .19156, .42154, .03549, .01755,
2032 + .00643, .03263, .05990,
2033 + .49243, .18738, .40212, .03461, .01741,
2034 + .00667, .03192, .05826 /
2035 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=25,32)/
2036 + .48426, .18329, .38356, .03374, .01723,
2037 + .00685, .03122, .05667,
2038 + .47625, .17936, .36611, .03291, .01703,
2039 + .00700, .03052, .05514,
2040 + .46881, .17575, .35042, .03215, .01683,
2041 + .00712, .02987, .05374,
2042 + .46179, .17239, .33619, .03144, .01664,
2043 + .00721, .02927, .05242,
2044 + .45485, .16908, .32254, .03074, .01643,
2045 + .00728, .02867, .05114,
2046 + .44809, .16588, .30965, .03005, .01621,
2047 + .00733, .02808, .04991,
2048 + .44174, .16290, .29792, .02940, .01600,
2049 + .00736, .02753, .04878,
2050 + .43578, .16012, .28724, .02880, .01579,
2051 + .00738, .02702, .04772 /
2052 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=33,37)/
2053 + .42984, .15737, .27691, .02821, .01557,
2054 + .00740, .02650, .04668,
2055 + .42398, .15469, .26708, .02764, .01536,
2056 + .00739, .02600, .04566,
2057 + .41850, .15220, .25810, .02711, .01516,
2058 + .00739, .02554, .04471,
2059 + .41326, .14985, .24983, .02661, .01496,
2060 + .00737, .02509, .04383,
2061 + .40807, .14753, .24180, .02612, .01476,
2062 + .00736, .02464, .04297 /
2063 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,8)/
2064 + .70312, .30280, .78015, .04060, .00141,
2065 + -.00002, .03332, .08730,
2066 + .69426, .29598, .78299, .04082, .00237,
2067 + -.00001, .03387, .08572,
2068 + .68079, .28623, .77408, .04085, .00360,
2069 + -.00002, .03436, .08328,
2070 + .67087, .27937, .76102, .04069, .00441,
2071 + -.00002, .03453, .08145,
2072 + .66038, .27241, .74285, .04040, .00520,
2073 + -.00001, .03455, .07949,
2074 + .65132, .26659, .72463, .04005, .00585,
2075 + -.00001, .03447, .07777,
2076 + .64265, .26115, .70565, .03964, .00647,
2077 + -.00002, .03432, .07611,
2078 + .63335, .25546, .68362, .03910, .00711,
2079 + -.00002, .03406, .07432 /
2080 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=9,16)/
2081 + .62526, .25063, .66381, .03857, .00768,
2082 + -.00002, .03377, .07274,
2083 + .61752, .24609, .64462, .03801, .00825,
2084 + -.00002, .03346, .07122,
2085 + .61136, .24254, .62897, .03753, .00870,
2086 + -.00002, .03317, .07000,
2087 + .59832, .23516, .59577, .03645, .00969,
2088 + -.00001, .03249, .06741,
2089 + .58717, .22901, .56739, .03545, .01052,
2090 + .00023, .03184, .06519,
2091 + .57481, .22236, .53639, .03432, .01138,
2092 + .00092, .03107, .06275,
2093 + .56212, .21564, .50517, .03314, .01215,
2094 + .00175, .03024, .06029,
2095 + .55074, .20972, .47788, .03209, .01269,
2096 + .00238, .02949, .05815 /
2097 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=17,24)/
2098 + .53938, .20396, .45147, .03108, .01309,
2099 + .00291, .02873, .05608,
2100 + .53007, .19931, .43048, .03028, .01330,
2101 + .00329, .02811, .05443,
2102 + .51888, .19379, .40606, .02934, .01343,
2103 + .00369, .02736, .05252,
2104 + .50912, .18905, .38552, .02854, .01347,
2105 + .00399, .02671, .05089,
2106 + .50033, .18483, .36763, .02784, .01345,
2107 + .00424, .02613, .04945,
2108 + .48931, .17958, .34596, .02696, .01335,
2109 + .00448, .02538, .04770,
2110 + .47911, .17479, .32673, .02613, .01321,
2111 + .00468, .02469, .04612,
2112 + .46973, .17044, .30975, .02538, .01305,
2113 + .00483, .02405, .04470 /
2114 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=25,32)/
2115 + .46048, .16621, .29368, .02467, .01286,
2116 + .00497, .02343, .04332,
2117 + .45151, .16217, .27877, .02399, .01266,
2118 + .00505, .02283, .04199,
2119 + .44321, .15846, .26546, .02337, .01247,
2120 + .00511, .02228, .04077,
2121 + .43546, .15503, .25348, .02279, .01228,
2122 + .00515, .02177, .03965,
2123 + .42783, .15167, .24208, .02222, .01209,
2124 + .00519, .02125, .03856,
2125 + .42041, .14842, .23139, .02167, .01189,
2126 + .00522, .02076, .03752,
2127 + .41348, .14541, .22173, .02116, .01170,
2128 + .00523, .02029, .03656,
2129 + .40699, .14261, .21298, .02067, .01151,
2130 + .00523, .01985, .03568 /
2131 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=33,37)/
2132 + .40056, .13986, .20456, .02019, .01133,
2133 + .00522, .01942, .03482,
2134 + .39425, .13718, .19660, .01974, .01114,
2135 + .00520, .01901, .03398,
2136 + .38838, .13468, .18936, .01932, .01096,
2137 + .00519, .01862, .03320,
2138 + .38280, .13234, .18274, .01891, .01079,
2139 + .00517, .01825, .03247,
2140 + .37728, .13004, .17633, .01851, .01062,
2141 + .00514, .01789, .03175 /
2142 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,8)/
2143 + .72039, .29584, .75622, .03176, .00130,
2144 + -.00002, .02734, .07301,
2145 + .70813, .28792, .74607, .03190, .00216,
2146 + -.00001, .02770, .07135,
2147 + .69001, .27673, .72143, .03184, .00325,
2148 + -.00002, .02796, .06884,
2149 + .67699, .26895, .69912, .03164, .00393,
2150 + -.00003, .02799, .06701,
2151 + .66348, .26109, .67305, .03133, .00458,
2152 + -.00001, .02789, .06507,
2153 + .65199, .25458, .64930, .03097, .00510,
2154 + .00000, .02772, .06341,
2155 + .64114, .24851, .62600, .03055, .00558,
2156 + .00000, .02750, .06183,
2157 + .62964, .24224, .60046, .03004, .00608,
2158 + -.00002, .02718, .06015 /
2159 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=9,16)/
2160 + .61974, .23696, .57823, .02956, .00650,
2161 + -.00002, .02687, .05866,
2162 + .61034, .23201, .55718, .02908, .00691,
2163 + .00000, .02655, .05723,
2164 + .60291, .22815, .54045, .02865, .00724,
2165 + -.00001, .02625, .05613,
2166 + .58733, .22021, .50583, .02772, .00793,
2167 + -.00002, .02558, .05377,
2168 + .57416, .21363, .47707, .02686, .00851,
2169 + .00015, .02497, .05178,
2170 + .55976, .20654, .44639, .02589, .00909,
2171 + .00070, .02425, .04962,
2172 + .54506, .19948, .41616, .02492, .00960,
2173 + .00134, .02349, .04744,
2174 + .53199, .19331, .39023, .02405, .00993,
2175 + .00179, .02281, .04556 /
2176 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=17,24)/
2177 + .51911, .18728, .36554, .02320, .01015,
2178 + .00219, .02213, .04378,
2179 + .50861, .18244, .34618, .02255, .01026,
2180 + .00248, .02156, .04235,
2181 + .49610, .17675, .32397, .02175, .01031,
2182 + .00275, .02090, .04069,
2183 + .48526, .17189, .30553, .02108, .01029,
2184 + .00297, .02033, .03929,
2185 + .47555, .16758, .28963, .02050, .01022,
2186 + .00315, .01982, .03806,
2187 + .46342, .16227, .27061, .01978, .01009,
2188 + .00330, .01917, .03656,
2189 + .45226, .15743, .25389, .01913, .00992,
2190 + .00343, .01858, .03521,
2191 + .44207, .15305, .23928, .01854, .00976,
2192 + .00353, .01804, .03400 /
2193 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=25,32)/
2194 + .43208, .14881, .22560, .01797, .00958,
2195 + .00361, .01751, .03284,
2196 + .42249, .14477, .21301, .01741, .00941,
2197 + .00366, .01701, .03173,
2198 + .41366, .14107, .20185, .01689, .00924,
2199 + .00370, .01654, .03071,
2200 + .40542, .13768, .19190, .01642, .00906,
2201 + .00372, .01611, .02978,
2202 + .39733, .13437, .18247, .01597, .00889,
2203 + .00373, .01568, .02888,
2204 + .38952, .13119, .17369, .01553, .00872,
2205 + .00373, .01527, .02803,
2206 + .38222, .12824, .16580, .01512, .00856,
2207 + .00373, .01489, .02723,
2208 + .37541, .12553, .15870, .01475, .00839,
2209 + .00372, .01454, .02650 /
2210 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=33,37)/
2211 + .36869, .12285, .15191, .01439, .00824,
2212 + .00371, .01419, .02578,
2213 + .36214, .12024, .14553, .01403, .00808,
2214 + .00369, .01385, .02510,
2215 + .35606, .11782, .13974, .01370, .00794,
2216 + .00367, .01354, .02448,
2217 + .35029, .11556, .13446, .01339, .00780,
2218 + .00364, .01324, .02389,
2219 + .34460, .11333, .12937, .01308, .00766,
2220 + .00362, .01295, .02332 /
2221 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,8)/
2222 + .72711, .28470, .72641, .02450, .00118,
2223 + .00005, .02216, .06014,
2224 + .71164, .27595, .70519, .02462, .00194,
2225 + .00005, .02239, .05850,
2226 + .68928, .26365, .66774, .02453, .00285,
2227 + .00004, .02247, .05610,
2228 + .67345, .25518, .63827, .02433, .00342,
2229 + .00003, .02240, .05438,
2230 + .65721, .24672, .60637, .02402, .00394,
2231 + .00004, .02223, .05257,
2232 + .64355, .23973, .57879, .02370, .00435,
2233 + .00004, .02202, .05102,
2234 + .63073, .23330, .55267, .02335, .00472,
2235 + .00003, .02176, .04956,
2236 + .61730, .22667, .52502, .02289, .00510,
2237 + .00004, .02143, .04802 /
2238 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=9,16)/
2239 + .60584, .22110, .50156, .02247, .00541,
2240 + .00003, .02112, .04670,
2241 + .59502, .21590, .47971, .02205, .00571,
2242 + .00003, .02079, .04544,
2243 + .58651, .21189, .46269, .02171, .00594,
2244 + .00002, .02052, .04443,
2245 + .56882, .20363, .42811, .02094, .00640,
2246 + .00003, .01990, .04235,
2247 + .55401, .19682, .40000, .02023, .00679,
2248 + .00017, .01934, .04063,
2249 + .53794, .18952, .37058, .01944, .00717,
2250 + .00056, .01870, .03877,
2251 + .52170, .18229, .34211, .01863, .00749,
2252 + .00102, .01804, .03691,
2253 + .50734, .17603, .31809, .01793, .00770,
2254 + .00136, .01744, .03531 /
2255 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=17,24)/
2256 + .49325, .16996, .29556, .01726, .00781,
2257 + .00164, .01685, .03379,
2258 + .48190, .16508, .27809, .01670, .00785,
2259 + .00182, .01639, .03256,
2260 + .46839, .15940, .25827, .01609, .00782,
2261 + .00203, .01581, .03117,
2262 + .45679, .15455, .24201, .01555, .00775,
2263 + .00218, .01533, .03000,
2264 + .44647, .15027, .22812, .01505, .00768,
2265 + .00230, .01490, .02898,
2266 + .43362, .14499, .21169, .01447, .00755,
2267 + .00241, .01435, .02773,
2268 + .42185, .14024, .19740, .01395, .00739,
2269 + .00248, .01385, .02663,
2270 + .41114, .13595, .18500, .01347, .00724,
2271 + .00254, .01340, .02563 /
2272 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=25,32)/
2273 + .40072, .13182, .17348, .01302, .00708,
2274 + .00259, .01297, .02465,
2275 + .39074, .12789, .16298, .01258, .00694,
2276 + .00262, .01256, .02374,
2277 + .38158, .12432, .15372, .01218, .00679,
2278 + .00264, .01219, .02291,
2279 + .37308, .12104, .14552, .01181, .00665,
2280 + .00265, .01183, .02216,
2281 + .36477, .11785, .13780, .01146, .00650,
2282 + .00265, .01149, .02144,
2283 + .35677, .11480, .13066, .01112, .00635,
2284 + .00264, .01115, .02074,
2285 + .34934, .11198, .12427, .01080, .00621,
2286 + .00263, .01085, .02011,
2287 + .34246, .10937, .11857, .01050, .00609,
2288 + .00262, .01056, .01953 /
2289 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=33,37)/
2290 + .33567, .10681, .11313, .01021, .00596,
2291 + .00261, .01029, .01897,
2292 + .32906, .10435, .10804, .00993, .00583,
2293 + .00259, .01002, .01842,
2294 + .32292, .10207, .10343, .00968, .00571,
2295 + .00257, .00976, .01791,
2296 + .31713, .09993, .09928, .00944, .00559,
2297 + .00254, .00953, .01744,
2298 + .31142, .09783, .09528, .00922, .00548,
2299 + .00252, .00930, .01698 /
2300 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,8)/
2301 + .72377, .27060, .69005, .01889, .00094,
2302 + -.00018, .01754, .04879,
2303 + .70551, .26120, .65985, .01896, .00159,
2304 + -.00017, .01768, .04728,
2305 + .67941, .24814, .61250, .01883, .00238,
2306 + -.00014, .01769, .04507,
2307 + .66113, .23922, .57785, .01863, .00285,
2308 + -.00013, .01758, .04349,
2309 + .64256, .23037, .54207, .01835, .00328,
2310 + -.00014, .01740, .04186,
2311 + .62708, .22311, .51218, .01805, .00360,
2312 + -.00015, .01718, .04049,
2313 + .61268, .21641, .48454, .01772, .00388,
2314 + -.00016, .01694, .03921,
2315 + .59767, .20959, .45606, .01735, .00415,
2316 + -.00015, .01665, .03783 /
2317 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=9,16)/
2318 + .58493, .20388, .43238, .01700, .00439,
2319 + -.00014, .01636, .03667,
2320 + .57296, .19857, .41061, .01664, .00461,
2321 + -.00013, .01606, .03557,
2322 + .56363, .19448, .39388, .01635, .00476,
2323 + -.00013, .01581, .03471,
2324 + .54429, .18610, .36038, .01572, .00507,
2325 + -.00013, .01527, .03294,
2326 + .52825, .17923, .33370, .01514, .00533,
2327 + -.00002, .01479, .03148,
2328 + .51090, .17195, .30620, .01450, .00558,
2329 + .00029, .01425, .02991,
2330 + .49349, .16476, .28002, .01386, .00577,
2331 + .00066, .01369, .02835,
2332 + .47824, .15855, .25825, .01330, .00588,
2333 + .00092, .01319, .02702 /
2334 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=17,24)/
2335 + .46338, .15254, .23808, .01274, .00592,
2336 + .00114, .01270, .02576,
2337 + .45143, .14774, .22261, .01230, .00591,
2338 + .00128, .01230, .02478,
2339 + .43733, .14217, .20525, .01180, .00587,
2340 + .00143, .01184, .02361,
2341 + .42523, .13745, .19117, .01138, .00580,
2342 + .00154, .01143, .02265,
2343 + .41449, .13331, .17923, .01101, .00572,
2344 + .00162, .01106, .02183,
2345 + .40124, .12823, .16518, .01055, .00560,
2346 + .00170, .01062, .02081,
2347 + .38920, .12364, .15312, .01013, .00547,
2348 + .00176, .01022, .01990,
2349 + .37829, .11953, .14275, .00975, .00534,
2350 + .00180, .00986, .01909 /
2351 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=25,32)/
2352 + .36766, .11558, .13318, .00940, .00520,
2353 + .00182, .00951, .01831,
2354 + .35757, .11185, .12451, .00905, .00507,
2355 + .00184, .00918, .01758,
2356 + .34834, .10845, .11692, .00873, .00495,
2357 + .00186, .00888, .01692,
2358 + .33980, .10535, .11025, .00845, .00483,
2359 + .00186, .00860, .01632,
2360 + .33147, .10234, .10400, .00818, .00471,
2361 + .00186, .00832, .01574,
2362 + .32348, .09947, .09824, .00792, .00459,
2363 + .00184, .00806, .01518,
2364 + .31608, .09682, .09313, .00768, .00448,
2365 + .00184, .00782, .01468,
2366 + .30923, .09438, .08859, .00746, .00437,
2367 + .00183, .00760, .01423 /
2368 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=33,37)/
2369 + .30249, .09200, .08427, .00723, .00427,
2370 + .00182, .00738, .01380,
2371 + .29594, .08970, .08026, .00702, .00417,
2372 + .00180, .00717, .01338,
2373 + .28988, .08759, .07663, .00683, .00408,
2374 + .00178, .00698, .01300,
2375 + .28420, .08560, .07337, .00665, .00399,
2376 + .00177, .00680, .01263,
2377 + .27862, .08366, .07024, .00648, .00390,
2378 + .00175, .00663, .01227 /
2379 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,8)/
2380 + .71200, .25361, .64700, .01413, .00085,
2381 + -.00006, .01389, .03904,
2382 + .69123, .24386, .60996, .01419, .00140,
2383 + -.00005, .01396, .03767,
2384 + .66186, .23042, .55567, .01408, .00205,
2385 + -.00002, .01389, .03571,
2386 + .64151, .22130, .51776, .01391, .00241,
2387 + -.00002, .01375, .03433,
2388 + .62098, .21230, .47987, .01370, .00274,
2389 + -.00004, .01356, .03288,
2390 + .60398, .20496, .44901, .01347, .00299,
2391 + -.00005, .01334, .03168,
2392 + .58824, .19825, .42101, .01321, .00320,
2393 + -.00003, .01312, .03056,
2394 + .57199, .19140, .39272, .01290, .00338,
2395 + -.00003, .01284, .02941 /
2396 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=9,16)/
2397 + .55828, .18568, .36956, .01260, .00355,
2398 + -.00002, .01257, .02843,
2399 + .54545, .18039, .34855, .01232, .00371,
2400 + -.00002, .01231, .02751,
2401 + .53546, .17633, .33263, .01210, .00380,
2402 + -.00002, .01209, .02679,
2403 + .51494, .16805, .30109, .01160, .00401,
2404 + -.00002, .01163, .02530,
2405 + .49799, .16128, .27635, .01113, .00418,
2406 + .00005, .01123, .02409,
2407 + .47980, .15415, .25124, .01063, .00432,
2408 + .00028, .01077, .02279,
2409 + .46165, .14715, .22768, .01014, .00442,
2410 + .00054, .01031, .02151,
2411 + .44586, .14111, .20833, .00969, .00447,
2412 + .00072, .00989, .02043 /
2413 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=17,24)/
2414 + .43054, .13532, .19059, .00927, .00448,
2415 + .00087, .00948, .01940,
2416 + .41826, .13073, .17714, .00894, .00445,
2417 + .00097, .00916, .01860,
2418 + .40385, .12540, .16219, .00853, .00440,
2419 + .00107, .00878, .01767,
2420 + .39157, .12089, .15015, .00820, .00432,
2421 + .00114, .00845, .01691,
2422 + .38070, .11694, .14003, .00792, .00424,
2423 + .00119, .00816, .01625,
2424 + .36736, .11211, .12827, .00756, .00413,
2425 + .00124, .00781, .01544,
2426 + .35526, .10780, .11824, .00725, .00402,
2427 + .00128, .00749, .01469,
2428 + .34434, .10395, .10966, .00698, .00391,
2429 + .00130, .00721, .01403 /
2430 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=25,32)/
2431 + .33378, .10024, .10181, .00672, .00379,
2432 + .00131, .00692, .01343,
2433 + .32376, .09675, .09476, .00644, .00368,
2434 + .00132, .00666, .01286,
2435 + .31462, .09360, .08861, .00620, .00358,
2436 + .00133, .00642, .01235,
2437 + .30622, .09072, .08323, .00598, .00348,
2438 + .00132, .00620, .01188,
2439 + .29805, .08793, .07823, .00577, .00338,
2440 + .00131, .00599, .01143,
2441 + .29023, .08528, .07365, .00557, .00330,
2442 + .00131, .00578, .01103,
2443 + .28301, .08284, .06960, .00538, .00321,
2444 + .00130, .00559, .01065,
2445 + .27634, .08060, .06600, .00522, .00312,
2446 + .00129, .00543, .01030 /
2447 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=33,37)/
2448 + .26979, .07842, .06260, .00506, .00304,
2449 + .00128, .00527, .00995,
2450 + .26347, .07632, .05945, .00491, .00296,
2451 + .00126, .00511, .00961,
2452 + .25762, .07440, .05663, .00476, .00290,
2453 + .00125, .00496, .00931,
2454 + .25214, .07260, .05409, .00463, .00283,
2455 + .00123, .00482, .00903,
2456 + .24676, .07084, .05166, .00450, .00276,
2457 + .00121, .00468, .00876 /
2458 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,8)/
2459 + .69215, .23508, .59860, .01050, .00072,
2460 + -.00003, .01079, .03075,
2461 + .66932, .22521, .55685, .01056, .00117,
2462 + -.00005, .01082, .02954,
2463 + .63736, .21165, .49831, .01046, .00168,
2464 + -.00005, .01072, .02787,
2465 + .61537, .20254, .45884, .01034, .00198,
2466 + -.00004, .01059, .02665,
2467 + .59337, .19358, .42038, .01015, .00223,
2468 + -.00003, .01040, .02543,
2469 + .57528, .18627, .38968, .00994, .00241,
2470 + -.00004, .01020, .02445,
2471 + .55859, .17961, .36228, .00973, .00257,
2472 + -.00004, .00998, .02352,
2473 + .54143, .17290, .33508, .00951, .00272,
2474 + -.00002, .00974, .02253 /
2475 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=9,16)/
2476 + .52705, .16731, .31308, .00927, .00282,
2477 + -.00002, .00952, .02172,
2478 + .51364, .16214, .29329, .00903, .00291,
2479 + -.00003, .00931, .02097,
2480 + .50326, .15819, .27846, .00885, .00298,
2481 + -.00003, .00912, .02037,
2482 + .48197, .15015, .24948, .00845, .00312,
2483 + -.00003, .00874, .01916,
2484 + .46449, .14363, .22707, .00810, .00321,
2485 + .00003, .00840, .01818,
2486 + .44585, .13677, .20459, .00772, .00329,
2487 + .00020, .00803, .01714,
2488 + .42735, .13008, .18378, .00735, .00334,
2489 + .00039, .00765, .01611,
2490 + .41133, .12434, .16688, .00702, .00334,
2491 + .00052, .00732, .01525 /
2492 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=17,24)/
2493 + .39589, .11885, .15156, .00668, .00332,
2494 + .00062, .00699, .01445,
2495 + .38356, .11451, .14005, .00642, .00329,
2496 + .00070, .00673, .01380,
2497 + .36916, .10949, .12738, .00612, .00324,
2498 + .00077, .00643, .01307,
2499 + .35693, .10527, .11727, .00588, .00318,
2500 + .00082, .00617, .01245,
2501 + .34615, .10158, .10883, .00566, .00311,
2502 + .00086, .00595, .01192,
2503 + .33298, .09709, .09905, .00537, .00300,
2504 + .00089, .00567, .01130,
2505 + .32106, .09309, .09081, .00513, .00291,
2506 + .00091, .00541, .01074,
2507 + .31034, .08952, .08382, .00492, .00282,
2508 + .00093, .00518, .01023 /
2509 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=25,32)/
2510 + .30004, .08611, .07746, .00472, .00273,
2511 + .00094, .00497, .00976,
2512 + .29030, .08290, .07177, .00451, .00264,
2513 + .00094, .00477, .00933,
2514 + .28144, .08000, .06684, .00433, .00256,
2515 + .00094, .00459, .00894,
2516 + .27331, .07737, .06257, .00418, .00248,
2517 + .00093, .00442, .00858,
2518 + .26542, .07483, .05860, .00404, .00241,
2519 + .00093, .00426, .00823,
2520 + .25788, .07243, .05498, .00390, .00234,
2521 + .00092, .00410, .00789,
2522 + .25095, .07022, .05179, .00377, .00227,
2523 + .00091, .00396, .00759,
2524 + .24457, .06819, .04899, .00364, .00221,
2525 + .00090, .00383, .00733 /
2526 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=33,37)/
2527 + .23833, .06622, .04634, .00352, .00215,
2528 + .00089, .00371, .00708,
2529 + .23231, .06433, .04391, .00341, .00208,
2530 + .00087, .00358, .00682,
2531 + .22676, .06260, .04172, .00330, .00203,
2532 + .00086, .00347, .00659,
2533 + .22158, .06097, .03977, .00320, .00198,
2534 + .00085, .00337, .00639,
2535 + .21650, .05939, .03791, .00310, .00193,
2536 + .00084, .00327, .00620 /
2537 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,8)/
2538 + .66550, .21539, .54597, .00763, .00060,
2539 + .00000, .00829, .02389,
2540 + .64109, .20557, .50158, .00767, .00098,
2541 + .00002, .00829, .02287,
2542 + .60712, .19223, .44134, .00762, .00138,
2543 + .00000, .00818, .02141,
2544 + .58396, .18327, .40182, .00752, .00160,
2545 + .00001, .00804, .02043,
2546 + .56093, .17451, .36407, .00737, .00180,
2547 + .00001, .00787, .01941,
2548 + .54207, .16742, .33445, .00723, .00194,
2549 + .00000, .00770, .01856,
2550 + .52479, .16096, .30838, .00706, .00203,
2551 + -.00001, .00750, .01784,
2552 + .50708, .15449, .28289, .00689, .00214,
2553 + -.00001, .00731, .01701 /
2554 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=9,16)/
2555 + .49232, .14911, .26249, .00671, .00221,
2556 + -.00001, .00713, .01636,
2557 + .47859, .14416, .24433, .00652, .00227,
2558 + -.00001, .00695, .01576,
2559 + .46798, .14038, .23085, .00639, .00231,
2560 + -.00001, .00680, .01528,
2561 + .44636, .13274, .20476, .00610, .00238,
2562 + .00000, .00648, .01431,
2563 + .42875, .12655, .18484, .00581, .00243,
2564 + .00005, .00622, .01354,
2565 + .41000, .12008, .16510, .00553, .00248,
2566 + .00017, .00592, .01271,
2567 + .39151, .11378, .14702, .00525, .00249,
2568 + .00031, .00561, .01191,
2569 + .37562, .10840, .13253, .00499, .00248,
2570 + .00040, .00534, .01124 /
2571 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=17,24)/
2572 + .36034, .10328, .11953, .00474, .00246,
2573 + .00047, .00509, .01059,
2574 + .34818, .09926, .10983, .00453, .00242,
2575 + .00052, .00489, .01008,
2576 + .33404, .09461, .09924, .00432, .00236,
2577 + .00057, .00465, .00952,
2578 + .32207, .09072, .09086, .00414, .00231,
2579 + .00060, .00445, .00905,
2580 + .31155, .08734, .08392, .00399, .00225,
2581 + .00062, .00428, .00863,
2582 + .29875, .08323, .07595, .00378, .00216,
2583 + .00065, .00407, .00814,
2584 + .28724, .07956, .06926, .00359, .00209,
2585 + .00066, .00387, .00772,
2586 + .27693, .07631, .06362, .00343, .00201,
2587 + .00066, .00370, .00735 /
2588 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=25,32)/
2589 + .26702, .07323, .05853, .00328, .00195,
2590 + .00067, .00354, .00699,
2591 + .25769, .07032, .05401, .00314, .00188,
2592 + .00067, .00338, .00666,
2593 + .24924, .06770, .05011, .00302, .00181,
2594 + .00066, .00324, .00636,
2595 + .24150, .06533, .04676, .00291, .00176,
2596 + .00065, .00311, .00608,
2597 + .23402, .06306, .04366, .00280, .00170,
2598 + .00065, .00299, .00581,
2599 + .22690, .06090, .04083, .00269, .00165,
2600 + .00064, .00288, .00558,
2601 + .22036, .05893, .03836, .00259, .00160,
2602 + .00063, .00277, .00535,
2603 + .21436, .05713, .03619, .00251, .00155,
2604 + .00062, .00268, .00514 /
2605 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=33,37)/
2606 + .20850, .05538, .03415, .00243, .00150,
2607 + .00061, .00259, .00495,
2608 + .20286, .05369, .03227, .00234, .00146,
2609 + .00061, .00249, .00478,
2610 + .19766, .05214, .03059, .00227, .00142,
2611 + .00060, .00241, .00462,
2612 + .19286, .05071, .02911, .00218, .00137,
2613 + .00059, .00234, .00447,
2614 + .18815, .04932, .02769, .00210, .00133,
2615 + .00058, .00227, .00432 /
2616 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,8)/
2617 + .63299, .19516, .49077, .00541, .00052,
2618 + .00007, .00630, .01826,
2619 + .60742, .18563, .44551, .00545, .00080,
2620 + .00007, .00628, .01742,
2621 + .57219, .17266, .38571, .00542, .00113,
2622 + .00006, .00618, .01619,
2623 + .54832, .16402, .34739, .00534, .00130,
2624 + .00006, .00605, .01539,
2625 + .52469, .15563, .31141, .00526, .00143,
2626 + .00006, .00589, .01456,
2627 + .50542, .14886, .28360, .00517, .00153,
2628 + .00006, .00574, .01388,
2629 + .48786, .14273, .25944, .00503, .00161,
2630 + .00007, .00559, .01329,
2631 + .46994, .13658, .23605, .00490, .00167,
2632 + .00005, .00543, .01264 /
2633 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=9,16)/
2634 + .45507, .13148, .21757, .00477, .00171,
2635 + .00005, .00527, .01212,
2636 + .44131, .12680, .20126, .00463, .00174,
2637 + .00004, .00512, .01165,
2638 + .43072, .12324, .18925, .00452, .00177,
2639 + .00005, .00500, .01128,
2640 + .40918, .11608, .16625, .00430, .00181,
2641 + .00006, .00476, .01052,
2642 + .39169, .11031, .14888, .00410, .00183,
2643 + .00007, .00454, .00992,
2644 + .37323, .10429, .13186, .00387, .00184,
2645 + .00015, .00430, .00928,
2646 + .35510, .09846, .11646, .00367, .00184,
2647 + .00025, .00406, .00866,
2648 + .33953, .09351, .10424, .00350, .00182,
2649 + .00031, .00386, .00814 /
2650 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=17,24)/
2651 + .32463, .08882, .09337, .00332, .00178,
2652 + .00035, .00367, .00764,
2653 + .31286, .08514, .08531, .00315, .00175,
2654 + .00039, .00351, .00728,
2655 + .29919, .08091, .07660, .00300, .00171,
2656 + .00043, .00333, .00683,
2657 + .28769, .07736, .06976, .00286, .00166,
2658 + .00045, .00318, .00647,
2659 + .27764, .07428, .06412, .00273, .00161,
2660 + .00046, .00304, .00618,
2661 + .26539, .07057, .05771, .00259, .00155,
2662 + .00048, .00288, .00580,
2663 + .25444, .06729, .05238, .00247, .00149,
2664 + .00048, .00274, .00547,
2665 + .24466, .06437, .04791, .00236, .00143,
2666 + .00048, .00261, .00518 /
2667 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=25,32)/
2668 + .23531, .06160, .04388, .00225, .00138,
2669 + .00047, .00248, .00492,
2670 + .22650, .05903, .04033, .00215, .00132,
2671 + .00047, .00236, .00467,
2672 + .21853, .05671, .03728, .00207, .00127,
2673 + .00046, .00226, .00444,
2674 + .21128, .05461, .03468, .00199, .00123,
2675 + .00045, .00217, .00425,
2676 + .20430, .05258, .03227, .00191, .00119,
2677 + .00045, .00208, .00407,
2678 + .19770, .05067, .03010, .00182, .00115,
2679 + .00045, .00200, .00390,
2680 + .19163, .04893, .02820, .00175, .00111,
2681 + .00045, .00192, .00374,
2682 + .18606, .04735, .02654, .00168, .00107,
2683 + .00044, .00185, .00358 /
2684 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=33,37)/
2685 + .18063, .04582, .02499, .00162, .00104,
2686 + .00043, .00179, .00343,
2687 + .17542, .04435, .02356, .00157, .00100,
2688 + .00042, .00172, .00331,
2689 + .17063, .04301, .02228, .00151, .00097,
2690 + .00042, .00166, .00320,
2691 + .16620, .04176, .02116, .00146, .00094,
2692 + .00041, .00160, .00310,
2693 + .16187, .04054, .02009, .00141, .00091,
2694 + .00040, .00155, .00300 /
2695 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,8)/
2696 + .59562, .17504, .43481, .00387, .00038,
2697 + .00002, .00466, .01371,
2698 + .56947, .16588, .39023, .00390, .00061,
2699 + .00001, .00462, .01303,
2700 + .53359, .15352, .33267, .00389, .00086,
2701 + .00001, .00452, .01205,
2702 + .50944, .14531, .29650, .00381, .00098,
2703 + .00001, .00442, .01142,
2704 + .48569, .13736, .26306, .00372, .00108,
2705 + .00002, .00429, .01078,
2706 + .46640, .13099, .23758, .00364, .00115,
2707 + .00002, .00418, .01025,
2708 + .44887, .12524, .21567, .00356, .00119,
2709 + .00002, .00405, .00977,
2710 + .43112, .11947, .19475, .00344, .00124,
2711 + .00001, .00392, .00929 /
2712 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=9,16)/
2713 + .41636, .11475, .17836, .00335, .00128,
2714 + .00001, .00380, .00888,
2715 + .40274, .11042, .16399, .00327, .00131,
2716 + .00001, .00369, .00849,
2717 + .39235, .10712, .15348, .00319, .00131,
2718 + .00001, .00360, .00820,
2719 + .37129, .10051, .13352, .00300, .00133,
2720 + .00001, .00340, .00763,
2721 + .35424, .09521, .11866, .00286, .00134,
2722 + .00003, .00324, .00715,
2723 + .33630, .08969, .10426, .00271, .00134,
2724 + .00010, .00306, .00667,
2725 + .31880, .08437, .09135, .00256, .00132,
2726 + .00016, .00288, .00620,
2727 + .30385, .07987, .08118, .00242, .00130,
2728 + .00021, .00272, .00580 /
2729 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=17,24)/
2730 + .28959, .07562, .07223, .00229, .00127,
2731 + .00024, .00258, .00543,
2732 + .27837, .07229, .06567, .00217, .00124,
2733 + .00027, .00247, .00516,
2734 + .26534, .06851, .05862, .00208, .00120,
2735 + .00031, .00234, .00482,
2736 + .25444, .06534, .05312, .00198, .00116,
2737 + .00032, .00222, .00455,
2738 + .24495, .06259, .04861, .00189, .00112,
2739 + .00032, .00212, .00433,
2740 + .23339, .05929, .04351, .00180, .00108,
2741 + .00033, .00200, .00405,
2742 + .22314, .05636, .03930, .00169, .00103,
2743 + .00032, .00188, .00382,
2744 + .21402, .05379, .03579, .00160, .00099,
2745 + .00032, .00178, .00362 /
2746 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=25,32)/
2747 + .20529, .05137, .03265, .00154, .00094,
2748 + .00033, .00170, .00342,
2749 + .19712, .04909, .02990, .00147, .00091,
2750 + .00032, .00162, .00324,
2751 + .18975, .04704, .02755, .00141, .00088,
2752 + .00032, .00155, .00308,
2753 + .18309, .04520, .02554, .00134, .00084,
2754 + .00032, .00149, .00293,
2755 + .17668, .04344, .02369, .00128, .00081,
2756 + .00031, .00143, .00279,
2757 + .17060, .04177, .02204, .00122, .00078,
2758 + .00031, .00136, .00267,
2759 + .16503, .04026, .02060, .00117, .00075,
2760 + .00030, .00130, .00255,
2761 + .15992, .03889, .01934, .00114, .00072,
2762 + .00029, .00125, .00245 /
2763 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=33,37)/
2764 + .15497, .03756, .01817, .00110, .00070,
2765 + .00028, .00119, .00235,
2766 + .15024, .03629, .01710, .00106, .00067,
2767 + .00028, .00115, .00226,
2768 + .14591, .03513, .01615, .00101, .00065,
2769 + .00028, .00111, .00218,
2770 + .14187, .03406, .01531, .00098, .00063,
2771 + .00027, .00107, .00209,
2772 + .13793, .03301, .01451, .00095, .00061,
2773 + .00027, .00103, .00202 /
2774 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,8)/
2775 + .55457, .15523, .37936, .00268, .00031,
2776 + .00003, .00340, .01011,
2777 + .52824, .14658, .33682, .00271, .00048,
2778 + .00004, .00337, .00957,
2779 + .49238, .13498, .28289, .00270, .00063,
2780 + .00003, .00327, .00884,
2781 + .46835, .12734, .24961, .00268, .00072,
2782 + .00003, .00318, .00831,
2783 + .44483, .11996, .21928, .00264, .00079,
2784 + .00003, .00308, .00780,
2785 + .42587, .11405, .19644, .00257, .00084,
2786 + .00003, .00299, .00739,
2787 + .40870, .10873, .17702, .00250, .00088,
2788 + .00002, .00289, .00703,
2789 + .39132, .10346, .15863, .00243, .00089,
2790 + .00002, .00278, .00666 /
2791 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=9,16)/
2792 + .37699, .09912, .14436, .00236, .00091,
2793 + .00002, .00269, .00636,
2794 + .36380, .09514, .13195, .00229, .00092,
2795 + .00002, .00260, .00608,
2796 + .35371, .09213, .12296, .00224, .00093,
2797 + .00003, .00253, .00586,
2798 + .33337, .08611, .10599, .00213, .00093,
2799 + .00003, .00238, .00542,
2800 + .31701, .08132, .09350, .00201, .00093,
2801 + .00004, .00226, .00507,
2802 + .29987, .07635, .08150, .00190, .00092,
2803 + .00007, .00212, .00473,
2804 + .28324, .07157, .07085, .00178, .00091,
2805 + .00012, .00198, .00438,
2806 + .26908, .06754, .06255, .00168, .00089,
2807 + .00014, .00187, .00407 /
2808 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=17,24)/
2809 + .25562, .06375, .05530, .00161, .00087,
2810 + .00016, .00178, .00379,
2811 + .24508, .06079, .05003, .00152, .00084,
2812 + .00019, .00168, .00360,
2813 + .23290, .05743, .04439, .00144, .00081,
2814 + .00019, .00158, .00335,
2815 + .22275, .05463, .04003, .00137, .00078,
2816 + .00020, .00150, .00315,
2817 + .21393, .05221, .03648, .00130, .00076,
2818 + .00021, .00143, .00298,
2819 + .20320, .04931, .03248, .00124, .00072,
2820 + .00020, .00135, .00280,
2821 + .19374, .04674, .02920, .00116, .00069,
2822 + .00020, .00127, .00263,
2823 + .18535, .04449, .02648, .00109, .00066,
2824 + .00020, .00120, .00248 /
2825 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=25,32)/
2826 + .17733, .04238, .02407, .00104, .00063,
2827 + .00020, .00113, .00234,
2828 + .16987, .04040, .02196, .00099, .00060,
2829 + .00021, .00108, .00221,
2830 + .16316, .03862, .02017, .00094, .00057,
2831 + .00020, .00104, .00210,
2832 + .15705, .03704, .01865, .00091, .00055,
2833 + .00020, .00099, .00200,
2834 + .15120, .03552, .01726, .00088, .00053,
2835 + .00019, .00094, .00190,
2836 + .14570, .03409, .01601, .00084, .00051,
2837 + .00019, .00090, .00181,
2838 + .14066, .03280, .01493, .00080, .00049,
2839 + .00019, .00086, .00173,
2840 + .13606, .03162, .01399, .00078, .00047,
2841 + .00019, .00082, .00166 /
2842 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=33,37)/
2843 + .13161, .03049, .01311, .00075, .00046,
2844 + .00018, .00078, .00158,
2845 + .12737, .02941, .01232, .00072, .00044,
2846 + .00017, .00075, .00150,
2847 + .12349, .02842, .01161, .00069, .00042,
2848 + .00016, .00073, .00143,
2849 + .11988, .02751, .01099, .00066, .00041,
2850 + .00016, .00070, .00138,
2851 + .11636, .02663, .01040, .00064, .00039,
2852 + .00016, .00067, .00134 /
2853 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,8)/
2854 + .51084, .13603, .32569, .00178, .00026,
2855 + .00006, .00247, .00732,
2856 + .48479, .12799, .28610, .00180, .00037,
2857 + .00006, .00244, .00691,
2858 + .44948, .11726, .23681, .00180, .00049,
2859 + .00005, .00235, .00635,
2860 + .42596, .11023, .20687, .00180, .00055,
2861 + .00005, .00227, .00596,
2862 + .40308, .10346, .17998, .00176, .00060,
2863 + .00005, .00220, .00556,
2864 + .38471, .09807, .15995, .00170, .00063,
2865 + .00003, .00212, .00525,
2866 + .36812, .09323, .14305, .00164, .00065,
2867 + .00003, .00204, .00499,
2868 + .35140, .08843, .12723, .00161, .00066,
2869 + .00003, .00197, .00469 /
2870 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=9,16)/
2871 + .33766, .08451, .11507, .00154, .00067,
2872 + .00003, .00191, .00447,
2873 + .32506, .08093, .10458, .00148, .00068,
2874 + .00004, .00184, .00426,
2875 + .31546, .07822, .09703, .00145, .00068,
2876 + .00004, .00178, .00412,
2877 + .29610, .07282, .08288, .00141, .00067,
2878 + .00003, .00167, .00377,
2879 + .28061, .06854, .07255, .00133, .00067,
2880 + .00004, .00158, .00352,
2881 + .26450, .06412, .06274, .00124, .00067,
2882 + .00007, .00149, .00326,
2883 + .24890, .05989, .05413, .00117, .00065,
2884 + .00010, .00139, .00301,
2885 + .23566, .05633, .04747, .00110, .00064,
2886 + .00011, .00131, .00279 /
2887 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=17,24)/
2888 + .22315, .05301, .04170, .00104, .00062,
2889 + .00012, .00122, .00259,
2890 + .21333, .05042, .03753, .00101, .00059,
2891 + .00014, .00117, .00244,
2892 + .20211, .04748, .03312, .00094, .00057,
2893 + .00014, .00109, .00228,
2894 + .19278, .04504, .02972, .00088, .00054,
2895 + .00015, .00103, .00216,
2896 + .18469, .04293, .02696, .00082, .00052,
2897 + .00015, .00098, .00205,
2898 + .17496, .04042, .02389, .00075, .00049,
2899 + .00016, .00092, .00191,
2900 + .16628, .03822, .02139, .00073, .00047,
2901 + .00015, .00086, .00178,
2902 + .15861, .03629, .01933, .00071, .00045,
2903 + .00015, .00081, .00167 /
2904 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=25,32)/
2905 + .15138, .03446, .01750, .00067, .00044,
2906 + .00015, .00077, .00157,
2907 + .14465, .03278, .01591, .00063, .00042,
2908 + .00015, .00073, .00147,
2909 + .13860, .03127, .01457, .00060, .00040,
2910 + .00015, .00070, .00139,
2911 + .13316, .02991, .01343, .00057, .00037,
2912 + .00015, .00066, .00133,
2913 + .12793, .02862, .01240, .00054, .00036,
2914 + .00014, .00063, .00126,
2915 + .12300, .02741, .01147, .00052, .00035,
2916 + .00014, .00060, .00120,
2917 + .11851, .02632, .01068, .00049, .00033,
2918 + .00013, .00057, .00114,
2919 + .11443, .02533, .00998, .00047, .00032,
2920 + .00013, .00055, .00108 /
2921 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=33,37)/
2922 + .11048, .02437, .00934, .00045, .00031,
2923 + .00013, .00052, .00103,
2924 + .10671, .02346, .00876, .00044, .00030,
2925 + .00012, .00050, .00099,
2926 + .10326, .02264, .00824, .00043, .00029,
2927 + .00012, .00048, .00096,
2928 + .10009, .02189, .00779, .00041, .00027,
2929 + .00012, .00046, .00092,
2930 + .09700, .02115, .00736, .00039, .00026,
2931 + .00012, .00044, .00088 /
2932 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,8)/
2933 + .46537, .11786, .27509, .00117, .00018,
2934 + .00005, .00174, .00524,
2935 + .43999, .11050, .23911, .00119, .00027,
2936 + .00005, .00171, .00488,
2937 + .40580, .10069, .19510, .00116, .00036,
2938 + .00003, .00165, .00446,
2939 + .38318, .09430, .16878, .00113, .00041,
2940 + .00003, .00160, .00418,
2941 + .36125, .08817, .14541, .00110, .00045,
2942 + .00003, .00154, .00388,
2943 + .34365, .08332, .12822, .00109, .00048,
2944 + .00003, .00149, .00364,
2945 + .32785, .07898, .11385, .00105, .00049,
2946 + .00004, .00144, .00345,
2947 + .31205, .07469, .10050, .00102, .00050,
2948 + .00003, .00138, .00323 /
2949 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=9,16)/
2950 + .29907, .07119, .09034, .00098, .00050,
2951 + .00003, .00133, .00306,
2952 + .28717, .06802, .08162, .00095, .00050,
2953 + .00003, .00128, .00292,
2954 + .27812, .06561, .07538, .00093, .00050,
2955 + .00003, .00124, .00281,
2956 + .26005, .06084, .06383, .00087, .00050,
2957 + .00003, .00116, .00259,
2958 + .24562, .05707, .05549, .00082, .00049,
2959 + .00003, .00110, .00240,
2960 + .23066, .05320, .04762, .00077, .00048,
2961 + .00006, .00103, .00220,
2962 + .21624, .04952, .04076, .00072, .00046,
2963 + .00007, .00096, .00201,
2964 + .20407, .04643, .03552, .00067, .00045,
2965 + .00009, .00090, .00187 /
2966 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=17,24)/
2967 + .19261, .04353, .03102, .00062, .00043,
2968 + .00010, .00084, .00175,
2969 + .18367, .04129, .02778, .00058, .00042,
2970 + .00010, .00080, .00165,
2971 + .17344, .03875, .02438, .00056, .00040,
2972 + .00011, .00074, .00154,
2973 + .16495, .03666, .02177, .00053, .00038,
2974 + .00011, .00070, .00143,
2975 + .15762, .03487, .01967, .00051, .00037,
2976 + .00012, .00067, .00134,
2977 + .14883, .03273, .01735, .00047, .00035,
2978 + .00012, .00063, .00124,
2979 + .14106, .03085, .01546, .00043, .00033,
2980 + .00012, .00059, .00117,
2981 + .13422, .02921, .01392, .00041, .00031,
2982 + .00012, .00055, .00111 /
2983 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=25,32)/
2984 + .12774, .02767, .01256, .00039, .00029,
2985 + .00012, .00052, .00104,
2986 + .12175, .02626, .01138, .00037, .00028,
2987 + .00012, .00049, .00097,
2988 + .11639, .02500, .01039, .00035, .00027,
2989 + .00011, .00047, .00091,
2990 + .11156, .02386, .00956, .00033, .00026,
2991 + .00011, .00044, .00086,
2992 + .10694, .02278, .00880, .00032, .00025,
2993 + .00011, .00042, .00081,
2994 + .10259, .02177, .00813, .00031, .00024,
2995 + .00011, .00040, .00077,
2996 + .09865, .02086, .00754, .00030, .00023,
2997 + .00011, .00038, .00073,
2998 + .09508, .02003, .00704, .00029, .00022,
2999 + .00011, .00037, .00070 /
3000 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=33,37)/
3001 + .09162, .01924, .00657, .00027, .00021,
3002 + .00010, .00035, .00067,
3003 + .08833, .01850, .00615, .00026, .00020,
3004 + .00010, .00034, .00064,
3005 + .08533, .01782, .00578, .00025, .00020,
3006 + .00010, .00033, .00061,
3007 + .08258, .01719, .00546, .00023, .00019,
3008 + .00009, .00031, .00058,
3009 + .07990, .01658, .00515, .00022, .00018,
3010 + .00009, .00030, .00056 /
3011 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,8)/
3012 + .41926, .10103, .22870, .00085, .00008,
3013 + -.00003, .00114, .00363,
3014 + .39493, .09439, .19681, .00085, .00015,
3015 + -.00003, .00112, .00339,
3016 + .36233, .08558, .15843, .00083, .00021,
3017 + -.00003, .00108, .00308,
3018 + .34084, .07986, .13581, .00083, .00024,
3019 + -.00001, .00104, .00288,
3020 + .32015, .07441, .11593, .00081, .00027,
3021 + -.00001, .00100, .00267,
3022 + .30364, .07012, .10144, .00078, .00028,
3023 + -.00002, .00096, .00250,
3024 + .28883, .06631, .08947, .00076, .00028,
3025 + -.00002, .00092, .00235,
3026 + .27408, .06250, .07843, .00074, .00030,
3027 + -.00001, .00088, .00219 /
3028 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=9,16)/
3029 + .26199, .05942, .07011, .00073, .00030,
3030 + -.00001, .00084, .00207,
3031 + .25097, .05664, .06302, .00070, .00030,
3032 + -.00001, .00081, .00197,
3033 + .24265, .05454, .05796, .00067, .00030,
3034 + -.00001, .00079, .00189,
3035 + .22598, .05039, .04865, .00062, .00030,
3036 + -.00001, .00073, .00172,
3037 + .21274, .04711, .04200, .00059, .00029,
3038 + .00000, .00068, .00160,
3039 + .19905, .04376, .03578, .00055, .00028,
3040 + .00000, .00063, .00147,
3041 + .18592, .04058, .03042, .00052, .00027,
3042 + .00002, .00059, .00135,
3043 + .17488, .03793, .02635, .00048, .00026,
3044 + .00004, .00055, .00126 /
3045 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=17,24)/
3046 + .16451, .03546, .02288, .00046, .00025,
3047 + .00004, .00052, .00117,
3048 + .15646, .03356, .02039, .00044, .00024,
3049 + .00004, .00048, .00109,
3050 + .14731, .03141, .01781, .00041, .00023,
3051 + .00005, .00045, .00101,
3052 + .13973, .02964, .01584, .00039, .00022,
3053 + .00005, .00043, .00094,
3054 + .13320, .02811, .01425, .00036, .00021,
3055 + .00005, .00040, .00089,
3056 + .12537, .02631, .01252, .00035, .00020,
3057 + .00006, .00037, .00082,
3058 + .11849, .02474, .01112, .00032, .00019,
3059 + .00005, .00035, .00076,
3060 + .11246, .02337, .00997, .00030, .00017,
3061 + .00005, .00032, .00071 /
3062 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=25,32)/
3063 + .10677, .02208, .00897, .00029, .00016,
3064 + .00005, .00031, .00066,
3065 + .10150, .02090, .00811, .00028, .00016,
3066 + .00005, .00029, .00062,
3067 + .09679, .01985, .00738, .00027, .00015,
3068 + .00005, .00028, .00058,
3069 + .09257, .01891, .00677, .00025, .00014,
3070 + .00005, .00026, .00055,
3071 + .08855, .01802, .00622, .00024, .00013,
3072 + .00005, .00025, .00052,
3073 + .08479, .01718, .00573, .00023, .00013,
3074 + .00005, .00023, .00049,
3075 + .08137, .01643, .00531, .00022, .00012,
3076 + .00005, .00022, .00046,
3077 + .07827, .01576, .00495, .00021, .00012,
3078 + .00005, .00021, .00044 /
3079 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=33,37)/
3080 + .07528, .01511, .00462, .00020, .00012,
3081 + .00005, .00020, .00042,
3082 + .07245, .01450, .00432, .00019, .00011,
3083 + .00004, .00019, .00040,
3084 + .06987, .01394, .00405, .00019, .00010,
3085 + .00004, .00018, .00038,
3086 + .06749, .01343, .00382, .00018, .00010,
3087 + .00004, .00017, .00037,
3088 + .06519, .01294, .00360, .00018, .00009,
3089 + .00004, .00016, .00036 /
3090 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,8)/
3091 + .37306, .08521, .18631, .00046, .00009,
3092 + .00004, .00081, .00246,
3093 + .35005, .07932, .15879, .00048, .00014,
3094 + .00003, .00079, .00228,
3095 + .31947, .07156, .12606, .00046, .00017,
3096 + .00004, .00075, .00206,
3097 + .29941, .06654, .10707, .00047, .00018,
3098 + .00004, .00072, .00191,
3099 + .28013, .06177, .09057, .00047, .00019,
3100 + .00003, .00069, .00176,
3101 + .26483, .05802, .07864, .00045, .00020,
3102 + .00003, .00065, .00165,
3103 + .25114, .05469, .06888, .00044, .00020,
3104 + .00004, .00063, .00156,
3105 + .23755, .05143, .05997, .00045, .00021,
3106 + .00004, .00059, .00144 /
3107 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=9,16)/
3108 + .22650, .04878, .05327, .00043, .00021,
3109 + .00003, .00056, .00136,
3110 + .21644, .04638, .04761, .00040, .00021,
3111 + .00002, .00054, .00128,
3112 + .20884, .04458, .04361, .00040, .00021,
3113 + .00002, .00051, .00123,
3114 + .19371, .04102, .03630, .00036, .00020,
3115 + .00002, .00049, .00113,
3116 + .18170, .03823, .03112, .00036, .00020,
3117 + .00002, .00045, .00104,
3118 + .16937, .03538, .02632, .00034, .00019,
3119 + .00003, .00042, .00096,
3120 + .15762, .03269, .02222, .00031, .00018,
3121 + .00004, .00038, .00088,
3122 + .14777, .03046, .01913, .00029, .00017,
3123 + .00004, .00036, .00081 /
3124 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=17,24)/
3125 + .13854, .02838, .01651, .00027, .00016,
3126 + .00004, .00033, .00074,
3127 + .13141, .02679, .01465, .00026, .00016,
3128 + .00005, .00032, .00069,
3129 + .12332, .02498, .01273, .00025, .00015,
3130 + .00005, .00029, .00064,
3131 + .11664, .02351, .01127, .00023, .00014,
3132 + .00005, .00027, .00060,
3133 + .11089, .02225, .01011, .00022, .00014,
3134 + .00005, .00025, .00057,
3135 + .10407, .02076, .00884, .00020, .00013,
3136 + .00004, .00024, .00051,
3137 + .09806, .01946, .00782, .00020, .00012,
3138 + .00004, .00022, .00047,
3139 + .09279, .01833, .00699, .00019, .00011,
3140 + .00004, .00021, .00044 /
3141 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=25,32)/
3142 + .08786, .01728, .00627, .00018, .00010,
3143 + .00004, .00019, .00041,
3144 + .08331, .01631, .00565, .00017, .00010,
3145 + .00004, .00018, .00039,
3146 + .07926, .01545, .00513, .00016, .00010,
3147 + .00004, .00017, .00037,
3148 + .07564, .01469, .00470, .00015, .00009,
3149 + .00004, .00016, .00034,
3150 + .07219, .01396, .00431, .00014, .00009,
3151 + .00003, .00016, .00032,
3152 + .06896, .01329, .00396, .00014, .00008,
3153 + .00003, .00015, .00030,
3154 + .06605, .01269, .00367, .00013, .00007,
3155 + .00003, .00014, .00029,
3156 + .06343, .01214, .00341, .00011, .00007,
3157 + .00003, .00013, .00028 /
3158 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=33,37)/
3159 + .06090, .01162, .00318, .00011, .00006,
3160 + .00003, .00012, .00026,
3161 + .05848, .01113, .00296, .00011, .00006,
3162 + .00003, .00011, .00025,
3163 + .05629, .01068, .00278, .00012, .00006,
3164 + .00003, .00011, .00024,
3165 + .05429, .01027, .00261, .00011, .00006,
3166 + .00003, .00010, .00023,
3167 + .05236, .00988, .00246, .00011, .00006,
3168 + .00003, .00010, .00021 /
3169 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,8)/
3170 + .32775, .07094, .14890, .00023, .00009,
3171 + .00006, .00055, .00164,
3172 + .30638, .06579, .12568, .00024, .00011,
3173 + .00006, .00053, .00151,
3174 + .27806, .05904, .09841, .00025, .00012,
3175 + .00005, .00050, .00134,
3176 + .25959, .05470, .08280, .00026, .00013,
3177 + .00005, .00048, .00123,
3178 + .24193, .05058, .06939, .00025, .00014,
3179 + .00004, .00045, .00114,
3180 + .22797, .04735, .05981, .00024, .00014,
3181 + .00004, .00043, .00107,
3182 + .21552, .04451, .05202, .00025, .00014,
3183 + .00002, .00041, .00101,
3184 + .20328, .04171, .04498, .00023, .00015,
3185 + .00004, .00039, .00093 /
3186 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=9,16)/
3187 + .19328, .03946, .03972, .00023, .00015,
3188 + .00004, .00038, .00086,
3189 + .18420, .03742, .03529, .00023, .00014,
3190 + .00003, .00036, .00081,
3191 + .17739, .03589, .03219, .00022, .00014,
3192 + .00003, .00034, .00078,
3193 + .16384, .03289, .02657, .00020, .00014,
3194 + .00003, .00031, .00073,
3195 + .15316, .03055, .02262, .00019, .00014,
3196 + .00003, .00029, .00066,
3197 + .14222, .02817, .01899, .00019, .00013,
3198 + .00004, .00027, .00059,
3199 + .13182, .02593, .01592, .00017, .00012,
3200 + .00003, .00025, .00055,
3201 + .12316, .02407, .01362, .00016, .00011,
3202 + .00003, .00023, .00050 /
3203 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=17,24)/
3204 + .11509, .02236, .01169, .00015, .00011,
3205 + .00003, .00021, .00045,
3206 + .10884, .02104, .01033, .00015, .00011,
3207 + .00004, .00020, .00042,
3208 + .10181, .01957, .00893, .00013, .00010,
3209 + .00004, .00019, .00039,
3210 + .09601, .01836, .00788, .00012, .00009,
3211 + .00003, .00018, .00037,
3212 + .09103, .01733, .00704, .00012, .00008,
3213 + .00003, .00017, .00034,
3214 + .08513, .01612, .00613, .00013, .00008,
3215 + .00004, .00016, .00030,
3216 + .07998, .01507, .00540, .00012, .00008,
3217 + .00003, .00014, .00028,
3218 + .07549, .01415, .00481, .00011, .00007,
3219 + .00003, .00013, .00026 /
3220 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=25,32)/
3221 + .07127, .01330, .00430, .00010, .00007,
3222 + .00003, .00012, .00024,
3223 + .06741, .01252, .00387, .00009, .00006,
3224 + .00003, .00011, .00023,
3225 + .06398, .01183, .00351, .00008, .00006,
3226 + .00003, .00011, .00023,
3227 + .06092, .01122, .00320, .00007, .00006,
3228 + .00003, .00010, .00021,
3229 + .05801, .01065, .00293, .00007, .00005,
3230 + .00003, .00009, .00020,
3231 + .05529, .01011, .00269, .00007, .00005,
3232 + .00003, .00009, .00019,
3233 + .05284, .00963, .00249, .00007, .00005,
3234 + .00003, .00008, .00018,
3235 + .05063, .00920, .00231, .00007, .00005,
3236 + .00003, .00008, .00016 /
3237 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=33,37)/
3238 + .04851, .00878, .00215, .00007, .00004,
3239 + .00002, .00007, .00015,
3240 + .04652, .00840, .00200, .00006, .00004,
3241 + .00002, .00007, .00014,
3242 + .04471, .00804, .00187, .00005, .00004,
3243 + .00002, .00007, .00014,
3244 + .04303, .00772, .00176, .00006, .00004,
3245 + .00002, .00007, .00013,
3246 + .04141, .00741, .00165, .00006, .00004,
3247 + .00002, .00006, .00013 /
3248 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,8)/
3249 + .28421, .05829, .11677, .00019, .00003,
3250 + .00001, .00033, .00105,
3251 + .26466, .05386, .09760, .00018, .00004,
3252 + .00000, .00031, .00097,
3253 + .23888, .04807, .07541, .00017, .00005,
3254 + .00000, .00030, .00087,
3255 + .22214, .04437, .06288, .00019, .00006,
3256 + .00001, .00028, .00079,
3257 + .20620, .04088, .05222, .00020, .00007,
3258 + .00002, .00026, .00071,
3259 + .19369, .03815, .04467, .00019, .00008,
3260 + .00001, .00025, .00066,
3261 + .18260, .03575, .03858, .00015, .00007,
3262 + .00000, .00023, .00064,
3263 + .17160, .03340, .03313, .00018, .00007,
3264 + .00000, .00021, .00058 /
3265 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=9,16)/
3266 + .16274, .03151, .02910, .00017, .00007,
3267 + .00001, .00021, .00055,
3268 + .15473, .02981, .02573, .00015, .00007,
3269 + .00001, .00020, .00051,
3270 + .14870, .02854, .02337, .00014, .00007,
3271 + .00000, .00019, .00049,
3272 + .13676, .02605, .01912, .00014, .00007,
3273 + .00000, .00017, .00044,
3274 + .12742, .02412, .01618, .00012, .00007,
3275 + .00000, .00016, .00041,
3276 + .11787, .02215, .01349, .00012, .00006,
3277 + .00001, .00015, .00037,
3278 + .10881, .02031, .01123, .00012, .00006,
3279 + .00001, .00014, .00033,
3280 + .10130, .01880, .00956, .00012, .00006,
3281 + .00001, .00013, .00031 /
3282 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=17,24)/
3283 + .09434, .01740, .00816, .00011, .00005,
3284 + .00002, .00012, .00028,
3285 + .08899, .01633, .00718, .00010, .00005,
3286 + .00002, .00011, .00027,
3287 + .08296, .01513, .00618, .00010, .00005,
3288 + .00002, .00010, .00023,
3289 + .07801, .01416, .00543, .00009, .00004,
3290 + .00002, .00009, .00021,
3291 + .07378, .01333, .00484, .00009, .00004,
3292 + .00002, .00008, .00020,
3293 + .06877, .01236, .00420, .00008, .00004,
3294 + .00001, .00008, .00019,
3295 + .06440, .01152, .00369, .00007, .00004,
3296 + .00001, .00007, .00018,
3297 + .06062, .01079, .00328, .00007, .00003,
3298 + .00001, .00007, .00016 /
3299 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=25,32)/
3300 + .05711, .01011, .00292, .00006, .00003,
3301 + .00001, .00006, .00015,
3302 + .05385, .00950, .00262, .00006, .00003,
3303 + .00001, .00006, .00014,
3304 + .05097, .00895, .00237, .00006, .00003,
3305 + .00001, .00006, .00013,
3306 + .04841, .00847, .00216, .00006, .00003,
3307 + .00001, .00005, .00012,
3308 + .04599, .00802, .00197, .00006, .00003,
3309 + .00001, .00005, .00012,
3310 + .04375, .00760, .00181, .00005, .00002,
3311 + .00001, .00005, .00011,
3312 + .04173, .00722, .00167, .00005, .00002,
3313 + .00001, .00004, .00010,
3314 + .03991, .00688, .00155, .00004, .00002,
3315 + .00001, .00004, .00010 /
3316 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=33,37)/
3317 + .03816, .00656, .00144, .00004, .00002,
3318 + .00001, .00004, .00010,
3319 + .03651, .00626, .00134, .00004, .00002,
3320 + .00001, .00004, .00009,
3321 + .03501, .00599, .00125, .00004, .00002,
3322 + .00001, .00004, .00008,
3323 + .03366, .00574, .00117, .00004, .00002,
3324 + .00001, .00003, .00008,
3325 + .03235, .00550, .00110, .00003, .00002,
3326 + .00001, .00003, .00008 /
3327 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,8)/
3328 + .24262, .04695, .08929, .00004, .00005,
3329 + .00005, .00024, .00065,
3330 + .22497, .04320, .07387, .00006, .00005,
3331 + .00003, .00021, .00060,
3332 + .20187, .03836, .05633, .00008, .00005,
3333 + .00004, .00019, .00052,
3334 + .18704, .03526, .04653, .00007, .00005,
3335 + .00004, .00018, .00048,
3336 + .17296, .03235, .03829, .00006, .00005,
3337 + .00003, .00017, .00043,
3338 + .16189, .03010, .03250, .00006, .00005,
3339 + .00003, .00016, .00040,
3340 + .15210, .02812, .02788, .00007, .00006,
3341 + .00003, .00015, .00038,
3342 + .14249, .02619, .02377, .00007, .00005,
3343 + .00002, .00013, .00034 /
3344 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=9,16)/
3345 + .13475, .02464, .02074, .00006, .00005,
3346 + .00002, .00013, .00032,
3347 + .12776, .02325, .01823, .00005, .00006,
3348 + .00003, .00013, .00030,
3349 + .12251, .02221, .01649, .00006, .00005,
3350 + .00003, .00013, .00028,
3351 + .11219, .02018, .01339, .00006, .00005,
3352 + .00002, .00012, .00025,
3353 + .10412, .01861, .01125, .00006, .00005,
3354 + .00002, .00011, .00024,
3355 + .09592, .01703, .00932, .00005, .00004,
3356 + .00002, .00010, .00022,
3357 + .08821, .01555, .00771, .00005, .00004,
3358 + .00002, .00009, .00019,
3359 + .08183, .01434, .00652, .00005, .00003,
3360 + .00002, .00008, .00017 /
3361 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=17,24)/
3362 + .07593, .01323, .00554, .00004, .00003,
3363 + .00002, .00007, .00016,
3364 + .07141, .01238, .00485, .00004, .00003,
3365 + .00002, .00007, .00015,
3366 + .06633, .01143, .00416, .00004, .00003,
3367 + .00002, .00006, .00013,
3368 + .06218, .01067, .00364, .00004, .00003,
3369 + .00002, .00006, .00012,
3370 + .05865, .01001, .00323, .00003, .00003,
3371 + .00001, .00005, .00011,
3372 + .05449, .00925, .00279, .00003, .00002,
3373 + .00002, .00005, .00011,
3374 + .05086, .00859, .00245, .00004, .00002,
3375 + .00001, .00004, .00010,
3376 + .04772, .00803, .00217, .00004, .00002,
3377 + .00001, .00004, .00009 /
3378 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=25,32)/
3379 + .04482, .00750, .00193, .00003, .00002,
3380 + .00001, .00004, .00009,
3381 + .04216, .00703, .00172, .00003, .00002,
3382 + .00001, .00004, .00008,
3383 + .03981, .00661, .00156, .00003, .00002,
3384 + .00001, .00004, .00007,
3385 + .03772, .00624, .00142, .00002, .00002,
3386 + .00001, .00003, .00007,
3387 + .03574, .00589, .00129, .00002, .00002,
3388 + .00001, .00003, .00007,
3389 + .03391, .00557, .00118, .00002, .00002,
3390 + .00001, .00003, .00006,
3391 + .03227, .00528, .00109, .00002, .00001,
3392 + .00001, .00003, .00006,
3393 + .03079, .00502, .00101, .00002, .00001,
3394 + .00001, .00003, .00005 /
3395 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=33,37)/
3396 + .02938, .00478, .00094, .00002, .00001,
3397 + .00001, .00003, .00005,
3398 + .02806, .00455, .00087, .00002, .00001,
3399 + .00001, .00002, .00005,
3400 + .02686, .00434, .00081, .00002, .00001,
3401 + .00001, .00002, .00005,
3402 + .02577, .00415, .00076, .00002, .00001,
3403 + .00001, .00002, .00004,
3404 + .02472, .00397, .00072, .00002, .00001,
3405 + .00001, .00002, .00004 /
3406 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,8)/
3407 + .16838, .02892, .04846, .00002, .00000,
3408 + .00000, .00006, .00024,
3409 + .15481, .02640, .03932, .00004, .00001,
3410 + .00000, .00006, .00020,
3411 + .13729, .02315, .02915, .00002, .00001,
3412 + .00000, .00006, .00017,
3413 + .12611, .02111, .02363, .00002, .00001,
3414 + .00000, .00005, .00016,
3415 + .11562, .01921, .01908, .00002, .00001,
3416 + .00000, .00004, .00015,
3417 + .10745, .01774, .01595, .00001, .00001,
3418 + .00000, .00004, .00014,
3419 + .10029, .01646, .01349, .00002, .00001,
3420 + .00000, .00004, .00013,
3421 + .09330, .01523, .01135, .00002, .00001,
3422 + .00000, .00004, .00010 /
3423 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=9,16)/
3424 + .08770, .01424, .00979, .00002, .00001,
3425 + .00000, .00004, .00009,
3426 + .08267, .01337, .00852, .00002, .00001,
3427 + .00000, .00004, .00009,
3428 + .07894, .01271, .00765, .00002, .00001,
3429 + .00000, .00004, .00010,
3430 + .07164, .01145, .00610, .00001, .00001,
3431 + .00000, .00003, .00009,
3432 + .06598, .01048, .00506, .00002, .00001,
3433 + .00000, .00003, .00007,
3434 + .06028, .00951, .00413, .00002, .00001,
3435 + .00000, .00003, .00006,
3436 + .05495, .00861, .00338, .00002, .00001,
3437 + .00000, .00003, .00006,
3438 + .05059, .00788, .00283, .00001, .00001,
3439 + .00000, .00003, .00005 /
3440 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=17,24)/
3441 + .04659, .00722, .00238, .00001, .00001,
3442 + .00000, .00002, .00005,
3443 + .04355, .00671, .00207, .00001, .00001,
3444 + .00000, .00002, .00004,
3445 + .04017, .00615, .00176, .00001, .00001,
3446 + .00000, .00002, .00004,
3447 + .03741, .00570, .00153, .00001, .00001,
3448 + .00000, .00002, .00004,
3449 + .03508, .00533, .00135, .00001, .00001,
3450 + .00000, .00002, .00004,
3451 + .03236, .00488, .00116, .00000, .00001,
3452 + .00001, .00001, .00004,
3453 + .03002, .00451, .00101, .00000, .00001,
3454 + .00001, .00001, .00003,
3455 + .02800, .00418, .00089, .00000, .00001,
3456 + .00001, .00001, .00003 /
3457 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=25,32)/
3458 + .02613, .00389, .00079, .00001, .00001,
3459 + .00000, .00001, .00002,
3460 + .02443, .00362, .00070, .00000, .00001,
3461 + .00000, .00001, .00002,
3462 + .02294, .00339, .00063, .00000, .00000,
3463 + .00000, .00001, .00002,
3464 + .02162, .00318, .00057, .00001, .00000,
3465 + .00000, .00001, .00002,
3466 + .02039, .00299, .00052, .00001, .00000,
3467 + .00000, .00001, .00002,
3468 + .01925, .00281, .00048, .00000, .00000,
3469 + .00000, .00001, .00002,
3470 + .01823, .00265, .00044, .00000, .00000,
3471 + .00000, .00001, .00001,
3472 + .01732, .00251, .00040, .00000, .00000,
3473 + .00000, .00001, .00001 /
3474 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=33,37)/
3475 + .01646, .00238, .00037, .00000, .00000,
3476 + .00000, .00001, .00001,
3477 + .01565, .00226, .00035, .00000, .00000,
3478 + .00000, .00001, .00001,
3479 + .01492, .00214, .00032, .00000, .00000,
3480 + .00000, .00001, .00001,
3481 + .01426, .00204, .00030, .00000, .00000,
3482 + .00000, .00001, .00001,
3483 + .01363, .00195, .00028, .00000, .00000,
3484 + .00000, .00001, .00001 /
3485 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,8)/
3486 + .10767, .01621, .02318, .00001, -.00001,
3487 + -.00001, .00001, .00007,
3488 + .09810, .01466, .01842, .00002, -.00001,
3489 + -.00001, .00001, .00006,
3490 + .08588, .01270, .01328, .00000, .00000,
3491 + .00000, .00001, .00005,
3492 + .07817, .01147, .01056, .00000, .00000,
3493 + .00000, .00001, .00005,
3494 + .07101, .01035, .00836, .00000, .00000,
3495 + .00000, .00001, .00004,
3496 + .06549, .00949, .00689, .00000, .00000,
3497 + -.00001, .00000, .00003,
3498 + .06069, .00874, .00575, .00000, .00000,
3499 + .00000, .00001, .00003,
3500 + .05603, .00803, .00476, .00001, .00000,
3501 + .00000, .00001, .00003 /
3502 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=9,16)/
3503 + .05233, .00746, .00407, .00001, .00000,
3504 + .00000, .00001, .00003,
3505 + .04903, .00695, .00350, .00000, .00000,
3506 + .00000, .00001, .00003,
3507 + .04660, .00658, .00312, .00000, .00000,
3508 + .00000, .00001, .00002,
3509 + .04187, .00587, .00245, .00000, .00000,
3510 + .00000, .00001, .00002,
3511 + .03824, .00533, .00200, .00000, .00000,
3512 + .00000, .00001, .00002,
3513 + .03462, .00479, .00162, .00000, .00000,
3514 + .00000, .00001, .00002,
3515 + .03128, .00430, .00131, .00000, .00000,
3516 + .00000, .00000, .00002,
3517 + .02856, .00390, .00108, .00000, .00000,
3518 + .00000, .00000, .00001 /
3519 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=17,24)/
3520 + .02608, .00355, .00090, .00000, .00000,
3521 + .00000, .00000, .00001,
3522 + .02422, .00328, .00078, .00000, .00000,
3523 + .00000, .00000, .00001,
3524 + .02215, .00298, .00066, .00000, .00000,
3525 + .00000, .00000, .00001,
3526 + .02049, .00274, .00057, .00000, .00000,
3527 + .00000, .00000, .00001,
3528 + .01910, .00255, .00050, .00000, .00000,
3529 + .00000, .00000, .00001,
3530 + .01748, .00232, .00043, .00000, .00000,
3531 + .00000, .00000, .00001,
3532 + .01610, .00212, .00037, .00000, .00000,
3533 + .00000, .00000, .00001,
3534 + .01491, .00196, .00033, .00000, .00000,
3535 + .00000, .00000, .00001 /
3536 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=25,32)/
3537 + .01383, .00181, .00029, .00000, .00000,
3538 + .00000, .00000, .00000,
3539 + .01285, .00167, .00026, .00000, .00000,
3540 + .00000, .00000, .00000,
3541 + .01199, .00156, .00023, .00000, .00000,
3542 + .00000, .00000, .00000,
3543 + .01124, .00145, .00021, .00000, .00000,
3544 + .00000, .00000, .00000,
3545 + .01054, .00136, .00019, .00000, .00000,
3546 + .00000, .00000, .00000,
3547 + .00990, .00127, .00017, .00000, .00000,
3548 + .00000, .00000, .00000,
3549 + .00933, .00119, .00016, .00000, .00000,
3550 + .00000, .00000, .00000,
3551 + .00882, .00113, .00015, .00000, .00000,
3552 + .00000, .00000, .00000 /
3553 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=33,37)/
3554 + .00834, .00106, .00013, .00000, .00000,
3555 + .00000, .00000, .00000,
3556 + .00790, .00100, .00013, .00000, .00000,
3557 + .00000, .00000, .00000,
3558 + .00750, .00095, .00012, .00000, .00000,
3559 + .00000, .00000, .00000,
3560 + .00713, .00090, .00011, .00000, .00000,
3561 + .00000, .00000, .00000,
3562 + .00679, .00085, .00010, .00000, .00000,
3563 + .00000, .00000, .00000 /
3564 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,8)/
3565 + .06184, .00801, .00938, .00001, -.00001,
3566 + -.00001, .00000, .00001,
3567 + .05579, .00718, .00729, .00000, -.00001,
3568 + -.00001, .00000, .00001,
3569 + .04812, .00613, .00511, .00001, -.00001,
3570 + -.00001, .00000, .00001,
3571 + .04336, .00548, .00398, .00000, -.00001,
3572 + -.00001, .00000, .00001,
3573 + .03898, .00490, .00309, .00000, .00000,
3574 + .00000, .00000, .00001,
3575 + .03564, .00445, .00250, .00000, -.00001,
3576 + .00000, .00000, .00001,
3577 + .03276, .00407, .00206, .00000, -.00001,
3578 + .00000, .00000, .00001,
3579 + .02999, .00370, .00168, .00000, .00000,
3580 + .00000, .00000, .00000 /
3581 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=9,16)/
3582 + .02781, .00342, .00142, .00000, .00000,
3583 + .00000, .00000, .00000,
3584 + .02588, .00317, .00121, .00000, .00000,
3585 + .00000, .00000, .00001,
3586 + .02447, .00298, .00107, .00000, .00000,
3587 + .00000, .00000, .00001,
3588 + .02174, .00263, .00083, .00000, .00000,
3589 + .00000, .00000, .00000,
3590 + .01967, .00237, .00067, .00000, .00000,
3591 + .00000, .00000, .00000,
3592 + .01763, .00211, .00053, .00000, .00000,
3593 + .00000, .00000, .00000,
3594 + .01576, .00187, .00043, .00000, .00000,
3595 + .00000, .00000, .00000,
3596 + .01426, .00168, .00035, .00000, .00000,
3597 + .00000, .00000, .00000 /
3598 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=17,24)/
3599 + .01290, .00151, .00029, .00000, .00000,
3600 + .00000, .00000, .00000,
3601 + .01190, .00139, .00025, .00000, .00000,
3602 + .00000, .00000, .00000,
3603 + .01078, .00125, .00021, .00000, .00000,
3604 + .00000, .00000, .00000,
3605 + .00990, .00114, .00018, .00000, .00000,
3606 + .00000, .00000, .00000,
3607 + .00916, .00105, .00016, .00000, .00000,
3608 + .00000, .00000, .00000,
3609 + .00831, .00095, .00014, .00000, .00000,
3610 + .00000, .00000, .00000,
3611 + .00759, .00087, .00012, .00000, .00000,
3612 + .00000, .00000, .00000,
3613 + .00698, .00079, .00010, .00000, .00000,
3614 + .00000, .00000, .00000 /
3615 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=25,32)/
3616 + .00642, .00073, .00009, .00000, .00000,
3617 + .00000, .00000, .00000,
3618 + .00593, .00067, .00008, .00000, .00000,
3619 + .00000, .00000, .00000,
3620 + .00550, .00062, .00007, .00000, .00000,
3621 + .00000, .00000, .00000,
3622 + .00512, .00057, .00007, .00000, .00000,
3623 + .00000, .00000, .00000,
3624 + .00477, .00053, .00006, .00000, .00000,
3625 + .00000, .00000, .00000,
3626 + .00445, .00049, .00005, .00000, .00000,
3627 + .00000, .00000, .00000,
3628 + .00417, .00046, .00005, .00000, .00000,
3629 + .00000, .00000, .00000,
3630 + .00393, .00043, .00005, .00000, .00000,
3631 + .00000, .00000, .00000 /
3632 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=33,37)/
3633 + .00369, .00041, .00004, .00000, .00000,
3634 + .00000, .00000, .00000,
3635 + .00348, .00038, .00004, .00000, .00000,
3636 + .00000, .00000, .00000,
3637 + .00328, .00036, .00004, .00000, .00000,
3638 + .00000, .00000, .00000,
3639 + .00311, .00034, .00003, .00000, .00000,
3640 + .00000, .00000, .00000,
3641 + .00295, .00032, .00003, .00000, .00000,
3642 + .00000, .00000, .00000 /
3643 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=1,8)/
3644 + .03040, .00330, .00298, -.00001, .00000,
3645 + .00000, .00000, .00000,
3646 + .02710, .00292, .00226, .00000, .00000,
3647 + .00000, .00000, .00000,
3648 + .02299, .00245, .00154, .00000, .00000,
3649 + .00000, .00000, .00000,
3650 + .02047, .00217, .00117, .00000, .00000,
3651 + .00000, .00000, .00000,
3652 + .01818, .00191, .00089, .00000, .00000,
3653 + .00000, .00000, .00000,
3654 + .01646, .00172, .00071, .00000, .00000,
3655 + .00000, .00000, .00000,
3656 + .01499, .00156, .00058, .00000, .00000,
3657 + .00000, .00000, .00000,
3658 + .01359, .00141, .00046, .00000, .00000,
3659 + .00000, .00000, .00000 /
3660 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=9,16)/
3661 + .01250, .00129, .00039, .00000, .00000,
3662 + .00000, .00000, .00000,
3663 + .01154, .00118, .00033, .00000, .00000,
3664 + .00000, .00000, .00000,
3665 + .01084, .00111, .00029, .00000, .00000,
3666 + .00000, .00000, .00000,
3667 + .00951, .00097, .00022, .00000, .00000,
3668 + .00000, .00000, .00000,
3669 + .00851, .00086, .00018, .00000, .00000,
3670 + .00000, .00000, .00000,
3671 + .00754, .00076, .00014, .00000, .00000,
3672 + .00000, .00000, .00000,
3673 + .00666, .00066, .00011, .00000, .00000,
3674 + .00000, .00000, .00000,
3675 + .00596, .00059, .00009, .00000, .00000,
3676 + .00000, .00000, .00000 /
3677 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=17,24)/
3678 + .00533, .00053, .00007, .00000, .00000,
3679 + .00000, .00000, .00000,
3680 + .00487, .00048, .00006, .00000, .00000,
3681 + .00000, .00000, .00000,
3682 + .00437, .00043, .00005, .00000, .00000,
3683 + .00000, .00000, .00000,
3684 + .00398, .00039, .00005, .00000, .00000,
3685 + .00000, .00000, .00000,
3686 + .00365, .00035, .00004, .00000, .00000,
3687 + .00000, .00000, .00000,
3688 + .00328, .00032, .00003, .00000, .00000,
3689 + .00000, .00000, .00000,
3690 + .00297, .00028, .00003, .00000, .00000,
3691 + .00000, .00000, .00000,
3692 + .00270, .00026, .00003, .00000, .00000,
3693 + .00000, .00000, .00000 /
3694 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=25,32)/
3695 + .00247, .00023, .00002, .00000, .00000,
3696 + .00000, .00000, .00000,
3697 + .00226, .00021, .00002, .00000, .00000,
3698 + .00000, .00000, .00000,
3699 + .00208, .00020, .00002, .00000, .00000,
3700 + .00000, .00000, .00000,
3701 + .00192, .00018, .00002, .00000, .00000,
3702 + .00000, .00000, .00000,
3703 + .00178, .00017, .00002, .00000, .00000,
3704 + .00000, .00000, .00000,
3705 + .00165, .00015, .00001, .00000, .00000,
3706 + .00000, .00000, .00000,
3707 + .00153, .00014, .00001, .00000, .00000,
3708 + .00000, .00000, .00000,
3709 + .00143, .00013, .00001, .00000, .00000,
3710 + .00000, .00000, .00000 /
3711 DATA ((F(I,47,K),I=1,5),F(7,47,K),F(6,47,K),F(8,47,K),K=33,37)/
3712 + .00134, .00012, .00001, .00000, .00000,
3713 + .00000, .00000, .00000,
3714 + .00125, .00012, .00001, .00000, .00000,
3715 + .00000, .00000, .00000,
3716 + .00118, .00011, .00001, .00000, .00000,
3717 + .00000, .00000, .00000,
3718 + .00111, .00010, .00001, .00000, .00000,
3719 + .00000, .00000, .00000,
3720 + .00104, .00010, .00001, .00000, .00000,
3721 + .00000, .00000, .00000 /
3722 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=1,8)/
3723 + .00299, .00019, .00007, .00000, .00000,
3724 + .00000, .00000, .00000,
3725 + .00258, .00017, .00005, .00000, .00000,
3726 + .00000, .00000, .00000,
3727 + .00208, .00013, .00003, .00000, .00000,
3728 + .00000, .00000, .00000,
3729 + .00179, .00011, .00003, .00000, .00000,
3730 + .00000, .00000, .00000,
3731 + .00154, .00010, .00002, .00000, .00000,
3732 + .00000, .00000, .00000,
3733 + .00135, .00008, .00001, .00000, .00000,
3734 + .00000, .00000, .00000,
3735 + .00120, .00007, .00001, .00000, .00000,
3736 + .00000, .00000, .00000,
3737 + .00106, .00007, .00001, .00000, .00000,
3738 + .00000, .00000, .00000 /
3739 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=9,16)/
3740 + .00095, .00006, .00001, .00000, .00000,
3741 + .00000, .00000, .00000,
3742 + .00086, .00005, .00001, .00000, .00000,
3743 + .00000, .00000, .00000,
3744 + .00079, .00005, .00001, .00000, .00000,
3745 + .00000, .00000, .00000,
3746 + .00067, .00004, .00001, .00000, .00000,
3747 + .00000, .00000, .00000,
3748 + .00058, .00004, .00000, .00000, .00000,
3749 + .00000, .00000, .00000,
3750 + .00050, .00003, .00000, .00000, .00000,
3751 + .00000, .00000, .00000,
3752 + .00042, .00003, .00000, .00000, .00000,
3753 + .00000, .00000, .00000,
3754 + .00037, .00002, .00000, .00000, .00000,
3755 + .00000, .00000, .00000 /
3756 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=17,24)/
3757 + .00032, .00002, .00000, .00000, .00000,
3758 + .00000, .00000, .00000,
3759 + .00028, .00002, .00000, .00000, .00000,
3760 + .00000, .00000, .00000,
3761 + .00025, .00002, .00000, .00000, .00000,
3762 + .00000, .00000, .00000,
3763 + .00022, .00001, .00000, .00000, .00000,
3764 + .00000, .00000, .00000,
3765 + .00020, .00001, .00000, .00000, .00000,
3766 + .00000, .00000, .00000,
3767 + .00017, .00001, .00000, .00000, .00000,
3768 + .00000, .00000, .00000,
3769 + .00015, .00001, .00000, .00000, .00000,
3770 + .00000, .00000, .00000,
3771 + .00013, .00001, .00000, .00000, .00000,
3772 + .00000, .00000, .00000 /
3773 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=25,32)/
3774 + .00012, .00001, .00000, .00000, .00000,
3775 + .00000, .00000, .00000,
3776 + .00011, .00001, .00000, .00000, .00000,
3777 + .00000, .00000, .00000,
3778 + .00009, .00001, .00000, .00000, .00000,
3779 + .00000, .00000, .00000,
3780 + .00009, .00001, .00000, .00000, .00000,
3781 + .00000, .00000, .00000,
3782 + .00008, .00001, .00000, .00000, .00000,
3783 + .00000, .00000, .00000,
3784 + .00007, .00001, .00000, .00000, .00000,
3785 + .00000, .00000, .00000,
3786 + .00006, .00001, .00000, .00000, .00000,
3787 + .00000, .00000, .00000,
3788 + .00006, .00001, .00000, .00000, .00000,
3789 + .00000, .00000, .00000 /
3790 DATA ((F(I,48,K),I=1,5),F(7,48,K),F(6,48,K),F(8,48,K),K=33,37)/
3791 + .00005, .00001, .00000, .00000, .00000,
3792 + .00000, .00000, .00000,
3793 + .00005, .00001, .00000, .00000, .00000,
3794 + .00000, .00000, .00000,
3795 + .00004, .00001, .00000, .00000, .00000,
3796 + .00000, .00000, .00000,
3797 + .00004, .00001, .00000, .00000, .00000,
3798 + .00000, .00000, .00000,
3799 + .00004, .00001, .00000, .00000, .00000,
3800 + .00000, .00000, .00000 /
3801 DATA XX/1D-5,2D-5,4D-5,6D-5,8D-5,
3802 . 1D-4,2D-4,4D-4,6D-4,8D-4,
3803 . 1D-3,2D-3,4D-3,6D-3,8D-3,
3804 . 1D-2,1.4D-2,2D-2,3D-2,4D-2,6D-2,8D-2,
3805 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
3806 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
3807 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
3808 . .8D0,.9D0,1D0/
3809 DATA QQ/1.25D0,1.5D0,2D0,2.5D0,3.2D0,4D0,5D0,6.4D0,8D0,1D1,
3810 . 1.2D1,1.8D1,2.6D1,4D1,6.4D1,1D2,
3811 . 1.6D2,2.4D2,4D2,6.4D2,1D3,1.8D3,3.2D3,5.6D3,1D4,
3812 . 1.8D4,3.2D4,5.6D4,1D5,1.8D5,3.2D5,5.6D5,1D6,
3813 . 1.8D6,3.2D6,5.6D6,1D7/
3814 DATA XMIN,XMAX,QSQMIN,QSQMAX/1D-5,1D0,1.25D0,1D7/
3815 DATA N0/3,4,5,9,9,9,9,9/
3816 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
3817 DATA INIT/0/
3818 SAVE
3819 XSAVE=X
3820 Q2SAVE=QSQ
3821 IF(INIT.NE.0) GOTO 10
3822C OPEN(UNIT=1,FILE='MRSR2.DAT',STATUS='OLD')
3823 DO 20 N=1,NX-1
3824 DO 20 M=1,NQ
3825C READ(1,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),
3826C . F(5,N,M),F(7,N,M),F(6,N,M),F(8,N,M)
3827C NOTATION: 1=UVAL 2=VAL 3=GLUE 4=USEA 5=CHM 6=STR 7=BTM 8=DSEA
3828 DO 25 I=1,NP
3829 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
3830 20 CONTINUE
3831 DO 31 J=1,NTENTH-1
3832 XX(J)= LOG10(XX(J)/XX(NTENTH))+XX(NTENTH)
3833 DO 31 I=1,8
3834 IF(I.EQ.5.OR.I.EQ.7) GOTO 31
3835 DO 30 K=1,NQ
3836 30 F(I,J,K)= LOG10(F(I,J,K)/F(I,NTENTH,K))+F(I,NTENTH,K)
3837 31 CONTINUE
3838 50 FORMAT(8F10.5)
3839 DO 40 I=1,NP
3840 DO 40 M=1,NQ
3841 40 F(I,NX,M)=ZEROD
3842 INIT=1
3843 10 CONTINUE
3844 IF(X.LT.XMIN) X=XMIN
3845 IF(X.GT.XMAX) X=XMAX
3846 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
3847 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
3848 XXX=X
3849 IF(X.LT.XX(NTENTH)) XXX= LOG10(X/XX(NTENTH))+XX(NTENTH)
3850 N=0
3851 70 N=N+1
3852 IF(XXX.GT.XX(N+1)) GOTO 70
3853 A=(XXX-XX(N))/(XX(N+1)-XX(N))
3854 M=0
3855 80 M=M+1
3856 IF(QSQ.GT.QQ(M+1)) GOTO 80
3857 B=(QSQ-QQ(M))/(QQ(M+1)-QQ(M))
3858 DO 60 I=1,NP
3859 G(I)= (ONED-A)*(ONED-B)*F(I,N,M) + (ONED-A)*B*F(I,N,M+1)
3860 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
3861 IF(N.GE.NTENTH) GOTO 65
3862 IF(I.EQ.5.OR.I.EQ.7) GOTO 65
3863 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
3864 G(I)=FAC*10D0**(G(I)-FAC)
3865 65 CONTINUE
3866 G(I)=G(I)*(ONED-X)**N0(I)
3867 60 CONTINUE
3868 UPV=G(1)
3869 DNV=G(2)
3870 USEA=G(4)
3871 DSEA=G(8)
3872 STR=G(6)
3873 CHM=G(5)
3874 GLU=G(3)
3875 BOT=G(7)
3876 X=XSAVE
3877 QSQ=Q2SAVE
3878 RETURN
3879 END