]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms120.F
Changes needed on Mac (F.Carminati)
[u/mrichter/AliRoot.git] / PDF / spdf / sfms120.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS120(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.120 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 + .00273, .00548, 13.49467, 1.08774, .16677,
13 + .00000, .60749, 1.09192,
14 + .00321, .00572, 25.89590, 1.49672, .58806,
15 + .00000, 1.02362, 1.50160,
16 + .00365, .00594, 41.09657, 1.98438, 1.08613,
17 + .00000, 1.51736, 1.98989,
18 + .00405, .00615, 58.73158, 2.54056, 1.65134,
19 + .28907, 2.07884, 2.54662,
20 + .00443, .00635, 78.44312, 3.15943, 2.27822,
21 + .96054, 2.70243, 3.16599,
22 + .00480, .00654, 100.03658, 3.83656, 2.96260,
23 + 1.66242, 3.38385, 3.84360,
24 + .00514, .00672, 123.04382, 4.56165, 3.69428,
25 + 2.41066, 4.11284, 4.56913 /
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 + .00547, .00690, 147.32309, 5.33045, 4.46915,
28 + 3.20079, 4.88525, 5.33834,
29 + .00579, .00707, 172.69366, 6.13834, 5.28265,
30 + 4.02826, 5.69649, 6.14663,
31 + .00610, .00723, 198.98749, 6.98102, 6.13055,
32 + 4.88908, 6.54229, 6.98968,
33 + .00639, .00739, 225.89227, 7.85099, 7.00539,
34 + 5.77593, 7.41517, 7.86000,
35 + .00668, .00754, 253.36957, 8.74664, 7.90563,
36 + 6.68737, 8.31357, 8.75598,
37 + .00696, .00769, 281.39920, 9.66700, 8.83030,
38 + 7.62254, 9.23652, 9.67666,
39 + .00723, .00784, 309.95297, 10.61105, 9.77843,
40 + 8.58053, 10.18302, 10.62102 /
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 + .00749, .00798, 338.58713, 11.56781, 10.73906,
43 + 9.55048, 11.14211, 11.57807,
44 + .00775, .00812, 367.49585, 12.54131, 11.71625,
45 + 10.53649, 12.11783, 12.55186,
46 + .00800, .00825, 396.82361, 13.53482, 12.71327,
47 + 11.54186, 13.11345, 13.54565,
48 + .00824, .00839, 425.82990, 14.52968, 13.71148,
49 + 12.54803, 14.11033, 14.54076,
50 + .00848, .00852, 455.29865, 15.54486, 14.72987,
51 + 13.57400, 15.12744, 15.55620 /
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 + .00440, .00701, 11.98568, .97989, .14426,
54 + .00000, .54292, .98369,
55 + .00507, .00735, 22.07285, 1.31803, .49385,
56 + .00000, .88751, 1.32231,
57 + .00568, .00767, 34.02595, 1.71097, .89646,
58 + .00000, 1.28591, 1.71566,
59 + .00624, .00797, 47.53143, 2.14986, 1.34373,
60 + .22828, 1.72956, 2.15493,
61 + .00677, .00825, 62.30047, 2.62970, 1.83102,
62 + .75237, 2.21363, 2.63512,
63 + .00727, .00851, 78.18016, 3.14679, 2.35482,
64 + 1.29126, 2.73455, 3.15253,
65 + .00775, .00877, 94.82214, 3.69309, 2.90724,
66 + 1.85790, 3.28435, 3.69913 /
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 + .00820, .00901, 112.12962, 4.26543, 3.48519,
69 + 2.44895, 3.85990, 4.27174,
70 + .00864, .00924, 129.97926, 4.86039, 4.08533,
71 + 3.06108, 4.45783, 4.86696,
72 + .00906, .00947, 148.25876, 5.47486, 4.70462,
73 + 3.69146, 5.07507, 5.48168,
74 + .00947, .00968, 166.75540, 6.10346, 5.33772,
75 + 4.33485, 5.70625, 6.11051,
76 + .00986, .00989, 185.45454, 6.74518, 5.98368,
77 + 4.99041, 6.35041, 6.75246,
78 + .01024, .01010, 204.35214, 7.39950, 6.64198,
79 + 5.65770, 7.00702, 7.40699,
80 + .01061, .01029, 223.43745, 8.06582, 7.31206,
81 + 6.33623, 7.67551, 8.07352 /
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 + .01097, .01049, 242.41223, 8.73641, 7.98621,
84 + 7.01836, 8.34815, 8.74430,
85 + .01132, .01067, 261.42172, 9.41435, 8.66754,
86 + 7.70724, 9.02805, 9.42242,
87 + .01166, .01085, 280.57239, 10.10213, 9.35855,
88 + 8.40540, 9.71769, 10.11038,
89 + .01199, .01103, 299.36771, 10.78663, 10.04614,
90 + 9.09981, 10.40397, 10.79506,
91 + .01231, .01121, 318.34900, 11.48151, 10.74398,
92 + 9.80412, 11.10056, 11.49011 /
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 + .00689, .00896, 10.64206, .88214, .12452,
95 + .00000, .48503, .88572,
96 + .00783, .00946, 18.80727, 1.16024, .41333,
97 + .00000, .76901, 1.16415,
98 + .00868, .00991, 28.16027, 1.47515, .73727,
99 + .00000, 1.08888, 1.47934,
100 + .00946, .01033, 38.45005, 1.81962, 1.08956,
101 + .17948, 1.43766, 1.82405,
102 + .01020, .01072, 49.45632, 2.18964, 1.46653,
103 + .58676, 1.81151, 2.19430,
104 + .01089, .01109, 61.06856, 2.58235, 1.86549,
105 + .99869, 2.20767, 2.58722,
106 + .01155, .01144, 73.03525, 2.99166, 2.28050,
107 + 1.42589, 2.62013, 2.99673 /
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 + .01218, .01177, 85.29709, 3.41534, 2.70940,
110 + 1.86600, 3.04670, 3.42058,
111 + .01279, .01209, 97.77499, 3.85099, 3.14988,
112 + 2.31673, 3.48502, 3.85640,
113 + .01337, .01240, 110.39864, 4.29647, 3.59984,
114 + 2.77617, 3.93298, 4.30204,
115 + .01392, .01270, 123.02710, 4.74800, 4.05555,
116 + 3.24069, 4.38683, 4.75372,
117 + .01446, .01298, 135.66132, 5.20505, 4.51654,
118 + 3.70988, 4.84606, 5.21092,
119 + .01498, .01326, 148.30818, 5.66743, 4.98261,
120 + 4.18364, 5.31049, 5.67343,
121 + .01549, .01353, 160.96828, 6.13486, 5.45353,
122 + 4.66178, 5.77986, 6.14099 /
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 + .01597, .01378, 173.44341, 6.60194, 5.92392,
125 + 5.13898, 6.24877, 6.60820,
126 + .01645, .01404, 185.84245, 7.07107, 6.39620,
127 + 5.61770, 6.71965, 7.07745,
128 + .01691, .01428, 198.24471, 7.54418, 6.87230,
129 + 6.09991, 7.19442, 7.55068,
130 + .01736, .01452, 210.31915, 8.01209, 7.34307,
131 + 6.57649, 7.66392, 8.01869,
132 + .01780, .01475, 222.43936, 8.48461, 7.81833,
133 + 7.05728, 8.13797, 8.49133 /
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 + .00887, .01036, 9.92440, .82913, .11412,
136 + .00000, .45396, .83270,
137 + .01001, .01097, 17.12054, 1.07647, .37178,
138 + .00000, .70689, 1.08030,
139 + .01105, .01152, 25.20106, 1.35231, .65633,
140 + .00000, .98745, 1.35636,
141 + .01200, .01203, 33.95230, 1.65038, .96193,
142 + .15554, 1.28960, 1.65462,
143 + .01290, .01250, 43.19118, 1.96726, 1.28550,
144 + .50615, 1.61011, 1.97168,
145 + .01374, .01295, 52.83006, 2.30056, 1.62482,
146 + .85733, 1.94668, 2.30515,
147 + .01454, .01337, 62.66437, 2.64520, 1.97494,
148 + 1.21858, 2.29431, 2.64994 /
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 + .01530, .01377, 72.65254, 2.99942, 2.33419,
151 + 1.58804, 2.65126, 3.00430,
152 + .01603, .01416, 82.73607, 3.36131, 2.70072,
153 + 1.96393, 3.01568, 3.36632,
154 + .01672, .01453, 92.86338, 3.72921, 3.07293,
155 + 2.34477, 3.38592, 3.73434,
156 + .01740, .01488, 102.92542, 4.10006, 3.44781,
157 + 2.72767, 3.75896, 4.10531,
158 + .01804, .01522, 112.92944, 4.47357, 3.82510,
159 + 3.11243, 4.13453, 4.47894,
160 + .01867, .01555, 122.88632, 4.84968, 4.20476,
161 + 3.49910, 4.51258, 4.85515,
162 + .01927, .01587, 132.80104, 5.22826, 4.58671,
163 + 3.88761, 4.89299, 5.23384 /
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 + .01985, .01618, 142.51822, 5.60497, 4.96659,
166 + 4.27370, 5.27143, 5.61064,
167 + .02042, .01648, 152.13029, 5.98186, 5.34651,
168 + 4.65948, 5.64997, 5.98763,
169 + .02097, .01677, 161.70389, 6.36061, 5.72814,
170 + 5.04667, 6.03029, 6.36647,
171 + .02151, .01705, 170.97856, 6.73379, 6.10407,
172 + 5.42788, 6.40497, 6.73974,
173 + .02203, .01732, 180.25485, 7.10949, 6.48240,
174 + 5.81125, 6.78210, 7.11553 /
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 + .01057, .01148, 9.44303, .79322, .10721,
177 + .00000, .43306, .79684,
178 + .01189, .01219, 16.01293, 1.02047, .34453,
179 + .00000, .66572, 1.02432,
180 + .01308, .01282, 23.28651, 1.27119, .60374,
181 + .00000, .92100, 1.27523,
182 + .01418, .01340, 31.07592, 1.53975, .87966,
183 + .14035, 1.19352, 1.54396,
184 + .01520, .01395, 39.22272, 1.82317, 1.16960,
185 + .45521, 1.48045, 1.82753,
186 + .01617, .01446, 47.65421, 2.11939, 1.47169,
187 + .76842, 1.77982, 2.12389,
188 + .01708, .01494, 56.19510, 2.42395, 1.78160,
189 + 1.08874, 2.08726, 2.42858 /
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 + .01795, .01540, 64.81468, 2.73539, 2.09794,
192 + 1.41464, 2.40134, 2.74014,
193 + .01878, .01584, 73.46676, 3.05212, 2.41920,
194 + 1.74465, 2.72051, 3.05699,
195 + .01958, .01626, 82.11100, 3.37276, 2.74404,
196 + 2.07758, 3.04342, 3.37774,
197 + .02035, .01666, 90.65715, 3.69472, 3.06993,
198 + 2.41096, 3.36749, 3.69980,
199 + .02108, .01705, 99.11568, 4.01782, 3.39672,
200 + 2.74474, 3.69258, 4.02300,
201 + .02179, .01742, 107.49963, 4.34209, 3.72445,
202 + 3.07902, 4.01872, 4.34736,
203 + .02248, .01778, 115.81633, 4.66749, 4.05312,
204 + 3.41384, 4.34588, 4.67285 /
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 + .02314, .01813, 123.93544, 4.99029, 4.37902,
207 + 3.74553, 4.67034, 4.99573,
208 + .02379, .01847, 131.93890, 5.31236, 4.70404,
209 + 4.07604, 4.99401, 5.31788,
210 + .02441, .01879, 139.88594, 5.63519, 5.02968,
211 + 4.40687, 5.31835, 5.64079,
212 + .02502, .01911, 147.55693, 5.95242, 5.34958,
213 + 4.73172, 5.63702, 5.95809,
214 + .02561, .01942, 155.20944, 6.27109, 5.67082,
215 + 5.05765, 5.95707, 6.27684 /
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 + .01208, .01244, 9.08447, .76627, .10210,
218 + .00000, .41745, .76997,
219 + .01356, .01323, 15.20084, .97887, .32459,
220 + .00000, .63534, .98277,
221 + .01489, .01394, 21.89812, 1.21145, .56551,
222 + .00000, .87238, 1.21553,
223 + .01611, .01458, 29.00785, 1.45891, .82019,
224 + .12950, 1.12370, 1.46314,
225 + .01725, .01519, 36.38956, 1.71857, 1.08625,
226 + .41893, 1.38679, 1.72294,
227 + .01833, .01575, 43.98135, 1.98860, 1.36205,
228 + .70531, 1.65990, 1.99310,
229 + .01934, .01629, 51.62846, 2.26502, 1.64372,
230 + .99687, 1.93913, 2.26964 /
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 + .02031, .01680, 59.30760, 2.54657, 1.93009,
233 + 1.29231, 2.22326, 2.55131,
234 + .02123, .01728, 66.98110, 2.83188, 2.21985,
235 + 1.59038, 2.51095, 2.83672,
236 + .02211, .01774, 74.61622, 3.11977, 2.51187,
237 + 1.89007, 2.80105, 3.12471,
238 + .02296, .01819, 82.13520, 3.40797, 2.80392,
239 + 2.18923, 3.09131, 3.41300,
240 + .02377, .01862, 89.55078, 3.69637, 3.09594,
241 + 2.48789, 3.38165, 3.70150,
242 + .02456, .01903, 96.87703, 3.98507, 3.38804,
243 + 2.78620, 3.67217, 3.99028,
244 + .02532, .01942, 104.12268, 4.27408, 3.68026,
245 + 3.08425, 3.96289, 4.27936 /
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 + .02605, .01981, 111.17424, 4.56008, 3.96932,
248 + 3.37881, 4.25053, 4.56545,
249 + .02676, .02018, 118.10646, 4.84483, 4.25696,
250 + 3.67166, 4.53682, 4.85028,
251 + .02745, .02054, 124.97301, 5.12970, 4.54458,
252 + 3.96420, 4.82316, 5.13521,
253 + .02812, .02088, 131.58211, 5.40901, 4.82652,
254 + 4.25083, 5.10388, 5.41459,
255 + .02877, .02122, 138.16185, 5.68912, 5.10914,
256 + 4.53791, 5.38533, 5.69477 /
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 + .01817, .01601, 8.04552, .68711, .08751,
259 + .00000, .37210, .69132,
260 + .02025, .01711, 12.91360, .85884, .26865,
261 + .00000, .54882, .86324,
262 + .02213, .01809, 18.06339, 1.04184, .45960,
263 + .00000, .73603, 1.04640,
264 + .02384, .01899, 23.38176, 1.23248, .65711,
265 + .10034, .93031, 1.23718,
266 + .02543, .01982, 28.77731, 1.42896, .85970,
267 + .32204, 1.13002, 1.43380,
268 + .02692, .02060, 34.21707, 1.63014, 1.06638,
269 + .53774, 1.33412, 1.63510,
270 + .02833, .02134, 39.59921, 1.83325, 1.27449,
271 + .75425, 1.53987, 1.83832 /
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 + .02966, .02203, 44.91873, 2.03758, 1.48342,
274 + .97088, 1.74663, 2.04276,
275 + .03092, .02269, 50.15850, 2.24233, 1.69241,
276 + 1.18692, 1.95362, 2.24761,
277 + .03213, .02332, 55.30388, 2.44682, 1.90083,
278 + 1.40185, 2.16019, 2.45219,
279 + .03329, .02392, 60.30795, 2.64956, 2.10724,
280 + 1.61430, 2.36487, 2.65502,
281 + .03440, .02450, 65.18708, 2.85065, 2.31179,
282 + 1.82446, 2.56779, 2.85620,
283 + .03547, .02505, 69.95734, 3.05030, 2.51469,
284 + 2.03263, 2.76915, 3.05593,
285 + .03650, .02558, 74.62974, 3.24865, 2.71610,
286 + 2.23898, 2.96912, 3.25436 /
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 + .03749, .02609, 79.13119, 3.44346, 2.91382,
289 + 2.44135, 3.16546, 3.44924,
290 + .03845, .02659, 83.51760, 3.63609, 3.10920,
291 + 2.64114, 3.35955, 3.64194,
292 + .03938, .02707, 87.82889, 3.82759, 3.30334,
293 + 2.83944, 3.55244, 3.83351,
294 + .04028, .02753, 91.93896, 4.01408, 3.49233,
295 + 3.03241, 3.74025, 4.02007,
296 + .04116, .02798, 96.00449, 4.20010, 3.68075,
297 + 3.22459, 3.92754, 4.20615 /
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 + .02705, .02074, 7.10270, .61377, .07461,
300 + .00000, .33079, .61894,
301 + .02999, .02227, 10.92993, .75075, .22067,
302 + .00000, .47260, .75617,
303 + .03262, .02364, 14.83882, .89289, .37047,
304 + .00000, .61881, .89852,
305 + .03501, .02488, 18.76272, 1.03782, .52204,
306 + .07697, .76726, 1.04364,
307 + .03722, .02602, 22.64921, 1.18450, .67461,
308 + .24511, .91707, 1.19049,
309 + .03928, .02708, 26.48713, 1.33233, .82776,
310 + .40589, 1.06772, 1.33848,
311 + .04122, .02808, 30.21359, 1.47947, .97974,
312 + .56498, 1.21743, 1.48578 /
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 + .04305, .02903, 33.83561, 1.62563, 1.13034,
315 + .72209, 1.36594, 1.63208,
316 + .04479, .02992, 37.34951, 1.77041, 1.27923,
317 + .87692, 1.51290, 1.77699,
318 + .04644, .03077, 40.75229, 1.91348, 1.42610,
319 + 1.02928, 1.65798, 1.92018,
320 + .04801, .03157, 44.01752, 2.05391, 1.57010,
321 + 1.17837, 1.80030, 2.06073,
322 + .04951, .03235, 47.16245, 2.19193, 1.71146,
323 + 1.32447, 1.94009, 2.19886,
324 + .05096, .03309, 50.20290, 2.32780, 1.85047,
325 + 1.46792, 2.07763, 2.33484,
326 + .05235, .03380, 53.15033, 2.46172, 1.98737,
327 + 1.60897, 2.21312, 2.46886 /
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, .03448, 55.95864, 2.59221, 2.12067,
330 + 1.74620, 2.34510, 2.59945,
331 + .05497, .03514, 58.66910, 2.72031, 2.25145,
332 + 1.88068, 2.47462, 2.72764,
333 + .05622, .03577, 61.31099, 2.84685, 2.38054,
334 + 2.01327, 2.60251, 2.85427,
335 + .05742, .03639, 63.80264, 2.96917, 2.50530,
336 + 2.14137, 2.72612, 2.97669,
337 + .05859, .03698, 66.25052, 3.09052, 2.62897,
338 + 2.26821, 2.84870, 3.09811 /
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 + .03403, .02428, 6.58580, .57296, .06772,
341 + .00000, .30811, .57893,
342 + .03763, .02614, 9.88353, .69200, .19570,
343 + .00000, .43193, .69828,
344 + .04082, .02778, 13.18123, .81358, .32484,
345 + .00000, .55755, .82013,
346 + .04372, .02927, 16.43507, .93598, .45378,
347 + .06549, .68345, .94277,
348 + .04639, .03064, 19.61098, 1.05851, .58213,
349 + .20759, .80909, 1.06552,
350 + .04887, .03192, 22.70753, 1.18083, .70970,
351 + .34207, .93422, 1.18805,
352 + .05120, .03311, 25.67934, 1.30155, .83520,
353 + .47399, 1.05749, 1.30895 /
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 + .05339, .03423, 28.53801, 1.42054, .95858,
356 + .60324, 1.17882, 1.42812,
357 + .05547, .03529, 31.28523, 1.53759, 1.07968,
358 + .72972, 1.29804, 1.54534,
359 + .05744, .03630, 33.92243, 1.65251, 1.19837,
360 + .85335, 1.41497, 1.66041,
361 + .05931, .03726, 36.43164, 1.76463, 1.31401,
362 + .97358, 1.52897, 1.77268,
363 + .06110, .03817, 38.82973, 1.87420, 1.42688,
364 + 1.09073, 1.64030, 1.88239,
365 + .06281, .03904, 41.13178, 1.98151, 1.53730,
366 + 1.20514, 1.74927, 1.98983,
367 + .06446, .03988, 43.34883, 2.08676, 1.64550,
368 + 1.31709, 1.85610, 2.09522 /
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 + .06604, .04068, 45.44612, 2.18882, 1.75033,
371 + 1.42546, 1.95964, 2.19740,
372 + .06756, .04145, 47.45792, 2.28857, 1.85273,
373 + 1.53119, 2.06080, 2.29726,
374 + .06903, .04220, 49.40853, 2.38671, 1.95340,
375 + 1.63502, 2.16029, 2.39552,
376 + .07044, .04292, 51.23505, 2.48115, 2.05024,
377 + 1.73487, 2.25601, 2.49007,
378 + .07182, .04361, 53.02186, 2.57451, 2.14591,
379 + 1.83339, 2.35061, 2.58354 /
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 + .04003, .02727, 6.23047, .54469, .06308,
382 + .00000, .29251, .55133,
383 + .04416, .02939, 9.18263, .65192, .17918,
384 + .00000, .40451, .65893,
385 + .04782, .03127, 12.08966, .76020, .29496,
386 + .00000, .51682, .76753,
387 + .05113, .03296, 14.92202, .86820, .40946,
388 + .05818, .62832, .87581,
389 + .05417, .03452, 17.65683, .97547, .52251,
390 + .18379, .73870, .98334,
391 + .05700, .03597, 20.29831, 1.08182, .63407,
392 + .30178, .84786, 1.08993,
393 + .05965, .03732, 22.81145, 1.18612, .74312,
394 + .41679, .95471, 1.19445 /
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 + .06213, .03858, 25.21024, 1.28835, .84971,
397 + .52883, 1.05928, 1.29689,
398 + .06448, .03978, 27.49922, 1.38840, .95379,
399 + .63789, 1.16150, 1.39713,
400 + .06670, .04091, 29.68213, 1.48616, 1.05529,
401 + .74399, 1.26127, 1.49508,
402 + .06881, .04199, 31.74580, 1.58111, 1.15374,
403 + .84669, 1.35810, 1.59020,
404 + .07083, .04301, 33.70652, 1.67351, 1.24943,
405 + .94635, 1.45227, 1.68277,
406 + .07275, .04399, 35.57861, 1.76366, 1.34267,
407 + 1.04329, 1.54409, 1.77308,
408 + .07460, .04493, 37.37265, 1.85178, 1.43371,
409 + 1.13781, 1.63378, 1.86135 /
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 + .07637, .04582, 39.06033, 1.93690, 1.52160,
412 + 1.22897, 1.72038, 1.94661,
413 + .07808, .04669, 40.67165, 2.01982, 1.60715,
414 + 1.31762, 1.80472, 2.02967,
415 + .07972, .04752, 42.22771, 2.10117, 1.69102,
416 + 1.40440, 1.88743, 2.11115,
417 + .08130, .04832, 43.67652, 2.17918, 1.77142,
418 + 1.48759, 1.96672, 2.18929,
419 + .08284, .04909, 45.08930, 2.25611, 1.85065,
420 + 1.56946, 2.04489, 2.26634 /
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 + .04544, .03004, 5.95335, .52274, .05953,
423 + .00000, .28032, .52982,
424 + .05002, .03240, 8.64695, .62116, .16675,
425 + .00000, .38347, .62863,
426 + .05408, .03448, 11.26632, .71963, .27267,
427 + .00000, .48595, .72745,
428 + .05773, .03636, 13.79224, .81712, .37662,
429 + .05284, .58691, .82525,
430 + .06108, .03808, 16.20955, .91333, .47857,
431 + .16648, .68621, .92174,
432 + .06420, .03967, 18.52642, 1.00818, .57860,
433 + .27257, .78385, 1.01685,
434 + .06710, .04115, 20.71494, 1.10072, .67586,
435 + .37545, .87893, 1.10963 /
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 + .06982, .04254, 22.79035, 1.19101, .77048,
438 + .47520, .97155, 1.20015,
439 + .07239, .04385, 24.75902, 1.27900, .86247,
440 + .57189, 1.06170, 1.28835,
441 + .07482, .04509, 26.62630, 1.36464, .95183,
442 + .66558, 1.14934, 1.37419,
443 + .07712, .04626, 28.38204, 1.44753, 1.03818,
444 + .75594, 1.23409, 1.45726,
445 + .07932, .04738, 30.04197, 1.52791, 1.12182,
446 + .84331, 1.31622, 1.53781,
447 + .08142, .04844, 31.61963, 1.60607, 1.20306,
448 + .92803, 1.39604, 1.61615,
449 + .08343, .04946, 33.12521, 1.68225, 1.28214,
450 + 1.01039, 1.47379, 1.69249 /
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 + .08535, .05043, 34.53512, 1.75562, 1.35826,
453 + 1.08958, 1.54863, 1.76601,
454 + .08720, .05137, 35.87559, 1.82690, 1.43216,
455 + 1.16639, 1.62132, 1.83744,
456 + .08898, .05227, 37.16557, 1.89667, 1.50441,
457 + 1.24139, 1.69243, 1.90735,
458 + .09069, .05313, 38.36072, 1.96336, 1.57348,
459 + 1.31308, 1.76040, 1.97417,
460 + .09235, .05397, 39.52301, 2.02900, 1.64140,
461 + 1.38348, 1.82727, 2.03995 /
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 + .06721, .04110, 5.12829, .45635, .04930,
464 + .00000, .24404, .46542,
465 + .07349, .04435, 7.11413, .53020, .13185,
466 + .00000, .32261, .53981,
467 + .07898, .04719, 8.96827, .60199, .21099,
468 + .00000, .39840, .61208,
469 + .08390, .04972, 10.69674, .67139, .28676,
470 + .03862, .47126, .68189,
471 + .08837, .05203, 12.30293, .73847, .35951,
472 + .12062, .54143, .74936,
473 + .09250, .05415, 13.80304, .80341, .42956,
474 + .19570, .60915, .81464,
475 + .09632, .05611, 15.18602, .86571, .49652,
476 + .26730, .67398, .87727 /
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 + .09989, .05793, 16.46906, .92559, .56067,
479 + .33568, .73618, .93745,
480 + .10324, .05964, 17.66173, .98314, .62217,
481 + .40104, .79588, .99527,
482 + .10639, .06124, 18.77179, 1.03844, .68113,
483 + .46356, .85318, 1.05083,
484 + .10936, .06275, 19.79592, 1.09130, .73742,
485 + .52314, .90790, 1.10394,
486 + .11218, .06418, 20.74743, 1.14198, .79131,
487 + .58010, .96032, 1.15484,
488 + .11486, .06554, 21.63743, 1.19075, .84310,
489 + .63475, 1.01073, 1.20383,
490 + .11742, .06683, 22.47427, 1.23782, .89303,
491 + .68736, 1.05936, 1.25111 /
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 + .11986, .06806, 23.24443, 1.28268, .94059,
494 + .73745, 1.10569, 1.29616,
495 + .12220, .06923, 23.96606, 1.32587, .98635,
496 + .78559, 1.15027, 1.33954,
497 + .12444, .07036, 24.65218, 1.36780, 1.03074,
498 + .83223, 1.19354, 1.38166,
499 + .12659, .07144, 25.27589, 1.40748, 1.07275,
500 + .87638, 1.23449, 1.42150,
501 + .12866, .07247, 25.87682, 1.44628, 1.11379,
502 + .91945, 1.27451, 1.46047 /
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 + .09909, .05780, 4.33282, .39130, .04002,
505 + .00000, .20899, .40306,
506 + .10746, .06217, 5.73457, .44433, .10165,
507 + .00000, .26675, .45683,
508 + .11470, .06593, 6.98514, .49434, .15891,
509 + .00000, .32073, .50747,
510 + .12111, .06925, 8.10695, .54145, .21231,
511 + .02735, .37129, .55512,
512 + .12689, .07223, 9.11460, .58596, .26240,
513 + .08463, .41887, .60013,
514 + .13218, .07494, 10.02737, .62818, .30965,
515 + .13597, .46385, .64280,
516 + .13704, .07742, 10.84441, .66794, .35398,
517 + .18407, .50611, .68296 /
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 + .14154, .07971, 11.58248, .70550, .39573,
520 + .22924, .54597, .72090,
521 + .14573, .08183, 12.25159, .74103, .43513,
522 + .27176, .58362, .75677,
523 + .14966, .08381, 12.85958, .77467, .47236,
524 + .31187, .61924, .79073,
525 + .15333, .08566, 13.40678, .80635, .50740,
526 + .34956, .65275, .82271,
527 + .15680, .08740, 13.90352, .83633, .54052,
528 + .38515, .68445, .85296,
529 + .16007, .08903, 14.35841, .86482, .57196,
530 + .41890, .71456, .88172,
531 + .16319, .09058, 14.77777, .89200, .60194,
532 + .45103, .74328, .90915 /
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 + .16613, .09204, 15.15399, .91758, .63016,
535 + .48128, .77030, .93495,
536 + .16893, .09343, 15.49949, .94193, .65702,
537 + .51005, .79602, .95953,
538 + .17162, .09476, 15.82271, .96535, .68283,
539 + .53767, .82076, .98317,
540 + .17417, .09601, 16.10752, .98723, .70698,
541 + .56354, .84388, 1.00524,
542 + .17663, .09721, 16.37858, 1.00846, .73040,
543 + .58858, .86631, 1.02667 /
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 + .12409, .07128, 3.88127, .35374, .03503,
546 + -.00001, .18912, .36769,
547 + .13384, .07638, 4.99641, .39629, .08610,
548 + .00000, .23638, .41111,
549 + .14220, .08071, 5.96207, .43564, .13263,
550 + -.00001, .27971, .45119,
551 + .14955, .08449, 6.80636, .47211, .17532,
552 + .02195, .31961, .48830,
553 + .15613, .08786, 7.54701, .50607, .21478,
554 + .06755, .35661, .52281,
555 + .16212, .09090, 8.20410, .53785, .25153,
556 + .10788, .39113, .55510,
557 + .16759, .09366, 8.77975, .56740, .28559,
558 + .14524, .42317, .58511 /
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 + .17262, .09619, 9.28985, .59499, .31731,
561 + .17996, .45304, .61312,
562 + .17728, .09852, 9.74368, .62081, .34695,
563 + .21232, .48096, .63932,
564 + .18163, .10067, 10.14860, .64502, .37469,
565 + .24257, .50712, .66388,
566 + .18568, .10268, 10.50592, .66759, .40056,
567 + .27075, .53150, .68677,
568 + .18947, .10454, 10.82430, .68873, .42478,
569 + .29713, .55434, .70821,
570 + .19305, .10629, 11.11089, .70866, .44761,
571 + .32196, .57586, .72842,
572 + .19643, .10794, 11.37084, .72752, .46922,
573 + .34545, .59623, .74754 /
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 + .19961, .10949, 11.59875, .74509, .48938,
576 + .36737, .61523, .76536,
577 + .20264, .11095, 11.80427, .76169, .50844,
578 + .38809, .63318, .78219,
579 + .20553, .11234, 11.99380, .77756, .52664,
580 + .40787, .65033, .79828,
581 + .20825, .11364, 12.15566, .79222, .54354,
582 + .42625, .66621, .81315,
583 + .21087, .11490, 12.30808, .80638, .55983,
584 + .44396, .68155, .82750 /
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 + .14542, .08305, 3.56639, .32729, .03168,
587 + -.00001, .17529, .34316,
588 + .15617, .08864, 4.50139, .36312, .07596,
589 + .00000, .21581, .37995,
590 + .16533, .09335, 5.29231, .39579, .11572,
591 + -.00001, .25241, .41341,
592 + .17333, .09742, 5.96980, .42568, .15175,
593 + .01860, .28571, .44399,
594 + .18046, .10102, 6.55292, .45318, .18470,
595 + .05699, .31623, .47210,
596 + .18690, .10425, 7.06131, .47866, .21508,
597 + .09063, .34443, .49812,
598 + .19276, .10716, 7.49874, .50211, .24298,
599 + .12151, .37034, .52205 /
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 + .19812, .10981, 7.87987, .52381, .26875,
602 + .14998, .39429, .54418,
603 + .20307, .11224, 8.21345, .54393, .29263,
604 + .17632, .41649, .56470,
605 + .20766, .11447, 8.50625, .56264, .31482,
606 + .20077, .43712, .58378,
607 + .21192, .11654, 8.75991, .57994, .33536,
608 + .22340, .45621, .60141,
609 + .21590, .11845, 8.98196, .59602, .35447,
610 + .24445, .47395, .61779,
611 + .21963, .12023, 9.17851, .61105, .37236,
612 + .26415, .49056, .63311,
613 + .22315, .12190, 9.35395, .62519, .38920,
614 + .28267, .50618, .64751 /
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 + .22645, .12346, 9.50412, .63826, .40480,
617 + .29986, .52064, .66082,
618 + .22957, .12493, 9.63692, .65051, .41947,
619 + .31602, .53423, .67331,
620 + .23255, .12632, 9.75753, .66216, .43342,
621 + .33138, .54714, .68518,
622 + .23534, .12762, 9.85679, .67283, .44626,
623 + .34557, .55900, .69604,
624 + .23802, .12886, 9.94918, .68308, .45861,
625 + .35918, .57040, .70649 /
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 + .16434, .09364, 3.32621, .30693, .02921,
628 + .00000, .16476, .32457,
629 + .17586, .09957, 4.13446, .33796, .06860,
630 + .00000, .20046, .35662,
631 + .18562, .10453, 4.80458, .36591, .10358,
632 + .00000, .23232, .38542,
633 + .19409, .10879, 5.36862, .39121, .13496,
634 + .01626, .26101, .41145,
635 + .20160, .11252, 5.84606, .41427, .16340,
636 + .04965, .28706, .43513,
637 + .20837, .11585, 6.25585, .43544, .18942,
638 + .07866, .31092, .45686,
639 + .21447, .11884, 6.60268, .45475, .21312,
640 + .10511, .33266, .47667 /
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 + .22005, .12153, 6.90016, .47247, .23486,
643 + .12933, .35261, .49483,
644 + .22517, .12399, 7.15641, .48879, .25488,
645 + .15162, .37097, .51154,
646 + .22990, .12624, 7.37787, .50385, .27337,
647 + .17219, .38792, .52696,
648 + .23428, .12830, 7.56622, .51765, .29037,
649 + .19111, .40349, .54109,
650 + .23834, .13021, 7.72827, .53040, .30610,
651 + .20862, .41788, .55414,
652 + .24215, .13198, 7.86906, .54223, .32075,
653 + .22493, .43127, .56626,
654 + .24573, .13363, 7.99243, .55329, .33446,
655 + .24018, .44378, .57758 /
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 + .24906, .13516, 8.09537, .56344, .34710,
658 + .25429, .45530, .58796,
659 + .25221, .13660, 8.18419, .57289, .35893,
660 + .26749, .46606, .59763,
661 + .25521, .13795, 8.26331, .58183, .37013,
662 + .27998, .47624, .60678,
663 + .25800, .13920, 8.32547, .58994, .38038,
664 + .29145, .48552, .61508,
665 + .26069, .14040, 8.38247, .59771, .39020,
666 + .30243, .49441, .62303 /
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 + .23927, .13619, 2.60958, .24477, .02218,
669 + .00000, .13347, .27003,
670 + .25275, .14262, 3.09109, .26309, .04854,
671 + .00000, .15630, .28945,
672 + .26388, .14779, 3.46043, .27884, .07104,
673 + .00000, .17582, .30607,
674 + .27331, .15209, 3.74971, .29252, .09054,
675 + .01025, .19274, .32045,
676 + .28149, .15573, 3.97752, .30450, .10767,
677 + .03096, .20757, .33302,
678 + .28870, .15888, 4.15977, .31511, .12289,
679 + .04846, .22073, .34413,
680 + .29507, .16161, 4.30203, .32443, .13637,
681 + .06403, .23235, .35386 /
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 + .30078, .16401, 4.41447, .33267, .14843,
684 + .07796, .24269, .36246,
685 + .30592, .16613, 4.50318, .34001, .15927,
686 + .09051, .25194, .37011,
687 + .31059, .16802, 4.57250, .34655, .16905,
688 + .10186, .26026, .37692,
689 + .31482, .16970, 4.62420, .35232, .17783,
690 + .11208, .26767, .38292,
691 + .31868, .17120, 4.66250, .35746, .18578,
692 + .12136, .27434, .38827,
693 + .32224, .17256, 4.69053, .36208, .19304,
694 + .12986, .28039, .39306,
695 + .32553, .17381, 4.71059, .36627, .19971,
696 + .13769, .28592, .39740 /
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 + .32854, .17491, 4.72106, .36993, .20571,
699 + .14478, .29085, .40120,
700 + .33133, .17592, 4.72566, .37322, .21121,
701 + .15130, .29533, .40461,
702 + .33396, .17685, 4.72672, .37625, .21634,
703 + .15739, .29949, .40776,
704 + .33635, .17767, 4.72026, .37883, .22092,
705 + .16288, .30314, .41042,
706 + .33863, .17845, 4.71256, .38124, .22524,
707 + .16806, .30658, .41292 /
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 + .34496, .19442, 1.96182, .18489, .01621,
710 + -.00001, .10466, .22143,
711 + .35823, .19920, 2.20511, .19353, .03252,
712 + -.00001, .11749, .23068,
713 + .36863, .20269, 2.36754, .20037, .04576,
714 + -.00002, .12780, .23790,
715 + .37702, .20530, 2.47739, .20585, .05674,
716 + .00592, .13623, .24361,
717 + .38395, .20729, 2.55002, .21025, .06597,
718 + .01765, .14322, .24816,
719 + .38978, .20884, 2.59710, .21384, .07387,
720 + .02723, .14909, .25181,
721 + .39467, .21001, 2.62315, .21669, .08060,
722 + .03548, .15399, .25467 /
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 + .39884, .21089, 2.63487, .21896, .08640,
725 + .04264, .15811, .25690,
726 + .40241, .21156, 2.63606, .22077, .09144,
727 + .04892, .16161, .25863,
728 + .40551, .21202, 2.62931, .22218, .09583,
729 + .05444, .16457, .25996,
730 + .40814, .21233, 2.61573, .22323, .09963,
731 + .05930, .16704, .26091,
732 + .41041, .21252, 2.59749, .22398, .10296,
733 + .06358, .16912, .26155,
734 + .41239, .21260, 2.57627, .22452, .10589,
735 + .06740, .17089, .26195,
736 + .41413, .21262, 2.55313, .22489, .10850,
737 + .07084, .17240, .26217 /
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 + .41559, .21253, 2.52716, .22504, .11075,
740 + .07387, .17362, .26217,
741 + .41685, .21238, 2.50008, .22505, .11274,
742 + .07660, .17465, .26203,
743 + .41799, .21221, 2.47294, .22497, .11455,
744 + .07909, .17553, .26181,
745 + .41889, .21195, 2.44383, .22471, .11607,
746 + .08126, .17616, .26138,
747 + .41972, .21168, 2.41561, .22443, .11747,
748 + .08328, .17673, .26093 /
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 + .42330, .23283, 1.62990, .15045, .01314,
751 + .00000, .08847, .19426,
752 + .43388, .23474, 1.76530, .15469, .02480,
753 + .00000, .09657, .19827,
754 + .44154, .23563, 1.83990, .15763, .03390,
755 + -.00001, .10267, .20085,
756 + .44725, .23590, 1.87807, .15967, .04118,
757 + .00405, .10736, .20247,
758 + .45157, .23574, 1.89216, .16098, .04708,
759 + .01194, .11100, .20337,
760 + .45486, .23530, 1.89097, .16181, .05197,
761 + .01822, .11387, .20374,
762 + .45730, .23461, 1.87805, .16219, .05601,
763 + .02348, .11606, .20368 /
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 + .45910, .23377, 1.85803, .16225, .05937,
766 + .02796, .11775, .20327,
767 + .46038, .23282, 1.83329, .16209, .06220,
768 + .03180, .11905, .20264,
769 + .46128, .23179, 1.80563, .16172, .06458,
770 + .03510, .12003, .20183,
771 + .46179, .23069, 1.77543, .16117, .06658,
772 + .03793, .12073, .20085,
773 + .46202, .22954, 1.74413, .16050, .06825,
774 + .04038, .12119, .19974,
775 + .46203, .22837, 1.71257, .15974, .06968,
776 + .04253, .12148, .19855,
777 + .46188, .22720, 1.68127, .15893, .07090,
778 + .04441, .12164, .19733 /
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 + .46152, .22598, 1.64956, .15802, .07190,
781 + .04603, .12164, .19603,
782 + .46104, .22476, 1.61843, .15707, .07275,
783 + .04747, .12155, .19470,
784 + .46048, .22357, 1.58838, .15612, .07349,
785 + .04876, .12140, .19338,
786 + .45973, .22235, 1.55815, .15509, .07406,
787 + .04984, .12112, .19197,
788 + .45898, .22117, 1.52938, .15408, .07456,
789 + .05083, .12083, .19060 /
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 + .48512, .25833, 1.41641, .12561, .01104,
792 + .00000, .07654, .17334,
793 + .49168, .25701, 1.48572, .12729, .01989,
794 + -.00001, .08174, .17392,
795 + .49560, .25515, 1.50974, .12805, .02654,
796 + .00000, .08535, .17362,
797 + .49786, .25299, 1.50883, .12821, .03168,
798 + .00297, .08790, .17277,
799 + .49894, .25068, 1.49278, .12793, .03573,
800 + .00867, .08968, .17153,
801 + .49922, .24829, 1.46827, .12738, .03897,
802 + .01310, .09091, .17007,
803 + .49882, .24585, 1.43774, .12656, .04157,
804 + .01675, .09168, .16839 /
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 + .49796, .24341, 1.40437, .12560, .04365,
807 + .01978, .09214, .16661,
808 + .49675, .24098, 1.36976, .12452, .04535,
809 + .02232, .09234, .16476,
810 + .49528, .23860, 1.33488, .12338, .04672,
811 + .02447, .09235, .16288,
812 + .49356, .23625, 1.29989, .12217, .04782,
813 + .02629, .09218, .16096,
814 + .49169, .23393, 1.26555, .12091, .04871,
815 + .02781, .09189, .15904,
816 + .48970, .23168, 1.23232, .11964, .04942,
817 + .02913, .09153, .15715,
818 + .48765, .22950, 1.20041, .11838, .05000,
819 + .03027, .09110, .15530 /
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 + .48548, .22735, 1.16925, .11710, .05044,
822 + .03121, .09058, .15344,
823 + .48327, .22525, 1.13939, .11583, .05077,
824 + .03203, .09002, .15161,
825 + .48108, .22324, 1.11104, .11460, .05104,
826 + .03275, .08945, .14983,
827 + .47877, .22123, 1.08333, .11334, .05119,
828 + .03333, .08882, .14806,
829 + .47652, .21931, 1.05722, .11212, .05132,
830 + .03385, .08820, .14637 /
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 + .53440, .27430, 1.26021, .10580, .00940,
833 + -.00001, .06660, .15479,
834 + .53611, .26982, 1.28364, .10589, .01630,
835 + .00000, .06984, .15301,
836 + .53575, .26530, 1.27458, .10534, .02131,
837 + -.00001, .07182, .15078,
838 + .53417, .26088, 1.24970, .10444, .02507,
839 + .00225, .07301, .14836,
840 + .53177, .25659, 1.21636, .10327, .02793,
841 + .00652, .07365, .14585,
842 + .52887, .25246, 1.17936, .10197, .03015,
843 + .00978, .07391, .14329,
844 + .52554, .24846, 1.14029, .10056, .03186,
845 + .01239, .07386, .14073 /
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 + .52194, .24465, 1.10124, .09911, .03320,
848 + .01453, .07362, .13816,
849 + .51821, .24098, 1.06310, .09764, .03423,
850 + .01629, .07323, .13568,
851 + .51442, .23745, 1.02636, .09616, .03502,
852 + .01776, .07273, .13328,
853 + .51054, .23405, .99090, .09467, .03562,
854 + .01897, .07214, .13094,
855 + .50664, .23078, .95711, .09320, .03608,
856 + .01997, .07149, .12865,
857 + .50274, .22766, .92516, .09177, .03641,
858 + .02082, .07081, .12645,
859 + .49890, .22469, .89505, .09039, .03664,
860 + .02153, .07010, .12434 /
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 + .49504, .22179, .86628, .08902, .03679,
863 + .02210, .06937, .12227,
864 + .49125, .21900, .83912, .08768, .03687,
865 + .02259, .06862, .12028,
866 + .48757, .21633, .81364, .08639, .03691,
867 + .02300, .06789, .11839,
868 + .48382, .21374, .78918, .08513, .03688,
869 + .02332, .06713, .11651,
870 + .48022, .21126, .76632, .08392, .03683,
871 + .02361, .06640, .11473 /
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 + .58133, .28408, 1.10728, .08548, .00772,
874 + .00000, .05580, .13321,
875 + .57640, .27595, 1.09008, .08439, .01289,
876 + -.00001, .05737, .12950,
877 + .57033, .26846, 1.05387, .08293, .01649,
878 + -.00001, .05806, .12583,
879 + .56378, .26157, 1.01079, .08132, .01907,
880 + .00163, .05821, .12229,
881 + .55695, .25518, .96553, .07962, .02096,
882 + .00470, .05800, .11890,
883 + .55008, .24924, .92095, .07791, .02239,
884 + .00698, .05757, .11565,
885 + .54313, .24367, .87766, .07622, .02341,
886 + .00877, .05697, .11255 /
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 + .53633, .23841, .83671, .07453, .02416,
889 + .01020, .05628, .10962,
890 + .52966, .23349, .79837, .07288, .02471,
891 + .01136, .05553, .10683,
892 + .52311, .22887, .76263, .07132, .02509,
893 + .01230, .05473, .10420,
894 + .51670, .22449, .72917, .06979, .02536,
895 + .01304, .05392, .10167,
896 + .51046, .22034, .69805, .06832, .02551,
897 + .01366, .05308, .09929,
898 + .50443, .21640, .66921, .06691, .02559,
899 + .01415, .05225, .09703,
900 + .49862, .21267, .64248, .06556, .02561,
901 + .01456, .05144, .09488 /
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 + .49292, .20911, .61740, .06425, .02558,
904 + .01488, .05063, .09283,
905 + .48739, .20571, .59407, .06299, .02551,
906 + .01514, .04983, .09088,
907 + .48209, .20248, .57244, .06179, .02542,
908 + .01537, .04907, .08903,
909 + .47682, .19937, .55198, .06063, .02529,
910 + .01551, .04830, .08723,
911 + .47179, .19642, .53301, .05953, .02516,
912 + .01563, .04757, .08554 /
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 + .61409, .28519, .98024, .06868, .00631,
915 + -.00004, .04630, .11305,
916 + .60231, .27390, .93495, .06696, .01023,
917 + -.00003, .04684, .10832,
918 + .59054, .26391, .88177, .06508, .01287,
919 + -.00003, .04676, .10391,
920 + .57908, .25504, .82863, .06319, .01468,
921 + .00119, .04632, .09989,
922 + .56803, .24696, .77790, .06133, .01596,
923 + .00344, .04567, .09615,
924 + .55739, .23961, .73085, .05954, .01685,
925 + .00509, .04491, .09272,
926 + .54717, .23281, .68728, .05780, .01747,
927 + .00635, .04406, .08951 /
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 + .53737, .22653, .64747, .05614, .01789,
930 + .00734, .04319, .08653,
931 + .52802, .22072, .61120, .05457, .01815,
932 + .00811, .04230, .08376,
933 + .51909, .21531, .57816, .05307, .01833,
934 + .00873, .04142, .08117,
935 + .51050, .21023, .54793, .05164, .01839,
936 + .00922, .04056, .07875,
937 + .50229, .20546, .52030, .05028, .01841,
938 + .00959, .03970, .07649,
939 + .49443, .20100, .49506, .04900, .01837,
940 + .00989, .03887, .07435,
941 + .48692, .19682, .47197, .04781, .01830,
942 + .01013, .03808, .07235 /
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 + .47968, .19282, .45065, .04665, .01819,
945 + .01030, .03729, .07046,
946 + .47272, .18904, .43102, .04555, .01806,
947 + .01044, .03654, .06867,
948 + .46608, .18548, .41296, .04452, .01792,
949 + .01054, .03583, .06699,
950 + .45962, .18206, .39613, .04351, .01775,
951 + .01062, .03512, .06539,
952 + .45347, .17882, .38062, .04256, .01759,
953 + .01067, .03446, .06389 /
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 + .63433, .27974, .86847, .05467, .00513,
956 + -.00001, .03798, .09447,
957 + .61578, .26594, .80432, .05276, .00810,
958 + -.00002, .03786, .08928,
959 + .59852, .25403, .74121, .05077, .01003,
960 + -.00001, .03731, .08469,
961 + .58249, .24363, .68342, .04889, .01129,
962 + .00090, .03656, .08059,
963 + .56753, .23434, .63127, .04707, .01213,
964 + .00255, .03571, .07690,
965 + .55356, .22597, .58478, .04537, .01269,
966 + .00372, .03481, .07356,
967 + .54039, .21835, .54311, .04376, .01305,
968 + .00462, .03390, .07049 /
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 + .52800, .21139, .50608, .04225, .01326,
971 + .00529, .03298, .06770,
972 + .51638, .20499, .47302, .04082, .01338,
973 + .00582, .03209, .06514,
974 + .50544, .19907, .44345, .03948, .01341,
975 + .00623, .03124, .06278,
976 + .49501, .19360, .41682, .03825, .01339,
977 + .00655, .03041, .06057,
978 + .48516, .18848, .39285, .03707, .01332,
979 + .00678, .02962, .05852,
980 + .47585, .18370, .37123, .03597, .01323,
981 + .00695, .02886, .05664,
982 + .46703, .17924, .35166, .03493, .01311,
983 + .00709, .02814, .05489 /
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 + .45857, .17503, .33380, .03396, .01298,
986 + .00718, .02745, .05321,
987 + .45052, .17107, .31752, .03304, .01284,
988 + .00725, .02678, .05166,
989 + .44289, .16735, .30267, .03217, .01270,
990 + .00730, .02615, .05021,
991 + .43551, .16378, .28895, .03133, .01253,
992 + .00733, .02555, .04884,
993 + .42852, .16042, .27638, .03055, .01237,
994 + .00734, .02498, .04755 /
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 + .64333, .26945, .76694, .04310, .00413,
997 + -.00002, .03072, .07762,
998 + .61847, .25369, .69095, .04114, .00640,
999 + -.00001, .03024, .07249,
1000 + .59619, .24033, .62306, .03925, .00779,
1001 + -.00001, .02948, .06805,
1002 + .57608, .22884, .56427, .03749, .00867,
1003 + .00066, .02862, .06417,
1004 + .55772, .21871, .51332, .03582, .00925,
1005 + .00190, .02770, .06075,
1006 + .54080, .20973, .46923, .03430, .00958,
1007 + .00275, .02680, .05768,
1008 + .52517, .20160, .43077, .03288, .00979,
1009 + .00338, .02592, .05489 /
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 + .51065, .19422, .39725, .03157, .00989,
1012 + .00387, .02507, .05237,
1013 + .49719, .18748, .36786, .03033, .00991,
1014 + .00421, .02425, .05012,
1015 + .48463, .18131, .34199, .02918, .00988,
1016 + .00448, .02348, .04805,
1017 + .47283, .17562, .31899, .02813, .00981,
1018 + .00470, .02274, .04614,
1019 + .46169, .17035, .29856, .02715, .00971,
1020 + .00484, .02204, .04438,
1021 + .45124, .16548, .28032, .02624, .00960,
1022 + .00495, .02138, .04276,
1023 + .44141, .16094, .26396, .02539, .00948,
1024 + .00503, .02077, .04125 /
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 + .43208, .15667, .24917, .02459, .00934,
1027 + .00509, .02017, .03986,
1028 + .42323, .15267, .23582, .02384, .00921,
1029 + .00512, .01961, .03855,
1030 + .41489, .14893, .22372, .02314, .00908,
1031 + .00513, .01909, .03732,
1032 + .40686, .14537, .21265, .02247, .00893,
1033 + .00512, .01858, .03619,
1034 + .39928, .14204, .20255, .02184, .00878,
1035 + .00510, .01810, .03514 /
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 + .64238, .25556, .67343, .03354, .00329,
1038 + -.00001, .02451, .06279,
1039 + .61183, .23839, .59118, .03170, .00501,
1040 + -.00001, .02384, .05800,
1041 + .58509, .22412, .52226, .02999, .00604,
1042 + -.00002, .02304, .05390,
1043 + .56149, .21195, .46503, .02841, .00665,
1044 + .00051, .02216, .05042,
1045 + .54021, .20137, .41699, .02699, .00703,
1046 + .00142, .02130, .04733,
1047 + .52096, .19201, .37640, .02568, .00723,
1048 + .00204, .02047, .04464,
1049 + .50336, .18361, .34180, .02445, .00733,
1050 + .00251, .01966, .04224 /
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 + .48718, .17610, .31210, .02335, .00736,
1053 + .00285, .01890, .04007,
1054 + .47226, .16927, .28646, .02233, .00733,
1055 + .00309, .01820, .03814,
1056 + .45845, .16307, .26423, .02141, .00728,
1057 + .00328, .01752, .03637,
1058 + .44560, .15737, .24470, .02053, .00719,
1059 + .00340, .01689, .03477,
1060 + .43358, .15213, .22753, .01973, .00709,
1061 + .00348, .01630, .03332,
1062 + .42236, .14728, .21235, .01899, .00698,
1063 + .00354, .01574, .03197,
1064 + .41188, .14279, .19886, .01830, .00687,
1065 + .00358, .01523, .03072 /
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 + .40194, .13860, .18677, .01769, .00674,
1068 + .00361, .01475, .02956,
1069 + .39259, .13468, .17592, .01709, .00662,
1070 + .00362, .01429, .02850,
1071 + .38382, .13102, .16615, .01652, .00650,
1072 + .00362, .01386, .02752,
1073 + .37541, .12757, .15729, .01601, .00638,
1074 + .00360, .01345, .02658,
1075 + .36749, .12434, .14926, .01553, .00626,
1076 + .00359, .01307, .02572 /
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 + .63269, .23910, .58704, .02572, .00261,
1079 + .00003, .01931, .04998,
1080 + .59711, .22117, .50294, .02415, .00389,
1081 + .00002, .01857, .04568,
1082 + .56669, .20637, .43582, .02267, .00462,
1083 + .00002, .01776, .04207,
1084 + .54019, .19393, .38186, .02133, .00504,
1085 + .00041, .01696, .03904,
1086 + .51663, .18320, .33778, .02016, .00527,
1087 + .00106, .01616, .03641,
1088 + .49553, .17381, .30131, .01908, .00540,
1089 + .00151, .01542, .03410,
1090 + .47646, .16542, .27074, .01806, .00544,
1091 + .00183, .01472, .03207 /
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 + .45901, .15798, .24499, .01719, .00542,
1094 + .00205, .01408, .03026,
1095 + .44314, .15123, .22304, .01636, .00536,
1096 + .00223, .01350, .02865,
1097 + .42850, .14515, .20416, .01561, .00530,
1098 + .00234, .01293, .02722,
1099 + .41500, .13956, .18780, .01491, .00521,
1100 + .00243, .01241, .02591,
1101 + .40244, .13446, .17357, .01427, .00512,
1102 + .00249, .01193, .02471,
1103 + .39075, .12977, .16107, .01370, .00502,
1104 + .00253, .01148, .02361,
1105 + .37986, .12545, .15004, .01318, .00492,
1106 + .00254, .01106, .02261 /
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 + .36967, .12139, .14027, .01265, .00482,
1109 + .00255, .01067, .02171,
1110 + .36010, .11764, .13155, .01218, .00472,
1111 + .00255, .01031, .02086,
1112 + .35112, .11417, .12374, .01176, .00463,
1113 + .00254, .00997, .02007,
1114 + .34258, .11089, .11670, .01135, .00452,
1115 + .00252, .00964, .01934,
1116 + .33457, .10782, .11033, .01096, .00442,
1117 + .00249, .00934, .01866 /
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 + .61515, .22136, .50774, .01972, .00189,
1120 + -.00013, .01483, .03913,
1121 + .57559, .20299, .42503, .01832, .00290,
1122 + -.00014, .01416, .03538,
1123 + .54219, .18807, .36152, .01707, .00344,
1124 + -.00013, .01343, .03233,
1125 + .51351, .17560, .31199, .01596, .00373,
1126 + .00017, .01274, .02979,
1127 + .48838, .16492, .27239, .01494, .00388,
1128 + .00068, .01208, .02759,
1129 + .46597, .15570, .24027, .01406, .00397,
1130 + .00102, .01147, .02567,
1131 + .44591, .14750, .21378, .01325, .00397,
1132 + .00127, .01088, .02403 /
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 + .42775, .14023, .19172, .01253, .00394,
1135 + .00143, .01036, .02256,
1136 + .41123, .13376, .17314, .01190, .00390,
1137 + .00156, .00987, .02124,
1138 + .39617, .12787, .15740, .01130, .00383,
1139 + .00165, .00941, .02011,
1140 + .38232, .12253, .14389, .01075, .00374,
1141 + .00170, .00901, .01907,
1142 + .36951, .11767, .13221, .01025, .00366,
1143 + .00173, .00863, .01812,
1144 + .35768, .11321, .12206, .00979, .00358,
1145 + .00175, .00827, .01726,
1146 + .34672, .10912, .11317, .00938, .00350,
1147 + .00176, .00794, .01647 /
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 + .33645, .10533, .10533, .00900, .00341,
1150 + .00176, .00764, .01574,
1151 + .32684, .10182, .09837, .00865, .00333,
1152 + .00176, .00736, .01507,
1153 + .31786, .09857, .09217, .00833, .00326,
1154 + .00176, .00709, .01445,
1155 + .30936, .09551, .08662, .00802, .00318,
1156 + .00173, .00685, .01389,
1157 + .30142, .09266, .08163, .00774, .00310,
1158 + .00172, .00662, .01337 /
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 + .59136, .20227, .43478, .01466, .00151,
1161 + -.00003, .01136, .03014,
1162 + .54855, .18398, .35606, .01356, .00222,
1163 + -.00003, .01073, .02701,
1164 + .51298, .16928, .29758, .01255, .00259,
1165 + -.00003, .01012, .02447,
1166 + .48276, .15714, .25307, .01167, .00280,
1167 + .00018, .00951, .02237,
1168 + .45649, .14679, .21822, .01087, .00290,
1169 + .00054, .00895, .02060,
1170 + .43334, .13789, .19043, .01019, .00292,
1171 + .00077, .00845, .01906,
1172 + .41273, .13006, .16781, .00956, .00292,
1173 + .00094, .00798, .01772 /
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 + .39422, .12315, .14923, .00900, .00288,
1176 + .00107, .00756, .01657,
1177 + .37749, .11700, .13381, .00852, .00282,
1178 + .00114, .00716, .01556,
1179 + .36235, .11146, .12082, .00804, .00277,
1180 + .00119, .00681, .01465,
1181 + .34843, .10647, .10978, .00765, .00270,
1182 + .00123, .00648, .01382,
1183 + .33567, .10191, .10033, .00727, .00263,
1184 + .00125, .00619, .01308,
1185 + .32393, .09776, .09216, .00692, .00256,
1186 + .00125, .00591, .01242,
1187 + .31310, .09397, .08505, .00659, .00249,
1188 + .00124, .00566, .01182 /
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 + .30297, .09046, .07883, .00630, .00243,
1191 + .00125, .00543, .01127,
1192 + .29355, .08721, .07334, .00603, .00236,
1193 + .00124, .00521, .01077,
1194 + .28479, .08421, .06847, .00579, .00229,
1195 + .00122, .00501, .01031,
1196 + .27652, .08141, .06413, .00557, .00223,
1197 + .00122, .00482, .00988,
1198 + .26880, .07880, .06025, .00538, .00217,
1199 + .00121, .00464, .00948 /
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 + .56217, .18296, .36880, .01081, .00111,
1202 + -.00004, .00853, .02285,
1203 + .51712, .16510, .29569, .00991, .00165,
1204 + -.00003, .00799, .02030,
1205 + .48010, .15090, .24297, .00913, .00192,
1206 + -.00003, .00747, .01824,
1207 + .44901, .13923, .20374, .00844, .00206,
1208 + .00013, .00699, .01655,
1209 + .42221, .12940, .17361, .00784, .00212,
1210 + .00040, .00654, .01513,
1211 + .39883, .12094, .14990, .00730, .00213,
1212 + .00057, .00613, .01393,
1213 + .37810, .11358, .13094, .00682, .00211,
1214 + .00068, .00577, .01290 /
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 + .35964, .10710, .11554, .00637, .00207,
1217 + .00075, .00543, .01201,
1218 + .34308, .10136, .10284, .00601, .00202,
1219 + .00080, .00513, .01120,
1220 + .32804, .09625, .09227, .00568, .00197,
1221 + .00084, .00486, .01052,
1222 + .31440, .09163, .08336, .00535, .00192,
1223 + .00086, .00461, .00990,
1224 + .30192, .08744, .07579, .00507, .00186,
1225 + .00088, .00439, .00934,
1226 + .29047, .08364, .06929, .00483, .00180,
1227 + .00088, .00418, .00884,
1228 + .27994, .08017, .06367, .00461, .00175,
1229 + .00088, .00398, .00838 /
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 + .27016, .07697, .05878, .00438, .00170,
1232 + .00087, .00381, .00797,
1233 + .26109, .07403, .05449, .00418, .00165,
1234 + .00086, .00365, .00759,
1235 + .25267, .07132, .05071, .00401, .00160,
1236 + .00085, .00349, .00724,
1237 + .24475, .06878, .04735, .00385, .00155,
1238 + .00084, .00336, .00692,
1239 + .23739, .06644, .04435, .00370, .00151,
1240 + .00083, .00323, .00662 /
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 + .52873, .16373, .30947, .00780, .00085,
1243 + -.00001, .00632, .01702,
1244 + .48229, .14659, .24315, .00711, .00123,
1245 + -.00001, .00589, .01498,
1246 + .44461, .13309, .19654, .00652, .00143,
1247 + .00000, .00546, .01336,
1248 + .41328, .12208, .16262, .00599, .00150,
1249 + .00011, .00506, .01206,
1250 + .38647, .11288, .13697, .00555, .00154,
1251 + .00031, .00472, .01095,
1252 + .36326, .10501, .11712, .00513, .00155,
1253 + .00043, .00441, .01004,
1254 + .34283, .09817, .10140, .00479, .00152,
1255 + .00050, .00410, .00925 /
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 + .32473, .09221, .08878, .00445, .00148,
1258 + .00055, .00386, .00858,
1259 + .30856, .08696, .07850, .00417, .00144,
1260 + .00059, .00363, .00797,
1261 + .29401, .08230, .07001, .00393, .00140,
1262 + .00060, .00343, .00744,
1263 + .28081, .07808, .06290, .00371, .00135,
1264 + .00061, .00324, .00698,
1265 + .26881, .07430, .05691, .00350, .00131,
1266 + .00062, .00307, .00655,
1267 + .25784, .07087, .05181, .00331, .00126,
1268 + .00061, .00291, .00618,
1269 + .24779, .06774, .04742, .00316, .00122,
1270 + .00061, .00277, .00585 /
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 + .23847, .06489, .04360, .00302, .00118,
1273 + .00061, .00263, .00554,
1274 + .22989, .06225, .04028, .00288, .00115,
1275 + .00060, .00252, .00526,
1276 + .22196, .05980, .03738, .00274, .00112,
1277 + .00059, .00241, .00500,
1278 + .21450, .05756, .03480, .00262, .00107,
1279 + .00057, .00231, .00477,
1280 + .20757, .05549, .03251, .00251, .00103,
1281 + .00056, .00221, .00456 /
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 + .49194, .14499, .25671, .00551, .00066,
1284 + .00006, .00463, .01244,
1285 + .44508, .12882, .19780, .00501, .00094,
1286 + .00004, .00427, .01086,
1287 + .40748, .11617, .15741, .00455, .00107,
1288 + .00004, .00394, .00961,
1289 + .37645, .10596, .12853, .00415, .00111,
1290 + .00011, .00363, .00864,
1291 + .35016, .09744, .10705, .00381, .00112,
1292 + .00025, .00335, .00782,
1293 + .32742, .09024, .09064, .00357, .00113,
1294 + .00033, .00313, .00709,
1295 + .30766, .08402, .07783, .00329, .00109,
1296 + .00038, .00290, .00650 /
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 + .29022, .07860, .06765, .00304, .00106,
1299 + .00040, .00271, .00601,
1300 + .27472, .07385, .05943, .00285, .00102,
1301 + .00042, .00254, .00556,
1302 + .26083, .06964, .05267, .00267, .00098,
1303 + .00043, .00239, .00516,
1304 + .24830, .06587, .04709, .00252, .00095,
1305 + .00045, .00224, .00483,
1306 + .23696, .06247, .04240, .00236, .00092,
1307 + .00045, .00212, .00454,
1308 + .22660, .05942, .03843, .00223, .00088,
1309 + .00044, .00201, .00426,
1310 + .21713, .05666, .03504, .00214, .00085,
1311 + .00043, .00190, .00401 /
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 + .20842, .05413, .03211, .00203, .00083,
1314 + .00043, .00181, .00378,
1315 + .20040, .05181, .02957, .00193, .00080,
1316 + .00042, .00172, .00358,
1317 + .19300, .04967, .02735, .00184, .00077,
1318 + .00042, .00164, .00341,
1319 + .18611, .04769, .02540, .00175, .00074,
1320 + .00041, .00157, .00324,
1321 + .17973, .04587, .02368, .00167, .00072,
1322 + .00041, .00151, .00308 /
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 + .45296, .12719, .21063, .00388, .00046,
1325 + .00001, .00328, .00894,
1326 + .40646, .11215, .15922, .00352, .00066,
1327 + .00002, .00302, .00773,
1328 + .36955, .10046, .12478, .00317, .00074,
1329 + .00001, .00276, .00681,
1330 + .33933, .09110, .10061, .00290, .00078,
1331 + .00006, .00253, .00607,
1332 + .31394, .08336, .08289, .00266, .00078,
1333 + .00016, .00233, .00545,
1334 + .29221, .07682, .06956, .00243, .00078,
1335 + .00021, .00217, .00493,
1336 + .27328, .07122, .05922, .00225, .00076,
1337 + .00026, .00199, .00453 /
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 + .25675, .06637, .05113, .00207, .00073,
1340 + .00027, .00185, .00416,
1341 + .24212, .06213, .04463, .00193, .00070,
1342 + .00029, .00174, .00383,
1343 + .22905, .05839, .03935, .00182, .00067,
1344 + .00030, .00163, .00355,
1345 + .21731, .05508, .03501, .00171, .00065,
1346 + .00030, .00152, .00329,
1347 + .20671, .05209, .03138, .00162, .00062,
1348 + .00030, .00143, .00307,
1349 + .19712, .04940, .02833, .00152, .00060,
1350 + .00030, .00135, .00288,
1351 + .18840, .04696, .02574, .00142, .00058,
1352 + .00029, .00128, .00271 /
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 + .18037, .04474, .02351, .00135, .00054,
1355 + .00028, .00121, .00257,
1356 + .17298, .04272, .02158, .00129, .00052,
1357 + .00027, .00115, .00243,
1358 + .16618, .04087, .01990, .00123, .00050,
1359 + .00027, .00109, .00231,
1360 + .15987, .03915, .01844, .00117, .00049,
1361 + .00027, .00104, .00219,
1362 + .15405, .03757, .01715, .00111, .00048,
1363 + .00027, .00099, .00207 /
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 + .41259, .11034, .17064, .00266, .00033,
1366 + .00002, .00230, .00631,
1367 + .36730, .09657, .12665, .00239, .00045,
1368 + .00003, .00209, .00543,
1369 + .33164, .08597, .09780, .00218, .00051,
1370 + .00002, .00190, .00472,
1371 + .30270, .07753, .07791, .00199, .00054,
1372 + .00006, .00174, .00417,
1373 + .27856, .07058, .06352, .00181, .00053,
1374 + .00011, .00159, .00374,
1375 + .25801, .06474, .05285, .00167, .00051,
1376 + .00015, .00144, .00338,
1377 + .24023, .05978, .04465, .00155, .00050,
1378 + .00017, .00134, .00306 /
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 + .22478, .05549, .03828, .00142, .00048,
1381 + .00018, .00124, .00281,
1382 + .21114, .05175, .03323, .00132, .00047,
1383 + .00018, .00116, .00259,
1384 + .19903, .04850, .02914, .00125, .00044,
1385 + .00020, .00107, .00239,
1386 + .18828, .04558, .02579, .00114, .00042,
1387 + .00019, .00101, .00220,
1388 + .17854, .04299, .02303, .00107, .00041,
1389 + .00019, .00094, .00205,
1390 + .16976, .04065, .02072, .00101, .00039,
1391 + .00019, .00089, .00193,
1392 + .16180, .03854, .01875, .00094, .00037,
1393 + .00018, .00083, .00181 /
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 + .15450, .03664, .01708, .00090, .00036,
1396 + .00018, .00079, .00170,
1397 + .14780, .03490, .01564, .00085, .00035,
1398 + .00018, .00075, .00160,
1399 + .14165, .03330, .01439, .00081, .00033,
1400 + .00017, .00071, .00152,
1401 + .13594, .03184, .01330, .00078, .00031,
1402 + .00016, .00067, .00144,
1403 + .13069, .03049, .01234, .00075, .00030,
1404 + .00016, .00064, .00136 /
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 + .37169, .09462, .13629, .00175, .00025,
1407 + .00003, .00161, .00436,
1408 + .32820, .08218, .09932, .00159, .00034,
1409 + .00004, .00145, .00368,
1410 + .29428, .07269, .07559, .00143, .00037,
1411 + .00004, .00130, .00320,
1412 + .26702, .06514, .05946, .00129, .00038,
1413 + .00006, .00119, .00283,
1414 + .24437, .05900, .04800, .00117, .00037,
1415 + .00010, .00108, .00251,
1416 + .22521, .05388, .03956, .00108, .00036,
1417 + .00010, .00099, .00225,
1418 + .20877, .04953, .03318, .00100, .00036,
1419 + .00012, .00090, .00203 /
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 + .19452, .04580, .02825, .00091, .00034,
1422 + .00014, .00084, .00184,
1423 + .18204, .04255, .02438, .00083, .00032,
1424 + .00014, .00078, .00170,
1425 + .17100, .03972, .02127, .00078, .00032,
1426 + .00015, .00072, .00155,
1427 + .16116, .03723, .01875, .00073, .00030,
1428 + .00014, .00067, .00144,
1429 + .15236, .03500, .01667, .00069, .00029,
1430 + .00014, .00063, .00132,
1431 + .14443, .03300, .01494, .00065, .00027,
1432 + .00013, .00060, .00124,
1433 + .13725, .03120, .01348, .00060, .00026,
1434 + .00013, .00056, .00117 /
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 + .13071, .02958, .01224, .00056, .00025,
1437 + .00012, .00053, .00110,
1438 + .12474, .02810, .01118, .00053, .00024,
1439 + .00012, .00050, .00103,
1440 + .11927, .02675, .01026, .00050, .00023,
1441 + .00013, .00047, .00098,
1442 + .11420, .02552, .00946, .00049, .00023,
1443 + .00012, .00045, .00092,
1444 + .10953, .02439, .00876, .00047, .00022,
1445 + .00012, .00042, .00087 /
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 + .33115, .08028, .10734, .00114, .00018,
1448 + .00003, .00109, .00291,
1449 + .29000, .06914, .07679, .00099, .00023,
1450 + .00003, .00097, .00250,
1451 + .25818, .06072, .05757, .00090, .00027,
1452 + .00002, .00089, .00214,
1453 + .23280, .05411, .04475, .00081, .00027,
1454 + .00005, .00080, .00188,
1455 + .21189, .04875, .03575, .00073, .00027,
1456 + .00007, .00073, .00165,
1457 + .19435, .04428, .02922, .00065, .00026,
1458 + .00009, .00066, .00148,
1459 + .17934, .04053, .02432, .00059, .00025,
1460 + .00010, .00061, .00134 /
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 + .16637, .03732, .02058, .00054, .00024,
1463 + .00011, .00057, .00121,
1464 + .15507, .03456, .01765, .00051, .00023,
1465 + .00011, .00052, .00110,
1466 + .14516, .03214, .01533, .00047, .00022,
1467 + .00011, .00049, .00102,
1468 + .13635, .03001, .01346, .00043, .00021,
1469 + .00011, .00045, .00092,
1470 + .12850, .02813, .01192, .00040, .00020,
1471 + .00010, .00042, .00085,
1472 + .12145, .02644, .01064, .00037, .00019,
1473 + .00010, .00039, .00079,
1474 + .11509, .02494, .00957, .00034, .00018,
1475 + .00010, .00037, .00074 /
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 + .10931, .02358, .00867, .00032, .00017,
1478 + .00010, .00035, .00068,
1479 + .10404, .02235, .00790, .00030, .00017,
1480 + .00010, .00033, .00065,
1481 + .09922, .02122, .00723, .00029, .00016,
1482 + .00010, .00031, .00062,
1483 + .09478, .02020, .00666, .00028, .00016,
1484 + .00009, .00029, .00057,
1485 + .09071, .01926, .00615, .00027, .00015,
1486 + .00009, .00028, .00053 /
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 + .29165, .06740, .08342, .00079, .00008,
1489 + -.00002, .00068, .00194,
1490 + .25334, .05762, .05867, .00072, .00013,
1491 + .00000, .00061, .00161,
1492 + .22402, .05028, .04339, .00064, .00015,
1493 + -.00001, .00054, .00139,
1494 + .20081, .04455, .03335, .00056, .00015,
1495 + .00000, .00049, .00121,
1496 + .18176, .03993, .02640, .00052, .00015,
1497 + .00002, .00043, .00105,
1498 + .16588, .03612, .02141, .00047, .00014,
1499 + .00004, .00039, .00095,
1500 + .15237, .03292, .01770, .00044, .00014,
1501 + .00003, .00036, .00085 /
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 + .14079, .03020, .01490, .00040, .00013,
1504 + .00005, .00034, .00079,
1505 + .13079, .02786, .01272, .00035, .00013,
1506 + .00005, .00031, .00069,
1507 + .12196, .02582, .01099, .00034, .00012,
1508 + .00005, .00029, .00064,
1509 + .11418, .02404, .00961, .00032, .00012,
1510 + .00005, .00026, .00058,
1511 + .10724, .02246, .00848, .00030, .00011,
1512 + .00005, .00025, .00054,
1513 + .10106, .02106, .00756, .00028, .00011,
1514 + .00005, .00023, .00050,
1515 + .09553, .01981, .00678, .00025, .00009,
1516 + .00004, .00021, .00047 /
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 + .09048, .01868, .00613, .00024, .00009,
1519 + .00004, .00020, .00044,
1520 + .08590, .01766, .00557, .00023, .00009,
1521 + .00004, .00019, .00040,
1522 + .08172, .01674, .00509, .00023, .00008,
1523 + .00004, .00018, .00038,
1524 + .07790, .01590, .00468, .00021, .00008,
1525 + .00004, .00017, .00036,
1526 + .07440, .01513, .00431, .00018, .00007,
1527 + .00004, .00015, .00034 /
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 + .25348, .05564, .06353, .00042, .00008,
1530 + .00004, .00046, .00125,
1531 + .21832, .04721, .04392, .00042, .00011,
1532 + .00002, .00041, .00101,
1533 + .19167, .04092, .03204, .00036, .00010,
1534 + .00001, .00036, .00088,
1535 + .17072, .03604, .02435, .00033, .00011,
1536 + .00002, .00033, .00075,
1537 + .15368, .03214, .01910, .00031, .00011,
1538 + .00003, .00029, .00066,
1539 + .13954, .02893, .01535, .00028, .00011,
1540 + .00004, .00026, .00059,
1541 + .12762, .02625, .01262, .00025, .00009,
1542 + .00004, .00023, .00052 /
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 + .11743, .02398, .01056, .00023, .00009,
1545 + .00004, .00022, .00046,
1546 + .10861, .02204, .00896, .00021, .00008,
1547 + .00004, .00019, .00043,
1548 + .10094, .02036, .00772, .00019, .00008,
1549 + .00004, .00018, .00039,
1550 + .09418, .01889, .00672, .00018, .00008,
1551 + .00004, .00016, .00036,
1552 + .08818, .01760, .00591, .00017, .00007,
1553 + .00004, .00015, .00033,
1554 + .08283, .01645, .00525, .00016, .00007,
1555 + .00003, .00014, .00031,
1556 + .07805, .01543, .00470, .00015, .00006,
1557 + .00003, .00013, .00028 /
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 + .07374, .01451, .00423, .00014, .00006,
1560 + .00003, .00012, .00026,
1561 + .06983, .01369, .00384, .00013, .00006,
1562 + .00003, .00012, .00024,
1563 + .06627, .01294, .00350, .00012, .00006,
1564 + .00003, .00011, .00023,
1565 + .06301, .01226, .00321, .00012, .00005,
1566 + .00003, .00010, .00021,
1567 + .06003, .01164, .00296, .00012, .00004,
1568 + .00002, .00010, .00020 /
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 + .21732, .04536, .04753, .00025, .00008,
1571 + .00004, .00031, .00074,
1572 + .18560, .03816, .03230, .00024, .00009,
1573 + .00004, .00027, .00063,
1574 + .16182, .03284, .02323, .00019, .00008,
1575 + .00003, .00024, .00053,
1576 + .14316, .02876, .01746, .00020, .00008,
1577 + .00003, .00021, .00046,
1578 + .12818, .02550, .01357, .00016, .00007,
1579 + .00003, .00019, .00040,
1580 + .11580, .02284, .01082, .00014, .00007,
1581 + .00003, .00017, .00036,
1582 + .10538, .02063, .00883, .00013, .00006,
1583 + .00003, .00015, .00032 /
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 + .09655, .01876, .00734, .00012, .00007,
1586 + .00004, .00014, .00028,
1587 + .08894, .01718, .00621, .00012, .00006,
1588 + .00003, .00012, .00025,
1589 + .08234, .01581, .00532, .00011, .00005,
1590 + .00003, .00011, .00022,
1591 + .07655, .01462, .00462, .00009, .00005,
1592 + .00003, .00010, .00021,
1593 + .07143, .01357, .00405, .00009, .00005,
1594 + .00003, .00009, .00020,
1595 + .06689, .01265, .00359, .00009, .00004,
1596 + .00003, .00009, .00018,
1597 + .06284, .01183, .00320, .00009, .00004,
1598 + .00003, .00008, .00016 /
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 + .05919, .01110, .00288, .00008, .00004,
1601 + .00002, .00008, .00015,
1602 + .05591, .01044, .00261, .00007, .00004,
1603 + .00002, .00007, .00014,
1604 + .05294, .00985, .00237, .00006, .00003,
1605 + .00002, .00007, .00013,
1606 + .05021, .00930, .00217, .00006, .00003,
1607 + .00002, .00006, .00012,
1608 + .04773, .00881, .00200, .00006, .00003,
1609 + .00002, .00006, .00012 /
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 + .18386, .03650, .03495, .00018, .00002,
1612 + -.00001, .00016, .00048,
1613 + .15570, .03046, .02334, .00017, .00003,
1614 + .00001, .00015, .00037,
1615 + .13474, .02603, .01657, .00012, .00003,
1616 + .00000, .00013, .00033,
1617 + .11846, .02266, .01233, .00013, .00004,
1618 + .00000, .00011, .00028,
1619 + .10544, .01998, .00949, .00012, .00004,
1620 + .00002, .00010, .00025,
1621 + .09476, .01780, .00752, .00011, .00004,
1622 + .00001, .00009, .00021,
1623 + .08587, .01601, .00610, .00008, .00004,
1624 + .00001, .00008, .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 + .07831, .01450, .00504, .00008, .00004,
1627 + .00001, .00007, .00016,
1628 + .07183, .01322, .00425, .00008, .00003,
1629 + .00001, .00007, .00016,
1630 + .06625, .01212, .00362, .00007, .00003,
1631 + .00002, .00006, .00014,
1632 + .06136, .01118, .00313, .00008, .00003,
1633 + .00001, .00005, .00013,
1634 + .05708, .01034, .00274, .00006, .00002,
1635 + .00001, .00005, .00012,
1636 + .05330, .00961, .00242, .00006, .00002,
1637 + .00001, .00005, .00011,
1638 + .04993, .00896, .00216, .00005, .00002,
1639 + .00001, .00004, .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 + .04689, .00838, .00194, .00005, .00002,
1642 + .00001, .00004, .00009,
1643 + .04417, .00787, .00175, .00005, .00002,
1644 + .00001, .00004, .00008,
1645 + .04171, .00740, .00159, .00004, .00002,
1646 + .00001, .00004, .00008,
1647 + .03946, .00698, .00145, .00005, .00002,
1648 + .00001, .00003, .00007,
1649 + .03742, .00660, .00134, .00005, .00002,
1650 + .00001, .00003, .00006 /
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 + .15289, .02877, .02504, .00007, .00004,
1653 + .00003, .00012, .00026,
1654 + .12832, .02380, .01644, .00006, .00004,
1655 + .00002, .00010, .00022,
1656 + .11020, .02020, .01151, .00005, .00003,
1657 + .00002, .00009, .00019,
1658 + .09626, .01746, .00847, .00005, .00003,
1659 + .00002, .00008, .00016,
1660 + .08517, .01531, .00646, .00004, .00003,
1661 + .00002, .00007, .00014,
1662 + .07612, .01358, .00508, .00004, .00003,
1663 + .00002, .00006, .00012,
1664 + .06861, .01215, .00410, .00004, .00003,
1665 + .00002, .00005, .00010 /
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 + .06228, .01096, .00337, .00004, .00002,
1668 + .00001, .00005, .00008,
1669 + .05691, .00995, .00282, .00003, .00002,
1670 + .00001, .00005, .00007,
1671 + .05227, .00908, .00240, .00004, .00002,
1672 + .00002, .00004, .00007,
1673 + .04825, .00834, .00207, .00003, .00002,
1674 + .00001, .00003, .00006,
1675 + .04472, .00769, .00181, .00003, .00002,
1676 + .00001, .00003, .00006,
1677 + .04161, .00713, .00159, .00002, .00002,
1678 + .00001, .00003, .00006,
1679 + .03886, .00663, .00141, .00002, .00002,
1680 + .00001, .00003, .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 + .03638, .00618, .00127, .00002, .00001,
1683 + .00001, .00002, .00005,
1684 + .03417, .00578, .00114, .00002, .00001,
1685 + .00001, .00002, .00004,
1686 + .03219, .00543, .00104, .00002, .00001,
1687 + .00001, .00002, .00004,
1688 + .03038, .00510, .00095, .00001, .00001,
1689 + .00001, .00002, .00004,
1690 + .02874, .00481, .00087, .00001, .00001,
1691 + .00001, .00002, .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 + .10040, .01696, .01196, .00002, .00000,
1694 + .00000, .00003, .00009,
1695 + .08270, .01378, .00758, .00001, .00001,
1696 + .00000, .00003, .00007,
1697 + .06988, .01151, .00517, .00002, .00001,
1698 + .00000, .00002, .00006,
1699 + .06019, .00982, .00372, .00002, .00001,
1700 + .00000, .00002, .00004,
1701 + .05258, .00850, .00279, .00002, .00001,
1702 + .00000, .00002, .00003,
1703 + .04647, .00746, .00216, .00002, .00001,
1704 + .00000, .00002, .00003,
1705 + .04146, .00660, .00173, .00001, .00001,
1706 + .00000, .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 + .03727, .00590, .00141, .00001, .00001,
1709 + .00000, .00001, .00002,
1710 + .03375, .00531, .00117, .00001, .00001,
1711 + .00000, .00001, .00002,
1712 + .03076, .00481, .00099, .00001, .00001,
1713 + .00000, .00001, .00002,
1714 + .02815, .00438, .00085, .00001, .00001,
1715 + .00000, .00001, .00002,
1716 + .02591, .00401, .00074, .00001, .00001,
1717 + .00000, .00001, .00002,
1718 + .02394, .00369, .00065, .00001, .00001,
1719 + .00000, .00001, .00002,
1720 + .02221, .00341, .00057, .00001, .00000,
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 + .02067, .00316, .00051, .00001, .00000,
1724 + .00000, .00001, .00001,
1725 + .01930, .00294, .00046, .00000, .00000,
1726 + .00000, .00001, .00001,
1727 + .01807, .00275, .00042, .00000, .00000,
1728 + .00000, .00001, .00001,
1729 + .01696, .00257, .00038, .00000, .00000,
1730 + .00000, .00001, .00001,
1731 + .01596, .00241, .00035, .00000, .00001,
1732 + .00000, .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 + .06032, .00908, .00501, .00001, .00000,
1735 + -.00001, .00000, .00002,
1736 + .04870, .00723, .00307, .00001, .00000,
1737 + .00000, .00000, .00002,
1738 + .04045, .00594, .00204, .00001, .00000,
1739 + .00000, .00000, .00001,
1740 + .03432, .00499, .00144, .00000, .00000,
1741 + .00000, .00000, .00001,
1742 + .02958, .00427, .00107, .00000, .00000,
1743 + .00000, .00000, .00001,
1744 + .02582, .00369, .00082, .00000, .00000,
1745 + .00000, .00000, .00001,
1746 + .02277, .00324, .00065, .00000, .00000,
1747 + .00000, .00000, .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 + .02026, .00286, .00052, .00001, .00000,
1750 + .00000, .00000, .00001,
1751 + .01817, .00255, .00043, .00000, .00000,
1752 + .00000, .00000, .00001,
1753 + .01641, .00229, .00036, .00000, .00000,
1754 + .00000, .00000, .00000,
1755 + .01490, .00207, .00031, .00000, .00000,
1756 + .00000, .00000, .00001,
1757 + .01360, .00188, .00027, .00000, .00000,
1758 + .00000, .00000, .00000,
1759 + .01247, .00172, .00023, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .01149, .00158, .00021, .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 + .01062, .00145, .00018, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .00985, .00134, .00017, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .00917, .00125, .00015, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .00855, .00116, .00014, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00801, .00108, .00012, .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 + .03225, .00427, .00177, .00001, .00000,
1776 + .00000, .00000, .00001,
1777 + .02545, .00333, .00105, .00000, .00000,
1778 + .00000, .00000, .00001,
1779 + .02074, .00268, .00068, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01729, .00222, .00047, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01468, .00187, .00034, .00000, .00000,
1784 + .00000, .00000, .00000,
1785 + .01264, .00160, .00026, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01101, .00138, .00021, .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 + .00968, .00121, .00017, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00859, .00107, .00014, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00768, .00095, .00011, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00690, .00085, .00010, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00625, .00076, .00008, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00568, .00069, .00007, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00519, .00063, .00006, .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 + .00476, .00058, .00006, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00438, .00053, .00005, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00405, .00049, .00005, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00376, .00045, .00004, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00349, .00042, .00004, .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 + .01453, .00165, .00048, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01117, .00126, .00028, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00890, .00099, .00018, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00728, .00080, .00012, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00607, .00067, .00009, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00515, .00056, .00007, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00442, .00048, .00005, .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 + .00383, .00041, .00004, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00336, .00036, .00003, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00297, .00032, .00003, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00264, .00028, .00002, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00236, .00025, .00002, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00213, .00022, .00002, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00193, .00020, .00002, .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 + .00175, .00018, .00002, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00160, .00017, .00001, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00147, .00015, .00001, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00135, .00014, .00001, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00124, .00013, .00001, .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 + .00110, .00008, .00001, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00079, .00006, .00001, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00059, .00004, .00000, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00045, .00003, .00000, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00036, .00003, .00000, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00029, .00002, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00024, .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 + .00020, .00001, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00017, .00001, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00014, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00012, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00011, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00009, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00008, .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 + .00007, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00006, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00006, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00005, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00005, .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(70,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