]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/sfmsbh.F
Using AliLog (F.Carminati)
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsbh.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:30:22  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:44  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13       SUBROUTINE SFMSBH(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15 C     THIS IS THE NEW PRELIMINARY HERA FIT MRS(H)
16 C                              ....   WITH UBAR < DBAR (230 MeV)
17
18 #include "pdf/impdp.inc"
19       PARAMETER(NX=47)
20       PARAMETER(NTENTH=21)
21       DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
22         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
23      +    0.01399,   0.00189,  28.57361,   2.52574,   0.13922,
24      +    0.00000,   1.35002,   2.55150,
25      +    0.01450,   0.00205,  41.41998,   2.93569,   0.60391,
26      +    0.00001,   1.78792,   2.96110,
27      +    0.01497,   0.00221,  56.22984,   3.40128,   1.11643,
28      +    0.00001,   2.27752,   3.42636,
29      +    0.01541,   0.00235,  72.60197,   3.91488,   1.67105,
30      +    0.00001,   2.81215,   3.93963,
31      +    0.01581,   0.00249,  90.39349,   4.46961,   2.26217,
32      +    0.12740,   3.38556,   4.49408,
33      +    0.01618,   0.00263, 109.40785,   5.06167,   2.88696,
34      +    0.69649,   3.99446,   5.08588,
35      +    0.01654,   0.00276, 129.52321,   5.69024,   3.54540,
36      +    1.39599,   4.63840,   5.71420 /
37         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
38      +    0.01688,   0.00289, 150.59039,   6.35208,   4.23468,
39      +    2.11291,   5.31439,   6.37581,
40      +    0.01721,   0.00301, 172.47517,   7.04358,   4.95158,
41      +    2.85689,   6.01900,   7.06710,
42      +    0.01752,   0.00313, 195.07593,   7.76197,   5.69356,
43      +    3.62358,   6.74958,   7.78529,
44      +    0.01782,   0.00325, 218.32326,   8.50504,   6.45865,
45      +    4.41183,   7.50404,   8.52820,
46      +    0.01811,   0.00336, 242.10217,   9.27003,   7.24428,
47      +    5.21909,   8.27972,   9.29304,
48      +    0.01840,   0.00348, 266.14624,  10.05212,   8.04581,
49      +    6.04096,   9.07188,  10.07497,
50      +    0.01867,   0.00359, 290.66772,  10.85345,   8.86548,
51      +    6.87977,   9.88272,  10.87617 /
52         DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
53      +    0.01893,   0.00370, 315.54395,  11.67175,   9.70111,
54      +    7.73350,  10.71001,  11.69433,
55      +    0.01919,   0.00380, 340.46313,  12.50028,  10.54612,
56      +    8.59568,  11.54710,  12.52274,
57      +    0.01944,   0.00391, 365.83740,  13.34612,  11.40759,
58      +    9.47343,  12.40105,  13.36847,
59      +    0.01968,   0.00401, 391.07251,  14.19815,  12.27457,
60      +   10.35593,  13.26086,  14.22042,
61      +    0.01992,   0.00411, 416.66797,  15.06506,  13.15572,
62      +   11.25187,  14.13518,  15.08723 /
63         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
64      +    0.01772,   0.00272,  23.12250,   2.05768,   0.11044,
65      +    0.00000,   1.09384,   2.07248,
66      +    0.01840,   0.00297,  33.11473,   2.37891,   0.47574,
67      +    0.00000,   1.43741,   2.39348,
68      +    0.01903,   0.00319,  44.40932,   2.73870,   0.87330,
69      +    0.00001,   1.81637,   2.75305,
70      +    0.01960,   0.00341,  56.67400,   3.13056,   1.29815,
71      +    0.00000,   2.22501,   3.14471,
72      +    0.02012,   0.00361,  69.79974,   3.54923,   1.74606,
73      +    0.09624,   2.65856,   3.56320,
74      +    0.02062,   0.00381,  83.63524,   3.99164,   2.21476,
75      +    0.52392,   3.11437,   4.00544,
76      +    0.02109,   0.00400,  98.08752,   4.45698,   2.70407,
77      +    1.04547,   3.59193,   4.47063 /
78         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
79      +    0.02154,   0.00418, 113.04889,   4.94272,   3.21183,
80      +    1.57516,   4.08891,   4.95622,
81      +    0.02196,   0.00436, 128.42447,   5.44617,   3.73564,
82      +    2.12040,   4.60277,   5.45955,
83      +    0.02237,   0.00453, 144.14647,   5.96530,   4.27367,
84      +    2.67801,   5.13156,   5.97855,
85      +    0.02276,   0.00470, 160.17076,   6.49851,   4.82451,
86      +    3.24717,   5.67379,   6.51165,
87      +    0.02314,   0.00487, 176.41954,   7.04381,   5.38634,
88      +    3.82612,   6.22756,   7.05686,
89      +    0.02351,   0.00503, 192.70801,   7.59759,   5.95567,
90      +    4.41154,   6.78931,   7.61054,
91      +    0.02386,   0.00518, 209.19713,   8.16174,   6.53449,
92      +    5.00551,   7.36098,   8.17461 /
93         DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
94      +    0.02420,   0.00534, 225.80484,   8.73462,   7.12124,
95      +    5.60657,   7.94098,   8.74743,
96      +    0.02453,   0.00549, 242.31677,   9.31133,   7.71111,
97      +    6.21002,   8.52444,   9.32406,
98      +    0.02486,   0.00563, 259.03003,   9.89730,   8.30958,
99      +    6.82136,   9.11683,   9.91000,
100      +    0.02517,   0.00578, 275.53491,  10.48433,   8.90855,
101      +    7.43260,   9.70999,  10.49697,
102      +    0.02548,   0.00592, 292.18457,  11.07906,   9.51465,
103      +    8.05038,  10.31057,  11.09164 /
104         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
105      +    0.02241,   0.00393,  18.71066,   1.67536,   0.08754,
106      +    0.00000,   0.88625,   1.68330,
107      +    0.02331,   0.00428,  26.47142,   1.92669,   0.37440,
108      +    0.00000,   1.15548,   1.93450,
109      +    0.02412,   0.00462,  35.06683,   2.20416,   0.68230,
110      +    0.00000,   1.44829,   2.21187,
111      +    0.02487,   0.00493,  44.22931,   2.50242,   1.00712,
112      +    0.00000,   1.75995,   2.51003,
113      +    0.02556,   0.00523,  53.88190,   2.81753,   1.34576,
114      +    0.07253,   2.08694,   2.82505,
115      +    0.02621,   0.00552,  63.91248,   3.14711,   1.69647,
116      +    0.39322,   2.42720,   3.15454,
117      +    0.02682,   0.00579,  74.25426,   3.49047,   2.05910,
118      +    0.78114,   2.78030,   3.49783 /
119         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
120      +    0.02740,   0.00606,  84.83257,   3.84571,   2.43203,
121      +    1.17147,   3.14449,   3.85301,
122      +    0.02796,   0.00631,  95.58434,   4.21089,   2.81355,
123      +    1.56995,   3.51794,   4.21813,
124      +    0.02849,   0.00656, 106.46631,   4.58455,   3.20237,
125      +    1.97427,   3.89928,   4.59172,
126      +    0.02900,   0.00680, 117.45285,   4.96560,   3.59757,
127      +    2.38397,   4.28750,   4.97272,
128      +    0.02949,   0.00704, 128.49417,   5.35265,   3.99787,
129      +    2.79781,   4.68126,   5.35973,
130      +    0.02996,   0.00727, 139.46341,   5.74303,   4.40071,
131      +    3.21339,   5.07796,   5.75007,
132      +    0.03042,   0.00749, 150.48344,   6.13838,   4.80782,
133      +    3.63247,   5.47927,   6.14539 /
134         DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
135      +    0.03086,   0.00771, 161.50014,   6.53758,   5.21812,
136      +    4.05410,   5.88411,   6.54456,
137      +    0.03129,   0.00792, 172.36797,   6.93704,   5.62812,
138      +    4.47482,   6.28891,   6.94399,
139      +    0.03170,   0.00813, 183.30180,   7.34098,   6.04206,
140      +    4.89894,   6.69793,   7.34790,
141      +    0.03211,   0.00833, 194.01912,   7.74337,   6.45399,
142      +    5.32057,   7.10517,   7.75027,
143      +    0.03250,   0.00853, 204.77129,   8.14922,   6.86895,
144      +    5.74476,   7.51565,   8.15611 /
145         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
146      +    0.02568,   0.00487,  16.53067,   1.48499,   0.07637,
147      +    0.00000,   0.78360,   1.49042,
148      +    0.02673,   0.00532,  23.21927,   1.70253,   0.32526,
149      +    0.00000,   1.01687,   1.70789,
150      +    0.02769,   0.00574,  30.53673,   1.94063,   0.59019,
151      +    0.00000,   1.26845,   1.94593,
152      +    0.02856,   0.00613,  38.25038,   2.19453,   0.86751,
153      +    0.00000,   1.53412,   2.19979,
154      +    0.02937,   0.00650,  46.30000,   2.46097,   1.15468,
155      +    0.06140,   1.81099,   2.46619,
156      +    0.03012,   0.00686,  54.59346,   2.73794,   1.45028,
157      +    0.33205,   2.09733,   2.74312,
158      +    0.03084,   0.00720,  63.07721,   3.02485,   1.75415,
159      +    0.65786,   2.39277,   3.02999 /
160         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
161      +    0.03152,   0.00753,  71.69281,   3.32010,   2.06498,
162      +    0.98389,   2.69587,   3.32522,
163      +    0.03216,   0.00784,  80.39113,   3.62211,   2.38137,
164      +    1.31506,   3.00512,   3.62720,
165      +    0.03278,   0.00815,  89.14072,   3.92971,   2.70232,
166      +    1.64953,   3.31945,   3.93478,
167      +    0.03337,   0.00845,  97.92462,   4.24206,   3.02712,
168      +    1.98698,   3.63808,   4.24712,
169      +    0.03394,   0.00874, 106.70447,   4.55803,   3.35474,
170      +    2.32641,   3.95992,   4.56306,
171      +    0.03449,   0.00902, 115.37933,   4.87541,   3.68309,
172      +    2.66585,   4.28283,   4.88043,
173      +    0.03502,   0.00929, 124.05481,   5.19573,   4.01373,
174      +    3.00694,   4.60835,   5.20074 /
175         DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
176      +    0.03553,   0.00955, 132.68863,   5.51803,   4.34580,
177      +    3.34887,   4.93558,   5.52303,
178      +    0.03603,   0.00981, 141.16512,   5.83940,   4.67643,
179      +    3.68886,   5.26162,   5.84439,
180      +    0.03651,   0.01007, 149.66237,   6.16345,   5.00927,
181      +    4.03056,   5.59011,   6.16844,
182      +    0.03698,   0.01031, 157.95305,   6.48515,   5.33936,
183      +    4.36910,   5.91604,   6.49013,
184      +    0.03743,   0.01055, 166.24387,   6.80877,   5.67098,
185      +    4.70876,   6.24370,   6.81376 /
186         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
187      +    0.02828,   0.00567,  15.13950,   1.36292,   0.06931,
188      +    0.00000,   0.71806,   1.36711,
189      +    0.02945,   0.00620,  21.15556,   1.55918,   0.29426,
190      +    0.00000,   0.92870,   1.56335,
191      +    0.03052,   0.00669,  27.67900,   1.77264,   0.53228,
192      +    0.00000,   1.15448,   1.77679,
193      +    0.03149,   0.00715,  34.50014,   1.99898,   0.78004,
194      +    0.00000,   1.39155,   2.00311,
195      +    0.03239,   0.00759,  41.56969,   2.23533,   1.03536,
196      +    0.05451,   1.63742,   2.23946,
197      +    0.03323,   0.00800,  48.80835,   2.47993,   1.29699,
198      +    0.29431,   1.89057,   2.48405,
199      +    0.03403,   0.00840,  56.17104,   2.73226,   1.56483,
200      +    0.58199,   2.15068,   2.73637 /
201         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
202      +    0.03478,   0.00878,  63.60899,   2.99093,   1.83774,
203      +    0.86870,   2.41650,   2.99504,
204      +    0.03550,   0.00915,  71.08234,   3.25458,   2.11453,
205      +    1.15891,   2.68675,   3.25868,
206      +    0.03619,   0.00950,  78.56602,   3.52221,   2.39437,
207      +    1.45101,   2.96051,   3.52631,
208      +    0.03685,   0.00985,  86.04810,   3.79315,   2.67668,
209      +    1.74479,   3.23716,   3.79725,
210      +    0.03748,   0.01018,  93.49756,   4.06641,   2.96060,
211      +    2.03942,   3.51578,   4.07052,
212      +    0.03809,   0.01051, 100.82874,   4.34007,   3.24427,
213      +    2.33317,   3.79447,   4.34419,
214      +    0.03868,   0.01082, 108.13600,   4.61557,   3.52920,
215      +    2.62757,   4.07471,   4.61969 /
216         DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
217      +    0.03925,   0.01113, 115.38472,   4.89210,   3.81465,
218      +    2.92197,   4.35572,   4.89622,
219      +    0.03980,   0.01143, 122.47620,   5.16710,   4.09811,
220      +    3.21392,   4.63498,   5.17123,
221      +    0.04033,   0.01172, 129.56682,   5.44385,   4.38289,
222      +    3.50673,   4.91576,   5.44800,
223      +    0.04085,   0.01200, 136.46161,   5.71789,   4.66459,
224      +    3.79609,   5.19365,   5.72204,
225      +    0.04136,   0.01228, 143.34029,   5.99307,   4.94706,
226      +    4.08586,   5.47249,   5.99723 /
227         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
228      +    0.03046,   0.00638,  14.14132,   1.27502,   0.06427,
229      +    0.00000,   0.67103,   1.27853,
230      +    0.03174,   0.00698,  19.68086,   1.45616,   0.27221,
231      +    0.00000,   0.86559,   1.45968,
232      +    0.03290,   0.00754,  25.64561,   1.65221,   0.49119,
233      +    0.00000,   1.07312,   1.65574,
234      +    0.03396,   0.00806,  31.84277,   1.85914,   0.71812,
235      +    0.00000,   1.29006,   1.86268,
236      +    0.03494,   0.00856,  38.23102,   2.07441,   0.95110,
237      +    0.04969,   1.51420,   2.07796,
238      +    0.03585,   0.00902,  44.74008,   2.29640,   1.18899,
239      +    0.26791,   1.74416,   2.29996,
240      +    0.03672,   0.00947,  51.33093,   2.52466,   1.43172,
241      +    0.52899,   1.97967,   2.52823 /
242         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
243      +    0.03754,   0.00990,  57.96184,   2.75795,   1.67830,
244      +    0.78837,   2.21962,   2.76154,
245      +    0.03832,   0.01031,  64.59860,   2.99506,   1.92768,
246      +    1.05019,   2.46288,   2.99866,
247      +    0.03907,   0.01071,  71.22144,   3.23513,   2.17913,
248      +    1.31302,   2.70865,   3.23875,
249      +    0.03978,   0.01110,  77.82121,   3.47757,   2.43218,
250      +    1.57670,   2.95641,   3.48120,
251      +    0.04047,   0.01147,  84.37195,   3.72152,   2.68607,
252      +    1.84053,   3.20534,   3.72517,
253      +    0.04113,   0.01183,  90.79819,   3.96526,   2.93915,
254      +    2.10294,   3.45376,   3.96893,
255      +    0.04177,   0.01218,  97.18675,   4.21015,   3.19283,
256      +    2.36541,   3.70306,   4.21383 /
257         DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
258      +    0.04238,   0.01253, 103.50786,   4.45548,   3.44648,
259      +    2.62735,   3.95256,   4.45918,
260      +    0.04298,   0.01286, 109.67487,   4.69895,   3.69784,
261      +    2.88658,   4.19999,   4.70267,
262      +    0.04356,   0.01318, 115.82816,   4.94358,   3.94995,
263      +    3.14614,   4.44836,   4.94731,
264      +    0.04412,   0.01350, 121.79561,   5.18534,   4.19884,
265      +    3.40214,   4.69370,   5.18908,
266      +    0.04466,   0.01381, 127.73788,   5.42774,   4.44805,
267      +    3.65810,   4.93951,   5.43150 /
268         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
269      +    0.03836,   0.00925,  11.43973,   1.03567,   0.05078,
270      +    0.00000,   0.54373,   1.03836,
271      +    0.04001,   0.01013,  15.71670,   1.17658,   0.21340,
272      +    0.00000,   0.69549,   1.17936,
273      +    0.04151,   0.01096,  20.21892,   1.32668,   0.38207,
274      +    0.00000,   0.85488,   1.32954,
275      +    0.04288,   0.01172,  24.80116,   1.48282,   0.55440,
276      +    0.00000,   1.01910,   1.48575,
277      +    0.04415,   0.01243,  29.44316,   1.64326,   0.72917,
278      +    0.03716,   1.18670,   1.64626,
279      +    0.04533,   0.01311,  34.09891,   1.80686,   0.90564,
280      +    0.19950,   1.35673,   1.80993,
281      +    0.04644,   0.01375,  38.74529,   1.97333,   1.08382,
282      +    0.39205,   1.52904,   1.97646 /
283         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
284      +    0.04750,   0.01437,  43.35803,   2.14183,   1.26306,
285      +    0.58144,   1.70291,   2.14501,
286      +    0.04850,   0.01496,  47.91843,   2.31155,   1.44269,
287      +    0.77090,   1.87757,   2.31479,
288      +    0.04946,   0.01553,  52.41753,   2.48195,   1.62230,
289      +    0.95950,   2.05258,   2.48525,
290      +    0.05038,   0.01608,  56.85410,   2.65270,   1.80163,
291      +    1.14723,   2.22761,   2.65605,
292      +    0.05126,   0.01660,  61.21371,   2.82325,   1.98020,
293      +    1.33365,   2.40216,   2.82664,
294      +    0.05211,   0.01712,  65.44678,   2.99236,   2.15687,
295      +    1.51769,   2.57504,   2.99581,
296      +    0.05293,   0.01761,  69.61964,   3.16121,   2.33282,
297      +    1.70058,   2.74743,   3.16469 /
298         DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
299      +    0.05372,   0.01809,  73.71400,   3.32931,   2.50763,
300      +    1.88195,   2.91888,   3.33283,
301      +    0.05448,   0.01856,  77.67226,   3.49504,   2.67973,
302      +    2.06026,   3.08778,   3.49861,
303      +    0.05522,   0.01901,  81.59584,   3.66070,   2.85144,
304      +    2.23785,   3.25646,   3.66431,
305      +    0.05594,   0.01945,  85.36723,   3.82339,   3.01989,
306      +    2.41191,   3.42202,   3.82704,
307      +    0.05664,   0.01989,  89.10036,   3.98575,   3.18774,
308      +    2.58510,   3.58712,   3.98944 /
309         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
310      +    0.04826,   0.01348,   9.25090,   0.84012,   0.04000,
311      +    0.00000,   0.44066,   0.84345,
312      +    0.05039,   0.01479,  12.53508,   0.94920,   0.16672,
313      +    0.00000,   0.55857,   0.95268,
314      +    0.05231,   0.01599,  15.90942,   1.06346,   0.29606,
315      +    0.00000,   0.68038,   1.06705,
316      +    0.05408,   0.01710,  19.26860,   1.18047,   0.42623,
317      +    0.00000,   0.80397,   1.18418,
318      +    0.05570,   0.01813,  22.60866,   1.29914,   0.55655,
319      +    0.02762,   0.92847,   1.30295,
320      +    0.05722,   0.01910,  25.90247,   1.41871,   0.68657,
321      +    0.14764,   1.05327,   1.42263,
322      +    0.05865,   0.02003,  29.13887,   1.53904,   0.81641,
323      +    0.28871,   1.17835,   1.54304 /
324         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
325      +    0.06001,   0.02090,  32.30612,   1.65958,   0.94568,
326      +    0.42601,   1.30325,   1.66366,
327      +    0.06130,   0.02174,  35.39610,   1.77983,   1.07400,
328      +    0.56207,   1.42754,   1.78400,
329      +    0.06253,   0.02255,  38.40730,   1.89951,   1.20115,
330      +    0.69633,   1.55095,   1.90375,
331      +    0.06371,   0.02332,  41.34314,   2.01844,   1.32706,
332      +    0.82886,   1.67337,   2.02275,
333      +    0.06483,   0.02407,  44.19688,   2.13630,   1.45144,
334      +    0.95943,   1.79448,   2.14068,
335      +    0.06592,   0.02479,  46.93665,   2.25223,   1.57350,
336      +    1.08731,   1.91347,   2.25667,
337      +    0.06696,   0.02548,  49.61301,   2.36720,   1.69425,
338      +    1.21354,   2.03133,   2.37170 /
339         DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
340      +    0.06797,   0.02615,  52.21521,   2.48092,   1.81343,
341      +    1.33788,   2.14777,   2.48548,
342      +    0.06894,   0.02680,  54.70546,   2.59223,   1.92992,
343      +    1.45927,   2.26167,   2.59685,
344      +    0.06988,   0.02743,  57.15674,   2.70292,   2.04552,
345      +    1.57950,   2.37481,   2.70758,
346      +    0.07080,   0.02804,  59.48952,   2.81086,   2.15814,
347      +    1.69655,   2.48508,   2.81557,
348      +    0.07168,   0.02863,  61.78384,   2.91807,   2.26982,
349      +    1.81243,   2.59452,   2.92283 /
350         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
351      +    0.05520,   0.01689,   8.16771,   0.74291,   0.03471,
352      +    0.00000,   0.38972,   0.74703,
353      +    0.05768,   0.01852,  10.97002,   0.83649,   0.14393,
354      +    0.00000,   0.49116,   0.84078,
355      +    0.05991,   0.02002,  13.80556,   0.93348,   0.25430,
356      +    0.00000,   0.59486,   0.93790,
357      +    0.06195,   0.02139,  16.58923,   1.03184,   0.36434,
358      +    0.00000,   0.69908,   1.03639,
359      +    0.06383,   0.02267,  19.32477,   1.13080,   0.47362,
360      +    0.02313,   0.80322,   1.13545,
361      +    0.06559,   0.02387,  21.99377,   1.22976,   0.58186,
362      +    0.12326,   0.90683,   1.23452,
363      +    0.06725,   0.02500,  24.59062,   1.32865,   0.68919,
364      +    0.24031,   1.00996,   1.33351 /
365         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
366      +    0.06881,   0.02608,  27.10899,   1.42708,   0.79538,
367      +    0.35349,   1.11228,   1.43203,
368      +    0.07030,   0.02711,  29.54529,   1.52470,   0.90015,
369      +    0.46499,   1.21348,   1.52973,
370      +    0.07172,   0.02809,  31.90111,   1.62131,   1.00340,
371      +    0.57442,   1.31341,   1.62642,
372      +    0.07308,   0.02903,  34.18138,   1.71683,   1.10511,
373      +    0.68189,   1.41204,   1.72201,
374      +    0.07438,   0.02994,  36.38255,   1.81102,   1.20510,
375      +    0.78726,   1.50913,   1.81626,
376      +    0.07563,   0.03081,  38.48053,   1.90320,   1.30273,
377      +    0.88994,   1.60404,   1.90851,
378      +    0.07684,   0.03164,  40.51802,   1.99423,   1.39890,
379      +    0.99087,   1.69765,   1.99961 /
380         DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
381      +    0.07800,   0.03245,  42.48756,   2.08391,   1.49343,
382      +    1.08989,   1.78975,   2.08934,
383      +    0.07912,   0.03323,  44.35997,   2.17129,   1.58541,
384      +    1.18613,   1.87944,   2.17679,
385      +    0.08020,   0.03399,  46.19490,   2.25790,   1.67639,
386      +    1.28114,   1.96824,   2.26345,
387      +    0.08125,   0.03472,  47.92944,   2.34199,   1.76465,
388      +    1.37323,   2.05441,   2.34759,
389      +    0.08226,   0.03544,  49.62872,   2.42527,   1.85189,
390      +    1.46414,   2.13967,   2.43091 /
391         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
392      +    0.06076,   0.01989,   7.47539,   0.68073,   0.03133,
393      +    0.00000,   0.35722,   0.68552,
394      +    0.06351,   0.02180,   9.97223,   0.76448,   0.12944,
395      +    0.00000,   0.44819,   0.76942,
396      +    0.06599,   0.02355,  12.46965,   0.85058,   0.22784,
397      +    0.00000,   0.54049,   0.85567,
398      +    0.06826,   0.02514,  14.89576,   0.93728,   0.32526,
399      +    0.00000,   0.63257,   0.94249,
400      +    0.07035,   0.02662,  17.25882,   1.02396,   0.42144,
401      +    0.02033,   0.72403,   1.02929,
402      +    0.07230,   0.02801,  19.54593,   1.11017,   0.51617,
403      +    0.10814,   0.81452,   1.11560,
404      +    0.07414,   0.02932,  21.75473,   1.19587,   0.60964,
405      +    0.21035,   0.90413,   1.20139 /
406         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
407      +    0.07588,   0.03056,  23.88213,   1.28076,   0.70166,
408      +    0.30870,   0.99260,   1.28637,
409      +    0.07753,   0.03174,  25.92714,   1.36457,   0.79206,
410      +    0.40519,   1.07972,   1.37026,
411      +    0.07910,   0.03286,  27.89279,   1.44717,   0.88077,
412      +    0.49949,   1.16539,   1.45294,
413      +    0.08061,   0.03394,  29.78505,   1.52853,   0.96782,
414      +    0.59175,   1.24961,   1.53437,
415      +    0.08204,   0.03497,  31.60204,   1.60846,   1.05309,
416      +    0.68189,   1.33222,   1.61436,
417      +    0.08343,   0.03596,  33.32407,   1.68638,   1.13603,
418      +    0.76940,   1.41267,   1.69235,
419      +    0.08476,   0.03692,  34.98917,   1.76310,   1.21748,
420      +    0.85516,   1.49177,   1.76913 /
421         DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
422      +    0.08604,   0.03784,  36.59158,   1.83844,   1.29729,
423      +    0.93903,   1.56935,   1.84453,
424      +    0.08728,   0.03873,  38.10712,   1.91161,   1.37470,
425      +    1.02028,   1.64464,   1.91775,
426      +    0.08847,   0.03959,  39.58728,   1.98395,   1.45107,
427      +    1.10029,   1.71901,   1.99014,
428      +    0.08963,   0.04041,  40.97926,   2.05395,   1.52491,
429      +    1.17760,   1.79094,   2.06019,
430      +    0.09075,   0.04122,  42.33871,   2.12312,   1.59774,
431      +    1.25374,   1.86195,   2.12941 /
432         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
433      +    0.06552,   0.02273,   6.97721,   0.63640,   0.02887,
434      +    0.00000,   0.33384,   0.64150,
435      +    0.06853,   0.02489,   9.25154,   0.71299,   0.11890,
436      +    0.00000,   0.41719,   0.71826,
437      +    0.07124,   0.02685,  11.50403,   0.79122,   0.20863,
438      +    0.00000,   0.50121,   0.79665,
439      +    0.07371,   0.02863,  13.67303,   0.86953,   0.29696,
440      +    0.00002,   0.58456,   0.87509,
441      +    0.07599,   0.03029,  15.77015,   0.94740,   0.38372,
442      +    0.01834,   0.66690,   0.95309,
443      +    0.07811,   0.03183,  17.78607,   1.02450,   0.46879,
444      +    0.09732,   0.74801,   1.03030,
445      +    0.08011,   0.03329,  19.72060,   1.10081,   0.55236,
446      +    0.18896,   0.82796,   1.10670 /
447         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
448      +    0.08200,   0.03466,  21.57309,   1.17610,   0.63432,
449      +    0.27677,   0.90661,   1.18209,
450      +    0.08380,   0.03597,  23.34392,   1.25015,   0.71453,
451      +    0.36262,   0.98375,   1.25623,
452      +    0.08550,   0.03721,  25.03760,   1.32287,   0.79298,
453      +    0.44622,   1.05935,   1.32903,
454      +    0.08713,   0.03840,  26.66037,   1.39427,   0.86971,
455      +    0.52777,   1.13343,   1.40051,
456      +    0.08869,   0.03954,  28.21049,   1.46420,   0.94464,
457      +    0.60720,   1.20587,   1.47050,
458      +    0.09019,   0.04063,  29.67432,   1.53217,   1.01730,
459      +    0.68409,   1.27620,   1.53854,
460      +    0.09163,   0.04168,  31.08479,   1.59892,   1.08848,
461      +    0.75924,   1.34517,   1.60535 /
462         DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
463      +    0.09302,   0.04269,  32.43724,   1.66431,   1.15805,
464      +    0.83256,   1.41266,   1.67080,
465      +    0.09436,   0.04366,  33.70975,   1.72762,   1.22534,
466      +    0.90340,   1.47796,   1.73417,
467      +    0.09565,   0.04460,  34.94885,   1.79010,   1.29159,
468      +    0.97302,   1.54234,   1.79670,
469      +    0.09690,   0.04551,  36.10852,   1.85038,   1.35546,
470      +    1.04010,   1.60442,   1.85703,
471      +    0.09811,   0.04639,  37.23849,   1.90983,   1.41834,
472      +    1.10603,   1.66559,   1.91652 /
473         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
474      +    0.08306,   0.03468,   5.62636,   0.51597,   0.02225,
475      +    0.00000,   0.27072,   0.52239,
476      +    0.08703,   0.03776,   7.30762,   0.57341,   0.09065,
477      +    0.00000,   0.33370,   0.58003,
478      +    0.09059,   0.04052,   8.91820,   0.63079,   0.15743,
479      +    0.00000,   0.39583,   0.63757,
480      +    0.09384,   0.04302,  10.42288,   0.68708,   0.22191,
481      +    0.00001,   0.45625,   0.69400,
482      +    0.09682,   0.04531,  11.84112,   0.74211,   0.28420,
483      +    0.01314,   0.51495,   0.74915,
484      +    0.09958,   0.04743,  13.17321,   0.79574,   0.34436,
485      +    0.06936,   0.57187,   0.80289,
486      +    0.10218,   0.04942,  14.42432,   0.84804,   0.40262,
487      +    0.13384,   0.62718,   0.85529 /
488         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
489      +    0.10463,   0.05128,  15.59858,   0.89896,   0.45901,
490      +    0.19482,   0.68086,   0.90630,
491      +    0.10695,   0.05304,  16.70023,   0.94841,   0.51352,
492      +    0.25373,   0.73286,   0.95584,
493      +    0.10916,   0.05470,  17.73563,   0.99642,   0.56622,
494      +    0.31046,   0.78323,   1.00392,
495      +    0.11125,   0.05629,  18.71164,   1.04304,   0.61723,
496      +    0.36522,   0.83206,   1.05061,
497      +    0.11325,   0.05780,  19.62926,   1.08822,   0.66653,
498      +    0.41804,   0.87932,   1.09586,
499      +    0.11517,   0.05923,  20.48106,   1.13167,   0.71384,
500      +    0.46864,   0.92471,   1.13936,
501      +    0.11701,   0.06060,  21.29117,   1.17396,   0.75978,
502      +    0.51769,   0.96885,   1.18172 /
503         DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
504      +    0.11877,   0.06192,  22.05750,   1.21503,   0.80430,
505      +    0.56513,   1.01165,   1.22284,
506      +    0.12047,   0.06317,  22.76675,   1.25441,   0.84696,
507      +    0.61056,   1.05268,   1.26227,
508      +    0.12211,   0.06439,  23.45059,   1.29300,   0.88867,
509      +    0.65489,   1.09284,   1.30090,
510      +    0.12369,   0.06555,  24.07961,   1.32988,   0.92851,
511      +    0.69723,   1.13121,   1.33782,
512      +    0.12521,   0.06668,  24.68698,   1.36602,   0.96749,
513      +    0.73859,   1.16878,   1.37400 /
514         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
515      +    0.10659,   0.05365,   4.52734,   0.41874,   0.01687,
516      +    0.00002,   0.21978,   0.42669,
517      +    0.11190,   0.05787,   5.73271,   0.46075,   0.06788,
518      +    0.00001,   0.26634,   0.46889,
519      +    0.11665,   0.06161,   6.84270,   0.50165,   0.11652,
520      +    0.00002,   0.31116,   0.50994,
521      +    0.12094,   0.06495,   7.84306,   0.54081,   0.16243,
522      +    0.00002,   0.35373,   0.54924,
523      +    0.12486,   0.06799,   8.75681,   0.57835,   0.20596,
524      +    0.00920,   0.39430,   0.58687,
525      +    0.12847,   0.07078,   9.59102,   0.61424,   0.24725,
526      +    0.04814,   0.43292,   0.62286,
527      +    0.13186,   0.07335,  10.35507,   0.64866,   0.28662,
528      +    0.09226,   0.46984,   0.65737 /
529         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
530      +    0.13503,   0.07575,  11.05375,   0.68165,   0.32415,
531      +    0.13337,   0.50511,   0.69044,
532      +    0.13802,   0.07799,  11.69351,   0.71321,   0.35990,
533      +    0.17253,   0.53878,   0.72205,
534      +    0.14084,   0.08010,  12.28241,   0.74340,   0.39402,
535      +    0.20976,   0.57095,   0.75230,
536      +    0.14352,   0.08209,  12.82666,   0.77236,   0.42664,
537      +    0.24529,   0.60176,   0.78131,
538      +    0.14606,   0.08397,  13.32714,   0.80010,   0.45781,
539      +    0.27918,   0.63123,   0.80909,
540      +    0.14848,   0.08575,  13.78036,   0.82638,   0.48732,
541      +    0.31125,   0.65913,   0.83542,
542      +    0.15080,   0.08744,  14.20426,   0.85170,   0.51569,
543      +    0.34202,   0.68599,   0.86078 /
544         DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
545      +    0.15302,   0.08905,  14.59854,   0.87603,   0.54292,
546      +    0.37151,   0.71178,   0.88515,
547      +    0.15514,   0.09057,  14.95536,   0.89911,   0.56875,
548      +    0.39948,   0.73624,   0.90825,
549      +    0.15718,   0.09203,  15.29492,   0.92154,   0.59380,
550      +    0.42656,   0.75999,   0.93072,
551      +    0.15913,   0.09343,  15.59800,   0.94268,   0.61744,
552      +    0.45213,   0.78238,   0.95189,
553      +    0.16102,   0.09478,  15.88724,   0.96326,   0.64040,
554      +    0.47693,   0.80416,   0.97249 /
555         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
556      +    0.12441,   0.06939,   3.98165,   0.37079,   0.01422,
557      +    0.00002,   0.19472,   0.37969,
558      +    0.13072,   0.07435,   4.95415,   0.40520,   0.05672,
559      +    0.00003,   0.23323,   0.41426,
560      +    0.13632,   0.07871,   5.82556,   0.43811,   0.09659,
561      +    0.00003,   0.26967,   0.44729,
562      +    0.14137,   0.08255,   6.59158,   0.46912,   0.13371,
563      +    0.00003,   0.30376,   0.47841,
564      +    0.14597,   0.08601,   7.27642,   0.49842,   0.16845,
565      +    0.00735,   0.33581,   0.50780,
566      +    0.15019,   0.08916,   7.89017,   0.52610,   0.20103,
567      +    0.03830,   0.36597,   0.53556,
568      +    0.15410,   0.09206,   8.44100,   0.55235,   0.23176,
569      +    0.07307,   0.39448,   0.56186 /
570         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
571      +    0.15777,   0.09475,   8.93561,   0.57718,   0.26072,
572      +    0.10512,   0.42139,   0.58676,
573      +    0.16120,   0.09724,   9.38150,   0.60070,   0.28808,
574      +    0.13539,   0.44683,   0.61033,
575      +    0.16444,   0.09956,   9.78434,   0.62302,   0.31396,
576      +    0.16395,   0.47095,   0.63268,
577      +    0.16751,   0.10174,  10.15014,   0.64422,   0.33851,
578      +    0.19100,   0.49384,   0.65392,
579      +    0.17040,   0.10379,  10.48254,   0.66433,   0.36176,
580      +    0.21658,   0.51553,   0.67406,
581      +    0.17314,   0.10571,  10.77755,   0.68325,   0.38363,
582      +    0.24065,   0.53593,   0.69301,
583      +    0.17575,   0.10753,  11.04940,   0.70133,   0.40451,
584      +    0.26358,   0.55541,   0.71111 /
585         DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
586      +    0.17823,   0.10927,  11.29810,   0.71857,   0.42439,
587      +    0.28540,   0.57398,   0.72835,
588      +    0.18061,   0.11090,  11.51828,   0.73473,   0.44308,
589      +    0.30592,   0.59141,   0.74454,
590      +    0.18289,   0.11247,  11.72573,   0.75036,   0.46112,
591      +    0.32569,   0.60825,   0.76019,
592      +    0.18507,   0.11393,  11.90742,   0.76496,   0.47802,
593      +    0.34424,   0.62401,   0.77481,
594      +    0.18718,   0.11535,  12.07889,   0.77911,   0.49436,
595      +    0.36216,   0.63925,   0.78896 /
596         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
597      +    0.13963,   0.08328,   3.63159,   0.34026,   0.01251,
598      +    0.00002,   0.17877,   0.34987,
599      +    0.14675,   0.08874,   4.45618,   0.36979,   0.04961,
600      +    0.00002,   0.21213,   0.37954,
601      +    0.15305,   0.09349,   5.17942,   0.39765,   0.08399,
602      +    0.00003,   0.24329,   0.40749,
603      +    0.15870,   0.09764,   5.80246,   0.42356,   0.11563,
604      +    0.00003,   0.27208,   0.43349,
605      +    0.16381,   0.10136,   6.34982,   0.44777,   0.14495,
606      +    0.00621,   0.29888,   0.45777,
607      +    0.16850,   0.10473,   6.83238,   0.47042,   0.17222,
608      +    0.03227,   0.32386,   0.48048,
609      +    0.17281,   0.10781,   7.25862,   0.49169,   0.19770,
610      +    0.06136,   0.34725,   0.50177 /
611         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
612      +    0.17684,   0.11065,   7.63543,   0.51164,   0.22155,
613      +    0.08796,   0.36915,   0.52176,
614      +    0.18060,   0.11326,   7.96998,   0.53036,   0.24389,
615      +    0.11291,   0.38969,   0.54051,
616      +    0.18414,   0.11569,   8.26775,   0.54799,   0.26490,
617      +    0.13631,   0.40901,   0.55816,
618      +    0.18747,   0.11795,   8.53430,   0.56461,   0.28469,
619      +    0.15834,   0.42723,   0.57480,
620      +    0.19061,   0.12007,   8.77298,   0.58026,   0.30331,
621      +    0.17905,   0.44437,   0.59047,
622      +    0.19357,   0.12204,   8.98090,   0.59487,   0.32071,
623      +    0.19841,   0.46038,   0.60508,
624      +    0.19637,   0.12391,   9.17000,   0.60875,   0.33725,
625      +    0.21678,   0.47558,   0.61896 /
626         DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
627      +    0.19904,   0.12568,   9.34047,   0.62189,   0.35290,
628      +    0.23416,   0.48998,   0.63210,
629      +    0.20158,   0.12734,   9.48812,   0.63411,   0.36753,
630      +    0.25042,   0.50341,   0.64433,
631      +    0.20402,   0.12892,   9.62581,   0.64588,   0.38159,
632      +    0.26602,   0.51632,   0.65610,
633      +    0.20634,   0.13040,   9.74323,   0.65678,   0.39467,
634      +    0.28058,   0.52832,   0.66700,
635      +    0.20857,   0.13182,   9.85289,   0.66729,   0.40728,
636      +    0.29459,   0.53988,   0.67751 /
637         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
638      +    0.15327,   0.09584,   3.37937,   0.31835,   0.01131,
639      +    0.00002,   0.16734,   0.32849,
640      +    0.16108,   0.10164,   4.09838,   0.34437,   0.04455,
641      +    0.00004,   0.19701,   0.35462,
642      +    0.16799,   0.10663,   4.71769,   0.36860,   0.07504,
643      +    0.00004,   0.22442,   0.37896,
644      +    0.17410,   0.11100,   5.24194,   0.39092,   0.10283,
645      +    0.00003,   0.24948,   0.40129,
646      +    0.17962,   0.11488,   5.69572,   0.41158,   0.12839,
647      +    0.00545,   0.27260,   0.42199,
648      +    0.18466,   0.11836,   6.08940,   0.43072,   0.15197,
649      +    0.02810,   0.29397,   0.44117,
650      +    0.18930,   0.12152,   6.43224,   0.44857,   0.17388,
651      +    0.05329,   0.31386,   0.45904 /
652         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
653      +    0.19361,   0.12442,   6.73166,   0.46515,   0.19422,
654      +    0.07616,   0.33233,   0.47565,
655      +    0.19762,   0.12708,   6.99285,   0.48062,   0.21317,
656      +    0.09751,   0.34955,   0.49112,
657      +    0.20136,   0.12954,   7.22282,   0.49508,   0.23088,
658      +    0.11741,   0.36563,   0.50557,
659      +    0.20488,   0.13183,   7.42642,   0.50861,   0.24747,
660      +    0.13604,   0.38068,   0.51910,
661      +    0.20821,   0.13395,   7.60415,   0.52126,   0.26300,
662      +    0.15348,   0.39478,   0.53177,
663      +    0.21131,   0.13594,   7.75704,   0.53297,   0.27742,
664      +    0.16968,   0.40784,   0.54346,
665      +    0.21425,   0.13780,   7.89445,   0.54405,   0.29106,
666      +    0.18501,   0.42021,   0.55452 /
667         DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
668      +    0.21706,   0.13954,   8.01655,   0.55450,   0.30395,
669      +    0.19948,   0.43188,   0.56497,
670      +    0.21971,   0.14116,   8.11928,   0.56413,   0.31590,
671      +    0.21292,   0.44266,   0.57459,
672      +    0.22226,   0.14271,   8.21397,   0.57335,   0.32734,
673      +    0.22578,   0.45299,   0.58380,
674      +    0.22466,   0.14416,   8.29227,   0.58183,   0.33794,
675      +    0.23772,   0.46253,   0.59226,
676      +    0.22696,   0.14554,   8.36434,   0.58997,   0.34812,
677      +    0.24917,   0.47169,   0.60038 /
678         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
679      +    0.21004,   0.14651,   2.68652,   0.25825,   0.00799,
680      +    0.00001,   0.13599,   0.26981,
681      +    0.22012,   0.15270,   3.12191,   0.27451,   0.03088,
682      +    0.00002,   0.15558,   0.28606,
683      +    0.22881,   0.15789,   3.47119,   0.28899,   0.05113,
684      +    0.00000,   0.17293,   0.30048,
685      +    0.23634,   0.16230,   3.74667,   0.30175,   0.06897,
686      +    0.00002,   0.18823,   0.31316,
687      +    0.24302,   0.16610,   3.96980,   0.31313,   0.08491,
688      +    0.00345,   0.20186,   0.32446,
689      +    0.24902,   0.16942,   4.15146,   0.32331,   0.09921,
690      +    0.01754,   0.21410,   0.33457,
691      +    0.25445,   0.17234,   4.29869,   0.33243,   0.11214,
692      +    0.03288,   0.22511,   0.34364 /
693         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
694      +    0.25940,   0.17494,   4.41846,   0.34064,   0.12387,
695      +    0.04651,   0.23506,   0.35179,
696      +    0.26393,   0.17728,   4.51544,   0.34807,   0.13457,
697      +    0.05900,   0.24411,   0.35914,
698      +    0.26810,   0.17939,   4.59424,   0.35478,   0.14434,
699      +    0.07041,   0.25234,   0.36577,
700      +    0.27196,   0.18131,   4.65814,   0.36087,   0.15331,
701      +    0.08088,   0.25985,   0.37179,
702      +    0.27555,   0.18305,   4.70790,   0.36640,   0.16155,
703      +    0.09055,   0.26672,   0.37727,
704      +    0.27887,   0.18461,   4.74467,   0.37133,   0.16904,
705      +    0.09936,   0.27290,   0.38211,
706      +    0.28198,   0.18603,   4.77407,   0.37585,   0.17599,
707      +    0.10755,   0.27863,   0.38658 /
708         DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
709      +    0.28491,   0.18734,   4.79632,   0.37997,   0.18244,
710      +    0.11516,   0.28391,   0.39067,
711      +    0.28761,   0.18853,   4.80952,   0.38366,   0.18832,
712      +    0.12214,   0.28868,   0.39427,
713      +    0.29017,   0.18966,   4.81959,   0.38712,   0.19387,
714      +    0.12874,   0.29317,   0.39766,
715      +    0.29255,   0.19067,   4.82134,   0.39014,   0.19888,
716      +    0.13475,   0.29717,   0.40063,
717      +    0.29483,   0.19162,   4.82118,   0.39298,   0.20364,
718      +    0.14045,   0.30095,   0.40342 /
719         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
720      +    0.30013,   0.21489,   2.09615,   0.20512,   0.00519,
721      +   -0.00012,   0.10809,   0.21700,
722      +    0.31140,   0.21926,   2.30651,   0.21297,   0.01984,
723      +   -0.00014,   0.11928,   0.22464,
724      +    0.32072,   0.22263,   2.45504,   0.21947,   0.03220,
725      +   -0.00009,   0.12866,   0.23086,
726      +    0.32846,   0.22525,   2.55577,   0.22471,   0.04260,
727      +   -0.00010,   0.13640,   0.23586,
728      +    0.33509,   0.22729,   2.62536,   0.22904,   0.05153,
729      +    0.00184,   0.14297,   0.23996,
730      +    0.34081,   0.22892,   2.67192,   0.23257,   0.05927,
731      +    0.00979,   0.14856,   0.24331,
732      +    0.34585,   0.23018,   2.70094,   0.23551,   0.06605,
733      +    0.01828,   0.15339,   0.24606 /
734         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
735      +    0.35029,   0.23117,   2.71617,   0.23789,   0.07198,
736      +    0.02557,   0.15751,   0.24826,
737      +    0.35420,   0.23194,   2.72121,   0.23981,   0.07722,
738      +    0.03208,   0.16107,   0.25005,
739      +    0.35766,   0.23253,   2.71849,   0.24139,   0.08186,
740      +    0.03789,   0.16414,   0.25147,
741      +    0.36075,   0.23298,   2.70995,   0.24268,   0.08600,
742      +    0.04311,   0.16681,   0.25259,
743      +    0.36354,   0.23329,   2.69663,   0.24370,   0.08972,
744      +    0.04784,   0.16913,   0.25347,
745      +    0.36598,   0.23347,   2.67878,   0.24441,   0.09297,
746      +    0.05202,   0.17107,   0.25402,
747      +    0.36820,   0.23358,   2.65897,   0.24492,   0.09591,
748      +    0.05581,   0.17278,   0.25442 /
749         DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
750      +    0.37022,   0.23363,   2.63718,   0.24526,   0.09856,
751      +    0.05923,   0.17425,   0.25470,
752      +    0.37200,   0.23356,   2.61265,   0.24543,   0.10088,
753      +    0.06236,   0.17546,   0.25478,
754      +    0.37367,   0.23346,   2.58826,   0.24555,   0.10303,
755      +    0.06528,   0.17656,   0.25480,
756      +    0.37511,   0.23330,   2.56176,   0.24547,   0.10490,
757      +    0.06783,   0.17744,   0.25457,
758      +    0.37645,   0.23311,   2.53572,   0.24535,   0.10664,
759      +    0.07022,   0.17823,   0.25431 /
760         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
761      +    0.37435,   0.25824,   1.77708,   0.17306,   0.00395,
762      +    0.00000,   0.09130,   0.18433,
763      +    0.38426,   0.25969,   1.88087,   0.17665,   0.01458,
764      +   -0.00001,   0.09834,   0.18753,
765      +    0.39209,   0.26040,   1.94096,   0.17928,   0.02324,
766      +    0.00005,   0.10392,   0.18977,
767      +    0.39827,   0.26051,   1.96970,   0.18099,   0.03031,
768      +    0.00003,   0.10822,   0.19124,
769      +    0.40327,   0.26026,   1.97969,   0.18217,   0.03619,
770      +    0.00132,   0.11167,   0.19206,
771      +    0.40739,   0.25974,   1.97654,   0.18287,   0.04114,
772      +    0.00664,   0.11444,   0.19248,
773      +    0.41076,   0.25907,   1.96431,   0.18316,   0.04541,
774      +    0.01216,   0.11669,   0.19263 /
775         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
776      +    0.41354,   0.25821,   1.94539,   0.18320,   0.04903,
777      +    0.01685,   0.11844,   0.19245,
778      +    0.41575,   0.25730,   1.92203,   0.18305,   0.05210,
779      +    0.02097,   0.11985,   0.19206,
780      +    0.41757,   0.25630,   1.89570,   0.18271,   0.05476,
781      +    0.02456,   0.12095,   0.19149,
782      +    0.41912,   0.25520,   1.86760,   0.18219,   0.05709,
783      +    0.02772,   0.12181,   0.19079,
784      +    0.42040,   0.25403,   1.83844,   0.18150,   0.05913,
785      +    0.03057,   0.12249,   0.18997,
786      +    0.42129,   0.25288,   1.80774,   0.18075,   0.06086,
787      +    0.03303,   0.12291,   0.18904,
788      +    0.42201,   0.25171,   1.77732,   0.17993,   0.06240,
789      +    0.03524,   0.12322,   0.18807 /
790         DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
791      +    0.42260,   0.25049,   1.74710,   0.17905,   0.06377,
792      +    0.03722,   0.12341,   0.18706,
793      +    0.42298,   0.24922,   1.71651,   0.17808,   0.06489,
794      +    0.03895,   0.12347,   0.18597,
795      +    0.42328,   0.24799,   1.68711,   0.17712,   0.06590,
796      +    0.04053,   0.12348,   0.18490,
797      +    0.42338,   0.24674,   1.65738,   0.17610,   0.06673,
798      +    0.04189,   0.12335,   0.18372,
799      +    0.42342,   0.24553,   1.62891,   0.17508,   0.06750,
800      +    0.04314,   0.12320,   0.18258 /
801         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
802      +    0.43672,   0.28564,   1.55169,   0.14808,   0.00311,
803      +    0.00008,   0.07818,   0.15829,
804      +    0.44382,   0.28390,   1.59176,   0.14907,   0.01129,
805      +    0.00006,   0.08264,   0.15881,
806      +    0.44892,   0.28182,   1.60210,   0.14940,   0.01774,
807      +    0.00005,   0.08594,   0.15868,
808      +    0.45254,   0.27937,   1.59256,   0.14913,   0.02284,
809      +    0.00009,   0.08827,   0.15816,
810      +    0.45506,   0.27697,   1.57257,   0.14859,   0.02697,
811      +    0.00103,   0.09001,   0.15730,
812      +    0.45677,   0.27446,   1.54594,   0.14781,   0.03037,
813      +    0.00483,   0.09126,   0.15625,
814      +    0.45785,   0.27196,   1.51525,   0.14685,   0.03319,
815      +    0.00876,   0.09212,   0.15502 /
816         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
817      +    0.45843,   0.26944,   1.48214,   0.14579,   0.03556,
818      +    0.01200,   0.09270,   0.15363,
819      +    0.45864,   0.26691,   1.44787,   0.14457,   0.03754,
820      +    0.01480,   0.09304,   0.15222,
821      +    0.45855,   0.26441,   1.41340,   0.14326,   0.03920,
822      +    0.01719,   0.09317,   0.15077,
823      +    0.45820,   0.26198,   1.37933,   0.14192,   0.04062,
824      +    0.01926,   0.09315,   0.14928,
825      +    0.45763,   0.25960,   1.34583,   0.14053,   0.04185,
826      +    0.02106,   0.09305,   0.14774,
827      +    0.45678,   0.25725,   1.31263,   0.13917,   0.04282,
828      +    0.02266,   0.09281,   0.14618,
829      +    0.45583,   0.25498,   1.28073,   0.13783,   0.04365,
830      +    0.02406,   0.09251,   0.14464 /
831         DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
832      +    0.45480,   0.25276,   1.24994,   0.13650,   0.04436,
833      +    0.02527,   0.09215,   0.14310,
834      +    0.45364,   0.25053,   1.21982,   0.13508,   0.04494,
835      +    0.02634,   0.09170,   0.14164,
836      +    0.45246,   0.24839,   1.19131,   0.13371,   0.04545,
837      +    0.02732,   0.09125,   0.14024,
838      +    0.45108,   0.24633,   1.16340,   0.13238,   0.04583,
839      +    0.02811,   0.09073,   0.13868,
840      +    0.44972,   0.24433,   1.13695,   0.13109,   0.04617,
841      +    0.02883,   0.09021,   0.13720 /
842         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
843      +    0.48847,   0.30165,   1.37264,   0.12695,   0.00253,
844      +    0.00008,   0.06700,   0.13583,
845      +    0.49191,   0.29675,   1.37121,   0.12624,   0.00888,
846      +    0.00007,   0.06973,   0.13474,
847      +    0.49363,   0.29197,   1.35088,   0.12521,   0.01381,
848      +    0.00007,   0.07156,   0.13324,
849      +    0.49399,   0.28740,   1.31920,   0.12382,   0.01760,
850      +    0.00011,   0.07267,   0.13153,
851      +    0.49353,   0.28301,   1.28289,   0.12237,   0.02064,
852      +    0.00078,   0.07336,   0.12966,
853      +    0.49259,   0.27868,   1.24451,   0.12077,   0.02308,
854      +    0.00362,   0.07369,   0.12781,
855      +    0.49116,   0.27455,   1.20543,   0.11907,   0.02504,
856      +    0.00644,   0.07377,   0.12595 /
857         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
858      +    0.48944,   0.27055,   1.16658,   0.11735,   0.02666,
859      +    0.00878,   0.07369,   0.12405,
860      +    0.48741,   0.26671,   1.12864,   0.11568,   0.02797,
861      +    0.01076,   0.07344,   0.12213,
862      +    0.48517,   0.26305,   1.09201,   0.11402,   0.02902,
863      +    0.01242,   0.07310,   0.12027,
864      +    0.48279,   0.25956,   1.05697,   0.11238,   0.02987,
865      +    0.01384,   0.07270,   0.11845,
866      +    0.48024,   0.25626,   1.02352,   0.11080,   0.03059,
867      +    0.01513,   0.07222,   0.11657,
868      +    0.47763,   0.25296,   0.99127,   0.10920,   0.03118,
869      +    0.01618,   0.07165,   0.11477,
870      +    0.47505,   0.24978,   0.96083,   0.10761,   0.03167,
871      +    0.01708,   0.07106,   0.11309 /
872         DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
873      +    0.47250,   0.24668,   0.93196,   0.10602,   0.03206,
874      +    0.01784,   0.07044,   0.11154,
875      +    0.46978,   0.24376,   0.90429,   0.10453,   0.03235,
876      +    0.01852,   0.06979,   0.10986,
877      +    0.46711,   0.24099,   0.87835,   0.10313,   0.03259,
878      +    0.01915,   0.06916,   0.10823,
879      +    0.46439,   0.23822,   0.85343,   0.10169,   0.03276,
880      +    0.01967,   0.06850,   0.10671,
881      +    0.46175,   0.23558,   0.83000,   0.10032,   0.03290,
882      +    0.02013,   0.06785,   0.10524 /
883         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
884      +    0.53953,   0.30942,   1.18740,   0.10410,   0.00193,
885      +    0.00004,   0.05492,   0.11164,
886      +    0.53742,   0.30119,   1.15255,   0.10223,   0.00679,
887      +    0.00006,   0.05631,   0.10926,
888      +    0.53429,   0.29360,   1.10937,   0.10028,   0.01038,
889      +    0.00008,   0.05698,   0.10680,
890      +    0.53041,   0.28651,   1.06249,   0.09814,   0.01312,
891      +    0.00010,   0.05722,   0.10436,
892      +    0.52610,   0.28000,   1.01611,   0.09603,   0.01517,
893      +    0.00061,   0.05716,   0.10209,
894      +    0.52157,   0.27391,   0.97144,   0.09401,   0.01682,
895      +    0.00259,   0.05692,   0.09977,
896      +    0.51681,   0.26826,   0.92871,   0.09206,   0.01812,
897      +    0.00457,   0.05649,   0.09746 /
898         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
899      +    0.51212,   0.26280,   0.88821,   0.09009,   0.01910,
900      +    0.00617,   0.05597,   0.09534,
901      +    0.50735,   0.25767,   0.85014,   0.08816,   0.01993,
902      +    0.00751,   0.05538,   0.09328,
903      +    0.50252,   0.25288,   0.81454,   0.08634,   0.02059,
904      +    0.00865,   0.05474,   0.09127,
905      +    0.49772,   0.24836,   0.78133,   0.08462,   0.02109,
906      +    0.00960,   0.05407,   0.08933,
907      +    0.49297,   0.24408,   0.75025,   0.08296,   0.02148,
908      +    0.01036,   0.05342,   0.08747,
909      +    0.48833,   0.23990,   0.72100,   0.08134,   0.02177,
910      +    0.01102,   0.05271,   0.08567,
911      +    0.48378,   0.23595,   0.69387,   0.07980,   0.02198,
912      +    0.01161,   0.05200,   0.08398 /
913         DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
914      +    0.47926,   0.23221,   0.66857,   0.07833,   0.02212,
915      +    0.01212,   0.05129,   0.08240,
916      +    0.47483,   0.22860,   0.64465,   0.07686,   0.02222,
917      +    0.01250,   0.05062,   0.08082,
918      +    0.47057,   0.22518,   0.62242,   0.07546,   0.02231,
919      +    0.01282,   0.04997,   0.07931,
920      +    0.46632,   0.22186,   0.60137,   0.07411,   0.02235,
921      +    0.01311,   0.04926,   0.07788,
922      +    0.46222,   0.21870,   0.58173,   0.07283,   0.02237,
923      +    0.01336,   0.04859,   0.07650 /
924         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
925      +    0.57633,   0.30733,   1.03032,   0.08465,   0.00158,
926      +    0.00012,   0.04476,   0.09074,
927      +    0.56850,   0.29621,   0.97512,   0.08219,   0.00528,
928      +    0.00016,   0.04521,   0.08790,
929      +    0.56023,   0.28646,   0.91944,   0.07979,   0.00791,
930      +    0.00014,   0.04524,   0.08519,
931      +    0.55194,   0.27751,   0.86550,   0.07745,   0.00985,
932      +    0.00013,   0.04497,   0.08247,
933      +    0.54388,   0.26931,   0.81547,   0.07519,   0.01136,
934      +    0.00051,   0.04452,   0.07992,
935      +    0.53587,   0.26193,   0.76943,   0.07311,   0.01248,
936      +    0.00195,   0.04393,   0.07753,
937      +    0.52802,   0.25510,   0.72705,   0.07105,   0.01329,
938      +    0.00335,   0.04330,   0.07532 /
939         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
940      +    0.52045,   0.24865,   0.68803,   0.06913,   0.01395,
941      +    0.00447,   0.04263,   0.07316,
942      +    0.51307,   0.24271,   0.65228,   0.06728,   0.01446,
943      +    0.00539,   0.04186,   0.07118,
944      +    0.50591,   0.23714,   0.61950,   0.06551,   0.01483,
945      +    0.00616,   0.04116,   0.06927,
946      +    0.49900,   0.23186,   0.58943,   0.06385,   0.01509,
947      +    0.00680,   0.04055,   0.06742,
948      +    0.49233,   0.22685,   0.56185,   0.06230,   0.01529,
949      +    0.00732,   0.03984,   0.06573,
950      +    0.48575,   0.22220,   0.53623,   0.06080,   0.01544,
951      +    0.00773,   0.03909,   0.06412,
952      +    0.47945,   0.21780,   0.51271,   0.05940,   0.01555,
953      +    0.00809,   0.03836,   0.06259 /
954         DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
955      +    0.47341,   0.21360,   0.49099,   0.05809,   0.01563,
956      +    0.00841,   0.03764,   0.06110,
957      +    0.46753,   0.20956,   0.47080,   0.05677,   0.01565,
958      +    0.00869,   0.03698,   0.05972,
959      +    0.46190,   0.20575,   0.45219,   0.05551,   0.01564,
960      +    0.00893,   0.03635,   0.05842,
961      +    0.45634,   0.20213,   0.43474,   0.05435,   0.01558,
962      +    0.00906,   0.03572,   0.05715,
963      +    0.45103,   0.19867,   0.41857,   0.05323,   0.01552,
964      +    0.00918,   0.03512,   0.05596 /
965         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
966      +    0.59996,   0.29826,   0.89347,   0.06814,   0.00117,
967      +    0.00004,   0.03597,   0.07309,
968      +    0.58637,   0.28495,   0.82658,   0.06549,   0.00403,
969      +   -0.00001,   0.03595,   0.07010,
970      +    0.57337,   0.27331,   0.76486,   0.06305,   0.00608,
971      +    0.00002,   0.03564,   0.06722,
972      +    0.56089,   0.26301,   0.70869,   0.06075,   0.00751,
973      +    0.00001,   0.03514,   0.06452,
974      +    0.54925,   0.25365,   0.65873,   0.05848,   0.00858,
975      +    0.00035,   0.03449,   0.06219,
976      +    0.53815,   0.24527,   0.61410,   0.05646,   0.00931,
977      +    0.00139,   0.03388,   0.05991,
978      +    0.52753,   0.23767,   0.57406,   0.05450,   0.00991,
979      +    0.00243,   0.03321,   0.05781 /
980         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
981      +    0.51747,   0.23057,   0.53806,   0.05266,   0.01035,
982      +    0.00324,   0.03245,   0.05595,
983      +    0.50785,   0.22400,   0.50557,   0.05102,   0.01067,
984      +    0.00397,   0.03169,   0.05412,
985      +    0.49862,   0.21793,   0.47630,   0.04946,   0.01090,
986      +    0.00453,   0.03099,   0.05241,
987      +    0.48984,   0.21226,   0.44993,   0.04795,   0.01104,
988      +    0.00493,   0.03033,   0.05085,
989      +    0.48156,   0.20686,   0.42605,   0.04657,   0.01109,
990      +    0.00528,   0.02966,   0.04941,
991      +    0.47345,   0.20197,   0.40396,   0.04529,   0.01119,
992      +    0.00558,   0.02899,   0.04791,
993      +    0.46577,   0.19730,   0.38391,   0.04405,   0.01124,
994      +    0.00582,   0.02836,   0.04656 /
995         DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
996      +    0.45847,   0.19279,   0.36563,   0.04282,   0.01122,
997      +    0.00598,   0.02776,   0.04540,
998      +    0.45139,   0.18858,   0.34877,   0.04171,   0.01120,
999      +    0.00611,   0.02718,   0.04420,
1000      +    0.44463,   0.18464,   0.33331,   0.04067,   0.01116,
1001      +    0.00623,   0.02663,   0.04305,
1002      +    0.43794,   0.18095,   0.31892,   0.03970,   0.01109,
1003      +    0.00631,   0.02609,   0.04196,
1004      +    0.43162,   0.17744,   0.30570,   0.03879,   0.01102,
1005      +    0.00639,   0.02557,   0.04092 /
1006         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1007      +    0.61180,   0.28403,   0.77290,   0.05428,   0.00091,
1008      +    0.00000,   0.02857,   0.05826,
1009      +    0.59269,   0.26924,   0.70031,   0.05176,   0.00312,
1010      +    0.00002,   0.02829,   0.05523,
1011      +    0.57527,   0.25644,   0.63701,   0.04948,   0.00456,
1012      +    0.00006,   0.02779,   0.05255,
1013      +    0.55906,   0.24517,   0.58177,   0.04728,   0.00569,
1014      +    0.00004,   0.02721,   0.05008,
1015      +    0.54419,   0.23517,   0.53394,   0.04516,   0.00643,
1016      +    0.00029,   0.02654,   0.04800,
1017      +    0.53038,   0.22615,   0.49229,   0.04336,   0.00698,
1018      +    0.00105,   0.02587,   0.04596,
1019      +    0.51721,   0.21817,   0.45567,   0.04177,   0.00734,
1020      +    0.00181,   0.02519,   0.04405 /
1021         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1022      +    0.50499,   0.21076,   0.42329,   0.04019,   0.00764,
1023      +    0.00240,   0.02456,   0.04228,
1024      +    0.49362,   0.20380,   0.39454,   0.03862,   0.00781,
1025      +    0.00283,   0.02388,   0.04084,
1026      +    0.48275,   0.19751,   0.36890,   0.03726,   0.00795,
1027      +    0.00317,   0.02319,   0.03942,
1028      +    0.47243,   0.19176,   0.34601,   0.03604,   0.00806,
1029      +    0.00347,   0.02253,   0.03801,
1030      +    0.46286,   0.18624,   0.32555,   0.03477,   0.00806,
1031      +    0.00373,   0.02193,   0.03685,
1032      +    0.45349,   0.18125,   0.30698,   0.03370,   0.00809,
1033      +    0.00390,   0.02141,   0.03556,
1034      +    0.44468,   0.17651,   0.29019,   0.03269,   0.00808,
1035      +    0.00407,   0.02090,   0.03441 /
1036         DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1037      +    0.43638,   0.17197,   0.27493,   0.03172,   0.00804,
1038      +    0.00424,   0.02039,   0.03342,
1039      +    0.42838,   0.16779,   0.26109,   0.03080,   0.00800,
1040      +    0.00434,   0.01988,   0.03244,
1041      +    0.42080,   0.16388,   0.24849,   0.02993,   0.00796,
1042      +    0.00442,   0.01940,   0.03152,
1043      +    0.41343,   0.16018,   0.23672,   0.02914,   0.00787,
1044      +    0.00442,   0.01892,   0.03067,
1045      +    0.40644,   0.15669,   0.22597,   0.02840,   0.00779,
1046      +    0.00443,   0.01846,   0.02987 /
1047         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1048      +    0.61300,   0.26638,   0.66597,   0.04286,   0.00064,
1049      +    0.00008,   0.02243,   0.04577,
1050      +    0.58913,   0.25049,   0.59189,   0.04046,   0.00237,
1051      +    0.00008,   0.02216,   0.04297,
1052      +    0.56777,   0.23695,   0.52989,   0.03826,   0.00346,
1053      +    0.00008,   0.02154,   0.04078,
1054      +    0.54829,   0.22528,   0.47756,   0.03639,   0.00427,
1055      +    0.00009,   0.02089,   0.03856,
1056      +    0.53078,   0.21480,   0.43304,   0.03459,   0.00480,
1057      +    0.00021,   0.02024,   0.03676,
1058      +    0.51459,   0.20567,   0.39519,   0.03298,   0.00517,
1059      +    0.00076,   0.01964,   0.03504,
1060      +    0.49960,   0.19740,   0.36238,   0.03151,   0.00548,
1061      +    0.00133,   0.01896,   0.03347 /
1062         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1063      +    0.48565,   0.18994,   0.33366,   0.03022,   0.00567,
1064      +    0.00171,   0.01838,   0.03193,
1065      +    0.47260,   0.18312,   0.30864,   0.02906,   0.00576,
1066      +    0.00198,   0.01783,   0.03052,
1067      +    0.46044,   0.17683,   0.28664,   0.02797,   0.00583,
1068      +    0.00223,   0.01727,   0.02928,
1069      +    0.44908,   0.17100,   0.26714,   0.02694,   0.00589,
1070      +    0.00247,   0.01671,   0.02818,
1071      +    0.43838,   0.16554,   0.24979,   0.02594,   0.00593,
1072      +    0.00270,   0.01620,   0.02720,
1073      +    0.42825,   0.16055,   0.23419,   0.02502,   0.00590,
1074      +    0.00284,   0.01574,   0.02619,
1075      +    0.41871,   0.15591,   0.22028,   0.02416,   0.00585,
1076      +    0.00292,   0.01531,   0.02529 /
1077         DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1078      +    0.40969,   0.15156,   0.20783,   0.02333,   0.00577,
1079      +    0.00296,   0.01490,   0.02450,
1080      +    0.40101,   0.14755,   0.19640,   0.02262,   0.00570,
1081      +    0.00301,   0.01446,   0.02372,
1082      +    0.39283,   0.14380,   0.18606,   0.02197,   0.00564,
1083      +    0.00305,   0.01405,   0.02299,
1084      +    0.38512,   0.14008,   0.17672,   0.02129,   0.00559,
1085      +    0.00309,   0.01369,   0.02228,
1086      +    0.37778,   0.13663,   0.16816,   0.02065,   0.00553,
1087      +    0.00312,   0.01334,   0.02163 /
1088         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1089      +    0.60505,   0.24641,   0.57098,   0.03341,   0.00055,
1090      +    0.00001,   0.01754,   0.03535,
1091      +    0.57715,   0.22979,   0.49826,   0.03116,   0.00182,
1092      +    0.00005,   0.01707,   0.03323,
1093      +    0.55242,   0.21595,   0.43921,   0.02926,   0.00283,
1094      +    0.00002,   0.01659,   0.03104,
1095      +    0.53033,   0.20407,   0.39068,   0.02764,   0.00335,
1096      +    0.00009,   0.01595,   0.02929,
1097      +    0.51047,   0.19377,   0.35043,   0.02612,   0.00374,
1098      +    0.00023,   0.01529,   0.02777,
1099      +    0.49247,   0.18462,   0.31648,   0.02487,   0.00398,
1100      +    0.00064,   0.01477,   0.02625,
1101      +    0.47596,   0.17644,   0.28761,   0.02362,   0.00419,
1102      +    0.00095,   0.01424,   0.02497 /
1103         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1104      +    0.46064,   0.16916,   0.26274,   0.02253,   0.00424,
1105      +    0.00125,   0.01375,   0.02382,
1106      +    0.44659,   0.16240,   0.24127,   0.02153,   0.00430,
1107      +    0.00150,   0.01328,   0.02271,
1108      +    0.43346,   0.15628,   0.22253,   0.02068,   0.00429,
1109      +    0.00167,   0.01282,   0.02171,
1110      +    0.42119,   0.15072,   0.20607,   0.01991,   0.00425,
1111      +    0.00178,   0.01235,   0.02083,
1112      +    0.40990,   0.14547,   0.19155,   0.01906,   0.00430,
1113      +    0.00189,   0.01188,   0.02003,
1114      +    0.39918,   0.14066,   0.17887,   0.01833,   0.00426,
1115      +    0.00201,   0.01147,   0.01927,
1116      +    0.38916,   0.13620,   0.16751,   0.01763,   0.00421,
1117      +    0.00209,   0.01110,   0.01859 /
1118         DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1119      +    0.37974,   0.13203,   0.15724,   0.01695,   0.00416,
1120      +    0.00210,   0.01077,   0.01798,
1121      +    0.37084,   0.12813,   0.14796,   0.01634,   0.00412,
1122      +    0.00213,   0.01044,   0.01732,
1123      +    0.36247,   0.12451,   0.13959,   0.01578,   0.00408,
1124      +    0.00215,   0.01014,   0.01670,
1125      +    0.35437,   0.12114,   0.13203,   0.01528,   0.00400,
1126      +    0.00218,   0.00984,   0.01615,
1127      +    0.34671,   0.11797,   0.12517,   0.01481,   0.00393,
1128      +    0.00219,   0.00957,   0.01563 /
1129         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1130      +    0.58954,   0.22478,   0.48679,   0.02554,   0.00046,
1131      +    0.00010,   0.01354,   0.02713,
1132      +    0.55783,   0.20837,   0.41754,   0.02375,   0.00155,
1133      +    0.00004,   0.01304,   0.02512,
1134      +    0.53047,   0.19458,   0.36280,   0.02216,   0.00217,
1135      +    0.00009,   0.01257,   0.02346,
1136      +    0.50623,   0.18291,   0.31868,   0.02078,   0.00257,
1137      +    0.00012,   0.01199,   0.02208,
1138      +    0.48459,   0.17289,   0.28261,   0.01964,   0.00276,
1139      +    0.00015,   0.01153,   0.02074,
1140      +    0.46534,   0.16399,   0.25296,   0.01852,   0.00288,
1141      +    0.00047,   0.01102,   0.01971,
1142      +    0.44781,   0.15608,   0.22776,   0.01751,   0.00304,
1143      +    0.00077,   0.01059,   0.01860 /
1144         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1145      +    0.43160,   0.14906,   0.20665,   0.01674,   0.00313,
1146      +    0.00090,   0.01014,   0.01755,
1147      +    0.41675,   0.14264,   0.18838,   0.01601,   0.00313,
1148      +    0.00109,   0.00971,   0.01672,
1149      +    0.40311,   0.13677,   0.17264,   0.01526,   0.00312,
1150      +    0.00126,   0.00934,   0.01597,
1151      +    0.39060,   0.13141,   0.15908,   0.01450,   0.00312,
1152      +    0.00135,   0.00901,   0.01526,
1153      +    0.37913,   0.12652,   0.14720,   0.01371,   0.00311,
1154      +    0.00136,   0.00867,   0.01461,
1155      +    0.36790,   0.12200,   0.13660,   0.01324,   0.00310,
1156      +    0.00144,   0.00836,   0.01398,
1157      +    0.35764,   0.11778,   0.12722,   0.01273,   0.00306,
1158      +    0.00149,   0.00806,   0.01344 /
1159         DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1160      +    0.34831,   0.11381,   0.11888,   0.01213,   0.00298,
1161      +    0.00149,   0.00776,   0.01297,
1162      +    0.33905,   0.11027,   0.11151,   0.01168,   0.00295,
1163      +    0.00155,   0.00754,   0.01253,
1164      +    0.33035,   0.10698,   0.10490,   0.01127,   0.00292,
1165      +    0.00159,   0.00735,   0.01212,
1166      +    0.32231,   0.10376,   0.09886,   0.01087,   0.00284,
1167      +    0.00156,   0.00710,   0.01171,
1168      +    0.31471,   0.10076,   0.09342,   0.01051,   0.00279,
1169      +    0.00153,   0.00687,   0.01131 /
1170         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1171      +    0.56688,   0.20310,   0.41234,   0.01932,   0.00037,
1172      +    0.00010,   0.01025,   0.02057,
1173      +    0.53263,   0.18681,   0.34778,   0.01782,   0.00114,
1174      +    0.00000,   0.00983,   0.01899,
1175      +    0.50313,   0.17350,   0.29790,   0.01659,   0.00163,
1176      +    0.00010,   0.00946,   0.01757,
1177      +    0.47731,   0.16225,   0.25853,   0.01552,   0.00192,
1178      +    0.00007,   0.00903,   0.01634,
1179      +    0.45481,   0.15248,   0.22705,   0.01446,   0.00214,
1180      +    0.00016,   0.00866,   0.01526,
1181      +    0.43472,   0.14398,   0.20114,   0.01356,   0.00225,
1182      +    0.00036,   0.00822,   0.01442,
1183      +    0.41654,   0.13646,   0.17977,   0.01277,   0.00233,
1184      +    0.00055,   0.00784,   0.01362 /
1185         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1186      +    0.39984,   0.12979,   0.16184,   0.01210,   0.00234,
1187      +    0.00073,   0.00747,   0.01294,
1188      +    0.38473,   0.12375,   0.14652,   0.01151,   0.00232,
1189      +    0.00084,   0.00716,   0.01224,
1190      +    0.37088,   0.11829,   0.13346,   0.01094,   0.00234,
1191      +    0.00090,   0.00685,   0.01159,
1192      +    0.35807,   0.11336,   0.12224,   0.01040,   0.00233,
1193      +    0.00094,   0.00654,   0.01103,
1194      +    0.34617,   0.10884,   0.11247,   0.00994,   0.00222,
1195      +    0.00101,   0.00634,   0.01056,
1196      +    0.33523,   0.10466,   0.10394,   0.00940,   0.00222,
1197      +    0.00105,   0.00607,   0.01014,
1198      +    0.32500,   0.10079,   0.09643,   0.00897,   0.00223,
1199      +    0.00109,   0.00582,   0.00973 /
1200         DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1201      +    0.31536,   0.09720,   0.08980,   0.00866,   0.00222,
1202      +    0.00115,   0.00561,   0.00934,
1203      +    0.30640,   0.09388,   0.08383,   0.00825,   0.00216,
1204      +    0.00112,   0.00541,   0.00897,
1205      +    0.29806,   0.09080,   0.07851,   0.00786,   0.00209,
1206      +    0.00109,   0.00522,   0.00863,
1207      +    0.29018,   0.08785,   0.07380,   0.00757,   0.00206,
1208      +    0.00111,   0.00504,   0.00829,
1209      +    0.28273,   0.08512,   0.06954,   0.00732,   0.00203,
1210      +    0.00113,   0.00487,   0.00798 /
1211         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1212      +    0.53888,   0.18160,   0.34717,   0.01472,   0.00020,
1213      +   -0.00007,   0.00753,   0.01533,
1214      +    0.50255,   0.16608,   0.28792,   0.01347,   0.00077,
1215      +   -0.00004,   0.00723,   0.01407,
1216      +    0.47171,   0.15342,   0.24361,   0.01246,   0.00112,
1217      +   -0.00012,   0.00691,   0.01296,
1218      +    0.44538,   0.14248,   0.20883,   0.01144,   0.00141,
1219      +   -0.00006,   0.00651,   0.01211,
1220      +    0.42220,   0.13331,   0.18143,   0.01066,   0.00150,
1221      +   -0.00005,   0.00622,   0.01131,
1222      +    0.40163,   0.12535,   0.15956,   0.00999,   0.00158,
1223      +    0.00014,   0.00593,   0.01058,
1224      +    0.38321,   0.11843,   0.14159,   0.00930,   0.00167,
1225      +    0.00033,   0.00564,   0.00997 /
1226         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1227      +    0.36668,   0.11216,   0.12646,   0.00877,   0.00168,
1228      +    0.00042,   0.00530,   0.00939,
1229      +    0.35141,   0.10663,   0.11384,   0.00842,   0.00169,
1230      +    0.00054,   0.00508,   0.00877,
1231      +    0.33765,   0.10162,   0.10312,   0.00791,   0.00168,
1232      +    0.00062,   0.00490,   0.00832,
1233      +    0.32516,   0.09702,   0.09393,   0.00738,   0.00166,
1234      +    0.00065,   0.00470,   0.00799,
1235      +    0.31329,   0.09287,   0.08602,   0.00716,   0.00163,
1236      +    0.00068,   0.00450,   0.00758,
1237      +    0.30256,   0.08908,   0.07912,   0.00683,   0.00157,
1238      +    0.00072,   0.00429,   0.00713,
1239      +    0.29258,   0.08558,   0.07306,   0.00647,   0.00153,
1240      +    0.00072,   0.00410,   0.00678 /
1241         DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1242      +    0.28323,   0.08234,   0.06772,   0.00611,   0.00150,
1243      +    0.00068,   0.00393,   0.00654,
1244      +    0.27434,   0.07935,   0.06308,   0.00586,   0.00147,
1245      +    0.00071,   0.00380,   0.00632,
1246      +    0.26608,   0.07659,   0.05895,   0.00565,   0.00145,
1247      +    0.00074,   0.00368,   0.00611,
1248      +    0.25850,   0.07395,   0.05519,   0.00543,   0.00142,
1249      +    0.00077,   0.00352,   0.00583,
1250      +    0.25135,   0.07150,   0.05182,   0.00524,   0.00139,
1251      +    0.00078,   0.00339,   0.00558 /
1252         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1253      +    0.50649,   0.16023,   0.28913,   0.01065,   0.00028,
1254      +    0.00012,   0.00570,   0.01125,
1255      +    0.46912,   0.14548,   0.23659,   0.00964,   0.00070,
1256      +    0.00008,   0.00541,   0.01033,
1257      +    0.43759,   0.13365,   0.19727,   0.00892,   0.00101,
1258      +    0.00003,   0.00514,   0.00936,
1259      +    0.41091,   0.12356,   0.16745,   0.00810,   0.00108,
1260      +    0.00010,   0.00485,   0.00878,
1261      +    0.38758,   0.11508,   0.14411,   0.00752,   0.00119,
1262      +    0.00014,   0.00456,   0.00818,
1263      +    0.36703,   0.10781,   0.12554,   0.00712,   0.00124,
1264      +    0.00024,   0.00430,   0.00758,
1265      +    0.34878,   0.10139,   0.11047,   0.00657,   0.00124,
1266      +    0.00033,   0.00407,   0.00716 /
1267         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1268      +    0.33220,   0.09579,   0.09801,   0.00629,   0.00125,
1269      +    0.00040,   0.00390,   0.00662,
1270      +    0.31754,   0.09068,   0.08765,   0.00582,   0.00122,
1271      +    0.00043,   0.00371,   0.00632,
1272      +    0.30415,   0.08610,   0.07896,   0.00536,   0.00122,
1273      +    0.00048,   0.00352,   0.00604,
1274      +    0.29173,   0.08204,   0.07158,   0.00510,   0.00124,
1275      +    0.00053,   0.00335,   0.00568,
1276      +    0.28030,   0.07837,   0.06527,   0.00496,   0.00119,
1277      +    0.00050,   0.00320,   0.00533,
1278      +    0.26988,   0.07494,   0.05978,   0.00468,   0.00117,
1279      +    0.00050,   0.00305,   0.00505,
1280      +    0.26026,   0.07179,   0.05497,   0.00443,   0.00114,
1281      +    0.00051,   0.00291,   0.00483 /
1282         DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1283      +    0.25131,   0.06888,   0.05074,   0.00423,   0.00110,
1284      +    0.00055,   0.00276,   0.00468,
1285      +    0.24278,   0.06623,   0.04703,   0.00415,   0.00108,
1286      +    0.00056,   0.00266,   0.00438,
1287      +    0.23485,   0.06379,   0.04375,   0.00409,   0.00106,
1288      +    0.00056,   0.00258,   0.00409,
1289      +    0.22745,   0.06148,   0.04090,   0.00395,   0.00098,
1290      +    0.00055,   0.00247,   0.00399,
1291      +    0.22064,   0.05933,   0.03833,   0.00379,   0.00093,
1292      +    0.00055,   0.00237,   0.00388 /
1293         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1294      +    0.47097,   0.14042,   0.23951,   0.00786,   0.00020,
1295      +   -0.00001,   0.00404,   0.00812,
1296      +    0.43309,   0.12675,   0.19286,   0.00709,   0.00041,
1297      +    0.00002,   0.00386,   0.00749,
1298      +    0.40159,   0.11571,   0.15879,   0.00649,   0.00062,
1299      +   -0.00002,   0.00363,   0.00685,
1300      +    0.37506,   0.10651,   0.13337,   0.00594,   0.00072,
1301      +   -0.00003,   0.00340,   0.00630,
1302      +    0.35218,   0.09870,   0.11373,   0.00546,   0.00082,
1303      +    0.00006,   0.00323,   0.00581,
1304      +    0.33191,   0.09203,   0.09825,   0.00508,   0.00087,
1305      +    0.00013,   0.00306,   0.00550,
1306      +    0.31426,   0.08624,   0.08583,   0.00463,   0.00089,
1307      +    0.00019,   0.00289,   0.00513 /
1308         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1309      +    0.29831,   0.08117,   0.07577,   0.00444,   0.00086,
1310      +    0.00020,   0.00268,   0.00472,
1311      +    0.28389,   0.07665,   0.06732,   0.00426,   0.00084,
1312      +    0.00023,   0.00250,   0.00437,
1313      +    0.27094,   0.07256,   0.06023,   0.00395,   0.00086,
1314      +    0.00026,   0.00239,   0.00415,
1315      +    0.25923,   0.06885,   0.05431,   0.00365,   0.00087,
1316      +    0.00029,   0.00230,   0.00398,
1317      +    0.24850,   0.06547,   0.04930,   0.00349,   0.00080,
1318      +    0.00033,   0.00218,   0.00371,
1319      +    0.23850,   0.06249,   0.04492,   0.00336,   0.00075,
1320      +    0.00033,   0.00206,   0.00354,
1321      +    0.22935,   0.05975,   0.04116,   0.00318,   0.00073,
1322      +    0.00033,   0.00195,   0.00340 /
1323         DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1324      +    0.22097,   0.05720,   0.03791,   0.00296,   0.00071,
1325      +    0.00035,   0.00186,   0.00326,
1326      +    0.21303,   0.05487,   0.03502,   0.00292,   0.00069,
1327      +    0.00034,   0.00178,   0.00302,
1328      +    0.20567,   0.05272,   0.03247,   0.00290,   0.00068,
1329      +    0.00032,   0.00171,   0.00279,
1330      +    0.19876,   0.05069,   0.03025,   0.00280,   0.00065,
1331      +    0.00033,   0.00164,   0.00269,
1332      +    0.19238,   0.04883,   0.02826,   0.00270,   0.00064,
1333      +    0.00034,   0.00158,   0.00258 /
1334         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1335      +    0.43318,   0.12133,   0.19629,   0.00548,   0.00015,
1336      +    0.00002,   0.00293,   0.00593,
1337      +    0.39569,   0.10878,   0.15587,   0.00491,   0.00041,
1338      +    0.00002,   0.00278,   0.00534,
1339      +    0.36483,   0.09879,   0.12669,   0.00450,   0.00049,
1340      +    0.00007,   0.00265,   0.00484,
1341      +    0.33855,   0.09050,   0.10534,   0.00408,   0.00060,
1342      +    0.00004,   0.00243,   0.00455,
1343      +    0.31639,   0.08359,   0.08908,   0.00378,   0.00063,
1344      +    0.00006,   0.00227,   0.00414,
1345      +    0.29715,   0.07760,   0.07629,   0.00348,   0.00064,
1346      +    0.00011,   0.00214,   0.00385,
1347      +    0.28011,   0.07244,   0.06611,   0.00331,   0.00061,
1348      +    0.00012,   0.00198,   0.00348 /
1349         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1350      +    0.26472,   0.06791,   0.05790,   0.00317,   0.00055,
1351      +    0.00015,   0.00189,   0.00328,
1352      +    0.25119,   0.06381,   0.05116,   0.00296,   0.00055,
1353      +    0.00018,   0.00177,   0.00306,
1354      +    0.23907,   0.06021,   0.04558,   0.00269,   0.00055,
1355      +    0.00021,   0.00166,   0.00287,
1356      +    0.22799,   0.05704,   0.04090,   0.00247,   0.00055,
1357      +    0.00021,   0.00159,   0.00273,
1358      +    0.21775,   0.05416,   0.03692,   0.00242,   0.00053,
1359      +    0.00022,   0.00150,   0.00253,
1360      +    0.20849,   0.05150,   0.03349,   0.00231,   0.00050,
1361      +    0.00025,   0.00143,   0.00236,
1362      +    0.19999,   0.04908,   0.03055,   0.00222,   0.00050,
1363      +    0.00026,   0.00137,   0.00221 /
1364         DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1365      +    0.19212,   0.04688,   0.02803,   0.00214,   0.00052,
1366      +    0.00025,   0.00132,   0.00207,
1367      +    0.18484,   0.04488,   0.02583,   0.00207,   0.00051,
1368      +    0.00028,   0.00126,   0.00197,
1369      +    0.17813,   0.04305,   0.02390,   0.00198,   0.00049,
1370      +    0.00029,   0.00120,   0.00188,
1371      +    0.17185,   0.04129,   0.02220,   0.00184,   0.00047,
1372      +    0.00023,   0.00112,   0.00182,
1373      +    0.16602,   0.03968,   0.02069,   0.00172,   0.00044,
1374      +    0.00019,   0.00105,   0.00176 /
1375         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1376      +    0.39419,   0.10390,   0.15953,   0.00373,   0.00014,
1377      +    0.00008,   0.00208,   0.00419,
1378      +    0.35773,   0.09262,   0.12489,   0.00340,   0.00028,
1379      +    0.00007,   0.00195,   0.00377,
1380      +    0.32770,   0.08368,   0.10038,   0.00308,   0.00034,
1381      +    0.00000,   0.00180,   0.00350,
1382      +    0.30285,   0.07628,   0.08252,   0.00276,   0.00037,
1383      +    0.00002,   0.00164,   0.00320,
1384      +    0.28160,   0.07004,   0.06909,   0.00261,   0.00038,
1385      +    0.00006,   0.00151,   0.00291,
1386      +    0.26312,   0.06490,   0.05877,   0.00248,   0.00039,
1387      +    0.00007,   0.00144,   0.00259,
1388      +    0.24706,   0.06033,   0.05059,   0.00236,   0.00041,
1389      +    0.00012,   0.00133,   0.00239 /
1390         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1391      +    0.23299,   0.05629,   0.04403,   0.00212,   0.00038,
1392      +    0.00013,   0.00123,   0.00226,
1393      +    0.22019,   0.05279,   0.03870,   0.00203,   0.00037,
1394      +    0.00012,   0.00117,   0.00212,
1395      +    0.20870,   0.04969,   0.03428,   0.00196,   0.00038,
1396      +    0.00011,   0.00109,   0.00194,
1397      +    0.19844,   0.04691,   0.03058,   0.00186,   0.00039,
1398      +    0.00011,   0.00101,   0.00179,
1399      +    0.18911,   0.04438,   0.02748,   0.00176,   0.00040,
1400      +    0.00015,   0.00105,   0.00170,
1401      +    0.18057,   0.04211,   0.02488,   0.00167,   0.00036,
1402      +    0.00011,   0.00095,   0.00151,
1403      +    0.17269,   0.04006,   0.02264,   0.00163,   0.00032,
1404      +    0.00010,   0.00088,   0.00141 /
1405         DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1406      +    0.16538,   0.03820,   0.02070,   0.00162,   0.00029,
1407      +    0.00014,   0.00084,   0.00140,
1408      +    0.15882,   0.03648,   0.01901,   0.00151,   0.00030,
1409      +    0.00014,   0.00081,   0.00128,
1410      +    0.15280,   0.03490,   0.01752,   0.00140,   0.00031,
1411      +    0.00013,   0.00078,   0.00117,
1412      +    0.14700,   0.03344,   0.01623,   0.00138,   0.00029,
1413      +    0.00010,   0.00072,   0.00113,
1414      +    0.14169,   0.03209,   0.01508,   0.00133,   0.00028,
1415      +    0.00009,   0.00067,   0.00110 /
1416         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1417      +    0.35487,   0.08795,   0.12828,   0.00254,   0.00002,
1418      +    0.00001,   0.00147,   0.00297,
1419      +    0.31956,   0.07794,   0.09880,   0.00231,   0.00013,
1420      +   -0.00003,   0.00134,   0.00259,
1421      +    0.29089,   0.06987,   0.07835,   0.00217,   0.00025,
1422      +   -0.00006,   0.00121,   0.00237,
1423      +    0.26731,   0.06336,   0.06381,   0.00194,   0.00029,
1424      +   -0.00001,   0.00118,   0.00211,
1425      +    0.24752,   0.05796,   0.05285,   0.00173,   0.00029,
1426      +   -0.00002,   0.00110,   0.00192,
1427      +    0.23036,   0.05334,   0.04453,   0.00170,   0.00030,
1428      +    0.00004,   0.00100,   0.00174,
1429      +    0.21543,   0.04939,   0.03809,   0.00160,   0.00030,
1430      +    0.00007,   0.00092,   0.00151 /
1431         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1432      +    0.20219,   0.04598,   0.03290,   0.00146,   0.00031,
1433      +    0.00008,   0.00088,   0.00145,
1434      +    0.19039,   0.04296,   0.02871,   0.00139,   0.00030,
1435      +    0.00007,   0.00081,   0.00137,
1436      +    0.17990,   0.04029,   0.02531,   0.00135,   0.00029,
1437      +    0.00008,   0.00075,   0.00121,
1438      +    0.17053,   0.03792,   0.02248,   0.00128,   0.00028,
1439      +    0.00009,   0.00072,   0.00107,
1440      +    0.16199,   0.03580,   0.02011,   0.00118,   0.00026,
1441      +    0.00009,   0.00067,   0.00102,
1442      +    0.15424,   0.03387,   0.01811,   0.00114,   0.00026,
1443      +    0.00011,   0.00068,   0.00101,
1444      +    0.14720,   0.03212,   0.01641,   0.00107,   0.00026,
1445      +    0.00011,   0.00065,   0.00099 /
1446         DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1447      +    0.14078,   0.03053,   0.01494,   0.00095,   0.00026,
1448      +    0.00010,   0.00060,   0.00095,
1449      +    0.13481,   0.02907,   0.01368,   0.00091,   0.00025,
1450      +    0.00012,   0.00057,   0.00090,
1451      +    0.12932,   0.02774,   0.01257,   0.00088,   0.00025,
1452      +    0.00013,   0.00055,   0.00085,
1453      +    0.12430,   0.02651,   0.01162,   0.00079,   0.00025,
1454      +    0.00014,   0.00053,   0.00081,
1455      +    0.11963,   0.02538,   0.01077,   0.00072,   0.00025,
1456      +    0.00014,   0.00051,   0.00077 /
1457         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1458      +    0.31595,   0.07371,   0.10210,   0.00168,   0.00003,
1459      +   -0.00002,   0.00089,   0.00213,
1460      +    0.28252,   0.06482,   0.07750,   0.00166,   0.00011,
1461      +   -0.00002,   0.00085,   0.00185,
1462      +    0.25592,   0.05781,   0.06078,   0.00142,   0.00013,
1463      +   -0.00006,   0.00078,   0.00163,
1464      +    0.23394,   0.05218,   0.04893,   0.00125,   0.00020,
1465      +    0.00001,   0.00075,   0.00153,
1466      +    0.21534,   0.04753,   0.04021,   0.00121,   0.00018,
1467      +   -0.00001,   0.00069,   0.00139,
1468      +    0.19961,   0.04360,   0.03361,   0.00115,   0.00019,
1469      +    0.00001,   0.00065,   0.00115,
1470      +    0.18589,   0.04019,   0.02853,   0.00107,   0.00020,
1471      +    0.00003,   0.00060,   0.00106 /
1472         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1473      +    0.17372,   0.03729,   0.02447,   0.00105,   0.00016,
1474      +    0.00000,   0.00054,   0.00100,
1475      +    0.16312,   0.03472,   0.02126,   0.00101,   0.00017,
1476      +    0.00002,   0.00050,   0.00090,
1477      +    0.15373,   0.03246,   0.01864,   0.00093,   0.00017,
1478      +    0.00003,   0.00047,   0.00078,
1479      +    0.14531,   0.03047,   0.01648,   0.00085,   0.00016,
1480      +    0.00003,   0.00044,   0.00070,
1481      +    0.13780,   0.02865,   0.01469,   0.00076,   0.00017,
1482      +    0.00005,   0.00043,   0.00065,
1483      +    0.13088,   0.02704,   0.01318,   0.00067,   0.00018,
1484      +    0.00006,   0.00042,   0.00066,
1485      +    0.12449,   0.02559,   0.01191,   0.00065,   0.00017,
1486      +    0.00006,   0.00039,   0.00065 /
1487         DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1488      +    0.11855,   0.02427,   0.01081,   0.00069,   0.00015,
1489      +    0.00005,   0.00036,   0.00061,
1490      +    0.11339,   0.02307,   0.00986,   0.00061,   0.00016,
1491      +    0.00005,   0.00035,   0.00054,
1492      +    0.10868,   0.02197,   0.00904,   0.00051,   0.00016,
1493      +    0.00005,   0.00035,   0.00047,
1494      +    0.10418,   0.02095,   0.00833,   0.00045,   0.00014,
1495      +    0.00005,   0.00032,   0.00048,
1496      +    0.10003,   0.02002,   0.00770,   0.00040,   0.00012,
1497      +    0.00006,   0.00030,   0.00049 /
1498         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1499      +    0.27754,   0.06092,   0.08010,   0.00124,  -0.00001,
1500      +    0.00000,   0.00060,   0.00138,
1501      +    0.24661,   0.05323,   0.05995,   0.00114,   0.00008,
1502      +    0.00001,   0.00058,   0.00126,
1503      +    0.22199,   0.04722,   0.04647,   0.00105,   0.00006,
1504      +   -0.00001,   0.00052,   0.00102,
1505      +    0.20191,   0.04238,   0.03700,   0.00095,   0.00007,
1506      +   -0.00005,   0.00052,   0.00088,
1507      +    0.18485,   0.03844,   0.03013,   0.00101,   0.00009,
1508      +   -0.00005,   0.00044,   0.00074,
1509      +    0.17067,   0.03511,   0.02500,   0.00088,   0.00011,
1510      +   -0.00002,   0.00041,   0.00069,
1511      +    0.15839,   0.03224,   0.02106,   0.00081,   0.00011,
1512      +   -0.00001,   0.00037,   0.00063 /
1513         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1514      +    0.14767,   0.02980,   0.01798,   0.00075,   0.00013,
1515      +    0.00003,   0.00035,   0.00056,
1516      +    0.13818,   0.02767,   0.01552,   0.00064,   0.00011,
1517      +    0.00003,   0.00032,   0.00057,
1518      +    0.12970,   0.02578,   0.01354,   0.00061,   0.00011,
1519      +    0.00001,   0.00030,   0.00050,
1520      +    0.12218,   0.02412,   0.01192,   0.00061,   0.00013,
1521      +    0.00002,   0.00030,   0.00043,
1522      +    0.11560,   0.02262,   0.01058,   0.00044,   0.00011,
1523      +    0.00004,   0.00029,   0.00051,
1524      +    0.10949,   0.02130,   0.00945,   0.00039,   0.00011,
1525      +    0.00004,   0.00027,   0.00045,
1526      +    0.10393,   0.02010,   0.00849,   0.00036,   0.00011,
1527      +    0.00004,   0.00025,   0.00039 /
1528         DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1529      +    0.09887,   0.01901,   0.00769,   0.00035,   0.00010,
1530      +    0.00003,   0.00023,   0.00037,
1531      +    0.09421,   0.01803,   0.00700,   0.00034,   0.00010,
1532      +    0.00004,   0.00022,   0.00036,
1533      +    0.08995,   0.01714,   0.00640,   0.00034,   0.00011,
1534      +    0.00005,   0.00022,   0.00036,
1535      +    0.08603,   0.01632,   0.00588,   0.00032,   0.00010,
1536      +    0.00005,   0.00020,   0.00032,
1537      +    0.08241,   0.01556,   0.00543,   0.00030,   0.00010,
1538      +    0.00005,   0.00019,   0.00030 /
1539         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1540      +    0.24135,   0.04971,   0.06204,   0.00073,  -0.00002,
1541      +   -0.00005,   0.00039,   0.00086,
1542      +    0.21273,   0.04315,   0.04573,   0.00081,   0.00003,
1543      +   -0.00003,   0.00034,   0.00077,
1544      +    0.19057,   0.03799,   0.03499,   0.00059,   0.00003,
1545      +   -0.00001,   0.00031,   0.00068,
1546      +    0.17220,   0.03393,   0.02754,   0.00059,   0.00003,
1547      +   -0.00006,   0.00029,   0.00058,
1548      +    0.15713,   0.03060,   0.02221,   0.00051,   0.00004,
1549      +   -0.00006,   0.00025,   0.00049,
1550      +    0.14434,   0.02781,   0.01828,   0.00049,   0.00008,
1551      +   -0.00002,   0.00026,   0.00045,
1552      +    0.13327,   0.02546,   0.01528,   0.00046,   0.00007,
1553      +   -0.00002,   0.00025,   0.00045 /
1554         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1555      +    0.12377,   0.02343,   0.01295,   0.00040,   0.00010,
1556      +   -0.00001,   0.00022,   0.00037,
1557      +    0.11541,   0.02167,   0.01112,   0.00036,   0.00010,
1558      +    0.00001,   0.00021,   0.00034,
1559      +    0.10797,   0.02013,   0.00964,   0.00033,   0.00009,
1560      +    0.00003,   0.00021,   0.00036,
1561      +    0.10139,   0.01876,   0.00844,   0.00029,   0.00010,
1562      +    0.00003,   0.00021,   0.00036,
1563      +    0.09562,   0.01756,   0.00746,   0.00022,   0.00009,
1564      +    0.00002,   0.00021,   0.00033,
1565      +    0.09020,   0.01647,   0.00665,   0.00026,   0.00009,
1566      +    0.00002,   0.00019,   0.00026,
1567      +    0.08536,   0.01550,   0.00596,   0.00026,   0.00009,
1568      +    0.00003,   0.00017,   0.00023 /
1569         DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1570      +    0.08106,   0.01462,   0.00538,   0.00019,   0.00009,
1571      +    0.00004,   0.00017,   0.00026,
1572      +    0.07706,   0.01383,   0.00488,   0.00019,   0.00009,
1573      +    0.00004,   0.00017,   0.00024,
1574      +    0.07340,   0.01312,   0.00445,   0.00018,   0.00009,
1575      +    0.00005,   0.00016,   0.00022,
1576      +    0.07003,   0.01245,   0.00408,   0.00017,   0.00009,
1577      +    0.00005,   0.00015,   0.00021,
1578      +    0.06694,   0.01184,   0.00376,   0.00016,   0.00008,
1579      +    0.00005,   0.00014,   0.00019 /
1580         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1581      +    0.20680,   0.03990,   0.04722,   0.00049,  -0.00001,
1582      +   -0.00005,   0.00023,   0.00055,
1583      +    0.18100,   0.03435,   0.03429,   0.00049,   0.00001,
1584      +   -0.00006,   0.00021,   0.00046,
1585      +    0.16088,   0.03009,   0.02586,   0.00050,   0.00002,
1586      +   -0.00004,   0.00020,   0.00039,
1587      +    0.14469,   0.02671,   0.02013,   0.00037,   0.00008,
1588      +   -0.00001,   0.00020,   0.00041,
1589      +    0.13141,   0.02396,   0.01609,   0.00030,   0.00007,
1590      +   -0.00003,   0.00020,   0.00032,
1591      +    0.12022,   0.02167,   0.01313,   0.00023,   0.00006,
1592      +   -0.00002,   0.00017,   0.00028,
1593      +    0.11054,   0.01975,   0.01090,   0.00023,   0.00007,
1594      +   -0.00001,   0.00017,   0.00026 /
1595         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1596      +    0.10218,   0.01812,   0.00917,   0.00023,   0.00008,
1597      +    0.00001,   0.00017,   0.00024,
1598      +    0.09484,   0.01669,   0.00783,   0.00023,   0.00006,
1599      +   -0.00001,   0.00013,   0.00018,
1600      +    0.08844,   0.01545,   0.00676,   0.00020,   0.00006,
1601      +    0.00000,   0.00012,   0.00017,
1602      +    0.08282,   0.01436,   0.00589,   0.00015,   0.00007,
1603      +    0.00002,   0.00014,   0.00018,
1604      +    0.07778,   0.01338,   0.00519,   0.00013,   0.00008,
1605      +    0.00004,   0.00014,   0.00015,
1606      +    0.07324,   0.01253,   0.00461,   0.00010,   0.00007,
1607      +    0.00003,   0.00012,   0.00015,
1608      +    0.06912,   0.01176,   0.00412,   0.00009,   0.00007,
1609      +    0.00003,   0.00011,   0.00014 /
1610         DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1611      +    0.06534,   0.01106,   0.00370,   0.00011,   0.00007,
1612      +    0.00002,   0.00011,   0.00013,
1613      +    0.06198,   0.01044,   0.00335,   0.00010,   0.00006,
1614      +    0.00003,   0.00011,   0.00013,
1615      +    0.05893,   0.00987,   0.00304,   0.00008,   0.00006,
1616      +    0.00003,   0.00011,   0.00013,
1617      +    0.05609,   0.00935,   0.00279,   0.00006,   0.00005,
1618      +    0.00003,   0.00009,   0.00013,
1619      +    0.05349,   0.00887,   0.00256,   0.00005,   0.00005,
1620      +    0.00002,   0.00008,   0.00012 /
1621         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1622      +    0.17485,   0.03164,   0.03552,   0.00040,  -0.00006,
1623      +   -0.00010,   0.00008,   0.00037,
1624      +    0.15202,   0.02704,   0.02538,   0.00041,  -0.00002,
1625      +   -0.00006,   0.00011,   0.00030,
1626      +    0.13424,   0.02357,   0.01893,   0.00037,   0.00001,
1627      +   -0.00007,   0.00012,   0.00025,
1628      +    0.12024,   0.02082,   0.01458,   0.00022,  -0.00001,
1629      +   -0.00007,   0.00010,   0.00018,
1630      +    0.10850,   0.01858,   0.01155,   0.00022,   0.00002,
1631      +   -0.00004,   0.00010,   0.00022,
1632      +    0.09880,   0.01673,   0.00936,   0.00019,   0.00003,
1633      +   -0.00005,   0.00008,   0.00016,
1634      +    0.09043,   0.01519,   0.00771,   0.00021,   0.00004,
1635      +   -0.00002,   0.00010,   0.00014 /
1636         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1637      +    0.08328,   0.01387,   0.00646,   0.00018,   0.00004,
1638      +   -0.00002,   0.00009,   0.00014,
1639      +    0.07712,   0.01274,   0.00549,   0.00013,   0.00004,
1640      +    0.00000,   0.00008,   0.00013,
1641      +    0.07171,   0.01175,   0.00472,   0.00010,   0.00004,
1642      +    0.00000,   0.00008,   0.00012,
1643      +    0.06689,   0.01088,   0.00410,   0.00009,   0.00004,
1644      +    0.00000,   0.00007,   0.00011,
1645      +    0.06254,   0.01012,   0.00359,   0.00012,   0.00004,
1646      +    0.00001,   0.00006,   0.00012,
1647      +    0.05870,   0.00945,   0.00317,   0.00011,   0.00003,
1648      +    0.00001,   0.00006,   0.00011,
1649      +    0.05528,   0.00884,   0.00283,   0.00010,   0.00003,
1650      +    0.00000,   0.00006,   0.00010 /
1651         DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1652      +    0.05219,   0.00830,   0.00254,   0.00007,   0.00002,
1653      +    0.00001,   0.00006,   0.00009,
1654      +    0.04939,   0.00781,   0.00229,   0.00006,   0.00002,
1655      +    0.00001,   0.00005,   0.00007,
1656      +    0.04685,   0.00737,   0.00208,   0.00004,   0.00002,
1657      +    0.00000,   0.00005,   0.00006,
1658      +    0.04451,   0.00697,   0.00190,   0.00002,   0.00003,
1659      +    0.00001,   0.00005,   0.00008,
1660      +    0.04236,   0.00660,   0.00174,   0.00002,   0.00003,
1661      +    0.00002,   0.00005,   0.00009 /
1662         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1663      +    0.14537,   0.02451,   0.02606,   0.00020,  -0.00003,
1664      +   -0.00004,   0.00006,   0.00020,
1665      +    0.12554,   0.02085,   0.01841,   0.00024,  -0.00001,
1666      +   -0.00003,   0.00006,   0.00017,
1667      +    0.11019,   0.01807,   0.01358,   0.00020,  -0.00003,
1668      +   -0.00004,   0.00006,   0.00017,
1669      +    0.09805,   0.01588,   0.01038,   0.00018,   0.00000,
1670      +   -0.00002,   0.00005,   0.00012,
1671      +    0.08810,   0.01412,   0.00815,   0.00017,   0.00000,
1672      +   -0.00001,   0.00005,   0.00009,
1673      +    0.07983,   0.01267,   0.00655,   0.00013,  -0.00001,
1674      +   -0.00002,   0.00003,   0.00011,
1675      +    0.07291,   0.01145,   0.00537,   0.00008,   0.00000,
1676      +   -0.00002,   0.00002,   0.00009 /
1677         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1678      +    0.06691,   0.01043,   0.00447,   0.00007,   0.00001,
1679      +   -0.00001,   0.00003,   0.00008,
1680      +    0.06168,   0.00954,   0.00378,   0.00007,   0.00001,
1681      +    0.00000,   0.00004,   0.00009,
1682      +    0.05712,   0.00878,   0.00323,   0.00008,   0.00001,
1683      +    0.00000,   0.00003,   0.00008,
1684      +    0.05311,   0.00812,   0.00279,   0.00010,   0.00001,
1685      +   -0.00001,   0.00003,   0.00006,
1686      +    0.04954,   0.00753,   0.00244,   0.00010,   0.00001,
1687      +    0.00001,   0.00003,   0.00005,
1688      +    0.04638,   0.00701,   0.00215,   0.00008,   0.00001,
1689      +    0.00000,   0.00003,   0.00006,
1690      +    0.04354,   0.00654,   0.00191,   0.00007,   0.00001,
1691      +    0.00000,   0.00003,   0.00006 /
1692         DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1693      +    0.04095,   0.00613,   0.00171,   0.00008,   0.00000,
1694      +    0.00000,   0.00002,   0.00006,
1695      +    0.03868,   0.00575,   0.00154,   0.00005,   0.00001,
1696      +    0.00000,   0.00002,   0.00006,
1697      +    0.03663,   0.00541,   0.00139,   0.00002,   0.00001,
1698      +    0.00000,   0.00002,   0.00006,
1699      +    0.03470,   0.00511,   0.00127,   0.00003,   0.00000,
1700      +    0.00000,   0.00002,   0.00005,
1701      +    0.03295,   0.00483,   0.00116,   0.00003,   0.00000,
1702      +    0.00000,   0.00002,   0.00004 /
1703         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1704      +    0.09524,   0.01389,   0.01314,   0.00006,  -0.00002,
1705      +   -0.00001,   0.00002,   0.00007,
1706      +    0.08096,   0.01162,   0.00898,   0.00009,   0.00000,
1707      +    0.00000,   0.00003,   0.00004,
1708      +    0.07009,   0.00994,   0.00644,   0.00006,  -0.00001,
1709      +   -0.00002,   0.00002,   0.00004,
1710      +    0.06161,   0.00862,   0.00480,   0.00003,   0.00001,
1711      +    0.00000,   0.00002,   0.00005,
1712      +    0.05476,   0.00758,   0.00370,  -0.00001,   0.00001,
1713      +    0.00000,   0.00002,   0.00006,
1714      +    0.04915,   0.00674,   0.00292,   0.00000,   0.00001,
1715      +    0.00000,   0.00002,   0.00005,
1716      +    0.04439,   0.00604,   0.00236,   0.00001,   0.00001,
1717      +    0.00000,   0.00002,   0.00004 /
1718         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1719      +    0.04040,   0.00545,   0.00194,   0.00001,   0.00002,
1720      +    0.00000,   0.00002,   0.00001,
1721      +    0.03694,   0.00494,   0.00162,   0.00000,   0.00002,
1722      +    0.00000,   0.00002,   0.00002,
1723      +    0.03392,   0.00451,   0.00137,   0.00001,   0.00001,
1724      +    0.00000,   0.00002,   0.00003,
1725      +    0.03130,   0.00414,   0.00118,   0.00002,   0.00001,
1726      +    0.00000,   0.00002,   0.00002,
1727      +    0.02902,   0.00381,   0.00102,   0.00001,   0.00001,
1728      +    0.00000,   0.00001,   0.00003,
1729      +    0.02698,   0.00353,   0.00089,   0.00001,   0.00001,
1730      +    0.00000,   0.00001,   0.00001,
1731      +    0.02517,   0.00327,   0.00079,   0.00002,   0.00001,
1732      +    0.00000,   0.00001,   0.00001 /
1733         DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1734      +    0.02355,   0.00305,   0.00070,   0.00002,   0.00001,
1735      +    0.00001,   0.00002,   0.00001,
1736      +    0.02210,   0.00285,   0.00063,   0.00002,   0.00001,
1737      +    0.00000,   0.00001,   0.00001,
1738      +    0.02079,   0.00267,   0.00056,   0.00002,   0.00001,
1739      +    0.00000,   0.00001,   0.00001,
1740      +    0.01961,   0.00250,   0.00051,   0.00001,   0.00001,
1741      +    0.00000,   0.00001,   0.00001,
1742      +    0.01853,   0.00236,   0.00047,   0.00001,   0.00001,
1743      +    0.00000,   0.00001,   0.00001 /
1744         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1745      +    0.05737,   0.00716,   0.00596,   0.00004,  -0.00001,
1746      +   -0.00001,   0.00000,   0.00001,
1747      +    0.04794,   0.00589,   0.00393,   0.00005,  -0.00001,
1748      +   -0.00001,  -0.00001,   0.00001,
1749      +    0.04088,   0.00496,   0.00274,   0.00002,   0.00000,
1750      +   -0.00001,   0.00000,   0.00003,
1751      +    0.03548,   0.00425,   0.00200,   0.00000,   0.00000,
1752      +    0.00000,   0.00001,   0.00002,
1753      +    0.03116,   0.00369,   0.00151,  -0.00001,   0.00000,
1754      +    0.00000,   0.00001,   0.00001,
1755      +    0.02762,   0.00324,   0.00117,   0.00001,   0.00001,
1756      +    0.00000,   0.00001,   0.00001,
1757      +    0.02472,   0.00288,   0.00093,   0.00000,   0.00000,
1758      +    0.00000,   0.00000,   0.00001 /
1759         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1760      +    0.02227,   0.00257,   0.00076,   0.00000,   0.00000,
1761      +    0.00000,   0.00001,   0.00000,
1762      +    0.02018,   0.00232,   0.00062,   0.00000,   0.00001,
1763      +    0.00000,   0.00001,   0.00000,
1764      +    0.01840,   0.00210,   0.00052,   0.00000,   0.00001,
1765      +    0.00000,   0.00000,   0.00000,
1766      +    0.01686,   0.00191,   0.00044,  -0.00001,   0.00000,
1767      +    0.00000,   0.00000,   0.00001,
1768      +    0.01549,   0.00174,   0.00038,   0.00001,   0.00000,
1769      +    0.00000,   0.00000,   0.00000,
1770      +    0.01430,   0.00160,   0.00033,   0.00000,   0.00000,
1771      +    0.00000,   0.00000,   0.00001,
1772      +    0.01326,   0.00148,   0.00029,   0.00000,   0.00000,
1773      +    0.00000,   0.00000,   0.00001 /
1774         DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1775      +    0.01233,   0.00137,   0.00026,   0.00000,   0.00000,
1776      +    0.00000,   0.00000,   0.00000,
1777      +    0.01150,   0.00127,   0.00023,   0.00000,   0.00000,
1778      +    0.00000,   0.00000,   0.00001,
1779      +    0.01075,   0.00118,   0.00021,   0.00000,   0.00000,
1780      +    0.00000,   0.00000,   0.00001,
1781      +    0.01008,   0.00110,   0.00019,   0.00000,   0.00000,
1782      +    0.00000,   0.00000,   0.00001,
1783      +    0.00947,   0.00103,   0.00017,   0.00000,   0.00000,
1784      +    0.00000,   0.00000,   0.00000 /
1785         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1786      +    0.03069,   0.00320,   0.00231,   0.00001,   0.00000,
1787      +   -0.00001,  -0.00001,   0.00000,
1788      +    0.02518,   0.00259,   0.00147,   0.00000,   0.00000,
1789      +    0.00000,   0.00000,   0.00001,
1790      +    0.02117,   0.00215,   0.00100,   0.00000,   0.00001,
1791      +    0.00000,   0.00000,   0.00000,
1792      +    0.01808,   0.00181,   0.00071,   0.00000,   0.00000,
1793      +    0.00000,   0.00000,   0.00000,
1794      +    0.01564,   0.00156,   0.00052,   0.00001,   0.00000,
1795      +    0.00000,   0.00000,   0.00001,
1796      +    0.01370,   0.00135,   0.00040,   0.00001,   0.00000,
1797      +    0.00000,   0.00000,   0.00000,
1798      +    0.01212,   0.00119,   0.00031,   0.00001,   0.00000,
1799      +    0.00000,   0.00000,   0.00000 /
1800         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1801      +    0.01081,   0.00105,   0.00025,   0.00000,   0.00000,
1802      +    0.00000,   0.00000,   0.00000,
1803      +    0.00970,   0.00094,   0.00021,   0.00000,   0.00000,
1804      +    0.00000,   0.00000,   0.00000,
1805      +    0.00876,   0.00084,   0.00017,   0.00001,   0.00000,
1806      +    0.00000,   0.00000,   0.00000,
1807      +    0.00796,   0.00076,   0.00014,   0.00000,   0.00000,
1808      +    0.00000,   0.00000,   0.00000,
1809      +    0.00727,   0.00069,   0.00012,   0.00000,   0.00000,
1810      +    0.00000,   0.00000,   0.00000,
1811      +    0.00666,   0.00063,   0.00011,   0.00000,   0.00000,
1812      +    0.00000,   0.00000,   0.00000,
1813      +    0.00612,   0.00057,   0.00009,   0.00001,   0.00000,
1814      +    0.00000,   0.00000,   0.00000 /
1815         DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1816      +    0.00565,   0.00053,   0.00008,   0.00001,   0.00000,
1817      +    0.00000,   0.00000,   0.00000,
1818      +    0.00524,   0.00049,   0.00007,   0.00000,   0.00000,
1819      +    0.00000,   0.00000,   0.00000,
1820      +    0.00487,   0.00045,   0.00007,   0.00000,   0.00000,
1821      +    0.00000,   0.00000,   0.00000,
1822      +    0.00453,   0.00042,   0.00006,   0.00000,   0.00000,
1823      +    0.00000,   0.00000,   0.00000,
1824      +    0.00423,   0.00039,   0.00005,   0.00000,   0.00000,
1825      +    0.00000,   0.00000,   0.00000 /
1826         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1827      +    0.01397,   0.00119,   0.00072,   0.00000,   0.00000,
1828      +    0.00000,   0.00000,   0.00000,
1829      +    0.01120,   0.00094,   0.00044,   0.00000,   0.00000,
1830      +    0.00000,   0.00000,   0.00000,
1831      +    0.00922,   0.00076,   0.00029,  -0.00001,   0.00000,
1832      +    0.00000,   0.00000,   0.00001,
1833      +    0.00773,   0.00063,   0.00020,   0.00000,   0.00000,
1834      +    0.00000,   0.00000,   0.00000,
1835      +    0.00659,   0.00053,   0.00014,   0.00000,   0.00000,
1836      +    0.00000,   0.00000,   0.00000,
1837      +    0.00569,   0.00046,   0.00011,   0.00000,   0.00000,
1838      +    0.00000,   0.00000,   0.00000,
1839      +    0.00497,   0.00040,   0.00008,   0.00000,   0.00000,
1840      +    0.00000,   0.00000,   0.00000 /
1841         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1842      +    0.00437,   0.00035,   0.00007,   0.00000,   0.00000,
1843      +    0.00000,   0.00000,   0.00000,
1844      +    0.00388,   0.00030,   0.00005,   0.00000,   0.00000,
1845      +    0.00000,   0.00000,   0.00000,
1846      +    0.00347,   0.00027,   0.00004,   0.00000,   0.00000,
1847      +    0.00000,   0.00000,   0.00000,
1848      +    0.00312,   0.00024,   0.00004,   0.00000,   0.00000,
1849      +    0.00000,   0.00000,   0.00000,
1850      +    0.00282,   0.00022,   0.00003,   0.00000,   0.00000,
1851      +    0.00000,   0.00000,   0.00000,
1852      +    0.00256,   0.00020,   0.00003,   0.00000,   0.00000,
1853      +    0.00000,   0.00000,   0.00000,
1854      +    0.00233,   0.00018,   0.00002,   0.00000,   0.00000,
1855      +    0.00000,   0.00000,   0.00000 /
1856         DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1857      +    0.00214,   0.00016,   0.00002,   0.00000,   0.00000,
1858      +    0.00000,   0.00000,   0.00000,
1859      +    0.00196,   0.00015,   0.00002,   0.00000,   0.00000,
1860      +    0.00000,   0.00000,   0.00000,
1861      +    0.00181,   0.00014,   0.00002,   0.00000,   0.00000,
1862      +    0.00000,   0.00000,   0.00000,
1863      +    0.00167,   0.00013,   0.00002,   0.00000,   0.00000,
1864      +    0.00000,   0.00000,   0.00000,
1865      +    0.00155,   0.00012,   0.00001,   0.00000,   0.00000,
1866      +    0.00000,   0.00000,   0.00000 /
1867         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1868      +    0.00108,   0.00005,   0.00002,   0.00000,   0.00000,
1869      +    0.00000,   0.00000,   0.00000,
1870      +    0.00081,   0.00004,   0.00001,   0.00000,   0.00000,
1871      +    0.00000,   0.00000,   0.00000,
1872      +    0.00063,   0.00003,   0.00001,   0.00000,   0.00000,
1873      +    0.00000,   0.00000,   0.00000,
1874      +    0.00051,   0.00002,   0.00001,   0.00000,   0.00000,
1875      +    0.00000,   0.00000,   0.00000,
1876      +    0.00041,   0.00002,   0.00000,   0.00000,   0.00000,
1877      +    0.00000,   0.00000,   0.00000,
1878      +    0.00034,   0.00002,   0.00000,   0.00000,   0.00000,
1879      +    0.00000,   0.00000,   0.00000,
1880      +    0.00029,   0.00001,   0.00000,   0.00000,   0.00000,
1881      +    0.00000,   0.00000,   0.00000 /
1882         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1883      +    0.00025,   0.00001,   0.00000,   0.00000,   0.00000,
1884      +    0.00000,   0.00000,   0.00000,
1885      +    0.00021,   0.00001,   0.00000,   0.00000,   0.00000,
1886      +    0.00000,   0.00000,   0.00000,
1887      +    0.00018,   0.00001,   0.00000,   0.00000,   0.00000,
1888      +    0.00000,   0.00000,   0.00000,
1889      +    0.00016,   0.00001,   0.00000,   0.00000,   0.00000,
1890      +    0.00000,   0.00000,   0.00000,
1891      +    0.00014,   0.00001,   0.00000,   0.00000,   0.00000,
1892      +    0.00000,   0.00000,   0.00000,
1893      +    0.00012,   0.00001,   0.00000,   0.00000,   0.00000,
1894      +    0.00000,   0.00000,   0.00000,
1895      +    0.00011,   0.00001,   0.00000,   0.00000,   0.00000,
1896      +    0.00000,   0.00000,   0.00000 /
1897         DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1898      +    0.00010,   0.00001,   0.00000,   0.00000,   0.00000,
1899      +    0.00000,   0.00000,   0.00000,
1900      +    0.00009,   0.00001,   0.00000,   0.00000,   0.00000,
1901      +    0.00000,   0.00000,   0.00000,
1902      +    0.00008,   0.00001,   0.00000,   0.00000,   0.00000,
1903      +    0.00000,   0.00000,   0.00000,
1904      +    0.00007,   0.00001,   0.00000,   0.00000,   0.00000,
1905      +    0.00000,   0.00000,   0.00000,
1906      +    0.00006,   0.00001,   0.00000,   0.00000,   0.00000,
1907      +    0.00000,   0.00000,   0.00000 /
1908       DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1909      .        1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1910      .        1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1911      .        1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1912      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1913      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1914      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1915      .     .8D0,.9D0,1.D0/
1916       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1917       DATA N0/2,5,5,9,0,0,9,9/
1918       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1919       DATA INIT/0/
1920 C
1921       XSAVE=X
1922 C
1923       IF(INIT.NE.0) GOTO 10
1924       INIT=1
1925       DO 20 N=1,NX-1
1926       DO 20 M=1,19
1927 C     READ(92,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),
1928 C    .          F(6,N,M),F(8,N,M)
1929 C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1930          DO 25 I=1,8
1931   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1932   20  CONTINUE
1933       DO 31 J=1,NTENTH-1
1934       XX(J)= LOG10(XX(J))+ONEDO
1935       DO 31 I=1,8
1936       IF(I.EQ.7) GO TO 31
1937       DO 30 K=1,19
1938   30  F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1939   31  CONTINUE
1940   50  FORMAT(8F10.5)
1941       DO 40 I=1,8
1942       DO 40 M=1,19
1943   40  F(I,NX,M)=ZEROD
1944   10  CONTINUE
1945       IF(X.LT.XMIN) X=XMIN
1946       IF(X.GT.XMAX) X=XMAX
1947       QSQ=SCALE**2
1948       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1949       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1950       XXX=X
1951       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1952       N=0
1953   70  N=N+1
1954       IF(XXX.GT.XX(N+1)) GOTO 70
1955       A=(XXX-XX(N))/(XX(N+1)-XX(N))
1956       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1957       B=RM-AINT(RM)
1958       M=1+  INT(RM)
1959       DO 60 I=1,8
1960       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1961      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
1962       IF(N.GE.NTENTH) GOTO 65
1963       IF(I.EQ.7) GOTO 65
1964           FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1965           G(I)=FAC**(G(I)/FAC)
1966   65  CONTINUE
1967       G(I)=G(I)*(ONED-X)**N0(I)
1968   60  CONTINUE
1969       UPV=G(1)
1970       DNV=G(2)
1971       USEA=G(4)
1972       DSEA=G(8)
1973       STR=G(6)
1974       CHM=G(5)
1975       GLU=G(3)
1976       BOT=G(7)
1977 C
1978       X=XSAVE
1979 C
1980       RETURN
1981       END