]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfmrsg.F
Removing warnings (icc), adding more detailed description
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrsg.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.3  2000/04/19 13:28:45  mclareni
6 * Import version 8.04
7 *
8 * Revision 1.2  2000/04/17 18:54:48  plothow
9 * version 8.04: small mods, dlog to log
10 *
11 * Revision 1.1.1.1  1996/04/12 15:29:39  plothow
12 * Version 7.01
13 *
14 *
15 #include "pdf/pilot.h"
16       SUBROUTINE SFMRSG(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
17 C
18 C     THIS IS THE NEW  "G" FIT -- Feb 1995 -- standard Q^2 range
19 C
20 #include "pdf/impdp.inc"
21 C
22       PARAMETER(NX=47)
23       PARAMETER(NTENTH=21)
24       DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
25         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
26      +    0.00269,   0.00519,  55.04009,   0.93808,   0.23085,
27      +    0.00000,   0.56956,   0.94157,
28      +    0.00308,   0.00544,  74.12506,   1.65007,   0.94742,
29      +    0.00000,   1.28439,   1.65404,
30      +    0.00344,   0.00568,  95.23531,   2.44308,   1.74440,
31      +    0.02544,   2.07989,   2.44748,
32      +    0.00378,   0.00590, 117.89208,   3.27437,   2.57920,
33      +    0.63342,   2.91339,   3.27916,
34      +    0.00410,   0.00610, 141.99054,   4.15617,   3.46418,
35      +    1.57435,   3.79720,   4.16132,
36      +    0.00441,   0.00630, 167.27766,   5.07568,   4.38660,
37      +    2.52873,   4.71856,   5.08117,
38      +    0.00471,   0.00649, 193.47682,   6.02122,   5.33482,
39      +    3.50576,   5.66582,   6.02703 /
40         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
41      +    0.00499,   0.00667, 220.46440,   6.99424,   6.31033,
42      +    4.50790,   6.64044,   7.00035,
43      +    0.00527,   0.00685, 248.05037,   7.98816,   7.30658,
44      +    5.52860,   7.63585,   7.99455,
45      +    0.00554,   0.00701, 276.08490,   8.99885,   8.31945,
46      +    6.56410,   8.64794,   9.00551,
47      +    0.00580,   0.00718, 304.50995,  10.02678,   9.34943,
48      +    7.61513,   9.67720,  10.03370,
49      +    0.00605,   0.00733, 333.27853,  11.07132,  10.39592,
50      +    8.68126,  10.72300,  11.07848,
51      +    0.00630,   0.00749, 362.36829,  12.13224,  11.45868,
52      +    9.76243,  11.78512,  12.13963,
53      +    0.00654,   0.00764, 391.36038,  13.19210,  12.52029,
54      +   10.84137,  12.84611,  13.19972 /
55         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
56      +    0.00677,   0.00778, 420.55627,  14.26562,  13.59549,
57      +   11.93292,  13.92072,  14.27346,
58      +    0.00700,   0.00792, 449.91208,  15.35062,  14.68209,
59      +   13.03497,  15.00677,  15.35866,
60      +    0.00723,   0.00806, 479.00864,  16.43104,  15.76404,
61      +   14.13160,  16.08818,  16.43928,
62      +    0.00745,   0.00820, 508.37811,  17.52810,  16.86257,
63      +   15.24407,  17.18620,  17.53654,
64      +    0.00766,   0.00833, 537.33978,  18.61555,  17.95145,
65      +   16.34625,  18.27459,  18.62418 /
66         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
67      +    0.00429,   0.00679,  43.63768,   0.86288,   0.19610,
68      +    0.00000,   0.51435,   0.86602,
69      +    0.00485,   0.00714,  57.84075,   1.42877,   0.76670,
70      +    0.00000,   1.08300,   1.43224,
71      +    0.00536,   0.00746,  73.25481,   2.03758,   1.37960,
72      +    0.01945,   1.69422,   2.04136,
73      +    0.00584,   0.00776,  89.52473,   2.66278,   2.00842,
74      +    0.47742,   2.32156,   2.66683,
75      +    0.00629,   0.00805, 106.58344,   3.31543,   2.66435,
76      +    1.17743,   2.97615,   3.31973,
77      +    0.00673,   0.00831, 124.25308,   3.98727,   3.33918,
78      +    1.87794,   3.64977,   3.99180,
79      +    0.00715,   0.00857, 142.34306,   4.67060,   4.02528,
80      +    2.58719,   4.33475,   4.67535 /
81         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
82      +    0.00755,   0.00882, 160.77849,   5.36695,   4.72419,
83      +    3.30749,   5.03263,   5.37191,
84      +    0.00794,   0.00905, 179.43553,   6.07203,   5.43166,
85      +    4.03459,   5.73914,   6.07718,
86      +    0.00831,   0.00928, 198.22041,   6.78326,   6.14514,
87      +    4.76625,   6.45172,   6.78860,
88      +    0.00867,   0.00950, 217.10510,   7.50129,   6.86528,
89      +    5.50328,   7.17101,   7.50680,
90      +    0.00902,   0.00971, 236.06654,   8.22592,   7.59192,
91      +    6.24569,   7.89685,   8.23160,
92      +    0.00937,   0.00992, 255.09875,   8.95725,   8.32515,
93      +    6.99369,   8.62932,   8.96309,
94      +    0.00970,   0.01012, 273.92307,   9.68334,   9.05305,
95      +    7.73550,   9.35650,   9.68934 /
96         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
97      +    0.01002,   0.01031, 292.75638,  10.41469,   9.78612,
98      +    8.48169,  10.08889,  10.42083,
99      +    0.01034,   0.01050, 311.57574,  11.14995,  10.52303,
100      +    9.23100,  10.82514,  11.15623,
101      +    0.01065,   0.01068, 330.10516,  11.87821,  11.25286,
102      +    9.97261,  11.55435,  11.88463,
103      +    0.01095,   0.01086, 348.71143,  12.61431,  11.99048,
104      +   10.72141,  12.29137,  12.62087,
105      +    0.01124,   0.01103, 366.94412,  13.34034,  12.71798,
106      +   11.45957,  13.01829,  13.34703 /
107         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
108      +    0.00670,   0.00888,  34.58309,   0.79334,   0.16527,
109      +    0.00000,   0.46419,   0.79626,
110      +    0.00749,   0.00937,  45.11368,   1.23843,   0.61523,
111      +    0.00000,   0.91200,   1.24158,
112      +    0.00822,   0.00981,  56.32086,   1.70222,   1.08323,
113      +    0.01479,   1.37815,   1.70557,
114      +    0.00890,   0.01022,  67.94986,   2.16941,   1.55416,
115      +    0.35792,   1.84744,   2.17294,
116      +    0.00955,   0.01061,  79.96514,   2.64965,   2.03778,
117      +    0.87616,   2.32958,   2.65335,
118      +    0.01016,   0.01098,  92.24657,   3.13785,   2.52908,
119      +    1.38801,   2.81953,   3.14172,
120      +    0.01074,   0.01133, 104.66766,   3.62911,   3.02320,
121      +    1.90067,   3.31240,   3.63312 /
122         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
123      +    0.01131,   0.01166, 117.18735,   4.12490,   3.52164,
124      +    2.41621,   3.80968,   4.12905,
125      +    0.01185,   0.01198, 129.72842,   4.62253,   4.02175,
126      +    2.93203,   4.30872,   4.62681,
127      +    0.01237,   0.01228, 142.23572,   5.12049,   4.52203,
128      +    3.44685,   4.80799,   5.12489,
129      +    0.01287,   0.01258, 154.69917,   5.61948,   5.02320,
130      +    3.96154,   5.30821,   5.62400,
131      +    0.01336,   0.01286, 167.11168,   6.11959,   5.52539,
132      +    4.47634,   5.80950,   6.12423,
133      +    0.01383,   0.01313, 179.47678,   6.62111,   6.02887,
134      +    4.99163,   6.31213,   6.62585,
135      +    0.01429,   0.01340, 191.60965,   7.11592,   6.52555,
136      +    5.49942,   6.80799,   7.12076 /
137         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
138      +    0.01474,   0.01366, 203.66759,   7.61150,   7.02291,
139      +    6.00726,   7.30458,   7.61644,
140      +    0.01517,   0.01391, 215.64014,   8.10708,   7.52019,
141      +    6.51446,   7.80113,   8.11212,
142      +    0.01559,   0.01415, 227.34645,   8.59527,   8.01001,
143      +    7.01369,   8.29024,   8.60040,
144      +    0.01601,   0.01439, 239.03926,   9.08645,   8.50276,
145      +    7.51537,   8.78231,   9.09166,
146      +    0.01641,   0.01462, 250.42131,   9.56843,   8.98625,
147      +    8.00738,   9.26515,   9.57373 /
148         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
149      +    0.00863,   0.01040,  30.17398,   0.75498,   0.14890,
150      +    0.00000,   0.43697,   0.75786,
151      +    0.00961,   0.01099,  38.99531,   1.13951,   0.53839,
152      +    0.00000,   0.82421,   1.14258,
153      +    0.01050,   0.01152,  48.27411,   1.53337,   0.93655,
154      +    0.01256,   1.22043,   1.53660,
155      +    0.01134,   0.01202,  57.80405,   1.92597,   1.33297,
156      +    0.30154,   1.61513,   1.92934,
157      +    0.01212,   0.01248,  67.56464,   2.32604,   1.73650,
158      +    0.73507,   2.01710,   2.32955,
159      +    0.01287,   0.01292,  77.46257,   2.72985,   2.14348,
160      +    1.16005,   2.42265,   2.73349,
161      +    0.01358,   0.01333,  87.40008,   3.13370,   2.55024,
162      +    1.58306,   2.82810,   3.13745 /
163         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
164      +    0.01427,   0.01373,  97.35071,   3.53898,   2.95823,
165      +    2.00603,   3.23487,   3.54284,
166      +    0.01492,   0.01411, 107.25739,   3.94370,   3.36548,
167      +    2.42704,   3.64099,   3.94767,
168      +    0.01556,   0.01447, 117.08073,   4.34678,   3.77095,
169      +    2.84523,   4.04538,   4.35085,
170      +    0.01616,   0.01482, 126.81818,   4.74894,   4.17534,
171      +    3.26146,   4.44877,   4.75310,
172      +    0.01675,   0.01516, 136.46843,   5.15037,   4.57889,
173      +    3.67604,   4.85137,   5.15462,
174      +    0.01733,   0.01548, 146.03833,   5.55141,   4.98193,
175      +    4.08943,   5.25351,   5.55575,
176      +    0.01788,   0.01580, 155.38332,   5.94561,   5.37805,
177      +    4.49528,   5.64877,   5.95004 /
178         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
179      +    0.01842,   0.01610, 164.63324,   6.33911,   5.77337,
180      +    4.89978,   6.04327,   6.34362,
181      +    0.01894,   0.01640, 173.78258,   6.73138,   6.16738,
182      +    5.30245,   6.43650,   6.73596,
183      +    0.01945,   0.01669, 182.69046,   7.11652,   6.55420,
184      +    5.69750,   6.82256,   7.12117,
185      +    0.01994,   0.01697, 191.55995,   7.50298,   6.94226,
186      +    6.09338,   7.20991,   7.50771,
187      +    0.02043,   0.01724, 200.15868,   7.88105,   7.32187,
188      +    6.48044,   7.58883,   7.88584 /
189         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
190      +    0.01030,   0.01164,  27.38437,   0.72870,   0.13799,
191      +    0.00000,   0.41854,   0.73161,
192      +    0.01143,   0.01231,  35.15528,   1.07428,   0.48860,
193      +    0.00000,   0.76684,   1.07734,
194      +    0.01247,   0.01292,  43.26037,   1.42424,   0.84294,
195      +    0.01117,   1.11918,   1.42745,
196      +    0.01343,   0.01348,  51.52355,   1.77062,   1.19321,
197      +    0.26662,   1.46766,   1.77396,
198      +    0.01434,   0.01400,  59.93344,   2.12149,   1.54759,
199      +    0.64808,   1.82044,   2.12495,
200      +    0.01520,   0.01450,  68.41301,   2.47388,   1.90319,
201      +    1.02005,   2.17457,   2.47744,
202      +    0.01602,   0.01497,  76.88164,   2.82477,   2.25705,
203      +    1.38869,   2.52707,   2.82844 /
204         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
205      +    0.01680,   0.01542,  85.32117,   3.17551,   2.61056,
206      +    1.75582,   2.87931,   3.17928,
207      +    0.01756,   0.01585,  93.68624,   3.52451,   2.96213,
208      +    2.11990,   3.22971,   3.52837,
209      +    0.01828,   0.01626, 101.94651,   3.87094,   3.31098,
210      +    2.48032,   3.57745,   3.87489,
211      +    0.01898,   0.01666, 110.10349,   4.21549,   3.65781,
212      +    2.83790,   3.92323,   4.21952,
213      +    0.01965,   0.01704, 118.15879,   4.55843,   4.00290,
214      +    3.19303,   4.26734,   4.56254,
215      +    0.02030,   0.01740, 126.12068,   4.90012,   4.34663,
216      +    3.54615,   4.61014,   4.90430,
217      +    0.02094,   0.01776, 133.86815,   5.23508,   4.68354,
218      +    3.89191,   4.94616,   5.23934 /
219         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
220      +    0.02155,   0.01810, 141.51456,   5.56865,   5.01896,
221      +    4.23567,   5.28073,   5.57298,
222      +    0.02215,   0.01843, 149.05692,   5.90042,   5.35251,
223      +    4.57709,   5.61346,   5.90481,
224      +    0.02272,   0.01876, 156.37718,   6.22540,   5.67919,
225      +    4.91125,   5.93937,   6.22986,
226      +    0.02329,   0.01907, 163.64955,   6.55086,   6.00628,
227      +    5.24545,   6.26572,   6.55539,
228      +    0.02384,   0.01938, 170.67847,   6.86855,   6.32554,
229      +    5.57147,   6.58426,   6.87314 /
230         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
231      +    0.01180,   0.01270,  25.39465,   0.70881,   0.12991,
232      +    0.00000,   0.40472,   0.71177,
233      +    0.01306,   0.01344,  32.43248,   1.02630,   0.45250,
234      +    0.00000,   0.72495,   1.02940,
235      +    0.01422,   0.01411,  39.72435,   1.34516,   0.77581,
236      +    0.01019,   1.04621,   1.34840,
237      +    0.01530,   0.01474,  47.11535,   1.65912,   1.09370,
238      +    0.24213,   1.36228,   1.66247,
239      +    0.01631,   0.01532,  54.60041,   1.97569,   1.41383,
240      +    0.58724,   1.68076,   1.97915,
241      +    0.01727,   0.01587,  62.11357,   2.29242,   1.73382,
242      +    0.92243,   1.99925,   2.29599,
243      +    0.01819,   0.01638,  69.58585,   2.60676,   2.05118,
244      +    1.25351,   2.31521,   2.61042 /
245         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
246      +    0.01906,   0.01688,  77.00473,   2.92000,   2.36722,
247      +    1.58220,   2.62996,   2.92376,
248      +    0.01990,   0.01735,  84.33237,   3.23082,   2.68065,
249      +    1.90724,   2.94218,   3.23466,
250      +    0.02070,   0.01780,  91.54472,   3.53854,   2.99083,
251      +    2.22816,   3.25122,   3.54247,
252      +    0.02148,   0.01824,  98.64532,   3.84386,   3.29846,
253      +    2.54577,   3.55779,   3.84786,
254      +    0.02223,   0.01865, 105.63778,   4.14707,   3.60385,
255      +    2.86047,   3.86216,   4.15114,
256      +    0.02295,   0.01906, 112.53145,   4.44852,   3.90738,
257      +    3.17272,   4.16474,   4.45267,
258      +    0.02365,   0.01945, 119.22063,   4.74344,   4.20427,
259      +    3.47782,   4.46072,   4.74765 /
260         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
261      +    0.02433,   0.01982, 125.80739,   5.03657,   4.49929,
262      +    3.78057,   4.75486,   5.04085,
263      +    0.02499,   0.02019, 132.29031,   5.32761,   4.79213,
264      +    4.08072,   5.04687,   5.33196,
265      +    0.02563,   0.02054, 138.56662,   5.61218,   5.07842,
266      +    4.37394,   5.33236,   5.61658,
267      +    0.02625,   0.02088, 144.79092,   5.89673,   5.36463,
268      +    4.66674,   5.61780,   5.90119,
269      +    0.02686,   0.02122, 150.79224,   6.17400,   5.64349,
270      +    4.95187,   5.89593,   6.17852 /
271         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
272      +    0.01784,   0.01668,  20.05825,   0.64939,   0.10686,
273      +    0.00000,   0.36425,   0.65272,
274      +    0.01965,   0.01770,  25.20509,   0.89038,   0.35320,
275      +    0.00000,   0.60808,   0.89386,
276      +    0.02130,   0.01862,  30.42582,   1.12707,   0.59455,
277      +    0.00761,   0.84725,   1.13068,
278      +    0.02282,   0.01947,  35.62016,   1.35667,   0.82829,
279      +    0.17844,   1.07904,   1.36040,
280      +    0.02424,   0.02026,  40.79804,   1.58504,   1.06041,
281      +    0.42995,   1.30940,   1.58887,
282      +    0.02559,   0.02100,  45.92116,   1.81091,   1.28971,
283      +    0.67126,   1.53709,   1.81485,
284      +    0.02687,   0.02170,  50.94894,   2.03280,   1.51477,
285      +    0.90718,   1.76066,   2.03683 /
286         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
287      +    0.02808,   0.02237,  55.88126,   2.25183,   1.73675,
288      +    1.13915,   1.98126,   2.25595,
289      +    0.02925,   0.02300,  60.69846,   2.46728,   1.95495,
290      +    1.36652,   2.19816,   2.47149,
291      +    0.03036,   0.02361,  65.39013,   2.67885,   2.16912,
292      +    1.58916,   2.41111,   2.68314,
293      +    0.03143,   0.02419,  69.96445,   2.88719,   2.37989,
294      +    1.80781,   2.62073,   2.89155,
295      +    0.03246,   0.02475,  74.42881,   3.09261,   2.58761,
296      +    2.02288,   2.82738,   3.09705,
297      +    0.03345,   0.02528,  78.79345,   3.29551,   2.79270,
298      +    2.23484,   3.03143,   3.30002,
299      +    0.03441,   0.02580,  82.99005,   3.49269,   2.99197,
300      +    2.44058,   3.22972,   3.49727 /
301         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
302      +    0.03534,   0.02630,  87.09189,   3.68753,   3.18879,
303      +    2.64350,   3.42560,   3.69218,
304      +    0.03624,   0.02678,  91.10059,   3.87989,   3.38306,
305      +    2.84353,   3.61898,   3.88461,
306      +    0.03711,   0.02725,  94.94978,   4.06687,   3.57186,
307      +    3.03779,   3.80692,   4.07165,
308      +    0.03796,   0.02770,  98.74551,   4.25296,   3.75969,
309      +    3.23081,   3.99393,   4.25780,
310      +    0.03878,   0.02814, 102.37583,   4.43327,   3.94168,
311      +    3.41774,   4.17513,   4.43817 /
312         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
313      +    0.02677,   0.02201,  15.77720,   0.59273,   0.08675,
314      +    0.00000,   0.32699,   0.59684,
315      +    0.02933,   0.02341,  19.50018,   0.77156,   0.27127,
316      +    0.00000,   0.50885,   0.77588,
317      +    0.03166,   0.02466,  23.19359,   0.94432,   0.44898,
318      +    0.00562,   0.68424,   0.94881,
319      +    0.03380,   0.02581,  26.79719,   1.10977,   0.61883,
320      +    0.13008,   0.85204,   1.11442,
321      +    0.03579,   0.02688,  30.33009,   1.27224,   0.78529,
322      +    0.31146,   1.01663,   1.27704,
323      +    0.03767,   0.02789,  33.77290,   1.43114,   0.94785,
324      +    0.48344,   1.17748,   1.43608,
325      +    0.03945,   0.02883,  37.10410,   1.58569,   1.10578,
326      +    0.64988,   1.33383,   1.59076 /
327         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
328      +    0.04113,   0.02972,  40.33062,   1.73679,   1.26002,
329      +    0.81196,   1.48660,   1.74199,
330      +    0.04273,   0.03057,  43.44416,   1.88412,   1.41029,
331      +    0.96940,   1.63549,   1.88944,
332      +    0.04426,   0.03138,  46.44238,   2.02761,   1.55654,
333      +    1.12229,   1.78045,   2.03304,
334      +    0.04573,   0.03215,  49.33528,   2.16779,   1.69932,
335      +    1.27124,   1.92202,   2.17333,
336      +    0.04713,   0.03289,  52.13140,   2.30502,   1.83901,
337      +    1.41667,   2.06055,   2.31066,
338      +    0.04849,   0.03360,  54.84068,   2.43963,   1.97596,
339      +    1.55899,   2.19641,   2.44538,
340      +    0.04979,   0.03429,  57.41934,   2.56955,   2.10810,
341      +    1.69619,   2.32751,   2.57539 /
342         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
343      +    0.05105,   0.03495,  59.91969,   2.69714,   2.23781,
344      +    1.83067,   2.45622,   2.70308,
345      +    0.05227,   0.03558,  62.34460,   2.82239,   2.36508,
346      +    1.96244,   2.58255,   2.82842,
347      +    0.05345,   0.03619,  64.65158,   2.94337,   2.48801,
348      +    2.08963,   2.70456,   2.94948,
349      +    0.05459,   0.03679,  66.91292,   3.06318,   2.60968,
350      +    2.21536,   2.82537,   3.06938,
351      +    0.05570,   0.03736,  69.05586,   3.17858,   2.72687,
352      +    2.33641,   2.94171,   3.18485 /
353         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
354      +    0.03384,   0.02599,  13.66262,   0.56034,   0.07632,
355      +    0.00000,   0.30639,   0.56512,
356      +    0.03698,   0.02766,  16.71935,   0.70863,   0.23054,
357      +    0.00000,   0.45786,   0.71367,
358      +    0.03982,   0.02917,  19.71086,   0.85086,   0.37793,
359      +    0.00467,   0.60286,   0.85613,
360      +    0.04242,   0.03054,  22.59473,   0.98619,   0.51785,
361      +    0.10739,   0.74065,   0.99167,
362      +    0.04484,   0.03181,  25.39314,   1.11811,   0.65394,
363      +    0.25622,   0.87481,   1.12378,
364      +    0.04711,   0.03300,  28.09462,   1.24630,   0.78595,
365      +    0.39637,   1.00505,   1.25216,
366      +    0.04925,   0.03412,  30.68545,   1.37025,   0.91342,
367      +    0.53120,   1.13089,   1.37627 /
368         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
369      +    0.05127,   0.03518,  33.17494,   1.49075,   1.03720,
370      +    0.66173,   1.25315,   1.49693,
371      +    0.05320,   0.03619,  35.55912,   1.60762,   1.15714,
372      +    0.78786,   1.37166,   1.61396,
373      +    0.05503,   0.03714,  37.83856,   1.72087,   1.27327,
374      +    0.90972,   1.48646,   1.72735,
375      +    0.05678,   0.03805,  40.02342,   1.83099,   1.38611,
376      +    1.02787,   1.59804,   1.83762,
377      +    0.05847,   0.03892,  42.12228,   1.93831,   1.49599,
378      +    1.14271,   1.70674,   1.94507,
379      +    0.06008,   0.03976,  44.14441,   2.04316,   1.60327,
380      +    1.25462,   1.81289,   2.05004,
381      +    0.06163,   0.04056,  46.05630,   2.14392,   1.70635,
382      +    1.36206,   1.91489,   2.15092 /
383         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
384      +    0.06313,   0.04133,  47.90068,   2.24249,   1.80714,
385      +    1.46695,   2.01465,   2.24962,
386      +    0.06457,   0.04207,  49.68069,   2.33892,   1.90568,
387      +    1.56936,   2.11221,   2.34616,
388      +    0.06596,   0.04279,  51.36375,   2.43170,   2.00049,
389      +    1.66784,   2.20608,   2.43905,
390      +    0.06732,   0.04348,  53.00735,   2.52330,   2.09404,
391      +    1.76488,   2.29873,   2.53077,
392      +    0.06862,   0.04415,  54.55517,   2.61120,   2.18381,
393      +    1.85797,   2.38763,   2.61877 /
394         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
395      +    0.03993,   0.02932,  12.30660,   0.53746,   0.06952,
396      +    0.00000,   0.29218,   0.54282,
397      +    0.04355,   0.03122,  14.95107,   0.66647,   0.20464,
398      +    0.00000,   0.42449,   0.67213,
399      +    0.04681,   0.03293,  17.51349,   0.78966,   0.33317,
400      +    0.00409,   0.55056,   0.79560,
401      +    0.04978,   0.03448,  19.96186,   0.90635,   0.45461,
402      +    0.09337,   0.66982,   0.91254,
403      +    0.05255,   0.03592,  22.31970,   1.01952,   0.57207,
404      +    0.22221,   0.78531,   1.02594,
405      +    0.05514,   0.03727,  24.57994,   1.12898,   0.68548,
406      +    0.34293,   0.89690,   1.13562,
407      +    0.05758,   0.03853,  26.73329,   1.23436,   0.79450,
408      +    0.45856,   1.00425,   1.24120 /
409         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
410      +    0.05988,   0.03972,  28.79006,   1.33639,   0.89992,
411      +    0.57005,   1.10811,   1.34343,
412      +    0.06206,   0.04085,  30.74858,   1.43497,   1.00167,
413      +    0.67736,   1.20840,   1.44219,
414      +    0.06414,   0.04192,  32.61092,   1.53014,   1.09981,
415      +    0.78065,   1.30518,   1.53754,
416      +    0.06612,   0.04294,  34.38702,   1.62237,   1.19484,
417      +    0.88044,   1.39892,   1.62993,
418      +    0.06802,   0.04391,  36.08525,   1.71196,   1.28708,
419      +    0.97712,   1.48994,   1.71967,
420      +    0.06984,   0.04484,  37.71435,   1.79921,   1.37684,
421      +    1.07105,   1.57855,   1.80708,
422      +    0.07159,   0.04573,  39.24672,   1.88279,   1.46282,
423      +    1.16093,   1.66342,   1.89081 /
424         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
425      +    0.07327,   0.04659,  40.71925,   1.96434,   1.54665,
426      +    1.24845,   1.74621,   1.97250,
427      +    0.07489,   0.04742,  42.13503,   2.04390,   1.62840,
428      +    1.33367,   1.82695,   2.05219,
429      +    0.07646,   0.04822,  43.46724,   2.12023,   1.70682,
430      +    1.41538,   1.90441,   2.12865,
431      +    0.07797,   0.04899,  44.76455,   2.19543,   1.78402,
432      +    1.49571,   1.98069,   2.20398,
433      +    0.07943,   0.04973,  45.98016,   2.26738,   1.85790,
434      +    1.57256,   2.05368,   2.27605 /
435         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
436      +    0.04544,   0.03232,  11.31137,   0.51949,   0.06475,
437      +    0.00000,   0.28121,   0.52522,
438      +    0.04945,   0.03443,  13.65905,   0.63506,   0.18659,
439      +    0.00000,   0.40017,   0.64113,
440      +    0.05307,   0.03631,  15.91589,   0.74479,   0.30180,
441      +    0.00367,   0.51286,   0.75116,
442      +    0.05636,   0.03802,  18.05700,   0.84826,   0.41014,
443      +    0.08343,   0.61896,   0.85490,
444      +    0.05942,   0.03961,  20.10622,   0.94814,   0.51444,
445      +    0.19812,   0.72123,   0.95505,
446      +    0.06227,   0.04108,  22.05949,   1.04439,   0.61472,
447      +    0.30512,   0.81966,   1.05153,
448      +    0.06495,   0.04247,  23.91000,   1.13671,   0.71078,
449      +    0.40726,   0.91400,   1.14408 /
450         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
451      +    0.06748,   0.04377,  25.66904,   1.22579,   0.80334,
452      +    0.50539,   1.00496,   1.23337,
453      +    0.06988,   0.04500,  27.33588,   1.31157,   0.89236,
454      +    0.59953,   1.09250,   1.31936,
455      +    0.07215,   0.04616,  28.91352,   1.39416,   0.97799,
456      +    0.68988,   1.17673,   1.40213,
457      +    0.07432,   0.04727,  30.41193,   1.47395,   1.06065,
458      +    0.77692,   1.25807,   1.48210,
459      +    0.07639,   0.04833,  31.83911,   1.55124,   1.14066,
460      +    0.86102,   1.33684,   1.55957,
461      +    0.07838,   0.04934,  33.20328,   1.62635,   1.21834,
462      +    0.94251,   1.41333,   1.63484,
463      +    0.08028,   0.05031,  34.48087,   1.69810,   1.29254,
464      +    1.02030,   1.48641,   1.70675 /
465         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
466      +    0.08211,   0.05124,  35.70431,   1.76794,   1.36472,
467      +    1.09585,   1.55751,   1.77675,
468      +    0.08388,   0.05214,  36.87663,   1.83593,   1.43494,
469      +    1.16927,   1.62671,   1.84489,
470      +    0.08558,   0.05300,  37.97540,   1.90102,   1.50216,
471      +    1.23951,   1.69295,   1.91012,
472      +    0.08723,   0.05383,  39.04290,   1.96502,   1.56822,
473      +    1.30843,   1.75807,   1.97426,
474      +    0.08881,   0.05463,  40.03866,   2.02611,   1.63128,
475      +    1.37422,   1.82022,   2.03548 /
476         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
477      +    0.06768,   0.04415,   8.61584,   0.46308,   0.05142,
478      +    0.00000,   0.24796,   0.47059,
479      +    0.07319,   0.04700,  10.20898,   0.54291,   0.13808,
480      +    0.00000,   0.33152,   0.55091,
481      +    0.07812,   0.04954,  11.70121,   0.61754,   0.21867,
482      +    0.00258,   0.40941,   0.62598,
483      +    0.08256,   0.05183,  13.08360,   0.68701,   0.29342,
484      +    0.05790,   0.48176,   0.69584,
485      +    0.08666,   0.05393,  14.37958,   0.75315,   0.36435,
486      +    0.13658,   0.55052,   0.76235,
487      +    0.09047,   0.05588,  15.59109,   0.81610,   0.43169,
488      +    0.20904,   0.61587,   0.82565,
489      +    0.09403,   0.05769,  16.71752,   0.87581,   0.49544,
490      +    0.27742,   0.67778,   0.88567 /
491         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
492      +    0.09736,   0.05938,  17.77018,   0.93280,   0.55618,
493      +    0.34240,   0.73682,   0.94296,
494      +    0.10051,   0.06097,  18.75124,   0.98712,   0.61399,
495      +    0.40410,   0.79305,   0.99756,
496      +    0.10347,   0.06247,  19.66505,   1.03890,   0.66904,
497      +    0.46274,   0.84661,   1.04960,
498      +    0.10629,   0.06389,  20.52015,   1.08846,   0.72169,
499      +    0.51871,   0.89786,   1.09941,
500      +    0.10897,   0.06524,  21.32339,   1.13605,   0.77219,
501      +    0.57231,   0.94704,   1.14723,
502      +    0.11154,   0.06653,  22.08137,   1.18190,   0.82081,
503      +    0.62383,   0.99441,   1.19332,
504      +    0.11398,   0.06775,  22.77973,   1.22533,   0.86687,
505      +    0.67259,   1.03927,   1.23696 /
506         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
507      +    0.11632,   0.06892,  23.44060,   1.26729,   0.91132,
508      +    0.71960,   1.08259,   1.27912,
509      +    0.11857,   0.07004,  24.06660,   1.30783,   0.95425,
510      +    0.76495,   1.12444,   1.31987,
511      +    0.12072,   0.07111,  24.64403,   1.34632,   0.99503,
512      +    0.80801,   1.16418,   1.35855,
513      +    0.12280,   0.07214,  25.20043,   1.38396,   1.03485,
514      +    0.85000,   1.20301,   1.39637,
515      +    0.12480,   0.07313,  25.71060,   1.41958,   1.07257,
516      +    0.88977,   1.23977,   1.43216 /
517         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
518      +    0.10038,   0.06152,   6.39838,   0.40386,   0.04028,
519      +    0.00000,   0.21467,   0.41396,
520      +    0.10775,   0.06531,   7.43979,   0.45628,   0.10009,
521      +    0.00000,   0.27117,   0.46708,
522      +    0.11426,   0.06864,   8.38713,   0.50450,   0.15473,
523      +    0.00177,   0.32293,   0.51592,
524      +    0.12008,   0.07161,   9.24073,   0.54876,   0.20467,
525      +    0.03897,   0.37032,   0.56073,
526      +    0.12540,   0.07430,  10.02179,   0.59029,   0.25132,
527      +    0.09130,   0.41467,   0.60277,
528      +    0.13031,   0.07678,  10.73483,   0.62929,   0.29500,
529      +    0.13880,   0.45625,   0.64224,
530      +    0.13485,   0.07906,  11.38255,   0.66583,   0.33584,
531      +    0.18310,   0.49516,   0.67920 /
532         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
533      +    0.13908,   0.08117,  11.97523,   0.70027,   0.37426,
534      +    0.22469,   0.53180,   0.71404,
535      +    0.14304,   0.08315,  12.51620,   0.73272,   0.41042,
536      +    0.26374,   0.56629,   0.74686,
537      +    0.14676,   0.08499,  13.00955,   0.76331,   0.44447,
538      +    0.30046,   0.59878,   0.77780,
539      +    0.15026,   0.08672,  13.46212,   0.79227,   0.47669,
540      +    0.33515,   0.62954,   0.80708,
541      +    0.15358,   0.08836,  13.87946,   0.81980,   0.50729,
542      +    0.36805,   0.65876,   0.83492,
543      +    0.15674,   0.08991,  14.26664,   0.84607,   0.53647,
544      +    0.39937,   0.68664,   0.86149,
545      +    0.15972,   0.09137,  14.61512,   0.87068,   0.56383,
546      +    0.42875,   0.71276,   0.88637 /
547         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
548      +    0.16257,   0.09276,  14.93951,   0.89425,   0.59002,
549      +    0.45683,   0.73777,   0.91020,
550      +    0.16530,   0.09409,  15.24181,   0.91684,   0.61510,
551      +    0.48370,   0.76174,   0.93305,
552      +    0.16790,   0.09534,  15.51394,   0.93806,   0.63870,
553      +    0.50899,   0.78426,   0.95450,
554      +    0.17040,   0.09655,  15.77335,   0.95866,   0.66159,
555      +    0.53348,   0.80612,   0.97533,
556      +    0.17278,   0.09770,  16.00476,   0.97795,   0.68306,
557      +    0.55647,   0.82661,   0.99484 /
558         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
559      +    0.12610,   0.07531,   5.29865,   0.36750,   0.03459,
560      +   -0.00001,   0.19502,   0.37986,
561      +    0.13467,   0.07969,   6.09709,   0.40718,   0.08192,
562      +   -0.00001,   0.23895,   0.42039,
563      +    0.14219,   0.08351,   6.80911,   0.44333,   0.12471,
564      +    0.00138,   0.27879,   0.45729,
565      +    0.14888,   0.08687,   7.43835,   0.47623,   0.16346,
566      +    0.03040,   0.31493,   0.49085,
567      +    0.15494,   0.08992,   8.00421,   0.50683,   0.19933,
568      +    0.07093,   0.34845,   0.52204,
569      +    0.16051,   0.09268,   8.51220,   0.53532,   0.23262,
570      +    0.10741,   0.37961,   0.55108,
571      +    0.16562,   0.09522,   8.96579,   0.56179,   0.26349,
572      +    0.14117,   0.40852,   0.57805 /
573         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
574      +    0.17037,   0.09755,   9.37393,   0.58654,   0.29232,
575      +    0.17262,   0.43553,   0.60326,
576      +    0.17479,   0.09972,   9.74081,   0.60968,   0.31924,
577      +    0.20195,   0.46077,   0.62682,
578      +    0.17892,   0.10173,  10.06995,   0.63132,   0.34440,
579      +    0.22933,   0.48435,   0.64885,
580      +    0.18279,   0.10360,  10.36721,   0.65165,   0.36805,
581      +    0.25503,   0.50651,   0.66955,
582      +    0.18645,   0.10537,  10.63731,   0.67084,   0.39035,
583      +    0.27925,   0.52743,   0.68909,
584      +    0.18991,   0.10703,  10.88445,   0.68904,   0.41150,
585      +    0.30217,   0.54726,   0.70761,
586      +    0.19317,   0.10858,  11.10213,   0.70595,   0.43120,
587      +    0.32354,   0.56572,   0.72483 /
588         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
589      +    0.19627,   0.11006,  11.30211,   0.72204,   0.44993,
590      +    0.34385,   0.58327,   0.74121,
591      +    0.19922,   0.11146,  11.48601,   0.73737,   0.46778,
592      +    0.36318,   0.59999,   0.75681,
593      +    0.20202,   0.11278,  11.64761,   0.75165,   0.48446,
594      +    0.38126,   0.61559,   0.77135,
595      +    0.20471,   0.11405,  11.80025,   0.76545,   0.50057,
596      +    0.39870,   0.63067,   0.78540,
597      +    0.20727,   0.11524,  11.93268,   0.77827,   0.51559,
598      +    0.41498,   0.64470,   0.79845 /
599         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
600      +    0.14803,   0.08722,   4.59800,   0.34083,   0.03090,
601      +   -0.00001,   0.18093,   0.35524,
602      +    0.15748,   0.09200,   5.25438,   0.37279,   0.07066,
603      +   -0.00001,   0.21725,   0.38818,
604      +    0.16572,   0.09614,   5.83030,   0.40173,   0.10632,
605      +    0.00115,   0.24994,   0.41795,
606      +    0.17299,   0.09976,   6.33107,   0.42789,   0.13841,
607      +    0.02528,   0.27940,   0.44485,
608      +    0.17957,   0.10300,   6.77501,   0.45205,   0.16789,
609      +    0.05880,   0.30652,   0.46966,
610      +    0.18557,   0.10594,   7.16787,   0.47439,   0.19508,
611      +    0.08877,   0.33157,   0.49260,
612      +    0.19105,   0.10861,   7.51347,   0.49501,   0.22014,
613      +    0.11634,   0.35466,   0.51376 /
614         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
615      +    0.19613,   0.11106,   7.82012,   0.51417,   0.24339,
616      +    0.14189,   0.37609,   0.53342,
617      +    0.20082,   0.11332,   8.09182,   0.53196,   0.26498,
618      +    0.16558,   0.39600,   0.55167,
619      +    0.20520,   0.11540,   8.33199,   0.54849,   0.28505,
620      +    0.18758,   0.41448,   0.56861,
621      +    0.20928,   0.11734,   8.54581,   0.56393,   0.30380,
622      +    0.20813,   0.43176,   0.58444,
623      +    0.21313,   0.11915,   8.73740,   0.57841,   0.32140,
624      +    0.22739,   0.44797,   0.59929,
625      +    0.21675,   0.12085,   8.91042,   0.59206,   0.33800,
626      +    0.24555,   0.46327,   0.61329,
627      +    0.22015,   0.12243,   9.05964,   0.60467,   0.35339,
628      +    0.26239,   0.47741,   0.62621 /
629         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
630      +    0.22337,   0.12392,   9.19486,   0.61659,   0.36795,
631      +    0.27832,   0.49080,   0.63843,
632      +    0.22644,   0.12533,   9.31747,   0.62789,   0.38177,
633      +    0.29342,   0.50349,   0.65001,
634      +    0.22933,   0.12665,   9.42245,   0.63834,   0.39461,
635      +    0.30748,   0.51526,   0.66073,
636      +    0.23210,   0.12792,   9.52071,   0.64841,   0.40696,
637      +    0.32099,   0.52659,   0.67105,
638      +    0.23472,   0.12910,   9.60318,   0.65768,   0.41842,
639      +    0.33355,   0.53707,   0.68055 /
640         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
641      +    0.16748,   0.09785,   4.09947,   0.31969,   0.02823,
642      +    0.00000,   0.16998,   0.33606,
643      +    0.17759,   0.10292,   4.66121,   0.34639,   0.06278,
644      +    0.00000,   0.20108,   0.36382,
645      +    0.18636,   0.10727,   5.14709,   0.37042,   0.09358,
646      +    0.00100,   0.22891,   0.38877,
647      +    0.19407,   0.11104,   5.56341,   0.39204,   0.12114,
648      +    0.02179,   0.25384,   0.41116,
649      +    0.20100,   0.11441,   5.92782,   0.41188,   0.14632,
650      +    0.05057,   0.27667,   0.43171,
651      +    0.20729,   0.11744,   6.24610,   0.43012,   0.16941,
652      +    0.07616,   0.29762,   0.45058,
653      +    0.21303,   0.12018,   6.52246,   0.44687,   0.19059,
654      +    0.09960,   0.31684,   0.46789 /
655         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
656      +    0.21830,   0.12267,   6.76435,   0.46232,   0.21013,
657      +    0.12120,   0.33457,   0.48386,
658      +    0.22318,   0.12496,   6.97560,   0.47660,   0.22819,
659      +    0.14114,   0.35095,   0.49861,
660      +    0.22769,   0.12706,   7.15981,   0.48979,   0.24491,
661      +    0.15959,   0.36611,   0.51223,
662      +    0.23190,   0.12900,   7.32142,   0.50204,   0.26046,
663      +    0.17674,   0.38019,   0.52487,
664      +    0.23584,   0.13081,   7.46428,   0.51346,   0.27499,
665      +    0.19276,   0.39334,   0.53667,
666      +    0.23955,   0.13250,   7.59165,   0.52417,   0.28863,
667      +    0.20779,   0.40568,   0.54773,
668      +    0.24300,   0.13406,   7.69881,   0.53399,   0.30120,
669      +    0.22167,   0.41702,   0.55787 /
670         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
671      +    0.24628,   0.13554,   7.79458,   0.54324,   0.31307,
672      +    0.23476,   0.42772,   0.56741,
673      +    0.24938,   0.13692,   7.88015,   0.55196,   0.32428,
674      +    0.24712,   0.43782,   0.57641,
675      +    0.25229,   0.13821,   7.95121,   0.55997,   0.33466,
676      +    0.25859,   0.44714,   0.58468,
677      +    0.25509,   0.13945,   8.01701,   0.56766,   0.34461,
678      +    0.26958,   0.45608,   0.59262,
679      +    0.25771,   0.14059,   8.06985,   0.57468,   0.35379,
680      +    0.27973,   0.46429,   0.59986 /
681         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
682      +    0.24419,   0.14014,   2.79566,   0.25224,   0.02089,
683      +    0.00000,   0.13632,   0.27748,
684      +    0.25595,   0.14557,   3.13467,   0.26619,   0.04257,
685      +    0.00000,   0.15464,   0.29264,
686      +    0.26590,   0.15008,   3.41080,   0.27849,   0.06150,
687      +    0.00062,   0.17067,   0.30593,
688      +    0.27446,   0.15387,   3.63307,   0.28929,   0.07808,
689      +    0.01330,   0.18471,   0.31756,
690      +    0.28200,   0.15716,   3.81685,   0.29896,   0.09292,
691      +    0.03060,   0.19728,   0.32794,
692      +    0.28872,   0.16003,   3.96810,   0.30764,   0.10627,
693      +    0.04570,   0.20857,   0.33723,
694      +    0.29473,   0.16255,   4.09096,   0.31537,   0.11826,
695      +    0.05928,   0.21867,   0.34550 /
696         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
697      +    0.30015,   0.16478,   4.19167,   0.32234,   0.12913,
698      +    0.07160,   0.22781,   0.35293,
699      +    0.30507,   0.16678,   4.27336,   0.32860,   0.13899,
700      +    0.08277,   0.23606,   0.35959,
701      +    0.30956,   0.16855,   4.33881,   0.33420,   0.14794,
702      +    0.09294,   0.24351,   0.36556,
703      +    0.31366,   0.17016,   4.39139,   0.33926,   0.15612,
704      +    0.10224,   0.25030,   0.37095,
705      +    0.31744,   0.17161,   4.43360,   0.34386,   0.16364,
706      +    0.11080,   0.25650,   0.37583,
707      +    0.32096,   0.17294,   4.46755,   0.34806,   0.17059,
708      +    0.11873,   0.26222,   0.38030,
709      +    0.32416,   0.17413,   4.49085,   0.35177,   0.17688,
710      +    0.12592,   0.26734,   0.38423 /
711         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
712      +    0.32716,   0.17522,   4.50865,   0.35517,   0.18273,
713      +    0.13262,   0.27208,   0.38784,
714      +    0.32997,   0.17622,   4.52167,   0.35829,   0.18817,
715      +    0.13887,   0.27647,   0.39116,
716      +    0.33254,   0.17713,   4.52744,   0.36103,   0.19310,
717      +    0.14456,   0.28040,   0.39405,
718      +    0.33499,   0.17798,   4.53140,   0.36361,   0.19778,
719      +    0.14996,   0.28413,   0.39679,
720      +    0.33724,   0.17873,   4.52925,   0.36585,   0.20201,
721      +    0.15487,   0.28744,   0.39916 /
722         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
723      +    0.35111,   0.19714,   1.86020,   0.18489,   0.01497,
724      +   -0.00002,   0.10460,   0.22397,
725      +    0.36249,   0.20108,   2.05100,   0.19073,   0.02794,
726      +   -0.00001,   0.11438,   0.23055,
727      +    0.37170,   0.20408,   2.19024,   0.19561,   0.03890,
728      +    0.00035,   0.12259,   0.23596,
729      +    0.37926,   0.20637,   2.28925,   0.19964,   0.04819,
730      +    0.00762,   0.12948,   0.24035,
731      +    0.38564,   0.20818,   2.36156,   0.20303,   0.05626,
732      +    0.01735,   0.13539,   0.24398,
733      +    0.39109,   0.20960,   2.41274,   0.20585,   0.06328,
734      +    0.02560,   0.14047,   0.24699,
735      +    0.39574,   0.21069,   2.44654,   0.20817,   0.06941,
736      +    0.03284,   0.14483,   0.24942 /
737         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
738      +    0.39975,   0.21155,   2.46789,   0.21009,   0.07482,
739      +    0.03925,   0.14860,   0.25140,
740      +    0.40322,   0.21221,   2.47914,   0.21165,   0.07957,
741      +    0.04492,   0.15185,   0.25297,
742      +    0.40623,   0.21268,   2.48220,   0.21289,   0.08377,
743      +    0.04997,   0.15464,   0.25419,
744      +    0.40887,   0.21301,   2.47939,   0.21387,   0.08750,
745      +    0.05448,   0.15706,   0.25513,
746      +    0.41118,   0.21325,   2.47221,   0.21465,   0.09083,
747      +    0.05854,   0.15917,   0.25585,
748      +    0.41323,   0.21340,   2.46187,   0.21526,   0.09384,
749      +    0.06222,   0.16103,   0.25639,
750      +    0.41499,   0.21343,   2.44706,   0.21564,   0.09647,
751      +    0.06549,   0.16257,   0.25667 /
752         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
753      +    0.41654,   0.21341,   2.43065,   0.21590,   0.09886,
754      +    0.06846,   0.16393,   0.25683,
755      +    0.41791,   0.21335,   2.41297,   0.21607,   0.10102,
756      +    0.07119,   0.16512,   0.25688,
757      +    0.41907,   0.21320,   2.39269,   0.21607,   0.10291,
758      +    0.07360,   0.16609,   0.25675,
759      +    0.42015,   0.21303,   2.37264,   0.21603,   0.10467,
760      +    0.07586,   0.16697,   0.25659,
761      +    0.42102,   0.21280,   2.35049,   0.21584,   0.10619,
762      +    0.07785,   0.16765,   0.25627 /
763         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
764      +    0.42907,   0.23418,   1.47819,   0.14703,   0.01209,
765      +    0.00000,   0.08733,   0.19523,
766      +    0.43796,   0.23560,   1.59814,   0.14970,   0.02138,
767      +    0.00000,   0.09346,   0.19776,
768      +    0.44468,   0.23633,   1.67494,   0.15169,   0.02897,
769      +    0.00026,   0.09834,   0.19950,
770      +    0.44978,   0.23651,   1.72030,   0.15311,   0.03522,
771      +    0.00527,   0.10223,   0.20058,
772      +    0.45377,   0.23637,   1.74629,   0.15410,   0.04049,
773      +    0.01187,   0.10539,   0.20121,
774      +    0.45686,   0.23598,   1.75777,   0.15475,   0.04497,
775      +    0.01736,   0.10796,   0.20146,
776      +    0.45924,   0.23539,   1.75797,   0.15509,   0.04876,
777      +    0.02206,   0.11003,   0.20139 /
778         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
779      +    0.46106,   0.23465,   1.75075,   0.15520,   0.05200,
780      +    0.02612,   0.11168,   0.20105,
781      +    0.46240,   0.23381,   1.73789,   0.15511,   0.05479,
782      +    0.02965,   0.11300,   0.20054,
783      +    0.46335,   0.23288,   1.72084,   0.15485,   0.05719,
784      +    0.03274,   0.11404,   0.19986,
785      +    0.46399,   0.23190,   1.70110,   0.15447,   0.05925,
786      +    0.03544,   0.11485,   0.19904,
787      +    0.46439,   0.23088,   1.67969,   0.15399,   0.06105,
788      +    0.03782,   0.11547,   0.19815,
789      +    0.46460,   0.22984,   1.65737,   0.15345,   0.06262,
790      +    0.03995,   0.11595,   0.19721,
791      +    0.46455,   0.22874,   1.63319,   0.15279,   0.06395,
792      +    0.04180,   0.11624,   0.19614 /
793         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
794      +    0.46437,   0.22765,   1.60900,   0.15210,   0.06513,
795      +    0.04344,   0.11644,   0.19505,
796      +    0.46409,   0.22656,   1.58493,   0.15138,   0.06616,
797      +    0.04492,   0.11654,   0.19393,
798      +    0.46363,   0.22543,   1.56008,   0.15059,   0.06702,
799      +    0.04620,   0.11653,   0.19274,
800      +    0.46314,   0.22434,   1.53619,   0.14981,   0.06781,
801      +    0.04738,   0.11649,   0.19158,
802      +    0.46249,   0.22321,   1.51173,   0.14895,   0.06844,
803      +    0.04840,   0.11633,   0.19036 /
804         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
805      +    0.48971,   0.25836,   1.26878,   0.12090,   0.01018,
806      +    0.00000,   0.07514,   0.17407,
807      +    0.49497,   0.25702,   1.34015,   0.12184,   0.01730,
808      +    0.00000,   0.07908,   0.17392,
809      +    0.49836,   0.25527,   1.37658,   0.12225,   0.02293,
810      +    0.00019,   0.08202,   0.17334,
811      +    0.50032,   0.25330,   1.38917,   0.12229,   0.02744,
812      +    0.00392,   0.08417,   0.17237,
813      +    0.50137,   0.25120,   1.38823,   0.12205,   0.03115,
814      +    0.00876,   0.08578,   0.17118,
815      +    0.50170,   0.24905,   1.37774,   0.12160,   0.03420,
816      +    0.01269,   0.08696,   0.16981,
817      +    0.50145,   0.24682,   1.36033,   0.12096,   0.03670,
818      +    0.01598,   0.08778,   0.16832 /
819         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
820      +    0.50081,   0.24459,   1.33898,   0.12021,   0.03880,
821      +    0.01880,   0.08832,   0.16673,
822      +    0.49980,   0.24238,   1.31489,   0.11936,   0.04055,
823      +    0.02119,   0.08865,   0.16507,
824      +    0.49853,   0.24018,   1.28910,   0.11844,   0.04200,
825      +    0.02322,   0.08880,   0.16336,
826      +    0.49707,   0.23801,   1.26261,   0.11745,   0.04321,
827      +    0.02498,   0.08880,   0.16165,
828      +    0.49548,   0.23588,   1.23604,   0.11644,   0.04424,
829      +    0.02650,   0.08870,   0.15995,
830      +    0.49378,   0.23381,   1.20982,   0.11542,   0.04510,
831      +    0.02784,   0.08852,   0.15827,
832      +    0.49192,   0.23174,   1.18322,   0.11436,   0.04580,
833      +    0.02897,   0.08823,   0.15655 /
834         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
835      +    0.49001,   0.22974,   1.15744,   0.11331,   0.04640,
836      +    0.02997,   0.08789,   0.15487,
837      +    0.48807,   0.22780,   1.13248,   0.11227,   0.04690,
838      +    0.03085,   0.08752,   0.15322,
839      +    0.48603,   0.22587,   1.10772,   0.11119,   0.04728,
840      +    0.03159,   0.08708,   0.15157,
841      +    0.48404,   0.22401,   1.08422,   0.11015,   0.04761,
842      +    0.03227,   0.08663,   0.15000,
843      +    0.48193,   0.22217,   1.06092,   0.10909,   0.04784,
844      +    0.03282,   0.08613,   0.14840 /
845         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
846      +    0.53736,   0.27314,   1.13097,   0.10088,   0.00871,
847      +    0.00000,   0.06527,   0.15565,
848      +    0.53839,   0.26906,   1.16509,   0.10072,   0.01433,
849      +    0.00000,   0.06771,   0.15362,
850      +    0.53793,   0.26500,   1.17234,   0.10021,   0.01864,
851      +    0.00014,   0.06935,   0.15143,
852      +    0.53643,   0.26099,   1.16261,   0.09943,   0.02200,
853      +    0.00302,   0.07038,   0.14911,
854      +    0.53431,   0.25711,   1.14423,   0.09850,   0.02467,
855      +    0.00670,   0.07102,   0.14676,
856      +    0.53171,   0.25334,   1.12030,   0.09745,   0.02681,
857      +    0.00961,   0.07134,   0.14442,
858      +    0.52874,   0.24969,   1.09283,   0.09633,   0.02854,
859      +    0.01202,   0.07141,   0.14204 /
860         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
861      +    0.52556,   0.24616,   1.06393,   0.09513,   0.02992,
862      +    0.01402,   0.07132,   0.13972,
863      +    0.52223,   0.24275,   1.03439,   0.09391,   0.03103,
864      +    0.01572,   0.07109,   0.13744,
865      +    0.51876,   0.23947,   1.00484,   0.09268,   0.03193,
866      +    0.01712,   0.07073,   0.13520,
867      +    0.51523,   0.23631,   0.97589,   0.09145,   0.03266,
868      +    0.01831,   0.07031,   0.13302,
869      +    0.51169,   0.23328,   0.94788,   0.09023,   0.03324,
870      +    0.01934,   0.06982,   0.13091,
871      +    0.50817,   0.23037,   0.92099,   0.08904,   0.03371,
872      +    0.02022,   0.06930,   0.12888,
873      +    0.50459,   0.22752,   0.89463,   0.08783,   0.03405,
874      +    0.02095,   0.06873,   0.12687 /
875         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
876      +    0.50106,   0.22480,   0.86955,   0.08666,   0.03433,
877      +    0.02156,   0.06815,   0.12494,
878      +    0.49758,   0.22218,   0.84568,   0.08553,   0.03455,
879      +    0.02210,   0.06755,   0.12308,
880      +    0.49408,   0.21962,   0.82253,   0.08438,   0.03468,
881      +    0.02254,   0.06692,   0.12126,
882      +    0.49070,   0.21718,   0.80076,   0.08328,   0.03479,
883      +    0.02294,   0.06631,   0.11952,
884      +    0.48728,   0.21477,   0.77962,   0.08220,   0.03483,
885      +    0.02326,   0.06566,   0.11781 /
886         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
887      +    0.58201,   0.28159,   1.00361,   0.08093,   0.00719,
888      +    0.00000,   0.05468,   0.13423,
889      +    0.57728,   0.27439,   1.00191,   0.07996,   0.01147,
890      +   -0.00001,   0.05584,   0.13062,
891      +    0.57175,   0.26774,   0.98296,   0.07878,   0.01464,
892      +    0.00009,   0.05642,   0.12717,
893      +    0.56578,   0.26151,   0.95448,   0.07745,   0.01698,
894      +    0.00223,   0.05656,   0.12386,
895      +    0.55963,   0.25572,   0.92242,   0.07609,   0.01880,
896      +    0.00489,   0.05645,   0.12069,
897      +    0.55337,   0.25029,   0.88878,   0.07470,   0.02022,
898      +    0.00698,   0.05613,   0.11767,
899      +    0.54709,   0.24514,   0.85472,   0.07328,   0.02129,
900      +    0.00865,   0.05569,   0.11478 /
901         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
902      +    0.54087,   0.24029,   0.82149,   0.07187,   0.02213,
903      +    0.01003,   0.05515,   0.11202,
904      +    0.53471,   0.23572,   0.78946,   0.07051,   0.02276,
905      +    0.01115,   0.05454,   0.10940,
906      +    0.52864,   0.23138,   0.75881,   0.06917,   0.02324,
907      +    0.01206,   0.05388,   0.10689,
908      +    0.52273,   0.22726,   0.72979,   0.06786,   0.02360,
909      +    0.01282,   0.05319,   0.10451,
910      +    0.51698,   0.22335,   0.70247,   0.06659,   0.02387,
911      +    0.01346,   0.05250,   0.10224,
912      +    0.51141,   0.21965,   0.67684,   0.06537,   0.02407,
913      +    0.01398,   0.05181,   0.10007,
914      +    0.50589,   0.21607,   0.65239,   0.06417,   0.02419,
915      +    0.01441,   0.05109,   0.09800 /
916         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
917      +    0.50056,   0.21268,   0.62951,   0.06301,   0.02425,
918      +    0.01477,   0.05039,   0.09603,
919      +    0.49540,   0.20944,   0.60805,   0.06191,   0.02428,
920      +    0.01507,   0.04970,   0.09415,
921      +    0.49031,   0.20632,   0.58765,   0.06082,   0.02426,
922      +    0.01531,   0.04901,   0.09234,
923      +    0.48543,   0.20335,   0.56864,   0.05979,   0.02422,
924      +    0.01551,   0.04834,   0.09062,
925      +    0.48060,   0.20048,   0.55050,   0.05879,   0.02415,
926      +    0.01565,   0.04766,   0.08895 /
927         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
928      +    0.61244,   0.28164,   0.89881,   0.06478,   0.00591,
929      +   -0.00002,   0.04539,   0.11398,
930      +    0.60177,   0.27174,   0.87070,   0.06336,   0.00920,
931      +   -0.00003,   0.04574,   0.10954,
932      +    0.59122,   0.26290,   0.83391,   0.06185,   0.01155,
933      +    0.00006,   0.04567,   0.10547,
934      +    0.58084,   0.25489,   0.79378,   0.06032,   0.01323,
935      +    0.00167,   0.04530,   0.10169,
936      +    0.57082,   0.24758,   0.75406,   0.05879,   0.01449,
937      +    0.00365,   0.04477,   0.09821,
938      +    0.56116,   0.24080,   0.71572,   0.05727,   0.01542,
939      +    0.00517,   0.04415,   0.09498,
940      +    0.55178,   0.23454,   0.67920,   0.05582,   0.01611,
941      +    0.00637,   0.04345,   0.09193 /
942         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
943      +    0.54275,   0.22872,   0.64505,   0.05442,   0.01660,
944      +    0.00731,   0.04271,   0.08910,
945      +    0.53408,   0.22327,   0.61323,   0.05306,   0.01695,
946      +    0.00808,   0.04195,   0.08646,
947      +    0.52574,   0.21816,   0.58366,   0.05175,   0.01720,
948      +    0.00869,   0.04117,   0.08398,
949      +    0.51771,   0.21337,   0.55631,   0.05051,   0.01736,
950      +    0.00919,   0.04041,   0.08163,
951      +    0.51003,   0.20886,   0.53105,   0.04933,   0.01746,
952      +    0.00960,   0.03966,   0.07943,
953      +    0.50270,   0.20462,   0.50773,   0.04820,   0.01750,
954      +    0.00993,   0.03894,   0.07736,
955      +    0.49552,   0.20058,   0.48595,   0.04712,   0.01750,
956      +    0.01018,   0.03821,   0.07538 /
957         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
958      +    0.48867,   0.19676,   0.46581,   0.04608,   0.01746,
959      +    0.01039,   0.03751,   0.07354,
960      +    0.48212,   0.19312,   0.44712,   0.04508,   0.01740,
961      +    0.01056,   0.03684,   0.07181,
962      +    0.47572,   0.18966,   0.42962,   0.04413,   0.01732,
963      +    0.01068,   0.03617,   0.07013,
964      +    0.46961,   0.18639,   0.41344,   0.04323,   0.01723,
965      +    0.01078,   0.03553,   0.06854,
966      +    0.46363,   0.18324,   0.39820,   0.04236,   0.01711,
967      +    0.01084,   0.03491,   0.06702 /
968         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
969      +    0.63045,   0.27534,   0.80467,   0.05142,   0.00481,
970      +   -0.00001,   0.03720,   0.09515,
971      +    0.61398,   0.26332,   0.75791,   0.04988,   0.00733,
972      +   -0.00001,   0.03703,   0.09038,
973      +    0.59861,   0.25279,   0.70971,   0.04828,   0.00908,
974      +    0.00006,   0.03657,   0.08613,
975      +    0.58412,   0.24343,   0.66308,   0.04674,   0.01027,
976      +    0.00126,   0.03592,   0.08230,
977      +    0.57054,   0.23500,   0.61987,   0.04525,   0.01113,
978      +    0.00275,   0.03521,   0.07882,
979      +    0.55776,   0.22731,   0.58015,   0.04380,   0.01175,
980      +    0.00383,   0.03444,   0.07566,
981      +    0.54562,   0.22027,   0.54375,   0.04244,   0.01216,
982      +    0.00468,   0.03364,   0.07273 /
983         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
984      +    0.53418,   0.21376,   0.51070,   0.04114,   0.01244,
985      +    0.00535,   0.03284,   0.07005,
986      +    0.52331,   0.20777,   0.48067,   0.03991,   0.01263,
987      +    0.00587,   0.03206,   0.06755,
988      +    0.51301,   0.20217,   0.45338,   0.03873,   0.01273,
989      +    0.00628,   0.03129,   0.06525,
990      +    0.50324,   0.19696,   0.42857,   0.03762,   0.01278,
991      +    0.00661,   0.03055,   0.06310,
992      +    0.49397,   0.19208,   0.40600,   0.03657,   0.01278,
993      +    0.00686,   0.02983,   0.06111,
994      +    0.48520,   0.18752,   0.38545,   0.03556,   0.01275,
995      +    0.00706,   0.02915,   0.05927,
996      +    0.47670,   0.18322,   0.36649,   0.03464,   0.01268,
997      +    0.00721,   0.02847,   0.05751 /
998         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
999      +    0.46863,   0.17917,   0.34915,   0.03376,   0.01260,
1000      +    0.00732,   0.02783,   0.05586,
1001      +    0.46095,   0.17535,   0.33323,   0.03291,   0.01251,
1002      +    0.00741,   0.02722,   0.05432,
1003      +    0.45355,   0.17171,   0.31851,   0.03210,   0.01241,
1004      +    0.00747,   0.02662,   0.05286,
1005      +    0.44652,   0.16828,   0.30499,   0.03134,   0.01230,
1006      +    0.00752,   0.02606,   0.05148,
1007      +    0.43969,   0.16499,   0.29238,   0.03061,   0.01217,
1008      +    0.00754,   0.02551,   0.05018 /
1009         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1010      +    0.63743,   0.26442,   0.71660,   0.04042,   0.00386,
1011      +   -0.00001,   0.03003,   0.07800,
1012      +    0.61558,   0.25075,   0.65751,   0.03887,   0.00581,
1013      +   -0.00002,   0.02958,   0.07328,
1014      +    0.59577,   0.23898,   0.60287,   0.03735,   0.00710,
1015      +    0.00004,   0.02894,   0.06919,
1016      +    0.57763,   0.22864,   0.55348,   0.03588,   0.00795,
1017      +    0.00095,   0.02818,   0.06558,
1018      +    0.56095,   0.21943,   0.50968,   0.03450,   0.00855,
1019      +    0.00206,   0.02740,   0.06235,
1020      +    0.54545,   0.21115,   0.47078,   0.03320,   0.00895,
1021      +    0.00287,   0.02661,   0.05943,
1022      +    0.53099,   0.20360,   0.43615,   0.03200,   0.00920,
1023      +    0.00348,   0.02584,   0.05675 /
1024         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1025      +    0.51748,   0.19673,   0.40539,   0.03085,   0.00935,
1026      +    0.00396,   0.02507,   0.05435,
1027      +    0.50488,   0.19039,   0.37803,   0.02977,   0.00942,
1028      +    0.00431,   0.02435,   0.05213,
1029      +    0.49297,   0.18454,   0.35351,   0.02877,   0.00945,
1030      +    0.00458,   0.02364,   0.05009,
1031      +    0.48180,   0.17912,   0.33157,   0.02781,   0.00945,
1032      +    0.00479,   0.02295,   0.04823,
1033      +    0.47129,   0.17408,   0.31187,   0.02691,   0.00941,
1034      +    0.00496,   0.02231,   0.04650,
1035      +    0.46138,   0.16940,   0.29411,   0.02608,   0.00935,
1036      +    0.00508,   0.02171,   0.04489,
1037      +    0.45191,   0.16498,   0.27797,   0.02530,   0.00925,
1038      +    0.00517,   0.02112,   0.04339 /
1039         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1040      +    0.44295,   0.16086,   0.26335,   0.02456,   0.00915,
1041      +    0.00524,   0.02057,   0.04200,
1042      +    0.43447,   0.15698,   0.25003,   0.02385,   0.00905,
1043      +    0.00529,   0.02004,   0.04070,
1044      +    0.42631,   0.15330,   0.23782,   0.02320,   0.00894,
1045      +    0.00531,   0.01954,   0.03947,
1046      +    0.41861,   0.14984,   0.22666,   0.02259,   0.00884,
1047      +    0.00532,   0.01906,   0.03832,
1048      +    0.41117,   0.14657,   0.21636,   0.02200,   0.00872,
1049      +    0.00532,   0.01860,   0.03721 /
1050         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1051      +    0.63473,   0.25010,   0.63318,   0.03136,   0.00307,
1052      +   -0.00001,   0.02388,   0.06278,
1053      +    0.60801,   0.23528,   0.56697,   0.02990,   0.00456,
1054      +   -0.00002,   0.02329,   0.05844,
1055      +    0.58431,   0.22271,   0.50968,   0.02853,   0.00553,
1056      +    0.00002,   0.02260,   0.05467,
1057      +    0.56301,   0.21175,   0.46035,   0.02723,   0.00614,
1058      +    0.00072,   0.02186,   0.05141,
1059      +    0.54369,   0.20212,   0.41796,   0.02603,   0.00655,
1060      +    0.00156,   0.02110,   0.04852,
1061      +    0.52600,   0.19349,   0.38127,   0.02490,   0.00680,
1062      +    0.00215,   0.02036,   0.04596,
1063      +    0.50966,   0.18570,   0.34940,   0.02385,   0.00694,
1064      +    0.00260,   0.01964,   0.04367 /
1065         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1066      +    0.49455,   0.17866,   0.32163,   0.02289,   0.00701,
1067      +    0.00294,   0.01895,   0.04159,
1068      +    0.48055,   0.17221,   0.29723,   0.02198,   0.00704,
1069      +    0.00319,   0.01831,   0.03969,
1070      +    0.46746,   0.16629,   0.27577,   0.02113,   0.00702,
1071      +    0.00336,   0.01770,   0.03797,
1072      +    0.45522,   0.16086,   0.25678,   0.02035,   0.00697,
1073      +    0.00350,   0.01711,   0.03639,
1074      +    0.44379,   0.15582,   0.23992,   0.01962,   0.00691,
1075      +    0.00360,   0.01656,   0.03494,
1076      +    0.43311,   0.15115,   0.22488,   0.01894,   0.00684,
1077      +    0.00368,   0.01604,   0.03360,
1078      +    0.42290,   0.14680,   0.21133,   0.01832,   0.00675,
1079      +    0.00373,   0.01556,   0.03234 /
1080         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1081      +    0.41332,   0.14273,   0.19916,   0.01773,   0.00666,
1082      +    0.00377,   0.01510,   0.03119,
1083      +    0.40430,   0.13891,   0.18818,   0.01718,   0.00656,
1084      +    0.00379,   0.01466,   0.03012,
1085      +    0.39569,   0.13530,   0.17817,   0.01664,   0.00647,
1086      +    0.00379,   0.01424,   0.02912,
1087      +    0.38758,   0.13192,   0.16908,   0.01614,   0.00637,
1088      +    0.00379,   0.01385,   0.02819,
1089      +    0.37979,   0.12872,   0.16076,   0.01568,   0.00626,
1090      +    0.00377,   0.01348,   0.02730 /
1091         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1092      +    0.62355,   0.23340,   0.55429,   0.02396,   0.00244,
1093      +    0.00004,   0.01872,   0.04963,
1094      +    0.59260,   0.21795,   0.48528,   0.02273,   0.00356,
1095      +    0.00003,   0.01808,   0.04575,
1096      +    0.56564,   0.20494,   0.42830,   0.02154,   0.00424,
1097      +    0.00007,   0.01739,   0.04252,
1098      +    0.54173,   0.19377,   0.38090,   0.02044,   0.00467,
1099      +    0.00057,   0.01668,   0.03968,
1100      +    0.52029,   0.18401,   0.34127,   0.01944,   0.00494,
1101      +    0.00117,   0.01601,   0.03719,
1102      +    0.50093,   0.17528,   0.30775,   0.01848,   0.00512,
1103      +    0.00160,   0.01535,   0.03503,
1104      +    0.48313,   0.16752,   0.27914,   0.01764,   0.00517,
1105      +    0.00193,   0.01473,   0.03309 /
1106         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1107      +    0.46684,   0.16049,   0.25456,   0.01684,   0.00522,
1108      +    0.00214,   0.01416,   0.03134,
1109      +    0.45184,   0.15413,   0.23335,   0.01612,   0.00518,
1110      +    0.00230,   0.01360,   0.02979,
1111      +    0.43792,   0.14833,   0.21490,   0.01543,   0.00516,
1112      +    0.00244,   0.01307,   0.02836,
1113      +    0.42502,   0.14297,   0.19873,   0.01481,   0.00510,
1114      +    0.00253,   0.01260,   0.02706,
1115      +    0.41301,   0.13806,   0.18453,   0.01423,   0.00503,
1116      +    0.00259,   0.01215,   0.02587,
1117      +    0.40180,   0.13354,   0.17198,   0.01370,   0.00495,
1118      +    0.00264,   0.01173,   0.02479,
1119      +    0.39121,   0.12932,   0.16076,   0.01320,   0.00488,
1120      +    0.00267,   0.01132,   0.02378 /
1121         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1122      +    0.38130,   0.12539,   0.15075,   0.01273,   0.00480,
1123      +    0.00268,   0.01095,   0.02286,
1124      +    0.37202,   0.12173,   0.14179,   0.01228,   0.00472,
1125      +    0.00268,   0.01060,   0.02202,
1126      +    0.36315,   0.11827,   0.13369,   0.01188,   0.00462,
1127      +    0.00268,   0.01028,   0.02122,
1128      +    0.35483,   0.11505,   0.12638,   0.01151,   0.00453,
1129      +    0.00268,   0.00997,   0.02048,
1130      +    0.34690,   0.11201,   0.11973,   0.01114,   0.00444,
1131      +    0.00265,   0.00966,   0.01979 /
1132         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1133      +    0.60485,   0.21558,   0.48069,   0.01831,   0.00176,
1134      +   -0.00013,   0.01427,   0.03851,
1135      +    0.57053,   0.19980,   0.41189,   0.01720,   0.00261,
1136      +   -0.00014,   0.01371,   0.03523,
1137      +    0.54097,   0.18669,   0.35728,   0.01621,   0.00313,
1138      +   -0.00010,   0.01311,   0.03246,
1139      +    0.51512,   0.17547,   0.31317,   0.01526,   0.00345,
1140      +    0.00030,   0.01251,   0.03012,
1141      +    0.49216,   0.16577,   0.27705,   0.01442,   0.00365,
1142      +    0.00078,   0.01193,   0.02806,
1143      +    0.47155,   0.15720,   0.24712,   0.01365,   0.00376,
1144      +    0.00110,   0.01138,   0.02628,
1145      +    0.45284,   0.14957,   0.22195,   0.01294,   0.00379,
1146      +    0.00133,   0.01086,   0.02471 /
1147         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1148      +    0.43578,   0.14277,   0.20066,   0.01232,   0.00379,
1149      +    0.00152,   0.01039,   0.02328,
1150      +    0.42016,   0.13658,   0.18255,   0.01173,   0.00378,
1151      +    0.00163,   0.00995,   0.02202,
1152      +    0.40579,   0.13096,   0.16690,   0.01120,   0.00372,
1153      +    0.00171,   0.00953,   0.02087,
1154      +    0.39252,   0.12584,   0.15339,   0.01070,   0.00368,
1155      +    0.00178,   0.00914,   0.01985,
1156      +    0.38023,   0.12115,   0.14160,   0.01024,   0.00362,
1157      +    0.00183,   0.00878,   0.01891,
1158      +    0.36880,   0.11684,   0.13124,   0.00984,   0.00356,
1159      +    0.00186,   0.00846,   0.01804,
1160      +    0.35808,   0.11283,   0.12209,   0.00943,   0.00349,
1161      +    0.00186,   0.00814,   0.01727 /
1162         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1163      +    0.34808,   0.10911,   0.11398,   0.00907,   0.00342,
1164      +    0.00186,   0.00785,   0.01655,
1165      +    0.33872,   0.10565,   0.10674,   0.00873,   0.00335,
1166      +    0.00187,   0.00758,   0.01588,
1167      +    0.32987,   0.10241,   0.10025,   0.00840,   0.00328,
1168      +    0.00186,   0.00732,   0.01527,
1169      +    0.32158,   0.09940,   0.09441,   0.00810,   0.00321,
1170      +    0.00185,   0.00708,   0.01470,
1171      +    0.31367,   0.09656,   0.08914,   0.00784,   0.00314,
1172      +    0.00184,   0.00685,   0.01416 /
1173         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1174      +    0.58019,   0.19652,   0.41208,   0.01353,   0.00137,
1175      +   -0.00004,   0.01086,   0.02939,
1176      +    0.54314,   0.18088,   0.34615,   0.01265,   0.00202,
1177      +   -0.00003,   0.01034,   0.02665,
1178      +    0.51169,   0.16796,   0.29534,   0.01184,   0.00240,
1179      +   -0.00001,   0.00982,   0.02438,
1180      +    0.48442,   0.15703,   0.25529,   0.01113,   0.00262,
1181      +    0.00028,   0.00931,   0.02245,
1182      +    0.46046,   0.14762,   0.22320,   0.01045,   0.00274,
1183      +    0.00061,   0.00882,   0.02082,
1184      +    0.43905,   0.13936,   0.19701,   0.00986,   0.00278,
1185      +    0.00084,   0.00836,   0.01942,
1186      +    0.41982,   0.13207,   0.17534,   0.00931,   0.00281,
1187      +    0.00100,   0.00795,   0.01812 /
1188         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1189      +    0.40238,   0.12555,   0.15722,   0.00882,   0.00279,
1190      +    0.00112,   0.00757,   0.01702,
1191      +    0.38652,   0.11969,   0.14193,   0.00837,   0.00276,
1192      +    0.00119,   0.00721,   0.01604,
1193      +    0.37202,   0.11438,   0.12894,   0.00794,   0.00271,
1194      +    0.00125,   0.00687,   0.01516,
1195      +    0.35862,   0.10958,   0.11778,   0.00759,   0.00266,
1196      +    0.00129,   0.00658,   0.01433,
1197      +    0.34628,   0.10518,   0.10812,   0.00727,   0.00261,
1198      +    0.00131,   0.00630,   0.01360,
1199      +    0.33494,   0.10114,   0.09971,   0.00693,   0.00255,
1200      +    0.00132,   0.00603,   0.01296,
1201      +    0.32431,   0.09740,   0.09232,   0.00663,   0.00250,
1202      +    0.00132,   0.00579,   0.01235 /
1203         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1204      +    0.31441,   0.09396,   0.08582,   0.00636,   0.00244,
1205      +    0.00132,   0.00557,   0.01179,
1206      +    0.30519,   0.09076,   0.08006,   0.00613,   0.00238,
1207      +    0.00132,   0.00536,   0.01128,
1208      +    0.29649,   0.08778,   0.07492,   0.00588,   0.00232,
1209      +    0.00131,   0.00516,   0.01082,
1210      +    0.28837,   0.08501,   0.07032,   0.00566,   0.00227,
1211      +    0.00131,   0.00498,   0.01039,
1212      +    0.28063,   0.08240,   0.06618,   0.00547,   0.00220,
1213      +    0.00130,   0.00480,   0.00999 /
1214         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1215      +    0.55038,   0.17742,   0.34954,   0.00991,   0.00103,
1216      +   -0.00004,   0.00807,   0.02200,
1217      +    0.51147,   0.16214,   0.28808,   0.00922,   0.00150,
1218      +   -0.00003,   0.00764,   0.01980,
1219      +    0.47881,   0.14966,   0.24195,   0.00859,   0.00177,
1220      +   -0.00002,   0.00722,   0.01799,
1221      +    0.45071,   0.13920,   0.20641,   0.00803,   0.00192,
1222      +    0.00020,   0.00680,   0.01648,
1223      +    0.42626,   0.13019,   0.17841,   0.00751,   0.00199,
1224      +    0.00044,   0.00640,   0.01520,
1225      +    0.40458,   0.12238,   0.15592,   0.00705,   0.00204,
1226      +    0.00061,   0.00606,   0.01407,
1227      +    0.38518,   0.11551,   0.13752,   0.00664,   0.00203,
1228      +    0.00073,   0.00573,   0.01309 /
1229         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1230      +    0.36772,   0.10940,   0.12239,   0.00626,   0.00201,
1231      +    0.00080,   0.00543,   0.01225,
1232      +    0.35196,   0.10391,   0.10972,   0.00592,   0.00199,
1233      +    0.00085,   0.00515,   0.01147,
1234      +    0.33753,   0.09900,   0.09902,   0.00562,   0.00194,
1235      +    0.00090,   0.00489,   0.01080,
1236      +    0.32436,   0.09453,   0.08993,   0.00534,   0.00191,
1237      +    0.00092,   0.00467,   0.01018,
1238      +    0.31228,   0.09047,   0.08213,   0.00508,   0.00186,
1239      +    0.00093,   0.00446,   0.00963,
1240      +    0.30116,   0.08676,   0.07538,   0.00483,   0.00181,
1241      +    0.00094,   0.00426,   0.00916,
1242      +    0.29080,   0.08334,   0.06950,   0.00463,   0.00176,
1243      +    0.00094,   0.00407,   0.00870 /
1244         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1245      +    0.28119,   0.08019,   0.06434,   0.00443,   0.00172,
1246      +    0.00094,   0.00390,   0.00828,
1247      +    0.27225,   0.07729,   0.05978,   0.00425,   0.00167,
1248      +    0.00094,   0.00375,   0.00790,
1249      +    0.26388,   0.07457,   0.05577,   0.00407,   0.00162,
1250      +    0.00092,   0.00360,   0.00755,
1251      +    0.25610,   0.07206,   0.05218,   0.00390,   0.00158,
1252      +    0.00090,   0.00346,   0.00723,
1253      +    0.24870,   0.06971,   0.04897,   0.00376,   0.00154,
1254      +    0.00089,   0.00333,   0.00693 /
1255         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1256      +    0.51658,   0.15844,   0.29304,   0.00708,   0.00077,
1257      +   -0.00001,   0.00592,   0.01619,
1258      +    0.47655,   0.14384,   0.23711,   0.00658,   0.00112,
1259      +    0.00000,   0.00557,   0.01445,
1260      +    0.44332,   0.13197,   0.19622,   0.00610,   0.00131,
1261      +    0.00001,   0.00524,   0.01304,
1262      +    0.41502,   0.12209,   0.16531,   0.00567,   0.00141,
1263      +    0.00016,   0.00490,   0.01188,
1264      +    0.39052,   0.11367,   0.14133,   0.00528,   0.00146,
1265      +    0.00034,   0.00461,   0.01089,
1266      +    0.36899,   0.10639,   0.12233,   0.00493,   0.00147,
1267      +    0.00045,   0.00432,   0.01003,
1268      +    0.34979,   0.09998,   0.10701,   0.00464,   0.00146,
1269      +    0.00054,   0.00407,   0.00931 /
1270         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1271      +    0.33269,   0.09435,   0.09450,   0.00434,   0.00145,
1272      +    0.00058,   0.00385,   0.00866,
1273      +    0.31719,   0.08934,   0.08416,   0.00413,   0.00142,
1274      +    0.00061,   0.00363,   0.00807,
1275      +    0.30321,   0.08482,   0.07551,   0.00388,   0.00139,
1276      +    0.00064,   0.00344,   0.00759,
1277      +    0.29046,   0.08074,   0.06820,   0.00367,   0.00135,
1278      +    0.00066,   0.00327,   0.00714,
1279      +    0.27880,   0.07705,   0.06196,   0.00349,   0.00132,
1280      +    0.00067,   0.00310,   0.00673,
1281      +    0.26810,   0.07371,   0.05661,   0.00332,   0.00128,
1282      +    0.00067,   0.00295,   0.00638,
1283      +    0.25818,   0.07062,   0.05198,   0.00316,   0.00124,
1284      +    0.00067,   0.00282,   0.00605 /
1285         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1286      +    0.24900,   0.06779,   0.04794,   0.00302,   0.00120,
1287      +    0.00066,   0.00269,   0.00574,
1288      +    0.24048,   0.06517,   0.04439,   0.00290,   0.00117,
1289      +    0.00065,   0.00258,   0.00544,
1290      +    0.23254,   0.06274,   0.04128,   0.00277,   0.00113,
1291      +    0.00064,   0.00247,   0.00519,
1292      +    0.22518,   0.06050,   0.03851,   0.00264,   0.00110,
1293      +    0.00062,   0.00237,   0.00497,
1294      +    0.21820,   0.05840,   0.03603,   0.00255,   0.00108,
1295      +    0.00062,   0.00228,   0.00475 /
1296         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1297      +    0.47972,   0.14004,   0.24269,   0.00495,   0.00061,
1298      +    0.00004,   0.00428,   0.01165,
1299      +    0.43943,   0.12625,   0.19300,   0.00455,   0.00085,
1300      +    0.00006,   0.00400,   0.01036,
1301      +    0.40620,   0.11518,   0.15740,   0.00423,   0.00099,
1302      +    0.00005,   0.00374,   0.00927,
1303      +    0.37820,   0.10600,   0.13101,   0.00391,   0.00104,
1304      +    0.00016,   0.00349,   0.00841,
1305      +    0.35409,   0.09823,   0.11085,   0.00363,   0.00106,
1306      +    0.00027,   0.00326,   0.00768,
1307      +    0.33305,   0.09153,   0.09504,   0.00337,   0.00107,
1308      +    0.00035,   0.00305,   0.00704,
1309      +    0.31441,   0.08570,   0.08248,   0.00317,   0.00106,
1310      +    0.00040,   0.00286,   0.00649 /
1311         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1312      +    0.29782,   0.08057,   0.07233,   0.00297,   0.00104,
1313      +    0.00044,   0.00268,   0.00604,
1314      +    0.28300,   0.07602,   0.06398,   0.00279,   0.00101,
1315      +    0.00045,   0.00253,   0.00559,
1316      +    0.26960,   0.07195,   0.05707,   0.00264,   0.00098,
1317      +    0.00047,   0.00239,   0.00521,
1318      +    0.25745,   0.06829,   0.05130,   0.00249,   0.00095,
1319      +    0.00048,   0.00226,   0.00489,
1320      +    0.24637,   0.06498,   0.04640,   0.00235,   0.00092,
1321      +    0.00048,   0.00214,   0.00461,
1322      +    0.23623,   0.06199,   0.04219,   0.00223,   0.00089,
1323      +    0.00047,   0.00204,   0.00436,
1324      +    0.22689,   0.05923,   0.03859,   0.00213,   0.00087,
1325      +    0.00048,   0.00194,   0.00411 /
1326         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1327      +    0.21825,   0.05671,   0.03547,   0.00204,   0.00084,
1328      +    0.00047,   0.00186,   0.00389,
1329      +    0.21026,   0.05441,   0.03275,   0.00196,   0.00081,
1330      +    0.00046,   0.00177,   0.00368,
1331      +    0.20285,   0.05226,   0.03036,   0.00186,   0.00079,
1332      +    0.00046,   0.00169,   0.00351,
1333      +    0.19599,   0.05028,   0.02824,   0.00176,   0.00077,
1334      +    0.00045,   0.00161,   0.00336,
1335      +    0.18951,   0.04843,   0.02635,   0.00170,   0.00074,
1336      +    0.00044,   0.00155,   0.00321 /
1337         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1338      +    0.44083,   0.12264,   0.19865,   0.00347,   0.00041,
1339      +    0.00001,   0.00300,   0.00824,
1340      +    0.40094,   0.10983,   0.15531,   0.00317,   0.00060,
1341      +    0.00001,   0.00279,   0.00726,
1342      +    0.36834,   0.09962,   0.12491,   0.00293,   0.00069,
1343      +    0.00002,   0.00259,   0.00648,
1344      +    0.34107,   0.09121,   0.10277,   0.00271,   0.00073,
1345      +    0.00010,   0.00241,   0.00583,
1346      +    0.31778,   0.08411,   0.08606,   0.00250,   0.00075,
1347      +    0.00018,   0.00224,   0.00529,
1348      +    0.29753,   0.07803,   0.07315,   0.00231,   0.00074,
1349      +    0.00023,   0.00209,   0.00486,
1350      +    0.27971,   0.07278,   0.06298,   0.00218,   0.00074,
1351      +    0.00028,   0.00196,   0.00444 /
1352         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1353      +    0.26398,   0.06817,   0.05484,   0.00202,   0.00072,
1354      +    0.00030,   0.00184,   0.00410,
1355      +    0.24992,   0.06409,   0.04825,   0.00190,   0.00071,
1356      +    0.00032,   0.00172,   0.00380,
1357      +    0.23730,   0.06047,   0.04279,   0.00178,   0.00067,
1358      +    0.00032,   0.00161,   0.00354,
1359      +    0.22588,   0.05723,   0.03826,   0.00168,   0.00065,
1360      +    0.00032,   0.00152,   0.00331,
1361      +    0.21552,   0.05431,   0.03446,   0.00158,   0.00063,
1362      +    0.00033,   0.00144,   0.00310,
1363      +    0.20609,   0.05166,   0.03121,   0.00150,   0.00062,
1364      +    0.00033,   0.00137,   0.00290,
1365      +    0.19741,   0.04923,   0.02845,   0.00142,   0.00059,
1366      +    0.00032,   0.00130,   0.00274 /
1367         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1368      +    0.18943,   0.04702,   0.02607,   0.00135,   0.00057,
1369      +    0.00031,   0.00124,   0.00260,
1370      +    0.18208,   0.04500,   0.02399,   0.00129,   0.00054,
1371      +    0.00031,   0.00118,   0.00248,
1372      +    0.17524,   0.04313,   0.02217,   0.00123,   0.00053,
1373      +    0.00030,   0.00112,   0.00235,
1374      +    0.16892,   0.04142,   0.02057,   0.00116,   0.00052,
1375      +    0.00030,   0.00106,   0.00223,
1376      +    0.16302,   0.03982,   0.01916,   0.00111,   0.00049,
1377      +    0.00029,   0.00102,   0.00212 /
1378         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1379      +    0.40084,   0.10620,   0.16042,   0.00233,   0.00030,
1380      +    0.00003,   0.00208,   0.00569,
1381      +    0.36197,   0.09450,   0.12346,   0.00214,   0.00041,
1382      +    0.00002,   0.00192,   0.00500,
1383      +    0.33053,   0.08521,   0.09797,   0.00199,   0.00047,
1384      +    0.00003,   0.00176,   0.00444,
1385      +    0.30438,   0.07763,   0.07970,   0.00184,   0.00050,
1386      +    0.00008,   0.00164,   0.00396,
1387      +    0.28222,   0.07127,   0.06611,   0.00168,   0.00050,
1388      +    0.00013,   0.00151,   0.00359,
1389      +    0.26302,   0.06585,   0.05572,   0.00159,   0.00050,
1390      +    0.00017,   0.00140,   0.00327,
1391      +    0.24632,   0.06117,   0.04762,   0.00144,   0.00050,
1392      +    0.00018,   0.00130,   0.00300 /
1393         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1394      +    0.23158,   0.05709,   0.04121,   0.00134,   0.00047,
1395      +    0.00020,   0.00122,   0.00276,
1396      +    0.21843,   0.05351,   0.03603,   0.00128,   0.00046,
1397      +    0.00019,   0.00113,   0.00254,
1398      +    0.20670,   0.05032,   0.03179,   0.00119,   0.00045,
1399      +    0.00019,   0.00106,   0.00237,
1400      +    0.19614,   0.04747,   0.02830,   0.00112,   0.00042,
1401      +    0.00020,   0.00100,   0.00222,
1402      +    0.18661,   0.04492,   0.02537,   0.00106,   0.00041,
1403      +    0.00021,   0.00094,   0.00207,
1404      +    0.17797,   0.04263,   0.02290,   0.00099,   0.00039,
1405      +    0.00020,   0.00089,   0.00193,
1406      +    0.16998,   0.04054,   0.02080,   0.00096,   0.00038,
1407      +    0.00021,   0.00084,   0.00182 /
1408         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1409      +    0.16268,   0.03863,   0.01899,   0.00093,   0.00037,
1410      +    0.00021,   0.00079,   0.00171,
1411      +    0.15598,   0.03689,   0.01743,   0.00089,   0.00036,
1412      +    0.00020,   0.00075,   0.00161,
1413      +    0.14980,   0.03527,   0.01607,   0.00083,   0.00035,
1414      +    0.00019,   0.00072,   0.00153,
1415      +    0.14411,   0.03379,   0.01487,   0.00078,   0.00033,
1416      +    0.00019,   0.00068,   0.00146,
1417      +    0.13875,   0.03243,   0.01382,   0.00076,   0.00032,
1418      +    0.00018,   0.00066,   0.00138 /
1419         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1420      +    0.36038,   0.09094,   0.12773,   0.00153,   0.00022,
1421      +    0.00004,   0.00142,   0.00387,
1422      +    0.32316,   0.08037,   0.09671,   0.00141,   0.00030,
1423      +    0.00004,   0.00131,   0.00336,
1424      +    0.29326,   0.07205,   0.07573,   0.00129,   0.00033,
1425      +    0.00003,   0.00120,   0.00297,
1426      +    0.26860,   0.06528,   0.06093,   0.00119,   0.00035,
1427      +    0.00006,   0.00110,   0.00263,
1428      +    0.24777,   0.05967,   0.05004,   0.00110,   0.00036,
1429      +    0.00011,   0.00102,   0.00237,
1430      +    0.22989,   0.05488,   0.04182,   0.00102,   0.00036,
1431      +    0.00013,   0.00094,   0.00215,
1432      +    0.21434,   0.05078,   0.03547,   0.00094,   0.00034,
1433      +    0.00014,   0.00088,   0.00197 /
1434         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1435      +    0.20074,   0.04723,   0.03050,   0.00087,   0.00034,
1436      +    0.00015,   0.00081,   0.00180,
1437      +    0.18874,   0.04410,   0.02651,   0.00078,   0.00033,
1438      +    0.00014,   0.00075,   0.00167,
1439      +    0.17797,   0.04134,   0.02328,   0.00076,   0.00032,
1440      +    0.00016,   0.00071,   0.00153,
1441      +    0.16835,   0.03888,   0.02063,   0.00071,   0.00031,
1442      +    0.00016,   0.00067,   0.00142,
1443      +    0.15968,   0.03668,   0.01842,   0.00066,   0.00030,
1444      +    0.00015,   0.00063,   0.00133,
1445      +    0.15183,   0.03471,   0.01657,   0.00063,   0.00028,
1446      +    0.00015,   0.00060,   0.00124,
1447      +    0.14463,   0.03292,   0.01500,   0.00060,   0.00027,
1448      +    0.00015,   0.00056,   0.00117 /
1449         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1450      +    0.13808,   0.03129,   0.01366,   0.00057,   0.00026,
1451      +    0.00014,   0.00053,   0.00110,
1452      +    0.13208,   0.02980,   0.01250,   0.00054,   0.00025,
1453      +    0.00013,   0.00050,   0.00104,
1454      +    0.12654,   0.02844,   0.01149,   0.00052,   0.00024,
1455      +    0.00013,   0.00048,   0.00097,
1456      +    0.12145,   0.02719,   0.01061,   0.00049,   0.00023,
1457      +    0.00013,   0.00046,   0.00092,
1458      +    0.11670,   0.02604,   0.00984,   0.00046,   0.00022,
1459      +    0.00013,   0.00043,   0.00087 /
1460         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1461      +    0.32048,   0.07704,   0.10025,   0.00098,   0.00016,
1462      +    0.00003,   0.00095,   0.00254,
1463      +    0.28528,   0.06760,   0.07466,   0.00088,   0.00022,
1464      +    0.00003,   0.00087,   0.00221,
1465      +    0.25724,   0.06022,   0.05766,   0.00082,   0.00025,
1466      +    0.00002,   0.00081,   0.00194,
1467      +    0.23432,   0.05427,   0.04588,   0.00072,   0.00026,
1468      +    0.00006,   0.00073,   0.00172,
1469      +    0.21508,   0.04934,   0.03733,   0.00067,   0.00026,
1470      +    0.00009,   0.00069,   0.00152,
1471      +    0.19862,   0.04520,   0.03094,   0.00062,   0.00025,
1472      +    0.00010,   0.00063,   0.00138,
1473      +    0.18439,   0.04164,   0.02607,   0.00058,   0.00025,
1474      +    0.00010,   0.00058,   0.00124 /
1475         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1476      +    0.17199,   0.03858,   0.02227,   0.00054,   0.00024,
1477      +    0.00012,   0.00054,   0.00116,
1478      +    0.16110,   0.03589,   0.01925,   0.00049,   0.00023,
1479      +    0.00012,   0.00051,   0.00105,
1480      +    0.15141,   0.03353,   0.01683,   0.00046,   0.00022,
1481      +    0.00012,   0.00047,   0.00097,
1482      +    0.14276,   0.03145,   0.01485,   0.00042,   0.00021,
1483      +    0.00012,   0.00044,   0.00090,
1484      +    0.13500,   0.02959,   0.01321,   0.00039,   0.00020,
1485      +    0.00012,   0.00041,   0.00084,
1486      +    0.12798,   0.02792,   0.01183,   0.00038,   0.00020,
1487      +    0.00011,   0.00040,   0.00077,
1488      +    0.12161,   0.02640,   0.01068,   0.00035,   0.00019,
1489      +    0.00012,   0.00037,   0.00073 /
1490         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1491      +    0.11581,   0.02503,   0.00970,   0.00032,   0.00018,
1492      +    0.00011,   0.00035,   0.00069,
1493      +    0.11051,   0.02379,   0.00885,   0.00030,   0.00017,
1494      +    0.00011,   0.00033,   0.00065,
1495      +    0.10562,   0.02265,   0.00812,   0.00029,   0.00017,
1496      +    0.00011,   0.00032,   0.00060,
1497      +    0.10113,   0.02160,   0.00748,   0.00028,   0.00016,
1498      +    0.00011,   0.00030,   0.00056,
1499      +    0.09694,   0.02064,   0.00692,   0.00028,   0.00015,
1500      +    0.00010,   0.00028,   0.00053 /
1501         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1502      +    0.28175,   0.06457,   0.07758,   0.00067,   0.00008,
1503      +   -0.00001,   0.00058,   0.00164,
1504      +    0.24898,   0.05630,   0.05693,   0.00064,   0.00011,
1505      +   -0.00001,   0.00053,   0.00141,
1506      +    0.22316,   0.04988,   0.04346,   0.00057,   0.00013,
1507      +   -0.00001,   0.00048,   0.00123,
1508      +    0.20212,   0.04472,   0.03422,   0.00053,   0.00015,
1509      +    0.00001,   0.00044,   0.00109,
1510      +    0.18464,   0.04047,   0.02761,   0.00047,   0.00014,
1511      +    0.00002,   0.00041,   0.00098,
1512      +    0.16977,   0.03692,   0.02272,   0.00044,   0.00014,
1513      +    0.00004,   0.00037,   0.00087,
1514      +    0.15695,   0.03389,   0.01901,   0.00041,   0.00014,
1515      +    0.00006,   0.00035,   0.00079 /
1516         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1517      +    0.14588,   0.03128,   0.01616,   0.00037,   0.00013,
1518      +    0.00005,   0.00031,   0.00072,
1519      +    0.13613,   0.02900,   0.01389,   0.00034,   0.00013,
1520      +    0.00005,   0.00029,   0.00066,
1521      +    0.12751,   0.02702,   0.01209,   0.00033,   0.00012,
1522      +    0.00006,   0.00027,   0.00061,
1523      +    0.11984,   0.02526,   0.01063,   0.00031,   0.00012,
1524      +    0.00006,   0.00026,   0.00056,
1525      +    0.11298,   0.02369,   0.00942,   0.00029,   0.00011,
1526      +    0.00005,   0.00024,   0.00052,
1527      +    0.10683,   0.02229,   0.00842,   0.00026,   0.00011,
1528      +    0.00005,   0.00022,   0.00050,
1529      +    0.10123,   0.02104,   0.00758,   0.00025,   0.00010,
1530      +    0.00005,   0.00021,   0.00046 /
1531         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1532      +    0.09616,   0.01990,   0.00686,   0.00023,   0.00009,
1533      +    0.00005,   0.00020,   0.00043,
1534      +    0.09153,   0.01887,   0.00625,   0.00022,   0.00009,
1535      +    0.00005,   0.00018,   0.00040,
1536      +    0.08728,   0.01792,   0.00572,   0.00022,   0.00009,
1537      +    0.00005,   0.00018,   0.00037,
1538      +    0.08339,   0.01706,   0.00526,   0.00021,   0.00008,
1539      +    0.00005,   0.00017,   0.00034,
1540      +    0.07978,   0.01626,   0.00486,   0.00019,   0.00008,
1541      +    0.00004,   0.00016,   0.00033 /
1542         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1543      +    0.24431,   0.05323,   0.05881,   0.00036,   0.00008,
1544      +    0.00003,   0.00040,   0.00102,
1545      +    0.21437,   0.04610,   0.04254,   0.00034,   0.00010,
1546      +    0.00002,   0.00035,   0.00089,
1547      +    0.19088,   0.04061,   0.03207,   0.00034,   0.00010,
1548      +    0.00002,   0.00032,   0.00076,
1549      +    0.17195,   0.03621,   0.02499,   0.00029,   0.00011,
1550      +    0.00003,   0.00029,   0.00068,
1551      +    0.15628,   0.03262,   0.01998,   0.00025,   0.00010,
1552      +    0.00004,   0.00027,   0.00060,
1553      +    0.14300,   0.02962,   0.01633,   0.00024,   0.00011,
1554      +    0.00004,   0.00024,   0.00054,
1555      +    0.13164,   0.02707,   0.01357,   0.00024,   0.00010,
1556      +    0.00004,   0.00022,   0.00049 /
1557         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1558      +    0.12185,   0.02490,   0.01146,   0.00021,   0.00009,
1559      +    0.00005,   0.00020,   0.00045,
1560      +    0.11331,   0.02301,   0.00982,   0.00020,   0.00009,
1561      +    0.00004,   0.00019,   0.00040,
1562      +    0.10576,   0.02136,   0.00851,   0.00018,   0.00008,
1563      +    0.00005,   0.00017,   0.00037,
1564      +    0.09906,   0.01991,   0.00745,   0.00018,   0.00008,
1565      +    0.00005,   0.00016,   0.00034,
1566      +    0.09310,   0.01863,   0.00658,   0.00018,   0.00007,
1567      +    0.00004,   0.00015,   0.00031,
1568      +    0.08777,   0.01748,   0.00586,   0.00016,   0.00006,
1569      +    0.00004,   0.00014,   0.00029,
1570      +    0.08296,   0.01644,   0.00526,   0.00014,   0.00006,
1571      +    0.00004,   0.00013,   0.00027 /
1572         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1573      +    0.07860,   0.01551,   0.00475,   0.00013,   0.00006,
1574      +    0.00004,   0.00012,   0.00025,
1575      +    0.07463,   0.01468,   0.00432,   0.00013,   0.00006,
1576      +    0.00004,   0.00011,   0.00024,
1577      +    0.07098,   0.01391,   0.00395,   0.00012,   0.00006,
1578      +    0.00003,   0.00011,   0.00022,
1579      +    0.06766,   0.01321,   0.00362,   0.00012,   0.00006,
1580      +    0.00003,   0.00010,   0.00021,
1581      +    0.06458,   0.01257,   0.00334,   0.00011,   0.00005,
1582      +    0.00003,   0.00010,   0.00020 /
1583         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1584      +    0.20907,   0.04333,   0.04381,   0.00020,   0.00007,
1585      +    0.00004,   0.00026,   0.00061,
1586      +    0.18208,   0.03726,   0.03120,   0.00019,   0.00007,
1587      +    0.00003,   0.00023,   0.00053,
1588      +    0.16111,   0.03261,   0.02323,   0.00016,   0.00008,
1589      +    0.00003,   0.00021,   0.00046,
1590      +    0.14429,   0.02892,   0.01792,   0.00015,   0.00008,
1591      +    0.00003,   0.00019,   0.00040,
1592      +    0.13042,   0.02592,   0.01420,   0.00015,   0.00007,
1593      +    0.00003,   0.00017,   0.00037,
1594      +    0.11876,   0.02343,   0.01151,   0.00014,   0.00007,
1595      +    0.00004,   0.00016,   0.00032,
1596      +    0.10887,   0.02133,   0.00952,   0.00014,   0.00007,
1597      +    0.00004,   0.00014,   0.00028 /
1598         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1599      +    0.10036,   0.01953,   0.00799,   0.00012,   0.00006,
1600      +    0.00003,   0.00013,   0.00026,
1601      +    0.09296,   0.01799,   0.00681,   0.00010,   0.00006,
1602      +    0.00004,   0.00012,   0.00023,
1603      +    0.08644,   0.01664,   0.00588,   0.00011,   0.00006,
1604      +    0.00003,   0.00011,   0.00021,
1605      +    0.08072,   0.01546,   0.00513,   0.00010,   0.00005,
1606      +    0.00003,   0.00010,   0.00020,
1607      +    0.07565,   0.01441,   0.00451,   0.00009,   0.00005,
1608      +    0.00003,   0.00010,   0.00018,
1609      +    0.07111,   0.01348,   0.00401,   0.00008,   0.00005,
1610      +    0.00003,   0.00009,   0.00016,
1611      +    0.06699,   0.01265,   0.00359,   0.00008,   0.00004,
1612      +    0.00003,   0.00008,   0.00016 /
1613         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1614      +    0.06328,   0.01191,   0.00324,   0.00008,   0.00004,
1615      +    0.00003,   0.00008,   0.00015,
1616      +    0.05992,   0.01124,   0.00294,   0.00008,   0.00004,
1617      +    0.00003,   0.00007,   0.00014,
1618      +    0.05686,   0.01062,   0.00268,   0.00008,   0.00004,
1619      +    0.00003,   0.00007,   0.00013,
1620      +    0.05407,   0.01006,   0.00245,   0.00007,   0.00004,
1621      +    0.00002,   0.00006,   0.00012,
1622      +    0.05150,   0.00956,   0.00226,   0.00007,   0.00003,
1623      +    0.00002,   0.00006,   0.00011 /
1624         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1625      +    0.17651,   0.03484,   0.03207,   0.00013,   0.00002,
1626      +    0.00000,   0.00013,   0.00037,
1627      +    0.15256,   0.02974,   0.02249,   0.00014,   0.00003,
1628      +    0.00000,   0.00012,   0.00031,
1629      +    0.13411,   0.02586,   0.01655,   0.00012,   0.00004,
1630      +    0.00000,   0.00011,   0.00027,
1631      +    0.11940,   0.02281,   0.01265,   0.00012,   0.00003,
1632      +    0.00001,   0.00010,   0.00024,
1633      +    0.10738,   0.02035,   0.00994,   0.00011,   0.00004,
1634      +    0.00001,   0.00009,   0.00020,
1635      +    0.09735,   0.01830,   0.00800,   0.00008,   0.00004,
1636      +    0.00001,   0.00008,   0.00019,
1637      +    0.08885,   0.01659,   0.00657,   0.00007,   0.00003,
1638      +    0.00002,   0.00007,   0.00018 /
1639         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1640      +    0.08155,   0.01514,   0.00549,   0.00007,   0.00003,
1641      +    0.00001,   0.00007,   0.00015,
1642      +    0.07524,   0.01389,   0.00466,   0.00007,   0.00003,
1643      +    0.00002,   0.00006,   0.00014,
1644      +    0.06973,   0.01281,   0.00401,   0.00007,   0.00002,
1645      +    0.00001,   0.00006,   0.00012,
1646      +    0.06491,   0.01186,   0.00349,   0.00006,   0.00002,
1647      +    0.00001,   0.00005,   0.00011,
1648      +    0.06063,   0.01102,   0.00306,   0.00005,   0.00002,
1649      +    0.00001,   0.00005,   0.00010,
1650      +    0.05681,   0.01029,   0.00271,   0.00005,   0.00002,
1651      +    0.00001,   0.00005,   0.00009,
1652      +    0.05338,   0.00962,   0.00242,   0.00005,   0.00002,
1653      +    0.00001,   0.00004,   0.00009 /
1654         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1655      +    0.05030,   0.00903,   0.00218,   0.00004,   0.00002,
1656      +    0.00001,   0.00004,   0.00009,
1657      +    0.04752,   0.00850,   0.00197,   0.00004,   0.00002,
1658      +    0.00001,   0.00004,   0.00008,
1659      +    0.04497,   0.00802,   0.00180,   0.00004,   0.00002,
1660      +    0.00001,   0.00003,   0.00007,
1661      +    0.04265,   0.00758,   0.00164,   0.00005,   0.00002,
1662      +    0.00001,   0.00003,   0.00007,
1663      +    0.04052,   0.00718,   0.00151,   0.00005,   0.00002,
1664      +    0.00001,   0.00003,   0.00006 /
1665         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1666      +    0.14643,   0.02742,   0.02285,   0.00005,   0.00003,
1667      +    0.00002,   0.00009,   0.00020,
1668      +    0.12561,   0.02323,   0.01579,   0.00004,   0.00003,
1669      +    0.00002,   0.00008,   0.00017,
1670      +    0.10965,   0.02008,   0.01149,   0.00004,   0.00003,
1671      +    0.00002,   0.00008,   0.00016,
1672      +    0.09704,   0.01761,   0.00869,   0.00004,   0.00003,
1673      +    0.00002,   0.00007,   0.00013,
1674      +    0.08681,   0.01562,   0.00677,   0.00003,   0.00003,
1675      +    0.00002,   0.00006,   0.00011,
1676      +    0.07829,   0.01399,   0.00541,   0.00004,   0.00003,
1677      +    0.00002,   0.00005,   0.00010,
1678      +    0.07111,   0.01262,   0.00442,   0.00003,   0.00003,
1679      +    0.00002,   0.00005,   0.00010 /
1680         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1681      +    0.06500,   0.01147,   0.00367,   0.00004,   0.00003,
1682      +    0.00002,   0.00004,   0.00008,
1683      +    0.05971,   0.01048,   0.00310,   0.00004,   0.00003,
1684      +    0.00002,   0.00004,   0.00007,
1685      +    0.05515,   0.00963,   0.00266,   0.00003,   0.00002,
1686      +    0.00001,   0.00004,   0.00007,
1687      +    0.05114,   0.00889,   0.00231,   0.00003,   0.00002,
1688      +    0.00001,   0.00003,   0.00006,
1689      +    0.04760,   0.00823,   0.00202,   0.00003,   0.00002,
1690      +    0.00001,   0.00003,   0.00005,
1691      +    0.04446,   0.00766,   0.00178,   0.00003,   0.00002,
1692      +    0.00001,   0.00003,   0.00005,
1693      +    0.04167,   0.00714,   0.00159,   0.00002,   0.00002,
1694      +    0.00001,   0.00003,   0.00005 /
1695         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1696      +    0.03915,   0.00669,   0.00143,   0.00002,   0.00002,
1697      +    0.00001,   0.00003,   0.00005,
1698      +    0.03687,   0.00628,   0.00129,   0.00002,   0.00001,
1699      +    0.00001,   0.00003,   0.00004,
1700      +    0.03481,   0.00590,   0.00117,   0.00002,   0.00001,
1701      +    0.00001,   0.00002,   0.00004,
1702      +    0.03295,   0.00557,   0.00107,   0.00001,   0.00001,
1703      +    0.00001,   0.00002,   0.00003,
1704      +    0.03124,   0.00526,   0.00098,   0.00001,   0.00001,
1705      +    0.00001,   0.00002,   0.00003 /
1706         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1707      +    0.09569,   0.01614,   0.01080,   0.00002,   0.00000,
1708      +    0.00000,   0.00002,   0.00006,
1709      +    0.08074,   0.01346,   0.00724,   0.00001,   0.00001,
1710      +    0.00000,   0.00002,   0.00006,
1711      +    0.06949,   0.01147,   0.00514,   0.00002,   0.00001,
1712      +    0.00000,   0.00002,   0.00004,
1713      +    0.06072,   0.00993,   0.00381,   0.00001,   0.00001,
1714      +    0.00000,   0.00002,   0.00003,
1715      +    0.05369,   0.00871,   0.00292,   0.00001,   0.00001,
1716      +    0.00000,   0.00002,   0.00003,
1717      +    0.04793,   0.00772,   0.00231,   0.00001,   0.00001,
1718      +    0.00000,   0.00001,   0.00003,
1719      +    0.04311,   0.00690,   0.00187,   0.00001,   0.00001,
1720      +    0.00000,   0.00001,   0.00002 /
1721         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1722      +    0.03904,   0.00622,   0.00154,   0.00001,   0.00001,
1723      +    0.00000,   0.00001,   0.00002,
1724      +    0.03558,   0.00564,   0.00129,   0.00001,   0.00001,
1725      +    0.00001,   0.00001,   0.00002,
1726      +    0.03261,   0.00514,   0.00110,   0.00001,   0.00001,
1727      +    0.00001,   0.00001,   0.00002,
1728      +    0.03001,   0.00471,   0.00095,   0.00000,   0.00001,
1729      +    0.00000,   0.00001,   0.00002,
1730      +    0.02774,   0.00433,   0.00082,   0.00001,   0.00001,
1731      +    0.00000,   0.00001,   0.00001,
1732      +    0.02574,   0.00400,   0.00073,   0.00001,   0.00001,
1733      +    0.00000,   0.00001,   0.00001,
1734      +    0.02397,   0.00371,   0.00064,   0.00000,   0.00001,
1735      +    0.00000,   0.00001,   0.00001 /
1736         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1737      +    0.02239,   0.00345,   0.00058,   0.00000,   0.00001,
1738      +    0.00000,   0.00001,   0.00001,
1739      +    0.02096,   0.00323,   0.00052,   0.00001,   0.00001,
1740      +    0.00000,   0.00001,   0.00001,
1741      +    0.01968,   0.00302,   0.00047,   0.00000,   0.00001,
1742      +    0.00000,   0.00001,   0.00001,
1743      +    0.01852,   0.00283,   0.00043,   0.00000,   0.00000,
1744      +    0.00000,   0.00001,   0.00001,
1745      +    0.01747,   0.00266,   0.00039,   0.00000,   0.00000,
1746      +    0.00000,   0.00001,   0.00001 /
1747         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1748      +    0.05720,   0.00862,   0.00448,   0.00001,   0.00000,
1749      +    0.00000,   0.00000,   0.00001,
1750      +    0.04740,   0.00707,   0.00291,   0.00000,   0.00000,
1751      +    0.00000,   0.00000,   0.00002,
1752      +    0.04017,   0.00593,   0.00202,   0.00001,   0.00000,
1753      +    0.00000,   0.00000,   0.00001,
1754      +    0.03463,   0.00507,   0.00147,   0.00000,   0.00000,
1755      +    0.00000,   0.00000,   0.00001,
1756      +    0.03024,   0.00439,   0.00112,   0.00000,   0.00000,
1757      +    0.00000,   0.00000,   0.00001,
1758      +    0.02668,   0.00385,   0.00087,   0.00001,   0.00000,
1759      +    0.00000,   0.00000,   0.00001,
1760      +    0.02375,   0.00341,   0.00070,   0.00001,   0.00000,
1761      +    0.00000,   0.00000,   0.00000 /
1762         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1763      +    0.02130,   0.00304,   0.00057,   0.00000,   0.00000,
1764      +    0.00000,   0.00000,   0.00001,
1765      +    0.01925,   0.00274,   0.00048,   0.00000,   0.00000,
1766      +    0.00000,   0.00000,   0.00000,
1767      +    0.01749,   0.00247,   0.00040,   0.00000,   0.00000,
1768      +    0.00000,   0.00000,   0.00000,
1769      +    0.01596,   0.00225,   0.00035,   0.00000,   0.00000,
1770      +    0.00000,   0.00000,   0.00000,
1771      +    0.01464,   0.00205,   0.00030,   0.00000,   0.00000,
1772      +    0.00000,   0.00000,   0.00000,
1773      +    0.01349,   0.00188,   0.00026,   0.00000,   0.00000,
1774      +    0.00000,   0.00000,   0.00000,
1775      +    0.01247,   0.00174,   0.00023,   0.00000,   0.00000,
1776      +    0.00000,   0.00000,   0.00000 /
1777         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1778      +    0.01158,   0.00161,   0.00021,   0.00000,   0.00000,
1779      +    0.00000,   0.00000,   0.00000,
1780      +    0.01078,   0.00149,   0.00019,   0.00000,   0.00000,
1781      +    0.00000,   0.00000,   0.00000,
1782      +    0.01006,   0.00138,   0.00017,   0.00000,   0.00000,
1783      +    0.00000,   0.00000,   0.00000,
1784      +    0.00942,   0.00129,   0.00015,   0.00000,   0.00000,
1785      +    0.00000,   0.00000,   0.00000,
1786      +    0.00883,   0.00121,   0.00014,   0.00000,   0.00000,
1787      +    0.00000,   0.00000,   0.00000 /
1788         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1789      +    0.03038,   0.00405,   0.00156,   0.00000,   0.00000,
1790      +    0.00000,   0.00000,   0.00001,
1791      +    0.02468,   0.00326,   0.00099,   0.00001,   0.00000,
1792      +    0.00000,   0.00000,   0.00000,
1793      +    0.02056,   0.00269,   0.00067,   0.00000,   0.00000,
1794      +    0.00000,   0.00000,   0.00000,
1795      +    0.01745,   0.00226,   0.00048,   0.00000,   0.00000,
1796      +    0.00000,   0.00000,   0.00000,
1797      +    0.01503,   0.00194,   0.00036,   0.00000,   0.00000,
1798      +    0.00000,   0.00000,   0.00000,
1799      +    0.01309,   0.00168,   0.00028,   0.00000,   0.00000,
1800      +    0.00000,   0.00000,   0.00000,
1801      +    0.01152,   0.00147,   0.00022,   0.00000,   0.00000,
1802      +    0.00000,   0.00000,   0.00000 /
1803         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1804      +    0.01022,   0.00129,   0.00018,   0.00000,   0.00000,
1805      +    0.00000,   0.00000,   0.00000,
1806      +    0.00914,   0.00115,   0.00015,   0.00000,   0.00000,
1807      +    0.00000,   0.00000,   0.00000,
1808      +    0.00822,   0.00103,   0.00013,   0.00000,   0.00000,
1809      +    0.00000,   0.00000,   0.00000,
1810      +    0.00744,   0.00093,   0.00011,   0.00000,   0.00000,
1811      +    0.00000,   0.00000,   0.00000,
1812      +    0.00677,   0.00084,   0.00009,   0.00000,   0.00000,
1813      +    0.00000,   0.00000,   0.00000,
1814      +    0.00619,   0.00077,   0.00008,   0.00000,   0.00000,
1815      +    0.00000,   0.00000,   0.00000,
1816      +    0.00568,   0.00070,   0.00007,   0.00000,   0.00000,
1817      +    0.00000,   0.00000,   0.00000 /
1818         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1819      +    0.00523,   0.00064,   0.00006,   0.00000,   0.00000,
1820      +    0.00000,   0.00000,   0.00000,
1821      +    0.00483,   0.00059,   0.00006,   0.00000,   0.00000,
1822      +    0.00000,   0.00000,   0.00000,
1823      +    0.00448,   0.00055,   0.00005,   0.00000,   0.00000,
1824      +    0.00000,   0.00000,   0.00000,
1825      +    0.00417,   0.00051,   0.00005,   0.00000,   0.00000,
1826      +    0.00000,   0.00000,   0.00000,
1827      +    0.00389,   0.00047,   0.00004,   0.00000,   0.00000,
1828      +    0.00000,   0.00000,   0.00000 /
1829         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1830      +    0.01357,   0.00157,   0.00042,   0.00000,   0.00000,
1831      +    0.00000,   0.00000,   0.00000,
1832      +    0.01079,   0.00124,   0.00026,   0.00000,   0.00000,
1833      +    0.00000,   0.00000,   0.00000,
1834      +    0.00881,   0.00100,   0.00017,   0.00000,   0.00000,
1835      +    0.00000,   0.00000,   0.00000,
1836      +    0.00734,   0.00083,   0.00012,   0.00000,   0.00000,
1837      +    0.00000,   0.00000,   0.00000,
1838      +    0.00622,   0.00070,   0.00009,   0.00000,   0.00000,
1839      +    0.00000,   0.00000,   0.00000,
1840      +    0.00534,   0.00060,   0.00007,   0.00000,   0.00000,
1841      +    0.00000,   0.00000,   0.00000,
1842      +    0.00464,   0.00051,   0.00006,   0.00000,   0.00000,
1843      +    0.00000,   0.00000,   0.00000 /
1844         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1845      +    0.00407,   0.00045,   0.00005,   0.00000,   0.00000,
1846      +    0.00000,   0.00000,   0.00000,
1847      +    0.00359,   0.00039,   0.00004,   0.00000,   0.00000,
1848      +    0.00000,   0.00000,   0.00000,
1849      +    0.00319,   0.00035,   0.00003,   0.00000,   0.00000,
1850      +    0.00000,   0.00000,   0.00000,
1851      +    0.00286,   0.00031,   0.00003,   0.00000,   0.00000,
1852      +    0.00000,   0.00000,   0.00000,
1853      +    0.00258,   0.00028,   0.00002,   0.00000,   0.00000,
1854      +    0.00000,   0.00000,   0.00000,
1855      +    0.00233,   0.00025,   0.00002,   0.00000,   0.00000,
1856      +    0.00000,   0.00000,   0.00000,
1857      +    0.00212,   0.00023,   0.00002,   0.00000,   0.00000,
1858      +    0.00000,   0.00000,   0.00000 /
1859         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1860      +    0.00194,   0.00021,   0.00002,   0.00000,   0.00000,
1861      +    0.00000,   0.00000,   0.00000,
1862      +    0.00178,   0.00019,   0.00002,   0.00000,   0.00000,
1863      +    0.00000,   0.00000,   0.00000,
1864      +    0.00163,   0.00017,   0.00001,   0.00000,   0.00000,
1865      +    0.00000,   0.00000,   0.00000,
1866      +    0.00151,   0.00016,   0.00001,   0.00000,   0.00000,
1867      +    0.00000,   0.00000,   0.00000,
1868      +    0.00140,   0.00015,   0.00001,   0.00000,   0.00000,
1869      +    0.00000,   0.00000,   0.00000 /
1870         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1871      +    0.00100,   0.00008,   0.00001,   0.00000,   0.00000,
1872      +    0.00000,   0.00000,   0.00000,
1873      +    0.00075,   0.00006,   0.00001,   0.00000,   0.00000,
1874      +    0.00000,   0.00000,   0.00000,
1875      +    0.00058,   0.00004,   0.00000,   0.00000,   0.00000,
1876      +    0.00000,   0.00000,   0.00000,
1877      +    0.00046,   0.00004,   0.00000,   0.00000,   0.00000,
1878      +    0.00000,   0.00000,   0.00000,
1879      +    0.00037,   0.00003,   0.00000,   0.00000,   0.00000,
1880      +    0.00000,   0.00000,   0.00000,
1881      +    0.00030,   0.00002,   0.00000,   0.00000,   0.00000,
1882      +    0.00000,   0.00000,   0.00000,
1883      +    0.00025,   0.00002,   0.00000,   0.00000,   0.00000,
1884      +    0.00000,   0.00000,   0.00000 /
1885         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1886      +    0.00021,   0.00002,   0.00000,   0.00000,   0.00000,
1887      +    0.00000,   0.00000,   0.00000,
1888      +    0.00018,   0.00001,   0.00000,   0.00000,   0.00000,
1889      +    0.00000,   0.00000,   0.00000,
1890      +    0.00016,   0.00001,   0.00000,   0.00000,   0.00000,
1891      +    0.00000,   0.00000,   0.00000,
1892      +    0.00014,   0.00001,   0.00000,   0.00000,   0.00000,
1893      +    0.00000,   0.00000,   0.00000,
1894      +    0.00012,   0.00001,   0.00000,   0.00000,   0.00000,
1895      +    0.00000,   0.00000,   0.00000,
1896      +    0.00011,   0.00001,   0.00000,   0.00000,   0.00000,
1897      +    0.00000,   0.00000,   0.00000,
1898      +    0.00009,   0.00001,   0.00000,   0.00000,   0.00000,
1899      +    0.00000,   0.00000,   0.00000 /
1900         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1901      +    0.00008,   0.00001,   0.00000,   0.00000,   0.00000,
1902      +    0.00000,   0.00000,   0.00000,
1903      +    0.00007,   0.00001,   0.00000,   0.00000,   0.00000,
1904      +    0.00000,   0.00000,   0.00000,
1905      +    0.00007,   0.00001,   0.00000,   0.00000,   0.00000,
1906      +    0.00000,   0.00000,   0.00000,
1907      +    0.00006,   0.00001,   0.00000,   0.00000,   0.00000,
1908      +    0.00000,   0.00000,   0.00000,
1909      +    0.00005,   0.00001,   0.00000,   0.00000,   0.00000,
1910      +    0.00000,   0.00000,   0.00000 /
1911       DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1912      .        1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1913      .        1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1914      .        1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1915      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1916      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1917      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1918      .     .8D0,.9D0,1.D0/
1919       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1920       DATA N0/2,5,5,9,0,0,9,9/
1921       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1922       DATA INIT/0/
1923
1924       XSAVE=X
1925 C
1926       IF(INIT.NE.0) GOTO 10
1927       INIT=1
1928       DO 20 N=1,NX-1
1929       DO 20 M=1,19
1930 C     READ(31,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),
1931 C    .          F(6,N,M),F(8,N,M)
1932 C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1933          DO 25 I=1,8
1934   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1935   20  CONTINUE
1936       DO 31 J=1,NTENTH-1
1937       XX(J)= LOG10(XX(J))+ONEDO
1938       DO 31 I=1,8
1939       IF(I.EQ.7) GO TO 31
1940       DO 30 K=1,19
1941   30  F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1942   31  CONTINUE
1943   50  FORMAT(8F10.5)
1944       DO 40 I=1,8
1945       DO 40 M=1,19
1946   40  F(I,NX,M)=ZEROD
1947   10  CONTINUE
1948       IF(X.LT.XMIN) X=XMIN
1949       IF(X.GT.XMAX) X=XMAX
1950       QSQ=SCALE**2
1951       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1952       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1953       XXX=X
1954       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1955       N=0
1956   70  N=N+1
1957       IF(XXX.GT.XX(N+1)) GOTO 70
1958       A=(XXX-XX(N))/(XX(N+1)-XX(N))
1959       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1960       B=RM-AINT(RM)
1961       M=1+  INT(RM)
1962       DO 60 I=1,8
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