]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms105.F
added the delete of EMCAL object posted in the folder when new file is opened
[u/mrichter/AliRoot.git] / PDF / spdf / sfms105.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS105(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.105 FIT -- May 1995 -- standard Q^2 range
5C
6#include "pdf/impdp.inc"
7C
8 PARAMETER(NX=47)
9 PARAMETER(NTENTH=21)
10 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
11 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
12 + .00429, .00751, 15.24004, 1.49785, .15273,
13 + .00000, .79608, 1.50215,
14 + .00467, .00773, 25.09024, 1.75664, .42720,
15 + .00000, 1.06366, 1.76153,
16 + .00502, .00793, 36.47660, 2.06438, .74880,
17 + .00000, 1.37920, 2.06981,
18 + .00535, .00812, 49.44331, 2.41480, 1.11165,
19 + .08323, 1.73663, 2.42071,
20 + .00567, .00830, 63.80544, 2.80662, 1.51481,
21 + .44671, 2.13487, 2.81299,
22 + .00597, .00847, 79.39906, 3.23736, 1.95598,
23 + .90575, 2.57152, 3.24417,
24 + .00626, .00864, 96.07378, 3.70368, 2.43195,
25 + 1.39154, 3.04333, 3.71090 /
26 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
27 + .00654, .00879, 113.71258, 4.20263, 2.93990,
28 + 1.90982, 3.54740, 4.21025,
29 + .00681, .00895, 132.22623, 4.73181, 3.47749,
30 + 2.45670, 4.08138, 4.73980,
31 + .00708, .00910, 151.55020, 5.28940, 4.04297,
32 + 3.03096, 4.64347, 5.29775,
33 + .00733, .00924, 171.42918, 5.87117, 4.63218,
34 + 3.62840, 5.22951, 5.87986,
35 + .00758, .00938, 191.81004, 6.47485, 5.24292,
36 + 4.24688, 5.83724, 6.48388,
37 + .00782, .00952, 212.84419, 7.10212, 5.87686,
38 + 4.88814, 6.46833, 7.11146,
39 + .00806, .00965, 234.20511, 7.74732, 6.52842,
40 + 5.54663, 7.11719, 7.75697 /
41 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
42 + .00829, .00978, 255.89407, 8.40938, 7.19654,
43 + 6.22134, 7.78273, 8.41933,
44 + .00851, .00990, 278.10541, 9.09163, 7.88457,
45 + 6.91563, 8.46831, 9.10187,
46 + .00873, .01003, 300.25491, 9.78245, 8.58094,
47 + 7.61799, 9.16234, 9.79297,
48 + .00895, .01015, 323.02802, 10.49473, 9.29853,
49 + 8.34129, 9.87768, 10.50552,
50 + .00916, .01026, 345.52124, 11.21006, 10.01898,
51 + 9.06721, 10.59597, 11.22112 /
52 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
53 + .00649, .00944, 13.36316, 1.31543, .13108,
54 + .00000, .69578, 1.31921,
55 + .00701, .00974, 21.36941, 1.52902, .35885,
56 + .00000, .91715, 1.53317,
57 + .00749, .01001, 30.39042, 1.77845, .62082,
58 + .00000, 1.17349, 1.78295,
59 + .00794, .01027, 40.44909, 2.05823, .91184,
60 + .06642, 1.45947, 2.06304,
61 + .00837, .01051, 51.38906, 2.36683, 1.23068,
62 + .35422, 1.77373, 2.37194,
63 + .00879, .01074, 63.07763, 2.70191, 1.57517,
64 + .71372, 2.11401, 2.70730,
65 + .00919, .01096, 75.39803, 3.06057, 1.94255,
66 + 1.08958, 2.47751, 3.06623 /
67 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
68 + .00957, .01118, 88.26244, 3.44038, 2.33047,
69 + 1.48635, 2.86182, 3.44629,
70 + .00994, .01138, 101.60588, 3.83936, 2.73703,
71 + 1.90088, 3.26501, 3.84551,
72 + .01030, .01158, 115.38318, 4.25605, 3.16083,
73 + 2.33221, 3.68566, 4.26243,
74 + .01064, .01178, 129.41080, 4.68718, 3.59867,
75 + 2.77710, 4.12053, 4.69378,
76 + .01098, .01196, 143.65585, 5.13108, 4.04891,
77 + 3.23398, 4.56796, 5.13789,
78 + .01131, .01214, 158.23265, 5.58901, 4.51285,
79 + 3.70419, 5.02924, 5.59602,
80 + .01162, .01232, 172.91071, 6.05676, 4.98632,
81 + 4.18361, 5.50019, 6.06397 /
82 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
83 + .01193, .01249, 187.69673, 6.53361, 5.46862,
84 + 4.67155, 5.98008, 6.54101,
85 + .01224, .01265, 202.73286, 7.02206, 5.96226,
86 + 5.17057, 6.47144, 7.02965,
87 + .01253, .01282, 217.61276, 7.51363, 6.45881,
88 + 5.67225, 6.96580, 7.52139,
89 + .01282, .01298, 232.82140, 8.01782, 6.96776,
90 + 6.18609, 7.47266, 8.02576,
91 + .01310, .01313, 247.73346, 8.52126, 7.47579,
92 + 6.69882, 7.97867, 8.52936 /
93 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
94 + .00963, .01187, 11.71559, 1.15438, .11239,
95 + .00000, .60791, 1.15784,
96 + .01034, .01227, 18.19607, 1.33000, .30088,
97 + .00000, .79048, 1.33370,
98 + .01101, .01264, 25.31227, 1.53130, .51355,
99 + .00000, .99792, 1.53521,
100 + .01163, .01299, 33.07971, 1.75362, .74607,
101 + .05280, 1.22575, 1.75773,
102 + .01222, .01332, 41.37315, 1.99547, .99719,
103 + .27979, 1.47263, 1.99977,
104 + .01279, .01363, 50.09064, 2.25478, 1.26503,
105 + .56021, 1.73656, 2.25925,
106 + .01333, .01393, 59.14583, 2.52919, 1.54732,
107 + .84980, 2.01524, 2.53382 /
108 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
109 + .01385, .01421, 68.47643, 2.81673, 1.84220,
110 + 1.15224, 2.30676, 2.82151,
111 + .01436, .01449, 78.03844, 3.11588, 2.14821,
112 + 1.46507, 2.60964, 3.12081,
113 + .01484, .01475, 87.80267, 3.42552, 2.46428,
114 + 1.78758, 2.92278, 3.43060,
115 + .01531, .01501, 97.63992, 3.74320, 2.78802,
116 + 2.11735, 3.24375, 3.74841,
117 + .01577, .01526, 107.53239, 4.06770, 3.11825,
118 + 2.45327, 3.57137, 4.07304,
119 + .01621, .01550, 117.56750, 4.40005, 3.45602,
120 + 2.79640, 3.90667, 4.40552,
121 + .01664, .01573, 127.58436, 4.73715, 3.79828,
122 + 3.14374, 4.24658, 4.74273 /
123 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
124 + .01706, .01596, 137.59335, 5.07853, 4.14458,
125 + 3.49487, 4.59064, 5.08423,
126 + .01747, .01617, 147.69920, 5.42611, 4.49684,
127 + 3.85172, 4.94077, 5.43192,
128 + .01786, .01639, 157.62035, 5.77373, 4.84895,
129 + 4.20822, 5.29084, 5.77965,
130 + .01825, .01660, 167.70047, 6.12840, 5.20792,
131 + 4.57137, 5.64786, 6.13443,
132 + .01863, .01680, 177.50833, 6.48048, 5.56412,
133 + 4.93159, 6.00218, 6.48660 /
134 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
135 + .01205, .01357, 10.84625, 1.06891, .10267,
136 + .00000, .56160, 1.07232,
137 + .01291, .01405, 16.55970, 1.22522, .27115,
138 + .00000, .72443, 1.22880,
139 + .01371, .01450, 22.73916, 1.40235, .45904,
140 + .00000, .90732, 1.40610,
141 + .01446, .01491, 29.39969, 1.59620, .66254,
142 + .04606, 1.10634, 1.60010,
143 + .01518, .01530, 36.43384, 1.80534, .88044,
144 + .24322, 1.32018, 1.80938,
145 + .01586, .01567, 43.75632, 2.02791, 1.11107,
146 + .48518, 1.54707, 2.03208,
147 + .01651, .01602, 51.29648, 2.26183, 1.35245,
148 + .73324, 1.78500, 2.26612 /
149 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
150 + .01714, .01636, 59.00493, 2.50544, 1.60299,
151 + .99067, 2.03233, 2.50985,
152 + .01774, .01669, 66.84789, 2.75744, 1.86147,
153 + 1.25537, 2.28781, 2.76196,
154 + .01832, .01700, 74.80418, 3.01690, 2.12701,
155 + 1.52678, 2.55054, 3.02153,
156 + .01888, .01730, 82.76933, 3.28176, 2.39760,
157 + 1.80286, 2.81847, 3.28649,
158 + .01943, .01760, 90.73236, 3.55105, 2.67230,
159 + 2.08274, 3.09067, 3.55588,
160 + .01995, .01788, 98.76840, 3.82568, 2.95204,
161 + 2.36738, 3.36806, 3.83060,
162 + .02047, .01815, 106.74777, 4.10307, 3.23430,
163 + 2.65427, 3.64807, 4.10808 /
164 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
165 + .02096, .01842, 114.68212, 4.38288, 3.51876,
166 + 2.94313, 3.93038, 4.38798,
167 + .02145, .01868, 122.65924, 4.66677, 3.80706,
168 + 3.23562, 4.21664, 4.67195,
169 + .02192, .01893, 130.45233, 4.94963, 4.09416,
170 + 3.52671, 4.50178, 4.95489,
171 + .02238, .01917, 138.34261, 5.23733, 4.38592,
172 + 3.82228, 4.79167, 5.24267,
173 + .02283, .01941, 145.98373, 5.52193, 4.67441,
174 + 4.11443, 5.07836, 5.52734 /
175 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
176 + .01409, .01493, 10.26792, 1.01181, .09626,
177 + .00000, .53081, 1.01524,
178 + .01508, .01548, 15.48660, 1.15555, .25172,
179 + .00000, .68080, 1.15914,
180 + .01599, .01598, 21.07016, 1.31713, .42365,
181 + .00000, .84789, 1.32085,
182 + .01685, .01645, 27.03439, 1.49277, .60857,
183 + .04177, 1.02848, 1.49662,
184 + .01767, .01689, 33.28394, 1.68115, .80539,
185 + .21997, 1.22136, 1.68512,
186 + .01844, .01731, 39.74452, 1.88055, 1.01254,
187 + .43765, 1.42489, 1.88463,
188 + .01918, .01771, 46.35567, 2.08911, 1.22827,
189 + .65965, 1.63728, 2.09329 /
190 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
191 + .01990, .01809, 53.07611, 2.30534, 1.45117,
192 + .88899, 1.85707, 2.30962,
193 + .02058, .01845, 59.87853, 2.52810, 1.68017,
194 + 1.12381, 2.08315, 2.53247,
195 + .02124, .01881, 66.74657, 2.75660, 1.91451,
196 + 1.36364, 2.31477, 2.76106,
197 + .02188, .01915, 73.59087, 2.98902, 2.15243,
198 + 1.60671, 2.55013, 2.99356,
199 + .02250, .01947, 80.40439, 3.22453, 2.39314,
200 + 1.85227, 2.78842, 3.22916,
201 + .02309, .01979, 87.25471, 3.46398, 2.63751,
202 + 2.10122, 3.03049, 3.46868,
203 + .02367, .02010, 94.03099, 3.70511, 2.88333,
204 + 2.35136, 3.27413, 3.70989 /
205 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
206 + .02424, .02040, 100.74520, 3.94767, 3.13034,
207 + 2.60250, 3.51907, 3.95252,
208 + .02479, .02068, 107.47482, 4.19313, 3.38006,
209 + 2.85612, 3.76680, 4.19805,
210 + .02532, .02097, 114.02604, 4.43705, 3.62804,
211 + 3.10785, 4.01289, 4.44204,
212 + .02584, .02124, 120.64219, 4.68460, 3.87949,
213 + 3.36287, 4.26253, 4.68966,
214 + .02635, .02151, 127.02734, 4.92886, 4.12749,
215 + 3.61429, 4.50878, 4.93398 /
216 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
217 + .01589, .01609, 9.83995, .96939, .09154,
218 + .00000, .50803, .97289,
219 + .01699, .01668, 14.70079, 1.10400, .23754,
220 + .00000, .64868, 1.10763,
221 + .01800, .01724, 19.85776, 1.25433, .39792,
222 + .00000, .80435, 1.25809,
223 + .01895, .01775, 25.32763, 1.41690, .56950,
224 + .03869, .97171, 1.42077,
225 + .01986, .01823, 31.02410, 1.59045, .75124,
226 + .20334, 1.14960, 1.59442,
227 + .02071, .01869, 36.88091, 1.77338, .94170,
228 + .40373, 1.33653, 1.77745,
229 + .02153, .01913, 42.84484, 1.96398, 1.13927,
230 + .60727, 1.53084, 1.96815 /
231 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
232 + .02232, .01955, 48.88044, 2.16091, 1.34267,
233 + .81678, 1.73121, 2.16517,
234 + .02308, .01995, 54.96485, 2.36314, 1.55096,
235 + 1.03060, 1.93666, 2.36748,
236 + .02381, .02034, 61.08510, 2.56998, 1.76346,
237 + 1.24832, 2.14651, 2.57440,
238 + .02451, .02071, 67.16228, 2.77976, 1.97859,
239 + 1.46833, 2.35913, 2.78426,
240 + .02519, .02107, 73.19199, 2.99178, 2.19566,
241 + 1.69001, 2.57384, 2.99635,
242 + .02585, .02142, 79.23650, 3.20684, 2.41549,
243 + 1.91419, 2.79143, 3.21148,
244 + .02649, .02175, 85.19765, 3.42290, 2.63610,
245 + 2.13891, 3.00991, 3.42761 /
246 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
247 + .02711, .02208, 91.08782, 3.63976, 2.85729,
248 + 2.36401, 3.22907, 3.64453,
249 + .02771, .02239, 96.97733, 3.85878, 3.08043,
250 + 2.59087, 3.45029, 3.86362,
251 + .02830, .02270, 102.69447, 4.07597, 3.30157,
252 + 2.81555, 3.66957, 4.08086,
253 + .02887, .02300, 108.45699, 4.29602, 3.52540,
254 + 3.04277, 3.89163, 4.30097,
255 + .02942, .02329, 114.00282, 4.51270, 3.74571,
256 + 3.26633, 4.11024, 4.51771 /
257 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
258 + .02294, .02030, 8.61589, .84714, .07820,
259 + .00000, .44282, .85110,
260 + .02446, .02110, 12.49397, .95640, .19790,
261 + .00000, .55760, .96049,
262 + .02586, .02184, 16.50042, 1.07590, .32662,
263 + .00000, .68197, 1.08010,
264 + .02717, .02253, 20.65644, 1.20302, .46199,
265 + .03035, .81344, 1.20732,
266 + .02841, .02318, 24.90124, 1.33671, .60320,
267 + .15857, .95110, 1.34111,
268 + .02958, .02379, 29.19057, 1.47578, .74918,
269 + .31282, 1.09381, 1.48026,
270 + .03070, .02438, 33.49064, 1.61894, .89873,
271 + .46748, 1.24035, 1.62351 /
272 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
273 + .03177, .02494, 37.78101, 1.76524, 1.05097,
274 + .62490, 1.38978, 1.76990,
275 + .03280, .02547, 42.05033, 1.91398, 1.20525,
276 + .78389, 1.54144, 1.91871,
277 + .03379, .02598, 46.29396, 2.06468, 1.36116,
278 + .94423, 1.69490, 2.06949,
279 + .03474, .02647, 50.45932, 2.21619, 1.51756,
280 + 1.10479, 1.84898, 2.22107,
281 + .03566, .02695, 54.54804, 2.36805, 1.67405,
282 + 1.26519, 2.00328, 2.37299,
283 + .03655, .02740, 58.60851, 2.52093, 1.83132,
284 + 1.42614, 2.15848, 2.52594,
285 + .03741, .02784, 62.57438, 2.67339, 1.98794,
286 + 1.58626, 2.31313, 2.67846 /
287 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
288 + .03824, .02827, 66.45786, 2.82536, 2.14387,
289 + 1.74551, 2.46719, 2.83049,
290 + .03905, .02869, 70.31107, 2.97788, 2.30018,
291 + 1.90497, 2.62171, 2.98307,
292 + .03983, .02909, 74.01716, 3.12811, 2.45402,
293 + 2.06183, 2.77384, 3.13335,
294 + .04060, .02948, 77.72953, 3.27950, 2.60888,
295 + 2.21957, 2.92706, 3.28481,
296 + .04134, .02986, 81.26978, 3.42762, 2.76033,
297 + 2.37377, 3.07693, 3.43298 /
298 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
299 + .03288, .02574, 7.53223, .73728, .06656,
300 + .00000, .38488, .74217,
301 + .03498, .02682, 10.59324, .82512, .16404,
302 + .00000, .47782, .83017,
303 + .03691, .02781, 13.67015, .91911, .26654,
304 + .00000, .57631, .92430,
305 + .03871, .02873, 16.78907, 1.01736, .37242,
306 + .02361, .67860, 1.02269,
307 + .04040, .02959, 19.91064, 1.11911, .48113,
308 + .12258, .78403, 1.12457,
309 + .04200, .03041, 23.00824, 1.22349, .59190,
310 + .24022, .89179, 1.22908,
311 + .04353, .03118, 26.06300, 1.32962, .70393,
312 + .35661, 1.00104, 1.33532 /
313 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
314 + .04498, .03192, 29.06558, 1.43685, .81665,
315 + .47372, 1.11117, 1.44266,
316 + .04637, .03263, 32.01273, 1.54473, .92966,
317 + .59072, 1.22176, 1.55064,
318 + .04771, .03330, 34.90546, 1.65299, 1.04273,
319 + .70754, 1.33257, 1.65901,
320 + .04899, .03395, 37.70998, 1.76083, 1.15510,
321 + .82342, 1.44280, 1.76694,
322 + .05022, .03457, 40.43147, 1.86799, 1.26654,
323 + .93817, 1.55222, 1.87419,
324 + .05141, .03517, 43.10740, 1.97503, 1.37764,
325 + 1.05240, 1.66141, 1.98132,
326 + .05257, .03575, 45.69372, 2.08096, 1.48743,
327 + 1.16514, 1.76938, 2.08734 /
328 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
329 + .05368, .03631, 48.20187, 2.18578, 1.59591,
330 + 1.27644, 1.87613, 2.19224,
331 + .05476, .03685, 50.67022, 2.29031, 1.70394,
332 + 1.38714, 1.98252, 2.29685,
333 + .05580, .03737, 53.02005, 2.39254, 1.80951,
334 + 1.49526, 2.08650, 2.39915,
335 + .05682, .03788, 55.35876, 2.49499, 1.91518,
336 + 1.60336, 2.19066, 2.50168,
337 + .05781, .03837, 57.56620, 2.59455, 2.01781,
338 + 1.70832, 2.29183, 2.60131 /
339 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
340 + .04049, .02969, 6.95356, .67771, .06040,
341 + .00000, .35371, .68336,
342 + .04303, .03097, 9.59946, .75454, .14646,
343 + .00000, .43545, .76039,
344 + .04535, .03215, 12.21521, .83563, .23571,
345 + .00000, .52088, .84168,
346 + .04751, .03324, 14.82948, .91950, .32690,
347 + .02027, .60864, .92573,
348 + .04953, .03426, 17.41357, 1.00555, .41962,
349 + .10484, .69823, 1.01194,
350 + .05145, .03522, 19.94930, 1.09309, .51327,
351 + .20465, .78902, 1.09963,
352 + .05327, .03613, 22.42464, 1.18141, .60725,
353 + .30259, .88035, 1.18810 /
354 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
355 + .05500, .03700, 24.83516, 1.27002, .70114,
356 + .40044, .97176, 1.27685,
357 + .05666, .03782, 27.18107, 1.35861, .79464,
358 + .49757, 1.06297, 1.36558,
359 + .05824, .03862, 29.46562, 1.44699, .88764,
360 + .59396, 1.15380, 1.45409,
361 + .05976, .03937, 31.66334, 1.53452, .97952,
362 + .68903, 1.24365, 1.54174,
363 + .06122, .04010, 33.78059, 1.62105, 1.07016,
364 + .78266, 1.33235, 1.62838,
365 + .06263, .04080, 35.84948, 1.70708, 1.16008,
366 + .87541, 1.42046, 1.71453,
367 + .06399, .04148, 37.83582, 1.79180, 1.24850,
368 + .96651, 1.50714, 1.79936 /
369 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
370 + .06530, .04213, 39.75022, 1.87527, 1.33548,
371 + 1.05604, 1.59248, 1.88293,
372 + .06658, .04276, 41.62459, 1.95818, 1.42175,
373 + 1.14472, 1.67718, 1.96594,
374 + .06781, .04337, 43.39705, 2.03889, 1.50568,
375 + 1.23096, 1.75959, 2.04675,
376 + .06900, .04396, 45.15421, 2.11953, 1.58939,
377 + 1.31687, 1.84187, 2.12749,
378 + .07016, .04453, 46.80130, 2.19754, 1.67035,
379 + 1.39994, 1.92145, 2.20559 /
380 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
381 + .04692, .03295, 6.56414, .63716, .05627,
382 + .00000, .33258, .64345,
383 + .04981, .03440, 8.93909, .70674, .13483,
384 + .00000, .40696, .71328,
385 + .05245, .03572, 11.25842, .77946, .21547,
386 + .00000, .48391, .78623,
387 + .05490, .03695, 13.55241, .85410, .29722,
388 + .01813, .56234, .86107,
389 + .05720, .03810, 15.79911, .93013, .37973,
390 + .09351, .64183, .93731,
391 + .05937, .03918, 17.98551, 1.00700, .46255,
392 + .18202, .72188, 1.01436,
393 + .06143, .04020, 20.10373, 1.08413, .54518,
394 + .26834, .80194, 1.09166 /
395 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
396 + .06338, .04117, 22.15219, 1.16111, .62729,
397 + .35415, .88166, 1.16881,
398 + .06525, .04210, 24.13305, 1.23771, .70867,
399 + .43890, .96082, 1.24557,
400 + .06704, .04298, 26.05077, 1.31380, .78925,
401 + .52264, 1.03931, 1.32182,
402 + .06875, .04383, 27.88480, 1.38885, .86853,
403 + .60488, 1.11662, 1.39701,
404 + .07039, .04464, 29.64199, 1.46274, .94641,
405 + .68556, 1.19264, 1.47104,
406 + .07197, .04542, 31.35105, 1.53596, 1.02341,
407 + .76519, 1.26788, 1.54439,
408 + .07349, .04617, 32.98357, 1.60781, 1.09885,
409 + .84313, 1.34165, 1.61637 /
410 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
411 + .07496, .04690, 34.54958, 1.67835, 1.17282,
412 + .91946, 1.41402, 1.68704,
413 + .07639, .04760, 36.07693, 1.74822, 1.24596,
414 + .99485, 1.48565, 1.75703,
415 + .07776, .04827, 37.51375, 1.81602, 1.31688,
416 + 1.06791, 1.55511, 1.82494,
417 + .07910, .04893, 38.93396, 1.88359, 1.38744,
418 + 1.14052, 1.62428, 1.89262,
419 + .08039, .04956, 40.25806, 1.94873, 1.45546,
420 + 1.21051, 1.69096, 1.95788 /
421 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
422 + .05265, .03588, 6.26982, .60610, .05312,
423 + .00000, .31627, .61280,
424 + .05583, .03748, 8.44191, .67027, .12606,
425 + .00000, .38513, .67725,
426 + .05874, .03893, 10.54189, .73680, .20035,
427 + .00000, .45580, .74403,
428 + .06144, .04028, 12.60117, .80466, .27516,
429 + .01656, .52737, .81211,
430 + .06397, .04153, 14.60282, .87340, .35023,
431 + .08526, .59950, .88107,
432 + .06635, .04272, 16.53732, .94254, .42519,
433 + .16555, .67175, .95042,
434 + .06860, .04384, 18.39979, 1.01160, .49962,
435 + .24349, .74368, 1.01966 /
436 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
437 + .07074, .04490, 20.19061, 1.08023, .57326,
438 + .32062, .81499, 1.08848,
439 + .07278, .04591, 21.91310, 1.14826, .64596,
440 + .39651, .88552, 1.15669,
441 + .07473, .04687, 23.57248, 1.21560, .71768,
442 + .47123, .95521, 1.22420,
443 + .07660, .04779, 25.15165, 1.28179, .78800,
444 + .54434, 1.02360, 1.29054,
445 + .07839, .04867, 26.65755, 1.34674, .85685,
446 + .61583, 1.09063, 1.35564,
447 + .08011, .04952, 28.11650, 1.41091, .92472,
448 + .68619, 1.15678, 1.41996,
449 + .08177, .05034, 29.50427, 1.47370, .99102,
450 + .75485, 1.22145, 1.48289 /
451 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
452 + .08336, .05112, 30.83015, 1.53518, 1.05584,
453 + .82191, 1.28472, 1.54450,
454 + .08491, .05188, 32.11908, 1.59593, 1.11978,
455 + .88797, 1.34718, 1.60538,
456 + .08640, .05261, 33.32617, 1.65471, 1.18160,
457 + .95183, 1.40758, 1.66428,
458 + .08785, .05332, 34.51641, 1.71318, 1.24299,
459 + 1.01515, 1.46762, 1.72288,
460 + .08925, .05400, 35.62114, 1.76939, 1.30201,
461 + 1.07602, 1.52533, 1.77920 /
462 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
463 + .07517, .04719, 5.41490, .51454, .04408,
464 + .00000, .26871, .52320,
465 + .07946, .04933, 7.02868, .56363, .10138,
466 + .00000, .32223, .57268,
467 + .08336, .05127, 8.53842, .61322, .15821,
468 + .00000, .37572, .62262,
469 + .08695, .05306, 9.97762, .66276, .21425,
470 + .01235, .42876, .67248,
471 + .09030, .05471, 11.34166, .71202, .26942,
472 + .06312, .48122, .72204,
473 + .09344, .05627, 12.62999, .76074, .32358,
474 + .12165, .53287, .77105,
475 + .09640, .05773, 13.84438, .80866, .37652,
476 + .17755, .58350, .81923 /
477 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
478 + .09920, .05911, 14.98943, .85564, .42817,
479 + .23211, .63299, .86646,
480 + .10186, .06041, 16.07103, .90160, .47849,
481 + .28511, .68131, .91266,
482 + .10439, .06166, 17.09566, .94656, .52755,
483 + .33666, .72849, .95785,
484 + .10680, .06284, 18.05423, .99025, .57508,
485 + .38654, .77425, 1.00175,
486 + .10910, .06396, 18.95373, 1.03265, .62111,
487 + .43478, .81861, 1.04435,
488 + .11132, .06504, 19.81352, 1.07414, .66606,
489 + .48180, .86197, 1.08604,
490 + .11343, .06607, 20.61901, 1.11435, .70953,
491 + .52724, .90394, 1.12643 /
492 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
493 + .11547, .06706, 21.37772, 1.15334, .75164,
494 + .57122, .94462, 1.16561,
495 + .11744, .06802, 22.10705, 1.19158, .79285,
496 + .61420, .98446, 1.20402,
497 + .11932, .06893, 22.77884, 1.22821, .83231,
498 + .65536, 1.02262, 1.24082,
499 + .12116, .06982, 23.43591, 1.26443, .87125,
500 + .69591, 1.06031, 1.27719,
501 + .12292, .07067, 24.03496, 1.29890, .90833,
502 + .73454, 1.09619, 1.31182 /
503 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
504 + .10717, .06345, 4.62899, .42858, .03589,
505 + .00000, .22435, .43995,
506 + .11284, .06628, 5.77495, .46482, .07978,
507 + .00000, .26476, .47674,
508 + .11794, .06882, 6.80785, .50038, .12207,
509 + .00000, .30398, .51277,
510 + .12261, .07113, 7.76118, .53508, .16281,
511 + .00895, .34198, .54792,
512 + .12694, .07327, 8.63855, .56888, .20210,
513 + .04539, .37877, .58212,
514 + .13097, .07525, 9.44523, .60167, .23993,
515 + .08677, .41430, .61529,
516 + .13474, .07710, 10.18674, .63336, .27627,
517 + .12558, .44853, .64733 /
518 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
519 + .13829, .07883, 10.86947, .66393, .31116,
520 + .16289, .48146, .67823,
521 + .14165, .08046, 11.50019, .69341, .34467,
522 + .19862, .51313, .70802,
523 + .14482, .08200, 12.08549, .72185, .37690,
524 + .23292, .54364, .73676,
525 + .14783, .08345, 12.62132, .74910, .40771,
526 + .26567, .57283, .76428,
527 + .15069, .08483, 13.11387, .77522, .43718,
528 + .29697, .60078, .79066,
529 + .15342, .08615, 13.57670, .80051, .46565,
530 + .32715, .62780, .81620,
531 + .15603, .08740, 14.00136, .82470, .49286,
532 + .35599, .65364, .84063 /
533 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
534 + .15853, .08859, 14.39392, .84792, .51894,
535 + .38362, .67841, .86407,
536 + .16093, .08973, 14.76592, .87047, .54424,
537 + .41038, .70247, .88684,
538 + .16322, .09082, 15.10030, .89182, .56820,
539 + .43573, .72524, .90839,
540 + .16544, .09187, 15.42419, .91278, .59166,
541 + .46053, .74757, .92956,
542 + .16756, .09287, 15.71150, .93248, .61375,
543 + .48389, .76856, .94944 /
544 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
545 + .13178, .07619, 4.19514, .38089, .03149,
546 + -.00001, .20002, .39453,
547 + .13836, .07946, 5.10692, .41058, .06848,
548 + -.00001, .23373, .42488,
549 + .14425, .08237, 5.90863, .43916, .10348,
550 + -.00001, .26583, .45403,
551 + .14961, .08501, 6.63274, .46663, .13670,
552 + .00728, .29646, .48202,
553 + .15455, .08743, 7.28621, .49301, .16831,
554 + .03678, .32571, .50888,
555 + .15913, .08966, 7.87565, .51829, .19837,
556 + .06997, .35361, .53459,
557 + .16340, .09172, 8.40794, .54243, .22694,
558 + .10074, .38019, .55914 /
559 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
560 + .16740, .09365, 8.88981, .56546, .25408,
561 + .13004, .40548, .58255,
562 + .17116, .09545, 9.32786, .58745, .27990,
563 + .15783, .42957, .60488,
564 + .17470, .09715, 9.72828, .60846, .30452,
565 + .18429, .45256, .62623,
566 + .17806, .09874, 10.08882, .62841, .32784,
567 + .20934, .47436, .64649,
568 + .18122, .10024, 10.41476, .64735, .34997,
569 + .23309, .49505, .66573,
570 + .18425, .10166, 10.71710, .66556, .37119,
571 + .25584, .51491, .68421,
572 + .18712, .10301, 10.99015, .68283, .39132,
573 + .27742, .53375, .70174 /
574 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
575 + .18985, .10429, 11.23854, .69927, .41049,
576 + .29795, .55168, .71843,
577 + .19248, .10552, 11.47121, .71515, .42896,
578 + .31772, .56899, .73455,
579 + .19498, .10668, 11.67572, .73004, .44632,
580 + .33632, .58523, .74965,
581 + .19739, .10779, 11.87243, .74459, .46325,
582 + .35443, .60109, .76443,
583 + .19968, .10885, 12.04229, .75813, .47905,
584 + .37136, .61586, .77816 /
585 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
586 + .15255, .08712, 3.89613, .34823, .02854,
587 + -.00001, .18348, .36390,
588 + .15980, .09070, 4.65814, .37368, .06101,
589 + -.00001, .21281, .39007,
590 + .16626, .09386, 5.31520, .39781, .09132,
591 + -.00001, .24035, .41484,
592 + .17211, .09671, 5.89858, .42073, .11977,
593 + .00624, .26633, .43834,
594 + .17748, .09930, 6.41662, .44250, .14657,
595 + .03138, .29088, .46063,
596 + .18244, .10168, 6.87676, .46315, .17183,
597 + .05947, .31407, .48176,
598 + .18704, .10388, 7.28614, .48268, .19561,
599 + .08529, .33595, .50173 /
600 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
601 + .19134, .10591, 7.65145, .50116, .21804,
602 + .10969, .35661, .52061,
603 + .19536, .10781, 7.97895, .51866, .23922,
604 + .13267, .37613, .53848,
605 + .19914, .10959, 8.27436, .53526, .25927,
606 + .15442, .39464, .55543,
607 + .20271, .11124, 8.53640, .55088, .27814,
608 + .17487, .41205, .57139,
609 + .20606, .11280, 8.76975, .56562, .29593,
610 + .19414, .42846, .58643,
611 + .20926, .11427, 8.98366, .57969, .31289,
612 + .21251, .44413, .60079,
613 + .21228, .11566, 9.17379, .59295, .32890,
614 + .22983, .45890, .61432 /
615 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
616 + .21515, .11697, 9.34410, .60549, .34404,
617 + .24622, .47287, .62711,
618 + .21790, .11823, 9.50190, .61753, .35857,
619 + .26195, .48628, .63940,
620 + .22051, .11940, 9.63737, .62873, .37214,
621 + .27665, .49879, .65083,
622 + .22302, .12054, 9.76685, .63964, .38533,
623 + .29091, .51095, .66196,
624 + .22540, .12160, 9.87534, .64970, .39756,
625 + .30417, .52220, .67222 /
626 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
627 + .17086, .09686, 3.66841, .32366, .02635,
628 + .00000, .17115, .34123,
629 + .17863, .10065, 4.32339, .34603, .05553,
630 + .00000, .19731, .36439,
631 + .18552, .10398, 4.87893, .36699, .08247,
632 + .00000, .22158, .38602,
633 + .19173, .10697, 5.36494, .38669, .10753,
634 + .00550, .24426, .40634,
635 + .19742, .10967, 5.79031, .40523, .13094,
636 + .02757, .26549, .42543,
637 + .20265, .11214, 6.16314, .42266, .15283,
638 + .05208, .28539, .44336,
639 + .20749, .11441, 6.49036, .43902, .17331,
640 + .07446, .30403, .46017 /
641 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
642 + .21199, .11650, 6.77861, .45437, .19248,
643 + .09547, .32150, .47595,
644 + .21619, .11844, 7.03367, .46881, .21048,
645 + .11516, .33791, .49078,
646 + .22012, .12024, 7.26072, .48242, .22743,
647 + .13369, .35337, .50475,
648 + .22382, .12193, 7.45933, .49514, .24329,
649 + .15101, .36782, .51780,
650 + .22728, .12350, 7.63357, .50705, .25815,
651 + .16726, .38136, .53002,
652 + .23058, .12498, 7.79140, .51837, .27227,
653 + .18268, .39422, .54163,
654 + .23369, .12637, 7.92920, .52897, .28552,
655 + .19715, .40628, .55250 /
656 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
657 + .23663, .12768, 8.05072, .53893, .29799,
658 + .21079, .41763, .56271,
659 + .23945, .12893, 8.16209, .54845, .30992,
660 + .22382, .42848, .57248,
661 + .24210, .13009, 8.25507, .55723, .32100,
662 + .23595, .43852, .58149,
663 + .24466, .13121, 8.34336, .56577, .33173,
664 + .24768, .44827, .59024,
665 + .24707, .13226, 8.41462, .57357, .34163,
666 + .25853, .45722, .59824 /
667 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
668 + .24275, .13542, 2.97669, .25204, .02014,
669 + .00000, .13598, .27789,
670 + .25190, .13955, 3.34811, .26597, .04022,
671 + .00000, .15335, .29270,
672 + .25985, .14306, 3.64290, .27841, .05805,
673 + .00000, .16881, .30587,
674 + .26690, .14613, 3.88571, .28967, .07414,
675 + .00355, .18277, .31775,
676 + .27323, .14885, 4.08579, .29988, .08874,
677 + .01760, .19542, .32851,
678 + .27897, .15127, 4.25060, .30916, .10202,
679 + .03290, .20693, .33826,
680 + .28418, .15344, 4.38615, .31758, .11415,
681 + .04653, .21740, .34710 /
682 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
683 + .28895, .15540, 4.49771, .32524, .12525,
684 + .05907, .22696, .35514,
685 + .29335, .15717, 4.58983, .33223, .13544,
686 + .07059, .23572, .36247,
687 + .29742, .15880, 4.66621, .33863, .14484,
688 + .08123, .24377, .36917,
689 + .30118, .16027, 4.72679, .34443, .15345,
690 + .09099, .25112, .37524,
691 + .30465, .16161, 4.77456, .34969, .16136,
692 + .09998, .25784, .38074,
693 + .30790, .16285, 4.81422, .35458, .16876,
694 + .10839, .26410, .38585,
695 + .31094, .16399, 4.84403, .35901, .17556,
696 + .11615, .26982, .39048 /
697 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
698 + .31377, .16504, 4.86599, .36305, .18186,
699 + .12335, .27509, .39470,
700 + .31645, .16602, 4.88357, .36683, .18779,
701 + .13014, .28005, .39865,
702 + .31893, .16691, 4.89253, .37018, .19318,
703 + .13634, .28450, .40213,
704 + .32131, .16776, 4.90018, .37338, .19835,
705 + .14229, .28878, .40548,
706 + .32350, .16852, 4.90003, .37617, .20300,
707 + .14768, .29258, .40838 /
708 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
709 + .34376, .18759, 2.29428, .18798, .01484,
710 + -.00002, .10581, .22626,
711 + .35285, .19072, 2.45316, .19490, .02738,
712 + -.00001, .11580, .23365,
713 + .36046, .19318, 2.56349, .20061, .03804,
714 + -.00002, .12420, .23969,
715 + .36697, .19519, 2.64286, .20544, .04729,
716 + .00206, .13142, .24477,
717 + .37261, .19685, 2.69838, .20953, .05538,
718 + .01014, .13766, .24903,
719 + .37753, .19821, 2.73536, .21299, .06250,
720 + .01873, .14307, .25260,
721 + .38185, .19933, 2.75804, .21591, .06879,
722 + .02617, .14779, .25560 /
723 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
724 + .38566, .20025, 2.76966, .21838, .07438,
725 + .03285, .15191, .25811,
726 + .38904, .20101, 2.77298, .22046, .07936,
727 + .03882, .15552, .26019,
728 + .39207, .20163, 2.77014, .22221, .08383,
729 + .04420, .15871, .26193,
730 + .39475, .20213, 2.76113, .22365, .08780,
731 + .04904, .16147, .26334,
732 + .39712, .20251, 2.74758, .22482, .09135,
733 + .05339, .16388, .26444,
734 + .39928, .20283, 2.73182, .22581, .09459,
735 + .05738, .16604, .26535,
736 + .40121, .20305, 2.71297, .22657, .09748,
737 + .06098, .16790, .26604 /
738 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
739 + .40292, .20321, 2.69196, .22716, .10009,
740 + .06425, .16953, .26653,
741 + .40449, .20333, 2.67040, .22765, .10250,
742 + .06728, .17101, .26693,
743 + .40586, .20336, 2.64618, .22793, .10460,
744 + .06999, .17222, .26710,
745 + .40715, .20338, 2.62270, .22818, .10659,
746 + .07255, .17336, .26725,
747 + .40823, .20333, 2.59698, .22823, .10830,
748 + .07480, .17426, .26718 /
749 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
750 + .41868, .22193, 1.89418, .15273, .01209,
751 + .00000, .08953, .19882,
752 + .42599, .22325, 1.96122, .15614, .02095,
753 + .00000, .09577, .20204,
754 + .43174, .22401, 1.99648, .15868, .02824,
755 + .00000, .10074, .20428,
756 + .43640, .22444, 2.01297, .16058, .03440,
757 + .00141, .10482, .20590,
758 + .44019, .22459, 2.01580, .16201, .03964,
759 + .00685, .10818, .20699,
760 + .44329, .22453, 2.00858, .16302, .04414,
761 + .01254, .11094, .20765,
762 + .44581, .22429, 1.99426, .16370, .04801,
763 + .01735, .11321, .20796 /
764 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
765 + .44785, .22393, 1.97492, .16411, .05137,
766 + .02159, .11509, .20800,
767 + .44951, .22348, 1.95221, .16431, .05429,
768 + .02532, .11663, .20782,
769 + .45085, .22295, 1.92738, .16433, .05685,
770 + .02863, .11791, .20747,
771 + .45187, .22234, 1.90039, .16418, .05907,
772 + .03154, .11891, .20694,
773 + .45265, .22167, 1.87214, .16389, .06100,
774 + .03413, .11971, .20629,
775 + .45326, .22097, 1.84394, .16353, .06273,
776 + .03646, .12037, .20557,
777 + .45365, .22024, 1.81510, .16307, .06422,
778 + .03853, .12085, .20474 /
779 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
780 + .45387, .21948, 1.78616, .16252, .06553,
781 + .04037, .12120, .20384,
782 + .45401, .21871, 1.75799, .16193, .06672,
783 + .04207, .12147, .20294,
784 + .45396, .21789, 1.72929, .16126, .06772,
785 + .04354, .12159, .20192,
786 + .45390, .21709, 1.70195, .16059, .06865,
787 + .04491, .12169, .20093,
788 + .45364, .21625, 1.67411, .15984, .06940,
789 + .04610, .12166, .19984 /
790 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
791 + .47772, .24478, 1.60943, .12740, .01016,
792 + .00000, .07747, .17746,
793 + .48226, .24401, 1.62608, .12871, .01677,
794 + -.00001, .08136, .17785,
795 + .48536, .24291, 1.62229, .12938, .02205,
796 + .00000, .08426, .17767,
797 + .48751, .24162, 1.60765, .12966, .02641,
798 + .00103, .08649, .17713,
799 + .48891, .24020, 1.58570, .12964, .03004,
800 + .00494, .08820, .17629,
801 + .48970, .23869, 1.55888, .12936, .03308,
802 + .00898, .08949, .17524,
803 + .49001, .23712, 1.52911, .12891, .03563,
804 + .01234, .09044, .17403 /
805 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
806 + .48997, .23550, 1.49774, .12830, .03780,
807 + .01525, .09113, .17271,
808 + .48963, .23386, 1.46569, .12758, .03964,
809 + .01777, .09160, .17131,
810 + .48905, .23224, 1.43364, .12680, .04122,
811 + .01999, .09190, .16986,
812 + .48823, .23060, 1.40149, .12594, .04256,
813 + .02191, .09205, .16835,
814 + .48723, .22896, 1.36969, .12502, .04369,
815 + .02358, .09206, .16681,
816 + .48614, .22735, 1.33900, .12408, .04467,
817 + .02506, .09200, .16529,
818 + .48493, .22574, 1.30887, .12309, .04550,
819 + .02637, .09184, .16377 /
820 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
821 + .48360, .22415, 1.27957, .12208, .04619,
822 + .02751, .09160, .16222,
823 + .48225, .22261, 1.25157, .12110, .04681,
824 + .02854, .09134, .16069,
825 + .48075, .22105, 1.22397, .12007, .04730,
826 + .02943, .09098, .15915,
827 + .47929, .21956, 1.19791, .11908, .04774,
828 + .03025, .09063, .15768,
829 + .47768, .21805, 1.17215, .11804, .04808,
830 + .03093, .09021, .15617 /
831 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
832 + .52453, .25909, 1.38874, .10701, .00863,
833 + -.00001, .06723, .15799,
834 + .52570, .25627, 1.37491, .10699, .01368,
835 + -.00001, .06952, .15647,
836 + .52572, .25331, 1.34878, .10655, .01764,
837 + .00000, .07108, .15466,
838 + .52500, .25038, 1.31736, .10589, .02082,
839 + .00076, .07215, .15274,
840 + .52370, .24749, 1.28287, .10506, .02341,
841 + .00368, .07284, .15072,
842 + .52198, .24464, 1.24692, .10411, .02555,
843 + .00666, .07325, .14864,
844 + .51995, .24184, 1.21062, .10304, .02730,
845 + .00911, .07342, .14655 /
846 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
847 + .51769, .23909, 1.17473, .10193, .02874,
848 + .01120, .07343, .14448,
849 + .51526, .23641, 1.13978, .10078, .02994,
850 + .01298, .07331, .14242,
851 + .51272, .23381, 1.10609, .09962, .03095,
852 + .01452, .07309, .14039,
853 + .51003, .23128, 1.07341, .09844, .03178,
854 + .01585, .07276, .13839,
855 + .50726, .22880, 1.04196, .09725, .03245,
856 + .01698, .07237, .13642,
857 + .50451, .22641, 1.01215, .09609, .03303,
858 + .01798, .07195, .13451,
859 + .50170, .22407, .98350, .09492, .03349,
860 + .01884, .07148, .13264 /
861 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
862 + .49885, .22180, .95612, .09376, .03386,
863 + .01958, .07096, .13082,
864 + .49604, .21962, .93025, .09264, .03417,
865 + .02024, .07045, .12907,
866 + .49316, .21746, .90523, .09151, .03440,
867 + .02080, .06989, .12732,
868 + .49040, .21539, .88175, .09043, .03460,
869 + .02132, .06935, .12566,
870 + .48753, .21334, .85895, .08934, .03472,
871 + .02173, .06876, .12401 /
872 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
873 + .56862, .26782, 1.16940, .08585, .00704,
874 + -.00001, .05591, .13486,
875 + .56515, .26255, 1.13287, .08486, .01074,
876 + -.00001, .05692, .13185,
877 + .56096, .25751, 1.09131, .08367, .01357,
878 + .00000, .05741, .12885,
879 + .55644, .25276, 1.04924, .08242, .01577,
880 + .00056, .05759, .12594,
881 + .55169, .24824, 1.00768, .08109, .01753,
882 + .00264, .05753, .12313,
883 + .54679, .24391, .96734, .07972, .01893,
884 + .00474, .05732, .12042,
885 + .54179, .23980, .92869, .07836, .02005,
886 + .00643, .05696, .11779 /
887 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
888 + .53678, .23587, .89199, .07700, .02095,
889 + .00787, .05652, .11528,
890 + .53179, .23211, .85737, .07567, .02167,
891 + .00907, .05601, .11287,
892 + .52687, .22853, .82484, .07437, .02225,
893 + .01010, .05546, .11057,
894 + .52197, .22507, .79409, .07309, .02271,
895 + .01096, .05487, .10834,
896 + .51712, .22176, .76509, .07183, .02306,
897 + .01168, .05425, .10621,
898 + .51240, .21861, .73802, .07062, .02334,
899 + .01230, .05363, .10418,
900 + .50775, .21556, .71246, .06944, .02355,
901 + .01284, .05300, .10221 /
902 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
903 + .50316, .21262, .68839, .06829, .02370,
904 + .01330, .05237, .10033,
905 + .49872, .20983, .66590, .06719, .02381,
906 + .01369, .05174, .09853,
907 + .49430, .20709, .64446, .06610, .02388,
908 + .01402, .05111, .09678,
909 + .49006, .20450, .62449, .06506, .02393,
910 + .01431, .05050, .09511,
911 + .48581, .20195, .60538, .06404, .02392,
912 + .01454, .04987, .09350 /
913 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
914 + .59866, .26868, .99245, .06825, .00570,
915 + -.00003, .04589, .11306,
916 + .59040, .26127, .94327, .06682, .00848,
917 + -.00002, .04612, .10929,
918 + .58197, .25444, .89416, .06530, .01053,
919 + -.00003, .04601, .10578,
920 + .57369, .24815, .84774, .06380, .01210,
921 + .00038, .04571, .10247,
922 + .56554, .24228, .80414, .06232, .01332,
923 + .00193, .04527, .09938,
924 + .55758, .23677, .76340, .06087, .01426,
925 + .00346, .04474, .09648,
926 + .54979, .23160, .72558, .05946, .01498,
927 + .00468, .04414, .09375 /
928 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
929 + .54221, .22674, .69054, .05809, .01554,
930 + .00568, .04351, .09116,
931 + .53488, .22216, .65816, .05677, .01599,
932 + .00651, .04285, .08872,
933 + .52780, .21783, .62828, .05550, .01633,
934 + .00721, .04219, .08643,
935 + .52090, .21370, .60050, .05429, .01658,
936 + .00779, .04151, .08425,
937 + .51420, .20977, .57472, .05310, .01675,
938 + .00828, .04084, .08219,
939 + .50776, .20606, .55093, .05198, .01688,
940 + .00869, .04018, .08025,
941 + .50149, .20252, .52874, .05091, .01696,
942 + .00904, .03953, .07838 /
943 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
944 + .49541, .19912, .50807, .04987, .01699,
945 + .00932, .03889, .07661,
946 + .48959, .19589, .48890, .04888, .01701,
947 + .00956, .03827, .07494,
948 + .48383, .19279, .47086, .04792, .01699,
949 + .00975, .03765, .07333,
950 + .47834, .18985, .45414, .04702, .01697,
951 + .00991, .03706, .07180,
952 + .47292, .18698, .43831, .04613, .01690,
953 + .01004, .03647, .07034 /
954 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
955 + .61630, .26354, .84571, .05361, .00458,
956 + -.00001, .03710, .09303,
957 + .60329, .25443, .79004, .05207, .00666,
958 + -.00001, .03687, .08906,
959 + .59081, .24614, .73803, .05050, .00816,
960 + -.00002, .03644, .08544,
961 + .57897, .23864, .69085, .04901, .00929,
962 + .00030, .03591, .08212,
963 + .56768, .23175, .64795, .04758, .01012,
964 + .00143, .03529, .07908,
965 + .55688, .22538, .60890, .04621, .01076,
966 + .00254, .03464, .07626,
967 + .54656, .21945, .57341, .04490, .01124,
968 + .00342, .03396, .07363 /
969 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
970 + .53672, .21391, .54115, .04364, .01160,
971 + .00414, .03327, .07120,
972 + .52733, .20874, .51180, .04244, .01186,
973 + .00472, .03259, .06894,
974 + .51836, .20390, .48510, .04132, .01204,
975 + .00521, .03191, .06684,
976 + .50976, .19933, .46062, .04024, .01216,
977 + .00559, .03125, .06486,
978 + .50149, .19500, .43813, .03920, .01224,
979 + .00591, .03061, .06298,
980 + .49360, .19093, .41757, .03823, .01229,
981 + .00618, .03000, .06123,
982 + .48600, .18707, .39862, .03730, .01229,
983 + .00639, .02938, .05959 /
984 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
985 + .47871, .18338, .38111, .03641, .01228,
986 + .00657, .02879, .05802,
987 + .47176, .17990, .36498, .03557, .01226,
988 + .00672, .02824, .05653,
989 + .46496, .17657, .34993, .03477, .01220,
990 + .00684, .02768, .05513,
991 + .45850, .17344, .33607, .03401, .01213,
992 + .00695, .02715, .05381,
993 + .45217, .17039, .32306, .03327, .01205,
994 + .00702, .02664, .05255 /
995 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
996 + .62293, .25389, .72171, .04154, .00362,
997 + -.00003, .02950, .07514,
998 + .60552, .24340, .66351, .04006, .00521,
999 + -.00002, .02908, .07128,
1000 + .58926, .23405, .61143, .03860, .00632,
1001 + -.00002, .02851, .06786,
1002 + .57422, .22565, .56557, .03723, .00714,
1003 + .00021, .02789, .06478,
1004 + .56012, .21804, .52484, .03595, .00773,
1005 + .00106, .02723, .06198,
1006 + .54689, .21103, .48852, .03472, .00816,
1007 + .00190, .02657, .05942,
1008 + .53441, .20457, .45611, .03357, .00848,
1009 + .00253, .02591, .05706 /
1010 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1011 + .52261, .19861, .42707, .03248, .00871,
1012 + .00304, .02525, .05489,
1013 + .51147, .19307, .40098, .03147, .00886,
1014 + .00346, .02462, .05289,
1015 + .50097, .18791, .37748, .03050, .00896,
1016 + .00380, .02401, .05104,
1017 + .49098, .18306, .35620, .02959, .00900,
1018 + .00408, .02340, .04934,
1019 + .48144, .17851, .33689, .02873, .00901,
1020 + .00430, .02283, .04773,
1021 + .47241, .17426, .31936, .02792, .00901,
1022 + .00448, .02229, .04622,
1023 + .46377, .17024, .30330, .02716, .00899,
1024 + .00462, .02176, .04479 /
1025 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1026 + .45552, .16643, .28860, .02643, .00895,
1027 + .00473, .02125, .04346,
1028 + .44769, .16285, .27517, .02574, .00891,
1029 + .00483, .02077, .04222,
1030 + .44009, .15943, .26272, .02509, .00884,
1031 + .00490, .02030, .04104,
1032 + .43291, .15622, .25130, .02448, .00877,
1033 + .00495, .01985, .03993,
1034 + .42592, .15311, .24068, .02389, .00869,
1035 + .00500, .01942, .03887 /
1036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1037 + .61980, .24090, .61569, .03174, .00284,
1038 + -.00002, .02310, .05958,
1039 + .59842, .22941, .55758, .03039, .00405,
1040 + .00001, .02261, .05609,
1041 + .57888, .21932, .50721, .02913, .00490,
1042 + -.00001, .02201, .05301,
1043 + .56106, .21032, .46392, .02795, .00549,
1044 + .00016, .02141, .05028,
1045 + .54457, .20224, .42622, .02685, .00591,
1046 + .00081, .02079, .04783,
1047 + .52926, .19489, .39315, .02581, .00621,
1048 + .00142, .02018, .04559,
1049 + .51498, .18814, .36404, .02486, .00642,
1050 + .00190, .01958, .04355 /
1051 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1052 + .50164, .18194, .33828, .02395, .00655,
1053 + .00228, .01900, .04171,
1054 + .48916, .17622, .31543, .02309, .00664,
1055 + .00258, .01844, .04003,
1056 + .47745, .17092, .29509, .02229, .00669,
1057 + .00282, .01791, .03847,
1058 + .46637, .16598, .27684, .02156, .00669,
1059 + .00301, .01740, .03702,
1060 + .45588, .16137, .26037, .02086, .00668,
1061 + .00316, .01691, .03568,
1062 + .44601, .15707, .24555, .02021, .00665,
1063 + .00328, .01645, .03443,
1064 + .43664, .15301, .23210, .01959, .00661,
1065 + .00337, .01601, .03328 /
1066 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1067 + .42771, .14919, .21986, .01901, .00656,
1068 + .00344, .01559, .03219,
1069 + .41926, .14561, .20873, .01848, .00651,
1070 + .00349, .01519, .03117,
1071 + .41113, .14220, .19849, .01796, .00644,
1072 + .00354, .01481, .03021,
1073 + .40346, .13899, .18914, .01747, .00637,
1074 + .00358, .01445, .02932,
1075 + .39605, .13592, .18051, .01701, .00630,
1076 + .00359, .01410, .02847 /
1077 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1078 + .60821, .22551, .52438, .02384, .00223,
1079 + .00004, .01781, .04641,
1080 + .58337, .21344, .46819, .02274, .00315,
1081 + .00005, .01731, .04338,
1082 + .56104, .20292, .42079, .02170, .00375,
1083 + .00003, .01676, .04074,
1084 + .54092, .19363, .38073, .02073, .00417,
1085 + .00017, .01621, .03844,
1086 + .52254, .18532, .34643, .01982, .00447,
1087 + .00064, .01565, .03637,
1088 + .50561, .17781, .31679, .01900, .00468,
1089 + .00109, .01511, .03450,
1090 + .48993, .17102, .29105, .01825, .00480,
1091 + .00142, .01461, .03279 /
1092 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1093 + .47544, .16478, .26853, .01751, .00488,
1094 + .00169, .01412, .03127,
1095 + .46197, .15903, .24875, .01681, .00493,
1096 + .00190, .01365, .02988,
1097 + .44937, .15375, .23129, .01619, .00495,
1098 + .00208, .01320, .02861,
1099 + .43756, .14884, .21573, .01561, .00493,
1100 + .00220, .01279, .02742,
1101 + .42642, .14428, .20186, .01506, .00491,
1102 + .00229, .01239, .02635,
1103 + .41598, .14004, .18946, .01456, .00488,
1104 + .00237, .01201, .02535,
1105 + .40610, .13608, .17825, .01409, .00483,
1106 + .00244, .01165, .02441 /
1107 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1108 + .39678, .13234, .16813, .01363, .00478,
1109 + .00248, .01131, .02354,
1110 + .38801, .12882, .15898, .01319, .00473,
1111 + .00252, .01100, .02274,
1112 + .37959, .12552, .15062, .01279, .00466,
1113 + .00254, .01070, .02198,
1114 + .37167, .12242, .14301, .01242, .00460,
1115 + .00256, .01041, .02128,
1116 + .36402, .11947, .13602, .01206, .00454,
1117 + .00256, .01013, .02061 /
1118 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1119 + .58916, .20888, .44565, .01788, .00157,
1120 + -.00014, .01336, .03553,
1121 + .56157, .19648, .39243, .01695, .00230,
1122 + -.00014, .01296, .03297,
1123 + .53705, .18577, .34853, .01611, .00278,
1124 + -.00012, .01250, .03077,
1125 + .51519, .17638, .31209, .01531, .00309,
1126 + -.00001, .01203, .02889,
1127 + .49540, .16805, .28134, .01458, .00332,
1128 + .00036, .01158, .02719,
1129 + .47731, .16058, .25511, .01390, .00346,
1130 + .00072, .01115, .02569,
1131 + .46072, .15382, .23261, .01328, .00354,
1132 + .00098, .01073, .02433 /
1133 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1134 + .44543, .14767, .21314, .01270, .00359,
1135 + .00118, .01033, .02311,
1136 + .43129, .14205, .19618, .01217, .00362,
1137 + .00135, .00996, .02199,
1138 + .41817, .13689, .18132, .01168, .00362,
1139 + .00147, .00961, .02097,
1140 + .40588, .13214, .16824, .01124, .00360,
1141 + .00157, .00927, .02005,
1142 + .39442, .12771, .15662, .01081, .00357,
1143 + .00163, .00896, .01919,
1144 + .38373, .12361, .14629, .01040, .00355,
1145 + .00168, .00867, .01840,
1146 + .37363, .11979, .13705, .01003, .00351,
1147 + .00173, .00839, .01769 /
1148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1149 + .36411, .11622, .12873, .00970, .00346,
1150 + .00176, .00812, .01701,
1151 + .35518, .11289, .12124, .00939, .00342,
1152 + .00179, .00787, .01636,
1153 + .34667, .10974, .11445, .00908, .00336,
1154 + .00180, .00763, .01578,
1155 + .33867, .10679, .10830, .00880, .00331,
1156 + .00182, .00741, .01524,
1157 + .33100, .10400, .10268, .00852, .00326,
1158 + .00181, .00720, .01473 /
1159 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1160 + .56419, .19093, .37699, .01296, .00123,
1161 + -.00003, .01000, .02672,
1162 + .53441, .17856, .32759, .01227, .00176,
1163 + -.00003, .00964, .02468,
1164 + .50826, .16795, .28761, .01162, .00213,
1165 + -.00003, .00928, .02287,
1166 + .48514, .15872, .25497, .01102, .00236,
1167 + .00005, .00889, .02135,
1168 + .46437, .15057, .22780, .01047, .00250,
1169 + .00032, .00852, .02002,
1170 + .44555, .14331, .20490, .00996, .00260,
1171 + .00057, .00816, .01882,
1172 + .42839, .13675, .18544, .00949, .00265,
1173 + .00076, .00783, .01777 /
1174 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1175 + .41267, .13082, .16877, .00905, .00267,
1176 + .00092, .00752, .01681,
1177 + .39819, .12544, .15439, .00866, .00268,
1178 + .00103, .00722, .01594,
1179 + .38480, .12053, .14189, .00831, .00267,
1180 + .00111, .00695, .01514,
1181 + .37239, .11598, .13094, .00796, .00265,
1182 + .00117, .00668, .01443,
1183 + .36084, .11179, .12129, .00763, .00262,
1184 + .00121, .00643, .01378,
1185 + .35011, .10793, .11276, .00732, .00259,
1186 + .00124, .00620, .01319,
1187 + .34004, .10434, .10519, .00704, .00255,
1188 + .00127, .00598, .01263 /
1189 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1190 + .33056, .10098, .09842, .00678, .00251,
1191 + .00129, .00578, .01212,
1192 + .32166, .09786, .09235, .00654, .00247,
1193 + .00130, .00559, .01165,
1194 + .31324, .09493, .08688, .00631, .00242,
1195 + .00130, .00541, .01121,
1196 + .30535, .09220, .08193, .00610, .00238,
1197 + .00130, .00524, .01080,
1198 + .29782, .08959, .07743, .00591, .00234,
1199 + .00130, .00508, .01041 /
1200 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1201 + .53418, .17278, .31758, .00933, .00090,
1202 + -.00003, .00732, .01974,
1203 + .50291, .16067, .27239, .00882, .00134,
1204 + -.00003, .00705, .01807,
1205 + .47575, .15032, .23649, .00831, .00159,
1206 + -.00004, .00673, .01674,
1207 + .45190, .14140, .20756, .00786, .00175,
1208 + .00002, .00645, .01555,
1209 + .43061, .13358, .18380, .00745, .00186,
1210 + .00022, .00616, .01450,
1211 + .41147, .12662, .16404, .00707, .00193,
1212 + .00042, .00589, .01358,
1213 + .39412, .12039, .14740, .00671, .00196,
1214 + .00057, .00564, .01276 /
1215 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1216 + .37830, .11479, .13325, .00638, .00197,
1217 + .00066, .00538, .01204,
1218 + .36381, .10970, .12115, .00609, .00197,
1219 + .00074, .00515, .01139,
1220 + .35050, .10507, .11072, .00582, .00196,
1221 + .00082, .00495, .01080,
1222 + .33818, .10084, .10166, .00556, .00194,
1223 + .00085, .00475, .01025,
1224 + .32677, .09694, .09371, .00533, .00191,
1225 + .00088, .00457, .00975,
1226 + .31620, .09335, .08673, .00510, .00188,
1227 + .00091, .00440, .00930,
1228 + .30629, .09002, .08056, .00489, .00184,
1229 + .00091, .00423, .00890 /
1230 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1231 + .29702, .08692, .07508, .00470, .00181,
1232 + .00092, .00407, .00852,
1233 + .28837, .08404, .07019, .00453, .00178,
1234 + .00093, .00393, .00818,
1235 + .28019, .08134, .06581, .00438, .00174,
1236 + .00093, .00380, .00783,
1237 + .27254, .07883, .06186, .00424, .00171,
1238 + .00093, .00367, .00751,
1239 + .26529, .07645, .05829, .00408, .00167,
1240 + .00093, .00355, .00724 /
1241 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1242 + .50033, .15468, .26599, .00655, .00068,
1243 + .00000, .00529, .01428,
1244 + .46822, .14300, .22525, .00619, .00100,
1245 + .00000, .00508, .01306,
1246 + .44056, .13313, .19342, .00583, .00119,
1247 + .00000, .00485, .01202,
1248 + .41648, .12465, .16812, .00550, .00131,
1249 + .00005, .00462, .01111,
1250 + .39511, .11726, .14759, .00522, .00139,
1251 + .00020, .00440, .01032,
1252 + .37603, .11072, .13068, .00491, .00143,
1253 + .00033, .00420, .00965,
1254 + .35881, .10490, .11658, .00465, .00145,
1255 + .00043, .00400, .00903 /
1256 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1257 + .34320, .09967, .10471, .00442, .00145,
1258 + .00050, .00382, .00849,
1259 + .32898, .09496, .09464, .00420, .00144,
1260 + .00056, .00365, .00799,
1261 + .31596, .09069, .08602, .00402, .00143,
1262 + .00060, .00350, .00754,
1263 + .30397, .08678, .07856, .00382, .00141,
1264 + .00063, .00335, .00717,
1265 + .29286, .08321, .07208, .00366, .00138,
1266 + .00065, .00320, .00681,
1267 + .28261, .07993, .06643, .00351, .00134,
1268 + .00065, .00307, .00648,
1269 + .27311, .07688, .06146, .00336, .00133,
1270 + .00067, .00295, .00617 /
1271 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1272 + .26422, .07405, .05706, .00322, .00130,
1273 + .00068, .00283, .00590,
1274 + .25594, .07143, .05315, .00309, .00127,
1275 + .00068, .00272, .00566,
1276 + .24814, .06900, .04966, .00298, .00124,
1277 + .00067, .00263, .00540,
1278 + .24087, .06675, .04653, .00287, .00121,
1279 + .00066, .00254, .00516,
1280 + .23396, .06461, .04371, .00277, .00119,
1281 + .00066, .00245, .00496 /
1282 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1283 + .46362, .13696, .22134, .00446, .00053,
1284 + .00006, .00378, .01018,
1285 + .43129, .12594, .18514, .00423, .00076,
1286 + .00005, .00362, .00924,
1287 + .40368, .11665, .15723, .00399, .00090,
1288 + .00005, .00345, .00848,
1289 + .37979, .10874, .13536, .00377, .00098,
1290 + .00007, .00328, .00780,
1291 + .35876, .10187, .11783, .00355, .00103,
1292 + .00018, .00312, .00724,
1293 + .34005, .09581, .10350, .00335, .00106,
1294 + .00027, .00296, .00672,
1295 + .32326, .09045, .09169, .00318, .00106,
1296 + .00033, .00281, .00627 /
1297 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1298 + .30811, .08565, .08182, .00302, .00106,
1299 + .00039, .00268, .00588,
1300 + .29438, .08135, .07350, .00286, .00105,
1301 + .00043, .00255, .00554,
1302 + .28185, .07745, .06643, .00271, .00104,
1303 + .00045, .00244, .00523,
1304 + .27037, .07391, .06037, .00258, .00102,
1305 + .00047, .00233, .00494,
1306 + .25979, .07067, .05514, .00246, .00100,
1307 + .00047, .00222, .00468,
1308 + .25004, .06772, .05059, .00236, .00098,
1309 + .00048, .00213, .00444,
1310 + .24101, .06499, .04661, .00226, .00096,
1311 + .00049, .00204, .00421 /
1312 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1313 + .23259, .06247, .04310, .00218, .00094,
1314 + .00049, .00196, .00400,
1315 + .22477, .06015, .04000, .00210, .00091,
1316 + .00049, .00188, .00382,
1317 + .21745, .05796, .03725, .00201, .00089,
1318 + .00049, .00181, .00366,
1319 + .21065, .05593, .03479, .00192, .00087,
1320 + .00048, .00174, .00352,
1321 + .20421, .05404, .03259, .00185, .00084,
1322 + .00048, .00167, .00336 /
1323 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1324 + .42506, .12017, .18305, .00307, .00035,
1325 + .00002, .00260, .00709,
1326 + .39308, .10986, .15119, .00293, .00053,
1327 + .00001, .00251, .00641,
1328 + .36603, .10125, .12701, .00273, .00064,
1329 + .00001, .00238, .00587,
1330 + .34276, .09394, .10831, .00256, .00070,
1331 + .00004, .00227, .00540,
1332 + .32237, .08764, .09346, .00243, .00074,
1333 + .00012, .00215, .00499,
1334 + .30435, .08212, .08148, .00229, .00076,
1335 + .00019, .00203, .00461,
1336 + .28825, .07726, .07164, .00216, .00077,
1337 + .00024, .00193, .00430 /
1338 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1339 + .27379, .07293, .06351, .00205, .00077,
1340 + .00028, .00184, .00401,
1341 + .26072, .06904, .05674, .00194, .00076,
1342 + .00030, .00175, .00376,
1343 + .24886, .06555, .05102, .00185, .00074,
1344 + .00032, .00166, .00355,
1345 + .23802, .06238, .04613, .00178, .00072,
1346 + .00033, .00158, .00333,
1347 + .22810, .05949, .04193, .00168, .00070,
1348 + .00033, .00151, .00315,
1349 + .21899, .05684, .03831, .00160, .00069,
1350 + .00034, .00145, .00298,
1351 + .21055, .05443, .03516, .00153, .00067,
1352 + .00034, .00139, .00281 /
1353 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1354 + .20273, .05220, .03240, .00147, .00065,
1355 + .00034, .00133, .00267,
1356 + .19548, .05014, .02997, .00141, .00063,
1357 + .00034, .00127, .00254,
1358 + .18871, .04821, .02781, .00134, .00062,
1359 + .00034, .00122, .00244,
1360 + .18242, .04643, .02588, .00128, .00060,
1361 + .00034, .00117, .00234,
1362 + .17645, .04478, .02418, .00125, .00059,
1363 + .00033, .00113, .00223 /
1364 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1365 + .38548, .10424, .15013, .00204, .00027,
1366 + .00002, .00178, .00482,
1367 + .35446, .09478, .12249, .00196, .00040,
1368 + .00002, .00171, .00436,
1369 + .32832, .08694, .10182, .00184, .00045,
1370 + .00002, .00162, .00399,
1371 + .30601, .08032, .08603, .00173, .00049,
1372 + .00003, .00153, .00365,
1373 + .28659, .07463, .07361, .00165, .00052,
1374 + .00010, .00146, .00336,
1375 + .26947, .06967, .06369, .00156, .00053,
1376 + .00014, .00137, .00311,
1377 + .25427, .06531, .05562, .00148, .00053,
1378 + .00017, .00130, .00289 /
1379 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1380 + .24069, .06145, .04900, .00140, .00052,
1381 + .00019, .00123, .00269,
1382 + .22848, .05800, .04351, .00133, .00051,
1383 + .00020, .00117, .00251,
1384 + .21745, .05490, .03891, .00126, .00050,
1385 + .00021, .00111, .00235,
1386 + .20741, .05210, .03500, .00119, .00049,
1387 + .00022, .00105, .00222,
1388 + .19820, .04956, .03168, .00113, .00048,
1389 + .00023, .00100, .00209,
1390 + .18977, .04724, .02882, .00109, .00047,
1391 + .00023, .00095, .00198,
1392 + .18204, .04512, .02633, .00103, .00045,
1393 + .00023, .00091, .00187 /
1394 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1395 + .17486, .04318, .02418, .00099, .00044,
1396 + .00023, .00087, .00178,
1397 + .16821, .04139, .02229, .00095, .00042,
1398 + .00023, .00083, .00170,
1399 + .16204, .03973, .02062, .00090, .00042,
1400 + .00022, .00080, .00161,
1401 + .15633, .03819, .01914, .00086, .00041,
1402 + .00022, .00077, .00152,
1403 + .15092, .03675, .01783, .00084, .00040,
1404 + .00021, .00074, .00145 /
1405 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1406 + .34571, .08937, .12198, .00130, .00020,
1407 + .00004, .00120, .00324,
1408 + .31607, .08080, .09830, .00124, .00029,
1409 + .00004, .00116, .00290,
1410 + .29123, .07373, .08083, .00118, .00034,
1411 + .00004, .00110, .00264,
1412 + .27013, .06781, .06760, .00113, .00037,
1413 + .00006, .00105, .00241,
1414 + .25191, .06275, .05734, .00105, .00038,
1415 + .00008, .00099, .00222,
1416 + .23591, .05836, .04922, .00100, .00039,
1417 + .00011, .00094, .00205,
1418 + .22178, .05451, .04269, .00095, .00038,
1419 + .00014, .00089, .00189 /
1420 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1421 + .20922, .05111, .03736, .00089, .00039,
1422 + .00015, .00084, .00175,
1423 + .19795, .04809, .03297, .00084, .00038,
1424 + .00016, .00079, .00164,
1425 + .18778, .04538, .02933, .00081, .00036,
1426 + .00016, .00074, .00154,
1427 + .17859, .04295, .02625, .00077, .00035,
1428 + .00016, .00071, .00144,
1429 + .17021, .04074, .02364, .00072, .00034,
1430 + .00017, .00068, .00136,
1431 + .16255, .03874, .02141, .00068, .00033,
1432 + .00017, .00064, .00128,
1433 + .15549, .03693, .01949, .00067, .00033,
1434 + .00017, .00062, .00119 /
1435 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1436 + .14900, .03525, .01783, .00065, .00032,
1437 + .00017, .00059, .00113,
1438 + .14304, .03370, .01637, .00061, .00030,
1439 + .00016, .00056, .00108,
1440 + .13748, .03227, .01509, .00057, .00030,
1441 + .00016, .00054, .00103,
1442 + .13235, .03096, .01396, .00054, .00029,
1443 + .00016, .00051, .00098,
1444 + .12751, .02974, .01297, .00053, .00028,
1445 + .00016, .00049, .00093 /
1446 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1447 + .30661, .07579, .09819, .00083, .00014,
1448 + .00004, .00079, .00210,
1449 + .27860, .06813, .07808, .00078, .00021,
1450 + .00002, .00077, .00189,
1451 + .25535, .06184, .06347, .00075, .00025,
1452 + .00003, .00074, .00172,
1453 + .23575, .05660, .05257, .00069, .00027,
1454 + .00003, .00071, .00157,
1455 + .21886, .05214, .04419, .00065, .00029,
1456 + .00006, .00067, .00143,
1457 + .20414, .04830, .03763, .00062, .00029,
1458 + .00008, .00063, .00131,
1459 + .19121, .04494, .03240, .00057, .00029,
1460 + .00010, .00059, .00123 /
1461 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1462 + .17973, .04198, .02817, .00053, .00028,
1463 + .00011, .00056, .00115,
1464 + .16947, .03937, .02472, .00051, .00027,
1465 + .00012, .00053, .00106,
1466 + .16028, .03705, .02185, .00049, .00028,
1467 + .00013, .00051, .00098,
1468 + .15200, .03496, .01946, .00045, .00026,
1469 + .00014, .00047, .00093,
1470 + .14442, .03308, .01745, .00044, .00025,
1471 + .00013, .00045, .00086,
1472 + .13754, .03138, .01573, .00043, .00025,
1473 + .00013, .00043, .00081,
1474 + .13127, .02982, .01426, .00039, .00024,
1475 + .00013, .00041, .00076 /
1476 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1477 + .12549, .02840, .01300, .00036, .00023,
1478 + .00013, .00040, .00072,
1479 + .12018, .02709, .01190, .00035, .00022,
1480 + .00013, .00038, .00068,
1481 + .11524, .02589, .01093, .00034, .00022,
1482 + .00013, .00036, .00065,
1483 + .11069, .02478, .01008, .00033, .00021,
1484 + .00012, .00035, .00062,
1485 + .10644, .02375, .00934, .00031, .00020,
1486 + .00012, .00033, .00059 /
1487 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1488 + .26878, .06359, .07832, .00057, .00005,
1489 + -.00001, .00047, .00134,
1490 + .24281, .05684, .06152, .00056, .00011,
1491 + -.00002, .00046, .00121,
1492 + .22137, .05135, .04950, .00054, .00014,
1493 + -.00002, .00044, .00110,
1494 + .20344, .04679, .04061, .00050, .00016,
1495 + .00000, .00042, .00099,
1496 + .18808, .04293, .03385, .00046, .00017,
1497 + .00001, .00041, .00091,
1498 + .17473, .03961, .02861, .00043, .00017,
1499 + .00003, .00038, .00085,
1500 + .16306, .03674, .02446, .00040, .00017,
1501 + .00004, .00036, .00078 /
1502 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1503 + .15274, .03422, .02113, .00038, .00017,
1504 + .00006, .00034, .00072,
1505 + .14357, .03199, .01843, .00036, .00017,
1506 + .00007, .00032, .00067,
1507 + .13536, .03001, .01621, .00035, .00016,
1508 + .00007, .00031, .00063,
1509 + .12798, .02824, .01436, .00032, .00015,
1510 + .00007, .00029, .00059,
1511 + .12130, .02665, .01282, .00030, .00014,
1512 + .00006, .00027, .00055,
1513 + .11523, .02522, .01151, .00030, .00014,
1514 + .00006, .00026, .00051,
1515 + .10968, .02390, .01040, .00029, .00014,
1516 + .00007, .00025, .00049 /
1517 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1518 + .10460, .02271, .00945, .00028, .00014,
1519 + .00007, .00024, .00046,
1520 + .09996, .02163, .00861, .00026, .00013,
1521 + .00007, .00022, .00043,
1522 + .09565, .02063, .00789, .00025, .00012,
1523 + .00006, .00021, .00041,
1524 + .09169, .01972, .00726, .00023, .00012,
1525 + .00006, .00020, .00039,
1526 + .08798, .01886, .00670, .00023, .00011,
1527 + .00006, .00019, .00037 /
1528 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1529 + .23244, .05247, .06152, .00028, .00007,
1530 + .00002, .00033, .00082,
1531 + .20874, .04663, .04770, .00030, .00010,
1532 + .00003, .00032, .00074,
1533 + .18930, .04191, .03797, .00028, .00012,
1534 + .00002, .00029, .00068,
1535 + .17310, .03801, .03085, .00027, .00013,
1536 + .00002, .00029, .00061,
1537 + .15930, .03473, .02548, .00027, .00013,
1538 + .00003, .00027, .00056,
1539 + .14740, .03193, .02136, .00025, .00013,
1540 + .00004, .00025, .00051,
1541 + .13700, .02950, .01813, .00025, .00012,
1542 + .00004, .00023, .00047 /
1543 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1544 + .12787, .02738, .01557, .00024, .00012,
1545 + .00005, .00022, .00044,
1546 + .11980, .02552, .01350, .00022, .00012,
1547 + .00006, .00021, .00042,
1548 + .11262, .02387, .01180, .00020, .00011,
1549 + .00006, .00020, .00039,
1550 + .10614, .02240, .01041, .00020, .00010,
1551 + .00005, .00019, .00036,
1552 + .10030, .02108, .00924, .00020, .00010,
1553 + .00005, .00018, .00033,
1554 + .09503, .01989, .00827, .00019, .00010,
1555 + .00005, .00017, .00031,
1556 + .09024, .01881, .00743, .00017, .00010,
1557 + .00005, .00016, .00030 /
1558 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1559 + .08585, .01783, .00672, .00016, .00009,
1560 + .00005, .00015, .00028,
1561 + .08184, .01694, .00611, .00016, .00009,
1562 + .00005, .00014, .00026,
1563 + .07814, .01612, .00558, .00015, .00008,
1564 + .00005, .00014, .00025,
1565 + .07475, .01537, .00511, .00014, .00008,
1566 + .00005, .00013, .00023,
1567 + .07158, .01468, .00471, .00013, .00008,
1568 + .00005, .00012, .00022 /
1569 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1570 + .19831, .04271, .04770, .00015, .00006,
1571 + .00003, .00021, .00049,
1572 + .17704, .03772, .03651, .00015, .00008,
1573 + .00004, .00021, .00044,
1574 + .15966, .03374, .02872, .00015, .00009,
1575 + .00003, .00019, .00041,
1576 + .14528, .03045, .02309, .00015, .00010,
1577 + .00003, .00018, .00037,
1578 + .13312, .02770, .01890, .00012, .00009,
1579 + .00003, .00017, .00035,
1580 + .12264, .02536, .01572, .00013, .00009,
1581 + .00004, .00016, .00032,
1582 + .11355, .02334, .01324, .00013, .00009,
1583 + .00004, .00016, .00029 /
1584 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1585 + .10559, .02159, .01128, .00013, .00009,
1586 + .00004, .00015, .00026,
1587 + .09856, .02005, .00972, .00013, .00008,
1588 + .00004, .00014, .00024,
1589 + .09234, .01870, .00846, .00012, .00008,
1590 + .00004, .00013, .00024,
1591 + .08679, .01749, .00741, .00011, .00008,
1592 + .00004, .00012, .00021,
1593 + .08179, .01641, .00655, .00010, .00007,
1594 + .00004, .00012, .00020,
1595 + .07728, .01544, .00583, .00009, .00007,
1596 + .00004, .00011, .00019,
1597 + .07318, .01457, .00523, .00009, .00007,
1598 + .00004, .00010, .00017 /
1599 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1600 + .06944, .01378, .00471, .00009, .00007,
1601 + .00004, .00010, .00016,
1602 + .06604, .01305, .00426, .00009, .00006,
1603 + .00004, .00009, .00016,
1604 + .06289, .01239, .00388, .00009, .00006,
1605 + .00004, .00009, .00015,
1606 + .06001, .01179, .00355, .00009, .00006,
1607 + .00004, .00008, .00014,
1608 + .05735, .01123, .00326, .00008, .00006,
1609 + .00003, .00008, .00013 /
1610 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1611 + .16694, .03433, .03654, .00011, .00002,
1612 + .00000, .00011, .00029,
1613 + .14812, .03014, .02760, .00009, .00004,
1614 + .00000, .00011, .00025,
1615 + .13284, .02682, .02146, .00011, .00005,
1616 + .00000, .00010, .00024,
1617 + .12028, .02409, .01708, .00010, .00005,
1618 + .00001, .00010, .00022,
1619 + .10968, .02181, .01385, .00011, .00005,
1620 + .00001, .00010, .00020,
1621 + .10063, .01989, .01142, .00010, .00005,
1622 + .00001, .00009, .00018,
1623 + .09282, .01824, .00955, .00008, .00005,
1624 + .00002, .00009, .00018 /
1625 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1626 + .08601, .01681, .00809, .00008, .00005,
1627 + .00002, .00008, .00016,
1628 + .08002, .01556, .00692, .00008, .00005,
1629 + .00002, .00008, .00014,
1630 + .07472, .01446, .00599, .00007, .00004,
1631 + .00002, .00007, .00014,
1632 + .07000, .01349, .00522, .00008, .00004,
1633 + .00002, .00006, .00012,
1634 + .06577, .01262, .00460, .00008, .00004,
1635 + .00002, .00006, .00012,
1636 + .06197, .01185, .00407, .00007, .00004,
1637 + .00002, .00006, .00011,
1638 + .05852, .01115, .00363, .00008, .00004,
1639 + .00002, .00006, .00010 /
1640 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1641 + .05539, .01051, .00326, .00007, .00004,
1642 + .00002, .00005, .00010,
1643 + .05255, .00994, .00294, .00007, .00003,
1644 + .00002, .00005, .00008,
1645 + .04994, .00942, .00267, .00006, .00003,
1646 + .00002, .00005, .00008,
1647 + .04756, .00894, .00243, .00005, .00003,
1648 + .00001, .00004, .00008,
1649 + .04536, .00850, .00223, .00005, .00003,
1650 + .00002, .00004, .00008 /
1651 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1652 + .13809, .02701, .02739, .00002, .00003,
1653 + .00002, .00008, .00015,
1654 + .12169, .02358, .02042, .00004, .00004,
1655 + .00003, .00008, .00013,
1656 + .10853, .02085, .01567, .00004, .00005,
1657 + .00002, .00007, .00013,
1658 + .09775, .01864, .01235, .00004, .00004,
1659 + .00002, .00007, .00012,
1660 + .08873, .01681, .00992, .00004, .00004,
1661 + .00002, .00007, .00011,
1662 + .08106, .01526, .00811, .00004, .00004,
1663 + .00002, .00006, .00010,
1664 + .07444, .01393, .00672, .00005, .00004,
1665 + .00002, .00006, .00009 /
1666 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1667 + .06871, .01279, .00565, .00004, .00004,
1668 + .00002, .00006, .00009,
1669 + .06370, .01180, .00481, .00004, .00003,
1670 + .00002, .00005, .00008,
1671 + .05928, .01094, .00413, .00005, .00003,
1672 + .00002, .00004, .00007,
1673 + .05535, .01017, .00358, .00005, .00003,
1674 + .00002, .00005, .00006,
1675 + .05185, .00948, .00314, .00004, .00003,
1676 + .00002, .00004, .00006,
1677 + .04872, .00888, .00277, .00003, .00003,
1678 + .00002, .00004, .00006,
1679 + .04589, .00833, .00246, .00004, .00003,
1680 + .00002, .00004, .00005 /
1681 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1682 + .04333, .00784, .00220, .00003, .00003,
1683 + .00002, .00004, .00005,
1684 + .04100, .00739, .00198, .00002, .00003,
1685 + .00002, .00003, .00005,
1686 + .03886, .00698, .00179, .00003, .00003,
1687 + .00002, .00003, .00005,
1688 + .03690, .00662, .00162, .00004, .00003,
1689 + .00002, .00003, .00004,
1690 + .03511, .00628, .00148, .00003, .00002,
1691 + .00001, .00003, .00004 /
1692 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1693 + .08966, .01586, .01459, .00001, .00001,
1694 + .00000, .00001, .00005,
1695 + .07796, .01367, .01055, .00001, .00001,
1696 + .00000, .00002, .00005,
1697 + .06870, .01195, .00790, .00002, .00001,
1698 + .00000, .00002, .00004,
1699 + .06121, .01057, .00608, .00001, .00001,
1700 + .00000, .00002, .00003,
1701 + .05500, .00943, .00479, .00001, .00001,
1702 + .00000, .00002, .00003,
1703 + .04978, .00848, .00384, .00001, .00001,
1704 + .00001, .00002, .00003,
1705 + .04532, .00768, .00313, .00002, .00001,
1706 + .00001, .00002, .00003 /
1707 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1708 + .04150, .00700, .00260, .00002, .00001,
1709 + .00001, .00002, .00003,
1710 + .03818, .00641, .00218, .00002, .00001,
1711 + .00001, .00002, .00003,
1712 + .03527, .00589, .00185, .00001, .00001,
1713 + .00001, .00002, .00003,
1714 + .03273, .00544, .00159, .00001, .00001,
1715 + .00001, .00001, .00002,
1716 + .03047, .00505, .00137, .00001, .00001,
1717 + .00001, .00001, .00002,
1718 + .02845, .00469, .00120, .00001, .00001,
1719 + .00000, .00001, .00002,
1720 + .02664, .00438, .00106, .00000, .00001,
1721 + .00000, .00001, .00001 /
1722 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1723 + .02501, .00410, .00094, .00001, .00001,
1724 + .00000, .00001, .00001,
1725 + .02354, .00384, .00084, .00001, .00001,
1726 + .00000, .00001, .00001,
1727 + .02220, .00361, .00075, .00001, .00001,
1728 + .00000, .00001, .00001,
1729 + .02100, .00341, .00068, .00000, .00001,
1730 + .00000, .00001, .00001,
1731 + .01987, .00322, .00062, .00001, .00001,
1732 + .00001, .00001, .00001 /
1733 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1734 + .05321, .00844, .00701, .00001, .00000,
1735 + .00000, .00000, .00001,
1736 + .04558, .00717, .00491, .00001, .00000,
1737 + .00000, .00000, .00002,
1738 + .03967, .00619, .00358, .00001, .00000,
1739 + .00000, .00001, .00000,
1740 + .03492, .00541, .00269, .00001, .00000,
1741 + .00000, .00000, .00001,
1742 + .03105, .00478, .00207, .00000, .00000,
1743 + .00000, .00000, .00001,
1744 + .02782, .00426, .00163, .00000, .00000,
1745 + .00000, .00000, .00001,
1746 + .02510, .00382, .00131, .00000, .00000,
1747 + .00000, .00001, .00001 /
1748 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1749 + .02279, .00345, .00106, .00000, .00000,
1750 + .00000, .00000, .00001,
1751 + .02080, .00313, .00088, .00000, .00000,
1752 + .00000, .00000, .00001,
1753 + .01907, .00286, .00074, .00000, .00000,
1754 + .00000, .00000, .00001,
1755 + .01755, .00262, .00063, .00001, .00000,
1756 + .00000, .00000, .00001,
1757 + .01622, .00242, .00054, .00000, .00000,
1758 + .00000, .00000, .00000,
1759 + .01505, .00223, .00046, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .01400, .00207, .00040, .00000, .00000,
1762 + .00000, .00000, .00000 /
1763 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1764 + .01307, .00193, .00036, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .01223, .00180, .00031, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .01147, .00168, .00028, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .01079, .00158, .00025, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .01016, .00148, .00023, .00000, .00000,
1773 + .00000, .00000, .00000 /
1774 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1775 + .02805, .00394, .00293, .00001, .00000,
1776 + .00000, .00000, .00000,
1777 + .02364, .00330, .00198, .00000, .00000,
1778 + .00000, .00000, .00000,
1779 + .02028, .00280, .00140, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01762, .00242, .00102, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01547, .00211, .00077, .00001, .00000,
1784 + .00000, .00000, .00000,
1785 + .01371, .00186, .00059, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01224, .00165, .00047, .00000, .00000,
1788 + .00000, .00000, .00000 /
1789 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1790 + .01100, .00148, .00037, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00995, .00133, .00030, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00904, .00121, .00025, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00826, .00110, .00021, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00757, .00100, .00018, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00698, .00092, .00015, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00644, .00085, .00013, .00000, .00000,
1803 + .00000, .00000, .00000 /
1804 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1805 + .00597, .00078, .00011, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00555, .00073, .00010, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00518, .00067, .00009, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00484, .00063, .00008, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00453, .00059, .00007, .00000, .00000,
1814 + .00000, .00000, .00000 /
1815 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1816 + .01243, .00151, .00099, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01029, .00124, .00065, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00867, .00104, .00044, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00742, .00088, .00031, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00643, .00076, .00023, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00562, .00066, .00017, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00496, .00058, .00013, .00000, .00000,
1829 + .00000, .00000, .00000 /
1830 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1831 + .00441, .00052, .00010, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00394, .00046, .00008, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00355, .00041, .00007, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00321, .00037, .00006, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00292, .00034, .00005, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00266, .00031, .00004, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00244, .00028, .00003, .00000, .00000,
1844 + .00000, .00000, .00000 /
1845 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1846 + .00225, .00026, .00003, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00207, .00024, .00003, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00192, .00022, .00002, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00178, .00020, .00002, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00166, .00019, .00002, .00000, .00000,
1855 + .00000, .00000, .00000 /
1856 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1857 + .00090, .00007, .00003, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00070, .00006, .00002, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00057, .00005, .00001, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00046, .00004, .00001, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00039, .00003, .00001, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00032, .00003, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00028, .00002, .00000, .00000, .00000,
1870 + .00000, .00000, .00000 /
1871 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1872 + .00024, .00002, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00021, .00002, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00018, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00016, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00014, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00013, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00011, .00001, .00000, .00000, .00000,
1885 + .00000, .00000, .00000 /
1886 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1887 + .00010, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00009, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00008, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00007, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00007, .00001, .00000, .00000, .00000,
1896 + .00000, .00000, .00000 /
1897 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1898 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1899 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1900 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1901 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1902 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1903 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1904 . .8D0,.9D0,1.D0/
1905 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1906 DATA N0/2,5,5,9,0,0,9,9/
1907 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1908 DATA INIT/0/
1909C
1910 xsave=x
1911C
1912 IF(INIT.NE.0) GOTO 10
1913 INIT=1
1914 DO 20 N=1,NX-1
1915 DO 20 M=1,19
1916C READ(55,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1917C . F(6,N,M),F(8,N,M)
1918C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1919 DO 25 I=1,8
1920 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1921 20 CONTINUE
1922 DO 31 J=1,NTENTH-1
1923 XX(J)= LOG10(XX(J))+ONEDO
1924 DO 31 I=1,8
1925 IF(I.EQ.7) GO TO 31
1926 DO 30 K=1,19
1927 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1928 31 CONTINUE
1929 50 FORMAT(8F10.5)
1930 DO 40 I=1,8
1931 DO 40 M=1,19
1932 40 F(I,NX,M)=ZEROD
1933 10 CONTINUE
1934 IF(X.LT.XMIN) X=XMIN
1935 IF(X.GT.XMAX) X=XMAX
1936 QSQ=SCALE**2
1937 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1938 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1939 XXX=X
1940 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1941 N=0
1942 70 N=N+1
1943 IF(XXX.GT.XX(N+1)) GOTO 70
1944 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1945 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1946 B=RM-AINT(RM)
1947 M=1+ INT(RM)
1948 DO 60 I=1,8
1949 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1950 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1951 IF(N.GE.NTENTH) GOTO 65
1952 IF(I.EQ.7) GOTO 65
1953 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1954 G(I)=FAC**(G(I)/FAC)
1955 65 CONTINUE
1956 G(I)=G(I)*(ONED-X)**N0(I)
1957 60 CONTINUE
1958 UPV=G(1)
1959 DNV=G(2)
1960 USEA=G(4)
1961 DSEA=G(8)
1962 STR=G(6)
1963 CHM=G(5)
1964 GLU=G(3)
1965 BOT=G(7)
1966C
1967 x=xsave
1968C
1969 RETURN
1970 END