]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmrsj.F
Introduce factor for magnetic field
[u/mrichter/AliRoot.git] / PDF / spdf / sfmrsj.F
CommitLineData
fe4da5cc 1#include "pdf/pilot.h"
2 SUBROUTINE SFMRSJ(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,GLU)
3C
4C THIS IS THE NEW "J" FIT -- Mar 1996 -- standard Q^2 range
5C
6#include "pdf/impdp.inc"
7C
8 PARAMETER(NX=47)
9 PARAMETER(NTENTH=21)
10 DIMENSION F(8,NX,20),G(8),XX(NX),N0(8)
11 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=1,7)/
12 + .00356, .00376, 15.54792, 1.06868, .16989,
13 + .00000, .60096, 1.07613,
14 + .00405, .00399, 28.10206, 1.49111, .60427,
15 + .00000, 1.03034, 1.49918,
16 + .00450, .00420, 43.39771, 1.99040, 1.11366,
17 + .00000, 1.53554, 1.99901,
18 + .00491, .00440, 61.08128, 2.55696, 1.68897,
19 + .29431, 2.10723, 2.56603,
20 + .00530, .00459, 80.82011, 3.18503, 2.32483,
21 + .97669, 2.73989, 3.19454,
22 + .00567, .00477, 102.41924, 3.87056, 3.01738,
23 + 1.68799, 3.42958, 3.88046,
24 + .00602, .00494, 125.43236, 4.60312, 3.75633,
25 + 2.44462, 4.16593, 4.61339 /
26 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=8,14)/
27 + .00636, .00511, 149.71310, 5.37875, 4.53785,
28 + 3.24240, 4.94506, 5.38936,
29 + .00668, .00528, 175.08170, 6.19291, 5.35744,
30 + 4.07690, 5.76246, 6.20385,
31 + .00700, .00543, 201.37189, 7.04141, 6.21100,
32 + 4.94421, 6.61397, 7.05266,
33 + .00730, .00559, 228.28065, 7.91679, 7.09111,
34 + 5.83709, 7.49218, 7.92833,
35 + .00759, .00574, 255.76427, 8.81751, 7.99626,
36 + 6.75415, 8.39556, 8.82932,
37 + .00787, .00588, 283.79901, 9.74265, 8.92558,
38 + 7.69462, 9.32320, 9.75472,
39 + .00815, .00603, 312.35641, 10.69122, 9.87811,
40 + 8.65763, 10.27415, 10.70355 /
41 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),F(8,1,K),K=15,19)/
42 + .00841, .00616, 341.00568, 11.65233, 10.84297,
43 + 9.63237, 11.23750, 11.66490,
44 + .00867, .00630, 369.92984, 12.62999, 11.82420,
45 + 10.62295, 12.21731, 12.64280,
46 + .00893, .00643, 399.26962, 13.62749, 12.82509,
47 + 11.63270, 13.21685, 13.64051,
48 + .00918, .00656, 428.29883, 14.62618, 13.82704,
49 + 12.64308, 14.21750, 14.63943,
50 + .00942, .00669, 457.78537, 15.64505, 14.84901,
51 + 13.67308, 15.23824, 15.65850 /
52 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=1,7)/
53 + .00533, .00501, 13.49326, .96315, .14644,
54 + .00000, .53681, .96950,
55 + .00602, .00534, 23.62843, 1.31095, .50536,
56 + .00000, .89087, 1.31771,
57 + .00664, .00564, 35.60191, 1.71182, .91561,
58 + .00000, 1.29705, 1.71894,
59 + .00721, .00593, 49.10532, 2.15754, 1.36947,
60 + .23169, 1.74739, 2.16498,
61 + .00775, .00620, 63.86553, 2.64329, 1.86244,
62 + .76279, 2.23724, 2.65101,
63 + .00827, .00645, 79.72802, 3.16567, 2.39132,
64 + 1.30764, 2.76332, 3.17365,
65 + .00875, .00670, 96.35773, 3.71659, 2.94817,
66 + 1.87950, 3.31763, 3.72481 /
67 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=8,14)/
68 + .00922, .00694, 113.65404, 4.29310, 3.53011,
69 + 2.47525, 3.89725, 4.30155,
70 + .00966, .00717, 131.49316, 4.89185, 4.13389,
71 + 3.09166, 4.49888, 4.90051,
72 + .01009, .00739, 149.76366, 5.50983, 4.75655,
73 + 3.72597, 5.11954, 5.51870,
74 + .01050, .00760, 168.25789, 6.14167, 5.39275,
75 + 4.37299, 5.75388, 6.15072,
76 + .01090, .00781, 186.95740, 6.78642, 6.04160,
77 + 5.03194, 6.40099, 6.79566,
78 + .01129, .00801, 205.85593, 7.44359, 6.70263,
79 + 5.70241, 7.06038, 7.45300,
80 + .01166, .00820, 224.94231, 8.11261, 7.37529,
81 + 6.38394, 7.73149, 8.12218 /
82 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),F(8,2,K),K=15,19)/
83 + .01203, .00839, 243.92563, 8.78578, 8.05192,
84 + 7.06894, 8.40665, 8.79551,
85 + .01238, .00857, 262.94421, 9.46619, 8.73562,
86 + 7.76056, 9.08896, 9.47608,
87 + .01273, .00875, 282.10266, 10.15635, 9.42891,
88 + 8.46134, 9.78092, 10.16638,
89 + .01306, .00893, 300.91220, 10.84313, 10.11868,
90 + 9.15825, 10.46943, 10.85330,
91 + .01339, .00910, 319.90482, 11.54020, 10.81861,
92 + 9.86497, 11.16815, 11.55051 /
93 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=1,7)/
94 + .00793, .00667, 11.70796, .86745, .12592,
95 + .00000, .47934, .87303,
96 + .00889, .00715, 19.86142, 1.15220, .42107,
97 + .00000, .76978, 1.15805,
98 + .00976, .00759, 29.19653, 1.47231, .74994,
99 + .00000, 1.09471, 1.47839,
100 + .01056, .00800, 39.46207, 1.82111, 1.10633,
101 + .18160, 1.44768, 1.82740,
102 + .01131, .00838, 50.44613, 2.19479, 1.48674,
103 + .59321, 1.82507, 2.20126,
104 + .01202, .00874, 62.03557, 2.59071, 1.88873,
105 + 1.00875, 2.22434, 2.59735,
106 + .01269, .00909, 73.98632, 3.00281, 2.30635,
107 + 1.43908, 2.63948, 3.00960 /
108 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=8,14)/
109 + .01333, .00942, 86.23578, 3.42898, 2.73759,
110 + 1.88199, 3.06845, 3.43592,
111 + .01394, .00974, 98.70371, 3.86689, 3.18018,
112 + 2.33526, 3.50895, 3.87396,
113 + .01453, .01004, 111.31990, 4.31446, 3.63209,
114 + 2.79704, 3.95892, 4.32166,
115 + .01510, .01034, 123.94626, 4.76792, 4.08961,
116 + 3.26371, 4.41463, 4.77524,
117 + .01564, .01062, 136.58080, 5.22678, 4.55228,
118 + 3.73491, 4.87560, 5.23422,
119 + .01617, .01090, 149.22902, 5.69086, 5.01995,
120 + 4.21055, 5.34167, 5.69841,
121 + .01668, .01116, 161.89098, 6.15991, 5.49238,
122 + 4.69048, 5.81259, 6.16756 /
123 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),F(8,3,K),K=15,19)/
124 + .01717, .01142, 174.37276, 6.62855, 5.96423,
125 + 5.16940, 6.28301, 6.63630,
126 + .01765, .01167, 186.77908, 7.09919, 6.43792,
127 + 5.64977, 6.75533, 7.10703,
128 + .01812, .01192, 199.18790, 7.57374, 6.91538,
129 + 6.13355, 7.23150, 7.58168,
130 + .01857, .01216, 211.27234, 8.04302, 7.38743,
131 + 6.61163, 7.70232, 8.05105,
132 + .01901, .01239, 223.40123, 8.51688, 7.86394,
133 + 7.09387, 8.17765, 8.52499 /
134 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=1,7)/
135 + .00998, .00790, 10.77356, .81553, .11513,
136 + .00000, .44850, .82085,
137 + .01115, .00849, 17.93859, 1.06807, .37769,
138 + .00000, .70646, 1.07360,
139 + .01221, .00903, 25.99063, 1.34788, .66594,
140 + .00000, .99083, 1.35358,
141 + .01318, .00953, 34.71334, 1.64918, .97456,
142 + .15711, 1.29610, 1.65505,
143 + .01409, .01000, 43.92878, 1.96877, 1.30063,
144 + .51089, 1.61921, 1.97477,
145 + .01495, .01045, 53.54631, 2.30444, 1.64215,
146 + .86471, 1.95805, 2.31058,
147 + .01576, .01087, 63.36623, 2.65113, 1.99415,
148 + 1.22823, 2.30762, 2.65739 /
149 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=8,14)/
150 + .01653, .01127, 73.34408, 3.00718, 2.35508,
151 + 1.59973, 2.66632, 3.01355,
152 + .01726, .01165, 83.41993, 3.37074, 2.72314,
153 + 1.97747, 3.03233, 3.37721,
154 + .01797, .01202, 93.54228, 3.74018, 3.09677,
155 + 2.36002, 3.40404, 3.74675,
156 + .01865, .01238, 103.60374, 4.11247, 3.47297,
157 + 2.74450, 3.77846, 4.11914,
158 + .01930, .01272, 113.60923, 4.48733, 3.85149,
159 + 3.13074, 4.15531, 4.49409,
160 + .01993, .01305, 123.56846, 4.86472, 4.23232,
161 + 3.51880, 4.53457, 4.87156,
162 + .02054, .01337, 133.48621, 5.24452, 4.61538,
163 + 3.90864, 4.91614, 5.25144 /
164 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),F(8,4,K),K=15,19)/
165 + .02113, .01368, 143.20993, 5.62240, 4.99635,
166 + 4.29600, 5.29570, 5.62940,
167 + .02170, .01398, 152.82880, 6.00043, 5.37732,
168 + 4.68301, 5.67533, 6.00751,
169 + .02226, .01428, 162.40894, 6.38028, 5.75996,
170 + 5.07138, 6.05670, 6.38743,
171 + .02280, .01456, 171.69228, 6.75450, 6.13685,
172 + 5.45371, 6.43237, 6.76172,
173 + .02333, .01484, 180.97649, 7.13123, 6.51612,
174 + 5.83817, 6.81048, 7.13851 /
175 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=1,7)/
176 + .01174, .00891, 10.15510, .78035, .10797,
177 + .00000, .42776, .78556,
178 + .01309, .00960, 16.68560, 1.01191, .34930,
179 + .00000, .66456, 1.01730,
180 + .01430, .01022, 23.92710, 1.26584, .61147,
181 + .00000, .92292, 1.27138,
182 + .01542, .01080, 31.68767, 1.53701, .88978,
183 + .14159, 1.19792, 1.54269,
184 + .01646, .01134, 39.81208, 1.82260, 1.18170,
185 + .45896, 1.48691, 1.82840,
186 + .01744, .01185, 48.22453, 2.12071, 1.48551,
187 + .77425, 1.78808, 2.12662,
188 + .01836, .01234, 56.75309, 2.42691, 1.79689,
189 + 1.09637, 2.09707, 2.43292 /
190 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=8,14)/
191 + .01924, .01280, 65.36441, 2.73982, 2.11457,
192 + 1.42390, 2.41254, 2.74594,
193 + .02008, .01324, 74.01095, 3.05790, 2.43704,
194 + 1.75538, 2.73298, 3.06411,
195 + .02089, .01366, 82.65224, 3.37980, 2.76302,
196 + 2.08967, 3.05707, 3.38609,
197 + .02166, .01407, 91.19908, 3.70293, 3.08996,
198 + 2.42432, 3.38226, 3.70930,
199 + .02240, .01446, 99.66013, 4.02714, 3.41774,
200 + 2.75929, 3.70839, 4.03359,
201 + .02312, .01484, 108.04739, 4.35246, 3.74643,
202 + 3.09470, 4.03551, 4.35898,
203 + .02381, .01520, 116.36797, 4.67887, 4.07601,
204 + 3.43059, 4.36363, 4.68546 /
205 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),F(8,5,K),K=15,19)/
206 + .02448, .01556, 124.49368, 5.00264, 4.40279,
207 + 3.76333, 4.68902, 5.00930,
208 + .02513, .01590, 132.50395, 5.32565, 4.72867,
209 + 4.09483, 5.01357, 5.33238,
210 + .02576, .01623, 140.45741, 5.64941, 5.05514,
211 + 4.42663, 5.33879, 5.65619,
212 + .02637, .01655, 148.13635, 5.96750, 5.37584,
213 + 4.75240, 5.65828, 5.97435,
214 + .02696, .01687, 155.79619, 6.28703, 5.69785,
215 + 5.07923, 5.97915, 6.29393 /
216 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=1,7)/
217 + .01331, .00978, 9.69912, .75395, .10268,
218 + .00000, .41229, .75913,
219 + .01481, .01056, 15.77229, .97021, .32855,
220 + .00000, .63368, .97556,
221 + .01616, .01126, 22.43651, 1.20551, .57194,
222 + .00000, .87330, 1.21099,
223 + .01740, .01190, 29.51837, 1.45515, .82859,
224 + .13052, 1.12669, 1.46076,
225 + .01856, .01251, 36.87933, 1.71662, 1.09628,
226 + .42203, 1.39148, 1.72234,
227 + .01964, .01308, 44.45433, 1.98825, 1.37350,
228 + .71013, 1.66609, 1.99407,
229 + .02067, .01362, 52.09108, 2.26604, 1.65640,
230 + 1.00318, 1.94661, 2.27196 /
231 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=8,14)/
232 + .02165, .01413, 59.76386, 2.54884, 1.94387,
233 + 1.29997, 2.23190, 2.55485,
234 + .02258, .01462, 67.43357, 2.83530, 2.23464,
235 + 1.59927, 2.52067, 2.84139,
236 + .02347, .01509, 75.06716, 3.12426, 2.52762,
237 + 1.90010, 2.81177, 3.13043,
238 + .02432, .01554, 82.58798, 3.41347, 2.82056,
239 + 2.20035, 3.10298, 3.41971,
240 + .02514, .01597, 90.00687, 3.70283, 3.11344,
241 + 2.50002, 3.39421, 3.70915,
242 + .02593, .01639, 97.33720, 3.99244, 3.40635,
243 + 2.79929, 3.68558, 3.99882,
244 + .02669, .01679, 104.58734, 4.28232, 3.69935,
245 + 3.09826, 3.97713, 4.28877 /
246 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),F(8,6,K),K=15,19)/
247 + .02743, .01718, 111.64555, 4.56918, 3.98916,
248 + 3.39370, 4.26556, 4.57569,
249 + .02814, .01756, 118.58449, 4.85475, 4.27755,
250 + 3.68740, 4.55264, 4.86132,
251 + .02884, .01793, 125.45766, 5.14042, 4.56589,
252 + 3.98078, 4.83974, 5.14705,
253 + .02951, .01829, 132.07423, 5.42050, 4.84852,
254 + 4.26820, 5.12117, 5.42718,
255 + .03016, .01863, 138.66100, 5.70136, 5.13182,
256 + 4.55606, 5.40334, 5.70809 /
257 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=1,7)/
258 + .01958, .01311, 8.40333, .67636, .08762,
259 + .00000, .36736, .68178,
260 + .02169, .01422, 13.22801, .85015, .27056,
261 + .00000, .54599, .85572,
262 + .02358, .01522, 18.34923, 1.03464, .46276,
263 + .00000, .73455, 1.04034,
264 + .02530, .01613, 23.64732, 1.22648, .66128,
265 + .10086, .92992, 1.23230,
266 + .02690, .01698, 29.03012, 1.42398, .86471,
267 + .32364, 1.13055, 1.42991,
268 + .02840, .01778, 34.46159, 1.62608, 1.07215,
269 + .54025, 1.33548, 1.63211,
270 + .02982, .01853, 39.84029, 1.83001, 1.28095,
271 + .75758, 1.54197, 1.83613 /
272 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=8,14)/
273 + .03116, .01924, 45.15955, 2.03511, 1.49050,
274 + .97496, 1.74943, 2.04132,
275 + .03243, .01992, 50.40087, 2.24059, 1.70010,
276 + 1.19171, 1.95707, 2.24688,
277 + .03364, .02057, 55.54933, 2.44577, 1.90911,
278 + 1.40732, 2.16428, 2.45214,
279 + .03480, .02119, 60.55828, 2.64918, 2.11609,
280 + 1.62042, 2.36957, 2.65562,
281 + .03591, .02178, 65.44303, 2.85092, 2.32118,
282 + 1.83121, 2.57307, 2.85742,
283 + .03698, .02235, 70.21916, 3.05119, 2.52460,
284 + 2.03997, 2.77500, 3.05776,
285 + .03802, .02290, 74.89758, 3.25014, 2.72654,
286 + 2.24691, 2.97553, 3.25678 /
287 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),F(8,7,K),K=15,19)/
288 + .03901, .02343, 79.40594, 3.44554, 2.92476,
289 + 2.44985, 3.17241, 3.45224,
290 + .03997, .02394, 83.79903, 3.63875, 3.12064,
291 + 2.65020, 3.36703, 3.64550,
292 + .04090, .02444, 88.11669, 3.83082, 3.31527,
293 + 2.84904, 3.56045, 3.83763,
294 + .04180, .02492, 92.23324, 4.01784, 3.50473,
295 + 3.04252, 3.74875, 4.02471,
296 + .04268, .02539, 96.30490, 4.20439, 3.69361,
297 + 3.23521, 3.93653, 4.21131 /
298 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=1,7)/
299 + .02871, .01770, 7.26714, .60445, .07439,
300 + .00000, .32651, .61067,
301 + .03166, .01928, 11.06306, .74238, .22114,
302 + .00000, .46911, .74879,
303 + .03430, .02070, 14.95499, .88524, .37144,
304 + .00000, .61591, .89182,
305 + .03669, .02198, 18.86991, 1.03079, .52345,
306 + .07719, .76488, 1.03754,
307 + .03890, .02317, 22.75336, 1.17806, .67645,
308 + .24583, .91518, 1.18495,
309 + .04096, .02428, 26.59169, 1.32645, .83001,
310 + .40709, 1.06632, 1.33348,
311 + .04289, .02532, 30.32141, 1.47414, .98240,
312 + .56663, 1.21649, 1.48128 /
313 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=8,14)/
314 + .04472, .02630, 33.94852, 1.62083, 1.13341,
315 + .72418, 1.36546, 1.62809,
316 + .04645, .02723, 37.46835, 1.76613, 1.28270,
317 + .87945, 1.51287, 1.77350,
318 + .04810, .02812, 40.87758, 1.90971, 1.42998,
319 + 1.03225, 1.65841, 1.91718,
320 + .04966, .02897, 44.14984, 2.05064, 1.57438,
321 + 1.18176, 1.80117, 2.05822,
322 + .05116, .02977, 47.30179, 2.18915, 1.71613,
323 + 1.32828, 1.94139, 2.19682,
324 + .05260, .03055, 50.34907, 2.32549, 1.85554,
325 + 1.47213, 2.07935, 2.33325,
326 + .05399, .03129, 53.30316, 2.45988, 1.99281,
327 + 1.61358, 2.21527, 2.46772 /
328 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),F(8,8,K),K=15,19)/
329 + .05532, .03201, 56.11809, 2.59082, 2.12649,
330 + 1.75120, 2.34765, 2.59874,
331 + .05660, .03270, 58.83470, 2.71937, 2.25764,
332 + 1.88607, 2.47757, 2.72737,
333 + .05784, .03337, 61.48241, 2.84634, 2.38710,
334 + 2.01904, 2.60586, 2.85442,
335 + .05904, .03401, 63.97937, 2.96907, 2.51219,
336 + 2.14748, 2.72983, 2.97722,
337 + .06020, .03464, 66.43238, 3.09082, 2.63621,
338 + 2.27468, 2.85278, 3.09904 /
339 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=1,7)/
340 + .03586, .02124, 6.66484, .56445, .06738,
341 + .00000, .30413, .57139,
342 + .03946, .02317, 9.94165, .68400, .19562,
343 + .00000, .42831, .69119,
344 + .04264, .02490, 13.23069, .80604, .32499,
345 + .00000, .55426, .81345,
346 + .04553, .02646, 16.48252, .92888, .45421,
347 + .06562, .68050, .93649,
348 + .04818, .02790, 19.66086, 1.05187, .58285,
349 + .20804, .80650, 1.05966,
350 + .05066, .02924, 22.76230, 1.17466, .71074,
351 + .34285, .93201, 1.18262,
352 + .05297, .03050, 25.74059, 1.29584, .83657,
353 + .47511, 1.05567, 1.30396 /
354 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=8,14)/
355 + .05515, .03168, 28.60671, 1.41530, .96030,
356 + .60471, 1.17740, 1.42357,
357 + .05722, .03280, 31.36157, 1.53281, 1.08175,
358 + .73153, 1.29701, 1.54121,
359 + .05917, .03386, 34.00644, 1.64819, 1.20080,
360 + .85553, 1.41434, 1.65672,
361 + .06103, .03487, 36.52328, 1.76076, 1.31679,
362 + .97611, 1.52873, 1.76941,
363 + .06281, .03583, 38.92864, 1.87076, 1.43001,
364 + 1.09360, 1.64045, 1.87954,
365 + .06451, .03675, 41.23754, 1.97849, 1.54076,
366 + 1.20835, 1.74979, 1.98738,
367 + .06614, .03764, 43.46108, 2.08417, 1.64930,
368 + 1.32064, 1.85699, 2.09316 /
369 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),F(8,9,K),K=15,19)/
370 + .06771, .03848, 45.56446, 2.18663, 1.75446,
371 + 1.42933, 1.96088, 2.19572,
372 + .06922, .03930, 47.58186, 2.28676, 1.85718,
373 + 1.53538, 2.06239, 2.29595,
374 + .07068, .04009, 49.53772, 2.38529, 1.95816,
375 + 1.63952, 2.16223, 2.39458,
376 + .07208, .04085, 51.36873, 2.48008, 2.05530,
377 + 1.73966, 2.25827, 2.48946,
378 + .07344, .04159, 53.15987, 2.57380, 2.15126,
379 + 1.83847, 2.35318, 2.58327 /
380 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=1,7)/
381 + .04198, .02427, 6.26127, .53676, .06269,
382 + .00000, .28877, .54431,
383 + .04610, .02650, 9.20060, .64430, .17885,
384 + .00000, .40093, .65215,
385 + .04974, .02848, 12.10500, .75292, .29475,
386 + .00000, .51345, .76103,
387 + .05302, .03027, 14.94009, .86130, .40946,
388 + .05827, .62522, .86965,
389 + .05604, .03192, 17.68082, .96898, .52275,
390 + .18412, .73592, .97754,
391 + .05885, .03345, 20.32986, 1.07576, .63461,
392 + .30239, .84542, 1.08452,
393 + .06148, .03488, 22.85129, 1.18049, .74396,
394 + .41769, .95263, 1.18944 /
395 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=8,14)/
396 + .06394, .03622, 25.25876, 1.28317, .85087,
397 + .53004, 1.05758, 1.29229,
398 + .06627, .03749, 27.55616, 1.38365, .95528,
399 + .63942, 1.16016, 1.39293,
400 + .06847, .03869, 29.74718, 1.48184, 1.05712,
401 + .74584, 1.26031, 1.49128,
402 + .07056, .03983, 31.81858, 1.57722, 1.15590,
403 + .84886, 1.35751, 1.58680,
404 + .07256, .04092, 33.78643, 1.67004, 1.25191,
405 + .94882, 1.45204, 1.67975,
406 + .07447, .04196, 35.66511, 1.76059, 1.34547,
407 + 1.04607, 1.54420, 1.77043,
408 + .07630, .04295, 37.46526, 1.84909, 1.43682,
409 + 1.14089, 1.63423, 1.85906 /
410 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),F(8,10,K),K=15,19)/
411 + .07805, .04391, 39.15857, 1.93458, 1.52500,
412 + 1.23234, 1.72117, 1.94467,
413 + .07973, .04482, 40.77489, 2.01786, 1.61085,
414 + 1.32127, 1.80582, 2.02806,
415 + .08136, .04571, 42.33558, 2.09957, 1.69500,
416 + 1.40833, 1.88884, 2.10988,
417 + .08293, .04655, 43.78826, 2.17790, 1.77566,
418 + 1.49176, 1.96842, 2.18831,
419 + .08444, .04738, 45.20470, 2.25516, 1.85515,
420 + 1.57389, 2.04687, 2.26567 /
421 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=1,7)/
422 + .04744, .02712, 5.95654, .51536, .05915,
423 + .00000, .27681, .52325,
424 + .05199, .02961, 8.64377, .61403, .16639,
425 + .00000, .38008, .62226,
426 + .05601, .03182, 11.26517, .71284, .27243,
427 + .00000, .48276, .72134,
428 + .05964, .03381, 13.79730, .81070, .37658,
429 + .05293, .58400, .81947,
430 + .06296, .03563, 16.22306, .90732, .47878,
431 + .16680, .68362, .91632,
432 + .06604, .03732, 18.54925, 1.00261, .57910,
433 + .27316, .78160, 1.01182,
434 + .06892, .03889, 20.74704, 1.09559, .67667,
435 + .37633, .87705, 1.10500 /
436 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=8,14)/
437 + .07161, .04037, 22.83174, 1.18632, .77162,
438 + .47638, .97004, 1.19592,
439 + .07416, .04176, 24.80939, 1.27474, .86393,
440 + .57337, 1.06055, 1.28452,
441 + .07656, .04308, 26.68486, 1.36081, .95362,
442 + .66737, 1.14856, 1.37075,
443 + .07884, .04433, 28.44814, 1.44410, 1.04029,
444 + .75803, 1.23366, 1.45420,
445 + .08101, .04551, 30.11470, 1.52488, 1.12424,
446 + .84569, 1.31614, 1.53512,
447 + .08309, .04665, 31.69852, 1.60343, 1.20578,
448 + .93070, 1.39629, 1.61381,
449 + .08508, .04773, 33.20981, 1.67998, 1.28516,
450 + 1.01333, 1.47436, 1.69050 /
451 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),F(8,11,K),K=15,19)/
452 + .08698, .04877, 34.62450, 1.75369, 1.36155,
453 + 1.09279, 1.54951, 1.76433,
454 + .08880, .04976, 35.96930, 1.82531, 1.43571,
455 + 1.16984, 1.62248, 1.83607,
456 + .09057, .05072, 37.26331, 1.89539, 1.50822,
457 + 1.24509, 1.69388, 1.90628,
458 + .09226, .05164, 38.46186, 1.96239, 1.57753,
459 + 1.31701, 1.76211, 1.97339,
460 + .09390, .05253, 39.62732, 2.02834, 1.64570,
461 + 1.38764, 1.82925, 2.03944 /
462 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=1,7)/
463 + .06925, .03871, 5.07810, .45062, .04899,
464 + .00000, .24127, .46017,
465 + .07544, .04219, 7.07574, .52474, .13158,
466 + .00000, .31998, .53474,
467 + .08086, .04523, 8.94374, .59690, .21090,
468 + .00000, .39602, .60730,
469 + .08571, .04794, 10.68623, .66673, .28693,
470 + .03872, .46920, .67747,
471 + .09012, .05041, 12.30563, .73425, .35997,
472 + .12098, .53972, .74532,
473 + .09419, .05267, 13.81785, .79964, .43034,
474 + .19633, .60780, .81099,
475 + .09797, .05477, 15.21125, .86239, .49762,
476 + .26821, .67300, .87401 /
477 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=8,14)/
478 + .10148, .05672, 16.50359, .92269, .56208,
479 + .33688, .73556, .93456,
480 + .10478, .05855, 17.70447, .98064, .62388,
481 + .40251, .79559, .99274,
482 + .10789, .06026, 18.82145, 1.03633, .68313,
483 + .46530, .85321, 1.04864,
484 + .11082, .06188, 19.85142, 1.08955, .73969,
485 + .52513, .90823, 1.10206,
486 + .11359, .06341, 20.80771, 1.14056, .79383,
487 + .58231, .96094, 1.15327,
488 + .11624, .06486, 21.70183, 1.18965, .84587,
489 + .63719, 1.01162, 1.20254,
490 + .11876, .06624, 22.54226, 1.23702, .89602,
491 + .69001, 1.06050, 1.25008 /
492 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),F(8,12,K),K=15,19)/
493 + .12116, .06756, 23.31507, 1.28215, .94379,
494 + .74029, 1.10706, 1.29538,
495 + .12346, .06881, 24.03894, 1.32560, .98974,
496 + .78861, 1.15186, 1.33898,
497 + .12567, .07002, 24.72700, 1.36778, 1.03432,
498 + .83542, 1.19534, 1.38131,
499 + .12778, .07117, 25.35204, 1.40768, 1.07650,
500 + .87972, 1.23647, 1.42135,
501 + .12983, .07228, 25.95412, 1.44670, 1.11770,
502 + .92294, 1.27667, 1.46051 /
503 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=1,7)/
504 + .10082, .05660, 4.28068, .38728, .03987,
505 + .00000, .20701, .39905,
506 + .10905, .06130, 5.70546, .44081, .10178,
507 + .00000, .26512, .45320,
508 + .11617, .06534, 6.97538, .49134, .15937,
509 + .00000, .31950, .50426,
510 + .12247, .06890, 8.11311, .53896, .21312,
511 + .02750, .37047, .55234,
512 + .12816, .07209, 9.13353, .58396, .26356,
513 + .08511, .41844, .59775,
514 + .13336, .07500, 10.05694, .62664, .31114,
515 + .13676, .46380, .64080,
516 + .13814, .07766, 10.88208, .66681, .35577,
517 + .18513, .50640, .68132 /
518 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=8,14)/
519 + .14257, .08011, 11.62655, .70475, .39780,
520 + .23056, .54657, .71957,
521 + .14669, .08238, 12.30057, .74062, .43745,
522 + .27332, .58450, .75572,
523 + .15055, .08450, 12.91245, .77457, .47491,
524 + .31364, .62037, .78995,
525 + .15416, .08648, 13.46223, .80654, .51015,
526 + .35153, .65412, .82216,
527 + .15757, .08833, 13.96088, .83676, .54344,
528 + .38728, .68601, .85262,
529 + .16079, .09008, 14.41714, .86548, .57504,
530 + .42118, .71630, .88155,
531 + .16385, .09173, 14.83745, .89287, .60516,
532 + .45345, .74518, .90915 /
533 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),F(8,13,K),K=15,19)/
534 + .16675, .09329, 15.21402, .91864, .63350,
535 + .48381, .77235, .93511,
536 + .16950, .09478, 15.55942, .94316, .66047,
537 + .51269, .79820, .95981,
538 + .17215, .09619, 15.88226, .96674, .68639,
539 + .54041, .82306, .98356,
540 + .17465, .09753, 16.16632, .98874, .71062,
541 + .56635, .84627, 1.00573,
542 + .17707, .09882, 16.43656, 1.01010, .73410,
543 + .59146, .86878, 1.02725 /
544 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=1,7)/
545 + .12542, .07120, 3.84676, .35071, .03498,
546 + -.00001, .18758, .36433,
547 + .13500, .07667, 4.98682, .39389, .08646,
548 + -.00001, .23533, .40823,
549 + .14322, .08132, 5.97113, .43383, .13341,
550 + -.00001, .27912, .44879,
551 + .15043, .08537, 6.82930, .47084, .17648,
552 + .02211, .31945, .48633,
553 + .15691, .08897, 7.58037, .50526, .21628,
554 + .06806, .35683, .52123,
555 + .16279, .09223, 8.24519, .53747, .25334,
556 + .10870, .39170, .55386,
557 + .16816, .09518, 8.82633, .56739, .28767,
558 + .14631, .42404, .58416 /
559 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=8,14)/
560 + .17311, .09788, 9.34003, .59532, .31962,
561 + .18126, .45417, .61243,
562 + .17769, .10036, 9.79627, .62143, .34945,
563 + .21382, .48232, .63885,
564 + .18196, .10267, 10.20278, .64587, .37736,
565 + .24423, .50866, .66359,
566 + .18594, .10480, 10.56073, .66866, .40336,
567 + .27256, .53320, .68664,
568 + .18967, .10679, 10.87911, .69000, .42772,
569 + .29907, .55619, .70823,
570 + .19319, .10865, 11.16524, .71009, .45064,
571 + .32400, .57783, .72855,
572 + .19652, .11041, 11.42442, .72909, .47233,
573 + .34757, .59830, .74778 /
574 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),F(8,14,K),K=15,19)/
575 + .19965, .11205, 11.65133, .74679, .49256,
576 + .36957, .61738, .76568,
577 + .20262, .11361, 11.85561, .76351, .51168,
578 + .39035, .63541, .78258,
579 + .20547, .11509, 12.04375, .77948, .52994,
580 + .41019, .65263, .79873,
581 + .20815, .11647, 12.20420, .79422, .54685,
582 + .42859, .66855, .81364,
583 + .21072, .11780, 12.35514, .80844, .56317,
584 + .44633, .68392, .82803 /
585 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=1,7)/
586 + .14635, .08398, 3.55118, .32495, .03170,
587 + -.00001, .17404, .34019,
588 + .15691, .08996, 4.50984, .36149, .07647,
589 + -.00001, .21512, .37754,
590 + .16591, .09500, 5.31706, .39476, .11668,
591 + -.00001, .25222, .41148,
592 + .17377, .09935, 6.00574, .42517, .15309,
593 + .01876, .28594, .44248,
594 + .18078, .10319, 6.59653, .45313, .18636,
595 + .05751, .31682, .47094,
596 + .18711, .10664, 7.11005, .47899, .21702,
597 + .09143, .34533, .49725,
598 + .19287, .10974, 7.55058, .50277, .24514,
599 + .12254, .37149, .52143 /
600 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=8,14)/
601 + .19814, .11256, 7.93320, .52475, .27110,
602 + .15121, .39565, .54376,
603 + .20301, .11514, 8.26725, .54511, .29513,
604 + .17772, .41803, .56445,
605 + .20753, .11752, 8.55992, .56401, .31744,
606 + .20230, .43880, .58365,
607 + .21171, .11970, 8.81277, .58148, .33807,
608 + .22503, .45799, .60139,
609 + .21562, .12173, 9.03356, .59770, .35726,
610 + .24617, .47584, .61786,
611 + .21930, .12362, 9.22855, .61286, .37521,
612 + .26594, .49252, .63325,
613 + .22276, .12540, 9.40224, .62709, .39208,
614 + .28451, .50820, .64771 /
615 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),F(8,15,K),K=15,19)/
616 + .22601, .12705, 9.55060, .64024, .40772,
617 + .30174, .52271, .66105,
618 + .22908, .12860, 9.68146, .65257, .42241,
619 + .31794, .53632, .67357,
620 + .23201, .13007, 9.80009, .66429, .43638,
621 + .33333, .54927, .68546,
622 + .23476, .13144, 9.89744, .67499, .44921,
623 + .34751, .56113, .69632,
624 + .23740, .13276, 9.98790, .68528, .46155,
625 + .36113, .57254, .70677 /
626 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=1,7)/
627 + .16489, .09548, 3.32845, .30510, .02927,
628 + .00000, .16372, .32187,
629 + .17621, .10181, 4.15789, .33688, .06921,
630 + .00000, .20002, .35450,
631 + .18579, .10710, 4.84151, .36544, .10463,
632 + .00000, .23237, .38377,
633 + .19413, .11164, 5.41397, .39124, .13638,
634 + .01642, .26146, .41018,
635 + .20151, .11560, 5.89654, .41472, .16511,
636 + .05015, .28784, .43417,
637 + .20816, .11914, 6.30917, .43624, .19137,
638 + .07942, .31197, .45616,
639 + .21417, .12231, 6.65712, .45583, .21525,
640 + .10607, .33392, .47615 /
641 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=8,14)/
642 + .21966, .12517, 6.95469, .47378, .23713,
643 + .13046, .35403, .49447,
644 + .22470, .12777, 7.20996, .49029, .25727,
645 + .15288, .37253, .51130,
646 + .22936, .13015, 7.42989, .50550, .27584,
647 + .17356, .38958, .52682,
648 + .23366, .13233, 7.61640, .51943, .29290,
649 + .19255, .40523, .54101,
650 + .23766, .13435, 7.77622, .53228, .30867,
651 + .21012, .41967, .55410,
652 + .24141, .13621, 7.91472, .54421, .32335,
653 + .22648, .43310, .56626,
654 + .24493, .13796, 8.03581, .55534, .33707,
655 + .24177, .44565, .57760 /
656 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),F(8,16,K),K=15,19)/
657 + .24822, .13957, 8.13630, .56553, .34972,
658 + .25588, .45718, .58798,
659 + .25132, .14108, 8.22278, .57503, .36153,
660 + .26908, .46794, .59765,
661 + .25427, .14251, 8.29966, .58400, .37272,
662 + .28158, .47812, .60679,
663 + .25702, .14383, 8.35946, .59213, .38295,
664 + .29305, .48738, .61506,
665 + .25967, .14509, 8.41417, .59991, .39274,
666 + .30402, .49626, .62299 /
667 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=1,7)/
668 + .23825, .14150, 2.66783, .24444, .02231,
669 + .00000, .13292, .26776,
670 + .25156, .14824, 3.15560, .26344, .04919,
671 + .00000, .15630, .28766,
672 + .26253, .15365, 3.52557, .27968, .07202,
673 + .00000, .17619, .30459,
674 + .27184, .15813, 3.81269, .29370, .09174,
675 + .01037, .19335, .31918,
676 + .27991, .16192, 4.03692, .30593, .10901,
677 + .03129, .20835, .33188,
678 + .28702, .16520, 4.21488, .31671, .12431,
679 + .04893, .22161, .34304,
680 + .29331, .16804, 4.35259, .32615, .13784,
681 + .06458, .23328, .35280 /
682 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=8,14)/
683 + .29895, .17052, 4.46039, .33448, .14991,
684 + .07857, .24365, .36142,
685 + .30404, .17271, 4.54459, .34187, .16074,
686 + .09114, .25290, .36904,
687 + .30865, .17466, 4.60961, .34844, .17049,
688 + .10250, .26120, .37582,
689 + .31283, .17639, 4.65723, .35423, .17924,
690 + .11272, .26859, .38177,
691 + .31665, .17793, 4.69173, .35937, .18714,
692 + .12199, .27522, .38706,
693 + .32017, .17932, 4.71634, .36399, .19435,
694 + .13046, .28123, .39180,
695 + .32342, .18059, 4.73327, .36816, .20096,
696 + .13826, .28671, .39609 /
697 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),F(8,17,K),K=15,19)/
698 + .32640, .18172, 4.74078, .37180, .20690,
699 + .14531, .29159, .39982,
700 + .32917, .18275, 4.74260, .37507, .21234,
701 + .15180, .29602, .40317,
702 + .33177, .18370, 4.74103, .37807, .21741,
703 + .15785, .30013, .40625,
704 + .33413, .18453, 4.73230, .38061, .22192,
705 + .16329, .30372, .40885,
706 + .33638, .18532, 4.72247, .38300, .22618,
707 + .16844, .30711, .41128 /
708 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=1,7)/
709 + .34220, .20330, 2.04676, .18593, .01626,
710 + -.00002, .10430, .21876,
711 + .35539, .20807, 2.27672, .19492, .03279,
712 + -.00002, .11737, .22817,
713 + .36572, .21152, 2.42680, .20194, .04611,
714 + -.00001, .12777, .23542,
715 + .37406, .21408, 2.52577, .20750, .05707,
716 + .00593, .13620, .24111,
717 + .38096, .21601, 2.58902, .21195, .06628,
718 + .01769, .14317, .24560,
719 + .38676, .21749, 2.62800, .21554, .07412,
720 + .02725, .14900, .24918,
721 + .39163, .21858, 2.64728, .21836, .08078,
722 + .03546, .15383, .25195 /
723 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=8,14)/
724 + .39578, .21939, 2.65319, .22060, .08650,
725 + .04259, .15789, .25410,
726 + .39934, .21997, 2.64953, .22236, .09145,
727 + .04881, .16130, .25575,
728 + .40242, .22036, 2.63861, .22373, .09576,
729 + .05429, .16420, .25701,
730 + .40505, .22060, 2.62155, .22474, .09950,
731 + .05908, .16661, .25787,
732 + .40732, .22071, 2.60036, .22544, .10274,
733 + .06331, .16862, .25845,
734 + .40930, .22072, 2.57660, .22593, .10560,
735 + .06708, .17033, .25879,
736 + .41103, .22066, 2.55126, .22626, .10815,
737 + .07047, .17178, .25896 /
738 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),F(8,18,K),K=15,19)/
739 + .41249, .22050, 2.52352, .22636, .11035,
740 + .07347, .17295, .25891,
741 + .41376, .22028, 2.49493, .22633, .11229,
742 + .07616, .17392, .25871,
743 + .41490, .22004, 2.46646, .22622, .11405,
744 + .07861, .17476, .25844,
745 + .41582, .21971, 2.43627, .22593, .11552,
746 + .08075, .17536, .25798,
747 + .41665, .21938, 2.40707, .22560, .11689,
748 + .08274, .17589, .25751 /
749 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=1,7)/
750 + .41979, .24288, 1.69908, .15230, .01311,
751 + .00000, .08811, .19096,
752 + .43037, .24450, 1.81444, .15661, .02475,
753 + .00001, .09621, .19493,
754 + .43804, .24515, 1.87399, .15953, .03377,
755 + .00000, .10224, .19744,
756 + .44377, .24517, 1.90065, .16150, .04094,
757 + .00401, .10684, .19897,
758 + .44809, .24480, 1.90592, .16277, .04675,
759 + .01183, .11040, .19977,
760 + .45140, .24415, 1.89792, .16352, .05154,
761 + .01803, .11318, .20008,
762 + .45386, .24327, 1.87988, .16384, .05550,
763 + .02322, .11529, .19993 /
764 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=8,14)/
765 + .45568, .24225, 1.85576, .16384, .05878,
766 + .02762, .11692, .19948,
767 + .45700, .24112, 1.82795, .16360, .06153,
768 + .03140, .11815, .19880,
769 + .45789, .23994, 1.79785, .16317, .06385,
770 + .03464, .11907, .19795,
771 + .45843, .23868, 1.76586, .16258, .06579,
772 + .03743, .11971, .19693,
773 + .45868, .23740, 1.73317, .16186, .06742,
774 + .03983, .12014, .19579,
775 + .45871, .23609, 1.70056, .16106, .06880,
776 + .04194, .12039, .19460,
777 + .45859, .23478, 1.66847, .16020, .06999,
778 + .04381, .12052, .19337 /
779 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),F(8,19,K),K=15,19)/
780 + .45826, .23343, 1.63623, .15925, .07096,
781 + .04540, .12050, .19205,
782 + .45779, .23211, 1.60473, .15827, .07178,
783 + .04680, .12038, .19072,
784 + .45725, .23081, 1.57442, .15729, .07250,
785 + .04806, .12022, .18940,
786 + .45653, .22948, 1.54411, .15623, .07304,
787 + .04912, .11992, .18799,
788 + .45579, .22819, 1.51530, .15520, .07353,
789 + .05009, .11961, .18663 /
790 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=1,7)/
791 + .48135, .26833, 1.45828, .12804, .01095,
792 + .00000, .07617, .16955,
793 + .48795, .26655, 1.50803, .12958, .01965,
794 + .00000, .08123, .17003,
795 + .49194, .26427, 1.51902, .13021, .02615,
796 + .00000, .08472, .16962,
797 + .49425, .26177, 1.50921, .13023, .03116,
798 + .00291, .08714, .16872,
799 + .49537, .25915, 1.48708, .12985, .03510,
800 + .00849, .08882, .16743,
801 + .49571, .25646, 1.45828, .12918, .03826,
802 + .01284, .08998, .16593,
803 + .49534, .25378, 1.42494, .12830, .04078,
804 + .01640, .09070, .16422 /
805 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=8,14)/
806 + .49453, .25108, 1.38970, .12724, .04280,
807 + .01936, .09109, .16244,
808 + .49336, .24845, 1.35389, .12611, .04444,
809 + .02186, .09125, .16060,
810 + .49193, .24586, 1.31831, .12489, .04579,
811 + .02397, .09123, .15874,
812 + .49024, .24333, 1.28298, .12363, .04685,
813 + .02573, .09104, .15683,
814 + .48839, .24085, 1.24859, .12234, .04771,
815 + .02724, .09074, .15494,
816 + .48644, .23844, 1.21548, .12104, .04841,
817 + .02853, .09036, .15307,
818 + .48443, .23611, 1.18380, .11974, .04898,
819 + .02964, .08992, .15123 /
820 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),F(8,20,K),K=15,19)/
821 + .48230, .23381, 1.15299, .11843, .04941,
822 + .03058, .08940, .14940,
823 + .48011, .23158, 1.12354, .11713, .04973,
824 + .03139, .08884, .14761,
825 + .47794, .22944, 1.09562, .11588, .05000,
826 + .03210, .08828, .14588,
827 + .47566, .22731, 1.06842, .11460, .05016,
828 + .03268, .08765, .14415,
829 + .47344, .22527, 1.04279, .11337, .05028,
830 + .03320, .08703, .14249 /
831 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=1,7)/
832 + .53061, .28359, 1.27440, .10862, .00929,
833 + .00000, .06625, .15072,
834 + .53241, .27853, 1.28232, .10846, .01597,
835 + -.00001, .06928, .14884,
836 + .53213, .27353, 1.26423, .10770, .02082,
837 + -.00001, .07112, .14657,
838 + .53061, .26872, 1.23403, .10662, .02444,
839 + .00218, .07220, .14412,
840 + .52828, .26407, 1.19768, .10532, .02721,
841 + .00634, .07275, .14161,
842 + .52542, .25963, 1.15907, .10392, .02936,
843 + .00950, .07295, .13906,
844 + .52214, .25536, 1.11939, .10240, .03103,
845 + .01205, .07287, .13653 /
846 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=8,14)/
847 + .51860, .25129, 1.08033, .10089, .03232,
848 + .01415, .07260, .13403,
849 + .51494, .24738, 1.04254, .09933, .03334,
850 + .01588, .07219, .13161,
851 + .51118, .24366, 1.00637, .09781, .03411,
852 + .01730, .07169, .12923,
853 + .50736, .24005, .97168, .09625, .03470,
854 + .01847, .07109, .12697,
855 + .50347, .23663, .93874, .09476, .03515,
856 + .01947, .07044, .12474,
857 + .49960, .23335, .90765, .09330, .03548,
858 + .02031, .06977, .12259,
859 + .49581, .23021, .87840, .09189, .03573,
860 + .02101, .06907, .12054 /
861 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),F(8,21,K),K=15,19)/
862 + .49202, .22716, .85050, .09046, .03588,
863 + .02158, .06834, .11856,
864 + .48826, .22424, .82420, .08910, .03597,
865 + .02207, .06761, .11663,
866 + .48458, .22146, .79953, .08781, .03603,
867 + .02249, .06690, .11477,
868 + .48089, .21874, .77588, .08651, .03601,
869 + .02281, .06615, .11297,
870 + .47733, .21615, .75376, .08527, .03597,
871 + .02310, .06544, .11126 /
872 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=1,7)/
873 + .57766, .29204, 1.09262, .08858, .00760,
874 + .00000, .05549, .12908,
875 + .57284, .28330, 1.06688, .08714, .01254,
876 + -.00002, .05686, .12534,
877 + .56685, .27532, 1.02722, .08544, .01598,
878 + -.00002, .05741, .12169,
879 + .56037, .26803, .98320, .08364, .01847,
880 + .00157, .05747, .11819,
881 + .55362, .26128, .93836, .08179, .02030,
882 + .00454, .05721, .11486,
883 + .54679, .25504, .89487, .07997, .02167,
884 + .00674, .05675, .11170,
885 + .53994, .24919, .85309, .07816, .02268,
886 + .00850, .05614, .10868 /
887 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=8,14)/
888 + .53316, .24372, .81376, .07640, .02343,
889 + .00989, .05544, .10584,
890 + .52653, .23858, .77706, .07470, .02398,
891 + .01102, .05469, .10315,
892 + .52005, .23376, .74291, .07307, .02436,
893 + .01195, .05391, .10061,
894 + .51370, .22919, .71099, .07149, .02463,
895 + .01269, .05311, .09817,
896 + .50751, .22488, .68133, .06997, .02480,
897 + .01329, .05229, .09588,
898 + .50152, .22080, .65382, .06852, .02489,
899 + .01379, .05148, .09371,
900 + .49573, .21694, .62830, .06714, .02494,
901 + .01421, .05068, .09165 /
902 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),F(8,22,K),K=15,19)/
903 + .49007, .21324, .60439, .06581, .02493,
904 + .01454, .04990, .08966,
905 + .48457, .20973, .58212, .06453, .02487,
906 + .01480, .04912, .08778,
907 + .47928, .20642, .56143, .06331, .02480,
908 + .01502, .04837, .08601,
909 + .47407, .20318, .54188, .06212, .02467,
910 + .01518, .04763, .08430,
911 + .46909, .20011, .52373, .06099, .02455,
912 + .01532, .04691, .08269 /
913 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=1,7)/
914 + .61056, .29170, .94540, .07187, .00621,
915 + -.00003, .04607, .10909,
916 + .59892, .27981, .89858, .06976, .00995,
917 + -.00003, .04643, .10438,
918 + .58719, .26941, .84686, .06764, .01245,
919 + -.00002, .04623, .10008,
920 + .57583, .26014, .79630, .06555, .01419,
921 + .00115, .04574, .09618,
922 + .56484, .25176, .74851, .06354, .01543,
923 + .00333, .04507, .09256,
924 + .55428, .24413, .70435, .06163, .01631,
925 + .00491, .04429, .08926,
926 + .54410, .23710, .66356, .05979, .01693,
927 + .00616, .04345, .08617 /
928 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=8,14)/
929 + .53438, .23063, .62628, .05805, .01735,
930 + .00712, .04259, .08330,
931 + .52507, .22462, .59232, .05641, .01763,
932 + .00790, .04173, .08064,
933 + .51620, .21905, .56135, .05485, .01782,
934 + .00851, .04086, .07818,
935 + .50765, .21384, .53297, .05338, .01790,
936 + .00900, .04001, .07586,
937 + .49947, .20894, .50696, .05198, .01793,
938 + .00938, .03918, .07368,
939 + .49166, .20435, .48316, .05065, .01791,
940 + .00968, .03838, .07165,
941 + .48422, .20002, .46137, .04940, .01785,
942 + .00992, .03761, .06975 /
943 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),F(8,23,K),K=15,19)/
944 + .47704, .19592, .44118, .04819, .01776,
945 + .01011, .03685, .06795,
946 + .47012, .19205, .42257, .04706, .01765,
947 + .01025, .03612, .06625,
948 + .46352, .18840, .40542, .04600, .01753,
949 + .01036, .03542, .06465,
950 + .45708, .18490, .38941, .04498, .01739,
951 + .01045, .03474, .06310,
952 + .45095, .18160, .37462, .04401, .01725,
953 + .01052, .03409, .06165 /
954 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=1,7)/
955 + .63093, .28487, .82190, .05779, .00505,
956 + -.00001, .03782, .09084,
957 + .61251, .27057, .76212, .05548, .00786,
958 + -.00001, .03755, .08580,
959 + .59530, .25829, .70421, .05326, .00971,
960 + -.00001, .03694, .08133,
961 + .57937, .24755, .65138, .05117, .01093,
962 + .00087, .03616, .07741,
963 + .56449, .23800, .60370, .04921, .01176,
964 + .00247, .03530, .07388,
965 + .55060, .22941, .56109, .04738, .01234,
966 + .00362, .03441, .07067,
967 + .53748, .22162, .52282, .04569, .01270,
968 + .00448, .03351, .06773 /
969 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=8,14)/
970 + .52515, .21449, .48862, .04409, .01293,
971 + .00517, .03261, .06507,
972 + .51359, .20794, .45804, .04258, .01305,
973 + .00570, .03175, .06264,
974 + .50270, .20189, .43060, .04120, .01310,
975 + .00610, .03091, .06039,
976 + .49232, .19631, .40578, .03992, .01310,
977 + .00644, .03011, .05827,
978 + .48254, .19108, .38338, .03869, .01306,
979 + .00667, .02934, .05633,
980 + .47327, .18620, .36310, .03753, .01299,
981 + .00686, .02861, .05453,
982 + .46448, .18165, .34468, .03645, .01290,
983 + .00700, .02792, .05286 /
984 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),F(8,24,K),K=15,19)/
985 + .45607, .17736, .32780, .03544, .01278,
986 + .00711, .02724, .05127,
987 + .44805, .17333, .31237, .03449, .01265,
988 + .00718, .02659, .04979,
989 + .44045, .16954, .29826, .03359, .01252,
990 + .00724, .02599, .04841,
991 + .43310, .16593, .28518, .03274, .01237,
992 + .00727, .02540, .04709,
993 + .42614, .16253, .27317, .03193, .01223,
994 + .00729, .02485, .04585 /
995 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=1,7)/
996 + .64004, .27337, .71578, .04598, .00405,
997 + -.00002, .03062, .07449,
998 + .61527, .25721, .64852, .04369, .00621,
999 + -.00002, .03005, .06951,
1000 + .59306, .24357, .58822, .04158, .00758,
1001 + -.00003, .02925, .06524,
1002 + .57306, .23182, .53569, .03962, .00845,
1003 + .00065, .02837, .06155,
1004 + .55478, .22149, .48988, .03782, .00903,
1005 + .00185, .02748, .05826,
1006 + .53799, .21230, .45001, .03617, .00938,
1007 + .00271, .02658, .05537,
1008 + .52239, .20404, .41498, .03465, .00959,
1009 + .00334, .02572, .05273 /
1010 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=8,14)/
1011 + .50796, .19653, .38423, .03327, .00970,
1012 + .00381, .02489, .05035,
1013 + .49451, .18972, .35718, .03198, .00975,
1014 + .00417, .02410, .04818,
1015 + .48198, .18346, .33319, .03080, .00974,
1016 + .00445, .02334, .04621,
1017 + .47018, .17770, .31180, .02970, .00968,
1018 + .00466, .02263, .04440,
1019 + .45913, .17235, .29267, .02867, .00961,
1020 + .00482, .02195, .04273,
1021 + .44874, .16738, .27552, .02771, .00953,
1022 + .00493, .02132, .04117,
1023 + .43897, .16277, .26009, .02682, .00942,
1024 + .00502, .02072, .03974 /
1025 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),F(8,25,K),K=15,19)/
1026 + .42966, .15846, .24609, .02597, .00930,
1027 + .00509, .02013, .03842,
1028 + .42085, .15441, .23339, .02519, .00918,
1029 + .00513, .01958, .03718,
1030 + .41254, .15062, .22185, .02445, .00905,
1031 + .00515, .01908, .03602,
1032 + .40457, .14701, .21123, .02375, .00891,
1033 + .00515, .01858, .03493,
1034 + .39704, .14363, .20153, .02310, .00878,
1035 + .00515, .01811, .03391 /
1036 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=1,7)/
1037 + .63913, .25851, .62319, .03616, .00325,
1038 + .00000, .02447, .06010,
1039 + .60868, .24104, .55233, .03402, .00492,
1040 + -.00002, .02378, .05547,
1041 + .58204, .22655, .49219, .03211, .00592,
1042 + .00000, .02292, .05161,
1043 + .55850, .21422, .44163, .03036, .00655,
1044 + .00050, .02207, .04829,
1045 + .53736, .20346, .39876, .02879, .00694,
1046 + .00140, .02121, .04540,
1047 + .51818, .19400, .36220, .02739, .00716,
1048 + .00202, .02040, .04282,
1049 + .50063, .18551, .33073, .02609, .00728,
1050 + .00249, .01962, .04056 /
1051 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=8,14)/
1052 + .48450, .17791, .30349, .02492, .00732,
1053 + .00284, .01888, .03851,
1054 + .46967, .17101, .27986, .02382, .00731,
1055 + .00309, .01819, .03668,
1056 + .45593, .16472, .25914, .02285, .00726,
1057 + .00328, .01752, .03502,
1058 + .44312, .15896, .24091, .02192, .00720,
1059 + .00343, .01692, .03349,
1060 + .43116, .15366, .22473, .02109, .00711,
1061 + .00353, .01635, .03209,
1062 + .41998, .14877, .21036, .02031, .00701,
1063 + .00359, .01581, .03081,
1064 + .40953, .14425, .19754, .01959, .00690,
1065 + .00363, .01531, .02963 /
1066 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),F(8,26,K),K=15,19)/
1067 + .39966, .13999, .18598, .01890, .00679,
1068 + .00366, .01483, .02856,
1069 + .39036, .13604, .17557, .01827, .00668,
1070 + .00369, .01438, .02755,
1071 + .38161, .13235, .16617, .01769, .00657,
1072 + .00370, .01396, .02660,
1073 + .37325, .12886, .15758, .01713, .00645,
1074 + .00369, .01356, .02572,
1075 + .36538, .12560, .14977, .01662, .00634,
1076 + .00367, .01318, .02490 /
1077 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=1,7)/
1078 + .62947, .24129, .54165, .02801, .00260,
1079 + .00004, .01931, .04775,
1080 + .59403, .22315, .47015, .02618, .00386,
1081 + .00003, .01856, .04365,
1082 + .56369, .20823, .41192, .02452, .00459,
1083 + .00003, .01775, .04027,
1084 + .53726, .19568, .36440, .02307, .00503,
1085 + .00040, .01695, .03740,
1086 + .51382, .18483, .32503, .02175, .00530,
1087 + .00108, .01619, .03491,
1088 + .49286, .17532, .29207, .02055, .00544,
1089 + .00155, .01547, .03275,
1090 + .47380, .16692, .26412, .01951, .00547,
1091 + .00186, .01479, .03084 /
1092 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=8,14)/
1093 + .45650, .15937, .24032, .01853, .00548,
1094 + .00210, .01417, .02913,
1095 + .44064, .15261, .21990, .01766, .00544,
1096 + .00227, .01359, .02759,
1097 + .42613, .14644, .20220, .01684, .00539,
1098 + .00240, .01305, .02623,
1099 + .41263, .14085, .18675, .01611, .00531,
1100 + .00250, .01254, .02500,
1101 + .40011, .13572, .17318, .01544, .00522,
1102 + .00256, .01206, .02386,
1103 + .38849, .13098, .16123, .01482, .00513,
1104 + .00259, .01162, .02283,
1105 + .37766, .12661, .15065, .01424, .00504,
1106 + .00262, .01122, .02189 /
1107 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),F(8,27,K),K=15,19)/
1108 + .36750, .12255, .14114, .01370, .00494,
1109 + .00263, .01082, .02103,
1110 + .35796, .11878, .13266, .01321, .00485,
1111 + .00263, .01046, .02022,
1112 + .34903, .11527, .12505, .01275, .00476,
1113 + .00263, .01012, .01945,
1114 + .34052, .11197, .11814, .01232, .00466,
1115 + .00262, .00981, .01874,
1116 + .33254, .10889, .11188, .01192, .00456,
1117 + .00261, .00952, .01809 /
1118 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=1,7)/
1119 + .61193, .22304, .46967, .02167, .00189,
1120 + -.00013, .01486, .03735,
1121 + .57249, .20454, .39945, .02007, .00290,
1122 + -.00012, .01421, .03381,
1123 + .53927, .18951, .34429, .01865, .00346,
1124 + -.00012, .01351, .03095,
1125 + .51066, .17701, .30042, .01742, .00379,
1126 + .00018, .01282, .02855,
1127 + .48556, .16628, .26476, .01635, .00396,
1128 + .00071, .01217, .02650,
1129 + .46337, .15693, .23545, .01532, .00405,
1130 + .00106, .01158, .02473,
1131 + .44335, .14873, .21097, .01448, .00407,
1132 + .00131, .01103, .02316 /
1133 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=8,14)/
1134 + .42529, .14142, .19036, .01368, .00405,
1135 + .00149, .01050, .02178,
1136 + .40887, .13487, .17286, .01298, .00402,
1137 + .00162, .01003, .02055,
1138 + .39381, .12901, .15788, .01238, .00396,
1139 + .00172, .00960, .01942,
1140 + .38006, .12366, .14489, .01177, .00389,
1141 + .00178, .00917, .01844,
1142 + .36729, .11875, .13362, .01123, .00381,
1143 + .00182, .00879, .01756,
1144 + .35549, .11427, .12375, .01075, .00374,
1145 + .00185, .00845, .01674,
1146 + .34458, .11018, .11506, .01032, .00367,
1147 + .00186, .00814, .01597 /
1148 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),F(8,28,K),K=15,19)/
1149 + .33433, .10637, .10734, .00993, .00358,
1150 + .00187, .00783, .01527,
1151 + .32479, .10283, .10046, .00954, .00351,
1152 + .00187, .00755, .01464,
1153 + .31591, .09954, .09431, .00916, .00343,
1154 + .00186, .00729, .01406,
1155 + .30745, .09645, .08877, .00882, .00335,
1156 + .00185, .00704, .01352,
1157 + .29954, .09359, .08378, .00851, .00328,
1158 + .00183, .00681, .01303 /
1159 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=1,7)/
1160 + .58819, .20357, .40531, .01627, .00152,
1161 + -.00004, .01143, .02874,
1162 + .54550, .18527, .33808, .01501, .00225,
1163 + -.00004, .01082, .02584,
1164 + .51009, .17052, .28680, .01387, .00267,
1165 + -.00003, .01022, .02344,
1166 + .47995, .15832, .24689, .01289, .00289,
1167 + .00020, .00964, .02150,
1168 + .45381, .14796, .21508, .01203, .00302,
1169 + .00059, .00911, .01981,
1170 + .43076, .13903, .18933, .01128, .00305,
1171 + .00082, .00861, .01840,
1172 + .41026, .13117, .16810, .01057, .00307,
1173 + .00101, .00816, .01713 /
1174 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=8,14)/
1175 + .39182, .12423, .15044, .00998, .00304,
1176 + .00113, .00774, .01603,
1177 + .37523, .11804, .13561, .00941, .00299,
1178 + .00122, .00736, .01506,
1179 + .36015, .11248, .12303, .00890, .00293,
1180 + .00128, .00700, .01422,
1181 + .34629, .10746, .11226, .00846, .00286,
1182 + .00132, .00667, .01345,
1183 + .33360, .10290, .10294, .00806, .00280,
1184 + .00134, .00638, .01274,
1185 + .32190, .09874, .09484, .00769, .00273,
1186 + .00135, .00611, .01210,
1187 + .31109, .09493, .08775, .00736, .00267,
1188 + .00135, .00586, .01153 /
1189 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),F(8,29,K),K=15,19)/
1190 + .30102, .09140, .08150, .00705, .00261,
1191 + .00135, .00563, .01099,
1192 + .29165, .08814, .07597, .00676, .00254,
1193 + .00135, .00541, .01050,
1194 + .28293, .08514, .07105, .00649, .00247,
1195 + .00134, .00520, .01005,
1196 + .27472, .08232, .06664, .00623, .00241,
1197 + .00133, .00502, .00965,
1198 + .26705, .07970, .06269, .00599, .00234,
1199 + .00132, .00484, .00928 /
1200 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=1,7)/
1201 + .55897, .18413, .34824, .01215, .00114,
1202 + -.00004, .00860, .02174,
1203 + .51407, .16625, .28495, .01112, .00171,
1204 + -.00003, .00811, .01941,
1205 + .47727, .15201, .23798, .01022, .00203,
1206 + -.00004, .00761, .01750,
1207 + .44631, .14032, .20217, .00944, .00218,
1208 + .00015, .00715, .01594,
1209 + .41966, .13046, .17415, .00876, .00226,
1210 + .00043, .00671, .01462,
1211 + .39635, .12199, .15179, .00818, .00228,
1212 + .00061, .00632, .01350,
1213 + .37570, .11461, .13358, .00765, .00227,
1214 + .00073, .00595, .01254 /
1215 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=8,14)/
1216 + .35731, .10814, .11859, .00720, .00224,
1217 + .00082, .00563, .01165,
1218 + .34084, .10238, .10614, .00675, .00219,
1219 + .00088, .00533, .01092,
1220 + .32593, .09724, .09565, .00640, .00213,
1221 + .00093, .00505, .01025,
1222 + .31238, .09258, .08674, .00604, .00209,
1223 + .00096, .00481, .00967,
1224 + .29995, .08840, .07910, .00574, .00204,
1225 + .00097, .00458, .00913,
1226 + .28856, .08459, .07252, .00546, .00198,
1227 + .00097, .00437, .00864,
1228 + .27810, .08110, .06679, .00519, .00192,
1229 + .00097, .00417, .00822 /
1230 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),F(8,30,K),K=15,19)/
1231 + .26838, .07789, .06177, .00494, .00187,
1232 + .00097, .00399, .00783,
1233 + .25935, .07493, .05735, .00473, .00182,
1234 + .00096, .00383, .00746,
1235 + .25097, .07221, .05344, .00455, .00177,
1236 + .00095, .00368, .00711,
1237 + .24308, .06966, .04994, .00436, .00172,
1238 + .00093, .00354, .00681,
1239 + .23576, .06730, .04682, .00419, .00167,
1240 + .00092, .00340, .00653 /
1241 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=1,7)/
1242 + .52552, .16484, .29742, .00886, .00086,
1243 + .00000, .00638, .01623,
1244 + .47934, .14772, .23886, .00806, .00131,
1245 + .00001, .00599, .01434,
1246 + .44182, .13421, .19647, .00740, .00154,
1247 + .00000, .00560, .01285,
1248 + .41065, .12316, .16477, .00679, .00165,
1249 + .00013, .00523, .01166,
1250 + .38395, .11395, .14035, .00632, .00169,
1251 + .00034, .00489, .01061,
1252 + .36087, .10607, .12109, .00585, .00169,
1253 + .00046, .00458, .00976,
1254 + .34057, .09923, .10563, .00544, .00168,
1255 + .00056, .00430, .00901 /
1256 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=8,14)/
1257 + .32258, .09324, .09305, .00510, .00165,
1258 + .00062, .00404, .00837,
1259 + .30647, .08798, .08269, .00481, .00161,
1260 + .00066, .00382, .00778,
1261 + .29202, .08326, .07404, .00452, .00156,
1262 + .00068, .00362, .00728,
1263 + .27887, .07907, .06676, .00430, .00153,
1264 + .00070, .00343, .00682,
1265 + .26694, .07525, .06056, .00405, .00148,
1266 + .00071, .00325, .00645,
1267 + .25607, .07179, .05524, .00381, .00143,
1268 + .00071, .00309, .00610,
1269 + .24612, .06865, .05064, .00360, .00138,
1270 + .00070, .00295, .00577 /
1271 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),F(8,31,K),K=15,19)/
1272 + .23685, .06577, .04664, .00344, .00134,
1273 + .00069, .00282, .00547,
1274 + .22828, .06313, .04313, .00330, .00130,
1275 + .00068, .00269, .00520,
1276 + .22035, .06071, .04003, .00317, .00126,
1277 + .00068, .00258, .00496,
1278 + .21298, .05843, .03729, .00303, .00122,
1279 + .00067, .00247, .00473,
1280 + .20613, .05633, .03484, .00290, .00119,
1281 + .00066, .00238, .00452 /
1282 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=1,7)/
1283 + .48884, .14612, .25237, .00631, .00069,
1284 + .00004, .00469, .01188,
1285 + .44222, .12998, .19899, .00573, .00101,
1286 + .00005, .00439, .01042,
1287 + .40479, .11733, .16120, .00524, .00116,
1288 + .00004, .00408, .00928,
1289 + .37392, .10710, .13347, .00481, .00124,
1290 + .00014, .00378, .00837,
1291 + .34777, .09858, .11241, .00442, .00127,
1292 + .00028, .00353, .00760,
1293 + .32524, .09132, .09605, .00411, .00127,
1294 + .00037, .00330, .00694,
1295 + .30555, .08507, .08307, .00380, .00125,
1296 + .00043, .00308, .00639 /
1297 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=8,14)/
1298 + .28818, .07965, .07260, .00355, .00121,
1299 + .00047, .00288, .00591,
1300 + .27276, .07487, .06405, .00332, .00117,
1301 + .00049, .00271, .00550,
1302 + .25897, .07065, .05699, .00313, .00114,
1303 + .00052, .00256, .00511,
1304 + .24650, .06686, .05108, .00295, .00111,
1305 + .00052, .00242, .00477,
1306 + .23521, .06346, .04610, .00279, .00107,
1307 + .00051, .00228, .00447,
1308 + .22494, .06038, .04184, .00263, .00103,
1309 + .00051, .00217, .00421,
1310 + .21556, .05758, .03818, .00249, .00099,
1311 + .00050, .00206, .00399 /
1312 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),F(8,32,K),K=15,19)/
1313 + .20689, .05502, .03502, .00238, .00096,
1314 + .00049, .00197, .00377,
1315 + .19893, .05268, .03226, .00226, .00093,
1316 + .00049, .00188, .00358,
1317 + .19162, .05054, .02984, .00214, .00090,
1318 + .00048, .00179, .00341,
1319 + .18474, .04854, .02770, .00205, .00086,
1320 + .00047, .00171, .00325,
1321 + .17837, .04670, .02580, .00196, .00083,
1322 + .00046, .00163, .00310 /
1323 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=1,7)/
1324 + .44995, .12843, .21276, .00450, .00048,
1325 + .00001, .00335, .00853,
1326 + .40366, .11338, .16470, .00409, .00072,
1327 + .00001, .00312, .00745,
1328 + .36698, .10169, .13142, .00371, .00085,
1329 + .00002, .00289, .00660,
1330 + .33695, .09230, .10745, .00340, .00090,
1331 + .00008, .00268, .00590,
1332 + .31168, .08453, .08951, .00312, .00091,
1333 + .00019, .00248, .00534,
1334 + .29007, .07797, .07572, .00288, .00090,
1335 + .00027, .00231, .00488,
1336 + .27129, .07234, .06493, .00268, .00089,
1337 + .00031, .00217, .00444 /
1338 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=8,14)/
1339 + .25487, .06745, .05630, .00246, .00086,
1340 + .00034, .00202, .00411,
1341 + .24031, .06319, .04934, .00231, .00084,
1342 + .00036, .00188, .00379,
1343 + .22730, .05941, .04363, .00220, .00082,
1344 + .00036, .00177, .00352,
1345 + .21564, .05607, .03888, .00205, .00078,
1346 + .00037, .00166, .00329,
1347 + .20513, .05306, .03490, .00193, .00075,
1348 + .00037, .00157, .00307,
1349 + .19560, .05035, .03152, .00183, .00073,
1350 + .00037, .00149, .00288,
1351 + .18693, .04789, .02863, .00173, .00070,
1352 + .00036, .00141, .00271 /
1353 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),F(8,33,K),K=15,19)/
1354 + .17898, .04565, .02615, .00163, .00067,
1355 + .00035, .00135, .00256,
1356 + .17165, .04360, .02400, .00155, .00065,
1357 + .00035, .00128, .00243,
1358 + .16491, .04173, .02212, .00148, .00062,
1359 + .00034, .00122, .00232,
1360 + .15865, .03999, .02047, .00140, .00060,
1361 + .00033, .00116, .00220,
1362 + .15286, .03840, .01901, .00133, .00058,
1363 + .00032, .00111, .00209 /
1364 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=1,7)/
1365 + .40966, .11170, .17791, .00313, .00036,
1366 + .00002, .00236, .00601,
1367 + .36462, .09792, .13531, .00285, .00053,
1368 + .00002, .00220, .00522,
1369 + .32922, .08727, .10639, .00258, .00061,
1370 + .00002, .00203, .00459,
1371 + .30047, .07879, .08588, .00237, .00064,
1372 + .00006, .00186, .00410,
1373 + .27642, .07181, .07075, .00220, .00064,
1374 + .00013, .00171, .00368,
1375 + .25604, .06594, .05929, .00200, .00063,
1376 + .00019, .00159, .00335,
1377 + .23842, .06093, .05040, .00184, .00062,
1378 + .00021, .00148, .00305 /
1379 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=8,14)/
1380 + .22304, .05661, .04338, .00171, .00060,
1381 + .00022, .00137, .00281,
1382 + .20949, .05284, .03774, .00161, .00057,
1383 + .00023, .00127, .00259,
1384 + .19748, .04953, .03317, .00152, .00056,
1385 + .00024, .00120, .00239,
1386 + .18678, .04657, .02938, .00141, .00053,
1387 + .00025, .00113, .00222,
1388 + .17714, .04394, .02624, .00131, .00050,
1389 + .00024, .00105, .00208,
1390 + .16840, .04159, .02359, .00124, .00048,
1391 + .00024, .00100, .00195,
1392 + .16048, .03947, .02134, .00118, .00047,
1393 + .00024, .00095, .00183 /
1394 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),F(8,34,K),K=15,19)/
1395 + .15323, .03753, .01941, .00111, .00045,
1396 + .00023, .00090, .00172,
1397 + .14660, .03577, .01774, .00105, .00043,
1398 + .00023, .00085, .00163,
1399 + .14051, .03415, .01629, .00100, .00041,
1400 + .00022, .00080, .00155,
1401 + .13484, .03266, .01503, .00096, .00040,
1402 + .00022, .00077, .00146,
1403 + .12962, .03129, .01392, .00092, .00039,
1404 + .00021, .00074, .00138 /
1405 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=1,7)/
1406 + .36892, .09612, .14738, .00209, .00027,
1407 + .00005, .00164, .00416,
1408 + .32575, .08362, .11006, .00189, .00040,
1409 + .00005, .00154, .00359,
1410 + .29204, .07404, .08523, .00172, .00045,
1411 + .00003, .00141, .00315,
1412 + .26495, .06645, .06790, .00156, .00048,
1413 + .00007, .00129, .00279,
1414 + .24245, .06026, .05532, .00144, .00048,
1415 + .00012, .00119, .00250,
1416 + .22344, .05509, .04590, .00133, .00046,
1417 + .00015, .00109, .00224,
1418 + .20708, .05070, .03867, .00124, .00046,
1419 + .00017, .00103, .00204 /
1420 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=8,14)/
1421 + .19293, .04691, .03301, .00113, .00044,
1422 + .00017, .00095, .00188,
1423 + .18051, .04363, .02853, .00107, .00041,
1424 + .00017, .00088, .00172,
1425 + .16959, .04076, .02490, .00099, .00040,
1426 + .00018, .00082, .00160,
1427 + .15984, .03822, .02193, .00092, .00039,
1428 + .00018, .00077, .00148,
1429 + .15110, .03595, .01948, .00086, .00037,
1430 + .00018, .00072, .00137,
1431 + .14323, .03392, .01743, .00080, .00035,
1432 + .00017, .00068, .00128,
1433 + .13613, .03210, .01570, .00076, .00034,
1434 + .00017, .00064, .00120 /
1435 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),F(8,35,K),K=15,19)/
1436 + .12964, .03044, .01422, .00071, .00032,
1437 + .00017, .00061, .00114,
1438 + .12370, .02894, .01295, .00067, .00031,
1439 + .00017, .00058, .00107,
1440 + .11826, .02757, .01185, .00065, .00030,
1441 + .00016, .00055, .00100,
1442 + .11324, .02631, .01090, .00060, .00029,
1443 + .00016, .00052, .00096,
1444 + .10863, .02515, .01006, .00057, .00028,
1445 + .00016, .00049, .00092 /
1446 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=1,7)/
1447 + .32854, .08189, .12095, .00140, .00019,
1448 + .00003, .00112, .00280,
1449 + .28770, .07067, .08861, .00124, .00029,
1450 + .00002, .00104, .00240,
1451 + .25611, .06216, .06758, .00112, .00034,
1452 + .00003, .00097, .00211,
1453 + .23093, .05547, .05313, .00101, .00035,
1454 + .00005, .00089, .00186,
1455 + .21019, .05003, .04280, .00091, .00035,
1456 + .00009, .00082, .00165,
1457 + .19268, .04552, .03516, .00085, .00034,
1458 + .00011, .00075, .00150,
1459 + .17782, .04168, .02936, .00077, .00033,
1460 + .00013, .00071, .00135 /
1461 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=8,14)/
1462 + .16498, .03843, .02487, .00071, .00032,
1463 + .00014, .00065, .00124,
1464 + .15377, .03561, .02134, .00065, .00030,
1465 + .00014, .00060, .00112,
1466 + .14391, .03316, .01850, .00061, .00029,
1467 + .00014, .00056, .00104,
1468 + .13520, .03098, .01621, .00056, .00029,
1469 + .00015, .00053, .00096,
1470 + .12740, .02906, .01432, .00052, .00027,
1471 + .00015, .00049, .00089,
1472 + .12038, .02735, .01274, .00050, .00026,
1473 + .00014, .00046, .00083,
1474 + .11406, .02581, .01142, .00047, .00024,
1475 + .00013, .00043, .00078 /
1476 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),F(8,36,K),K=15,19)/
1477 + .10834, .02442, .01030, .00044, .00023,
1478 + .00013, .00041, .00073,
1479 + .10312, .02315, .00935, .00041, .00022,
1480 + .00013, .00038, .00068,
1481 + .09835, .02200, .00853, .00038, .00021,
1482 + .00012, .00036, .00065,
1483 + .09395, .02095, .00782, .00037, .00020,
1484 + .00012, .00035, .00061,
1485 + .08991, .01999, .00719, .00035, .00019,
1486 + .00012, .00033, .00058 /
1487 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=1,7)/
1488 + .28928, .06908, .09837, .00096, .00010,
1489 + -.00001, .00071, .00185,
1490 + .25122, .05918, .07081, .00090, .00017,
1491 + -.00001, .00066, .00159,
1492 + .22214, .05173, .05319, .00079, .00020,
1493 + -.00002, .00061, .00138,
1494 + .19909, .04590, .04132, .00072, .00022,
1495 + .00001, .00056, .00122,
1496 + .18022, .04121, .03291, .00065, .00021,
1497 + .00003, .00051, .00107,
1498 + .16445, .03733, .02678, .00061, .00021,
1499 + .00005, .00046, .00097,
1500 + .15109, .03406, .02217, .00055, .00020,
1501 + .00006, .00043, .00087 /
1502 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=8,14)/
1503 + .13960, .03127, .01863, .00050, .00020,
1504 + .00007, .00040, .00080,
1505 + .12961, .02888, .01588, .00047, .00019,
1506 + .00007, .00037, .00072,
1507 + .12089, .02680, .01369, .00044, .00017,
1508 + .00008, .00035, .00066,
1509 + .11318, .02496, .01192, .00041, .00017,
1510 + .00008, .00032, .00062,
1511 + .10632, .02335, .01048, .00038, .00016,
1512 + .00007, .00030, .00057,
1513 + .10019, .02191, .00928, .00036, .00015,
1514 + .00007, .00028, .00053,
1515 + .09467, .02062, .00829, .00034, .00014,
1516 + .00007, .00026, .00049 /
1517 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),F(8,37,K),K=15,19)/
1518 + .08968, .01946, .00745, .00030, .00013,
1519 + .00007, .00025, .00047,
1520 + .08514, .01841, .00673, .00028, .00013,
1521 + .00007, .00023, .00044,
1522 + .08101, .01746, .00612, .00027, .00012,
1523 + .00007, .00022, .00041,
1524 + .07721, .01659, .00559, .00026, .00012,
1525 + .00006, .00020, .00038,
1526 + .07373, .01580, .00513, .00025, .00011,
1527 + .00006, .00019, .00036 /
1528 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=1,7)/
1529 + .25129, .05737, .07880, .00053, .00010,
1530 + .00003, .00049, .00120,
1531 + .21645, .04877, .05571, .00050, .00014,
1532 + .00002, .00046, .00101,
1533 + .18999, .04236, .04123, .00047, .00016,
1534 + .00002, .00041, .00090,
1535 + .16923, .03738, .03159, .00043, .00016,
1536 + .00003, .00038, .00078,
1537 + .15235, .03339, .02488, .00038, .00016,
1538 + .00005, .00034, .00069,
1539 + .13832, .03010, .02004, .00037, .00015,
1540 + .00005, .00031, .00060,
1541 + .12648, .02735, .01645, .00033, .00015,
1542 + .00006, .00029, .00056 /
1543 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=8,14)/
1544 + .11634, .02501, .01371, .00032, .00013,
1545 + .00006, .00027, .00049,
1546 + .10760, .02302, .01160, .00031, .00013,
1547 + .00006, .00024, .00045,
1548 + .10001, .02128, .00993, .00026, .00012,
1549 + .00006, .00022, .00042,
1550 + .09330, .01975, .00860, .00024, .00012,
1551 + .00006, .00021, .00039,
1552 + .08736, .01842, .00752, .00023, .00011,
1553 + .00006, .00019, .00036,
1554 + .08207, .01723, .00663, .00021, .00011,
1555 + .00005, .00018, .00033,
1556 + .07733, .01618, .00589, .00020, .00010,
1557 + .00005, .00017, .00030 /
1558 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),F(8,38,K),K=15,19)/
1559 + .07305, .01523, .00527, .00019, .00009,
1560 + .00005, .00016, .00029,
1561 + .06917, .01438, .00475, .00018, .00009,
1562 + .00005, .00015, .00027,
1563 + .06565, .01361, .00430, .00017, .00008,
1564 + .00004, .00014, .00025,
1565 + .06242, .01290, .00391, .00016, .00008,
1566 + .00004, .00013, .00023,
1567 + .05948, .01225, .00358, .00015, .00007,
1568 + .00004, .00012, .00021 /
1569 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=1,7)/
1570 + .21537, .04709, .06237, .00033, .00008,
1571 + .00004, .00032, .00073,
1572 + .18396, .03972, .04325, .00030, .00010,
1573 + .00003, .00030, .00063,
1574 + .16033, .03426, .03149, .00027, .00011,
1575 + .00002, .00026, .00055,
1576 + .14186, .03005, .02381, .00026, .00012,
1577 + .00004, .00025, .00048,
1578 + .12700, .02668, .01853, .00023, .00011,
1579 + .00004, .00022, .00043,
1580 + .11472, .02393, .01477, .00021, .00011,
1581 + .00005, .00020, .00038,
1582 + .10440, .02165, .01201, .00019, .00010,
1583 + .00005, .00018, .00035 /
1584 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=8,14)/
1585 + .09562, .01972, .00993, .00018, .00010,
1586 + .00005, .00018, .00031,
1587 + .08810, .01807, .00834, .00016, .00009,
1588 + .00004, .00016, .00028,
1589 + .08156, .01665, .00709, .00015, .00008,
1590 + .00005, .00015, .00026,
1591 + .07582, .01541, .00610, .00014, .00008,
1592 + .00004, .00014, .00023,
1593 + .07077, .01432, .00531, .00012, .00008,
1594 + .00004, .00013, .00022,
1595 + .06627, .01336, .00466, .00011, .00007,
1596 + .00004, .00012, .00020,
1597 + .06225, .01250, .00412, .00012, .00007,
1598 + .00004, .00011, .00018 /
1599 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),F(8,39,K),K=15,19)/
1600 + .05863, .01174, .00367, .00011, .00006,
1601 + .00004, .00010, .00017,
1602 + .05536, .01105, .00329, .00011, .00006,
1603 + .00003, .00009, .00016,
1604 + .05240, .01044, .00297, .00011, .00005,
1605 + .00003, .00009, .00014,
1606 + .04971, .00987, .00270, .00010, .00005,
1607 + .00003, .00009, .00014,
1608 + .04726, .00935, .00246, .00009, .00005,
1609 + .00003, .00008, .00013 /
1610 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=1,7)/
1611 + .18221, .03819, .04874, .00020, .00004,
1612 + .00000, .00018, .00045,
1613 + .15422, .03196, .03316, .00022, .00006,
1614 + .00001, .00017, .00039,
1615 + .13344, .02737, .02377, .00019, .00006,
1616 + .00000, .00016, .00033,
1617 + .11736, .02387, .01774, .00018, .00007,
1618 + .00001, .00014, .00029,
1619 + .10443, .02109, .01364, .00016, .00006,
1620 + .00001, .00013, .00026,
1621 + .09385, .01882, .01076, .00014, .00005,
1622 + .00002, .00011, .00024,
1623 + .08502, .01695, .00867, .00013, .00006,
1624 + .00002, .00011, .00020 /
1625 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=8,14)/
1626 + .07755, .01538, .00711, .00012, .00005,
1627 + .00002, .00010, .00018,
1628 + .07115, .01404, .00593, .00012, .00005,
1629 + .00002, .00009, .00016,
1630 + .06561, .01289, .00501, .00011, .00005,
1631 + .00002, .00008, .00015,
1632 + .06078, .01189, .00428, .00010, .00004,
1633 + .00002, .00008, .00013,
1634 + .05653, .01101, .00370, .00009, .00004,
1635 + .00002, .00007, .00013,
1636 + .05278, .01024, .00323, .00008, .00004,
1637 + .00002, .00006, .00012,
1638 + .04944, .00956, .00285, .00007, .00003,
1639 + .00002, .00006, .00012 /
1640 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),F(8,40,K),K=15,19)/
1641 + .04643, .00895, .00253, .00007, .00003,
1642 + .00002, .00005, .00011,
1643 + .04374, .00841, .00226, .00007, .00003,
1644 + .00002, .00005, .00010,
1645 + .04131, .00792, .00203, .00006, .00003,
1646 + .00002, .00005, .00009,
1647 + .03908, .00747, .00184, .00005, .00003,
1648 + .00001, .00005, .00008,
1649 + .03706, .00706, .00167, .00005, .00003,
1650 + .00001, .00004, .00008 /
1651 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=1,7)/
1652 + .15141, .03038, .03733, .00011, .00004,
1653 + .00003, .00013, .00026,
1654 + .12708, .02520, .02491, .00009, .00005,
1655 + .00003, .00012, .00024,
1656 + .10911, .02143, .01755, .00010, .00005,
1657 + .00002, .00011, .00020,
1658 + .09532, .01857, .01291, .00009, .00005,
1659 + .00002, .00010, .00017,
1660 + .08432, .01631, .00981, .00008, .00005,
1661 + .00002, .00009, .00015,
1662 + .07538, .01449, .00765, .00007, .00004,
1663 + .00002, .00008, .00013,
1664 + .06792, .01299, .00610, .00008, .00005,
1665 + .00002, .00007, .00011 /
1666 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=8,14)/
1667 + .06168, .01173, .00496, .00006, .00004,
1668 + .00002, .00006, .00010,
1669 + .05634, .01067, .00410, .00006, .00003,
1670 + .00002, .00006, .00009,
1671 + .05175, .00975, .00344, .00005, .00003,
1672 + .00002, .00005, .00009,
1673 + .04777, .00897, .00293, .00005, .00003,
1674 + .00002, .00005, .00008,
1675 + .04428, .00828, .00252, .00004, .00003,
1676 + .00002, .00004, .00007,
1677 + .04119, .00768, .00218, .00004, .00003,
1678 + .00002, .00004, .00007,
1679 + .03846, .00714, .00191, .00004, .00003,
1680 + .00002, .00004, .00006 /
1681 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),F(8,41,K),K=15,19)/
1682 + .03602, .00667, .00169, .00003, .00002,
1683 + .00002, .00004, .00006,
1684 + .03383, .00625, .00151, .00003, .00002,
1685 + .00001, .00003, .00005,
1686 + .03185, .00586, .00135, .00004, .00002,
1687 + .00001, .00003, .00005,
1688 + .03006, .00552, .00122, .00003, .00002,
1689 + .00001, .00003, .00004,
1690 + .02843, .00521, .00110, .00003, .00002,
1691 + .00001, .00003, .00004 /
1692 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=1,7)/
1693 + .09935, .01831, .02078, .00005, .00001,
1694 + .00000, .00004, .00008,
1695 + .08185, .01492, .01329, .00003, .00002,
1696 + .00000, .00003, .00007,
1697 + .06917, .01250, .00905, .00003, .00002,
1698 + .00000, .00003, .00006,
1699 + .05958, .01069, .00646, .00003, .00002,
1700 + .00000, .00003, .00005,
1701 + .05205, .00928, .00478, .00002, .00002,
1702 + .00000, .00003, .00004,
1703 + .04600, .00815, .00364, .00002, .00002,
1704 + .00001, .00003, .00004,
1705 + .04102, .00723, .00285, .00002, .00001,
1706 + .00001, .00002, .00004 /
1707 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=8,14)/
1708 + .03688, .00647, .00227, .00003, .00002,
1709 + .00001, .00002, .00003,
1710 + .03341, .00583, .00185, .00002, .00001,
1711 + .00001, .00002, .00003,
1712 + .03044, .00529, .00153, .00002, .00001,
1713 + .00000, .00002, .00002,
1714 + .02787, .00483, .00128, .00001, .00001,
1715 + .00001, .00002, .00002,
1716 + .02564, .00443, .00109, .00001, .00001,
1717 + .00001, .00001, .00002,
1718 + .02369, .00408, .00094, .00001, .00001,
1719 + .00001, .00001, .00002,
1720 + .02198, .00377, .00081, .00001, .00001,
1721 + .00000, .00001, .00002 /
1722 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1723 + .02045, .00350, .00071, .00001, .00001,
1724 + .00000, .00001, .00001,
1725 + .01909, .00326, .00063, .00001, .00001,
1726 + .00000, .00001, .00001,
1727 + .01788, .00304, .00056, .00001, .00001,
1728 + .00001, .00001, .00001,
1729 + .01678, .00285, .00050, .00001, .00001,
1730 + .00000, .00001, .00001,
1731 + .01579, .00267, .00045, .00001, .00001,
1732 + .00000, .00001, .00001 /
1733 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=1,7)/
1734 + .05968, .01008, .01048, .00002, .00000,
1735 + .00000, .00001, .00002,
1736 + .04818, .00806, .00641, .00001, .00000,
1737 + .00000, .00001, .00002,
1738 + .04001, .00664, .00420, .00001, .00000,
1739 + .00000, .00001, .00002,
1740 + .03394, .00559, .00290, .00001, .00000,
1741 + .00000, .00001, .00001,
1742 + .02925, .00479, .00209, .00001, .00000,
1743 + .00000, .00001, .00001,
1744 + .02554, .00416, .00155, .00001, .00000,
1745 + .00000, .00000, .00001,
1746 + .02253, .00365, .00119, .00001, .00000,
1747 + .00000, .00001, .00001 /
1748 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=8,14)/
1749 + .02005, .00324, .00093, .00000, .00000,
1750 + .00000, .00000, .00001,
1751 + .01798, .00289, .00075, .00001, .00000,
1752 + .00000, .00000, .00001,
1753 + .01623, .00260, .00061, .00001, .00000,
1754 + .00000, .00001, .00001,
1755 + .01474, .00235, .00050, .00000, .00000,
1756 + .00000, .00000, .00001,
1757 + .01345, .00214, .00042, .00001, .00000,
1758 + .00000, .00000, .00000,
1759 + .01234, .00196, .00036, .00000, .00000,
1760 + .00000, .00000, .00001,
1761 + .01136, .00180, .00031, .00000, .00000,
1762 + .00000, .00000, .00001 /
1763 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1764 + .01050, .00166, .00027, .00001, .00000,
1765 + .00000, .00000, .00000,
1766 + .00974, .00153, .00023, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .00907, .00142, .00021, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .00846, .00133, .00018, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .00792, .00124, .00017, .00000, .00000,
1773 + .00000, .00000, .00000 /
1774 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=1,7)/
1775 + .03190, .00492, .00463, .00000, .00000,
1776 + .00000, .00000, .00001,
1777 + .02518, .00384, .00269, .00000, .00000,
1778 + .00000, .00000, .00001,
1779 + .02051, .00311, .00169, .00000, .00000,
1780 + .00000, .00000, .00000,
1781 + .01711, .00258, .00113, .00000, .00000,
1782 + .00000, .00000, .00000,
1783 + .01452, .00218, .00079, .00001, .00000,
1784 + .00000, .00000, .00000,
1785 + .01250, .00187, .00057, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .01089, .00162, .00043, .00000, .00000,
1788 + .00000, .00000, .00000 /
1789 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=8,14)/
1790 + .00958, .00142, .00033, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .00850, .00125, .00026, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .00759, .00112, .00021, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .00683, .00100, .00017, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .00618, .00090, .00014, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .00562, .00082, .00012, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .00513, .00075, .00010, .00000, .00000,
1803 + .00000, .00000, .00000 /
1804 DATA ((F(I,44,K),I=1,5),F(7,44,K),F(6,44,K),F(8,44,K),K=15,19)/
1805 + .00471, .00068, .00009, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .00434, .00063, .00007, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .00401, .00058, .00007, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .00372, .00054, .00006, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00346, .00050, .00005, .00000, .00000,
1814 + .00000, .00000, .00000 /
1815 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=1,7)/
1816 + .01437, .00200, .00167, .00000, .00000,
1817 + .00000, .00000, .00000,
1818 + .01105, .00153, .00092, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .00880, .00121, .00055, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .00720, .00099, .00035, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .00601, .00082, .00024, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .00509, .00069, .00017, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .00437, .00059, .00012, .00000, .00000,
1829 + .00000, .00000, .00000 /
1830 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=8,14)/
1831 + .00379, .00051, .00009, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .00332, .00045, .00007, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .00293, .00039, .00005, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00261, .00035, .00004, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00234, .00031, .00004, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00210, .00028, .00003, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00190, .00025, .00003, .00000, .00000,
1844 + .00000, .00000, .00000 /
1845 DATA ((F(I,45,K),I=1,5),F(7,45,K),F(6,45,K),F(8,45,K),K=15,19)/
1846 + .00173, .00023, .00002, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00158, .00021, .00002, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00145, .00019, .00002, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00133, .00018, .00002, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00123, .00016, .00001, .00000, .00000,
1855 + .00000, .00000, .00000 /
1856 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=1,7)/
1857 + .00109, .00012, .00007, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00078, .00008, .00003, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00058, .00006, .00002, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00045, .00005, .00001, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00036, .00004, .00001, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00029, .00003, .00000, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00024, .00003, .00000, .00000, .00000,
1870 + .00000, .00000, .00000 /
1871 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=8,14)/
1872 + .00020, .00002, .00000, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00017, .00002, .00000, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00014, .00002, .00000, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00012, .00001, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00011, .00001, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00009, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00008, .00001, .00000, .00000, .00000,
1885 + .00000, .00000, .00000 /
1886 DATA ((F(I,46,K),I=1,5),F(7,46,K),F(6,46,K),F(8,46,K),K=15,19)/
1887 + .00007, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00006, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00006, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00005, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00005, .00001, .00000, .00000, .00000,
1896 + .00000, .00000, .00000 /
1897 DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
1898 . 1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
1899 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
1900 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
1901 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
1902 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
1903 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
1904 . .8D0,.9D0,1.D0/
1905 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
1906 DATA N0/2,5,5,9,0,0,9,9/
1907 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
1908 DATA INIT/0/
1909C
1910 xsave=x
1911C
1912 IF(INIT.NE.0) GOTO 10
1913 INIT=1
1914 DO 20 N=1,NX-1
1915 DO 20 M=1,19
1916C READ(37,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(7,N,M),
1917C . F(6,N,M),F(8,N,M)
1918C 1=UV 2=DV 3=GLUE 4=UBAR 5=CBAR 7=BBAR 6=SBAR 8=DBAR
1919 DO 25 I=1,8
1920 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
1921 20 CONTINUE
1922 DO 31 J=1,NTENTH-1
1923 XX(J)= LOG10(XX(J))+ONEDO
1924 DO 31 I=1,8
1925 IF(I.EQ.7) GO TO 31
1926 DO 30 K=1,19
1927 30 F(I,J,K)= LOG(F(I,J,K))*F(I,NTENTH,K)/ LOG(F(I,NTENTH,K))
1928 31 CONTINUE
1929 50 FORMAT(8F10.5)
1930 DO 40 I=1,8
1931 DO 40 M=1,19
1932 40 F(I,NX,M)=ZEROD
1933 10 CONTINUE
1934 IF(X.LT.XMIN) X=XMIN
1935 IF(X.GT.XMAX) X=XMAX
1936 QSQ=SCALE**2
1937 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
1938 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
1939 XXX=X
1940 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
1941 N=0
1942 70 N=N+1
1943 IF(XXX.GT.XX(N+1)) GOTO 70
1944 A=(XXX-XX(N))/(XX(N+1)-XX(N))
1945 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
1946 B=RM-AINT(RM)
1947 M=1+ INT(RM)
1948 DO 60 I=1,8
1949 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
1950 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
1951 IF(N.GE.NTENTH) GOTO 65
1952 IF(I.EQ.7) GOTO 65
1953 FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
1954 G(I)=FAC**(G(I)/FAC)
1955 65 CONTINUE
1956 G(I)=G(I)*(ONED-X)**N0(I)
1957 60 CONTINUE
1958 UPV=G(1)
1959 DNV=G(2)
1960 USEA=G(4)
1961 DSEA=G(8)
1962 STR=G(6)
1963 CHM=G(5)
1964 GLU=G(3)
1965 BOT=G(7)
1966
1967 x=xsave
1968
1969 RETURN
1970 END