]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms130.F
added the delete of EMCAL object posted in the folder when new file is opened
[u/mrichter/AliRoot.git] / PDF / spdf / sfms130.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS130(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.130 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 + .00145, .00341, 8.97173, .70631, .15951,
13 + .00000, .42112, .70932,
14 + .00195, .00370, 21.90480, 1.19723, .65448,
15 + .00000, .91481, 1.20088,
16 + .00241, .00397, 39.05281, 1.80629, 1.26685,
17 + .00000, 1.52615, 1.81047,
18 + .00282, .00421, 59.39211, 2.50449, 1.96787,
19 + .15991, 2.22633, 2.50914,
20 + .00321, .00445, 82.46889, 3.28433, 2.75020,
21 + .99243, 3.00792, 3.28941,
22 + .00358, .00467, 107.99681, 4.13912, 3.60721,
23 + 1.87580, 3.86428, 4.14459,
24 + .00393, .00488, 135.18617, 5.04914, 4.51927,
25 + 2.81308, 4.77575, 5.05498 /
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 + .00427, .00508, 163.95160, 6.01197, 5.48396,
28 + 3.80070, 5.73991, 6.01815,
29 + .00460, .00528, 193.94818, 7.01879, 6.49250,
30 + 4.83005, 6.74796, 7.02529,
31 + .00491, .00546, 224.90520, 8.06265, 7.53796,
32 + 5.89456, 7.79297, 8.06945,
33 + .00521, .00564, 256.61942, 9.13814, 8.61496,
34 + 6.98912, 8.86953, 9.14523,
35 + .00551, .00582, 288.94693, 10.24123, 9.71946,
36 + 8.10991, 9.97364, 10.24859,
37 + .00579, .00599, 321.78876, 11.36910, 10.84867,
38 + 9.25427, 11.10246, 11.37672,
39 + .00607, .00615, 354.90732, 12.51540, 11.99624,
40 + 10.41604, 12.24968, 12.52328 /
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 + .00634, .00632, 388.08878, 13.67410, 13.15614,
43 + 11.58928, 13.40924, 13.68221,
44 + .00660, .00647, 421.57944, 14.85103, 14.33423,
45 + 12.77993, 14.58700, 14.85938,
46 + .00686, .00662, 455.24307, 16.04232, 15.52661,
47 + 13.98418, 15.77907, 16.05088,
48 + .00711, .00677, 488.59973, 17.23502, 16.72036,
49 + 15.18921, 16.97252, 17.24380,
50 + .00735, .00692, 522.26788, 18.44496, 17.93132,
51 + 16.41086, 18.18320, 18.45395 /
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 + .00253, .00457, 8.25009, .66508, .14168,
54 + .00000, .39140, .66804,
55 + .00326, .00499, 18.93998, 1.07771, .55863,
56 + .00000, .80673, 1.08113,
57 + .00392, .00537, 32.49142, 1.57101, 1.05546,
58 + .00000, 1.30225, 1.57482,
59 + .00451, .00573, 48.05289, 2.12156, 1.60902,
60 + .12561, 1.85471, 2.12572,
61 + .00507, .00606, 65.26363, 2.72355, 2.21366,
62 + .77230, 2.45838, 2.72802,
63 + .00560, .00637, 83.90363, 3.37180, 2.86427,
64 + 1.44583, 3.10814, 3.37654,
65 + .00611, .00666, 103.39499, 4.05152, 3.54615,
66 + 2.14950, 3.78924, 4.05653 /
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 + .00659, .00694, 123.69079, 4.76120, 4.25780,
69 + 2.88091, 4.50019, 4.76645,
70 + .00705, .00721, 144.55658, 5.49457, 4.99299,
71 + 3.63404, 5.23473, 5.50005,
72 + .00749, .00747, 165.81564, 6.24685, 5.74697,
73 + 4.40443, 5.98810, 6.25254,
74 + .00792, .00772, 187.34157, 7.01443, 6.51614,
75 + 5.18873, 6.75670, 7.02033,
76 + .00833, .00796, 209.04994, 7.79474, 7.29795,
77 + 5.98455, 7.53797, 7.80083,
78 + .00873, .00819, 230.88733, 8.58605, 8.09067,
79 + 6.79032, 8.33020, 8.59233,
80 + .00911, .00842, 252.70547, 9.38414, 8.89010,
81 + 7.60195, 9.12914, 9.39059 /
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 + .00949, .00864, 274.37265, 10.18504, 9.69227,
84 + 8.41560, 9.93087, 10.19166,
85 + .00986, .00885, 296.07019, 10.99321, 10.50165,
86 + 9.23578, 10.73981, 10.99999,
87 + .01021, .00906, 317.71695, 11.80612, 11.31571,
88 + 10.06005, 11.55346, 11.81306,
89 + .01056, .00926, 339.00198, 12.61497, 12.12568,
90 + 10.87969, 12.36303, 12.62206,
91 + .01090, .00945, 360.35056, 13.43110, 12.94287,
92 + 11.70607, 13.17984, 13.43833 /
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 + .00425, .00612, 7.58296, .62588, .12529,
95 + .00000, .36358, .62886,
96 + .00531, .00673, 16.36875, .97032, .47435,
97 + .00000, .71070, .97364,
98 + .00626, .00728, 27.01918, 1.36734, .87515,
99 + .00000, 1.10992, 1.37093,
100 + .00712, .00779, 38.85864, 1.79884, 1.30987,
101 + .09816, 1.54331, 1.80268,
102 + .00793, .00825, 51.62027, 2.26079, 1.77464,
103 + .59813, 2.00691, 2.26485,
104 + .00868, .00869, 65.14942, 2.74950, 2.26589,
105 + 1.10921, 2.49711, 2.75377,
106 + .00940, .00910, 79.03492, 3.25422, 2.77291,
107 + 1.63498, 3.00319, 3.25867 /
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 + .01008, .00949, 93.26187, 3.77421, 3.29501,
110 + 2.17406, 3.52441, 3.77883,
111 + .01073, .00987, 107.67826, 4.30521, 3.82795,
112 + 2.72240, 4.05656, 4.30999,
113 + .01136, .01022, 122.17532, 4.84408, 4.36863,
114 + 3.27718, 4.59649, 4.84901,
115 + .01196, .01057, 136.67989, 5.38855, 4.91480,
116 + 3.83633, 5.14197, 5.39363,
117 + .01253, .01090, 151.14815, 5.93711, 5.46495,
118 + 4.39850, 5.69146, 5.94232,
119 + .01309, .01121, 165.55626, 6.48881, 6.01815,
120 + 4.96289, 6.24405, 6.49415,
121 + .01363, .01152, 179.81464, 7.04092, 6.57169,
122 + 5.52689, 6.79699, 7.04638 /
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 + .01416, .01182, 193.84564, 7.59092, 7.12304,
125 + 6.08807, 7.34779, 7.59650,
126 + .01466, .01210, 207.78363, 8.14221, 7.67561,
127 + 6.64989, 7.89983, 8.14790,
128 + .01516, .01238, 221.58186, 8.69324, 8.22787,
129 + 7.21089, 8.45158, 8.69904,
130 + .01564, .01265, 235.04161, 9.23805, 8.77387,
131 + 7.76517, 8.99709, 9.24396,
132 + .01611, .01292, 248.45462, 9.78478, 9.32173,
133 + 8.32089, 9.54449, 9.79079 /
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 + .00568, .00726, 7.21520, .60375, .11633,
136 + .00000, .34810, .60680,
137 + .00700, .00803, 15.02376, .91246, .42986,
138 + .00000, .65953, .91580,
139 + .00818, .00871, 24.24597, 1.26089, .78224,
140 + .00000, 1.01018, 1.26446,
141 + .00925, .00932, 34.30429, 1.63382, 1.15852,
142 + .08475, 1.38500, 1.63760,
143 + .01024, .00989, 44.98284, 2.02818, 1.55583,
144 + .51372, 1.78103, 2.03215,
145 + .01118, .01042, 56.16156, 2.44110, 1.97140,
146 + .94748, 2.19544, 2.44523,
147 + .01206, .01093, 67.50828, 2.86377, 2.39646,
148 + 1.38969, 2.61947, 2.86805 /
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 + .01289, .01140, 79.02312, 3.29583, 2.83072,
151 + 1.83946, 3.05277, 3.30026,
152 + .01369, .01185, 90.59126, 3.73396, 3.27089,
153 + 2.29369, 3.49206, 3.73852,
154 + .01445, .01228, 102.13345, 4.17579, 3.71461,
155 + 2.75028, 3.93495, 4.18048,
156 + .01518, .01270, 113.59947, 4.61964, 4.16023,
157 + 3.20775, 4.37981, 4.62445,
158 + .01589, .01309, 124.96193, 5.06446, 4.60670,
159 + 3.66519, 4.82556, 5.06938,
160 + .01657, .01347, 136.20905, 5.50964, 5.05345,
161 + 4.12214, 5.27162, 5.51466,
162 + .01722, .01384, 147.27547, 5.95310, 5.49839,
163 + 4.57663, 5.71592, 5.95823 /
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 + .01785, .01419, 158.10556, 6.39294, 5.93965,
166 + 5.02684, 6.15656, 6.39817,
167 + .01847, .01454, 168.81200, 6.83207, 6.38012,
168 + 5.47575, 6.59645, 6.83739,
169 + .01907, .01487, 179.36188, 7.26935, 6.81867,
170 + 5.92226, 7.03445, 7.27475,
171 + .01964, .01519, 189.60268, 7.70007, 7.25063,
172 + 6.36177, 7.46586, 7.70556,
173 + .02021, .01551, 199.76869, 8.13091, 7.68264,
174 + 6.80094, 7.89736, 8.13649 /
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 + .00694, .00820, 6.96326, .58834, .11023,
177 + .00000, .33745, .59148,
178 + .00849, .00910, 14.13319, .87340, .40027,
179 + .00000, .62526, .87680,
180 + .00987, .00989, 22.44636, 1.19043, .72137,
181 + .00000, .94454, 1.19404,
182 + .01111, .01060, 31.39114, 1.52610, 1.06050,
183 + .07625, 1.28213, 1.52990,
184 + .01227, .01125, 40.78522, 1.87798, 1.41544,
185 + .46054, 1.63570, 1.88195,
186 + .01335, .01187, 50.53088, 2.24373, 1.78392,
187 + .84613, 2.00296, 2.24785,
188 + .01437, .01244, 60.34471, 2.61576, 2.15843,
189 + 1.23670, 2.37636, 2.62002 /
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 + .01533, .01299, 70.23557, 2.99395, 2.53889,
192 + 1.63170, 2.75580, 2.99834,
193 + .01625, .01350, 80.11086, 3.37555, 2.92259,
194 + 2.02857, 3.13856, 3.38006,
195 + .01713, .01399, 89.90868, 3.75863, 3.30762,
196 + 2.42566, 3.52272, 3.76325,
197 + .01797, .01446, 99.59186, 4.14189, 3.69271,
198 + 2.82183, 3.90699, 4.14662,
199 + .01878, .01491, 109.14227, 4.52452, 4.07705,
200 + 3.21645, 4.29057, 4.52935,
201 + .01956, .01535, 118.55435, 4.90613, 4.46028,
202 + 3.60923, 4.67307, 4.91106,
203 + .02031, .01576, 127.77693, 5.28501, 4.84069,
204 + 3.99857, 5.05280, 5.29003 /
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 + .02103, .01617, 136.76628, 5.65962, 5.21676,
207 + 4.38303, 5.42821, 5.66473,
208 + .02174, .01656, 145.62187, 6.03257, 5.59110,
209 + 4.76525, 5.80193, 6.03777,
210 + .02242, .01693, 154.31879, 6.40295, 5.96279,
211 + 5.14439, 6.17303, 6.40822,
212 + .02308, .01730, 162.73064, 6.76678, 6.32789,
213 + 5.51656, 6.53756, 6.77213,
214 + .02372, .01765, 171.05791, 7.12987, 6.69220,
215 + 5.88756, 6.90132, 7.13530 /
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 + .00810, .00902, 6.77247, .57652, .10565,
218 + .00000, .32936, .57977,
219 + .00985, .01003, 13.47605, .84415, .37838,
220 + .00000, .59977, .84764,
221 + .01140, .01091, 21.13824, 1.13844, .67685,
222 + .00000, .89634, 1.14213,
223 + .01280, .01171, 29.29614, 1.44744, .98941,
224 + .07019, 1.20729, 1.45131,
225 + .01409, .01244, 37.79176, 1.76920, 1.31429,
226 + .42275, 1.53075, 1.77322,
227 + .01531, .01312, 46.54340, 2.10173, 1.64963,
228 + .77438, 1.86482, 2.10590,
229 + .01645, .01376, 55.30159, 2.43832, 1.98877,
230 + 1.12879, 2.20280, 2.44262 /
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 + .01752, .01437, 64.08105, 2.77901, 2.33179,
233 + 1.48562, 2.54476, 2.78343,
234 + .01855, .01494, 72.80413, 3.12144, 2.67638,
235 + 1.84273, 2.88836, 3.12597,
236 + .01953, .01548, 81.42059, 3.46399, 3.02094,
237 + 2.19873, 3.23201, 3.46864,
238 + .02047, .01600, 89.90174, 3.80560, 3.36442,
239 + 2.55275, 3.57464, 3.81035,
240 + .02137, .01650, 98.23544, 4.14564, 3.70622,
241 + 2.90430, 3.91564, 4.15049,
242 + .02223, .01698, 106.42037, 4.48385, 4.04609,
243 + 3.25324, 4.25475, 4.48878,
244 + .02307, .01744, 114.41388, 4.81877, 4.38258,
245 + 3.59822, 4.59053, 4.82379 /
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 + .02387, .01789, 122.18080, 5.14911, 4.71442,
248 + 3.93801, 4.92168, 5.15422,
249 + .02465, .01831, 129.81091, 5.47726, 5.04399,
250 + 4.27506, 5.25060, 5.48244,
251 + .02541, .01873, 137.28435, 5.80244, 5.37053,
252 + 4.60867, 5.57653, 5.80770,
253 + .02614, .01913, 144.49228, 6.12121, 5.69060,
254 + 4.93544, 5.89600, 6.12654,
255 + .02685, .01952, 151.61221, 6.43875, 6.00939,
256 + 5.26058, 6.21422, 6.44416 /
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 + .01291, .01216, 6.20156, .54036, .09215,
259 + .00000, .30504, .54410,
260 + .01547, .01360, 11.60259, .75851, .31588,
261 + .00000, .52618, .76249,
262 + .01772, .01486, 17.50877, .99023, .55217,
263 + .00000, .76035, .99442,
264 + .01973, .01598, 23.59314, 1.22739, .79322,
265 + .05395, .99958, 1.23175,
266 + .02158, .01701, 29.76331, 1.46923, 1.03850,
267 + .32220, 1.24326, 1.47376,
268 + .02331, .01796, 35.97956, 1.71481, 1.28715,
269 + .58480, 1.49048, 1.71948,
270 + .02492, .01885, 42.07872, 1.95960, 1.53473,
271 + .84539, 1.73676, 1.96441 /
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 + .02645, .01969, 48.08881, 2.20404, 1.78174,
274 + 1.10413, 1.98256, 2.20898,
275 + .02789, .02048, 53.96851, 2.44676, 2.02682,
276 + 1.35985, 2.22655, 2.45182,
277 + .02926, .02123, 59.69471, 2.68691, 2.26916,
278 + 1.61191, 2.46786, 2.69207,
279 + .03056, .02194, 65.25824, 2.92397, 2.50829,
280 + 1.85998, 2.70602, 2.92924,
281 + .03181, .02262, 70.65990, 3.15776, 2.74400,
282 + 2.10397, 2.94083, 3.16313,
283 + .03301, .02327, 75.90666, 3.38828, 2.97635,
284 + 2.34400, 3.17232, 3.39374,
285 + .03416, .02389, 80.97660, 3.61471, 3.20450,
286 + 2.57934, 3.39967, 3.62026 /
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 + .03527, .02449, 85.85220, 3.83630, 3.42773,
289 + 2.80931, 3.62213, 3.84194,
290 + .03634, .02507, 90.59946, 4.05488, 3.64788,
291 + 3.03580, 3.84154, 4.06060,
292 + .03737, .02562, 95.20920, 4.27005, 3.86454,
293 + 3.25844, 4.05751, 4.27586,
294 + .03837, .02616, 99.61356, 4.47953, 4.07544,
295 + 3.47501, 4.26774, 4.48541,
296 + .03934, .02668, 103.93369, 4.68703, 4.28430,
297 + 3.68924, 4.47596, 4.69298 /
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 + .02034, .01652, 5.65225, .50432, .07968,
300 + .00000, .28159, .50893,
301 + .02407, .01858, 9.94245, .67927, .26081,
302 + .00000, .45986, .68419,
303 + .02731, .02036, 14.43102, .85896, .44558,
304 + .00000, .64228, .86416,
305 + .03020, .02193, 18.90255, 1.03828, .62923,
306 + .04100, .82392, 1.04372,
307 + .03283, .02337, 23.31495, 1.21738, .81214,
308 + .24288, 1.00506, 1.22303,
309 + .03527, .02469, 27.65916, 1.39603, .99422,
310 + .43682, 1.18555, 1.40189,
311 + .03754, .02592, 31.83426, 1.57138, 1.17267,
312 + .62626, 1.36256, 1.57741 /
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 + .03967, .02707, 35.87514, 1.74408, 1.34822,
315 + .81172, 1.53678, 1.75028,
316 + .04168, .02815, 39.76421, 1.91344, 1.52022,
317 + .99269, 1.70755, 1.91980,
318 + .04358, .02917, 43.49528, 2.07912, 1.68834,
319 + 1.16900, 1.87453, 2.08562,
320 + .04538, .03013, 47.07044, 2.24097, 1.85248,
321 + 1.34068, 2.03761, 2.24761,
322 + .04710, .03105, 50.49731, 2.39905, 2.01271,
323 + 1.50787, 2.19683, 2.40582,
324 + .04875, .03193, 53.78654, 2.55353, 2.16922,
325 + 1.67085, 2.35240, 2.56043,
326 + .05032, .03277, 56.92845, 2.70399, 2.32159,
327 + 1.82927, 2.50388, 2.71100 /
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 + .05183, .03357, 59.91586, 2.85003, 2.46945,
330 + 1.98279, 2.65089, 2.85716,
331 + .05328, .03434, 62.79673, 2.99304, 2.61419,
332 + 2.13286, 2.79482, 3.00028,
333 + .05469, .03509, 65.56800, 3.13284, 2.75565,
334 + 2.27934, 2.93551, 3.14018,
335 + .05603, .03580, 68.18784, 3.26795, 2.89234,
336 + 2.42079, 3.07146, 3.27539,
337 + .05734, .03649, 70.73832, 3.40100, 3.02691,
338 + 2.55987, 3.20532, 3.40854 /
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 + .02643, .01989, 5.33300, .48281, .07281,
341 + .00000, .26801, .48814,
342 + .03106, .02241, 9.04815, .63501, .23161,
343 + .00000, .42379, .64074,
344 + .03507, .02459, 12.83521, .78836, .39040,
345 + .00000, .58009, .79443,
346 + .03861, .02650, 16.53288, .93916, .54584,
347 + .03467, .73340, .94553,
348 + .04183, .02824, 20.12173, 1.08794, .69870,
349 + .20442, .88439, 1.09458,
350 + .04481, .02984, 23.60596, 1.23480, .84922,
351 + .36568, 1.03323, 1.24168,
352 + .04756, .03131, 26.91204, 1.37760, .99535,
353 + .52172, 1.17782, 1.38471 /
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 + .05014, .03269, 30.07650, 1.51709, 1.13789,
356 + .67320, 1.31896, 1.52441,
357 + .05256, .03398, 33.09121, 1.65286, 1.27648,
358 + .81988, 1.45626, 1.66038,
359 + .05484, .03520, 35.95637, 1.78477, 1.41100,
360 + .96178, 1.58958, 1.79247,
361 + .05701, .03635, 38.67790, 1.91282, 1.54149,
362 + 1.09906, 1.71894, 1.92069,
363 + .05907, .03744, 41.26545, 2.03715, 1.66812,
364 + 1.23195, 1.84451, 2.04518,
365 + .06103, .03848, 43.73038, 2.15798, 1.79113,
366 + 1.36078, 1.96652, 2.16618,
367 + .06291, .03947, 46.06755, 2.27506, 1.91025,
368 + 1.48534, 2.08470, 2.28340 /
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 + .06470, .04041, 48.27351, 2.38812, 2.02526,
371 + 1.60544, 2.19882, 2.39661,
372 + .06643, .04132, 50.38773, 2.49835, 2.13734,
373 + 1.72231, 2.31004, 2.50697,
374 + .06809, .04220, 52.40919, 2.60564, 2.24639,
375 + 1.83587, 2.41828, 2.61439,
376 + .06969, .04303, 54.30672, 2.70886, 2.35130,
377 + 1.94505, 2.52241, 2.71773,
378 + .07123, .04384, 56.14520, 2.81013, 2.45420,
379 + 2.05200, 2.62456, 2.81912 /
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 + .03179, .02279, 5.10358, .46712, .06809,
382 + .00000, .25829, .47305,
383 + .03718, .02571, 8.43961, .60419, .21210,
384 + .00000, .39915, .61059,
385 + .04182, .02821, 11.77731, .74043, .35407,
386 + .00000, .53852, .74725,
387 + .04591, .03040, 14.98898, .87302, .49153,
388 + .03066, .67377, .88019,
389 + .04961, .03239, 18.06856, 1.00268, .62549,
390 + .18012, .80577, 1.01016,
391 + .05302, .03421, 21.02767, 1.12970, .75636,
392 + .32097, .93489, 1.13747,
393 + .05617, .03588, 23.80894, 1.25238, .88253,
394 + .45634, 1.05948, 1.26042 /
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 + .05910, .03745, 26.44914, 1.37149, 1.00485,
397 + .58694, 1.18034, 1.37978,
398 + .06186, .03891, 28.94529, 1.48680, 1.12312,
399 + .71270, 1.29726, 1.49532,
400 + .06445, .04028, 31.30086, 1.59826, 1.23733,
401 + .83374, 1.41022, 1.60699,
402 + .06690, .04157, 33.52361, 1.70596, 1.34759,
403 + .95029, 1.51932, 1.71489,
404 + .06923, .04280, 35.62395, 1.81008, 1.45412,
405 + 1.06262, 1.62475, 1.81920,
406 + .07145, .04396, 37.61330, 1.91087, 1.55718,
407 + 1.17106, 1.72677, 1.92017,
408 + .07356, .04507, 39.48883, 2.00813, 1.65660,
409 + 1.27551, 1.82521, 2.01761 /
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 + .07558, .04613, 41.24903, 2.10172, 1.75222,
412 + 1.37584, 1.91991, 2.11136,
413 + .07752, .04715, 42.92804, 2.19266, 1.84510,
414 + 1.47314, 2.01190, 2.20245,
415 + .07938, .04812, 44.52591, 2.28088, 1.93518,
416 + 1.56739, 2.10114, 2.29082,
417 + .08117, .04905, 46.01746, 2.36547, 2.02154,
418 + 1.65769, 2.18669, 2.37555,
419 + .08290, .04995, 47.45732, 2.44825, 2.10601,
420 + 1.74591, 2.27039, 2.45847 /
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 + .03673, .02553, 4.91482, .45426, .06446,
423 + .00000, .25036, .46060,
424 + .04275, .02879, 7.96518, .57999, .19742,
425 + .00000, .38003, .58685,
426 + .04793, .03157, 10.97152, .70361, .32698,
427 + .00000, .50690, .71092,
428 + .05247, .03401, 13.83031, .82289, .45133,
429 + .02774, .62895, .83059,
430 + .05657, .03620, 16.54461, .93872, .57162,
431 + .16250, .74720, .94676,
432 + .06034, .03821, 19.13077, 1.05148, .68838,
433 + .28866, .86215, 1.05984,
434 + .06381, .04005, 21.54247, 1.15980, .80032,
435 + .40926, .97244, 1.16844 /
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 + .06704, .04176, 23.81627, 1.26446, .90830,
438 + .52502, 1.07891, 1.27336,
439 + .07006, .04336, 25.95245, 1.36532, 1.01223,
440 + .63599, 1.18144, 1.37448,
441 + .07291, .04486, 27.95644, 1.46242, 1.11217,
442 + .74235, 1.28009, 1.47180,
443 + .07559, .04627, 29.83712, 1.55588, 1.20828,
444 + .84436, 1.37499, 1.56548,
445 + .07813, .04761, 31.60490, 1.64591, 1.30080,
446 + .94233, 1.46638, 1.65571,
447 + .08055, .04887, 33.27084, 1.73277, 1.39002,
448 + 1.03661, 1.55453, 1.74277,
449 + .08285, .05008, 34.83403, 1.81633, 1.47580,
450 + 1.12710, 1.63930, 1.82652 /
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 + .08505, .05122, 36.29396, 1.89648, 1.55805,
453 + 1.21377, 1.72059, 1.90684,
454 + .08716, .05232, 37.68100, 1.97414, 1.63772,
455 + 1.29759, 1.79934, 1.98467,
456 + .08918, .05337, 38.99577, 2.04930, 1.71479,
457 + 1.37857, 1.87555, 2.05999,
458 + .09111, .05438, 40.21697, 2.12115, 1.78846,
459 + 1.45594, 1.94838, 2.13198,
460 + .09299, .05535, 41.39225, 2.19130, 1.86036,
461 + 1.53134, 2.01949, 2.20228 /
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 + .05729, .03676, 4.32079, .41243, .05376,
464 + .00000, .22540, .42062,
465 + .06573, .04131, 6.58273, .50617, .15570,
466 + .00000, .32367, .51510,
467 + .07288, .04514, 8.70834, .59533, .25158,
468 + .00000, .41654, .60487,
469 + .07909, .04845, 10.65358, .67913, .34109,
470 + .02000, .50348, .68920,
471 + .08464, .05139, 12.44142, .75870, .42566,
472 + .11614, .58580, .76923,
473 + .08969, .05406, 14.09782, .83465, .50609,
474 + .20431, .66422, .84560,
475 + .09431, .05649, 15.60198, .90632, .58182,
476 + .28712, .73813, .91766 /
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 + .09857, .05873, 16.98759, .97448, .65368,
479 + .36533, .80832, .98617,
480 + .10254, .06081, 18.26130, 1.03922, .72183,
481 + .43922, .87494, 1.05124,
482 + .10625, .06274, 19.43187, 1.10070, .78647,
483 + .50908, .93815, 1.11302,
484 + .10972, .06455, 20.50929, 1.15913, .84784,
485 + .57525, .99820, 1.17173,
486 + .11300, .06624, 21.50360, 1.21476, .90623,
487 + .63807, 1.05535, 1.22762,
488 + .11610, .06785, 22.42455, 1.26784, .96191,
489 + .69785, 1.10986, 1.28096,
490 + .11904, .06936, 23.27370, 1.31835, 1.01488,
491 + .75464, 1.16172, 1.33171 /
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 + .12182, .07079, 24.05259, 1.36629, 1.06514,
494 + .80847, 1.21094, 1.37987,
495 + .12448, .07216, 24.78187, 1.41233, 1.11337,
496 + .86006, 1.25818, 1.42612,
497 + .12703, .07346, 25.46301, 1.45648, 1.15963,
498 + .90948, 1.30349, 1.47048,
499 + .12945, .07470, 26.08382, 1.49827, 1.20341,
500 + .95625, 1.34637, 1.51245,
501 + .13179, .07589, 26.67465, 1.53877, 1.24583,
502 + 1.00150, 1.38793, 1.55314 /
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 + .08880, .05423, 3.68945, .36591, .04378,
505 + .00000, .19873, .37669,
506 + .10026, .06037, 5.29736, .43225, .11930,
507 + .00000, .27018, .44403,
508 + .10981, .06545, 6.73290, .49328, .18782,
509 + .00000, .33537, .50590,
510 + .11798, .06977, 7.99157, .54910, .24995,
511 + .01395, .39470, .56242,
512 + .12520, .07355, 9.10605, .60085, .30722,
513 + .08025, .44950, .61477,
514 + .13170, .07694, 10.10534, .64921, .36050,
515 + .13975, .50060, .66369,
516 + .13758, .07999, 10.98410, .69396, .40968,
517 + .19457, .54780, .70892 /
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 + .14296, .08277, 11.77089, .73576, .45552,
520 + .24546, .59183, .75116,
521 + .14793, .08531, 12.47468, .77481, .49827,
522 + .29278, .63293, .79062,
523 + .15252, .08766, 13.10461, .81132, .53821,
524 + .33686, .67134, .82750,
525 + .15681, .08984, 13.66985, .84551, .57558,
526 + .37803, .70729, .86204,
527 + .16081, .09187, 14.17889, .87762, .61066,
528 + .41661, .74104, .89447,
529 + .16458, .09376, 14.63947, .90785, .64369,
530 + .45287, .77281, .92500,
531 + .16812, .09554, 15.05374, .93626, .67472,
532 + .48692, .80267, .95369 /
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 + .17146, .09721, 15.42384, .96286, .70380,
535 + .51882, .83064, .98055,
536 + .17463, .09879, 15.76315, .98812, .73141,
537 + .54908, .85720, 1.00606,
538 + .17764, .10029, 16.07312, 1.01209, .75762,
539 + .57777, .88240, 1.03027,
540 + .18050, .10170, 16.34717, 1.03449, .78214,
541 + .60464, .90597, 1.05289,
542 + .18324, .10305, 16.60378, 1.05602, .80571,
543 + .63042, .92862, 1.07463 /
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 + .11432, .06858, 3.30622, .33623, .03830,
546 + -.00001, .18233, .34918,
547 + .12775, .07574, 4.59543, .38872, .10048,
548 + -.00001, .24024, .40286,
549 + .13882, .08157, 5.70932, .43609, .15572,
550 + -.00001, .29201, .45121,
551 + .14819, .08646, 6.65830, .47869, .20493,
552 + .01109, .33830, .49462,
553 + .15641, .09071, 7.47751, .51760, .24960,
554 + .06346, .38041, .53422,
555 + .16375, .09448, 8.19556, .55347, .29059,
556 + .10984, .41914, .57071,
557 + .17033, .09783, 8.81229, .58623, .32795,
558 + .15207, .45445, .60401 /
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 + .17633, .10086, 9.35310, .61647, .36237,
561 + .19084, .48701, .63475,
562 + .18182, .10362, 9.82714, .64440, .39413,
563 + .22653, .51707, .66313,
564 + .18687, .10614, 10.24289, .67024, .42349,
565 + .25945, .54486, .68937,
566 + .19155, .10846, 10.60831, .69418, .45070,
567 + .28993, .57062, .71369,
568 + .19591, .11061, 10.93075, .71644, .47602,
569 + .31825, .59457, .73629,
570 + .19998, .11261, 11.21683, .73721, .49965,
571 + .34466, .61692, .75739,
572 + .20379, .11447, 11.46870, .75655, .52166,
573 + .36926, .63774, .77701 /
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 + .20737, .11620, 11.68827, .77447, .54212,
576 + .39213, .65706, .79521,
577 + .21075, .11783, 11.88582, .79136, .56141,
578 + .41368, .67528, .81236,
579 + .21395, .11937, 12.06263, .80726, .57958,
580 + .43399, .69243, .82850,
581 + .21696, .12081, 12.21381, .82196, .59644,
582 + .45285, .70832, .84343,
583 + .21985, .12218, 12.35318, .83601, .61255,
584 + .47086, .72351, .85769 /
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 + .13644, .08120, 3.02896, .31396, .03459,
587 + -.00001, .17029, .32885,
588 + .15130, .08904, 4.12006, .35763, .08824,
589 + -.00001, .21956, .37385,
590 + .16343, .09535, 5.03905, .39650, .13518,
591 + -.00001, .26295, .41379,
592 + .17363, .10059, 5.80427, .43102, .17646,
593 + .00933, .30125, .44919,
594 + .18249, .10510, 6.45123, .46219, .21350,
595 + .05321, .33570, .48110,
596 + .19037, .10907, 7.00779, .49061, .24714,
597 + .09167, .36704, .51019,
598 + .19738, .11257, 7.47629, .51630, .27750,
599 + .12638, .39532, .53645 /
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 + .20373, .11571, 7.87978, .53980, .30523,
602 + .15800, .42117, .56046,
603 + .20952, .11854, 8.22705, .56129, .33059,
604 + .18687, .44482, .58242,
605 + .21481, .12112, 8.52597, .58100, .35386,
606 + .21331, .46650, .60254,
607 + .21970, .12348, 8.78374, .59910, .37526,
608 + .23762, .48643, .62102,
609 + .22422, .12565, 9.00682, .61579, .39502,
610 + .26006, .50483, .63806,
611 + .22843, .12765, 9.20088, .63124, .41335,
612 + .28086, .52187, .65384,
613 + .23235, .12951, 9.36795, .64550, .43031,
614 + .30011, .53762, .66839 /
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 + .23601, .13122, 9.50977, .65861, .44595,
617 + .31790, .55213, .68177,
618 + .23946, .13283, 9.63474, .67088, .46062,
619 + .33458, .56572, .69429,
620 + .24272, .13434, 9.74396, .68234, .47436,
621 + .35021, .57844, .70599,
622 + .24577, .13574, 9.83363, .69284, .48701,
623 + .36464, .59012, .71671,
624 + .24868, .13707, 9.91472, .70281, .49905,
625 + .37836, .60123, .72689 /
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 + .15628, .09260, 2.81322, .29605, .03183,
628 + .00000, .16078, .31276,
629 + .17222, .10091, 3.76659, .33348, .07940,
630 + .00000, .20392, .35161,
631 + .18513, .10753, 4.55235, .36642, .12052,
632 + .00000, .24146, .38569,
633 + .19590, .11298, 5.19380, .39538, .15632,
634 + .00812, .27425, .41557,
635 + .20520, .11762, 5.72621, .42126, .18813,
636 + .04613, .30344, .44223,
637 + .21341, .12168, 6.17672, .44467, .21679,
638 + .07920, .32979, .46632,
639 + .22070, .12522, 6.54890, .46561, .24243,
640 + .10881, .35335, .48785 /
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 + .22725, .12839, 6.86413, .48461, .26567,
643 + .13559, .37470, .50736,
644 + .23319, .13122, 7.13066, .50185, .28679,
645 + .15990, .39410, .52507,
646 + .23861, .13379, 7.35587, .51752, .30603,
647 + .18204, .41175, .54116,
648 + .24357, .13612, 7.54630, .53181, .32361,
649 + .20227, .42787, .55582,
650 + .24816, .13824, 7.70794, .54488, .33975,
651 + .22084, .44263, .56923,
652 + .25241, .14020, 7.84576, .55690, .35463,
653 + .23796, .45623, .58156,
654 + .25635, .14200, 7.96125, .56789, .36832,
655 + .25374, .46872, .59284 /
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 + .26001, .14365, 8.05622, .57792, .38086,
658 + .26823, .48013, .60313,
659 + .26345, .14520, 8.13777, .58723, .39257,
660 + .28177, .49076, .61269,
661 + .26669, .14664, 8.20687, .59589, .40348,
662 + .29439, .50066, .62156,
663 + .26971, .14797, 8.26045, .60372, .41346,
664 + .30598, .50967, .62960,
665 + .27258, .14922, 8.30759, .61113, .42291,
666 + .31696, .51820, .63720 /
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 + .23590, .13868, 2.16171, .23745, .02396,
669 + .00000, .13082, .26215,
670 + .25446, .14758, 2.76970, .25885, .05562,
671 + .00000, .15801, .28514,
672 + .26899, .15435, 3.22983, .27695, .08189,
673 + .00000, .18071, .30440,
674 + .28075, .15968, 3.57588, .29221, .10395,
675 + .00507, .19977, .32057,
676 + .29063, .16404, 3.84121, .30531, .12288,
677 + .02846, .21612, .33439,
678 + .29914, .16771, 4.04948, .31671, .13943,
679 + .04825, .23038, .34639,
680 + .30648, .17079, 4.20655, .32650, .15378,
681 + .06551, .24269, .35666 /
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 + .31294, .17344, 4.32829, .33504, .16643,
684 + .08076, .25350, .36562,
685 + .31865, .17574, 4.42150, .34250, .17762,
686 + .09428, .26300, .37342,
687 + .32376, .17773, 4.49152, .34901, .18755,
688 + .10632, .27139, .38023,
689 + .32835, .17948, 4.54287, .35472, .19641,
690 + .11711, .27881, .38619,
691 + .33248, .18102, 4.57947, .35974, .20434,
692 + .12681, .28542, .39143,
693 + .33624, .18239, 4.60458, .36417, .21149,
694 + .13559, .29132, .39604,
695 + .33966, .18360, 4.61920, .36804, .21789,
696 + .14351, .29657, .40007 /
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 + .34276, .18466, 4.62450, .37139, .22362,
699 + .15065, .30120, .40356,
700 + .34562, .18562, 4.62435, .37438, .22885,
701 + .15720, .30540, .40667,
702 + .34826, .18649, 4.61922, .37704, .23362,
703 + .16321, .30920, .40943,
704 + .35065, .18724, 4.60760, .37928, .23785,
705 + .16861, .31251, .41175,
706 + .35291, .18794, 4.59432, .38133, .24180,
707 + .17366, .31557, .41388 /
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 + .34870, .20185, 1.60761, .17704, .01738,
710 + -.00002, .10167, .21403,
711 + .36659, .20828, 1.96903, .18737, .03734,
712 + -.00001, .11730, .22529,
713 + .37973, .21259, 2.20538, .19540, .05298,
714 + -.00001, .12948, .23387,
715 + .38971, .21554, 2.35707, .20160, .06543,
716 + .00293, .13905, .24038,
717 + .39759, .21762, 2.45432, .20644, .07561,
718 + .01623, .14674, .24537,
719 + .40400, .21912, 2.51666, .21027, .08410,
720 + .02706, .15305, .24928,
721 + .40916, .22011, 2.55005, .21318, .09113,
722 + .03618, .15813, .25218 /
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 + .41343, .22078, 2.56543, .21544, .09707,
725 + .04399, .16231, .25438,
726 + .41697, .22119, 2.56732, .21715, .10211,
727 + .05069, .16575, .25599,
728 + .41992, .22139, 2.55924, .21840, .10639,
729 + .05648, .16857, .25712,
730 + .42237, .22142, 2.54390, .21928, .11004,
731 + .06150, .17087, .25785,
732 + .42441, .22133, 2.52343, .21986, .11317,
733 + .06590, .17276, .25827,
734 + .42614, .22113, 2.49945, .22019, .11587,
735 + .06976, .17430, .25843,
736 + .42755, .22084, 2.47252, .22030, .11819,
737 + .07315, .17553, .25836 /
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 + .42868, .22047, 2.44299, .22021, .12015,
740 + .07611, .17648, .25808,
741 + .42962, .22005, 2.41287, .22000, .12187,
742 + .07875, .17723, .25767,
743 + .43040, .21960, 2.38229, .21968, .12335,
744 + .08111, .17781, .25715,
745 + .43097, .21908, 2.35033, .21919, .12458,
746 + .08316, .17818, .25648,
747 + .43146, .21855, 2.31919, .21867, .12568,
748 + .08504, .17847, .25578 /
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 + .43156, .24337, 1.36996, .14248, .01413,
751 + .00001, .08555, .18770,
752 + .44554, .24571, 1.60928, .14817, .02881,
753 + .00000, .09594, .19319,
754 + .45485, .24650, 1.74154, .15205, .03974,
755 + .00000, .10344, .19666,
756 + .46118, .24636, 1.80853, .15459, .04804,
757 + .00201, .10889, .19869,
758 + .46558, .24567, 1.83713, .15618, .05452,
759 + .01104, .11293, .19975,
760 + .46869, .24467, 1.84335, .15713, .05971,
761 + .01816, .11598, .20015,
762 + .47073, .24338, 1.83214, .15751, .06381,
763 + .02399, .11820, .19997 /
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 + .47203, .24197, 1.81166, .15751, .06714,
766 + .02885, .11982, .19942,
767 + .47275, .24046, 1.78492, .15723, .06984,
768 + .03291, .12098, .19858,
769 + .47302, .23888, 1.75418, .15672, .07203,
770 + .03632, .12177, .19753,
771 + .47294, .23726, 1.72109, .15603, .07381,
772 + .03921, .12226, .19633,
773 + .47257, .23563, 1.68685, .15522, .07526,
774 + .04168, .12251, .19502,
775 + .47197, .23401, 1.65231, .15431, .07643,
776 + .04379, .12258, .19362,
777 + .47118, .23239, 1.61764, .15332, .07736,
778 + .04560, .12249, .19214 /
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 + .47022, .23075, 1.58301, .15224, .07809,
781 + .04712, .12226, .19061,
782 + .46916, .22914, 1.54941, .15114, .07867,
783 + .04846, .12194, .18908,
784 + .46802, .22756, 1.51677, .15003, .07914,
785 + .04962, .12156, .18755,
786 + .46674, .22598, 1.48451, .14886, .07945,
787 + .05059, .12107, .18596,
788 + .46545, .22444, 1.45378, .14771, .07970,
789 + .05146, .12056, .18441 /
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 + .49642, .27083, 1.24381, .11851, .01198,
792 + .00000, .07419, .16844,
793 + .50483, .26869, 1.39643, .12149, .02341,
794 + .00000, .08131, .17002,
795 + .50920, .26582, 1.46080, .12301, .03151,
796 + -.00001, .08598, .17022,
797 + .51113, .26259, 1.47647, .12353, .03737,
798 + .00149, .08902, .16950,
799 + .51148, .25923, 1.46618, .12342, .04175,
800 + .00805, .09100, .16819,
801 + .51091, .25589, 1.44264, .12290, .04511,
802 + .01308, .09226, .16659,
803 + .50954, .25252, 1.40963, .12204, .04765,
804 + .01710, .09295, .16471 /
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 + .50770, .24924, 1.37291, .12100, .04960,
807 + .02037, .09326, .16270,
808 + .50550, .24606, 1.33439, .11982, .05111,
809 + .02304, .09328, .16060,
810 + .50306, .24295, 1.29540, .11854, .05225,
811 + .02523, .09307, .15849,
812 + .50045, .23994, 1.25683, .11720, .05311,
813 + .02704, .09271, .15635,
814 + .49770, .23704, 1.21925, .11584, .05376,
815 + .02854, .09222, .15422,
816 + .49489, .23424, 1.18303, .11447, .05423,
817 + .02980, .09165, .15212,
818 + .49201, .23154, 1.14811, .11308, .05454,
819 + .03085, .09100, .15006 /
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 + .48906, .22890, 1.11445, .11168, .05473,
822 + .03171, .09028, .14801,
823 + .48614, .22636, 1.08255, .11031, .05483,
824 + .03243, .08954, .14603,
825 + .48324, .22391, 1.05224, .10896, .05486,
826 + .03304, .08879, .14410,
827 + .48027, .22153, 1.02304, .10762, .05480,
828 + .03353, .08798, .14219,
829 + .47739, .21925, .99559, .10632, .05472,
830 + .03396, .08720, .14036 /
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 + .54788, .28796, 1.16251, .10008, .01030,
833 + .00000, .06503, .15187,
834 + .54982, .28147, 1.24605, .10126, .01943,
835 + -.00001, .06981, .15057,
836 + .54871, .27514, 1.26090, .10129, .02557,
837 + -.00001, .07255, .14847,
838 + .54586, .26911, 1.24196, .10060, .02980,
839 + .00114, .07402, .14592,
840 + .54202, .26338, 1.20736, .09950, .03283,
841 + .00605, .07470, .14316,
842 + .53767, .25800, 1.16665, .09818, .03505,
843 + .00976, .07491, .14033,
844 + .53290, .25286, 1.12225, .09668, .03663,
845 + .01262, .07469, .13746 /
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 + .52798, .24802, 1.07803, .09512, .03778,
848 + .01491, .07426, .13466,
849 + .52298, .24345, 1.03499, .09352, .03859,
850 + .01673, .07366, .13192,
851 + .51794, .23912, .99371, .09193, .03916,
852 + .01819, .07295, .12925,
853 + .51294, .23502, .95450, .09035, .03952,
854 + .01937, .07216, .12668,
855 + .50798, .23113, .91753, .08879, .03974,
856 + .02033, .07132, .12420,
857 + .50313, .22743, .88284, .08727, .03984,
858 + .02111, .07045, .12182,
859 + .49837, .22389, .85019, .08577, .03986,
860 + .02173, .06957, .11952 /
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 + .49364, .22050, .81939, .08431, .03978,
863 + .02224, .06866, .11731,
864 + .48906, .21728, .79066, .08291, .03966,
865 + .02265, .06776, .11519,
866 + .48460, .21419, .76375, .08155, .03950,
867 + .02298, .06688, .11317,
868 + .48018, .21121, .73828, .08022, .03929,
869 + .02322, .06598, .11121,
870 + .47592, .20838, .71454, .07895, .03907,
871 + .02343, .06512, .10933 /
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 + .59696, .29838, 1.08309, .08167, .00858,
874 + -.00002, .05522, .13266,
875 + .59016, .28694, 1.09774, .08134, .01553,
876 + -.00001, .05789, .12884,
877 + .58187, .27686, 1.06781, .08019, .01993,
878 + .00000, .05899, .12486,
879 + .57302, .26782, 1.02038, .07863, .02279,
880 + .00082, .05921, .12091,
881 + .56396, .25965, .96770, .07689, .02472,
882 + .00435, .05890, .11708,
883 + .55504, .25221, .91569, .07509, .02603,
884 + .00691, .05830, .11346,
885 + .54624, .24531, .86515, .07322, .02689,
886 + .00886, .05751, .11001 /
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 + .53771, .23897, .81806, .07142, .02745,
889 + .01036, .05660, .10674,
890 + .52946, .23309, .77450, .06968, .02776,
891 + .01153, .05563, .10369,
892 + .52152, .22761, .73437, .06798, .02793,
893 + .01244, .05463, .10081,
894 + .51386, .22250, .69747, .06635, .02798,
895 + .01315, .05363, .09807,
896 + .50650, .21771, .66361, .06480, .02793,
897 + .01372, .05263, .09551,
898 + .49943, .21321, .63254, .06331, .02781,
899 + .01416, .05164, .09310,
900 + .49261, .20897, .60392, .06188, .02765,
901 + .01450, .05068, .09080 /
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 + .48601, .20493, .57745, .06051, .02744,
904 + .01475, .04973, .08864,
905 + .47968, .20112, .55311, .05921, .02721,
906 + .01495, .04882, .08658,
907 + .47358, .19753, .53063, .05798, .02696,
908 + .01510, .04794, .08462,
909 + .46765, .19408, .50970, .05678, .02669,
910 + .01518, .04707, .08275,
911 + .46199, .19082, .49038, .05564, .02642,
912 + .01524, .04624, .08100 /
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 + .63159, .29953, 1.00799, .06659, .00710,
915 + -.00003, .04657, .11446,
916 + .61584, .28388, .97004, .06530, .01244,
917 + -.00002, .04778, .10903,
918 + .60049, .27069, .90969, .06348, .01562,
919 + -.00003, .04786, .10400,
920 + .58581, .25930, .84524, .06152, .01755,
921 + .00059, .04732, .09936,
922 + .57186, .24922, .78353, .05951, .01877,
923 + .00316, .04648, .09510,
924 + .55875, .24025, .72728, .05757, .01954,
925 + .00500, .04549, .09120,
926 + .54630, .23208, .67591, .05564, .01996,
927 + .00634, .04442, .08762 /
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 + .53458, .22466, .62999, .05384, .02018,
930 + .00735, .04333, .08432,
931 + .52352, .21790, .58891, .05214, .02025,
932 + .00813, .04224, .08127,
933 + .51305, .21168, .55210, .05053, .02021,
934 + .00872, .04117, .07845,
935 + .50315, .20590, .51904, .04902, .02010,
936 + .00915, .04014, .07583,
937 + .49378, .20053, .48930, .04759, .01994,
938 + .00948, .03914, .07340,
939 + .48486, .19556, .46248, .04625, .01975,
940 + .00974, .03819, .07113,
941 + .47637, .19091, .43817, .04498, .01952,
942 + .00992, .03727, .06901 /
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 + .46825, .18652, .41601, .04377, .01927,
945 + .01004, .03638, .06703,
946 + .46055, .18240, .39587, .04263, .01902,
947 + .01013, .03554, .06518,
948 + .45322, .17851, .37746, .04154, .01876,
949 + .01019, .03473, .06344,
950 + .44612, .17483, .36053, .04053, .01849,
951 + .01021, .03396, .06178,
952 + .43938, .17135, .34503, .03958, .01822,
953 + .01022, .03323, .06022 /
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 + .65359, .29370, .92960, .05398, .00584,
956 + -.00001, .03885, .09726,
957 + .62904, .27475, .85340, .05217, .00987,
958 + .00000, .03905, .09100,
959 + .60694, .25923, .77385, .05009, .01214,
960 + -.00001, .03846, .08552,
961 + .58690, .24609, .70071, .04799, .01344,
962 + .00045, .03751, .08072,
963 + .56853, .23468, .63607, .04596, .01418,
964 + .00231, .03641, .07644,
965 + .55171, .22467, .58004, .04406, .01461,
966 + .00361, .03528, .07260,
967 + .53609, .21567, .53101, .04227, .01478,
968 + .00453, .03413, .06914 /
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 + .52166, .20760, .48845, .04060, .01481,
971 + .00521, .03302, .06603,
972 + .50826, .20028, .45132, .03906, .01475,
973 + .00573, .03195, .06320,
974 + .49573, .19362, .41879, .03763, .01462,
975 + .00610, .03093, .06062,
976 + .48401, .18751, .39010, .03630, .01446,
977 + .00637, .02996, .05824,
978 + .47304, .18186, .36470, .03504, .01426,
979 + .00656, .02905, .05607,
980 + .46273, .17665, .34212, .03387, .01403,
981 + .00670, .02819, .05408,
982 + .45296, .17181, .32189, .03282, .01381,
983 + .00680, .02737, .05220 /
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 + .44370, .16727, .30369, .03179, .01356,
986 + .00686, .02660, .05048,
987 + .43497, .16303, .28730, .03083, .01332,
988 + .00689, .02587, .04888,
989 + .42670, .15906, .27249, .02994, .01309,
990 + .00690, .02518, .04737,
991 + .41879, .15530, .25898, .02909, .01285,
992 + .00689, .02452, .04596,
993 + .41131, .15177, .24669, .02830, .01262,
994 + .00688, .02390, .04464 /
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 + .66431, .28276, .84653, .04336, .00474,
997 + -.00001, .03197, .08132,
998 + .63153, .26127, .74452, .04130, .00777,
999 + -.00002, .03156, .07481,
1000 + .60331, .24403, .65460, .03916, .00939,
1001 + -.00002, .03062, .06937,
1002 + .57848, .22974, .57878, .03712, .01026,
1003 + .00031, .02949, .06470,
1004 + .55631, .21746, .51526, .03520, .01070,
1005 + .00169, .02831, .06068,
1006 + .53635, .20682, .46221, .03348, .01090,
1007 + .00260, .02718, .05712,
1008 + .51811, .19738, .41729, .03187, .01095,
1009 + .00327, .02607, .05398 /
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 + .50146, .18898, .37923, .03041, .01089,
1012 + .00374, .02504, .05117,
1013 + .48618, .18142, .34668, .02907, .01076,
1014 + .00407, .02406, .04866,
1015 + .47205, .17460, .31865, .02784, .01060,
1016 + .00432, .02315, .04640,
1017 + .45893, .16838, .29435, .02671, .01042,
1018 + .00449, .02230, .04435,
1019 + .44676, .16266, .27310, .02567, .01022,
1020 + .00459, .02151, .04247,
1021 + .43541, .15741, .25441, .02470, .01001,
1022 + .00466, .02077, .04075,
1023 + .42477, .15256, .23784, .02381, .00981,
1024 + .00472, .02007, .03917 /
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 + .41473, .14803, .22313, .02297, .00960,
1027 + .00475, .01941, .03771,
1028 + .40530, .14383, .20999, .02220, .00939,
1029 + .00476, .01880, .03636,
1030 + .39642, .13991, .19818, .02148, .00920,
1031 + .00475, .01823, .03512,
1032 + .38796, .13621, .18754, .02080, .00900,
1033 + .00473, .01769, .03395,
1034 + .37999, .13276, .17790, .02016, .00881,
1035 + .00469, .01719, .03286 /
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 + .66501, .26806, .76016, .03445, .00382,
1038 + -.00002, .02597, .06684,
1039 + .62480, .24477, .64287, .03232, .00608,
1040 + -.00001, .02518, .06056,
1041 + .59113, .22650, .54934, .03031, .00722,
1042 + -.00002, .02409, .05541,
1043 + .56229, .21151, .47509, .02840, .00778,
1044 + .00025, .02295, .05116,
1045 + .53691, .19883, .41540, .02670, .00804,
1046 + .00123, .02181, .04752,
1047 + .51441, .18793, .36705, .02518, .00813,
1048 + .00189, .02075, .04436,
1049 + .49410, .17834, .32712, .02382, .00808,
1050 + .00236, .01975, .04161 /
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 + .47576, .16989, .29396, .02258, .00797,
1053 + .00269, .01883, .03920,
1054 + .45909, .16234, .26613, .02146, .00783,
1055 + .00292, .01799, .03704,
1056 + .44381, .15554, .24250, .02044, .00768,
1057 + .00307, .01721, .03511,
1058 + .42975, .14939, .22223, .01951, .00750,
1059 + .00317, .01648, .03339,
1060 + .41678, .14378, .20475, .01866, .00732,
1061 + .00323, .01581, .03183,
1062 + .40477, .13864, .18955, .01786, .00714,
1063 + .00328, .01521, .03041,
1064 + .39351, .13393, .17622, .01715, .00696,
1065 + .00329, .01463, .02911 /
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 + .38297, .12955, .16448, .01650, .00679,
1068 + .00329, .01410, .02791,
1069 + .37314, .12549, .15406, .01589, .00663,
1070 + .00329, .01360, .02681,
1071 + .36394, .12172, .14477, .01532, .00646,
1072 + .00327, .01315, .02580,
1073 + .35520, .11820, .13642, .01479, .00630,
1074 + .00325, .01271, .02486,
1075 + .34701, .11491, .12891, .01429, .00615,
1076 + .00323, .01230, .02398 /
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 + .65683, .25071, .67279, .02701, .00304,
1079 + .00005, .02080, .05405,
1080 + .61006, .22645, .54900, .02502, .00469,
1081 + .00002, .01982, .04824,
1082 + .57187, .20766, .45698, .02318, .00547,
1083 + .00003, .01870, .04364,
1084 + .53971, .19245, .38718, .02156, .00583,
1085 + .00019, .01760, .03986,
1086 + .51183, .17974, .33292, .02009, .00594,
1087 + .00091, .01656, .03672,
1088 + .48739, .16889, .29007, .01884, .00596,
1089 + .00139, .01564, .03399,
1090 + .46562, .15941, .25544, .01766, .00588,
1091 + .00169, .01477, .03169 /
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 + .44613, .15111, .22718, .01664, .00577,
1094 + .00190, .01400, .02965,
1095 + .42852, .14376, .20383, .01574, .00564,
1096 + .00205, .01328, .02786,
1097 + .41250, .13719, .18424, .01492, .00550,
1098 + .00215, .01264, .02627,
1099 + .39787, .13125, .16766, .01418, .00534,
1100 + .00222, .01204, .02486,
1101 + .38445, .12587, .15352, .01349, .00518,
1102 + .00225, .01151, .02359,
1103 + .37207, .12097, .14132, .01286, .00504,
1104 + .00227, .01102, .02245,
1105 + .36055, .11649, .13069, .01233, .00490,
1106 + .00228, .01056, .02140 /
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 + .34986, .11233, .12139, .01178, .00475,
1109 + .00227, .01014, .02046,
1110 + .33991, .10850, .11322, .01129, .00461,
1111 + .00225, .00975, .01960,
1112 + .33058, .10496, .10598, .01086, .00449,
1113 + .00223, .00938, .01878,
1114 + .32179, .10166, .09953, .01047, .00437,
1115 + .00221, .00905, .01802,
1116 + .31357, .09859, .09375, .01010, .00425,
1117 + .00218, .00874, .01732 /
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 + .64065, .23200, .58715, .02115, .00225,
1120 + -.00014, .01625, .04297,
1121 + .58852, .20729, .46345, .01928, .00347,
1122 + -.00015, .01527, .03782,
1123 + .54674, .18842, .37639, .01765, .00404,
1124 + -.00013, .01425, .03381,
1125 + .51212, .17334, .31289, .01624, .00425,
1126 + .00002, .01328, .03060,
1127 + .48246, .16081, .26492, .01500, .00432,
1128 + .00056, .01240, .02795,
1129 + .45675, .15021, .22778, .01394, .00432,
1130 + .00091, .01162, .02570,
1131 + .43402, .14108, .19840, .01301, .00421,
1132 + .00114, .01090, .02378 /
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 + .41382, .13310, .17477, .01219, .00411,
1135 + .00129, .01026, .02214,
1136 + .39575, .12606, .15547, .01145, .00400,
1137 + .00140, .00969, .02070,
1138 + .37940, .11981, .13951, .01081, .00388,
1139 + .00147, .00917, .01943,
1140 + .36454, .11421, .12615, .01022, .00376,
1141 + .00151, .00870, .01828,
1142 + .35100, .10916, .11484, .00969, .00364,
1143 + .00153, .00828, .01726,
1144 + .33855, .10457, .10517, .00923, .00352,
1145 + .00154, .00789, .01634,
1146 + .32708, .10038, .09681, .00877, .00341,
1147 + .00154, .00753, .01554 /
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 + .31640, .09653, .08957, .00837, .00330,
1150 + .00153, .00721, .01479,
1151 + .30650, .09298, .08323, .00802, .00320,
1152 + .00152, .00691, .01411,
1153 + .29730, .08971, .07763, .00768, .00310,
1154 + .00151, .00663, .01351,
1155 + .28866, .08667, .07266, .00736, .00300,
1156 + .00149, .00637, .01294,
1157 + .28060, .08385, .06823, .00707, .00290,
1158 + .00147, .00613, .01241 /
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 + .61804, .21189, .50473, .01606, .00178,
1161 + -.00004, .01267, .03361,
1162 + .56155, .18741, .38629, .01448, .00265,
1163 + -.00002, .01170, .02917,
1164 + .51709, .16893, .30663, .01312, .00301,
1165 + -.00003, .01078, .02580,
1166 + .48072, .15429, .25038, .01196, .00313,
1167 + .00007, .00994, .02317,
1168 + .44992, .14226, .20887, .01098, .00315,
1169 + .00044, .00919, .02097,
1170 + .42343, .13218, .17743, .01016, .00310,
1171 + .00067, .00855, .01915,
1172 + .40028, .12349, .15296, .00941, .00302,
1173 + .00083, .00798, .01759 /
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 + .37985, .11599, .13355, .00877, .00293,
1176 + .00093, .00746, .01628,
1177 + .36164, .10941, .11791, .00820, .00283,
1178 + .00100, .00700, .01514,
1179 + .34534, .10357, .10511, .00769, .00274,
1180 + .00104, .00659, .01414,
1181 + .33058, .09836, .09447, .00724, .00264,
1182 + .00106, .00623, .01326,
1183 + .31715, .09370, .08553, .00685, .00254,
1184 + .00107, .00590, .01247,
1185 + .30492, .08949, .07796, .00648, .00244,
1186 + .00107, .00560, .01176,
1187 + .29363, .08564, .07147, .00617, .00236,
1188 + .00107, .00534, .01114 /
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 + .28321, .08212, .06586, .00588, .00228,
1191 + .00106, .00509, .01056,
1192 + .27361, .07890, .06099, .00561, .00220,
1193 + .00105, .00486, .01004,
1194 + .26470, .07593, .05671, .00536, .00213,
1195 + .00104, .00464, .00958,
1196 + .25637, .07317, .05293, .00512, .00205,
1197 + .00102, .00445, .00914,
1198 + .24862, .07062, .04958, .00490, .00199,
1199 + .00100, .00428, .00875 /
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 + .58965, .19166, .42772, .01211, .00134,
1202 + -.00003, .00966, .02584,
1203 + .53008, .16777, .31802, .01077, .00195,
1204 + -.00004, .00879, .02215,
1205 + .48387, .14997, .24702, .00967, .00221,
1206 + -.00003, .00800, .01937,
1207 + .44655, .13604, .19835, .00872, .00226,
1208 + .00004, .00732, .01722,
1209 + .41526, .12469, .16325, .00796, .00224,
1210 + .00031, .00672, .01548,
1211 + .38864, .11519, .13706, .00730, .00220,
1212 + .00049, .00620, .01404,
1213 + .36545, .10711, .11702, .00673, .00214,
1214 + .00058, .00574, .01284 /
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 + .34518, .10014, .10134, .00624, .00206,
1217 + .00064, .00535, .01181,
1218 + .32726, .09407, .08885, .00580, .00198,
1219 + .00069, .00499, .01091,
1220 + .31125, .08873, .07872, .00542, .00190,
1221 + .00072, .00468, .01015,
1222 + .29683, .08398, .07038, .00509, .00182,
1223 + .00073, .00440, .00948,
1224 + .28380, .07972, .06342, .00479, .00175,
1225 + .00073, .00415, .00888,
1226 + .27196, .07588, .05755, .00451, .00169,
1227 + .00073, .00393, .00835,
1228 + .26109, .07242, .05256, .00429, .00162,
1229 + .00072, .00372, .00788 /
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 + .25111, .06925, .04828, .00408, .00156,
1232 + .00071, .00354, .00744,
1233 + .24194, .06634, .04457, .00387, .00150,
1234 + .00070, .00337, .00706,
1235 + .23348, .06368, .04134, .00367, .00144,
1236 + .00071, .00321, .00672,
1237 + .22558, .06122, .03848, .00349, .00139,
1238 + .00069, .00307, .00641,
1239 + .21825, .05896, .03595, .00333, .00134,
1240 + .00067, .00293, .00612 /
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 + .55671, .17150, .35716, .00892, .00101,
1243 + -.00001, .00728, .01953,
1244 + .49518, .14866, .25840, .00785, .00144,
1245 + -.00001, .00653, .01650,
1246 + .44816, .13180, .19669, .00697, .00159,
1247 + .00000, .00588, .01430,
1248 + .41060, .11872, .15543, .00624, .00162,
1249 + .00004, .00532, .01262,
1250 + .37939, .10818, .12629, .00567, .00160,
1251 + .00024, .00483, .01125,
1252 + .35306, .09941, .10492, .00515, .00155,
1253 + .00034, .00444, .01014,
1254 + .33032, .09198, .08878, .00473, .00150,
1255 + .00041, .00409, .00920 /
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 + .31055, .08562, .07630, .00436, .00144,
1258 + .00045, .00378, .00843,
1259 + .29318, .08010, .06644, .00404, .00138,
1260 + .00047, .00351, .00776,
1261 + .27774, .07527, .05852, .00376, .00132,
1262 + .00050, .00327, .00718,
1263 + .26392, .07099, .05207, .00352, .00125,
1264 + .00051, .00306, .00667,
1265 + .25146, .06717, .04672, .00330, .00119,
1266 + .00051, .00288, .00624,
1267 + .24017, .06374, .04224, .00311, .00115,
1268 + .00050, .00272, .00585,
1269 + .22995, .06063, .03845, .00292, .00110,
1270 + .00050, .00257, .00550 /
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 + .22052, .05783, .03521, .00277, .00105,
1273 + .00048, .00243, .00518,
1274 + .21186, .05527, .03241, .00264, .00101,
1275 + .00048, .00231, .00489,
1276 + .20388, .05293, .02998, .00252, .00098,
1277 + .00048, .00219, .00464,
1278 + .19649, .05077, .02786, .00240, .00093,
1279 + .00046, .00209, .00440,
1280 + .18966, .04880, .02598, .00229, .00089,
1281 + .00045, .00199, .00418 /
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 + .52016, .15185, .29381, .00640, .00079,
1284 + .00005, .00540, .01451,
1285 + .45781, .13035, .20711, .00559, .00106,
1286 + .00005, .00477, .01212,
1287 + .41085, .11466, .15465, .00492, .00115,
1288 + .00005, .00425, .01038,
1289 + .37367, .10259, .12037, .00438, .00116,
1290 + .00008, .00381, .00908,
1291 + .34313, .09290, .09662, .00394, .00114,
1292 + .00019, .00345, .00803,
1293 + .31752, .08491, .07948, .00356, .00110,
1294 + .00026, .00313, .00719,
1295 + .29558, .07820, .06671, .00326, .00104,
1296 + .00030, .00287, .00648 /
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 + .27662, .07248, .05694, .00299, .00099,
1299 + .00033, .00263, .00591,
1300 + .26003, .06752, .04928, .00276, .00094,
1301 + .00035, .00244, .00543,
1302 + .24537, .06321, .04317, .00256, .00090,
1303 + .00035, .00227, .00500,
1304 + .23231, .05940, .03823, .00239, .00085,
1305 + .00035, .00211, .00462,
1306 + .22059, .05603, .03418, .00224, .00081,
1307 + .00034, .00198, .00430,
1308 + .21004, .05302, .03079, .00209, .00077,
1309 + .00034, .00186, .00402,
1310 + .20044, .05030, .02794, .00198, .00074,
1311 + .00033, .00175, .00375 /
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 + .19166, .04784, .02552, .00188, .00070,
1314 + .00033, .00165, .00353,
1315 + .18365, .04560, .02343, .00178, .00068,
1316 + .00032, .00156, .00333,
1317 + .17632, .04356, .02163, .00168, .00066,
1318 + .00031, .00148, .00314,
1319 + .16954, .04169, .02005, .00158, .00063,
1320 + .00031, .00141, .00297,
1321 + .16328, .03997, .01866, .00149, .00060,
1322 + .00031, .00134, .00283 /
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 + .48090, .13323, .23815, .00463, .00054,
1325 + .00001, .00389, .01058,
1326 + .41895, .11324, .16385, .00397, .00074,
1327 + .00002, .00340, .00871,
1328 + .37279, .09882, .12007, .00344, .00080,
1329 + .00001, .00299, .00741,
1330 + .33665, .08781, .09216, .00307, .00080,
1331 + .00003, .00266, .00641,
1332 + .30720, .07905, .07313, .00273, .00078,
1333 + .00012, .00239, .00564,
1334 + .28268, .07187, .05961, .00248, .00074,
1335 + .00018, .00216, .00501,
1336 + .26183, .06588, .04965, .00224, .00070,
1337 + .00020, .00196, .00451 /
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 + .24391, .06079, .04209, .00205, .00067,
1340 + .00022, .00180, .00407,
1341 + .22831, .05642, .03624, .00189, .00064,
1342 + .00024, .00166, .00372,
1343 + .21461, .05261, .03162, .00175, .00060,
1344 + .00023, .00153, .00341,
1345 + .20249, .04927, .02788, .00161, .00056,
1346 + .00023, .00142, .00314,
1347 + .19165, .04633, .02484, .00149, .00054,
1348 + .00023, .00132, .00292,
1349 + .18189, .04370, .02231, .00140, .00051,
1350 + .00023, .00124, .00272,
1351 + .17306, .04133, .02019, .00132, .00049,
1352 + .00023, .00117, .00254 /
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 + .16503, .03921, .01839, .00125, .00046,
1355 + .00022, .00109, .00238,
1356 + .15771, .03729, .01685, .00117, .00043,
1357 + .00022, .00103, .00224,
1358 + .15103, .03553, .01552, .00110, .00041,
1359 + .00020, .00097, .00211,
1360 + .14485, .03392, .01437, .00105, .00040,
1361 + .00020, .00092, .00200,
1362 + .13917, .03245, .01335, .00099, .00038,
1363 + .00020, .00087, .00189 /
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 + .44001, .11559, .19006, .00324, .00038,
1366 + .00003, .00278, .00754,
1367 + .37939, .09733, .12774, .00274, .00051,
1368 + .00002, .00238, .00615,
1369 + .33470, .08429, .09202, .00240, .00052,
1370 + .00002, .00206, .00518,
1371 + .30011, .07442, .06971, .00214, .00052,
1372 + .00003, .00183, .00443,
1373 + .27218, .06660, .05475, .00189, .00050,
1374 + .00008, .00161, .00388,
1375 + .24907, .06024, .04422, .00170, .00047,
1376 + .00011, .00146, .00343,
1377 + .22956, .05495, .03657, .00153, .00045,
1378 + .00013, .00131, .00307 /
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 + .21287, .05049, .03084, .00140, .00042,
1381 + .00014, .00119, .00278,
1382 + .19842, .04667, .02642, .00129, .00040,
1383 + .00015, .00110, .00251,
1384 + .18581, .04337, .02295, .00118, .00038,
1385 + .00014, .00100, .00229,
1386 + .17467, .04049, .02017, .00109, .00036,
1387 + .00014, .00092, .00211,
1388 + .16475, .03794, .01791, .00102, .00034,
1389 + .00014, .00086, .00195,
1390 + .15589, .03568, .01605, .00095, .00032,
1391 + .00013, .00080, .00180,
1392 + .14790, .03366, .01449, .00088, .00030,
1393 + .00013, .00075, .00169 /
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 + .14064, .03184, .01317, .00083, .00029,
1396 + .00013, .00070, .00158,
1397 + .13405, .03020, .01204, .00078, .00027,
1398 + .00013, .00066, .00148,
1399 + .12805, .02870, .01108, .00073, .00025,
1400 + .00012, .00063, .00140,
1401 + .12250, .02734, .01024, .00070, .00024,
1402 + .00012, .00059, .00131,
1403 + .11740, .02610, .00950, .00067, .00023,
1404 + .00011, .00055, .00123 /
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 + .39819, .09919, .14914, .00220, .00031,
1407 + .00004, .00195, .00525,
1408 + .33978, .08269, .09797, .00184, .00036,
1409 + .00004, .00165, .00426,
1410 + .29723, .07103, .06939, .00159, .00037,
1411 + .00003, .00142, .00355,
1412 + .26461, .06228, .05188, .00139, .00036,
1413 + .00004, .00124, .00301,
1414 + .23845, .05540, .04033, .00122, .00034,
1415 + .00007, .00109, .00262,
1416 + .21702, .04983, .03232, .00107, .00033,
1417 + .00009, .00098, .00231,
1418 + .19897, .04524, .02655, .00098, .00031,
1419 + .00009, .00088, .00203 /
1420 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1421 + .18368, .04138, .02226, .00088, .00028,
1422 + .00010, .00080, .00183,
1423 + .17050, .03810, .01898, .00080, .00026,
1424 + .00010, .00072, .00166,
1425 + .15903, .03527, .01643, .00073, .00025,
1426 + .00010, .00066, .00152,
1427 + .14893, .03281, .01440, .00068, .00024,
1428 + .00010, .00061, .00139,
1429 + .13999, .03064, .01274, .00063, .00023,
1430 + .00010, .00057, .00127,
1431 + .13204, .02872, .01139, .00058, .00022,
1432 + .00010, .00053, .00118,
1433 + .12487, .02702, .01026, .00056, .00021,
1434 + .00009, .00049, .00108 /
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 + .11840, .02549, .00931, .00052, .00019,
1437 + .00010, .00046, .00101,
1438 + .11255, .02411, .00850, .00050, .00018,
1439 + .00010, .00043, .00095,
1440 + .10721, .02287, .00781, .00047, .00018,
1441 + .00009, .00041, .00087,
1442 + .10232, .02172, .00721, .00044, .00017,
1443 + .00009, .00038, .00083,
1444 + .09785, .02069, .00668, .00040, .00016,
1445 + .00008, .00036, .00079 /
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 + .35637, .08418, .11504, .00144, .00020,
1448 + .00002, .00134, .00363,
1449 + .30093, .06947, .07388, .00119, .00025,
1450 + .00003, .00113, .00287,
1451 + .26098, .05917, .05149, .00101, .00026,
1452 + .00003, .00096, .00236,
1453 + .23066, .05151, .03802, .00086, .00026,
1454 + .00003, .00084, .00199,
1455 + .20652, .04555, .02928, .00077, .00025,
1456 + .00006, .00075, .00169,
1457 + .18689, .04074, .02329, .00065, .00023,
1458 + .00007, .00066, .00150,
1459 + .17047, .03680, .01902, .00059, .00022,
1460 + .00007, .00059, .00132 /
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 + .15663, .03351, .01587, .00053, .00020,
1463 + .00008, .00053, .00118,
1464 + .14477, .03071, .01348, .00047, .00019,
1465 + .00009, .00049, .00107,
1466 + .13448, .02832, .01163, .00044, .00018,
1467 + .00008, .00044, .00097,
1468 + .12548, .02625, .01016, .00041, .00017,
1469 + .00008, .00041, .00088,
1470 + .11755, .02444, .00898, .00037, .00016,
1471 + .00008, .00038, .00080,
1472 + .11050, .02284, .00800, .00034, .00015,
1473 + .00008, .00035, .00075,
1474 + .10418, .02142, .00720, .00033, .00014,
1475 + .00007, .00033, .00069 /
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 + .09850, .02015, .00652, .00031, .00014,
1478 + .00008, .00031, .00064,
1479 + .09338, .01901, .00594, .00028, .00013,
1480 + .00008, .00028, .00060,
1481 + .08872, .01798, .00545, .00026, .00012,
1482 + .00007, .00026, .00056,
1483 + .08446, .01704, .00502, .00025, .00011,
1484 + .00007, .00025, .00052,
1485 + .08057, .01619, .00465, .00024, .00011,
1486 + .00006, .00024, .00049 /
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 + .31534, .07072, .08731, .00103, .00009,
1489 + -.00003, .00084, .00244,
1490 + .26356, .05780, .05498, .00083, .00013,
1491 + -.00001, .00070, .00190,
1492 + .22668, .04884, .03774, .00070, .00014,
1493 + -.00002, .00060, .00153,
1494 + .19891, .04225, .02760, .00059, .00013,
1495 + -.00001, .00052, .00130,
1496 + .17696, .03713, .02109, .00054, .00012,
1497 + .00001, .00044, .00111,
1498 + .15925, .03305, .01666, .00047, .00012,
1499 + .00002, .00039, .00097,
1500 + .14455, .02971, .01354, .00042, .00011,
1501 + .00003, .00035, .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 + .13219, .02694, .01125, .00038, .00010,
1504 + .00003, .00031, .00075,
1505 + .12165, .02460, .00953, .00036, .00010,
1506 + .00003, .00028, .00067,
1507 + .11257, .02260, .00820, .00032, .00009,
1508 + .00003, .00026, .00061,
1509 + .10466, .02087, .00715, .00029, .00008,
1510 + .00003, .00024, .00055,
1511 + .09772, .01937, .00630, .00026, .00008,
1512 + .00003, .00022, .00051,
1513 + .09158, .01805, .00561, .00023, .00007,
1514 + .00003, .00020, .00048,
1515 + .08608, .01688, .00504, .00023, .00007,
1516 + .00003, .00018, .00043 /
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 + .08116, .01584, .00456, .00022, .00006,
1519 + .00003, .00017, .00040,
1520 + .07674, .01491, .00415, .00020, .00006,
1521 + .00003, .00016, .00037,
1522 + .07273, .01406, .00380, .00019, .00006,
1523 + .00003, .00014, .00035,
1524 + .06907, .01330, .00350, .00018, .00006,
1525 + .00003, .00013, .00033,
1526 + .06574, .01261, .00324, .00017, .00005,
1527 + .00002, .00013, .00031 /
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 + .27543, .05845, .06477, .00059, .00010,
1530 + .00003, .00059, .00156,
1531 + .22769, .04730, .03998, .00050, .00010,
1532 + .00003, .00047, .00122,
1533 + .19413, .03965, .02708, .00042, .00010,
1534 + .00002, .00038, .00099,
1535 + .16908, .03404, .01959, .00036, .00009,
1536 + .00003, .00033, .00083,
1537 + .14947, .02974, .01485, .00031, .00008,
1538 + .00003, .00028, .00071,
1539 + .13371, .02634, .01167, .00027, .00007,
1540 + .00002, .00025, .00060,
1541 + .12076, .02356, .00944, .00024, .00007,
1542 + .00003, .00022, .00053 /
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 + .10990, .02127, .00782, .00024, .00007,
1545 + .00003, .00019, .00047,
1546 + .10070, .01934, .00660, .00021, .00006,
1547 + .00003, .00017, .00042,
1548 + .09282, .01770, .00566, .00018, .00006,
1549 + .00003, .00016, .00037,
1550 + .08598, .01629, .00493, .00017, .00005,
1551 + .00002, .00015, .00033,
1552 + .07998, .01506, .00434, .00016, .00005,
1553 + .00003, .00013, .00030,
1554 + .07469, .01399, .00386, .00015, .00005,
1555 + .00002, .00012, .00028,
1556 + .07001, .01305, .00346, .00013, .00004,
1557 + .00002, .00011, .00026 /
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 + .06580, .01220, .00313, .00013, .00004,
1560 + .00002, .00010, .00024,
1561 + .06203, .01145, .00284, .00012, .00004,
1562 + .00002, .00009, .00022,
1563 + .05863, .01078, .00260, .00012, .00003,
1564 + .00002, .00009, .00021,
1565 + .05556, .01017, .00239, .00010, .00004,
1566 + .00002, .00009, .00019,
1567 + .05276, .00962, .00221, .00010, .00003,
1568 + .00002, .00008, .00018 /
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 + .23735, .04768, .04709, .00034, .00008,
1571 + .00004, .00039, .00098,
1572 + .19415, .03819, .02850, .00027, .00008,
1573 + .00004, .00031, .00075,
1574 + .16402, .03174, .01904, .00024, .00007,
1575 + .00002, .00026, .00061,
1576 + .14179, .02706, .01365, .00019, .00006,
1577 + .00002, .00021, .00051,
1578 + .12451, .02349, .01027, .00018, .00006,
1579 + .00003, .00018, .00042,
1580 + .11074, .02068, .00802, .00016, .00005,
1581 + .00002, .00016, .00036,
1582 + .09945, .01840, .00647, .00014, .00005,
1583 + .00003, .00014, .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 + .09009, .01653, .00534, .00011, .00005,
1586 + .00002, .00012, .00028,
1587 + .08217, .01496, .00450, .00011, .00004,
1588 + .00002, .00011, .00025,
1589 + .07541, .01364, .00385, .00010, .00004,
1590 + .00002, .00009, .00023,
1591 + .06959, .01251, .00334, .00009, .00003,
1592 + .00002, .00009, .00021,
1593 + .06451, .01153, .00294, .00008, .00003,
1594 + .00002, .00008, .00018,
1595 + .06004, .01067, .00261, .00008, .00003,
1596 + .00002, .00008, .00016,
1597 + .05608, .00992, .00234, .00008, .00003,
1598 + .00002, .00007, .00015 /
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 + .05256, .00925, .00211, .00007, .00003,
1601 + .00002, .00006, .00014,
1602 + .04941, .00866, .00192, .00007, .00003,
1603 + .00001, .00006, .00013,
1604 + .04656, .00813, .00175, .00007, .00002,
1605 + .00001, .00006, .00012,
1606 + .04400, .00765, .00161, .00006, .00002,
1607 + .00001, .00005, .00010,
1608 + .04168, .00722, .00149, .00005, .00002,
1609 + .00001, .00005, .00009 /
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 + .20188, .03842, .03353, .00024, .00003,
1612 + .00001, .00022, .00062,
1613 + .16328, .03045, .01994, .00019, .00003,
1614 + .00001, .00017, .00047,
1615 + .13671, .02510, .01316, .00017, .00003,
1616 + .00001, .00014, .00037,
1617 + .11730, .02124, .00936, .00013, .00003,
1618 + .00000, .00012, .00030,
1619 + .10235, .01832, .00700, .00011, .00002,
1620 + .00001, .00010, .00025,
1621 + .09047, .01603, .00545, .00010, .00003,
1622 + .00001, .00009, .00023,
1623 + .08083, .01419, .00438, .00008, .00002,
1624 + .00001, .00007, .00019 /
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 + .07285, .01269, .00360, .00008, .00002,
1627 + .00000, .00006, .00016,
1628 + .06614, .01144, .00303, .00008, .00001,
1629 + .00001, .00005, .00015,
1630 + .06046, .01039, .00259, .00007, .00002,
1631 + .00001, .00005, .00013,
1632 + .05557, .00949, .00225, .00007, .00002,
1633 + .00001, .00005, .00012,
1634 + .05132, .00872, .00197, .00007, .00001,
1635 + .00001, .00004, .00011,
1636 + .04760, .00804, .00175, .00006, .00001,
1637 + .00000, .00003, .00009,
1638 + .04433, .00746, .00157, .00006, .00001,
1639 + .00000, .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 + .04142, .00693, .00141, .00005, .00001,
1642 + .00000, .00003, .00008,
1643 + .03883, .00647, .00128, .00005, .00001,
1644 + .00001, .00003, .00007,
1645 + .03652, .00606, .00117, .00004, .00001,
1646 + .00000, .00003, .00007,
1647 + .03441, .00569, .00108, .00004, .00001,
1648 + .00001, .00002, .00006,
1649 + .03250, .00535, .00099, .00004, .00001,
1650 + .00001, .00002, .00006 /
1651 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1652 + .16881, .03032, .02320, .00009, .00004,
1653 + .00004, .00014, .00037,
1654 + .13497, .02378, .01355, .00008, .00003,
1655 + .00003, .00011, .00027,
1656 + .11197, .01942, .00885, .00007, .00003,
1657 + .00002, .00009, .00021,
1658 + .09528, .01632, .00624, .00007, .00003,
1659 + .00002, .00007, .00016,
1660 + .08255, .01398, .00465, .00005, .00002,
1661 + .00002, .00006, .00015,
1662 + .07252, .01216, .00360, .00006, .00002,
1663 + .00002, .00006, .00010,
1664 + .06443, .01071, .00289, .00004, .00002,
1665 + .00001, .00004, .00010 /
1666 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1667 + .05777, .00953, .00237, .00003, .00002,
1668 + .00001, .00004, .00009,
1669 + .05221, .00855, .00199, .00004, .00001,
1670 + .00001, .00004, .00008,
1671 + .04752, .00773, .00170, .00003, .00001,
1672 + .00001, .00003, .00007,
1673 + .04349, .00703, .00147, .00003, .00001,
1674 + .00001, .00003, .00006,
1675 + .04002, .00643, .00129, .00002, .00001,
1676 + .00001, .00003, .00006,
1677 + .03701, .00592, .00114, .00001, .00001,
1678 + .00001, .00002, .00005,
1679 + .03432, .00546, .00102, .00003, .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 + .03197, .00507, .00092, .00002, .00001,
1683 + .00001, .00002, .00004,
1684 + .02988, .00471, .00084, .00002, .00001,
1685 + .00001, .00002, .00004,
1686 + .02800, .00440, .00076, .00002, .00001,
1687 + .00001, .00002, .00003,
1688 + .02632, .00412, .00070, .00002, .00001,
1689 + .00001, .00002, .00003,
1690 + .02480, .00387, .00064, .00002, .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 + .11210, .01794, .01023, .00004, .00001,
1694 + .00000, .00004, .00011,
1695 + .08751, .01374, .00580, .00003, .00001,
1696 + .00000, .00003, .00008,
1697 + .07118, .01102, .00371, .00002, .00000,
1698 + .00000, .00003, .00006,
1699 + .05958, .00910, .00259, .00001, .00000,
1700 + .00000, .00002, .00005,
1701 + .05085, .00769, .00192, .00002, .00001,
1702 + .00000, .00002, .00004,
1703 + .04410, .00661, .00148, .00001, .00000,
1704 + .00000, .00001, .00003,
1705 + .03872, .00575, .00118, .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 + .03434, .00506, .00097, .00001, .00001,
1709 + .00000, .00001, .00002,
1710 + .03074, .00450, .00081, .00001, .00000,
1711 + .00000, .00001, .00002,
1712 + .02771, .00403, .00069, .00001, .00000,
1713 + .00000, .00001, .00002,
1714 + .02516, .00364, .00060, .00000, .00000,
1715 + .00000, .00001, .00002,
1716 + .02296, .00330, .00052, .00000, .00000,
1717 + .00000, .00001, .00002,
1718 + .02106, .00302, .00046, .00001, .00000,
1719 + .00000, .00001, .00001,
1720 + .01940, .00277, .00041, .00001, .00000,
1721 + .00000, .00001, .00001 /
1722 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1723 + .01795, .00255, .00037, .00001, .00000,
1724 + .00000, .00001, .00001,
1725 + .01667, .00236, .00034, .00000, .00000,
1726 + .00000, .00001, .00001,
1727 + .01554, .00219, .00031, .00000, .00000,
1728 + .00000, .00001, .00001,
1729 + .01452, .00203, .00028, .00000, .00000,
1730 + .00000, .00001, .00001,
1731 + .01360, .00190, .00026, .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 + .06818, .00965, .00390, .00001, .00000,
1735 + .00000, .00001, .00003,
1736 + .05187, .00721, .00217, .00000, .00000,
1737 + -.00001, .00001, .00003,
1738 + .04129, .00566, .00137, .00001, .00000,
1739 + -.00001, .00000, .00002,
1740 + .03395, .00459, .00096, .00000, .00000,
1741 + .00000, .00000, .00001,
1742 + .02853, .00382, .00071, .00001, .00000,
1743 + .00000, .00000, .00001,
1744 + .02439, .00324, .00055, .00001, .00000,
1745 + .00000, .00000, .00000,
1746 + .02114, .00279, .00044, .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 + .01853, .00242, .00036, .00000, .00000,
1750 + .00000, .00000, .00001,
1751 + .01641, .00213, .00030, .00000, .00000,
1752 + .00000, .00000, .00000,
1753 + .01465, .00189, .00025, .00000, .00000,
1754 + .00000, .00000, .00000,
1755 + .01317, .00169, .00022, .00000, .00000,
1756 + .00000, .00000, .00000,
1757 + .01192, .00152, .00019, .00000, .00000,
1758 + .00000, .00000, .00000,
1759 + .01085, .00138, .00017, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .00992, .00126, .00015, .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 + .00911, .00115, .00014, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .00840, .00106, .00012, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .00778, .00097, .00011, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .00722, .00090, .00010, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00673, .00084, .00009, .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 + .03695, .00456, .00123, .00000, .00000,
1776 + .00000, .00000, .00001,
1777 + .02730, .00331, .00068, .00001, .00000,
1778 + .00000, .00000, .00000,
1779 + .02123, .00254, .00043, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01711, .00203, .00030, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01412, .00166, .00022, .00000, .00000,
1784 + .00000, .00000, .00000,
1785 + .01188, .00138, .00017, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01015, .00117, .00014, .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 + .00879, .00101, .00011, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00768, .00088, .00010, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00678, .00077, .00008, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00604, .00068, .00007, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00541, .00061, .00006, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00488, .00054, .00005, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00442, .00049, .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 + .00403, .00045, .00004, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00369, .00041, .00004, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00339, .00037, .00004, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00312, .00034, .00003, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00289, .00032, .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 + .01691, .00179, .00029, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01209, .00126, .00017, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00914, .00094, .00011, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00720, .00073, .00008, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00582, .00059, .00006, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00481, .00048, .00005, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00404, .00040, .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 + .00344, .00034, .00003, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00297, .00029, .00003, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00259, .00025, .00002, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00227, .00022, .00002, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00202, .00019, .00002, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00180, .00017, .00001, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00161, .00015, .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 + .00146, .00014, .00001, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00132, .00013, .00001, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00120, .00011, .00001, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00110, .00010, .00001, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00101, .00010, .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 + .00134, .00009, .00000, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00087, .00006, .00000, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00061, .00004, .00000, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00045, .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 + .00021, .00001, .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 + .00017, .00001, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00014, .00001, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00012, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00010, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00009, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00008, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00006, .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 + .00005, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00004, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00004, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00003, .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(80,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