]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfdiss0.F
Ignoring MacOSX directory
[u/mrichter/AliRoot.git] / PDF / spdf / sfdiss0.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:29:44  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:35  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13       SUBROUTINE SFDISS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15 C     THIS IS THE NEW B0-TYPE FIT "S0'"  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.01733,   0.00079,   4.29007,   0.46317,   0.06785,
24      +    0.00000,   0.26832,   0.46689,
25      +    0.01777,   0.00090,  10.96969,   0.64698,   0.25154,
26      +    0.00000,   0.45214,   0.65044,
27      +    0.01819,   0.00100,  19.87027,   0.88114,   0.48562,
28      +    0.00000,   0.68633,   0.88438,
29      +    0.01858,   0.00109,  30.53786,   1.16076,   0.76516,
30      +    0.00000,   0.96597,   1.16378,
31      +    0.01894,   0.00119,  42.94975,   1.48412,   1.08844,
32      +    0.07130,   1.28936,   1.48695,
33      +    0.01930,   0.00129,  56.89287,   1.84855,   1.45281,
34      +    0.40611,   1.65382,   1.85121,
35      +    0.01963,   0.00138,  72.20888,   2.25266,   1.85687,
36      +    0.83810,   2.05797,   2.25515 /
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.01995,   0.00148,  88.74004,   2.69380,   2.29795,
39      +    1.30203,   2.49913,   2.69614,
40      +    0.02026,   0.00156, 106.35173,   3.16932,   2.77343,
41      +    1.80186,   2.97468,   3.17151,
42      +    0.02056,   0.00165, 124.94041,   3.67720,   3.28127,
43      +    2.33410,   3.48260,   3.67926,
44      +    0.02084,   0.00174, 144.43050,   4.21585,   3.81988,
45      +    2.89732,   4.02129,   4.21778,
46      +    0.02112,   0.00182, 164.67508,   4.78220,   4.38619,
47      +    3.48814,   4.58766,   4.78400,
48      +    0.02139,   0.00192, 185.36879,   5.36963,   4.97359,
49      +    4.09972,   5.17514,   5.37133,
50      +    0.02166,   0.00200, 206.77844,   5.98353,   5.58747,
51      +    4.73755,   5.78907,   5.98512 /
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.02191,   0.00208, 228.74190,   6.62047,   6.22438,
54      +    5.39807,   6.42604,   6.62195,
55      +    0.02216,   0.00216, 250.89102,   7.27179,   6.87569,
56      +    6.07236,   7.07740,   7.27318,
57      +    0.02240,   0.00225, 273.72388,   7.94850,   7.55238,
58      +    6.77177,   7.75415,   7.94980,
59      +    0.02263,   0.00232, 296.51294,   8.63398,   8.23784,
60      +    7.47914,   8.43966,   8.63524,
61      +    0.02287,   0.00241, 319.87012,   9.34186,   8.94570,
62      +    8.20858,   9.14757,   9.34301 /
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.02186,   0.00133,   4.15525,   0.45567,   0.06315,
65      +    0.00000,   0.26117,   0.45787,
66      +    0.02247,   0.00149,   9.97353,   0.61785,   0.22549,
67      +    0.00000,   0.42346,   0.61985,
68      +    0.02302,   0.00165,  17.40932,   0.81862,   0.42641,
69      +    0.00000,   0.62433,   0.82044,
70      +    0.02353,   0.00180,  26.05307,   1.05278,   0.66072,
71      +    0.00000,   0.85859,   1.05443,
72      +    0.02401,   0.00195,  35.86687,   1.31822,   0.92630,
73      +    0.05842,   1.12414,   1.31974,
74      +    0.02448,   0.00209,  46.66591,   1.61230,   1.22052,
75      +    0.32968,   1.41834,   1.61370,
76      +    0.02491,   0.00223,  58.31685,   1.93355,   1.54190,
77      +    0.67492,   1.73969,   1.93482 /
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.02533,   0.00237,  70.69379,   2.27958,   1.88805,
80      +    1.04033,   2.08582,   2.28074,
81      +    0.02573,   0.00251,  83.69285,   2.64813,   2.25672,
82      +    1.42913,   2.45444,   2.64918,
83      +    0.02613,   0.00264,  97.23681,   3.03745,   2.64616,
84      +    1.83841,   2.84386,   3.03840,
85      +    0.02650,   0.00278, 111.27096,   3.44624,   3.05506,
86      +    2.26700,   3.25275,   3.44709,
87      +    0.02686,   0.00291, 125.68948,   3.87206,   3.48100,
88      +    2.71229,   3.67866,   3.87283,
89      +    0.02720,   0.00303, 140.27439,   4.30995,   3.91899,
90      +    3.16911,   4.11663,   4.31065,
91      +    0.02755,   0.00316, 155.22564,   4.76391,   4.37306,
92      +    3.64162,   4.57067,   4.76452 /
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.02788,   0.00328, 170.42950,   5.23139,   4.84064,
95      +    4.12717,   5.03822,   5.23192,
96      +    0.02819,   0.00341, 185.62791,   5.70599,   5.31534,
97      +    4.61919,   5.51290,   5.70646,
98      +    0.02850,   0.00353, 201.18077,   6.19587,   5.80532,
99      +    5.12611,   6.00286,   6.19627,
100      +    0.02881,   0.00365, 216.57878,   6.68886,   6.29841,
101      +    5.63539,   6.49594,   6.68921,
102      +    0.02910,   0.00376, 232.25762,   7.19497,   6.80463,
103      +    6.15741,   7.00213,   7.19528 /
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.02751,   0.00222,   4.02437,   0.44755,   0.05849,
106      +    0.00000,   0.25394,   0.44862,
107      +    0.02829,   0.00247,   9.06631,   0.58947,   0.20083,
108      +    0.00000,   0.39608,   0.59042,
109      +    0.02902,   0.00271,  15.24934,   0.76026,   0.37199,
110      +    0.00000,   0.56707,   0.76109,
111      +    0.02970,   0.00295,  22.21999,   0.95491,   0.56702,
112      +    0.00000,   0.76193,   0.95565,
113      +    0.03033,   0.00317,  29.94127,   1.17131,   0.78374,
114      +    0.04760,   0.97850,   1.17195,
115      +    0.03092,   0.00339,  38.26198,   1.40703,   1.01979,
116      +    0.26617,   1.21441,   1.40760,
117      +    0.03149,   0.00361,  47.07710,   1.66074,   1.27381,
118      +    0.54061,   1.46829,   1.66123 /
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.03203,   0.00382,  56.29138,   1.93044,   1.54379,
121      +    0.82692,   1.73814,   1.93085,
122      +    0.03255,   0.00402,  65.82938,   2.21426,   1.82790,
123      +    1.12776,   2.02212,   2.21461,
124      +    0.03305,   0.00423,  75.63731,   2.51083,   2.12475,
125      +    1.44084,   2.31885,   2.51113,
126      +    0.03353,   0.00442,  85.67871,   2.81913,   2.43332,
127      +    1.76527,   2.62730,   2.81938,
128      +    0.03400,   0.00462,  95.88033,   3.13733,   2.75177,
129      +    2.09910,   2.94564,   3.13750,
130      +    0.03444,   0.00481, 106.08917,   3.46172,   3.07641,
131      +    2.43852,   3.27017,   3.46186,
132      +    0.03487,   0.00500, 116.45706,   3.79532,   3.41025,
133      +    2.78668,   3.60390,   3.79541 /
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.03530,   0.00518, 126.90576,   4.13628,   3.75145,
136      +    3.14167,   3.94499,   4.13633,
137      +    0.03570,   0.00536, 137.25620,   4.47995,   4.09535,
138      +    3.49873,   4.28879,   4.47995,
139      +    0.03609,   0.00555, 147.76971,   4.83234,   4.44797,
140      +    3.86410,   4.64131,   4.83231,
141      +    0.03648,   0.00571, 158.09094,   5.18467,   4.80051,
142      +    4.22873,   4.99375,   5.18460,
143      +    0.03685,   0.00589, 168.53088,   5.54422,   5.16028,
144      +    4.60020,   5.35343,   5.54412 /
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.03140,   0.00299,   3.94949,   0.44243,   0.05576,
147      +    0.00000,   0.24964,   0.44302,
148      +    0.03233,   0.00332,   8.57318,   0.57309,   0.18700,
149      +    0.00000,   0.38060,   0.57360,
150      +    0.03317,   0.00363,  14.10938,   0.72779,   0.34224,
151      +    0.00000,   0.53558,   0.72822,
152      +    0.03395,   0.00392,  20.23964,   0.90180,   0.51673,
153      +    0.00000,   0.70983,   0.90217,
154      +    0.03469,   0.00421,  26.93188,   1.09307,   0.70846,
155      +    0.04209,   0.90134,   1.09339,
156      +    0.03537,   0.00449,  34.05507,   1.29941,   0.91524,
157      +    0.23417,   1.10791,   1.29967,
158      +    0.03603,   0.00477,  41.52043,   1.51959,   1.13586,
159      +    0.47344,   1.32832,   1.51980 /
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.03667,   0.00503,  49.24931,   1.75186,   1.36853,
162      +    0.72097,   1.56080,   1.75203,
163      +    0.03726,   0.00529,  57.18089,   1.99461,   1.61168,
164      +    0.97916,   1.80376,   1.99475,
165      +    0.03783,   0.00555,  65.27330,   2.24667,   1.86411,
166      +    1.24606,   2.05602,   2.24678,
167      +    0.03839,   0.00581,  73.49934,   2.50718,   2.12497,
168      +    1.52094,   2.31670,   2.50724,
169      +    0.03893,   0.00605,  81.80083,   2.77459,   2.39273,
170      +    1.80219,   2.58429,   2.77462,
171      +    0.03944,   0.00629,  90.05473,   3.04582,   2.66430,
172      +    2.08664,   2.85570,   3.04582,
173      +    0.03994,   0.00652,  98.39052,   3.32346,   2.94226,
174      +    2.37699,   3.13351,   3.32343 /
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.04042,   0.00675, 106.74629,   3.60596,   3.22508,
177      +    2.67168,   3.41617,   3.60591,
178      +    0.04089,   0.00699, 114.97829,   3.88949,   3.50894,
179      +    2.96679,   3.69988,   3.88943,
180      +    0.04134,   0.00721, 123.30288,   4.17912,   3.79886,
181      +    3.26757,   3.98966,   4.17902,
182      +    0.04178,   0.00742, 131.43360,   4.46755,   4.08758,
183      +    3.56652,   4.27824,   4.46743,
184      +    0.04221,   0.00764, 139.62537,   4.76089,   4.38122,
185      +    3.87001,   4.57173,   4.76075 /
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.03447,   0.00370,   3.89704,   0.43859,   0.05382,
188      +    0.00000,   0.24655,   0.43894,
189      +    0.03550,   0.00408,   8.23885,   0.56152,   0.17745,
190      +    0.00000,   0.36983,   0.56181,
191      +    0.03643,   0.00445,  13.35069,   0.70540,   0.32198,
192      +    0.00000,   0.51403,   0.70564,
193      +    0.03730,   0.00480,  18.93910,   0.86576,   0.48294,
194      +    0.00000,   0.67470,   0.86597,
195      +    0.03812,   0.00515,  24.97672,   1.04064,   0.65838,
196      +    0.03852,   0.84986,   1.04080,
197      +    0.03888,   0.00548,  31.34653,   1.22802,   0.84630,
198      +    0.21350,   1.03751,   1.22815,
199      +    0.03961,   0.00581,  37.97078,   1.42677,   1.04555,
200      +    0.43028,   1.23651,   1.42687 /
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.04030,   0.00612,  44.78175,   1.63530,   1.25457,
203      +    0.65319,   1.44529,   1.63537,
204      +    0.04096,   0.00643,  51.72809,   1.85217,   1.47192,
205      +    0.88451,   1.66241,   1.85223,
206      +    0.04160,   0.00674,  58.77548,   2.07636,   1.69655,
207      +    1.12249,   1.88683,   2.07640,
208      +    0.04221,   0.00703,  65.90230,   2.30709,   1.92772,
209      +    1.36652,   2.11779,   2.30711,
210      +    0.04280,   0.00732,  73.05998,   2.54304,   2.16409,
211      +    1.61519,   2.35395,   2.54305,
212      +    0.04337,   0.00761,  80.14357,   2.78151,   2.40296,
213      +    1.86575,   2.59261,   2.78150,
214      +    0.04392,   0.00788,  87.26857,   3.02479,   2.64663,
215      +    2.12062,   2.83610,   3.02476 /
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.04444,   0.00815,  94.38304,   3.27156,   2.89377,
218      +    2.37844,   3.08306,   3.27151,
219      +    0.04496,   0.00842, 101.36421,   3.51848,   3.14107,
220      +    2.63584,   3.33017,   3.51842,
221      +    0.04546,   0.00868, 108.40167,   3.77000,   3.39296,
222      +    2.89741,   3.58188,   3.76994,
223      +    0.04595,   0.00894, 115.24945,   4.01979,   3.64310,
224      +    3.15667,   3.83185,   4.01972,
225      +    0.04641,   0.00919, 122.12920,   4.27322,   3.89686,
226      +    3.41918,   4.08545,   4.27313 /
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.03705,   0.00435,   3.85671,   0.43552,   0.05231,
229      +    0.00000,   0.24411,   0.43571,
230      +    0.03816,   0.00480,   7.98792,   0.55257,   0.17023,
231      +    0.00000,   0.36158,   0.55273,
232      +    0.03917,   0.00522,  12.78898,   0.68841,   0.30683,
233      +    0.00000,   0.49780,   0.68854,
234      +    0.04010,   0.00562,  17.98566,   0.83871,   0.45786,
235      +    0.00000,   0.64847,   0.83881,
236      +    0.04098,   0.00601,  23.55469,   1.00164,   0.62147,
237      +    0.03592,   0.81174,   1.00172,
238      +    0.04181,   0.00639,  29.38963,   1.17530,   0.79576,
239      +    0.19855,   0.98572,   1.17537,
240      +    0.04260,   0.00676,  35.42102,   1.35865,   0.97971,
241      +    0.39916,   1.16938,   1.35870 /
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.04335,   0.00713,  41.58891,   1.55022,   1.17186,
244      +    0.60449,   1.36125,   1.55027,
245      +    0.04407,   0.00748,  47.84892,   1.74872,   1.37090,
246      +    0.81671,   1.56001,   1.74875,
247      +    0.04475,   0.00782,  54.17197,   1.95319,   1.57589,
248      +    1.03422,   1.76475,   1.95322,
249      +    0.04541,   0.00816,  60.54033,   2.16297,   1.78617,
250      +    1.25652,   1.97479,   2.16299,
251      +    0.04604,   0.00848,  66.91216,   2.37685,   2.00054,
252      +    1.48234,   2.18891,   2.37686,
253      +    0.04665,   0.00880,  73.19493,   2.59240,   2.21656,
254      +    1.70920,   2.40470,   2.59241,
255      +    0.04724,   0.00911,  79.49432,   2.81174,   2.43635,
256      +    1.93933,   2.62427,   2.81174 /
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.04781,   0.00943,  85.76529,   3.03369,   2.65873,
259      +    2.17155,   2.84643,   3.03368,
260      +    0.04837,   0.00972,  91.89941,   3.25525,   2.88071,
261      +    2.40281,   3.06821,   3.25524,
262      +    0.04890,   0.01002,  98.06761,   3.48046,   3.10632,
263      +    2.63730,   3.29362,   3.48044,
264      +    0.04943,   0.01031, 104.05170,   3.70361,   3.32989,
265      +    2.86919,   3.51699,   3.70360,
266      +    0.04993,   0.01059, 110.05058,   3.92959,   3.55624,
267      +    3.10353,   3.74316,   3.92957 /
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.04617,   0.00719,   3.73301,   0.42494,   0.04753,
270      +    0.00000,   0.23618,   0.42491,
271      +    0.04757,   0.00787,   7.25156,   0.52456,   0.14833,
272      +    0.00000,   0.33638,   0.52454,
273      +    0.04884,   0.00851,  11.17987,   0.63710,   0.26195,
274      +    0.00000,   0.44946,   0.63709,
275      +    0.05003,   0.00912,  15.30139,   0.75899,   0.38485,
276      +    0.00000,   0.57186,   0.75902,
277      +    0.05113,   0.00971,  19.60672,   0.88872,   0.51550,
278      +    0.02874,   0.70205,   0.88877,
279      +    0.05217,   0.01028,  24.02007,   1.02478,   0.65245,
280      +    0.15752,   0.83856,   1.02486,
281      +    0.05316,   0.01084,  28.49510,   1.16640,   0.79491,
282      +    0.31428,   0.98060,   1.16650 /
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.05411,   0.01138,  32.99355,   1.31251,   0.94180,
285      +    0.47242,   1.12711,   1.31262,
286      +    0.05501,   0.01190,  37.48895,   1.46213,   1.09217,
287      +    0.63383,   1.27711,   1.46226,
288      +    0.05587,   0.01241,  41.96594,   1.61460,   1.24538,
289      +    0.79737,   1.42995,   1.61476,
290      +    0.05669,   0.01291,  46.41725,   1.76949,   1.40095,
291      +    0.96273,   1.58517,   1.76965,
292      +    0.05749,   0.01339,  50.81726,   1.92594,   1.55807,
293      +    1.12906,   1.74196,   1.92613,
294      +    0.05826,   0.01386,  55.10451,   2.08227,   1.71502,
295      +    1.29465,   1.89861,   2.08246,
296      +    0.05900,   0.01431,  59.35997,   2.24004,   1.87341,
297      +    1.46118,   2.05668,   2.24024 /
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.05971,   0.01476,  63.55490,   2.39847,   2.03245,
300      +    1.62788,   2.21542,   2.39869,
301      +    0.06040,   0.01519,  67.61636,   2.55546,   2.19000,
302      +    1.79261,   2.37269,   2.55569,
303      +    0.06108,   0.01562,  71.66826,   2.71396,   2.34906,
304      +    1.95847,   2.53147,   2.71421,
305      +    0.06173,   0.01603,  75.56110,   2.86995,   2.50560,
306      +    2.12134,   2.68774,   2.87022,
307      +    0.06236,   0.01644,  79.43605,   3.02695,   2.66313,
308      +    2.28489,   2.84500,   3.02723 /
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.05724,   0.01180,   3.61060,   0.41244,   0.04254,
311      +    0.00000,   0.22740,   0.41242,
312      +    0.05898,   0.01282,   6.57201,   0.49574,   0.12734,
313      +    0.00000,   0.31146,   0.49577,
314      +    0.06057,   0.01380,   9.74883,   0.58745,   0.22041,
315      +    0.00000,   0.40385,   0.58750,
316      +    0.06204,   0.01472,  12.97729,   0.68475,   0.31899,
317      +    0.00000,   0.50180,   0.68485,
318      +    0.06340,   0.01560,  16.26187,   0.78648,   0.42191,
319      +    0.02274,   0.60414,   0.78662,
320      +    0.06469,   0.01645,  19.55322,   0.89152,   0.52806,
321      +    0.12360,   0.70974,   0.89170,
322      +    0.06592,   0.01727,  22.82423,   0.99932,   0.63694,
323      +    0.24474,   0.81808,   0.99952 /
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.06710,   0.01807,  26.05367,   1.10912,   0.74776,
326      +    0.36517,   0.92840,   1.10936,
327      +    0.06822,   0.01885,  29.22864,   1.22027,   0.85987,
328      +    0.48654,   1.04003,   1.22053,
329      +    0.06929,   0.01959,  32.34377,   1.33232,   0.97285,
330      +    0.60806,   1.15255,   1.33261,
331      +    0.07032,   0.02031,  35.39905,   1.44500,   1.08642,
332      +    0.72962,   1.26568,   1.44532,
333      +    0.07131,   0.02101,  38.38046,   1.55777,   1.20004,
334      +    0.85067,   1.37888,   1.55811,
335      +    0.07226,   0.02169,  41.24855,   1.66944,   1.31254,
336      +    0.97003,   1.49096,   1.66981,
337      +    0.07318,   0.02236,  44.06503,   1.78122,   1.42511,
338      +    1.08903,   1.60314,   1.78160 /
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.07407,   0.02299,  46.81233,   1.89259,   1.53725,
341      +    1.20716,   1.71490,   1.89300,
342      +    0.07494,   0.02362,  49.44273,   2.00210,   1.64751,
343      +    1.32297,   1.82477,   2.00253,
344      +    0.07577,   0.02423,  52.04507,   2.11192,   1.75804,
345      +    1.43873,   1.93496,   2.11235,
346      +    0.07657,   0.02482,  54.51849,   2.21922,   1.86604,
347      +    1.55156,   2.04260,   2.21968,
348      +    0.07736,   0.02541,  56.96199,   2.32655,   1.97406,
349      +    1.66414,   2.15028,   2.32703 /
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.06478,   0.01572,   3.53868,   0.40397,   0.03947,
352      +    0.00000,   0.22167,   0.40399,
353      +    0.06673,   0.01701,   6.19576,   0.47825,   0.11548,
354      +    0.00000,   0.29683,   0.47830,
355      +    0.06853,   0.01825,   8.97954,   0.55882,   0.19762,
356      +    0.00000,   0.37820,   0.55892,
357      +    0.07019,   0.01942,  11.75466,   0.64334,   0.28360,
358      +    0.00000,   0.46345,   0.64346,
359      +    0.07173,   0.02052,  14.53299,   0.73080,   0.37242,
360      +    0.01969,   0.55161,   0.73096,
361      +    0.07320,   0.02159,  17.27850,   0.82028,   0.46318,
362      +    0.10654,   0.64174,   0.82047,
363      +    0.07459,   0.02263,  19.97362,   0.91136,   0.55548,
364      +    0.21002,   0.73344,   0.91156 /
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.07592,   0.02363,  22.60497,   1.00344,   0.64873,
367      +    0.31199,   0.82610,   1.00367,
368      +    0.07718,   0.02458,  25.16585,   1.09600,   0.74240,
369      +    0.41398,   0.91923,   1.09625,
370      +    0.07840,   0.02550,  27.65526,   1.18873,   0.83619,
371      +    0.51538,   1.01248,   1.18899,
372      +    0.07956,   0.02641,  30.07607,   1.28140,   0.92989,
373      +    0.61614,   1.10569,   1.28170,
374      +    0.08069,   0.02727,  32.41937,   1.37364,   1.02310,
375      +    0.71586,   1.19841,   1.37395,
376      +    0.08177,   0.02810,  34.65535,   1.46448,   1.11489,
377      +    0.81364,   1.28973,   1.46481,
378      +    0.08281,   0.02892,  36.83626,   1.55496,   1.20628,
379      +    0.91060,   1.38067,   1.55531 /
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.08381,   0.02970,  38.94960,   1.64468,   1.29688,
382      +    1.00637,   1.47083,   1.64505,
383      +    0.08479,   0.03046,  40.95848,   1.73249,   1.38554,
384      +    1.09978,   1.55907,   1.73286,
385      +    0.08573,   0.03122,  42.93570,   1.82018,   1.47406,
386      +    1.19277,   1.64717,   1.82057,
387      +    0.08666,   0.03194,  44.80157,   1.90548,   1.56016,
388      +    1.28298,   1.73287,   1.90589,
389      +    0.08755,   0.03264,  46.63640,   1.99050,   1.64595,
390      +    1.37264,   1.81828,   1.99091 /
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.07065,   0.01922,   3.48702,   0.39740,   0.03723,
393      +    0.00000,   0.21731,   0.39740,
394      +    0.07277,   0.02077,   5.93614,   0.46554,   0.10727,
395      +    0.00000,   0.28641,   0.46556,
396      +    0.07471,   0.02223,   8.45852,   0.53870,   0.18218,
397      +    0.00000,   0.36047,   0.53874,
398      +    0.07652,   0.02359,  10.93790,   0.61483,   0.25993,
399      +    0.00000,   0.43742,   0.61489,
400      +    0.07822,   0.02490,  13.39093,   0.69305,   0.33966,
401      +    0.01772,   0.51640,   0.69314,
402      +    0.07981,   0.02615,  15.79024,   0.77254,   0.42056,
403      +    0.09552,   0.59662,   0.77264,
404      +    0.08134,   0.02735,  18.12395,   0.85298,   0.50237,
405      +    0.18770,   0.67774,   0.85310 /
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.08279,   0.02852,  20.38364,   0.93387,   0.58454,
408      +    0.27795,   0.75929,   0.93400,
409      +    0.08418,   0.02964,  22.56622,   1.01477,   0.66666,
410      +    0.36771,   0.84080,   1.01491,
411      +    0.08550,   0.03070,  24.67316,   1.09543,   0.74849,
412      +    0.45649,   0.92205,   1.09559,
413      +    0.08678,   0.03173,  26.70900,   1.17570,   0.82989,
414      +    0.54429,   1.00289,   1.17588,
415      +    0.08801,   0.03273,  28.66769,   1.25524,   0.91051,
416      +    0.63080,   1.08298,   1.25543,
417      +    0.08919,   0.03370,  30.52516,   1.33327,   0.98959,
418      +    0.71525,   1.16153,   1.33347,
419      +    0.09033,   0.03464,  32.32776,   1.41071,   1.06803,
420      +    0.79868,   1.23947,   1.41092 /
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.09144,   0.03554,  34.06572,   1.48724,   1.14552,
423      +    0.88078,   1.31649,   1.48745,
424      +    0.09250,   0.03641,  35.70857,   1.56185,   1.22108,
425      +    0.96057,   1.39158,   1.56208,
426      +    0.09354,   0.03727,  37.31926,   1.63615,   1.29628,
427      +    1.03973,   1.46634,   1.63638,
428      +    0.09453,   0.03810,  38.83084,   1.70817,   1.36920,
429      +    1.11628,   1.53880,   1.70843,
430      +    0.09551,   0.03891,  40.31206,   1.77977,   1.44164,
431      +    1.19213,   1.61083,   1.78002 /
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.07575,   0.02246,   3.44586,   0.39158,   0.03547,
434      +    0.00000,   0.21354,   0.39165,
435      +    0.07804,   0.02421,   5.73444,   0.45514,   0.10115,
436      +    0.00000,   0.27817,   0.45524,
437      +    0.08014,   0.02585,   8.05824,   0.52284,   0.17080,
438      +    0.00000,   0.34685,   0.52297,
439      +    0.08208,   0.02740,  10.31600,   0.59281,   0.24258,
440      +    0.00000,   0.41773,   0.59296,
441      +    0.08389,   0.02887,  12.52815,   0.66427,   0.31570,
442      +    0.01627,   0.49003,   0.66444,
443      +    0.08562,   0.03028,  14.67377,   0.73650,   0.38952,
444      +    0.08748,   0.56306,   0.73671,
445      +    0.08726,   0.03163,  16.74510,   0.80921,   0.46371,
446      +    0.17143,   0.63653,   0.80943 /
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.08883,   0.03293,  18.73683,   0.88200,   0.53791,
449      +    0.25319,   0.71003,   0.88223,
450      +    0.09032,   0.03417,  20.64867,   0.95449,   0.61176,
451      +    0.33414,   0.78321,   0.95475,
452      +    0.09175,   0.03537,  22.48331,   1.02648,   0.68504,
453      +    0.41384,   0.85585,   1.02675,
454      +    0.09312,   0.03652,  24.24609,   1.09785,   0.75764,
455      +    0.49234,   0.92784,   1.09813,
456      +    0.09443,   0.03763,  25.93327,   1.16834,   0.82932,
457      +    0.56942,   0.99893,   1.16864,
458      +    0.09571,   0.03870,  27.52582,   1.23724,   0.89936,
459      +    0.64439,   1.06840,   1.23756,
460      +    0.09694,   0.03973,  29.06483,   1.30540,   0.96862,
461      +    0.71820,   1.13712,   1.30574 /
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.09812,   0.04073,  30.54247,   1.37257,   1.03683,
464      +    0.79061,   1.20481,   1.37290,
465      +    0.09927,   0.04170,  31.93173,   1.43787,   1.10316,
466      +    0.86079,   1.27063,   1.43822,
467      +    0.10038,   0.04264,  33.28932,   1.50274,   1.16901,
468      +    0.93022,   1.33599,   1.50309,
469      +    0.10146,   0.04355,  34.55812,   1.56545,   1.23268,
470      +    0.99719,   1.39919,   1.56581,
471      +    0.10251,   0.04444,  35.79784,   1.62763,   1.29579,
472      +    1.06338,   1.46183,   1.62801 /
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.09387,   0.03612,   3.31354,   0.37050,   0.02961,
475      +    0.00000,   0.20010,   0.37051,
476      +    0.09673,   0.03868,   5.13062,   0.42065,   0.08251,
477      +    0.00000,   0.25164,   0.42070,
478      +    0.09937,   0.04107,   6.89413,   0.47280,   0.13715,
479      +    0.00000,   0.30504,   0.47285,
480      +    0.10183,   0.04329,   8.54430,   0.52555,   0.19221,
481      +    0.00000,   0.35895,   0.52563,
482      +    0.10412,   0.04538,  10.11025,   0.57841,   0.24719,
483      +    0.01230,   0.41289,   0.57850,
484      +    0.10631,   0.04737,  11.58706,   0.63089,   0.30168,
485      +    0.06555,   0.46640,   0.63101,
486      +    0.10839,   0.04925,  12.97707,   0.68288,   0.35558,
487      +    0.12737,   0.51934,   0.68302 /
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.11037,   0.05105,  14.28305,   0.73416,   0.40865,
490      +    0.18654,   0.57152,   0.73430,
491      +    0.11225,   0.05276,  15.51007,   0.78453,   0.46073,
492      +    0.24425,   0.62275,   0.78469,
493      +    0.11407,   0.05440,  16.66443,   0.83390,   0.51173,
494      +    0.30027,   0.67295,   0.83408,
495      +    0.11581,   0.05596,  17.75340,   0.88226,   0.56164,
496      +    0.35474,   0.72209,   0.88245,
497      +    0.11747,   0.05746,  18.77751,   0.92949,   0.61036,
498      +    0.40758,   0.77007,   0.92968,
499      +    0.11907,   0.05890,  19.72649,   0.97514,   0.65743,
500      +    0.45838,   0.81643,   0.97533,
501      +    0.12062,   0.06028,  20.63014,   1.01983,   0.70350,
502      +    0.50786,   0.86182,   1.02003 /
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.12211,   0.06161,  21.48483,   1.06344,   0.74843,
505      +    0.55592,   0.90609,   1.06366,
506      +    0.12355,   0.06288,  22.27466,   1.10543,   0.79170,
507      +    0.60203,   0.94872,   1.10566,
508      +    0.12494,   0.06412,  23.03784,   1.14680,   0.83429,
509      +    0.64727,   0.99071,   1.14702,
510      +    0.12629,   0.06531,  23.73854,   1.18640,   0.87508,
511      +    0.69048,   1.03091,   1.18663,
512      +    0.12760,   0.06647,  24.41621,   1.22538,   0.91521,
513      +    0.73287,   1.07046,   1.22562 /
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.11706,   0.05734,   3.16801,   0.34287,   0.02313,
516      +    0.00002,   0.18302,   0.34292,
517      +    0.12074,   0.06097,   4.54812,   0.38102,   0.06471,
518      +    0.00002,   0.22291,   0.38110,
519      +    0.12415,   0.06430,   5.82263,   0.41969,   0.10652,
520      +    0.00001,   0.26316,   0.41980,
521      +    0.12732,   0.06736,   6.96601,   0.45791,   0.14759,
522      +    0.00002,   0.30282,   0.45805,
523      +    0.13030,   0.07020,   8.01228,   0.49543,   0.18776,
524      +    0.00905,   0.34167,   0.49559,
525      +    0.13310,   0.07286,   8.96691,   0.53194,   0.22675,
526      +    0.04768,   0.37944,   0.53212,
527      +    0.13578,   0.07537,   9.83846,   0.56743,   0.26459,
528      +    0.09177,   0.41611,   0.56762 /
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.13833,   0.07772,  10.63628,   0.60187,   0.30123,
531      +    0.13317,   0.45165,   0.60207,
532      +    0.14075,   0.07995,  11.36589,   0.63516,   0.33661,
533      +    0.17288,   0.48600,   0.63537,
534      +    0.14305,   0.08205,  12.03519,   0.66731,   0.37076,
535      +    0.21083,   0.51915,   0.66752,
536      +    0.14526,   0.08405,  12.65259,   0.69835,   0.40370,
537      +    0.24719,   0.55115,   0.69857,
538      +    0.14737,   0.08596,  13.22074,   0.72824,   0.43538,
539      +    0.28195,   0.58194,   0.72846,
540      +    0.14941,   0.08775,  13.73528,   0.75676,   0.46564,
541      +    0.31496,   0.61134,   0.75699,
542      +    0.15136,   0.08947,  14.21533,   0.78438,   0.49494,
543      +    0.34675,   0.63980,   0.78463 /
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.15324,   0.09113,  14.65937,   0.81104,   0.52319,
546      +    0.37729,   0.66726,   0.81130,
547      +    0.15504,   0.09270,  15.06073,   0.83635,   0.55004,
548      +    0.40621,   0.69334,   0.83660,
549      +    0.15678,   0.09422,  15.44333,   0.86105,   0.57622,
550      +    0.43431,   0.71878,   0.86130,
551      +    0.15847,   0.09567,  15.78525,   0.88444,   0.60104,
552      +    0.46089,   0.74289,   0.88469,
553      +    0.16010,   0.09706,  16.11134,   0.90725,   0.62524,
554      +    0.48672,   0.76639,   0.90751 /
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.13371,   0.07456,   3.07186,   0.32337,   0.01902,
557      +    0.00001,   0.17120,   0.32337,
558      +    0.13806,   0.07890,   4.21376,   0.35516,   0.05469,
559      +    0.00003,   0.20495,   0.35520,
560      +    0.14207,   0.08286,   5.23497,   0.38687,   0.08993,
561      +    0.00001,   0.23843,   0.38693,
562      +    0.14580,   0.08643,   6.12600,   0.41776,   0.12404,
563      +    0.00003,   0.27096,   0.41783,
564      +    0.14927,   0.08973,   6.92145,   0.44766,   0.15690,
565      +    0.00743,   0.30235,   0.44775,
566      +    0.15258,   0.09279,   7.63109,   0.47636,   0.18839,
567      +    0.03887,   0.33246,   0.47647,
568      +    0.15569,   0.09563,   8.26689,   0.50392,   0.21855,
569      +    0.07437,   0.36133,   0.50404 /
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.15864,   0.09831,   8.83561,   0.53036,   0.24745,
572      +    0.10729,   0.38899,   0.53048,
573      +    0.16145,   0.10080,   9.34709,   0.55563,   0.27505,
574      +    0.13852,   0.41544,   0.55576,
575      +    0.16412,   0.10315,   9.80844,   0.57980,   0.30144,
576      +    0.16808,   0.44073,   0.57994,
577      +    0.16667,   0.10538,  10.22624,   0.60294,   0.32668,
578      +    0.19616,   0.46492,   0.60308,
579      +    0.16909,   0.10747,  10.60383,   0.62501,   0.35076,
580      +    0.22278,   0.48800,   0.62518,
581      +    0.17140,   0.10944,  10.93835,   0.64585,   0.37350,
582      +    0.24780,   0.50980,   0.64601,
583      +    0.17364,   0.11131,  11.24630,   0.66588,   0.39536,
584      +    0.27170,   0.53073,   0.66603 /
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.17577,   0.11309,  11.52735,   0.68504,   0.41628,
587      +    0.29450,   0.55078,   0.68520,
588      +    0.17781,   0.11478,  11.77610,   0.70310,   0.43603,
589      +    0.31595,   0.56967,   0.70327,
590      +    0.17980,   0.11641,  12.01053,   0.72060,   0.45516,
591      +    0.33667,   0.58800,   0.72078,
592      +    0.18168,   0.11795,  12.21411,   0.73700,   0.47314,
593      +    0.35608,   0.60518,   0.73719,
594      +    0.18352,   0.11943,  12.40637,   0.75291,   0.49056,
595      +    0.37485,   0.62186,   0.75310 /
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.14743,   0.08941,   2.99614,   0.30777,   0.01596,
598      +    0.00001,   0.16188,   0.30779,
599      +    0.15235,   0.09428,   3.97682,   0.33534,   0.04777,
600      +    0.00002,   0.19159,   0.33541,
601      +    0.15689,   0.09867,   4.83251,   0.36253,   0.07876,
602      +    0.00001,   0.22070,   0.36262,
603      +    0.16110,   0.10260,   5.56287,   0.38870,   0.10841,
604      +    0.00003,   0.24862,   0.38881,
605      +    0.16501,   0.10620,   6.20227,   0.41377,   0.13666,
606      +    0.00640,   0.27529,   0.41389,
607      +    0.16870,   0.10949,   6.76239,   0.43757,   0.16346,
608      +    0.03328,   0.30059,   0.43770,
609      +    0.17219,   0.11254,   7.25574,   0.46018,   0.18887,
610      +    0.06340,   0.32461,   0.46034 /
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.17546,   0.11539,   7.68960,   0.48168,   0.21301,
613      +    0.09107,   0.34743,   0.48182,
614      +    0.17857,   0.11803,   8.07348,   0.50206,   0.23588,
615      +    0.11709,   0.36907,   0.50221,
616      +    0.18153,   0.12050,   8.41432,   0.52140,   0.25758,
617      +    0.14155,   0.38958,   0.52155,
618      +    0.18434,   0.12282,   8.71826,   0.53976,   0.27817,
619      +    0.16461,   0.40907,   0.53992,
620      +    0.18699,   0.12500,   8.98860,   0.55715,   0.29770,
621      +    0.18633,   0.42753,   0.55732,
622      +    0.18953,   0.12704,   9.22349,   0.57343,   0.31602,
623      +    0.20660,   0.44483,   0.57360,
624      +    0.19196,   0.12897,   9.43674,   0.58896,   0.33350,
625      +    0.22585,   0.46134,   0.58914 /
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.19429,   0.13080,   9.62837,   0.60375,   0.35014,
628      +    0.24411,   0.47705,   0.60392,
629      +    0.19651,   0.13251,   9.79422,   0.61755,   0.36574,
630      +    0.26118,   0.49175,   0.61774,
631      +    0.19866,   0.13416,   9.94882,   0.63087,   0.38079,
632      +    0.27759,   0.50593,   0.63107,
633      +    0.20070,   0.13572,  10.07921,   0.64326,   0.39483,
634      +    0.29288,   0.51914,   0.64345,
635      +    0.20267,   0.13721,  10.20098,   0.65522,   0.40839,
636      +    0.30760,   0.53190,   0.65539 /
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.15902,   0.10267,   2.93193,   0.29486,   0.01357,
639      +    0.00003,   0.15442,   0.29492,
640      +    0.16452,   0.10793,   3.79241,   0.31936,   0.04262,
641      +    0.00003,   0.18121,   0.31944,
642      +    0.16959,   0.11262,   4.52823,   0.34328,   0.07064,
643      +    0.00004,   0.20717,   0.34341,
644      +    0.17423,   0.11680,   5.14390,   0.36609,   0.09714,
645      +    0.00004,   0.23181,   0.36619,
646      +    0.17855,   0.12057,   5.67441,   0.38770,   0.12217,
647      +    0.00567,   0.25514,   0.38782,
648      +    0.18261,   0.12403,   6.13175,   0.40804,   0.14568,
649      +    0.02933,   0.27707,   0.40819,
650      +    0.18641,   0.12721,   6.52844,   0.42722,   0.16784,
651      +    0.05567,   0.29774,   0.42738 /
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.18998,   0.13013,   6.87192,   0.44531,   0.18870,
654      +    0.07967,   0.31722,   0.44548,
655      +    0.19338,   0.13283,   7.17072,   0.46232,   0.20833,
656      +    0.10209,   0.33554,   0.46250,
657      +    0.19656,   0.13534,   7.43224,   0.47832,   0.22681,
658      +    0.12301,   0.35279,   0.47850,
659      +    0.19957,   0.13770,   7.66248,   0.49342,   0.24426,
660      +    0.14262,   0.36905,   0.49358,
661      +    0.20241,   0.13991,   7.86430,   0.50761,   0.26068,
662      +    0.16099,   0.38436,   0.50776,
663      +    0.20514,   0.14194,   8.03505,   0.52082,   0.27602,
664      +    0.17804,   0.39862,   0.52098,
665      +    0.20775,   0.14387,   8.18813,   0.53334,   0.29057,
666      +    0.19417,   0.41216,   0.53351 /
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.21022,   0.14569,   8.32394,   0.54518,   0.30435,
669      +    0.20939,   0.42497,   0.54533,
670      +    0.21258,   0.14740,   8.43829,   0.55617,   0.31720,
671      +    0.22355,   0.43688,   0.55632,
672      +    0.21486,   0.14902,   8.54348,   0.56672,   0.32954,
673      +    0.23710,   0.44832,   0.56688,
674      +    0.21701,   0.15053,   8.62821,   0.57642,   0.34098,
675      +    0.24965,   0.45890,   0.57659,
676      +    0.21911,   0.15199,   8.70650,   0.58575,   0.35199,
677      +    0.26169,   0.46907,   0.58593 /
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.20616,   0.15390,   2.68535,   0.24856,   0.00583,
680      +    0.00002,   0.12758,   0.24859,
681      +    0.21388,   0.15999,   3.20192,   0.26461,   0.02713,
682      +    0.00003,   0.14623,   0.26462,
683      +    0.22084,   0.16520,   3.61007,   0.27963,   0.04684,
684      +    0.00001,   0.16359,   0.27966,
685      +    0.22713,   0.16963,   3.92668,   0.29331,   0.06479,
686      +    0.00002,   0.17940,   0.29338,
687      +    0.23284,   0.17355,   4.17998,   0.30586,   0.08119,
688      +    0.00369,   0.19386,   0.30593,
689      +    0.23805,   0.17696,   4.38400,   0.31721,   0.09613,
690      +    0.01878,   0.20700,   0.31731,
691      +    0.24286,   0.18001,   4.54719,   0.32755,   0.10979,
692      +    0.03523,   0.21899,   0.32763 /
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.24730,   0.18275,   4.67801,   0.33697,   0.12230,
695      +    0.04982,   0.22992,   0.33703,
696      +    0.25144,   0.18517,   4.78318,   0.34553,   0.13377,
697      +    0.06313,   0.23994,   0.34559,
698      +    0.25529,   0.18737,   4.86669,   0.35333,   0.14432,
699      +    0.07527,   0.24910,   0.35340,
700      +    0.25888,   0.18939,   4.93266,   0.36046,   0.15405,
701      +    0.08641,   0.25752,   0.36053,
702      +    0.26227,   0.19121,   4.98391,   0.36697,   0.16302,
703      +    0.09666,   0.26525,   0.36705,
704      +    0.26538,   0.19288,   5.02071,   0.37283,   0.17122,
705      +    0.10599,   0.27228,   0.37289,
706      +    0.26834,   0.19441,   5.04895,   0.37824,   0.17884,
707      +    0.11467,   0.27880,   0.37830 /
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.27113,   0.19581,   5.06879,   0.38319,   0.18592,
710      +    0.12271,   0.28481,   0.38327,
711      +    0.27374,   0.19707,   5.07871,   0.38762,   0.19237,
712      +    0.13004,   0.29023,   0.38770,
713      +    0.27622,   0.19825,   5.08545,   0.39177,   0.19846,
714      +    0.13697,   0.29536,   0.39187,
715      +    0.27852,   0.19933,   5.08372,   0.39546,   0.20400,
716      +    0.14326,   0.29995,   0.39551,
717      +    0.28073,   0.20035,   5.08013,   0.39891,   0.20925,
718      +    0.14923,   0.30430,   0.39896 /
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.27907,   0.21842,   2.32789,   0.19544,   0.00001,
721      +    0.00013,   0.09712,   0.19532,
722      +    0.28940,   0.22357,   2.55412,   0.20447,   0.01320,
723      +    0.00012,   0.10902,   0.20439,
724      +    0.29821,   0.22765,   2.70850,   0.21237,   0.02621,
725      +    0.00009,   0.11943,   0.21218,
726      +    0.30588,   0.23078,   2.80796,   0.21900,   0.03742,
727      +    0.00010,   0.12836,   0.21887,
728      +    0.31262,   0.23324,   2.87312,   0.22462,   0.04726,
729      +    0.00201,   0.13609,   0.22454,
730      +    0.31848,   0.23523,   2.91302,   0.22939,   0.05584,
731      +    0.01059,   0.14274,   0.22922,
732      +    0.32369,   0.23678,   2.93383,   0.23334,   0.06336,
733      +    0.01972,   0.14848,   0.23325 /
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.32831,   0.23802,   2.94055,   0.23675,   0.07002,
736      +    0.02757,   0.15349,   0.23661,
737      +    0.33252,   0.23899,   2.93646,   0.23954,   0.07593,
738      +    0.03451,   0.15785,   0.23946,
739      +    0.33629,   0.23977,   2.92475,   0.24189,   0.08118,
740      +    0.04067,   0.16164,   0.24183,
741      +    0.33963,   0.24040,   2.90766,   0.24390,   0.08588,
742      +    0.04619,   0.16498,   0.24379,
743      +    0.34274,   0.24084,   2.88592,   0.24551,   0.09008,
744      +    0.05113,   0.16789,   0.24545,
745      +    0.34551,   0.24111,   2.85969,   0.24680,   0.09378,
746      +    0.05553,   0.17037,   0.24670,
747      +    0.34804,   0.24131,   2.83185,   0.24786,   0.09713,
748      +    0.05950,   0.17257,   0.24772 /
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.35033,   0.24146,   2.80239,   0.24870,   0.10014,
751      +    0.06307,   0.17447,   0.24854,
752      +    0.35241,   0.24146,   2.77069,   0.24927,   0.10280,
753      +    0.06630,   0.17607,   0.24912,
754      +    0.35437,   0.24142,   2.73959,   0.24975,   0.10525,
755      +    0.06931,   0.17752,   0.24961,
756      +    0.35610,   0.24129,   2.70671,   0.24996,   0.10736,
757      +    0.07194,   0.17871,   0.24989,
758      +    0.35773,   0.24114,   2.67463,   0.25012,   0.10932,
759      +    0.07440,   0.17978,   0.25007 /
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.33941,   0.25693,   2.04288,   0.16248,   0.00001,
762      +    0.00001,   0.07895,   0.16235,
763      +    0.35065,   0.25980,   2.13345,   0.16795,   0.00673,
764      +    0.00003,   0.08752,   0.16785,
765      +    0.35979,   0.26163,   2.17803,   0.17231,   0.01638,
766      +    0.00000,   0.09454,   0.17237,
767      +    0.36730,   0.26270,   2.19021,   0.17562,   0.02458,
768      +    0.00004,   0.10025,   0.17555,
769      +    0.37356,   0.26316,   2.18454,   0.17818,   0.03141,
770      +    0.00144,   0.10495,   0.17812,
771      +    0.37868,   0.26328,   2.16673,   0.18004,   0.03715,
772      +    0.00708,   0.10873,   0.17998,
773      +    0.38307,   0.26304,   2.14048,   0.18135,   0.04212,
774      +    0.01303,   0.11187,   0.18133 /
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.38678,   0.26257,   2.10900,   0.18227,   0.04639,
777      +    0.01800,   0.11441,   0.18214,
778      +    0.38992,   0.26192,   2.07380,   0.18283,   0.05004,
779      +    0.02231,   0.11652,   0.18263,
780      +    0.39267,   0.26110,   2.03669,   0.18306,   0.05321,
781      +    0.02610,   0.11824,   0.18296,
782      +    0.39506,   0.26016,   1.99883,   0.18306,   0.05598,
783      +    0.02944,   0.11961,   0.18307,
784      +    0.39704,   0.25921,   1.96039,   0.18292,   0.05838,
785      +    0.03230,   0.12074,   0.18284,
786      +    0.39870,   0.25819,   1.92139,   0.18256,   0.06042,
787      +    0.03484,   0.12157,   0.18252,
788      +    0.40011,   0.25711,   1.88338,   0.18210,   0.06221,
789      +    0.03711,   0.12225,   0.18210 /
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.40133,   0.25599,   1.84621,   0.18154,   0.06380,
792      +    0.03912,   0.12277,   0.18155,
793      +    0.40227,   0.25483,   1.80925,   0.18085,   0.06515,
794      +    0.04085,   0.12310,   0.18081,
795      +    0.40310,   0.25370,   1.77396,   0.18012,   0.06639,
796      +    0.04244,   0.12335,   0.18006,
797      +    0.40366,   0.25256,   1.73879,   0.17930,   0.06740,
798      +    0.04384,   0.12344,   0.17921,
799      +    0.40417,   0.25143,   1.70527,   0.17848,   0.06833,
800      +    0.04513,   0.12348,   0.17836 /
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.39163,   0.27995,   1.79822,   0.13843,   0.00001,
803      +    0.00006,   0.06620,   0.13841,
804      +    0.40222,   0.28028,   1.81193,   0.14154,   0.00308,
805      +    0.00005,   0.07249,   0.14159,
806      +    0.41043,   0.27972,   1.79822,   0.14370,   0.01081,
807      +    0.00006,   0.07741,   0.14366,
808      +    0.41655,   0.27861,   1.76751,   0.14500,   0.01695,
809      +    0.00004,   0.08117,   0.14505,
810      +    0.42142,   0.27708,   1.72906,   0.14576,   0.02206,
811      +    0.00108,   0.08403,   0.14577,
812      +    0.42513,   0.27527,   1.68630,   0.14594,   0.02620,
813      +    0.00510,   0.08623,   0.14604,
814      +    0.42795,   0.27330,   1.64136,   0.14578,   0.02971,
815      +    0.00923,   0.08792,   0.14586 /
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.43008,   0.27123,   1.59578,   0.14537,   0.03267,
818      +    0.01259,   0.08916,   0.14546,
819      +    0.43168,   0.26909,   1.55051,   0.14479,   0.03511,
820      +    0.01548,   0.09007,   0.14486,
821      +    0.43286,   0.26690,   1.50624,   0.14401,   0.03717,
822      +    0.01797,   0.09072,   0.14405,
823      +    0.43368,   0.26473,   1.46346,   0.14310,   0.03892,
824      +    0.02013,   0.09115,   0.14312,
825      +    0.43414,   0.26254,   1.42223,   0.14213,   0.04040,
826      +    0.02199,   0.09138,   0.14221,
827      +    0.43434,   0.26036,   1.38219,   0.14104,   0.04167,
828      +    0.02358,   0.09146,   0.14110,
829      +    0.43433,   0.25823,   1.34416,   0.13991,   0.04275,
830      +    0.02497,   0.09144,   0.13995 /
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.43411,   0.25616,   1.30786,   0.13874,   0.04368,
833      +    0.02618,   0.09132,   0.13876,
834      +    0.43365,   0.25410,   1.27284,   0.13757,   0.04441,
835      +    0.02724,   0.09108,   0.13754,
836      +    0.43313,   0.25210,   1.23987,   0.13642,   0.04504,
837      +    0.02820,   0.09080,   0.13636,
838      +    0.43254,   0.25002,   1.20796,   0.13513,   0.04557,
839      +    0.02900,   0.09043,   0.13514,
840      +    0.43190,   0.24802,   1.17785,   0.13387,   0.04601,
841      +    0.02972,   0.09005,   0.13394 /
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.43722,   0.29297,   1.58334,   0.11907,   0.00001,
844      +    0.00007,   0.05583,   0.11915,
845      +    0.44591,   0.29078,   1.55044,   0.12060,   0.00071,
846      +    0.00007,   0.06049,   0.12052,
847      +    0.45213,   0.28783,   1.50408,   0.12116,   0.00690,
848      +    0.00006,   0.06397,   0.12114,
849      +    0.45621,   0.28456,   1.45096,   0.12117,   0.01181,
850      +    0.00006,   0.06634,   0.12110,
851      +    0.45900,   0.28113,   1.39691,   0.12064,   0.01568,
852      +    0.00082,   0.06810,   0.12074,
853      +    0.46053,   0.27774,   1.34365,   0.11996,   0.01877,
854      +    0.00375,   0.06923,   0.11997,
855      +    0.46133,   0.27424,   1.29186,   0.11894,   0.02137,
856      +    0.00671,   0.06999,   0.11893 /
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.46147,   0.27080,   1.24220,   0.11781,   0.02343,
859      +    0.00908,   0.07050,   0.11769,
860      +    0.46118,   0.26741,   1.19502,   0.11651,   0.02514,
861      +    0.01106,   0.07073,   0.11650,
862      +    0.46052,   0.26408,   1.15044,   0.11517,   0.02655,
863      +    0.01277,   0.07076,   0.11522,
864      +    0.45953,   0.26083,   1.10852,   0.11383,   0.02773,
865      +    0.01427,   0.07067,   0.11385,
866      +    0.45834,   0.25763,   1.06908,   0.11243,   0.02875,
867      +    0.01552,   0.07048,   0.11244,
868      +    0.45690,   0.25454,   1.03167,   0.11101,   0.02953,
869      +    0.01651,   0.07020,   0.11099,
870      +    0.45535,   0.25154,   0.99670,   0.10961,   0.03017,
871      +    0.01740,   0.06985,   0.10958 /
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.45371,   0.24863,   0.96384,   0.10821,   0.03069,
874      +    0.01822,   0.06943,   0.10824,
875      +    0.45194,   0.24576,   0.93268,   0.10678,   0.03112,
876      +    0.01887,   0.06893,   0.10686,
877      +    0.45015,   0.24302,   0.90360,   0.10540,   0.03150,
878      +    0.01945,   0.06842,   0.10551,
879      +    0.44804,   0.24042,   0.87593,   0.10409,   0.03174,
880      +    0.01993,   0.06787,   0.10415,
881      +    0.44600,   0.23791,   0.85001,   0.10281,   0.03195,
882      +    0.02036,   0.06732,   0.10282 /
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.48368,   0.29879,   1.34867,   0.09928,   0.00001,
885      +    0.00009,   0.04589,   0.09920,
886      +    0.48910,   0.29321,   1.28265,   0.09921,   0.00001,
887      +    0.00009,   0.04912,   0.09917,
888      +    0.49181,   0.28762,   1.21518,   0.09859,   0.00414,
889      +    0.00010,   0.05122,   0.09849,
890      +    0.49257,   0.28205,   1.14948,   0.09744,   0.00788,
891      +    0.00010,   0.05256,   0.09748,
892      +    0.49206,   0.27679,   1.08813,   0.09622,   0.01079,
893      +    0.00058,   0.05333,   0.09605,
894      +    0.49076,   0.27143,   1.03129,   0.09462,   0.01304,
895      +    0.00263,   0.05377,   0.09467,
896      +    0.48869,   0.26638,   0.97867,   0.09305,   0.01480,
897      +    0.00464,   0.05389,   0.09317 /
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.48622,   0.26150,   0.93011,   0.09145,   0.01623,
900      +    0.00627,   0.05379,   0.09160,
901      +    0.48334,   0.25687,   0.88531,   0.08986,   0.01738,
902      +    0.00759,   0.05355,   0.08995,
903      +    0.48025,   0.25245,   0.84407,   0.08828,   0.01830,
904      +    0.00869,   0.05324,   0.08828,
905      +    0.47708,   0.24819,   0.80612,   0.08667,   0.01904,
906      +    0.00965,   0.05282,   0.08668,
907      +    0.47382,   0.24408,   0.77108,   0.08501,   0.01963,
908      +    0.01044,   0.05231,   0.08522,
909      +    0.47031,   0.24018,   0.73850,   0.08351,   0.02011,
910      +    0.01111,   0.05179,   0.08358,
911      +    0.46680,   0.23648,   0.70846,   0.08205,   0.02050,
912      +    0.01166,   0.05123,   0.08204 /
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.46329,   0.23291,   0.68065,   0.08059,   0.02078,
915      +    0.01210,   0.05063,   0.08063,
916      +    0.45976,   0.22943,   0.65463,   0.07918,   0.02098,
917      +    0.01248,   0.05008,   0.07913,
918      +    0.45630,   0.22611,   0.63058,   0.07785,   0.02113,
919      +    0.01282,   0.04957,   0.07769,
920      +    0.45273,   0.22289,   0.60800,   0.07655,   0.02123,
921      +    0.01308,   0.04896,   0.07633,
922      +    0.44927,   0.21981,   0.58700,   0.07528,   0.02131,
923      +    0.01331,   0.04835,   0.07508 /
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.52013,   0.29609,   1.14602,   0.08237,   0.00001,
926      +    0.00013,   0.03778,   0.08239,
927      +    0.52111,   0.28781,   1.06317,   0.08124,   0.00001,
928      +    0.00014,   0.03990,   0.08153,
929      +    0.51957,   0.27995,   0.98714,   0.07979,   0.00238,
930      +    0.00019,   0.04107,   0.08019,
931      +    0.51641,   0.27266,   0.91811,   0.07830,   0.00524,
932      +    0.00012,   0.04170,   0.07836,
933      +    0.51252,   0.26563,   0.85648,   0.07656,   0.00746,
934      +    0.00049,   0.04195,   0.07660,
935      +    0.50796,   0.25901,   0.80148,   0.07471,   0.00917,
936      +    0.00194,   0.04190,   0.07478,
937      +    0.50285,   0.25288,   0.75199,   0.07302,   0.01041,
938      +    0.00333,   0.04160,   0.07301 /
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.49760,   0.24701,   0.70743,   0.07120,   0.01143,
941      +    0.00445,   0.04119,   0.07127,
942      +    0.49228,   0.24145,   0.66719,   0.06942,   0.01222,
943      +    0.00535,   0.04078,   0.06949,
944      +    0.48688,   0.23626,   0.63080,   0.06775,   0.01283,
945      +    0.00607,   0.04027,   0.06781,
946      +    0.48143,   0.23136,   0.59783,   0.06620,   0.01329,
947      +    0.00666,   0.03971,   0.06621,
948      +    0.47606,   0.22670,   0.56777,   0.06472,   0.01366,
949      +    0.00719,   0.03919,   0.06451,
950      +    0.47072,   0.22219,   0.54020,   0.06321,   0.01392,
951      +    0.00758,   0.03857,   0.06306,
952      +    0.46556,   0.21788,   0.51506,   0.06175,   0.01413,
953      +    0.00793,   0.03796,   0.06168 /
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.46058,   0.21377,   0.49201,   0.06035,   0.01428,
956      +    0.00828,   0.03734,   0.06035,
957      +    0.45547,   0.20993,   0.47070,   0.05901,   0.01437,
958      +    0.00850,   0.03671,   0.05909,
959      +    0.45051,   0.20632,   0.45114,   0.05773,   0.01443,
960      +    0.00868,   0.03612,   0.05788,
961      +    0.44549,   0.20288,   0.43296,   0.05663,   0.01450,
962      +    0.00883,   0.03555,   0.05652,
963      +    0.44072,   0.19957,   0.41617,   0.05555,   0.01452,
964      +    0.00896,   0.03500,   0.05530 /
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.54639,   0.28815,   0.97029,   0.06787,   0.00001,
967      +    0.00001,   0.03069,   0.06788,
968      +    0.54230,   0.27737,   0.88081,   0.06616,   0.00001,
969      +    0.00005,   0.03213,   0.06634,
970      +    0.53613,   0.26783,   0.80328,   0.06457,   0.00133,
971      +    0.00007,   0.03277,   0.06431,
972      +    0.52921,   0.25879,   0.73595,   0.06242,   0.00366,
973      +    0.00005,   0.03300,   0.06251,
974      +    0.52184,   0.25048,   0.67774,   0.06047,   0.00532,
975      +    0.00026,   0.03286,   0.06061,
976      +    0.51404,   0.24286,   0.62694,   0.05861,   0.00654,
977      +    0.00128,   0.03256,   0.05874,
978      +    0.50631,   0.23576,   0.58226,   0.05667,   0.00752,
979      +    0.00237,   0.03228,   0.05683 /
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.49843,   0.22922,   0.54281,   0.05494,   0.00820,
982      +    0.00318,   0.03179,   0.05510,
983      +    0.49056,   0.22317,   0.50770,   0.05337,   0.00875,
984      +    0.00385,   0.03120,   0.05341,
985      +    0.48299,   0.21744,   0.47636,   0.05182,   0.00917,
986      +    0.00435,   0.03059,   0.05183,
987      +    0.47571,   0.21201,   0.44831,   0.05030,   0.00947,
988      +    0.00472,   0.02999,   0.05038,
989      +    0.46862,   0.20689,   0.42303,   0.04882,   0.00977,
990      +    0.00507,   0.02944,   0.04893,
991      +    0.46177,   0.20194,   0.40022,   0.04742,   0.00988,
992      +    0.00537,   0.02882,   0.04770,
993      +    0.45504,   0.19740,   0.37952,   0.04618,   0.00998,
994      +    0.00561,   0.02823,   0.04642 /
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.44840,   0.19326,   0.36061,   0.04505,   0.01011,
997      +    0.00582,   0.02766,   0.04510,
998      +    0.44201,   0.18921,   0.34345,   0.04392,   0.01021,
999      +    0.00594,   0.02708,   0.04386,
1000      +    0.43591,   0.18536,   0.32779,   0.04284,   0.01028,
1001      +    0.00603,   0.02651,   0.04272,
1002      +    0.43004,   0.18157,   0.31326,   0.04168,   0.01019,
1003      +    0.00607,   0.02599,   0.04182,
1004      +    0.42437,   0.17803,   0.29989,   0.04062,   0.01013,
1005      +    0.00612,   0.02550,   0.04090 /
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.56337,   0.27601,   0.81835,   0.05530,   0.00001,
1008      +    0.00002,   0.02480,   0.05523,
1009      +    0.55386,   0.26343,   0.72857,   0.05339,   0.00001,
1010      +    0.00000,   0.02562,   0.05339,
1011      +    0.54332,   0.25231,   0.65389,   0.05123,   0.00059,
1012      +    0.00009,   0.02586,   0.05156,
1013      +    0.53225,   0.24228,   0.59091,   0.04946,   0.00230,
1014      +    0.00013,   0.02595,   0.04932,
1015      +    0.52134,   0.23329,   0.53783,   0.04746,   0.00364,
1016      +    0.00032,   0.02556,   0.04754,
1017      +    0.51063,   0.22502,   0.49241,   0.04569,   0.00462,
1018      +    0.00103,   0.02517,   0.04562,
1019      +    0.50016,   0.21740,   0.45331,   0.04408,   0.00525,
1020      +    0.00177,   0.02461,   0.04396 /
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.49009,   0.21026,   0.41904,   0.04235,   0.00578,
1023      +    0.00224,   0.02411,   0.04244,
1024      +    0.48041,   0.20367,   0.38898,   0.04083,   0.00622,
1025      +    0.00264,   0.02356,   0.04087,
1026      +    0.47100,   0.19767,   0.36246,   0.03944,   0.00656,
1027      +    0.00299,   0.02298,   0.03938,
1028      +    0.46196,   0.19207,   0.33901,   0.03807,   0.00681,
1029      +    0.00329,   0.02241,   0.03808,
1030      +    0.45343,   0.18670,   0.31826,   0.03673,   0.00692,
1031      +    0.00356,   0.02183,   0.03697,
1032      +    0.44502,   0.18184,   0.29932,   0.03564,   0.00697,
1033      +    0.00372,   0.02132,   0.03572,
1034      +    0.43700,   0.17725,   0.28233,   0.03461,   0.00705,
1035      +    0.00383,   0.02081,   0.03456 /
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.42933,   0.17291,   0.26705,   0.03359,   0.00714,
1038      +    0.00390,   0.02030,   0.03347,
1039      +    0.42193,   0.16881,   0.25327,   0.03256,   0.00713,
1040      +    0.00400,   0.01979,   0.03257,
1041      +    0.41489,   0.16495,   0.24075,   0.03160,   0.00708,
1042      +    0.00410,   0.01933,   0.03174,
1043      +    0.40802,   0.16127,   0.22923,   0.03079,   0.00704,
1044      +    0.00416,   0.01887,   0.03084,
1045      +    0.40149,   0.15779,   0.21872,   0.02998,   0.00701,
1046      +    0.00422,   0.01844,   0.03000 /
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.57156,   0.26115,   0.68716,   0.04457,   0.00001,
1049      +    0.00008,   0.01959,   0.04441,
1050      +    0.55656,   0.24731,   0.60099,   0.04265,   0.00001,
1051      +    0.00007,   0.02026,   0.04234,
1052      +    0.54172,   0.23498,   0.53134,   0.04057,   0.00018,
1053      +    0.00006,   0.02030,   0.04042,
1054      +    0.52709,   0.22421,   0.47441,   0.03863,   0.00158,
1055      +    0.00010,   0.02001,   0.03861,
1056      +    0.51318,   0.21444,   0.42700,   0.03692,   0.00250,
1057      +    0.00024,   0.01969,   0.03688,
1058      +    0.49971,   0.20583,   0.38731,   0.03525,   0.00323,
1059      +    0.00076,   0.01919,   0.03527,
1060      +    0.48676,   0.19816,   0.35331,   0.03377,   0.00384,
1061      +    0.00126,   0.01861,   0.03363 /
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.47463,   0.19087,   0.32420,   0.03235,   0.00419,
1064      +    0.00162,   0.01815,   0.03223,
1065      +    0.46317,   0.18415,   0.29893,   0.03102,   0.00441,
1066      +    0.00191,   0.01768,   0.03092,
1067      +    0.45233,   0.17795,   0.27680,   0.02976,   0.00458,
1068      +    0.00217,   0.01720,   0.02975,
1069      +    0.44204,   0.17222,   0.25732,   0.02857,   0.00474,
1070      +    0.00238,   0.01670,   0.02865,
1071      +    0.43219,   0.16699,   0.24006,   0.02760,   0.00490,
1072      +    0.00248,   0.01623,   0.02746,
1073      +    0.42284,   0.16196,   0.22481,   0.02656,   0.00493,
1074      +    0.00257,   0.01574,   0.02660,
1075      +    0.41392,   0.15734,   0.21120,   0.02561,   0.00494,
1076      +    0.00267,   0.01528,   0.02575 /
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.40538,   0.15310,   0.19898,   0.02477,   0.00498,
1079      +    0.00278,   0.01485,   0.02485,
1080      +    0.39712,   0.14912,   0.18792,   0.02404,   0.00498,
1081      +    0.00281,   0.01449,   0.02393,
1082      +    0.38931,   0.14540,   0.17792,   0.02336,   0.00497,
1083      +    0.00283,   0.01413,   0.02308,
1084      +    0.38185,   0.14180,   0.16877,   0.02266,   0.00496,
1085      +    0.00285,   0.01369,   0.02242,
1086      +    0.37477,   0.13840,   0.16047,   0.02198,   0.00492,
1087      +    0.00286,   0.01331,   0.02179 /
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.57159,   0.24442,   0.57404,   0.03537,   0.00001,
1090      +    0.00006,   0.01545,   0.03516,
1091      +    0.55174,   0.22937,   0.49400,   0.03333,   0.00001,
1092      +    0.00021,   0.01572,   0.03339,
1093      +    0.53272,   0.21644,   0.43060,   0.03154,   0.00001,
1094      +    0.00010,   0.01576,   0.03138,
1095      +    0.51464,   0.20533,   0.37984,   0.02987,   0.00108,
1096      +    0.00012,   0.01534,   0.02969,
1097      +    0.49811,   0.19514,   0.33841,   0.02819,   0.00180,
1098      +    0.00022,   0.01500,   0.02823,
1099      +    0.48247,   0.18629,   0.30410,   0.02665,   0.00246,
1100      +    0.00055,   0.01462,   0.02676,
1101      +    0.46780,   0.17832,   0.27527,   0.02546,   0.00279,
1102      +    0.00094,   0.01415,   0.02545 /
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.45369,   0.17132,   0.25076,   0.02440,   0.00302,
1105      +    0.00121,   0.01369,   0.02417,
1106      +    0.44083,   0.16463,   0.22973,   0.02319,   0.00325,
1107      +    0.00137,   0.01321,   0.02318,
1108      +    0.42871,   0.15854,   0.21139,   0.02219,   0.00340,
1109      +    0.00151,   0.01277,   0.02213,
1110      +    0.41713,   0.15309,   0.19537,   0.02143,   0.00348,
1111      +    0.00165,   0.01238,   0.02107,
1112      +    0.40623,   0.14800,   0.18153,   0.02067,   0.00352,
1113      +    0.00176,   0.01193,   0.02019,
1114      +    0.39623,   0.14313,   0.16924,   0.01970,   0.00358,
1115      +    0.00184,   0.01157,   0.01942,
1116      +    0.38671,   0.13866,   0.15830,   0.01887,   0.00359,
1117      +    0.00189,   0.01122,   0.01871 /
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.37754,   0.13457,   0.14850,   0.01821,   0.00355,
1120      +    0.00194,   0.01087,   0.01807,
1121      +    0.36895,   0.13062,   0.13980,   0.01754,   0.00350,
1122      +    0.00198,   0.01049,   0.01747,
1123      +    0.36086,   0.12694,   0.13197,   0.01691,   0.00346,
1124      +    0.00200,   0.01014,   0.01690,
1125      +    0.35308,   0.12358,   0.12477,   0.01633,   0.00351,
1126      +    0.00203,   0.00986,   0.01621,
1127      +    0.34573,   0.12039,   0.11828,   0.01577,   0.00352,
1128      +    0.00203,   0.00958,   0.01562 /
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.56500,   0.22609,   0.47688,   0.02730,   0.00001,
1131      +    0.00013,   0.01201,   0.02751,
1132      +    0.53994,   0.21087,   0.40379,   0.02581,   0.00001,
1133      +    0.00008,   0.01212,   0.02559,
1134      +    0.51732,   0.19759,   0.34743,   0.02415,   0.00001,
1135      +    0.00008,   0.01195,   0.02400,
1136      +    0.49653,   0.18603,   0.30312,   0.02263,   0.00078,
1137      +    0.00012,   0.01170,   0.02259,
1138      +    0.47728,   0.17619,   0.26746,   0.02138,   0.00129,
1139      +    0.00016,   0.01129,   0.02130,
1140      +    0.45975,   0.16742,   0.23836,   0.02017,   0.00164,
1141      +    0.00039,   0.01089,   0.02019,
1142      +    0.44367,   0.15942,   0.21392,   0.01899,   0.00195,
1143      +    0.00063,   0.01051,   0.01913 /
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.42863,   0.15237,   0.19344,   0.01812,   0.00219,
1146      +    0.00091,   0.01007,   0.01805,
1147      +    0.41457,   0.14595,   0.17634,   0.01731,   0.00225,
1148      +    0.00103,   0.00965,   0.01718,
1149      +    0.40153,   0.14011,   0.16150,   0.01644,   0.00234,
1150      +    0.00113,   0.00931,   0.01641,
1151      +    0.38949,   0.13479,   0.14849,   0.01556,   0.00246,
1152      +    0.00124,   0.00899,   0.01564,
1153      +    0.37832,   0.12988,   0.13729,   0.01473,   0.00255,
1154      +    0.00129,   0.00860,   0.01498,
1155      +    0.36764,   0.12530,   0.12747,   0.01418,   0.00250,
1156      +    0.00129,   0.00835,   0.01422,
1157      +    0.35758,   0.12105,   0.11877,   0.01365,   0.00245,
1158      +    0.00130,   0.00810,   0.01360 /
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.34807,   0.11711,   0.11101,   0.01311,   0.00244,
1161      +    0.00133,   0.00780,   0.01310,
1162      +    0.33919,   0.11341,   0.10414,   0.01252,   0.00245,
1163      +    0.00135,   0.00755,   0.01265,
1164      +    0.33086,   0.10996,   0.09798,   0.01197,   0.00246,
1165      +    0.00137,   0.00733,   0.01223,
1166      +    0.32293,   0.10667,   0.09236,   0.01152,   0.00245,
1167      +    0.00139,   0.00710,   0.01185,
1168      +    0.31539,   0.10361,   0.08729,   0.01111,   0.00241,
1169      +    0.00140,   0.00688,   0.01147 /
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.55153,   0.20744,   0.39385,   0.02076,   0.00001,
1172      +    0.00006,   0.00901,   0.02116,
1173      +    0.52235,   0.19185,   0.32842,   0.01951,   0.00001,
1174      +    0.00012,   0.00915,   0.01937,
1175      +    0.49622,   0.17879,   0.27907,   0.01840,   0.00001,
1176      +    0.00012,   0.00907,   0.01802,
1177      +    0.47325,   0.16719,   0.24084,   0.01686,   0.00047,
1178      +    0.00007,   0.00883,   0.01698,
1179      +    0.45217,   0.15753,   0.21043,   0.01593,   0.00090,
1180      +    0.00014,   0.00849,   0.01578,
1181      +    0.43341,   0.14884,   0.18599,   0.01489,   0.00126,
1182      +    0.00038,   0.00816,   0.01480,
1183      +    0.41609,   0.14118,   0.16600,   0.01395,   0.00148,
1184      +    0.00058,   0.00775,   0.01406 /
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.40003,   0.13435,   0.14919,   0.01325,   0.00167,
1187      +    0.00066,   0.00740,   0.01326,
1188      +    0.38555,   0.12809,   0.13494,   0.01245,   0.00175,
1189      +    0.00073,   0.00712,   0.01255,
1190      +    0.37200,   0.12252,   0.12287,   0.01180,   0.00175,
1191      +    0.00081,   0.00682,   0.01188,
1192      +    0.35926,   0.11754,   0.11257,   0.01134,   0.00173,
1193      +    0.00090,   0.00653,   0.01125,
1194      +    0.34763,   0.11289,   0.10363,   0.01082,   0.00177,
1195      +    0.00098,   0.00631,   0.01068,
1196      +    0.33692,   0.10859,   0.09572,   0.01010,   0.00185,
1197      +    0.00096,   0.00610,   0.01021,
1198      +    0.32691,   0.10458,   0.08882,   0.00949,   0.00190,
1199      +    0.00095,   0.00587,   0.00979 /
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.31746,   0.10084,   0.08278,   0.00901,   0.00187,
1202      +    0.00098,   0.00565,   0.00943,
1203      +    0.30828,   0.09741,   0.07738,   0.00871,   0.00183,
1204      +    0.00100,   0.00541,   0.00914,
1205      +    0.29970,   0.09423,   0.07256,   0.00844,   0.00179,
1206      +    0.00101,   0.00521,   0.00886,
1207      +    0.29175,   0.09126,   0.06829,   0.00812,   0.00175,
1208      +    0.00102,   0.00503,   0.00845,
1209      +    0.28429,   0.08848,   0.06442,   0.00784,   0.00173,
1210      +    0.00102,   0.00488,   0.00807 /
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.53226,   0.18952,   0.32346,   0.01622,   0.00001,
1213      +    0.00010,   0.00646,   0.01587,
1214      +    0.49971,   0.17383,   0.26569,   0.01500,   0.00001,
1215      +    0.00009,   0.00675,   0.01435,
1216      +    0.47142,   0.16058,   0.22306,   0.01370,   0.00001,
1217      +    0.00017,   0.00651,   0.01361,
1218      +    0.44631,   0.14944,   0.19049,   0.01275,   0.00020,
1219      +    0.00014,   0.00630,   0.01256,
1220      +    0.42423,   0.13978,   0.16520,   0.01179,   0.00048,
1221      +    0.00002,   0.00603,   0.01183,
1222      +    0.40414,   0.13162,   0.14495,   0.01113,   0.00074,
1223      +    0.00013,   0.00580,   0.01092,
1224      +    0.38627,   0.12439,   0.12843,   0.01027,   0.00094,
1225      +    0.00028,   0.00562,   0.01016 /
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.37007,   0.11782,   0.11473,   0.00944,   0.00104,
1228      +    0.00037,   0.00530,   0.00971,
1229      +    0.35484,   0.11204,   0.10325,   0.00914,   0.00115,
1230      +    0.00050,   0.00506,   0.00908,
1231      +    0.34097,   0.10675,   0.09356,   0.00872,   0.00121,
1232      +    0.00056,   0.00490,   0.00860,
1233      +    0.32848,   0.10186,   0.08530,   0.00807,   0.00120,
1234      +    0.00056,   0.00472,   0.00824,
1235      +    0.31708,   0.09753,   0.07814,   0.00755,   0.00123,
1236      +    0.00057,   0.00451,   0.00770,
1237      +    0.30596,   0.09349,   0.07194,   0.00724,   0.00125,
1238      +    0.00063,   0.00431,   0.00741,
1239      +    0.29574,   0.08984,   0.06656,   0.00696,   0.00124,
1240      +    0.00067,   0.00412,   0.00707 /
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.28636,   0.08650,   0.06186,   0.00668,   0.00124,
1243      +    0.00070,   0.00393,   0.00664,
1244      +    0.27756,   0.08336,   0.05765,   0.00634,   0.00122,
1245      +    0.00067,   0.00378,   0.00633,
1246      +    0.26933,   0.08044,   0.05389,   0.00603,   0.00118,
1247      +    0.00065,   0.00362,   0.00608,
1248      +    0.26145,   0.07777,   0.05056,   0.00578,   0.00116,
1249      +    0.00063,   0.00347,   0.00588,
1250      +    0.25409,   0.07524,   0.04758,   0.00555,   0.00115,
1251      +    0.00064,   0.00335,   0.00569 /
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.50834,   0.17046,   0.26302,   0.01146,   0.00001,
1254      +    0.00008,   0.00510,   0.01150,
1255      +    0.47323,   0.15487,   0.21310,   0.01044,   0.00001,
1256      +    0.00013,   0.00489,   0.01093,
1257      +    0.44283,   0.14226,   0.17698,   0.00983,   0.00001,
1258      +    0.00008,   0.00483,   0.00986,
1259      +    0.41641,   0.13177,   0.14977,   0.00901,   0.00030,
1260      +    0.00008,   0.00473,   0.00897,
1261      +    0.39340,   0.12267,   0.12868,   0.00826,   0.00053,
1262      +    0.00014,   0.00447,   0.00840,
1263      +    0.37272,   0.11497,   0.11215,   0.00776,   0.00068,
1264      +    0.00022,   0.00422,   0.00794,
1265      +    0.35461,   0.10810,   0.09863,   0.00711,   0.00084,
1266      +    0.00029,   0.00410,   0.00737 /
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.33831,   0.10201,   0.08756,   0.00643,   0.00083,
1269      +    0.00037,   0.00386,   0.00707,
1270      +    0.32337,   0.09662,   0.07838,   0.00609,   0.00085,
1271      +    0.00042,   0.00370,   0.00661,
1272      +    0.30958,   0.09183,   0.07072,   0.00587,   0.00088,
1273      +    0.00043,   0.00352,   0.00608,
1274      +    0.29689,   0.08748,   0.06423,   0.00558,   0.00089,
1275      +    0.00042,   0.00330,   0.00568,
1276      +    0.28533,   0.08338,   0.05858,   0.00520,   0.00090,
1277      +    0.00042,   0.00316,   0.00549,
1278      +    0.27475,   0.07974,   0.05375,   0.00501,   0.00093,
1279      +    0.00045,   0.00301,   0.00507,
1280      +    0.26486,   0.07644,   0.04955,   0.00484,   0.00092,
1281      +    0.00047,   0.00288,   0.00474 /
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.25550,   0.07343,   0.04587,   0.00469,   0.00088,
1284      +    0.00047,   0.00278,   0.00455,
1285      +    0.24688,   0.07051,   0.04264,   0.00450,   0.00087,
1286      +    0.00046,   0.00264,   0.00441,
1287      +    0.23888,   0.06781,   0.03977,   0.00431,   0.00086,
1288      +    0.00045,   0.00252,   0.00428,
1289      +    0.23132,   0.06545,   0.03721,   0.00414,   0.00085,
1290      +    0.00044,   0.00242,   0.00402,
1291      +    0.22431,   0.06321,   0.03491,   0.00396,   0.00082,
1292      +    0.00044,   0.00232,   0.00380 /
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.48053,   0.15315,   0.21254,   0.00875,   0.00001,
1295      +    0.00004,   0.00337,   0.00839,
1296      +    0.44307,   0.13812,   0.17031,   0.00809,   0.00001,
1297      +    0.00000,   0.00343,   0.00755,
1298      +    0.41193,   0.12582,   0.13974,   0.00704,   0.00001,
1299      +    0.00001,   0.00345,   0.00707,
1300      +    0.38541,   0.11573,   0.11714,   0.00638,   0.00014,
1301      +    0.00000,   0.00332,   0.00636,
1302      +    0.36195,   0.10710,   0.09976,   0.00587,   0.00030,
1303      +    0.00004,   0.00319,   0.00602,
1304      +    0.34119,   0.09979,   0.08621,   0.00541,   0.00047,
1305      +    0.00016,   0.00300,   0.00571,
1306      +    0.32272,   0.09350,   0.07547,   0.00493,   0.00044,
1307      +    0.00017,   0.00277,   0.00544 /
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.30619,   0.08799,   0.06664,   0.00485,   0.00051,
1310      +    0.00024,   0.00268,   0.00486,
1311      +    0.29139,   0.08301,   0.05933,   0.00458,   0.00058,
1312      +    0.00023,   0.00252,   0.00440,
1313      +    0.27798,   0.07854,   0.05323,   0.00427,   0.00061,
1314      +    0.00023,   0.00236,   0.00415,
1315      +    0.26577,   0.07455,   0.04809,   0.00404,   0.00061,
1316      +    0.00027,   0.00220,   0.00396,
1317      +    0.25467,   0.07096,   0.04373,   0.00380,   0.00059,
1318      +    0.00029,   0.00210,   0.00375,
1319      +    0.24450,   0.06762,   0.04002,   0.00351,   0.00058,
1320      +    0.00028,   0.00202,   0.00357,
1321      +    0.23507,   0.06460,   0.03680,   0.00327,   0.00057,
1322      +    0.00028,   0.00193,   0.00343 /
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.22623,   0.06187,   0.03399,   0.00309,   0.00054,
1325      +    0.00027,   0.00181,   0.00331,
1326      +    0.21795,   0.05928,   0.03150,   0.00305,   0.00057,
1327      +    0.00027,   0.00174,   0.00306,
1328      +    0.21030,   0.05690,   0.02929,   0.00300,   0.00059,
1329      +    0.00028,   0.00168,   0.00282,
1330      +    0.20327,   0.05474,   0.02736,   0.00285,   0.00058,
1331      +    0.00031,   0.00162,   0.00272,
1332      +    0.19670,   0.05273,   0.02563,   0.00270,   0.00056,
1333      +    0.00034,   0.00157,   0.00262 /
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.44954,   0.13564,   0.17036,   0.00592,   0.00001,
1336      +    0.00009,   0.00236,   0.00609,
1337      +    0.41177,   0.12116,   0.13452,   0.00513,   0.00001,
1338      +    0.00009,   0.00250,   0.00551,
1339      +    0.37956,   0.10980,   0.10933,   0.00478,   0.00001,
1340      +    0.00004,   0.00242,   0.00493,
1341      +    0.35175,   0.10045,   0.09073,   0.00437,   0.00006,
1342      +    0.00003,   0.00231,   0.00465,
1343      +    0.32833,   0.09263,   0.07678,   0.00414,   0.00026,
1344      +    0.00003,   0.00221,   0.00417,
1345      +    0.30806,   0.08593,   0.06591,   0.00365,   0.00025,
1346      +    0.00011,   0.00203,   0.00408,
1347      +    0.29021,   0.08001,   0.05726,   0.00355,   0.00034,
1348      +    0.00014,   0.00192,   0.00371 /
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.27418,   0.07494,   0.05026,   0.00329,   0.00037,
1351      +    0.00012,   0.00182,   0.00343,
1352      +    0.25999,   0.07043,   0.04456,   0.00306,   0.00039,
1353      +    0.00018,   0.00172,   0.00317,
1354      +    0.24719,   0.06640,   0.03982,   0.00289,   0.00041,
1355      +    0.00020,   0.00165,   0.00297,
1356      +    0.23549,   0.06278,   0.03583,   0.00271,   0.00041,
1357      +    0.00020,   0.00159,   0.00278,
1358      +    0.22479,   0.05957,   0.03248,   0.00260,   0.00040,
1359      +    0.00024,   0.00145,   0.00251,
1360      +    0.21500,   0.05663,   0.02960,   0.00251,   0.00041,
1361      +    0.00023,   0.00141,   0.00240,
1362      +    0.20605,   0.05395,   0.02712,   0.00238,   0.00040,
1363      +    0.00021,   0.00134,   0.00229 /
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.19779,   0.05149,   0.02495,   0.00221,   0.00036,
1366      +    0.00017,   0.00123,   0.00214,
1367      +    0.19018,   0.04926,   0.02307,   0.00211,   0.00036,
1368      +    0.00019,   0.00118,   0.00202,
1369      +    0.18316,   0.04721,   0.02142,   0.00202,   0.00035,
1370      +    0.00021,   0.00113,   0.00190,
1371      +    0.17655,   0.04529,   0.01996,   0.00194,   0.00037,
1372      +    0.00021,   0.00109,   0.00183,
1373      +    0.17042,   0.04351,   0.01867,   0.00186,   0.00038,
1374      +    0.00020,   0.00105,   0.00175 /
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.41699,   0.11897,   0.13532,   0.00396,   0.00001,
1377      +    0.00005,   0.00165,   0.00405,
1378      +    0.37771,   0.10601,   0.10567,   0.00381,   0.00001,
1379      +    0.00001,   0.00173,   0.00366,
1380      +    0.34544,   0.09535,   0.08486,   0.00354,   0.00001,
1381      +    0.00000,   0.00154,   0.00346,
1382      +    0.31876,   0.08659,   0.06991,   0.00304,   0.00001,
1383      +    0.00002,   0.00150,   0.00344,
1384      +    0.29619,   0.07936,   0.05867,   0.00278,   0.00007,
1385      +    0.00002,   0.00143,   0.00288,
1386      +    0.27639,   0.07329,   0.05003,   0.00257,   0.00011,
1387      +    0.00001,   0.00130,   0.00269,
1388      +    0.25916,   0.06802,   0.04319,   0.00246,   0.00014,
1389      +    0.00003,   0.00121,   0.00248 /
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.24360,   0.06352,   0.03773,   0.00241,   0.00019,
1392      +    0.00007,   0.00118,   0.00228,
1393      +    0.23007,   0.05946,   0.03328,   0.00216,   0.00020,
1394      +    0.00009,   0.00110,   0.00222,
1395      +    0.21791,   0.05587,   0.02960,   0.00203,   0.00019,
1396      +    0.00008,   0.00104,   0.00199,
1397      +    0.20686,   0.05270,   0.02654,   0.00201,   0.00021,
1398      +    0.00008,   0.00099,   0.00175,
1399      +    0.19710,   0.04980,   0.02397,   0.00179,   0.00026,
1400      +    0.00012,   0.00094,   0.00171,
1401      +    0.18785,   0.04719,   0.02179,   0.00173,   0.00027,
1402      +    0.00011,   0.00086,   0.00159,
1403      +    0.17942,   0.04485,   0.01991,   0.00165,   0.00025,
1404      +    0.00010,   0.00080,   0.00149 /
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.17173,   0.04273,   0.01827,   0.00157,   0.00022,
1407      +    0.00010,   0.00073,   0.00140,
1408      +    0.16464,   0.04079,   0.01685,   0.00153,   0.00021,
1409      +    0.00010,   0.00070,   0.00130,
1410      +    0.15813,   0.03902,   0.01559,   0.00151,   0.00022,
1411      +    0.00010,   0.00069,   0.00121,
1412      +    0.15212,   0.03733,   0.01450,   0.00140,   0.00021,
1413      +    0.00009,   0.00067,   0.00115,
1414      +    0.14655,   0.03579,   0.01353,   0.00131,   0.00021,
1415      +    0.00009,   0.00063,   0.00111 /
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.38208,   0.10396,   0.10650,   0.00264,   0.00001,
1418      +    0.00005,   0.00106,   0.00276,
1419      +    0.34289,   0.09137,   0.08191,   0.00248,   0.00001,
1420      +    0.00000,   0.00112,   0.00272,
1421      +    0.31133,   0.08155,   0.06503,   0.00233,   0.00001,
1422      +    0.00006,   0.00113,   0.00244,
1423      +    0.28533,   0.07371,   0.05307,   0.00191,   0.00006,
1424      +    0.00000,   0.00107,   0.00217,
1425      +    0.26320,   0.06714,   0.04416,   0.00192,   0.00009,
1426      +    0.00004,   0.00099,   0.00197,
1427      +    0.24433,   0.06160,   0.03734,   0.00180,   0.00017,
1428      +    0.00005,   0.00097,   0.00175,
1429      +    0.22797,   0.05695,   0.03206,   0.00166,   0.00018,
1430      +    0.00006,   0.00091,   0.00152 /
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.21399,   0.05290,   0.02787,   0.00136,   0.00020,
1433      +    0.00006,   0.00082,   0.00140,
1434      +    0.20097,   0.04931,   0.02447,   0.00138,   0.00024,
1435      +    0.00006,   0.00080,   0.00124,
1436      +    0.18938,   0.04616,   0.02166,   0.00135,   0.00022,
1437      +    0.00006,   0.00075,   0.00115,
1438      +    0.17929,   0.04335,   0.01932,   0.00119,   0.00017,
1439      +    0.00007,   0.00070,   0.00111,
1440      +    0.17014,   0.04083,   0.01738,   0.00115,   0.00018,
1441      +    0.00009,   0.00069,   0.00103,
1442      +    0.16182,   0.03858,   0.01575,   0.00102,   0.00019,
1443      +    0.00011,   0.00064,   0.00102,
1444      +    0.15420,   0.03655,   0.01436,   0.00097,   0.00020,
1445      +    0.00011,   0.00059,   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.14716,   0.03475,   0.01315,   0.00097,   0.00019,
1448      +    0.00009,   0.00055,   0.00083,
1449      +    0.14071,   0.03307,   0.01210,   0.00093,   0.00019,
1450      +    0.00008,   0.00052,   0.00077,
1451      +    0.13482,   0.03152,   0.01118,   0.00089,   0.00018,
1452      +    0.00007,   0.00048,   0.00074,
1453      +    0.12938,   0.03009,   0.01037,   0.00081,   0.00019,
1454      +    0.00008,   0.00048,   0.00072,
1455      +    0.12438,   0.02878,   0.00966,   0.00073,   0.00019,
1456      +    0.00009,   0.00047,   0.00069 /
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.34682,   0.08969,   0.08288,   0.00184,   0.00001,
1459      +    0.00003,   0.00062,   0.00194,
1460      +    0.30886,   0.07826,   0.06302,   0.00152,   0.00001,
1461      +    0.00004,   0.00067,   0.00170,
1462      +    0.27815,   0.06934,   0.04961,   0.00154,   0.00001,
1463      +    0.00006,   0.00062,   0.00162,
1464      +    0.25331,   0.06222,   0.04006,   0.00125,   0.00001,
1465      +    0.00005,   0.00062,   0.00145,
1466      +    0.23218,   0.05639,   0.03309,   0.00131,   0.00002,
1467      +    0.00004,   0.00063,   0.00123,
1468      +    0.21437,   0.05155,   0.02783,   0.00132,   0.00004,
1469      +    0.00001,   0.00061,   0.00121,
1470      +    0.19911,   0.04737,   0.02374,   0.00118,   0.00012,
1471      +    0.00003,   0.00057,   0.00117 /
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.18549,   0.04382,   0.02051,   0.00124,   0.00006,
1474      +    0.00001,   0.00048,   0.00094,
1475      +    0.17375,   0.04077,   0.01793,   0.00113,   0.00004,
1476      +    0.00001,   0.00046,   0.00078,
1477      +    0.16355,   0.03804,   0.01582,   0.00096,   0.00010,
1478      +    0.00002,   0.00048,   0.00069,
1479      +    0.15433,   0.03559,   0.01407,   0.00087,   0.00017,
1480      +    0.00006,   0.00048,   0.00065,
1481      +    0.14563,   0.03348,   0.01262,   0.00087,   0.00013,
1482      +    0.00007,   0.00041,   0.00068,
1483      +    0.13813,   0.03152,   0.01139,   0.00073,   0.00013,
1484      +    0.00005,   0.00037,   0.00068,
1485      +    0.13126,   0.02976,   0.01035,   0.00068,   0.00013,
1486      +    0.00005,   0.00034,   0.00063 /
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.12486,   0.02817,   0.00946,   0.00074,   0.00012,
1489      +    0.00005,   0.00035,   0.00054,
1490      +    0.11926,   0.02674,   0.00868,   0.00065,   0.00014,
1491      +    0.00005,   0.00034,   0.00049,
1492      +    0.11415,   0.02543,   0.00800,   0.00054,   0.00014,
1493      +    0.00006,   0.00033,   0.00047,
1494      +    0.10934,   0.02423,   0.00741,   0.00041,   0.00012,
1495      +    0.00005,   0.00030,   0.00051,
1496      +    0.10487,   0.02313,   0.00688,   0.00032,   0.00011,
1497      +    0.00005,   0.00027,   0.00053 /
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.31107,   0.07643,   0.06374,   0.00106,   0.00001,
1500      +    0.00005,   0.00034,   0.00132,
1501      +    0.27476,   0.06619,   0.04782,   0.00088,   0.00001,
1502      +    0.00001,   0.00040,   0.00126,
1503      +    0.24561,   0.05831,   0.03722,   0.00090,   0.00001,
1504      +    0.00003,   0.00042,   0.00113,
1505      +    0.22204,   0.05198,   0.02981,   0.00091,   0.00001,
1506      +    0.00002,   0.00037,   0.00098,
1507      +    0.20242,   0.04683,   0.02444,   0.00081,   0.00001,
1508      +    0.00005,   0.00030,   0.00089,
1509      +    0.18599,   0.04259,   0.02041,   0.00083,   0.00004,
1510      +    0.00004,   0.00032,   0.00063,
1511      +    0.17167,   0.03901,   0.01733,   0.00095,   0.00000,
1512      +    0.00001,   0.00031,   0.00057 /
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.15976,   0.03590,   0.01491,   0.00066,   0.00000,
1515      +    0.00000,   0.00028,   0.00058,
1516      +    0.14910,   0.03322,   0.01297,   0.00057,   0.00003,
1517      +    0.00001,   0.00025,   0.00055,
1518      +    0.13946,   0.03086,   0.01140,   0.00064,   0.00004,
1519      +    0.00001,   0.00026,   0.00050,
1520      +    0.13094,   0.02880,   0.01010,   0.00063,   0.00008,
1521      +    0.00001,   0.00028,   0.00046,
1522      +    0.12351,   0.02695,   0.00903,   0.00051,   0.00011,
1523      +    0.00004,   0.00028,   0.00047,
1524      +    0.11676,   0.02532,   0.00812,   0.00048,   0.00008,
1525      +    0.00003,   0.00026,   0.00037,
1526      +    0.11062,   0.02386,   0.00736,   0.00046,   0.00008,
1527      +    0.00003,   0.00024,   0.00032 /
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.10501,   0.02254,   0.00671,   0.00044,   0.00009,
1530      +    0.00004,   0.00023,   0.00033,
1531      +    0.09992,   0.02134,   0.00615,   0.00037,   0.00008,
1532      +    0.00004,   0.00022,   0.00032,
1533      +    0.09527,   0.02026,   0.00566,   0.00032,   0.00007,
1534      +    0.00004,   0.00020,   0.00031,
1535      +    0.09098,   0.01926,   0.00523,   0.00025,   0.00006,
1536      +    0.00003,   0.00019,   0.00033,
1537      +    0.08703,   0.01834,   0.00485,   0.00021,   0.00006,
1538      +    0.00003,   0.00018,   0.00033 /
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.27641,   0.06454,   0.04839,   0.00067,   0.00001,
1541      +    0.00004,   0.00014,   0.00080,
1542      +    0.24134,   0.05542,   0.03583,   0.00074,   0.00001,
1543      +    0.00007,   0.00018,   0.00081,
1544      +    0.21404,   0.04838,   0.02757,   0.00077,   0.00001,
1545      +    0.00007,   0.00023,   0.00057,
1546      +    0.19208,   0.04284,   0.02186,   0.00068,   0.00001,
1547      +    0.00007,   0.00017,   0.00055,
1548      +    0.17429,   0.03840,   0.01777,   0.00061,   0.00001,
1549      +    0.00003,   0.00022,   0.00047,
1550      +    0.15939,   0.03470,   0.01476,   0.00055,   0.00002,
1551      +    0.00002,   0.00024,   0.00039,
1552      +    0.14683,   0.03158,   0.01244,   0.00039,   0.00005,
1553      +    0.00002,   0.00024,   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.13558,   0.02898,   0.01064,   0.00042,   0.00006,
1556      +    0.00001,   0.00021,   0.00036,
1557      +    0.12574,   0.02671,   0.00921,   0.00045,   0.00005,
1558      +    0.00001,   0.00017,   0.00028,
1559      +    0.11728,   0.02472,   0.00806,   0.00038,   0.00004,
1560      +    0.00001,   0.00016,   0.00027,
1561      +    0.10988,   0.02299,   0.00712,   0.00030,   0.00003,
1562      +    0.00000,   0.00016,   0.00026,
1563      +    0.10323,   0.02144,   0.00634,   0.00028,   0.00005,
1564      +    0.00001,   0.00016,   0.00023,
1565      +    0.09721,   0.02006,   0.00570,   0.00022,   0.00006,
1566      +    0.00003,   0.00016,   0.00026,
1567      +    0.09185,   0.01883,   0.00515,   0.00019,   0.00008,
1568      +    0.00004,   0.00017,   0.00026 /
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.08706,   0.01773,   0.00468,   0.00015,   0.00010,
1571      +    0.00004,   0.00017,   0.00021,
1572      +    0.08250,   0.01673,   0.00427,   0.00016,   0.00008,
1573      +    0.00003,   0.00016,   0.00020,
1574      +    0.07836,   0.01583,   0.00393,   0.00016,   0.00007,
1575      +    0.00002,   0.00015,   0.00020,
1576      +    0.07462,   0.01500,   0.00362,   0.00014,   0.00007,
1577      +    0.00003,   0.00014,   0.00023,
1578      +    0.07120,   0.01424,   0.00335,   0.00011,   0.00006,
1579      +    0.00003,   0.00013,   0.00025 /
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.24174,   0.05358,   0.03612,   0.00044,   0.00001,
1582      +    0.00000,   0.00016,   0.00052,
1583      +    0.20941,   0.04551,   0.02638,   0.00026,   0.00001,
1584      +    0.00005,   0.00007,   0.00045,
1585      +    0.18424,   0.03942,   0.02008,   0.00038,   0.00001,
1586      +    0.00006,   0.00014,   0.00033,
1587      +    0.16416,   0.03464,   0.01576,   0.00041,   0.00001,
1588      +    0.00004,   0.00015,   0.00033,
1589      +    0.14806,   0.03083,   0.01272,   0.00024,   0.00004,
1590      +    0.00003,   0.00015,   0.00037,
1591      +    0.13447,   0.02774,   0.01048,   0.00023,   0.00001,
1592      +    0.00004,   0.00013,   0.00026,
1593      +    0.12297,   0.02513,   0.00879,   0.00026,   0.00007,
1594      +    0.00000,   0.00017,   0.00022 /
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.11320,   0.02292,   0.00748,   0.00019,   0.00006,
1597      +    0.00000,   0.00014,   0.00025,
1598      +    0.10463,   0.02103,   0.00644,   0.00019,   0.00006,
1599      +    0.00000,   0.00013,   0.00020,
1600      +    0.09719,   0.01939,   0.00561,   0.00018,   0.00007,
1601      +    0.00001,   0.00015,   0.00019,
1602      +    0.09068,   0.01797,   0.00494,   0.00012,   0.00006,
1603      +    0.00002,   0.00014,   0.00020,
1604      +    0.08482,   0.01671,   0.00439,   0.00010,   0.00005,
1605      +    0.00001,   0.00009,   0.00018,
1606      +    0.07954,   0.01559,   0.00393,   0.00013,   0.00006,
1607      +    0.00002,   0.00011,   0.00016,
1608      +    0.07487,   0.01459,   0.00354,   0.00013,   0.00006,
1609      +    0.00002,   0.00012,   0.00015 /
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.07073,   0.01368,   0.00322,   0.00009,   0.00005,
1612      +    0.00002,   0.00011,   0.00012,
1613      +    0.06692,   0.01287,   0.00293,   0.00006,   0.00007,
1614      +    0.00003,   0.00011,   0.00013,
1615      +    0.06347,   0.01215,   0.00269,   0.00003,   0.00007,
1616      +    0.00004,   0.00010,   0.00014,
1617      +    0.06030,   0.01150,   0.00247,   0.00004,   0.00007,
1618      +    0.00004,   0.00010,   0.00011,
1619      +    0.05738,   0.01090,   0.00229,   0.00005,   0.00006,
1620      +    0.00003,   0.00009,   0.00009 /
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.20948,   0.04429,   0.02665,   0.00063,   0.00001,
1623      +    0.00009,   0.00001,   0.00016,
1624      +    0.17959,   0.03723,   0.01920,   0.00050,   0.00001,
1625      +    0.00009,   0.00001,   0.00024,
1626      +    0.15654,   0.03197,   0.01444,   0.00050,   0.00001,
1627      +    0.00007,   0.00001,   0.00016,
1628      +    0.13900,   0.02793,   0.01127,   0.00019,   0.00000,
1629      +    0.00005,   0.00006,   0.00017,
1630      +    0.12435,   0.02466,   0.00902,   0.00015,   0.00001,
1631      +    0.00005,   0.00007,   0.00018,
1632      +    0.11217,   0.02207,   0.00739,   0.00025,   0.00001,
1633      +    0.00004,   0.00007,   0.00013,
1634      +    0.10220,   0.01989,   0.00617,   0.00022,   0.00001,
1635      +    0.00003,   0.00007,   0.00012 /
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.09371,   0.01804,   0.00523,   0.00015,   0.00001,
1638      +    0.00002,   0.00006,   0.00011,
1639      +    0.08631,   0.01650,   0.00449,   0.00009,   0.00003,
1640      +    0.00000,   0.00007,   0.00014,
1641      +    0.07984,   0.01516,   0.00390,   0.00007,   0.00003,
1642      +    0.00000,   0.00006,   0.00011,
1643      +    0.07415,   0.01398,   0.00342,   0.00008,   0.00003,
1644      +    0.00001,   0.00005,   0.00006,
1645      +    0.06908,   0.01296,   0.00303,   0.00009,   0.00002,
1646      +    0.00000,   0.00007,   0.00008,
1647      +    0.06467,   0.01205,   0.00271,   0.00007,   0.00003,
1648      +    0.00001,   0.00007,   0.00008,
1649      +    0.06070,   0.01123,   0.00244,   0.00005,   0.00003,
1650      +    0.00001,   0.00007,   0.00008 /
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.05713,   0.01052,   0.00220,   0.00002,   0.00003,
1653      +    0.00001,   0.00007,   0.00008,
1654      +    0.05385,   0.00987,   0.00201,   0.00004,   0.00002,
1655      +    0.00001,   0.00006,   0.00008,
1656      +    0.05088,   0.00929,   0.00184,   0.00005,   0.00002,
1657      +    0.00000,   0.00005,   0.00006,
1658      +    0.04821,   0.00877,   0.00169,   0.00004,   0.00002,
1659      +    0.00001,   0.00005,   0.00005,
1660      +    0.04578,   0.00829,   0.00156,   0.00004,   0.00002,
1661      +    0.00001,   0.00004,   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.17878,   0.03552,   0.01919,   0.00016,   0.00001,
1664      +    0.00001,   0.00001,   0.00012,
1665      +    0.15198,   0.02970,   0.01370,   0.00010,   0.00001,
1666      +    0.00004,   0.00001,   0.00015,
1667      +    0.13163,   0.02539,   0.01022,   0.00013,   0.00001,
1668      +    0.00001,   0.00003,   0.00013,
1669      +    0.11556,   0.02201,   0.00791,   0.00019,   0.00001,
1670      +    0.00002,   0.00004,   0.00012,
1671      +    0.10277,   0.01935,   0.00630,   0.00015,   0.00001,
1672      +    0.00003,   0.00001,   0.00012,
1673      +    0.09241,   0.01723,   0.00513,   0.00008,   0.00001,
1674      +    0.00002,   0.00000,   0.00012,
1675      +    0.08364,   0.01547,   0.00426,   0.00009,   0.00001,
1676      +    0.00001,   0.00003,   0.00014 /
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.07628,   0.01401,   0.00359,   0.00009,   0.00001,
1679      +    0.00002,   0.00003,   0.00008,
1680      +    0.06996,   0.01274,   0.00307,   0.00010,   0.00001,
1681      +    0.00001,   0.00002,   0.00008,
1682      +    0.06450,   0.01166,   0.00266,   0.00006,   0.00000,
1683      +    0.00000,   0.00003,   0.00010,
1684      +    0.05973,   0.01071,   0.00233,   0.00003,   0.00000,
1685      +    0.00000,   0.00003,   0.00011,
1686      +    0.05546,   0.00991,   0.00206,   0.00008,   0.00001,
1687      +    0.00000,   0.00003,   0.00004,
1688      +    0.05170,   0.00918,   0.00183,   0.00008,   0.00001,
1689      +    0.00000,   0.00003,   0.00004,
1690      +    0.04837,   0.00853,   0.00164,   0.00006,   0.00001,
1691      +    0.00000,   0.00003,   0.00004 /
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.04540,   0.00796,   0.00149,   0.00004,   0.00001,
1694      +    0.00000,   0.00002,   0.00004,
1695      +    0.04266,   0.00747,   0.00135,   0.00005,   0.00001,
1696      +    0.00000,   0.00001,   0.00004,
1697      +    0.04021,   0.00701,   0.00123,   0.00005,   0.00001,
1698      +    0.00000,   0.00001,   0.00004,
1699      +    0.03799,   0.00659,   0.00113,   0.00006,   0.00001,
1700      +    0.00000,   0.00001,   0.00004,
1701      +    0.03599,   0.00621,   0.00104,   0.00006,   0.00001,
1702      +    0.00000,   0.00002,   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.12352,   0.02187,   0.00934,   0.00001,   0.00001,
1705      +    0.00000,   0.00001,   0.00011,
1706      +    0.10268,   0.01787,   0.00648,   0.00000,   0.00001,
1707      +    0.00001,   0.00001,   0.00005,
1708      +    0.08738,   0.01499,   0.00472,   0.00007,   0.00001,
1709      +    0.00000,   0.00001,   0.00000,
1710      +    0.07562,   0.01283,   0.00358,   0.00001,   0.00001,
1711      +    0.00002,   0.00000,   0.00000,
1712      +    0.06638,   0.01112,   0.00281,   0.00001,   0.00001,
1713      +    0.00001,   0.00002,   0.00002,
1714      +    0.05884,   0.00977,   0.00225,   0.00005,   0.00001,
1715      +    0.00000,   0.00002,   0.00002,
1716      +    0.05276,   0.00867,   0.00185,   0.00002,   0.00001,
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.04758,   0.00776,   0.00155,   0.00003,   0.00001,
1720      +    0.00000,   0.00001,   0.00001,
1721      +    0.04319,   0.00699,   0.00131,   0.00001,   0.00001,
1722      +    0.00001,   0.00001,   0.00004,
1723      +    0.03943,   0.00634,   0.00113,   0.00001,   0.00001,
1724      +    0.00000,   0.00001,   0.00004,
1725      +    0.03619,   0.00580,   0.00098,   0.00001,   0.00001,
1726      +    0.00000,   0.00001,   0.00002,
1727      +    0.03337,   0.00531,   0.00086,   0.00000,   0.00001,
1728      +    0.00000,   0.00001,   0.00003,
1729      +    0.03088,   0.00487,   0.00076,   0.00001,   0.00001,
1730      +    0.00000,   0.00001,   0.00003,
1731      +    0.02867,   0.00451,   0.00068,   0.00001,   0.00001,
1732      +    0.00001,   0.00001,   0.00004 /
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.02667,   0.00418,   0.00061,   0.00003,   0.00001,
1735      +    0.00000,   0.00001,   0.00002,
1736      +    0.02494,   0.00388,   0.00055,   0.00001,   0.00001,
1737      +    0.00000,   0.00001,   0.00002,
1738      +    0.02340,   0.00363,   0.00050,   0.00001,   0.00001,
1739      +    0.00000,   0.00001,   0.00002,
1740      +    0.02197,   0.00339,   0.00046,   0.00001,   0.00001,
1741      +    0.00000,   0.00001,   0.00002,
1742      +    0.02069,   0.00317,   0.00042,   0.00001,   0.00001,
1743      +    0.00000,   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.07898,   0.01234,   0.00409,   0.00007,   0.00001,
1746      +    0.00001,   0.00001,   0.00001,
1747      +    0.06427,   0.00989,   0.00276,   0.00007,   0.00001,
1748      +    0.00001,   0.00001,   0.00001,
1749      +    0.05362,   0.00814,   0.00196,   0.00003,   0.00001,
1750      +    0.00000,   0.00001,   0.00003,
1751      +    0.04567,   0.00682,   0.00146,   0.00001,   0.00001,
1752      +    0.00001,   0.00001,   0.00001,
1753      +    0.03947,   0.00583,   0.00113,   0.00001,   0.00001,
1754      +    0.00001,   0.00001,   0.00001,
1755      +    0.03456,   0.00506,   0.00089,   0.00001,   0.00001,
1756      +    0.00001,   0.00001,   0.00001,
1757      +    0.03057,   0.00443,   0.00073,   0.00001,   0.00001,
1758      +    0.00001,   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.02726,   0.00393,   0.00060,   0.00001,   0.00001,
1761      +    0.00000,   0.00001,   0.00001,
1762      +    0.02449,   0.00350,   0.00050,   0.00001,   0.00001,
1763      +    0.00000,   0.00001,   0.00001,
1764      +    0.02214,   0.00315,   0.00043,   0.00001,   0.00001,
1765      +    0.00000,   0.00001,   0.00001,
1766      +    0.02013,   0.00283,   0.00037,   0.00001,   0.00001,
1767      +    0.00000,   0.00001,   0.00001,
1768      +    0.01840,   0.00258,   0.00033,   0.00001,   0.00001,
1769      +    0.00000,   0.00001,   0.00001,
1770      +    0.01687,   0.00236,   0.00029,   0.00001,   0.00001,
1771      +    0.00000,   0.00001,   0.00001,
1772      +    0.01555,   0.00216,   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.01439,   0.00198,   0.00023,   0.00001,   0.00001,
1776      +    0.00000,   0.00001,   0.00001,
1777      +    0.01335,   0.00184,   0.00021,   0.00001,   0.00001,
1778      +    0.00000,   0.00001,   0.00001,
1779      +    0.01243,   0.00170,   0.00019,   0.00001,   0.00001,
1780      +    0.00000,   0.00001,   0.00001,
1781      +    0.01161,   0.00158,   0.00017,   0.00001,   0.00001,
1782      +    0.00000,   0.00001,   0.00001,
1783      +    0.01086,   0.00147,   0.00016,   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.04533,   0.00611,   0.00154,   0.00001,   0.00001,
1787      +    0.00000,   0.00001,   0.00001,
1788      +    0.03595,   0.00478,   0.00101,   0.00002,   0.00001,
1789      +    0.00000,   0.00001,   0.00001,
1790      +    0.02945,   0.00384,   0.00070,   0.00001,   0.00001,
1791      +    0.00000,   0.00001,   0.00001,
1792      +    0.02459,   0.00319,   0.00051,   0.00001,   0.00001,
1793      +    0.00000,   0.00001,   0.00001,
1794      +    0.02087,   0.00267,   0.00039,   0.00002,   0.00001,
1795      +    0.00000,   0.00001,   0.00001,
1796      +    0.01799,   0.00229,   0.00030,   0.00002,   0.00001,
1797      +    0.00000,   0.00001,   0.00001,
1798      +    0.01572,   0.00198,   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.01385,   0.00172,   0.00020,   0.00001,   0.00001,
1802      +    0.00000,   0.00001,   0.00001,
1803      +    0.01230,   0.00152,   0.00017,   0.00001,   0.00001,
1804      +    0.00000,   0.00001,   0.00001,
1805      +    0.01100,   0.00135,   0.00014,   0.00001,   0.00001,
1806      +    0.00000,   0.00001,   0.00001,
1807      +    0.00990,   0.00121,   0.00012,   0.00001,   0.00001,
1808      +    0.00000,   0.00001,   0.00001,
1809      +    0.00898,   0.00109,   0.00011,   0.00001,   0.00001,
1810      +    0.00000,   0.00001,   0.00001,
1811      +    0.00816,   0.00099,   0.00009,   0.00001,   0.00001,
1812      +    0.00000,   0.00001,   0.00001,
1813      +    0.00746,   0.00089,   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.00684,   0.00081,   0.00007,   0.00001,   0.00001,
1817      +    0.00000,   0.00001,   0.00001,
1818      +    0.00630,   0.00075,   0.00007,   0.00001,   0.00001,
1819      +    0.00000,   0.00001,   0.00001,
1820      +    0.00582,   0.00069,   0.00006,   0.00001,   0.00001,
1821      +    0.00000,   0.00001,   0.00001,
1822      +    0.00539,   0.00064,   0.00005,   0.00001,   0.00001,
1823      +    0.00000,   0.00001,   0.00001,
1824      +    0.00501,   0.00059,   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.02219,   0.00251,   0.00047,   0.00002,   0.00001,
1828      +    0.00000,   0.00001,   0.00001,
1829      +    0.01715,   0.00193,   0.00029,   0.00001,   0.00001,
1830      +    0.00000,   0.00001,   0.00001,
1831      +    0.01365,   0.00151,   0.00020,   0.00001,   0.00001,
1832      +    0.00000,   0.00001,   0.00001,
1833      +    0.01113,   0.00123,   0.00014,   0.00001,   0.00001,
1834      +    0.00000,   0.00001,   0.00001,
1835      +    0.00928,   0.00099,   0.00011,   0.00001,   0.00001,
1836      +    0.00000,   0.00001,   0.00001,
1837      +    0.00787,   0.00085,   0.00008,   0.00001,   0.00001,
1838      +    0.00000,   0.00001,   0.00001,
1839      +    0.00674,   0.00071,   0.00007,   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.00586,   0.00061,   0.00005,   0.00001,   0.00001,
1843      +    0.00000,   0.00001,   0.00001,
1844      +    0.00513,   0.00055,   0.00004,   0.00001,   0.00001,
1845      +    0.00000,   0.00001,   0.00001,
1846      +    0.00453,   0.00047,   0.00004,   0.00001,   0.00001,
1847      +    0.00000,   0.00001,   0.00001,
1848      +    0.00403,   0.00043,   0.00003,   0.00001,   0.00001,
1849      +    0.00000,   0.00001,   0.00001,
1850      +    0.00360,   0.00037,   0.00003,   0.00001,   0.00001,
1851      +    0.00000,   0.00001,   0.00001,
1852      +    0.00324,   0.00033,   0.00002,   0.00001,   0.00001,
1853      +    0.00000,   0.00001,   0.00001,
1854      +    0.00293,   0.00029,   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.00267,   0.00026,   0.00002,   0.00001,   0.00001,
1858      +    0.00000,   0.00001,   0.00001,
1859      +    0.00243,   0.00023,   0.00002,   0.00001,   0.00001,
1860      +    0.00000,   0.00001,   0.00001,
1861      +    0.00222,   0.00022,   0.00002,   0.00001,   0.00001,
1862      +    0.00000,   0.00001,   0.00001,
1863      +    0.00205,   0.00019,   0.00001,   0.00001,   0.00001,
1864      +    0.00000,   0.00001,   0.00001,
1865      +    0.00188,   0.00018,   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.00211,   0.00016,   0.00001,   0.00001,   0.00001,
1869      +    0.00000,   0.00001,   0.00001,
1870      +    0.00150,   0.00010,   0.00001,   0.00001,   0.00001,
1871      +    0.00000,   0.00001,   0.00001,
1872      +    0.00112,   0.00008,   0.00001,   0.00001,   0.00001,
1873      +    0.00000,   0.00001,   0.00001,
1874      +    0.00087,   0.00006,   0.00000,   0.00001,   0.00001,
1875      +    0.00000,   0.00001,   0.00001,
1876      +    0.00068,   0.00005,   0.00000,   0.00000,   0.00000,
1877      +    0.00000,   0.00000,   0.00000,
1878      +    0.00056,   0.00003,   0.00000,   0.00000,   0.00000,
1879      +    0.00000,   0.00000,   0.00000,
1880      +    0.00045,   0.00003,   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.00038,   0.00003,   0.00000,   0.00000,   0.00000,
1884      +    0.00000,   0.00000,   0.00000,
1885      +    0.00032,   0.00002,   0.00000,   0.00000,   0.00000,
1886      +    0.00000,   0.00000,   0.00000,
1887      +    0.00027,   0.00002,   0.00000,   0.00000,   0.00000,
1888      +    0.00000,   0.00000,   0.00000,
1889      +    0.00024,   0.00002,   0.00000,   0.00000,   0.00000,
1890      +    0.00000,   0.00000,   0.00000,
1891      +    0.00021,   0.00002,   0.00000,   0.00000,   0.00000,
1892      +    0.00000,   0.00000,   0.00000,
1893      +    0.00018,   0.00002,   0.00000,   0.00000,   0.00000,
1894      +    0.00000,   0.00000,   0.00000,
1895      +    0.00016,   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.00009,   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(52,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