]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfms115.F
added the delete of EMCAL object posted in the folder when new file is opened
[u/mrichter/AliRoot.git] / PDF / spdf / sfms115.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMS115(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE alphas=0.115 FIT -- May 1995 -- standard Q^2 range
5C
6#include "pdf/impdp.inc"
7C
8 PARAMETER(NX=47)
9 PARAMETER(NTENTH=21)
10 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
11 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
12 + .00294, .00618, 13.39808, 1.13613, .15325,
13 + .00000, .62350, 1.14037,
14 + .00338, .00641, 24.76481, 1.48226, .51080,
15 + .00000, .97623, 1.48715,
16 + .00378, .00662, 38.63756, 1.89669, .93505,
17 + .00000, 1.39637, 1.90215,
18 + .00415, .00682, 54.53614, 2.37016, 1.41716,
19 + .10064, 1.87489, 2.37615,
20 + .00450, .00701, 72.40820, 2.90107, 1.95583,
21 + .61877, 2.41034, 2.90753,
22 + .00484, .00719, 91.81515, 3.48226, 2.54407,
23 + 1.21948, 2.99567, 3.48917,
24 + .00516, .00737, 112.60778, 4.10911, 3.17740,
25 + 1.86958, 3.62635, 4.11645 /
26 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
27 + .00547, .00754, 134.61856, 4.77730, 3.85157,
28 + 2.55796, 4.29807, 4.78503,
29 + .00577, .00770, 157.67596, 5.48271, 4.56253,
30 + 3.28222, 5.00677, 5.49081,
31 + .00606, .00785, 181.58061, 6.22071, 5.30571,
32 + 4.03771, 5.74784, 6.22916,
33 + .00634, .00801, 206.08290, 6.98534, 6.07522,
34 + 4.81871, 6.51538, 6.99414,
35 + .00661, .00816, 231.24123, 7.77697, 6.87144,
36 + 5.62567, 7.30974, 7.78609,
37 + .00687, .00830, 257.01788, 8.59436, 7.69316,
38 + 6.45749, 8.12971, 8.60379,
39 + .00713, .00844, 283.19421, 9.43239, 8.53529,
40 + 7.30914, 8.97019, 9.44211 /
41 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
42 + .00738, .00858, 309.53323, 10.28503, 9.39184,
43 + 8.17470, 9.82517, 10.29503,
44 + .00762, .00871, 336.40234, 11.16018, 10.27072,
45 + 9.06211, 10.70255, 11.17046,
46 + .00786, .00884, 363.25061, 12.04481, 11.15890,
47 + 9.95842, 11.58931, 12.05536,
48 + .00809, .00897, 390.38428, 12.94544, 12.06294,
49 + 10.87019, 12.49199, 12.95624,
50 + .00832, .00909, 417.62585, 13.85767, 12.97843,
51 + 11.79306, 13.40617, 13.86872 /
52 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
53 + .00473, .00784, 11.95323, 1.02402, .13320,
54 + .00000, .55809, 1.02776,
55 + .00533, .00817, 21.24411, 1.31177, .43166,
56 + .00000, .85184, 1.31595,
57 + .00589, .00847, 32.22407, 1.64827, .77736,
58 + .00000, 1.19353, 1.65283,
59 + .00641, .00875, 44.49063, 2.02521, 1.16240,
60 + .07996, 1.57503, 2.03013,
61 + .00689, .00901, 57.99106, 2.44082, 1.58526,
62 + .48771, 1.99475, 2.44605,
63 + .00736, .00927, 72.38376, 2.88908, 2.04012,
64 + .95365, 2.44675, 2.89461,
65 + .00780, .00951, 87.55804, 3.36624, 2.52333,
66 + 1.45123, 2.92735, 3.37205 /
67 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
68 + .00823, .00974, 103.39267, 3.86889, 3.03157,
69 + 1.97172, 3.43318, 3.87496,
70 + .00864, .00996, 119.76660, 4.39387, 3.56173,
71 + 2.51333, 3.96111, 4.40018,
72 + .00904, .01018, 136.54185, 4.93771, 4.11041,
73 + 3.07261, 4.50772, 4.94426,
74 + .00942, .01038, 153.54713, 5.49607, 4.67332,
75 + 3.64540, 5.06868, 5.50285,
76 + .00979, .01058, 170.83406, 6.06933, 5.25084,
77 + 4.23218, 5.64437, 6.07632,
78 + .01015, .01078, 188.38329, 6.65665, 5.84220,
79 + 4.83222, 6.23401, 6.66384,
80 + .01050, .01097, 206.04793, 7.25439, 6.44376,
81 + 5.44198, 6.83394, 7.26178 /
82 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
83 + .01084, .01115, 223.67165, 7.85832, 7.05133,
84 + 6.05729, 7.43995, 7.86589,
85 + .01117, .01133, 241.51816, 8.47427, 7.67075,
86 + 6.68405, 8.05790, 8.48203,
87 + .01149, .01150, 259.21350, 9.09298, 8.29276,
88 + 7.31305, 8.67851, 9.10091,
89 + .01181, .01167, 276.97617, 9.71928, 8.92223,
90 + 7.94916, 9.30663, 9.72738,
91 + .01211, .01184, 294.69116, 10.35014, 9.55611,
92 + 8.58939, 9.93922, 10.35840 /
93 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
94 + .00737, .00996, 10.66136, .92230, .11557,
95 + .00000, .49935, .92574,
96 + .00822, .01042, 18.21794, 1.16030, .36365,
97 + .00000, .74286, 1.16402,
98 + .00899, .01084, 26.86497, 1.43207, .64408,
99 + .00000, 1.01937, 1.43604,
100 + .00971, .01123, 36.28026, 1.73052, .95014,
101 + .06323, 1.32199, 1.73472,
102 + .01039, .01160, 46.42347, 2.05406, 1.28050,
103 + .38270, 1.64928, 2.05846,
104 + .01103, .01195, 57.03725, 2.39785, 1.63049,
105 + .74248, 1.99647, 2.40244,
106 + .01165, .01228, 68.04616, 2.75899, 1.99731,
107 + 1.12158, 2.36075, 2.76376 /
108 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
109 + .01224, .01259, 79.36783, 3.13493, 2.37849,
110 + 1.51330, 2.73957, 3.13987,
111 + .01280, .01290, 90.92162, 3.52335, 2.77178,
112 + 1.91641, 3.13067, 3.52844,
113 + .01335, .01319, 102.61610, 3.92176, 3.17473,
114 + 2.32845, 3.53159, 3.92700,
115 + .01387, .01347, 114.33725, 4.32705, 3.58428,
116 + 2.74649, 3.93923, 4.33244,
117 + .01438, .01374, 126.13145, 4.73966, 4.00089,
118 + 3.17103, 4.35405, 4.74517,
119 + .01487, .01400, 137.99217, 5.15909, 4.42410,
120 + 3.60170, 4.77557, 5.16473,
121 + .01534, .01425, 149.82338, 5.58280, 4.85140,
122 + 4.03602, 5.20126, 5.58858 /
123 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
124 + .01580, .01450, 161.52379, 6.00787, 5.27986,
125 + 4.47113, 5.62821, 6.01376,
126 + .01625, .01474, 173.28362, 6.43865, 5.71388,
127 + 4.91144, 6.06078, 6.44465,
128 + .01669, .01497, 184.85039, 6.86859, 6.14692,
129 + 5.35046, 6.49244, 6.87470,
130 + .01712, .01520, 196.38115, 7.30128, 6.58257,
131 + 5.79180, 6.92676, 7.30750,
132 + .01754, .01542, 207.80215, 7.73467, 7.01880,
133 + 6.23347, 7.36173, 7.74099 /
134 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
135 + .00946, .01146, 9.96917, .86710, .10626,
136 + .00000, .46777, .87047,
137 + .01049, .01202, 16.64713, 1.07949, .32840,
138 + .00000, .68543, 1.08308,
139 + .01143, .01253, 24.14569, 1.31862, .57591,
140 + .00000, .92909, 1.32241,
141 + .01231, .01300, 32.18777, 1.57818, .84283,
142 + .05498, 1.19263, 1.58214,
143 + .01313, .01345, 40.74284, 1.85677, 1.12802,
144 + .33129, 1.47479, 1.86089,
145 + .01391, .01386, 49.59633, 2.15021, 1.42746,
146 + .63981, 1.77148, 2.15448,
147 + .01465, .01426, 58.69073, 2.45608, 1.73882,
148 + .96235, 2.08032, 2.46049 /
149 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
150 + .01536, .01464, 67.96285, 2.77226, 2.06006,
151 + 1.29322, 2.39925, 2.77679,
152 + .01604, .01500, 77.35088, 3.09686, 2.38936,
153 + 1.63150, 2.72640, 3.10152,
154 + .01670, .01535, 86.78479, 3.42787, 2.72476,
155 + 1.97520, 3.05979, 3.43264,
156 + .01733, .01569, 96.17627, 3.76277, 3.06378,
157 + 2.32196, 3.39693, 3.76765,
158 + .01794, .01601, 105.56869, 4.10202, 3.40690,
159 + 2.67233, 3.73828, 4.10701,
160 + .01853, .01632, 114.96102, 4.44529, 3.75382,
161 + 3.02605, 4.08353, 4.45038,
162 + .01910, .01662, 124.27915, 4.79055, 4.10254,
163 + 3.38118, 4.43067, 4.79574 /
164 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
165 + .01965, .01692, 133.44566, 5.13546, 4.45073,
166 + 3.73543, 4.77736, 5.14073,
167 + .02019, .01720, 142.61754, 5.48368, 4.80209,
168 + 4.09253, 5.12729, 5.48905,
169 + .02071, .01747, 151.59502, 5.82991, 5.15130,
170 + 4.44720, 5.47513, 5.83535,
171 + .02122, .01774, 160.50732, 6.17715, 5.50140,
172 + 4.80249, 5.82393, 6.18268,
173 + .02171, .01800, 169.29832, 6.52380, 5.85078,
174 + 5.15683, 6.17207, 6.52941 /
175 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
176 + .01124, .01267, 9.50402, .82967, .10007,
177 + .00000, .44650, .83306,
178 + .01243, .01331, 15.61248, 1.02530, .30523,
179 + .00000, .64724, 1.02888,
180 + .01352, .01389, 22.38003, 1.24334, .53147,
181 + .00000, .86968, 1.24709,
182 + .01452, .01443, 29.56006, 1.47805, .77337,
183 + .04973, 1.10825, 1.48195,
184 + .01547, .01494, 37.12939, 1.72819, 1.02996,
185 + .29868, 1.36185, 1.73222,
186 + .01636, .01541, 44.90087, 1.99002, 1.29766,
187 + .57498, 1.62683, 1.99417,
188 + .01721, .01587, 52.82838, 2.26142, 1.57443,
189 + .86222, 1.90112, 2.26570 /
190 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
191 + .01802, .01630, 60.86065, 2.54058, 1.85855,
192 + 1.15536, 2.18294, 2.54497,
193 + .01880, .01671, 68.94741, 2.82588, 2.14844,
194 + 1.45366, 2.47071, 2.83037,
195 + .01954, .01710, 77.03146, 3.11560, 2.44246,
196 + 1.75545, 2.76274, 3.12019,
197 + .02026, .01748, 85.03981, 3.40759, 2.73847,
198 + 2.05872, 3.05689, 3.41227,
199 + .02095, .01785, 93.01374, 3.70232, 3.03698,
200 + 2.36402, 3.35365, 3.70709,
201 + .02162, .01820, 100.95535, 3.99957, 3.33779,
202 + 2.67120, 3.65282, 4.00442,
203 + .02227, .01854, 108.80322, 4.29759, 3.63920,
204 + 2.97861, 3.95266, 4.30253 /
205 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
206 + .02290, .01887, 116.49366, 4.59441, 3.93923,
207 + 3.28431, 4.25120, 4.59942,
208 + .02351, .01919, 124.16376, 4.89328, 4.24116,
209 + 3.59162, 4.55172, 4.89837,
210 + .02410, .01950, 131.64481, 5.18962, 4.54042,
211 + 3.89599, 4.84963, 5.19478,
212 + .02468, .01980, 139.04913, 5.48610, 4.83969,
213 + 4.20013, 5.14761, 5.49133,
214 + .02524, .02010, 146.33073, 5.78137, 5.13763,
215 + 4.50270, 5.44431, 5.78667 /
216 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
217 + .01284, .01369, 9.15710, .80157, .09548,
218 + .00000, .43061, .80501,
219 + .01416, .01441, 14.85221, .98494, .28822,
220 + .00000, .61899, .98855,
221 + .01537, .01505, 21.09624, 1.18771, .49907,
222 + .00000, .82607, 1.19148,
223 + .01649, .01565, 27.66522, 1.40458, .72301,
224 + .04597, 1.04671, 1.40848,
225 + .01754, .01621, 34.54162, 1.63442, .95921,
226 + .27540, 1.27995, 1.63845,
227 + .01853, .01674, 41.55801, 1.87384, 1.20440,
228 + .52884, 1.52245, 1.87798,
229 + .01948, .01724, 48.67631, 2.12095, 1.45679,
230 + .79116, 1.77238, 2.12520 /
231 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
232 + .02038, .01771, 55.85345, 2.37413, 1.71485,
233 + 1.05779, 2.02816, 2.37848,
234 + .02124, .01817, 63.04741, 2.63197, 1.97721,
235 + 1.32814, 2.28842, 2.63641,
236 + .02206, .01860, 70.20945, 2.89295, 2.24241,
237 + 1.60074, 2.55166, 2.89748,
238 + .02286, .01902, 77.27711, 3.15518, 2.50860,
239 + 1.87382, 2.81600, 3.15980,
240 + .02362, .01942, 84.29008, 3.41914, 2.77627,
241 + 2.14794, 3.08194, 3.42383,
242 + .02436, .01981, 91.25224, 3.68466, 3.04531,
243 + 2.42302, 3.34933, 3.68943,
244 + .02508, .02018, 98.11102, 3.95022, 3.31420,
245 + 2.69762, 3.61668, 3.95507 /
246 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
247 + .02577, .02055, 104.81170, 4.21409, 3.58122,
248 + 2.97004, 3.88223, 4.21900,
249 + .02645, .02090, 111.47772, 4.47922, 3.84937,
250 + 3.24328, 4.14897, 4.48421,
251 + .02710, .02124, 117.96120, 4.74154, 4.11456,
252 + 3.51333, 4.41283, 4.74659,
253 + .02774, .02157, 124.36292, 5.00349, 4.37925,
254 + 3.78264, 4.67624, 5.00860,
255 + .02835, .02189, 130.64351, 5.26387, 4.64226,
256 + 4.05005, 4.93802, 5.26904 /
257 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
258 + .01919, .01748, 8.14996, .71892, .08233,
259 + .00000, .38434, .72280,
260 + .02105, .01846, 12.70285, .86796, .24035,
261 + .00000, .53814, .87200,
262 + .02275, .01936, 17.53416, 1.02876, .40886,
263 + .00000, .70301, 1.03293,
264 + .02431, .02018, 22.48380, 1.19725, .58413,
265 + .03581, .87509, 1.20155,
266 + .02577, .02094, 27.55086, 1.37277, .76573,
267 + .21293, 1.05383, 1.37718,
268 + .02715, .02166, 32.62030, 1.55283, .95131,
269 + .40571, 1.23681, 1.55735,
270 + .02845, .02234, 37.67496, 1.73617, 1.13971,
271 + .60252, 1.42282, 1.74078 /
272 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
273 + .02969, .02298, 42.69280, 1.92173, 1.32995,
274 + .80008, 1.61086, 1.92645,
275 + .03088, .02360, 47.65164, 2.10863, 1.52118,
276 + .99810, 1.80004, 2.11343,
277 + .03201, .02418, 52.52433, 2.29587, 1.71247,
278 + 1.19568, 1.98942, 2.30076,
279 + .03310, .02475, 57.27354, 2.48222, 1.90261,
280 + 1.39168, 2.17777, 2.48718,
281 + .03414, .02529, 61.93387, 2.66815, 2.09211,
282 + 1.58667, 2.36559, 2.67320,
283 + .03515, .02580, 66.51328, 2.85368, 2.28100,
284 + 1.78070, 2.55289, 2.85879,
285 + .03612, .02630, 70.97984, 3.03780, 2.46831,
286 + 1.97286, 2.73869, 3.04299 /
287 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
288 + .03706, .02679, 75.30048, 3.21937, 2.65291,
289 + 2.16204, 2.92186, 3.22463,
290 + .03797, .02725, 79.56411, 3.40062, 2.83704,
291 + 2.35051, 3.10463, 3.40594,
292 + .03885, .02771, 83.67294, 3.57871, 3.01789,
293 + 2.53548, 3.28418, 3.58410,
294 + .03971, .02815, 87.69898, 3.75548, 3.19728,
295 + 2.71879, 3.46233, 3.76093,
296 + .04054, .02857, 91.61830, 3.93014, 3.37446,
297 + 2.89972, 3.63832, 3.93565 /
298 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
299 + .02839, .02246, 7.23420, .64214, .07066,
300 + .00000, .34203, .64692,
301 + .03102, .02381, 10.82860, .76181, .19900,
302 + .00000, .46631, .76679,
303 + .03339, .02503, 14.51802, .88768, .33234,
304 + .00000, .59614, .89285,
305 + .03557, .02615, 18.19586, 1.01687, .46809,
306 + .02761, .72881, 1.02220,
307 + .03759, .02719, 21.87499, 1.14908, .60620,
308 + .16298, .86414, 1.15457,
309 + .03949, .02817, 25.48096, 1.28261, .74508,
310 + .30810, 1.00051, 1.28824,
311 + .04129, .02909, 29.01168, 1.41669, .88408,
312 + .45420, 1.13720, 1.42246 /
313 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
314 + .04299, .02995, 32.45984, 1.55073, 1.02264,
315 + .59896, 1.27363, 1.55662,
316 + .04461, .03078, 35.81690, 1.68418, 1.16030,
317 + .74238, 1.40931, 1.69019,
318 + .04615, .03157, 39.07015, 1.81649, 1.29653,
319 + .88393, 1.54370, 1.82261,
320 + .04763, .03232, 42.19911, 1.94685, 1.43058,
321 + 1.02295, 1.67601, 1.95309,
322 + .04905, .03304, 45.23337, 2.07576, 1.56295,
323 + 1.15996, 1.80676, 2.08210,
324 + .05041, .03373, 48.18255, 2.20331, 1.69377,
325 + 1.29513, 1.93604, 2.20975,
326 + .05172, .03439, 51.02823, 2.32888, 1.82243,
327 + 1.42789, 2.06324, 2.33541 /
328 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
329 + .05298, .03503, 53.75137, 2.45174, 1.94823,
330 + 1.55756, 2.18766, 2.45836,
331 + .05421, .03565, 56.41547, 2.57354, 2.07284,
332 + 1.68583, 2.31095, 2.58026,
333 + .05539, .03625, 58.95689, 2.69237, 2.19434,
334 + 1.81081, 2.43119, 2.69917,
335 + .05653, .03682, 61.42655, 2.80956, 2.31409,
336 + 1.93388, 2.54973, 2.81645,
337 + .05764, .03738, 63.81034, 2.92464, 2.43161,
338 + 2.05456, 2.66611, 2.93160 /
339 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
340 + .03559, .02614, 6.73201, .59928, .06439,
341 + .00000, .31870, .60481,
342 + .03879, .02777, 9.83611, .70370, .17737,
343 + .00000, .42769, .70949,
344 + .04167, .02924, 12.95918, .81187, .29291,
345 + .00000, .53979, .81790,
346 + .04430, .03058, 16.02117, .92151, .40903,
347 + .02356, .65289, .92775,
348 + .04675, .03182, 19.04138, 1.03254, .52587,
349 + .13848, .76702, 1.03898,
350 + .04904, .03298, 21.96433, 1.14361, .64224,
351 + .26058, .88092, 1.15024,
352 + .05119, .03407, 24.79433, 1.25423, .75770,
353 + .38245, .99412, 1.26103 /
354 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
355 + .05323, .03510, 27.53029, 1.36396, .87191,
356 + .50227, 1.10624, 1.37092,
357 + .05517, .03608, 30.16933, 1.47247, .98458,
358 + .62014, 1.21697, 1.47958,
359 + .05701, .03701, 32.70458, 1.57935, 1.09534,
360 + .73573, 1.32592, 1.58662,
361 + .05877, .03790, 35.12266, 1.68403, 1.20366,
362 + .84853, 1.43254, 1.69144,
363 + .06045, .03874, 37.45015, 1.78698, 1.31003,
364 + .95909, 1.53731, 1.79451,
365 + .06207, .03956, 39.69685, 1.88831, 1.41460,
366 + 1.06760, 1.64037, 1.89598,
367 + .06362, .04034, 41.84991, 1.98758, 1.51693,
368 + 1.17363, 1.74128, 1.99537 /
369 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
370 + .06511, .04109, 43.89595, 2.08424, 1.61649,
371 + 1.27669, 1.83948, 2.09214,
372 + .06656, .04181, 45.88681, 2.17967, 1.71470,
373 + 1.37821, 1.93639, 2.18769,
374 + .06795, .04251, 47.77338, 2.27235, 1.81002,
375 + 1.47668, 2.03048, 2.28047,
376 + .06930, .04319, 49.59703, 2.36340, 1.90360,
377 + 1.57325, 2.12288, 2.37163,
378 + .07061, .04384, 51.34756, 2.45246, 1.99509,
379 + 1.66758, 2.21324, 2.46079 /
380 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
381 + .04175, .02922, 6.38704, .56950, .06015,
382 + .00000, .30259, .57567,
383 + .04542, .03108, 9.16992, .66385, .16299,
384 + .00000, .40149, .67033,
385 + .04872, .03275, 11.92927, .76051, .26697,
386 + .00000, .50209, .76728,
387 + .05172, .03427, 14.60186, .85760, .37050,
388 + .02098, .60263, .86462,
389 + .05451, .03568, 17.21076, .95516, .47384,
390 + .12289, .70330, .96242,
391 + .05711, .03699, 19.71207, 1.05210, .57603,
392 + .23046, .80305, 1.05958,
393 + .05956, .03822, 22.11371, 1.14804, .67679,
394 + .33717, .90158, 1.15572 /
395 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
396 + .06187, .03938, 24.41806, 1.24269, .77589,
397 + .44149, .99862, 1.25057,
398 + .06406, .04048, 26.62535, 1.33581, .87314,
399 + .54359, 1.09396, 1.34387,
400 + .06614, .04153, 28.73206, 1.42710, .96829,
401 + .64322, 1.18732, 1.43534,
402 + .06812, .04252, 30.72867, 1.51612, 1.06092,
403 + .74002, 1.27828, 1.52452,
404 + .07002, .04347, 32.63969, 1.60330, 1.15150,
405 + .83450, 1.36728, 1.61185,
406 + .07184, .04438, 34.47482, 1.68879, 1.24021,
407 + .92686, 1.45450, 1.69750,
408 + .07358, .04526, 36.22431, 1.77224, 1.32670,
409 + 1.01679, 1.53959, 1.78109 /
410 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
411 + .07526, .04609, 37.87795, 1.85319, 1.41055,
412 + 1.10389, 1.62209, 1.86218,
413 + .07688, .04690, 39.48041, 1.93288, 1.49299,
414 + 1.18940, 1.70326, 1.94200,
415 + .07844, .04768, 40.99110, 2.01001, 1.57274,
416 + 1.27208, 1.78180, 2.01926,
417 + .07994, .04843, 42.44547, 2.08556, 1.65081,
418 + 1.35292, 1.85870, 2.09493,
419 + .08140, .04916, 43.83561, 2.15925, 1.72691,
420 + 1.43167, 1.93369, 2.16875 /
421 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
422 + .04730, .03206, 6.11918, .54628, .05690,
423 + .00000, .28994, .55285,
424 + .05136, .03412, 8.66098, .63308, .15214,
425 + .00000, .38127, .64000,
426 + .05501, .03596, 11.15140, .72123, .24757,
427 + .00000, .47334, .72847,
428 + .05833, .03764, 13.53957, .80913, .34186,
429 + .01909, .56467, .81664,
430 + .06140, .03919, 15.85095, .89691, .43538,
431 + .11154, .65553, .90467,
432 + .06426, .04063, 18.04998, .98362, .52732,
433 + .20860, .74505, .99163,
434 + .06695, .04199, 20.14686, 1.06902, .61751,
435 + .30439, .83302, 1.07725 /
436 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
437 + .06948, .04326, 22.14627, 1.15289, .70580,
438 + .39762, .91927, 1.16133,
439 + .07187, .04446, 24.05030, 1.23506, .79207,
440 + .48846, 1.00364, 1.24370,
441 + .07415, .04561, 25.85773, 1.31529, .87614,
442 + .57675, 1.08593, 1.32412,
443 + .07631, .04669, 27.56176, 1.39324, .95768,
444 + .66223, 1.16581, 1.40225,
445 + .07838, .04772, 29.18496, 1.46933, 1.03715,
446 + .74538, 1.24372, 1.47851,
447 + .08036, .04871, 30.73680, 1.54372, 1.11472,
448 + .82640, 1.31982, 1.55306,
449 + .08226, .04966, 32.20955, 1.61610, 1.19013,
450 + .90505, 1.39383, 1.62560 /
451 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
452 + .08408, .05057, 33.59530, 1.68611, 1.26301,
453 + .98100, 1.46538, 1.69576,
454 + .08584, .05145, 34.93357, 1.75486, 1.33449,
455 + 1.05537, 1.53560, 1.76465,
456 + .08753, .05229, 36.18959, 1.82120, 1.40344,
457 + 1.12708, 1.60334, 1.83113,
458 + .08917, .05310, 37.39471, 1.88603, 1.47077,
459 + 1.19702, 1.66952, 1.89609,
460 + .09075, .05388, 38.54248, 1.94912, 1.53625,
461 + 1.26499, 1.73389, 1.95931 /
462 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
463 + .06952, .04323, 5.32073, .47579, .04744,
464 + .00000, .25212, .48429,
465 + .07506, .04605, 7.19824, .54146, .12146,
466 + .00000, .32231, .55044,
467 + .08000, .04856, 8.96805, .60630, .19349,
468 + .00000, .39105, .61572,
469 + .08445, .05081, 10.61047, .66943, .26294,
470 + .01403, .45761, .67925,
471 + .08855, .05288, 12.15591, .73122, .33039,
472 + .08132, .52248, .74139,
473 + .09234, .05480, 13.58867, .79114, .39547,
474 + .15075, .58520, .80164,
475 + .09588, .05658, 14.92348, .84919, .45824,
476 + .21815, .64581, .86000 /
477 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
478 + .09920, .05825, 16.16949, .90536, .51877,
479 + .28278, .70434, .91645,
480 + .10233, .05982, 17.33282, .95964, .57709,
481 + .34489, .76082, .97100,
482 + .10528, .06129, 18.41656, 1.01197, .63319,
483 + .40449, .81519, 1.02358,
484 + .10808, .06269, 19.41947, 1.06218, .68693,
485 + .46150, .86732, 1.07403,
486 + .11074, .06402, 20.35917, 1.11064, .73873,
487 + .51633, .91759, 1.12273,
488 + .11328, .06528, 21.24398, 1.15754, .78876,
489 + .56922, .96620, 1.16984,
490 + .11570, .06648, 22.07058, 1.20271, .83691,
491 + .62005, 1.01298, 1.21522 /
492 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
493 + .11802, .06763, 22.83552, 1.24596, .88298,
494 + .66865, 1.05776, 1.25866,
495 + .12024, .06873, 23.56540, 1.28808, .92778,
496 + .71584, 1.10134, 1.30097,
497 + .12238, .06979, 24.23916, 1.32833, .97059,
498 + .76093, 1.14298, 1.34140,
499 + .12443, .07080, 24.87763, 1.36736, 1.01207,
500 + .80456, 1.18334, 1.38060,
501 + .12641, .07178, 25.47748, 1.40503, 1.05208,
502 + .84663, 1.22228, 1.41843 /
503 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
504 + .10183, .05987, 4.54986, .40621, .03875,
505 + .00000, .21523, .41738,
506 + .10920, .06364, 5.87243, .45380, .09457,
507 + .00000, .26733, .46564,
508 + .11569, .06695, 7.06654, .49939, .14723,
509 + .00000, .31680, .51182,
510 + .12149, .06989, 8.13413, .54264, .19669,
511 + .00999, .36344, .55560,
512 + .12679, .07257, 9.10679, .58402, .24364,
513 + .05740, .40788, .59746,
514 + .13165, .07502, 9.98109, .62334, .28801,
515 + .10541, .44997, .63722,
516 + .13615, .07728, 10.77334, .66073, .33002,
517 + .15120, .48989, .67500 /
518 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
519 + .14035, .07938, 11.49406, .69630, .36985,
520 + .19438, .52779, .71094,
521 + .14427, .08133, 12.15094, .73013, .40764,
522 + .23527, .56380, .74513,
523 + .14796, .08316, 12.74853, .76227, .44346,
524 + .27394, .59795, .77759,
525 + .15143, .08487, 13.28817, .79266, .47729,
526 + .31043, .63022, .80828,
527 + .15471, .08649, 13.78310, .82162, .50948,
528 + .34510, .66095, .83752,
529 + .15782, .08802, 14.23993, .84930, .54022,
530 + .37816, .69031, .86547,
531 + .16078, .08947, 14.65774, .87565, .56946,
532 + .40958, .71825, .89208 /
533 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
534 + .16359, .09084, 15.03555, .90056, .59711,
535 + .43928, .74465, .91723,
536 + .16628, .09215, 15.39035, .92459, .62375,
537 + .46786, .77011, .94149,
538 + .16884, .09340, 15.70975, .94728, .64892,
539 + .49487, .79416, .96439,
540 + .17130, .09459, 16.00706, .96907, .67309,
541 + .52078, .81725, .98639,
542 + .17366, .09573, 16.28069, .98989, .69618,
543 + .54554, .83931, 1.00741 /
544 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
545 + .12704, .07318, 4.10945, .36589, .03402,
546 + -.00001, .19421, .37929,
547 + .13560, .07756, 5.15649, .40429, .08053,
548 + -.00001, .23708, .41849,
549 + .14309, .08137, 6.07569, .44036, .12358,
550 + -.00001, .27701, .45526,
551 + .14974, .08473, 6.87711, .47401, .16335,
552 + .00804, .31403, .48953,
553 + .15577, .08776, 7.59138, .50575, .20056,
554 + .04595, .34880, .52182,
555 + .16128, .09051, 8.21990, .53549, .23527,
556 + .08391, .38128, .55207,
557 + .16635, .09303, 8.77835, .56342, .26774,
558 + .11969, .41171, .58045 /
559 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
560 + .17105, .09535, 9.27685, .58970, .29819,
561 + .15311, .44029, .60715,
562 + .17543, .09750, 9.72313, .61442, .32679,
563 + .18442, .46715, .63227,
564 + .17952, .09950, 10.12157, .63767, .35365,
565 + .21379, .49239, .65588,
566 + .18335, .10136, 10.47508, .65944, .37878,
567 + .24126, .51601, .67798,
568 + .18695, .10311, 10.79369, .67999, .40250,
569 + .26715, .53830, .69885,
570 + .19036, .10476, 11.08308, .69947, .42497,
571 + .29165, .55943, .71862,
572 + .19359, .10631, 11.34325, .71785, .44617,
573 + .31476, .57937, .73728 /
574 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
575 + .19664, .10776, 11.57354, .73508, .46607,
576 + .33645, .59806, .75477,
577 + .19956, .10916, 11.78689, .75158, .48512,
578 + .35720, .61596, .77152,
579 + .20232, .11047, 11.97450, .76703, .50299,
580 + .37668, .63274, .78720,
581 + .20496, .11172, 12.14636, .78176, .52003,
582 + .39525, .64874, .80215,
583 + .20749, .11291, 12.30148, .79572, .53620,
584 + .41288, .66392, .81633 /
585 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
586 + .14847, .08474, 3.80001, .33746, .03082,
587 + -.00001, .17952, .35283,
588 + .15790, .08954, 4.67247, .36991, .07129,
589 + -.00001, .21642, .38619,
590 + .16610, .09368, 5.42176, .39996, .10822,
591 + -.00001, .25030, .41703,
592 + .17334, .09730, 6.06215, .42764, .14191,
593 + .00682, .28131, .44537,
594 + .17987, .10055, 6.62285, .45344, .17310,
595 + .03884, .31010, .47179,
596 + .18581, .10347, 7.10755, .47736, .20190,
597 + .07062, .33672, .49625,
598 + .19124, .10613, 7.53107, .49961, .22860,
599 + .10033, .36144, .51899 /
600 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
601 + .19626, .10857, 7.90312, .52035, .25344,
602 + .12785, .38444, .54017,
603 + .20092, .11082, 8.23100, .53969, .27658,
604 + .15346, .40589, .55993,
605 + .20525, .11290, 8.51902, .55773, .29816,
606 + .17731, .42588, .57835,
607 + .20929, .11483, 8.77010, .57448, .31820,
608 + .19947, .44445, .59545,
609 + .21307, .11662, 8.99282, .59017, .33699,
610 + .22023, .46185, .61146,
611 + .21665, .11831, 9.19205, .60495, .35469,
612 + .23976, .47824, .62654,
613 + .22002, .11989, 9.36803, .61879, .37129,
614 + .25809, .49360, .64067 /
615 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
616 + .22319, .12137, 9.52045, .63165, .38676,
617 + .27519, .50790, .65380,
618 + .22621, .12277, 9.65978, .64391, .40151,
619 + .29147, .52153, .66631,
620 + .22906, .12409, 9.77914, .65529, .41525,
621 + .30666, .53421, .67792,
622 + .23179, .12534, 9.88653, .66608, .42830,
623 + .32109, .54625, .68893,
624 + .23438, .12653, 9.98125, .67625, .44062,
625 + .33472, .55759, .69931 /
626 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
627 + .16742, .09510, 3.56194, .31556, .02843,
628 + .00000, .16834, .33280,
629 + .17752, .10020, 4.31078, .34376, .06453,
630 + .00000, .20094, .36197,
631 + .18625, .10456, 4.94205, .36954, .09710,
632 + .00000, .23051, .38859,
633 + .19392, .10835, 5.47237, .39303, .12651,
634 + .00597, .25730, .41279,
635 + .20081, .11172, 5.92952, .41473, .15351,
636 + .03387, .28194, .43512,
637 + .20704, .11474, 6.31857, .43465, .17824,
638 + .06137, .30453, .45561,
639 + .21272, .11747, 6.65323, .45301, .20098,
640 + .08689, .32533, .47449 /
641 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
642 + .21795, .11996, 6.94291, .47000, .22200,
643 + .11039, .34455, .49193,
644 + .22278, .12225, 7.19447, .48573, .24146,
645 + .13213, .36235, .50809,
646 + .22725, .12435, 7.41201, .50029, .25949,
647 + .15226, .37883, .52304,
648 + .23140, .12629, 7.59815, .51370, .27614,
649 + .17085, .39403, .53679,
650 + .23529, .12809, 7.76074, .52619, .29166,
651 + .18818, .40819, .54961,
652 + .23895, .12977, 7.90394, .53787, .30621,
653 + .20442, .42146, .56159,
654 + .24238, .13133, 8.02794, .54874, .31978,
655 + .21959, .43382, .57274 /
656 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
657 + .24560, .13279, 8.13271, .55876, .33236,
658 + .23366, .44525, .58303,
659 + .24866, .13418, 8.22703, .56827, .34430,
660 + .24701, .45610, .59278,
661 + .25154, .13546, 8.30528, .57703, .35537,
662 + .25942, .46613, .60177,
663 + .25429, .13668, 8.37413, .58529, .36584,
664 + .27116, .47560, .61025,
665 + .25689, .13784, 8.43302, .59303, .37568,
666 + .28220, .48450, .61818 /
667 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
668 + .24211, .13656, 2.83402, .24901, .02159,
669 + .00000, .13520, .27440,
670 + .25389, .14207, 3.26176, .26578, .04583,
671 + .00000, .15616, .29224,
672 + .26385, .14663, 3.59715, .28042, .06687,
673 + .00000, .17439, .30777,
674 + .27239, .15047, 3.85963, .29321, .08523,
675 + .00376, .19029, .32127,
676 + .27993, .15379, 4.07124, .30457, .10157,
677 + .02111, .20443, .33326,
678 + .28660, .15667, 4.23844, .31462, .11611,
679 + .03782, .21697, .34384,
680 + .29258, .15921, 4.37203, .32357, .12914,
681 + .05296, .22818, .35323 /
682 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
683 + .29797, .16146, 4.47886, .33155, .14089,
684 + .06659, .23824, .36162,
685 + .30287, .16347, 4.56392, .33871, .15151,
686 + .07895, .24731, .36913,
687 + .30734, .16527, 4.63062, .34511, .16114,
688 + .09016, .25549, .37585,
689 + .31141, .16688, 4.68084, .35080, .16983,
690 + .10032, .26282, .38180,
691 + .31516, .16834, 4.71926, .35593, .17777,
692 + .10963, .26949, .38717,
693 + .31863, .16967, 4.74844, .36059, .18507,
694 + .11820, .27559, .39204,
695 + .32184, .17088, 4.76869, .36477, .19175,
696 + .12607, .28113, .39642 /
697 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
698 + .32479, .17197, 4.78019, .36848, .19780,
699 + .13326, .28612, .40029,
700 + .32757, .17298, 4.78765, .37191, .20347,
701 + .13998, .29076, .40388,
702 + .33013, .17389, 4.78801, .37493, .20860,
703 + .14611, .29493, .40703,
704 + .33254, .17473, 4.78490, .37768, .21338,
705 + .15183, .29877, .40990,
706 + .33479, .17551, 4.77801, .38016, .21778,
707 + .15713, .30229, .41249 /
708 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
709 + .34667, .19296, 2.13435, .18592, .01570,
710 + -.00001, .10515, .22363,
711 + .35823, .19704, 2.32967, .19381, .03056,
712 + -.00002, .11686, .23214,
713 + .36755, .20014, 2.46356, .20018, .04287,
714 + -.00002, .12647, .23892,
715 + .37520, .20251, 2.55316, .20532, .05316,
716 + .00215, .13439, .24434,
717 + .38165, .20439, 2.61393, .20956, .06198,
718 + .01193, .14109, .24876,
719 + .38712, .20585, 2.65115, .21298, .06953,
720 + .02109, .14672, .25231,
721 + .39181, .20699, 2.67179, .21577, .07607,
722 + .02914, .15149, .25516 /
723 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
724 + .39585, .20788, 2.68030, .21805, .08177,
725 + .03621, .15558, .25744,
726 + .39936, .20858, 2.67970, .21989, .08675,
727 + .04244, .15907, .25926,
728 + .40242, .20910, 2.67187, .22136, .09113,
729 + .04796, .16206, .26068,
730 + .40505, .20946, 2.65772, .22248, .09495,
731 + .05283, .16458, .26172,
732 + .40736, .20971, 2.63986, .22334, .09834,
733 + .05720, .16676, .26249,
734 + .40941, .20988, 2.61952, .22400, .10137,
735 + .06113, .16864, .26305,
736 + .41121, .20996, 2.59670, .22446, .10404,
737 + .06466, .17024, .26340 /
738 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
739 + .41275, .20995, 2.57143, .22470, .10638,
740 + .06779, .17156, .26353,
741 + .41415, .20990, 2.54593, .22485, .10852,
742 + .07067, .17273, .26356,
743 + .41533, .20978, 2.51866, .22484, .11038,
744 + .07324, .17367, .26341,
745 + .41637, .20962, 2.49129, .22475, .11206,
746 + .07559, .17448, .26317,
747 + .41728, .20942, 2.46357, .22455, .11356,
748 + .07772, .17514, .26284 /
749 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
750 + .42370, .22997, 1.74889, .15041, .01267,
751 + .00000, .08864, .19608,
752 + .43286, .23156, 1.84451, .15420, .02314,
753 + .00000, .09591, .19969,
754 + .43977, .23239, 1.89737, .15693, .03152,
755 + .00000, .10155, .20211,
756 + .44504, .23267, 1.92141, .15882, .03830,
757 + .00146, .10593, .20365,
758 + .44916, .23261, 1.92811, .16015, .04394,
759 + .00799, .10943, .20457,
760 + .45233, .23228, 1.92135, .16096, .04863,
761 + .01400, .11219, .20498,
762 + .45478, .23174, 1.90595, .16141, .05257,
763 + .01915, .11438, .20500 /
764 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
765 + .45666, .23106, 1.88494, .16157, .05591,
766 + .02359, .11611, .20474,
767 + .45808, .23027, 1.86010, .16149, .05874,
768 + .02742, .11748, .20424,
769 + .45911, .22940, 1.83263, .16122, .06117,
770 + .03076, .11853, .20356,
771 + .45977, .22845, 1.80300, .16080, .06322,
772 + .03364, .11930, .20269,
773 + .46019, .22746, 1.77268, .16025, .06498,
774 + .03617, .11986, .20173,
775 + .46042, .22645, 1.74231, .15962, .06651,
776 + .03842, .12028, .20069,
777 + .46044, .22541, 1.71181, .15892, .06782,
778 + .04039, .12054, .19958 /
779 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
780 + .46028, .22433, 1.68104, .15812, .06891,
781 + .04212, .12065, .19840,
782 + .46003, .22326, 1.65127, .15730, .06989,
783 + .04368, .12069, .19722,
784 + .45961, .22217, 1.62151, .15642, .07069,
785 + .04504, .12061, .19596,
786 + .45910, .22109, 1.59262, .15553, .07139,
787 + .04626, .12046, .19470,
788 + .45851, .22001, 1.56438, .15461, .07198,
789 + .04734, .12025, .19342 /
790 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
791 + .48419, .25441, 1.48949, .12515, .01062,
792 + -.00001, .07661, .17506,
793 + .48982, .25319, 1.52866, .12655, .01845,
794 + .00001, .08116, .17544,
795 + .49342, .25158, 1.53799, .12723, .02453,
796 + .00001, .08445, .17512,
797 + .49556, .24971, 1.52869, .12738, .02930,
798 + .00107, .08681, .17430,
799 + .49677, .24770, 1.50936, .12718, .03318,
800 + .00575, .08854, .17317,
801 + .49719, .24557, 1.48264, .12667, .03630,
802 + .00999, .08974, .17181,
803 + .49702, .24343, 1.45207, .12599, .03885,
804 + .01356, .09056, .17025 /
805 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
806 + .49644, .24125, 1.41949, .12515, .04095,
807 + .01659, .09108, .16861,
808 + .49555, .23908, 1.38606, .12420, .04269,
809 + .01917, .09137, .16692,
810 + .49438, .23693, 1.35238, .12316, .04413,
811 + .02136, .09147, .16516,
812 + .49295, .23479, 1.31865, .12206, .04531,
813 + .02323, .09140, .16337,
814 + .49137, .23271, 1.28577, .12094, .04628,
815 + .02485, .09123, .16157,
816 + .48969, .23068, 1.25399, .11980, .04709,
817 + .02625, .09097, .15980,
818 + .48792, .22867, 1.22312, .11865, .04776,
819 + .02747, .09063, .15803 /
820 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
821 + .48602, .22669, 1.19301, .11748, .04829,
822 + .02851, .09021, .15625,
823 + .48412, .22477, 1.16439, .11634, .04874,
824 + .02944, .08977, .15453,
825 + .48212, .22288, 1.13654, .11516, .04907,
826 + .03023, .08926, .15283,
827 + .48011, .22104, 1.10994, .11401, .04934,
828 + .03092, .08874, .15116,
829 + .47808, .21924, 1.08438, .11287, .04954,
830 + .03153, .08819, .14952 /
831 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
832 + .53222, .26957, 1.29654, .10513, .00901,
833 + .00000, .06660, .15635,
834 + .53360, .26560, 1.29940, .10506, .01506,
835 + -.00001, .06934, .15450,
836 + .53334, .26164, 1.28226, .10454, .01962,
837 + .00000, .07110, .15236,
838 + .53202, .25772, 1.25390, .10369, .02309,
839 + .00080, .07219, .15006,
840 + .53005, .25392, 1.22056, .10265, .02584,
841 + .00429, .07283, .14767,
842 + .52753, .25019, 1.18403, .10144, .02800,
843 + .00742, .07311, .14525,
844 + .52463, .24660, 1.14665, .10018, .02972,
845 + .01001, .07314, .14280 /
846 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
847 + .52153, .24311, 1.10960, .09885, .03109,
848 + .01216, .07298, .14042,
849 + .51825, .23978, 1.07348, .09752, .03219,
850 + .01396, .07269, .13804,
851 + .51487, .23655, 1.03854, .09616, .03305,
852 + .01547, .07228, .13575,
853 + .51139, .23341, 1.00477, .09479, .03373,
854 + .01675, .07178, .13352,
855 + .50788, .23041, .97262, .09345, .03427,
856 + .01783, .07123, .13133,
857 + .50437, .22753, .94218, .09214, .03470,
858 + .01875, .07065, .12921,
859 + .50087, .22475, .91321, .09083, .03503,
860 + .01953, .07003, .12718 /
861 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
862 + .49735, .22204, .88549, .08955, .03526,
863 + .02019, .06937, .12519,
864 + .49391, .21945, .85945, .08831, .03544,
865 + .02077, .06872, .12328,
866 + .49045, .21693, .83451, .08709, .03554,
867 + .02125, .06804, .12142,
868 + .48705, .21450, .81095, .08591, .03560,
869 + .02166, .06737, .11963,
870 + .48368, .21215, .78857, .08475, .03562,
871 + .02201, .06670, .11789 /
872 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
873 + .57768, .27860, 1.10972, .08465, .00739,
874 + -.00001, .05570, .13438,
875 + .57317, .27150, 1.08280, .08352, .01186,
876 + -.00001, .05694, .13078,
877 + .56784, .26489, 1.04541, .08216, .01512,
878 + -.00001, .05750, .12728,
879 + .56198, .25874, 1.00362, .08067, .01753,
880 + .00057, .05761, .12389,
881 + .55594, .25300, .96138, .07913, .01937,
882 + .00308, .05746, .12067,
883 + .54973, .24757, .91949, .07755, .02076,
884 + .00529, .05708, .11757,
885 + .54349, .24249, .87925, .07599, .02182,
886 + .00706, .05657, .11461 /
887 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
888 + .53731, .23768, .84116, .07444, .02263,
889 + .00853, .05597, .11180,
890 + .53123, .23314, .80533, .07294, .02326,
891 + .00973, .05531, .10912,
892 + .52525, .22886, .77171, .07147, .02371,
893 + .01072, .05461, .10658,
894 + .51935, .22476, .74008, .07006, .02405,
895 + .01153, .05387, .10414,
896 + .51360, .22088, .71060, .06868, .02429,
897 + .01220, .05312, .10183,
898 + .50803, .21720, .68317, .06736, .02446,
899 + .01278, .05238, .09964,
900 + .50259, .21368, .65749, .06609, .02455,
901 + .01325, .05163, .09756 /
902 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
903 + .49724, .21031, .63334, .06485, .02459,
904 + .01364, .05089, .09554,
905 + .49210, .20711, .61090, .06367, .02460,
906 + .01397, .05017, .09364,
907 + .48705, .20402, .58974, .06251, .02456,
908 + .01423, .04944, .09182,
909 + .48215, .20107, .56994, .06141, .02450,
910 + .01445, .04874, .09008,
911 + .47738, .19823, .55132, .06035, .02442,
912 + .01463, .04805, .08839 /
913 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
914 + .60908, .27924, .96023, .06775, .00603,
915 + -.00003, .04609, .11373,
916 + .59855, .26938, .91415, .06609, .00941,
917 + -.00002, .04641, .10919,
918 + .58805, .26056, .86497, .06438, .01178,
919 + -.00003, .04629, .10504,
920 + .57778, .25256, .81640, .06263, .01350,
921 + .00041, .04587, .10121,
922 + .56781, .24527, .77057, .06093, .01474,
923 + .00227, .04529, .09769,
924 + .55811, .23855, .72742, .05926, .01566,
925 + .00386, .04460, .09439,
926 + .54873, .23231, .68749, .05767, .01632,
927 + .00512, .04385, .09131 /
928 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
929 + .53973, .22650, .65083, .05614, .01680,
930 + .00614, .04307, .08844,
931 + .53110, .22109, .61718, .05468, .01715,
932 + .00696, .04228, .08577,
933 + .52281, .21602, .58623, .05327, .01738,
934 + .00763, .04147, .08327,
935 + .51477, .21126, .55770, .05194, .01752,
936 + .00817, .04068, .08092,
937 + .50708, .20677, .53150, .05067, .01760,
938 + .00861, .03989, .07871,
939 + .49972, .20253, .50745, .04947, .01764,
940 + .00897, .03913, .07663,
941 + .49263, .19853, .48524, .04831, .01763,
942 + .00926, .03838, .07468 /
943 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
944 + .48576, .19473, .46460, .04721, .01757,
945 + .00950, .03766, .07282,
946 + .47920, .19114, .44560, .04617, .01750,
947 + .00969, .03696, .07107,
948 + .47281, .18771, .42789, .04517, .01741,
949 + .00984, .03629, .06938,
950 + .46668, .18444, .41147, .04421, .01730,
951 + .00996, .03563, .06780,
952 + .46078, .18130, .39617, .04329, .01718,
953 + .01005, .03500, .06631 /
954 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
955 + .62806, .27354, .83506, .05371, .00488,
956 + .00000, .03765, .09460,
957 + .61162, .26146, .77690, .05188, .00745,
958 + -.00001, .03742, .08975,
959 + .59618, .25093, .72139, .05010, .00918,
960 + -.00001, .03689, .08545,
961 + .58170, .24155, .67013, .04836, .01039,
962 + .00031, .03620, .08160,
963 + .56812, .23313, .62381, .04672, .01124,
964 + .00168, .03544, .07810,
965 + .55524, .22545, .58173, .04516, .01184,
966 + .00284, .03461, .07489,
967 + .54310, .21839, .54384, .04366, .01225,
968 + .00375, .03379, .07196 /
969 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
970 + .53164, .21191, .50977, .04226, .01252,
971 + .00446, .03297, .06928,
972 + .52081, .20591, .47911, .04093, .01270,
973 + .00502, .03217, .06678,
974 + .51046, .20039, .45140, .03972, .01280,
975 + .00549, .03137, .06448,
976 + .50069, .19517, .42623, .03854, .01283,
977 + .00584, .03061, .06233,
978 + .49137, .19032, .40341, .03744, .01283,
979 + .00612, .02988, .06033,
980 + .48253, .18579, .38269, .03641, .01279,
981 + .00636, .02918, .05846,
982 + .47413, .18151, .36375, .03541, .01273,
983 + .00653, .02850, .05673 /
984 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
985 + .46605, .17745, .34637, .03447, .01264,
986 + .00667, .02784, .05509,
987 + .45839, .17364, .33048, .03359, .01255,
988 + .00679, .02722, .05356,
989 + .45099, .17003, .31579, .03275, .01244,
990 + .00685, .02662, .05211,
991 + .44392, .16661, .30227, .03195, .01232,
992 + .00691, .02604, .05075,
993 + .43713, .16336, .28977, .03120, .01218,
994 + .00695, .02549, .04947 /
995 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
996 + .63598, .26313, .72699, .04209, .00391,
997 + -.00002, .03030, .07733,
998 + .61397, .24936, .66177, .04030, .00586,
999 + -.00002, .02978, .07258,
1000 + .59402, .23754, .60356, .03861, .00716,
1001 + -.00003, .02909, .06844,
1002 + .57578, .22717, .55228, .03701, .00802,
1003 + .00023, .02829, .06481,
1004 + .55901, .21796, .50736, .03551, .00860,
1005 + .00124, .02748, .06158,
1006 + .54340, .20963, .46766, .03411, .00899,
1007 + .00210, .02667, .05865,
1008 + .52889, .20207, .43270, .03281, .00924,
1009 + .00276, .02586, .05600 /
1010 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1011 + .51534, .19518, .40182, .03159, .00939,
1012 + .00328, .02510, .05358,
1013 + .50267, .18887, .37448, .03046, .00947,
1014 + .00367, .02434, .05140,
1015 + .49079, .18306, .35008, .02941, .00949,
1016 + .00400, .02363, .04936,
1017 + .47958, .17762, .32821, .02841, .00948,
1018 + .00422, .02295, .04749,
1019 + .46901, .17260, .30863, .02747, .00943,
1020 + .00441, .02229, .04578,
1021 + .45905, .16792, .29102, .02660, .00936,
1022 + .00457, .02167, .04420,
1023 + .44963, .16353, .27507, .02578, .00927,
1024 + .00467, .02110, .04272 /
1025 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1026 + .44061, .15941, .26058, .02502, .00917,
1027 + .00475, .02053, .04133,
1028 + .43210, .15556, .24741, .02431, .00907,
1029 + .00482, .02000, .04004,
1030 + .42397, .15190, .23533, .02362, .00896,
1031 + .00487, .01950, .03882,
1032 + .41624, .14846, .22428, .02298, .00885,
1033 + .00489, .01902, .03768,
1034 + .40885, .14520, .21412, .02237, .00873,
1035 + .00491, .01856, .03661 /
1036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1037 + .63409, .24925, .63191, .03256, .00311,
1038 + -.00002, .02402, .06212,
1039 + .60709, .23428, .56337, .03091, .00460,
1040 + -.00001, .02340, .05775,
1041 + .58315, .22160, .50509, .02939, .00556,
1042 + -.00002, .02266, .05400,
1043 + .56166, .21061, .45550, .02800, .00618,
1044 + .00017, .02189, .05072,
1045 + .54222, .20092, .41323, .02670, .00657,
1046 + .00094, .02111, .04788,
1047 + .52434, .19226, .37672, .02550, .00682,
1048 + .00159, .02036, .04532,
1049 + .50791, .18445, .34510, .02439, .00697,
1050 + .00206, .01964, .04301 /
1051 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1052 + .49272, .17742, .31765, .02337, .00706,
1053 + .00243, .01895, .04092,
1054 + .47862, .17098, .29361, .02244, .00707,
1055 + .00272, .01830, .03905,
1056 + .46553, .16507, .27249, .02155, .00705,
1057 + .00294, .01767, .03737,
1058 + .45323, .15963, .25374, .02076, .00700,
1059 + .00310, .01708, .03579,
1060 + .44174, .15459, .23712, .02000, .00694,
1061 + .00322, .01654, .03435,
1062 + .43097, .14992, .22231, .01930, .00687,
1063 + .00330, .01602, .03302,
1064 + .42082, .14558, .20899, .01865, .00678,
1065 + .00337, .01553, .03180 /
1066 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1067 + .41121, .14151, .19699, .01804, .00669,
1068 + .00342, .01506, .03067,
1069 + .40217, .13771, .18619, .01747, .00659,
1070 + .00346, .01462, .02961,
1071 + .39355, .13413, .17636, .01692, .00648,
1072 + .00347, .01421, .02863,
1073 + .38539, .13076, .16740, .01642, .00638,
1074 + .00348, .01382, .02770,
1075 + .37763, .12757, .15920, .01594, .00628,
1076 + .00348, .01344, .02684 /
1077 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1078 + .62362, .23292, .54730, .02478, .00245,
1079 + .00004, .01879, .04909,
1080 + .59222, .21729, .47841, .02341, .00358,
1081 + .00003, .01813, .04519,
1082 + .56490, .20416, .42198, .02214, .00427,
1083 + .00004, .01741, .04194,
1084 + .54075, .19291, .37533, .02097, .00472,
1085 + .00016, .01670, .03910,
1086 + .51913, .18308, .33641, .01992, .00498,
1087 + .00073, .01601, .03664,
1088 + .49951, .17434, .30342, .01891, .00516,
1089 + .00119, .01536, .03447,
1090 + .48160, .16654, .27534, .01801, .00522,
1091 + .00153, .01472, .03257 /
1092 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1093 + .46526, .15947, .25126, .01716, .00525,
1094 + .00179, .01413, .03087,
1095 + .45016, .15310, .23048, .01642, .00523,
1096 + .00198, .01357, .02932,
1097 + .43620, .14731, .21241, .01572, .00519,
1098 + .00212, .01307, .02789,
1099 + .42320, .14196, .19653, .01509, .00514,
1100 + .00223, .01257, .02662,
1101 + .41112, .13704, .18256, .01449, .00507,
1102 + .00231, .01212, .02546,
1103 + .39986, .13250, .17021, .01393, .00500,
1104 + .00238, .01171, .02440,
1105 + .38931, .12828, .15923, .01342, .00492,
1106 + .00242, .01130, .02342 /
1107 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1108 + .37935, .12436, .14938, .01294, .00484,
1109 + .00244, .01093, .02250,
1110 + .37002, .12071, .14055, .01250, .00476,
1111 + .00245, .01058, .02164,
1112 + .36119, .11727, .13258, .01207, .00467,
1113 + .00246, .01026, .02086,
1114 + .35285, .11406, .12537, .01167, .00458,
1115 + .00247, .00995, .02013,
1116 + .34494, .11103, .11883, .01130, .00450,
1117 + .00247, .00966, .01945 /
1118 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1119 + .60548, .21539, .47197, .01886, .00177,
1120 + -.00013, .01431, .03809,
1121 + .57056, .19940, .40472, .01768, .00266,
1122 + -.00013, .01373, .03478,
1123 + .54060, .18611, .35136, .01660, .00318,
1124 + -.00013, .01312, .03203,
1125 + .51443, .17483, .30834, .01563, .00351,
1126 + -.00001, .01251, .02968,
1127 + .49129, .16502, .27317, .01472, .00369,
1128 + .00043, .01195, .02767,
1129 + .47039, .15644, .24387, .01395, .00380,
1130 + .00080, .01139, .02587,
1131 + .45154, .14874, .21931, .01319, .00383,
1132 + .00106, .01088, .02434 /
1133 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1134 + .43437, .14189, .19848, .01253, .00384,
1135 + .00124, .01039, .02295,
1136 + .41864, .13573, .18071, .01195, .00383,
1137 + .00138, .00994, .02169,
1138 + .40420, .13012, .16542, .01141, .00379,
1139 + .00150, .00953, .02057,
1140 + .39086, .12497, .15211, .01089, .00373,
1141 + .00158, .00915, .01955,
1142 + .37852, .12026, .14051, .01041, .00367,
1143 + .00163, .00879, .01863,
1144 + .36705, .11594, .13033, .00998, .00361,
1145 + .00167, .00846, .01779,
1146 + .35633, .11194, .12132, .00959, .00354,
1147 + .00170, .00814, .01702 /
1148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1149 + .34627, .10822, .11332, .00923, .00348,
1150 + .00171, .00785, .01629,
1151 + .33688, .10478, .10617, .00890, .00341,
1152 + .00171, .00758, .01562,
1153 + .32800, .10157, .09977, .00858, .00334,
1154 + .00172, .00732, .01500,
1155 + .31967, .09856, .09400, .00828, .00326,
1156 + .00172, .00708, .01444,
1157 + .31181, .09573, .08879, .00798, .00318,
1158 + .00171, .00685, .01393 /
1159 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1160 + .58125, .19655, .40419, .01389, .00138,
1161 + -.00003, .01089, .02909,
1162 + .54349, .18067, .34025, .01297, .00206,
1163 + -.00004, .01036, .02635,
1164 + .51155, .16760, .29093, .01213, .00244,
1165 + -.00003, .00983, .02408,
1166 + .48395, .15657, .25202, .01136, .00266,
1167 + .00005, .00932, .02219,
1168 + .45970, .14709, .22075, .01069, .00278,
1169 + .00036, .00884, .02054,
1170 + .43808, .13875, .19510, .01005, .00284,
1171 + .00063, .00839, .01914,
1172 + .41868, .13139, .17390, .00948, .00286,
1173 + .00081, .00797, .01789 /
1174 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1175 + .40110, .12485, .15616, .00898, .00285,
1176 + .00094, .00759, .01680,
1177 + .38514, .11898, .14117, .00852, .00282,
1178 + .00104, .00723, .01582,
1179 + .37055, .11366, .12836, .00811, .00278,
1180 + .00111, .00690, .01495,
1181 + .35710, .10883, .11733, .00773, .00272,
1182 + .00115, .00660, .01416,
1183 + .34474, .10443, .10779, .00737, .00267,
1184 + .00119, .00632, .01343,
1185 + .33333, .10040, .09948, .00704, .00262,
1186 + .00122, .00607, .01277,
1187 + .32271, .09666, .09219, .00675, .00256,
1188 + .00123, .00583, .01218 /
1189 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1190 + .31273, .09322, .08574, .00648, .00250,
1191 + .00123, .00560, .01164,
1192 + .30345, .09004, .08002, .00624, .00244,
1193 + .00123, .00538, .01114,
1194 + .29476, .08706, .07491, .00599, .00238,
1195 + .00122, .00519, .01068,
1196 + .28662, .08428, .07033, .00576, .00232,
1197 + .00122, .00501, .01025,
1198 + .27894, .08169, .06620, .00555, .00227,
1199 + .00121, .00484, .00986 /
1200 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1201 + .55172, .17761, .34379, .01016, .00104,
1202 + -.00004, .00808, .02180,
1203 + .51202, .16209, .28425, .00944, .00154,
1204 + -.00003, .00766, .01961,
1205 + .47883, .14942, .23945, .00878, .00182,
1206 + -.00004, .00723, .01782,
1207 + .45041, .13880, .20486, .00819, .00198,
1208 + .00003, .00682, .01633,
1209 + .42567, .12975, .17745, .00764, .00207,
1210 + .00027, .00644, .01505,
1211 + .40371, .12187, .15534, .00718, .00208,
1212 + .00046, .00608, .01395,
1213 + .38413, .11495, .13728, .00677, .00209,
1214 + .00059, .00576, .01296 /
1215 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1216 + .36654, .10881, .12232, .00638, .00207,
1217 + .00069, .00545, .01212,
1218 + .35065, .10332, .10980, .00603, .00204,
1219 + .00075, .00518, .01139,
1220 + .33620, .09838, .09921, .00573, .00200,
1221 + .00079, .00492, .01071,
1222 + .32297, .09390, .09018, .00543, .00196,
1223 + .00083, .00469, .01011,
1224 + .31082, .08983, .08241, .00517, .00192,
1225 + .00085, .00448, .00956,
1226 + .29964, .08612, .07568, .00493, .00187,
1227 + .00086, .00429, .00907,
1228 + .28928, .08270, .06982, .00470, .00183,
1229 + .00086, .00410, .00862 /
1230 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1231 + .27964, .07955, .06466, .00450, .00178,
1232 + .00087, .00393, .00820,
1233 + .27069, .07665, .06011, .00432, .00174,
1234 + .00087, .00378, .00783,
1235 + .26229, .07394, .05608, .00414, .00168,
1236 + .00086, .00363, .00750,
1237 + .25444, .07143, .05249, .00398, .00163,
1238 + .00085, .00349, .00718,
1239 + .24707, .06909, .04926, .00384, .00159,
1240 + .00084, .00336, .00687 /
1241 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1242 + .51809, .15875, .29000, .00727, .00080,
1243 + .00001, .00593, .01606,
1244 + .47729, .14387, .23565, .00671, .00115,
1245 + .00000, .00559, .01436,
1246 + .44347, .13181, .19564, .00623, .00137,
1247 + .00000, .00527, .01294,
1248 + .41477, .12182, .16531, .00581, .00148,
1249 + .00005, .00493, .01179,
1250 + .38998, .11332, .14169, .00539, .00152,
1251 + .00023, .00464, .01083,
1252 + .36811, .10598, .12288, .00507, .00154,
1253 + .00036, .00436, .00998,
1254 + .34880, .09954, .10768, .00474, .00153,
1255 + .00045, .00411, .00925 /
1256 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1257 + .33154, .09386, .09522, .00446, .00151,
1258 + .00051, .00389, .00861,
1259 + .31601, .08881, .08488, .00420, .00148,
1260 + .00055, .00367, .00805,
1261 + .30196, .08429, .07623, .00396, .00145,
1262 + .00058, .00348, .00755,
1263 + .28914, .08021, .06892, .00375, .00141,
1264 + .00060, .00330, .00709,
1265 + .27741, .07652, .06265, .00357, .00137,
1266 + .00061, .00314, .00668,
1267 + .26666, .07315, .05726, .00341, .00133,
1268 + .00062, .00300, .00631,
1269 + .25674, .07007, .05259, .00324, .00130,
1270 + .00062, .00287, .00599 /
1271 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1272 + .24754, .06723, .04853, .00309, .00126,
1273 + .00062, .00274, .00570,
1274 + .23903, .06462, .04496, .00295, .00122,
1275 + .00062, .00262, .00543,
1276 + .23106, .06220, .04180, .00284, .00118,
1277 + .00062, .00251, .00517,
1278 + .22365, .05995, .03899, .00273, .00115,
1279 + .00061, .00241, .00494,
1280 + .21671, .05785, .03649, .00261, .00111,
1281 + .00060, .00233, .00473 /
1282 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1283 + .48137, .14038, .24241, .00504, .00061,
1284 + .00005, .00431, .01161,
1285 + .44018, .12637, .19367, .00469, .00088,
1286 + .00005, .00404, .01029,
1287 + .40637, .11510, .15851, .00433, .00102,
1288 + .00004, .00378, .00926,
1289 + .37798, .10580, .13233, .00402, .00109,
1290 + .00007, .00353, .00837,
1291 + .35358, .09793, .11223, .00373, .00111,
1292 + .00020, .00330, .00766,
1293 + .33229, .09118, .09642, .00348, .00112,
1294 + .00027, .00309, .00701,
1295 + .31352, .08529, .08379, .00324, .00111,
1296 + .00034, .00290, .00648 /
1297 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1298 + .29680, .08014, .07355, .00305, .00109,
1299 + .00038, .00273, .00600,
1300 + .28188, .07558, .06515, .00288, .00107,
1301 + .00041, .00257, .00558,
1302 + .26844, .07149, .05816, .00271, .00104,
1303 + .00043, .00243, .00522,
1304 + .25619, .06781, .05229, .00256, .00100,
1305 + .00044, .00230, .00491,
1306 + .24507, .06450, .04730, .00241, .00097,
1307 + .00045, .00219, .00461,
1308 + .23491, .06150, .04303, .00228, .00094,
1309 + .00045, .00208, .00434,
1310 + .22555, .05875, .03935, .00218, .00092,
1311 + .00044, .00198, .00410 /
1312 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1313 + .21688, .05623, .03617, .00209, .00089,
1314 + .00044, .00189, .00389,
1315 + .20890, .05393, .03339, .00200, .00086,
1316 + .00044, .00181, .00370,
1317 + .20149, .05178, .03094, .00190, .00084,
1318 + .00044, .00173, .00352,
1319 + .19460, .04980, .02877, .00182, .00081,
1320 + .00043, .00165, .00336,
1321 + .18814, .04797, .02685, .00175, .00078,
1322 + .00042, .00159, .00321 /
1323 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1324 + .44247, .12303, .20083, .00355, .00042,
1325 + .00002, .00301, .00824,
1326 + .40173, .10995, .15777, .00325, .00062,
1327 + .00000, .00284, .00726,
1328 + .36857, .09956, .12734, .00301, .00072,
1329 + .00001, .00263, .00649,
1330 + .34088, .09103, .10505, .00278, .00077,
1331 + .00003, .00245, .00584,
1332 + .31733, .08385, .08816, .00256, .00080,
1333 + .00013, .00229, .00531,
1334 + .29682, .07772, .07506, .00238, .00080,
1335 + .00019, .00214, .00486,
1336 + .27887, .07242, .06472, .00223, .00079,
1337 + .00023, .00200, .00446 /
1338 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1339 + .26299, .06779, .05642, .00211, .00077,
1340 + .00027, .00188, .00411,
1341 + .24887, .06372, .04964, .00197, .00075,
1342 + .00029, .00177, .00380,
1343 + .23618, .06007, .04406, .00184, .00073,
1344 + .00030, .00166, .00355,
1345 + .22471, .05682, .03939, .00173, .00070,
1346 + .00030, .00157, .00332,
1347 + .21431, .05389, .03547, .00164, .00067,
1348 + .00030, .00148, .00312,
1349 + .20484, .05123, .03213, .00155, .00064,
1350 + .00030, .00140, .00294,
1351 + .19617, .04882, .02927, .00147, .00062,
1352 + .00030, .00133, .00277 /
1353 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1354 + .18814, .04661, .02680, .00141, .00061,
1355 + .00031, .00127, .00262,
1356 + .18076, .04460, .02466, .00135, .00059,
1357 + .00031, .00121, .00248,
1358 + .17394, .04275, .02278, .00128, .00057,
1359 + .00030, .00116, .00235,
1360 + .16763, .04103, .02112, .00122, .00055,
1361 + .00029, .00110, .00223,
1362 + .16174, .03942, .01965, .00117, .00053,
1363 + .00028, .00105, .00213 /
1364 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1365 + .40243, .10658, .16457, .00239, .00031,
1366 + .00003, .00209, .00573,
1367 + .36275, .09461, .12720, .00220, .00045,
1368 + .00003, .00195, .00502,
1369 + .33075, .08517, .10131, .00204, .00050,
1370 + .00001, .00181, .00448,
1371 + .30419, .07748, .08261, .00191, .00054,
1372 + .00003, .00168, .00400,
1373 + .28172, .07107, .06864, .00177, .00055,
1374 + .00010, .00156, .00362,
1375 + .26236, .06559, .05792, .00163, .00055,
1376 + .00014, .00145, .00330,
1377 + .24543, .06088, .04954, .00154, .00053,
1378 + .00015, .00134, .00301 /
1379 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1380 + .23061, .05677, .04289, .00142, .00052,
1381 + .00017, .00126, .00278,
1382 + .21742, .05316, .03750, .00133, .00051,
1383 + .00018, .00118, .00257,
1384 + .20567, .04996, .03310, .00124, .00049,
1385 + .00019, .00110, .00239,
1386 + .19507, .04713, .02944, .00117, .00047,
1387 + .00020, .00103, .00222,
1388 + .18547, .04458, .02638, .00111, .00045,
1389 + .00020, .00098, .00208,
1390 + .17676, .04228, .02380, .00106, .00044,
1391 + .00020, .00093, .00195,
1392 + .16883, .04018, .02160, .00099, .00041,
1393 + .00019, .00087, .00184 /
1394 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1395 + .16155, .03826, .01971, .00094, .00040,
1396 + .00019, .00083, .00172,
1397 + .15487, .03652, .01807, .00090, .00039,
1398 + .00019, .00079, .00162,
1399 + .14867, .03492, .01664, .00085, .00037,
1400 + .00019, .00075, .00154,
1401 + .14293, .03345, .01538, .00082, .00036,
1402 + .00018, .00072, .00147,
1403 + .13760, .03208, .01428, .00079, .00034,
1404 + .00018, .00068, .00139 /
1405 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1406 + .36198, .09127, .13326, .00154, .00023,
1407 + .00005, .00145, .00389,
1408 + .32389, .08048, .10131, .00143, .00033,
1409 + .00004, .00134, .00340,
1410 + .29344, .07201, .07958, .00132, .00037,
1411 + .00003, .00124, .00299,
1412 + .26844, .06516, .06412, .00121, .00040,
1413 + .00005, .00114, .00269,
1414 + .24737, .05946, .05274, .00113, .00039,
1415 + .00008, .00105, .00243,
1416 + .22926, .05465, .04412, .00105, .00040,
1417 + .00011, .00099, .00217,
1418 + .21358, .05051, .03743, .00098, .00038,
1419 + .00012, .00091, .00199 /
1420 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1421 + .19990, .04692, .03217, .00090, .00037,
1422 + .00014, .00085, .00183,
1423 + .18779, .04380, .02796, .00083, .00035,
1424 + .00014, .00080, .00169,
1425 + .17700, .04103, .02451, .00080, .00034,
1426 + .00015, .00075, .00156,
1427 + .16735, .03856, .02170, .00074, .00033,
1428 + .00015, .00070, .00145,
1429 + .15864, .03637, .01936, .00070, .00032,
1430 + .00015, .00066, .00135,
1431 + .15077, .03440, .01739, .00066, .00031,
1432 + .00015, .00062, .00126,
1433 + .14361, .03260, .01572, .00062, .00029,
1434 + .00015, .00058, .00119 /
1435 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1436 + .13704, .03097, .01429, .00059, .00028,
1437 + .00015, .00055, .00113,
1438 + .13103, .02949, .01306, .00056, .00028,
1439 + .00014, .00053, .00107,
1440 + .12549, .02813, .01199, .00053, .00026,
1441 + .00014, .00050, .00100,
1442 + .12039, .02689, .01106, .00051, .00025,
1443 + .00013, .00048, .00095,
1444 + .11566, .02574, .01023, .00049, .00024,
1445 + .00013, .00045, .00090 /
1446 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1447 + .32189, .07733, .10660, .00100, .00017,
1448 + .00003, .00097, .00258,
1449 + .28596, .06767, .07967, .00090, .00024,
1450 + .00003, .00089, .00225,
1451 + .25741, .06016, .06170, .00083, .00027,
1452 + .00003, .00083, .00199,
1453 + .23410, .05415, .04913, .00078, .00028,
1454 + .00003, .00077, .00176,
1455 + .21461, .04916, .04000, .00072, .00029,
1456 + .00006, .00071, .00158,
1457 + .19801, .04497, .03316, .00066, .00029,
1458 + .00009, .00067, .00143,
1459 + .18368, .04140, .02792, .00062, .00028,
1460 + .00010, .00062, .00129 /
1461 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1462 + .17119, .03832, .02382, .00058, .00027,
1463 + .00011, .00057, .00119,
1464 + .16025, .03562, .02057, .00052, .00026,
1465 + .00011, .00054, .00108,
1466 + .15054, .03326, .01795, .00047, .00025,
1467 + .00011, .00050, .00100,
1468 + .14184, .03117, .01581, .00044, .00024,
1469 + .00011, .00047, .00093,
1470 + .13406, .02930, .01404, .00041, .00023,
1471 + .00012, .00044, .00086,
1472 + .12705, .02763, .01256, .00038, .00022,
1473 + .00012, .00042, .00081,
1474 + .12066, .02613, .01132, .00037, .00020,
1475 + .00011, .00039, .00076 /
1476 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1477 + .11484, .02476, .01025, .00036, .00020,
1478 + .00011, .00037, .00071,
1479 + .10954, .02352, .00933, .00034, .00019,
1480 + .00010, .00035, .00067,
1481 + .10467, .02238, .00854, .00031, .00018,
1482 + .00010, .00033, .00063,
1483 + .10018, .02134, .00786, .00029, .00018,
1484 + .00010, .00032, .00059,
1485 + .09603, .02038, .00726, .00028, .00017,
1486 + .00009, .00030, .00056 /
1487 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1488 + .28300, .06481, .08425, .00071, .00008,
1489 + -.00002, .00059, .00167,
1490 + .24956, .05635, .06202, .00064, .00012,
1491 + -.00001, .00055, .00145,
1492 + .22326, .04981, .04740, .00059, .00015,
1493 + -.00001, .00051, .00127,
1494 + .20194, .04459, .03734, .00053, .00016,
1495 + -.00002, .00047, .00113,
1496 + .18424, .04031, .03011, .00049, .00016,
1497 + .00001, .00043, .00101,
1498 + .16919, .03671, .02475, .00045, .00016,
1499 + .00003, .00041, .00091,
1500 + .15628, .03365, .02069, .00043, .00016,
1501 + .00004, .00037, .00083 /
1502 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1503 + .14512, .03104, .01754, .00039, .00016,
1504 + .00005, .00034, .00075,
1505 + .13533, .02877, .01505, .00037, .00016,
1506 + .00006, .00032, .00069,
1507 + .12670, .02677, .01307, .00035, .00015,
1508 + .00006, .00030, .00063,
1509 + .11902, .02501, .01146, .00032, .00013,
1510 + .00006, .00028, .00059,
1511 + .11216, .02345, .01013, .00029, .00013,
1512 + .00005, .00026, .00055,
1513 + .10599, .02205, .00903, .00027, .00012,
1514 + .00005, .00024, .00052,
1515 + .10040, .02079, .00810, .00027, .00012,
1516 + .00005, .00023, .00048 /
1517 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1518 + .09531, .01966, .00732, .00026, .00011,
1519 + .00005, .00021, .00044,
1520 + .09068, .01863, .00665, .00025, .00011,
1521 + .00005, .00021, .00041,
1522 + .08644, .01769, .00607, .00024, .00010,
1523 + .00005, .00019, .00039,
1524 + .08254, .01684, .00557, .00023, .00009,
1525 + .00005, .00018, .00037,
1526 + .07895, .01605, .00513, .00022, .00009,
1527 + .00005, .00017, .00034 /
1528 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1529 + .24547, .05341, .06540, .00038, .00008,
1530 + .00002, .00041, .00104,
1531 + .21484, .04613, .04738, .00037, .00011,
1532 + .00003, .00038, .00091,
1533 + .19096, .04052, .03573, .00034, .00011,
1534 + .00002, .00034, .00081,
1535 + .17173, .03609, .02782, .00031, .00012,
1536 + .00003, .00031, .00071,
1537 + .15588, .03246, .02222, .00028, .00012,
1538 + .00002, .00028, .00062,
1539 + .14246, .02944, .01811, .00026, .00012,
1540 + .00003, .00026, .00056,
1541 + .13105, .02688, .01501, .00025, .00011,
1542 + .00005, .00024, .00051 /
1543 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1544 + .12120, .02469, .01264, .00022, .00011,
1545 + .00004, .00023, .00046,
1546 + .11260, .02281, .01079, .00020, .00010,
1547 + .00004, .00020, .00042,
1548 + .10504, .02115, .00932, .00020, .00010,
1549 + .00005, .00019, .00039,
1550 + .09835, .01970, .00812, .00019, .00009,
1551 + .00004, .00018, .00035,
1552 + .09238, .01841, .00715, .00018, .00009,
1553 + .00004, .00016, .00033,
1554 + .08704, .01726, .00635, .00016, .00009,
1555 + .00004, .00015, .00031,
1556 + .08224, .01623, .00568, .00015, .00008,
1557 + .00004, .00015, .00028 /
1558 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1559 + .07786, .01531, .00512, .00015, .00007,
1560 + .00004, .00014, .00027,
1561 + .07389, .01448, .00463, .00014, .00007,
1562 + .00004, .00013, .00025,
1563 + .07028, .01372, .00422, .00013, .00007,
1564 + .00003, .00012, .00024,
1565 + .06696, .01302, .00386, .00013, .00006,
1566 + .00003, .00011, .00022,
1567 + .06389, .01238, .00355, .00013, .00006,
1568 + .00003, .00010, .00020 /
1569 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1570 + .21004, .04347, .04998, .00021, .00006,
1571 + .00003, .00026, .00064,
1572 + .18248, .03727, .03561, .00020, .00009,
1573 + .00003, .00024, .00054,
1574 + .16110, .03253, .02648, .00019, .00008,
1575 + .00003, .00022, .00049,
1576 + .14407, .02879, .02039, .00016, .00009,
1577 + .00002, .00020, .00042,
1578 + .13004, .02577, .01611, .00017, .00009,
1579 + .00003, .00018, .00037,
1580 + .11829, .02325, .01301, .00016, .00008,
1581 + .00003, .00017, .00034,
1582 + .10833, .02115, .01071, .00013, .00008,
1583 + .00004, .00015, .00031 /
1584 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1585 + .09977, .01935, .00896, .00013, .00008,
1586 + .00004, .00014, .00028,
1587 + .09231, .01780, .00760, .00013, .00007,
1588 + .00004, .00013, .00026,
1589 + .08581, .01646, .00652, .00012, .00006,
1590 + .00003, .00012, .00024,
1591 + .08008, .01527, .00566, .00011, .00006,
1592 + .00004, .00011, .00022,
1593 + .07498, .01423, .00497, .00010, .00006,
1594 + .00004, .00010, .00020,
1595 + .07044, .01331, .00439, .00010, .00006,
1596 + .00004, .00010, .00018,
1597 + .06637, .01248, .00392, .00009, .00005,
1598 + .00003, .00009, .00016 /
1599 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1600 + .06266, .01174, .00351, .00008, .00005,
1601 + .00003, .00008, .00016,
1602 + .05932, .01106, .00317, .00007, .00005,
1603 + .00003, .00008, .00016,
1604 + .05626, .01046, .00288, .00008, .00005,
1605 + .00003, .00008, .00014,
1606 + .05348, .00991, .00263, .00007, .00005,
1607 + .00003, .00007, .00013,
1608 + .05093, .00940, .00241, .00007, .00004,
1609 + .00003, .00007, .00012 /
1610 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1611 + .17740, .03492, .03761, .00014, .00002,
1612 + .00000, .00015, .00038,
1613 + .15291, .02970, .02636, .00012, .00004,
1614 + .00000, .00013, .00034,
1615 + .13408, .02578, .01935, .00014, .00004,
1616 + -.00001, .00011, .00028,
1617 + .11920, .02269, .01472, .00012, .00004,
1618 + .00000, .00010, .00025,
1619 + .10703, .02021, .01152, .00012, .00005,
1620 + .00000, .00010, .00023,
1621 + .09690, .01815, .00922, .00010, .00004,
1622 + .00001, .00009, .00021,
1623 + .08836, .01643, .00754, .00008, .00004,
1624 + .00002, .00009, .00019 /
1625 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1626 + .08103, .01498, .00626, .00008, .00004,
1627 + .00002, .00008, .00016,
1628 + .07470, .01372, .00528, .00008, .00004,
1629 + .00001, .00007, .00015,
1630 + .06920, .01264, .00451, .00007, .00004,
1631 + .00001, .00007, .00014,
1632 + .06434, .01170, .00390, .00007, .00003,
1633 + .00002, .00006, .00013,
1634 + .06005, .01087, .00341, .00007, .00003,
1635 + .00001, .00005, .00012,
1636 + .05625, .01013, .00300, .00006, .00003,
1637 + .00001, .00005, .00010,
1638 + .05283, .00948, .00267, .00006, .00003,
1639 + .00001, .00005, .00009 /
1640 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1641 + .04976, .00889, .00239, .00006, .00002,
1642 + .00001, .00005, .00009,
1643 + .04698, .00836, .00215, .00005, .00002,
1644 + .00001, .00004, .00008,
1645 + .04446, .00788, .00195, .00005, .00002,
1646 + .00001, .00004, .00008,
1647 + .04215, .00745, .00177, .00005, .00002,
1648 + .00001, .00004, .00007,
1649 + .04005, .00705, .00162, .00004, .00002,
1650 + .00001, .00003, .00007 /
1651 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1652 + .14715, .02747, .02762, .00005, .00004,
1653 + .00004, .00010, .00021,
1654 + .12585, .02319, .01904, .00005, .00004,
1655 + .00002, .00009, .00019,
1656 + .10964, .01999, .01378, .00005, .00003,
1657 + .00002, .00008, .00017,
1658 + .09684, .01749, .01036, .00005, .00003,
1659 + .00002, .00007, .00014,
1660 + .08648, .01549, .00803, .00005, .00004,
1661 + .00002, .00007, .00012,
1662 + .07788, .01386, .00637, .00005, .00003,
1663 + .00001, .00005, .00010,
1664 + .07067, .01248, .00516, .00005, .00003,
1665 + .00002, .00005, .00010 /
1666 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1667 + .06453, .01133, .00426, .00005, .00003,
1668 + .00002, .00005, .00009,
1669 + .05926, .01034, .00357, .00005, .00003,
1670 + .00002, .00004, .00008,
1671 + .05467, .00949, .00303, .00004, .00002,
1672 + .00002, .00004, .00007,
1673 + .05067, .00875, .00261, .00004, .00002,
1674 + .00001, .00004, .00006,
1675 + .04714, .00810, .00227, .00003, .00002,
1676 + .00001, .00004, .00006,
1677 + .04401, .00753, .00199, .00003, .00002,
1678 + .00001, .00003, .00005,
1679 + .04121, .00702, .00177, .00002, .00002,
1680 + .00001, .00003, .00006 /
1681 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1682 + .03869, .00657, .00157, .00003, .00002,
1683 + .00001, .00003, .00005,
1684 + .03643, .00616, .00141, .00003, .00002,
1685 + .00001, .00003, .00004,
1686 + .03439, .00580, .00128, .00002, .00002,
1687 + .00001, .00003, .00004,
1688 + .03253, .00546, .00116, .00002, .00002,
1689 + .00001, .00002, .00004,
1690 + .03083, .00516, .00106, .00002, .00002,
1691 + .00001, .00002, .00004 /
1692 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1693 + .09618, .01613, .01396, .00001, .00001,
1694 + .00000, .00003, .00007,
1695 + .08088, .01340, .00929, .00001, .00001,
1696 + .00000, .00003, .00006,
1697 + .06943, .01138, .00653, .00002, .00001,
1698 + .00000, .00002, .00005,
1699 + .06056, .00984, .00479, .00002, .00001,
1700 + .00000, .00002, .00004,
1701 + .05345, .00861, .00364, .00001, .00001,
1702 + .00000, .00002, .00003,
1703 + .04763, .00762, .00283, .00001, .00001,
1704 + .00000, .00002, .00003,
1705 + .04280, .00680, .00226, .00002, .00001,
1706 + .00000, .00002, .00002 /
1707 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1708 + .03873, .00612, .00185, .00002, .00001,
1709 + .00000, .00001, .00002,
1710 + .03526, .00554, .00153, .00001, .00001,
1711 + .00001, .00001, .00002,
1712 + .03227, .00504, .00129, .00002, .00001,
1713 + .00000, .00001, .00002,
1714 + .02970, .00462, .00110, .00001, .00001,
1715 + .00000, .00001, .00002,
1716 + .02743, .00424, .00095, .00000, .00001,
1717 + .00000, .00001, .00002,
1718 + .02543, .00392, .00082, .00001, .00001,
1719 + .00000, .00001, .00002,
1720 + .02367, .00363, .00073, .00001, .00001,
1721 + .00000, .00001, .00001 /
1722 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1723 + .02209, .00338, .00064, .00001, .00001,
1724 + .00000, .00001, .00001,
1725 + .02069, .00315, .00058, .00001, .00001,
1726 + .00000, .00001, .00001,
1727 + .01941, .00295, .00052, .00001, .00001,
1728 + .00000, .00001, .00001,
1729 + .01826, .00277, .00047, .00001, .00001,
1730 + .00000, .00001, .00001,
1731 + .01722, .00260, .00043, .00001, .00001,
1732 + .00000, .00001, .00001 /
1733 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1734 + .05747, .00859, .00626, .00001, .00000,
1735 + .00000, .00000, .00001,
1736 + .04747, .00701, .00402, .00001, .00000,
1737 + .00000, .00000, .00001,
1738 + .04012, .00586, .00274, .00001, .00000,
1739 + .00000, .00001, .00001,
1740 + .03451, .00500, .00196, .00000, .00000,
1741 + .00000, .00000, .00001,
1742 + .03008, .00432, .00146, .00000, .00000,
1743 + .00000, .00000, .00001,
1744 + .02650, .00378, .00112, .00001, .00000,
1745 + .00000, .00001, .00000,
1746 + .02356, .00334, .00088, .00000, .00000,
1747 + .00000, .00000, .00000 /
1748 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1749 + .02111, .00298, .00071, .00000, .00000,
1750 + .00000, .00000, .00001,
1751 + .01905, .00267, .00058, .00000, .00000,
1752 + .00000, .00000, .00000,
1753 + .01729, .00241, .00048, .00000, .00000,
1754 + .00000, .00000, .00000,
1755 + .01577, .00219, .00041, .00000, .00000,
1756 + .00000, .00000, .00000,
1757 + .01446, .00200, .00035, .00000, .00000,
1758 + .00000, .00000, .00000,
1759 + .01331, .00183, .00030, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .01230, .00169, .00027, .00000, .00000,
1762 + .00000, .00000, .00000 /
1763 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1764 + .01141, .00156, .00023, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .01061, .00145, .00021, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .00990, .00135, .00019, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .00926, .00125, .00017, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00869, .00117, .00015, .00000, .00000,
1773 + .00000, .00000, .00000 /
1774 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1775 + .03053, .00401, .00239, .00001, .00000,
1776 + .00000, .00000, .00000,
1777 + .02471, .00321, .00148, .00000, .00000,
1778 + .00000, .00000, .00000,
1779 + .02052, .00264, .00098, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01737, .00222, .00068, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01494, .00189, .00050, .00000, .00000,
1784 + .00000, .00000, .00000,
1785 + .01299, .00164, .00037, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01141, .00143, .00029, .00000, .00000,
1788 + .00000, .00000, .00000 /
1789 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1790 + .01011, .00126, .00023, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00903, .00112, .00019, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00812, .00100, .00015, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00734, .00090, .00013, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00667, .00082, .00011, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00609, .00074, .00009, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00559, .00068, .00008, .00000, .00000,
1803 + .00000, .00000, .00000 /
1804 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1805 + .00514, .00062, .00007, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00475, .00057, .00006, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00440, .00053, .00006, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00409, .00049, .00005, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00382, .00046, .00005, .00000, .00000,
1814 + .00000, .00000, .00000 /
1815 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1816 + .01364, .00154, .00072, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01079, .00121, .00043, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00878, .00098, .00027, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00731, .00081, .00019, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00618, .00068, .00013, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00529, .00058, .00010, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00459, .00050, .00007, .00000, .00000,
1829 + .00000, .00000, .00000 /
1830 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1831 + .00401, .00043, .00006, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00354, .00038, .00005, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00315, .00034, .00004, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00282, .00030, .00003, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00254, .00027, .00003, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00229, .00024, .00002, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00209, .00022, .00002, .00000, .00000,
1844 + .00000, .00000, .00000 /
1845 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1846 + .00190, .00020, .00002, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00174, .00018, .00002, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00160, .00017, .00001, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00148, .00015, .00001, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00137, .00014, .00001, .00000, .00000,
1855 + .00000, .00000, .00000 /
1856 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1857 + .00101, .00008, .00002, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00075, .00006, .00001, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00057, .00004, .00001, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00045, .00003, .00000, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00037, .00003, .00000, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00030, .00002, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00025, .00002, .00000, .00000, .00000,
1870 + .00000, .00000, .00000 /
1871 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1872 + .00021, .00002, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00018, .00001, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00015, .00001, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00013, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00012, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00010, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00009, .00001, .00000, .00000, .00000,
1885 + .00000, .00000, .00000 /
1886 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1887 + .00008, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00007, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00006, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00006, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00005, .00001, .00000, .00000, .00000,
1896 + .00000, .00000, .00000 /
1897 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1898 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1899 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1900 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1901 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1902 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1903 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1904 . .8D0,.9D0,1.D0/
1905 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1906 DATA N0/2,5,5,9,0,0,9,9/
1907 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1908 DATA INIT/0/
1909C
1910 xsave=x
1911C
1912 IF(INIT.NE.0) GOTO 10
1913 INIT=1
1914 DO 20 N=1,NX-1
1915 DO 20 M=1,19
1916C READ(65,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1917C . F(6,N,M),F(8,N,M)
1918C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1919 DO 25 I=1,8
1920 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1921 20 CONTINUE
1922 DO 31 J=1,NTENTH-1
1923 XX(J)= LOG10(XX(J))+ONEDO
1924 DO 31 I=1,8
1925 IF(I.EQ.7) GO TO 31
1926 DO 30 K=1,19
1927 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1928 31 CONTINUE
1929 50 FORMAT(8F10.5)
1930 DO 40 I=1,8
1931 DO 40 M=1,19
1932 40 F(I,NX,M)=ZEROD
1933 10 CONTINUE
1934 IF(X.LT.XMIN) X=XMIN
1935 IF(X.GT.XMAX) X=XMAX
1936 QSQ=SCALE**2
1937 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1938 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1939 XXX=X
1940 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1941 N=0
1942 70 N=N+1
1943 IF(XXX.GT.XX(N+1)) GOTO 70
1944 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1945 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1946 B=RM-AINT(RM)
1947 M=1+ INT(RM)
1948 DO 60 I=1,8
1949 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1950 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1951 IF(N.GE.NTENTH) GOTO 65
1952 IF(I.EQ.7) GOTO 65
1953 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1954 G(I)=FAC**(G(I)/FAC)
1955 65 CONTINUE
1956 G(I)=G(I)*(ONED-X)**N0(I)
1957 60 CONTINUE
1958 UPV=G(1)
1959 DNV=G(2)
1960 USEA=G(4)
1961 DSEA=G(8)
1962 STR=G(6)
1963 CHM=G(5)
1964 GLU=G(3)
1965 BOT=G(7)
1966
1967 x=xsave
1968
1969 RETURN
1970 END