]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms125.F
Adding some QCD diffractive states to the PDG list
[u/mrichter/AliRoot.git] / PDF / spdf / sfms125.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS125(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.125 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 + .00195, .00475, 10.30474, .83897, .15537,
13 + .00000, .48248, .84275,
14 + .00245, .00501, 22.74874, 1.27391, .59666,
15 + .00000, .92138, 1.27835,
16 + .00290, .00525, 38.69376, 1.80601, 1.13404,
17 + .00000, 1.45680, 1.81101,
18 + .00332, .00547, 57.55440, 2.41978, 1.75236,
19 + .18121, 2.07346, 2.42528,
20 + .00371, .00569, 78.70570, 3.10377, 2.44038,
21 + .93212, 2.76002, 3.10973,
22 + .00408, .00589, 102.07712, 3.85572, 3.19596,
23 + 1.70778, 3.51429, 3.86210,
24 + .00444, .00608, 127.07484, 4.66182, 4.00536,
25 + 2.53709, 4.32252, 4.66859 /
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 + .00477, .00627, 153.45285, 5.51557, 4.86215,
28 + 3.41204, 5.17823, 5.52271,
29 + .00510, .00645, 181.01610, 6.41189, 5.76127,
30 + 4.32772, 6.07637, 6.41937,
31 + .00541, .00663, 209.54704, 7.34520, 6.69719,
32 + 5.27887, 7.01138, 7.35300,
33 + .00572, .00679, 238.88373, 8.31114, 7.66558,
34 + 6.26135, 7.97890, 8.31925,
35 + .00601, .00696, 268.77637, 9.30332, 8.66005,
36 + 7.26895, 8.97258, 9.31172,
37 + .00629, .00712, 299.03442, 10.31650, 9.67541,
38 + 8.29657, 9.98718, 10.32518,
39 + .00657, .00727, 329.74854, 11.35245, 10.71342,
40 + 9.34607, 11.02447, 11.36139 /
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 + .00684, .00742, 360.90289, 12.41042, 11.77334,
43 + 10.41682, 12.08372, 12.41962,
44 + .00710, .00757, 392.02005, 13.47797, 12.84275,
45 + 11.49647, 13.15248, 13.48741,
46 + .00735, .00771, 423.31967, 14.56010, 13.92667,
47 + 12.59007, 14.23578, 14.56978,
48 + .00760, .00785, 454.92798, 15.65979, 15.02805,
49 + 13.70065, 15.33659, 15.66970,
50 + .00785, .00799, 486.13748, 16.75830, 16.12820,
51 + 14.80957, 16.43617, 16.76843 /
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 + .00333, .00614, 9.39194, .77917, .13714,
54 + .00000, .44344, .78263,
55 + .00404, .00652, 19.64882, 1.14390, .50830,
56 + .00000, .81196, 1.14783,
57 + .00468, .00687, 32.26968, 1.57604, .94579,
58 + .00000, 1.24727, 1.58038,
59 + .00527, .00719, 46.75418, 2.06240, 1.43675,
60 + .14321, 1.73637, 2.06709,
61 + .00582, .00749, 62.60751, 2.59367, 1.97210,
62 + .73041, 2.27008, 2.59868,
63 + .00634, .00777, 79.77301, 3.16791, 2.55000,
64 + 1.32590, 2.84651, 3.17322,
65 + .00684, .00805, 97.81029, 3.77452, 3.15994,
66 + 1.95312, 3.45513, 3.78010 /
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 + .00731, .00831, 116.54944, 4.40872, 3.79720,
69 + 2.60612, 4.09116, 4.41455,
70 + .00776, .00856, 135.86064, 5.06686, 4.45817,
71 + 3.28144, 4.75101, 5.07292,
72 + .00820, .00880, 155.60034, 5.74500, 5.13894,
73 + 3.97541, 5.43075, 5.75129,
74 + .00862, .00903, 175.66640, 6.44017, 5.83657,
75 + 4.68525, 6.12740, 6.44667,
76 + .00902, .00925, 195.89603, 7.14793, 6.54664,
77 + 5.40669, 6.83656, 7.15463,
78 + .00942, .00947, 216.17055, 7.86476, 7.26566,
79 + 6.13632, 7.55472, 7.87165,
80 + .00980, .00968, 236.56630, 8.59217, 7.99513,
81 + 6.87575, 8.28337, 8.59924 /
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 + .01017, .00988, 257.08298, 9.32984, 8.73476,
84 + 7.62475, 9.02224, 9.33709,
85 + .01053, .01008, 277.40414, 10.06912, 9.47592,
86 + 8.37475, 9.76266, 10.07654,
87 + .01088, .01027, 297.69208, 10.81383, 10.22241,
88 + 9.12963, 10.50845, 10.82141,
89 + .01122, .01046, 318.04102, 11.56625, 10.97653,
90 + 9.89170, 11.26190, 11.57399,
91 + .01155, .01064, 337.98416, 12.31339, 11.72531,
92 + 10.64805, 12.01003, 12.32128 /
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 + .00546, .00795, 8.55666, .72311, .12065,
95 + .00000, .40736, .72640,
96 + .00647, .00850, 16.96416, 1.02699, .43106,
97 + .00000, .71492, 1.03061,
98 + .00738, .00899, 26.89989, 1.37578, .78529,
99 + .00000, 1.06677, 1.37967,
100 + .00821, .00945, 37.96227, 1.75884, 1.17303,
101 + .11261, 1.45248, 1.76298,
102 + .00898, .00987, 49.77652, 2.16904, 1.58736,
103 + .56959, 1.86502, 2.17340,
104 + .00972, .01027, 62.30912, 2.60496, 2.02700,
105 + 1.02457, 2.30305, 2.60952,
106 + .01041, .01065, 75.24337, 3.05874, 2.48415,
107 + 1.49666, 2.75874, 3.06348 /
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 + .01107, .01101, 88.47001, 3.52702, 2.95554,
110 + 1.98164, 3.22878, 3.53193,
111 + .01170, .01135, 101.90923, 4.00735, 3.43874,
112 + 2.47724, 3.71075, 4.01243,
113 + .01231, .01168, 115.47191, 4.49710, 3.93115,
114 + 2.98105, 4.20201, 4.50232,
115 + .01289, .01199, 129.09843, 4.99431, 4.43086,
116 + 3.49129, 4.70065, 4.99968,
117 + .01345, .01230, 142.68712, 5.49604, 4.93493,
118 + 4.00516, 5.20371, 5.50155,
119 + .01400, .01259, 156.16756, 5.99999, 5.44109,
120 + 4.52048, 5.70892, 6.00562,
121 + .01452, .01288, 169.60416, 6.50748, 5.95068,
122 + 5.03865, 6.21761, 6.51324 /
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 + .01503, .01315, 183.00574, 7.01850, 6.46368,
125 + 5.55972, 6.72976, 7.02438,
126 + .01552, .01342, 196.16496, 7.52709, 6.97416,
127 + 6.07783, 7.23942, 7.53308,
128 + .01600, .01368, 209.20210, 8.03618, 7.48505,
129 + 6.59593, 7.74954, 8.04228,
130 + .01647, .01393, 222.18738, 8.54752, 7.99811,
131 + 7.11584, 8.26186, 8.55372,
132 + .01693, .01418, 234.81465, 9.05220, 8.50444,
133 + 7.62870, 8.76748, 9.05850 /
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 + .00719, .00925, 8.10026, .69183, .11174,
136 + .00000, .38750, .69512,
137 + .00843, .00992, 15.56164, .96397, .39048,
138 + .00000, .66327, .96752,
139 + .00955, .01053, 24.17390, 1.27061, .70263,
140 + .00000, .97295, 1.27438,
141 + .01057, .01109, 33.59345, 1.60263, 1.03938,
142 + .09757, 1.30758, 1.60660,
143 + .01151, .01160, 43.50859, 1.95406, 1.39499,
144 + .49118, 1.66132, 1.95821,
145 + .01241, .01209, 53.89985, 2.32385, 1.76855,
146 + .87887, 2.03320, 2.32817,
147 + .01325, .01255, 64.51032, 2.70549, 2.15361,
148 + 1.27762, 2.41672, 2.70995 /
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 + .01406, .01298, 75.25906, 3.09633, 2.54759,
151 + 1.68406, 2.80930, 3.10093,
152 + .01482, .01339, 86.08910, 3.49451, 2.94867,
153 + 2.09649, 3.20908, 3.49924,
154 + .01556, .01379, 96.93544, 3.89796, 3.35482,
155 + 2.51308, 3.61403, 3.90282,
156 + .01626, .01417, 107.75695, 4.30526, 3.76464,
157 + 2.93254, 4.02272, 4.31023,
158 + .01694, .01453, 118.47829, 4.71409, 4.17584,
159 + 3.35271, 4.43287, 4.71917,
160 + .01760, .01489, 129.04907, 5.12271, 4.58670,
161 + 3.77195, 4.84273, 5.12789,
162 + .01823, .01523, 139.52747, 5.53236, 4.99846,
163 + 4.19157, 5.25354, 5.53764 /
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 + .01884, .01555, 149.92522, 5.94312, 5.41123,
166 + 4.61172, 5.66542, 5.94850,
167 + .01944, .01587, 160.08167, 6.35026, 5.82028,
168 + 5.02774, 6.07361, 6.35573,
169 + .02001, .01618, 170.09723, 6.75625, 6.22809,
170 + 5.44216, 6.48061, 6.76181,
171 + .02057, .01648, 180.03134, 7.16264, 6.63622,
172 + 5.85655, 6.88797, 7.16828,
173 + .02112, .01677, 189.64545, 7.56226, 7.03752,
174 + 6.26380, 7.28851, 7.56798 /
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 + .00870, .01030, 7.78952, .67024, .10573,
177 + .00000, .37392, .67357,
178 + .01014, .01109, 14.63388, .92141, .36357,
179 + .00000, .62872, .92498,
180 + .01143, .01179, 22.40309, 1.20078, .64849,
181 + .00000, .91110, 1.20454,
182 + .01261, .01243, 30.79351, 1.50023, .95273,
183 + .08801, 1.21316, 1.50417,
184 + .01370, .01302, 39.53445, 1.81460, 1.27133,
185 + .44159, 1.52984, 1.81870,
186 + .01473, .01358, 48.61608, 2.14308, 1.60362,
187 + .78719, 1.86039, 2.14732,
188 + .01570, .01410, 57.81852, 2.48001, 1.94401,
189 + 1.14044, 2.19920, 2.48439 /
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 + .01662, .01460, 67.07805, 2.82321, 2.29037,
192 + 1.49850, 2.54413, 2.82770,
193 + .01750, .01507, 76.35139, 3.17114, 2.64124,
194 + 1.86002, 2.89366, 3.17575,
195 + .01834, .01552, 85.58774, 3.52213, 2.99495,
196 + 2.22353, 3.24613, 3.52684,
197 + .01915, .01595, 94.75678, 3.87502, 3.35040,
198 + 2.58803, 3.60041, 3.87984,
199 + .01993, .01637, 103.79803, 4.22792, 3.70569,
200 + 2.95174, 3.95462, 4.23284,
201 + .02067, .01676, 112.67277, 4.57939, 4.05942,
202 + 3.31334, 4.30732, 4.58440,
203 + .02140, .01715, 121.43491, 4.93061, 4.41278,
204 + 3.67406, 4.65970, 4.93571 /
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 + .02210, .01752, 130.09776, 5.28173, 4.76593,
207 + 4.03413, 5.01193, 5.28692,
208 + .02277, .01788, 138.52704, 5.62873, 5.11485,
209 + 4.38960, 5.35997, 5.63399,
210 + .02343, .01823, 146.81166, 5.97381, 5.46178,
211 + 4.74271, 5.70606, 5.97916,
212 + .02407, .01857, 155.00406, 6.31838, 5.80810,
213 + 5.09491, 6.05159, 6.32380,
214 + .02469, .01890, 162.90463, 6.65632, 6.14773,
215 + 5.44012, 6.39044, 6.66181 /
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 + .01005, .01120, 7.55538, .65380, .10123,
218 + .00000, .36365, .65720,
219 + .01167, .01208, 13.94982, .88955, .34371,
220 + .00000, .60303, .89316,
221 + .01312, .01287, 21.11500, 1.14913, .60891,
222 + .00000, .86565, 1.15294,
223 + .01443, .01358, 28.77708, 1.42523, .88983,
224 + .08117, 1.14435, 1.42920,
225 + .01566, .01424, 36.69506, 1.71325, 1.18212,
226 + .40625, 1.43467, 1.71736,
227 + .01681, .01486, 44.86610, 2.01256, 1.48527,
228 + .72210, 1.73605, 2.01680,
229 + .01789, .01544, 53.09635, 2.31811, 1.79431,
230 + 1.04338, 2.04348, 2.32248 /
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 + .01892, .01599, 61.33392, 2.62803, 2.10743,
233 + 1.36764, 2.35513, 2.63251,
234 + .01989, .01651, 69.54469, 2.94103, 2.42340,
235 + 1.69375, 2.66974, 2.94562,
236 + .02083, .01701, 77.68748, 3.25570, 2.74082,
237 + 2.02049, 2.98589, 3.26039,
238 + .02172, .01749, 85.73888, 3.57108, 3.05877,
239 + 2.34706, 3.30266, 3.57587,
240 + .02258, .01794, 93.64872, 3.88554, 3.37565,
241 + 2.67194, 3.61842, 3.89042,
242 + .02341, .01838, 101.38567, 4.19787, 3.69026,
243 + 2.99403, 3.93198, 4.20283,
244 + .02421, .01881, 109.00049, 4.50918, 4.00373,
245 + 3.31450, 4.24445, 4.51423 /
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 + .02499, .01922, 116.50704, 4.81968, 4.31628,
248 + 3.63364, 4.55606, 4.82481,
249 + .02573, .01961, 123.78921, 5.12582, 4.62436,
250 + 3.94794, 4.86325, 5.13102,
251 + .02646, .02000, 130.92732, 5.42963, 4.93004,
252 + 4.25950, 5.16806, 5.43491,
253 + .02716, .02037, 137.96928, 5.73240, 5.23458,
254 + 4.56962, 5.47179, 5.73775,
255 + .02785, .02073, 144.74129, 6.02873, 5.53261,
256 + 4.87296, 5.76903, 6.03414 /
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 + .01559, .01458, 6.86180, .60411, .08812,
259 + .00000, .33309, .60797,
260 + .01791, .01583, 12.00302, .79622, .28719,
261 + .00000, .52891, .80029,
262 + .01997, .01694, 17.53698, 1.00131, .49810,
263 + .00000, .73709, 1.00555,
264 + .02184, .01793, 23.27461, 1.21426, .71606,
265 + .06277, .95271, 1.21867,
266 + .02356, .01885, 29.05490, 1.43206, .93829,
267 + .31175, 1.17287, 1.43661,
268 + .02518, .01970, 34.89369, 1.65460, 1.16481,
269 + .54922, 1.39752, 1.65928,
270 + .02669, .02050, 40.66394, 1.87842, 1.39227,
271 + .78715, 1.62328, 1.88323 /
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 + .02812, .02126, 46.34280, 2.10248, 1.61965,
274 + 1.02404, 1.84909, 2.10739,
275 + .02948, .02197, 51.91821, 2.32608, 1.84634,
276 + 1.25939, 2.07433, 2.33111,
277 + .03077, .02265, 57.37167, 2.54846, 2.07157,
278 + 1.49258, 2.29823, 2.55359,
279 + .03201, .02330, 62.69605, 2.76913, 2.29492,
280 + 1.72328, 2.52031, 2.77435,
281 + .03319, .02392, 67.86456, 2.98712, 2.51542,
282 + 1.95061, 2.73964, 2.99244,
283 + .03433, .02451, 72.86330, 3.20177, 2.73244,
284 + 2.17400, 2.95554, 3.20717,
285 + .03542, .02509, 77.73354, 3.41402, 2.94693,
286 + 2.39446, 3.16898, 3.41950 /
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 + .03647, .02564, 82.48990, 3.62415, 3.15919,
289 + 2.61233, 3.38024, 3.62972,
290 + .03749, .02617, 87.05855, 3.82981, 3.36687,
291 + 2.82532, 3.58697, 3.83545,
292 + .03847, .02668, 91.49846, 4.03254, 3.57154,
293 + 3.03499, 3.79072, 4.03826,
294 + .03943, .02717, 95.84518, 4.23335, 3.77419,
295 + 3.24239, 3.99251, 4.23914,
296 + .04035, .02765, 99.98647, 4.42857, 3.97119,
297 + 3.44390, 4.18867, 4.43443 /
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 + .02386, .01914, 6.20742, .55573, .07616,
300 + .00000, .30408, .56048,
301 + .02719, .02089, 10.28419, .70990, .23765,
302 + .00000, .46216, .71493,
303 + .03012, .02243, 14.49868, .86954, .40340,
304 + .00000, .62506, .87480,
305 + .03276, .02381, 18.73262, 1.03139, .57051,
306 + .04801, .78972, 1.03686,
307 + .03518, .02508, 22.88749, 1.19367, .73745,
308 + .23663, .95448, 1.19933,
309 + .03743, .02626, 26.99244, 1.35666, .90464,
310 + .41319, 1.11971, 1.36250,
311 + .03954, .02735, 30.96924, 1.51814, 1.06995,
312 + .58740, 1.28323, 1.52416 /
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 + .04152, .02838, 34.81436, 1.67763, 1.23294,
315 + .75846, 1.44458, 1.68380,
316 + .04339, .02936, 38.52969, 1.83488, 1.39343,
317 + .92630, 1.60356, 1.84119,
318 + .04517, .03028, 42.11097, 1.98954, 1.55110,
319 + 1.09072, 1.75982, 1.99598,
320 + .04686, .03115, 45.56064, 2.14144, 1.70582,
321 + 1.25167, 1.91322, 2.14801,
322 + .04848, .03199, 48.86668, 2.29007, 1.85710,
323 + 1.40873, 2.06326, 2.29677,
324 + .05002, .03278, 52.02520, 2.43510, 2.00463,
325 + 1.56165, 2.20962, 2.44191,
326 + .05151, .03355, 55.06923, 2.57734, 2.14922,
327 + 1.71130, 2.35311, 2.58426 /
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 + .05293, .03428, 58.01244, 2.71708, 2.29121,
330 + 1.85803, 2.49404, 2.72411,
331 + .05431, .03499, 60.80869, 2.85279, 2.42905,
332 + 2.00035, 2.63088, 2.85992,
333 + .05563, .03567, 63.50077, 2.98563, 2.56393,
334 + 2.13946, 2.76481, 2.99286,
335 + .05691, .03632, 66.11463, 3.11638, 2.69662,
336 + 2.27616, 2.89659, 3.12371,
337 + .05815, .03696, 68.57877, 3.24259, 2.82470,
338 + 2.40805, 3.02379, 3.25001 /
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 + .03049, .02258, 5.83487, .52749, .06962,
341 + .00000, .28750, .53299,
342 + .03458, .02471, 9.36219, .66176, .21146,
343 + .00000, .42584, .66761,
344 + .03817, .02658, 12.92239, .79833, .35436,
345 + .00000, .56582, .80448,
346 + .04139, .02825, 16.43183, .93486, .49635,
347 + .04075, .70529, .94128,
348 + .04433, .02978, 19.82119, 1.07016, .63648,
349 + .19998, .84318, 1.07683,
350 + .04706, .03119, 23.12483, 1.20468, .77535,
351 + .34737, .98004, 1.21157,
352 + .04960, .03250, 26.28631, 1.33676, .91139,
353 + .49147, 1.11425, 1.34386 /
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 + .05199, .03373, 29.30975, 1.46615, 1.04442,
356 + .63180, 1.24559, 1.47345,
357 + .05423, .03489, 32.20228, 1.59280, 1.17442,
358 + .76845, 1.37404, 1.60027,
359 + .05636, .03598, 34.96506, 1.71651, 1.30126,
360 + .90139, 1.49944, 1.72416,
361 + .05839, .03702, 37.60386, 1.83728, 1.42495,
362 + 1.03071, 1.62177, 1.84509,
363 + .06031, .03801, 40.11234, 1.95475, 1.54517,
364 + 1.15615, 1.74072, 1.96272,
365 + .06215, .03895, 42.49025, 2.06875, 1.66175,
366 + 1.27761, 1.85610, 2.07686,
367 + .06391, .03985, 44.76618, 2.17999, 1.77544,
368 + 1.39586, 1.96865, 2.18823 /
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 + .06560, .04071, 46.95271, 2.28876, 1.88653,
371 + 1.51124, 2.07868, 2.29714,
372 + .06722, .04154, 49.01532, 2.39389, 1.99387,
373 + 1.62261, 2.18499, 2.40240,
374 + .06879, .04234, 50.98907, 2.49636, 2.09845,
375 + 1.73101, 2.28859, 2.50498,
376 + .07030, .04311, 52.89544, 2.59681, 2.20092,
377 + 1.83710, 2.39013, 2.60556,
378 + .07176, .04385, 54.67988, 2.69335, 2.29939,
379 + 1.93900, 2.48770, 2.70221 /
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 + .03625, .02550, 5.57143, .50723, .06514,
382 + .00000, .27575, .51336,
383 + .04097, .02795, 8.73703, .62827, .19397,
384 + .00000, .40101, .63482,
385 + .04510, .03009, 11.87738, .74984, .32205,
386 + .00000, .52611, .75675,
387 + .04880, .03200, 14.93049, .87016, .44798,
388 + .03613, .64947, .87740,
389 + .05216, .03374, 17.84471, .98840, .57118,
390 + .17673, .77039, .99591,
391 + .05528, .03534, 20.65707, 1.10508, .69233,
392 + .30584, .88950, 1.11287,
393 + .05817, .03683, 23.32401, 1.21890, .81023,
394 + .43122, 1.00552, 1.22693 /
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 + .06088, .03822, 25.85369, 1.32975, .92481,
397 + .55259, 1.11839, 1.33801,
398 + .06343, .03953, 28.25593, 1.43767, 1.03618,
399 + .67014, 1.22818, 1.44614,
400 + .06584, .04076, 30.53469, 1.54257, 1.14429,
401 + .78391, 1.33482, 1.55124,
402 + .06813, .04193, 32.69736, 1.64450, 1.24922,
403 + .89407, 1.43837, 1.65336,
404 + .07030, .04304, 34.74057, 1.74322, 1.35077,
405 + 1.00047, 1.53862, 1.75227,
406 + .07237, .04409, 36.66591, 1.83864, 1.44884,
407 + 1.10306, 1.63547, 1.84785,
408 + .07435, .04510, 38.49898, 1.93139, 1.54410,
409 + 1.20255, 1.72958, 1.94076 /
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 + .07625, .04606, 40.25151, 2.02178, 1.63688,
412 + 1.29930, 1.82127, 2.03131,
413 + .07807, .04699, 41.89557, 2.10882, 1.72619,
414 + 1.39236, 1.90954, 2.11850,
415 + .07982, .04788, 43.46149, 2.19340, 1.81292,
416 + 1.48263, 1.99528, 2.20322,
417 + .08151, .04874, 44.96783, 2.27607, 1.89767,
418 + 1.57073, 2.07908, 2.28603,
419 + .08313, .04956, 46.36988, 2.35525, 1.97883,
420 + 1.65508, 2.15933, 2.36534 /
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 + .04149, .02825, 5.35912, .49087, .06169,
423 + .00000, .26626, .49742,
424 + .04676, .03098, 8.25239, .60200, .18077,
425 + .00000, .38170, .60900,
426 + .05134, .03335, 11.08269, .71250, .29792,
427 + .00000, .49580, .71990,
428 + .05543, .03547, 13.80358, .82097, .41212,
429 + .03276, .60737, .82872,
430 + .05915, .03738, 16.37584, .92683, .52304,
431 + .15985, .71597, .93489,
432 + .06258, .03915, 18.83802, 1.03067, .63145,
433 + .27577, .82229, 1.03902,
434 + .06576, .04078, 21.15543, 1.13143, .73636,
435 + .38774, .92530, 1.14005 /
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 + .06874, .04231, 23.33873, 1.22908, .83782,
438 + .49560, 1.02501, 1.23795,
439 + .07153, .04374, 25.39916, 1.32373, .93599,
440 + .59959, 1.12156, 1.33283,
441 + .07417, .04509, 27.34246, 1.41537, 1.03090,
442 + .69984, 1.21497, 1.42468,
443 + .07666, .04636, 29.17710, 1.50408, 1.12267,
444 + .79653, 1.30534, 1.51360,
445 + .07903, .04757, 30.90140, 1.58969, 1.21115,
446 + .88958, 1.39251, 1.59941,
447 + .08128, .04871, 32.51793, 1.67215, 1.29631,
448 + .97900, 1.47643, 1.68205,
449 + .08344, .04981, 34.05024, 1.75207, 1.37878,
450 + 1.06546, 1.55773, 1.76214 /
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 + .08550, .05086, 35.50927, 1.82973, 1.45887,
453 + 1.14928, 1.63671, 1.83997,
454 + .08748, .05186, 36.87117, 1.90429, 1.53574,
455 + 1.22967, 1.71251, 1.91469,
456 + .08938, .05282, 38.16330, 1.97654, 1.61018,
457 + 1.30745, 1.78595, 1.98709,
458 + .09121, .05375, 39.40215, 2.04701, 1.68276,
459 + 1.38317, 1.85756, 2.05771,
460 + .09297, .05463, 40.54940, 2.11430, 1.75206,
461 + 1.45547, 1.92594, 2.12514 /
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 + .06294, .03930, 4.70337, .43893, .05154,
464 + .00000, .23683, .44739,
465 + .07021, .04308, 6.84471, .52217, .14331,
466 + .00000, .32474, .53127,
467 + .07648, .04633, 8.84766, .60236, .23062,
468 + .00000, .40883, .61201,
469 + .08201, .04919, 10.70421, .67909, .31348,
470 + .02380, .48892, .68922,
471 + .08699, .05176, 12.40457, .75235, .39215,
472 + .11515, .56513, .76290,
473 + .09156, .05411, 13.98867, .82285, .46751,
474 + .19677, .63829, .83380,
475 + .09577, .05627, 15.44226, .89007, .53915,
476 + .27424, .70793, .90138 /
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 + .09968, .05827, 16.78052, .95421, .60733,
479 + .34770, .77428, .96585,
480 + .10333, .06013, 18.01706, 1.01549, .67234,
481 + .41750, .83760, 1.02743,
482 + .10675, .06187, 19.16042, 1.07403, .73435,
483 + .48389, .89803, 1.08626,
484 + .10997, .06351, 20.21995, 1.13001, .79356,
485 + .54715, .95578, 1.14251,
486 + .11301, .06505, 21.19762, 1.18339, .84998,
487 + .60732, 1.01083, 1.19615,
488 + .11589, .06651, 22.09775, 1.23423, .90367,
489 + .66450, 1.06322, 1.24722,
490 + .11863, .06789, 22.93754, 1.28300, .95513,
491 + .71922, 1.11346, 1.29622 /
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 + .12125, .06921, 23.72552, 1.32995, 1.00464,
494 + .77179, 1.16181, 1.34338,
495 + .12374, .07046, 24.44806, 1.37456, 1.05167,
496 + .82170, 1.20774, 1.38820,
497 + .12612, .07165, 25.12359, 1.41740, 1.09682,
498 + .86958, 1.25185, 1.43124,
499 + .12841, .07280, 25.76330, 1.45886, 1.14049,
500 + .91582, 1.29452, 1.47289,
501 + .13060, .07390, 26.34430, 1.49806, 1.18179,
502 + .95957, 1.33486, 1.51226 /
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 + .09497, .05620, 4.02867, .38351, .04206,
505 + .00000, .20623, .39463,
506 + .10471, .06130, 5.54361, .44285, .11048,
507 + .00000, .27059, .45485,
508 + .11300, .06561, 6.89291, .49819, .17337,
509 + .00000, .33009, .51093,
510 + .12024, .06935, 8.09380, .54974, .23138,
511 + .01673, .38521, .56312,
512 + .12669, .07266, 9.15397, .59779, .28511,
513 + .08021, .43639, .61173,
514 + .13254, .07566, 10.11107, .64307, .33550,
515 + .13569, .48449, .65753,
516 + .13788, .07838, 10.96294, .68543, .38247,
517 + .18737, .52939, .70034 /
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 + .14280, .08087, 11.72521, .72513, .42638,
520 + .23554, .57141, .74046,
521 + .14735, .08317, 12.41156, .76244, .46758,
522 + .28059, .61086, .77815,
523 + .15159, .08530, 13.03038, .79754, .50628,
524 + .32282, .64795, .81361,
525 + .15557, .08729, 13.59003, .83063, .54272,
526 + .36251, .68289, .84704,
527 + .15929, .08915, 14.09411, .86175, .57697,
528 + .39977, .71573, .87847,
529 + .16278, .09089, 14.54675, .89099, .60915,
530 + .43474, .74658, .90799,
531 + .16609, .09253, 14.95990, .91870, .63964,
532 + .46784, .77582, .93597 /
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 + .16924, .09408, 15.33978, .94507, .66864,
535 + .49928, .80364, .96261,
536 + .17221, .09555, 15.67906, .96982, .69587,
537 + .52881, .82975, .98759,
538 + .17504, .09694, 15.98942, .99333, .72174,
539 + .55685, .85455, 1.01132,
540 + .17776, .09826, 16.27810, 1.01586, .74654,
541 + .58370, .87834, 1.03408,
542 + .18033, .09952, 16.53209, 1.03689, .76971,
543 + .60882, .90054, 1.05531 /
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 + .12040, .06995, 3.62693, .34937, .03685,
546 + -.00001, .18787, .36272,
547 + .13177, .07589, 4.83397, .39662, .09342,
548 + -.00001, .24031, .41102,
549 + .14134, .08084, 5.87577, .43983, .14434,
550 + -.00001, .28780, .45509,
551 + .14963, .08510, 6.77809, .47940, .19051,
552 + .01335, .33104, .49541,
553 + .15695, .08883, 7.55504, .51573, .23262,
554 + .06372, .37057, .53238,
555 + .16356, .09217, 8.24125, .54951, .27158,
556 + .10713, .40722, .56674,
557 + .16955, .09519, 8.83889, .58069, .30744,
558 + .14710, .44100, .59844 /
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 + .17502, .09793, 9.36271, .60958, .34059,
561 + .18394, .47224, .62779,
562 + .18007, .10043, 9.82512, .63643, .37136,
563 + .21806, .50126, .65506,
564 + .18474, .10275, 10.23402, .66143, .39998,
565 + .24975, .52826, .68045,
566 + .18909, .10488, 10.59686, .68476, .42668,
567 + .27927, .55346, .70415,
568 + .19315, .10687, 10.91750, .70649, .45156,
569 + .30675, .57692, .72621,
570 + .19694, .10872, 11.19916, .72670, .47472,
571 + .33233, .59876, .74673,
572 + .20052, .11045, 11.45150, .74569, .49649,
573 + .35636, .61928, .76600 /
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 + .20390, .11208, 11.67951, .76362, .51705,
576 + .37904, .63867, .78421,
577 + .20708, .11361, 11.87815, .78029, .53620,
578 + .40018, .65670, .80113,
579 + .21010, .11505, 12.05624, .79599, .55427,
580 + .42011, .67370, .81707,
581 + .21299, .11642, 12.21919, .81094, .57147,
582 + .43909, .68990, .83225,
583 + .21570, .11771, 12.35743, .82474, .58741,
584 + .45671, .70487, .84626 /
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 + .14222, .08199, 3.33873, .32435, .03331,
587 + -.00001, .17463, .33968,
588 + .15476, .08849, 4.35279, .36388, .08225,
589 + -.00001, .21941, .38038,
590 + .16524, .09387, 5.20684, .39951, .12565,
591 + -.00001, .25937, .41695,
592 + .17424, .09844, 5.93087, .43172, .16449,
593 + .01127, .29528, .44998,
594 + .18215, .10242, 6.54166, .46094, .19951,
595 + .05357, .32773, .47989,
596 + .18924, .10596, 7.07153, .48782, .23158,
597 + .08966, .35750, .50739,
598 + .19563, .10913, 7.52453, .51239, .26082,
599 + .12260, .38466, .53250 /
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 + .20144, .11198, 7.91449, .53492, .28762,
602 + .15272, .40955, .55553,
603 + .20677, .11458, 8.25281, .55568, .31228,
604 + .18040, .43248, .57673,
605 + .21168, .11696, 8.54676, .57485, .33505,
606 + .20592, .45364, .59629,
607 + .21624, .11915, 8.80305, .59258, .35615,
608 + .22954, .47324, .61441,
609 + .22047, .12117, 9.02525, .60897, .37565,
610 + .25138, .49135, .63113,
611 + .22440, .12304, 9.21634, .62408, .39369,
612 + .27159, .50807, .64654,
613 + .22809, .12478, 9.38434, .63817, .41054,
614 + .29045, .52368, .66092 /
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 + .23158, .12642, 9.53342, .65139, .42636,
617 + .30817, .53834, .67442,
618 + .23484, .12794, 9.65971, .66357, .44100,
619 + .32458, .55187, .68684,
620 + .23793, .12937, 9.77036, .67496, .45472,
621 + .33998, .56455, .69847,
622 + .24086, .13072, 9.86969, .68574, .46773,
623 + .35457, .57656, .70947,
624 + .24362, .13198, 9.95021, .69559, .47970,
625 + .36804, .58757, .71953 /
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 + .16165, .09284, 3.11496, .30458, .03067,
628 + .00000, .16432, .32177,
629 + .17508, .09974, 3.99381, .33862, .07414,
630 + .00000, .20364, .35706,
631 + .18621, .10539, 4.71873, .36894, .11223,
632 + .00000, .23831, .38839,
633 + .19573, .11016, 5.32219, .39605, .14597,
634 + .00982, .26912, .41635,
635 + .20403, .11427, 5.82217, .42041, .17611,
636 + .04654, .29670, .44143,
637 + .21145, .11791, 6.24899, .44261, .20348,
638 + .07760, .32179, .46428,
639 + .21809, .12114, 6.60758, .46273, .22824,
640 + .10575, .34449, .48494 /
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 + .22410, .12403, 6.91136, .48102, .25076,
643 + .13132, .36513, .50373,
644 + .22959, .12665, 7.17048, .49774, .27135,
645 + .15467, .38399, .52090,
646 + .23463, .12903, 7.39177, .51305, .29025,
647 + .17608, .40129, .53661,
648 + .23928, .13122, 7.58139, .52712, .30763,
649 + .19578, .41719, .55105,
650 + .24358, .13322, 7.74236, .54001, .32361,
651 + .21389, .43179, .56427,
652 + .24757, .13505, 7.87775, .55181, .33830,
653 + .23056, .44518, .57637,
654 + .25130, .13676, 7.99427, .56273, .35195,
655 + .24606, .45761, .58758 /
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 + .25481, .13835, 8.09553, .57292, .36471,
658 + .26054, .46921, .59802,
659 + .25808, .13983, 8.17855, .58222, .37643,
660 + .27389, .47984, .60756,
661 + .26116, .14121, 8.24908, .59087, .38738,
662 + .28636, .48976, .61643,
663 + .26409, .14250, 8.31077, .59901, .39772,
664 + .29814, .49911, .62479,
665 + .26682, .14371, 8.35762, .60637, .40716,
666 + .30895, .50761, .63234 /
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 + .23874, .13656, 2.43307, .24201, .02312,
669 + .00000, .13268, .26734,
670 + .25436, .14401, 2.96786, .26179, .05208,
671 + .00000, .15763, .28847,
672 + .26694, .14986, 3.37490, .27863, .07644,
673 + .00000, .17869, .30635,
674 + .27741, .15461, 3.68921, .29308, .09727,
675 + .00615, .19671, .32165,
676 + .28630, .15856, 3.92993, .30554, .11526,
677 + .02879, .21224, .33476,
678 + .29407, .16194, 4.12127, .31648, .13113,
679 + .04743, .22591, .34627,
680 + .30088, .16483, 4.26914, .32601, .14507,
681 + .06389, .23788, .35627 /
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 + .30690, .16733, 4.38364, .33436, .15742,
684 + .07850, .24843, .36501,
685 + .31229, .16954, 4.47248, .34172, .16843,
686 + .09155, .25779, .37271,
687 + .31714, .17147, 4.54050, .34821, .17828,
688 + .10326, .26613, .37949,
689 + .32153, .17319, 4.59195, .35396, .18714,
690 + .11382, .27357, .38549,
691 + .32552, .17471, 4.62870, .35903, .19509,
692 + .12335, .28022, .39078,
693 + .32913, .17606, 4.65289, .36348, .20223,
694 + .13195, .28613, .39541,
695 + .33245, .17728, 4.66855, .36745, .20873,
696 + .13980, .29146, .39954 /
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 + .33552, .17839, 4.67773, .37102, .21468,
699 + .14702, .29632, .40326,
700 + .33833, .17937, 4.67874, .37412, .22002,
701 + .15355, .30063, .40648,
702 + .34092, .18026, 4.67473, .37689, .22490,
703 + .15955, .30454, .40934,
704 + .34334, .18108, 4.66765, .37940, .22943,
705 + .16513, .30814, .41195,
706 + .34556, .18179, 4.65446, .38151, .23345,
707 + .17014, .31127, .41413 /
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 + .34706, .19651, 1.81832, .18047, .01673,
710 + -.00001, .10310, .21812,
711 + .36223, .20200, 2.10712, .18997, .03473,
712 + -.00001, .11726, .22834,
713 + .37379, .20585, 2.29826, .19739, .04909,
714 + -.00002, .12845, .23623,
715 + .38289, .20866, 2.42558, .20327, .06079,
716 + .00353, .13747, .24237,
717 + .39019, .21071, 2.50654, .20789, .07045,
718 + .01635, .14477, .24711,
719 + .39625, .21224, 2.55879, .21160, .07863,
720 + .02653, .15085, .25088,
721 + .40128, .21335, 2.58771, .21452, .08552,
722 + .03523, .15585, .25378 /
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 + .40546, .21416, 2.60003, .21679, .09138,
725 + .04271, .16001, .25599,
726 + .40901, .21471, 2.60077, .21855, .09641,
727 + .04920, .16347, .25767,
728 + .41202, .21507, 2.59289, .21990, .10075,
729 + .05486, .16637, .25890,
730 + .41458, .21528, 2.57872, .22091, .10450,
731 + .05984, .16879, .25977,
732 + .41673, .21536, 2.55931, .22160, .10774,
733 + .06419, .17079, .26031,
734 + .41856, .21530, 2.53583, .22202, .11053,
735 + .06801, .17242, .26057,
736 + .42012, .21518, 2.51024, .22225, .11298,
737 + .07142, .17378, .26062 /
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 + .42146, .21500, 2.48344, .22234, .11514,
740 + .07448, .17491, .26053,
741 + .42256, .21473, 2.45447, .22223, .11698,
742 + .07716, .17579, .26025,
743 + .42348, .21442, 2.42491, .22201, .11860,
744 + .07956, .17650, .25984,
745 + .42428, .21409, 2.39555, .22172, .12005,
746 + .08175, .17708, .25936,
747 + .42489, .21368, 2.36481, .22127, .12125,
748 + .08364, .17745, .25872 /
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 + .42675, .23609, 1.51999, .14610, .01356,
751 + .00000, .08705, .19170,
752 + .43873, .23821, 1.69520, .15106, .02656,
753 + .00000, .09618, .19638,
754 + .44710, .23909, 1.79249, .15448, .03649,
755 + .00000, .10294, .19938,
756 + .45314, .23924, 1.84325, .15680, .04425,
757 + .00242, .10801, .20121,
758 + .45745, .23888, 1.86240, .15829, .05041,
759 + .01107, .11183, .20214,
760 + .46064, .23822, 1.86397, .15921, .05544,
761 + .01774, .11479, .20253,
762 + .46291, .23730, 1.85200, .15963, .05952,
763 + .02330, .11702, .20240 /
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 + .46448, .23622, 1.83150, .15969, .06288,
766 + .02797, .11868, .20192,
767 + .46552, .23503, 1.80576, .15948, .06565,
768 + .03192, .11992, .20120,
769 + .46612, .23377, 1.77665, .15907, .06795,
770 + .03529, .12081, .20026,
771 + .46638, .23247, 1.74551, .15850, .06986,
772 + .03817, .12143, .19917,
773 + .46635, .23113, 1.71298, .15778, .07144,
774 + .04065, .12180, .19795,
775 + .46605, .22975, 1.67962, .15695, .07274,
776 + .04277, .12197, .19663,
777 + .46559, .22836, 1.64654, .15604, .07381,
778 + .04461, .12200, .19527 /
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 + .46500, .22699, 1.61413, .15509, .07471,
781 + .04623, .12193, .19390,
782 + .46422, .22561, 1.58170, .15408, .07544,
783 + .04761, .12172, .19242,
784 + .46335, .22424, 1.55009, .15304, .07602,
785 + .04882, .12144, .19095,
786 + .46243, .22289, 1.51966, .15200, .07652,
787 + .04990, .12111, .18951,
788 + .46137, .22152, 1.48938, .15090, .07686,
789 + .05080, .12068, .18800 /
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 + .48940, .26238, 1.33993, .12215, .01145,
792 + .00001, .07563, .17207,
793 + .49675, .26076, 1.44156, .12443, .02141,
794 + .00000, .08165, .17302,
795 + .50088, .25852, 1.48196, .12557, .02872,
796 + .00000, .08573, .17286,
797 + .50306, .25596, 1.48895, .12594, .03421,
798 + .00178, .08852, .17204,
799 + .50382, .25322, 1.47496, .12575, .03840,
800 + .00805, .09038, .17072,
801 + .50371, .25044, 1.45092, .12525, .04171,
802 + .01277, .09163, .16915,
803 + .50291, .24761, 1.41978, .12444, .04430,
804 + .01661, .09238, .16736 /
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 + .50160, .24483, 1.38498, .12346, .04633,
807 + .01976, .09276, .16542,
808 + .49996, .24208, 1.34874, .12234, .04794,
809 + .02237, .09287, .16344,
810 + .49806, .23939, 1.31211, .12114, .04921,
811 + .02455, .09278, .16141,
812 + .49596, .23677, 1.27590, .11989, .05022,
813 + .02638, .09254, .15939,
814 + .49370, .23422, 1.24028, .11860, .05100,
815 + .02792, .09216, .15734,
816 + .49131, .23171, 1.20548, .11727, .05160,
817 + .02920, .09168, .15530,
818 + .48886, .22929, 1.17211, .11595, .05205,
819 + .03030, .09113, .15331 /
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 + .48638, .22696, 1.14028, .11465, .05239,
822 + .03124, .09054, .15137,
823 + .48383, .22467, 1.10942, .11334, .05261,
824 + .03201, .08989, .14943,
825 + .48127, .22245, 1.07997, .11203, .05275,
826 + .03267, .08921, .14755,
827 + .47875, .22030, 1.05207, .11076, .05285,
828 + .03324, .08853, .14574,
829 + .47614, .21819, 1.02500, .10948, .05284,
830 + .03369, .08780, .14393 /
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 + .53929, .27890, 1.21398, .10346, .00981,
833 + -.00001, .06625, .15472,
834 + .54114, .27361, 1.26114, .10401, .01766,
835 + .00000, .07010, .15300,
836 + .54051, .26836, 1.26224, .10371, .02317,
837 + -.00001, .07240, .15072,
838 + .53845, .26331, 1.24096, .10293, .02717,
839 + .00135, .07372, .14817,
840 + .53541, .25842, 1.20707, .10179, .03012,
841 + .00606, .07435, .14542,
842 + .53186, .25378, 1.16874, .10049, .03235,
843 + .00952, .07457, .14268,
844 + .52793, .24930, 1.12782, .09905, .03402,
845 + .01229, .07445, .13993 /
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 + .52376, .24504, 1.08665, .09754, .03527,
848 + .01449, .07411, .13722,
849 + .51947, .24098, 1.04648, .09600, .03621,
850 + .01630, .07362, .13456,
851 + .51513, .23710, 1.00784, .09447, .03690,
852 + .01776, .07301, .13199,
853 + .51076, .23343, .97101, .09295, .03741,
854 + .01898, .07234, .12950,
855 + .50641, .22989, .93593, .09143, .03776,
856 + .01997, .07160, .12709,
857 + .50206, .22650, .90260, .08994, .03798,
858 + .02078, .07080, .12476,
859 + .49777, .22326, .87128, .08850, .03811,
860 + .02146, .07000, .12252 /
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 + .49357, .22018, .84192, .08710, .03817,
863 + .02201, .06920, .12038,
864 + .48940, .21720, .81400, .08572, .03815,
865 + .02246, .06837, .11831,
866 + .48531, .21434, .78775, .08439, .03809,
867 + .02283, .06755, .11630,
868 + .48134, .21162, .76316, .08311, .03800,
869 + .02315, .06674, .11437,
870 + .47738, .20895, .73967, .08184, .03785,
871 + .02337, .06592, .11251 /
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 + .58699, .28906, 1.09215, .08444, .00812,
874 + .00000, .05602, .13431,
875 + .58133, .27958, 1.08790, .08359, .01405,
876 + -.00001, .05800, .13033,
877 + .57436, .27102, 1.05487, .08223, .01801,
878 + -.00001, .05882, .12634,
879 + .56689, .26325, 1.01103, .08063, .02076,
880 + .00099, .05898, .12252,
881 + .55907, .25610, .96271, .07888, .02266,
882 + .00435, .05870, .11881,
883 + .55130, .24952, .91517, .07711, .02404,
884 + .00678, .05818, .11530,
885 + .54360, .24336, .86910, .07532, .02500,
886 + .00866, .05747, .11199 /
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 + .53601, .23765, .82556, .07356, .02568,
889 + .01013, .05666, .10882,
890 + .52863, .23231, .78499, .07186, .02613,
891 + .01130, .05580, .10583,
892 + .52147, .22731, .74735, .07020, .02641,
893 + .01224, .05489, .10306,
894 + .51454, .22262, .71254, .06862, .02658,
895 + .01299, .05398, .10041,
896 + .50781, .21820, .68025, .06709, .02665,
897 + .01358, .05306, .09789,
898 + .50126, .21401, .65029, .06563, .02663,
899 + .01405, .05214, .09551,
900 + .49497, .21005, .62265, .06422, .02657,
901 + .01442, .05124, .09326 /
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 + .48892, .20630, .59713, .06288, .02647,
904 + .01473, .05036, .09113,
905 + .48301, .20271, .57330, .06159, .02632,
906 + .01497, .04950, .08910,
907 + .47731, .19929, .55119, .06034, .02615,
908 + .01514, .04866, .08717,
909 + .47185, .19605, .53070, .05915, .02596,
910 + .01527, .04786, .08535,
911 + .46646, .19294, .51143, .05801, .02575,
912 + .01537, .04706, .08358 /
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 + .62061, .29034, .98813, .06862, .00669,
915 + -.00004, .04690, .11481,
916 + .60721, .27723, .94614, .06695, .01122,
917 + -.00003, .04767, .10953,
918 + .59391, .26592, .89055, .06505, .01410,
919 + -.00002, .04758, .10467,
920 + .58114, .25599, .83346, .06309, .01600,
921 + .00070, .04708, .10026,
922 + .56879, .24703, .77809, .06110, .01725,
923 + .00319, .04630, .09618,
924 + .55710, .23896, .72718, .05918, .01809,
925 + .00492, .04541, .09246,
926 + .54590, .23157, .68040, .05735, .01864,
927 + .00625, .04445, .08899 /
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 + .53523, .22481, .63792, .05558, .01897,
930 + .00726, .04345, .08581,
931 + .52512, .21857, .59951, .05392, .01915,
932 + .00804, .04246, .08286,
933 + .51549, .21279, .56478, .05236, .01922,
934 + .00864, .04148, .08010,
935 + .50635, .20742, .53337, .05086, .01922,
936 + .00911, .04053, .07756,
937 + .49761, .20241, .50479, .04945, .01915,
938 + .00948, .03959, .07520,
939 + .48922, .19770, .47874, .04812, .01904,
940 + .00975, .03868, .07296,
941 + .48125, .19328, .45502, .04687, .01889,
942 + .00997, .03781, .07087 /
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 + .47367, .18913, .43338, .04568, .01872,
945 + .01013, .03698, .06892,
946 + .46636, .18519, .41348, .04453, .01853,
947 + .01023, .03618, .06708,
948 + .45936, .18147, .39520, .04346, .01833,
949 + .01031, .03541, .06534,
950 + .45268, .17797, .37841, .04244, .01813,
951 + .01038, .03467, .06370,
952 + .44619, .17460, .36280, .04147, .01790,
953 + .01040, .03396, .06214 /
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 + .64179, .28490, .89191, .05527, .00546,
956 + -.00002, .03877, .09648,
957 + .62075, .26891, .82319, .05325, .00890,
958 + -.00001, .03871, .09061,
959 + .60140, .25548, .75364, .05115, .01098,
960 + -.00002, .03810, .08548,
961 + .58370, .24390, .68985, .04912, .01228,
962 + .00053, .03723, .08095,
963 + .56720, .23367, .63225, .04713, .01309,
964 + .00235, .03623, .07691,
965 + .55196, .22457, .58159, .04529, .01360,
966 + .00359, .03520, .07327,
967 + .53770, .21637, .53677, .04358, .01388,
968 + .00450, .03415, .06995 /
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 + .52439, .20890, .49720, .04197, .01401,
971 + .00520, .03312, .06697,
972 + .51196, .20209, .46224, .04044, .01404,
973 + .00571, .03214, .06425,
974 + .50030, .19583, .43128, .03903, .01400,
975 + .00610, .03121, .06174,
976 + .48933, .19007, .40376, .03772, .01391,
977 + .00640, .03030, .05944,
978 + .47896, .18474, .37907, .03648, .01379,
979 + .00664, .02944, .05731,
980 + .46914, .17975, .35694, .03533, .01364,
981 + .00678, .02862, .05533,
982 + .45988, .17509, .33699, .03425, .01346,
983 + .00690, .02784, .05350 /
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 + .45112, .17075, .31898, .03323, .01328,
986 + .00698, .02711, .05182,
987 + .44271, .16667, .30262, .03229, .01310,
988 + .00704, .02640, .05020,
989 + .43474, .16282, .28770, .03140, .01290,
990 + .00706, .02573, .04871,
991 + .42719, .15919, .27409, .03055, .01270,
992 + .00708, .02510, .04732,
993 + .41988, .15575, .26159, .02975, .01250,
994 + .00707, .02449, .04600 /
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 + .65185, .27447, .79962, .04401, .00442,
997 + -.00002, .03156, .07962,
998 + .62362, .25627, .71320, .04188, .00702,
999 + -.00002, .03104, .07373,
1000 + .59873, .24126, .63624, .03979, .00853,
1001 + -.00002, .03016, .06873,
1002 + .57660, .22857, .57041, .03787, .00943,
1003 + .00038, .02914, .06442,
1004 + .55649, .21745, .51382, .03603, .00993,
1005 + .00173, .02809, .06066,
1006 + .53824, .20769, .46569, .03435, .01022,
1007 + .00264, .02707, .05732,
1008 + .52141, .19901, .42431, .03282, .01035,
1009 + .00330, .02606, .05433 /
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 + .50591, .19117, .38863, .03141, .01037,
1012 + .00376, .02511, .05166,
1013 + .49159, .18407, .35770, .03010, .01033,
1014 + .00412, .02420, .04925,
1015 + .47830, .17760, .33077, .02889, .01025,
1016 + .00437, .02336, .04705,
1017 + .46593, .17167, .30712, .02777, .01012,
1018 + .00456, .02256, .04507,
1019 + .45431, .16621, .28623, .02675, .00998,
1020 + .00469, .02182, .04323,
1021 + .44338, .16115, .26770, .02580, .00981,
1022 + .00479, .02110, .04157,
1023 + .43313, .15645, .25118, .02491, .00965,
1024 + .00485, .02044, .04001 /
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 + .42352, .15208, .23640, .02408, .00950,
1027 + .00488, .01982, .03857,
1028 + .41440, .14798, .22311, .02328, .00931,
1029 + .00491, .01923, .03726,
1030 + .40576, .14414, .21110, .02255, .00914,
1031 + .00491, .01867, .03603,
1032 + .39760, .14056, .20023, .02187, .00898,
1033 + .00491, .01816, .03486,
1034 + .38979, .13714, .19029, .02122, .00880,
1035 + .00489, .01765, .03378 /
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 + .65194, .26037, .71031, .03460, .00353,
1038 + -.00002, .02531, .06456,
1039 + .61722, .24060, .61373, .03252, .00550,
1040 + -.00002, .02455, .05900,
1041 + .58745, .22456, .53438, .03058, .00658,
1042 + -.00002, .02358, .05440,
1043 + .56156, .21116, .46983, .02882, .00719,
1044 + .00028, .02257, .05052,
1045 + .53837, .19964, .41641, .02723, .00751,
1046 + .00127, .02157, .04713,
1047 + .51763, .18955, .37222, .02577, .00765,
1048 + .00194, .02061, .04423,
1049 + .49876, .18066, .33508, .02447, .00771,
1050 + .00239, .01971, .04163 /
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 + .48157, .17269, .30366, .02327, .00768,
1053 + .00273, .01887, .03933,
1054 + .46584, .16555, .27691, .02217, .00759,
1055 + .00298, .01809, .03727,
1056 + .45134, .15907, .25387, .02118, .00748,
1057 + .00315, .01736, .03542,
1058 + .43794, .15316, .23397, .02025, .00736,
1059 + .00327, .01668, .03378,
1060 + .42548, .14774, .21656, .01942, .00722,
1061 + .00335, .01605, .03226,
1062 + .41380, .14275, .20130, .01865, .00708,
1063 + .00339, .01547, .03087,
1064 + .40292, .13815, .18783, .01794, .00693,
1065 + .00342, .01492, .02960 /
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 + .39276, .13389, .17587, .01728, .00677,
1068 + .00344, .01440, .02845,
1069 + .38315, .12992, .16516, .01667, .00663,
1070 + .00344, .01392, .02735,
1071 + .37411, .12620, .15558, .01609, .00649,
1072 + .00343, .01347, .02635,
1073 + .36561, .12273, .14697, .01555, .00634,
1074 + .00341, .01305, .02544,
1075 + .35749, .11946, .13913, .01505, .00621,
1076 + .00339, .01265, .02456 /
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 + .64326, .24365, .62446, .02677, .00280,
1079 + .00004, .02000, .05145,
1080 + .60281, .22298, .52383, .02493, .00425,
1081 + .00003, .01913, .04644,
1082 + .56888, .20646, .44587, .02327, .00501,
1083 + .00004, .01816, .04236,
1084 + .53985, .19282, .38492, .02175, .00543,
1085 + .00025, .01722, .03897,
1086 + .51427, .18115, .33603, .02040, .00560,
1087 + .00096, .01633, .03609,
1088 + .49164, .17105, .29644, .01919, .00566,
1089 + .00143, .01549, .03363,
1090 + .47129, .16219, .26386, .01810, .00567,
1091 + .00175, .01472, .03144 /
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 + .45289, .15433, .23678, .01712, .00559,
1094 + .00197, .01399, .02956,
1095 + .43617, .14731, .21402, .01622, .00551,
1096 + .00213, .01334, .02786,
1097 + .42089, .14098, .19473, .01541, .00541,
1098 + .00223, .01274, .02635,
1099 + .40685, .13525, .17818, .01469, .00529,
1100 + .00231, .01218, .02500,
1101 + .39384, .13003, .16390, .01405, .00517,
1102 + .00236, .01167, .02375,
1103 + .38178, .12522, .15148, .01342, .00505,
1104 + .00239, .01120, .02265,
1105 + .37058, .12081, .14060, .01286, .00492,
1106 + .00240, .01076, .02164 /
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 + .36017, .11674, .13101, .01235, .00480,
1109 + .00241, .01035, .02070,
1110 + .35035, .11295, .12251, .01187, .00468,
1111 + .00239, .00997, .01986,
1112 + .34115, .10943, .11493, .01143, .00456,
1113 + .00238, .00962, .01908,
1114 + .33254, .10616, .10813, .01101, .00445,
1115 + .00236, .00930, .01836,
1116 + .32438, .10308, .10204, .01062, .00434,
1117 + .00234, .00899, .01767 /
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 + .62660, .22561, .54304, .02069, .00204,
1120 + -.00014, .01540, .04026,
1121 + .58153, .20448, .44303, .01901, .00313,
1122 + -.00014, .01459, .03594,
1123 + .54437, .18781, .36909, .01756, .00371,
1124 + -.00011, .01373, .03246,
1125 + .51298, .17417, .31317, .01628, .00399,
1126 + .00005, .01292, .02960,
1127 + .48568, .16266, .26948, .01515, .00411,
1128 + .00060, .01215, .02721,
1129 + .46175, .15277, .23484, .01415, .00413,
1130 + .00096, .01145, .02518,
1131 + .44041, .14414, .20686, .01325, .00410,
1132 + .00118, .01081, .02342 /
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 + .42124, .13657, .18387, .01248, .00404,
1135 + .00135, .01023, .02187,
1136 + .40397, .12980, .16486, .01177, .00396,
1137 + .00147, .00970, .02052,
1138 + .38828, .12373, .14891, .01113, .00387,
1139 + .00155, .00923, .01933,
1140 + .37393, .11829, .13537, .01057, .00377,
1141 + .00159, .00878, .01826,
1142 + .36076, .11335, .12382, .01004, .00367,
1143 + .00162, .00839, .01727,
1144 + .34859, .10880, .11381, .00958, .00357,
1145 + .00163, .00801, .01640,
1146 + .33734, .10466, .10512, .00914, .00347,
1147 + .00164, .00767, .01561 /
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 + .32691, .10085, .09753, .00873, .00336,
1150 + .00165, .00736, .01490,
1151 + .31715, .09732, .09083, .00836, .00327,
1152 + .00165, .00707, .01425,
1153 + .30802, .09404, .08490, .00803, .00318,
1154 + .00163, .00680, .01364,
1155 + .29949, .09100, .07962, .00771, .00310,
1156 + .00160, .00654, .01308,
1157 + .29140, .08816, .07489, .00744, .00302,
1158 + .00159, .00631, .01255 /
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 + .60362, .20616, .46640, .01546, .00162,
1161 + -.00003, .01181, .03099,
1162 + .55478, .18516, .37067, .01410, .00240,
1163 + -.00003, .01105, .02734,
1164 + .51515, .16879, .30265, .01291, .00278,
1165 + -.00003, .01029, .02448,
1166 + .48204, .15555, .25263, .01193, .00296,
1167 + .00009, .00960, .02215,
1168 + .45364, .14439, .21443, .01102, .00302,
1169 + .00047, .00896, .02022,
1170 + .42889, .13492, .18471, .01025, .00301,
1171 + .00071, .00839, .01858,
1172 + .40707, .12669, .16106, .00954, .00297,
1173 + .00088, .00788, .01718 /
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 + .38763, .11949, .14194, .00893, .00291,
1176 + .00099, .00741, .01596,
1177 + .37019, .11312, .12628, .00838, .00283,
1178 + .00106, .00699, .01492,
1179 + .35440, .10747, .11328, .00790, .00274,
1180 + .00110, .00662, .01397,
1181 + .34008, .10236, .10238, .00747, .00267,
1182 + .00113, .00628, .01314,
1183 + .32697, .09775, .09310, .00710, .00258,
1184 + .00114, .00597, .01238,
1185 + .31492, .09357, .08517, .00673, .00250,
1186 + .00115, .00568, .01173,
1187 + .30382, .08974, .07833, .00641, .00243,
1188 + .00115, .00542, .01113 /
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 + .29358, .08624, .07238, .00612, .00236,
1191 + .00114, .00519, .01056,
1192 + .28403, .08299, .06716, .00586, .00228,
1193 + .00114, .00496, .01007,
1194 + .27515, .08000, .06256, .00560, .00221,
1195 + .00113, .00475, .00962,
1196 + .26688, .07723, .05847, .00536, .00214,
1197 + .00112, .00457, .00920,
1198 + .25909, .07464, .05485, .00514, .00208,
1199 + .00110, .00439, .00882 /
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 + .57500, .18653, .39581, .01147, .00120,
1202 + -.00005, .00886, .02343,
1203 + .52348, .16604, .30686, .01037, .00178,
1204 + -.00003, .00820, .02045,
1205 + .48225, .15021, .24577, .00942, .00204,
1206 + -.00004, .00757, .01813,
1207 + .44826, .13752, .20199, .00862, .00216,
1208 + .00006, .00701, .01628,
1209 + .41929, .12694, .16924, .00792, .00218,
1210 + .00034, .00650, .01478,
1211 + .39430, .11800, .14417, .00734, .00216,
1212 + .00051, .00605, .01348,
1213 + .37243, .11031, .12455, .00679, .00213,
1214 + .00062, .00565, .01239 /
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 + .35307, .10358, .10885, .00630, .00206,
1217 + .00069, .00528, .01149,
1218 + .33578, .09768, .09615, .00590, .00200,
1219 + .00074, .00497, .01066,
1220 + .32024, .09244, .08571, .00556, .00194,
1221 + .00077, .00468, .00993,
1222 + .30620, .08777, .07701, .00524, .00188,
1223 + .00079, .00444, .00931,
1224 + .29339, .08356, .06966, .00497, .00181,
1225 + .00080, .00419, .00874,
1226 + .28172, .07974, .06344, .00469, .00175,
1227 + .00080, .00397, .00824,
1228 + .27100, .07625, .05812, .00445, .00169,
1229 + .00079, .00378, .00779 /
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 + .26113, .07307, .05351, .00424, .00163,
1232 + .00079, .00360, .00738,
1233 + .25197, .07014, .04947, .00403, .00157,
1234 + .00078, .00343, .00703,
1235 + .24347, .06745, .04594, .00384, .00152,
1236 + .00077, .00328, .00669,
1237 + .23557, .06496, .04282, .00368, .00147,
1238 + .00076, .00315, .00637,
1239 + .22816, .06265, .04006, .00352, .00142,
1240 + .00074, .00302, .00609 /
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 + .54192, .16692, .33163, .00833, .00090,
1243 + .00001, .00657, .01738,
1244 + .48875, .14731, .25111, .00745, .00131,
1245 + .00000, .00601, .01502,
1246 + .44676, .13230, .19744, .00673, .00150,
1247 + .00000, .00550, .01320,
1248 + .41252, .12033, .15986, .00610, .00156,
1249 + .00007, .00505, .01179,
1250 + .38360, .11048, .13233, .00557, .00157,
1251 + .00026, .00466, .01061,
1252 + .35882, .10219, .11157, .00513, .00155,
1253 + .00036, .00431, .00962,
1254 + .33726, .09506, .09550, .00475, .00151,
1255 + .00045, .00400, .00880 /
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 + .31831, .08891, .08284, .00440, .00145,
1258 + .00049, .00372, .00810,
1259 + .30149, .08352, .07268, .00411, .00140,
1260 + .00052, .00348, .00750,
1261 + .28648, .07874, .06440, .00382, .00136,
1262 + .00054, .00327, .00697,
1263 + .27293, .07450, .05754, .00362, .00130,
1264 + .00056, .00306, .00650,
1265 + .26068, .07070, .05181, .00340, .00126,
1266 + .00056, .00289, .00608,
1267 + .24951, .06727, .04699, .00321, .00121,
1268 + .00055, .00274, .00572,
1269 + .23931, .06415, .04288, .00304, .00116,
1270 + .00055, .00260, .00539 /
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 + .22997, .06131, .03935, .00288, .00112,
1273 + .00055, .00247, .00509,
1274 + .22132, .05871, .03627, .00273, .00108,
1275 + .00053, .00235, .00483,
1276 + .21331, .05633, .03358, .00261, .00104,
1277 + .00052, .00224, .00458,
1278 + .20588, .05413, .03121, .00251, .00100,
1279 + .00051, .00213, .00435,
1280 + .19895, .05209, .02914, .00239, .00097,
1281 + .00051, .00205, .00414 /
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 + .50534, .14783, .27417, .00586, .00069,
1284 + .00006, .00480, .01269,
1285 + .45156, .12933, .20295, .00523, .00099,
1286 + .00004, .00435, .01082,
1287 + .40955, .11531, .15680, .00471, .00109,
1288 + .00005, .00394, .00944,
1289 + .37569, .10422, .12516, .00422, .00112,
1290 + .00008, .00359, .00839,
1291 + .34723, .09517, .10241, .00389, .00112,
1292 + .00021, .00329, .00746,
1293 + .32312, .08759, .08546, .00356, .00110,
1294 + .00028, .00302, .00672,
1295 + .30231, .08110, .07254, .00325, .00107,
1296 + .00033, .00280, .00613 /
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 + .28402, .07554, .06246, .00301, .00102,
1299 + .00036, .00258, .00563,
1300 + .26794, .07070, .05445, .00280, .00098,
1301 + .00039, .00240, .00518,
1302 + .25364, .06640, .04797, .00259, .00094,
1303 + .00039, .00225, .00481,
1304 + .24084, .06263, .04265, .00243, .00090,
1305 + .00040, .00211, .00447,
1306 + .22929, .05925, .03826, .00227, .00085,
1307 + .00040, .00197, .00418,
1308 + .21878, .05621, .03456, .00214, .00083,
1309 + .00039, .00187, .00390,
1310 + .20921, .05345, .03142, .00203, .00079,
1311 + .00038, .00177, .00365 /
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 + .20047, .05095, .02873, .00194, .00076,
1314 + .00037, .00167, .00343,
1315 + .19243, .04867, .02641, .00182, .00073,
1316 + .00037, .00159, .00325,
1317 + .18502, .04658, .02439, .00172, .00070,
1318 + .00037, .00151, .00308,
1319 + .17817, .04465, .02262, .00165, .00068,
1320 + .00036, .00143, .00293,
1321 + .17179, .04287, .02106, .00157, .00065,
1322 + .00035, .00137, .00279 /
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 + .46628, .12970, .22370, .00417, .00049,
1325 + .00001, .00339, .00905,
1326 + .41283, .11249, .16205, .00368, .00068,
1327 + .00002, .00305, .00766,
1328 + .37164, .09956, .12311, .00325, .00076,
1329 + .00001, .00275, .00664,
1330 + .33861, .08943, .09695, .00294, .00078,
1331 + .00004, .00249, .00581,
1332 + .31121, .08119, .07843, .00265, .00078,
1333 + .00013, .00226, .00518,
1334 + .28807, .07436, .06482, .00242, .00076,
1335 + .00019, .00208, .00464,
1336 + .26823, .06854, .05459, .00219, .00073,
1337 + .00022, .00191, .00421 /
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 + .25091, .06357, .04669, .00204, .00070,
1340 + .00024, .00176, .00384,
1341 + .23573, .05928, .04045, .00191, .00066,
1342 + .00025, .00163, .00351,
1343 + .22233, .05550, .03546, .00176, .00063,
1344 + .00025, .00152, .00324,
1345 + .21038, .05216, .03138, .00164, .00061,
1346 + .00026, .00142, .00300,
1347 + .19962, .04919, .02803, .00154, .00058,
1348 + .00026, .00132, .00279,
1349 + .18990, .04652, .02523, .00144, .00054,
1350 + .00025, .00124, .00261,
1351 + .18108, .04412, .02287, .00136, .00052,
1352 + .00025, .00117, .00245 /
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 + .17304, .04195, .02085, .00129, .00051,
1355 + .00025, .00111, .00230,
1356 + .16569, .03997, .01912, .00120, .00049,
1357 + .00024, .00105, .00218,
1358 + .15891, .03815, .01762, .00113, .00046,
1359 + .00024, .00099, .00206,
1360 + .15266, .03649, .01631, .00108, .00044,
1361 + .00023, .00093, .00195,
1362 + .14686, .03496, .01516, .00103, .00042,
1363 + .00022, .00089, .00185 /
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 + .42565, .11254, .17998, .00288, .00035,
1366 + .00002, .00237, .00633,
1367 + .37345, .09678, .12769, .00251, .00048,
1368 + .00003, .00211, .00531,
1369 + .33360, .08506, .09546, .00226, .00051,
1370 + .00002, .00187, .00455,
1371 + .30200, .07594, .07420, .00201, .00053,
1372 + .00005, .00168, .00399,
1373 + .27594, .06859, .05939, .00182, .00050,
1374 + .00009, .00152, .00351,
1375 + .25413, .06248, .04867, .00163, .00049,
1376 + .00013, .00138, .00317,
1377 + .23547, .05738, .04067, .00149, .00047,
1378 + .00015, .00126, .00285 /
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 + .21935, .05301, .03456, .00138, .00045,
1381 + .00016, .00115, .00256,
1382 + .20526, .04922, .02979, .00128, .00043,
1383 + .00016, .00106, .00235,
1384 + .19287, .04592, .02598, .00118, .00041,
1385 + .00015, .00098, .00215,
1386 + .18186, .04303, .02291, .00110, .00039,
1387 + .00016, .00092, .00200,
1388 + .17202, .04045, .02038, .00103, .00037,
1389 + .00016, .00086, .00184,
1390 + .16315, .03815, .01829, .00096, .00035,
1391 + .00015, .00080, .00172,
1392 + .15513, .03607, .01652, .00091, .00033,
1393 + .00015, .00075, .00160 /
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 + .14785, .03420, .01502, .00086, .00032,
1396 + .00016, .00072, .00149,
1397 + .14120, .03252, .01374, .00080, .00030,
1398 + .00016, .00067, .00142,
1399 + .13508, .03097, .01263, .00075, .00029,
1400 + .00015, .00063, .00134,
1401 + .12947, .02955, .01167, .00072, .00028,
1402 + .00014, .00060, .00126,
1403 + .12426, .02825, .01083, .00069, .00027,
1404 + .00014, .00057, .00119 /
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 + .38432, .09654, .14250, .00189, .00027,
1407 + .00004, .00165, .00432,
1408 + .33409, .08230, .09906, .00167, .00033,
1409 + .00004, .00144, .00359,
1410 + .29619, .07180, .07288, .00146, .00036,
1411 + .00004, .00127, .00307,
1412 + .26635, .06371, .05592, .00131, .00037,
1413 + .00005, .00114, .00264,
1414 + .24192, .05721, .04431, .00117, .00036,
1415 + .00007, .00103, .00233,
1416 + .22160, .05187, .03599, .00106, .00034,
1417 + .00010, .00092, .00208,
1418 + .20436, .04740, .02986, .00095, .00033,
1419 + .00011, .00085, .00186 /
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 + .18955, .04359, .02521, .00088, .00030,
1422 + .00011, .00077, .00168,
1423 + .17666, .04032, .02160, .00080, .00029,
1424 + .00012, .00071, .00153,
1425 + .16540, .03749, .01876, .00073, .00028,
1426 + .00011, .00065, .00141,
1427 + .15543, .03500, .01647, .00067, .00027,
1428 + .00011, .00061, .00128,
1429 + .14651, .03280, .01461, .00065, .00026,
1430 + .00012, .00057, .00116,
1431 + .13852, .03083, .01307, .00060, .00024,
1432 + .00012, .00053, .00110,
1433 + .13133, .02907, .01178, .00055, .00022,
1434 + .00012, .00050, .00103 /
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 + .12483, .02749, .01068, .00051, .00021,
1437 + .00011, .00046, .00097,
1438 + .11888, .02606, .00975, .00048, .00021,
1439 + .00011, .00044, .00090,
1440 + .11344, .02476, .00895, .00046, .00020,
1441 + .00011, .00042, .00085,
1442 + .10846, .02358, .00825, .00043, .00019,
1443 + .00010, .00039, .00080,
1444 + .10385, .02249, .00764, .00041, .00018,
1445 + .00010, .00038, .00075 /
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 + .34311, .08191, .11112, .00123, .00017,
1448 + .00004, .00110, .00292,
1449 + .29554, .06921, .07565, .00104, .00025,
1450 + .00003, .00097, .00239,
1451 + .25992, .05992, .05478, .00092, .00026,
1452 + .00003, .00086, .00200,
1453 + .23221, .05280, .04152, .00080, .00026,
1454 + .00004, .00076, .00173,
1455 + .20966, .04713, .03257, .00071, .00025,
1456 + .00006, .00068, .00152,
1457 + .19104, .04252, .02623, .00062, .00025,
1458 + .00007, .00061, .00133,
1459 + .17533, .03866, .02161, .00056, .00024,
1460 + .00008, .00056, .00120 /
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 + .16187, .03541, .01815, .00053, .00022,
1463 + .00009, .00051, .00107,
1464 + .15025, .03263, .01548, .00048, .00021,
1465 + .00010, .00047, .00097,
1466 + .14011, .03022, .01338, .00043, .00020,
1467 + .00010, .00043, .00089,
1468 + .13118, .02812, .01170, .00040, .00019,
1469 + .00009, .00040, .00081,
1470 + .12326, .02626, .01035, .00037, .00017,
1471 + .00009, .00037, .00075,
1472 + .11616, .02462, .00923, .00036, .00017,
1473 + .00009, .00035, .00068,
1474 + .10981, .02315, .00830, .00033, .00016,
1475 + .00009, .00033, .00064 /
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 + .10408, .02183, .00751, .00030, .00015,
1478 + .00009, .00031, .00060,
1479 + .09885, .02065, .00684, .00028, .00014,
1480 + .00008, .00028, .00056,
1481 + .09408, .01957, .00627, .00027, .00013,
1482 + .00008, .00026, .00053,
1483 + .08972, .01859, .00577, .00026, .00013,
1484 + .00008, .00025, .00050,
1485 + .08573, .01769, .00534, .00024, .00013,
1486 + .00008, .00024, .00046 /
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 + .30286, .06877, .08531, .00086, .00008,
1489 + -.00002, .00067, .00190,
1490 + .25845, .05761, .05703, .00074, .00011,
1491 + -.00002, .00059, .00156,
1492 + .22559, .04954, .04072, .00064, .00013,
1493 + -.00001, .00052, .00130,
1494 + .20023, .04339, .03053, .00056, .00014,
1495 + .00000, .00046, .00109,
1496 + .17976, .03852, .02373, .00048, .00014,
1497 + .00001, .00041, .00097,
1498 + .16294, .03458, .01898, .00043, .00013,
1499 + .00003, .00037, .00087,
1500 + .14880, .03131, .01554, .00041, .00012,
1501 + .00003, .00032, .00075 /
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 + .13680, .02855, .01298, .00037, .00012,
1504 + .00004, .00030, .00067,
1505 + .12647, .02622, .01103, .00034, .00011,
1506 + .00004, .00027, .00062,
1507 + .11750, .02419, .00950, .00031, .00010,
1508 + .00004, .00024, .00056,
1509 + .10966, .02243, .00829, .00028, .00010,
1510 + .00004, .00023, .00050,
1511 + .10267, .02089, .00730, .00027, .00009,
1512 + .00004, .00021, .00047,
1513 + .09648, .01953, .00650, .00026, .00009,
1514 + .00004, .00020, .00043,
1515 + .09094, .01831, .00583, .00024, .00008,
1516 + .00004, .00018, .00040 /
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 + .08595, .01723, .00527, .00022, .00008,
1519 + .00004, .00017, .00037,
1520 + .08143, .01625, .00479, .00021, .00007,
1521 + .00004, .00016, .00035,
1522 + .07732, .01536, .00438, .00019, .00007,
1523 + .00003, .00015, .00033,
1524 + .07358, .01456, .00403, .00018, .00006,
1525 + .00003, .00014, .00031,
1526 + .07013, .01383, .00372, .00017, .00006,
1527 + .00003, .00013, .00029 /
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 + .26376, .05680, .06410, .00047, .00009,
1530 + .00004, .00046, .00120,
1531 + .22297, .04717, .04207, .00042, .00010,
1532 + .00003, .00040, .00096,
1533 + .19309, .04025, .02961, .00037, .00011,
1534 + .00002, .00035, .00080,
1535 + .17021, .03504, .02196, .00032, .00010,
1536 + .00002, .00030, .00069,
1537 + .15188, .03093, .01692, .00028, .00010,
1538 + .00003, .00026, .00061,
1539 + .13692, .02762, .01343, .00026, .00008,
1540 + .00004, .00023, .00052,
1541 + .12443, .02490, .01093, .00025, .00008,
1542 + .00004, .00021, .00046 /
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 + .11390, .02261, .00909, .00021, .00008,
1545 + .00004, .00019, .00041,
1546 + .10485, .02067, .00769, .00020, .00007,
1547 + .00003, .00017, .00037,
1548 + .09704, .01901, .00660, .00018, .00007,
1549 + .00004, .00015, .00035,
1550 + .09021, .01757, .00574, .00016, .00006,
1551 + .00003, .00014, .00032,
1552 + .08422, .01630, .00505, .00015, .00006,
1553 + .00003, .00013, .00028,
1554 + .07889, .01520, .00448, .00014, .00006,
1555 + .00003, .00012, .00026,
1556 + .07412, .01421, .00401, .00013, .00005,
1557 + .00003, .00011, .00023 /
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 + .06985, .01333, .00362, .00013, .00005,
1560 + .00003, .00010, .00021,
1561 + .06599, .01254, .00329, .00013, .00005,
1562 + .00002, .00010, .00020,
1563 + .06250, .01183, .00300, .00012, .00004,
1564 + .00002, .00009, .00019,
1565 + .05933, .01118, .00276, .00011, .00004,
1566 + .00002, .00008, .00018,
1567 + .05641, .01060, .00254, .00010, .00004,
1568 + .00002, .00008, .00017 /
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 + .22667, .04629, .04727, .00027, .00007,
1571 + .00004, .00030, .00073,
1572 + .18977, .03809, .03043, .00024, .00007,
1573 + .00003, .00025, .00059,
1574 + .16305, .03225, .02112, .00020, .00007,
1575 + .00003, .00022, .00049,
1576 + .14273, .02789, .01549, .00016, .00007,
1577 + .00002, .00019, .00042,
1578 + .12657, .02448, .01183, .00015, .00007,
1579 + .00003, .00017, .00035,
1580 + .11346, .02175, .00933, .00014, .00006,
1581 + .00003, .00015, .00031,
1582 + .10260, .01950, .00755, .00012, .00006,
1583 + .00002, .00013, .00028 /
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 + .09348, .01763, .00625, .00011, .00005,
1586 + .00003, .00012, .00024,
1587 + .08571, .01605, .00527, .00009, .00005,
1588 + .00003, .00010, .00022,
1589 + .07899, .01470, .00451, .00010, .00005,
1590 + .00003, .00009, .00020,
1591 + .07316, .01354, .00391, .00008, .00004,
1592 + .00002, .00009, .00019,
1593 + .06804, .01253, .00343, .00009, .00004,
1594 + .00003, .00008, .00016,
1595 + .06352, .01164, .00304, .00008, .00004,
1596 + .00002, .00007, .00015,
1597 + .05950, .01085, .00272, .00008, .00003,
1598 + .00002, .00007, .00014 /
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 + .05591, .01015, .00245, .00007, .00004,
1601 + .00002, .00006, .00013,
1602 + .05268, .00952, .00222, .00006, .00003,
1603 + .00002, .00006, .00012,
1604 + .04976, .00896, .00203, .00006, .00003,
1605 + .00002, .00005, .00011,
1606 + .04712, .00845, .00186, .00005, .00003,
1607 + .00002, .00005, .00010,
1608 + .04470, .00798, .00171, .00005, .00003,
1609 + .00002, .00005, .00010 /
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 + .19218, .03728, .03418, .00018, .00002,
1612 + .00001, .00016, .00045,
1613 + .15933, .03038, .02162, .00016, .00003,
1614 + .00000, .00013, .00037,
1615 + .13580, .02553, .01482, .00014, .00004,
1616 + .00000, .00011, .00029,
1617 + .11802, .02193, .01076, .00013, .00003,
1618 + .00001, .00010, .00024,
1619 + .10403, .01913, .00815, .00011, .00003,
1620 + .00001, .00008, .00020,
1621 + .09277, .01690, .00639, .00009, .00002,
1622 + .00001, .00007, .00019,
1623 + .08346, .01509, .00515, .00007, .00003,
1624 + .00001, .00006, .00016 /
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 + .07567, .01358, .00425, .00008, .00002,
1627 + .00001, .00006, .00014,
1628 + .06908, .01231, .00357, .00007, .00002,
1629 + .00001, .00005, .00013,
1630 + .06344, .01124, .00305, .00006, .00002,
1631 + .00001, .00005, .00011,
1632 + .05854, .01031, .00264, .00006, .00002,
1633 + .00001, .00004, .00010,
1634 + .05426, .00951, .00231, .00006, .00002,
1635 + .00001, .00004, .00009,
1636 + .05049, .00880, .00204, .00005, .00002,
1637 + .00001, .00004, .00009,
1638 + .04714, .00818, .00182, .00005, .00002,
1639 + .00001, .00003, .00008 /
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 + .04416, .00763, .00164, .00005, .00001,
1642 + .00001, .00003, .00007,
1643 + .04151, .00714, .00148, .00004, .00001,
1644 + .00001, .00003, .00007,
1645 + .03910, .00670, .00135, .00004, .00001,
1646 + .00001, .00003, .00006,
1647 + .03693, .00631, .00124, .00004, .00001,
1648 + .00001, .00003, .00005,
1649 + .03494, .00595, .00114, .00004, .00001,
1650 + .00001, .00003, .00005 /
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 + .16016, .02939, .02404, .00006, .00004,
1653 + .00003, .00011, .00024,
1654 + .13146, .02373, .01495, .00007, .00004,
1655 + .00002, .00010, .00019,
1656 + .11109, .01977, .01011, .00005, .00003,
1657 + .00002, .00008, .00017,
1658 + .09586, .01687, .00727, .00005, .00002,
1659 + .00001, .00006, .00013,
1660 + .08394, .01462, .00547, .00004, .00003,
1661 + .00001, .00006, .00012,
1662 + .07440, .01285, .00426, .00003, .00003,
1663 + .00002, .00005, .00011,
1664 + .06658, .01141, .00342, .00004, .00002,
1665 + .00001, .00005, .00008 /
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 + .06009, .01022, .00281, .00002, .00002,
1668 + .00001, .00004, .00008,
1669 + .05460, .00923, .00235, .00003, .00002,
1670 + .00001, .00004, .00007,
1671 + .04993, .00839, .00200, .00002, .00002,
1672 + .00001, .00003, .00006,
1673 + .04589, .00766, .00173, .00002, .00001,
1674 + .00001, .00003, .00006,
1675 + .04238, .00704, .00151, .00002, .00001,
1676 + .00001, .00003, .00005,
1677 + .03930, .00650, .00134, .00001, .00001,
1678 + .00001, .00002, .00005,
1679 + .03658, .00602, .00119, .00002, .00001,
1680 + .00001, .00002, .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 + .03416, .00560, .00107, .00002, .00001,
1683 + .00001, .00002, .00004,
1684 + .03200, .00523, .00097, .00002, .00001,
1685 + .00001, .00002, .00004,
1686 + .03006, .00489, .00088, .00002, .00001,
1687 + .00001, .00002, .00003,
1688 + .02832, .00459, .00081, .00002, .00001,
1689 + .00001, .00002, .00003,
1690 + .02673, .00432, .00074, .00001, .00001,
1691 + .00001, .00002, .00003 /
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 + .10558, .01734, .01100, .00003, .00000,
1694 + -.00001, .00003, .00008,
1695 + .08488, .01372, .00661, .00002, .00000,
1696 + .00000, .00002, .00005,
1697 + .07046, .01123, .00436, .00002, .00001,
1698 + .00000, .00002, .00004,
1699 + .05986, .00944, .00308, .00002, .00001,
1700 + .00000, .00002, .00004,
1701 + .05172, .00808, .00229, .00001, .00000,
1702 + .00000, .00001, .00003,
1703 + .04530, .00701, .00177, .00001, .00001,
1704 + .00001, .00002, .00003,
1705 + .04010, .00616, .00141, .00001, .00001,
1706 + .00000, .00001, .00002 /
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 + .03581, .00546, .00115, .00001, .00000,
1709 + .00000, .00001, .00002,
1710 + .03223, .00489, .00096, .00001, .00000,
1711 + .00000, .00001, .00002,
1712 + .02922, .00440, .00082, .00000, .00001,
1713 + .00000, .00001, .00002,
1714 + .02664, .00399, .00070, .00000, .00000,
1715 + .00000, .00001, .00002,
1716 + .02441, .00364, .00061, .00001, .00000,
1717 + .00000, .00001, .00001,
1718 + .02247, .00334, .00054, .00000, .00000,
1719 + .00000, .00001, .00001,
1720 + .02077, .00307, .00048, .00000, .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 + .01928, .00284, .00043, .00001, .00000,
1724 + .00000, .00001, .00001,
1725 + .01795, .00263, .00039, .00001, .00000,
1726 + .00000, .00001, .00001,
1727 + .01676, .00245, .00035, .00001, .00000,
1728 + .00000, .00001, .00001,
1729 + .01570, .00229, .00032, .00001, .00000,
1730 + .00000, .00001, .00001,
1731 + .01474, .00214, .00030, .00000, .00000,
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 + .06373, .00928, .00438, .00000, .00000,
1735 + .00000, .00000, .00003,
1736 + .05005, .00718, .00256, .00002, .00000,
1737 + .00000, .00000, .00001,
1738 + .04077, .00578, .00165, .00001, .00000,
1739 + .00000, .00000, .00001,
1740 + .03409, .00478, .00115, .00000, .00000,
1741 + .00000, .00000, .00001,
1742 + .02901, .00403, .00085, .00001, .00000,
1743 + .00000, .00000, .00000,
1744 + .02508, .00345, .00065, .00000, .00000,
1745 + .00000, .00000, .00001,
1746 + .02193, .00300, .00052, .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 + .01937, .00263, .00042, .00000, .00000,
1750 + .00000, .00000, .00000,
1751 + .01726, .00233, .00035, .00000, .00000,
1752 + .00000, .00000, .00000,
1753 + .01549, .00208, .00030, .00000, .00000,
1754 + .00000, .00000, .00000,
1755 + .01401, .00187, .00026, .00000, .00000,
1756 + .00000, .00000, .00000,
1757 + .01273, .00169, .00022, .00000, .00000,
1758 + .00000, .00000, .00000,
1759 + .01163, .00154, .00020, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .01067, .00141, .00017, .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 + .00983, .00129, .00016, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .00909, .00119, .00014, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .00844, .00110, .00013, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .00785, .00102, .00012, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00733, .00095, .00011, .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 + .03422, .00437, .00145, .00000, .00000,
1776 + .00000, .00000, .00000,
1777 + .02620, .00330, .00083, .00001, .00000,
1778 + .00000, .00000, .00000,
1779 + .02089, .00260, .00053, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01713, .00211, .00037, .00001, .00000,
1782 + .00000, .00000, .00000,
1783 + .01435, .00175, .00027, .00001, .00000,
1784 + .00000, .00000, .00000,
1785 + .01222, .00148, .00021, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01054, .00127, .00016, .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 + .00920, .00110, .00013, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00811, .00096, .00011, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00720, .00085, .00009, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00644, .00076, .00008, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00580, .00068, .00007, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00525, .00061, .00006, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00478, .00055, .00005, .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 + .00437, .00051, .00005, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00401, .00046, .00004, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00370, .00042, .00004, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00342, .00039, .00004, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00317, .00036, .00003, .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 + .01548, .00170, .00037, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01152, .00125, .00021, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00896, .00096, .00013, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00719, .00076, .00009, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00591, .00062, .00007, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00495, .00052, .00005, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00420, .00044, .00004, .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 + .00361, .00037, .00003, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00314, .00032, .00003, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00276, .00028, .00002, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00244, .00025, .00002, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00217, .00022, .00002, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00195, .00020, .00002, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00175, .00018, .00001, .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 + .00159, .00016, .00001, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00145, .00014, .00001, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00132, .00013, .00001, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00121, .00012, .00001, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00111, .00011, .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 + .00119, .00009, .00001, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00081, .00006, .00001, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00059, .00004, .00000, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00044, .00003, .00000, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00034, .00002, .00000, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00027, .00002, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00022, .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 + .00018, .00001, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00015, .00001, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00013, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00011, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00010, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00008, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00007, .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 + .00006, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00006, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00005, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00004, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00004, .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(75,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