]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsbs0.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsbs0.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:30:25 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 SFMSBS0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE NEW FIT "S0'" WITH UBAR = DBAR (230 MEV)
16
17#include "pdf/impdp.inc"
18 PARAMETER(NX=47)
19 PARAMETER(NTENTH=21)
20 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
21 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
22 + 0.01617, 0.00043, 4.29007, 0.44145, 0.04538,
23 + 0.00000, 0.24629, 0.44523,
24 + 0.01671, 0.00055, 10.96969, 0.61931, 0.22312,
25 + 0.00000, 0.42415, 0.62282,
26 + 0.01720, 0.00066, 19.87027, 0.85311, 0.45682,
27 + 0.00000, 0.65797, 0.85638,
28 + 0.01765, 0.00076, 30.53786, 1.13684, 0.74046,
29 + 0.00000, 0.94171, 1.13989,
30 + 0.01807, 0.00087, 42.94975, 1.46773, 1.07126,
31 + 0.07130, 1.27262, 1.47058,
32 + 0.01847, 0.00097, 56.89287, 1.84230, 1.44576,
33 + 0.40611, 1.64721, 1.84497,
34 + 0.01884, 0.00107, 72.20888, 2.25870, 1.86210,
35 + 0.83810, 2.06364, 2.26120 /
36 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
37 + 0.01919, 0.00117, 88.74004, 2.71380, 2.31713,
38 + 1.30203, 2.51876, 2.71614,
39 + 0.01953, 0.00126, 106.35173, 3.20452, 2.80781,
40 + 1.80186, 3.00951, 3.20672,
41 + 0.01986, 0.00136, 124.94041, 3.72853, 3.33177,
42 + 2.33410, 3.53354, 3.73058,
43 + 0.02017, 0.00145, 144.43050, 4.28397, 3.88717,
44 + 2.89732, 4.08902, 4.28589,
45 + 0.02047, 0.00154, 164.67508, 4.86751, 4.47068,
46 + 3.48814, 4.67259, 4.86931,
47 + 0.02076, 0.00164, 185.36879, 5.47220, 5.07534,
48 + 4.09972, 5.27732, 5.47389,
49 + 0.02105, 0.00173, 206.77844, 6.10353, 5.70665,
50 + 4.73755, 5.90868, 6.10511 /
51 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
52 + 0.02132, 0.00181, 228.74190, 6.75789, 6.36099,
53 + 5.39807, 6.56308, 6.75937,
54 + 0.02158, 0.00190, 250.89102, 7.42630, 7.02939,
55 + 6.07236, 7.23153, 7.42768,
56 + 0.02184, 0.00199, 273.72388, 8.12013, 7.72321,
57 + 6.77177, 7.92540, 8.12142,
58 + 0.02209, 0.00207, 296.51294, 8.82216, 8.42522,
59 + 7.47914, 8.62746, 8.82341,
60 + 0.02234, 0.00216, 319.87012, 9.54651, 9.14956,
61 + 8.20858, 9.35184, 9.54765 /
62 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
63 + 0.02044, 0.00076, 4.15525, 0.43499, 0.04152,
64 + 0.00000, 0.24004, 0.43721,
65 + 0.02116, 0.00094, 9.97353, 0.59330, 0.20000,
66 + 0.00000, 0.39847, 0.59531,
67 + 0.02180, 0.00111, 17.40932, 0.79496, 0.40181,
68 + 0.00000, 0.60024, 0.79679,
69 + 0.02239, 0.00128, 26.05307, 1.03357, 0.64057,
70 + 0.00000, 0.83895, 1.03523,
71 + 0.02294, 0.00145, 35.86687, 1.30602, 0.91315,
72 + 0.05842, 1.11150, 1.30754,
73 + 0.02346, 0.00160, 46.66591, 1.60894, 1.21621,
74 + 0.32968, 1.41453, 1.61033,
75 + 0.02394, 0.00176, 58.31686, 1.94046, 1.54786,
76 + 0.67492, 1.74614, 1.94172 /
77 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
78 + 0.02440, 0.00191, 70.69380, 2.29779, 1.90531,
79 + 1.04033, 2.10357, 2.29894,
80 + 0.02484, 0.00206, 83.69286, 2.67834, 2.28598,
81 + 1.42913, 2.48420, 2.67938,
82 + 0.02527, 0.00220, 97.23682, 3.08012, 2.68789,
83 + 1.83841, 2.88608, 3.08106,
84 + 0.02567, 0.00235, 111.27097, 3.50165, 3.10953,
85 + 2.26700, 3.30770, 3.50249,
86 + 0.02606, 0.00249, 125.68950, 3.94030, 3.54830,
87 + 2.71229, 3.74644, 3.94106,
88 + 0.02643, 0.00262, 140.27441, 4.39086, 3.99898,
89 + 3.16911, 4.19709, 4.39155,
90 + 0.02680, 0.00276, 155.22566, 4.85745, 4.46568,
91 + 3.64162, 4.66376, 4.85805 /
92 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
93 + 0.02715, 0.00289, 170.42952, 5.33739, 4.94573,
94 + 4.12717, 5.14378, 5.33791,
95 + 0.02749, 0.00302, 185.62794, 5.82406, 5.43251,
96 + 4.61919, 5.63053, 5.82452,
97 + 0.02782, 0.00315, 201.18080, 6.32589, 5.93445,
98 + 5.12611, 6.13245, 6.32628,
99 + 0.02814, 0.00328, 216.57881, 6.83031, 6.43898,
100 + 5.63539, 6.63695, 6.83065,
101 + 0.02845, 0.00340, 232.25766, 7.34768, 6.95646,
102 + 6.15741, 7.15440, 7.34797 /
103 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
104 + 0.02575, 0.00132, 4.02437, 0.42807, 0.03775,
105 + 0.00000, 0.23383, 0.42912,
106 + 0.02668, 0.00161, 9.06631, 0.56800, 0.17817,
107 + 0.00000, 0.37402, 0.56893,
108 + 0.02752, 0.00189, 15.24934, 0.74075, 0.35135,
109 + 0.00000, 0.54700, 0.74156,
110 + 0.02830, 0.00216, 22.21999, 0.94009, 0.55110,
111 + 0.00000, 0.74656, 0.94081,
112 + 0.02901, 0.00241, 29.94127, 1.16300, 0.77438,
113 + 0.04760, 0.96967, 1.16363,
114 + 0.02967, 0.00266, 38.26198, 1.40646, 1.01820,
115 + 0.26617, 1.21333, 1.40701,
116 + 0.03030, 0.00290, 47.07710, 1.66879, 1.28086,
117 + 0.54061, 1.47584, 1.66926 /
118 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
119 + 0.03089, 0.00313, 56.29138, 1.94768, 1.56006,
120 + 0.82692, 1.75490, 1.94808,
121 + 0.03146, 0.00335, 65.82938, 2.24101, 1.85370,
122 + 1.12776, 2.04840, 2.24135,
123 + 0.03200, 0.00358, 75.63731, 2.54724, 2.16023,
124 + 1.44084, 2.35479, 2.54752,
125 + 0.03252, 0.00379, 85.67871, 2.86522, 2.47850,
126 + 1.76527, 2.67293, 2.86545,
127 + 0.03302, 0.00400, 95.88033, 3.19300, 2.80655,
128 + 2.09910, 3.00086, 3.19316,
129 + 0.03350, 0.00421, 106.08917, 3.52670, 3.14052,
130 + 2.43852, 3.33471, 3.52682,
131 + 0.03396, 0.00441, 116.45706, 3.86944, 3.48352,
132 + 2.78668, 3.67759, 3.86952 /
133 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
134 + 0.03441, 0.00461, 126.90576, 4.21930, 3.83364,
135 + 3.14167, 4.02759, 4.21934,
136 + 0.03484, 0.00480, 137.25620, 4.57147, 4.18605,
137 + 3.49873, 4.37990, 4.57146,
138 + 0.03526, 0.00500, 147.76971, 4.93218, 4.54701,
139 + 3.86410, 4.74075, 4.93214,
140 + 0.03567, 0.00518, 158.09094, 5.29236, 4.90742,
141 + 4.22873, 5.10105, 5.29228,
142 + 0.03606, 0.00537, 168.53088, 5.65957, 5.27486,
143 + 4.60020, 5.46839, 5.65946 /
144 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
145 + 0.02941, 0.00183, 3.94949, 0.42374, 0.03559,
146 + 0.00000, 0.23020, 0.42431,
147 + 0.03050, 0.00221, 8.57318, 0.55344, 0.16597,
148 + 0.00000, 0.36025, 0.55393,
149 + 0.03148, 0.00258, 14.10938, 0.71066, 0.32380,
150 + 0.00000, 0.51778, 0.71107,
151 + 0.03237, 0.00292, 20.23964, 0.88946, 0.50316,
152 + 0.00000, 0.69687, 0.88981,
153 + 0.03320, 0.00325, 26.93188, 1.08699, 0.70121,
154 + 0.04209, 0.89467, 1.08729,
155 + 0.03396, 0.00357, 34.05507, 1.30051, 0.91522,
156 + 0.23417, 1.10844, 1.30076,
157 + 0.03469, 0.00388, 41.52043, 1.52850, 1.14368,
158 + 0.47344, 1.33668, 1.52870 /
159 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
160 + 0.03538, 0.00417, 49.24931, 1.76894, 1.38456,
161 + 0.72097, 1.57735, 1.76910,
162 + 0.03603, 0.00446, 57.18089, 2.02001, 1.63606,
163 + 0.97916, 1.82864, 2.02014,
164 + 0.03665, 0.00474, 65.27330, 2.28041, 1.89686,
165 + 1.24606, 2.08925, 2.28050,
166 + 0.03725, 0.00502, 73.49934, 2.54917, 2.16600,
167 + 1.52094, 2.35820, 2.54922,
168 + 0.03783, 0.00529, 81.80083, 2.82466, 2.44187,
169 + 1.80219, 2.63389, 2.82468,
170 + 0.03838, 0.00555, 90.05473, 3.10367, 2.72124,
171 + 2.08664, 2.91309, 3.10366,
172 + 0.03891, 0.00580, 98.39052, 3.38887, 3.00679,
173 + 2.37699, 3.19847, 3.38883 /
174 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
175 + 0.03942, 0.00605, 106.74629, 3.67867, 3.29694,
176 + 2.67168, 3.48845, 3.67861,
177 + 0.03992, 0.00630, 114.97829, 3.96912, 3.58773,
178 + 2.96679, 3.77908, 3.96905,
179 + 0.04040, 0.00654, 123.30289, 4.26547, 3.88439,
180 + 3.26757, 4.07559, 4.26536,
181 + 0.04087, 0.00677, 131.43361, 4.56018, 4.17942,
182 + 3.56652, 4.37047, 4.56006,
183 + 0.04132, 0.00700, 139.62538, 4.85961, 4.47916,
184 + 3.87001, 4.67006, 4.85947 /
185 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
186 + 0.03229, 0.00231, 3.89704, 0.42051, 0.03407,
187 + 0.00000, 0.22762, 0.42084,
188 + 0.03350, 0.00277, 8.23885, 0.54318, 0.15756,
189 + 0.00000, 0.35070, 0.54345,
190 + 0.03458, 0.00321, 13.35069, 0.68995, 0.30507,
191 + 0.00000, 0.49784, 0.69017,
192 + 0.03557, 0.00362, 18.93910, 0.85517, 0.47098,
193 + 0.00000, 0.66341, 0.85536,
194 + 0.03649, 0.00402, 24.97672, 1.03614, 0.65258,
195 + 0.03852, 0.84470, 1.03629,
196 + 0.03734, 0.00440, 31.34653, 1.23034, 0.84737,
197 + 0.21350, 1.03920, 1.23046,
198 + 0.03814, 0.00477, 37.97078, 1.43638, 1.05396,
199 + 0.43028, 1.24552, 1.43647 /
200 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
201 + 0.03890, 0.00512, 44.78175, 1.65243, 1.27055,
202 + 0.65319, 1.46184, 1.65250,
203 + 0.03962, 0.00546, 51.72809, 1.87688, 1.49551,
204 + 0.88451, 1.68655, 1.87693,
205 + 0.04031, 0.00580, 58.77548, 2.10858, 1.72769,
206 + 1.12249, 1.91850, 2.10861,
207 + 0.04097, 0.00612, 65.90230, 2.34669, 1.96627,
208 + 1.36652, 2.15685, 2.34670,
209 + 0.04160, 0.00644, 73.05998, 2.58980, 2.20983,
210 + 1.61519, 2.40019, 2.58980,
211 + 0.04221, 0.00675, 80.14357, 2.83511, 2.45557,
212 + 1.86575, 2.64571, 2.83509,
213 + 0.04280, 0.00705, 87.26857, 3.08500, 2.70588,
214 + 2.12062, 2.89582, 3.08496 /
215 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
216 + 0.04336, 0.00734, 94.38304, 3.33811, 2.95939,
217 + 2.37844, 3.14913, 3.33805,
218 + 0.04391, 0.00763, 101.36421, 3.59099, 3.21267,
219 + 2.63584, 3.40222, 3.59093,
220 + 0.04444, 0.00791, 108.40167, 3.84828, 3.47035,
221 + 2.89741, 3.65971, 3.84821,
222 + 0.04496, 0.00819, 115.24945, 4.10343, 3.72587,
223 + 3.15667, 3.91505, 4.10335,
224 + 0.04545, 0.00846, 122.12920, 4.36202, 3.98482,
225 + 3.41918, 4.17382, 4.36193 /
226 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
227 + 0.03470, 0.00276, 3.85671, 0.41791, 0.03290,
228 + 0.00000, 0.22560, 0.41809,
229 + 0.03600, 0.00330, 7.98792, 0.53524, 0.15118,
230 + 0.00000, 0.34340, 0.53539,
231 + 0.03717, 0.00381, 12.78898, 0.67423, 0.29101,
232 + 0.00000, 0.48281, 0.67435,
233 + 0.03824, 0.00428, 17.98566, 0.82945, 0.44701,
234 + 0.00000, 0.63843, 0.82955,
235 + 0.03923, 0.00474, 23.55469, 0.99835, 0.61663,
236 + 0.03592, 0.80769, 0.99843,
237 + 0.04015, 0.00517, 29.38963, 1.17857, 0.79752,
238 + 0.19855, 0.98825, 1.17864,
239 + 0.04102, 0.00559, 35.42102, 1.36884, 0.98842,
240 + 0.39916, 1.17884, 1.36889 /
241 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
242 + 0.04184, 0.00600, 41.58891, 1.56747, 1.18766,
243 + 0.60449, 1.37778, 1.56752,
244 + 0.04262, 0.00639, 47.84892, 1.77301, 1.39377,
245 + 0.81671, 1.58360, 1.77304,
246 + 0.04336, 0.00677, 54.17197, 1.98441, 1.60572,
247 + 1.03422, 1.79528, 1.98444,
248 + 0.04407, 0.00714, 60.54033, 2.20094, 1.82278,
249 + 1.25652, 2.01208, 2.20096,
250 + 0.04475, 0.00750, 66.91216, 2.42134, 2.04369,
251 + 1.48234, 2.23273, 2.42135,
252 + 0.04541, 0.00785, 73.19493, 2.64308, 2.26592,
253 + 1.70920, 2.45472, 2.64309,
254 + 0.04604, 0.00819, 79.49432, 2.86836, 2.49168,
255 + 1.93933, 2.68024, 2.86836 /
256 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
257 + 0.04665, 0.00853, 85.76529, 3.09598, 2.71975,
258 + 2.17155, 2.90809, 3.09597,
259 + 0.04724, 0.00885, 91.89941, 3.32285, 2.94706,
260 + 2.40281, 3.13518, 3.32284,
261 + 0.04781, 0.00917, 98.06761, 3.55316, 3.17780,
262 + 2.63730, 3.36571, 3.55315,
263 + 0.04837, 0.00948, 104.05170, 3.78104, 3.40611,
264 + 2.86919, 3.59381, 3.78103,
265 + 0.04890, 0.00978, 110.05058, 4.01155, 3.63702,
266 + 3.10353, 3.82452, 4.01153 /
267 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
268 + 0.04319, 0.00481, 3.73301, 0.40917, 0.02934,
269 + 0.00000, 0.21920, 0.40913,
270 + 0.04484, 0.00566, 7.25156, 0.51059, 0.13209,
271 + 0.00000, 0.32129, 0.51057,
272 + 0.04632, 0.00645, 11.17987, 0.62704, 0.24974,
273 + 0.00000, 0.43834, 0.62704,
274 + 0.04768, 0.00719, 15.30139, 0.75396, 0.37776,
275 + 0.00000, 0.56582, 0.75399,
276 + 0.04893, 0.00789, 19.60672, 0.88928, 0.51408,
277 + 0.02874, 0.70164, 0.88933,
278 + 0.05009, 0.00855, 24.02007, 1.03116, 0.65691,
279 + 0.15752, 0.84400, 1.03124,
280 + 0.05118, 0.00919, 28.49510, 1.17867, 0.80531,
281 + 0.31428, 0.99195, 1.17877 /
282 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
283 + 0.05222, 0.00980, 32.99355, 1.33058, 0.95805,
284 + 0.47242, 1.14428, 1.33069,
285 + 0.05320, 0.01039, 37.48895, 1.48582, 1.11409,
286 + 0.63383, 1.29992, 1.48595,
287 + 0.05414, 0.01096, 41.96594, 1.64368, 1.27273,
288 + 0.79737, 1.45817, 1.64384,
289 + 0.05503, 0.01151, 46.41725, 1.80370, 1.43348,
290 + 0.96273, 1.61855, 1.80387,
291 + 0.05589, 0.01204, 50.81726, 1.96501, 1.59549,
292 + 1.12906, 1.78021, 1.96520,
293 + 0.05672, 0.01256, 55.10451, 2.12584, 1.75699,
294 + 1.29465, 1.94138, 2.12604,
295 + 0.05751, 0.01306, 59.35997, 2.28787, 1.91967,
296 + 1.46118, 2.10373, 2.28808 /
297 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
298 + 0.05827, 0.01355, 63.55490, 2.45029, 2.08273,
299 + 1.62788, 2.26647, 2.45052,
300 + 0.05901, 0.01402, 67.61636, 2.61094, 2.24398,
301 + 1.79261, 2.42742, 2.61118,
302 + 0.05973, 0.01448, 71.66826, 2.77291, 2.40654,
303 + 1.95847, 2.58969, 2.77317,
304 + 0.06042, 0.01493, 75.56110, 2.93205, 2.56626,
305 + 2.12134, 2.74912, 2.93233,
306 + 0.06109, 0.01537, 79.43605, 3.09204, 2.72681,
307 + 2.28489, 2.90938, 3.09233 /
308 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
309 + 0.05340, 0.00837, 3.61060, 0.39906, 0.02587,
310 + 0.00000, 0.21238, 0.39904,
311 + 0.05547, 0.00969, 6.57201, 0.48553, 0.11411,
312 + 0.00000, 0.29975, 0.48556,
313 + 0.05733, 0.01091, 9.74883, 0.58177, 0.21193,
314 + 0.00000, 0.39679, 0.58183,
315 + 0.05903, 0.01204, 12.97729, 0.68414, 0.31575,
316 + 0.00000, 0.49989, 0.68424,
317 + 0.06059, 0.01310, 16.26187, 0.79108, 0.42403,
318 + 0.02274, 0.60751, 0.79122,
319 + 0.06204, 0.01410, 19.55322, 0.90127, 0.53546,
320 + 0.12360, 0.71833, 0.90145,
321 + 0.06341, 0.01505, 22.82423, 1.01407, 0.64944,
322 + 0.24474, 0.83172, 1.01428 /
323 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
324 + 0.06471, 0.01596, 26.05367, 1.12863, 0.76511,
325 + 0.36517, 0.94684, 1.12887,
326 + 0.06594, 0.01684, 29.22864, 1.24424, 0.88177,
327 + 0.48654, 1.06298, 1.24451,
328 + 0.06711, 0.01767, 32.34377, 1.36046, 0.99899,
329 + 0.60806, 1.17970, 1.36075,
330 + 0.06823, 0.01848, 35.39905, 1.47701, 1.11651,
331 + 0.72962, 1.29674, 1.47733,
332 + 0.06931, 0.01926, 38.38046, 1.59335, 1.23376,
333 + 0.85067, 1.41354, 1.59369,
334 + 0.07034, 0.02001, 41.24855, 1.70825, 1.34955,
335 + 0.97003, 1.52888, 1.70862,
336 + 0.07133, 0.02074, 44.06503, 1.82302, 1.46517,
337 + 1.08903, 1.64408, 1.82341 /
338 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
339 + 0.07228, 0.02144, 46.81233, 1.93714, 1.58011,
340 + 1.20716, 1.75861, 1.93755,
341 + 0.07321, 0.02212, 49.44273, 2.04911, 1.69288,
342 + 1.32297, 1.87097, 2.04954,
343 + 0.07410, 0.02279, 52.04507, 2.16122, 1.80575,
344 + 1.43873, 1.98347, 2.16166,
345 + 0.07496, 0.02343, 54.51849, 2.27055, 1.91582,
346 + 1.55156, 2.09316, 2.27101,
347 + 0.07580, 0.02406, 56.96199, 2.37977, 2.02577,
348 + 1.66414, 2.20275, 2.38025 /
349 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
350 + 0.06029, 0.01156, 3.53868, 0.39225, 0.02388,
351 + 0.00000, 0.20803, 0.39226,
352 + 0.06264, 0.01325, 6.19576, 0.47040, 0.10409,
353 + 0.00000, 0.28723, 0.47045,
354 + 0.06476, 0.01481, 8.97954, 0.55578, 0.19132,
355 + 0.00000, 0.37355, 0.55587,
356 + 0.06670, 0.01625, 11.75466, 0.64532, 0.28255,
357 + 0.00000, 0.46394, 0.64544,
358 + 0.06848, 0.01759, 14.53299, 0.73774, 0.37652,
359 + 0.01969, 0.55715, 0.73789,
360 + 0.07014, 0.01885, 17.27850, 0.83198, 0.47220,
361 + 0.10654, 0.65212, 0.83216,
362 + 0.07170, 0.02005, 19.97362, 0.92757, 0.56915,
363 + 0.21002, 0.74839, 0.92777 /
364 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
365 + 0.07317, 0.02119, 22.60497, 1.02384, 0.66671,
366 + 0.31199, 0.84531, 1.02407,
367 + 0.07457, 0.02227, 25.16585, 1.12027, 0.76435,
368 + 0.41398, 0.94235, 1.12051,
369 + 0.07591, 0.02331, 27.65526, 1.21653, 0.86177,
370 + 0.51538, 1.03919, 1.21679,
371 + 0.07718, 0.02432, 30.07607, 1.31244, 0.95879,
372 + 0.61614, 1.13567, 1.31273,
373 + 0.07841, 0.02528, 32.41937, 1.40761, 1.05502,
374 + 0.71586, 1.23136, 1.40791,
375 + 0.07958, 0.02620, 34.65535, 1.50106, 1.14949,
376 + 0.81364, 1.32533, 1.50138,
377 + 0.08071, 0.02710, 36.83626, 1.59392, 1.24333,
378 + 0.91060, 1.41868, 1.59426 /
379 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
380 + 0.08179, 0.02796, 38.94960, 1.68579, 1.33615,
381 + 1.00637, 1.51103, 1.68615,
382 + 0.08284, 0.02879, 40.95848, 1.77549, 1.42676,
383 + 1.09978, 1.60119, 1.77586,
384 + 0.08385, 0.02961, 42.93570, 1.86493, 1.51708,
385 + 1.19277, 1.69106, 1.86531,
386 + 0.08484, 0.03039, 44.80157, 1.95174, 1.60474,
387 + 1.28298, 1.77830, 1.95214,
388 + 0.08579, 0.03115, 46.63640, 2.03814, 1.69197,
389 + 1.37264, 1.86512, 2.03855 /
390 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
391 + 0.06567, 0.01451, 3.48702, 0.38686, 0.02249,
392 + 0.00000, 0.20468, 0.38687,
393 + 0.06825, 0.01653, 5.93614, 0.45929, 0.09721,
394 + 0.00000, 0.27827, 0.45933,
395 + 0.07057, 0.01838, 8.45852, 0.53738, 0.17736,
396 + 0.00000, 0.35741, 0.53744,
397 + 0.07270, 0.02007, 10.93790, 0.61843, 0.26028,
398 + 0.00000, 0.43941, 0.61851,
399 + 0.07466, 0.02165, 13.39093, 0.70136, 0.34494,
400 + 0.01772, 0.52321, 0.70147,
401 + 0.07648, 0.02313, 15.79024, 0.78529, 0.43046,
402 + 0.09552, 0.60795, 0.78541,
403 + 0.07819, 0.02452, 18.12395, 0.86985, 0.51653,
404 + 0.18770, 0.69327, 0.86999 /
405 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
406 + 0.07981, 0.02585, 20.38364, 0.95450, 0.60260,
407 + 0.27795, 0.77864, 0.95465,
408 + 0.08135, 0.02712, 22.56622, 1.03882, 0.68826,
409 + 0.36771, 0.86363, 1.03898,
410 + 0.08281, 0.02832, 24.67316, 1.12256, 0.77328,
411 + 0.45649, 0.94802, 1.12274,
412 + 0.08421, 0.02948, 26.70900, 1.20561, 0.85755,
413 + 0.54429, 1.03168, 1.20580,
414 + 0.08555, 0.03059, 28.66769, 1.28764, 0.94075,
415 + 0.63080, 1.11430, 1.28784,
416 + 0.08684, 0.03166, 30.52516, 1.36785, 1.02209,
417 + 0.71525, 1.19508, 1.36806,
418 + 0.08808, 0.03269, 32.32776, 1.44725, 1.10257,
419 + 0.79868, 1.27502, 1.44748 /
420 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
421 + 0.08927, 0.03368, 34.06572, 1.52553, 1.18189,
422 + 0.88078, 1.35382, 1.52576,
423 + 0.09042, 0.03463, 35.70857, 1.60166, 1.25903,
424 + 0.96057, 1.43046, 1.60191,
425 + 0.09153, 0.03556, 37.31926, 1.67734, 1.33567,
426 + 1.03973, 1.50663, 1.67759,
427 + 0.09260, 0.03646, 38.83084, 1.75054, 1.40982,
428 + 1.11628, 1.58030, 1.75081,
429 + 0.09364, 0.03733, 40.31206, 1.82320, 1.48338,
430 + 1.19213, 1.65341, 1.82346 /
431 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
432 + 0.07032, 0.01730, 3.44586, 0.38199, 0.02144,
433 + 0.00000, 0.20172, 0.38205,
434 + 0.07312, 0.01960, 5.73444, 0.45009, 0.09204,
435 + 0.00000, 0.27109, 0.45018,
436 + 0.07564, 0.02169, 8.05824, 0.52273, 0.16693,
437 + 0.00000, 0.34487, 0.52285,
438 + 0.07794, 0.02361, 10.31600, 0.59748, 0.24373,
439 + 0.00000, 0.42065, 0.59763,
440 + 0.08005, 0.02539, 12.52815, 0.67342, 0.32154,
441 + 0.01627, 0.49754, 0.67359,
442 + 0.08203, 0.02705, 14.67377, 0.74980, 0.39967,
443 + 0.08748, 0.57480, 0.75000,
444 + 0.08388, 0.02861, 16.74510, 0.82631, 0.47781,
445 + 0.17143, 0.65214, 0.82653 /
446 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
447 + 0.08563, 0.03010, 18.73683, 0.90252, 0.55556,
448 + 0.25319, 0.72912, 0.90275,
449 + 0.08729, 0.03151, 20.64867, 0.97808, 0.63259,
450 + 0.33414, 0.80542, 0.97834,
451 + 0.08887, 0.03286, 22.48331, 1.05281, 0.70871,
452 + 0.41384, 0.88085, 1.05308,
453 + 0.09038, 0.03415, 24.24609, 1.12661, 0.78384,
454 + 0.49234, 0.95532, 1.12689,
455 + 0.09182, 0.03538, 25.93327, 1.19926, 0.85776,
456 + 0.56942, 1.02861, 1.19956,
457 + 0.09321, 0.03656, 27.52582, 1.27003, 0.92975,
458 + 0.64439, 1.09999, 1.27035,
459 + 0.09455, 0.03770, 29.06483, 1.33986, 1.00075,
460 + 0.71820, 1.17041, 1.34019 /
461 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
462 + 0.09583, 0.03879, 30.54247, 1.40849, 1.07050,
463 + 0.79061, 1.23960, 1.40882,
464 + 0.09707, 0.03985, 31.93173, 1.47504, 1.13814,
465 + 0.86079, 1.30670, 1.47539,
466 + 0.09826, 0.04087, 33.28932, 1.54104, 1.20518,
467 + 0.93022, 1.37322, 1.54139,
468 + 0.09942, 0.04185, 34.55812, 1.60469, 1.26984,
469 + 0.99719, 1.43738, 1.60505,
470 + 0.10054, 0.04281, 35.79784, 1.66771, 1.33385,
471 + 1.06338, 1.50089, 1.66809 /
472 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
473 + 0.08681, 0.02970, 3.31354, 0.36454, 0.01825,
474 + 0.00000, 0.19141, 0.36456,
475 + 0.09043, 0.03307, 5.13062, 0.41974, 0.07671,
476 + 0.00000, 0.24826, 0.41979,
477 + 0.09368, 0.03610, 6.89413, 0.47667, 0.13654,
478 + 0.00000, 0.30666, 0.47673,
479 + 0.09664, 0.03884, 8.54430, 0.53365, 0.19615,
480 + 0.00000, 0.36496, 0.53374,
481 + 0.09936, 0.04136, 10.11025, 0.59021, 0.25511,
482 + 0.01230, 0.42274, 0.59031,
483 + 0.10190, 0.04369, 11.58706, 0.64595, 0.31308,
484 + 0.06555, 0.47961, 0.64607,
485 + 0.10427, 0.04587, 12.97707, 0.70078, 0.37000,
486 + 0.12737, 0.53549, 0.70092 /
487 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
488 + 0.10651, 0.04792, 14.28305, 0.75450, 0.42568,
489 + 0.18654, 0.59019, 0.75465,
490 + 0.10863, 0.04986, 15.51007, 0.80696, 0.48000,
491 + 0.24425, 0.64359, 0.80713,
492 + 0.11065, 0.05169, 16.66443, 0.85812, 0.53292,
493 + 0.30027, 0.69564, 0.85830,
494 + 0.11258, 0.05343, 17.75340, 0.90800, 0.58447,
495 + 0.35474, 0.74636, 0.90819,
496 + 0.11441, 0.05509, 18.77751, 0.95651, 0.63458,
497 + 0.40758, 0.79567, 0.95671,
498 + 0.11617, 0.05667, 19.72649, 1.00321, 0.68281,
499 + 0.45838, 0.84314, 1.00341,
500 + 0.11786, 0.05818, 20.63014, 1.04880, 0.72987,
501 + 0.50786, 0.88947, 1.04901 /
502 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
503 + 0.11948, 0.05963, 21.48483, 1.09316, 0.77563,
504 + 0.55592, 0.93453, 1.09338,
505 + 0.12104, 0.06101, 22.27466, 1.13573, 0.81956,
506 + 0.60203, 0.97778, 1.13596,
507 + 0.12255, 0.06235, 23.03784, 1.17759, 0.86272,
508 + 0.64727, 1.02030, 1.17782,
509 + 0.12400, 0.06363, 23.73854, 1.21756, 0.90395,
510 + 0.69048, 1.06090, 1.21780,
511 + 0.12541, 0.06487, 24.41621, 1.25684, 0.94445,
512 + 0.73287, 1.10079, 1.25709 /
513 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
514 + 0.10805, 0.05037, 3.16801, 0.34141, 0.01521,
515 + 0.00002, 0.17832, 0.34146,
516 + 0.11285, 0.05507, 4.54812, 0.38458, 0.06251,
517 + 0.00002, 0.22358, 0.38466,
518 + 0.11716, 0.05923, 5.82263, 0.42748, 0.10910,
519 + 0.00001, 0.26834, 0.42759,
520 + 0.12106, 0.06295, 6.96601, 0.46912, 0.15405,
521 + 0.00002, 0.31165, 0.46926,
522 + 0.12464, 0.06632, 8.01228, 0.50941, 0.19736,
523 + 0.00905, 0.35346, 0.50957,
524 + 0.12794, 0.06940, 8.96691, 0.54822, 0.23895,
525 + 0.04768, 0.39367, 0.54840,
526 + 0.13103, 0.07226, 9.83846, 0.58560, 0.27893,
527 + 0.09177, 0.43236, 0.58579 /
528 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
529 + 0.13394, 0.07492, 10.63628, 0.62156, 0.31732,
530 + 0.13317, 0.46954, 0.62176,
531 + 0.13668, 0.07741, 11.36589, 0.65607, 0.35412,
532 + 0.17288, 0.50520, 0.65628,
533 + 0.13927, 0.07974, 12.03519, 0.68919, 0.38941,
534 + 0.21083, 0.53940, 0.68940,
535 + 0.14173, 0.08194, 12.65259, 0.72099, 0.42327,
536 + 0.24719, 0.57224, 0.72121,
537 + 0.14407, 0.08403, 13.22074, 0.75146, 0.45568,
538 + 0.28195, 0.60369, 0.75168,
539 + 0.14631, 0.08598, 13.73528, 0.78040, 0.48649,
540 + 0.31496, 0.63357, 0.78063,
541 + 0.14845, 0.08784, 14.21533, 0.80833, 0.51621,
542 + 0.34675, 0.66240, 0.80858 /
543 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
544 + 0.15050, 0.08962, 14.65937, 0.83520, 0.54478,
545 + 0.37729, 0.69012, 0.83546,
546 + 0.15246, 0.09131, 15.06073, 0.86062, 0.57184,
547 + 0.40621, 0.71636, 0.86087,
548 + 0.15434, 0.09293, 15.44333, 0.88537, 0.59817,
549 + 0.43431, 0.74190, 0.88562,
550 + 0.15616, 0.09447, 15.78525, 0.90874, 0.62305,
551 + 0.46089, 0.76603, 0.90899,
552 + 0.15791, 0.09595, 16.11134, 0.93149, 0.64728,
553 + 0.48672, 0.78952, 0.93175 /
554 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
555 + 0.12366, 0.06804, 3.07186, 0.32476, 0.01349,
556 + 0.00001, 0.16913, 0.32477,
557 + 0.12941, 0.07356, 4.21376, 0.36128, 0.05469,
558 + 0.00003, 0.20801, 0.36133,
559 + 0.13453, 0.07840, 5.23497, 0.39672, 0.09429,
560 + 0.00001, 0.24554, 0.39680,
561 + 0.13915, 0.08267, 6.12600, 0.43046, 0.13175,
562 + 0.00003, 0.28116, 0.43054,
563 + 0.14335, 0.08652, 6.92145, 0.46254, 0.16722,
564 + 0.00743, 0.31495, 0.46264,
565 + 0.14724, 0.09001, 7.63109, 0.49297, 0.20077,
566 + 0.03887, 0.34695, 0.49309,
567 + 0.15085, 0.09321, 8.26689, 0.52189, 0.23258,
568 + 0.07437, 0.37732, 0.52202 /
569 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
570 + 0.15423, 0.09619, 8.83561, 0.54935, 0.26275,
571 + 0.10729, 0.40614, 0.54948,
572 + 0.15741, 0.09894, 9.34709, 0.57539, 0.29134,
573 + 0.13852, 0.43346, 0.57553,
574 + 0.16041, 0.10151, 9.80844, 0.60012, 0.31848,
575 + 0.16808, 0.45940, 0.60026,
576 + 0.16325, 0.10393, 10.22624, 0.62365, 0.34428,
577 + 0.19616, 0.48407, 0.62379,
578 + 0.16593, 0.10619, 10.60383, 0.64597, 0.36877,
579 + 0.22278, 0.50748, 0.64614,
580 + 0.16848, 0.10831, 10.93835, 0.66693, 0.39178,
581 + 0.24780, 0.52947, 0.66710,
582 + 0.17092, 0.11031, 11.24630, 0.68700, 0.41381,
583 + 0.27170, 0.55051, 0.68716 /
584 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
585 + 0.17324, 0.11221, 11.52735, 0.70614, 0.43483,
586 + 0.29450, 0.57060, 0.70631,
587 + 0.17546, 0.11400, 11.77610, 0.72410, 0.45459,
588 + 0.31595, 0.58945, 0.72428,
589 + 0.17760, 0.11572, 12.01053, 0.74148, 0.47370,
590 + 0.33667, 0.60770, 0.74167,
591 + 0.17963, 0.11734, 12.21411, 0.75770, 0.49159,
592 + 0.35608, 0.62475, 0.75789,
593 + 0.18160, 0.11890, 12.40637, 0.77341, 0.50890,
594 + 0.37485, 0.64127, 0.77360 /
595 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
596 + 0.13690, 0.08377, 2.99614, 0.31124, 0.01229,
597 + 0.00001, 0.16177, 0.31128,
598 + 0.14344, 0.08982, 3.97682, 0.34321, 0.04934,
599 + 0.00002, 0.19630, 0.34329,
600 + 0.14924, 0.09509, 4.83251, 0.37369, 0.08430,
601 + 0.00001, 0.22904, 0.37380,
602 + 0.15445, 0.09970, 5.56287, 0.40225, 0.11688,
603 + 0.00003, 0.25962, 0.40237,
604 + 0.15918, 0.10382, 6.20227, 0.42906, 0.14732,
605 + 0.00640, 0.28826, 0.42919,
606 + 0.16352, 0.10753, 6.76239, 0.45419, 0.17580,
607 + 0.03328, 0.31506, 0.45433,
608 + 0.16755, 0.11092, 7.25574, 0.47780, 0.20251,
609 + 0.06340, 0.34023, 0.47796 /
610 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
611 + 0.17129, 0.11404, 7.68960, 0.50000, 0.22761,
612 + 0.09107, 0.36388, 0.50015,
613 + 0.17481, 0.11692, 8.07348, 0.52085, 0.25118,
614 + 0.11709, 0.38610, 0.52101,
615 + 0.17812, 0.11959, 8.41432, 0.54048, 0.27337,
616 + 0.14155, 0.40701, 0.54064,
617 + 0.18124, 0.12208, 8.71826, 0.55900, 0.29431,
618 + 0.16461, 0.42675, 0.55916,
619 + 0.18417, 0.12441, 8.98860, 0.57644, 0.31405,
620 + 0.18633, 0.44534, 0.57661,
621 + 0.18696, 0.12657, 9.22349, 0.59267, 0.33246,
622 + 0.20660, 0.46266, 0.59284,
623 + 0.18961, 0.12861, 9.43674, 0.60809, 0.34997,
624 + 0.22585, 0.47913, 0.60827 /
625 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
626 + 0.19213, 0.13054, 9.62837, 0.62272, 0.36658,
627 + 0.24411, 0.49474, 0.62289,
628 + 0.19453, 0.13234, 9.79422, 0.63631, 0.38208,
629 + 0.26118, 0.50929, 0.63650,
630 + 0.19684, 0.13406, 9.94882, 0.64941, 0.39701,
631 + 0.27759, 0.52330, 0.64961,
632 + 0.19903, 0.13568, 10.07921, 0.66153, 0.41088,
633 + 0.29288, 0.53629, 0.66172,
634 + 0.20114, 0.13723, 10.20098, 0.67321, 0.42425,
635 + 0.30760, 0.54882, 0.67339 /
636 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
637 + 0.14876, 0.09806, 2.93193, 0.29978, 0.01138,
638 + 0.00003, 0.15559, 0.29985,
639 + 0.15599, 0.10446, 3.79241, 0.32833, 0.04530,
640 + 0.00003, 0.18685, 0.32841,
641 + 0.16239, 0.10998, 4.52823, 0.35515, 0.07686,
642 + 0.00004, 0.21605, 0.35528,
643 + 0.16808, 0.11479, 5.14390, 0.37995, 0.10588,
644 + 0.00004, 0.24296, 0.38006,
645 + 0.17325, 0.11904, 5.67441, 0.40296, 0.13273,
646 + 0.00567, 0.26790, 0.40308,
647 + 0.17798, 0.12287, 6.13175, 0.42431, 0.15760,
648 + 0.02933, 0.29102, 0.42446,
649 + 0.18233, 0.12635, 6.52844, 0.44421, 0.18075,
650 + 0.05567, 0.31255, 0.44437 /
651 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
652 + 0.18638, 0.12951, 6.87192, 0.46275, 0.20232,
653 + 0.07967, 0.33261, 0.46292,
654 + 0.19018, 0.13241, 7.17072, 0.48001, 0.22242,
655 + 0.10209, 0.35130, 0.48019,
656 + 0.19372, 0.13509, 7.43224, 0.49612, 0.24121,
657 + 0.12301, 0.36876, 0.49630,
658 + 0.19704, 0.13759, 7.66248, 0.51122, 0.25883,
659 + 0.14262, 0.38511, 0.51138,
660 + 0.20015, 0.13992, 7.86430, 0.52533, 0.27533,
661 + 0.16099, 0.40042, 0.52548,
662 + 0.20312, 0.14205, 8.03505, 0.53837, 0.29064,
663 + 0.17804, 0.41459, 0.53853,
664 + 0.20594, 0.14407, 8.18813, 0.55068, 0.30512,
665 + 0.19417, 0.42799, 0.55085 /
666 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
667 + 0.20860, 0.14596, 8.32394, 0.56228, 0.31878,
668 + 0.20939, 0.44062, 0.56243,
669 + 0.21113, 0.14773, 8.43829, 0.57299, 0.33146,
670 + 0.22355, 0.45231, 0.57314,
671 + 0.21356, 0.14941, 8.54348, 0.58325, 0.34362,
672 + 0.23710, 0.46352, 0.58342,
673 + 0.21585, 0.15097, 8.62821, 0.59264, 0.35484,
674 + 0.24965, 0.47383, 0.59281,
675 + 0.21807, 0.15247, 8.70650, 0.60166, 0.36562,
676 + 0.26169, 0.48374, 0.60184 /
677 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
678 + 0.19893, 0.15544, 2.68535, 0.25861, 0.00859,
679 + 0.00002, 0.13359, 0.25863,
680 + 0.20861, 0.16209, 3.20192, 0.27716, 0.03331,
681 + 0.00003, 0.15523, 0.27716,
682 + 0.21699, 0.16764, 3.61007, 0.29363, 0.05519,
683 + 0.00001, 0.17443, 0.29364,
684 + 0.22435, 0.17227, 3.92668, 0.30805, 0.07445,
685 + 0.00002, 0.19128, 0.30810,
686 + 0.23088, 0.17629, 4.17998, 0.32090, 0.09162,
687 + 0.00369, 0.20630, 0.32096,
688 + 0.23673, 0.17977, 4.38400, 0.33235, 0.10703,
689 + 0.01878, 0.21974, 0.33243,
690 + 0.24204, 0.18286, 4.54719, 0.34262, 0.12093,
691 + 0.03523, 0.23183, 0.34268 /
692 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
693 + 0.24689, 0.18560, 4.67801, 0.35183, 0.13351,
694 + 0.04982, 0.24271, 0.35188,
695 + 0.25137, 0.18801, 4.78318, 0.36010, 0.14494,
696 + 0.06313, 0.25257, 0.36016,
697 + 0.25550, 0.19019, 4.86669, 0.36756, 0.15535,
698 + 0.07527, 0.26150, 0.36762,
699 + 0.25932, 0.19218, 4.93266, 0.37431, 0.16489,
700 + 0.08641, 0.26964, 0.37437,
701 + 0.26290, 0.19396, 4.98391, 0.38041, 0.17363,
702 + 0.09666, 0.27706, 0.38049,
703 + 0.26618, 0.19558, 5.02071, 0.38586, 0.18156,
704 + 0.10599, 0.28376, 0.38591,
705 + 0.26927, 0.19706, 5.04895, 0.39085, 0.18891,
706 + 0.11467, 0.28994, 0.39090 /
707 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
708 + 0.27218, 0.19841, 5.06879, 0.39539, 0.19570,
709 + 0.12271, 0.29561, 0.39546,
710 + 0.27488, 0.19962, 5.07871, 0.39941, 0.20186,
711 + 0.13004, 0.30069, 0.39948,
712 + 0.27745, 0.20075, 5.08545, 0.40317, 0.20767,
713 + 0.13697, 0.30548, 0.40326,
714 + 0.27982, 0.20178, 5.08372, 0.40647, 0.21292,
715 + 0.14326, 0.30974, 0.40652,
716 + 0.28208, 0.20275, 5.08013, 0.40956, 0.21789,
717 + 0.14923, 0.31377, 0.40960 /
718 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
719 + 0.28323, 0.23020, 2.32789, 0.20943, 0.00581,
720 + -0.00013, 0.10753, 0.20930,
721 + 0.29472, 0.23441, 2.55412, 0.21891, 0.02210,
722 + -0.00012, 0.12043, 0.21882,
723 + 0.30420, 0.23765, 2.70850, 0.22665, 0.03571,
724 + -0.00009, 0.13109, 0.22649,
725 + 0.31224, 0.24004, 2.80796, 0.23279, 0.04705,
726 + -0.00010, 0.13985, 0.23267,
727 + 0.31916, 0.24185, 2.87312, 0.23779, 0.05674,
728 + 0.00201, 0.14722, 0.23771,
729 + 0.32512, 0.24330, 2.91302, 0.24193, 0.06507,
730 + 0.01059, 0.15344, 0.24177,
731 + 0.33036, 0.24438, 2.93383, 0.24526, 0.07228,
732 + 0.01972, 0.15873, 0.24517 /
733 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
734 + 0.33496, 0.24519, 2.94055, 0.24804, 0.07859,
735 + 0.02757, 0.16325, 0.24790,
736 + 0.33911, 0.24576, 2.93646, 0.25022, 0.08412,
737 + 0.03451, 0.16712, 0.25012,
738 + 0.34279, 0.24618, 2.92475, 0.25198, 0.08898,
739 + 0.04067, 0.17044, 0.25191,
740 + 0.34604, 0.24648, 2.90766, 0.25343, 0.09330,
741 + 0.04619, 0.17331, 0.25333,
742 + 0.34903, 0.24662, 2.88592, 0.25452, 0.09714,
743 + 0.05113, 0.17579, 0.25445,
744 + 0.35168, 0.24661, 2.85969, 0.25531, 0.10048,
745 + 0.05553, 0.17785, 0.25521,
746 + 0.35408, 0.24656, 2.83185, 0.25591, 0.10349,
747 + 0.05950, 0.17965, 0.25578 /
748 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
749 + 0.35624, 0.24647, 2.80239, 0.25632, 0.10618,
750 + 0.06307, 0.18119, 0.25617,
751 + 0.35819, 0.24625, 2.77069, 0.25649, 0.10854,
752 + 0.06630, 0.18244, 0.25634,
753 + 0.36002, 0.24601, 2.73959, 0.25659, 0.11071,
754 + 0.06931, 0.18357, 0.25645,
755 + 0.36162, 0.24569, 2.70671, 0.25645, 0.11255,
756 + 0.07194, 0.18445, 0.25638,
757 + 0.36312, 0.24537, 2.67463, 0.25629, 0.11427,
758 + 0.07440, 0.18524, 0.25623 /
759 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
760 + 0.35669, 0.27477, 2.04288, 0.17706, 0.00442,
761 + 0.00001, 0.09068, 0.17695,
762 + 0.36735, 0.27551, 2.13345, 0.18179, 0.01625,
763 + 0.00003, 0.09901, 0.18171,
764 + 0.37578, 0.27561, 2.17803, 0.18518, 0.02567,
765 + 0.00000, 0.10545, 0.18523,
766 + 0.38250, 0.27525, 2.19021, 0.18747, 0.03337,
767 + -0.00004, 0.11042, 0.18742,
768 + 0.38800, 0.27452, 2.18454, 0.18905, 0.03966,
769 + 0.00144, 0.11436, 0.18900,
770 + 0.39246, 0.27367, 2.16673, 0.19004, 0.04487,
771 + 0.00708, 0.11746, 0.19000,
772 + 0.39623, 0.27261, 2.14048, 0.19057, 0.04933,
773 + 0.01303, 0.11996, 0.19056 /
774 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
775 + 0.39935, 0.27143, 2.10900, 0.19077, 0.05311,
776 + 0.01800, 0.12191, 0.19066,
777 + 0.40194, 0.27015, 2.07380, 0.19067, 0.05630,
778 + 0.02231, 0.12346, 0.19050,
779 + 0.40416, 0.26877, 2.03669, 0.19031, 0.05903,
780 + 0.02610, 0.12467, 0.19022,
781 + 0.40606, 0.26733, 1.99883, 0.18977, 0.06140,
782 + 0.02944, 0.12558, 0.18978,
783 + 0.40757, 0.26593, 1.96039, 0.18914, 0.06343,
784 + 0.03230, 0.12628, 0.18907,
785 + 0.40879, 0.26450, 1.92139, 0.18833, 0.06513,
786 + 0.03484, 0.12673, 0.18830,
787 + 0.40980, 0.26306, 1.88338, 0.18746, 0.06662,
788 + 0.03711, 0.12705, 0.18746 /
789 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
790 + 0.41063, 0.26161, 1.84621, 0.18653, 0.06792,
791 + 0.03912, 0.12725, 0.18654,
792 + 0.41121, 0.26015, 1.80925, 0.18550, 0.06901,
793 + 0.04085, 0.12728, 0.18547,
794 + 0.41170, 0.25874, 1.77396, 0.18447, 0.07000,
795 + 0.04244, 0.12726, 0.18441,
796 + 0.41195, 0.25734, 1.73879, 0.18336, 0.07079,
797 + 0.04384, 0.12710, 0.18328,
798 + 0.41216, 0.25597, 1.70527, 0.18228, 0.07151,
799 + 0.04513, 0.12691, 0.18218 /
800 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
801 + 0.42071, 0.30069, 1.79822, 0.15205, 0.00343,
802 + 0.00006, 0.07779, 0.15205,
803 + 0.42871, 0.29807, 1.81193, 0.15379, 0.01240,
804 + 0.00005, 0.08313, 0.15382,
805 + 0.43466, 0.29519, 1.79822, 0.15460, 0.01937,
806 + 0.00006, 0.08703, 0.15457,
807 + 0.43881, 0.29222, 1.76751, 0.15469, 0.02475,
808 + 0.00004, 0.08979, 0.15472,
809 + 0.44194, 0.28918, 1.72906, 0.15436, 0.02912,
810 + 0.00108, 0.09177, 0.15438,
811 + 0.44420, 0.28618, 1.68630, 0.15366, 0.03262,
812 + 0.00510, 0.09320, 0.15375,
813 + 0.44577, 0.28321, 1.64136, 0.15272, 0.03556,
814 + 0.00923, 0.09421, 0.15279 /
815 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
816 + 0.44677, 0.28028, 1.59578, 0.15163, 0.03799,
817 + 0.01259, 0.09486, 0.15169,
818 + 0.44736, 0.27739, 1.55051, 0.15043, 0.03997,
819 + 0.01548, 0.09524, 0.15049,
820 + 0.44761, 0.27455, 1.50624, 0.14912, 0.04161,
821 + 0.01797, 0.09542, 0.14916,
822 + 0.44759, 0.27180, 1.46346, 0.14774, 0.04299,
823 + 0.02013, 0.09543, 0.14776,
824 + 0.44729, 0.26910, 1.42223, 0.14635, 0.04414,
825 + 0.02199, 0.09529, 0.14642,
826 + 0.44679, 0.26646, 1.38219, 0.14489, 0.04510,
827 + 0.02358, 0.09504, 0.14494,
828 + 0.44614, 0.26392, 1.34416, 0.14343, 0.04591,
829 + 0.02497, 0.09473, 0.14346 /
830 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
831 + 0.44533, 0.26148, 1.30786, 0.14196, 0.04659,
832 + 0.02618, 0.09434, 0.14198,
833 + 0.44434, 0.25908, 1.27284, 0.14052, 0.04710,
834 + 0.02724, 0.09386, 0.14050,
835 + 0.44333, 0.25678, 1.23987, 0.13913, 0.04754,
836 + 0.02820, 0.09336, 0.13908,
837 + 0.44225, 0.25444, 1.20796, 0.13763, 0.04788,
838 + 0.02900, 0.09280, 0.13764,
839 + 0.44116, 0.25219, 1.17785, 0.13619, 0.04816,
840 + 0.02972, 0.09224, 0.13625 /
841 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
842 + 0.47517, 0.31408, 1.58334, 0.13110, 0.00271,
843 + 0.00007, 0.06694, 0.13115,
844 + 0.47940, 0.30840, 1.55044, 0.13095, 0.00959,
845 + 0.00007, 0.07028, 0.13090,
846 + 0.48192, 0.30286, 1.50408, 0.13010, 0.01480,
847 + 0.00006, 0.07253, 0.13009,
848 + 0.48294, 0.29756, 1.45096, 0.12889, 0.01881,
849 + 0.00006, 0.07385, 0.12884,
850 + 0.48314, 0.29253, 1.39691, 0.12737, 0.02190,
851 + 0.00082, 0.07470, 0.12744,
852 + 0.48262, 0.28783, 1.34365, 0.12583, 0.02434,
853 + 0.00375, 0.07510, 0.12585,
854 + 0.48164, 0.28328, 1.29186, 0.12413, 0.02636,
855 + 0.00671, 0.07523, 0.12413 /
856 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
857 + 0.48024, 0.27894, 1.24220, 0.12240, 0.02793,
858 + 0.00908, 0.07518, 0.12232,
859 + 0.47858, 0.27479, 1.19502, 0.12060, 0.02921,
860 + 0.01106, 0.07493, 0.12060,
861 + 0.47669, 0.27080, 1.15044, 0.11882, 0.03024,
862 + 0.01277, 0.07455, 0.11887,
863 + 0.47462, 0.26698, 1.10852, 0.11709, 0.03108,
864 + 0.01427, 0.07410, 0.11711,
865 + 0.47246, 0.26327, 1.06908, 0.11535, 0.03180,
866 + 0.01552, 0.07359, 0.11538,
867 + 0.47014, 0.25974, 1.03167, 0.11364, 0.03232,
868 + 0.01651, 0.07302, 0.11363,
869 + 0.46779, 0.25635, 0.99670, 0.11199, 0.03273,
870 + 0.01740, 0.07242, 0.11196 /
871 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
872 + 0.46542, 0.25309, 0.96384, 0.11036, 0.03305,
873 + 0.01822, 0.07178, 0.11039,
874 + 0.46299, 0.24991, 0.93268, 0.10873, 0.03329,
875 + 0.01887, 0.07109, 0.10880,
876 + 0.46059, 0.24689, 0.90360, 0.10718, 0.03350,
877 + 0.01945, 0.07041, 0.10727,
878 + 0.45793, 0.24403, 0.87593, 0.10571, 0.03359,
879 + 0.01993, 0.06970, 0.10575,
880 + 0.45538, 0.24128, 0.85001, 0.10429, 0.03367,
881 + 0.02036, 0.06901, 0.10428 /
882 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
883 + 0.52950, 0.31854, 1.34867, 0.10871, 0.00208,
884 + 0.00009, 0.05543, 0.10865,
885 + 0.52837, 0.30934, 1.28265, 0.10692, 0.00713,
886 + 0.00009, 0.05710, 0.10695,
887 + 0.52591, 0.30108, 1.21518, 0.10494, 0.01088,
888 + 0.00010, 0.05793, 0.10492,
889 + 0.52253, 0.29348, 1.14948, 0.10275, 0.01365,
890 + 0.00010, 0.05824, 0.10279,
891 + 0.51867, 0.28657, 1.08813, 0.10064, 0.01577,
892 + 0.00058, 0.05818, 0.10052,
893 + 0.51467, 0.27997, 1.03129, 0.09837, 0.01739,
894 + 0.00263, 0.05795, 0.09843,
895 + 0.51034, 0.27392, 0.97867, 0.09626, 0.01862,
896 + 0.00464, 0.05752, 0.09636 /
897 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
898 + 0.50593, 0.26819, 0.93011, 0.09419, 0.01960,
899 + 0.00627, 0.05695, 0.09433,
900 + 0.50138, 0.26284, 0.88531, 0.09220, 0.02037,
901 + 0.00759, 0.05633, 0.09229,
902 + 0.49682, 0.25780, 0.84407, 0.09029, 0.02096,
903 + 0.00869, 0.05568, 0.09030,
904 + 0.49234, 0.25302, 0.80612, 0.08841, 0.02142,
905 + 0.00965, 0.05498, 0.08843,
906 + 0.48793, 0.24846, 0.77108, 0.08654, 0.02177,
907 + 0.01044, 0.05424, 0.08670,
908 + 0.48341, 0.24415, 0.73850, 0.08483, 0.02203,
909 + 0.01111, 0.05350, 0.08488,
910 + 0.47900, 0.24008, 0.70846, 0.08319, 0.02223,
911 + 0.01166, 0.05276, 0.08318 /
912 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
913 + 0.47468, 0.23620, 0.68065, 0.08158, 0.02235,
914 + 0.01210, 0.05200, 0.08162,
915 + 0.47040, 0.23245, 0.65463, 0.08004, 0.02241,
916 + 0.01248, 0.05131, 0.08000,
917 + 0.46627, 0.22889, 0.63058, 0.07859, 0.02244,
918 + 0.01282, 0.05066, 0.07846,
919 + 0.46208, 0.22546, 0.60800, 0.07720, 0.02243,
920 + 0.01308, 0.04995, 0.07700,
921 + 0.45806, 0.22219, 0.58700, 0.07585, 0.02241,
922 + 0.01331, 0.04925, 0.07565 /
923 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
924 + 0.56945, 0.31316, 1.14602, 0.08933, 0.00163,
925 + 0.00013, 0.04557, 0.08933,
926 + 0.56238, 0.30136, 1.06317, 0.08666, 0.00534,
927 + 0.00014, 0.04615, 0.08689,
928 + 0.55469, 0.29100, 0.98714, 0.08407, 0.00805,
929 + 0.00019, 0.04615, 0.08434,
930 + 0.54676, 0.28176, 0.91811, 0.08163, 0.00998,
931 + 0.00012, 0.04587, 0.08168,
932 + 0.53902, 0.27326, 0.85648, 0.07919, 0.01145,
933 + 0.00049, 0.04538, 0.07925,
934 + 0.53141, 0.26552, 0.80148, 0.07684, 0.01257,
935 + 0.00194, 0.04478, 0.07691,
936 + 0.52383, 0.25847, 0.75199, 0.07470, 0.01335,
937 + 0.00333, 0.04406, 0.07471 /
938 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
939 + 0.51645, 0.25186, 0.70743, 0.07256, 0.01397,
940 + 0.00445, 0.04329, 0.07264,
941 + 0.50929, 0.24570, 0.66719, 0.07053, 0.01444,
942 + 0.00535, 0.04256, 0.07060,
943 + 0.50231, 0.23998, 0.63080, 0.06865, 0.01478,
944 + 0.00607, 0.04179, 0.06870,
945 + 0.49551, 0.23463, 0.59783, 0.06690, 0.01501,
946 + 0.00666, 0.04102, 0.06692,
947 + 0.48895, 0.22958, 0.56777, 0.06526, 0.01519,
948 + 0.00719, 0.04032, 0.06510,
949 + 0.48257, 0.22473, 0.54020, 0.06362, 0.01528,
950 + 0.00758, 0.03955, 0.06353,
951 + 0.47647, 0.22015, 0.51506, 0.06207, 0.01534,
952 + 0.00793, 0.03881, 0.06204 /
953 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
954 + 0.47062, 0.21582, 0.49201, 0.06060, 0.01537,
955 + 0.00828, 0.03808, 0.06060,
956 + 0.46477, 0.21177, 0.47070, 0.05919, 0.01536,
957 + 0.00850, 0.03736, 0.05926,
958 + 0.45915, 0.20796, 0.45114, 0.05786, 0.01533,
959 + 0.00868, 0.03668, 0.05798,
960 + 0.45355, 0.20433, 0.43296, 0.05668, 0.01530,
961 + 0.00883, 0.03604, 0.05660,
962 + 0.44825, 0.20086, 0.41617, 0.05554, 0.01524,
963 + 0.00896, 0.03543, 0.05535 /
964 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
965 + 0.59554, 0.30156, 0.97029, 0.07265, 0.00121,
966 + 0.00001, 0.03693, 0.07262,
967 + 0.58250, 0.28772, 0.88081, 0.06966, 0.00404,
968 + 0.00005, 0.03691, 0.06975,
969 + 0.56974, 0.27593, 0.80328, 0.06703, 0.00602,
970 + 0.00007, 0.03650, 0.06687,
971 + 0.55766, 0.26530, 0.73595, 0.06429, 0.00745,
972 + 0.00005, 0.03595, 0.06432,
973 + 0.54624, 0.25579, 0.67774, 0.06183, 0.00845,
974 + 0.00026, 0.03521, 0.06195,
975 + 0.53531, 0.24725, 0.62694, 0.05960, 0.00917,
976 + 0.00128, 0.03447, 0.05969,
977 + 0.52499, 0.23944, 0.58226, 0.05742, 0.00973,
978 + 0.00237, 0.03380, 0.05752 /
979 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
980 + 0.51499, 0.23228, 0.54281, 0.05545, 0.01009,
981 + 0.00318, 0.03303, 0.05558,
982 + 0.50536, 0.22571, 0.50770, 0.05369, 0.01038,
983 + 0.00385, 0.03223, 0.05372,
984 + 0.49625, 0.21958, 0.47636, 0.05200, 0.01058,
985 + 0.00435, 0.03144, 0.05200,
986 + 0.48763, 0.21382, 0.44831, 0.05037, 0.01071,
987 + 0.00472, 0.03069, 0.05044,
988 + 0.47939, 0.20842, 0.42303, 0.04881, 0.01084,
989 + 0.00507, 0.03001, 0.04892,
990 + 0.47151, 0.20326, 0.40022, 0.04736, 0.01082,
991 + 0.00537, 0.02929, 0.04760,
992 + 0.46390, 0.19852, 0.37952, 0.04606, 0.01081,
993 + 0.00561, 0.02862, 0.04627 /
994 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
995 + 0.45649, 0.19419, 0.36061, 0.04488, 0.01084,
996 + 0.00582, 0.02798, 0.04491,
997 + 0.44941, 0.18999, 0.34345, 0.04371, 0.01085,
998 + 0.00594, 0.02734, 0.04366,
999 + 0.44270, 0.18602, 0.32779, 0.04260, 0.01084,
1000 + 0.00603, 0.02672, 0.04251,
1001 + 0.43626, 0.18213, 0.31326, 0.04144, 0.01070,
1002 + 0.00607, 0.02616, 0.04157,
1003 + 0.43009, 0.17850, 0.29989, 0.04038, 0.01059,
1004 + 0.00612, 0.02563, 0.04062 /
1005 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
1006 + 0.60920, 0.28546, 0.81835, 0.05833, 0.00093,
1007 + 0.00002, 0.02962, 0.05824,
1008 + 0.59047, 0.27037, 0.72857, 0.05539, 0.00304,
1009 + 0.00000, 0.02920, 0.05531,
1010 + 0.57325, 0.25744, 0.65389, 0.05255, 0.00446,
1011 + -0.00009, 0.02856, 0.05273,
1012 + 0.55714, 0.24614, 0.59091, 0.05022, 0.00541,
1013 + 0.00013, 0.02794, 0.05010,
1014 + 0.54233, 0.23616, 0.53783, 0.04791, 0.00613,
1015 + 0.00032, 0.02711, 0.04796,
1016 + 0.52858, 0.22721, 0.49241, 0.04588, 0.00667,
1017 + 0.00103, 0.02636, 0.04583,
1018 + 0.51565, 0.21909, 0.45331, 0.04408, 0.00698,
1019 + 0.00177, 0.02554, 0.04397 /
1020 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1021 + 0.50354, 0.21156, 0.41904, 0.04226, 0.00723,
1022 + 0.00224, 0.02483, 0.04230,
1023 + 0.49217, 0.20464, 0.38898, 0.04064, 0.00743,
1024 + 0.00264, 0.02412, 0.04066,
1025 + 0.48136, 0.19835, 0.36246, 0.03917, 0.00758,
1026 + 0.00299, 0.02342, 0.03912,
1027 + 0.47113, 0.19253, 0.33901, 0.03776, 0.00768,
1028 + 0.00329, 0.02275, 0.03776,
1029 + 0.46155, 0.18701, 0.31826, 0.03641, 0.00768,
1030 + 0.00356, 0.02209, 0.03657,
1031 + 0.45228, 0.18197, 0.29932, 0.03527, 0.00763,
1032 + 0.00372, 0.02151, 0.03533,
1033 + 0.44350, 0.17725, 0.28233, 0.03420, 0.00762,
1034 + 0.00383, 0.02094, 0.03417 /
1035 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1036 + 0.43515, 0.17282, 0.26705, 0.03317, 0.00763,
1037 + 0.00390, 0.02039, 0.03308,
1038 + 0.42715, 0.16864, 0.25327, 0.03215, 0.00756,
1039 + 0.00400, 0.01985, 0.03215,
1040 + 0.41958, 0.16472, 0.24075, 0.03120, 0.00747,
1041 + 0.00410, 0.01936, 0.03129,
1042 + 0.41225, 0.16098, 0.22923, 0.03038, 0.00739,
1043 + 0.00416, 0.01887, 0.03040,
1044 + 0.40532, 0.15745, 0.21872, 0.02957, 0.00732,
1045 + 0.00422, 0.01842, 0.02957 /
1046 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1047 + 0.61167, 0.26658, 0.68716, 0.04622, 0.00066,
1048 + 0.00008, 0.02335, 0.04610,
1049 + 0.58779, 0.25079, 0.60099, 0.04349, 0.00220,
1050 + 0.00007, 0.02286, 0.04325,
1051 + 0.56655, 0.23720, 0.53134, 0.04095, 0.00333,
1052 + 0.00006, 0.02218, 0.04079,
1053 + 0.54719, 0.22554, 0.47441, 0.03869, 0.00406,
1054 + 0.00010, 0.02137, 0.03864,
1055 + 0.52968, 0.21515, 0.42700, 0.03674, 0.00448,
1056 + 0.00024, 0.02067, 0.03671,
1057 + 0.51350, 0.20607, 0.38731, 0.03492, 0.00485,
1058 + 0.00076, 0.01993, 0.03495,
1059 + 0.49843, 0.19801, 0.35331, 0.03334, 0.00515,
1060 + 0.00126, 0.01917, 0.03325 /
1061 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1062 + 0.48448, 0.19053, 0.32420, 0.03189, 0.00528,
1063 + 0.00162, 0.01854, 0.03177,
1064 + 0.47156, 0.18363, 0.29893, 0.03052, 0.00533,
1065 + 0.00191, 0.01794, 0.03044,
1066 + 0.45949, 0.17731, 0.27680, 0.02925, 0.00536,
1067 + 0.00217, 0.01737, 0.02923,
1068 + 0.44815, 0.17151, 0.25732, 0.02808, 0.00540,
1069 + 0.00238, 0.01681, 0.02809,
1070 + 0.43744, 0.16620, 0.24006, 0.02709, 0.00545,
1071 + 0.00248, 0.01628, 0.02692,
1072 + 0.42738, 0.16112, 0.22481, 0.02604, 0.00541,
1073 + 0.00257, 0.01576, 0.02604,
1074 + 0.41785, 0.15646, 0.21120, 0.02509, 0.00536,
1075 + 0.00267, 0.01527, 0.02519 /
1076 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1077 + 0.40877, 0.15219, 0.19898, 0.02426, 0.00533,
1078 + 0.00278, 0.01481, 0.02432,
1079 + 0.40007, 0.14817, 0.18792, 0.02353, 0.00528,
1080 + 0.00281, 0.01442, 0.02344,
1081 + 0.39188, 0.14442, 0.17792, 0.02284, 0.00523,
1082 + 0.00283, 0.01404, 0.02262,
1083 + 0.38407, 0.14082, 0.16877, 0.02215, 0.00519,
1084 + 0.00285, 0.01360, 0.02195,
1085 + 0.37669, 0.13742, 0.16047, 0.02149, 0.00513,
1086 + 0.00286, 0.01321, 0.02132 /
1087 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1088 + 0.60437, 0.24598, 0.57404, 0.03602, 0.00047,
1089 + 0.00006, 0.01827, 0.03595,
1090 + 0.57622, 0.22978, 0.49400, 0.03352, 0.00168,
1091 + 0.00021, 0.01762, 0.03348,
1092 + 0.55148, 0.21607, 0.43060, 0.03138, 0.00248,
1093 + 0.00010, 0.01701, 0.03121,
1094 + 0.52933, 0.20437, 0.37984, 0.02946, 0.00305,
1095 + 0.00012, 0.01624, 0.02933,
1096 + 0.50961, 0.19397, 0.33841, 0.02772, 0.00334,
1097 + 0.00022, 0.01559, 0.02773,
1098 + 0.49165, 0.18491, 0.30410, 0.02614, 0.00365,
1099 + 0.00055, 0.01500, 0.02622,
1100 + 0.47520, 0.17678, 0.27527, 0.02485, 0.00377,
1101 + 0.00094, 0.01439, 0.02488 /
1102 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1103 + 0.45973, 0.16965, 0.25076, 0.02376, 0.00384,
1104 + 0.00121, 0.01382, 0.02359,
1105 + 0.44568, 0.16293, 0.22973, 0.02259, 0.00391,
1106 + 0.00137, 0.01326, 0.02257,
1107 + 0.43260, 0.15684, 0.21139, 0.02159, 0.00394,
1108 + 0.00151, 0.01277, 0.02154,
1109 + 0.42028, 0.15137, 0.19537, 0.02079, 0.00393,
1110 + 0.00165, 0.01234, 0.02051,
1111 + 0.40880, 0.14629, 0.18153, 0.02000, 0.00391,
1112 + 0.00176, 0.01186, 0.01965,
1113 + 0.39823, 0.14145, 0.16924, 0.01909, 0.00390,
1114 + 0.00184, 0.01148, 0.01888,
1115 + 0.38824, 0.13701, 0.15830, 0.01830, 0.00386,
1116 + 0.00189, 0.01111, 0.01818 /
1117 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1118 + 0.37870, 0.13294, 0.14850, 0.01765, 0.00378,
1119 + 0.00194, 0.01075, 0.01755,
1120 + 0.36977, 0.12903, 0.13980, 0.01700, 0.00371,
1121 + 0.00198, 0.01037, 0.01698,
1122 + 0.36140, 0.12539, 0.13197, 0.01639, 0.00364,
1123 + 0.00200, 0.01002, 0.01643,
1124 + 0.35338, 0.12205, 0.12477, 0.01583, 0.00366,
1125 + 0.00203, 0.00973, 0.01578,
1126 + 0.34583, 0.11889, 0.11828, 0.01530, 0.00364,
1127 + 0.00203, 0.00945, 0.01522 /
1128 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1129 + 0.58899, 0.22440, 0.47688, 0.02749, 0.00040,
1130 + 0.00013, 0.01407, 0.02766,
1131 + 0.55698, 0.20846, 0.40379, 0.02554, 0.00133,
1132 + 0.00008, 0.01345, 0.02533,
1133 + 0.52950, 0.19492, 0.34743, 0.02371, 0.00189,
1134 + 0.00008, 0.01281, 0.02354,
1135 + 0.50537, 0.18323, 0.30312, 0.02203, 0.00230,
1136 + 0.00012, 0.01224, 0.02202,
1137 + 0.48371, 0.17333, 0.26746, 0.02073, 0.00247,
1138 + 0.00016, 0.01163, 0.02066,
1139 + 0.46439, 0.16456, 0.23836, 0.01950, 0.00259,
1140 + 0.00039, 0.01109, 0.01950,
1141 + 0.44692, 0.15664, 0.21392, 0.01832, 0.00271,
1142 + 0.00063, 0.01060, 0.01845 /
1143 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1144 + 0.43082, 0.14964, 0.19344, 0.01743, 0.00280,
1145 + 0.00091, 0.01009, 0.01741,
1146 + 0.41597, 0.14328, 0.17634, 0.01662, 0.00277,
1147 + 0.00103, 0.00963, 0.01655,
1148 + 0.40227, 0.13753, 0.16150, 0.01580, 0.00276,
1149 + 0.00113, 0.00925, 0.01578,
1150 + 0.38967, 0.13230, 0.14849, 0.01498, 0.00279,
1151 + 0.00124, 0.00890, 0.01504,
1152 + 0.37807, 0.12747, 0.13729, 0.01420, 0.00281,
1153 + 0.00129, 0.00851, 0.01439,
1154 + 0.36708, 0.12298, 0.12747, 0.01363, 0.00274,
1155 + 0.00129, 0.00824, 0.01369,
1156 + 0.35678, 0.11882, 0.11877, 0.01310, 0.00267,
1157 + 0.00130, 0.00797, 0.01310 /
1158 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1159 + 0.34708, 0.11496, 0.11101, 0.01258, 0.00263,
1160 + 0.00133, 0.00767, 0.01262,
1161 + 0.33799, 0.11134, 0.10414, 0.01204, 0.00260,
1162 + 0.00135, 0.00741, 0.01220,
1163 + 0.32949, 0.10797, 0.09798, 0.01154, 0.00258,
1164 + 0.00137, 0.00718, 0.01180,
1165 + 0.32144, 0.10477, 0.09236, 0.01111, 0.00255,
1166 + 0.00139, 0.00695, 0.01142,
1167 + 0.31382, 0.10179, 0.08729, 0.01072, 0.00250,
1168 + 0.00140, 0.00674, 0.01105 /
1169 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1170 + 0.56632, 0.20293, 0.39385, 0.02075, 0.00035,
1171 + 0.00006, 0.01057, 0.02092,
1172 + 0.53164, 0.18722, 0.32842, 0.01911, 0.00109,
1173 + 0.00012, 0.01008, 0.01893,
1174 + 0.50194, 0.17419, 0.27907, 0.01775, 0.00137,
1175 + 0.00012, 0.00958, 0.01750,
1176 + 0.47640, 0.16288, 0.24084, 0.01626, 0.00166,
1177 + 0.00007, 0.00910, 0.01632,
1178 + 0.45368, 0.15336, 0.21043, 0.01525, 0.00180,
1179 + 0.00014, 0.00861, 0.01517,
1180 + 0.43359, 0.14494, 0.18599, 0.01426, 0.00194,
1181 + 0.00038, 0.00818, 0.01419,
1182 + 0.41541, 0.13749, 0.16600, 0.01332, 0.00202,
1183 + 0.00058, 0.00774, 0.01342 /
1184 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1185 + 0.39878, 0.13085, 0.14919, 0.01258, 0.00208,
1186 + 0.00066, 0.00734, 0.01267,
1187 + 0.38375, 0.12480, 0.13494, 0.01188, 0.00208,
1188 + 0.00073, 0.00702, 0.01197,
1189 + 0.36983, 0.11940, 0.12287, 0.01128, 0.00203,
1190 + 0.00081, 0.00671, 0.01133,
1191 + 0.35690, 0.11454, 0.11257, 0.01079, 0.00197,
1192 + 0.00090, 0.00641, 0.01075,
1193 + 0.34512, 0.11004, 0.10363, 0.01028, 0.00196,
1194 + 0.00098, 0.00617, 0.01020,
1195 + 0.33422, 0.10587, 0.09572, 0.00965, 0.00200,
1196 + 0.00096, 0.00595, 0.00976,
1197 + 0.32407, 0.10201, 0.08882, 0.00911, 0.00201,
1198 + 0.00095, 0.00572, 0.00936 /
1199 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1200 + 0.31455, 0.09842, 0.08278, 0.00867, 0.00196,
1201 + 0.00098, 0.00549, 0.00900,
1202 + 0.30538, 0.09510, 0.07738, 0.00837, 0.00191,
1203 + 0.00100, 0.00526, 0.00871,
1204 + 0.29682, 0.09202, 0.07256, 0.00810, 0.00185,
1205 + 0.00101, 0.00506, 0.00844,
1206 + 0.28886, 0.08916, 0.06829, 0.00780, 0.00180,
1207 + 0.00102, 0.00489, 0.00807,
1208 + 0.28141, 0.08648, 0.06442, 0.00753, 0.00177,
1209 + 0.00102, 0.00474, 0.00773 /
1210 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1211 + 0.53789, 0.18214, 0.32346, 0.01569, 0.00017,
1212 + -0.00010, 0.00778, 0.01548,
1213 + 0.50142, 0.16693, 0.26569, 0.01427, 0.00069,
1214 + -0.00009, 0.00742, 0.01394,
1215 + 0.47064, 0.15429, 0.22306, 0.01300, 0.00097,
1216 + -0.00017, 0.00692, 0.01296,
1217 + 0.44403, 0.14371, 0.19049, 0.01200, 0.00118,
1218 + -0.00014, 0.00653, 0.01189,
1219 + 0.42095, 0.13454, 0.16520, 0.01108, 0.00124,
1220 + -0.00002, 0.00614, 0.01115,
1221 + 0.40023, 0.12676, 0.14495, 0.01042, 0.00132,
1222 + 0.00013, 0.00581, 0.01034,
1223 + 0.38194, 0.11985, 0.12843, 0.00963, 0.00139,
1224 + 0.00028, 0.00557, 0.00963 /
1225 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1226 + 0.36547, 0.11362, 0.11473, 0.00887, 0.00139,
1227 + 0.00037, 0.00523, 0.00917,
1228 + 0.35019, 0.10811, 0.10325, 0.00855, 0.00142,
1229 + 0.00050, 0.00497, 0.00858,
1230 + 0.33628, 0.10309, 0.09356, 0.00817, 0.00142,
1231 + 0.00056, 0.00478, 0.00810,
1232 + 0.32373, 0.09847, 0.08530, 0.00761, 0.00138,
1233 + 0.00056, 0.00458, 0.00774,
1234 + 0.31230, 0.09433, 0.07814, 0.00713, 0.00137,
1235 + 0.00057, 0.00437, 0.00728,
1236 + 0.30132, 0.09049, 0.07194, 0.00684, 0.00137,
1237 + 0.00063, 0.00417, 0.00698,
1238 + 0.29120, 0.08701, 0.06656, 0.00658, 0.00134,
1239 + 0.00067, 0.00399, 0.00666 /
1240 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1241 + 0.28188, 0.08383, 0.06186, 0.00633, 0.00131,
1242 + 0.00070, 0.00380, 0.00628,
1243 + 0.27316, 0.08082, 0.05765, 0.00603, 0.00128,
1244 + 0.00067, 0.00365, 0.00600,
1245 + 0.26503, 0.07803, 0.05389, 0.00575, 0.00124,
1246 + 0.00065, 0.00350, 0.00577,
1247 + 0.25727, 0.07548, 0.05056, 0.00552, 0.00121,
1248 + 0.00063, 0.00336, 0.00557,
1249 + 0.25004, 0.07307, 0.04758, 0.00530, 0.00119,
1250 + 0.00064, 0.00324, 0.00539 /
1251 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1252 + 0.50513, 0.16144, 0.26302, 0.01121, 0.00030,
1253 + 0.00008, 0.00589, 0.01120,
1254 + 0.46769, 0.14689, 0.21310, 0.01006, 0.00061,
1255 + 0.00013, 0.00538, 0.01031,
1256 + 0.43619, 0.13509, 0.17698, 0.00926, 0.00081,
1257 + 0.00008, 0.00507, 0.00930,
1258 + 0.40930, 0.12530, 0.14977, 0.00843, 0.00097,
1259 + 0.00008, 0.00480, 0.00845,
1260 + 0.38606, 0.11683, 0.12868, 0.00774, 0.00103,
1261 + 0.00014, 0.00448, 0.00787,
1262 + 0.36537, 0.10962, 0.11215, 0.00723, 0.00106,
1263 + 0.00022, 0.00418, 0.00743,
1264 + 0.34724, 0.10320, 0.09863, 0.00665, 0.00110,
1265 + 0.00029, 0.00399, 0.00692 /
1266 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1267 + 0.33099, 0.09753, 0.08756, 0.00610, 0.00105,
1268 + 0.00037, 0.00375, 0.00656,
1269 + 0.31623, 0.09248, 0.07838, 0.00577, 0.00103,
1270 + 0.00042, 0.00357, 0.00612,
1271 + 0.30269, 0.08797, 0.07072, 0.00553, 0.00102,
1272 + 0.00043, 0.00338, 0.00566,
1273 + 0.29028, 0.08388, 0.06423, 0.00526, 0.00100,
1274 + 0.00042, 0.00317, 0.00531,
1275 + 0.27898, 0.08006, 0.05858, 0.00492, 0.00099,
1276 + 0.00042, 0.00303, 0.00512,
1277 + 0.26863, 0.07663, 0.05375, 0.00472, 0.00099,
1278 + 0.00045, 0.00289, 0.00476,
1279 + 0.25898, 0.07352, 0.04955, 0.00454, 0.00097,
1280 + 0.00047, 0.00276, 0.00448 /
1281 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1282 + 0.24988, 0.07068, 0.04587, 0.00439, 0.00092,
1283 + 0.00047, 0.00265, 0.00430,
1284 + 0.24148, 0.06793, 0.04264, 0.00423, 0.00090,
1285 + 0.00046, 0.00252, 0.00415,
1286 + 0.23369, 0.06539, 0.03977, 0.00407, 0.00089,
1287 + 0.00045, 0.00241, 0.00401,
1288 + 0.22635, 0.06315, 0.03721, 0.00391, 0.00087,
1289 + 0.00044, 0.00232, 0.00378,
1290 + 0.21954, 0.06103, 0.03491, 0.00374, 0.00084,
1291 + 0.00044, 0.00223, 0.00359 /
1292 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1293 + 0.46916, 0.14230, 0.21254, 0.00824, 0.00008,
1294 + -0.00004, 0.00410, 0.00810,
1295 + 0.43129, 0.12874, 0.17031, 0.00742, 0.00041,
1296 + 0.00000, 0.00383, 0.00719,
1297 + 0.40002, 0.11768, 0.13974, 0.00655, 0.00058,
1298 + 0.00001, 0.00360, 0.00660,
1299 + 0.37363, 0.10856, 0.11714, 0.00590, 0.00066,
1300 + 0.00000, 0.00336, 0.00599,
1301 + 0.35070, 0.10077, 0.09976, 0.00545, 0.00070,
1302 + 0.00004, 0.00316, 0.00556,
1303 + 0.33052, 0.09410, 0.08621, 0.00500, 0.00074,
1304 + 0.00016, 0.00293, 0.00527,
1305 + 0.31264, 0.08830, 0.07547, 0.00461, 0.00068,
1306 + 0.00017, 0.00270, 0.00498 /
1307 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1308 + 0.29664, 0.08324, 0.06664, 0.00448, 0.00069,
1309 + 0.00024, 0.00258, 0.00449,
1310 + 0.28236, 0.07866, 0.05933, 0.00422, 0.00071,
1311 + 0.00023, 0.00242, 0.00410,
1312 + 0.26944, 0.07454, 0.05323, 0.00395, 0.00071,
1313 + 0.00023, 0.00227, 0.00386,
1314 + 0.25768, 0.07085, 0.04809, 0.00374, 0.00069,
1315 + 0.00027, 0.00213, 0.00367,
1316 + 0.24699, 0.06753, 0.04373, 0.00353, 0.00066,
1317 + 0.00029, 0.00202, 0.00347,
1318 + 0.23718, 0.06444, 0.04002, 0.00329, 0.00064,
1319 + 0.00028, 0.00194, 0.00331,
1320 + 0.22810, 0.06164, 0.03680, 0.00308, 0.00062,
1321 + 0.00028, 0.00185, 0.00318 /
1322 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1323 + 0.21962, 0.05910, 0.03399, 0.00291, 0.00058,
1324 + 0.00027, 0.00173, 0.00306,
1325 + 0.21169, 0.05670, 0.03150, 0.00286, 0.00059,
1326 + 0.00027, 0.00166, 0.00284,
1327 + 0.20437, 0.05449, 0.02929, 0.00281, 0.00060,
1328 + 0.00028, 0.00160, 0.00263,
1329 + 0.19761, 0.05247, 0.02736, 0.00267, 0.00059,
1330 + 0.00031, 0.00155, 0.00254,
1331 + 0.19130, 0.05059, 0.02563, 0.00254, 0.00057,
1332 + 0.00034, 0.00150, 0.00245 /
1333 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1334 + 0.43105, 0.12387, 0.17036, 0.00563, 0.00013,
1335 + 0.00009, 0.00292, 0.00577,
1336 + 0.39396, 0.11132, 0.13452, 0.00489, 0.00030,
1337 + 0.00009, 0.00275, 0.00514,
1338 + 0.36299, 0.10130, 0.10933, 0.00450, 0.00036,
1339 + 0.00004, 0.00251, 0.00459,
1340 + 0.33671, 0.09302, 0.09073, 0.00403, 0.00044,
1341 + -0.00003, 0.00232, 0.00431,
1342 + 0.31451, 0.08606, 0.07678, 0.00379, 0.00052,
1343 + 0.00003, 0.00217, 0.00383,
1344 + 0.29521, 0.08007, 0.06591, 0.00339, 0.00047,
1345 + 0.00011, 0.00198, 0.00368,
1346 + 0.27825, 0.07477, 0.05726, 0.00327, 0.00049,
1347 + 0.00014, 0.00185, 0.00336 /
1348 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1349 + 0.26305, 0.07021, 0.05026, 0.00304, 0.00049,
1350 + 0.00012, 0.00174, 0.00311,
1351 + 0.24958, 0.06613, 0.04456, 0.00283, 0.00048,
1352 + 0.00018, 0.00164, 0.00289,
1353 + 0.23744, 0.06247, 0.03982, 0.00267, 0.00047,
1354 + 0.00020, 0.00156, 0.00270,
1355 + 0.22638, 0.05919, 0.03583, 0.00252, 0.00046,
1356 + 0.00020, 0.00150, 0.00252,
1357 + 0.21629, 0.05625, 0.03248, 0.00240, 0.00045,
1358 + 0.00024, 0.00138, 0.00231,
1359 + 0.20702, 0.05356, 0.02960, 0.00231, 0.00045,
1360 + 0.00023, 0.00133, 0.00221,
1361 + 0.19853, 0.05111, 0.02712, 0.00220, 0.00043,
1362 + 0.00021, 0.00126, 0.00210 /
1363 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1364 + 0.19070, 0.04886, 0.02495, 0.00206, 0.00039,
1365 + 0.00017, 0.00116, 0.00197,
1366 + 0.18348, 0.04681, 0.02307, 0.00197, 0.00038,
1367 + 0.00019, 0.00111, 0.00186,
1368 + 0.17682, 0.04492, 0.02142, 0.00189, 0.00037,
1369 + 0.00021, 0.00107, 0.00175,
1370 + 0.17056, 0.04314, 0.01996, 0.00181, 0.00038,
1371 + 0.00021, 0.00103, 0.00169,
1372 + 0.16475, 0.04150, 0.01867, 0.00173, 0.00038,
1373 + 0.00020, 0.00099, 0.00162 /
1374 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1375 + 0.39205, 0.10682, 0.13532, 0.00382, 0.00015,
1376 + 0.00005, 0.00205, 0.00392,
1377 + 0.35541, 0.09566, 0.10567, 0.00349, 0.00024,
1378 + 0.00001, 0.00190, 0.00349,
1379 + 0.32547, 0.08654, 0.08486, 0.00322, 0.00029,
1380 + 0.00000, 0.00166, 0.00320,
1381 + 0.30077, 0.07903, 0.06991, 0.00275, 0.00024,
1382 + 0.00002, 0.00154, 0.00306,
1383 + 0.27981, 0.07276, 0.05867, 0.00255, 0.00030,
1384 + 0.00002, 0.00143, 0.00262,
1385 + 0.26147, 0.06743, 0.05003, 0.00237, 0.00030,
1386 + 0.00001, 0.00130, 0.00242,
1387 + 0.24548, 0.06279, 0.04319, 0.00225, 0.00029,
1388 + 0.00003, 0.00120, 0.00222 /
1389 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1390 + 0.23116, 0.05879, 0.03773, 0.00215, 0.00030,
1391 + 0.00007, 0.00114, 0.00204,
1392 + 0.21854, 0.05519, 0.03328, 0.00196, 0.00029,
1393 + 0.00009, 0.00106, 0.00195,
1394 + 0.20722, 0.05199, 0.02960, 0.00185, 0.00027,
1395 + 0.00008, 0.00100, 0.00177,
1396 + 0.19698, 0.04915, 0.02654, 0.00180, 0.00027,
1397 + 0.00008, 0.00095, 0.00158,
1398 + 0.18785, 0.04655, 0.02397, 0.00163, 0.00030,
1399 + 0.00012, 0.00090, 0.00154,
1400 + 0.17927, 0.04420, 0.02179, 0.00156, 0.00030,
1401 + 0.00011, 0.00083, 0.00145,
1402 + 0.17143, 0.04209, 0.01991, 0.00149, 0.00028,
1403 + 0.00010, 0.00077, 0.00136 /
1404 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1405 + 0.16425, 0.04017, 0.01827, 0.00143, 0.00025,
1406 + 0.00010, 0.00071, 0.00127,
1407 + 0.15763, 0.03841, 0.01685, 0.00139, 0.00024,
1408 + 0.00010, 0.00068, 0.00118,
1409 + 0.15155, 0.03680, 0.01559, 0.00136, 0.00024,
1410 + 0.00010, 0.00066, 0.00111,
1411 + 0.14592, 0.03526, 0.01450, 0.00126, 0.00023,
1412 + 0.00009, 0.00064, 0.00106,
1413 + 0.14070, 0.03385, 0.01353, 0.00118, 0.00023,
1414 + 0.00009, 0.00061, 0.00103 /
1415 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1416 + 0.35234, 0.09146, 0.10650, 0.00259, 0.00005,
1417 + 0.00005, 0.00137, 0.00270,
1418 + 0.31724, 0.08113, 0.08191, 0.00228, 0.00014,
1419 + 0.00000, 0.00125, 0.00249,
1420 + 0.28884, 0.07296, 0.06503, 0.00213, 0.00020,
1421 + 0.00006, 0.00116, 0.00221,
1422 + 0.26548, 0.06635, 0.05307, 0.00177, 0.00024,
1423 + 0.00000, 0.00106, 0.00196,
1424 + 0.24556, 0.06079, 0.04416, 0.00174, 0.00023,
1425 + 0.00004, 0.00097, 0.00176,
1426 + 0.22847, 0.05605, 0.03734, 0.00165, 0.00026,
1427 + 0.00005, 0.00093, 0.00157,
1428 + 0.21361, 0.05201, 0.03206, 0.00152, 0.00026,
1429 + 0.00006, 0.00086, 0.00140 /
1430 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1431 + 0.20078, 0.04848, 0.02787, 0.00130, 0.00024,
1432 + 0.00006, 0.00077, 0.00127,
1433 + 0.18898, 0.04536, 0.02447, 0.00128, 0.00026,
1434 + 0.00006, 0.00074, 0.00112,
1435 + 0.17847, 0.04259, 0.02166, 0.00123, 0.00024,
1436 + 0.00006, 0.00070, 0.00104,
1437 + 0.16923, 0.04011, 0.01932, 0.00110, 0.00021,
1438 + 0.00007, 0.00066, 0.00100,
1439 + 0.16080, 0.03789, 0.01738, 0.00106, 0.00021,
1440 + 0.00009, 0.00064, 0.00094,
1441 + 0.15317, 0.03588, 0.01575, 0.00094, 0.00021,
1442 + 0.00011, 0.00059, 0.00093,
1443 + 0.14616, 0.03407, 0.01436, 0.00089, 0.00021,
1444 + 0.00011, 0.00055, 0.00087 /
1445 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1446 + 0.13968, 0.03245, 0.01315, 0.00090, 0.00020,
1447 + 0.00009, 0.00052, 0.00076,
1448 + 0.13375, 0.03094, 0.01210, 0.00085, 0.00020,
1449 + 0.00008, 0.00049, 0.00071,
1450 + 0.12832, 0.02955, 0.01118, 0.00080, 0.00019,
1451 + 0.00007, 0.00046, 0.00068,
1452 + 0.12329, 0.02826, 0.01037, 0.00072, 0.00019,
1453 + 0.00008, 0.00045, 0.00067,
1454 + 0.11865, 0.02707, 0.00966, 0.00065, 0.00019,
1455 + 0.00009, 0.00044, 0.00065 /
1456 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1457 + 0.31330, 0.07733, 0.08288, 0.00177, 0.00000,
1458 + -0.00003, 0.00088, 0.00187,
1459 + 0.28041, 0.06822, 0.06302, 0.00144, 0.00009,
1460 + -0.00004, 0.00079, 0.00162,
1461 + 0.25374, 0.06101, 0.04961, 0.00141, 0.00007,
1462 + -0.00006, 0.00070, 0.00146,
1463 + 0.23203, 0.05517, 0.04006, 0.00118, 0.00010,
1464 + -0.00005, 0.00064, 0.00130,
1465 + 0.21358, 0.05034, 0.03309, 0.00116, 0.00013,
1466 + -0.00004, 0.00061, 0.00112,
1467 + 0.19785, 0.04627, 0.02783, 0.00116, 0.00013,
1468 + 0.00001, 0.00058, 0.00104,
1469 + 0.18426, 0.04273, 0.02374, 0.00107, 0.00017,
1470 + 0.00003, 0.00054, 0.00100 /
1471 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1472 + 0.17221, 0.03969, 0.02051, 0.00106, 0.00011,
1473 + 0.00001, 0.00046, 0.00084,
1474 + 0.16170, 0.03706, 0.01793, 0.00097, 0.00009,
1475 + -0.00001, 0.00043, 0.00071,
1476 + 0.15248, 0.03470, 0.01582, 0.00085, 0.00013,
1477 + 0.00002, 0.00044, 0.00064,
1478 + 0.14416, 0.03258, 0.01407, 0.00078, 0.00018,
1479 + 0.00006, 0.00044, 0.00060,
1480 + 0.13638, 0.03073, 0.01262, 0.00076, 0.00015,
1481 + 0.00007, 0.00039, 0.00062,
1482 + 0.12959, 0.02902, 0.01139, 0.00065, 0.00014,
1483 + 0.00005, 0.00035, 0.00060,
1484 + 0.12336, 0.02747, 0.01035, 0.00061, 0.00014,
1485 + 0.00005, 0.00033, 0.00056 /
1486 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1487 + 0.11757, 0.02607, 0.00946, 0.00065, 0.00013,
1488 + 0.00005, 0.00033, 0.00049,
1489 + 0.11244, 0.02480, 0.00868, 0.00057, 0.00014,
1490 + 0.00005, 0.00032, 0.00045,
1491 + 0.10775, 0.02364, 0.00800, 0.00048, 0.00014,
1492 + 0.00006, 0.00031, 0.00043,
1493 + 0.10335, 0.02257, 0.00741, 0.00037, 0.00012,
1494 + 0.00005, 0.00028, 0.00047,
1495 + 0.09925, 0.02159, 0.00688, 0.00030, 0.00011,
1496 + 0.00005, 0.00026, 0.00048 /
1497 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1498 + 0.27525, 0.06459, 0.06374, 0.00111, -0.00005,
1499 + -0.00005, 0.00055, 0.00125,
1500 + 0.24473, 0.05664, 0.04782, 0.00091, 0.00003,
1501 + -0.00001, 0.00049, 0.00114,
1502 + 0.22018, 0.05041, 0.03722, 0.00089, 0.00009,
1503 + -0.00003, 0.00046, 0.00096,
1504 + 0.20019, 0.04535, 0.02981, 0.00084, 0.00004,
1505 + -0.00002, 0.00039, 0.00085,
1506 + 0.18350, 0.04118, 0.02444, 0.00073, 0.00006,
1507 + -0.00005, 0.00033, 0.00077,
1508 + 0.16931, 0.03769, 0.02041, 0.00073, 0.00010,
1509 + -0.00004, 0.00033, 0.00057,
1510 + 0.15694, 0.03470, 0.01733, 0.00078, 0.00007,
1511 + 0.00001, 0.00032, 0.00053 /
1512 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1513 + 0.14644, 0.03210, 0.01491, 0.00058, 0.00006,
1514 + 0.00000, 0.00028, 0.00052,
1515 + 0.13704, 0.02984, 0.01297, 0.00052, 0.00007,
1516 + -0.00001, 0.00025, 0.00048,
1517 + 0.12858, 0.02784, 0.01140, 0.00055, 0.00007,
1518 + -0.00001, 0.00025, 0.00044,
1519 + 0.12108, 0.02608, 0.01010, 0.00053, 0.00009,
1520 + 0.00001, 0.00026, 0.00041,
1521 + 0.11447, 0.02449, 0.00903, 0.00044, 0.00011,
1522 + 0.00004, 0.00026, 0.00041,
1523 + 0.10845, 0.02308, 0.00812, 0.00041, 0.00009,
1524 + 0.00003, 0.00024, 0.00034,
1525 + 0.10297, 0.02181, 0.00736, 0.00039, 0.00009,
1526 + 0.00003, 0.00023, 0.00030 /
1527 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1528 + 0.09797, 0.02066, 0.00671, 0.00037, 0.00010,
1529 + 0.00004, 0.00022, 0.00030,
1530 + 0.09338, 0.01961, 0.00615, 0.00032, 0.00009,
1531 + 0.00004, 0.00021, 0.00029,
1532 + 0.08918, 0.01866, 0.00566, 0.00028, 0.00008,
1533 + 0.00004, 0.00019, 0.00028,
1534 + 0.08531, 0.01778, 0.00523, 0.00022, 0.00007,
1535 + 0.00003, 0.00018, 0.00030,
1536 + 0.08173, 0.01697, 0.00485, 0.00019, 0.00007,
1537 + 0.00003, 0.00017, 0.00030 /
1538 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1539 + 0.23909, 0.05334, 0.04839, 0.00074, -0.00005,
1540 + -0.00004, 0.00033, 0.00078,
1541 + 0.21085, 0.04646, 0.03583, 0.00067, 0.00002,
1542 + -0.00007, 0.00027, 0.00072,
1543 + 0.18855, 0.04107, 0.02757, 0.00068, 0.00000,
1544 + -0.00007, 0.00027, 0.00052,
1545 + 0.17047, 0.03675, 0.02186, 0.00059, 0.00004,
1546 + -0.00007, 0.00022, 0.00049,
1547 + 0.15564, 0.03323, 0.01777, 0.00050, 0.00005,
1548 + -0.00003, 0.00023, 0.00044,
1549 + 0.14301, 0.03026, 0.01476, 0.00046, 0.00006,
1550 + -0.00002, 0.00023, 0.00036,
1551 + 0.13227, 0.02772, 0.01244, 0.00036, 0.00008,
1552 + 0.00002, 0.00023, 0.00039 /
1553 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1554 + 0.12269, 0.02557, 0.01064, 0.00036, 0.00008,
1555 + 0.00001, 0.00020, 0.00032,
1556 + 0.11425, 0.02369, 0.00921, 0.00037, 0.00007,
1557 + -0.00001, 0.00017, 0.00026,
1558 + 0.10693, 0.02203, 0.00806, 0.00032, 0.00006,
1559 + -0.00001, 0.00016, 0.00025,
1560 + 0.10049, 0.02058, 0.00712, 0.00025, 0.00005,
1561 + 0.00000, 0.00016, 0.00024,
1562 + 0.09467, 0.01927, 0.00634, 0.00024, 0.00006,
1563 + 0.00001, 0.00015, 0.00021,
1564 + 0.08939, 0.01810, 0.00570, 0.00020, 0.00007,
1565 + 0.00003, 0.00015, 0.00023,
1566 + 0.08467, 0.01705, 0.00515, 0.00017, 0.00008,
1567 + 0.00004, 0.00016, 0.00023 /
1568 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1569 + 0.08043, 0.01610, 0.00468, 0.00014, 0.00009,
1570 + 0.00004, 0.00016, 0.00019,
1571 + 0.07641, 0.01524, 0.00427, 0.00014, 0.00008,
1572 + 0.00003, 0.00015, 0.00018,
1573 + 0.07274, 0.01446, 0.00393, 0.00014, 0.00007,
1574 + 0.00002, 0.00014, 0.00018,
1575 + 0.06941, 0.01374, 0.00362, 0.00012, 0.00007,
1576 + 0.00003, 0.00013, 0.00020,
1577 + 0.06635, 0.01308, 0.00335, 0.00010, 0.00006,
1578 + 0.00003, 0.00012, 0.00021 /
1579 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1580 + 0.20464, 0.04338, 0.03612, 0.00052, -0.00002,
1581 + 0.00000, 0.00023, 0.00049,
1582 + 0.17935, 0.03748, 0.02638, 0.00036, -0.00001,
1583 + -0.00005, 0.00014, 0.00042,
1584 + 0.15939, 0.03293, 0.02008, 0.00040, 0.00004,
1585 + -0.00006, 0.00016, 0.00031,
1586 + 0.14335, 0.02929, 0.01576, 0.00035, 0.00002,
1587 + -0.00004, 0.00016, 0.00029,
1588 + 0.13022, 0.02633, 0.01272, 0.00023, 0.00006,
1589 + -0.00003, 0.00015, 0.00031,
1590 + 0.11899, 0.02389, 0.01048, 0.00023, 0.00003,
1591 + -0.00004, 0.00013, 0.00023,
1592 + 0.10943, 0.02180, 0.00879, 0.00024, 0.00007,
1593 + 0.00000, 0.00015, 0.00020 /
1594 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1595 + 0.10123, 0.02001, 0.00748, 0.00018, 0.00006,
1596 + 0.00000, 0.00013, 0.00021,
1597 + 0.09400, 0.01847, 0.00644, 0.00017, 0.00006,
1598 + 0.00000, 0.00012, 0.00018,
1599 + 0.08767, 0.01712, 0.00561, 0.00015, 0.00007,
1600 + 0.00001, 0.00013, 0.00017,
1601 + 0.08209, 0.01594, 0.00494, 0.00011, 0.00006,
1602 + 0.00002, 0.00012, 0.00017,
1603 + 0.07705, 0.01489, 0.00439, 0.00010, 0.00005,
1604 + 0.00001, 0.00009, 0.00015,
1605 + 0.07250, 0.01395, 0.00393, 0.00012, 0.00006,
1606 + 0.00002, 0.00010, 0.00014,
1607 + 0.06845, 0.01310, 0.00354, 0.00011, 0.00006,
1608 + 0.00002, 0.00011, 0.00013 /
1609 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1610 + 0.06483, 0.01233, 0.00322, 0.00008, 0.00005,
1611 + 0.00002, 0.00010, 0.00011,
1612 + 0.06149, 0.01164, 0.00293, 0.00006, 0.00006,
1613 + 0.00003, 0.00010, 0.00012,
1614 + 0.05845, 0.01102, 0.00269, 0.00004, 0.00006,
1615 + 0.00004, 0.00009, 0.00012,
1616 + 0.05566, 0.01046, 0.00247, 0.00004, 0.00006,
1617 + 0.00004, 0.00009, 0.00010,
1618 + 0.05308, 0.00994, 0.00229, 0.00005, 0.00005,
1619 + 0.00003, 0.00008, 0.00008 /
1620 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1621 + 0.17307, 0.03490, 0.02665, 0.00046, -0.00007,
1622 + -0.00009, 0.00005, 0.00024,
1623 + 0.15055, 0.02994, 0.01920, 0.00037, -0.00004,
1624 + -0.00009, 0.00006, 0.00024,
1625 + 0.13291, 0.02615, 0.01444, 0.00037, -0.00001,
1626 + -0.00007, 0.00005, 0.00017,
1627 + 0.11911, 0.02315, 0.01127, 0.00019, 0.00003,
1628 + -0.00005, 0.00008, 0.00016,
1629 + 0.10754, 0.02069, 0.00902, 0.00015, 0.00001,
1630 + -0.00005, 0.00007, 0.00016,
1631 + 0.09777, 0.01869, 0.00739, 0.00020, 0.00002,
1632 + -0.00004, 0.00007, 0.00013,
1633 + 0.08962, 0.01699, 0.00617, 0.00018, 0.00002,
1634 + -0.00003, 0.00007, 0.00012 /
1635 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1636 + 0.08262, 0.01553, 0.00523, 0.00013, 0.00002,
1637 + -0.00002, 0.00006, 0.00010,
1638 + 0.07649, 0.01429, 0.00449, 0.00009, 0.00003,
1639 + 0.00000, 0.00006, 0.00012,
1640 + 0.07110, 0.01321, 0.00390, 0.00007, 0.00003,
1641 + 0.00000, 0.00006, 0.00011,
1642 + 0.06633, 0.01225, 0.00342, 0.00007, 0.00003,
1643 + -0.00001, 0.00005, 0.00007,
1644 + 0.06205, 0.01141, 0.00303, 0.00008, 0.00002,
1645 + 0.00000, 0.00006, 0.00007,
1646 + 0.05829, 0.01066, 0.00271, 0.00007, 0.00003,
1647 + 0.00001, 0.00006, 0.00007,
1648 + 0.05490, 0.00998, 0.00244, 0.00005, 0.00003,
1649 + 0.00001, 0.00006, 0.00007 /
1650 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1651 + 0.05183, 0.00938, 0.00220, 0.00003, 0.00003,
1652 + 0.00001, 0.00006, 0.00007,
1653 + 0.04900, 0.00884, 0.00201, 0.00004, 0.00002,
1654 + 0.00001, 0.00005, 0.00007,
1655 + 0.04643, 0.00835, 0.00184, 0.00005, 0.00002,
1656 + 0.00000, 0.00004, 0.00006,
1657 + 0.04411, 0.00790, 0.00169, 0.00004, 0.00002,
1658 + 0.00001, 0.00004, 0.00005,
1659 + 0.04199, 0.00749, 0.00156, 0.00004, 0.00002,
1660 + 0.00001, 0.00004, 0.00005 /
1661 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1662 + 0.14400, 0.02740, 0.01919, 0.00016, -0.00001,
1663 + -0.00001, 0.00007, 0.00017,
1664 + 0.12445, 0.02339, 0.01370, 0.00012, -0.00002,
1665 + -0.00004, 0.00003, 0.00015,
1666 + 0.10933, 0.02034, 0.01022, 0.00013, 0.00000,
1667 + -0.00001, 0.00006, 0.00012,
1668 + 0.09717, 0.01790, 0.00791, 0.00015, 0.00000,
1669 + -0.00002, 0.00005, 0.00010,
1670 + 0.08733, 0.01594, 0.00630, 0.00012, -0.00001,
1671 + -0.00003, 0.00002, 0.00010,
1672 + 0.07917, 0.01434, 0.00513, 0.00008, 0.00002,
1673 + -0.00002, 0.00002, 0.00010,
1674 + 0.07220, 0.01299, 0.00426, 0.00008, 0.00000,
1675 + -0.00001, 0.00004, 0.00011 /
1676 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1677 + 0.06627, 0.01185, 0.00359, 0.00008, 0.00000,
1678 + -0.00002, 0.00003, 0.00007,
1679 + 0.06113, 0.01086, 0.00307, 0.00008, 0.00000,
1680 + -0.00001, 0.00002, 0.00007,
1681 + 0.05666, 0.01000, 0.00266, 0.00005, 0.00001,
1682 + 0.00000, 0.00003, 0.00009,
1683 + 0.05273, 0.00925, 0.00233, 0.00003, 0.00001,
1684 + 0.00000, 0.00003, 0.00009,
1685 + 0.04919, 0.00860, 0.00206, 0.00006, 0.00001,
1686 + 0.00000, 0.00003, 0.00004,
1687 + 0.04605, 0.00801, 0.00183, 0.00006, 0.00001,
1688 + 0.00000, 0.00003, 0.00004,
1689 + 0.04325, 0.00748, 0.00164, 0.00005, 0.00001,
1690 + 0.00000, 0.00003, 0.00004 /
1691 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1692 + 0.04073, 0.00701, 0.00149, 0.00004, 0.00000,
1693 + 0.00000, 0.00002, 0.00004,
1694 + 0.03841, 0.00660, 0.00135, 0.00004, 0.00000,
1695 + 0.00000, 0.00001, 0.00004,
1696 + 0.03632, 0.00622, 0.00123, 0.00004, 0.00000,
1697 + 0.00000, 0.00001, 0.00004,
1698 + 0.03442, 0.00587, 0.00113, 0.00005, 0.00001,
1699 + 0.00000, 0.00001, 0.00004,
1700 + 0.03269, 0.00555, 0.00104, 0.00005, 0.00001,
1701 + 0.00000, 0.00002, 0.00004 /
1702 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1703 + 0.09451, 0.01603, 0.00934, 0.00000, -0.00003,
1704 + 0.00000, 0.00001, 0.00009,
1705 + 0.08031, 0.01345, 0.00648, 0.00004, -0.00001,
1706 + -0.00001, -0.00001, 0.00005,
1707 + 0.06960, 0.01152, 0.00472, 0.00006, 0.00001,
1708 + 0.00000, 0.00002, 0.00002,
1709 + 0.06117, 0.01003, 0.00358, 0.00002, 0.00000,
1710 + -0.00002, 0.00001, 0.00001,
1711 + 0.05440, 0.00883, 0.00281, 0.00001, 0.00000,
1712 + -0.00001, 0.00002, 0.00002,
1713 + 0.04875, 0.00786, 0.00225, 0.00004, 0.00001,
1714 + 0.00000, 0.00002, 0.00002,
1715 + 0.04411, 0.00705, 0.00185, 0.00002, 0.00001,
1716 + 0.00000, 0.00002, 0.00000 /
1717 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1718 + 0.04011, 0.00637, 0.00155, 0.00003, 0.00001,
1719 + 0.00000, 0.00001, 0.00001,
1720 + 0.03668, 0.00579, 0.00131, 0.00001, 0.00001,
1721 + 0.00001, 0.00001, 0.00003,
1722 + 0.03372, 0.00529, 0.00113, 0.00000, 0.00001,
1723 + 0.00000, 0.00001, 0.00003,
1724 + 0.03114, 0.00487, 0.00098, 0.00000, 0.00001,
1725 + 0.00000, 0.00001, 0.00002,
1726 + 0.02888, 0.00449, 0.00086, 0.00000, 0.00001,
1727 + 0.00000, 0.00001, 0.00002,
1728 + 0.02686, 0.00415, 0.00076, -0.00001, 0.00001,
1729 + 0.00000, 0.00001, 0.00002,
1730 + 0.02506, 0.00386, 0.00068, 0.00000, 0.00001,
1731 + 0.00001, 0.00001, 0.00003 /
1732 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1733 + 0.02342, 0.00360, 0.00061, 0.00002, 0.00001,
1734 + 0.00000, 0.00001, 0.00002,
1735 + 0.02199, 0.00336, 0.00055, 0.00001, 0.00001,
1736 + 0.00000, 0.00001, 0.00002,
1737 + 0.02071, 0.00315, 0.00050, -0.00001, 0.00000,
1738 + 0.00000, 0.00001, 0.00002,
1739 + 0.01952, 0.00296, 0.00046, -0.00001, 0.00000,
1740 + 0.00000, 0.00001, 0.00002,
1741 + 0.01844, 0.00278, 0.00042, 0.00000, 0.00000,
1742 + 0.00000, 0.00001, 0.00001 /
1743 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1744 + 0.05705, 0.00853, 0.00409, 0.00005, -0.00001,
1745 + -0.00001, -0.00002, 0.00001,
1746 + 0.04770, 0.00705, 0.00276, 0.00005, 0.00000,
1747 + -0.00001, 0.00000, 0.00001,
1748 + 0.04072, 0.00595, 0.00196, 0.00002, 0.00000,
1749 + 0.00000, 0.00000, 0.00002,
1750 + 0.03534, 0.00510, 0.00146, 0.00001, -0.00001,
1751 + -0.00001, 0.00000, 0.00000,
1752 + 0.03104, 0.00444, 0.00113, 0.00000, 0.00000,
1753 + -0.00001, 0.00000, 0.00001,
1754 + 0.02754, 0.00391, 0.00089, 0.00000, 0.00000,
1755 + -0.00001, 0.00000, 0.00000,
1756 + 0.02464, 0.00347, 0.00073, 0.00000, 0.00000,
1757 + -0.00001, 0.00000, 0.00000 /
1758 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1759 + 0.02220, 0.00311, 0.00060, 0.00001, 0.00000,
1760 + 0.00000, 0.00000, 0.00000,
1761 + 0.02013, 0.00280, 0.00050, 0.00000, 0.00000,
1762 + 0.00000, 0.00000, 0.00000,
1763 + 0.01835, 0.00254, 0.00043, 0.00000, 0.00000,
1764 + 0.00000, 0.00000, 0.00001,
1765 + 0.01681, 0.00231, 0.00037, 0.00000, 0.00000,
1766 + 0.00000, 0.00000, 0.00001,
1767 + 0.01548, 0.00212, 0.00033, -0.00001, 0.00000,
1768 + 0.00000, 0.00000, 0.00000,
1769 + 0.01428, 0.00195, 0.00029, 0.00000, 0.00000,
1770 + 0.00000, 0.00000, 0.00000,
1771 + 0.01324, 0.00180, 0.00025, 0.00000, 0.00000,
1772 + 0.00000, 0.00000, 0.00000 /
1773 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1774 + 0.01232, 0.00166, 0.00023, -0.00001, 0.00000,
1775 + 0.00000, 0.00000, 0.00001,
1776 + 0.01149, 0.00155, 0.00021, -0.00001, 0.00000,
1777 + 0.00000, 0.00000, 0.00000,
1778 + 0.01075, 0.00144, 0.00019, 0.00000, 0.00000,
1779 + 0.00000, 0.00000, 0.00000,
1780 + 0.01008, 0.00135, 0.00017, 0.00000, 0.00000,
1781 + 0.00000, 0.00000, 0.00000,
1782 + 0.00947, 0.00126, 0.00016, 0.00000, 0.00000,
1783 + 0.00000, 0.00000, 0.00000 /
1784 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1785 + 0.03071, 0.00396, 0.00154, 0.00000, 0.00000,
1786 + 0.00000, 0.00000, 0.00000,
1787 + 0.02518, 0.00321, 0.00101, 0.00001, 0.00000,
1788 + 0.00000, 0.00000, 0.00001,
1789 + 0.02119, 0.00266, 0.00070, 0.00000, 0.00000,
1790 + 0.00000, 0.00000, 0.00000,
1791 + 0.01810, 0.00226, 0.00051, 0.00000, 0.00000,
1792 + 0.00000, 0.00000, 0.00000,
1793 + 0.01567, 0.00194, 0.00039, 0.00001, 0.00000,
1794 + 0.00000, 0.00000, 0.00000,
1795 + 0.01373, 0.00169, 0.00030, 0.00001, 0.00000,
1796 + 0.00000, 0.00000, 0.00000,
1797 + 0.01216, 0.00148, 0.00024, 0.00000, 0.00000,
1798 + 0.00000, 0.00000, 0.00000 /
1799 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1800 + 0.01085, 0.00131, 0.00020, 0.00000, 0.00000,
1801 + 0.00000, 0.00000, 0.00000,
1802 + 0.00974, 0.00117, 0.00017, 0.00000, 0.00000,
1803 + 0.00000, 0.00000, 0.00000,
1804 + 0.00880, 0.00105, 0.00014, 0.00001, 0.00000,
1805 + 0.00000, 0.00000, 0.00000,
1806 + 0.00799, 0.00095, 0.00012, 0.00001, 0.00000,
1807 + 0.00000, 0.00000, 0.00000,
1808 + 0.00731, 0.00086, 0.00011, 0.00000, 0.00000,
1809 + 0.00000, 0.00000, 0.00000,
1810 + 0.00669, 0.00079, 0.00009, 0.00000, 0.00000,
1811 + 0.00000, 0.00000, 0.00000,
1812 + 0.00616, 0.00072, 0.00008, 0.00000, 0.00000,
1813 + 0.00000, 0.00000, 0.00000 /
1814 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1815 + 0.00569, 0.00066, 0.00007, 0.00000, 0.00000,
1816 + 0.00000, 0.00000, 0.00000,
1817 + 0.00527, 0.00061, 0.00007, 0.00000, 0.00000,
1818 + 0.00000, 0.00000, 0.00000,
1819 + 0.00490, 0.00057, 0.00006, 0.00000, 0.00000,
1820 + 0.00000, 0.00000, 0.00000,
1821 + 0.00456, 0.00053, 0.00005, 0.00000, 0.00000,
1822 + 0.00000, 0.00000, 0.00000,
1823 + 0.00426, 0.00049, 0.00005, 0.00000, 0.00000,
1824 + 0.00000, 0.00000, 0.00000 /
1825 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1826 + 0.01405, 0.00152, 0.00047, 0.00001, 0.00000,
1827 + 0.00000, 0.00000, 0.00000,
1828 + 0.01130, 0.00121, 0.00029, -0.00001, 0.00000,
1829 + 0.00000, 0.00000, 0.00000,
1830 + 0.00930, 0.00098, 0.00020, 0.00000, 0.00000,
1831 + 0.00000, 0.00000, 0.00000,
1832 + 0.00780, 0.00082, 0.00014, 0.00000, 0.00000,
1833 + 0.00000, 0.00000, 0.00000,
1834 + 0.00666, 0.00069, 0.00011, 0.00000, 0.00000,
1835 + 0.00000, 0.00000, 0.00000,
1836 + 0.00576, 0.00059, 0.00008, 0.00000, 0.00000,
1837 + 0.00000, 0.00000, 0.00000,
1838 + 0.00502, 0.00051, 0.00007, 0.00000, 0.00000,
1839 + 0.00000, 0.00000, 0.00000 /
1840 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1841 + 0.00443, 0.00045, 0.00005, 0.00000, 0.00000,
1842 + 0.00000, 0.00000, 0.00000,
1843 + 0.00393, 0.00040, 0.00004, 0.00000, 0.00000,
1844 + 0.00000, 0.00000, 0.00000,
1845 + 0.00351, 0.00035, 0.00004, 0.00000, 0.00000,
1846 + 0.00000, 0.00000, 0.00000,
1847 + 0.00316, 0.00032, 0.00003, 0.00000, 0.00000,
1848 + 0.00000, 0.00000, 0.00000,
1849 + 0.00285, 0.00028, 0.00003, 0.00000, 0.00000,
1850 + 0.00000, 0.00000, 0.00000,
1851 + 0.00259, 0.00026, 0.00002, 0.00000, 0.00000,
1852 + 0.00000, 0.00000, 0.00000,
1853 + 0.00236, 0.00023, 0.00002, 0.00000, 0.00000,
1854 + 0.00000, 0.00000, 0.00000 /
1855 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1856 + 0.00217, 0.00021, 0.00002, 0.00000, 0.00000,
1857 + 0.00000, 0.00000, 0.00000,
1858 + 0.00199, 0.00019, 0.00002, 0.00000, 0.00000,
1859 + 0.00000, 0.00000, 0.00000,
1860 + 0.00183, 0.00018, 0.00002, 0.00000, 0.00000,
1861 + 0.00000, 0.00000, 0.00000,
1862 + 0.00170, 0.00016, 0.00001, 0.00000, 0.00000,
1863 + 0.00000, 0.00000, 0.00000,
1864 + 0.00157, 0.00015, 0.00001, 0.00000, 0.00000,
1865 + 0.00000, 0.00000, 0.00000 /
1866 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1867 + 0.00112, 0.00007, 0.00001, 0.00000, 0.00000,
1868 + 0.00000, 0.00000, 0.00000,
1869 + 0.00084, 0.00005, 0.00001, 0.00000, 0.00000,
1870 + 0.00000, 0.00000, 0.00000,
1871 + 0.00066, 0.00004, 0.00001, 0.00000, 0.00000,
1872 + 0.00000, 0.00000, 0.00000,
1873 + 0.00053, 0.00003, 0.00000, 0.00000, 0.00000,
1874 + 0.00000, 0.00000, 0.00000,
1875 + 0.00043, 0.00003, 0.00000, 0.00000, 0.00000,
1876 + 0.00000, 0.00000, 0.00000,
1877 + 0.00036, 0.00002, 0.00000, 0.00000, 0.00000,
1878 + 0.00000, 0.00000, 0.00000,
1879 + 0.00030, 0.00002, 0.00000, 0.00000, 0.00000,
1880 + 0.00000, 0.00000, 0.00000 /
1881 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1882 + 0.00026, 0.00002, 0.00000, 0.00000, 0.00000,
1883 + 0.00000, 0.00000, 0.00000,
1884 + 0.00022, 0.00001, 0.00000, 0.00000, 0.00000,
1885 + 0.00000, 0.00000, 0.00000,
1886 + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000,
1887 + 0.00000, 0.00000, 0.00000,
1888 + 0.00017, 0.00001, 0.00000, 0.00000, 0.00000,
1889 + 0.00000, 0.00000, 0.00000,
1890 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000,
1891 + 0.00000, 0.00000, 0.00000,
1892 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000,
1893 + 0.00000, 0.00000, 0.00000,
1894 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000,
1895 + 0.00000, 0.00000, 0.00000 /
1896 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1897 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000,
1898 + 0.00000, 0.00000, 0.00000,
1899 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000,
1900 + 0.00000, 0.00000, 0.00000,
1901 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000,
1902 + 0.00000, 0.00000, 0.00000,
1903 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1904 + 0.00000, 0.00000, 0.00000,
1905 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000,
1906 + 0.00000, 0.00000, 0.00000 /
1907 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1908 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1909 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1910 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1911 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1912 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1913 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1914 . .8D0,.9D0,1.D0/
1915 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1916 DATA N0/2,5,5,10,0,0,10,10/
1917 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1918 DATA INIT/0/
1919
1920
1921 XSAVE=X
1922
1923 IF(INIT.NE.0) GOTO 10
1924 INIT=1
1925 DO 20 N=1,NX-1
1926 DO 20 M=1,19
1927C READ(82,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),
1928C . F(6,N,M),F(8,N,M)
1929C 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
1978 X=XSAVE
1979
1980 RETURN
1981 END