]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfmsjp.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Changes to compile on Solaris 10 with f90 (Intel x86 platform). It does't like contin...
[u/mrichter/AliRoot.git] / PDF / spdf / sfmsjp.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE SFMSJP(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 + .00150, .00264, 5.55683, 1.12144, .14329,
13 + .00000, .60931, 1.12368,
14 + .00193, .00291, 15.25887, 1.45831, .49682,
15 + .00000, .95582, 1.46133,
16 + .00232, .00315, 28.42037, 1.89182, .94390,
17 + .00000, 1.39726, 1.89554,
18 + .00268, .00338, 44.40294, 2.40648, 1.47002,
19 + .34408, 1.91867, 2.41082,
20 + .00302, .00359, 62.92809, 2.99540, 2.06897,
21 + .96842, 2.51353, 3.00033,
22 + .00335, .00380, 83.55903, 3.65033, 2.73283,
23 + 1.64944, 3.17378, 3.65581,
24 + .00366, .00399, 106.09640, 4.36370, 3.45426,
25 + 2.38555, 3.89197, 4.36970 /
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 + .00396, .00418, 130.08051, 5.12666, 4.22457,
28 + 3.16914, 4.65935, 5.13316,
29 + .00425, .00435, 155.31213, 5.93330, 5.03795,
30 + 3.99461, 5.47006, 5.94026,
31 + .00453, .00453, 181.62833, 6.77890, 5.88980,
32 + 4.85753, 6.31944, 6.78632,
33 + .00480, .00469, 208.85376, 7.65906, 6.77576,
34 + 5.75372, 7.20311, 7.66690,
35 + .00507, .00485, 236.69560, 8.56717, 7.68931,
36 + 6.67676, 8.11454, 8.57543,
37 + .00532, .00501, 265.07147, 9.50030, 8.62755,
38 + 7.62385, 9.05077, 9.50896,
39 + .00557, .00516, 293.97046, 10.45729, 9.58936,
40 + 8.59394, 10.01070, 10.46634 /
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 + .00581, .00531, 323.36273, 11.43695, 10.57356,
43 + 9.58593, 10.99314, 11.44637,
44 + .00605, .00546, 352.87207, 12.43076, 11.57170,
45 + 10.59140, 11.98959, 12.44054,
46 + .00628, .00560, 382.56424, 13.43910, 12.58416,
47 + 11.61081, 13.00046, 13.44923,
48 + .00651, .00573, 412.68381, 14.46705, 13.61602,
49 + 12.64926, 14.03080, 14.47751,
50 + .00673, .00587, 442.45764, 15.49675, 14.64948,
51 + 13.68899, 15.06281, 15.50755 /
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 + .00248, .00363, 5.06543, 1.00588, .12539,
54 + .00000, .54436, 1.00910,
55 + .00312, .00402, 13.18279, 1.28719, .42229,
56 + .00000, .83443, 1.29096,
57 + .00369, .00437, 23.75493, 1.63966, .78741,
58 + .00000, 1.19405, 1.64391,
59 + .00422, .00470, 36.20625, 2.04904, 1.20746,
60 + .27448, 1.60949, 2.05371,
61 + .00472, .00500, 50.28674, 2.50888, 1.67663,
62 + .76529, 2.07466, 2.51396,
63 + .00519, .00529, 65.64280, 3.01209, 2.18812,
64 + 1.29162, 2.58261, 3.01753,
65 + .00564, .00556, 82.11895, 3.55247, 2.73596,
66 + 1.85221, 3.12728, 3.55826 /
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 + .00607, .00582, 99.37228, 4.12310, 3.31338,
69 + 2.44116, 3.70183, 4.12922,
70 + .00649, .00607, 117.26476, 4.71953, 3.91604,
71 + 3.05430, 4.30186, 4.72596,
72 + .00689, .00631, 135.68713, 5.33829, 4.54056,
73 + 3.68842, 4.92395, 5.34502,
74 + .00727, .00654, 154.52290, 5.97622, 5.18383,
75 + 4.34056, 5.56498, 5.98323,
76 + .00765, .00676, 173.57372, 6.62860, 5.84121,
77 + 5.00616, 6.22026, 6.63588,
78 + .00801, .00698, 192.79395, 7.29346, 6.51076,
79 + 5.68338, 6.88785, 7.30100,
80 + .00836, .00718, 212.18825, 7.97014, 7.19186,
81 + 6.37166, 7.56711, 7.97794 /
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 + .00870, .00739, 231.74513, 8.65797, 7.88386,
84 + 7.07040, 8.25737, 8.66601,
85 + .00904, .00759, 251.21294, 9.35098, 8.58083,
86 + 7.77373, 8.95269, 9.35926,
87 + .00936, .00778, 270.64905, 10.04966, 9.28327,
88 + 8.48219, 9.65357, 10.05816,
89 + .00968, .00797, 290.22989, 10.75778, 9.99497,
90 + 9.19958, 10.36378, 10.76650,
91 + .00999, .00815, 309.43671, 11.46284, 10.70346,
92 + 9.91349, 11.07084, 11.47177 /
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 + .00405, .00499, 4.61713, .90174, .10963,
95 + .00000, .48618, .90578,
96 + .00498, .00556, 11.38689, 1.13568, .35816,
97 + .00000, .72811, 1.14008,
98 + .00582, .00606, 19.84977, 1.42082, .65515,
99 + .00000, 1.01976, 1.42554,
100 + .00659, .00653, 29.51260, 1.74472, .98902,
101 + .21804, 1.34915, 1.74973,
102 + .00731, .00695, 40.16928, 2.10181, 1.35481,
103 + .60223, 1.71105, 2.10708,
104 + .00800, .00736, 51.54611, 2.48627, 1.74699,
105 + 1.00722, 2.09979, 2.49178,
106 + .00865, .00774, 63.53112, 2.89329, 2.16094,
107 + 1.43222, 2.51065, 2.89903 /
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 + .00926, .00811, 75.87641, 3.31762, 2.59158,
110 + 1.87282, 2.93849, 3.32357,
111 + .00986, .00845, 88.49267, 3.75605, 3.03579,
112 + 2.32609, 3.38013, 3.76219,
113 + .01043, .00879, 101.31216, 4.20614, 3.49121,
114 + 2.78983, 3.83319, 4.21247,
115 + .01097, .00911, 114.26204, 4.66573, 3.95575,
116 + 3.26203, 4.29554, 4.67224,
117 + .01150, .00941, 127.21197, 5.13153, 4.42618,
118 + 3.73956, 4.76392, 5.13821,
119 + .01201, .00971, 140.14171, 5.60232, 4.90130,
120 + 4.22131, 5.23712, 5.60916,
121 + .01251, .01000, 153.06473, 6.07781, 5.38087,
122 + 4.70708, 5.71489, 6.08481 /
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 + .01299, .01028, 165.98192, 6.55768, 5.86459,
125 + 5.19662, 6.19691, 6.56483,
126 + .01346, .01055, 178.72711, 7.03782, 6.34837,
127 + 5.68590, 6.67909, 7.04511,
128 + .01392, .01081, 191.34935, 7.51876, 6.83278,
129 + 6.17550, 7.16197, 7.52619,
130 + .01436, .01107, 203.97646, 8.00334, 7.32066,
131 + 6.66830, 7.64840, 8.01091,
132 + .01479, .01131, 216.26178, 8.48286, 7.80333,
133 + 7.15565, 8.12968, 8.49056 /
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 + .00534, .00602, 4.37324, .84556, .10128,
136 + .00000, .45495, .85001,
137 + .00652, .00672, 10.45027, 1.05507, .32488,
138 + .00000, .67208, 1.05983,
139 + .00757, .00735, 17.86598, 1.30627, .58749,
140 + .00000, .92947, 1.31128,
141 + .00853, .00791, 26.17896, 1.58787, .87871,
142 + .19014, 1.21629, 1.59311,
143 + .00943, .00844, 35.21148, 1.89493, 1.19413,
144 + .52229, 1.52790, 1.90037,
145 + .01027, .00893, 44.73264, 2.22237, 1.52899,
146 + .86889, 1.85938, 2.22799,
147 + .01108, .00940, 54.65389, 2.56611, 1.87941,
148 + 1.22944, 2.20676, 2.57192 /
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 + .01184, .00984, 64.77325, 2.92179, 2.24115,
151 + 1.60032, 2.56574, 2.92776,
152 + .01257, .01027, 75.02436, 3.28679, 2.61170,
153 + 1.97919, 2.93377, 3.29291,
154 + .01327, .01067, 85.35876, 3.65919, 2.98922,
155 + 2.36433, 3.30897, 3.66545,
156 + .01394, .01106, 95.72305, 4.03729, 3.37208,
157 + 2.75421, 3.68967, 4.04369,
158 + .01459, .01143, 106.01685, 4.41848, 3.75770,
159 + 3.14635, 4.07328, 4.42501,
160 + .01521, .01179, 116.23021, 4.80186, 4.14523,
161 + 3.53996, 4.45893, 4.80851,
162 + .01582, .01213, 126.38021, 5.18732, 4.53459,
163 + 3.93501, 4.84652, 5.19409 /
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 + .01640, .01247, 136.47208, 5.57468, 4.92564,
166 + 4.33139, 5.23589, 5.58156,
167 + .01697, .01279, 146.37639, 5.96065, 5.31510,
168 + 4.72589, 5.62378, 5.96764,
169 + .01753, .01311, 156.13741, 6.34579, 5.70356,
170 + 5.11910, 6.01073, 6.35288,
171 + .01807, .01341, 165.86134, 6.73251, 6.09343,
172 + 5.51348, 6.39918, 6.73970,
173 + .01859, .01371, 175.27473, 7.11377, 6.47770,
174 + 5.90204, 6.78208, 7.12106 /
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 + .00649, .00688, 4.20787, .80761, .09572,
177 + .00000, .43394, .81236,
178 + .00787, .00769, 9.83170, 1.00113, .30298,
179 + .00000, .63484, 1.00614,
180 + .00910, .00842, 16.57719, 1.23039, .54338,
181 + .00000, .87009, 1.23562,
182 + .01023, .00908, 24.03992, 1.48499, .80734,
183 + .17233, 1.12973, 1.49041,
184 + .01128, .00968, 32.06238, 1.76042, 1.09093,
185 + .47154, 1.40955, 1.76602,
186 + .01226, .01025, 40.44193, 2.05213, 1.38987,
187 + .78151, 1.70516, 2.05789,
188 + .01319, .01079, 49.10527, 2.35655, 1.70079,
189 + 1.10195, 2.01308, 2.36246 /
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 + .01408, .01130, 57.87912, 2.66983, 2.01998,
192 + 1.42974, 2.32956, 2.67588,
193 + .01492, .01178, 66.71113, 2.98977, 2.34532,
194 + 1.76290, 2.65241, 2.99595,
195 + .01573, .01225, 75.56420, 3.31476, 2.67530,
196 + 2.10004, 2.98009, 3.32106,
197 + .01651, .01269, 84.39670, 3.64340, 3.00855,
198 + 2.43989, 3.31122, 3.64980,
199 + .01725, .01312, 93.12576, 3.97345, 3.34292,
200 + 2.78039, 3.64360, 3.97997,
201 + .01797, .01352, 101.74745, 4.30424, 3.67775,
202 + 3.12093, 3.97657, 4.31086,
203 + .01867, .01392, 110.28020, 4.63574, 4.01304,
204 + 3.46156, 4.31011, 4.64245 /
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 + .01934, .01430, 118.73171, 4.96786, 4.34875,
207 + 3.80228, 4.64417, 4.97467,
208 + .02000, .01467, 126.99378, 5.29782, 4.68210,
209 + 4.14036, 4.97596, 5.30472,
210 + .02063, .01503, 135.10756, 5.62616, 5.01366,
211 + 4.47639, 5.30604, 5.63314,
212 + .02125, .01537, 143.16595, 5.95502, 5.34559,
213 + 4.81255, 5.63656, 5.96209,
214 + .02185, .01571, 150.93834, 6.27838, 5.67187,
215 + 5.14286, 5.96149, 6.28552 /
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 + .00754, .00763, 4.08378, .77921, .09159,
218 + .00000, .41826, .78418,
219 + .00910, .00854, 9.37638, .96101, .28689,
220 + .00000, .60728, .96622,
221 + .01050, .00936, 15.63990, 1.17439, .51121,
222 + .00000, .82651, 1.17981,
223 + .01177, .01009, 22.49837, 1.40961, .75562,
224 + .15956, 1.06665, 1.41520,
225 + .01295, .01078, 29.80974, 1.66251, 1.01653,
226 + .43528, 1.32383, 1.66826,
227 + .01405, .01141, 37.39203, 1.92894, 1.29006,
228 + .71931, 1.59406, 1.93484,
229 + .01510, .01201, 45.18294, 2.20568, 1.57317,
230 + 1.01150, 1.87422, 2.21171 /
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 + .01609, .01258, 53.02928, 2.48929, 1.86257,
233 + 1.30909, 2.16093, 2.49545,
234 + .01704, .01312, 60.88840, 2.77783, 2.15641,
235 + 1.61038, 2.45230, 2.78410,
236 + .01794, .01363, 68.73103, 3.06992, 2.45338,
237 + 1.91417, 2.74700, 3.07629,
238 + .01881, .01412, 76.52332, 3.36434, 2.75233,
239 + 2.21942, 3.04385, 3.37081,
240 + .01964, .01459, 84.19431, 3.65916, 3.05138,
241 + 2.52430, 3.34094, 3.66573,
242 + .02045, .01505, 91.74381, 3.95383, 3.35001,
243 + 2.82836, 3.63772, 3.96049,
244 + .02122, .01548, 99.19100, 4.24837, 3.64827,
245 + 3.13171, 3.93426, 4.25512 /
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 + .02197, .01591, 106.54523, 4.54278, 3.94619,
248 + 3.43440, 4.23054, 4.54961,
249 + .02270, .01631, 113.71231, 4.83459, 4.24132,
250 + 3.73404, 4.52413, 4.84149,
251 + .02341, .01671, 120.73104, 5.12433, 4.53422,
252 + 4.03120, 4.81557, 5.13132,
253 + .02409, .01709, 127.68514, 5.41398, 4.82687,
254 + 4.32788, 5.10682, 5.42104,
255 + .02476, .01746, 134.37268, 5.69818, 5.11393,
256 + 4.61877, 5.39255, 5.70530 /
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 + .01194, .01054, 3.72011, .69611, .07974,
259 + .00000, .37265, .70181,
260 + .01424, .01186, 8.08604, .84508, .24153,
261 + .00000, .52842, .85100,
262 + .01628, .01303, 13.03921, 1.01477, .42161,
263 + .00000, .70361, 1.02089,
264 + .01812, .01407, 18.28871, 1.19752, .61309,
265 + .12503, .89098, 1.20379,
266 + .01983, .01504, 23.73799, 1.39024, .81341,
267 + .33788, 1.08772, 1.39666,
268 + .02142, .01593, 29.26161, 1.58990, 1.01981,
269 + .55327, 1.29095, 1.59645,
270 + .02291, .01677, 34.82680, 1.79427, 1.23023,
271 + .77149, 1.49851, 1.80094 /
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 + .02432, .01756, 40.33232, 2.00097, 1.44242,
274 + .99071, 1.70811, 2.00774,
275 + .02567, .01831, 45.75961, 2.20877, 1.65524,
276 + 1.20992, 1.91856, 2.21564,
277 + .02694, .01902, 51.09809, 2.41685, 1.86795,
278 + 1.42849, 2.12908, 2.42381,
279 + .02816, .01970, 56.33268, 2.62451, 2.07990,
280 + 1.64584, 2.33901, 2.63156,
281 + .02933, .02035, 61.42131, 2.83051, 2.28991,
282 + 1.86086, 2.54712, 2.83765,
283 + .03046, .02097, 66.37169, 3.03462, 2.49776,
284 + 2.07337, 2.75320, 3.04183,
285 + .03154, .02156, 71.20381, 3.23700, 2.70367,
286 + 2.28364, 2.95744, 3.24429 /
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 + .03258, .02214, 75.92933, 3.43778, 2.90778,
289 + 2.49184, 3.15997, 3.44514,
290 + .03359, .02269, 80.48836, 3.63532, 3.10847,
291 + 2.69639, 3.35917, 3.64275,
292 + .03456, .02323, 84.91246, 3.83013, 3.30626,
293 + 2.89783, 3.55555, 3.83762,
294 + .03551, .02375, 89.26225, 4.02368, 3.50265,
295 + 3.09767, 3.75060, 4.03123,
296 + .03642, .02425, 93.40482, 4.21231, 3.69398,
297 + 3.29229, 3.94064, 4.21991 /
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 + .01876, .01467, 3.38626, .61953, .06915,
300 + .00000, .33103, .62613,
301 + .02214, .01657, 6.95931, .74030, .20221,
302 + .00000, .45832, .74718,
303 + .02511, .01823, 10.84023, .87366, .34553,
304 + .00000, .59697, .88077,
305 + .02778, .01971, 14.81582, 1.01384, .49410,
306 + .09709, .74159, 1.02115,
307 + .03022, .02106, 18.82937, 1.15878, .64633,
308 + .25987, .89039, 1.16626,
309 + .03249, .02231, 22.80110, 1.30637, .80039,
310 + .42161, 1.04140, 1.31402,
311 + .03462, .02348, 26.72067, 1.45518, .95502,
312 + .58291, 1.19330, 1.46298 /
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 + .03661, .02458, 30.52538, 1.60366, 1.10877,
315 + .74267, 1.34456, 1.61159,
316 + .03850, .02561, 34.21290, 1.75110, 1.26104,
317 + .90041, 1.49455, 1.75916,
318 + .04029, .02659, 37.78486, 1.89710, 1.41149,
319 + 1.05586, 1.64290, 1.90528,
320 + .04200, .02752, 41.23816, 2.04131, 1.55982,
321 + 1.20881, 1.78929, 2.04960,
322 + .04362, .02840, 44.54984, 2.18297, 1.70534,
323 + 1.35859, 1.93298, 2.19136,
324 + .04518, .02925, 47.73145, 2.32206, 1.84803,
325 + 1.50527, 2.07397, 2.33055,
326 + .04667, .03006, 50.80191, 2.45883, 1.98818,
327 + 1.64915, 2.21252, 2.46741 /
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 + .04811, .03084, 53.77330, 2.59346, 2.12601,
330 + 1.79047, 2.34884, 2.60213,
331 + .04949, .03159, 56.60839, 2.72490, 2.26047,
332 + 1.92822, 2.48187, 2.73365,
333 + .05082, .03231, 59.33210, 2.85358, 2.39201,
334 + 2.06287, 2.61206, 2.86241,
335 + .05212, .03301, 61.98803, 2.98062, 2.52179,
336 + 2.19559, 2.74054, 2.98953,
337 + .05336, .03368, 64.48965, 3.10353, 2.64730,
338 + 2.32391, 2.86482, 3.11251 /
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 + .02439, .01789, 3.20303, .57703, .06343,
341 + .00000, .30810, .58427,
342 + .02861, .02023, 6.36386, .68311, .18156,
343 + .00000, .42061, .69069,
344 + .03230, .02227, 9.70723, .79804, .30628,
345 + .00000, .54077, .80591,
346 + .03559, .02408, 13.06140, .91712, .43358,
347 + .08326, .66423, .92524,
348 + .03860, .02572, 16.38996, 1.03875, .56238,
349 + .22159, .78968, 1.04709,
350 + .04138, .02724, 19.63512, 1.16133, .69131,
351 + .35751, .91564, 1.16988,
352 + .04397, .02866, 22.79675, 1.28382, .81951,
353 + .49177, 1.04117, 1.29255 /
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 + .04640, .02998, 25.82955, 1.40501, .94588,
356 + .62362, 1.16512, 1.41391,
357 + .04869, .03122, 28.73784, 1.52446, 1.07008,
358 + .75279, 1.28709, 1.53352,
359 + .05086, .03240, 31.52792, 1.64193, 1.19193,
360 + .87920, 1.40690, 1.65114,
361 + .05292, .03351, 34.20137, 1.75724, 1.31128,
362 + 1.00275, 1.52435, 1.76658,
363 + .05488, .03457, 36.74312, 1.86983, 1.42766,
364 + 1.12301, 1.63896, 1.87930,
365 + .05675, .03557, 39.16563, 1.97976, 1.54113,
366 + 1.24011, 1.75077, 1.98935,
367 + .05854, .03654, 41.48662, 2.08730, 1.65200,
368 + 1.35436, 1.86008, 2.09701 /
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 + .06026, .03746, 43.71775, 2.19265, 1.76049,
371 + 1.46603, 1.96710, 2.20247,
372 + .06191, .03835, 45.83118, 2.29501, 1.86582,
373 + 1.57435, 2.07103, 2.30493,
374 + .06350, .03920, 47.84850, 2.39477, 1.96840,
375 + 1.67976, 2.17229, 2.40479,
376 + .06504, .04002, 49.80534, 2.49288, 2.06920,
377 + 1.78324, 2.27183, 2.50300,
378 + .06652, .04081, 51.63486, 2.58737, 2.16624,
379 + 1.88282, 2.36767, 2.59758 /
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 + .02936, .02067, 3.07771, .54759, .05954,
382 + .00000, .29229, .55536,
383 + .03429, .02339, 5.96559, .64393, .16780,
384 + .00000, .39502, .65210,
385 + .03858, .02574, 8.96116, .74690, .28043,
386 + .00000, .50317, .75540,
387 + .04239, .02782, 11.92032, .85244, .39411,
388 + .07441, .61308, .86124,
389 + .04587, .02971, 14.81969, .95931, .50806,
390 + .19721, .72375, .96837,
391 + .04907, .03145, 17.61523, 1.06619, .62123,
392 + .31690, .83400, 1.07548,
393 + .05205, .03306, 20.31278, 1.17228, .73296,
394 + .43431, .94311, 1.18179 /
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 + .05483, .03457, 22.87748, 1.27661, .84242,
397 + .54889, 1.05019, 1.28631,
398 + .05745, .03598, 25.31726, 1.37887, .94938,
399 + .66049, 1.15496, 1.38876,
400 + .05992, .03731, 27.64091, 1.47893, 1.05377,
401 + .76914, 1.25734, 1.48899,
402 + .06226, .03857, 29.85246, 1.57668, 1.15554,
403 + .87483, 1.35725, 1.58691,
404 + .06449, .03976, 31.94128, 1.67172, 1.25431,
405 + .97723, 1.45428, 1.68209,
406 + .06661, .04090, 33.92002, 1.76412, 1.35021,
407 + 1.07652, 1.54856, 1.77464,
408 + .06863, .04198, 35.80536, 1.85417, 1.44355,
409 + 1.17302, 1.64037, 1.86482 /
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 + .07058, .04302, 37.60849, 1.94207, 1.53457,
412 + 1.26700, 1.72994, 1.95286,
413 + .07245, .04402, 39.30700, 2.02716, 1.62260,
414 + 1.35782, 1.81660, 2.03807,
415 + .07424, .04497, 40.92014, 2.10982, 1.70805,
416 + 1.44591, 1.90075, 2.12084,
417 + .07597, .04589, 42.47869, 2.19088, 1.79177,
418 + 1.53213, 1.98324, 2.20202,
419 + .07764, .04678, 43.92727, 2.26867, 1.87209,
420 + 1.61482, 2.06238, 2.27991 /
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 + .03395, .02328, 2.98197, .52456, .05653,
423 + .00000, .27986, .53272,
424 + .03949, .02632, 5.66390, .61360, .15736,
425 + .00000, .37523, .62218,
426 + .04429, .02894, 8.40123, .70774, .26107,
427 + .00000, .47450, .71669,
428 + .04854, .03126, 11.07101, .80341, .36480,
429 + .06796, .57449, .81267,
430 + .05241, .03336, 13.65941, .89960, .46799,
431 + .17950, .67443, .90914,
432 + .05596, .03528, 16.13212, .99520, .56981,
433 + .28749, .77336, 1.00499,
434 + .05926, .03706, 18.49924, 1.08956, .66976,
435 + .39282, .87072, 1.09958 /
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 + .06234, .03872, 20.73313, 1.18190, .76716,
438 + .49508, .96576, 1.19213,
439 + .06522, .04027, 22.84407, 1.27199, .86189,
440 + .59422, 1.05834, 1.28241,
441 + .06794, .04173, 24.84203, 1.35977, .95395,
442 + .69031, 1.14842, 1.37038,
443 + .07052, .04311, 26.73308, 1.44520, 1.04334,
444 + .78341, 1.23596, 1.45597,
445 + .07296, .04441, 28.50911, 1.52793, 1.12977,
446 + .87329, 1.32068, 1.53887,
447 + .07528, .04565, 30.18274, 1.60811, 1.21340,
448 + .96012, 1.40270, 1.61919,
449 + .07750, .04684, 31.77016, 1.68599, 1.29454,
450 + 1.04425, 1.48232, 1.69722 /
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 + .07963, .04797, 33.28199, 1.76179, 1.37341,
453 + 1.12593, 1.55977, 1.77316,
454 + .08166, .04905, 34.69911, 1.83494, 1.44946,
455 + 1.20463, 1.63447, 1.84643,
456 + .08361, .05008, 36.03899, 1.90580, 1.52308,
457 + 1.28074, 1.70681, 1.91742,
458 + .08550, .05108, 37.32903, 1.97514, 1.59504,
459 + 1.35507, 1.77755, 1.98688,
460 + .08731, .05204, 38.52234, 2.04147, 1.66386,
461 + 1.42614, 1.84521, 2.05331 /
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 + .05320, .03399, 2.69878, .45512, .04773,
464 + .00000, .24281, .46493,
465 + .06107, .03829, 4.80100, .52363, .12774,
466 + .00000, .31753, .53402,
467 + .06780, .04194, 6.83577, .59357, .20701,
468 + .00000, .39253, .60445,
469 + .07369, .04513, 8.73805, .66270, .28397,
470 + .05062, .46589, .67400,
471 + .07900, .04799, 10.51855, .73058, .35868,
472 + .13225, .53747, .74226,
473 + .08383, .05059, 12.16752, .79668, .43081,
474 + .20959, .60683, .80868,
475 + .08829, .05297, 13.70408, .86075, .50031,
476 + .28363, .67384, .87306 /
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 + .09241, .05517, 15.11777, .92239, .56688,
479 + .35428, .73814, .93498,
480 + .09625, .05721, 16.42322, .98164, .63062,
481 + .42174, .79982, .99448,
482 + .09984, .05912, 17.63301, 1.03856, .69169,
483 + .48621, .85898, 1.05164,
484 + .10323, .06091, 18.75573, 1.09324, .75021,
485 + .54785, .91574, 1.10653,
486 + .10642, .06260, 19.78961, 1.14554, .80609,
487 + .60663, .96997, 1.15904,
488 + .10944, .06419, 20.74619, 1.19564, .85953,
489 + .66276, 1.02187, 1.20932,
490 + .11231, .06570, 21.63853, 1.24378, .91082,
491 + .71656, 1.07171, 1.25765 /
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 + .11505, .06714, 22.47538, 1.29018, .96018,
494 + .76829, 1.11971, 1.30422,
495 + .11766, .06850, 23.24610, 1.33448, 1.00729,
496 + .81761, 1.16553, 1.34868,
497 + .12015, .06980, 23.96337, 1.37700, 1.05247,
498 + .86489, 1.20948, 1.39135,
499 + .12255, .07106, 24.64565, 1.41826, 1.09627,
500 + .91067, 1.25212, 1.43277,
501 + .12484, .07225, 25.26440, 1.45733, 1.13774,
502 + .95403, 1.29248, 1.47197 /
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 + .08323, .05082, 2.43302, .38709, .03955,
505 + .00000, .20683, .39918,
506 + .09408, .05671, 4.03040, .43795, .10154,
507 + .00000, .26376, .45081,
508 + .10321, .06164, 5.48625, .48793, .16054,
509 + .00000, .31866, .50143,
510 + .11110, .06586, 6.78252, .53580, .21597,
511 + .03669, .37065, .54984,
512 + .11811, .06961, 7.94701, .58159, .26833,
513 + .09474, .42002, .59610,
514 + .12443, .07296, 8.98652, .62512, .31766,
515 + .14842, .46671, .64004,
516 + .13021, .07601, 9.92438, .66645, .36421,
517 + .19876, .51089, .68175 /
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 + .13549, .07879, 10.76076, .70544, .40791,
520 + .24588, .55244, .72108,
521 + .14037, .08134, 11.51142, .74225, .44903,
522 + .29010, .59159, .75819,
523 + .14491, .08371, 12.18882, .77705, .48779,
524 + .33169, .62855, .79327,
525 + .14914, .08591, 12.80164, .80995, .52436,
526 + .37087, .66345, .82643,
527 + .15311, .08797, 13.35182, .84096, .55878,
528 + .40770, .69631, .85768,
529 + .15683, .08989, 13.84840, .87024, .59125,
530 + .44241, .72732, .88718,
531 + .16035, .09170, 14.30131, .89802, .62203,
532 + .47527, .75673, .91517 /
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 + .16369, .09341, 14.71721, .92448, .65131,
535 + .50651, .78472, .94182,
536 + .16685, .09502, 15.09044, .94942, .67891,
537 + .53596, .81110, .96694,
538 + .16985, .09655, 15.43008, .97306, .70508,
539 + .56387, .83612, .99076,
540 + .17273, .09801, 15.74786, .99580, .73023,
541 + .59066, .86017, 1.01367,
542 + .17545, .09939, 16.02695, 1.01703, .75373,
543 + .61573, .88263, 1.03504 /
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 + .10795, .06480, 2.28464, .34802, .03505,
546 + -.00001, .18644, .36199,
547 + .12080, .07173, 3.61908, .38986, .08775,
548 + -.00001, .23424, .40473,
549 + .13149, .07746, 4.78807, .42995, .13663,
550 + .00000, .27915, .44556,
551 + .14063, .08231, 5.79553, .46756, .18159,
552 + .02991, .32079, .48378,
553 + .14869, .08656, 6.67563, .50291, .22332,
554 + .07669, .35963, .51965,
555 + .15590, .09034, 7.44140, .53597, .26201,
556 + .11927, .39578, .55317,
557 + .16242, .09374, 8.11673, .56692, .29802,
558 + .15868, .42950, .58454 /
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 + .16836, .09682, 8.70564, .59573, .33139,
561 + .19511, .46080, .61371,
562 + .17382, .09962, 9.22298, .62259, .36242,
563 + .22891, .48993, .64090,
564 + .17885, .10220, 9.68076, .64769, .39135,
565 + .26037, .51712, .66630,
566 + .18354, .10459, 10.08673, .67117, .41838,
567 + .28972, .54254, .69005,
568 + .18789, .10680, 10.44393, .69307, .44356,
569 + .31706, .56623, .71219,
570 + .19195, .10885, 10.75991, .71353, .46709,
571 + .34259, .58836, .73288,
572 + .19578, .11077, 11.04269, .73276, .48921,
573 + .36657, .60916, .75232 /
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 + .19939, .11258, 11.29776, .75091, .51008,
576 + .38919, .62879, .77067,
577 + .20279, .11428, 11.52140, .76786, .52960,
578 + .41035, .64714, .78781,
579 + .20601, .11588, 11.72088, .78379, .54795,
580 + .43025, .66438, .80390,
581 + .20908, .11740, 11.90488, .79900, .56547,
582 + .44924, .68085, .81928,
583 + .21198, .11882, 12.06104, .81304, .58171,
584 + .46686, .69608, .83346 /
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 + .12967, .07719, 2.18195, .32067, .03199,
587 + -.00001, .17226, .33629,
588 + .14398, .08486, 3.34295, .35666, .07860,
589 + -.00001, .21410, .37327,
590 + .15577, .09112, 4.32916, .39048, .12099,
591 + .00000, .25264, .40788,
592 + .16578, .09637, 5.15742, .42169, .15937,
593 + .02566, .28779, .43974,
594 + .17454, .10093, 5.86492, .45060, .19449,
595 + .06541, .32012, .46921,
596 + .18231, .10495, 6.46774, .47730, .22668,
597 + .10117, .34983, .49639,
598 + .18932, .10854, 6.98942, .50202, .25630,
599 + .13394, .37723, .52152 /
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 + .19565, .11177, 7.43566, .52476, .28348,
602 + .16393, .40241, .54464,
603 + .20144, .11469, 7.82052, .54576, .30852,
604 + .19152, .42561, .56596,
605 + .20676, .11736, 8.15509, .56518, .33167,
606 + .21700, .44707, .58569,
607 + .21168, .11981, 8.44660, .58320, .35312,
608 + .24058, .46696, .60397,
609 + .21622, .12207, 8.69817, .59984, .37295,
610 + .26239, .48534, .62085,
611 + .22046, .12416, 8.91642, .61525, .39134,
612 + .28262, .50237, .63649,
613 + .22442, .12611, 9.10819, .62963, .40851,
614 + .30150, .51827, .65107 /
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 + .22816, .12793, 9.27813, .64310, .42461,
617 + .31920, .53317, .66473,
618 + .23165, .12963, 9.42347, .65557, .43956,
619 + .33566, .54699, .67737,
620 + .23494, .13122, 9.55017, .66719, .45353,
621 + .35105, .55988, .68915,
622 + .23808, .13273, 9.66522, .67822, .46680,
623 + .36566, .57213, .70034,
624 + .24102, .13413, 9.75896, .68831, .47900,
625 + .37913, .58336, .71055 /
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 + .14933, .08848, 2.10355, .29976, .02970,
628 + .00000, .16152, .31692,
629 + .16476, .09667, 3.13725, .33152, .07186,
630 + -.00001, .19902, .34972,
631 + .17737, .10328, 3.99295, .36087, .10960,
632 + .00000, .23301, .37990,
633 + .18799, .10879, 4.69591, .38758, .14332,
634 + .02265, .26358, .40728,
635 + .19722, .11353, 5.28486, .41202, .17383,
636 + .05748, .29136, .43229,
637 + .20538, .11768, 5.77750, .43434, .20150,
638 + .08850, .31662, .45508,
639 + .21268, .12136, 6.19670, .45480, .22675,
640 + .11668, .33971, .47596 /
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 + .21926, .12464, 6.54894, .47343, .24971,
643 + .14228, .36071, .49496,
644 + .22523, .12760, 6.84750, .49048, .27070,
645 + .16565, .37991, .51233,
646 + .23069, .13029, 7.10263, .50613, .28997,
647 + .18710, .39754, .52826,
648 + .23572, .13275, 7.32127, .52051, .30770,
649 + .20683, .41375, .54290,
650 + .24036, .13499, 7.50607, .53369, .32399,
651 + .22496, .42862, .55631,
652 + .24465, .13706, 7.66324, .54580, .33899,
653 + .24168, .44230, .56862,
654 + .24866, .13898, 7.79861, .55700, .35292,
655 + .25720, .45498, .58002 /
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 + .25242, .14076, 7.91623, .56744, .36591,
658 + .27169, .46681, .59063,
659 + .25593, .14241, 8.01402, .57700, .37789,
660 + .28507, .47768, .60035,
661 + .25922, .14395, 8.09679, .58586, .38903,
662 + .29753, .48777, .60935,
663 + .26234, .14541, 8.17045, .59422, .39956,
664 + .30932, .49732, .61785,
665 + .26526, .14675, 8.22729, .60179, .40918,
666 + .32012, .50599, .62553 /
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 + .22960, .13477, 1.86368, .23709, .02306,
669 + .00000, .12995, .26084,
670 + .24771, .14383, 2.53895, .25728, .05286,
671 + .00000, .15547, .28208,
672 + .26205, .15083, 3.04657, .27477, .07808,
673 + .00000, .17722, .30033,
674 + .27377, .15644, 3.42914, .28981, .09957,
675 + .01474, .19580, .31595,
676 + .28370, .16109, 3.72493, .30291, .11824,
677 + .03683, .21195, .32950,
678 + .29224, .16502, 3.95325, .31432, .13456,
679 + .05583, .22604, .34127,
680 + .29971, .16840, 4.13291, .32434, .14896,
681 + .07259, .23844, .35158 /
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 + .30628, .17131, 4.27096, .33308, .16166,
684 + .08740, .24932, .36056,
685 + .31212, .17385, 4.37752, .34075, .17292,
686 + .10058, .25893, .36842,
687 + .31734, .17609, 4.45978, .34751, .18298,
688 + .11237, .26747, .37534,
689 + .32206, .17807, 4.52253, .35350, .19200,
690 + .12298, .27508, .38144,
691 + .32632, .17982, 4.56792, .35874, .20007,
692 + .13252, .28184, .38679,
693 + .33019, .18139, 4.59991, .36336, .20733,
694 + .14113, .28787, .39149,
695 + .33372, .18279, 4.62191, .36748, .21390,
696 + .14897, .29329, .39567 /
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 + .33699, .18407, 4.63624, .37116, .21990,
699 + .15615, .29821, .39941,
700 + .33997, .18520, 4.64195, .37438, .22529,
701 + .16265, .30258, .40266,
702 + .34271, .18623, 4.64147, .37721, .23018,
703 + .16858, .30650, .40552,
704 + .34528, .18718, 4.63793, .37981, .23473,
705 + .17411, .31013, .40813,
706 + .34760, .18801, 4.62744, .38198, .23875,
707 + .17906, .31328, .41031 /
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 + .34473, .19985, 1.61763, .17936, .01717,
710 + -.00001, .10174, .21247,
711 + .36209, .20688, 1.98594, .18990, .03658,
712 + -.00002, .11705, .22338,
713 + .37499, .21180, 2.22381, .19808, .05187,
714 + -.00001, .12901, .23169,
715 + .38494, .21532, 2.37671, .20440, .06411,
716 + .00873, .13846, .23803,
717 + .39290, .21793, 2.47612, .20937, .07418,
718 + .02143, .14611, .24294,
719 + .39936, .21988, 2.53743, .21327, .08255,
720 + .03188, .15233, .24670,
721 + .40471, .22136, 2.57382, .21635, .08961,
722 + .04077, .15748, .24962 /
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 + .40914, .22242, 2.59043, .21870, .09556,
725 + .04834, .16168, .25180,
726 + .41282, .22320, 2.59341, .22050, .10060,
727 + .05484, .16514, .25339,
728 + .41595, .22374, 2.58688, .22186, .10492,
729 + .06049, .16801, .25454,
730 + .41858, .22410, 2.57343, .22284, .10864,
731 + .06543, .17038, .25531,
732 + .42079, .22429, 2.55420, .22350, .11182,
733 + .06971, .17231, .25574,
734 + .42264, .22435, 2.53106, .22389, .11456,
735 + .07347, .17388, .25590,
736 + .42422, .22431, 2.50557, .22407, .11693,
737 + .07680, .17517, .25587 /
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 + .42557, .22419, 2.47869, .22411, .11901,
740 + .07977, .17623, .25569,
741 + .42667, .22400, 2.44988, .22397, .12079,
742 + .08239, .17705, .25531,
743 + .42758, .22374, 2.42023, .22369, .12233,
744 + .08470, .17767, .25481,
745 + .42837, .22345, 2.39098, .22336, .12370,
746 + .08680, .17819, .25426,
747 + .42895, .22308, 2.36023, .22286, .12482,
748 + .08861, .17849, .25354 /
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 + .42826, .24381, 1.45878, .14748, .01401,
751 + .00000, .08629, .18610,
752 + .44159, .24708, 1.67133, .15305, .02817,
753 + .00000, .09625, .19108,
754 + .45065, .24869, 1.78570, .15677, .03872,
755 + .00000, .10342, .19416,
756 + .45696, .24928, 1.84207, .15918, .04679,
757 + .00602, .10866, .19590,
758 + .46148, .24925, 1.86478, .16069, .05314,
759 + .01455, .11257, .19676,
760 + .46469, .24878, 1.86551, .16151, .05820,
761 + .02134, .11548, .19697,
762 + .46699, .24802, 1.85339, .16186, .06231,
763 + .02698, .11768, .19674 /
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 + .46851, .24704, 1.83184, .16182, .06561,
766 + .03164, .11926, .19612,
767 + .46945, .24592, 1.80461, .16149, .06833,
768 + .03555, .12040, .19524,
769 + .46997, .24470, 1.77422, .16096, .07054,
770 + .03886, .12119, .19416,
771 + .47014, .24341, 1.74204, .16026, .07237,
772 + .04168, .12170, .19297,
773 + .46998, .24207, 1.70847, .15943, .07385,
774 + .04407, .12198, .19164,
775 + .46959, .24069, 1.67453, .15849, .07506,
776 + .04611, .12206, .19023,
777 + .46904, .23929, 1.64097, .15749, .07606,
778 + .04788, .12200, .18878 /
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 + .46836, .23789, 1.60817, .15644, .07689,
781 + .04942, .12184, .18731,
782 + .46751, .23648, 1.57564, .15535, .07753,
783 + .05074, .12156, .18580,
784 + .46655, .23508, 1.54390, .15422, .07804,
785 + .05187, .12120, .18428,
786 + .46555, .23371, 1.51353, .15310, .07846,
787 + .05288, .12081, .18279,
788 + .46441, .23231, 1.48337, .15193, .07874,
789 + .05371, .12031, .18124 /
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 + .49187, .27376, 1.33138, .12474, .01180,
792 + .00000, .07496, .16583,
793 + .49978, .27277, 1.44593, .12714, .02259,
794 + .00000, .08143, .16674,
795 + .50407, .27084, 1.48876, .12820, .03028,
796 + -.00001, .08566, .16644,
797 + .50614, .26840, 1.49311, .12838, .03590,
798 + .00440, .08843, .16542,
799 + .50682, .26573, 1.47736, .12803, .04017,
800 + .01052, .09025, .16396,
801 + .50650, .26292, 1.44985, .12727, .04343,
802 + .01528, .09137, .16218,
803 + .50556, .26007, 1.41674, .12628, .04597,
804 + .01913, .09203, .16028 /
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 + .50409, .25721, 1.38014, .12512, .04793,
807 + .02224, .09229, .15822,
808 + .50225, .25439, 1.34233, .12383, .04946,
809 + .02480, .09230, .15613,
810 + .50019, .25160, 1.30461, .12248, .05067,
811 + .02692, .09211, .15402,
812 + .49795, .24889, 1.26764, .12108, .05159,
813 + .02868, .09178, .15191,
814 + .49554, .24623, 1.23150, .11966, .05229,
815 + .03013, .09131, .14982,
816 + .49304, .24364, 1.19661, .11821, .05281,
817 + .03135, .09076, .14777,
818 + .49049, .24112, 1.16326, .11678, .05319,
819 + .03238, .09015, .14575 /
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 + .48791, .23868, 1.13155, .11538, .05347,
822 + .03325, .08950, .14379,
823 + .48528, .23630, 1.10105, .11399, .05365,
824 + .03397, .08881, .14186,
825 + .48264, .23398, 1.07195, .11261, .05374,
826 + .03458, .08808, .13998,
827 + .48006, .23175, 1.04452, .11128, .05378,
828 + .03510, .08736, .13818,
829 + .47740, .22955, 1.01797, .10994, .05374,
830 + .03551, .08659, .13638 /
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 + .54079, .29328, 1.21973, .10644, .01005,
833 + .00000, .06543, .14775,
834 + .54267, .28808, 1.26726, .10674, .01846,
835 + -.00001, .06946, .14576,
836 + .54186, .28274, 1.26477, .10613, .02420,
837 + -.00001, .07175, .14326,
838 + .53951, .27750, 1.23856, .10501, .02823,
839 + .00332, .07295, .14049,
840 + .53628, .27243, 1.20189, .10361, .03117,
841 + .00787, .07350, .13764,
842 + .53248, .26754, 1.16038, .10201, .03333,
843 + .01132, .07358, .13478,
844 + .52837, .26287, 1.11801, .10036, .03495,
845 + .01406, .07338, .13196 /
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 + .52405, .25840, 1.07580, .09864, .03614,
848 + .01623, .07294, .12920,
849 + .51959, .25413, 1.03497, .09695, .03701,
850 + .01797, .07236, .12651,
851 + .51514, .25006, .99610, .09525, .03764,
852 + .01940, .07168, .12393,
853 + .51068, .24618, .95936, .09359, .03808,
854 + .02054, .07094, .12146,
855 + .50622, .24247, .92456, .09196, .03837,
856 + .02148, .07015, .11908,
857 + .50182, .23890, .89180, .09037, .03855,
858 + .02222, .06932, .11679,
859 + .49750, .23550, .86112, .08884, .03864,
860 + .02285, .06848, .11460 /
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 + .49328, .23226, .83241, .08736, .03866,
863 + .02338, .06765, .11251,
864 + .48909, .22913, .80528, .08592, .03862,
865 + .02379, .06681, .11047,
866 + .48499, .22612, .77979, .08453, .03852,
867 + .02412, .06597, .10853,
868 + .48104, .22325, .75599, .08319, .03840,
869 + .02439, .06515, .10669,
870 + .47709, .22045, .73333, .08188, .03823,
871 + .02460, .06433, .10489 /
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 + .58579, .30650, 1.09343, .08730, .00823,
874 + -.00001, .05491, .12655,
875 + .57987, .29641, 1.08387, .08593, .01449,
876 + -.00002, .05687, .12229,
877 + .57267, .28727, 1.04605, .08412, .01855,
878 + -.00001, .05761, .11815,
879 + .56492, .27897, .99821, .08212, .02127,
880 + .00239, .05763, .11419,
881 + .55703, .27135, .94839, .08007, .02317,
882 + .00563, .05727, .11046,
883 + .54911, .26430, .89948, .07802, .02447,
884 + .00801, .05664, .10694,
885 + .54137, .25779, .85343, .07604, .02540,
886 + .00986, .05588, .10364 /
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 + .53379, .25169, .81027, .07410, .02602,
889 + .01129, .05502, .10056,
890 + .52640, .24602, .77034, .07224, .02642,
891 + .01242, .05410, .09768,
892 + .51928, .24071, .73358, .07048, .02667,
893 + .01330, .05318, .09494,
894 + .51242, .23572, .69979, .06877, .02681,
895 + .01401, .05224, .09242,
896 + .50574, .23103, .66859, .06717, .02685,
897 + .01456, .05131, .08999,
898 + .49930, .22658, .63982, .06563, .02680,
899 + .01500, .05040, .08772,
900 + .49310, .22238, .61333, .06416, .02672,
901 + .01535, .04950, .08559 /
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 + .48716, .21841, .58891, .06277, .02660,
904 + .01563, .04863, .08358,
905 + .48136, .21462, .56620, .06144, .02645,
906 + .01583, .04777, .08165,
907 + .47576, .21102, .54513, .06017, .02627,
908 + .01598, .04695, .07983,
909 + .47040, .20761, .52563, .05896, .02608,
910 + .01609, .04617, .07811,
911 + .46514, .20431, .50731, .05780, .02586,
912 + .01617, .04538, .07646 /
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 + .61639, .31015, .97735, .07105, .00671,
915 + -.00003, .04558, .10674,
916 + .60283, .29579, .93029, .06878, .01144,
917 + -.00002, .04624, .10124,
918 + .58951, .28347, .87186, .06639, .01436,
919 + -.00002, .04606, .09633,
920 + .57672, .27267, .81324, .06403, .01622,
921 + .00176, .04545, .09193,
922 + .56455, .26302, .75833, .06178, .01744,
923 + .00410, .04462, .08795,
924 + .55293, .25432, .70798, .05965, .01824,
925 + .00581, .04368, .08430,
926 + .54196, .24642, .66266, .05764, .01876,
927 + .00709, .04269, .08099 /
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 + .53154, .23915, .62176, .05574, .01907,
930 + .00807, .04169, .07794,
931 + .52164, .23246, .58496, .05397, .01922,
932 + .00882, .04069, .07514,
933 + .51227, .22627, .55188, .05231, .01928,
934 + .00939, .03971, .07255,
935 + .50337, .22054, .52204, .05076, .01926,
936 + .00982, .03877, .07017,
937 + .49487, .21518, .49498, .04929, .01918,
938 + .01017, .03786, .06796,
939 + .48677, .21015, .47040, .04791, .01905,
940 + .01043, .03697, .06589,
941 + .47905, .20545, .44806, .04661, .01890,
942 + .01062, .03614, .06395 /
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 + .47170, .20105, .42771, .04540, .01874,
945 + .01076, .03535, .06214,
946 + .46464, .19687, .40900, .04425, .01855,
947 + .01087, .03456, .06044,
948 + .45788, .19291, .39182, .04316, .01835,
949 + .01094, .03382, .05885,
950 + .45144, .18917, .37606, .04213, .01814,
951 + .01099, .03311, .05736,
952 + .44519, .18559, .36138, .04114, .01793,
953 + .01100, .03243, .05594 /
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 + .63523, .30654, .86961, .05721, .00543,
956 + .00000, .03732, .08851,
957 + .61435, .28874, .79857, .05456, .00898,
958 + -.00002, .03716, .08257,
959 + .59535, .27391, .72901, .05204, .01108,
960 + -.00001, .03646, .07751,
961 + .57798, .26123, .66619, .04967, .01235,
962 + .00130, .03554, .07310,
963 + .56201, .25008, .61088, .04747, .01314,
964 + .00301, .03452, .06926,
965 + .54717, .24020, .56227, .04546, .01361,
966 + .00423, .03349, .06579,
967 + .53346, .23131, .51989, .04359, .01389,
968 + .00513, .03246, .06270 /
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 + .52063, .22324, .48264, .04188, .01401,
971 + .00580, .03146, .05991,
972 + .50865, .21590, .44987, .04029, .01404,
973 + .00629, .03049, .05738,
974 + .49742, .20919, .42089, .03883, .01400,
975 + .00667, .02959, .05506,
976 + .48687, .20299, .39517, .03749, .01391,
977 + .00694, .02871, .05297,
978 + .47693, .19726, .37215, .03623, .01378,
979 + .00716, .02789, .05102,
980 + .46749, .19193, .35149, .03506, .01362,
981 + .00731, .02711, .04923,
982 + .45860, .18696, .33292, .03396, .01346,
983 + .00741, .02637, .04757 /
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 + .45021, .18232, .31616, .03293, .01329,
986 + .00748, .02568, .04603,
987 + .44219, .17794, .30090, .03197, .01311,
988 + .00753, .02501, .04459,
989 + .43455, .17383, .28700, .03107, .01292,
990 + .00755, .02438, .04325,
991 + .42731, .16998, .27431, .03023, .01273,
992 + .00755, .02379, .04200,
993 + .42034, .16630, .26262, .02943, .01255,
994 + .00754, .02321, .04081 /
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 + .64422, .29750, .76936, .04549, .00435,
997 + -.00002, .03010, .07212,
998 + .61664, .27696, .68396, .04279, .00703,
999 + -.00001, .02950, .06631,
1000 + .59253, .26023, .60959, .04035, .00855,
1001 + -.00002, .02858, .06146,
1002 + .57114, .24618, .54670, .03813, .00943,
1003 + .00096, .02756, .05738,
1004 + .55190, .23402, .49364, .03613, .00994,
1005 + .00224, .02651, .05387,
1006 + .53432, .22333, .44850, .03433, .01021,
1007 + .00310, .02551, .05076,
1008 + .51831, .21385, .41007, .03271, .01034,
1009 + .00376, .02455, .04802 /
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 + .50346, .20538, .37703, .03123, .01037,
1012 + .00422, .02363, .04558,
1013 + .48978, .19767, .34840, .02988, .01032,
1014 + .00456, .02277, .04341,
1015 + .47711, .19066, .32346, .02863, .01023,
1016 + .00479, .02197, .04145,
1017 + .46530, .18425, .30164, .02751, .01013,
1018 + .00499, .02122, .03963,
1019 + .45424, .17836, .28232, .02646, .00999,
1020 + .00512, .02051, .03800,
1021 + .44382, .17291, .26518, .02550, .00984,
1022 + .00520, .01986, .03649,
1023 + .43406, .16785, .24992, .02460, .00968,
1024 + .00525, .01924, .03513 /
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 + .42489, .16316, .23624, .02376, .00953,
1027 + .00528, .01865, .03387,
1028 + .41617, .15879, .22388, .02299, .00936,
1029 + .00531, .01810, .03268,
1030 + .40793, .15466, .21268, .02227, .00920,
1031 + .00531, .01759, .03158,
1032 + .40016, .15080, .20252, .02158, .00904,
1033 + .00530, .01711, .03057,
1034 + .39266, .14716, .19326, .02096, .00887,
1035 + .00528, .01665, .02960 /
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 + .64496, .28436, .67635, .03567, .00344,
1038 + -.00002, .02392, .05780,
1039 + .61133, .26181, .58367, .03314, .00548,
1040 + -.00001, .02313, .05239,
1041 + .58276, .24379, .50885, .03090, .00659,
1042 + -.00002, .02215, .04803,
1043 + .55790, .22885, .44847, .02894, .00719,
1044 + .00073, .02116, .04441,
1045 + .53585, .21612, .39921, .02722, .00752,
1046 + .00169, .02019, .04133,
1047 + .51603, .20501, .35834, .02567, .00767,
1048 + .00233, .01928, .03867,
1049 + .49812, .19529, .32430, .02430, .00772,
1050 + .00278, .01844, .03633 /
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 + .48183, .18653, .29548, .02306, .00767,
1053 + .00310, .01764, .03431,
1054 + .46680, .17875, .27090, .02195, .00761,
1055 + .00333, .01691, .03247,
1056 + .45302, .17173, .24978, .02094, .00750,
1057 + .00350, .01623, .03082,
1058 + .44022, .16533, .23147, .02002, .00738,
1059 + .00362, .01560, .02936,
1060 + .42834, .15945, .21548, .01919, .00726,
1061 + .00369, .01502, .02801,
1062 + .41723, .15406, .20137, .01842, .00712,
1063 + .00374, .01447, .02681,
1064 + .40688, .14907, .18889, .01771, .00698,
1065 + .00377, .01396, .02570 /
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 + .39720, .14445, .17779, .01704, .00684,
1068 + .00378, .01350, .02469,
1069 + .38802, .14016, .16785, .01644, .00671,
1070 + .00378, .01305, .02375,
1071 + .37938, .13616, .15889, .01587, .00658,
1072 + .00378, .01264, .02287,
1073 + .37126, .13242, .15079, .01535, .00645,
1074 + .00377, .01226, .02206,
1075 + .36346, .12890, .14346, .01486, .00631,
1076 + .00374, .01190, .02130 /
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 + .63875, .26823, .59057, .02754, .00271,
1079 + .00003, .01874, .04554,
1080 + .59976, .24443, .49587, .02530, .00423,
1081 + .00003, .01787, .04078,
1082 + .56729, .22570, .42353, .02341, .00502,
1083 + .00003, .01694, .03697,
1084 + .53954, .21035, .36732, .02176, .00542,
1085 + .00059, .01602, .03390,
1086 + .51524, .19740, .32261, .02033, .00561,
1087 + .00128, .01518, .03130,
1088 + .49368, .18618, .28641, .01904, .00569,
1089 + .00170, .01439, .02910,
1090 + .47436, .17641, .25669, .01792, .00569,
1091 + .00204, .01368, .02717 /
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 + .45680, .16778, .23201, .01694, .00566,
1094 + .00224, .01301, .02548,
1095 + .44087, .16009, .21115, .01605, .00557,
1096 + .00242, .01241, .02399,
1097 + .42630, .15314, .19347, .01523, .00547,
1098 + .00251, .01185, .02270,
1099 + .41293, .14686, .17828, .01449, .00536,
1100 + .00259, .01136, .02152,
1101 + .40048, .14118, .16508, .01385, .00525,
1102 + .00263, .01088, .02044,
1103 + .38895, .13596, .15356, .01325, .00513,
1104 + .00266, .01045, .01948,
1105 + .37823, .13117, .14346, .01269, .00501,
1106 + .00268, .01006, .01860 /
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 + .36823, .12674, .13453, .01217, .00490,
1109 + .00268, .00969, .01781,
1110 + .35883, .12263, .12656, .01170, .00479,
1111 + .00268, .00934, .01709,
1112 + .35001, .11881, .11943, .01126, .00468,
1113 + .00266, .00902, .01642,
1114 + .34175, .11525, .11302, .01085, .00456,
1115 + .00263, .00871, .01581,
1116 + .33389, .11191, .10723, .01047, .00447,
1117 + .00261, .00844, .01521 /
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 + .62640, .25042, .51214, .02119, .00197,
1120 + -.00016, .01431, .03526,
1121 + .58288, .22591, .41908, .01926, .00314,
1122 + -.00013, .01353, .03119,
1123 + .54732, .20682, .35111, .01763, .00373,
1124 + -.00012, .01270, .02804,
1125 + .51728, .19140, .29990, .01624, .00402,
1126 + .00031, .01195, .02548,
1127 + .49129, .17848, .26016, .01505, .00414,
1128 + .00083, .01123, .02340,
1129 + .46836, .16744, .22856, .01402, .00418,
1130 + .00118, .01061, .02156,
1131 + .44799, .15787, .20305, .01314, .00417,
1132 + .00142, .01001, .02004 /
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 + .42969, .14946, .18212, .01233, .00409,
1135 + .00160, .00948, .01872,
1136 + .41311, .14200, .16466, .01165, .00402,
1137 + .00171, .00901, .01753,
1138 + .39807, .13534, .14995, .01102, .00394,
1139 + .00179, .00857, .01649,
1140 + .38430, .12932, .13747, .01044, .00386,
1141 + .00183, .00817, .01557,
1142 + .37162, .12390, .12672, .00992, .00377,
1143 + .00185, .00780, .01474,
1144 + .35989, .11893, .11740, .00944, .00367,
1145 + .00188, .00747, .01401,
1146 + .34902, .11439, .10926, .00903, .00358,
1147 + .00188, .00716, .01333 /
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 + .33891, .11023, .10210, .00866, .00348,
1150 + .00188, .00688, .01270,
1151 + .32944, .10638, .09575, .00830, .00339,
1152 + .00188, .00661, .01216,
1153 + .32059, .10280, .09010, .00797, .00331,
1154 + .00186, .00637, .01165,
1155 + .31231, .09948, .08504, .00766, .00322,
1156 + .00185, .00616, .01117,
1157 + .30445, .09638, .08048, .00739, .00314,
1158 + .00184, .00594, .01074 /
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 + .60932, .23092, .44037, .01580, .00157,
1161 + -.00006, .01088, .02687,
1162 + .56198, .20631, .35179, .01425, .00241,
1163 + -.00002, .01017, .02352,
1164 + .52382, .18742, .28943, .01295, .00282,
1165 + -.00002, .00948, .02094,
1166 + .49200, .17226, .24373, .01187, .00301,
1167 + .00028, .00884, .01888,
1168 + .46468, .15970, .20899, .01096, .00308,
1169 + .00067, .00827, .01720,
1170 + .44084, .14903, .18183, .01014, .00308,
1171 + .00091, .00775, .01578,
1172 + .41983, .13983, .16015, .00945, .00305,
1173 + .00107, .00729, .01458 /
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 + .40107, .13179, .14261, .00883, .00300,
1176 + .00117, .00686, .01353,
1177 + .38414, .12471, .12817, .00832, .00293,
1178 + .00125, .00648, .01264,
1179 + .36887, .11841, .11609, .00783, .00285,
1180 + .00130, .00615, .01183,
1181 + .35498, .11275, .10590, .00739, .00278,
1182 + .00133, .00584, .01114,
1183 + .34225, .10765, .09721, .00697, .00271,
1184 + .00134, .00555, .01052,
1185 + .33049, .10304, .08972, .00664, .00262,
1186 + .00135, .00530, .00995,
1187 + .31964, .09883, .08320, .00634, .00255,
1188 + .00136, .00507, .00943 /
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 + .30960, .09497, .07750, .00607, .00248,
1191 + .00136, .00486, .00896,
1192 + .30024, .09140, .07248, .00580, .00241,
1193 + .00133, .00465, .00855,
1194 + .29149, .08812, .06803, .00556, .00235,
1195 + .00132, .00447, .00816,
1196 + .28335, .08508, .06405, .00534, .00229,
1197 + .00132, .00431, .00780,
1198 + .27566, .08224, .06048, .00512, .00222,
1199 + .00130, .00415, .00750 /
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 + .58796, .21096, .37575, .01170, .00115,
1202 + -.00005, .00810, .02014,
1203 + .53760, .18669, .29335, .01046, .00179,
1204 + -.00003, .00752, .01741,
1205 + .49752, .16826, .23723, .00942, .00208,
1206 + -.00004, .00695, .01540,
1207 + .46443, .15365, .19708, .00859, .00222,
1208 + .00021, .00645, .01377,
1209 + .43634, .14161, .16714, .00788, .00226,
1210 + .00048, .00599, .01245,
1211 + .41198, .13144, .14407, .00726, .00224,
1212 + .00065, .00559, .01137,
1213 + .39062, .12274, .12596, .00675, .00223,
1214 + .00078, .00522, .01043 /
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 + .37165, .11520, .11138, .00627, .00217,
1217 + .00085, .00490, .00968,
1218 + .35471, .10858, .09954, .00586, .00210,
1219 + .00091, .00461, .00901,
1220 + .33944, .10272, .08970, .00551, .00206,
1221 + .00093, .00435, .00840,
1222 + .32561, .09749, .08148, .00519, .00199,
1223 + .00095, .00411, .00787,
1224 + .31302, .09278, .07447, .00490, .00192,
1225 + .00097, .00391, .00739,
1226 + .30143, .08852, .06850, .00465, .00187,
1227 + .00096, .00372, .00696,
1228 + .29079, .08466, .06334, .00441, .00181,
1229 + .00096, .00354, .00658 /
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 + .28097, .08113, .05883, .00420, .00175,
1232 + .00095, .00338, .00624,
1233 + .27180, .07790, .05487, .00402, .00170,
1234 + .00094, .00324, .00593,
1235 + .26328, .07491, .05138, .00385, .00165,
1236 + .00093, .00310, .00566,
1237 + .25538, .07216, .04827, .00368, .00159,
1238 + .00091, .00297, .00540,
1239 + .24792, .06960, .04549, .00353, .00155,
1240 + .00091, .00286, .00517 /
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 + .56318, .19080, .31781, .00847, .00088,
1243 + -.00001, .00596, .01481,
1244 + .51055, .16727, .24276, .00749, .00134,
1245 + .00000, .00548, .01272,
1246 + .46914, .14961, .19310, .00672, .00155,
1247 + .00000, .00504, .01112,
1248 + .43532, .13574, .15838, .00610, .00162,
1249 + .00017, .00464, .00989,
1250 + .40681, .12439, .13294, .00556, .00165,
1251 + .00037, .00429, .00889,
1252 + .38226, .11485, .11361, .00511, .00164,
1253 + .00050, .00398, .00807,
1254 + .36088, .10678, .09859, .00471, .00159,
1255 + .00057, .00371, .00738 /
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 + .34204, .09978, .08666, .00439, .00157,
1258 + .00063, .00347, .00679,
1259 + .32526, .09369, .07700, .00409, .00152,
1260 + .00067, .00325, .00628,
1261 + .31025, .08829, .06908, .00380, .00147,
1262 + .00068, .00306, .00585,
1263 + .29667, .08351, .06250, .00357, .00141,
1264 + .00069, .00288, .00548,
1265 + .28431, .07924, .05695, .00337, .00136,
1266 + .00069, .00272, .00513,
1267 + .27303, .07537, .05220, .00319, .00131,
1268 + .00068, .00258, .00483,
1269 + .26270, .07188, .04811, .00302, .00127,
1270 + .00068, .00245, .00456 /
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 + .25319, .06871, .04457, .00288, .00123,
1273 + .00068, .00233, .00431,
1274 + .24438, .06580, .04147, .00275, .00119,
1275 + .00068, .00223, .00408,
1276 + .23620, .06313, .03874, .00262, .00115,
1277 + .00067, .00213, .00388,
1278 + .22861, .06069, .03632, .00251, .00111,
1279 + .00065, .00205, .00370,
1280 + .22149, .05840, .03417, .00241, .00108,
1281 + .00063, .00196, .00351 /
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 + .53559, .17087, .26629, .00595, .00066,
1284 + .00007, .00435, .01070,
1285 + .48141, .14845, .19919, .00526, .00101,
1286 + .00006, .00397, .00909,
1287 + .43925, .13179, .15599, .00471, .00116,
1288 + .00006, .00361, .00788,
1289 + .40517, .11877, .12641, .00422, .00120,
1290 + .00016, .00330, .00697,
1291 + .37662, .10824, .10504, .00383, .00120,
1292 + .00030, .00304, .00624,
1293 + .35224, .09944, .08905, .00351, .00119,
1294 + .00038, .00281, .00563,
1295 + .33113, .09201, .07673, .00323, .00115,
1296 + .00043, .00260, .00512 /
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 + .31257, .08562, .06707, .00301, .00112,
1299 + .00047, .00243, .00470,
1300 + .29616, .08007, .05932, .00278, .00108,
1301 + .00049, .00227, .00434,
1302 + .28153, .07521, .05298, .00260, .00105,
1303 + .00051, .00213, .00402,
1304 + .26835, .07091, .04774, .00245, .00100,
1305 + .00050, .00200, .00373,
1306 + .25645, .06706, .04333, .00229, .00096,
1307 + .00050, .00188, .00349,
1308 + .24559, .06360, .03962, .00216, .00093,
1309 + .00050, .00178, .00329,
1310 + .23568, .06048, .03643, .00204, .00090,
1311 + .00050, .00169, .00310 /
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 + .22660, .05766, .03367, .00193, .00087,
1314 + .00050, .00161, .00292,
1315 + .21821, .05507, .03127, .00184, .00084,
1316 + .00049, .00153, .00276,
1317 + .21042, .05271, .02916, .00176, .00081,
1318 + .00047, .00146, .00261,
1319 + .20322, .05055, .02728, .00168, .00078,
1320 + .00046, .00140, .00249,
1321 + .19650, .04855, .02562, .00160, .00076,
1322 + .00045, .00134, .00236 /
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 + .50571, .15175, .22109, .00423, .00048,
1325 + .00002, .00305, .00757,
1326 + .45077, .13062, .16210, .00368, .00071,
1327 + .00001, .00277, .00639,
1328 + .40840, .11509, .12506, .00330, .00082,
1329 + .00000, .00251, .00548,
1330 + .37447, .10306, .10017, .00293, .00083,
1331 + .00010, .00229, .00485,
1332 + .34630, .09336, .08246, .00263, .00085,
1333 + .00021, .00210, .00432,
1334 + .32236, .08534, .06938, .00240, .00083,
1335 + .00026, .00194, .00387,
1336 + .30172, .07861, .05942, .00223, .00080,
1337 + .00030, .00178, .00350 /
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 + .28373, .07285, .05166, .00204, .00078,
1340 + .00032, .00166, .00320,
1341 + .26789, .06786, .04547, .00189, .00075,
1342 + .00034, .00153, .00295,
1343 + .25376, .06353, .04047, .00177, .00072,
1344 + .00035, .00144, .00272,
1345 + .24118, .05969, .03634, .00164, .00069,
1346 + .00035, .00135, .00251,
1347 + .22980, .05627, .03290, .00154, .00067,
1348 + .00035, .00128, .00236,
1349 + .21943, .05322, .02998, .00146, .00064,
1350 + .00034, .00120, .00221,
1351 + .21004, .05047, .02750, .00138, .00061,
1352 + .00034, .00113, .00206 /
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 + .20147, .04800, .02536, .00130, .00059,
1355 + .00033, .00108, .00193,
1356 + .19353, .04573, .02351, .00126, .00057,
1357 + .00034, .00103, .00182,
1358 + .18623, .04367, .02189, .00119, .00055,
1359 + .00033, .00098, .00173,
1360 + .17951, .04178, .02045, .00111, .00053,
1361 + .00032, .00093, .00165,
1362 + .17322, .04003, .01917, .00106, .00051,
1363 + .00031, .00089, .00157 /
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 + .47421, .13340, .18164, .00289, .00036,
1366 + .00004, .00212, .00526,
1367 + .41911, .11381, .13071, .00253, .00051,
1368 + .00003, .00191, .00439,
1369 + .37711, .09955, .09942, .00225, .00056,
1370 + .00004, .00171, .00377,
1371 + .34370, .08860, .07876, .00203, .00058,
1372 + .00008, .00155, .00328,
1373 + .31614, .07981, .06429, .00183, .00056,
1374 + .00015, .00140, .00293,
1375 + .29289, .07260, .05371, .00166, .00057,
1376 + .00017, .00129, .00261,
1377 + .27302, .06656, .04573, .00153, .00054,
1378 + .00021, .00119, .00236 /
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 + .25573, .06143, .03957, .00142, .00053,
1381 + .00021, .00110, .00213,
1382 + .24059, .05701, .03469, .00130, .00050,
1383 + .00022, .00102, .00195,
1384 + .22714, .05319, .03076, .00122, .00048,
1385 + .00023, .00095, .00179,
1386 + .21520, .04979, .02753, .00113, .00046,
1387 + .00022, .00089, .00167,
1388 + .20441, .04681, .02486, .00108, .00045,
1389 + .00024, .00084, .00155,
1390 + .19470, .04414, .02261, .00101, .00043,
1391 + .00023, .00079, .00145,
1392 + .18588, .04175, .02070, .00095, .00041,
1393 + .00022, .00074, .00136 /
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 + .17784, .03960, .01905, .00091, .00040,
1396 + .00022, .00070, .00128,
1397 + .17045, .03763, .01762, .00085, .00037,
1398 + .00022, .00066, .00121,
1399 + .16365, .03585, .01638, .00082, .00036,
1400 + .00021, .00063, .00114,
1401 + .15739, .03423, .01528, .00080, .00035,
1402 + .00021, .00060, .00107,
1403 + .15156, .03272, .01430, .00075, .00033,
1404 + .00020, .00057, .00102 /
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 + .44146, .11606, .14756, .00191, .00027,
1407 + .00004, .00147, .00357,
1408 + .38687, .09810, .10416, .00165, .00037,
1409 + .00003, .00131, .00297,
1410 + .34562, .08514, .07812, .00147, .00041,
1411 + .00004, .00118, .00253,
1412 + .31312, .07527, .06125, .00130, .00042,
1413 + .00008, .00106, .00221,
1414 + .28652, .06743, .04958, .00117, .00042,
1415 + .00013, .00097, .00194,
1416 + .26416, .06102, .04114, .00106, .00041,
1417 + .00015, .00088, .00173,
1418 + .24516, .05569, .03483, .00097, .00039,
1419 + .00015, .00081, .00155 /
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 + .22874, .05118, .03000, .00088, .00037,
1422 + .00017, .00074, .00140,
1423 + .21437, .04732, .02620, .00081, .00035,
1424 + .00017, .00068, .00129,
1425 + .20173, .04396, .02315, .00074, .00034,
1426 + .00017, .00064, .00119,
1427 + .19047, .04105, .02067, .00072, .00032,
1428 + .00017, .00060, .00109,
1429 + .18042, .03845, .01861, .00067, .00031,
1430 + .00018, .00057, .00101,
1431 + .17137, .03615, .01689, .00063, .00030,
1432 + .00017, .00053, .00095,
1433 + .16316, .03409, .01543, .00060, .00028,
1434 + .00017, .00050, .00089 /
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 + .15570, .03224, .01418, .00057, .00027,
1437 + .00016, .00047, .00082,
1438 + .14887, .03057, .01309, .00054, .00027,
1439 + .00016, .00045, .00077,
1440 + .14261, .02904, .01215, .00051, .00026,
1441 + .00015, .00042, .00073,
1442 + .13687, .02766, .01131, .00047, .00024,
1443 + .00015, .00040, .00070,
1444 + .13151, .02639, .01058, .00045, .00023,
1445 + .00015, .00039, .00067 /
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 + .40805, .09996, .11838, .00125, .00019,
1448 + .00004, .00099, .00237,
1449 + .35448, .08370, .08205, .00105, .00027,
1450 + .00003, .00088, .00195,
1451 + .31446, .07207, .06072, .00090, .00030,
1452 + .00003, .00079, .00166,
1453 + .28308, .06329, .04713, .00083, .00031,
1454 + .00005, .00072, .00142,
1455 + .25758, .05637, .03784, .00075, .00032,
1456 + .00009, .00066, .00122,
1457 + .23633, .05074, .03121, .00066, .00030,
1458 + .00012, .00060, .00111,
1459 + .21836, .04610, .02630, .00059, .00029,
1460 + .00013, .00056, .00099 /
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 + .20290, .04217, .02255, .00054, .00028,
1463 + .00013, .00051, .00089,
1464 + .18946, .03882, .01962, .00049, .00026,
1465 + .00013, .00047, .00080,
1466 + .17767, .03594, .01729, .00046, .00026,
1467 + .00015, .00044, .00075,
1468 + .16726, .03342, .01539, .00042, .00025,
1469 + .00013, .00041, .00068,
1470 + .15795, .03122, .01383, .00039, .00023,
1471 + .00013, .00038, .00063,
1472 + .14959, .02926, .01252, .00036, .00021,
1473 + .00013, .00036, .00058,
1474 + .14204, .02752, .01142, .00034, .00021,
1475 + .00013, .00034, .00055 /
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 + .13520, .02596, .01048, .00033, .00020,
1478 + .00013, .00032, .00051,
1479 + .12895, .02454, .00966, .00031, .00019,
1480 + .00012, .00030, .00048,
1481 + .12324, .02326, .00895, .00030, .00018,
1482 + .00012, .00029, .00045,
1483 + .11801, .02210, .00833, .00028, .00018,
1484 + .00011, .00028, .00043,
1485 + .11316, .02104, .00778, .00026, .00017,
1486 + .00012, .00026, .00041 /
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 + .37440, .08535, .09398, .00088, .00008,
1489 + -.00002, .00061, .00155,
1490 + .32246, .07078, .06405, .00074, .00014,
1491 + -.00002, .00053, .00128,
1492 + .28401, .06051, .04686, .00065, .00016,
1493 + -.00001, .00048, .00107,
1494 + .25415, .05280, .03603, .00058, .00017,
1495 + .00002, .00043, .00091,
1496 + .23001, .04677, .02875, .00052, .00017,
1497 + .00003, .00040, .00079,
1498 + .21002, .04190, .02358, .00047, .00016,
1499 + .00005, .00036, .00071,
1500 + .19325, .03787, .01978, .00042, .00016,
1501 + .00005, .00032, .00064 /
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 + .17884, .03451, .01691, .00038, .00015,
1504 + .00006, .00029, .00059,
1505 + .16638, .03165, .01467, .00035, .00014,
1506 + .00006, .00028, .00051,
1507 + .15548, .02921, .01290, .00034, .00014,
1508 + .00006, .00025, .00047,
1509 + .14590, .02708, .01146, .00032, .00013,
1510 + .00007, .00024, .00042,
1511 + .13735, .02521, .01028, .00030, .00012,
1512 + .00007, .00022, .00040,
1513 + .12970, .02356, .00930, .00029, .00012,
1514 + .00007, .00020, .00038,
1515 + .12285, .02209, .00847, .00026, .00012,
1516 + .00007, .00019, .00036 /
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 + .11667, .02078, .00775, .00024, .00011,
1519 + .00006, .00018, .00034,
1520 + .11100, .01960, .00714, .00023, .00010,
1521 + .00006, .00017, .00031,
1522 + .10584, .01854, .00661, .00022, .00010,
1523 + .00006, .00016, .00029,
1524 + .10114, .01758, .00614, .00021, .00010,
1525 + .00006, .00015, .00027,
1526 + .09678, .01670, .00573, .00020, .00009,
1527 + .00005, .00014, .00026 /
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 + .34063, .07174, .07332, .00046, .00009,
1530 + .00004, .00042, .00098,
1531 + .29073, .05898, .04917, .00041, .00012,
1532 + .00004, .00037, .00080,
1533 + .25417, .05002, .03554, .00036, .00013,
1534 + .00003, .00032, .00067,
1535 + .22597, .04337, .02712, .00035, .00013,
1536 + .00004, .00029, .00055,
1537 + .20341, .03818, .02149, .00029, .00013,
1538 + .00004, .00026, .00049,
1539 + .18479, .03402, .01755, .00029, .00012,
1540 + .00006, .00023, .00043,
1541 + .16927, .03061, .01465, .00024, .00011,
1542 + .00006, .00021, .00039 /
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 + .15597, .02779, .01248, .00023, .00011,
1545 + .00006, .00020, .00036,
1546 + .14455, .02538, .01080, .00021, .00010,
1547 + .00006, .00018, .00032,
1548 + .13460, .02333, .00948, .00020, .00010,
1549 + .00005, .00016, .00028,
1550 + .12590, .02156, .00840, .00018, .00009,
1551 + .00005, .00015, .00027,
1552 + .11816, .01999, .00753, .00017, .00009,
1553 + .00005, .00014, .00025,
1554 + .11128, .01863, .00679, .00015, .00008,
1555 + .00005, .00013, .00023,
1556 + .10509, .01742, .00618, .00014, .00008,
1557 + .00005, .00012, .00022 /
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 + .09951, .01635, .00565, .00014, .00008,
1560 + .00004, .00012, .00020,
1561 + .09444, .01539, .00519, .00014, .00007,
1562 + .00005, .00011, .00019,
1563 + .08984, .01451, .00480, .00013, .00006,
1564 + .00004, .00010, .00018,
1565 + .08566, .01372, .00446, .00012, .00006,
1566 + .00004, .00010, .00018,
1567 + .08178, .01301, .00415, .00012, .00006,
1568 + .00004, .00009, .00016 /
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 + .30727, .05962, .05637, .00025, .00008,
1571 + .00005, .00028, .00059,
1572 + .25985, .04854, .03719, .00023, .00010,
1573 + .00006, .00024, .00046,
1574 + .22545, .04084, .02659, .00020, .00011,
1575 + .00004, .00022, .00038,
1576 + .19917, .03516, .02012, .00018, .00009,
1577 + .00003, .00019, .00032,
1578 + .17827, .03076, .01585, .00015, .00009,
1579 + .00005, .00017, .00029,
1580 + .16111, .02726, .01287, .00014, .00009,
1581 + .00005, .00016, .00027,
1582 + .14682, .02442, .01072, .00015, .00008,
1583 + .00005, .00014, .00023 /
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 + .13477, .02205, .00911, .00011, .00007,
1586 + .00005, .00012, .00022,
1587 + .12440, .02006, .00786, .00010, .00007,
1588 + .00005, .00012, .00019,
1589 + .11540, .01837, .00688, .00011, .00007,
1590 + .00004, .00010, .00017,
1591 + .10756, .01690, .00609, .00009, .00006,
1592 + .00004, .00010, .00016,
1593 + .10064, .01564, .00545, .00008, .00006,
1594 + .00004, .00010, .00015,
1595 + .09446, .01452, .00491, .00009, .00006,
1596 + .00004, .00009, .00014,
1597 + .08895, .01354, .00446, .00009, .00005,
1598 + .00004, .00008, .00013 /
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 + .08401, .01266, .00407, .00008, .00005,
1601 + .00004, .00008, .00012,
1602 + .07955, .01189, .00374, .00007, .00005,
1603 + .00004, .00007, .00011,
1604 + .07548, .01119, .00345, .00007, .00005,
1605 + .00003, .00007, .00010,
1606 + .07179, .01056, .00320, .00007, .00005,
1607 + .00003, .00007, .00008,
1608 + .06838, .00998, .00298, .00007, .00005,
1609 + .00003, .00006, .00008 /
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 + .27482, .04901, .04270, .00019, .00004,
1612 + .00001, .00015, .00034,
1613 + .23029, .03951, .02777, .00016, .00003,
1614 + .00001, .00013, .00029,
1615 + .19829, .03296, .01966, .00013, .00004,
1616 + .00000, .00012, .00024,
1617 + .17401, .02819, .01477, .00013, .00004,
1618 + .00001, .00010, .00020,
1619 + .15481, .02452, .01158, .00011, .00004,
1620 + .00001, .00008, .00018,
1621 + .13921, .02162, .00938, .00010, .00004,
1622 + .00001, .00008, .00016,
1623 + .12628, .01926, .00778, .00009, .00004,
1624 + .00001, .00007, .00014 /
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 + .11537, .01732, .00660, .00011, .00004,
1627 + .00002, .00007, .00012,
1628 + .10607, .01569, .00569, .00009, .00004,
1629 + .00002, .00006, .00010,
1630 + .09807, .01431, .00497, .00007, .00003,
1631 + .00002, .00005, .00010,
1632 + .09107, .01312, .00439, .00007, .00003,
1633 + .00002, .00005, .00010,
1634 + .08493, .01209, .00392, .00007, .00003,
1635 + .00002, .00005, .00009,
1636 + .07948, .01120, .00353, .00008, .00003,
1637 + .00002, .00004, .00007,
1638 + .07463, .01041, .00320, .00008, .00003,
1639 + .00002, .00004, .00007 /
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 + .07029, .00971, .00292, .00007, .00003,
1642 + .00002, .00004, .00006,
1643 + .06639, .00909, .00268, .00006, .00002,
1644 + .00002, .00003, .00005,
1645 + .06284, .00853, .00247, .00006, .00002,
1646 + .00001, .00003, .00005,
1647 + .05962, .00803, .00229, .00006, .00002,
1648 + .00001, .00003, .00005,
1649 + .05668, .00757, .00213, .00005, .00002,
1650 + .00001, .00003, .00005 /
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 + .24312, .03954, .03163, .00006, .00005,
1653 + .00005, .00011, .00019,
1654 + .20172, .03154, .02027, .00005, .00004,
1655 + .00004, .00010, .00016,
1656 + .17229, .02611, .01422, .00005, .00004,
1657 + .00003, .00009, .00012,
1658 + .15014, .02217, .01062, .00006, .00004,
1659 + .00003, .00007, .00011,
1660 + .13277, .01915, .00829, .00005, .00004,
1661 + .00003, .00006, .00009,
1662 + .11873, .01679, .00669, .00003, .00003,
1663 + .00003, .00005, .00009,
1664 + .10715, .01488, .00554, .00005, .00004,
1665 + .00002, .00005, .00007 /
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 + .09746, .01331, .00468, .00005, .00003,
1668 + .00003, .00005, .00007,
1669 + .08923, .01201, .00403, .00003, .00003,
1670 + .00002, .00004, .00007,
1671 + .08216, .01091, .00352, .00003, .00003,
1672 + .00002, .00004, .00005,
1673 + .07603, .00996, .00310, .00003, .00003,
1674 + .00002, .00004, .00005,
1675 + .07065, .00915, .00277, .00002, .00003,
1676 + .00002, .00003, .00005,
1677 + .06590, .00845, .00249, .00004, .00002,
1678 + .00002, .00003, .00004,
1679 + .06170, .00783, .00225, .00003, .00002,
1680 + .00002, .00003, .00004 /
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 + .05795, .00728, .00205, .00002, .00002,
1683 + .00002, .00003, .00004,
1684 + .05456, .00679, .00188, .00003, .00002,
1685 + .00002, .00003, .00004,
1686 + .05151, .00636, .00173, .00003, .00002,
1687 + .00002, .00003, .00004,
1688 + .04876, .00597, .00160, .00002, .00002,
1689 + .00001, .00003, .00003,
1690 + .04625, .00561, .00149, .00001, .00002,
1691 + .00001, .00002, .00003 /
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 + .18417, .02457, .01633, .00002, .00000,
1694 + .00000, .00002, .00008,
1695 + .14970, .01918, .01021, .00001, .00001,
1696 + .00000, .00002, .00005,
1697 + .12567, .01559, .00706, .00001, .00001,
1698 + .00000, .00002, .00004,
1699 + .10792, .01303, .00523, .00002, .00001,
1700 + .00000, .00002, .00003,
1701 + .09421, .01111, .00405, .00001, .00001,
1702 + .00001, .00002, .00003,
1703 + .08327, .00962, .00326, .00001, .00001,
1704 + .00001, .00002, .00002,
1705 + .07437, .00843, .00269, .00001, .00001,
1706 + .00001, .00002, .00001 /
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 + .06700, .00747, .00227, .00001, .00001,
1709 + .00001, .00002, .00001,
1710 + .06078, .00667, .00195, .00001, .00001,
1711 + .00001, .00001, .00002,
1712 + .05551, .00601, .00169, .00001, .00001,
1713 + .00001, .00001, .00002,
1714 + .05097, .00545, .00149, .00001, .00001,
1715 + .00001, .00001, .00002,
1716 + .04703, .00497, .00133, .00001, .00001,
1717 + .00001, .00001, .00001,
1718 + .04358, .00455, .00119, .00001, .00001,
1719 + .00001, .00001, .00001,
1720 + .04053, .00419, .00107, .00001, .00001,
1721 + .00001, .00001, .00001 /
1722 DATA ((F(I,42,K),I=1,5),F(7,42,K),F(6,42,K),F(8,42,K),K=15,19)/
1723 + .03783, .00387, .00098, .00001, .00001,
1724 + .00001, .00001, .00001,
1725 + .03541, .00359, .00089, .00001, .00001,
1726 + .00001, .00001, .00001,
1727 + .03325, .00334, .00082, .00001, .00001,
1728 + .00001, .00001, .00001,
1729 + .03131, .00312, .00076, .00001, .00001,
1730 + .00001, .00001, .00001,
1731 + .02955, .00292, .00070, .00000, .00001,
1732 + .00001, .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 + .13190, .01400, .00755, .00002, -.00001,
1735 + -.00001, .00000, .00002,
1736 + .10480, .01068, .00465, .00001, .00000,
1737 + -.00001, .00000, .00001,
1738 + .08636, .00851, .00319, .00000, .00000,
1739 + .00000, .00001, .00001,
1740 + .07296, .00700, .00236, .00002, .00000,
1741 + .00000, .00000, .00000,
1742 + .06280, .00588, .00182, .00001, .00000,
1743 + .00000, .00000, .00000,
1744 + .05480, .00502, .00147, .00001, .00000,
1745 + .00000, .00000, .00001,
1746 + .04839, .00435, .00121, .00000, .00000,
1747 + .00000, .00000, .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 + .04312, .00381, .00102, .00000, .00000,
1750 + .00000, .00000, .00000,
1751 + .03874, .00338, .00087, .00001, .00000,
1752 + .00000, .00000, .00000,
1753 + .03507, .00301, .00076, .00000, .00000,
1754 + .00000, .00000, .00001,
1755 + .03193, .00270, .00066, .00000, .00000,
1756 + .00000, .00000, .00001,
1757 + .02922, .00245, .00059, .00001, .00000,
1758 + .00000, .00000, .00000,
1759 + .02687, .00222, .00053, .00000, .00000,
1760 + .00000, .00000, .00000,
1761 + .02482, .00203, .00047, .00000, .00000,
1762 + .00000, .00000, .00000 /
1763 DATA ((F(I,43,K),I=1,5),F(7,43,K),F(6,43,K),F(8,43,K),K=15,19)/
1764 + .02301, .00186, .00043, .00000, .00000,
1765 + .00000, .00000, .00000,
1766 + .02140, .00172, .00039, .00000, .00000,
1767 + .00000, .00000, .00000,
1768 + .01998, .00159, .00036, .00000, .00000,
1769 + .00000, .00000, .00000,
1770 + .01870, .00148, .00033, .00000, .00000,
1771 + .00000, .00000, .00000,
1772 + .01755, .00137, .00030, .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 + .08773, .00712, .00302, .00001, -.00001,
1776 + -.00001, -.00001, .00001,
1777 + .06793, .00529, .00186, .00001, .00000,
1778 + -.00001, .00000, .00001,
1779 + .05478, .00413, .00128, .00001, .00000,
1780 + -.00001, .00000, .00000,
1781 + .04545, .00333, .00095, .00001, -.00001,
1782 + -.00001, .00000, .00000,
1783 + .03849, .00275, .00074, .00001, .00000,
1784 + .00000, .00000, .00000,
1785 + .03311, .00232, .00059, .00000, .00000,
1786 + .00000, .00000, .00000,
1787 + .02884, .00198, .00049, .00001, .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 + .02541, .00171, .00041, .00000, .00000,
1791 + .00000, .00000, .00000,
1792 + .02258, .00150, .00035, .00000, .00000,
1793 + .00000, .00000, .00000,
1794 + .02022, .00132, .00030, .00000, .00000,
1795 + .00000, .00000, .00000,
1796 + .01823, .00118, .00027, .00000, .00000,
1797 + .00000, .00000, .00000,
1798 + .01654, .00105, .00023, .00000, .00000,
1799 + .00000, .00000, .00000,
1800 + .01508, .00095, .00021, .00000, .00000,
1801 + .00000, .00000, .00000,
1802 + .01382, .00086, .00019, .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 + .01271, .00078, .00017, .00000, .00000,
1806 + .00000, .00000, .00000,
1807 + .01174, .00072, .00015, .00000, .00000,
1808 + .00000, .00000, .00000,
1809 + .01088, .00066, .00014, .00000, .00000,
1810 + .00000, .00000, .00000,
1811 + .01012, .00061, .00013, .00000, .00000,
1812 + .00000, .00000, .00000,
1813 + .00944, .00056, .00012, .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 + .05234, .00306, .00097, .00000, .00000,
1817 + .00001, .00000, -.00001,
1818 + .03933, .00220, .00062, .00000, .00000,
1819 + .00000, .00000, .00000,
1820 + .03093, .00167, .00043, .00000, .00000,
1821 + .00000, .00000, .00000,
1822 + .02512, .00132, .00033, .00000, .00000,
1823 + .00000, .00000, .00000,
1824 + .02087, .00107, .00025, .00000, .00000,
1825 + .00000, .00000, .00000,
1826 + .01765, .00089, .00020, .00000, .00000,
1827 + .00000, .00000, .00000,
1828 + .01514, .00075, .00017, .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 + .01314, .00064, .00014, .00000, .00000,
1832 + .00000, .00000, .00000,
1833 + .01153, .00055, .00012, .00000, .00000,
1834 + .00000, .00000, .00000,
1835 + .01020, .00048, .00010, .00000, .00000,
1836 + .00000, .00000, .00000,
1837 + .00909, .00042, .00009, .00000, .00000,
1838 + .00000, .00000, .00000,
1839 + .00816, .00037, .00008, .00000, .00000,
1840 + .00000, .00000, .00000,
1841 + .00737, .00033, .00007, .00000, .00000,
1842 + .00000, .00000, .00000,
1843 + .00668, .00030, .00006, .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 + .00610, .00027, .00006, .00000, .00000,
1847 + .00000, .00000, .00000,
1848 + .00558, .00025, .00005, .00000, .00000,
1849 + .00000, .00000, .00000,
1850 + .00513, .00022, .00005, .00000, .00000,
1851 + .00000, .00000, .00000,
1852 + .00473, .00020, .00004, .00000, .00000,
1853 + .00000, .00000, .00000,
1854 + .00438, .00019, .00004, .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 + .00998, .00021, .00003, .00000, .00000,
1858 + .00000, .00000, .00000,
1859 + .00686, .00014, .00003, .00000, .00000,
1860 + .00000, .00000, .00000,
1861 + .00501, .00010, .00002, .00000, .00000,
1862 + .00000, .00000, .00000,
1863 + .00382, .00007, .00002, .00000, .00000,
1864 + .00000, .00000, .00000,
1865 + .00300, .00006, .00001, .00000, .00000,
1866 + .00000, .00000, .00000,
1867 + .00241, .00004, .00001, .00000, .00000,
1868 + .00000, .00000, .00000,
1869 + .00198, .00004, .00001, .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 + .00165, .00003, .00001, .00000, .00000,
1873 + .00000, .00000, .00000,
1874 + .00139, .00002, .00001, .00000, .00000,
1875 + .00000, .00000, .00000,
1876 + .00119, .00002, .00001, .00000, .00000,
1877 + .00000, .00000, .00000,
1878 + .00102, .00002, .00000, .00000, .00000,
1879 + .00000, .00000, .00000,
1880 + .00089, .00002, .00000, .00000, .00000,
1881 + .00000, .00000, .00000,
1882 + .00078, .00001, .00000, .00000, .00000,
1883 + .00000, .00000, .00000,
1884 + .00069, .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 + .00061, .00001, .00000, .00000, .00000,
1888 + .00000, .00000, .00000,
1889 + .00055, .00001, .00000, .00000, .00000,
1890 + .00000, .00000, .00000,
1891 + .00049, .00001, .00000, .00000, .00000,
1892 + .00000, .00000, .00000,
1893 + .00044, .00001, .00000, .00000, .00000,
1894 + .00000, .00000, .00000,
1895 + .00040, .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(38,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)
1966C
1967 x=xsave
1968C
1969 RETURN
1970 END