]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsbb0.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsbb0.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:30:16 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:42 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFMSBB0(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
14
15C THIS IS THE PREVIOUS KMRS(B0) FIT (190 MEV) USEA=DSEA=2*STR
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.01727, 0.00137, 4.14718, 0.13665, 0.03357,
23 + 0.00000, 0.08600, 0.13665,
24 + 0.01763, 0.00154, 9.74113, 0.28680, 0.18390,
25 + 0.00000, 0.23628, 0.28680,
26 + 0.01797, 0.00169, 17.09975, 0.48357, 0.38081,
27 + 0.00000, 0.43315, 0.48357,
28 + 0.01828, 0.00183, 26.22037, 0.72720, 0.62457,
29 + 0.00000, 0.67687, 0.72720,
30 + 0.01858, 0.00197, 36.71242, 1.00782, 0.90529,
31 + 0.01690, 0.95757, 1.00782,
32 + 0.01886, 0.00211, 48.57324, 1.32668, 1.22422,
33 + 0.21238, 1.27648, 1.32668,
34 + 0.01912, 0.00224, 61.70306, 1.68246, 1.58007,
35 + 0.60144, 1.63232, 1.68246 /
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.01938, 0.00236, 75.99297, 2.07332, 1.97098,
38 + 0.99713, 2.02322, 2.07332,
39 + 0.01962, 0.00248, 91.33727, 2.49708, 2.39479,
40 + 1.43030, 2.44703, 2.49708,
41 + 0.01986, 0.00260, 107.43649, 2.94648, 2.84421,
42 + 1.88753, 2.89645, 2.94648,
43 + 0.02009, 0.00272, 124.38155, 3.42428, 3.32204,
44 + 2.37281, 3.37428, 3.42428,
45 + 0.02031, 0.00283, 142.13774, 3.92982, 3.82760,
46 + 2.88542, 3.87985, 3.92982,
47 + 0.02053, 0.00295, 160.58954, 4.46035, 4.35815,
48 + 3.42263, 4.41040, 4.46035,
49 + 0.02074, 0.00306, 179.37915, 5.00696, 4.90476,
50 + 3.97556, 4.95702, 5.00696 /
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.02095, 0.00316, 198.88515, 5.57920, 5.47701,
53 + 4.55381, 5.52928, 5.57920,
54 + 0.02115, 0.00327, 218.71463, 6.16713, 6.06494,
55 + 5.14746, 6.11722, 6.16713,
56 + 0.02134, 0.00337, 238.94661, 6.77271, 6.67052,
57 + 5.75851, 6.72282, 6.77271,
58 + 0.02153, 0.00347, 259.60815, 7.39661, 7.29440,
59 + 6.38763, 7.34672, 7.39661,
60 + 0.02172, 0.00357, 280.40967, 8.03133, 7.92911,
61 + 7.02736, 7.98144, 8.03133 /
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.02115, 0.00210, 4.03986, 0.13824, 0.03153,
64 + 0.00000, 0.08549, 0.13824,
65 + 0.02166, 0.00234, 8.96050, 0.27329, 0.16660,
66 + 0.00000, 0.22057, 0.27329,
67 + 0.02212, 0.00257, 15.17996, 0.44380, 0.33711,
68 + 0.00000, 0.39110, 0.44380,
69 + 0.02255, 0.00278, 22.66025, 0.64940, 0.54270,
70 + 0.00000, 0.59671, 0.64940,
71 + 0.02295, 0.00298, 31.05817, 0.88140, 0.77468,
72 + 0.01386, 0.82873, 0.88140,
73 + 0.02333, 0.00318, 40.35976, 1.14050, 1.03376,
74 + 0.17228, 1.08783, 1.14050,
75 + 0.02369, 0.00336, 50.47510, 1.42533, 1.31855,
76 + 0.48476, 1.37266, 1.42533 /
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.02404, 0.00355, 61.31216, 1.73411, 1.62730,
79 + 0.79789, 1.68144, 1.73411,
80 + 0.02437, 0.00372, 72.78514, 2.06493, 1.95807,
81 + 1.13674, 2.01225, 2.06493,
82 + 0.02469, 0.00389, 84.66566, 2.41194, 2.30504,
83 + 1.49049, 2.35925, 2.41194,
84 + 0.02500, 0.00406, 97.02478, 2.77726, 2.67032,
85 + 1.86223, 2.72456, 2.77726,
86 + 0.02529, 0.00422, 109.83669, 3.16030, 3.05330,
87 + 2.25132, 3.10758, 3.16030,
88 + 0.02558, 0.00438, 123.01701, 3.55888, 3.45183,
89 + 2.65562, 3.50615, 3.55888,
90 + 0.02586, 0.00454, 136.30722, 3.96619, 3.85910,
91 + 3.06835, 3.91345, 3.96619 /
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.02613, 0.00469, 149.98785, 4.38954, 4.28239,
94 + 3.49683, 4.33678, 4.38954,
95 + 0.02640, 0.00484, 163.77657, 4.82138, 4.71418,
96 + 3.93358, 4.76860, 4.82138,
97 + 0.02666, 0.00499, 177.73506, 5.26327, 5.15601,
98 + 4.38014, 5.21047, 5.26327,
99 + 0.02691, 0.00513, 191.88643, 5.71572, 5.60841,
100 + 4.83705, 5.66290, 5.71572,
101 + 0.02715, 0.00527, 206.02808, 6.17319, 6.06581,
102 + 5.29879, 6.12035, 6.17319 /
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.02581, 0.00322, 3.93502, 0.13973, 0.02939,
105 + 0.00000, 0.08490, 0.13973,
106 + 0.02649, 0.00357, 8.24120, 0.26052, 0.15004,
107 + 0.00000, 0.20564, 0.26052,
108 + 0.02712, 0.00390, 13.47276, 0.40765, 0.29702,
109 + 0.00000, 0.35270, 0.40765,
110 + 0.02769, 0.00421, 19.57806, 0.58047, 0.46971,
111 + 0.00000, 0.52547, 0.58047,
112 + 0.02823, 0.00451, 26.26634, 0.77156, 0.66065,
113 + 0.01132, 0.71650, 0.77156,
114 + 0.02874, 0.00479, 33.52313, 0.98132, 0.87028,
115 + 0.13924, 0.92620, 0.98132,
116 + 0.02923, 0.00506, 41.27425, 1.20846, 1.09729,
117 + 0.38933, 1.15329, 1.20846 /
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.02969, 0.00532, 49.44673, 1.45145, 1.34015,
120 + 0.63622, 1.39623, 1.45145,
121 + 0.03013, 0.00558, 57.97556, 1.70868, 1.59726,
122 + 0.90031, 1.65340, 1.70868,
123 + 0.03056, 0.00582, 66.68988, 1.97554, 1.86399,
124 + 1.17296, 1.92020, 1.97554,
125 + 0.03096, 0.00606, 75.64777, 2.25369, 2.14202,
126 + 1.45661, 2.19830, 2.25369,
127 + 0.03136, 0.00629, 84.83273, 2.54266, 2.43087,
128 + 1.75078, 2.48722, 2.54266,
129 + 0.03174, 0.00652, 94.18532, 2.84079, 2.72889,
130 + 2.05381, 2.78530, 2.84079,
131 + 0.03211, 0.00674, 103.52109, 3.14293, 3.03092,
132 + 2.36059, 3.08739, 3.14293 /
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.03247, 0.00695, 113.04878, 3.45468, 3.34256,
135 + 2.67674, 3.39909, 3.45468,
136 + 0.03282, 0.00716, 122.56744, 3.77040, 3.65817,
137 + 2.99664, 3.71476, 3.77040,
138 + 0.03316, 0.00737, 132.12633, 4.09128, 3.97895,
139 + 3.32153, 4.03560, 4.09128,
140 + 0.03349, 0.00757, 141.74492, 4.41779, 4.30535,
141 + 3.65185, 4.36206, 4.41779,
142 + 0.03381, 0.00777, 151.28378, 4.74585, 4.63331,
143 + 3.98356, 4.69007, 4.74585 /
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.02893, 0.00413, 3.87473, 0.14055, 0.02810,
146 + 0.00000, 0.08453, 0.14055,
147 + 0.02974, 0.00457, 7.84653, 0.25338, 0.14069,
148 + 0.00000, 0.19726, 0.25338,
149 + 0.03048, 0.00499, 12.56228, 0.38804, 0.27512,
150 + 0.00000, 0.33181, 0.38804,
151 + 0.03116, 0.00537, 17.96925, 0.54385, 0.43071,
152 + 0.00000, 0.48753, 0.54385,
153 + 0.03180, 0.00574, 23.80748, 0.71409, 0.60075,
154 + 0.01004, 0.65767, 0.71409,
155 + 0.03240, 0.00609, 30.06538, 0.89909, 0.78555,
156 + 0.12269, 0.84258, 0.89909,
157 + 0.03297, 0.00643, 36.67871, 1.09766, 0.98393,
158 + 0.34182, 1.04106, 1.09766 /
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.03352, 0.00675, 43.58598, 1.30842, 1.19452,
161 + 0.55625, 1.25174, 1.30842,
162 + 0.03404, 0.00706, 50.73314, 1.52996, 1.41588,
163 + 0.78405, 1.47320, 1.52996,
164 + 0.03454, 0.00737, 57.97787, 1.75831, 1.64406,
165 + 1.01769, 1.70146, 1.75831,
166 + 0.03502, 0.00766, 65.37230, 1.99491, 1.88050,
167 + 1.25932, 1.93799, 1.99491,
168 + 0.03548, 0.00794, 72.90512, 2.23939, 2.12482,
169 + 1.50855, 2.18239, 2.23939,
170 + 0.03593, 0.00822, 80.52847, 2.49034, 2.37562,
171 + 1.76398, 2.43327, 2.49034,
172 + 0.03637, 0.00849, 88.09204, 2.74342, 2.62854,
173 + 2.02129, 2.68628, 2.74342 /
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.03679, 0.00876, 95.77158, 3.00342, 2.88840,
176 + 2.28531, 2.94621, 3.00342,
177 + 0.03720, 0.00901, 103.40367, 3.26559, 3.15044,
178 + 2.55131, 3.20832, 3.26559,
179 + 0.03759, 0.00926, 111.03078, 3.53100, 3.41570,
180 + 2.82036, 3.47366, 3.53100,
181 + 0.03798, 0.00951, 118.67154, 3.80005, 3.68462,
182 + 3.09289, 3.74265, 3.80005,
183 + 0.03836, 0.00975, 126.21417, 4.06936, 3.95381,
184 + 3.36555, 4.01190, 4.06936 /
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.03134, 0.00493, 3.83235, 0.14111, 0.02716,
187 + 0.00000, 0.08427, 0.14111,
188 + 0.03225, 0.00545, 7.57737, 0.24846, 0.13420,
189 + 0.00000, 0.19148, 0.24846,
190 + 0.03308, 0.00593, 11.95233, 0.37478, 0.26023,
191 + 0.00000, 0.31766, 0.37478,
192 + 0.03385, 0.00639, 16.90590, 0.51940, 0.40458,
193 + 0.00000, 0.46214, 0.51940,
194 + 0.03457, 0.00681, 22.19968, 0.67608, 0.56101,
195 + 0.00921, 0.61870, 0.67608,
196 + 0.03524, 0.00722, 27.82472, 0.84513, 0.72981,
197 + 0.11204, 0.78764, 0.84513,
198 + 0.03588, 0.00761, 33.72424, 1.02544, 0.90990,
199 + 0.31136, 0.96785, 1.02544 /
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.03649, 0.00799, 39.84422, 1.21576, 1.10000,
202 + 0.50519, 1.15806, 1.21576,
203 + 0.03708, 0.00835, 46.13820, 1.41480, 1.29883,
204 + 0.71009, 1.35700, 1.41480,
205 + 0.03764, 0.00870, 52.48160, 1.61900, 1.50283,
206 + 0.91927, 1.56110, 1.61900,
207 + 0.03818, 0.00904, 58.92308, 1.82969, 1.71334,
208 + 1.13468, 1.77170, 1.82969,
209 + 0.03870, 0.00937, 65.45433, 2.04655, 1.93001,
210 + 1.35600, 1.98847, 2.04655,
211 + 0.03920, 0.00969, 72.03506, 2.26835, 2.15163,
212 + 1.58200, 2.21019, 2.26835,
213 + 0.03969, 0.01000, 78.53560, 2.49124, 2.37434,
214 + 1.80886, 2.43298, 2.49124 /
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.04016, 0.01031, 85.11166, 2.71952, 2.60246,
217 + 2.04091, 2.66118, 2.71952,
218 + 0.04061, 0.01060, 91.62201, 2.94899, 2.83177,
219 + 2.27397, 2.89058, 2.94899,
220 + 0.04106, 0.01089, 98.10550, 3.18062, 3.06325,
221 + 2.50902, 3.12214, 3.18062,
222 + 0.04149, 0.01117, 104.57967, 3.41482, 3.29729,
223 + 2.74648, 3.35626, 3.41482,
224 + 0.04191, 0.01145, 110.94926, 3.64862, 3.53094,
225 + 2.98341, 3.58998, 3.64862 /
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.03332, 0.00566, 3.79968, 0.14154, 0.02642,
228 + 0.00000, 0.08406, 0.14154,
229 + 0.03432, 0.00625, 7.37448, 0.24473, 0.12925,
230 + 0.00000, 0.18708, 0.24473,
231 + 0.03523, 0.00679, 11.49857, 0.36486, 0.24904,
232 + 0.00000, 0.30705, 0.36486,
233 + 0.03607, 0.00730, 16.12267, 0.50126, 0.38513,
234 + 0.00000, 0.44329, 0.50126,
235 + 0.03686, 0.00778, 21.02475, 0.64808, 0.53166,
236 + 0.00861, 0.58997, 0.64808,
237 + 0.03759, 0.00824, 26.19827, 0.80560, 0.68892,
238 + 0.10436, 0.74737, 0.80560,
239 + 0.03829, 0.00868, 31.59203, 0.97281, 0.85587,
240 + 0.28944, 0.91445, 0.97281 /
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.03896, 0.00910, 37.15771, 1.14852, 1.03133,
243 + 0.46854, 1.09004, 1.14852,
244 + 0.03960, 0.00951, 42.85422, 1.33156, 1.21414,
245 + 0.65716, 1.27297, 1.33156,
246 + 0.04021, 0.00990, 48.56958, 1.51867, 1.40102,
247 + 0.84901, 1.45996, 1.51867,
248 + 0.04080, 0.01028, 54.35023, 1.71109, 1.59322,
249 + 1.04592, 1.65227, 1.71109,
250 + 0.04137, 0.01065, 60.18990, 1.90854, 1.79047,
251 + 1.24762, 1.84963, 1.90854,
252 + 0.04191, 0.01101, 66.05362, 2.10991, 1.99165,
253 + 1.45299, 2.05090, 2.10991,
254 + 0.04244, 0.01136, 71.82570, 2.31171, 2.19326,
255 + 1.65857, 2.25261, 2.31171 /
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.04296, 0.01170, 77.64796, 2.51790, 2.39926,
258 + 1.86835, 2.45870, 2.51790,
259 + 0.04345, 0.01203, 83.39464, 2.72465, 2.60584,
260 + 2.07852, 2.66537, 2.72465,
261 + 0.04394, 0.01235, 89.10205, 2.93290, 2.81392,
262 + 2.29002, 2.87354, 2.93290,
263 + 0.04441, 0.01266, 94.78679, 3.14301, 3.02386,
264 + 2.50323, 3.08356, 3.14301,
265 + 0.04487, 0.01297, 100.36469, 3.35231, 3.23300,
266 + 2.71551, 3.29278, 3.35231 /
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.04020, 0.00867, 3.69894, 0.14290, 0.02408,
269 + 0.00000, 0.08346, 0.14290,
270 + 0.04151, 0.00953, 6.77438, 0.23366, 0.11433,
271 + 0.00000, 0.17397, 0.23366,
272 + 0.04270, 0.01032, 10.18754, 0.33598, 0.21618,
273 + 0.00000, 0.27606, 0.33598,
274 + 0.04381, 0.01107, 13.89920, 0.44924, 0.32902,
275 + 0.00000, 0.38911, 0.44924,
276 + 0.04483, 0.01176, 17.73564, 0.56872, 0.44810,
277 + 0.00695, 0.50839, 0.56872,
278 + 0.04580, 0.01242, 21.69847, 0.69469, 0.57370,
279 + 0.08336, 0.63418, 0.69469,
280 + 0.04672, 0.01305, 25.75279, 0.82636, 0.70503,
281 + 0.22979, 0.76568, 0.82636 /
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.04759, 0.01366, 29.86649, 0.96284, 0.84118,
284 + 0.36932, 0.90200, 0.96284,
285 + 0.04842, 0.01424, 34.01329, 1.10326, 0.98130,
286 + 0.51451, 1.04227, 1.10326,
287 + 0.04922, 0.01479, 38.11441, 1.24516, 1.12290,
288 + 0.66049, 1.18401, 1.24516,
289 + 0.04999, 0.01533, 42.20973, 1.38957, 1.26704,
290 + 0.80878, 1.32829, 1.38957,
291 + 0.05073, 0.01585, 46.29869, 1.53635, 1.41356,
292 + 0.95921, 1.47494, 1.53635,
293 + 0.05145, 0.01635, 50.35931, 1.68471, 1.56166,
294 + 1.11100, 1.62317, 1.68471,
295 + 0.05214, 0.01684, 54.31206, 1.83207, 1.70878,
296 + 1.26162, 1.77041, 1.83207 /
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.05281, 0.01732, 58.26271, 1.98149, 1.85798,
299 + 1.41412, 1.91972, 1.98149,
300 + 0.05346, 0.01778, 62.12411, 2.13018, 2.00644,
301 + 1.56575, 2.06830, 2.13018,
302 + 0.05409, 0.01822, 65.92543, 2.27888, 2.15493,
303 + 1.71724, 2.21688, 2.27888,
304 + 0.05470, 0.01866, 69.68102, 2.42792, 2.30376,
305 + 1.86895, 2.36582, 2.42792,
306 + 0.05530, 0.01908, 73.33424, 2.57538, 2.45103,
307 + 2.01897, 2.51318, 2.57538 /
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.04833, 0.01328, 3.59829, 0.14447, 0.02168,
310 + 0.00000, 0.08303, 0.14447,
311 + 0.05003, 0.01454, 6.21379, 0.22356, 0.10011,
312 + 0.00000, 0.16179, 0.22356,
313 + 0.05158, 0.01569, 9.00627, 0.31002, 0.18599,
314 + 0.00000, 0.24797, 0.31002,
315 + 0.05302, 0.01676, 11.94959, 0.40334, 0.27878,
316 + 0.00000, 0.34102, 0.40334,
317 + 0.05436, 0.01776, 14.91340, 0.49978, 0.37474,
318 + 0.00557, 0.43723, 0.49978,
319 + 0.05562, 0.01870, 17.90746, 0.59967, 0.47417,
320 + 0.06605, 0.53689, 0.59967,
321 + 0.05682, 0.01960, 20.91110, 0.70244, 0.57653,
322 + 0.18097, 0.63945, 0.70244 /
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.05796, 0.02045, 23.90559, 0.80747, 0.68117,
325 + 0.28875, 0.74429, 0.80747,
326 + 0.05904, 0.02127, 26.87637, 0.91416, 0.78749,
327 + 0.39953, 0.85079, 0.91416,
328 + 0.06009, 0.02206, 29.76994, 1.02068, 0.89368,
329 + 0.50959, 0.95715, 1.02068,
330 + 0.06109, 0.02281, 32.62083, 1.12794, 1.00060,
331 + 0.62019, 1.06424, 1.12794,
332 + 0.06205, 0.02354, 35.43228, 1.23587, 1.10823,
333 + 0.73127, 1.17202, 1.23587,
334 + 0.06298, 0.02424, 38.19170, 1.34395, 1.21602,
335 + 0.84232, 1.27996, 1.34395,
336 + 0.06388, 0.02492, 40.84555, 1.45032, 1.32211,
337 + 0.95150, 1.38618, 1.45032 /
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.06475, 0.02558, 43.47240, 1.55732, 1.42885,
340 + 1.06117, 1.49306, 1.55732,
341 + 0.06560, 0.02621, 46.01302, 1.66295, 1.53423,
342 + 1.16933, 1.59856, 1.66295,
343 + 0.06642, 0.02683, 48.49049, 1.76779, 1.63883,
344 + 1.27660, 1.70328, 1.76779,
345 + 0.06721, 0.02743, 50.91679, 1.87215, 1.74296,
346 + 1.38327, 1.80752, 1.87215,
347 + 0.06799, 0.02801, 53.25471, 1.97468, 1.84527,
348 + 1.48801, 1.90995, 1.97468 /
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.05382, 0.01706, 3.53856, 0.14570, 0.02026,
351 + 0.00000, 0.08296, 0.14570,
352 + 0.05580, 0.01861, 5.90028, 0.21828, 0.09212,
353 + 0.00000, 0.15519, 0.21828,
354 + 0.05762, 0.02004, 8.36460, 0.29627, 0.16946,
355 + 0.00000, 0.23286, 0.29627,
356 + 0.05931, 0.02136, 10.91359, 0.37917, 0.25179,
357 + 0.00000, 0.31548, 0.37917,
358 + 0.06087, 0.02259, 13.43987, 0.46381, 0.33590,
359 + 0.00487, 0.39986, 0.46381,
360 + 0.06235, 0.02374, 15.95744, 0.55053, 0.42214,
361 + 0.05734, 0.48634, 0.55053,
362 + 0.06375, 0.02484, 18.45279, 0.63891, 0.51007,
363 + 0.15654, 0.57450, 0.63891 /
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.06508, 0.02588, 20.91368, 0.72846, 0.59921,
366 + 0.24869, 0.66384, 0.72846,
367 + 0.06635, 0.02688, 23.33113, 0.81871, 0.68907,
368 + 0.34269, 0.75391, 0.81871,
369 + 0.06757, 0.02783, 25.66345, 0.90818, 0.77817,
370 + 0.43540, 0.84319, 0.90818,
371 + 0.06874, 0.02874, 27.94212, 0.99766, 0.86732,
372 + 0.52796, 0.93251, 0.99766,
373 + 0.06987, 0.02962, 30.17204, 1.08716, 0.95650,
374 + 0.62037, 1.02185, 1.08716,
375 + 0.07096, 0.03047, 32.34473, 1.17628, 1.04531,
376 + 0.71221, 1.11081, 1.17628,
377 + 0.07201, 0.03129, 34.41817, 1.26348, 1.13223,
378 + 0.80201, 1.19787, 1.26348 /
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.07302, 0.03208, 36.45828, 1.35079, 1.21926,
381 + 0.89177, 1.28504, 1.35079,
382 + 0.07401, 0.03284, 38.41805, 1.43653, 1.30475,
383 + 0.97986, 1.37066, 1.43653,
384 + 0.07496, 0.03358, 40.31763, 1.52126, 1.38923,
385 + 1.06682, 1.45527, 1.52126,
386 + 0.07589, 0.03429, 42.16774, 1.60524, 1.47297,
387 + 1.15292, 1.53913, 1.60524,
388 + 0.07679, 0.03499, 43.93956, 1.68738, 1.55489,
389 + 1.23711, 1.62116, 1.68738 /
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.05816, 0.02037, 3.49532, 0.14682, 0.01926,
392 + 0.00000, 0.08304, 0.14682,
393 + 0.06039, 0.02218, 5.68253, 0.21494, 0.08660,
394 + 0.00000, 0.15078, 0.21494,
395 + 0.06243, 0.02383, 7.92716, 0.28721, 0.15819,
396 + 0.00000, 0.22273, 0.28721,
397 + 0.06431, 0.02536, 10.21717, 0.36321, 0.23359,
398 + 0.00000, 0.29843, 0.36321,
399 + 0.06607, 0.02678, 12.46043, 0.44012, 0.30994,
400 + 0.00441, 0.37507, 0.44012,
401 + 0.06772, 0.02811, 14.67355, 0.51829, 0.38762,
402 + 0.05170, 0.45300, 0.51829,
403 + 0.06929, 0.02937, 16.84769, 0.59741, 0.46627,
404 + 0.14077, 0.53189, 0.59741 /
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.07078, 0.03056, 18.97456, 0.67706, 0.54549,
407 + 0.22292, 0.61133, 0.67706,
408 + 0.07221, 0.03171, 21.04855, 0.75688, 0.62492,
409 + 0.30626, 0.69096, 0.75688,
410 + 0.07358, 0.03279, 23.03528, 0.83558, 0.70325,
411 + 0.38804, 0.76948, 0.83558,
412 + 0.07489, 0.03383, 24.96417, 0.91392, 0.78124,
413 + 0.46927, 0.84764, 0.91392,
414 + 0.07615, 0.03483, 26.84091, 0.99192, 0.85892,
415 + 0.55001, 0.92549, 0.99192,
416 + 0.07736, 0.03580, 28.65936, 1.06925, 0.93595,
417 + 0.62993, 1.00267, 1.06925,
418 + 0.07854, 0.03672, 30.38464, 1.14461, 1.01102,
419 + 0.70774, 1.07789, 1.14461 /
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.07967, 0.03762, 32.07445, 1.21980, 1.08593,
422 + 0.78524, 1.15294, 1.21980,
423 + 0.08077, 0.03848, 33.68941, 1.29336, 1.15924,
424 + 0.86102, 1.22637, 1.29336,
425 + 0.08184, 0.03932, 35.24754, 1.36580, 1.23144,
426 + 0.93557, 1.29870, 1.36580,
427 + 0.08287, 0.04013, 36.75883, 1.43738, 1.30278,
428 + 1.00917, 1.37016, 1.43738,
429 + 0.08388, 0.04091, 38.19920, 1.50716, 1.37235,
430 + 1.08088, 1.43983, 1.50716 /
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.06205, 0.02339, 3.46064, 0.14821, 0.01849,
433 + 0.00000, 0.08335, 0.14821,
434 + 0.06451, 0.02542, 5.51269, 0.21294, 0.08240,
435 + 0.00000, 0.14767, 0.21294,
436 + 0.06677, 0.02727, 7.59007, 0.28088, 0.14963,
437 + 0.00000, 0.21527, 0.28088,
438 + 0.06885, 0.02897, 9.68558, 0.35168, 0.21980,
439 + 0.00000, 0.28577, 0.35168,
440 + 0.07078, 0.03055, 11.71840, 0.42281, 0.29036,
441 + 0.00408, 0.35662, 0.42281,
442 + 0.07261, 0.03202, 13.70769, 0.49464, 0.36168,
443 + 0.04752, 0.42820, 0.49464,
444 + 0.07433, 0.03342, 15.64750, 0.56692, 0.43349,
445 + 0.12909, 0.50025, 0.56692 /
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.07597, 0.03474, 17.53214, 0.63932, 0.50545,
448 + 0.20391, 0.57243, 0.63932,
449 + 0.07754, 0.03600, 19.35939, 0.71153, 0.57726,
450 + 0.27946, 0.64444, 0.71153,
451 + 0.07904, 0.03720, 21.09874, 0.78243, 0.64778,
452 + 0.35328, 0.71515, 0.78243,
453 + 0.08048, 0.03835, 22.77890, 0.85269, 0.71769,
454 + 0.42631, 0.78525, 0.85269,
455 + 0.08186, 0.03945, 24.40553, 0.92239, 0.78707,
456 + 0.49863, 0.85479, 0.92239,
457 + 0.08320, 0.04050, 25.97391, 0.99126, 0.85564,
458 + 0.56996, 0.92351, 0.99126,
459 + 0.08448, 0.04152, 27.45506, 1.05815, 0.92224,
460 + 0.63919, 0.99025, 1.05815 /
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.08573, 0.04250, 28.90048, 1.12468, 0.98850,
463 + 0.70793, 1.05665, 1.12468,
464 + 0.08693, 0.04344, 30.27596, 1.18956, 1.05313,
465 + 0.77493, 1.12141, 1.18956,
466 + 0.08809, 0.04435, 31.59718, 1.25328, 1.11662,
467 + 0.84067, 1.18501, 1.25328,
468 + 0.08922, 0.04524, 32.87344, 1.31609, 1.17920,
469 + 0.90541, 1.24771, 1.31609,
470 + 0.09032, 0.04609, 34.08525, 1.37716, 1.24006,
471 + 0.96833, 1.30868, 1.37716 /
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.07640, 0.03594, 3.34746, 0.15342, 0.01608,
474 + 0.00000, 0.08475, 0.15342,
475 + 0.07979, 0.03879, 4.99865, 0.20792, 0.06970,
476 + 0.00000, 0.13883, 0.20792,
477 + 0.08288, 0.04136, 6.59860, 0.26329, 0.12432,
478 + 0.00000, 0.19384, 0.26329,
479 + 0.08572, 0.04371, 8.15442, 0.31936, 0.17973,
480 + 0.00000, 0.24959, 0.31936,
481 + 0.08836, 0.04587, 9.61668, 0.37438, 0.23418,
482 + 0.00314, 0.30433, 0.37438,
483 + 0.09083, 0.04788, 11.00886, 0.42879, 0.28808,
484 + 0.03609, 0.35849, 0.42879,
485 + 0.09317, 0.04976, 12.33345, 0.48252, 0.34135,
486 + 0.09734, 0.41200, 0.48252 /
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.09538, 0.05154, 13.59177, 0.53544, 0.39386,
489 + 0.15248, 0.46472, 0.53544,
490 + 0.09749, 0.05323, 14.78690, 0.58741, 0.44546,
491 + 0.20735, 0.51651, 0.58741,
492 + 0.09950, 0.05481, 15.90138, 0.63770, 0.49541,
493 + 0.26021, 0.56663, 0.63770,
494 + 0.10142, 0.05633, 16.95880, 0.68689, 0.54430,
495 + 0.31183, 0.61567, 0.68689,
496 + 0.10327, 0.05778, 17.96573, 0.73509, 0.59222,
497 + 0.36234, 0.66374, 0.73509,
498 + 0.10504, 0.05916, 18.92113, 0.78217, 0.63905,
499 + 0.41160, 0.71070, 0.78217,
500 + 0.10675, 0.06047, 19.80765, 0.82737, 0.68402,
501 + 0.45887, 0.75578, 0.82737 /
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.10839, 0.06174, 20.66154, 0.87190, 0.72833,
504 + 0.50537, 0.80021, 0.87190,
505 + 0.10998, 0.06296, 21.46149, 0.91488, 0.77111,
506 + 0.55023, 0.84309, 0.91488,
507 + 0.11151, 0.06413, 22.21918, 0.95670, 0.81275,
508 + 0.59385, 0.88482, 0.95670,
509 + 0.11299, 0.06527, 22.94193, 0.99757, 0.85345,
510 + 0.63644, 0.92560, 0.99757,
511 + 0.11443, 0.06635, 23.61795, 1.03694, 0.89267,
512 + 0.67747, 0.96490, 1.03694 /
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.09672, 0.05523, 3.21931, 0.16103, 0.01368,
515 + 0.00001, 0.08735, 0.16103,
516 + 0.10147, 0.05910, 4.49238, 0.20579, 0.05767,
517 + 0.00001, 0.13175, 0.20579,
518 + 0.10577, 0.06255, 5.66821, 0.24966, 0.10091,
519 + 0.00001, 0.17531, 0.24966,
520 + 0.10970, 0.06568, 6.76590, 0.29271, 0.14343,
521 + 0.00001, 0.21811, 0.29271,
522 + 0.11334, 0.06851, 7.76049, 0.33388, 0.18418,
523 + 0.00237, 0.25907, 0.33388,
524 + 0.11671, 0.07113, 8.67746, 0.37365, 0.22359,
525 + 0.02661, 0.29867, 0.37365,
526 + 0.11988, 0.07356, 9.52601, 0.41211, 0.26176,
527 + 0.07120, 0.33700, 0.41211 /
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.12288, 0.07584, 10.31033, 0.44929, 0.29868,
530 + 0.11054, 0.37405, 0.44929,
531 + 0.12572, 0.07798, 11.03771, 0.48517, 0.33435,
532 + 0.14904, 0.40983, 0.48517,
533 + 0.12841, 0.07998, 11.69819, 0.51929, 0.36831,
534 + 0.18554, 0.44388, 0.51929,
535 + 0.13096, 0.08188, 12.31124, 0.55219, 0.40106,
536 + 0.22068, 0.47670, 0.55219,
537 + 0.13341, 0.08367, 12.88351, 0.58399, 0.43274,
538 + 0.25462, 0.50844, 0.58399,
539 + 0.13576, 0.08538, 13.41623, 0.61465, 0.46331,
540 + 0.28729, 0.53906, 0.61465,
541 + 0.13799, 0.08700, 13.89722, 0.64368, 0.49227,
542 + 0.31826, 0.56806, 0.64368 /
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.14014, 0.08855, 14.35325, 0.67197, 0.52049,
545 + 0.34839, 0.59631, 0.67197,
546 + 0.14220, 0.09003, 14.77248, 0.69893, 0.54741,
547 + 0.37712, 0.62326, 0.69893,
548 + 0.14418, 0.09144, 15.16176, 0.72489, 0.57335,
549 + 0.40478, 0.64920, 0.72489,
550 + 0.14610, 0.09280, 15.52645, 0.75001, 0.59845,
551 + 0.43152, 0.67432, 0.75001,
552 + 0.14794, 0.09410, 15.86043, 0.77393, 0.62238,
553 + 0.45701, 0.69824, 0.77393 /
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.11288, 0.07096, 3.13232, 0.16637, 0.01227,
556 + 0.00000, 0.08932, 0.16637,
557 + 0.11868, 0.07548, 4.19566, 0.20554, 0.05088,
558 + 0.00000, 0.12822, 0.20554,
559 + 0.12390, 0.07946, 5.14773, 0.24306, 0.08800,
560 + 0.00001, 0.16556, 0.24306,
561 + 0.12866, 0.08305, 6.01318, 0.27917, 0.12380,
562 + 0.00002, 0.20153, 0.27917,
563 + 0.13301, 0.08628, 6.77825, 0.31313, 0.15755,
564 + 0.00197, 0.23539, 0.31313,
565 + 0.13705, 0.08924, 7.46987, 0.34545, 0.18971,
566 + 0.02187, 0.26764, 0.34545,
567 + 0.14080, 0.09198, 8.09556, 0.37630, 0.22047,
568 + 0.05824, 0.29844, 0.37630 /
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.14435, 0.09451, 8.66505, 0.40574, 0.24985,
571 + 0.08990, 0.32785, 0.40574,
572 + 0.14769, 0.09689, 9.18227, 0.43379, 0.27789,
573 + 0.12053, 0.35591, 0.43379,
574 + 0.15084, 0.09910, 9.64342, 0.46025, 0.30435,
575 + 0.14934, 0.38236, 0.46025,
576 + 0.15382, 0.10119, 10.06437, 0.48547, 0.32962,
577 + 0.17681, 0.40762, 0.48547,
578 + 0.15667, 0.10316, 10.45148, 0.50962, 0.35383,
579 + 0.20308, 0.43180, 0.50962,
580 + 0.15939, 0.10502, 10.80655, 0.53268, 0.37697,
581 + 0.22816, 0.45491, 0.53268,
582 + 0.16195, 0.10677, 11.12072, 0.55435, 0.39874,
583 + 0.25176, 0.47662, 0.55435 /
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.16442, 0.10844, 11.41458, 0.57530, 0.41980,
586 + 0.27457, 0.49763, 0.57530,
587 + 0.16679, 0.11002, 11.67926, 0.59511, 0.43973,
588 + 0.29615, 0.51750, 0.59511,
589 + 0.16905, 0.11153, 11.92194, 0.61403, 0.45878,
590 + 0.31677, 0.53648, 0.61403,
591 + 0.17124, 0.11298, 12.14672, 0.63220, 0.47709,
592 + 0.33658, 0.55472, 0.63220,
593 + 0.17333, 0.11436, 12.34799, 0.64937, 0.49441,
594 + 0.35534, 0.57197, 0.64937 /
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.12721, 0.08466, 3.06254, 0.17044, 0.01127,
597 + 0.00001, 0.09086, 0.17044,
598 + 0.13387, 0.08963, 3.98219, 0.20564, 0.04619,
599 + 0.00000, 0.12593, 0.20564,
600 + 0.13984, 0.09397, 4.78631, 0.23880, 0.07919,
601 + 0.00001, 0.15902, 0.23880,
602 + 0.14525, 0.09786, 5.50219, 0.27024, 0.11056,
603 + 0.00002, 0.19043, 0.27024,
604 + 0.15017, 0.10133, 6.12281, 0.29942, 0.13977,
605 + 0.00171, 0.21964, 0.29942,
606 + 0.15472, 0.10450, 6.67424, 0.32688, 0.16729,
607 + 0.01884, 0.24714, 0.32688,
608 + 0.15892, 0.10741, 7.16491, 0.35282, 0.19335,
609 + 0.04997, 0.27313, 0.35282 /
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.16289, 0.11009, 7.60462, 0.37732, 0.21801,
612 + 0.07681, 0.29772, 0.37732,
613 + 0.16661, 0.11259, 7.99792, 0.40048, 0.24135,
614 + 0.10257, 0.32097, 0.40048,
615 + 0.17009, 0.11491, 8.34277, 0.42212, 0.26319,
616 + 0.12662, 0.34271, 0.42212,
617 + 0.17339, 0.11708, 8.65298, 0.44259, 0.28389,
618 + 0.14937, 0.36330, 0.44259,
619 + 0.17652, 0.11912, 8.93436, 0.46205, 0.30359,
620 + 0.17100, 0.38288, 0.46205,
621 + 0.17950, 0.12104, 9.18883, 0.48050, 0.32229,
622 + 0.19152, 0.40146, 0.48050,
623 + 0.18231, 0.12284, 9.40956, 0.49770, 0.33975,
624 + 0.21070, 0.41880, 0.49770 /
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.18500, 0.12455, 9.61360, 0.51423, 0.35656,
627 + 0.22914, 0.43547, 0.51423,
628 + 0.18757, 0.12617, 9.79406, 0.52976, 0.37237,
629 + 0.24649, 0.45114, 0.52976,
630 + 0.19002, 0.12771, 9.95690, 0.54450, 0.38739,
631 + 0.26298, 0.46602, 0.54450,
632 + 0.19238, 0.12917, 10.10555, 0.55858, 0.40175,
633 + 0.27874, 0.48024, 0.55858,
634 + 0.19463, 0.13056, 10.23571, 0.57180, 0.41526,
635 + 0.29359, 0.49360, 0.57180 /
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.14038, 0.09698, 3.00260, 0.17358, 0.01050,
638 + 0.00002, 0.09204, 0.17358,
639 + 0.14780, 0.10224, 3.81398, 0.20568, 0.04261,
640 + 0.00001, 0.12416, 0.20568,
641 + 0.15436, 0.10684, 4.50970, 0.23552, 0.07255,
642 + 0.00002, 0.15405, 0.23552,
643 + 0.16031, 0.11091, 5.11817, 0.26345, 0.10068,
644 + 0.00003, 0.18209, 0.26345,
645 + 0.16567, 0.11454, 5.63711, 0.28912, 0.12660,
646 + 0.00154, 0.20790, 0.28912,
647 + 0.17062, 0.11783, 6.09092, 0.31302, 0.15081,
648 + 0.01668, 0.23196, 0.31302,
649 + 0.17521, 0.12082, 6.48981, 0.33541, 0.17352,
650 + 0.04408, 0.25452, 0.33541 /
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.17949, 0.12357, 6.84049, 0.35641, 0.19486,
653 + 0.06753, 0.27568, 0.35641,
654 + 0.18348, 0.12614, 7.15050, 0.37609, 0.21492,
655 + 0.08989, 0.29555, 0.37609,
656 + 0.18723, 0.12848, 7.41871, 0.39433, 0.23356,
657 + 0.11060, 0.31399, 0.39433,
658 + 0.19076, 0.13069, 7.65586, 0.41147, 0.25111,
659 + 0.13010, 0.33134, 0.41147,
660 + 0.19410, 0.13275, 7.86800, 0.42766, 0.26771,
661 + 0.14854, 0.34774, 0.42766,
662 + 0.19728, 0.13468, 8.05751, 0.44294, 0.28342,
663 + 0.16596, 0.36324, 0.44294,
664 + 0.20026, 0.13647, 8.21889, 0.45706, 0.29795,
665 + 0.18213, 0.37757, 0.45706 /
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.20312, 0.13817, 8.36630, 0.47057, 0.31188,
668 + 0.19760, 0.39128, 0.47057,
669 + 0.20583, 0.13977, 8.49387, 0.48320, 0.32494,
670 + 0.21211, 0.40412, 0.48320,
671 + 0.20841, 0.14129, 8.60662, 0.49511, 0.33727,
672 + 0.22583, 0.41625, 0.49511,
673 + 0.21088, 0.14273, 8.70760, 0.50642, 0.34901,
674 + 0.23889, 0.42779, 0.50642,
675 + 0.21324, 0.14409, 8.79360, 0.51698, 0.36000,
676 + 0.25115, 0.43856, 0.51698 /
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.19755, 0.14628, 2.76721, 0.18116, 0.00807,
679 + 0.00000, 0.09461, 0.18116,
680 + 0.20734, 0.15198, 3.26343, 0.20340, 0.03178,
681 + 0.00000, 0.11759, 0.20340,
682 + 0.21590, 0.15677, 3.65800, 0.22306, 0.05290,
683 + 0.00002, 0.13799, 0.22306,
684 + 0.22341, 0.16094, 3.97958, 0.24068, 0.07193,
685 + 0.00003, 0.15634, 0.24068,
686 + 0.23013, 0.16455, 4.23566, 0.25625, 0.08887,
687 + 0.00101, 0.17258, 0.25625,
688 + 0.23618, 0.16774, 4.44390, 0.27023, 0.10419,
689 + 0.01083, 0.18723, 0.27023,
690 + 0.24169, 0.17058, 4.61561, 0.28288, 0.11813,
691 + 0.02833, 0.20054, 0.28288 /
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.24676, 0.17313, 4.75545, 0.29438, 0.13090,
694 + 0.04289, 0.21267, 0.29438,
695 + 0.25148, 0.17542, 4.87193, 0.30486, 0.14261,
696 + 0.05649, 0.22377, 0.30486,
697 + 0.25572, 0.17753, 4.96143, 0.31427, 0.15320,
698 + 0.06881, 0.23376, 0.31427,
699 + 0.25972, 0.17941, 5.03492, 0.32286, 0.16295,
700 + 0.08017, 0.24294, 0.32286,
701 + 0.26347, 0.18114, 5.09485, 0.33077, 0.17198,
702 + 0.09071, 0.25141, 0.33077,
703 + 0.26695, 0.18275, 5.14215, 0.33802, 0.18033,
704 + 0.10047, 0.25921, 0.33802,
705 + 0.27021, 0.18418, 5.17558, 0.34452, 0.18791,
706 + 0.10938, 0.26626, 0.34452 /
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.27330, 0.18552, 5.20275, 0.35062, 0.19505,
709 + 0.11777, 0.27288, 0.35062,
710 + 0.27617, 0.18675, 5.22071, 0.35616, 0.20161,
711 + 0.12551, 0.27893, 0.35616,
712 + 0.27885, 0.18790, 5.23209, 0.36125, 0.20769,
713 + 0.13271, 0.28451, 0.36125,
714 + 0.28138, 0.18897, 5.23857, 0.36597, 0.21337,
715 + 0.13946, 0.28972, 0.36597,
716 + 0.28379, 0.18995, 5.23830, 0.37023, 0.21857,
717 + 0.14568, 0.29445, 0.37023 /
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.29190, 0.21286, 2.41679, 0.17758, 0.00558,
720 + -0.00012, 0.09153, 0.17758,
721 + 0.30296, 0.21710, 2.63960, 0.18955, 0.02145,
722 + -0.00010, 0.10548, 0.18955,
723 + 0.31219, 0.22043, 2.79302, 0.19939, 0.03483,
724 + -0.00011, 0.11707, 0.19939,
725 + 0.32011, 0.22308, 2.90087, 0.20761, 0.04629,
726 + -0.00010, 0.12694, 0.20761,
727 + 0.32694, 0.22515, 2.97062, 0.21441, 0.05609,
728 + 0.00049, 0.13520, 0.21441,
729 + 0.33287, 0.22685, 3.01607, 0.22011, 0.06460,
730 + 0.00619, 0.14232, 0.22011,
731 + 0.33810, 0.22824, 3.04291, 0.22495, 0.07204,
732 + 0.01613, 0.14848, 0.22495 /
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.34272, 0.22940, 3.05549, 0.22907, 0.07860,
735 + 0.02414, 0.15384, 0.22907,
736 + 0.34687, 0.23036, 3.05751, 0.23259, 0.08444,
737 + 0.03143, 0.15849, 0.23259,
738 + 0.35053, 0.23111, 3.04944, 0.23551, 0.08957,
739 + 0.03787, 0.16252, 0.23551,
740 + 0.35386, 0.23166, 3.03514, 0.23796, 0.09411,
741 + 0.04364, 0.16603, 0.23796,
742 + 0.35689, 0.23209, 3.01668, 0.24005, 0.09820,
743 + 0.04885, 0.16912, 0.24005,
744 + 0.35964, 0.23245, 2.99490, 0.24181, 0.10190,
745 + 0.05357, 0.17184, 0.24181,
746 + 0.36202, 0.23270, 2.96853, 0.24321, 0.10510,
747 + 0.05779, 0.17413, 0.24321 /
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.36422, 0.23289, 2.94133, 0.24444, 0.10805,
750 + 0.06169, 0.17620, 0.24444,
751 + 0.36624, 0.23299, 2.91178, 0.24539, 0.11067,
752 + 0.06520, 0.17800, 0.24539,
753 + 0.36807, 0.23302, 2.88120, 0.24617, 0.11303,
754 + 0.06840, 0.17957, 0.24617,
755 + 0.36974, 0.23299, 2.85024, 0.24681, 0.11518,
756 + 0.07136, 0.18096, 0.24681,
757 + 0.37127, 0.23290, 2.81809, 0.24721, 0.11708,
758 + 0.07401, 0.18211, 0.24721 /
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.37025, 0.25586, 2.13329, 0.16380, 0.00425,
761 + 0.00001, 0.08404, 0.16380,
762 + 0.38007, 0.25749, 2.22498, 0.17000, 0.01592,
763 + 0.00004, 0.09297, 0.17000,
764 + 0.38785, 0.25847, 2.27134, 0.17462, 0.02538,
765 + 0.00000, 0.10001, 0.17462,
766 + 0.39423, 0.25892, 2.29030, 0.17820, 0.03320,
767 + 0.00006, 0.10573, 0.17820,
768 + 0.39942, 0.25899, 2.28806, 0.18073, 0.03969,
769 + 0.00041, 0.11024, 0.18073,
770 + 0.40370, 0.25880, 2.27386, 0.18262, 0.04520,
771 + 0.00426, 0.11394, 0.18262,
772 + 0.40730, 0.25842, 2.25092, 0.18398, 0.04986,
773 + 0.01079, 0.11693, 0.18398 /
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.41034, 0.25787, 2.22219, 0.18493, 0.05389,
776 + 0.01602, 0.11941, 0.18493,
777 + 0.41293, 0.25716, 2.18971, 0.18554, 0.05728,
778 + 0.02060, 0.12144, 0.18554,
779 + 0.41501, 0.25639, 2.15360, 0.18579, 0.06024,
780 + 0.02461, 0.12302, 0.18579,
781 + 0.41671, 0.25557, 2.11617, 0.18582, 0.06281,
782 + 0.02813, 0.12434, 0.18582,
783 + 0.41818, 0.25469, 2.07845, 0.18567, 0.06506,
784 + 0.03126, 0.12541, 0.18567,
785 + 0.41947, 0.25372, 2.04072, 0.18539, 0.06701,
786 + 0.03403, 0.12624, 0.18539,
787 + 0.42038, 0.25274, 2.00225, 0.18494, 0.06868,
788 + 0.03650, 0.12684, 0.18494 /
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.42117, 0.25174, 1.96497, 0.18442, 0.07017,
791 + 0.03874, 0.12732, 0.18442,
792 + 0.42180, 0.25068, 1.92783, 0.18378, 0.07146,
793 + 0.04071, 0.12763, 0.18378,
794 + 0.42224, 0.24964, 1.89143, 0.18306, 0.07255,
795 + 0.04245, 0.12782, 0.18306,
796 + 0.42256, 0.24863, 1.85607, 0.18230, 0.07349,
797 + 0.04400, 0.12792, 0.18230,
798 + 0.42275, 0.24755, 1.82130, 0.18146, 0.07432,
799 + 0.04543, 0.12792, 0.18146 /
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.43578, 0.28378, 1.88804, 0.14623, 0.00340,
802 + 0.00005, 0.07484, 0.14623,
803 + 0.44281, 0.28259, 1.90397, 0.14887, 0.01222,
804 + 0.00005, 0.08057, 0.14887,
805 + 0.44791, 0.28102, 1.89252, 0.15039, 0.01928,
806 + 0.00008, 0.08485, 0.15039,
807 + 0.45179, 0.27917, 1.86632, 0.15122, 0.02493,
808 + 0.00006, 0.08811, 0.15122,
809 + 0.45447, 0.27724, 1.82986, 0.15145, 0.02949,
810 + 0.00037, 0.09050, 0.15145,
811 + 0.45647, 0.27511, 1.78863, 0.15128, 0.03323,
812 + 0.00302, 0.09232, 0.15128,
813 + 0.45782, 0.27300, 1.74493, 0.15085, 0.03636,
814 + 0.00767, 0.09366, 0.15085 /
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.45866, 0.27088, 1.70028, 0.15018, 0.03897,
817 + 0.01128, 0.09464, 0.15018,
818 + 0.45918, 0.26875, 1.65555, 0.14935, 0.04119,
819 + 0.01441, 0.09532, 0.14935,
820 + 0.45935, 0.26652, 1.61059, 0.14836, 0.04304,
821 + 0.01715, 0.09577, 0.14836,
822 + 0.45913, 0.26440, 1.56698, 0.14729, 0.04457,
823 + 0.01949, 0.09600, 0.14729,
824 + 0.45873, 0.26233, 1.52497, 0.14617, 0.04588,
825 + 0.02154, 0.09608, 0.14617,
826 + 0.45825, 0.26025, 1.48447, 0.14499, 0.04699,
827 + 0.02334, 0.09603, 0.14499,
828 + 0.45748, 0.25819, 1.44486, 0.14374, 0.04789,
829 + 0.02484, 0.09587, 0.14374 /
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.45664, 0.25619, 1.40732, 0.14249, 0.04867,
832 + 0.02619, 0.09565, 0.14249,
833 + 0.45568, 0.25422, 1.37106, 0.14121, 0.04932,
834 + 0.02739, 0.09533, 0.14121,
835 + 0.45467, 0.25224, 1.33636, 0.13993, 0.04985,
836 + 0.02845, 0.09495, 0.13993,
837 + 0.45361, 0.25029, 1.30328, 0.13868, 0.05028,
838 + 0.02939, 0.09453, 0.13868,
839 + 0.45240, 0.24840, 1.27136, 0.13739, 0.05065,
840 + 0.03024, 0.09407, 0.13739 /
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.48966, 0.30083, 1.67097, 0.12773, 0.00269,
843 + 0.00004, 0.06524, 0.12773,
844 + 0.49307, 0.29682, 1.64066, 0.12809, 0.00961,
845 + 0.00008, 0.06887, 0.12809,
846 + 0.49487, 0.29281, 1.59580, 0.12772, 0.01494,
847 + 0.00006, 0.07134, 0.12772,
848 + 0.49551, 0.28890, 1.54534, 0.12700, 0.01913,
849 + 0.00004, 0.07306, 0.12700,
850 + 0.49544, 0.28497, 1.49179, 0.12594, 0.02237,
851 + 0.00027, 0.07423, 0.12594,
852 + 0.49466, 0.28124, 1.43847, 0.12468, 0.02504,
853 + 0.00231, 0.07491, 0.12468,
854 + 0.49349, 0.27757, 1.38653, 0.12329, 0.02720,
855 + 0.00571, 0.07530, 0.12329 /
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.49199, 0.27400, 1.33632, 0.12181, 0.02901,
858 + 0.00826, 0.07542, 0.12181,
859 + 0.49024, 0.27059, 1.28828, 0.12030, 0.03046,
860 + 0.01041, 0.07540, 0.12030,
861 + 0.48829, 0.26723, 1.24211, 0.11872, 0.03162,
862 + 0.01227, 0.07517, 0.11872,
863 + 0.48610, 0.26402, 1.19847, 0.11717, 0.03255,
864 + 0.01389, 0.07486, 0.11717,
865 + 0.48383, 0.26093, 1.15737, 0.11562, 0.03334,
866 + 0.01528, 0.07450, 0.11562,
867 + 0.48152, 0.25791, 1.11860, 0.11409, 0.03402,
868 + 0.01647, 0.07408, 0.11409,
869 + 0.47916, 0.25491, 1.08153, 0.11253, 0.03453,
870 + 0.01752, 0.07355, 0.11253 /
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.47677, 0.25205, 1.04685, 0.11103, 0.03496,
873 + 0.01844, 0.07300, 0.11103,
874 + 0.47421, 0.24933, 1.01394, 0.10955, 0.03530,
875 + 0.01918, 0.07242, 0.10955,
876 + 0.47169, 0.24667, 0.98286, 0.10809, 0.03556,
877 + 0.01985, 0.07182, 0.10809,
878 + 0.46923, 0.24408, 0.95356, 0.10667, 0.03574,
879 + 0.02045, 0.07121, 0.10667,
880 + 0.46669, 0.24158, 0.92566, 0.10526, 0.03587,
881 + 0.02096, 0.07058, 0.10526 /
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.54223, 0.31033, 1.43274, 0.10537, 0.00202,
884 + 0.00008, 0.05374, 0.10537,
885 + 0.54026, 0.30321, 1.36843, 0.10410, 0.00718,
886 + 0.00005, 0.05569, 0.10410,
887 + 0.53738, 0.29641, 1.30134, 0.10248, 0.01106,
888 + 0.00009, 0.05683, 0.10248,
889 + 0.53384, 0.29017, 1.23647, 0.10072, 0.01402,
890 + 0.00004, 0.05741, 0.10072,
891 + 0.52986, 0.28426, 1.17418, 0.09884, 0.01633,
892 + 0.00021, 0.05762, 0.09884,
893 + 0.52567, 0.27870, 1.11605, 0.09696, 0.01808,
894 + 0.00162, 0.05758, 0.09696,
895 + 0.52134, 0.27338, 1.06188, 0.09508, 0.01947,
896 + 0.00396, 0.05733, 0.09508 /
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.51683, 0.26840, 1.01153, 0.09325, 0.02056,
899 + 0.00574, 0.05698, 0.09325,
900 + 0.51229, 0.26375, 0.96494, 0.09141, 0.02151,
901 + 0.00725, 0.05647, 0.09141,
902 + 0.50768, 0.25922, 0.92139, 0.08965, 0.02214,
903 + 0.00846, 0.05592, 0.08965,
904 + 0.50312, 0.25494, 0.88111, 0.08790, 0.02268,
905 + 0.00949, 0.05534, 0.08790,
906 + 0.49867, 0.25084, 0.84386, 0.08621, 0.02312,
907 + 0.01040, 0.05473, 0.08621,
908 + 0.49432, 0.24685, 0.80928, 0.08459, 0.02345,
909 + 0.01121, 0.05413, 0.08459,
910 + 0.48987, 0.24315, 0.77692, 0.08300, 0.02369,
911 + 0.01183, 0.05344, 0.08300 /
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.48555, 0.23961, 0.74701, 0.08148, 0.02389,
914 + 0.01236, 0.05276, 0.08148,
915 + 0.48128, 0.23613, 0.71902, 0.08003, 0.02401,
916 + 0.01282, 0.05207, 0.08003,
917 + 0.47710, 0.23281, 0.69289, 0.07860, 0.02409,
918 + 0.01320, 0.05142, 0.07860,
919 + 0.47303, 0.22967, 0.66848, 0.07720, 0.02415,
920 + 0.01354, 0.05081, 0.07720,
921 + 0.46901, 0.22658, 0.64552, 0.07587, 0.02416,
922 + 0.01383, 0.05017, 0.07587 /
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.57955, 0.30997, 1.22539, 0.08511, 0.00166,
925 + 0.00015, 0.04345, 0.08511,
926 + 0.57208, 0.30013, 1.14330, 0.08308, 0.00551,
927 + 0.00018, 0.04433, 0.08308,
928 + 0.56428, 0.29120, 1.06655, 0.08093, 0.00833,
929 + 0.00018, 0.04469, 0.08093,
930 + 0.55653, 0.28303, 0.99682, 0.07878, 0.01047,
931 + 0.00017, 0.04467, 0.07878,
932 + 0.54878, 0.27551, 0.93335, 0.07669, 0.01198,
933 + 0.00024, 0.04439, 0.07669,
934 + 0.54117, 0.26855, 0.87603, 0.07466, 0.01318,
935 + 0.00127, 0.04398, 0.07466,
936 + 0.53361, 0.26221, 0.82423, 0.07269, 0.01411,
937 + 0.00292, 0.04345, 0.07269 /
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.52635, 0.25618, 0.77728, 0.07078, 0.01484,
940 + 0.00413, 0.04288, 0.07078,
941 + 0.51937, 0.25040, 0.73454, 0.06897, 0.01539,
942 + 0.00511, 0.04228, 0.06897,
943 + 0.51238, 0.24507, 0.69551, 0.06724, 0.01581,
944 + 0.00600, 0.04160, 0.06724,
945 + 0.50563, 0.24007, 0.65999, 0.06558, 0.01613,
946 + 0.00669, 0.04092, 0.06558,
947 + 0.49915, 0.23532, 0.62757, 0.06400, 0.01635,
948 + 0.00727, 0.04026, 0.06400,
949 + 0.49295, 0.23077, 0.59784, 0.06250, 0.01648,
950 + 0.00776, 0.03963, 0.06250,
951 + 0.48684, 0.22642, 0.57034, 0.06104, 0.01659,
952 + 0.00813, 0.03897, 0.06104 /
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.48092, 0.22235, 0.54514, 0.05968, 0.01667,
955 + 0.00847, 0.03831, 0.05968,
956 + 0.47504, 0.21854, 0.52181, 0.05839, 0.01669,
957 + 0.00882, 0.03764, 0.05839,
958 + 0.46945, 0.21482, 0.50028, 0.05715, 0.01667,
959 + 0.00908, 0.03699, 0.05715,
960 + 0.46413, 0.21122, 0.48036, 0.05597, 0.01663,
961 + 0.00929, 0.03638, 0.05597,
962 + 0.45886, 0.20781, 0.46183, 0.05483, 0.01657,
963 + 0.00943, 0.03577, 0.05483 /
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.60289, 0.30265, 1.04424, 0.06760, 0.00122,
966 + 0.00002, 0.03439, 0.06760,
967 + 0.59001, 0.29057, 0.95472, 0.06526, 0.00414,
968 + 0.00002, 0.03477, 0.06526,
969 + 0.57767, 0.27976, 0.87555, 0.06298, 0.00628,
970 + 0.00002, 0.03468, 0.06298,
971 + 0.56584, 0.27024, 0.80645, 0.06080, 0.00783,
972 + 0.00006, 0.03439, 0.06080,
973 + 0.55466, 0.26145, 0.74555, 0.05872, 0.00896,
974 + 0.00010, 0.03392, 0.05872,
975 + 0.54386, 0.25357, 0.69209, 0.05679, 0.00976,
976 + 0.00086, 0.03337, 0.05679,
977 + 0.53370, 0.24629, 0.64459, 0.05489, 0.01040,
978 + 0.00209, 0.03284, 0.05489 /
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.52398, 0.23947, 0.60224, 0.05318, 0.01089,
981 + 0.00298, 0.03216, 0.05318,
982 + 0.51460, 0.23321, 0.56446, 0.05153, 0.01124,
983 + 0.00378, 0.03157, 0.05153,
984 + 0.50568, 0.22723, 0.53036, 0.05001, 0.01144,
985 + 0.00435, 0.03088, 0.05001,
986 + 0.49708, 0.22169, 0.49968, 0.04858, 0.01162,
987 + 0.00476, 0.03020, 0.04858,
988 + 0.48892, 0.21648, 0.47204, 0.04720, 0.01176,
989 + 0.00514, 0.02956, 0.04720,
990 + 0.48122, 0.21155, 0.44704, 0.04585, 0.01188,
991 + 0.00556, 0.02899, 0.04585,
992 + 0.47356, 0.20700, 0.42403, 0.04462, 0.01190,
993 + 0.00578, 0.02838, 0.04462 /
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.46631, 0.20267, 0.40315, 0.04348, 0.01189,
996 + 0.00597, 0.02779, 0.04348,
997 + 0.45945, 0.19842, 0.38413, 0.04239, 0.01185,
998 + 0.00614, 0.02721, 0.04239,
999 + 0.45275, 0.19448, 0.36660, 0.04134, 0.01180,
1000 + 0.00632, 0.02667, 0.04134,
1001 + 0.44625, 0.19081, 0.35043, 0.04034, 0.01174,
1002 + 0.00648, 0.02615, 0.04034,
1003 + 0.44001, 0.18723, 0.33541, 0.03938, 0.01168,
1004 + 0.00656, 0.02564, 0.03938 /
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.61410, 0.28979, 0.88667, 0.05279, 0.00092,
1007 + 0.00004, 0.02687, 0.05279,
1008 + 0.59604, 0.27621, 0.79580, 0.05049, 0.00316,
1009 + -0.00001, 0.02690, 0.05049,
1010 + 0.57944, 0.26417, 0.71873, 0.04839, 0.00468,
1011 + 0.00004, 0.02655, 0.04839,
1012 + 0.56405, 0.25361, 0.65336, 0.04632, 0.00579,
1013 + 0.00003, 0.02625, 0.04632,
1014 + 0.54975, 0.24410, 0.59711, 0.04450, 0.00659,
1015 + 0.00017, 0.02561, 0.04450,
1016 + 0.53630, 0.23556, 0.54858, 0.04275, 0.00717,
1017 + 0.00074, 0.02507, 0.04275,
1018 + 0.52367, 0.22775, 0.50632, 0.04117, 0.00758,
1019 + 0.00148, 0.02444, 0.04117 /
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.51187, 0.22050, 0.46921, 0.03970, 0.00788,
1022 + 0.00222, 0.02382, 0.03970,
1023 + 0.50079, 0.21372, 0.43637, 0.03831, 0.00812,
1024 + 0.00275, 0.02322, 0.03831,
1025 + 0.49012, 0.20756, 0.40718, 0.03696, 0.00828,
1026 + 0.00307, 0.02267, 0.03696,
1027 + 0.48003, 0.20183, 0.38122, 0.03572, 0.00839,
1028 + 0.00337, 0.02210, 0.03572,
1029 + 0.47048, 0.19649, 0.35804, 0.03457, 0.00845,
1030 + 0.00362, 0.02155, 0.03457,
1031 + 0.46141, 0.19150, 0.33722, 0.03348, 0.00848,
1032 + 0.00382, 0.02104, 0.03348,
1033 + 0.45269, 0.18678, 0.31828, 0.03250, 0.00842,
1034 + 0.00401, 0.02050, 0.03250 /
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.44446, 0.18233, 0.30117, 0.03157, 0.00837,
1037 + 0.00418, 0.02000, 0.03157,
1038 + 0.43664, 0.17805, 0.28558, 0.03066, 0.00835,
1039 + 0.00434, 0.01954, 0.03066,
1040 + 0.42911, 0.17405, 0.27139, 0.02981, 0.00829,
1041 + 0.00442, 0.01909, 0.02981,
1042 + 0.42187, 0.17031, 0.25841, 0.02902, 0.00821,
1043 + 0.00445, 0.01865, 0.02902,
1044 + 0.41501, 0.16668, 0.24646, 0.02825, 0.00815,
1045 + 0.00449, 0.01823, 0.02825 /
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.61433, 0.27330, 0.74950, 0.04060, 0.00064,
1048 + 0.00002, 0.02066, 0.04060,
1049 + 0.59178, 0.25855, 0.66159, 0.03854, 0.00235,
1050 + 0.00009, 0.02053, 0.03854,
1051 + 0.57142, 0.24576, 0.58906, 0.03662, 0.00352,
1052 + 0.00010, 0.02018, 0.03662,
1053 + 0.55273, 0.23478, 0.52903, 0.03494, 0.00429,
1054 + 0.00005, 0.01965, 0.03494,
1055 + 0.53602, 0.22461, 0.47855, 0.03333, 0.00487,
1056 + 0.00011, 0.01917, 0.03333,
1057 + 0.52055, 0.21555, 0.43557, 0.03187, 0.00526,
1058 + 0.00051, 0.01862, 0.03187,
1059 + 0.50593, 0.20758, 0.39844, 0.03051, 0.00558,
1060 + 0.00115, 0.01807, 0.03051 /
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.49243, 0.20017, 0.36642, 0.02924, 0.00585,
1063 + 0.00166, 0.01753, 0.02924,
1064 + 0.47991, 0.19326, 0.33847, 0.02810, 0.00596,
1065 + 0.00194, 0.01700, 0.02810,
1066 + 0.46779, 0.18721, 0.31374, 0.02702, 0.00599,
1067 + 0.00222, 0.01656, 0.02702,
1068 + 0.45658, 0.18141, 0.29198, 0.02603, 0.00603,
1069 + 0.00243, 0.01610, 0.02603,
1070 + 0.44611, 0.17597, 0.27271, 0.02511, 0.00607,
1071 + 0.00260, 0.01563, 0.02511,
1072 + 0.43622, 0.17090, 0.25553, 0.02426, 0.00612,
1073 + 0.00276, 0.01515, 0.02426,
1074 + 0.42664, 0.16623, 0.24001, 0.02348, 0.00605,
1075 + 0.00286, 0.01473, 0.02348 /
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.41767, 0.16185, 0.22608, 0.02274, 0.00597,
1078 + 0.00293, 0.01435, 0.02274,
1079 + 0.40929, 0.15764, 0.21352, 0.02202, 0.00588,
1080 + 0.00297, 0.01400, 0.02202,
1081 + 0.40126, 0.15371, 0.20210, 0.02134, 0.00582,
1082 + 0.00300, 0.01364, 0.02134,
1083 + 0.39359, 0.15002, 0.19169, 0.02068, 0.00579,
1084 + 0.00303, 0.01329, 0.02068,
1085 + 0.38620, 0.14655, 0.18220, 0.02010, 0.00573,
1086 + 0.00303, 0.01294, 0.02010 /
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.60532, 0.25406, 0.63051, 0.03078, 0.00047,
1089 + 0.00016, 0.01566, 0.03078,
1090 + 0.57898, 0.23857, 0.54779, 0.02902, 0.00179,
1091 + 0.00009, 0.01541, 0.02902,
1092 + 0.55534, 0.22556, 0.48134, 0.02737, 0.00270,
1093 + 0.00009, 0.01508, 0.02737,
1094 + 0.53451, 0.21388, 0.42751, 0.02596, 0.00326,
1095 + 0.00001, 0.01459, 0.02596,
1096 + 0.51533, 0.20398, 0.38247, 0.02458, 0.00371,
1097 + 0.00014, 0.01418, 0.02458,
1098 + 0.49796, 0.19494, 0.34504, 0.02336, 0.00403,
1099 + 0.00037, 0.01378, 0.02336,
1100 + 0.48205, 0.18679, 0.31325, 0.02231, 0.00415,
1101 + 0.00087, 0.01331, 0.02231 /
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.46721, 0.17950, 0.28590, 0.02135, 0.00429,
1104 + 0.00115, 0.01282, 0.02135,
1105 + 0.45345, 0.17287, 0.26220, 0.02041, 0.00438,
1106 + 0.00141, 0.01239, 0.02041,
1107 + 0.44063, 0.16667, 0.24169, 0.01955, 0.00446,
1108 + 0.00159, 0.01198, 0.01955,
1109 + 0.42868, 0.16095, 0.22359, 0.01874, 0.00447,
1110 + 0.00170, 0.01165, 0.01874,
1111 + 0.41748, 0.15568, 0.20767, 0.01802, 0.00442,
1112 + 0.00179, 0.01130, 0.01802,
1113 + 0.40690, 0.15083, 0.19362, 0.01741, 0.00434,
1114 + 0.00191, 0.01090, 0.01741,
1115 + 0.39690, 0.14628, 0.18113, 0.01681, 0.00428,
1116 + 0.00201, 0.01054, 0.01681 /
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.38754, 0.14205, 0.16999, 0.01623, 0.00424,
1119 + 0.00209, 0.01023, 0.01623,
1120 + 0.37872, 0.13804, 0.16000, 0.01565, 0.00423,
1121 + 0.00213, 0.00994, 0.01565,
1122 + 0.37042, 0.13429, 0.15095, 0.01510, 0.00419,
1123 + 0.00216, 0.00967, 0.01510,
1124 + 0.36259, 0.13077, 0.14272, 0.01458, 0.00411,
1125 + 0.00219, 0.00941, 0.01458,
1126 + 0.35501, 0.12747, 0.13524, 0.01411, 0.00405,
1127 + 0.00221, 0.00917, 0.01411 /
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.58858, 0.23307, 0.52773, 0.02286, 0.00046,
1130 + 0.00014, 0.01179, 0.02286,
1131 + 0.55905, 0.21737, 0.45171, 0.02143, 0.00142,
1132 + 0.00011, 0.01150, 0.02143,
1133 + 0.53267, 0.20451, 0.39204, 0.02014, 0.00206,
1134 + 0.00009, 0.01118, 0.02014,
1135 + 0.50988, 0.19294, 0.34386, 0.01901, 0.00244,
1136 + 0.00010, 0.01077, 0.01901,
1137 + 0.48921, 0.18294, 0.30497, 0.01799, 0.00272,
1138 + 0.00003, 0.01039, 0.01799,
1139 + 0.47047, 0.17422, 0.27271, 0.01699, 0.00297,
1140 + 0.00032, 0.01004, 0.01699,
1141 + 0.45342, 0.16638, 0.24571, 0.01612, 0.00307,
1142 + 0.00064, 0.00971, 0.01612 /
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.43775, 0.15926, 0.22258, 0.01539, 0.00315,
1145 + 0.00084, 0.00928, 0.01539,
1146 + 0.42344, 0.15270, 0.20269, 0.01468, 0.00315,
1147 + 0.00099, 0.00896, 0.01468,
1148 + 0.41007, 0.14672, 0.18599, 0.01403, 0.00319,
1149 + 0.00114, 0.00860, 0.01403,
1150 + 0.39753, 0.14135, 0.17136, 0.01343, 0.00318,
1151 + 0.00125, 0.00831, 0.01343,
1152 + 0.38600, 0.13639, 0.15849, 0.01285, 0.00316,
1153 + 0.00132, 0.00802, 0.01285,
1154 + 0.37550, 0.13171, 0.14711, 0.01227, 0.00314,
1155 + 0.00135, 0.00770, 0.01227,
1156 + 0.36515, 0.12740, 0.13694, 0.01183, 0.00311,
1157 + 0.00141, 0.00745, 0.01183 /
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.35551, 0.12337, 0.12789, 0.01142, 0.00308,
1160 + 0.00146, 0.00722, 0.01142,
1161 + 0.34657, 0.11952, 0.11980, 0.01100, 0.00303,
1162 + 0.00148, 0.00700, 0.01100,
1163 + 0.33811, 0.11600, 0.11263, 0.01061, 0.00299,
1164 + 0.00151, 0.00681, 0.01061,
1165 + 0.33010, 0.11275, 0.10623, 0.01024, 0.00296,
1166 + 0.00154, 0.00665, 0.01024,
1167 + 0.32242, 0.10966, 0.10040, 0.00991, 0.00290,
1168 + 0.00153, 0.00645, 0.00991 /
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.56509, 0.21132, 0.43887, 0.01680, 0.00043,
1171 + 0.00004, 0.00859, 0.01680,
1172 + 0.53288, 0.19599, 0.37038, 0.01564, 0.00112,
1173 + 0.00003, 0.00844, 0.01564,
1174 + 0.50493, 0.18314, 0.31747, 0.01464, 0.00156,
1175 + 0.00002, 0.00816, 0.01464,
1176 + 0.48041, 0.17217, 0.27563, 0.01374, 0.00188,
1177 + 0.00011, 0.00783, 0.01374,
1178 + 0.45883, 0.16239, 0.24224, 0.01293, 0.00207,
1179 + 0.00006, 0.00753, 0.01293,
1180 + 0.43948, 0.15386, 0.21487, 0.01221, 0.00216,
1181 + 0.00019, 0.00722, 0.01221,
1182 + 0.42178, 0.14637, 0.19192, 0.01152, 0.00225,
1183 + 0.00043, 0.00699, 0.01152 /
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.40565, 0.13960, 0.17299, 0.01093, 0.00231,
1186 + 0.00065, 0.00670, 0.01093,
1187 + 0.39091, 0.13345, 0.15662, 0.01042, 0.00232,
1188 + 0.00079, 0.00637, 0.01042,
1189 + 0.37725, 0.12781, 0.14279, 0.00995, 0.00230,
1190 + 0.00085, 0.00613, 0.00995,
1191 + 0.36473, 0.12267, 0.13078, 0.00946, 0.00229,
1192 + 0.00091, 0.00590, 0.00946,
1193 + 0.35314, 0.11798, 0.12031, 0.00900, 0.00229,
1194 + 0.00098, 0.00567, 0.00900,
1195 + 0.34230, 0.11368, 0.11112, 0.00860, 0.00228,
1196 + 0.00106, 0.00546, 0.00860,
1197 + 0.33212, 0.10970, 0.10320, 0.00825, 0.00227,
1198 + 0.00107, 0.00530, 0.00825 /
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.32258, 0.10602, 0.09614, 0.00793, 0.00225,
1201 + 0.00107, 0.00514, 0.00793,
1202 + 0.31350, 0.10258, 0.08973, 0.00762, 0.00221,
1203 + 0.00109, 0.00496, 0.00762,
1204 + 0.30503, 0.09931, 0.08404, 0.00734, 0.00217,
1205 + 0.00110, 0.00481, 0.00734,
1206 + 0.29710, 0.09621, 0.07896, 0.00708, 0.00212,
1207 + 0.00110, 0.00469, 0.00708,
1208 + 0.28971, 0.09333, 0.07438, 0.00680, 0.00210,
1209 + 0.00112, 0.00453, 0.00680 /
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.53599, 0.19001, 0.36308, 0.01227, 0.00019,
1212 + -0.00010, 0.00614, 0.01227,
1213 + 0.50198, 0.17522, 0.30214, 0.01140, 0.00069,
1214 + -0.00003, 0.00598, 0.01140,
1215 + 0.47297, 0.16271, 0.25599, 0.01059, 0.00107,
1216 + -0.00005, 0.00577, 0.01059,
1217 + 0.44780, 0.15212, 0.22012, 0.00988, 0.00133,
1218 + -0.00008, 0.00553, 0.00988,
1219 + 0.42563, 0.14289, 0.19174, 0.00921, 0.00144,
1220 + -0.00004, 0.00541, 0.00921,
1221 + 0.40582, 0.13488, 0.16870, 0.00867, 0.00158,
1222 + 0.00004, 0.00513, 0.00867,
1223 + 0.38779, 0.12785, 0.14980, 0.00823, 0.00159,
1224 + 0.00023, 0.00491, 0.00823 /
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.37181, 0.12139, 0.13409, 0.00777, 0.00163,
1227 + 0.00039, 0.00465, 0.00777,
1228 + 0.35708, 0.11575, 0.12072, 0.00734, 0.00162,
1229 + 0.00043, 0.00443, 0.00734,
1230 + 0.34344, 0.11055, 0.10955, 0.00697, 0.00162,
1231 + 0.00055, 0.00430, 0.00697,
1232 + 0.33094, 0.10576, 0.09990, 0.00664, 0.00165,
1233 + 0.00058, 0.00414, 0.00664,
1234 + 0.31945, 0.10138, 0.09151, 0.00633, 0.00165,
1235 + 0.00059, 0.00397, 0.00633,
1236 + 0.30887, 0.09737, 0.08419, 0.00603, 0.00157,
1237 + 0.00062, 0.00379, 0.00603,
1238 + 0.29894, 0.09369, 0.07783, 0.00573, 0.00158,
1239 + 0.00064, 0.00368, 0.00573 /
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.28969, 0.09029, 0.07222, 0.00548, 0.00157,
1242 + 0.00068, 0.00357, 0.00548,
1243 + 0.28097, 0.08712, 0.06723, 0.00530, 0.00149,
1244 + 0.00074, 0.00342, 0.00530,
1245 + 0.27284, 0.08419, 0.06279, 0.00508, 0.00147,
1246 + 0.00076, 0.00331, 0.00508,
1247 + 0.26525, 0.08148, 0.05882, 0.00483, 0.00147,
1248 + 0.00074, 0.00321, 0.00483,
1249 + 0.25793, 0.07891, 0.05527, 0.00467, 0.00143,
1250 + 0.00073, 0.00308, 0.00467 /
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.50281, 0.16839, 0.29770, 0.00861, 0.00027,
1253 + 0.00012, 0.00453, 0.00861,
1254 + 0.46791, 0.15426, 0.24448, 0.00799, 0.00061,
1255 + 0.00019, 0.00436, 0.00799,
1256 + 0.43830, 0.14249, 0.20482, 0.00737, 0.00091,
1257 + 0.00013, 0.00422, 0.00737,
1258 + 0.41277, 0.13261, 0.17444, 0.00685, 0.00100,
1259 + 0.00012, 0.00410, 0.00685,
1260 + 0.39083, 0.12400, 0.15050, 0.00636, 0.00112,
1261 + 0.00013, 0.00381, 0.00636,
1262 + 0.37090, 0.11660, 0.13154, 0.00601, 0.00121,
1263 + 0.00019, 0.00361, 0.00601,
1264 + 0.35311, 0.11008, 0.11607, 0.00565, 0.00119,
1265 + 0.00034, 0.00350, 0.00565 /
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.33704, 0.10428, 0.10328, 0.00533, 0.00127,
1268 + 0.00034, 0.00329, 0.00533,
1269 + 0.32271, 0.09904, 0.09247, 0.00504, 0.00125,
1270 + 0.00042, 0.00315, 0.00504,
1271 + 0.30922, 0.09434, 0.08337, 0.00478, 0.00121,
1272 + 0.00042, 0.00302, 0.00478,
1273 + 0.29711, 0.09002, 0.07573, 0.00453, 0.00120,
1274 + 0.00041, 0.00287, 0.00453,
1275 + 0.28599, 0.08606, 0.06914, 0.00430, 0.00119,
1276 + 0.00044, 0.00274, 0.00430,
1277 + 0.27561, 0.08243, 0.06334, 0.00410, 0.00115,
1278 + 0.00051, 0.00264, 0.00410,
1279 + 0.26603, 0.07914, 0.05830, 0.00392, 0.00115,
1280 + 0.00051, 0.00256, 0.00392 /
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.25716, 0.07610, 0.05388, 0.00376, 0.00112,
1283 + 0.00050, 0.00246, 0.00376,
1284 + 0.24884, 0.07327, 0.04998, 0.00361, 0.00105,
1285 + 0.00049, 0.00233, 0.00361,
1286 + 0.24098, 0.07062, 0.04655, 0.00349, 0.00102,
1287 + 0.00050, 0.00222, 0.00349,
1288 + 0.23356, 0.06815, 0.04351, 0.00339, 0.00101,
1289 + 0.00052, 0.00214, 0.00339,
1290 + 0.22674, 0.06588, 0.04075, 0.00324, 0.00098,
1291 + 0.00052, 0.00207, 0.00324 /
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.46651, 0.14828, 0.24279, 0.00611, 0.00011,
1294 + -0.00002, 0.00309, 0.00611,
1295 + 0.43139, 0.13494, 0.19692, 0.00565, 0.00042,
1296 + -0.00006, 0.00294, 0.00565,
1297 + 0.40181, 0.12397, 0.16310, 0.00520, 0.00060,
1298 + -0.00004, 0.00287, 0.00520,
1299 + 0.37674, 0.11465, 0.13762, 0.00476, 0.00072,
1300 + -0.00002, 0.00280, 0.00476,
1301 + 0.35456, 0.10688, 0.11783, 0.00449, 0.00075,
1302 + -0.00001, 0.00266, 0.00449,
1303 + 0.33514, 0.10011, 0.10217, 0.00420, 0.00085,
1304 + 0.00009, 0.00255, 0.00420,
1305 + 0.31798, 0.09409, 0.08951, 0.00397, 0.00081,
1306 + 0.00015, 0.00234, 0.00397 /
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.30251, 0.08874, 0.07912, 0.00373, 0.00087,
1309 + 0.00020, 0.00228, 0.00373,
1310 + 0.28874, 0.08398, 0.07050, 0.00345, 0.00083,
1311 + 0.00025, 0.00212, 0.00345,
1312 + 0.27592, 0.07975, 0.06325, 0.00328, 0.00081,
1313 + 0.00031, 0.00202, 0.00328,
1314 + 0.26437, 0.07591, 0.05717, 0.00308, 0.00081,
1315 + 0.00029, 0.00194, 0.00308,
1316 + 0.25375, 0.07243, 0.05196, 0.00292, 0.00080,
1317 + 0.00028, 0.00186, 0.00292,
1318 + 0.24385, 0.06926, 0.04741, 0.00282, 0.00075,
1319 + 0.00031, 0.00174, 0.00282,
1320 + 0.23477, 0.06629, 0.04352, 0.00267, 0.00075,
1321 + 0.00033, 0.00168, 0.00267 /
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.22633, 0.06355, 0.04011, 0.00254, 0.00074,
1324 + 0.00033, 0.00162, 0.00254,
1325 + 0.21832, 0.06103, 0.03709, 0.00246, 0.00069,
1326 + 0.00032, 0.00154, 0.00246,
1327 + 0.21107, 0.05872, 0.03443, 0.00236, 0.00067,
1328 + 0.00032, 0.00147, 0.00236,
1329 + 0.20445, 0.05660, 0.03206, 0.00225, 0.00068,
1330 + 0.00034, 0.00140, 0.00225,
1331 + 0.19804, 0.05458, 0.02997, 0.00215, 0.00066,
1332 + 0.00033, 0.00135, 0.00215 /
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.42830, 0.12862, 0.19602, 0.00412, 0.00016,
1335 + 0.00002, 0.00222, 0.00412,
1336 + 0.39354, 0.11649, 0.15706, 0.00378, 0.00034,
1337 + 0.00007, 0.00215, 0.00378,
1338 + 0.36446, 0.10640, 0.12870, 0.00351, 0.00049,
1339 + 0.00006, 0.00208, 0.00351,
1340 + 0.33977, 0.09806, 0.10763, 0.00329, 0.00056,
1341 + 0.00006, 0.00191, 0.00329,
1342 + 0.31854, 0.09092, 0.09144, 0.00298, 0.00063,
1343 + -0.00001, 0.00183, 0.00298,
1344 + 0.30002, 0.08475, 0.07868, 0.00280, 0.00056,
1345 + 0.00002, 0.00170, 0.00280,
1346 + 0.28333, 0.07951, 0.06850, 0.00267, 0.00059,
1347 + 0.00007, 0.00159, 0.00267 /
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.26852, 0.07471, 0.06019, 0.00253, 0.00060,
1350 + 0.00018, 0.00151, 0.00253,
1351 + 0.25520, 0.07053, 0.05334, 0.00236, 0.00058,
1352 + 0.00020, 0.00145, 0.00236,
1353 + 0.24315, 0.06674, 0.04762, 0.00223, 0.00061,
1354 + 0.00020, 0.00133, 0.00223,
1355 + 0.23237, 0.06330, 0.04282, 0.00208, 0.00058,
1356 + 0.00020, 0.00126, 0.00208,
1357 + 0.22250, 0.06018, 0.03873, 0.00195, 0.00054,
1358 + 0.00022, 0.00122, 0.00195,
1359 + 0.21332, 0.05736, 0.03523, 0.00187, 0.00049,
1360 + 0.00025, 0.00120, 0.00187,
1361 + 0.20479, 0.05482, 0.03222, 0.00178, 0.00052,
1362 + 0.00024, 0.00116, 0.00178 /
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.19694, 0.05247, 0.02960, 0.00171, 0.00053,
1365 + 0.00024, 0.00112, 0.00171,
1366 + 0.18966, 0.05025, 0.02732, 0.00167, 0.00051,
1367 + 0.00025, 0.00107, 0.00167,
1368 + 0.18281, 0.04826, 0.02529, 0.00161, 0.00048,
1369 + 0.00024, 0.00101, 0.00161,
1370 + 0.17638, 0.04645, 0.02349, 0.00155, 0.00046,
1371 + 0.00021, 0.00096, 0.00155,
1372 + 0.17064, 0.04470, 0.02190, 0.00144, 0.00047,
1373 + 0.00023, 0.00093, 0.00144 /
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.38899, 0.11068, 0.15710, 0.00278, 0.00012,
1376 + 0.00003, 0.00148, 0.00278,
1377 + 0.35524, 0.09959, 0.12436, 0.00257, 0.00026,
1378 + 0.00003, 0.00142, 0.00257,
1379 + 0.32728, 0.09049, 0.10097, 0.00238, 0.00032,
1380 + 0.00003, 0.00132, 0.00238,
1381 + 0.30349, 0.08296, 0.08359, 0.00226, 0.00038,
1382 + 0.00004, 0.00121, 0.00226,
1383 + 0.28309, 0.07672, 0.07050, 0.00210, 0.00034,
1384 + 0.00003, 0.00117, 0.00210,
1385 + 0.26550, 0.07121, 0.06023, 0.00197, 0.00037,
1386 + 0.00004, 0.00110, 0.00197,
1387 + 0.24996, 0.06648, 0.05206, 0.00184, 0.00038,
1388 + 0.00006, 0.00102, 0.00184 /
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.23604, 0.06231, 0.04551, 0.00173, 0.00040,
1391 + 0.00007, 0.00098, 0.00173,
1392 + 0.22383, 0.05860, 0.04012, 0.00156, 0.00040,
1393 + 0.00012, 0.00098, 0.00156,
1394 + 0.21241, 0.05531, 0.03563, 0.00157, 0.00038,
1395 + 0.00014, 0.00090, 0.00157,
1396 + 0.20248, 0.05232, 0.03190, 0.00143, 0.00037,
1397 + 0.00014, 0.00086, 0.00143,
1398 + 0.19339, 0.04962, 0.02876, 0.00131, 0.00036,
1399 + 0.00012, 0.00082, 0.00131,
1400 + 0.18483, 0.04721, 0.02608, 0.00126, 0.00036,
1401 + 0.00012, 0.00078, 0.00126,
1402 + 0.17695, 0.04497, 0.02376, 0.00120, 0.00033,
1403 + 0.00010, 0.00074, 0.00120 /
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.16979, 0.04293, 0.02175, 0.00113, 0.00031,
1406 + 0.00009, 0.00069, 0.00113,
1407 + 0.16330, 0.04108, 0.02002, 0.00103, 0.00033,
1408 + 0.00009, 0.00064, 0.00103,
1409 + 0.15711, 0.03935, 0.01849, 0.00100, 0.00031,
1410 + 0.00010, 0.00060, 0.00100,
1411 + 0.15124, 0.03775, 0.01715, 0.00102, 0.00028,
1412 + 0.00010, 0.00057, 0.00102,
1413 + 0.14596, 0.03625, 0.01595, 0.00097, 0.00026,
1414 + 0.00010, 0.00055, 0.00097 /
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.34945, 0.09404, 0.12470, 0.00185, 0.00011,
1417 + 0.00004, 0.00102, 0.00185,
1418 + 0.31690, 0.08400, 0.09733, 0.00174, 0.00013,
1419 + 0.00001, 0.00093, 0.00174,
1420 + 0.29020, 0.07595, 0.07813, 0.00159, 0.00019,
1421 + 0.00000, 0.00087, 0.00159,
1422 + 0.26765, 0.06933, 0.06402, 0.00146, 0.00031,
1423 + -0.00001, 0.00083, 0.00146,
1424 + 0.24891, 0.06370, 0.05355, 0.00133, 0.00026,
1425 + -0.00002, 0.00077, 0.00133,
1426 + 0.23250, 0.05895, 0.04542, 0.00121, 0.00030,
1427 + 0.00002, 0.00075, 0.00121,
1428 + 0.21805, 0.05480, 0.03899, 0.00111, 0.00031,
1429 + 0.00005, 0.00070, 0.00111 /
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.20509, 0.05113, 0.03386, 0.00109, 0.00030,
1432 + 0.00010, 0.00067, 0.00109,
1433 + 0.19370, 0.04798, 0.02969, 0.00098, 0.00030,
1434 + 0.00008, 0.00062, 0.00098,
1435 + 0.18322, 0.04513, 0.02623, 0.00095, 0.00028,
1436 + 0.00008, 0.00057, 0.00095,
1437 + 0.17403, 0.04255, 0.02338, 0.00089, 0.00028,
1438 + 0.00011, 0.00057, 0.00089,
1439 + 0.16569, 0.04024, 0.02100, 0.00083, 0.00027,
1440 + 0.00012, 0.00055, 0.00083,
1441 + 0.15797, 0.03817, 0.01896, 0.00078, 0.00024,
1442 + 0.00007, 0.00052, 0.00078,
1443 + 0.15093, 0.03626, 0.01721, 0.00073, 0.00023,
1444 + 0.00007, 0.00048, 0.00073 /
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.14451, 0.03453, 0.01570, 0.00068, 0.00023,
1447 + 0.00008, 0.00045, 0.00068,
1448 + 0.13864, 0.03294, 0.01441, 0.00063, 0.00023,
1449 + 0.00010, 0.00047, 0.00063,
1450 + 0.13320, 0.03149, 0.01328, 0.00058, 0.00024,
1451 + 0.00011, 0.00046, 0.00058,
1452 + 0.12817, 0.03015, 0.01229, 0.00052, 0.00024,
1453 + 0.00010, 0.00043, 0.00052,
1454 + 0.12335, 0.02891, 0.01141, 0.00052, 0.00024,
1455 + 0.00011, 0.00042, 0.00052 /
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.31051, 0.07903, 0.09809, 0.00123, 0.00002,
1458 + -0.00003, 0.00063, 0.00123,
1459 + 0.27990, 0.07018, 0.07567, 0.00117, 0.00005,
1460 + -0.00001, 0.00061, 0.00117,
1461 + 0.25483, 0.06316, 0.06005, 0.00106, 0.00013,
1462 + -0.00007, 0.00058, 0.00106,
1463 + 0.23433, 0.05729, 0.04880, 0.00093, 0.00013,
1464 + 0.00001, 0.00053, 0.00093,
1465 + 0.21651, 0.05247, 0.04045, 0.00091, 0.00020,
1466 + 0.00003, 0.00056, 0.00091,
1467 + 0.20124, 0.04836, 0.03408, 0.00085, 0.00020,
1468 + -0.00001, 0.00048, 0.00085,
1469 + 0.18806, 0.04482, 0.02909, 0.00076, 0.00014,
1470 + 0.00001, 0.00043, 0.00076 /
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.17605, 0.04169, 0.02511, 0.00077, 0.00015,
1473 + 0.00000, 0.00039, 0.00077,
1474 + 0.16597, 0.03893, 0.02192, 0.00065, 0.00012,
1475 + 0.00001, 0.00036, 0.00065,
1476 + 0.15666, 0.03649, 0.01930, 0.00064, 0.00017,
1477 + 0.00005, 0.00039, 0.00064,
1478 + 0.14839, 0.03433, 0.01713, 0.00058, 0.00016,
1479 + 0.00005, 0.00036, 0.00058,
1480 + 0.14084, 0.03240, 0.01531, 0.00054, 0.00016,
1481 + 0.00005, 0.00033, 0.00054,
1482 + 0.13385, 0.03064, 0.01377, 0.00053, 0.00019,
1483 + 0.00007, 0.00034, 0.00053,
1484 + 0.12757, 0.02905, 0.01247, 0.00050, 0.00018,
1485 + 0.00006, 0.00031, 0.00050 /
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.12183, 0.02760, 0.01136, 0.00047, 0.00016,
1488 + 0.00006, 0.00029, 0.00047,
1489 + 0.11651, 0.02627, 0.01038, 0.00047, 0.00015,
1490 + 0.00009, 0.00030, 0.00047,
1491 + 0.11166, 0.02504, 0.00953, 0.00044, 0.00015,
1492 + 0.00008, 0.00030, 0.00044,
1493 + 0.10721, 0.02392, 0.00879, 0.00038, 0.00015,
1494 + 0.00006, 0.00028, 0.00038,
1495 + 0.10303, 0.02289, 0.00815, 0.00035, 0.00015,
1496 + 0.00006, 0.00027, 0.00035 /
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.27231, 0.06550, 0.07610, 0.00082, -0.00002,
1499 + -0.00005, 0.00037, 0.00082,
1500 + 0.24403, 0.05780, 0.05797, 0.00075, 0.00006,
1501 + -0.00001, 0.00035, 0.00075,
1502 + 0.22099, 0.05174, 0.04557, 0.00067, 0.00005,
1503 + -0.00005, 0.00035, 0.00067,
1504 + 0.20209, 0.04678, 0.03668, 0.00061, 0.00007,
1505 + -0.00003, 0.00031, 0.00061,
1506 + 0.18593, 0.04265, 0.03021, 0.00057, 0.00008,
1507 + -0.00003, 0.00030, 0.00057,
1508 + 0.17204, 0.03914, 0.02522, 0.00056, 0.00010,
1509 + -0.00002, 0.00025, 0.00056,
1510 + 0.16013, 0.03610, 0.02139, 0.00052, 0.00012,
1511 + 0.00000, 0.00026, 0.00052 /
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.14992, 0.03346, 0.01837, 0.00043, 0.00011,
1514 + 0.00000, 0.00025, 0.00043,
1515 + 0.14055, 0.03116, 0.01596, 0.00042, 0.00010,
1516 + -0.00001, 0.00025, 0.00042,
1517 + 0.13230, 0.02911, 0.01397, 0.00037, 0.00009,
1518 + -0.00001, 0.00022, 0.00037,
1519 + 0.12484, 0.02732, 0.01235, 0.00035, 0.00009,
1520 + 0.00001, 0.00021, 0.00035,
1521 + 0.11815, 0.02571, 0.01100, 0.00033, 0.00010,
1522 + 0.00002, 0.00020, 0.00033,
1523 + 0.11215, 0.02426, 0.00986, 0.00030, 0.00008,
1524 + 0.00001, 0.00020, 0.00030,
1525 + 0.10665, 0.02293, 0.00890, 0.00027, 0.00010,
1526 + 0.00001, 0.00020, 0.00027 /
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.10160, 0.02172, 0.00808, 0.00025, 0.00011,
1529 + 0.00002, 0.00020, 0.00025,
1530 + 0.09687, 0.02065, 0.00736, 0.00026, 0.00011,
1531 + 0.00004, 0.00019, 0.00026,
1532 + 0.09260, 0.01965, 0.00675, 0.00025, 0.00011,
1533 + 0.00004, 0.00018, 0.00025,
1534 + 0.08872, 0.01872, 0.00621, 0.00023, 0.00010,
1535 + 0.00002, 0.00016, 0.00023,
1536 + 0.08507, 0.01787, 0.00574, 0.00022, 0.00009,
1537 + 0.00003, 0.00015, 0.00022 /
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.23626, 0.05359, 0.05834, 0.00053, -0.00008,
1540 + -0.00006, 0.00015, 0.00053,
1541 + 0.21017, 0.04700, 0.04390, 0.00049, -0.00003,
1542 + -0.00004, 0.00017, 0.00049,
1543 + 0.18916, 0.04183, 0.03410, 0.00043, -0.00001,
1544 + -0.00009, 0.00019, 0.00043,
1545 + 0.17202, 0.03760, 0.02719, 0.00039, 0.00004,
1546 + -0.00007, 0.00018, 0.00039,
1547 + 0.15759, 0.03409, 0.02214, 0.00042, 0.00011,
1548 + 0.00000, 0.00022, 0.00042,
1549 + 0.14558, 0.03116, 0.01838, 0.00029, 0.00010,
1550 + -0.00004, 0.00020, 0.00029,
1551 + 0.13491, 0.02864, 0.01549, 0.00028, 0.00009,
1552 + -0.00001, 0.00019, 0.00028 /
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.12544, 0.02647, 0.01321, 0.00031, 0.00012,
1555 + 0.00002, 0.00018, 0.00031,
1556 + 0.11727, 0.02456, 0.01141, 0.00027, 0.00011,
1557 + 0.00001, 0.00021, 0.00027,
1558 + 0.11003, 0.02286, 0.00994, 0.00023, 0.00008,
1559 + -0.00001, 0.00018, 0.00023,
1560 + 0.10356, 0.02138, 0.00875, 0.00020, 0.00008,
1561 + 0.00000, 0.00016, 0.00020,
1562 + 0.09778, 0.02005, 0.00776, 0.00018, 0.00008,
1563 + 0.00001, 0.00015, 0.00018,
1564 + 0.09260, 0.01886, 0.00693, 0.00016, 0.00008,
1565 + 0.00002, 0.00014, 0.00016,
1566 + 0.08774, 0.01778, 0.00624, 0.00015, 0.00007,
1567 + 0.00002, 0.00013, 0.00015 /
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.08333, 0.01682, 0.00565, 0.00015, 0.00008,
1570 + 0.00003, 0.00012, 0.00015,
1571 + 0.07934, 0.01594, 0.00513, 0.00014, 0.00009,
1572 + 0.00003, 0.00012, 0.00014,
1573 + 0.07566, 0.01513, 0.00469, 0.00014, 0.00009,
1574 + 0.00003, 0.00012, 0.00014,
1575 + 0.07228, 0.01439, 0.00431, 0.00014, 0.00008,
1576 + 0.00003, 0.00011, 0.00014,
1577 + 0.06914, 0.01370, 0.00398, 0.00013, 0.00008,
1578 + 0.00004, 0.00011, 0.00013 /
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.20211, 0.04314, 0.04410, 0.00031, -0.00004,
1581 + -0.00005, 0.00009, 0.00031,
1582 + 0.17834, 0.03761, 0.03269, 0.00035, -0.00001,
1583 + -0.00005, 0.00010, 0.00035,
1584 + 0.15974, 0.03321, 0.02509, 0.00029, 0.00003,
1585 + -0.00006, 0.00011, 0.00029,
1586 + 0.14445, 0.02968, 0.01980, 0.00025, 0.00002,
1587 + -0.00008, 0.00011, 0.00025,
1588 + 0.13183, 0.02684, 0.01598, 0.00020, 0.00006,
1589 + -0.00001, 0.00013, 0.00020,
1590 + 0.12104, 0.02440, 0.01316, 0.00020, 0.00008,
1591 + -0.00001, 0.00012, 0.00020,
1592 + 0.11167, 0.02232, 0.01102, 0.00021, 0.00010,
1593 + 0.00002, 0.00014, 0.00021 /
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.10361, 0.02054, 0.00934, 0.00017, 0.00007,
1596 + 0.00003, 0.00012, 0.00017,
1597 + 0.09655, 0.01898, 0.00801, 0.00012, 0.00006,
1598 + 0.00000, 0.00010, 0.00012,
1599 + 0.09022, 0.01763, 0.00697, 0.00013, 0.00007,
1600 + 0.00001, 0.00011, 0.00013,
1601 + 0.08465, 0.01643, 0.00611, 0.00012, 0.00009,
1602 + 0.00003, 0.00012, 0.00012,
1603 + 0.07963, 0.01537, 0.00540, 0.00011, 0.00009,
1604 + 0.00004, 0.00012, 0.00011,
1605 + 0.07506, 0.01441, 0.00480, 0.00011, 0.00007,
1606 + 0.00002, 0.00011, 0.00011,
1607 + 0.07104, 0.01355, 0.00431, 0.00009, 0.00006,
1608 + 0.00003, 0.00010, 0.00009 /
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.06738, 0.01277, 0.00388, 0.00007, 0.00006,
1611 + 0.00004, 0.00009, 0.00007,
1612 + 0.06394, 0.01208, 0.00352, 0.00007, 0.00007,
1613 + 0.00004, 0.00009, 0.00007,
1614 + 0.06082, 0.01144, 0.00321, 0.00006, 0.00006,
1615 + 0.00004, 0.00009, 0.00006,
1616 + 0.05797, 0.01085, 0.00295, 0.00006, 0.00006,
1617 + 0.00003, 0.00008, 0.00006,
1618 + 0.05532, 0.01032, 0.00271, 0.00006, 0.00006,
1619 + 0.00002, 0.00007, 0.00006 /
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.17057, 0.03434, 0.03287, 0.00023, -0.00006,
1622 + -0.00012, 0.00000, 0.00023,
1623 + 0.14978, 0.02973, 0.02408, 0.00020, -0.00001,
1624 + -0.00007, 0.00004, 0.00020,
1625 + 0.13336, 0.02610, 0.01826, 0.00019, 0.00000,
1626 + -0.00005, 0.00006, 0.00019,
1627 + 0.11991, 0.02323, 0.01429, 0.00016, -0.00001,
1628 + -0.00006, 0.00005, 0.00016,
1629 + 0.10893, 0.02086, 0.01146, 0.00011, 0.00003,
1630 + -0.00004, 0.00006, 0.00011,
1631 + 0.09949, 0.01889, 0.00937, 0.00011, 0.00001,
1632 + -0.00005, 0.00006, 0.00011,
1633 + 0.09148, 0.01723, 0.00779, 0.00010, 0.00001,
1634 + -0.00004, 0.00005, 0.00010 /
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.08452, 0.01579, 0.00658, 0.00011, 0.00003,
1637 + -0.00002, 0.00005, 0.00011,
1638 + 0.07842, 0.01457, 0.00563, 0.00011, 0.00003,
1639 + -0.00002, 0.00004, 0.00011,
1640 + 0.07314, 0.01348, 0.00486, 0.00008, 0.00005,
1641 + 0.00000, 0.00007, 0.00008,
1642 + 0.06838, 0.01252, 0.00424, 0.00007, 0.00004,
1643 + 0.00001, 0.00006, 0.00007,
1644 + 0.06412, 0.01167, 0.00373, 0.00006, 0.00004,
1645 + 0.00001, 0.00005, 0.00006,
1646 + 0.06028, 0.01093, 0.00331, 0.00007, 0.00004,
1647 + 0.00001, 0.00005, 0.00007,
1648 + 0.05686, 0.01024, 0.00296, 0.00007, 0.00003,
1649 + 0.00001, 0.00005, 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.05377, 0.00963, 0.00267, 0.00006, 0.00003,
1652 + 0.00001, 0.00006, 0.00006,
1653 + 0.05096, 0.00908, 0.00241, 0.00006, 0.00004,
1654 + 0.00002, 0.00005, 0.00006,
1655 + 0.04837, 0.00858, 0.00220, 0.00005, 0.00004,
1656 + 0.00001, 0.00004, 0.00005,
1657 + 0.04599, 0.00813, 0.00201, 0.00004, 0.00003,
1658 + 0.00000, 0.00003, 0.00004,
1659 + 0.04380, 0.00771, 0.00184, 0.00004, 0.00002,
1660 + 0.00000, 0.00003, 0.00004 /
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.14149, 0.02665, 0.02396, 0.00011, 0.00000,
1663 + -0.00002, 0.00003, 0.00011,
1664 + 0.12338, 0.02294, 0.01735, 0.00013, 0.00001,
1665 + -0.00001, 0.00003, 0.00013,
1666 + 0.10925, 0.02007, 0.01306, 0.00011, 0.00000,
1667 + -0.00002, 0.00003, 0.00011,
1668 + 0.09790, 0.01778, 0.01014, 0.00005, -0.00002,
1669 + -0.00003, 0.00001, 0.00005,
1670 + 0.08828, 0.01589, 0.00806, 0.00011, 0.00000,
1671 + -0.00001, 0.00004, 0.00011,
1672 + 0.08034, 0.01434, 0.00655, 0.00010, 0.00000,
1673 + -0.00002, 0.00002, 0.00010,
1674 + 0.07354, 0.01305, 0.00542, 0.00010, 0.00000,
1675 + -0.00001, 0.00001, 0.00010 /
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.06771, 0.01191, 0.00455, 0.00010, 0.00001,
1678 + -0.00001, 0.00002, 0.00010,
1679 + 0.06275, 0.01095, 0.00387, 0.00007, 0.00001,
1680 + 0.00001, 0.00003, 0.00007,
1681 + 0.05825, 0.01011, 0.00333, 0.00007, 0.00001,
1682 + 0.00001, 0.00002, 0.00007,
1683 + 0.05429, 0.00937, 0.00290, 0.00006, 0.00001,
1684 + 0.00001, 0.00003, 0.00006,
1685 + 0.05078, 0.00871, 0.00254, 0.00005, 0.00001,
1686 + 0.00000, 0.00003, 0.00005,
1687 + 0.04766, 0.00813, 0.00225, 0.00004, 0.00000,
1688 + 0.00000, 0.00001, 0.00004,
1689 + 0.04480, 0.00761, 0.00200, 0.00004, 0.00001,
1690 + 0.00000, 0.00001, 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.04223, 0.00714, 0.00180, 0.00005, 0.00001,
1693 + 0.00000, 0.00002, 0.00005,
1694 + 0.03991, 0.00671, 0.00162, 0.00004, 0.00001,
1695 + 0.00000, 0.00002, 0.00004,
1696 + 0.03780, 0.00633, 0.00147, 0.00005, 0.00001,
1697 + 0.00000, 0.00002, 0.00005,
1698 + 0.03586, 0.00599, 0.00134, 0.00005, 0.00001,
1699 + 0.00000, 0.00002, 0.00005,
1700 + 0.03409, 0.00567, 0.00123, 0.00004, 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.09234, 0.01518, 0.01197, 0.00001, -0.00002,
1704 + -0.00002, 0.00000, 0.00001,
1705 + 0.07935, 0.01288, 0.00842, 0.00003, 0.00000,
1706 + -0.00002, 0.00000, 0.00003,
1707 + 0.06932, 0.01110, 0.00618, 0.00004, 0.00000,
1708 + -0.00001, 0.00002, 0.00004,
1709 + 0.06130, 0.00973, 0.00469, 0.00003, -0.00001,
1710 + -0.00001, 0.00000, 0.00003,
1711 + 0.05485, 0.00860, 0.00367, 0.00002, 0.00001,
1712 + 0.00000, 0.00002, 0.00002,
1713 + 0.04951, 0.00768, 0.00293, 0.00000, 0.00002,
1714 + -0.00001, 0.00001, 0.00000,
1715 + 0.04492, 0.00692, 0.00239, 0.00000, 0.00000,
1716 + -0.00001, 0.00001, 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.04094, 0.00628, 0.00198, 0.00001, 0.00001,
1719 + -0.00001, 0.00001, 0.00001,
1720 + 0.03754, 0.00572, 0.00167, 0.00002, 0.00001,
1721 + 0.00000, 0.00002, 0.00002,
1722 + 0.03464, 0.00524, 0.00142, 0.00001, 0.00001,
1723 + 0.00000, 0.00002, 0.00001,
1724 + 0.03205, 0.00482, 0.00122, 0.00001, 0.00001,
1725 + 0.00000, 0.00002, 0.00001,
1726 + 0.02975, 0.00446, 0.00107, 0.00002, 0.00001,
1727 + 0.00000, 0.00002, 0.00002,
1728 + 0.02774, 0.00413, 0.00094, 0.00002, 0.00001,
1729 + 0.00000, 0.00001, 0.00002,
1730 + 0.02593, 0.00384, 0.00083, 0.00001, 0.00000,
1731 + 0.00000, 0.00001, 0.00001 /
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.02432, 0.00358, 0.00074, 0.00000, 0.00000,
1734 + 0.00000, 0.00001, 0.00000,
1735 + 0.02286, 0.00335, 0.00066, 0.00001, 0.00000,
1736 + 0.00000, 0.00001, 0.00001,
1737 + 0.02154, 0.00314, 0.00060, 0.00001, 0.00001,
1738 + 0.00000, 0.00001, 0.00001,
1739 + 0.02034, 0.00296, 0.00054, 0.00001, 0.00001,
1740 + 0.00000, 0.00001, 0.00001,
1741 + 0.01924, 0.00279, 0.00050, 0.00001, 0.00001,
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.05534, 0.00785, 0.00541, 0.00003, -0.00001,
1745 + 0.00000, 0.00000, 0.00003,
1746 + 0.04682, 0.00655, 0.00369, 0.00001, -0.00001,
1747 + -0.00002, -0.00001, 0.00001,
1748 + 0.04035, 0.00557, 0.00264, 0.00001, 0.00000,
1749 + -0.00001, 0.00000, 0.00001,
1750 + 0.03525, 0.00482, 0.00196, 0.00002, 0.00001,
1751 + 0.00000, 0.00001, 0.00002,
1752 + 0.03115, 0.00421, 0.00150, 0.00001, 0.00001,
1753 + 0.00000, 0.00000, 0.00001,
1754 + 0.02778, 0.00373, 0.00118, 0.00000, 0.00000,
1755 + -0.00001, 0.00000, 0.00000,
1756 + 0.02496, 0.00332, 0.00095, 0.00001, 0.00001,
1757 + 0.00000, 0.00000, 0.00001 /
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.02260, 0.00298, 0.00078, 0.00000, 0.00001,
1760 + 0.00000, 0.00000, 0.00000,
1761 + 0.02054, 0.00270, 0.00065, 0.00001, 0.00000,
1762 + 0.00000, 0.00000, 0.00001,
1763 + 0.01880, 0.00245, 0.00054, 0.00000, 0.00000,
1764 + 0.00000, 0.00000, 0.00000,
1765 + 0.01726, 0.00224, 0.00047, 0.00000, 0.00000,
1766 + 0.00000, 0.00000, 0.00000,
1767 + 0.01591, 0.00205, 0.00040, 0.00000, 0.00000,
1768 + 0.00000, 0.00000, 0.00000,
1769 + 0.01474, 0.00189, 0.00035, 0.00000, 0.00000,
1770 + 0.00000, 0.00000, 0.00000,
1771 + 0.01369, 0.00175, 0.00031, 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.01276, 0.00162, 0.00027, 0.00000, 0.00000,
1775 + 0.00000, 0.00000, 0.00000,
1776 + 0.01191, 0.00151, 0.00024, 0.00000, 0.00000,
1777 + 0.00000, 0.00000, 0.00000,
1778 + 0.01116, 0.00141, 0.00022, 0.00000, 0.00000,
1779 + 0.00000, 0.00000, 0.00000,
1780 + 0.01048, 0.00132, 0.00020, 0.00000, 0.00000,
1781 + 0.00000, 0.00000, 0.00000,
1782 + 0.00986, 0.00123, 0.00018, 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.02946, 0.00352, 0.00211, 0.00000, -0.00001,
1786 + -0.00001, -0.00001, 0.00000,
1787 + 0.02451, 0.00289, 0.00139, 0.00001, 0.00000,
1788 + 0.00000, 0.00000, 0.00001,
1789 + 0.02080, 0.00242, 0.00097, 0.00000, 0.00000,
1790 + 0.00000, 0.00000, 0.00000,
1791 + 0.01793, 0.00207, 0.00070, 0.00000, 0.00000,
1792 + 0.00000, 0.00000, 0.00000,
1793 + 0.01565, 0.00179, 0.00053, 0.00000, 0.00000,
1794 + 0.00000, 0.00000, 0.00000,
1795 + 0.01378, 0.00156, 0.00041, 0.00000, 0.00000,
1796 + 0.00000, 0.00000, 0.00000,
1797 + 0.01226, 0.00138, 0.00032, 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.01099, 0.00123, 0.00026, 0.00000, 0.00000,
1801 + 0.00000, 0.00000, 0.00000,
1802 + 0.00989, 0.00110, 0.00021, 0.00000, 0.00000,
1803 + 0.00000, 0.00000, 0.00000,
1804 + 0.00897, 0.00099, 0.00018, 0.00000, 0.00000,
1805 + 0.00000, 0.00000, 0.00000,
1806 + 0.00817, 0.00090, 0.00015, 0.00000, 0.00000,
1807 + 0.00000, 0.00000, 0.00000,
1808 + 0.00747, 0.00082, 0.00013, 0.00000, 0.00000,
1809 + 0.00000, 0.00000, 0.00000,
1810 + 0.00686, 0.00075, 0.00011, 0.00000, 0.00000,
1811 + 0.00000, 0.00000, 0.00000,
1812 + 0.00633, 0.00068, 0.00010, 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.00586, 0.00063, 0.00009, 0.00000, 0.00000,
1816 + 0.00000, 0.00000, 0.00000,
1817 + 0.00544, 0.00058, 0.00008, 0.00000, 0.00000,
1818 + 0.00000, 0.00000, 0.00000,
1819 + 0.00507, 0.00054, 0.00007, 0.00000, 0.00000,
1820 + 0.00000, 0.00000, 0.00000,
1821 + 0.00473, 0.00050, 0.00006, 0.00000, 0.00000,
1822 + 0.00000, 0.00000, 0.00000,
1823 + 0.00442, 0.00047, 0.00006, 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.01332, 0.00130, 0.00067, 0.00000, 0.00000,
1827 + 0.00000, 0.00000, 0.00000,
1828 + 0.01085, 0.00105, 0.00042, 0.00000, 0.00000,
1829 + 0.00000, 0.00000, 0.00000,
1830 + 0.00904, 0.00086, 0.00028, 0.00000, 0.00000,
1831 + 0.00000, 0.00000, 0.00000,
1832 + 0.00764, 0.00072, 0.00020, 0.00000, 0.00000,
1833 + 0.00000, 0.00000, 0.00000,
1834 + 0.00658, 0.00062, 0.00015, 0.00000, 0.00000,
1835 + 0.00000, 0.00000, 0.00000,
1836 + 0.00572, 0.00053, 0.00011, 0.00000, 0.00000,
1837 + 0.00000, 0.00000, 0.00000,
1838 + 0.00502, 0.00046, 0.00009, 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.00444, 0.00041, 0.00007, 0.00000, 0.00000,
1842 + 0.00000, 0.00000, 0.00000,
1843 + 0.00395, 0.00036, 0.00006, 0.00000, 0.00000,
1844 + 0.00000, 0.00000, 0.00000,
1845 + 0.00355, 0.00032, 0.00005, 0.00000, 0.00000,
1846 + 0.00000, 0.00000, 0.00000,
1847 + 0.00320, 0.00029, 0.00004, 0.00000, 0.00000,
1848 + 0.00000, 0.00000, 0.00000,
1849 + 0.00290, 0.00026, 0.00003, 0.00000, 0.00000,
1850 + 0.00000, 0.00000, 0.00000,
1851 + 0.00264, 0.00024, 0.00003, 0.00000, 0.00000,
1852 + 0.00000, 0.00000, 0.00000,
1853 + 0.00242, 0.00021, 0.00003, 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.00222, 0.00020, 0.00002, 0.00000, 0.00000,
1857 + 0.00000, 0.00000, 0.00000,
1858 + 0.00204, 0.00018, 0.00002, 0.00000, 0.00000,
1859 + 0.00000, 0.00000, 0.00000,
1860 + 0.00188, 0.00017, 0.00002, 0.00000, 0.00000,
1861 + 0.00000, 0.00000, 0.00000,
1862 + 0.00175, 0.00015, 0.00002, 0.00000, 0.00000,
1863 + 0.00000, 0.00000, 0.00000,
1864 + 0.00162, 0.00014, 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.00101, 0.00005, 0.00002, 0.00000, 0.00000,
1868 + 0.00000, 0.00000, 0.00000,
1869 + 0.00077, 0.00004, 0.00001, 0.00000, 0.00000,
1870 + 0.00000, 0.00000, 0.00000,
1871 + 0.00061, 0.00003, 0.00001, 0.00000, 0.00000,
1872 + 0.00000, 0.00000, 0.00000,
1873 + 0.00050, 0.00003, 0.00001, 0.00000, 0.00000,
1874 + 0.00000, 0.00000, 0.00000,
1875 + 0.00041, 0.00002, 0.00000, 0.00000, 0.00000,
1876 + 0.00000, 0.00000, 0.00000,
1877 + 0.00034, 0.00002, 0.00000, 0.00000, 0.00000,
1878 + 0.00000, 0.00000, 0.00000,
1879 + 0.00029, 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.00025, 0.00001, 0.00000, 0.00000, 0.00000,
1883 + 0.00000, 0.00000, 0.00000,
1884 + 0.00021, 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.00016, 0.00001, 0.00000, 0.00000, 0.00000,
1889 + 0.00000, 0.00000, 0.00000,
1890 + 0.00014, 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.00011, 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,4,5,0,0,5,5/
1917 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1918 DATA INIT/0/
1919
1920
1921C DON'T LET X BE ALTERED IF IT'S OUT OF RANGE!!
1922 XSAVE=X
1923
1924 IF(INIT.NE.0) GOTO 10
1925 INIT=1
1926 DO 20 N=1,NX-1
1927 DO 20 M=1,19
1928C READ(78,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),
1929C . F(6,N,M),F(8,N,M)
1930C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1931 DO 25 I=1,8
1932 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1933 20 CONTINUE
1934 DO 31 J=1,NTENTH-1
1935 XX(J)= LOG10(XX(J))+ONEDO
1936 DO 31 I=1,8
1937 IF(I.EQ.7) GO TO 31
1938 DO 30 K=1,19
1939 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1940 31 CONTINUE
1941 50 FORMAT(8F10.5)
1942 DO 40 I=1,8
1943 DO 40 M=1,19
1944 40 F(I,NX,M)=ZEROD
1945 10 CONTINUE
1946 IF(X.LT.XMIN) X=XMIN
1947 IF(X.GT.XMAX) X=XMAX
1948 QSQ=SCALE**2
1949 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1950 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1951 XXX=X
1952 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1953 N=0
1954 70 N=N+1
1955 IF(XXX.GT.XX(N+1)) GOTO 70
1956 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1957 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1958 B=RM-AINT(RM)
1959 M=1+ INT(RM)
1960 DO 60 I=1,8
1961 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1962 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1963 IF(N.GE.NTENTH) GOTO 65
1964 IF(I.EQ.7) GOTO 65
1965 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1966 G(I)=FAC**(G(I)/FAC)
1967 65 CONTINUE
1968 G(I)=G(I)*(ONED-X)**N0(I)
1969 60 CONTINUE
1970 UPV=G(1)
1971 DNV=G(2)
1972 USEA=G(4)
1973 DSEA=G(8)
1974 STR=G(6)
1975 CHM=G(5)
1976 GLU=G(3)
1977 BOT=G(7)
1978
1979C RESTORE X
1980 X=XSAVE
1981
1982 RETURN
1983 END