]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms110.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Removal of useless dependencies via forward declarations
[u/mrichter/AliRoot.git] / PDF / spdf / sfms110.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS110(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.110 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 + .00350, .00584, 15.76545, 1.36380, .15972,
13 + .00000, .73557, 1.36685,
14 + .00388, .00609, 26.72803, 1.67856, .48954,
15 + .00000, 1.05886, 1.68223,
16 + .00423, .00632, 39.70970, 2.05033, .87447,
17 + .00000, 1.43812, 2.05457,
18 + .00457, .00653, 54.51459, 2.47316, 1.30900,
19 + .18116, 1.86762, 2.47792,
20 + .00489, .00673, 70.80423, 2.94346, 1.78988,
21 + .70933, 2.34397, 2.94871,
22 + .00520, .00693, 88.54226, 3.45863, 2.31472,
23 + 1.24271, 2.86469, 3.46434,
24 + .00549, .00711, 107.51952, 4.01425, 2.87924,
25 + 1.81975, 3.42544, 4.02039 /
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 + .00577, .00729, 127.57347, 4.60658, 3.47983,
28 + 2.43115, 4.02253, 4.61314,
29 + .00605, .00746, 148.57693, 5.23245, 4.11339,
30 + 3.07486, 4.65284, 5.23940,
31 + .00632, .00762, 170.40149, 5.88889, 4.77703,
32 + 3.74793, 5.31345, 5.89621,
33 + .00657, .00778, 192.71471, 6.56903, 5.46396,
34 + 4.44370, 5.99753, 6.57672,
35 + .00683, .00794, 215.68127, 7.27477, 6.17609,
36 + 5.16412, 6.70698, 7.28281,
37 + .00707, .00809, 239.28069, 8.00535, 6.91272,
38 + 5.90856, 7.44108, 8.01372,
39 + .00731, .00823, 263.13687, 8.75291, 7.66602,
40 + 6.66925, 8.19198, 8.76160 /
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 + .00754, .00838, 287.34186, 9.51840, 8.43698,
43 + 7.44721, 8.96066, 9.52740,
44 + .00777, .00852, 312.06598, 10.30521, 9.22899,
45 + 8.24587, 9.75050, 10.31451,
46 + .00799, .00865, 336.64063, 11.09840, 10.02717,
47 + 9.05040, 10.54661, 11.10800,
48 + .00821, .00878, 361.79715, 11.91353, 10.84707,
49 + 9.87634, 11.36452, 11.92340,
50 + .00842, .00891, 386.70850, 12.73188, 11.67000,
51 + 10.70506, 12.18556, 12.74203 /
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 + .00536, .00758, 13.84617, 1.20533, .13713,
54 + .00000, .64647, 1.20833,
55 + .00590, .00792, 22.73385, 1.46475, .41024,
56 + .00000, .91345, 1.46816,
57 + .00640, .00823, 32.96960, 1.76511, .72254,
58 + .00000, 1.22044, 1.76890,
59 + .00687, .00852, 44.38044, 2.10098, 1.06901,
60 + .14397, 1.56220, 2.10511,
61 + .00732, .00879, 56.69380, 2.46896, 1.44657,
62 + .56022, 1.93553, 2.47341,
63 + .00774, .00905, 69.87840, 2.86672, 1.85308,
64 + .97434, 2.33817, 2.87147,
65 + .00815, .00930, 83.77415, 3.29058, 2.28500,
66 + 1.41696, 2.76653, 3.29561 /
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 + .00855, .00954, 98.26125, 3.73752, 2.73940,
69 + 1.88065, 3.21765, 3.74282,
70 + .00893, .00977, 113.24922, 4.20504, 3.21388,
71 + 2.36384, 3.68907, 4.21060,
72 + .00929, .00999, 128.64873, 4.69090, 3.70623,
73 + 2.86430, 4.17858, 4.69669,
74 + .00965, .01020, 144.22554, 5.18993, 4.21138,
75 + 3.37703, 4.68105, 5.19596,
76 + .01000, .01041, 160.10609, 5.70364, 4.73085,
77 + 3.90362, 5.19800, 5.70989,
78 + .01033, .01061, 176.28105, 6.23151, 5.26417,
79 + 4.44364, 5.72894, 6.23798,
80 + .01066, .01080, 192.48924, 6.76780, 5.80564,
81 + 4.99144, 6.26815, 6.77447 /
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 + .01098, .01099, 208.80417, 7.31332, 6.35608,
84 + 5.54789, 6.81645, 7.32020,
85 + .01129, .01117, 225.35027, 7.87063, 6.91808,
86 + 6.11559, 7.37640, 7.87770,
87 + .01159, .01135, 241.66792, 8.42894, 7.48087,
88 + 6.68382, 7.93724, 8.43619,
89 + .01189, .01152, 258.27087, 8.99965, 8.05586,
90 + 7.26399, 8.51037, 9.00708,
91 + .01218, .01169, 274.59384, 9.56934, 8.62967,
92 + 7.84276, 9.08239, 9.57695 /
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 + .00811, .00984, 12.15788, 1.06455, .11760,
95 + .00000, .56796, 1.06759,
96 + .00887, .01030, 19.33097, 1.27746, .34297,
97 + .00000, .78763, 1.28076,
98 + .00957, .01072, 27.36415, 1.51900, .59538,
99 + .00000, 1.03507, 1.52253,
100 + .01022, .01111, 36.11627, 1.78447, .87049,
101 + .11395, 1.30578, 1.78822,
102 + .01085, .01148, 45.37636, 2.07092, 1.16565,
103 + .44068, 1.59697, 2.07487,
104 + .01144, .01183, 55.12385, 2.37640, 1.47909,
105 + .76087, 1.90679, 2.38055,
106 + .01201, .01217, 65.24172, 2.69800, 1.80801,
107 + 1.09891, 2.23238, 2.70232 /
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 + .01255, .01248, 75.64615, 3.03339, 2.15017,
110 + 1.44904, 2.57146, 3.03787,
111 + .01308, .01279, 86.27654, 3.38069, 2.50378,
112 + 1.81011, 2.92221, 3.38533,
113 + .01358, .01309, 97.07407, 3.73825, 2.86723,
114 + 2.18050, 3.28299, 3.74305,
115 + .01407, .01337, 107.87643, 4.10229, 3.23681,
116 + 2.55657, 3.65006, 4.10723,
117 + .01455, .01364, 118.78291, 4.47404, 3.61379,
118 + 2.93964, 4.02467, 4.47912,
119 + .01501, .01391, 129.79192, 4.85320, 3.99788,
120 + 3.32947, 4.40653, 4.85841,
121 + .01545, .01416, 140.72470, 5.23563, 4.38499,
122 + 3.72199, 4.79152, 5.24096 /
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 + .01589, .01441, 151.63962, 5.62203, 4.77584,
125 + 4.11799, 5.18036, 5.62748,
126 + .01631, .01466, 162.62886, 6.01435, 5.17240,
127 + 4.51942, 5.57501, 6.01993,
128 + .01672, .01489, 173.37791, 6.40488, 5.56699,
129 + 4.91866, 5.96776, 6.41057,
130 + .01713, .01512, 184.24803, 6.80195, 5.96792,
131 + 5.32403, 6.36695, 6.80775,
132 + .01752, .01534, 194.85468, 7.19599, 6.36569,
133 + 5.72603, 6.76304, 7.20190 /
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 + .01027, .01146, 11.26534, .98946, .10742,
136 + .00000, .52641, .99259,
137 + .01120, .01201, 17.57743, 1.17869, .30847,
138 + .00000, .72198, 1.18202,
139 + .01205, .01252, 24.53098, 1.39077, .53085,
140 + .00000, .93960, 1.39428,
141 + .01285, .01298, 32.00478, 1.62148, .77071,
142 + .09916, 1.17523, 1.62516,
143 + .01360, .01343, 39.82050, 1.86819, 1.02567,
144 + .38213, 1.42638, 1.87202,
145 + .01432, .01384, 47.96474, 2.12920, 1.29423,
146 + .65695, 1.69145, 2.13318,
147 + .01501, .01424, 56.34219, 2.40202, 1.57398,
148 + .94502, 1.96801, 2.40613 /
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 + .01567, .01462, 64.88661, 2.68469, 1.86306,
151 + 1.24137, 2.25413, 2.68893,
152 + .01630, .01498, 73.55186, 2.97566, 2.16000,
153 + 1.54511, 2.54832, 2.98001,
154 + .01691, .01533, 82.29319, 3.27357, 2.46350,
155 + 1.85493, 2.84924, 3.27804,
156 + .01750, .01566, 90.98100, 3.57530, 2.77048,
157 + 2.16783, 3.15381, 3.57988,
158 + .01807, .01599, 99.70162, 3.88197, 3.08209,
159 + 2.48500, 3.46314, 3.88665,
160 + .01862, .01630, 108.45699, 4.19338, 3.39817,
161 + 2.80630, 3.77707, 4.19816,
162 + .01916, .01660, 117.10468, 4.50611, 3.71533,
163 + 3.12841, 4.09220, 4.51099 /
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 + .01968, .01690, 125.69592, 4.82085, 4.03428,
166 + 3.45204, 4.40921, 4.82582,
167 + .02019, .01718, 134.30804, 5.13925, 4.35669,
168 + 3.77890, 4.72977, 5.14431,
169 + .02068, .01746, 142.69025, 5.45499, 4.67626,
170 + 4.10271, 5.04758, 5.46013,
171 + .02116, .01773, 151.13611, 5.77500, 4.99993,
172 + 4.43042, 5.36958, 5.78023,
173 + .02163, .01799, 159.33914, 6.09147, 5.31991,
174 + 4.75426, 5.68794, 6.09677 /
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 + .01212, .01278, 10.67074, .93913, .10070,
177 + .00000, .49870, .94237,
178 + .01318, .01340, 16.42786, 1.11296, .28593,
179 + .00000, .67862, 1.11637,
180 + .01417, .01398, 22.69605, 1.30608, .48898,
181 + .00000, .87704, 1.30964,
182 + .01509, .01451, 29.36817, 1.51464, .70636,
183 + .08975, 1.09031, 1.51833,
184 + .01595, .01500, 36.28737, 1.73620, .93588,
185 + .34497, 1.31612, 1.74003,
186 + .01678, .01548, 43.44522, 1.96929, 1.17624,
187 + .59128, 1.55310, 1.97324,
188 + .01756, .01592, 50.76023, 2.21168, 1.42531,
189 + .84812, 1.79906, 2.21574 /
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 + .01832, .01635, 58.17730, 2.46165, 1.68146,
192 + 1.11108, 2.05234, 2.46582,
193 + .01904, .01676, 65.65899, 2.71786, 1.94343,
194 + 1.37942, 2.31163, 2.72213,
195 + .01974, .01715, 73.16917, 2.97916, 2.21010,
196 + 1.65201, 2.57581, 2.98352,
197 + .02041, .01753, 80.59789, 3.24282, 2.47882,
198 + 1.92627, 2.84217, 3.24727,
199 + .02106, .01789, 88.02338, 3.50988, 2.75064,
200 + 2.20330, 3.11178, 3.51442,
201 + .02169, .01825, 95.44975, 3.78022, 3.02548,
202 + 2.48303, 3.38453, 3.78485,
203 + .02230, .01859, 102.75584, 4.05088, 3.30041,
204 + 2.76258, 3.65747, 4.05559 /
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 + .02289, .01891, 109.98847, 4.32249, 3.57607,
207 + 3.04263, 3.93125, 4.32727,
208 + .02346, .01923, 117.21607, 4.59656, 3.85400,
209 + 3.32472, 4.20739, 4.60142,
210 + .02402, .01954, 124.22512, 4.86758, 4.12871,
211 + 3.60340, 4.48039, 4.87251,
212 + .02457, .01985, 131.26889, 5.14166, 4.40632,
213 + 3.88478, 4.75636, 5.14666,
214 + .02510, .02014, 138.08716, 5.41201, 4.68005,
215 + 4.16213, 5.02852, 5.41708 /
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 + .01376, .01391, 10.23021, .90166, .09575,
218 + .00000, .47816, .90501,
219 + .01495, .01459, 15.58616, 1.06429, .26947,
220 + .00000, .64668, 1.06779,
221 + .01605, .01523, 21.36449, 1.24372, .45857,
222 + .00000, .83125, 1.24735,
223 + .01707, .01581, 27.46876, 1.43639, .65981,
224 + .08300, 1.02848, 1.44015,
225 + .01803, .01636, 33.75774, 1.64004, .87121,
226 + .31844, 1.23625, 1.64391,
227 + .01895, .01688, 40.22672, 1.85334, 1.09157,
228 + .54451, 1.45331, 1.85732,
229 + .01982, .01737, 46.80410, 2.07425, 1.31899,
230 + .77930, 1.67769, 2.07834 /
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 + .02066, .01784, 53.44252, 2.30125, 1.55200,
233 + 1.01878, 1.90789, 2.30543,
234 + .02146, .01829, 60.11060, 2.53314, 1.78949,
235 + 1.26232, 2.14276, 2.53741,
236 + .02223, .01872, 66.77824, 2.76891, 2.03049,
237 + 1.50895, 2.38132, 2.77327,
238 + .02298, .01913, 73.34869, 3.00612, 2.27262,
239 + 1.75633, 2.62114, 3.01056,
240 + .02370, .01953, 79.89471, 3.24576, 2.51689,
241 + 2.00554, 2.86325, 3.25028,
242 + .02439, .01992, 86.42159, 3.48774, 2.76324,
243 + 2.25654, 3.10756, 3.49233,
244 + .02506, .02029, 92.82278, 3.72942, 3.00907,
245 + 2.50676, 3.35144, 3.73408 /
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 + .02572, .02065, 99.14192, 3.97141, 3.25500,
248 + 2.75686, 3.59553, 3.97614,
249 + .02635, .02100, 105.44106, 4.21509, 3.50244,
250 + 3.00824, 3.84122, 4.21990,
251 + .02697, .02133, 111.53206, 4.45555, 3.74648,
252 + 3.25606, 4.08358, 4.46042,
253 + .02757, .02166, 117.64073, 4.69830, 3.99266,
254 + 3.50582, 4.32816, 4.70323,
255 + .02816, .02198, 123.53794, 4.93727, 4.23492,
256 + 3.75151, 4.56888, 4.94226 /
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 + .02032, .01811, 8.96701, .79321, .08174,
259 + .00000, .41915, .79709,
260 + .02199, .01904, 13.22234, .92474, .22350,
261 + .00000, .55609, .92875,
262 + .02353, .01989, 17.68326, 1.06672, .37441,
263 + .00000, .70278, 1.07086,
264 + .02495, .02068, 22.28451, 1.21643, .53204,
265 + .06482, .85668, 1.22069,
266 + .02629, .02142, 26.92757, 1.37216, .69492,
267 + .24717, 1.01619, 1.37653,
268 + .02756, .02212, 31.61810, 1.53301, .86229,
269 + .41954, 1.18048, 1.53747,
270 + .02877, .02277, 36.31049, 1.69751, 1.03279,
271 + .59630, 1.34815, 1.70207 /
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 + .02992, .02340, 40.97721, 1.86462, 1.20545,
274 + .77446, 1.51818, 1.86926,
275 + .03103, .02400, 45.60224, 2.03354, 1.37955,
276 + .95370, 1.68983, 2.03827,
277 + .03208, .02457, 50.16994, 2.20364, 1.55447,
278 + 1.13341, 1.86248, 2.20844,
279 + .03310, .02512, 54.61698, 2.37319, 1.72856,
280 + 1.31197, 2.03442, 2.37807,
281 + .03408, .02565, 59.00085, 2.54306, 1.90270,
282 + 1.49031, 2.20654, 2.54801,
283 + .03503, .02616, 63.32956, 2.71326, 2.07695,
284 + 1.66850, 2.37888, 2.71829,
285 + .03594, .02665, 67.53239, 2.88196, 2.24947,
286 + 1.84476, 2.54959, 2.88704 /
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 + .03683, .02712, 71.64390, 3.04968, 2.42083,
289 + 2.01966, 2.71923, 3.05483,
290 + .03769, .02758, 75.71024, 3.21751, 2.59212,
291 + 2.19430, 2.88888, 3.22272,
292 + .03852, .02803, 79.60498, 3.38197, 2.75989,
293 + 2.36527, 3.05508, 3.38724,
294 + .03933, .02846, 83.48587, 3.54708, 2.92817,
295 + 2.53659, 3.22187, 3.55242,
296 + .04012, .02888, 87.19914, 3.70859, 3.09272,
297 + 2.70405, 3.38498, 3.71398 /
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 + .02981, .02368, 7.84250, .69509, .06949,
300 + .00000, .36644, .69988,
301 + .03215, .02494, 11.18441, .80035, .18429,
302 + .00000, .47674, .80531,
303 + .03429, .02609, 14.58595, .91141, .30366,
304 + .00000, .59221, .91654,
305 + .03627, .02715, 18.00874, 1.02634, .42598,
306 + .05015, .71105, 1.03162,
307 + .03813, .02814, 21.38867, 1.14393, .55023,
308 + .19010, .83216, 1.14935,
309 + .03988, .02907, 24.73934, 1.26364, .67602,
310 + .32025, .95509, 1.26919,
311 + .04154, .02995, 28.03472, 1.38449, .80247,
312 + .45198, 1.07890, 1.39016 /
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 + .04312, .03078, 31.26165, 1.50580, .92897,
315 + .58315, 1.20295, 1.51160,
316 + .04462, .03157, 34.41466, 1.62712, 1.05511,
317 + .71365, 1.32682, 1.63303,
318 + .04607, .03233, 37.48793, 1.74806, 1.18056,
319 + .84314, 1.45014, 1.75407,
320 + .04745, .03306, 40.44139, 1.86745, 1.30419,
321 + .97056, 1.57178, 1.87357,
322 + .04878, .03375, 43.32035, 1.98604, 1.42677,
323 + 1.09670, 1.69248, 1.99225,
324 + .05006, .03442, 46.13375, 2.10392, 1.54842,
325 + 1.22169, 1.81235, 2.11023,
326 + .05129, .03507, 48.83561, 2.21982, 1.66789,
327 + 1.34432, 1.93013, 2.22621 /
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 + .05248, .03569, 51.45310, 2.33420, 1.78568,
330 + 1.46509, 2.04631, 2.34068,
331 + .05364, .03629, 54.02028, 2.44790, 1.90262,
332 + 1.58487, 2.16173, 2.45447,
333 + .05475, .03687, 56.45315, 2.55851, 2.01632,
334 + 1.70128, 2.27397, 2.56516,
335 + .05584, .03743, 58.86105, 2.66894, 2.12971,
336 + 1.81724, 2.38596, 2.67567,
337 + .05689, .03798, 61.14193, 2.77622, 2.23982,
338 + 1.92981, 2.49474, 2.78302 /
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 + .03721, .02779, 7.23802, .64160, .06301,
341 + .00000, .33797, .64711,
342 + .04006, .02929, 10.11671, .73335, .16395,
343 + .00000, .43461, .73909,
344 + .04265, .03066, 12.99488, .82882, .26744,
345 + .00000, .53435, .83478,
346 + .04505, .03192, 15.84764, .92650, .37225,
347 + .04291, .63582, .93266,
348 + .04728, .03309, 18.62747, 1.02544, .47761,
349 + .16206, .73818, 1.03177,
350 + .04939, .03419, 21.35142, 1.12529, .58333,
351 + .27179, .84115, 1.13179,
352 + .05138, .03523, 24.00234, 1.22529, .68874,
353 + .38197, .94403, 1.23195 /
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 + .05327, .03621, 26.57333, 1.32497, .79342,
356 + .49088, 1.04637, 1.33177,
357 + .05507, .03715, 29.06330, 1.42398, .89709,
358 + .59850, 1.14786, 1.43093,
359 + .05679, .03804, 31.47043, 1.52209, .99955,
360 + .70462, 1.24829, 1.52918,
361 + .05843, .03889, 33.76482, 1.61837, 1.09993,
362 + .80843, 1.34674, 1.62559,
363 + .06001, .03970, 35.98555, 1.71350, 1.19891,
364 + .91062, 1.44392, 1.72084,
365 + .06153, .04049, 38.14165, 1.80760, 1.29665,
366 + 1.01139, 1.53996, 1.81506,
367 + .06299, .04124, 40.19783, 1.89966, 1.39217,
368 + 1.10976, 1.63386, 1.90723 /
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 + .06440, .04196, 42.17743, 1.99010, 1.48590,
371 + 1.20620, 1.72605, 1.99779,
372 + .06577, .04266, 44.10880, 2.07966, 1.57858,
373 + 1.30145, 1.81727, 2.08745,
374 + .06708, .04334, 45.92641, 2.16637, 1.66828,
375 + 1.39359, 1.90557, 2.17426,
376 + .06836, .04399, 47.71789, 2.25265, 1.75742,
377 + 1.48506, 1.99337, 2.26064,
378 + .06960, .04463, 49.40356, 2.33610, 1.84362,
379 + 1.57348, 2.07828, 2.34419 /
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 + .04353, .03120, 6.82886, .60506, .05866,
382 + .00000, .31862, .61118,
383 + .04679, .03291, 9.40564, .68793, .15051,
384 + .00000, .40629, .69433,
385 + .04976, .03446, 11.94843, .77330, .24371,
386 + .00000, .49584, .77995,
387 + .05249, .03588, 14.44091, .85992, .33728,
388 + .03828, .58619, .86681,
389 + .05503, .03719, 16.84590, .94701, .43065,
390 + .14419, .67663, .95411,
391 + .05742, .03843, 19.18231, 1.03434, .52372,
392 + .24103, .76703, 1.04164,
393 + .05968, .03960, 21.43833, 1.12130, .61596,
394 + .33770, .85681, 1.12878 /
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 + .06182, .04070, 23.61065, 1.20751, .70706,
397 + .43275, .94564, 1.21518,
398 + .06385, .04175, 25.70063, 1.29274, .79684,
399 + .52620, 1.03331, 1.30058,
400 + .06580, .04274, 27.70865, 1.37680, .88517,
401 + .61793, 1.11965, 1.38481,
402 + .06765, .04369, 29.61074, 1.45895, .97131,
403 + .70727, 1.20394, 1.46710,
404 + .06943, .04460, 31.44198, 1.53979, 1.05592,
405 + .79487, 1.28680, 1.54809,
406 + .07114, .04548, 33.21123, 1.61947, 1.13916,
407 + .88092, 1.36839, 1.62791,
408 + .07278, .04631, 34.88946, 1.69714, 1.22021,
409 + .96463, 1.44786, 1.70572 /
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 + .07436, .04712, 36.49754, 1.77319, 1.29947,
412 + 1.04641, 1.52563, 1.78190,
413 + .07589, .04790, 38.06026, 1.84827, 1.37761,
414 + 1.12693, 1.60235, 1.85710,
415 + .07737, .04865, 39.52288, 1.92071, 1.45298,
416 + 1.20457, 1.67635, 1.92966,
417 + .07880, .04937, 40.96005, 1.99261, 1.52768,
418 + 1.28143, 1.74976, 2.00169,
419 + .08018, .05007, 42.30522, 2.06194, 1.59968,
420 + 1.35551, 1.82052, 2.07113 /
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 + .04919, .03426, 6.51662, .57703, .05535,
423 + .00000, .30366, .58357,
424 + .05280, .03614, 8.86763, .65327, .14039,
425 + .00000, .38461, .66011,
426 + .05607, .03785, 11.16286, .73118, .22598,
427 + .00000, .46663, .73830,
428 + .05908, .03941, 13.39227, .80970, .31132,
429 + .03489, .54880, .81707,
430 + .06188, .04085, 15.52598, .88817, .39595,
431 + .13116, .63056, .89578,
432 + .06451, .04221, 17.58413, .96645, .47986,
433 + .21866, .71185, .97427,
434 + .06699, .04348, 19.55862, 1.04403, .56261,
435 + .30560, .79220, 1.05205 /
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 + .06934, .04468, 21.44861, 1.12060, .64398,
438 + .39070, .87135, 1.12882,
439 + .07156, .04582, 23.25690, 1.19601, .72385,
440 + .47404, .94914, 1.20441,
441 + .07369, .04691, 24.98553, 1.27010, .80212,
442 + .55552, 1.02547, 1.27868,
443 + .07571, .04794, 26.61408, 1.34224, .87818,
444 + .63460, 1.09971, 1.35099,
445 + .07765, .04893, 28.17510, 1.41301, .95264,
446 + .71188, 1.17246, 1.42191,
447 + .07951, .04988, 29.67714, 1.48255, 1.02568,
448 + .78758, 1.24387, 1.49161,
449 + .08130, .05078, 31.09542, 1.55014, 1.09657,
450 + .86098, 1.31323, 1.55934 /
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 + .08302, .05166, 32.44903, 1.61613, 1.16572,
453 + .93250, 1.38091, 1.62548,
454 + .08469, .05250, 33.76011, 1.68112, 1.23371,
455 + 1.00274, 1.44751, 1.69061,
456 + .08629, .05330, 34.98129, 1.74364, 1.29909,
457 + 1.07027, 1.51156, 1.75325,
458 + .08784, .05409, 36.17809, 1.80557, 1.36376,
459 + 1.13698, 1.57497, 1.81531,
460 + .08934, .05484, 37.29313, 1.86512, 1.42594,
461 + 1.20110, 1.63592, 1.87498 /
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 + .07173, .04618, 5.60344, .49395, .04584,
464 + .00000, .25985, .50239,
465 + .07664, .04871, 7.33556, .55173, .11197,
466 + .00000, .32214, .56061,
467 + .08106, .05098, 8.96837, .60926, .17677,
468 + .00000, .38360, .61852,
469 + .08509, .05305, 10.50742, .66598, .23996,
470 + .02581, .44381, .67560,
471 + .08882, .05496, 11.94121, .72156, .30137,
472 + .09635, .50255, .73150,
473 + .09231, .05673, 13.29171, .77606, .36120,
474 + .15927, .55993, .78630,
475 + .09557, .05839, 14.55930, .82924, .41928,
476 + .22083, .61576, .83976 /
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 + .09865, .05995, 15.74832, .88098, .47556,
479 + .28023, .66996, .89178,
480 + .10156, .06142, 16.86475, .93127, .53008,
481 + .33763, .72253, .94231,
482 + .10432, .06281, 17.91332, .98007, .58283,
483 + .39307, .77348, .99136,
484 + .10694, .06413, 18.88318, 1.02702, .63348,
485 + .44623, .82243, 1.03853,
486 + .10944, .06538, 19.79854, 1.07258, .68254,
487 + .49764, .86988, 1.08431,
488 + .11183, .06658, 20.66684, 1.11692, .73019,
489 + .54749, .91601, 1.12885,
490 + .11412, .06772, 21.47346, 1.15957, .77596,
491 + .59535, .96035, 1.17169 /
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 + .11631, .06881, 22.23237, 1.20082, .82019,
494 + .64155, 1.00322, 1.21314,
495 + .11843, .06987, 22.95897, 1.24112, .86334,
496 + .68656, 1.04506, 1.25362,
497 + .12045, .07087, 23.62389, 1.27951, .90442,
498 + .72943, 1.08490, 1.29217,
499 + .12241, .07184, 24.26986, 1.31728, .94478,
500 + .77148, 1.12408, 1.33012,
501 + .12429, .07278, 24.86124, 1.35325, .98323,
502 + .81155, 1.16139, 1.36624 /
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 + .10428, .06340, 4.75186, .41525, .03725,
505 + .00000, .21869, .42635,
506 + .11078, .06673, 5.96984, .45735, .08724,
507 + .00000, .26511, .46905,
508 + .11658, .06969, 7.07363, .49809, .13485,
509 + .00000, .30960, .51032,
510 + .12184, .07236, 8.07892, .53729, .18016,
511 + .01853, .35214, .55000,
512 + .12666, .07480, 8.98645, .57486, .22323,
513 + .06863, .39271, .58801,
514 + .13113, .07705, 9.81772, .61099, .26439,
515 + .11242, .43159, .62455,
516 + .13529, .07913, 10.57792, .64563, .30365,
517 + .15453, .46876, .65956 /
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 + .13919, .08108, 11.27366, .67879, .34109,
520 + .19453, .50425, .69307,
521 + .14285, .08290, 11.91191, .71053, .37681,
522 + .23263, .53817, .72514,
523 + .14631, .08461, 12.49830, .74091, .41090,
524 + .26893, .57058, .75583,
525 + .14956, .08622, 13.02791, .76970, .44317,
526 + .30326, .60127, .78490,
527 + .15265, .08774, 13.51797, .79730, .47406,
528 + .33608, .63067, .81278,
529 + .15560, .08918, 13.97442, .82386, .50373,
530 + .36756, .65893, .83960,
531 + .15840, .09055, 14.38903, .84908, .53188,
532 + .39742, .68576, .86507 /
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 + .16108, .09185, 14.77166, .87321, .55880,
535 + .42596, .71141, .88943,
536 + .16365, .09310, 15.13250, .89657, .58483,
537 + .45351, .73623, .91302,
538 + .16609, .09428, 15.45398, .91853, .60932,
539 + .47946, .75957, .93519,
540 + .16845, .09542, 15.76290, .93999, .63321,
541 + .50473, .78236, .95686,
542 + .17070, .09651, 16.03808, .96018, .65571,
543 + .52856, .80381, .97723 /
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 + .12954, .07691, 4.27776, .37116, .03263,
546 + -.00001, .19594, .38449,
547 + .13709, .08076, 5.24103, .40530, .07439,
548 + -.00001, .23429, .41935,
549 + .14378, .08414, 6.09151, .43773, .11346,
550 + -.00001, .27037, .45241,
551 + .14981, .08717, 6.84858, .46844, .15006,
552 + .01498, .30433, .48370,
553 + .15530, .08991, 7.51744, .49747, .18438,
554 + .05528, .33627, .51323,
555 + .16037, .09242, 8.11832, .52502, .21677,
556 + .09003, .36648, .54125,
557 + .16506, .09474, 8.65771, .55111, .24732,
558 + .12311, .39503, .56778 /
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 + .16944, .09689, 9.14259, .57583, .27615,
561 + .15420, .42201, .59289,
562 + .17353, .09889, 9.58003, .59924, .30339,
563 + .18355, .44753, .61668,
564 + .17738, .10076, 9.97528, .62143, .32915,
565 + .21126, .47169, .63922,
566 + .18098, .10250, 10.32566, .64225, .35332,
567 + .23725, .49434, .66036,
568 + .18439, .10414, 10.64490, .66204, .37626,
569 + .26189, .51586, .68045,
570 + .18763, .10570, 10.93800, .68093, .39813,
571 + .28536, .53640, .69963,
572 + .19070, .10716, 11.19932, .69872, .41874,
573 + .30747, .55573, .71769 /
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 + .19362, .10855, 11.43650, .71560, .43829,
576 + .32846, .57409, .73483,
577 + .19641, .10987, 11.65740, .73183, .45708,
578 + .34859, .59173, .75131,
579 + .19906, .11112, 11.84952, .74695, .47462,
580 + .36742, .60817, .76665,
581 + .20161, .11232, 12.03260, .76164, .49165,
582 + .38566, .62415, .78157,
583 + .20403, .11345, 12.19133, .77533, .50756,
584 + .40273, .63906, .79547 /
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 + .15095, .08851, 3.94980, .34073, .02953,
587 + -.00001, .18037, .35604,
588 + .15926, .09270, 4.75153, .36974, .06595,
589 + -.00001, .21349, .38586,
590 + .16658, .09636, 5.44508, .39690, .09956,
591 + -.00001, .24422, .41372,
592 + .17316, .09962, 6.05127, .42231, .13069,
593 + .01277, .27280, .43977,
594 + .17910, .10255, 6.57747, .44605, .15957,
595 + .04694, .29938, .46406,
596 + .18457, .10522, 7.04269, .46835, .18657,
597 + .07613, .32429, .48688,
598 + .18962, .10766, 7.45385, .48928, .21182,
599 + .10368, .34761, .50828 /
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 + .19430, .10992, 7.81789, .50893, .23546,
602 + .12938, .36946, .52835,
603 + .19866, .11201, 8.14151, .52739, .25763,
604 + .15347, .38997, .54721,
605 + .20275, .11395, 8.42966, .54475, .27845,
606 + .17607, .40925, .56494,
607 + .20656, .11575, 8.68070, .56090, .29784,
608 + .19712, .42718, .58143,
609 + .21015, .11745, 8.90620, .57614, .31613,
610 + .21696, .44411, .59699,
611 + .21356, .11904, 9.11049, .59060, .33348,
612 + .23576, .46016, .61175,
613 + .21677, .12053, 9.28926, .60411, .34971,
614 + .25337, .47517, .62554 /
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 + .21982, .12194, 9.44888, .61685, .36504,
617 + .26999, .48933, .63854,
618 + .22273, .12328, 9.59576, .62903, .37969,
619 + .28587, .50288, .65098,
620 + .22547, .12453, 9.72006, .64028, .39328,
621 + .30062, .51542, .66246,
622 + .22811, .12574, 9.83757, .65117, .40643,
623 + .31487, .52755, .67358,
624 + .23061, .12687, 9.93624, .66123, .41863,
625 + .32813, .53879, .68384 /
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 + .16985, .09883, 3.69993, .31767, .02724,
628 + .00000, .16869, .33485,
629 + .17874, .10326, 4.38708, .34298, .05979,
630 + .00000, .19803, .36103,
631 + .18655, .10711, 4.97131, .36639, .08950,
632 + .00000, .22495, .38520,
633 + .19351, .11051, 5.47405, .38807, .11676,
634 + .01121, .24974, .40755,
635 + .19979, .11355, 5.90348, .40813, .14184,
636 + .04108, .27258, .42820,
637 + .20553, .11630, 6.27797, .42681, .16510,
638 + .06639, .29381, .44742,
639 + .21082, .11881, 6.60431, .44421, .18671,
640 + .09013, .31354, .46530 /
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 + .21570, .12112, 6.88921, .46040, .20679,
643 + .11214, .33189, .48194,
644 + .22023, .12324, 7.13888, .47551, .22551,
645 + .13264, .34900, .49746,
646 + .22447, .12521, 7.35822, .48962, .24300,
647 + .15177, .36499, .51196,
648 + .22840, .12702, 7.54588, .50265, .25919,
649 + .16950, .37976, .52533,
650 + .23211, .12872, 7.71218, .51488, .27438,
651 + .18613, .39363, .53787,
652 + .23560, .13031, 7.86082, .52640, .28872,
653 + .20181, .40671, .54970,
654 + .23889, .13179, 7.98812, .53710, .30207,
655 + .21643, .41887, .56068 /
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 + .24199, .13318, 8.09987, .54712, .31461,
658 + .23016, .43027, .57096,
659 + .24495, .13451, 8.20142, .55666, .32655,
660 + .24324, .44114, .58075,
661 + .24772, .13573, 8.28453, .56539, .33756,
662 + .25532, .45113, .58971,
663 + .25040, .13691, 8.36239, .57382, .34818,
664 + .26697, .46077, .59836,
665 + .25291, .13801, 8.42506, .58155, .35799,
666 + .27775, .46964, .60629 /
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 + .24407, .13960, 2.94545, .24935, .02073,
669 + .00000, .13489, .27472,
670 + .25444, .14435, 3.33365, .26462, .04271,
671 + .00000, .15394, .29097,
672 + .26335, .14835, 3.64192, .27815, .06205,
673 + .00000, .17073, .30531,
674 + .27115, .15179, 3.89051, .29018, .07923,
675 + .00714, .18564, .31803,
676 + .27804, .15477, 4.08902, .30088, .09457,
677 + .02590, .19893, .32932,
678 + .28424, .15741, 4.25115, .31052, .10843,
679 + .04139, .21091, .33947,
680 + .28985, .15975, 4.38297, .31918, .12097,
681 + .05559, .22173, .34860 /
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 + .29494, .16184, 4.48996, .32700, .13236,
684 + .06847, .23153, .35681,
685 + .29959, .16373, 4.57679, .33407, .14274,
686 + .08022, .24042, .36423,
687 + .30387, .16543, 4.64674, .34048, .15225,
688 + .09100, .24854, .37096,
689 + .30777, .16695, 4.69986, .34618, .16084,
690 + .10077, .25583, .37693,
691 + .31139, .16835, 4.74210, .35138, .16875,
692 + .10979, .26252, .38238,
693 + .31477, .16962, 4.77578, .35616, .17610,
694 + .11817, .26871, .38739,
695 + .31789, .17078, 4.79922, .36043, .18279,
696 + .12583, .27430, .39187 /
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 + .32080, .17184, 4.81555, .36431, .18896,
699 + .13292, .27943, .39593,
700 + .32353, .17284, 4.82773, .36792, .19476,
701 + .13958, .28424, .39971,
702 + .32605, .17372, 4.83130, .37107, .19999,
703 + .14563, .28852, .40300,
704 + .32846, .17456, 4.83342, .37407, .20498,
705 + .15139, .29260, .40615,
706 + .33068, .17532, 4.82898, .37667, .20947,
707 + .15662, .29622, .40886 /
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 + .34755, .19432, 2.22233, .18632, .01516,
710 + -.00002, .10507, .22413,
711 + .35772, .19780, 2.39237, .19359, .02868,
712 + -.00001, .11577, .23197,
713 + .36611, .20050, 2.51071, .19955, .04006,
714 + -.00001, .12470, .23835,
715 + .37314, .20264, 2.59336, .20450, .04977,
716 + .00412, .13223, .24357,
717 + .37911, .20432, 2.64806, .20857, .05811,
718 + .01479, .13859, .24785,
719 + .38427, .20568, 2.68364, .21197, .06540,
720 + .02332, .14407, .25138,
721 + .38874, .20677, 2.70456, .21480, .07179,
722 + .03092, .14880, .25429 /
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 + .39265, .20763, 2.71420, .21714, .07740,
725 + .03763, .15288, .25668,
726 + .39608, .20831, 2.71527, .21908, .08237,
727 + .04361, .15642, .25864,
728 + .39911, .20885, 2.70973, .22068, .08678,
729 + .04896, .15950, .26023,
730 + .40174, .20924, 2.69761, .22193, .09065,
731 + .05369, .16211, .26143,
732 + .40407, .20953, 2.68204, .22294, .09412,
733 + .05795, .16440, .26238,
734 + .40617, .20974, 2.66413, .22376, .09724,
735 + .06184, .16643, .26313,
736 + .40801, .20985, 2.64299, .22435, .10001,
737 + .06531, .16814, .26363 /
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 + .40964, .20989, 2.62010, .22476, .10249,
740 + .06845, .16962, .26395,
741 + .41112, .20990, 2.59683, .22508, .10477,
742 + .07135, .17095, .26418,
743 + .41237, .20982, 2.57105, .22520, .10673,
744 + .07391, .17202, .26418,
745 + .41354, .20973, 2.54600, .22528, .10858,
746 + .07632, .17300, .26415,
747 + .41451, .20957, 2.51918, .22520, .11017,
748 + .07844, .17377, .26394 /
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 + .42354, .22993, 1.81715, .15091, .01228,
751 + .00000, .08871, .19674,
752 + .43159, .23122, 1.89409, .15439, .02179,
753 + .00000, .09533, .20007,
754 + .43783, .23191, 1.93633, .15694, .02953,
755 + .00000, .10056, .20239,
756 + .44274, .23218, 1.95611, .15880, .03594,
757 + .00280, .10476, .20397,
758 + .44660, .23213, 1.95924, .16009, .04131,
759 + .00995, .10812, .20491,
760 + .44968, .23185, 1.95200, .16098, .04587,
761 + .01553, .11085, .20545,
762 + .45213, .23140, 1.93736, .16152, .04976,
763 + .02041, .11307, .20562 /
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 + .45405, .23084, 1.91747, .16180, .05309,
766 + .02464, .11486, .20550,
767 + .45557, .23016, 1.89406, .16185, .05597,
768 + .02834, .11632, .20518,
769 + .45674, .22940, 1.86831, .16173, .05845,
770 + .03157, .11747, .20466,
771 + .45756, .22855, 1.84010, .16141, .06057,
772 + .03438, .11835, .20397,
773 + .45814, .22768, 1.81129, .16099, .06242,
774 + .03688, .11904, .20317,
775 + .45853, .22678, 1.78245, .16050, .06405,
776 + .03912, .11958, .20231,
777 + .45871, .22585, 1.75294, .15990, .06545,
778 + .04108, .11994, .20135 /
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 + .45873, .22488, 1.72355, .15924, .06666,
781 + .04282, .12018, .20033,
782 + .45867, .22392, 1.69501, .15855, .06774,
783 + .04440, .12035, .19929,
784 + .45841, .22292, 1.66596, .15776, .06864,
785 + .04576, .12036, .19815,
786 + .45812, .22195, 1.63826, .15699, .06946,
787 + .04703, .12035, .19705,
788 + .45766, .22095, 1.61043, .15614, .07013,
789 + .04812, .12022, .19587 /
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 + .48305, .25326, 1.53932, .12545, .01030,
792 + .00000, .07664, .17560,
793 + .48794, .25212, 1.56474, .12672, .01737,
794 + -.00001, .08075, .17595,
795 + .49121, .25064, 1.56694, .12735, .02299,
796 + .00000, .08380, .17568,
797 + .49332, .24896, 1.55540, .12754, .02752,
798 + .00203, .08608, .17501,
799 + .49450, .24714, 1.53424, .12738, .03121,
800 + .00718, .08775, .17402,
801 + .49506, .24524, 1.50794, .12698, .03427,
802 + .01112, .08898, .17281,
803 + .49511, .24330, 1.47842, .12639, .03682,
804 + .01450, .08987, .17145 /
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 + .49478, .24134, 1.44710, .12567, .03894,
807 + .01739, .09047, .16998,
808 + .49413, .23937, 1.41501, .12485, .04073,
809 + .01988, .09086, .16847,
810 + .49324, .23743, 1.38277, .12395, .04226,
811 + .02203, .09107, .16687,
812 + .49209, .23547, 1.35022, .12296, .04350,
813 + .02385, .09110, .16523,
814 + .49078, .23355, 1.31846, .12195, .04455,
815 + .02545, .09103, .16359,
816 + .48938, .23168, 1.28776, .12093, .04545,
817 + .02685, .09088, .16195,
818 + .48785, .22981, 1.25759, .11986, .04621,
819 + .02806, .09063, .16030 /
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 + .48623, .22797, 1.22838, .11878, .04683,
822 + .02912, .09032, .15866,
823 + .48460, .22620, 1.20052, .11772, .04737,
824 + .03007, .08997, .15707,
825 + .48281, .22443, 1.17309, .11662, .04778,
826 + .03087, .08955, .15546,
827 + .48107, .22273, 1.14718, .11557, .04815,
828 + .03161, .08913, .15391,
829 + .47922, .22102, 1.12175, .11448, .04841,
830 + .03223, .08864, .15233 /
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 + .53007, .26759, 1.32992, .10512, .00874,
833 + .00000, .06651, .15657,
834 + .53120, .26403, 1.32335, .10502, .01417,
835 + -.00001, .06895, .15490,
836 + .53101, .26047, 1.30204, .10452, .01837,
837 + .00000, .07058, .15294,
838 + .52998, .25696, 1.27313, .10377, .02169,
839 + .00153, .07166, .15084,
840 + .52823, .25350, 1.23941, .10281, .02430,
841 + .00538, .07229, .14867,
842 + .52608, .25012, 1.20396, .10173, .02644,
843 + .00827, .07263, .14642,
844 + .52361, .24683, 1.16799, .10058, .02817,
845 + .01072, .07274, .14419 /
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 + .52090, .24365, 1.13235, .09939, .02958,
848 + .01278, .07268, .14197,
849 + .51803, .24057, 1.09758, .09815, .03074,
850 + .01453, .07248, .13980,
851 + .51507, .23759, 1.06396, .09690, .03169,
852 + .01600, .07218, .13766,
853 + .51196, .23468, 1.03120, .09563, .03243,
854 + .01724, .07177, .13556,
855 + .50881, .23188, .99999, .09438, .03305,
856 + .01831, .07132, .13350,
857 + .50566, .22920, .97040, .09317, .03356,
858 + .01925, .07083, .13150,
859 + .50248, .22657, .94195, .09194, .03395,
860 + .02004, .07029, .12955 /
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 + .49929, .22403, .91486, .09074, .03426,
863 + .02072, .06972, .12766,
864 + .49616, .22160, .88931, .08958, .03451,
865 + .02132, .06915, .12585,
866 + .49297, .21920, .86460, .08841, .03468,
867 + .02181, .06853, .12407,
868 + .48989, .21691, .84144, .08729, .03482,
869 + .02225, .06794, .12237,
870 + .48674, .21467, .81908, .08618, .03489,
871 + .02261, .06731, .12067 /
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 + .57432, .27588, 1.12591, .08423, .00714,
874 + -.00001, .05544, .13418,
875 + .57027, .26955, 1.09439, .08316, .01114,
876 + -.00002, .05650, .13092,
877 + .56548, .26363, 1.05598, .08190, .01414,
878 + -.00001, .05702, .12772,
879 + .56030, .25811, 1.01542, .08055, .01645,
880 + .00110, .05719, .12459,
881 + .55483, .25286, .97417, .07912, .01822,
882 + .00386, .05707, .12159,
883 + .54925, .24791, .93405, .07768, .01961,
884 + .00590, .05678, .11871,
885 + .54364, .24323, .89556, .07624, .02071,
886 + .00759, .05636, .11595 /
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 + .53805, .23879, .85902, .07482, .02157,
889 + .00898, .05585, .11331,
890 + .53250, .23458, .82455, .07342, .02224,
891 + .01015, .05529, .11080,
892 + .52705, .23058, .79215, .07207, .02277,
893 + .01112, .05467, .10840,
894 + .52162, .22673, .76141, .07072, .02317,
895 + .01194, .05402, .10609,
896 + .51632, .22308, .73269, .06943, .02347,
897 + .01262, .05336, .10388,
898 + .51117, .21961, .70591, .06819, .02371,
899 + .01319, .05269, .10178,
900 + .50610, .21626, .68060, .06697, .02387,
901 + .01366, .05201, .09977 /
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 + .50114, .21306, .65687, .06579, .02397,
904 + .01406, .05133, .09784,
905 + .49635, .21002, .63472, .06468, .02403,
906 + .01442, .05066, .09600,
907 + .49157, .20706, .61366, .06358, .02405,
908 + .01469, .04999, .09422,
909 + .48700, .20425, .59406, .06254, .02405,
910 + .01493, .04934, .09253,
911 + .48246, .20151, .57539, .06150, .02400,
912 + .01512, .04869, .09089 /
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 + .60457, .27602, .96315, .06702, .00580,
915 + -.00003, .04567, .11317,
916 + .59516, .26729, .91661, .06548, .00882,
917 + -.00003, .04593, .10908,
918 + .58574, .25940, .86895, .06391, .01102,
919 + -.00003, .04582, .10526,
920 + .57651, .25217, .82299, .06233, .01264,
921 + .00080, .04548, .10177,
922 + .56742, .24549, .77913, .06076, .01387,
923 + .00284, .04498, .09846,
924 + .55858, .23930, .73821, .05923, .01480,
925 + .00432, .04438, .09539,
926 + .55002, .23352, .70026, .05776, .01549,
927 + .00553, .04373, .09251 /
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 + .54175, .22812, .66518, .05634, .01602,
930 + .00651, .04303, .08981,
931 + .53377, .22306, .63283, .05498, .01642,
932 + .00731, .04232, .08728,
933 + .52607, .21831, .60297, .05367, .01673,
934 + .00797, .04161, .08489,
935 + .51860, .21379, .57522, .05242, .01692,
936 + .00851, .04087, .08264,
937 + .51140, .20954, .54966, .05122, .01705,
938 + .00895, .04015, .08053,
939 + .50450, .20553, .52612, .05008, .01714,
940 + .00933, .03946, .07853,
941 + .49780, .20170, .50416, .04899, .01718,
942 + .00961, .03877, .07661 /
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 + .49132, .19806, .48379, .04794, .01718,
945 + .00985, .03810, .07481,
946 + .48512, .19461, .46495, .04694, .01715,
947 + .01005, .03744, .07312,
948 + .47904, .19129, .44726, .04597, .01710,
949 + .01021, .03680, .07148,
950 + .47325, .18815, .43089, .04505, .01704,
951 + .01035, .03619, .06994,
952 + .46757, .18511, .41544, .04416, .01695,
953 + .01045, .03559, .06844 /
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 + .62249, .27001, .82839, .05276, .00469,
956 + -.00001, .03713, .09382,
957 + .60782, .25937, .77313, .05113, .00695,
958 + -.00002, .03691, .08944,
959 + .59393, .24992, .72105, .04950, .00856,
960 + -.00001, .03644, .08553,
961 + .58087, .24141, .67334, .04794, .00973,
962 + .00060, .03585, .08198,
963 + .56841, .23368, .62963, .04645, .01057,
964 + .00211, .03517, .07871,
965 + .55660, .22658, .59003, .04501, .01119,
966 + .00319, .03444, .07572,
967 + .54540, .22004, .55415, .04364, .01164,
968 + .00406, .03371, .07296 /
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 + .53477, .21397, .52165, .04235, .01197,
971 + .00475, .03296, .07041,
972 + .52468, .20834, .49219, .04112, .01219,
973 + .00531, .03224, .06805,
974 + .51505, .20309, .46543, .03996, .01234,
975 + .00577, .03152, .06588,
976 + .50583, .19814, .44092, .03885, .01242,
977 + .00610, .03081, .06382,
978 + .49706, .19350, .41861, .03780, .01246,
979 + .00639, .03013, .06189,
980 + .48872, .18916, .39826, .03680, .01248,
981 + .00664, .02948, .06009,
982 + .48066, .18506, .37949, .03588, .01245,
983 + .00681, .02884, .05839 /
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 + .47296, .18117, .36224, .03500, .01240,
986 + .00696, .02823, .05678,
987 + .46565, .17749, .34640, .03416, .01235,
988 + .00709, .02766, .05527,
989 + .45854, .17398, .33164, .03334, .01226,
990 + .00717, .02708, .05385,
991 + .45180, .17067, .31807, .03257, .01218,
992 + .00723, .02653, .05252,
993 + .44522, .16748, .30542, .03183, .01207,
994 + .00728, .02600, .05125 /
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 + .62942, .25945, .71392, .04105, .00374,
997 + -.00002, .02974, .07641,
998 + .60987, .24730, .65417, .03947, .00546,
999 + -.00003, .02928, .07216,
1000 + .59188, .23671, .60074, .03796, .00666,
1001 + -.00002, .02867, .06839,
1002 + .57535, .22729, .55357, .03654, .00752,
1003 + .00046, .02799, .06505,
1004 + .55993, .21881, .51162, .03517, .00809,
1005 + .00158, .02725, .06207,
1006 + .54554, .21110, .47444, .03389, .00851,
1007 + .00237, .02653, .05932,
1008 + .53207, .20406, .44140, .03270, .00880,
1009 + .00301, .02581, .05683 /
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 + .51945, .19757, .41197, .03157, .00899,
1012 + .00351, .02511, .05456,
1013 + .50759, .19159, .38567, .03051, .00912,
1014 + .00390, .02443, .05245,
1015 + .49640, .18606, .36213, .02954, .00918,
1016 + .00421, .02378, .05052,
1017 + .48579, .18087, .34076, .02859, .00919,
1018 + .00444, .02315, .04874,
1019 + .47575, .17606, .32151, .02772, .00919,
1020 + .00464, .02254, .04706,
1021 + .46625, .17158, .30411, .02691, .00917,
1022 + .00480, .02196, .04549,
1023 + .45720, .16734, .28824, .02613, .00911,
1024 + .00491, .02140, .04406 /
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 + .44859, .16334, .27378, .02538, .00904,
1027 + .00499, .02087, .04271,
1028 + .44045, .15957, .26060, .02469, .00898,
1029 + .00507, .02038, .04143,
1030 + .43255, .15601, .24841, .02404, .00889,
1031 + .00512, .01989, .04024,
1032 + .42507, .15267, .23725, .02343, .00879,
1033 + .00516, .01943, .03912,
1034 + .41785, .14945, .22692, .02284, .00870,
1035 + .00518, .01899, .03805 /
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 + .62666, .24555, .61504, .03151, .00295,
1038 + -.00001, .02347, .06118,
1039 + .60266, .23238, .55378, .03010, .00427,
1040 + -.00002, .02292, .05727,
1041 + .58112, .22095, .50111, .02876, .00518,
1042 + -.00001, .02228, .05387,
1043 + .56158, .21098, .45592, .02751, .00579,
1044 + .00035, .02160, .05089,
1045 + .54366, .20202, .41667, .02632, .00621,
1046 + .00120, .02092, .04823,
1047 + .52713, .19397, .38253, .02526, .00649,
1048 + .00180, .02024, .04583,
1049 + .51180, .18669, .35271, .02426, .00666,
1050 + .00226, .01959, .04367 /
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 + .49758, .18002, .32651, .02331, .00677,
1053 + .00262, .01896, .04173,
1054 + .48433, .17392, .30337, .02245, .00683,
1055 + .00289, .01836, .03993,
1056 + .47193, .16828, .28285, .02164, .00686,
1057 + .00310, .01780, .03828,
1058 + .46023, .16304, .26452, .02088, .00683,
1059 + .00327, .01725, .03679,
1060 + .44926, .15820, .24814, .02017, .00679,
1061 + .00340, .01674, .03539,
1062 + .43895, .15371, .23344, .01950, .00675,
1063 + .00350, .01626, .03409,
1064 + .42917, .14946, .22013, .01889, .00670,
1065 + .00358, .01579, .03288 /
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 + .41990, .14550, .20809, .01830, .00663,
1068 + .00363, .01534, .03176,
1069 + .41115, .14181, .19718, .01776, .00655,
1070 + .00367, .01492, .03073,
1071 + .40277, .13828, .18719, .01724, .00646,
1072 + .00369, .01453, .02975,
1073 + .39487, .13497, .17808, .01675, .00638,
1074 + .00370, .01416, .02884,
1075 + .38728, .13181, .16969, .01627, .00630,
1076 + .00370, .01380, .02797 /
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 + .61543, .22929, .52874, .02383, .00233,
1079 + .00003, .01827, .04815,
1080 + .58758, .21551, .46827, .02265, .00333,
1081 + .00003, .01769, .04472,
1082 + .56298, .20372, .41779, .02154, .00399,
1083 + .00003, .01709, .04174,
1084 + .54102, .19344, .37551, .02051, .00443,
1085 + .00029, .01646, .03920,
1086 + .52105, .18433, .33951, .01956, .00471,
1087 + .00092, .01585, .03693,
1088 + .50284, .17619, .30872, .01867, .00489,
1089 + .00135, .01527, .03492,
1090 + .48612, .16886, .28220, .01786, .00500,
1091 + .00168, .01470, .03311 /
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 + .47071, .16221, .25919, .01711, .00505,
1094 + .00193, .01416, .03147,
1095 + .45643, .15613, .23909, .01641, .00507,
1096 + .00212, .01365, .03000,
1097 + .44318, .15056, .22148, .01576, .00506,
1098 + .00228, .01317, .02867,
1099 + .43077, .14540, .20585, .01516, .00504,
1100 + .00239, .01272, .02743,
1101 + .41919, .14065, .19202, .01459, .00500,
1102 + .00247, .01230, .02628,
1103 + .40836, .13625, .17971, .01406, .00495,
1104 + .00254, .01191, .02523,
1105 + .39811, .13215, .16867, .01359, .00488,
1106 + .00259, .01153, .02426 /
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 + .38846, .12830, .15872, .01314, .00482,
1109 + .00261, .01117, .02336,
1110 + .37940, .12470, .14973, .01271, .00476,
1111 + .00262, .01084, .02253,
1112 + .37075, .12132, .14158, .01231, .00468,
1113 + .00263, .01052, .02175,
1114 + .36262, .11816, .13419, .01193, .00460,
1115 + .00264, .01022, .02103,
1116 + .35484, .11513, .12743, .01156, .00452,
1117 + .00264, .00993, .02036 /
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 + .59672, .21188, .45333, .01801, .00166,
1120 + -.00014, .01386, .03724,
1121 + .56579, .19778, .39497, .01700, .00246,
1122 + -.00014, .01337, .03433,
1123 + .53877, .18584, .34760, .01609, .00296,
1124 + -.00011, .01284, .03185,
1125 + .51494, .17552, .30875, .01523, .00330,
1126 + .00008, .01231, .02974,
1127 + .49352, .16644, .27626, .01444, .00350,
1128 + .00060, .01180, .02788,
1129 + .47411, .15838, .24886, .01372, .00362,
1130 + .00093, .01131, .02622,
1131 + .45645, .15116, .22556, .01306, .00370,
1132 + .00117, .01086, .02473 /
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 + .44025, .14465, .20559, .01246, .00373,
1135 + .00136, .01042, .02342,
1136 + .42534, .13873, .18840, .01191, .00374,
1137 + .00151, .01001, .02223,
1138 + .41160, .13335, .17340, .01140, .00372,
1139 + .00162, .00963, .02115,
1140 + .39879, .12838, .16023, .01092, .00368,
1141 + .00171, .00928, .02016,
1142 + .38686, .12382, .14865, .01049, .00364,
1143 + .00177, .00894, .01926,
1144 + .37575, .11961, .13841, .01009, .00359,
1145 + .00180, .00862, .01844,
1146 + .36535, .11569, .12928, .00971, .00353,
1147 + .00183, .00832, .01768 /
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 + .35556, .11204, .12114, .00937, .00347,
1150 + .00185, .00803, .01697,
1151 + .34637, .10865, .11384, .00906, .00341,
1152 + .00185, .00777, .01631,
1153 + .33770, .10544, .10724, .00873, .00336,
1154 + .00185, .00753, .01571,
1155 + .32956, .10245, .10128, .00842, .00330,
1156 + .00186, .00731, .01516,
1157 + .32175, .09962, .09583, .00815, .00324,
1158 + .00185, .00708, .01463 /
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 + .57205, .19320, .38646, .01316, .00131,
1161 + -.00003, .01049, .02835,
1162 + .53865, .17922, .33150, .01239, .00190,
1163 + -.00003, .01006, .02595,
1164 + .50984, .16744, .28794, .01170, .00228,
1165 + -.00002, .00961, .02391,
1166 + .48467, .15734, .25283, .01104, .00253,
1167 + .00013, .00917, .02219,
1168 + .46223, .14851, .22393, .01044, .00265,
1169 + .00049, .00875, .02069,
1170 + .44205, .14072, .19990, .00988, .00273,
1171 + .00072, .00835, .01937,
1172 + .42381, .13379, .17972, .00938, .00277,
1173 + .00090, .00796, .01822 /
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 + .40720, .12757, .16261, .00892, .00277,
1176 + .00103, .00762, .01718,
1177 + .39201, .12193, .14799, .00850, .00277,
1178 + .00113, .00729, .01623,
1179 + .37808, .11681, .13536, .00811, .00274,
1180 + .00121, .00699, .01539,
1181 + .36515, .11211, .12438, .00775, .00270,
1182 + .00126, .00670, .01463,
1183 + .35319, .10781, .11480, .00741, .00266,
1184 + .00130, .00644, .01394,
1185 + .34209, .10386, .10637, .00710, .00262,
1186 + .00132, .00620, .01330,
1187 + .33168, .10020, .09891, .00684, .00257,
1188 + .00134, .00596, .01269 /
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 + .32199, .09680, .09228, .00658, .00253,
1191 + .00135, .00575, .01215,
1192 + .31295, .09364, .08638, .00632, .00248,
1193 + .00135, .00556, .01166,
1194 + .30435, .09069, .08107, .00610, .00242,
1195 + .00134, .00537, .01119,
1196 + .29631, .08794, .07629, .00589, .00237,
1197 + .00134, .00519, .01076,
1198 + .28867, .08533, .07197, .00569, .00232,
1199 + .00133, .00502, .01037 /
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 + .54225, .17448, .32776, .00955, .00097,
1202 + -.00003, .00776, .02118,
1203 + .50717, .16079, .27690, .00897, .00144,
1204 + -.00002, .00741, .01927,
1205 + .47724, .14937, .23738, .00843, .00170,
1206 + -.00003, .00705, .01768,
1207 + .45131, .13965, .20610, .00791, .00188,
1208 + .00009, .00671, .01632,
1209 + .42832, .13124, .18075, .00746, .00197,
1210 + .00036, .00637, .01514,
1211 + .40784, .12382, .15995, .00704, .00202,
1212 + .00052, .00606, .01412,
1213 + .38941, .11726, .14267, .00667, .00204,
1214 + .00066, .00576, .01321 /
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 + .37275, .11139, .12815, .00632, .00204,
1217 + .00076, .00549, .01241,
1218 + .35759, .10613, .11584, .00601, .00203,
1219 + .00082, .00523, .01168,
1220 + .34370, .10136, .10532, .00574, .00200,
1221 + .00088, .00501, .01101,
1222 + .33093, .09700, .09624, .00545, .00197,
1223 + .00091, .00479, .01044,
1224 + .31915, .09301, .08837, .00521, .00193,
1225 + .00093, .00459, .00991,
1226 + .30826, .08936, .08150, .00498, .00190,
1227 + .00095, .00441, .00943,
1228 + .29810, .08599, .07547, .00477, .00186,
1229 + .00096, .00423, .00899 /
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 + .28865, .08287, .07012, .00458, .00181,
1232 + .00096, .00406, .00859,
1233 + .27986, .07998, .06536, .00441, .00177,
1234 + .00096, .00390, .00821,
1235 + .27155, .07727, .06113, .00424, .00173,
1236 + .00096, .00376, .00787,
1237 + .26381, .07476, .05733, .00409, .00170,
1238 + .00096, .00363, .00756,
1239 + .25646, .07240, .05393, .00394, .00165,
1240 + .00094, .00351, .00726 /
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 + .50850, .15585, .27609, .00678, .00073,
1243 + .00000, .00567, .01556,
1244 + .47246, .14271, .22980, .00635, .00107,
1245 + .00000, .00539, .01409,
1246 + .44199, .13186, .19452, .00594, .00128,
1247 + -.00001, .00511, .01284,
1248 + .41577, .12268, .16703, .00558, .00140,
1249 + .00009, .00485, .01180,
1250 + .39278, .11476, .14507, .00522, .00146,
1251 + .00029, .00459, .01090,
1252 + .37237, .10784, .12724, .00494, .00150,
1253 + .00041, .00435, .01009,
1254 + .35410, .10174, .11261, .00468, .00151,
1255 + .00050, .00413, .00940 /
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 + .33765, .09630, .10044, .00445, .00150,
1258 + .00057, .00391, .00879,
1259 + .32281, .09144, .09022, .00419, .00147,
1260 + .00061, .00373, .00827,
1261 + .30928, .08705, .08152, .00399, .00145,
1262 + .00065, .00356, .00780,
1263 + .29687, .08307, .07408, .00377, .00142,
1264 + .00067, .00338, .00737,
1265 + .28545, .07944, .06769, .00360, .00139,
1266 + .00067, .00322, .00697,
1267 + .27495, .07612, .06214, .00345, .00136,
1268 + .00068, .00308, .00660,
1269 + .26521, .07306, .05729, .00330, .00133,
1270 + .00069, .00296, .00627 /
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 + .25616, .07024, .05303, .00316, .00129,
1273 + .00069, .00284, .00598,
1274 + .24776, .06764, .04926, .00303, .00126,
1275 + .00068, .00272, .00571,
1276 + .23987, .06521, .04590, .00290, .00123,
1277 + .00068, .00262, .00546,
1278 + .23253, .06295, .04291, .00277, .00120,
1279 + .00068, .00252, .00523,
1280 + .22559, .06084, .04023, .00268, .00117,
1281 + .00067, .00243, .00501 /
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 + .47178, .13772, .23081, .00467, .00058,
1284 + .00005, .00410, .01122,
1285 + .43546, .12536, .18928, .00439, .00083,
1286 + .00004, .00389, .01008,
1287 + .40504, .11519, .15824, .00411, .00096,
1288 + .00003, .00367, .00915,
1289 + .37909, .10665, .13438, .00383, .00105,
1290 + .00010, .00347, .00837,
1291 + .35638, .09933, .11561, .00362, .00109,
1292 + .00024, .00327, .00770,
1293 + .33641, .09296, .10054, .00340, .00110,
1294 + .00033, .00310, .00713,
1295 + .31865, .08736, .08827, .00321, .00110,
1296 + .00039, .00292, .00661 /
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 + .30277, .08240, .07817, .00303, .00110,
1299 + .00043, .00277, .00616,
1300 + .28845, .07797, .06976, .00287, .00108,
1301 + .00046, .00262, .00575,
1302 + .27547, .07402, .06268, .00271, .00106,
1303 + .00048, .00248, .00541,
1304 + .26359, .07042, .05667, .00257, .00104,
1305 + .00049, .00237, .00507,
1306 + .25273, .06716, .05153, .00244, .00101,
1307 + .00050, .00226, .00479,
1308 + .24277, .06418, .04709, .00233, .00098,
1309 + .00051, .00216, .00455,
1310 + .23354, .06146, .04322, .00223, .00095,
1311 + .00051, .00206, .00431 /
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 + .22502, .05894, .03984, .00213, .00092,
1314 + .00051, .00197, .00409,
1315 + .21714, .05662, .03687, .00203, .00090,
1316 + .00050, .00189, .00390,
1317 + .20972, .05447, .03424, .00196, .00088,
1318 + .00049, .00182, .00372,
1319 + .20283, .05249, .03191, .00189, .00086,
1320 + .00049, .00175, .00355,
1321 + .19637, .05063, .02983, .00182, .00083,
1322 + .00048, .00168, .00340 /
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 + .43310, .12059, .19151, .00325, .00039,
1325 + .00001, .00286, .00794,
1326 + .39713, .10907, .15479, .00306, .00059,
1327 + .00001, .00273, .00709,
1328 + .36730, .09969, .12779, .00284, .00069,
1329 + .00002, .00257, .00641,
1330 + .34203, .09185, .10735, .00263, .00076,
1331 + .00007, .00242, .00585,
1332 + .32008, .08514, .09147, .00247, .00078,
1333 + .00016, .00227, .00536,
1334 + .30083, .07937, .07887, .00233, .00079,
1335 + .00022, .00214, .00493,
1336 + .28384, .07430, .06874, .00220, .00079,
1337 + .00027, .00201, .00456 /
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 + .26869, .06985, .06046, .00207, .00078,
1340 + .00030, .00190, .00423,
1341 + .25511, .06588, .05361, .00195, .00077,
1342 + .00032, .00180, .00394,
1343 + .24284, .06236, .04790, .00186, .00075,
1344 + .00034, .00172, .00367,
1345 + .23166, .05915, .04307, .00175, .00073,
1346 + .00034, .00162, .00347,
1347 + .22149, .05625, .03897, .00165, .00070,
1348 + .00035, .00154, .00328,
1349 + .21219, .05361, .03546, .00158, .00068,
1350 + .00035, .00146, .00309,
1351 + .20359, .05121, .03242, .00152, .00066,
1352 + .00035, .00140, .00291 /
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 + .19569, .04900, .02977, .00145, .00065,
1355 + .00035, .00133, .00276,
1356 + .18840, .04697, .02746, .00137, .00063,
1357 + .00035, .00127, .00263,
1358 + .18157, .04508, .02541, .00131, .00061,
1359 + .00034, .00122, .00251,
1360 + .17524, .04334, .02360, .00126, .00059,
1361 + .00034, .00117, .00239,
1362 + .16930, .04172, .02200, .00120, .00057,
1363 + .00033, .00113, .00228 /
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 + .39330, .10440, .15740, .00219, .00028,
1366 + .00002, .00197, .00550,
1367 + .35836, .09387, .12543, .00207, .00041,
1368 + .00002, .00187, .00490,
1369 + .32952, .08535, .10231, .00195, .00049,
1370 + .00003, .00176, .00440,
1371 + .30523, .07827, .08506, .00185, .00053,
1372 + .00005, .00165, .00398,
1373 + .28436, .07225, .07180, .00173, .00054,
1374 + .00013, .00155, .00364,
1375 + .26618, .06706, .06140, .00160, .00055,
1376 + .00016, .00145, .00335,
1377 + .25015, .06257, .05310, .00151, .00054,
1378 + .00019, .00136, .00308 /
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 + .23597, .05861, .04639, .00140, .00053,
1381 + .00021, .00128, .00286,
1382 + .22325, .05511, .04089, .00134, .00052,
1383 + .00022, .00121, .00265,
1384 + .21186, .05199, .03632, .00125, .00052,
1385 + .00022, .00114, .00247,
1386 + .20150, .04917, .03250, .00119, .00049,
1387 + .00023, .00108, .00232,
1388 + .19210, .04664, .02926, .00113, .00047,
1389 + .00023, .00102, .00218,
1390 + .18355, .04434, .02649, .00107, .00045,
1391 + .00023, .00097, .00206,
1392 + .17567, .04224, .02413, .00102, .00044,
1393 + .00023, .00093, .00195 /
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 + .16842, .04033, .02208, .00097, .00043,
1396 + .00023, .00088, .00184,
1397 + .16176, .03857, .02029, .00093, .00042,
1398 + .00022, .00084, .00174,
1399 + .15553, .03695, .01873, .00090, .00041,
1400 + .00022, .00080, .00164,
1401 + .14978, .03546, .01734, .00087, .00040,
1402 + .00021, .00077, .00156,
1403 + .14443, .03406, .01612, .00082, .00038,
1404 + .00021, .00074, .00149 /
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 + .35322, .08936, .12800, .00140, .00021,
1407 + .00005, .00135, .00373,
1408 + .31975, .07985, .10052, .00135, .00032,
1409 + .00005, .00129, .00329,
1410 + .29238, .07218, .08098, .00124, .00037,
1411 + .00004, .00120, .00297,
1412 + .26943, .06589, .06659, .00118, .00039,
1413 + .00005, .00112, .00268,
1414 + .24981, .06055, .05568, .00112, .00039,
1415 + .00010, .00105, .00242,
1416 + .23282, .05597, .04721, .00105, .00039,
1417 + .00013, .00099, .00222,
1418 + .21794, .05201, .04052, .00098, .00039,
1419 + .00015, .00094, .00204 /
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 + .20481, .04854, .03515, .00091, .00038,
1422 + .00016, .00087, .00189,
1423 + .19314, .04549, .03078, .00085, .00037,
1424 + .00017, .00082, .00175,
1425 + .18267, .04279, .02718, .00080, .00036,
1426 + .00016, .00077, .00162,
1427 + .17321, .04035, .02420, .00076, .00035,
1428 + .00017, .00072, .00152,
1429 + .16462, .03816, .02169, .00073, .00034,
1430 + .00017, .00069, .00143,
1431 + .15682, .03619, .01955, .00071, .00033,
1432 + .00017, .00066, .00135,
1433 + .14973, .03439, .01773, .00066, .00032,
1434 + .00017, .00062, .00127 /
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 + .14322, .03275, .01616, .00061, .00031,
1437 + .00017, .00059, .00120,
1438 + .13725, .03125, .01479, .00057, .00030,
1439 + .00016, .00056, .00114,
1440 + .13166, .02986, .01361, .00055, .00028,
1441 + .00016, .00053, .00108,
1442 + .12652, .02859, .01257, .00053, .00027,
1443 + .00016, .00051, .00102,
1444 + .12173, .02741, .01165, .00051, .00027,
1445 + .00016, .00049, .00097 /
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 + .31365, .07564, .10297, .00092, .00016,
1448 + .00004, .00090, .00245,
1449 + .28210, .06714, .07966, .00084, .00022,
1450 + .00002, .00086, .00218,
1451 + .25643, .06036, .06336, .00078, .00026,
1452 + .00002, .00081, .00196,
1453 + .23507, .05480, .05152, .00074, .00029,
1454 + .00005, .00076, .00175,
1455 + .21694, .05014, .04265, .00069, .00029,
1456 + .00007, .00071, .00158,
1457 + .20130, .04616, .03587, .00064, .00028,
1458 + .00010, .00067, .00144,
1459 + .18769, .04272, .03054, .00059, .00028,
1460 + .00012, .00063, .00133 /
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 + .17572, .03971, .02631, .00055, .00028,
1463 + .00012, .00059, .00122,
1464 + .16513, .03708, .02290, .00051, .00027,
1465 + .00013, .00056, .00114,
1466 + .15566, .03477, .02011, .00049, .00026,
1467 + .00014, .00053, .00105,
1468 + .14714, .03269, .01780, .00045, .00026,
1469 + .00013, .00050, .00098,
1470 + .13946, .03083, .01588, .00042, .00025,
1471 + .00014, .00047, .00091,
1472 + .13251, .02916, .01426, .00040, .00024,
1473 + .00014, .00045, .00085,
1474 + .12615, .02763, .01287, .00038, .00023,
1475 + .00013, .00042, .00081 /
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 + .12034, .02625, .01169, .00036, .00022,
1478 + .00013, .00040, .00076,
1479 + .11503, .02500, .01067, .00034, .00021,
1480 + .00012, .00038, .00072,
1481 + .11010, .02384, .00979, .00033, .00020,
1482 + .00013, .00036, .00068,
1483 + .10558, .02277, .00901, .00032, .00020,
1484 + .00012, .00035, .00064,
1485 + .10135, .02179, .00833, .00030, .00019,
1486 + .00012, .00033, .00061 /
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 + .27538, .06334, .08197, .00063, .00007,
1489 + -.00002, .00055, .00160,
1490 + .24604, .05589, .06256, .00059, .00013,
1491 + -.00001, .00053, .00142,
1492 + .22235, .04999, .04915, .00057, .00015,
1493 + -.00001, .00050, .00125,
1494 + .20286, .04516, .03957, .00050, .00017,
1495 + -.00001, .00047, .00113,
1496 + .18634, .04113, .03246, .00048, .00018,
1497 + .00003, .00044, .00103,
1498 + .17217, .03771, .02707, .00044, .00018,
1499 + .00004, .00040, .00095,
1500 + .15989, .03478, .02289, .00042, .00017,
1501 + .00005, .00038, .00086 /
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 + .14915, .03224, .01959, .00039, .00016,
1504 + .00006, .00036, .00079,
1505 + .13966, .03001, .01694, .00038, .00016,
1506 + .00006, .00034, .00072,
1507 + .13125, .02803, .01480, .00035, .00015,
1508 + .00007, .00031, .00067,
1509 + .12367, .02629, .01304, .00034, .00015,
1510 + .00007, .00029, .00062,
1511 + .11688, .02473, .01158, .00032, .00014,
1512 + .00007, .00028, .00058,
1513 + .11076, .02333, .01035, .00030, .00013,
1514 + .00007, .00026, .00055,
1515 + .10520, .02206, .00932, .00028, .00013,
1516 + .00007, .00025, .00051 /
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 + .10011, .02090, .00843, .00026, .00013,
1519 + .00007, .00023, .00048,
1520 + .09546, .01985, .00767, .00025, .00012,
1521 + .00006, .00022, .00046,
1522 + .09117, .01889, .00701, .00024, .00011,
1523 + .00006, .00020, .00043,
1524 + .08723, .01802, .00643, .00023, .00011,
1525 + .00005, .00019, .00040,
1526 + .08358, .01721, .00593, .00022, .00010,
1527 + .00006, .00019, .00038 /
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 + .23844, .05217, .06416, .00033, .00007,
1530 + .00002, .00037, .00101,
1531 + .21160, .04576, .04827, .00034, .00011,
1532 + .00002, .00035, .00089,
1533 + .19017, .04068, .03747, .00032, .00012,
1534 + .00003, .00033, .00079,
1535 + .17257, .03658, .02983, .00029, .00013,
1536 + .00002, .00030, .00070,
1537 + .15774, .03317, .02425, .00028, .00012,
1538 + .00004, .00029, .00064,
1539 + .14509, .03029, .02005, .00027, .00012,
1540 + .00005, .00027, .00058,
1541 + .13420, .02782, .01682, .00026, .00012,
1542 + .00005, .00025, .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 + .12471, .02569, .01429, .00024, .00012,
1545 + .00005, .00023, .00049,
1546 + .11638, .02384, .01229, .00022, .00011,
1547 + .00005, .00022, .00045,
1548 + .10898, .02221, .01068, .00022, .00011,
1549 + .00005, .00020, .00041,
1550 + .10239, .02076, .00936, .00020, .00011,
1551 + .00006, .00019, .00038,
1552 + .09649, .01947, .00827, .00018, .00010,
1553 + .00006, .00018, .00035,
1554 + .09117, .01832, .00736, .00018, .00010,
1555 + .00005, .00017, .00032,
1556 + .08635, .01728, .00660, .00017, .00009,
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 + .08197, .01633, .00595, .00016, .00009,
1560 + .00005, .00015, .00028,
1561 + .07798, .01547, .00539, .00014, .00008,
1562 + .00004, .00014, .00028,
1563 + .07429, .01469, .00491, .00014, .00008,
1564 + .00004, .00013, .00026,
1565 + .07092, .01398, .00450, .00013, .00007,
1566 + .00004, .00013, .00025,
1567 + .06781, .01332, .00414, .00013, .00007,
1568 + .00004, .00012, .00023 /
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 + .20374, .04241, .04951, .00018, .00006,
1571 + .00003, .00025, .00060,
1572 + .17960, .03694, .03669, .00018, .00008,
1573 + .00002, .00023, .00053,
1574 + .16043, .03267, .02811, .00017, .00009,
1575 + .00003, .00022, .00047,
1576 + .14480, .02921, .02214, .00015, .00010,
1577 + .00003, .00020, .00043,
1578 + .13169, .02637, .01782, .00017, .00010,
1579 + .00004, .00019, .00038,
1580 + .12059, .02397, .01461, .00015, .00009,
1581 + .00004, .00017, .00035,
1582 + .11108, .02193, .01216, .00014, .00009,
1583 + .00005, .00017, .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 + .10284, .02017, .01026, .00013, .00008,
1586 + .00005, .00016, .00029,
1587 + .09561, .01865, .00877, .00012, .00008,
1588 + .00005, .00015, .00026,
1589 + .08924, .01731, .00757, .00012, .00008,
1590 + .00005, .00013, .00025,
1591 + .08356, .01614, .00660, .00011, .00007,
1592 + .00004, .00012, .00023,
1593 + .07851, .01509, .00581, .00010, .00007,
1594 + .00004, .00011, .00021,
1595 + .07398, .01415, .00515, .00009, .00007,
1596 + .00004, .00010, .00020,
1597 + .06987, .01331, .00459, .00009, .00006,
1598 + .00004, .00010, .00018 /
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 + .06613, .01256, .00413, .00009, .00006,
1601 + .00004, .00010, .00016,
1602 + .06274, .01187, .00373, .00009, .00005,
1603 + .00003, .00009, .00015,
1604 + .05964, .01124, .00339, .00008, .00005,
1605 + .00003, .00008, .00015,
1606 + .05681, .01067, .00309, .00008, .00005,
1607 + .00003, .00008, .00015,
1608 + .05419, .01015, .00284, .00007, .00005,
1609 + .00003, .00008, .00014 /
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 + .17177, .03403, .03769, .00012, .00002,
1612 + .00000, .00013, .00036,
1613 + .15036, .02946, .02751, .00014, .00004,
1614 + .00001, .00013, .00031,
1615 + .13349, .02589, .02081, .00012, .00005,
1616 + .00000, .00012, .00029,
1617 + .11980, .02304, .01622, .00012, .00005,
1618 + .00000, .00011, .00025,
1619 + .10849, .02069, .01293, .00009, .00005,
1620 + .00002, .00010, .00024,
1621 + .09891, .01873, .01050, .00010, .00005,
1622 + .00002, .00010, .00020,
1623 + .09070, .01707, .00867, .00010, .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 + .08363, .01565, .00727, .00009, .00004,
1627 + .00002, .00009, .00017,
1628 + .07748, .01441, .00617, .00008, .00004,
1629 + .00002, .00008, .00016,
1630 + .07206, .01334, .00530, .00008, .00004,
1631 + .00002, .00007, .00015,
1632 + .06725, .01239, .00460, .00009, .00004,
1633 + .00002, .00007, .00013,
1634 + .06300, .01155, .00403, .00008, .00004,
1635 + .00002, .00006, .00012,
1636 + .05920, .01081, .00355, .00007, .00003,
1637 + .00002, .00006, .00011,
1638 + .05575, .01014, .00316, .00007, .00003,
1639 + .00002, .00005, .00011 /
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 + .05264, .00954, .00283, .00007, .00003,
1642 + .00002, .00005, .00010,
1643 + .04982, .00900, .00255, .00006, .00003,
1644 + .00001, .00004, .00009,
1645 + .04725, .00850, .00231, .00005, .00003,
1646 + .00001, .00004, .00009,
1647 + .04491, .00805, .00210, .00004, .00003,
1648 + .00001, .00004, .00009,
1649 + .04275, .00764, .00192, .00004, .00002,
1650 + .00001, .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 + .14223, .02674, .02804, .00005, .00004,
1653 + .00003, .00010, .00020,
1654 + .12366, .02299, .02016, .00004, .00004,
1655 + .00002, .00009, .00019,
1656 + .10910, .02008, .01505, .00005, .00004,
1657 + .00002, .00008, .00016,
1658 + .09739, .01778, .01159, .00005, .00004,
1659 + .00002, .00008, .00014,
1660 + .08771, .01589, .00914, .00004, .00004,
1661 + .00002, .00007, .00012,
1662 + .07957, .01432, .00736, .00004, .00004,
1663 + .00002, .00007, .00011,
1664 + .07266, .01299, .00603, .00005, .00004,
1665 + .00002, .00006, .00011 /
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 + .06672, .01186, .00502, .00005, .00003,
1668 + .00002, .00005, .00009,
1669 + .06158, .01089, .00423, .00004, .00003,
1670 + .00002, .00005, .00008,
1671 + .05706, .01004, .00362, .00004, .00003,
1672 + .00002, .00005, .00008,
1673 + .05310, .00929, .00312, .00003, .00003,
1674 + .00002, .00004, .00007,
1675 + .04957, .00864, .00272, .00003, .00003,
1676 + .00002, .00004, .00007,
1677 + .04642, .00805, .00239, .00003, .00002,
1678 + .00002, .00004, .00006,
1679 + .04360, .00753, .00212, .00003, .00002,
1680 + .00002, .00004, .00006 /
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 + .04106, .00707, .00189, .00003, .00002,
1683 + .00002, .00003, .00006,
1684 + .03876, .00665, .00169, .00003, .00002,
1685 + .00001, .00003, .00005,
1686 + .03665, .00627, .00153, .00003, .00002,
1687 + .00001, .00003, .00005,
1688 + .03474, .00592, .00139, .00003, .00002,
1689 + .00001, .00003, .00004,
1690 + .03299, .00561, .00127, .00002, .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 + .09262, .01566, .01462, .00002, .00001,
1694 + .00000, .00002, .00006,
1695 + .07932, .01327, .01017, .00002, .00001,
1696 + .00000, .00002, .00005,
1697 + .06906, .01144, .00739, .00002, .00001,
1698 + .00000, .00002, .00005,
1699 + .06092, .01001, .00555, .00002, .00001,
1700 + .00000, .00002, .00004,
1701 + .05426, .00885, .00429, .00002, .00001,
1702 + .00000, .00002, .00003,
1703 + .04875, .00790, .00339, .00002, .00001,
1704 + .00000, .00002, .00004,
1705 + .04412, .00710, .00273, .00001, .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 + .04017, .00643, .00224, .00002, .00001,
1709 + .00001, .00002, .00002,
1710 + .03677, .00586, .00187, .00002, .00001,
1711 + .00001, .00002, .00002,
1712 + .03383, .00536, .00157, .00001, .00001,
1713 + .00000, .00001, .00002,
1714 + .03124, .00493, .00134, .00001, .00001,
1715 + .00000, .00001, .00002,
1716 + .02897, .00455, .00116, .00001, .00001,
1717 + .00001, .00001, .00002,
1718 + .02696, .00422, .00101, .00001, .00001,
1719 + .00001, .00001, .00002,
1720 + .02517, .00392, .00089, .00001, .00001,
1721 + .00001, .00001, .00002 /
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 + .02356, .00366, .00079, .00001, .00001,
1724 + .00000, .00001, .00002,
1725 + .02212, .00343, .00070, .00001, .00001,
1726 + .00000, .00001, .00001,
1727 + .02081, .00321, .00063, .00001, .00001,
1728 + .00000, .00001, .00001,
1729 + .01963, .00302, .00057, .00001, .00001,
1730 + .00000, .00001, .00001,
1731 + .01855, .00284, .00052, .00001, .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 + .05513, .00831, .00682, .00001, .00000,
1735 + .00000, .00000, .00001,
1736 + .04647, .00693, .00458, .00000, .00000,
1737 + .00000, .00000, .00001,
1738 + .03988, .00590, .00324, .00001, .00000,
1739 + .00000, .00000, .00001,
1740 + .03473, .00510, .00237, .00001, .00000,
1741 + .00000, .00001, .00001,
1742 + .03058, .00446, .00179, .00001, .00000,
1743 + .00000, .00000, .00001,
1744 + .02718, .00394, .00139, .00001, .00000,
1745 + .00000, .00000, .00001,
1746 + .02435, .00350, .00110, .00001, .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 + .02196, .00314, .00089, .00001, .00000,
1750 + .00000, .00000, .00001,
1751 + .01994, .00284, .00073, .00000, .00000,
1752 + .00000, .00000, .00000,
1753 + .01820, .00258, .00061, .00000, .00000,
1754 + .00000, .00000, .00000,
1755 + .01667, .00235, .00051, .00000, .00000,
1756 + .00000, .00000, .00001,
1757 + .01535, .00216, .00044, .00000, .00000,
1758 + .00000, .00000, .00001,
1759 + .01419, .00199, .00038, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .01316, .00184, .00033, .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 + .01224, .00170, .00029, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .01142, .00158, .00026, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .01069, .00148, .00023, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .01002, .00138, .00021, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00942, .00129, .00019, .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 + .02916, .00387, .00274, .00000, .00000,
1776 + .00000, .00000, .00001,
1777 + .02412, .00317, .00177, .00000, .00000,
1778 + .00000, .00000, .00000,
1779 + .02038, .00266, .00121, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01750, .00226, .00086, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01520, .00196, .00064, .00000, .00000,
1784 + .00000, .00000, .00000,
1785 + .01335, .00171, .00048, .00001, .00000,
1786 + .00000, .00000, .00000,
1787 + .01183, .00150, .00038, .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 + .01056, .00134, .00030, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00949, .00119, .00024, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00858, .00108, .00020, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00780, .00097, .00017, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00712, .00088, .00014, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00653, .00081, .00012, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00601, .00074, .00010, .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 + .00555, .00068, .00009, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00515, .00063, .00008, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00479, .00058, .00007, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00446, .00054, .00006, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00417, .00051, .00006, .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 + .01296, .00148, .00088, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01050, .00119, .00055, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00871, .00098, .00036, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00736, .00082, .00025, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00630, .00070, .00018, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00546, .00060, .00013, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00477, .00052, .00010, .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 + .00421, .00046, .00008, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00374, .00041, .00006, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00335, .00036, .00005, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00301, .00033, .00004, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00272, .00029, .00004, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00248, .00027, .00003, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00226, .00024, .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 + .00207, .00022, .00002, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00190, .00020, .00002, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00176, .00019, .00002, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00163, .00017, .00002, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00151, .00016, .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 + .00094, .00007, .00002, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00072, .00005, .00001, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00057, .00004, .00001, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00046, .00003, .00001, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00037, .00003, .00000, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00031, .00002, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00026, .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 + .00022, .00002, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00019, .00001, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00017, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00015, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00013, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00011, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00010, .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 + .00009, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00008, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00007, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00007, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00006, .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(60,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