]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfdisd0.F
Changes needed on Mac (F.Carminati)
[u/mrichter/AliRoot.git] / PDF / spdf / sfdisd0.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:29:39  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:33  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13       SUBROUTINE SFDISD0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15 C     THIS IS THE NEW B0-TYPE FIT "D0'"  WITH UBAR < DBAR (230 MEV)
16 C     IN THE ** DIS ** SCHEME
17 C
18 #include "pdf/impdp.inc"
19       PARAMETER(NX=47)
20       PARAMETER(NTENTH=21)
21       DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
22         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
23      +    0.00930,   0.00352,   4.30034,   0.47321,   0.06807,
24      +    0.00000,   0.27447,   0.47849,
25      +    0.00976,   0.00366,  11.00467,   0.65733,   0.25226,
26      +    0.00000,   0.45879,   0.66265,
27      +    0.01020,   0.00380,  19.93318,   0.89179,   0.48679,
28      +    0.00000,   0.69346,   0.89715,
29      +    0.01060,   0.00393,  30.63055,   1.17179,   0.76686,
30      +    0.00000,   0.97364,   1.17720,
31      +    0.01098,   0.00406,  43.07445,   1.49553,   1.09068,
32      +    0.07132,   1.29756,   1.50100,
33      +    0.01134,   0.00418,  57.04886,   1.86041,   1.45562,
34      +    0.40646,   1.66261,   1.86591,
35      +    0.01168,   0.00431,  72.39754,   2.26499,   1.86027,
36      +    0.83916,   2.06736,   2.27054 /
37         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
38      +    0.01201,   0.00442,  88.96280,   2.70667,   2.30201,
39      +    1.30378,   2.50917,   2.71224,
40      +    0.01234,   0.00454, 106.60825,   3.18275,   2.77815,
41      +    1.80435,   2.98540,   3.18836,
42      +    0.01264,   0.00466, 125.23030,   3.69120,   3.28666,
43      +    2.33731,   3.49399,   3.69685,
44      +    0.01294,   0.00478, 144.75316,   4.23047,   3.82598,
45      +    2.90128,   4.03339,   4.23615,
46      +    0.01323,   0.00489, 165.02708,   4.79753,   4.39310,
47      +    3.49297,   4.60057,   4.80326,
48      +    0.01351,   0.00499, 185.74925,   5.38564,   4.98127,
49      +    4.10534,   5.18881,   5.39140,
50      +    0.01378,   0.00510, 207.19238,   6.00021,   5.59589,
51      +    4.74396,   5.80350,   6.00601 /
52         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
53      +    0.01405,   0.00521, 229.19391,   6.63778,   6.23352,
54      +    5.40525,   6.44118,   6.64362,
55      +    0.01431,   0.00531, 251.37769,   7.28997,   6.88577,
56      +    6.08051,   7.09349,   7.29585,
57      +    0.01456,   0.00541, 274.24219,   7.96752,   7.56338,
58      +    6.78087,   7.77116,   7.97344,
59      +    0.01481,   0.00551, 297.05859,   8.65364,   8.24955,
60      +    7.48899,   8.45738,   8.65965,
61      +    0.01505,   0.00561, 320.44653,   9.36224,   8.95821,
62      +    8.21925,   9.16609,   9.36827 /
63         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
64      +    0.01259,   0.00479,   4.16478,   0.46504,   0.06334,
65      +    0.00000,   0.26692,   0.46940,
66      +    0.01320,   0.00501,  10.00315,   0.62742,   0.22605,
67      +    0.00000,   0.42958,   0.63184,
68      +    0.01378,   0.00521,  17.46046,   0.82840,   0.42734,
69      +    0.00000,   0.63082,   0.83288,
70      +    0.01430,   0.00540,  26.12637,   1.06285,   0.66208,
71      +    0.00000,   0.86551,   1.06738,
72      +    0.01480,   0.00558,  35.96332,   1.32860,   0.92810,
73      +    0.05844,   1.13149,   1.33316,
74      +    0.01527,   0.00576,  46.78426,   1.62303,   1.22278,
75      +    0.32996,   1.42615,   1.62765,
76      +    0.01573,   0.00595,  58.45795,   1.94464,   1.54464,
77      +    0.67577,   1.74796,   1.94930 /
78         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
79      +    0.01617,   0.00612,  70.85808,   2.29108,   1.89131,
80      +    1.04175,   2.09460,   2.29578,
81      +    0.01659,   0.00629,  83.87958,   2.66004,   2.26049,
82      +    1.43112,   2.46375,   2.66479,
83      +    0.01700,   0.00645,  97.44549,   3.04980,   2.65045,
84      +    1.84095,   2.85367,   3.05457,
85      +    0.01739,   0.00661, 111.50072,   3.45902,   3.05988,
86      +    2.27012,   3.26308,   3.46383,
87      +    0.01776,   0.00677, 125.93797,   3.88536,   3.48643,
88      +    2.71604,   3.68959,   3.89023,
89      +    0.01813,   0.00691, 140.54074,   4.32375,   3.92499,
90      +    3.17347,   4.12812,   4.32864,
91      +    0.01849,   0.00706, 155.51309,   4.77817,   4.37961,
92      +    3.64656,   4.58271,   4.78312 /
93         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
94      +    0.01883,   0.00721, 170.74072,   5.24610,   4.84771,
95      +    4.13266,   5.05078,   5.25107,
96      +    0.01917,   0.00735, 185.96050,   5.72129,   5.32308,
97      +    4.62538,   5.52612,   5.72630,
98      +    0.01949,   0.00749, 201.53256,   6.21173,   5.81370,
99      +    5.13296,   6.01671,   6.21678,
100      +    0.01981,   0.00764, 216.94591,   6.70518,   6.30732,
101      +    5.64278,   6.51029,   6.71027,
102      +    0.02012,   0.00777, 232.64290,   7.21178,   6.81408,
103      +    6.16538,   7.01702,   7.21691 /
104         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
105      +    0.01703,   0.00655,   4.03320,   0.45621,   0.05864,
106      +    0.00000,   0.25929,   0.46003,
107      +    0.01785,   0.00685,   9.09126,   0.59826,   0.20126,
108      +    0.00000,   0.40170,   0.60215,
109      +    0.01859,   0.00715,  15.29068,   0.76919,   0.37273,
110      +    0.00000,   0.57297,   0.77315,
111      +    0.01929,   0.00742,  22.27757,   0.96407,   0.56809,
112      +    0.00000,   0.76815,   0.96809,
113      +    0.01994,   0.00770,  30.01537,   1.18069,   0.78516,
114      +    0.04761,   0.98505,   1.18476,
115      +    0.02057,   0.00796,  38.35127,   1.41665,   1.02158,
116      +    0.26639,   1.22130,   1.42079,
117      +    0.02116,   0.00821,  47.18178,   1.67063,   1.27597,
118      +    0.54128,   1.47553,   1.67483 /
119         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
120      +    0.02174,   0.00845,  56.41171,   1.94061,   1.54634,
121      +    0.82802,   1.74576,   1.94485,
122      +    0.02229,   0.00868,  65.96436,   2.22474,   1.83085,
123      +    1.12931,   2.03013,   2.22904,
124      +    0.02282,   0.00891,  75.78619,   2.52162,   2.12809,
125      +    1.44280,   2.32722,   2.52596,
126      +    0.02333,   0.00914,  85.84114,   2.83023,   2.43705,
127      +    1.76766,   2.63605,   2.83461,
128      +    0.02382,   0.00935,  96.05449,   3.14877,   2.75594,
129      +    2.10195,   2.95481,   3.15321,
130      +    0.02430,   0.00957, 106.27458,   3.47349,   3.08099,
131      +    2.44181,   3.27974,   3.47799,
132      +    0.02477,   0.00978, 116.65524,   3.80741,   3.41522,
133      +    2.79038,   3.61385,   3.81194 /
134         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
135      +    0.02522,   0.00998, 127.11835,   4.14866,   3.75679,
136      +    3.14577,   3.95529,   4.15324,
137      +    0.02566,   0.01018, 137.48166,   4.49272,   4.10115,
138      +    3.50332,   4.29955,   4.49735,
139      +    0.02608,   0.01038, 148.00665,   4.84548,   4.45421,
140      +    3.86915,   4.65249,   4.85016,
141      +    0.02649,   0.01057, 158.33673,   5.19808,   4.80709,
142      +    4.23413,   5.00525,   5.20279,
143      +    0.02690,   0.01076, 168.78696,   5.55796,   5.16725,
144      +    4.60601,   5.36531,   5.56271 /
145         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
146      +    0.02032,   0.00786,   3.95792,   0.45065,   0.05589,
147      +    0.00000,   0.25476,   0.45434,
148      +    0.02127,   0.00824,   8.59567,   0.58140,   0.18738,
149      +    0.00000,   0.38592,   0.58517,
150      +    0.02215,   0.00861,  14.14575,   0.73620,   0.34286,
151      +    0.00000,   0.54112,   0.74006,
152      +    0.02297,   0.00896,  20.28943,   0.91037,   0.51766,
153      +    0.00000,   0.71566,   0.91431,
154      +    0.02374,   0.00929,  26.99515,   1.10181,   0.70969,
155      +    0.04210,   0.90743,   1.10583,
156      +    0.02447,   0.00960,  34.13046,   1.30835,   0.91679,
157      +    0.23435,   1.11429,   1.31244,
158      +    0.02518,   0.00992,  41.60805,   1.52875,   1.13771,
159      +    0.47401,   1.33499,   1.53290 /
160         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
161      +    0.02584,   0.01021,  49.34917,   1.76126,   1.37071,
162      +    0.72190,   1.56778,   1.76547,
163      +    0.02649,   0.01049,  57.29214,   2.00425,   1.61419,
164      +    0.98047,   1.81105,   2.00852,
165      +    0.02710,   0.01078,  65.39511,   2.25655,   1.86695,
166      +    1.24772,   2.06360,   2.26088,
167      +    0.02770,   0.01105,  73.63124,   2.51728,   2.12814,
168      +    1.52295,   2.32460,   2.52167,
169      +    0.02828,   0.01132,  81.94168,   2.78495,   2.39625,
170      +    1.80457,   2.59252,   2.78940,
171      +    0.02884,   0.01158,  90.20387,   3.05645,   2.66816,
172      +    2.08939,   2.86425,   3.06095,
173      +    0.02938,   0.01183,  98.54913,   3.33434,   2.94644,
174      +    2.38008,   3.14236,   3.33888 /
175         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
176      +    0.02990,   0.01207, 106.91562,   3.61706,   3.22957,
177      +    2.67509,   3.42531,   3.62166,
178      +    0.03042,   0.01231, 115.15706,   3.90090,   3.51379,
179      +    2.97059,   3.70937,   3.90555,
180      +    0.03091,   0.01255, 123.49012,   4.19080,   3.80406,
181      +    3.27173,   3.99947,   4.19549,
182      +    0.03139,   0.01278, 131.62665,   4.47943,   4.09306,
183      +    3.57098,   4.28832,   4.48418,
184      +    0.03186,   0.01301, 139.82590,   4.77302,   4.38699,
185      +    3.87479,   4.58210,   4.77781 /
186         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
187      +    0.02302,   0.00895,   3.90519,   0.44646,   0.05393,
188      +    0.00000,   0.25149,   0.45017,
189      +    0.02409,   0.00941,   8.25971,   0.56944,   0.17778,
190      +    0.00000,   0.37494,   0.57324,
191      +    0.02508,   0.00982,  13.38381,   0.71341,   0.32254,
192      +    0.00000,   0.51934,   0.71731,
193      +    0.02600,   0.01023,  18.98395,   0.87391,   0.48377,
194      +    0.00000,   0.68024,   0.87789,
195      +    0.02685,   0.01061,  25.03314,   1.04893,   0.65948,
196      +    0.03852,   0.85564,   1.05300,
197      +    0.02767,   0.01097,  31.41321,   1.23647,   0.84766,
198      +    0.21366,   1.04353,   1.24062,
199      +    0.02846,   0.01133,  38.04781,   1.43539,   1.04721,
200      +    0.43078,   1.24279,   1.43962 /
201         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
202      +    0.02921,   0.01168,  44.86905,   1.64411,   1.25652,
203      +    0.65401,   1.45184,   1.64841,
204      +    0.02993,   0.01201,  51.82478,   1.86119,   1.47416,
205      +    0.88566,   1.66923,   1.86556,
206      +    0.03062,   0.01233,  58.88084,   2.08556,   1.69907,
207      +    1.12394,   1.89390,   2.09000,
208      +    0.03129,   0.01265,  66.01596,   2.31648,   1.93052,
209      +    1.36828,   2.12510,   2.32099,
210      +    0.03193,   0.01296,  73.18097,   2.55265,   2.16719,
211      +    1.61728,   2.36154,   2.55722,
212      +    0.03256,   0.01325,  80.27115,   2.79133,   2.40635,
213      +    1.86815,   2.60049,   2.79595,
214      +    0.03315,   0.01354,  87.40392,   3.03480,   2.65030,
215      +    2.12331,   2.84422,   3.03948 /
216         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
217      +    0.03374,   0.01383,  94.52690,   3.28175,   2.89769,
218      +    2.38141,   3.09141,   3.28649,
219      +    0.03431,   0.01409, 101.51570,   3.52892,   3.14531,
220      +    2.63914,   3.33883,   3.53372,
221      +    0.03486,   0.01437, 108.55965,   3.78067,   3.39749,
222      +    2.90102,   3.59082,   3.78552,
223      +    0.03539,   0.01463, 115.41191,   4.03062,   3.64786,
224      +    3.16052,   3.84099,   4.03552,
225      +    0.03592,   0.01489, 122.29738,   4.28423,   3.90188,
226      +    3.42330,   4.09483,   4.28918 /
227         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
228      +    0.02537,   0.00991,   3.86466,   0.44311,   0.05242,
229      +    0.00000,   0.24892,   0.44686,
230      +    0.02653,   0.01041,   8.00759,   0.56020,   0.17053,
231      +    0.00000,   0.36655,   0.56407,
232      +    0.02761,   0.01089,  12.81977,   0.69609,   0.30735,
233      +    0.00000,   0.50293,   0.70006,
234      +    0.02861,   0.01134,  18.02698,   0.84651,   0.45862,
235      +    0.00000,   0.65380,   0.85058,
236      +    0.02955,   0.01177,  23.60628,   1.00956,   0.62247,
237      +    0.03593,   0.81728,   1.01372,
238      +    0.03044,   0.01218,  29.45024,   1.18336,   0.79701,
239      +    0.19869,   0.99149,   1.18760,
240      +    0.03129,   0.01258,  35.49059,   1.36685,   0.98123,
241      +    0.39962,   1.17536,   1.37119 /
242         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
243      +    0.03212,   0.01296,  41.66748,   1.55859,   1.17364,
244      +    0.60524,   1.36746,   1.56301,
245      +    0.03290,   0.01334,  47.93552,   1.75725,   1.37294,
246      +    0.81775,   1.56648,   1.76174,
247      +    0.03365,   0.01369,  54.26602,   1.96188,   1.57819,
248      +    1.03554,   1.77143,   1.96644,
249      +    0.03437,   0.01405,  60.64156,   2.17180,   1.78871,
250      +    1.25811,   1.98168,   2.17645,
251      +    0.03507,   0.01439,  67.01950,   2.38586,   2.00335,
252      +    1.48421,   2.19605,   2.39058,
253      +    0.03575,   0.01472,  73.30774,   2.60160,   2.21962,
254      +    1.71136,   2.41208,   2.60638,
255      +    0.03641,   0.01503,  79.61375,   2.82111,   2.43965,
256      +    1.94175,   2.63186,   2.82595 /
257         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
258      +    0.03704,   0.01535,  85.89183,   3.04319,   2.66225,
259      +    2.17421,   2.85423,   3.04810,
260      +    0.03767,   0.01565,  92.03229,   3.26495,   2.88451,
261      +    2.40575,   3.07625,   3.26991,
262      +    0.03827,   0.01595,  98.20593,   3.49033,   3.11038,
263      +    2.64051,   3.30189,   3.49536,
264      +    0.03885,   0.01624, 104.19360,   3.71363,   3.33415,
265      +    2.87262,   3.52545,   3.71871,
266      +    0.03942,   0.01653, 110.19688,   3.93976,   3.56073,
267      +    3.10719,   3.75182,   3.94490 /
268         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
269      +    0.03425,   0.01362,   3.74033,   0.43143,   0.04762,
270      +    0.00000,   0.24055,   0.43580,
271      +    0.03578,   0.01434,   7.26782,   0.53101,   0.14856,
272      +    0.00000,   0.34083,   0.53554,
273      +    0.03719,   0.01501,  11.20423,   0.64354,   0.26233,
274      +    0.00000,   0.45401,   0.64822,
275      +    0.03850,   0.01566,  15.33313,   0.76547,   0.38541,
276      +    0.00000,   0.57654,   0.77029,
277      +    0.03972,   0.01625,  19.64542,   0.89523,   0.51625,
278      +    0.02874,   0.70687,   0.90018,
279      +    0.04089,   0.01684,  24.06464,   1.03135,   0.65338,
280      +    0.15761,   0.84351,   1.03641,
281      +    0.04201,   0.01740,  28.54543,   1.17303,   0.79602,
282      +    0.31460,   0.98569,   1.17822 /
283         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
284      +    0.04308,   0.01794,  33.04964,   1.31920,   0.94310,
285      +    0.47294,   1.13234,   1.32449,
286      +    0.04410,   0.01846,  37.54993,   1.46889,   1.09365,
287      +    0.63456,   1.28249,   1.47429,
288      +    0.04507,   0.01896,  42.03134,   1.62143,   1.24702,
289      +    0.79829,   1.43545,   1.62692,
290      +    0.04602,   0.01945,  46.48680,   1.77637,   1.40275,
291      +    0.96383,   1.59081,   1.78196,
292      +    0.04694,   0.01992,  50.89040,   1.93290,   1.56005,
293      +    1.13036,   1.74774,   1.93859,
294      +    0.04781,   0.02037,  55.18082,   2.08930,   1.71718,
295      +    1.29613,   1.90453,   2.09507,
296      +    0.04866,   0.02083,  59.43996,   2.24715,   1.87574,
297      +    1.46283,   2.06274,   2.25300 /
298         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
299      +    0.04948,   0.02126,  63.63884,   2.40563,   2.03491,
300      +    1.62969,   2.22159,   2.41156,
301      +    0.05028,   0.02167,  67.70392,   2.56271,   2.19264,
302      +    1.79460,   2.37901,   2.56872,
303      +    0.05106,   0.02209,  71.75874,   2.72129,   2.35186,
304      +    1.96064,   2.53792,   2.72738,
305      +    0.05180,   0.02249,  75.65318,   2.87732,   2.50853,
306      +    2.12364,   2.69428,   2.88349,
307      +    0.05255,   0.02288,  79.53020,   3.03439,   2.66619,
308      +    2.28734,   2.85166,   3.04061 /
309         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
310      +    0.04617,   0.01882,   3.61733,   0.41736,   0.04261,
311      +    0.00000,   0.23127,   0.42307,
312      +    0.04818,   0.01984,   6.58533,   0.50052,   0.12751,
313      +    0.00000,   0.31536,   0.50646,
314      +    0.05001,   0.02080,   9.76781,   0.59212,   0.22069,
315      +    0.00000,   0.40779,   0.59826,
316      +    0.05172,   0.02168,  13.00129,   0.68937,   0.31940,
317      +    0.00000,   0.50581,   0.69568,
318      +    0.05332,   0.02253,  16.29041,   0.79105,   0.42243,
319      +    0.02273,   0.60820,   0.79754,
320      +    0.05484,   0.02334,  19.58540,   0.89605,   0.52871,
321      +    0.12364,   0.71387,   0.90269,
322      +    0.05629,   0.02413,  22.86000,   1.00381,   0.63770,
323      +    0.24494,   0.82228,   1.01060 /
324         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
325      +    0.05767,   0.02488,  26.09285,   1.11359,   0.74865,
326      +    0.36551,   0.93267,   1.12052,
327      +    0.05900,   0.02560,  29.27072,   1.22471,   0.86088,
328      +    0.48701,   1.04437,   1.23178,
329      +    0.06027,   0.02630,  32.38834,   1.33674,   0.97396,
330      +    0.60866,   1.15696,   1.34393,
331      +    0.06149,   0.02698,  35.44592,   1.44940,   1.08764,
332      +    0.73033,   1.27015,   1.45671,
333      +    0.06266,   0.02763,  38.42929,   1.56215,   1.20137,
334      +    0.85150,   1.38342,   1.56958,
335      +    0.06381,   0.02826,  41.29901,   1.67382,   1.31397,
336      +    0.97098,   1.49557,   1.68135,
337      +    0.06489,   0.02887,  44.11739,   1.78559,   1.42665,
338      +    1.09008,   1.60781,   1.79323 /
339         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
340      +    0.06596,   0.02947,  46.86678,   1.89693,   1.53887,
341      +    1.20831,   1.71962,   1.90468,
342      +    0.06698,   0.03005,  49.49901,   2.00645,   1.64924,
343      +    1.32423,   1.82957,   2.01429,
344      +    0.06798,   0.03061,  52.10284,   2.11626,   1.75987,
345      +    1.44009,   1.93981,   2.12420,
346      +    0.06894,   0.03115,  54.57664,   2.22354,   1.86794,
347      +    1.55300,   2.04751,   2.23156,
348      +    0.06989,   0.03169,  57.02118,   2.33086,   1.97604,
349      +    1.66567,   2.15523,   2.33897 /
350         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
351      +    0.05494,   0.02282,   3.54508,   0.40767,   0.03953,
352      +    0.00000,   0.22523,   0.41451,
353      +    0.05727,   0.02406,   6.20753,   0.48175,   0.11561,
354      +    0.00000,   0.30037,   0.48885,
355      +    0.05941,   0.02521,   8.99580,   0.56216,   0.19784,
356      +    0.00000,   0.38176,   0.56948,
357      +    0.06140,   0.02631,  11.77479,   0.64655,   0.28392,
358      +    0.00000,   0.46704,   0.65409,
359      +    0.06327,   0.02734,  14.55657,   0.73390,   0.37284,
360      +    0.01969,   0.55521,   0.74163,
361      +    0.06504,   0.02833,  17.30482,   0.82328,   0.46369,
362      +    0.10656,   0.64538,   0.83119,
363      +    0.06672,   0.02928,  20.00250,   0.91426,   0.55608,
364      +    0.21017,   0.73712,   0.92235 /
365         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
366      +    0.06833,   0.03019,  22.63635,   1.00626,   0.64942,
367      +    0.31224,   0.82982,   1.01451,
368      +    0.06987,   0.03106,  25.19928,   1.09875,   0.74319,
369      +    0.41433,   0.92298,   1.10714,
370      +    0.07135,   0.03191,  27.69032,   1.19140,   0.83705,
371      +    0.51582,   1.01627,   1.19994,
372      +    0.07276,   0.03272,  30.11273,   1.28401,   0.93083,
373      +    0.61666,   1.10950,   1.29268,
374      +    0.07412,   0.03351,  32.45729,   1.37619,   1.02413,
375      +    0.71647,   1.20226,   1.38498,
376      +    0.07543,   0.03426,  34.69431,   1.46697,   1.11599,
377      +    0.81433,   1.29362,   1.47589,
378      +    0.07670,   0.03500,  36.87650,   1.55740,   1.20745,
379      +    0.91137,   1.38458,   1.56643 /
380         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
381      +    0.07792,   0.03571,  38.99127,   1.64706,   1.29810,
382      +    1.00721,   1.47476,   1.65619,
383      +    0.07910,   0.03640,  41.00131,   1.73483,   1.38684,
384      +    1.10071,   1.56304,   1.74407,
385      +    0.08025,   0.03707,  42.97942,   1.82247,   1.47543,
386      +    1.19376,   1.65118,   1.83182,
387      +    0.08136,   0.03772,  44.84538,   1.90772,   1.56158,
388      +    1.28403,   1.73690,   1.91716,
389      +    0.08244,   0.03836,  46.68073,   1.99268,   1.64743,
390      +    1.37374,   1.82232,   2.00221 /
391         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
392      +    0.06212,   0.02617,   3.49319,   0.40002,   0.03729,
393      +    0.00000,   0.22061,   0.40784,
394      +    0.06472,   0.02760,   5.94688,   0.46792,   0.10740,
395      +    0.00000,   0.28969,   0.47602,
396      +    0.06711,   0.02895,   8.47302,   0.54087,   0.18238,
397      +    0.00000,   0.36373,   0.54923,
398      +    0.06932,   0.03021,  10.95557,   0.61684,   0.26020,
399      +    0.00000,   0.44068,   0.62542,
400      +    0.07139,   0.03139,  13.41141,   0.69490,   0.34000,
401      +    0.01771,   0.51967,   0.70368,
402      +    0.07336,   0.03253,  15.81283,   0.77426,   0.42099,
403      +    0.09553,   0.59991,   0.78324,
404      +    0.07524,   0.03362,  18.14856,   0.85457,   0.50286,
405      +    0.18781,   0.68103,   0.86373 /
406         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
407      +    0.07702,   0.03466,  20.41023,   0.93535,   0.58511,
408      +    0.27815,   0.76260,   0.94466,
409      +    0.07873,   0.03566,  22.59435,   1.01614,   0.66730,
410      +    0.36799,   0.84413,   1.02562,
411      +    0.08037,   0.03663,  24.70258,   1.09668,   0.74919,
412      +    0.45684,   0.92538,   1.10632,
413      +    0.08193,   0.03755,  26.73956,   1.17686,   0.83064,
414      +    0.54470,   1.00623,   1.18662,
415      +    0.08343,   0.03845,  28.69916,   1.25632,   0.91134,
416      +    0.63128,   1.08634,   1.26622,
417      +    0.08488,   0.03931,  30.55730,   1.33426,   0.99047,
418      +    0.71580,   1.16491,   1.34430,
419      +    0.08628,   0.04014,  32.36076,   1.41162,   1.06897,
420      +    0.79929,   1.24287,   1.42177 /
421         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
422      +    0.08764,   0.04095,  34.09976,   1.48805,   1.14650,
423      +    0.88144,   1.31988,   1.49832,
424      +    0.08895,   0.04173,  35.74342,   1.56260,   1.22213,
425      +    0.96130,   1.39500,   1.57298,
426      +    0.09021,   0.04248,  37.35477,   1.63683,   1.29738,
427      +    1.04051,   1.46977,   1.64731,
428      +    0.09143,   0.04323,  38.86623,   1.70878,   1.37033,
429      +    1.11709,   1.54224,   1.71936,
430      +    0.09263,   0.04394,  40.34767,   1.78030,   1.44282,
431      +    1.19299,   1.61427,   1.79097 /
432         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
433      +    0.06823,   0.02930,   3.45185,   0.39349,   0.03552,
434      +    0.00000,   0.21660,   0.40196,
435      +    0.07105,   0.03091,   5.74432,   0.45677,   0.10126,
436      +    0.00000,   0.28119,   0.46554,
437      +    0.07365,   0.03240,   8.07149,   0.52425,   0.17098,
438      +    0.00000,   0.34985,   0.53327,
439      +    0.07605,   0.03380,  10.33184,   0.59402,   0.24282,
440      +    0.00000,   0.42071,   0.60328,
441      +    0.07830,   0.03512,  12.54625,   0.66531,   0.31601,
442      +    0.01627,   0.49302,   0.67480,
443      +    0.08044,   0.03639,  14.69372,   0.73738,   0.38989,
444      +    0.08749,   0.56603,   0.74706,
445      +    0.08247,   0.03759,  16.76697,   0.80994,   0.46416,
446      +    0.17154,   0.63951,   0.81982 /
447         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
448      +    0.08440,   0.03875,  18.76009,   0.88259,   0.53842,
449      +    0.25335,   0.71301,   0.89264,
450      +    0.08625,   0.03986,  20.67302,   0.95494,   0.61231,
451      +    0.33435,   0.78618,   0.96516,
452      +    0.08801,   0.04092,  22.50847,   1.02681,   0.68564,
453      +    0.41412,   0.85881,   1.03717,
454      +    0.08971,   0.04194,  24.27223,   1.09805,   0.75830,
455      +    0.49268,   0.93080,   1.10857,
456      +    0.09134,   0.04292,  25.96126,   1.16844,   0.83001,
457      +    0.56981,   1.00189,   1.17909,
458      +    0.09290,   0.04387,  27.55463,   1.23725,   0.90012,
459      +    0.64485,   1.07137,   1.24804,
460      +    0.09441,   0.04479,  29.09367,   1.30533,   0.96944,
461      +    0.71872,   1.14011,   1.31625 /
462         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
463      +    0.09586,   0.04567,  30.56998,   1.37240,   1.03771,
464      +    0.79119,   1.20781,   1.38344,
465      +    0.09727,   0.04652,  31.96104,   1.43763,   1.10408,
466      +    0.86142,   1.27364,   1.44878,
467      +    0.09864,   0.04735,  33.32074,   1.50241,   1.16997,
468      +    0.93090,   1.33900,   1.51366,
469      +    0.09995,   0.04816,  34.58902,   1.56502,   1.23365,
470      +    0.99788,   1.40217,   1.57638,
471      +    0.10123,   0.04894,  35.82820,   1.62712,   1.29679,
472      +    1.06411,   1.46482,   1.63858 /
473         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
474      +    0.09112,   0.04183,   3.31902,   0.36936,   0.02965,
475      +    0.00000,   0.20230,   0.38041,
476      +    0.09476,   0.04409,   5.13839,   0.41917,   0.08259,
477      +    0.00000,   0.25378,   0.43056,
478      +    0.09811,   0.04618,   6.90384,   0.47100,   0.13726,
479      +    0.00000,   0.30711,   0.48270,
480      +    0.10121,   0.04812,   8.55537,   0.52349,   0.19237,
481      +    0.00000,   0.36098,   0.53545,
482      +    0.10409,   0.04994,  10.12249,   0.57611,   0.24740,
483      +    0.01230,   0.41487,   0.58832,
484      +    0.10683,   0.05167,  11.60013,   0.62838,   0.30194,
485      +    0.06555,   0.46834,   0.64082,
486      +    0.10942,   0.05332,  12.99109,   0.68017,   0.35587,
487      +    0.12743,   0.52125,   0.69282 /
488         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
489      +    0.11189,   0.05487,  14.29765,   0.73125,   0.40897,
490      +    0.18663,   0.57340,   0.74408,
491      +    0.11423,   0.05636,  15.52510,   0.78143,   0.46107,
492      +    0.24436,   0.62460,   0.79444,
493      +    0.11647,   0.05778,  16.67973,   0.83064,   0.51210,
494      +    0.30042,   0.67475,   0.84382,
495      +    0.11860,   0.05914,  17.76906,   0.87885,   0.56205,
496      +    0.35492,   0.72387,   0.89219,
497      +    0.12066,   0.06045,  18.79407,   0.92593,   0.61079,
498      +    0.40779,   0.77183,   0.93941,
499      +    0.12262,   0.06169,  19.74326,   0.97144,   0.65789,
500      +    0.45862,   0.81816,   0.98506,
501      +    0.12451,   0.06289,  20.64661,   1.01603,   0.70399,
502      +    0.50814,   0.86354,   1.02977 /
503         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
504      +    0.12632,   0.06404,  21.50026,   1.05952,   0.74896,
505      +    0.55624,   0.90781,   1.07339,
506      +    0.12807,   0.06515,  22.29103,   1.10140,   0.79224,
507      +    0.60238,   0.95041,   1.11537,
508      +    0.12977,   0.06623,  23.05534,   1.14265,   0.83485,
509      +    0.64763,   0.99237,   1.15673,
510      +    0.13140,   0.06727,  23.75552,   1.18214,   0.87565,
511      +    0.69085,   1.03254,   1.19632,
512      +    0.13299,   0.06826,  24.43269,   1.22101,   0.91579,
513      +    0.73325,   1.07208,   1.23528 /
514         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
515      +    0.12137,   0.06045,   3.17302,   0.33802,   0.02317,
516      +    0.00001,   0.18413,   0.35222,
517      +    0.12605,   0.06356,   4.55432,   0.37577,   0.06479,
518      +    0.00001,   0.22393,   0.39034,
519      +    0.13035,   0.06641,   5.82961,   0.41410,   0.10661,
520      +    0.00002,   0.26410,   0.42900,
521      +    0.13430,   0.06903,   6.97356,   0.45203,   0.14772,
522      +    0.00002,   0.30370,   0.46721,
523      +    0.13797,   0.07146,   8.01993,   0.48928,   0.18792,
524      +    0.00905,   0.34250,   0.50471,
525      +    0.14143,   0.07376,   8.97472,   0.52556,   0.22693,
526      +    0.04767,   0.38019,   0.54121,
527      +    0.14470,   0.07591,   9.84731,   0.56084,   0.26479,
528      +    0.09180,   0.41683,   0.57669 /
529         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
530      +    0.14778,   0.07794,  10.64545,   0.59507,   0.30145,
531      +    0.13323,   0.45233,   0.61111,
532      +    0.15072,   0.07985,  11.37539,   0.62817,   0.33685,
533      +    0.17295,   0.48662,   0.64437,
534      +    0.15350,   0.08166,  12.04496,   0.66014,   0.37099,
535      +    0.21090,   0.51972,   0.67648,
536      +    0.15614,   0.08339,  12.66244,   0.69101,   0.40393,
537      +    0.24727,   0.55166,   0.70750,
538      +    0.15866,   0.08503,  13.23087,   0.72078,   0.43566,
539      +    0.28207,   0.58245,   0.73739,
540      +    0.16108,   0.08659,  13.74389,   0.74919,   0.46596,
541      +    0.31511,   0.61183,   0.76592,
542      +    0.16340,   0.08807,  14.22304,   0.77669,   0.49526,
543      +    0.34692,   0.64025,   0.79352 /
544         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
545      +    0.16561,   0.08950,  14.66714,   0.80320,   0.52349,
546      +    0.37744,   0.66765,   0.82014,
547      +    0.16773,   0.09086,  15.06887,   0.82840,   0.55037,
548      +    0.40639,   0.69372,   0.84543,
549      +    0.16977,   0.09218,  15.45178,   0.85301,   0.57657,
550      +    0.43451,   0.71914,   0.87013,
551      +    0.17173,   0.09342,  15.79320,   0.87628,   0.60138,
552      +    0.46108,   0.74321,   0.89347,
553      +    0.17365,   0.09464,  16.11903,   0.89901,   0.62559,
554      +    0.48692,   0.76669,   0.91627 /
555         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
556      +    0.14342,   0.07512,   3.07660,   0.31604,   0.01904,
557      +    0.00001,   0.17161,   0.33229,
558      +    0.14884,   0.07883,   4.21919,   0.34742,   0.05474,
559      +    0.00001,   0.20525,   0.36404,
560      +    0.15380,   0.08218,   5.24090,   0.37880,   0.09001,
561      +    0.00003,   0.23867,   0.39573,
562      +    0.15835,   0.08525,   6.13208,   0.40939,   0.12414,
563      +    0.00002,   0.27110,   0.42660,
564      +    0.16257,   0.08807,   6.92730,   0.43904,   0.15703,
565      +    0.00742,   0.30244,   0.45647,
566      +    0.16649,   0.09070,   7.63787,   0.46753,   0.18853,
567      +    0.03885,   0.33249,   0.48515,
568      +    0.17021,   0.09315,   8.27315,   0.49489,   0.21873,
569      +    0.07440,   0.36132,   0.51270 /
570         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
571      +    0.17370,   0.09544,   8.84254,   0.52115,   0.24763,
572      +    0.10733,   0.38894,   0.53909,
573      +    0.17700,   0.09759,   9.35405,   0.54625,   0.27525,
574      +    0.13857,   0.41533,   0.56435,
575      +    0.18011,   0.09962,   9.81489,   0.57027,   0.30164,
576      +    0.16814,   0.44058,   0.58849,
577      +    0.18307,   0.10155,  10.23244,   0.59328,   0.32688,
578      +    0.19623,   0.46473,   0.61160,
579      +    0.18587,   0.10337,  10.61008,   0.61522,   0.35097,
580      +    0.22285,   0.48778,   0.63364,
581      +    0.18855,   0.10507,  10.94457,   0.63597,   0.37375,
582      +    0.24791,   0.50956,   0.65448,
583      +    0.19111,   0.10669,  11.25268,   0.65589,   0.39562,
584      +    0.27184,   0.53048,   0.67450 /
585         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
586      +    0.19356,   0.10825,  11.53408,   0.67495,   0.41655,
587      +    0.29464,   0.55050,   0.69364,
588      +    0.19588,   0.10973,  11.78216,   0.69291,   0.43630,
589      +    0.31608,   0.56936,   0.71166,
590      +    0.19813,   0.11115,  12.01576,   0.71033,   0.45542,
591      +    0.33678,   0.58765,   0.72913,
592      +    0.20026,   0.11249,  12.21901,   0.72665,   0.47340,
593      +    0.35620,   0.60480,   0.74550,
594      +    0.20234,   0.11378,  12.41085,   0.74249,   0.49084,
595      +    0.37498,   0.62146,   0.76139 /
596         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
597      +    0.16147,   0.08764,   3.00073,   0.29862,   0.01597,
598      +    0.00001,   0.16174,   0.31640,
599      +    0.16748,   0.09180,   3.98180,   0.32581,   0.04780,
600      +    0.00001,   0.19136,   0.34394,
601      +    0.17297,   0.09553,   4.83776,   0.35268,   0.07884,
602      +    0.00003,   0.22040,   0.37111,
603      +    0.17796,   0.09891,   5.56809,   0.37857,   0.10849,
604      +    0.00001,   0.24824,   0.39724,
605      +    0.18259,   0.10199,   6.20721,   0.40340,   0.13677,
606      +    0.00638,   0.27484,   0.42229,
607      +    0.18688,   0.10484,   6.76805,   0.42703,   0.16359,
608      +    0.03327,   0.30011,   0.44604,
609      +    0.19092,   0.10750,   7.26082,   0.44949,   0.18904,
610      +    0.06342,   0.32411,   0.46866 /
611         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
612      +    0.19470,   0.10994,   7.69514,   0.47083,   0.21319,
613      +    0.09110,   0.34688,   0.49012,
614      +    0.19826,   0.11222,   8.07902,   0.49107,   0.23605,
615      +    0.11714,   0.36846,   0.51047,
616      +    0.20160,   0.11438,   8.41936,   0.51028,   0.25775,
617      +    0.14160,   0.38895,   0.52977,
618      +    0.20476,   0.11641,   8.72300,   0.52854,   0.27836,
619      +    0.16467,   0.40841,   0.54809,
620      +    0.20777,   0.11832,   8.99337,   0.54581,   0.29788,
621      +    0.18638,   0.42682,   0.56545,
622      +    0.21062,   0.12009,   9.22818,   0.56203,   0.31623,
623      +    0.20669,   0.44413,   0.58173,
624      +    0.21334,   0.12178,   9.44151,   0.57749,   0.33373,
625      +    0.22596,   0.46063,   0.59726 /
626         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
627      +    0.21593,   0.12339,   9.63339,   0.59219,   0.35038,
628      +    0.24422,   0.47631,   0.61202,
629      +    0.21838,   0.12491,   9.79865,   0.60594,   0.36597,
630      +    0.26129,   0.49098,   0.62579,
631      +    0.22073,   0.12637,   9.95258,   0.61920,   0.38102,
632      +    0.27769,   0.50513,   0.63907,
633      +    0.22297,   0.12772,  10.08275,   0.63152,   0.39505,
634      +    0.29299,   0.51832,   0.65142,
635      +    0.22515,   0.12905,  10.20421,   0.64342,   0.40862,
636      +    0.30771,   0.53106,   0.66335 /
637         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
638      +    0.17684,   0.09866,   2.93643,   0.28433,   0.01360,
639      +    0.00003,   0.15388,   0.30324,
640      +    0.18338,   0.10317,   3.79703,   0.30849,   0.04267,
641      +    0.00003,   0.18056,   0.32772,
642      +    0.18931,   0.10721,   4.53271,   0.33213,   0.07071,
643      +    0.00004,   0.20647,   0.35162,
644      +    0.19472,   0.11083,   5.14857,   0.35467,   0.09723,
645      +    0.00004,   0.23105,   0.37435,
646      +    0.19968,   0.11411,   5.67919,   0.37609,   0.12227,
647      +    0.00566,   0.25432,   0.39593,
648      +    0.20428,   0.11711,   6.13669,   0.39627,   0.14580,
649      +    0.02932,   0.27620,   0.41627,
650      +    0.20858,   0.11986,   6.53273,   0.41531,   0.16797,
651      +    0.05568,   0.29684,   0.43543 /
652         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
653      +    0.21258,   0.12242,   6.87682,   0.43327,   0.18884,
654      +    0.07969,   0.31628,   0.45349,
655      +    0.21633,   0.12480,   7.17569,   0.45017,   0.20849,
656      +    0.10213,   0.33456,   0.47046,
657      +    0.21987,   0.12700,   7.43658,   0.46609,   0.22698,
658      +    0.12307,   0.35179,   0.48644,
659      +    0.22320,   0.12907,   7.66622,   0.48111,   0.24445,
660      +    0.14270,   0.36805,   0.50150,
661      +    0.22634,   0.13102,   7.86790,   0.49523,   0.26088,
662      +    0.16107,   0.38333,   0.51566,
663      +    0.22930,   0.13282,   8.03932,   0.50836,   0.27620,
664      +    0.17811,   0.39755,   0.52882,
665      +    0.23212,   0.13453,   8.19258,   0.52083,   0.29075,
666      +    0.19424,   0.41106,   0.54131 /
667         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
668      +    0.23480,   0.13614,   8.32788,   0.53263,   0.30456,
669      +    0.20947,   0.42387,   0.55313,
670      +    0.23735,   0.13765,   8.44142,   0.54355,   0.31739,
671      +    0.22362,   0.43576,   0.56408,
672      +    0.23980,   0.13910,   8.54592,   0.55404,   0.32974,
673      +    0.23717,   0.44719,   0.57460,
674      +    0.24210,   0.14045,   8.63130,   0.56376,   0.34122,
675      +    0.24976,   0.45779,   0.58431,
676      +    0.24432,   0.14175,   8.71006,   0.57311,   0.35225,
677      +    0.26184,   0.46797,   0.59366 /
678         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
679      +    0.23577,   0.14170,   2.68956,   0.23378,   0.00583,
680      +    0.00000,   0.12578,   0.25617,
681      +    0.24410,   0.14711,   3.20585,   0.24968,   0.02715,
682      +    0.00002,   0.14440,   0.27219,
683      +    0.25155,   0.15174,   3.61381,   0.26460,   0.04690,
684      +    0.00001,   0.16173,   0.28719,
685      +    0.25815,   0.15578,   3.92986,   0.27828,   0.06486,
686      +    0.00002,   0.17753,   0.30088,
687      +    0.26410,   0.15930,   4.18309,   0.29080,   0.08128,
688      +    0.00368,   0.19201,   0.31338,
689      +    0.26946,   0.16243,   4.38658,   0.30217,   0.09622,
690      +    0.01877,   0.20512,   0.32470,
691      +    0.27438,   0.16524,   4.55016,   0.31252,   0.10988,
692      +    0.03524,   0.21710,   0.33499 /
693         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
694      +    0.27892,   0.16776,   4.68128,   0.32196,   0.12242,
695      +    0.04985,   0.22806,   0.34438,
696      +    0.28310,   0.17001,   4.78554,   0.33056,   0.13390,
697      +    0.06317,   0.23809,   0.35291,
698      +    0.28695,   0.17206,   4.86872,   0.33841,   0.14446,
699      +    0.07531,   0.24727,   0.36068,
700      +    0.29055,   0.17395,   4.93511,   0.34560,   0.15419,
701      +    0.08646,   0.25570,   0.36778,
702      +    0.29385,   0.17569,   4.98624,   0.35217,   0.16317,
703      +    0.09671,   0.26343,   0.37425,
704      +    0.29693,   0.17725,   5.02253,   0.35809,   0.17136,
705      +    0.10605,   0.27046,   0.38007,
706      +    0.29984,   0.17869,   5.05074,   0.36356,   0.17899,
707      +    0.11473,   0.27698,   0.38544 /
708         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
709      +    0.30258,   0.18003,   5.07113,   0.36855,   0.18605,
710      +    0.12275,   0.28297,   0.39035,
711      +    0.30513,   0.18122,   5.08129,   0.37303,   0.19251,
712      +    0.13009,   0.28842,   0.39474,
713      +    0.30756,   0.18236,   5.08812,   0.37725,   0.19863,
714      +    0.13703,   0.29357,   0.39888,
715      +    0.30978,   0.18339,   5.08587,   0.38101,   0.20417,
716      +    0.14335,   0.29819,   0.40253,
717      +    0.31191,   0.18438,   5.08184,   0.38454,   0.20943,
718      +    0.14933,   0.30256,   0.40597 /
719         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
720      +    0.31675,   0.19817,   2.33149,   0.17843,   0.00001,
721      +    0.00011,   0.09467,   0.20244,
722      +    0.32671,   0.20322,   2.55776,   0.18772,   0.01323,
723      +    0.00010,   0.10662,   0.21145,
724      +    0.33511,   0.20726,   2.71158,   0.19587,   0.02620,
725      +    0.00012,   0.11707,   0.21926,
726      +    0.34226,   0.21044,   2.81105,   0.20280,   0.03748,
727      +    0.00012,   0.12606,   0.22586,
728      +    0.34845,   0.21304,   2.87604,   0.20872,   0.04732,
729      +    0.00200,   0.13387,   0.23150,
730      +    0.35382,   0.21516,   2.91558,   0.21374,   0.05590,
731      +    0.01061,   0.14058,   0.23616,
732      +    0.35852,   0.21686,   2.93654,   0.21800,   0.06344,
733      +    0.01974,   0.14639,   0.24010 /
734         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
735      +    0.36269,   0.21825,   2.94294,   0.22159,   0.07012,
736      +    0.02757,   0.15146,   0.24341,
737      +    0.36635,   0.21943,   2.93888,   0.22464,   0.07602,
738      +    0.03452,   0.15584,   0.24619,
739      +    0.36961,   0.22040,   2.92715,   0.22722,   0.08127,
740      +    0.04070,   0.15968,   0.24850,
741      +    0.37255,   0.22118,   2.90980,   0.22942,   0.08599,
742      +    0.04623,   0.16306,   0.25040,
743      +    0.37518,   0.22181,   2.88783,   0.23130,   0.09020,
744      +    0.05118,   0.16603,   0.25197,
745      +    0.37750,   0.22228,   2.86153,   0.23278,   0.09390,
746      +    0.05557,   0.16853,   0.25320,
747      +    0.37962,   0.22265,   2.83369,   0.23401,   0.09722,
748      +    0.05956,   0.17074,   0.25422 /
749         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
750      +    0.38155,   0.22293,   2.80427,   0.23499,   0.10021,
751      +    0.06316,   0.17268,   0.25502,
752      +    0.38325,   0.22311,   2.77247,   0.23573,   0.10285,
753      +    0.06634,   0.17433,   0.25552,
754      +    0.38482,   0.22325,   2.74123,   0.23636,   0.10529,
755      +    0.06931,   0.17581,   0.25593,
756      +    0.38618,   0.22329,   2.70816,   0.23676,   0.10744,
757      +    0.07194,   0.17702,   0.25610,
758      +    0.38744,   0.22331,   2.67594,   0.23709,   0.10945,
759      +    0.07440,   0.17811,   0.25621 /
760         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
761      +    0.37716,   0.23432,   2.04614,   0.14605,   0.00001,
762      +    0.00000,   0.07662,   0.16943,
763      +    0.38715,   0.23771,   2.13651,   0.15212,   0.00667,
764      +    0.00003,   0.08529,   0.17487,
765      +    0.39510,   0.24007,   2.18071,   0.15705,   0.01640,
766      +    0.00003,   0.09244,   0.17918,
767      +    0.40150,   0.24165,   2.19287,   0.16082,   0.02454,
768      +    0.00001,   0.09823,   0.18231,
769      +    0.40673,   0.24267,   2.18715,   0.16382,   0.03143,
770      +    0.00144,   0.10304,   0.18473,
771      +    0.41101,   0.24323,   2.16903,   0.16608,   0.03721,
772      +    0.00715,   0.10692,   0.18655,
773      +    0.41457,   0.24336,   2.14268,   0.16776,   0.04218,
774      +    0.01304,   0.11007,   0.18774 /
775         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
776      +    0.41749,   0.24330,   2.11091,   0.16895,   0.04642,
777      +    0.01797,   0.11270,   0.18858,
778      +    0.41987,   0.24306,   2.07567,   0.16983,   0.05009,
779      +    0.02232,   0.11485,   0.18902,
780      +    0.42188,   0.24264,   2.03849,   0.17040,   0.05329,
781      +    0.02612,   0.11664,   0.18919,
782      +    0.42355,   0.24211,   2.00049,   0.17072,   0.05606,
783      +    0.02944,   0.11812,   0.18916,
784      +    0.42485,   0.24153,   1.96204,   0.17089,   0.05842,
785      +    0.03238,   0.11928,   0.18895,
786      +    0.42586,   0.24088,   1.92301,   0.17078,   0.06046,
787      +    0.03486,   0.12015,   0.18845,
788      +    0.42670,   0.24014,   1.88496,   0.17056,   0.06228,
789      +    0.03710,   0.12086,   0.18791 /
790         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
791      +    0.42736,   0.23933,   1.84771,   0.17021,   0.06389,
792      +    0.03911,   0.12141,   0.18732,
793      +    0.42783,   0.23845,   1.81057,   0.16971,   0.06524,
794      +    0.04088,   0.12177,   0.18656,
795      +    0.42819,   0.23758,   1.77513,   0.16918,   0.06645,
796      +    0.04249,   0.12205,   0.18578,
797      +    0.42835,   0.23665,   1.73997,   0.16854,   0.06744,
798      +    0.04387,   0.12218,   0.18488,
799      +    0.42846,   0.23572,   1.70644,   0.16789,   0.06835,
800      +    0.04514,   0.12226,   0.18397 /
801         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
802      +    0.42581,   0.25814,   1.80115,   0.12381,   0.00001,
803      +    0.00007,   0.06420,   0.14518,
804      +    0.43471,   0.25940,   1.81457,   0.12765,   0.00306,
805      +    0.00005,   0.07065,   0.14825,
806      +    0.44129,   0.25975,   1.80085,   0.13045,   0.01081,
807      +    0.00009,   0.07572,   0.15018,
808      +    0.44611,   0.25935,   1.76984,   0.13232,   0.01701,
809      +    0.00009,   0.07958,   0.15141,
810      +    0.44973,   0.25854,   1.73120,   0.13353,   0.02210,
811      +    0.00111,   0.08255,   0.15202,
812      +    0.45238,   0.25736,   1.68831,   0.13417,   0.02631,
813      +    0.00512,   0.08484,   0.15211,
814      +    0.45414,   0.25602,   1.64338,   0.13441,   0.02977,
815      +    0.00923,   0.08660,   0.15189 /
816         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
817      +    0.45534,   0.25452,   1.59761,   0.13439,   0.03266,
818      +    0.01261,   0.08790,   0.15135,
819      +    0.45609,   0.25289,   1.55215,   0.13412,   0.03512,
820      +    0.01550,   0.08887,   0.15060,
821      +    0.45647,   0.25119,   1.50778,   0.13364,   0.03721,
822      +    0.01799,   0.08959,   0.14971,
823      +    0.45654,   0.24949,   1.46494,   0.13303,   0.03898,
824      +    0.02015,   0.09008,   0.14870,
825      +    0.45630,   0.24779,   1.42360,   0.13239,   0.04046,
826      +    0.02203,   0.09038,   0.14760,
827      +    0.45582,   0.24599,   1.38349,   0.13160,   0.04172,
828      +    0.02361,   0.09046,   0.14642,
829      +    0.45521,   0.24419,   1.34542,   0.13071,   0.04279,
830      +    0.02500,   0.09046,   0.14522 /
831         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
832      +    0.45448,   0.24242,   1.30910,   0.12974,   0.04370,
833      +    0.02623,   0.09038,   0.14398,
834      +    0.45357,   0.24062,   1.27398,   0.12876,   0.04442,
835      +    0.02725,   0.09018,   0.14271,
836      +    0.45262,   0.23887,   1.24091,   0.12778,   0.04504,
837      +    0.02817,   0.08994,   0.14146,
838      +    0.45148,   0.23714,   1.20892,   0.12673,   0.04558,
839      +    0.02897,   0.08960,   0.14014,
840      +    0.45033,   0.23546,   1.17876,   0.12569,   0.04604,
841      +    0.02969,   0.08923,   0.13886 /
842         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
843      +    0.46658,   0.27334,   1.58593,   0.10650,   0.00001,
844      +    0.00007,   0.05433,   0.12564,
845      +    0.47323,   0.27236,   1.55280,   0.10877,   0.00073,
846      +    0.00007,   0.05917,   0.12682,
847      +    0.47775,   0.27046,   1.50636,   0.10999,   0.00688,
848      +    0.00007,   0.06266,   0.12743,
849      +    0.48045,   0.26811,   1.45307,   0.11057,   0.01179,
850      +    0.00004,   0.06522,   0.12715,
851      +    0.48187,   0.26563,   1.39881,   0.11064,   0.01574,
852      +    0.00078,   0.06703,   0.12645,
853      +    0.48223,   0.26289,   1.34532,   0.11039,   0.01886,
854      +    0.00373,   0.06827,   0.12551,
855      +    0.48200,   0.26005,   1.29339,   0.10983,   0.02139,
856      +    0.00669,   0.06913,   0.12433 /
857         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
858      +    0.48130,   0.25717,   1.24366,   0.10898,   0.02343,
859      +    0.00905,   0.06964,   0.12315,
860      +    0.48019,   0.25422,   1.19639,   0.10799,   0.02513,
861      +    0.01110,   0.06992,   0.12183,
862      +    0.47873,   0.25139,   1.15171,   0.10699,   0.02657,
863      +    0.01284,   0.07003,   0.12032,
864      +    0.47703,   0.24866,   1.10970,   0.10596,   0.02779,
865      +    0.01429,   0.06998,   0.11875,
866      +    0.47521,   0.24592,   1.07018,   0.10482,   0.02874,
867      +    0.01545,   0.06980,   0.11729,
868      +    0.47313,   0.24320,   1.03270,   0.10368,   0.02953,
869      +    0.01654,   0.06954,   0.11574,
870      +    0.47100,   0.24058,   0.99767,   0.10251,   0.03020,
871      +    0.01747,   0.06921,   0.11423 /
872         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
873      +    0.46882,   0.23802,   0.96477,   0.10131,   0.03072,
874      +    0.01825,   0.06881,   0.11277,
875      +    0.46656,   0.23547,   0.93347,   0.10006,   0.03117,
876      +    0.01888,   0.06837,   0.11130,
877      +    0.46432,   0.23302,   0.90427,   0.09884,   0.03154,
878      +    0.01945,   0.06792,   0.10988,
879      +    0.46190,   0.23061,   0.87657,   0.09766,   0.03181,
880      +    0.01995,   0.06739,   0.10844,
881      +    0.45951,   0.22830,   0.85065,   0.09650,   0.03204,
882      +    0.02039,   0.06687,   0.10705 /
883         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
884      +    0.50652,   0.28284,   1.35102,   0.08926,   0.00001,
885      +    0.00008,   0.04486,   0.10529,
886      +    0.50988,   0.27866,   1.28468,   0.08989,   0.00001,
887      +    0.00004,   0.04820,   0.10508,
888      +    0.51092,   0.27418,   1.21704,   0.08994,   0.00417,
889      +    0.00011,   0.05049,   0.10409,
890      +    0.51031,   0.26953,   1.15112,   0.08934,   0.00790,
891      +    0.00006,   0.05187,   0.10280,
892      +    0.50858,   0.26505,   1.08961,   0.08861,   0.01075,
893      +    0.00058,   0.05272,   0.10125,
894      +    0.50614,   0.26051,   1.03265,   0.08751,   0.01299,
895      +    0.00260,   0.05321,   0.09965,
896      +    0.50314,   0.25608,   0.97995,   0.08630,   0.01481,
897      +    0.00464,   0.05342,   0.09791 /
898         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
899      +    0.49993,   0.25167,   0.93124,   0.08496,   0.01625,
900      +    0.00629,   0.05334,   0.09623,
901      +    0.49635,   0.24755,   0.88635,   0.08364,   0.01738,
902      +    0.00760,   0.05314,   0.09444,
903      +    0.49266,   0.24352,   0.84504,   0.08230,   0.01828,
904      +    0.00869,   0.05284,   0.09266,
905      +    0.48894,   0.23959,   0.80701,   0.08091,   0.01904,
906      +    0.00964,   0.05245,   0.09098,
907      +    0.48506,   0.23594,   0.77191,   0.07957,   0.01965,
908      +    0.01041,   0.05198,   0.08932,
909      +    0.48113,   0.23231,   0.73924,   0.07820,   0.02012,
910      +    0.01105,   0.05145,   0.08764,
911      +    0.47718,   0.22888,   0.70913,   0.07689,   0.02047,
912      +    0.01161,   0.05092,   0.08605 /
913         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
914      +    0.47320,   0.22564,   0.68125,   0.07563,   0.02070,
915      +    0.01208,   0.05037,   0.08453,
916      +    0.46927,   0.22240,   0.65519,   0.07441,   0.02092,
917      +    0.01247,   0.04981,   0.08295,
918      +    0.46547,   0.21930,   0.63109,   0.07324,   0.02111,
919      +    0.01282,   0.04926,   0.08145,
920      +    0.46163,   0.21629,   0.60840,   0.07203,   0.02121,
921      +    0.01310,   0.04865,   0.08004,
922      +    0.45791,   0.21341,   0.58734,   0.07088,   0.02129,
923      +    0.01334,   0.04807,   0.07871 /
924         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
925      +    0.53667,   0.28422,   1.14794,   0.07452,   0.00001,
926      +    0.00017,   0.03719,   0.08793,
927      +    0.53576,   0.27723,   1.06488,   0.07421,   0.00001,
928      +    0.00012,   0.03937,   0.08670,
929      +    0.53298,   0.27026,   0.98862,   0.07327,   0.00240,
930      +    0.00014,   0.04074,   0.08501,
931      +    0.52855,   0.26380,   0.91938,   0.07231,   0.00528,
932      +    0.00015,   0.04137,   0.08296,
933      +    0.52365,   0.25748,   0.85763,   0.07090,   0.00751,
934      +    0.00049,   0.04167,   0.08100,
935      +    0.51826,   0.25141,   0.80251,   0.06941,   0.00915,
936      +    0.00196,   0.04162,   0.07914,
937      +    0.51251,   0.24572,   0.75290,   0.06795,   0.01039,
938      +    0.00333,   0.04142,   0.07714 /
939         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
940      +    0.50655,   0.24032,   0.70830,   0.06651,   0.01141,
941      +    0.00443,   0.04109,   0.07510,
942      +    0.50067,   0.23516,   0.66795,   0.06501,   0.01220,
943      +    0.00533,   0.04064,   0.07323,
944      +    0.49480,   0.23027,   0.63143,   0.06352,   0.01281,
945      +    0.00606,   0.04018,   0.07139,
946      +    0.48896,   0.22565,   0.59837,   0.06210,   0.01330,
947      +    0.00667,   0.03969,   0.06962,
948      +    0.48330,   0.22114,   0.56832,   0.06068,   0.01367,
949      +    0.00713,   0.03907,   0.06807,
950      +    0.47751,   0.21697,   0.54066,   0.05945,   0.01391,
951      +    0.00752,   0.03851,   0.06639,
952      +    0.47198,   0.21296,   0.51545,   0.05820,   0.01414,
953      +    0.00789,   0.03792,   0.06481 /
954         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
955      +    0.46670,   0.20906,   0.49238,   0.05691,   0.01433,
956      +    0.00827,   0.03734,   0.06333,
957      +    0.46134,   0.20539,   0.47115,   0.05570,   0.01441,
958      +    0.00852,   0.03672,   0.06199,
959      +    0.45614,   0.20192,   0.45164,   0.05455,   0.01446,
960      +    0.00873,   0.03612,   0.06071,
961      +    0.45096,   0.19860,   0.43326,   0.05348,   0.01449,
962      +    0.00884,   0.03553,   0.05941,
963      +    0.44599,   0.19542,   0.41633,   0.05246,   0.01451,
964      +    0.00896,   0.03495,   0.05817 /
965         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
966      +    0.55780,   0.27971,   0.97191,   0.06190,   0.00001,
967      +    0.00006,   0.03043,   0.07284,
968      +    0.55207,   0.27012,   0.88223,   0.06085,   0.00001,
969      +    0.00007,   0.03192,   0.07092,
970      +    0.54482,   0.26136,   0.80448,   0.05964,   0.00138,
971      +    0.00006,   0.03264,   0.06858,
972      +    0.53704,   0.25287,   0.73694,   0.05803,   0.00361,
973      +    0.00001,   0.03287,   0.06648,
974      +    0.52875,   0.24525,   0.67862,   0.05645,   0.00529,
975      +    0.00028,   0.03286,   0.06425,
976      +    0.52031,   0.23809,   0.62775,   0.05479,   0.00652,
977      +    0.00137,   0.03265,   0.06219,
978      +    0.51207,   0.23131,   0.58301,   0.05319,   0.00753,
979      +    0.00235,   0.03218,   0.06019 /
980         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
981      +    0.50384,   0.22501,   0.54340,   0.05165,   0.00821,
982      +    0.00310,   0.03165,   0.05841,
983      +    0.49570,   0.21911,   0.50822,   0.05016,   0.00874,
984      +    0.00377,   0.03117,   0.05660,
985      +    0.48774,   0.21361,   0.47688,   0.04877,   0.00918,
986      +    0.00431,   0.03061,   0.05485,
987      +    0.48003,   0.20849,   0.44881,   0.04749,   0.00951,
988      +    0.00473,   0.02997,   0.05324,
989      +    0.47259,   0.20370,   0.42348,   0.04623,   0.00969,
990      +    0.00507,   0.02939,   0.05171,
991      +    0.46549,   0.19894,   0.40045,   0.04487,   0.00985,
992      +    0.00541,   0.02883,   0.05036,
993      +    0.45860,   0.19450,   0.37966,   0.04368,   0.00998,
994      +    0.00565,   0.02825,   0.04902 /
995         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
996      +    0.45187,   0.19035,   0.36079,   0.04265,   0.01008,
997      +    0.00577,   0.02766,   0.04765,
998      +    0.44525,   0.18642,   0.34354,   0.04159,   0.01012,
999      +    0.00589,   0.02712,   0.04641,
1000      +    0.43893,   0.18271,   0.32781,   0.04059,   0.01014,
1001      +    0.00601,   0.02660,   0.04524,
1002      +    0.43281,   0.17912,   0.31332,   0.03962,   0.01016,
1003      +    0.00608,   0.02605,   0.04412,
1004      +    0.42696,   0.17570,   0.29997,   0.03870,   0.01016,
1005      +    0.00614,   0.02553,   0.04306 /
1006         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1007      +    0.57041,   0.27068,   0.81970,   0.05094,   0.00001,
1008      +    0.00002,   0.02472,   0.05939,
1009      +    0.55964,   0.25905,   0.72974,   0.04959,   0.00001,
1010      +    0.00000,   0.02563,   0.05710,
1011      +    0.54846,   0.24829,   0.65482,   0.04783,   0.00058,
1012      +    0.00005,   0.02595,   0.05500,
1013      +    0.53681,   0.23875,   0.59176,   0.04618,   0.00234,
1014      +    0.00004,   0.02589,   0.05276,
1015      +    0.52531,   0.23012,   0.53851,   0.04460,   0.00362,
1016      +    0.00034,   0.02565,   0.05057,
1017      +    0.51426,   0.22199,   0.49304,   0.04306,   0.00456,
1018      +    0.00104,   0.02516,   0.04865,
1019      +    0.50346,   0.21459,   0.45365,   0.04158,   0.00525,
1020      +    0.00176,   0.02465,   0.04678 /
1021         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1022      +    0.49304,   0.20771,   0.41933,   0.04008,   0.00586,
1023      +    0.00232,   0.02413,   0.04500,
1024      +    0.48301,   0.20137,   0.38928,   0.03865,   0.00620,
1025      +    0.00274,   0.02360,   0.04345,
1026      +    0.47339,   0.19552,   0.36282,   0.03735,   0.00647,
1027      +    0.00301,   0.02307,   0.04191,
1028      +    0.46419,   0.19006,   0.33936,   0.03615,   0.00674,
1029      +    0.00324,   0.02253,   0.04037,
1030      +    0.45535,   0.18490,   0.31839,   0.03500,   0.00692,
1031      +    0.00352,   0.02202,   0.03900,
1032      +    0.44684,   0.18011,   0.29952,   0.03395,   0.00700,
1033      +    0.00366,   0.02144,   0.03774,
1034      +    0.43871,   0.17558,   0.28259,   0.03297,   0.00705,
1035      +    0.00378,   0.02088,   0.03658 /
1036         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1037      +    0.43088,   0.17127,   0.26732,   0.03209,   0.00708,
1038      +    0.00391,   0.02037,   0.03548,
1039      +    0.42335,   0.16726,   0.25344,   0.03120,   0.00710,
1040      +    0.00403,   0.01990,   0.03433,
1041      +    0.41621,   0.16349,   0.24083,   0.03036,   0.00711,
1042      +    0.00413,   0.01947,   0.03327,
1043      +    0.40937,   0.15980,   0.22926,   0.02946,   0.00711,
1044      +    0.00417,   0.01906,   0.03236,
1045      +    0.40284,   0.15633,   0.21867,   0.02865,   0.00710,
1046      +    0.00421,   0.01864,   0.03152 /
1047         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1048      +    0.57544,   0.25807,   0.68826,   0.04122,   0.00001,
1049      +    0.00001,   0.01974,   0.04813,
1050      +    0.55979,   0.24471,   0.60187,   0.03965,   0.00001,
1051      +    0.00009,   0.02025,   0.04584,
1052      +    0.54425,   0.23296,   0.53213,   0.03815,   0.00020,
1053      +    0.00004,   0.02042,   0.04317,
1054      +    0.52913,   0.22243,   0.47499,   0.03649,   0.00154,
1055      +    0.00007,   0.02022,   0.04118,
1056      +    0.51504,   0.21276,   0.42763,   0.03484,   0.00256,
1057      +    0.00023,   0.01975,   0.03943,
1058      +    0.50148,   0.20414,   0.38774,   0.03336,   0.00338,
1059      +    0.00074,   0.01934,   0.03746,
1060      +    0.48822,   0.19664,   0.35371,   0.03206,   0.00383,
1061      +    0.00121,   0.01886,   0.03574 /
1062         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1063      +    0.47601,   0.18942,   0.32449,   0.03071,   0.00415,
1064      +    0.00165,   0.01828,   0.03438,
1065      +    0.46440,   0.18279,   0.29914,   0.02951,   0.00440,
1066      +    0.00195,   0.01781,   0.03295,
1067      +    0.45342,   0.17669,   0.27697,   0.02837,   0.00459,
1068      +    0.00215,   0.01732,   0.03161,
1069      +    0.44300,   0.17105,   0.25749,   0.02729,   0.00475,
1070      +    0.00231,   0.01679,   0.03042,
1071      +    0.43286,   0.16599,   0.24029,   0.02641,   0.00484,
1072      +    0.00246,   0.01633,   0.02925,
1073      +    0.42350,   0.16090,   0.22504,   0.02540,   0.00495,
1074      +    0.00265,   0.01585,   0.02828,
1075      +    0.41459,   0.15627,   0.21133,   0.02452,   0.00501,
1076      +    0.00274,   0.01536,   0.02732 /
1077         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1078      +    0.40606,   0.15210,   0.19889,   0.02377,   0.00499,
1079      +    0.00272,   0.01491,   0.02634,
1080      +    0.39772,   0.14818,   0.18788,   0.02305,   0.00501,
1081      +    0.00276,   0.01452,   0.02541,
1082      +    0.38984,   0.14447,   0.17796,   0.02239,   0.00502,
1083      +    0.00280,   0.01415,   0.02453,
1084      +    0.38246,   0.14084,   0.16883,   0.02170,   0.00497,
1085      +    0.00280,   0.01381,   0.02375,
1086      +    0.37544,   0.13743,   0.16054,   0.02106,   0.00491,
1087      +    0.00281,   0.01348,   0.02303 /
1088         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1089      +    0.57296,   0.24331,   0.57498,   0.03323,   0.00001,
1090      +    0.00000,   0.01564,   0.03790,
1091      +    0.55287,   0.22837,   0.49443,   0.03152,   0.00001,
1092      +    0.00015,   0.01586,   0.03580,
1093      +    0.53348,   0.21570,   0.43117,   0.02996,   0.00001,
1094      +    0.00003,   0.01587,   0.03381,
1095      +    0.51557,   0.20430,   0.38020,   0.02816,   0.00101,
1096      +    0.00014,   0.01560,   0.03199,
1097      +    0.49880,   0.19429,   0.33882,   0.02671,   0.00183,
1098      +    0.00017,   0.01515,   0.03027,
1099      +    0.48293,   0.18554,   0.30443,   0.02552,   0.00237,
1100      +    0.00053,   0.01468,   0.02866,
1101      +    0.46813,   0.17757,   0.27543,   0.02427,   0.00272,
1102      +    0.00090,   0.01427,   0.02732 /
1103         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1104      +    0.45440,   0.17028,   0.25084,   0.02316,   0.00307,
1105      +    0.00122,   0.01376,   0.02599,
1106      +    0.44124,   0.16387,   0.22975,   0.02226,   0.00330,
1107      +    0.00146,   0.01334,   0.02458,
1108      +    0.42895,   0.15791,   0.21147,   0.02133,   0.00343,
1109      +    0.00158,   0.01292,   0.02342,
1110      +    0.41757,   0.15227,   0.19548,   0.02040,   0.00350,
1111      +    0.00166,   0.01249,   0.02255,
1112      +    0.40679,   0.14708,   0.18137,   0.01956,   0.00351,
1113      +    0.00181,   0.01205,   0.02169,
1114      +    0.39644,   0.14238,   0.16919,   0.01895,   0.00352,
1115      +    0.00187,   0.01164,   0.02076,
1116      +    0.38674,   0.13798,   0.15832,   0.01831,   0.00355,
1117      +    0.00190,   0.01126,   0.01991 /
1118         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1119      +    0.37764,   0.13385,   0.14851,   0.01762,   0.00355,
1120      +    0.00190,   0.01089,   0.01918,
1121      +    0.36924,   0.12985,   0.13974,   0.01689,   0.00351,
1122      +    0.00192,   0.01058,   0.01851,
1123      +    0.36130,   0.12612,   0.13186,   0.01624,   0.00345,
1124      +    0.00194,   0.01029,   0.01788,
1125      +    0.35325,   0.12277,   0.12476,   0.01583,   0.00345,
1126      +    0.00202,   0.00995,   0.01720,
1127      +    0.34571,   0.11959,   0.11829,   0.01540,   0.00345,
1128      +    0.00206,   0.00965,   0.01660 /
1129         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1130      +    0.56518,   0.22574,   0.47773,   0.02572,   0.00001,
1131      +    0.00017,   0.01219,   0.02999,
1132      +    0.54022,   0.21032,   0.40443,   0.02428,   0.00001,
1133      +    0.00008,   0.01231,   0.02779,
1134      +    0.51757,   0.19695,   0.34790,   0.02272,   0.00001,
1135      +    0.00001,   0.01225,   0.02602,
1136      +    0.49637,   0.18579,   0.30341,   0.02165,   0.00073,
1137      +    0.00005,   0.01176,   0.02436,
1138      +    0.47738,   0.17567,   0.26767,   0.02038,   0.00129,
1139      +    0.00015,   0.01135,   0.02300,
1140      +    0.45973,   0.16694,   0.23843,   0.01935,   0.00174,
1141      +    0.00045,   0.01097,   0.02155,
1142      +    0.44350,   0.15904,   0.21412,   0.01829,   0.00198,
1143      +    0.00070,   0.01058,   0.02049 /
1144         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1145      +    0.42843,   0.15191,   0.19373,   0.01738,   0.00217,
1146      +    0.00087,   0.01023,   0.01934,
1147      +    0.41435,   0.14556,   0.17633,   0.01661,   0.00229,
1148      +    0.00102,   0.00983,   0.01830,
1149      +    0.40135,   0.13964,   0.16141,   0.01588,   0.00238,
1150      +    0.00114,   0.00943,   0.01742,
1151      +    0.38933,   0.13414,   0.14855,   0.01516,   0.00245,
1152      +    0.00122,   0.00907,   0.01663,
1153      +    0.37813,   0.12913,   0.13733,   0.01444,   0.00252,
1154      +    0.00122,   0.00879,   0.01582,
1155      +    0.36744,   0.12454,   0.12739,   0.01386,   0.00257,
1156      +    0.00130,   0.00849,   0.01505,
1157      +    0.35745,   0.12028,   0.11868,   0.01330,   0.00255,
1158      +    0.00135,   0.00818,   0.01442 /
1159         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1160      +    0.34809,   0.11628,   0.11101,   0.01276,   0.00250,
1161      +    0.00135,   0.00787,   0.01392,
1162      +    0.33926,   0.11259,   0.10409,   0.01209,   0.00250,
1163      +    0.00138,   0.00764,   0.01354,
1164      +    0.33095,   0.10919,   0.09788,   0.01148,   0.00249,
1165      +    0.00140,   0.00743,   0.01317,
1166      +    0.32294,   0.10598,   0.09234,   0.01107,   0.00244,
1167      +    0.00137,   0.00715,   0.01265,
1168      +    0.31537,   0.10296,   0.08731,   0.01071,   0.00240,
1169      +    0.00135,   0.00691,   0.01219 /
1170         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1171      +    0.55060,   0.20783,   0.39443,   0.01979,   0.00001,
1172      +    0.00015,   0.00934,   0.02282,
1173      +    0.52171,   0.19198,   0.32888,   0.01862,   0.00001,
1174      +    0.00003,   0.00944,   0.02101,
1175      +    0.49584,   0.17870,   0.27941,   0.01751,   0.00001,
1176      +    0.00000,   0.00928,   0.01940,
1177      +    0.47296,   0.16688,   0.24109,   0.01615,   0.00048,
1178      +    0.00003,   0.00903,   0.01825,
1179      +    0.45189,   0.15716,   0.21062,   0.01529,   0.00099,
1180      +    0.00010,   0.00868,   0.01687,
1181      +    0.43312,   0.14840,   0.18611,   0.01438,   0.00119,
1182      +    0.00035,   0.00831,   0.01594,
1183      +    0.41585,   0.14068,   0.16583,   0.01350,   0.00147,
1184      +    0.00053,   0.00786,   0.01507 /
1185         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1186      +    0.39990,   0.13380,   0.14919,   0.01273,   0.00163,
1187      +    0.00068,   0.00751,   0.01429,
1188      +    0.38524,   0.12762,   0.13513,   0.01208,   0.00174,
1189      +    0.00073,   0.00724,   0.01339,
1190      +    0.37180,   0.12198,   0.12301,   0.01149,   0.00178,
1191      +    0.00081,   0.00695,   0.01263,
1192      +    0.35946,   0.11684,   0.11254,   0.01088,   0.00178,
1193      +    0.00091,   0.00664,   0.01201,
1194      +    0.34797,   0.11216,   0.10354,   0.01030,   0.00186,
1195      +    0.00090,   0.00637,   0.01129,
1196      +    0.33693,   0.10781,   0.09569,   0.00980,   0.00181,
1197      +    0.00092,   0.00616,   0.01090,
1198      +    0.32670,   0.10381,   0.08880,   0.00936,   0.00179,
1199      +    0.00095,   0.00596,   0.01046 /
1200         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1201      +    0.31718,   0.10010,   0.08270,   0.00897,   0.00183,
1202      +    0.00099,   0.00575,   0.00994,
1203      +    0.30824,   0.09662,   0.07732,   0.00856,   0.00181,
1204      +    0.00101,   0.00552,   0.00963,
1205      +    0.29988,   0.09338,   0.07252,   0.00817,   0.00179,
1206      +    0.00102,   0.00531,   0.00935,
1207      +    0.29184,   0.09038,   0.06823,   0.00790,   0.00178,
1208      +    0.00102,   0.00514,   0.00896,
1209      +    0.28433,   0.08761,   0.06433,   0.00763,   0.00176,
1210      +    0.00102,   0.00497,   0.00859 /
1211         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1212      +    0.53121,   0.19009,   0.32396,   0.01562,   0.00001,
1213      +    0.00009,   0.00666,   0.01711,
1214      +    0.49937,   0.17349,   0.26604,   0.01416,   0.00001,
1215      +    0.00008,   0.00674,   0.01605,
1216      +    0.47097,   0.16040,   0.22326,   0.01321,   0.00001,
1217      +    0.00011,   0.00662,   0.01471,
1218      +    0.44583,   0.14920,   0.19074,   0.01237,   0.00018,
1219      +    0.00006,   0.00648,   0.01344,
1220      +    0.42380,   0.13944,   0.16526,   0.01150,   0.00054,
1221      +    0.00001,   0.00628,   0.01242,
1222      +    0.40392,   0.13099,   0.14509,   0.01069,   0.00081,
1223      +    0.00017,   0.00595,   0.01171,
1224      +    0.38621,   0.12365,   0.12854,   0.00980,   0.00095,
1225      +    0.00031,   0.00572,   0.01105 /
1226         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1227      +    0.36983,   0.11707,   0.11472,   0.00933,   0.00107,
1228      +    0.00039,   0.00540,   0.01034,
1229      +    0.35484,   0.11119,   0.10330,   0.00890,   0.00117,
1230      +    0.00049,   0.00518,   0.00968,
1231      +    0.34113,   0.10588,   0.09359,   0.00835,   0.00123,
1232      +    0.00051,   0.00497,   0.00913,
1233      +    0.32848,   0.10105,   0.08524,   0.00783,   0.00125,
1234      +    0.00051,   0.00472,   0.00873,
1235      +    0.31668,   0.09665,   0.07809,   0.00753,   0.00123,
1236      +    0.00061,   0.00452,   0.00843,
1237      +    0.30596,   0.09263,   0.07190,   0.00714,   0.00125,
1238      +    0.00064,   0.00431,   0.00785,
1239      +    0.29591,   0.08896,   0.06650,   0.00683,   0.00124,
1240      +    0.00065,   0.00413,   0.00741 /
1241         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1242      +    0.28641,   0.08560,   0.06174,   0.00657,   0.00121,
1243      +    0.00067,   0.00397,   0.00713,
1244      +    0.27773,   0.08238,   0.05754,   0.00622,   0.00122,
1245      +    0.00066,   0.00381,   0.00679,
1246      +    0.26963,   0.07941,   0.05381,   0.00588,   0.00123,
1247      +    0.00066,   0.00367,   0.00647,
1248      +    0.26176,   0.07672,   0.05045,   0.00562,   0.00120,
1249      +    0.00066,   0.00354,   0.00623,
1250      +    0.25439,   0.07419,   0.04744,   0.00540,   0.00118,
1251      +    0.00066,   0.00341,   0.00599 /
1252         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1253      +    0.50755,   0.17053,   0.26316,   0.01106,   0.00001,
1254      +    0.00016,   0.00518,   0.01269,
1255      +    0.47243,   0.15488,   0.21340,   0.01031,   0.00001,
1256      +    0.00012,   0.00513,   0.01162,
1257      +    0.44244,   0.14194,   0.17721,   0.00946,   0.00001,
1258      +    0.00013,   0.00504,   0.01059,
1259      +    0.41618,   0.13122,   0.14992,   0.00870,   0.00029,
1260      +    0.00006,   0.00476,   0.00981,
1261      +    0.39347,   0.12199,   0.12888,   0.00794,   0.00048,
1262      +    0.00012,   0.00457,   0.00911,
1263      +    0.37321,   0.11404,   0.11212,   0.00737,   0.00063,
1264      +    0.00022,   0.00445,   0.00841,
1265      +    0.35479,   0.10714,   0.09864,   0.00702,   0.00085,
1266      +    0.00028,   0.00423,   0.00773 /
1267         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1268      +    0.33840,   0.10098,   0.08757,   0.00633,   0.00082,
1269      +    0.00039,   0.00393,   0.00752,
1270      +    0.32319,   0.09555,   0.07841,   0.00602,   0.00092,
1271      +    0.00041,   0.00372,   0.00707,
1272      +    0.30945,   0.09063,   0.07069,   0.00574,   0.00095,
1273      +    0.00041,   0.00355,   0.00662,
1274      +    0.29704,   0.08626,   0.06412,   0.00541,   0.00088,
1275      +    0.00043,   0.00340,   0.00623,
1276      +    0.28541,   0.08250,   0.05854,   0.00533,   0.00090,
1277      +    0.00044,   0.00320,   0.00564,
1278      +    0.27487,   0.07871,   0.05369,   0.00499,   0.00091,
1279      +    0.00043,   0.00305,   0.00542,
1280      +    0.26513,   0.07526,   0.04947,   0.00463,   0.00090,
1281      +    0.00042,   0.00288,   0.00522 /
1282         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1283      +    0.25605,   0.07217,   0.04578,   0.00430,   0.00086,
1284      +    0.00041,   0.00273,   0.00503,
1285      +    0.24741,   0.06930,   0.04254,   0.00420,   0.00083,
1286      +    0.00047,   0.00265,   0.00482,
1287      +    0.23934,   0.06666,   0.03967,   0.00413,   0.00082,
1288      +    0.00053,   0.00259,   0.00461,
1289      +    0.23155,   0.06423,   0.03712,   0.00409,   0.00083,
1290      +    0.00049,   0.00249,   0.00436,
1291      +    0.22440,   0.06199,   0.03484,   0.00399,   0.00083,
1292      +    0.00046,   0.00239,   0.00413 /
1293         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1294      +    0.48033,   0.15264,   0.21305,   0.00836,   0.00001,
1295      +    0.00002,   0.00357,   0.00909,
1296      +    0.44304,   0.13739,   0.17039,   0.00774,   0.00001,
1297      +    0.00001,   0.00358,   0.00829,
1298      +    0.41195,   0.12495,   0.13987,   0.00689,   0.00001,
1299      +    0.00004,   0.00350,   0.00760,
1300      +    0.38523,   0.11467,   0.11712,   0.00624,   0.00004,
1301      +    0.00002,   0.00337,   0.00710,
1302      +    0.36185,   0.10601,   0.09981,   0.00572,   0.00029,
1303      +    0.00003,   0.00324,   0.00657,
1304      +    0.34121,   0.09871,   0.08628,   0.00542,   0.00042,
1305      +    0.00012,   0.00299,   0.00608,
1306      +    0.32287,   0.09229,   0.07548,   0.00499,   0.00042,
1307      +    0.00011,   0.00283,   0.00569 /
1308         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1309      +    0.30647,   0.08679,   0.06658,   0.00477,   0.00057,
1310      +    0.00020,   0.00269,   0.00520,
1311      +    0.29188,   0.08178,   0.05928,   0.00441,   0.00056,
1312      +    0.00022,   0.00251,   0.00482,
1313      +    0.27861,   0.07724,   0.05321,   0.00408,   0.00058,
1314      +    0.00023,   0.00236,   0.00449,
1315      +    0.26641,   0.07317,   0.04808,   0.00384,   0.00065,
1316      +    0.00025,   0.00223,   0.00424,
1317      +    0.25518,   0.06944,   0.04369,   0.00364,   0.00056,
1318      +    0.00025,   0.00212,   0.00420,
1319      +    0.24480,   0.06623,   0.03997,   0.00358,   0.00054,
1320      +    0.00027,   0.00207,   0.00383,
1321      +    0.23528,   0.06326,   0.03674,   0.00342,   0.00053,
1322      +    0.00028,   0.00198,   0.00357 /
1323         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1324      +    0.22649,   0.06047,   0.03392,   0.00316,   0.00054,
1325      +    0.00027,   0.00184,   0.00348,
1326      +    0.21826,   0.05793,   0.03140,   0.00306,   0.00054,
1327      +    0.00028,   0.00177,   0.00327,
1328      +    0.21067,   0.05562,   0.02917,   0.00295,   0.00054,
1329      +    0.00030,   0.00172,   0.00307,
1330      +    0.20387,   0.05341,   0.02723,   0.00267,   0.00051,
1331      +    0.00030,   0.00162,   0.00295,
1332      +    0.19744,   0.05139,   0.02550,   0.00248,   0.00050,
1333      +    0.00030,   0.00155,   0.00282 /
1334         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1335      +    0.44937,   0.13485,   0.17056,   0.00582,   0.00001,
1336      +    0.00008,   0.00249,   0.00658,
1337      +    0.41181,   0.12006,   0.13469,   0.00503,   0.00001,
1338      +    0.00005,   0.00253,   0.00598,
1339      +    0.37920,   0.10859,   0.10935,   0.00489,   0.00001,
1340      +    0.00003,   0.00259,   0.00529,
1341      +    0.35221,   0.09901,   0.09074,   0.00420,   0.00009,
1342      +    0.00001,   0.00238,   0.00497,
1343      +    0.32881,   0.09099,   0.07678,   0.00402,   0.00023,
1344      +    0.00002,   0.00227,   0.00458,
1345      +    0.30871,   0.08440,   0.06584,   0.00368,   0.00028,
1346      +    0.00010,   0.00215,   0.00427,
1347      +    0.29082,   0.07850,   0.05720,   0.00350,   0.00032,
1348      +    0.00013,   0.00206,   0.00382 /
1349         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1350      +    0.27484,   0.07337,   0.05025,   0.00328,   0.00035,
1351      +    0.00014,   0.00188,   0.00355,
1352      +    0.26061,   0.06888,   0.04449,   0.00304,   0.00036,
1353      +    0.00018,   0.00179,   0.00335,
1354      +    0.24770,   0.06490,   0.03975,   0.00286,   0.00039,
1355      +    0.00022,   0.00170,   0.00310,
1356      +    0.23596,   0.06132,   0.03580,   0.00274,   0.00041,
1357      +    0.00023,   0.00159,   0.00286,
1358      +    0.22540,   0.05811,   0.03241,   0.00256,   0.00036,
1359      +    0.00023,   0.00147,   0.00274,
1360      +    0.21580,   0.05517,   0.02952,   0.00227,   0.00036,
1361      +    0.00020,   0.00139,   0.00261,
1362      +    0.20686,   0.05250,   0.02703,   0.00214,   0.00038,
1363      +    0.00020,   0.00134,   0.00244 /
1364         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1365      +    0.19847,   0.05006,   0.02488,   0.00218,   0.00039,
1366      +    0.00024,   0.00133,   0.00223,
1367      +    0.19082,   0.04785,   0.02301,   0.00212,   0.00042,
1368      +    0.00023,   0.00126,   0.00208,
1369      +    0.18376,   0.04582,   0.02136,   0.00205,   0.00043,
1370      +    0.00021,   0.00118,   0.00194,
1371      +    0.17709,   0.04389,   0.01987,   0.00195,   0.00042,
1372      +    0.00020,   0.00110,   0.00190,
1373      +    0.17094,   0.04214,   0.01855,   0.00183,   0.00038,
1374      +    0.00019,   0.00104,   0.00185 /
1375         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1376      +    0.41755,   0.11759,   0.13558,   0.00373,   0.00001,
1377      +    0.00004,   0.00168,   0.00454,
1378      +    0.37836,   0.10426,   0.10575,   0.00366,   0.00001,
1379      +    0.00004,   0.00176,   0.00415,
1380      +    0.34619,   0.09359,   0.08497,   0.00346,   0.00001,
1381      +    0.00007,   0.00152,   0.00395,
1382      +    0.31940,   0.08485,   0.06994,   0.00307,   0.00001,
1383      +    0.00003,   0.00151,   0.00361,
1384      +    0.29667,   0.07765,   0.05870,   0.00280,   0.00002,
1385      +    0.00004,   0.00145,   0.00330,
1386      +    0.27701,   0.07150,   0.04999,   0.00258,   0.00014,
1387      +    0.00006,   0.00138,   0.00304,
1388      +    0.25957,   0.06627,   0.04314,   0.00254,   0.00018,
1389      +    0.00009,   0.00127,   0.00258 /
1390         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1391      +    0.24431,   0.06167,   0.03767,   0.00232,   0.00017,
1392      +    0.00010,   0.00116,   0.00251,
1393      +    0.23086,   0.05769,   0.03322,   0.00211,   0.00020,
1394      +    0.00008,   0.00113,   0.00229,
1395      +    0.21867,   0.05416,   0.02956,   0.00197,   0.00024,
1396      +    0.00007,   0.00107,   0.00206,
1397      +    0.20759,   0.05101,   0.02651,   0.00185,   0.00024,
1398      +    0.00008,   0.00101,   0.00196,
1399      +    0.19761,   0.04823,   0.02390,   0.00176,   0.00024,
1400      +    0.00010,   0.00095,   0.00181,
1401      +    0.18831,   0.04566,   0.02171,   0.00178,   0.00023,
1402      +    0.00012,   0.00086,   0.00165,
1403      +    0.17988,   0.04332,   0.01983,   0.00177,   0.00023,
1404      +    0.00011,   0.00080,   0.00151 /
1405         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1406      +    0.17222,   0.04122,   0.01820,   0.00169,   0.00023,
1407      +    0.00009,   0.00077,   0.00139,
1408      +    0.16524,   0.03929,   0.01678,   0.00154,   0.00022,
1409      +    0.00010,   0.00075,   0.00136,
1410      +    0.15884,   0.03754,   0.01554,   0.00140,   0.00018,
1411      +    0.00011,   0.00073,   0.00133,
1412      +    0.15284,   0.03591,   0.01445,   0.00131,   0.00018,
1413      +    0.00010,   0.00068,   0.00123,
1414      +    0.14724,   0.03440,   0.01347,   0.00125,   0.00018,
1415      +    0.00010,   0.00064,   0.00115 /
1416         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1417      +    0.38293,   0.10184,   0.10666,   0.00263,   0.00001,
1418      +    0.00006,   0.00115,   0.00317,
1419      +    0.34411,   0.08923,   0.08197,   0.00232,   0.00001,
1420      +    0.00002,   0.00120,   0.00296,
1421      +    0.31216,   0.07943,   0.06514,   0.00215,   0.00001,
1422      +    0.00002,   0.00115,   0.00277,
1423      +    0.28619,   0.07153,   0.05305,   0.00202,   0.00006,
1424      +    0.00001,   0.00110,   0.00235,
1425      +    0.26418,   0.06511,   0.04410,   0.00192,   0.00015,
1426      +    0.00004,   0.00103,   0.00199,
1427      +    0.24524,   0.05962,   0.03733,   0.00175,   0.00018,
1428      +    0.00002,   0.00098,   0.00189,
1429      +    0.22900,   0.05505,   0.03204,   0.00153,   0.00015,
1430      +    0.00004,   0.00094,   0.00170 /
1431         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1432      +    0.21466,   0.05096,   0.02782,   0.00143,   0.00021,
1433      +    0.00007,   0.00088,   0.00151,
1434      +    0.20176,   0.04746,   0.02440,   0.00136,   0.00019,
1435      +    0.00007,   0.00078,   0.00139,
1436      +    0.19018,   0.04441,   0.02161,   0.00136,   0.00016,
1437      +    0.00007,   0.00071,   0.00128,
1438      +    0.17989,   0.04164,   0.01929,   0.00133,   0.00018,
1439      +    0.00006,   0.00070,   0.00117,
1440      +    0.17080,   0.03913,   0.01733,   0.00111,   0.00018,
1441      +    0.00004,   0.00062,   0.00106,
1442      +    0.16229,   0.03697,   0.01569,   0.00115,   0.00019,
1443      +    0.00007,   0.00064,   0.00098,
1444      +    0.15463,   0.03502,   0.01429,   0.00107,   0.00020,
1445      +    0.00010,   0.00063,   0.00096 /
1446         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1447      +    0.14776,   0.03320,   0.01307,   0.00089,   0.00019,
1448      +    0.00011,   0.00058,   0.00101,
1449      +    0.14137,   0.03155,   0.01202,   0.00085,   0.00018,
1450      +    0.00010,   0.00054,   0.00092,
1451      +    0.13552,   0.03005,   0.01111,   0.00081,   0.00018,
1452      +    0.00008,   0.00049,   0.00081,
1453      +    0.13011,   0.02868,   0.01031,   0.00070,   0.00018,
1454      +    0.00008,   0.00047,   0.00076,
1455      +    0.12509,   0.02742,   0.00960,   0.00063,   0.00018,
1456      +    0.00009,   0.00046,   0.00071 /
1457         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1458      +    0.34789,   0.08725,   0.08307,   0.00190,   0.00001,
1459      +    0.00007,   0.00067,   0.00216,
1460      +    0.30996,   0.07585,   0.06310,   0.00152,   0.00001,
1461      +    0.00003,   0.00070,   0.00199,
1462      +    0.27929,   0.06697,   0.04952,   0.00141,   0.00001,
1463      +    0.00007,   0.00073,   0.00188,
1464      +    0.25415,   0.06005,   0.03998,   0.00139,   0.00001,
1465      +    0.00002,   0.00071,   0.00149,
1466      +    0.23318,   0.05422,   0.03302,   0.00118,   0.00002,
1467      +    0.00002,   0.00064,   0.00142,
1468      +    0.21539,   0.04942,   0.02776,   0.00114,   0.00006,
1469      +    0.00001,   0.00061,   0.00129,
1470      +    0.20027,   0.04538,   0.02371,   0.00107,   0.00010,
1471      +    0.00003,   0.00061,   0.00112 /
1472         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1473      +    0.18663,   0.04195,   0.02047,   0.00109,   0.00010,
1474      +    0.00002,   0.00051,   0.00098,
1475      +    0.17472,   0.03891,   0.01788,   0.00101,   0.00010,
1476      +    0.00001,   0.00046,   0.00087,
1477      +    0.16435,   0.03621,   0.01577,   0.00085,   0.00011,
1478      +    0.00002,   0.00044,   0.00084,
1479      +    0.15506,   0.03385,   0.01402,   0.00073,   0.00012,
1480      +    0.00005,   0.00042,   0.00085,
1481      +    0.14650,   0.03174,   0.01256,   0.00076,   0.00011,
1482      +    0.00005,   0.00042,   0.00076,
1483      +    0.13866,   0.02990,   0.01134,   0.00080,   0.00013,
1484      +    0.00003,   0.00039,   0.00067,
1485      +    0.13179,   0.02822,   0.01029,   0.00073,   0.00014,
1486      +    0.00003,   0.00037,   0.00062 /
1487         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1488      +    0.12580,   0.02666,   0.00940,   0.00055,   0.00013,
1489      +    0.00005,   0.00035,   0.00061,
1490      +    0.11992,   0.02529,   0.00863,   0.00055,   0.00014,
1491      +    0.00004,   0.00031,   0.00055,
1492      +    0.11452,   0.02405,   0.00795,   0.00057,   0.00013,
1493      +    0.00003,   0.00029,   0.00049,
1494      +    0.10970,   0.02287,   0.00736,   0.00047,   0.00012,
1495      +    0.00003,   0.00027,   0.00049,
1496      +    0.10524,   0.02178,   0.00683,   0.00040,   0.00011,
1497      +    0.00003,   0.00026,   0.00048 /
1498         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1499      +    0.31257,   0.07367,   0.06381,   0.00095,   0.00001,
1500      +    0.00001,   0.00037,   0.00153,
1501      +    0.27561,   0.06356,   0.04786,   0.00110,   0.00001,
1502      +    0.00005,   0.00041,   0.00114,
1503      +    0.24679,   0.05572,   0.03721,   0.00089,   0.00001,
1504      +    0.00007,   0.00038,   0.00124,
1505      +    0.22307,   0.04957,   0.02978,   0.00088,   0.00001,
1506      +    0.00002,   0.00044,   0.00105,
1507      +    0.20313,   0.04457,   0.02442,   0.00099,   0.00001,
1508      +    0.00002,   0.00038,   0.00095,
1509      +    0.18690,   0.04044,   0.02040,   0.00090,   0.00000,
1510      +    0.00002,   0.00038,   0.00071,
1511      +    0.17258,   0.03697,   0.01729,   0.00085,   0.00001,
1512      +    0.00001,   0.00034,   0.00070 /
1513         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1514      +    0.16048,   0.03397,   0.01486,   0.00076,   0.00001,
1515      +    0.00001,   0.00032,   0.00061,
1516      +    0.14961,   0.03135,   0.01291,   0.00077,   0.00004,
1517      +    0.00001,   0.00029,   0.00050,
1518      +    0.14000,   0.02908,   0.01134,   0.00073,   0.00006,
1519      +    0.00001,   0.00027,   0.00047,
1520      +    0.13161,   0.02712,   0.01006,   0.00061,   0.00009,
1521      +    0.00003,   0.00026,   0.00047,
1522      +    0.12412,   0.02538,   0.00898,   0.00054,   0.00007,
1523      +    0.00003,   0.00025,   0.00049,
1524      +    0.11732,   0.02380,   0.00808,   0.00043,   0.00008,
1525      +    0.00004,   0.00024,   0.00047,
1526      +    0.11121,   0.02238,   0.00732,   0.00034,   0.00008,
1527      +    0.00004,   0.00023,   0.00043 /
1528         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1529      +    0.10567,   0.02111,   0.00666,   0.00030,   0.00010,
1530      +    0.00003,   0.00024,   0.00037,
1531      +    0.10044,   0.01996,   0.00610,   0.00032,   0.00009,
1532      +    0.00003,   0.00023,   0.00035,
1533      +    0.09568,   0.01893,   0.00561,   0.00035,   0.00008,
1534      +    0.00004,   0.00021,   0.00034,
1535      +    0.09135,   0.01796,   0.00518,   0.00030,   0.00008,
1536      +    0.00003,   0.00019,   0.00032,
1537      +    0.08739,   0.01709,   0.00481,   0.00026,   0.00008,
1538      +    0.00002,   0.00018,   0.00031 /
1539         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1540      +    0.27775,   0.06166,   0.04845,   0.00067,   0.00001,
1541      +    0.00009,   0.00009,   0.00081,
1542      +    0.24296,   0.05256,   0.03586,   0.00060,   0.00001,
1543      +    0.00005,   0.00021,   0.00081,
1544      +    0.21511,   0.04590,   0.02751,   0.00096,   0.00001,
1545      +    0.00005,   0.00022,   0.00046,
1546      +    0.19303,   0.04040,   0.02185,   0.00076,   0.00001,
1547      +    0.00004,   0.00021,   0.00061,
1548      +    0.17528,   0.03607,   0.01775,   0.00061,   0.00001,
1549      +    0.00006,   0.00022,   0.00047,
1550      +    0.16027,   0.03255,   0.01472,   0.00041,   0.00001,
1551      +    0.00006,   0.00019,   0.00049,
1552      +    0.14731,   0.02958,   0.01241,   0.00048,   0.00002,
1553      +    0.00004,   0.00021,   0.00046 /
1554         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1555      +    0.13615,   0.02708,   0.01061,   0.00048,   0.00004,
1556      +    0.00001,   0.00021,   0.00038,
1557      +    0.12661,   0.02490,   0.00917,   0.00037,   0.00008,
1558      +    0.00003,   0.00020,   0.00032,
1559      +    0.11801,   0.02302,   0.00802,   0.00033,   0.00007,
1560      +    0.00003,   0.00019,   0.00033,
1561      +    0.11030,   0.02138,   0.00708,   0.00034,   0.00005,
1562      +    0.00002,   0.00018,   0.00033,
1563      +    0.10374,   0.01990,   0.00630,   0.00030,   0.00007,
1564      +    0.00003,   0.00018,   0.00028,
1565      +    0.09766,   0.01862,   0.00566,   0.00028,   0.00008,
1566      +    0.00004,   0.00019,   0.00026,
1567      +    0.09221,   0.01746,   0.00511,   0.00024,   0.00008,
1568      +    0.00004,   0.00017,   0.00027 /
1569         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1570      +    0.08731,   0.01641,   0.00464,   0.00018,   0.00006,
1571      +    0.00003,   0.00014,   0.00030,
1572      +    0.08286,   0.01548,   0.00424,   0.00016,   0.00004,
1573      +    0.00003,   0.00014,   0.00027,
1574      +    0.07880,   0.01464,   0.00389,   0.00014,   0.00004,
1575      +    0.00003,   0.00014,   0.00024,
1576      +    0.07499,   0.01385,   0.00359,   0.00018,   0.00006,
1577      +    0.00003,   0.00013,   0.00019,
1578      +    0.07153,   0.01313,   0.00332,   0.00018,   0.00006,
1579      +    0.00003,   0.00013,   0.00017 /
1580         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1581      +    0.24363,   0.05050,   0.03616,   0.00020,   0.00001,
1582      +    0.00001,   0.00011,   0.00064,
1583      +    0.21020,   0.04275,   0.02638,   0.00058,   0.00001,
1584      +    0.00007,   0.00010,   0.00043,
1585      +    0.18553,   0.03685,   0.02003,   0.00022,   0.00001,
1586      +    0.00004,   0.00016,   0.00041,
1587      +    0.16530,   0.03234,   0.01573,   0.00027,   0.00001,
1588      +    0.00005,   0.00015,   0.00030,
1589      +    0.14900,   0.02868,   0.01268,   0.00015,   0.00002,
1590      +    0.00002,   0.00018,   0.00034,
1591      +    0.13511,   0.02575,   0.01044,   0.00024,   0.00003,
1592      +    0.00000,   0.00020,   0.00037,
1593      +    0.12373,   0.02328,   0.00875,   0.00017,   0.00006,
1594      +    0.00000,   0.00018,   0.00033 /
1595         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1596      +    0.11392,   0.02119,   0.00744,   0.00015,   0.00005,
1597      +    0.00001,   0.00014,   0.00028,
1598      +    0.10533,   0.01941,   0.00641,   0.00011,   0.00007,
1599      +    0.00001,   0.00013,   0.00026,
1600      +    0.09784,   0.01787,   0.00558,   0.00009,   0.00008,
1601      +    0.00002,   0.00013,   0.00024,
1602      +    0.09122,   0.01652,   0.00490,   0.00012,   0.00006,
1603      +    0.00003,   0.00013,   0.00019,
1604      +    0.08522,   0.01534,   0.00436,   0.00017,   0.00007,
1605      +    0.00003,   0.00010,   0.00018,
1606      +    0.08008,   0.01427,   0.00390,   0.00009,   0.00006,
1607      +    0.00002,   0.00011,   0.00014,
1608      +    0.07542,   0.01334,   0.00351,   0.00004,   0.00005,
1609      +    0.00002,   0.00013,   0.00011 /
1610         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1611      +    0.07115,   0.01252,   0.00318,   0.00007,   0.00005,
1612      +    0.00002,   0.00011,   0.00009,
1613      +    0.06725,   0.01177,   0.00290,   0.00008,   0.00007,
1614      +    0.00003,   0.00010,   0.00009,
1615      +    0.06373,   0.01110,   0.00266,   0.00007,   0.00007,
1616      +    0.00003,   0.00009,   0.00009,
1617      +    0.06059,   0.01048,   0.00244,   0.00001,   0.00005,
1618      +    0.00002,   0.00007,   0.00010,
1619      +    0.05769,   0.00993,   0.00226,   0.00001,   0.00005,
1620      +    0.00002,   0.00006,   0.00010 /
1621         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1622      +    0.21093,   0.04119,   0.02669,   0.00049,   0.00001,
1623      +    0.00011,   0.00001,   0.00028,
1624      +    0.18109,   0.03447,   0.01920,   0.00024,   0.00001,
1625      +    0.00008,   0.00003,   0.00026,
1626      +    0.15780,   0.02952,   0.01443,   0.00030,   0.00001,
1627      +    0.00005,   0.00002,   0.00028,
1628      +    0.13985,   0.02566,   0.01124,   0.00017,   0.00001,
1629      +    0.00005,   0.00004,   0.00025,
1630      +    0.12514,   0.02263,   0.00900,   0.00013,   0.00001,
1631      +    0.00004,   0.00007,   0.00022,
1632      +    0.11301,   0.02021,   0.00737,   0.00018,   0.00002,
1633      +    0.00003,   0.00008,   0.00016,
1634      +    0.10282,   0.01816,   0.00615,   0.00018,   0.00001,
1635      +    0.00003,   0.00007,   0.00011 /
1636         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1637      +    0.09406,   0.01649,   0.00520,   0.00014,   0.00003,
1638      +    0.00001,   0.00007,   0.00012,
1639      +    0.08661,   0.01503,   0.00446,   0.00016,   0.00002,
1640      +    0.00000,   0.00007,   0.00012,
1641      +    0.08018,   0.01376,   0.00387,   0.00012,   0.00001,
1642      +    0.00000,   0.00008,   0.00011,
1643      +    0.07454,   0.01268,   0.00340,   0.00004,   0.00002,
1644      +    0.00000,   0.00008,   0.00011,
1645      +    0.06950,   0.01174,   0.00301,   0.00002,   0.00005,
1646      +    0.00001,   0.00010,   0.00012,
1647      +    0.06499,   0.01090,   0.00268,   0.00004,   0.00003,
1648      +    0.00001,   0.00007,   0.00012,
1649      +    0.06096,   0.01015,   0.00241,   0.00005,   0.00003,
1650      +    0.00001,   0.00006,   0.00010 /
1651         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1652      +    0.05734,   0.00950,   0.00218,   0.00003,   0.00002,
1653      +    0.00001,   0.00006,   0.00009,
1654      +    0.05405,   0.00891,   0.00198,   0.00004,   0.00002,
1655      +    0.00000,   0.00006,   0.00009,
1656      +    0.05108,   0.00837,   0.00181,   0.00006,   0.00004,
1657      +    0.00000,   0.00006,   0.00008,
1658      +    0.04833,   0.00789,   0.00167,   0.00010,   0.00004,
1659      +    0.00001,   0.00006,   0.00007,
1660      +    0.04585,   0.00745,   0.00154,   0.00011,   0.00004,
1661      +    0.00002,   0.00006,   0.00005 /
1662         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1663      +    0.17976,   0.03267,   0.01921,   0.00012,   0.00001,
1664      +    0.00003,   0.00001,   0.00023,
1665      +    0.15272,   0.02717,   0.01370,   0.00019,   0.00001,
1666      +    0.00004,   0.00001,   0.00017,
1667      +    0.13247,   0.02309,   0.01022,   0.00007,   0.00001,
1668      +    0.00005,   0.00001,   0.00011,
1669      +    0.11623,   0.01999,   0.00790,   0.00019,   0.00001,
1670      +    0.00002,   0.00002,   0.00011,
1671      +    0.10335,   0.01755,   0.00627,   0.00019,   0.00001,
1672      +    0.00002,   0.00003,   0.00004,
1673      +    0.09286,   0.01558,   0.00510,   0.00018,   0.00001,
1674      +    0.00001,   0.00002,   0.00008,
1675      +    0.08418,   0.01395,   0.00423,   0.00012,   0.00001,
1676      +    0.00002,   0.00002,   0.00005 /
1677         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1678      +    0.07671,   0.01259,   0.00357,   0.00011,   0.00001,
1679      +    0.00000,   0.00004,   0.00008,
1680      +    0.07036,   0.01144,   0.00305,   0.00006,   0.00002,
1681      +    0.00000,   0.00004,   0.00009,
1682      +    0.06481,   0.01046,   0.00264,   0.00004,   0.00001,
1683      +    0.00001,   0.00003,   0.00008,
1684      +    0.05991,   0.00961,   0.00231,   0.00007,   0.00001,
1685      +    0.00001,   0.00002,   0.00007,
1686      +    0.05566,   0.00886,   0.00204,   0.00006,   0.00001,
1687      +    0.00001,   0.00000,   0.00006,
1688      +    0.05191,   0.00820,   0.00181,   0.00004,   0.00001,
1689      +    0.00000,   0.00001,   0.00007,
1690      +    0.04854,   0.00762,   0.00162,   0.00004,   0.00001,
1691      +    0.00000,   0.00002,   0.00009 /
1692         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1693      +    0.04550,   0.00711,   0.00147,   0.00007,   0.00001,
1694      +    0.00001,   0.00002,   0.00006,
1695      +    0.04279,   0.00663,   0.00133,   0.00005,   0.00001,
1696      +    0.00000,   0.00001,   0.00006,
1697      +    0.04035,   0.00622,   0.00122,   0.00004,   0.00001,
1698      +    0.00001,   0.00001,   0.00006,
1699      +    0.03814,   0.00585,   0.00111,   0.00002,   0.00001,
1700      +    0.00001,   0.00001,   0.00005,
1701      +    0.03613,   0.00552,   0.00103,   0.00002,   0.00001,
1702      +    0.00001,   0.00001,   0.00005 /
1703         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1704      +    0.12416,   0.01946,   0.00935,   0.00003,   0.00001,
1705      +    0.00000,   0.00001,   0.00001,
1706      +    0.10312,   0.01588,   0.00647,   0.00011,   0.00001,
1707      +    0.00002,   0.00001,   0.00000,
1708      +    0.08767,   0.01326,   0.00471,   0.00010,   0.00001,
1709      +    0.00001,   0.00002,   0.00001,
1710      +    0.07588,   0.01130,   0.00357,   0.00004,   0.00001,
1711      +    0.00001,   0.00001,   0.00001,
1712      +    0.06658,   0.00977,   0.00279,   0.00002,   0.00001,
1713      +    0.00001,   0.00000,   0.00002,
1714      +    0.05909,   0.00857,   0.00224,   0.00001,   0.00001,
1715      +    0.00000,   0.00002,   0.00001,
1716      +    0.05290,   0.00759,   0.00184,   0.00002,   0.00002,
1717      +    0.00000,   0.00002,   0.00001 /
1718         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1719      +    0.04770,   0.00678,   0.00153,   0.00001,   0.00001,
1720      +    0.00000,   0.00002,   0.00001,
1721      +    0.04328,   0.00610,   0.00130,   0.00000,   0.00001,
1722      +    0.00000,   0.00001,   0.00004,
1723      +    0.03950,   0.00552,   0.00111,   0.00001,   0.00001,
1724      +    0.00000,   0.00001,   0.00004,
1725      +    0.03624,   0.00502,   0.00097,   0.00003,   0.00001,
1726      +    0.00000,   0.00001,   0.00001,
1727      +    0.03342,   0.00460,   0.00085,   0.00001,   0.00001,
1728      +    0.00000,   0.00002,   0.00001,
1729      +    0.03088,   0.00422,   0.00075,   0.00003,   0.00001,
1730      +    0.00000,   0.00001,   0.00001,
1731      +    0.02866,   0.00391,   0.00067,   0.00003,   0.00001,
1732      +    0.00000,   0.00001,   0.00001 /
1733         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1734      +    0.02672,   0.00362,   0.00060,   0.00001,   0.00001,
1735      +    0.00000,   0.00001,   0.00001,
1736      +    0.02497,   0.00335,   0.00054,   0.00001,   0.00001,
1737      +    0.00000,   0.00001,   0.00001,
1738      +    0.02340,   0.00313,   0.00049,   0.00001,   0.00001,
1739      +    0.00000,   0.00001,   0.00001,
1740      +    0.02197,   0.00292,   0.00045,   0.00001,   0.00001,
1741      +    0.00000,   0.00001,   0.00001,
1742      +    0.02067,   0.00274,   0.00041,   0.00001,   0.00001,
1743      +    0.00001,   0.00001,   0.00001 /
1744         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1745      +    0.07915,   0.01062,   0.00410,   0.00005,   0.00001,
1746      +    0.00002,   0.00001,   0.00001,
1747      +    0.06445,   0.00847,   0.00275,   0.00002,   0.00001,
1748      +    0.00000,   0.00001,   0.00001,
1749      +    0.05365,   0.00694,   0.00196,   0.00003,   0.00001,
1750      +    0.00001,   0.00001,   0.00001,
1751      +    0.04567,   0.00582,   0.00145,   0.00001,   0.00001,
1752      +    0.00001,   0.00001,   0.00003,
1753      +    0.03941,   0.00496,   0.00112,   0.00001,   0.00001,
1754      +    0.00000,   0.00001,   0.00001,
1755      +    0.03453,   0.00429,   0.00088,   0.00001,   0.00001,
1756      +    0.00001,   0.00001,   0.00001,
1757      +    0.03052,   0.00376,   0.00072,   0.00001,   0.00001,
1758      +    0.00000,   0.00001,   0.00001 /
1759         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1760      +    0.02719,   0.00332,   0.00059,   0.00001,   0.00001,
1761      +    0.00000,   0.00001,   0.00001,
1762      +    0.02444,   0.00295,   0.00050,   0.00001,   0.00001,
1763      +    0.00000,   0.00001,   0.00001,
1764      +    0.02208,   0.00265,   0.00042,   0.00001,   0.00001,
1765      +    0.00000,   0.00001,   0.00001,
1766      +    0.02005,   0.00239,   0.00036,   0.00001,   0.00001,
1767      +    0.00000,   0.00001,   0.00001,
1768      +    0.01832,   0.00216,   0.00032,   0.00001,   0.00001,
1769      +    0.00000,   0.00001,   0.00001,
1770      +    0.01680,   0.00198,   0.00028,   0.00001,   0.00001,
1771      +    0.00000,   0.00001,   0.00001,
1772      +    0.01548,   0.00181,   0.00025,   0.00001,   0.00001,
1773      +    0.00000,   0.00001,   0.00001 /
1774         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1775      +    0.01432,   0.00166,   0.00022,   0.00001,   0.00001,
1776      +    0.00000,   0.00001,   0.00001,
1777      +    0.01329,   0.00154,   0.00020,   0.00001,   0.00001,
1778      +    0.00000,   0.00001,   0.00001,
1779      +    0.01237,   0.00142,   0.00018,   0.00001,   0.00001,
1780      +    0.00000,   0.00001,   0.00001,
1781      +    0.01154,   0.00132,   0.00017,   0.00001,   0.00001,
1782      +    0.00000,   0.00001,   0.00001,
1783      +    0.01079,   0.00123,   0.00015,   0.00001,   0.00001,
1784      +    0.00000,   0.00001,   0.00001 /
1785         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1786      +    0.04508,   0.00507,   0.00154,   0.00001,   0.00001,
1787      +    0.00000,   0.00001,   0.00001,
1788      +    0.03580,   0.00395,   0.00100,   0.00001,   0.00001,
1789      +    0.00001,   0.00001,   0.00001,
1790      +    0.02927,   0.00318,   0.00070,   0.00001,   0.00001,
1791      +    0.00000,   0.00001,   0.00001,
1792      +    0.02440,   0.00262,   0.00051,   0.00001,   0.00001,
1793      +    0.00000,   0.00001,   0.00001,
1794      +    0.02071,   0.00220,   0.00038,   0.00002,   0.00001,
1795      +    0.00000,   0.00001,   0.00002,
1796      +    0.01785,   0.00187,   0.00030,   0.00002,   0.00001,
1797      +    0.00000,   0.00001,   0.00001,
1798      +    0.01558,   0.00161,   0.00024,   0.00001,   0.00001,
1799      +    0.00000,   0.00001,   0.00001 /
1800         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1801      +    0.01372,   0.00140,   0.00020,   0.00001,   0.00001,
1802      +    0.00000,   0.00001,   0.00001,
1803      +    0.01218,   0.00124,   0.00016,   0.00001,   0.00001,
1804      +    0.00000,   0.00001,   0.00001,
1805      +    0.01088,   0.00110,   0.00014,   0.00001,   0.00001,
1806      +    0.00000,   0.00001,   0.00001,
1807      +    0.00979,   0.00099,   0.00012,   0.00001,   0.00001,
1808      +    0.00000,   0.00001,   0.00001,
1809      +    0.00884,   0.00089,   0.00010,   0.00001,   0.00001,
1810      +    0.00000,   0.00001,   0.00001,
1811      +    0.00806,   0.00080,   0.00009,   0.00001,   0.00001,
1812      +    0.00000,   0.00001,   0.00001,
1813      +    0.00737,   0.00072,   0.00008,   0.00001,   0.00001,
1814      +    0.00000,   0.00001,   0.00001 /
1815         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1816      +    0.00675,   0.00067,   0.00007,   0.00001,   0.00001,
1817      +    0.00000,   0.00001,   0.00001,
1818      +    0.00622,   0.00060,   0.00006,   0.00001,   0.00001,
1819      +    0.00000,   0.00001,   0.00001,
1820      +    0.00574,   0.00056,   0.00006,   0.00001,   0.00001,
1821      +    0.00000,   0.00001,   0.00001,
1822      +    0.00531,   0.00051,   0.00005,   0.00001,   0.00001,
1823      +    0.00000,   0.00001,   0.00001,
1824      +    0.00494,   0.00047,   0.00005,   0.00001,   0.00001,
1825      +    0.00000,   0.00001,   0.00001 /
1826         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1827      +    0.02188,   0.00201,   0.00046,   0.00001,   0.00001,
1828      +    0.00000,   0.00001,   0.00001,
1829      +    0.01684,   0.00152,   0.00029,   0.00001,   0.00001,
1830      +    0.00000,   0.00001,   0.00001,
1831      +    0.01339,   0.00119,   0.00020,   0.00002,   0.00001,
1832      +    0.00000,   0.00001,   0.00001,
1833      +    0.01094,   0.00098,   0.00014,   0.00001,   0.00001,
1834      +    0.00000,   0.00001,   0.00001,
1835      +    0.00910,   0.00079,   0.00010,   0.00001,   0.00001,
1836      +    0.00000,   0.00001,   0.00001,
1837      +    0.00770,   0.00065,   0.00008,   0.00001,   0.00001,
1838      +    0.00000,   0.00001,   0.00001,
1839      +    0.00660,   0.00057,   0.00006,   0.00001,   0.00001,
1840      +    0.00000,   0.00001,   0.00001 /
1841         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1842      +    0.00572,   0.00049,   0.00005,   0.00001,   0.00001,
1843      +    0.00000,   0.00001,   0.00001,
1844      +    0.00500,   0.00042,   0.00004,   0.00001,   0.00001,
1845      +    0.00000,   0.00001,   0.00001,
1846      +    0.00441,   0.00036,   0.00004,   0.00001,   0.00001,
1847      +    0.00000,   0.00001,   0.00001,
1848      +    0.00393,   0.00031,   0.00003,   0.00001,   0.00001,
1849      +    0.00000,   0.00001,   0.00001,
1850      +    0.00351,   0.00028,   0.00003,   0.00001,   0.00001,
1851      +    0.00000,   0.00001,   0.00001,
1852      +    0.00316,   0.00025,   0.00002,   0.00001,   0.00001,
1853      +    0.00000,   0.00001,   0.00001,
1854      +    0.00285,   0.00022,   0.00002,   0.00001,   0.00001,
1855      +    0.00000,   0.00001,   0.00001 /
1856         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1857      +    0.00260,   0.00019,   0.00002,   0.00001,   0.00001,
1858      +    0.00000,   0.00001,   0.00001,
1859      +    0.00237,   0.00018,   0.00002,   0.00001,   0.00001,
1860      +    0.00000,   0.00001,   0.00001,
1861      +    0.00217,   0.00017,   0.00002,   0.00001,   0.00001,
1862      +    0.00000,   0.00001,   0.00001,
1863      +    0.00199,   0.00015,   0.00001,   0.00001,   0.00001,
1864      +    0.00000,   0.00001,   0.00001,
1865      +    0.00184,   0.00014,   0.00001,   0.00001,   0.00001,
1866      +    0.00000,   0.00001,   0.00001 /
1867         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1868      +    0.00198,   0.00011,   0.00001,   0.00001,   0.00001,
1869      +    0.00000,   0.00001,   0.00001,
1870      +    0.00141,   0.00008,   0.00001,   0.00001,   0.00001,
1871      +    0.00000,   0.00001,   0.00001,
1872      +    0.00106,   0.00006,   0.00001,   0.00001,   0.00001,
1873      +    0.00000,   0.00001,   0.00001,
1874      +    0.00080,   0.00004,   0.00000,   0.00001,   0.00001,
1875      +    0.00000,   0.00001,   0.00001,
1876      +    0.00063,   0.00004,   0.00000,   0.00000,   0.00000,
1877      +    0.00000,   0.00000,   0.00000,
1878      +    0.00051,   0.00003,   0.00000,   0.00000,   0.00000,
1879      +    0.00000,   0.00000,   0.00000,
1880      +    0.00042,   0.00002,   0.00000,   0.00000,   0.00000,
1881      +    0.00000,   0.00000,   0.00000 /
1882         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1883      +    0.00035,   0.00002,   0.00000,   0.00000,   0.00000,
1884      +    0.00000,   0.00000,   0.00000,
1885      +    0.00030,   0.00002,   0.00000,   0.00000,   0.00000,
1886      +    0.00000,   0.00000,   0.00000,
1887      +    0.00026,   0.00002,   0.00000,   0.00000,   0.00000,
1888      +    0.00000,   0.00000,   0.00000,
1889      +    0.00022,   0.00002,   0.00000,   0.00000,   0.00000,
1890      +    0.00000,   0.00000,   0.00000,
1891      +    0.00019,   0.00002,   0.00000,   0.00000,   0.00000,
1892      +    0.00000,   0.00000,   0.00000,
1893      +    0.00016,   0.00002,   0.00000,   0.00000,   0.00000,
1894      +    0.00000,   0.00000,   0.00000,
1895      +    0.00015,   0.00001,   0.00000,   0.00000,   0.00000,
1896      +    0.00000,   0.00000,   0.00000 /
1897         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1898      +    0.00013,   0.00001,   0.00000,   0.00000,   0.00000,
1899      +    0.00000,   0.00000,   0.00000,
1900      +    0.00012,   0.00001,   0.00000,   0.00000,   0.00000,
1901      +    0.00000,   0.00000,   0.00000,
1902      +    0.00010,   0.00001,   0.00000,   0.00000,   0.00000,
1903      +    0.00000,   0.00000,   0.00000,
1904      +    0.00009,   0.00001,   0.00000,   0.00000,   0.00000,
1905      +    0.00000,   0.00000,   0.00000,
1906      +    0.00008,   0.00001,   0.00000,   0.00000,   0.00000,
1907      +    0.00000,   0.00000,   0.00000 /
1908       DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1909      .        1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1910      .        1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1911      .        1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1912      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1913      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1914      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1915      .     .8D0,.9D0,1.D0/
1916       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1917       DATA N0/2,5,5,10,0,0,10,10/
1918       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1919       DATA INIT/0/
1920
1921
1922       XSAVE=X
1923
1924       IF(INIT.NE.0) GOTO 10
1925       INIT=1
1926       DO 20 N=1,NX-1
1927       DO 20 M=1,19
1928 C     READ(53,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),
1929 C    .          F(6,N,M),F(8,N,M)
1930 C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1931          DO 25 I=1,8
1932   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1933   20  CONTINUE
1934       DO 31 J=1,NTENTH-1
1935       XX(J)= LOG10(XX(J))+ONEDO
1936       DO 31 I=1,8
1937       IF(I.EQ.7) GO TO 31
1938       DO 30 K=1,19
1939   30  F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1940   31  CONTINUE
1941   50  FORMAT(8F10.5)
1942       DO 40 I=1,8
1943       DO 40 M=1,19
1944   40  F(I,NX,M)=ZEROD
1945   10  CONTINUE
1946       IF(X.LT.XMIN) X=XMIN
1947       IF(X.GT.XMAX) X=XMAX
1948       QSQ=SCALE**2
1949       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1950       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1951       XXX=X
1952       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1953       N=0
1954   70  N=N+1
1955       IF(XXX.GT.XX(N+1)) GOTO 70
1956       A=(XXX-XX(N))/(XX(N+1)-XX(N))
1957       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1958       B=RM-AINT(RM)
1959       M=1+  INT(RM)
1960       DO 60 I=1,8
1961       G(I)=ZEROD
1962       IF(XXX.GE.ONED) GOTO 60
1963       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1964      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
1965       IF(N.GE.NTENTH) GOTO 65
1966       IF(I.EQ.7) GOTO 65
1967           FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1968           G(I)=FAC**(G(I)/FAC)
1969   65  CONTINUE
1970       G(I)=G(I)*(ONED-X)**N0(I)
1971   60  CONTINUE
1972       UPV=G(1)
1973       DNV=G(2)
1974       USEA=G(4)
1975       DSEA=G(8)
1976       STR=G(6)
1977       CHM=G(5)
1978       GLU=G(3)
1979       BOT=G(7)
1980
1981       X=XSAVE
1982
1983       RETURN
1984       END