]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/strh1b.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Adding some QCD diffractive states to the PDG list
[u/mrichter/AliRoot.git] / PDF / spdf / strh1b.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:31:03 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:50 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13C-----------------------------------------------------------------------
14 SUBROUTINE STRH1B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15C :::::::::::: HMRS(B) ::::::::::::::::: 190 MEV::::::::::::
16#include "pdf/impdp.inc"
17 DIMENSION F(6,42,19),G(6),XX(42),N0(6)
18 DATA ((F(I,1,K),I=1,6),K=1,19)/
19 + 0.04574, 0.01401, 3.78332, 0.03705, 0.01529, 0.00000,
20 + 0.04583, 0.01480, 7.44979, 0.11624, 0.09317, 0.00000,
21 + 0.04597, 0.01553, 11.82667, 0.22302, 0.19877, 0.00000,
22 + 0.04613, 0.01621, 16.83759, 0.35351, 0.32816, 0.00000,
23 + 0.04632, 0.01684, 22.23625, 0.49656, 0.47247, 0.00678,
24 + 0.04652, 0.01743, 28.00661, 0.63049, 0.63148, 0.08486,
25 + 0.04673, 0.01800, 34.08723, 0.75239, 0.80352, 0.23791,
26 + 0.04696, 0.01855, 40.42050, 0.88657, 0.98694, 0.38816,
27 + 0.04719, 0.01907, 46.95706, 1.02743, 1.18029, 0.54801,
28 + 0.04743, 0.01957, 53.56265, 1.17269, 1.37934, 0.71167,
29 + 0.04767, 0.02005, 60.28923, 1.32344, 1.58580, 0.88098,
30 + 0.04792, 0.02052, 67.12621, 1.47943, 1.79932, 1.05568,
31 + 0.04817, 0.02097, 74.03026, 1.63958, 2.01846, 1.23462,
32 + 0.04842, 0.02140, 80.86339, 1.80069, 2.23883, 1.41431,
33 + 0.04867, 0.02183, 87.78844, 1.96642, 2.46544, 1.59882,
34 + 0.04893, 0.02224, 94.65599, 2.13324, 2.69348, 1.78428,
35 + 0.04918, 0.02264,101.50505, 2.30199, 2.92411, 1.97165,
36 + 0.04943, 0.02303,108.35330, 2.47295, 3.15771, 2.16125,
37 + 0.04968, 0.02341,115.10117, 2.64375, 3.39106, 2.35052/
38 DATA ((F(I,2,K),I=1,6),K=1,19)/
39 + 0.05265, 0.01883, 3.67866, 0.04527, 0.01634, 0.00000,
40 + 0.05306, 0.01986, 6.79273, 0.12172, 0.09128, 0.00000,
41 + 0.05348, 0.02080, 10.33414, 0.21683, 0.18503, 0.00000,
42 + 0.05389, 0.02167, 14.24124, 0.32750, 0.29446, 0.00000,
43 + 0.05431, 0.02248, 18.32507, 0.44485, 0.41249, 0.00548,
44 + 0.05473, 0.02324, 22.58011, 0.55196, 0.53918, 0.06741,
45 + 0.05514, 0.02396, 26.96515, 0.64713, 0.67330, 0.18724,
46 + 0.05556, 0.02465, 31.44249, 0.75000, 0.81364, 0.30249,
47 + 0.05596, 0.02531, 35.98160, 0.85618, 0.95918, 0.42322,
48 + 0.05638, 0.02594, 40.49191, 0.96407, 1.10683, 0.54504,
49 + 0.05678, 0.02655, 45.01662, 1.07455, 1.25797, 0.66943,
50 + 0.05718, 0.02713, 49.55295, 1.18747, 1.41239, 0.79623,
51 + 0.05758, 0.02769, 54.07498, 1.30212, 1.56912, 0.92467,
52 + 0.05797, 0.02823, 58.49271, 1.41623, 1.72507, 1.05230,
53 + 0.05836, 0.02876, 62.92191, 1.53249, 1.88392, 1.18211,
54 + 0.05874, 0.02927, 67.26494, 1.64844, 2.04232, 1.31140,
55 + 0.05912, 0.02976, 71.55196, 1.76473, 2.20114, 1.44089,
56 + 0.05950, 0.03024, 75.79805, 1.88160, 2.36074, 1.57090,
57 + 0.05987, 0.03071, 79.94044, 1.99744, 2.51891, 1.69964/
58 DATA ((F(I,3,K),I=1,6),K=1,19)/
59 + 0.06032, 0.02531, 3.57497, 0.05532, 0.01703, 0.00000,
60 + 0.06115, 0.02665, 6.18963, 0.12773, 0.08771, 0.00000,
61 + 0.06195, 0.02786, 9.02308, 0.21119, 0.16962, 0.00000,
62 + 0.06272, 0.02898, 12.03482, 0.30385, 0.26088, 0.00000,
63 + 0.06346, 0.03001, 15.08739, 0.39900, 0.35621, 0.00439,
64 + 0.06417, 0.03098, 18.18623, 0.48373, 0.45595, 0.05297,
65 + 0.06487, 0.03189, 21.30760, 0.55723, 0.55930, 0.14581,
66 + 0.06554, 0.03276, 24.43015, 0.63527, 0.66547, 0.23330,
67 + 0.06620, 0.03359, 27.53772, 0.71448, 0.77379, 0.32356,
68 + 0.06685, 0.03438, 30.57178, 0.79378, 0.88208, 0.41331,
69 + 0.06748, 0.03513, 33.56853, 0.87389, 0.99147, 0.50376,
70 + 0.06809, 0.03586, 36.53035, 0.95476, 1.10188, 0.59485,
71 + 0.06869, 0.03655, 39.44325, 1.03595, 1.21269, 0.68609,
72 + 0.06928, 0.03722, 42.24977, 1.11587, 1.32177, 0.77580,
73 + 0.06985, 0.03787, 45.03233, 1.19652, 1.43182, 0.86616,
74 + 0.07042, 0.03850, 47.72797, 1.27620, 1.54052, 0.95532,
75 + 0.07097, 0.03910, 50.35994, 1.35540, 1.64857, 1.04385,
76 + 0.07151, 0.03969, 52.94081, 1.43435, 1.75628, 1.13201,
77 + 0.07204, 0.04026, 55.43167, 1.51197, 1.86215, 1.21861/
78 DATA ((F(I,4,K),I=1,6),K=1,19)/
79 + 0.06517, 0.03010, 3.51411, 0.06221, 0.01718, 0.00000,
80 + 0.06632, 0.03165, 5.85884, 0.13155, 0.08467, 0.00000,
81 + 0.06741, 0.03305, 8.32942, 0.20821, 0.15968, 0.00000,
82 + 0.06843, 0.03434, 10.89840, 0.29112, 0.24109, 0.00000,
83 + 0.06941, 0.03553, 13.45492, 0.37474, 0.32463, 0.00383,
84 + 0.07035, 0.03665, 16.01010, 0.44815, 0.41077, 0.04572,
85 + 0.07125, 0.03769, 18.54872, 0.51097, 0.49893, 0.12522,
86 + 0.07213, 0.03868, 21.05713, 0.57697, 0.58853, 0.19927,
87 + 0.07297, 0.03963, 23.52573, 0.64329, 0.67907, 0.27496,
88 + 0.07379, 0.04052, 25.91005, 0.70912, 0.76882, 0.34960,
89 + 0.07459, 0.04138, 28.24280, 0.77509, 0.85877, 0.42423,
90 + 0.07536, 0.04220, 30.52843, 0.84121, 0.94892, 0.49887,
91 + 0.07611, 0.04299, 32.75760, 0.90713, 1.03878, 0.57313,
92 + 0.07685, 0.04374, 34.88687, 0.97161, 1.12667, 0.64568,
93 + 0.07756, 0.04447, 36.98360, 1.03631, 1.21485, 0.71835,
94 + 0.07826, 0.04518, 38.99945, 1.09985, 1.30146, 0.78965,
95 + 0.07894, 0.04586, 40.95441, 1.16269, 1.38710, 0.86008,
96 + 0.07960, 0.04651, 42.85948, 1.22502, 1.47205, 0.92987,
97 + 0.08025, 0.04715, 44.68547, 1.28599, 1.55515, 0.99810/
98 DATA ((F(I,5,K),I=1,6),K=1,19)/
99 + 0.06880, 0.03403, 3.47049, 0.06760, 0.01715, 0.00000,
100 + 0.07021, 0.03576, 5.63280, 0.13443, 0.08204, 0.00000,
101 + 0.07153, 0.03732, 7.86636, 0.20627, 0.15216, 0.00000,
102 + 0.07278, 0.03874, 10.15266, 0.28260, 0.22693, 0.00000,
103 + 0.07395, 0.04006, 12.39806, 0.35863, 0.30271, 0.00346,
104 + 0.07507, 0.04128, 14.61715, 0.42472, 0.38006, 0.04106,
105 + 0.07615, 0.04243, 16.79994, 0.48073, 0.45854, 0.11206,
106 + 0.07718, 0.04352, 18.93750, 0.53914, 0.53770, 0.17764,
107 + 0.07818, 0.04455, 21.02394, 0.59742, 0.61715, 0.24425,
108 + 0.07915, 0.04553, 23.02324, 0.65492, 0.69544, 0.30954,
109 + 0.08008, 0.04647, 24.96574, 0.71221, 0.77346, 0.37446,
110 + 0.08098, 0.04736, 26.85672, 0.76933, 0.85124, 0.43905,
111 + 0.08186, 0.04822, 28.68982, 0.82600, 0.92842, 0.50302,
112 + 0.08271, 0.04904, 30.42937, 0.88117, 1.00355, 0.56523,
113 + 0.08354, 0.04983, 32.13374, 0.93629, 1.07862, 0.62728,
114 + 0.08435, 0.05059, 33.76312, 0.99022, 1.15205, 0.68793,
115 + 0.08513, 0.05133, 35.33519, 1.04333, 1.22438, 0.74760,
116 + 0.08590, 0.05204, 36.86005, 1.09584, 1.29589, 0.80653,
117 + 0.08665, 0.05273, 38.31403, 1.14702, 1.36558, 0.86394/
118 DATA ((F(I,6,K),I=1,6),K=1,19)/
119 + 0.07174, 0.03744, 3.43619, 0.07210, 0.01703, 0.00000,
120 + 0.07337, 0.03931, 5.46192, 0.13677, 0.07969, 0.00000,
121 + 0.07490, 0.04099, 7.52240, 0.20489, 0.14604, 0.00000,
122 + 0.07633, 0.04253, 9.60580, 0.27629, 0.21585, 0.00000,
123 + 0.07768, 0.04395, 11.63082, 0.34675, 0.28595, 0.00320,
124 + 0.07896, 0.04527, 13.61438, 0.40755, 0.35694, 0.03770,
125 + 0.08018, 0.04651, 15.55015, 0.45867, 0.42849, 0.10261,
126 + 0.08135, 0.04768, 17.43233, 0.51169, 0.50024, 0.16218,
127 + 0.08248, 0.04878, 19.25757, 0.56430, 0.57187, 0.22239,
128 + 0.08357, 0.04983, 20.99544, 0.61595, 0.64212, 0.28112,
129 + 0.08463, 0.05083, 22.67453, 0.66719, 0.71182, 0.33928,
130 + 0.08564, 0.05179, 24.30077, 0.71807, 0.78104, 0.39691,
131 + 0.08663, 0.05270, 25.86943, 0.76835, 0.84946, 0.45377,
132 + 0.08759, 0.05358, 27.35023, 0.81712, 0.91582, 0.50887,
133 + 0.08851, 0.05442, 28.79524, 0.86569, 0.98191, 0.56365,
134 + 0.08942, 0.05523, 30.17026, 0.91305, 1.04636, 0.61702,
135 + 0.09029, 0.05601, 31.49141, 0.95956, 1.10965, 0.66939,
136 + 0.09115, 0.05676, 32.76807, 1.00540, 1.17205, 0.72095,
137 + 0.09198, 0.05749, 33.98010, 1.04996, 1.23269, 0.77104/
138 DATA ((F(I,7,K),I=1,6),K=1,19)/
139 + 0.08175, 0.05035, 3.32503, 0.08794, 0.01603, 0.00000,
140 + 0.08424, 0.05275, 4.95133, 0.14474, 0.07066, 0.00000,
141 + 0.08654, 0.05489, 6.52810, 0.20135, 0.12539, 0.00000,
142 + 0.08868, 0.05684, 8.06148, 0.25845, 0.18082, 0.00000,
143 + 0.09067, 0.05861, 9.50291, 0.31328, 0.23499, 0.00247,
144 + 0.09256, 0.06026, 10.87475, 0.35948, 0.28855, 0.02855,
145 + 0.09435, 0.06179, 12.17946, 0.39743, 0.34145, 0.07707,
146 + 0.09605, 0.06324, 13.41866, 0.43609, 0.39353, 0.12071,
147 + 0.09768, 0.06459, 14.59475, 0.47380, 0.44468, 0.16413,
148 + 0.09925, 0.06588, 15.69085, 0.51026, 0.49410, 0.20587,
149 + 0.10075, 0.06709, 16.73024, 0.54591, 0.54245, 0.24664,
150 + 0.10219, 0.06825, 17.71971, 0.58086, 0.58985, 0.28653,
151 + 0.10359, 0.06936, 18.65834, 0.61497, 0.63615, 0.32543,
152 + 0.10493, 0.07041, 19.52817, 0.64766, 0.68053, 0.36269,
153 + 0.10623, 0.07142, 20.36560, 0.67988, 0.72429, 0.39936,
154 + 0.10748, 0.07238, 21.14958, 0.71096, 0.76650, 0.43472,
155 + 0.10870, 0.07331, 21.89204, 0.74118, 0.80757, 0.46909,
156 + 0.10988, 0.07420, 22.60011, 0.77071, 0.84769, 0.50264,
157 + 0.11103, 0.07506, 23.26193, 0.79912, 0.88632, 0.53492/
158 DATA ((F(I,8,K),I=1,6),K=1,19)/
159 + 0.09411, 0.06777, 3.20020, 0.10684, 0.01397, 0.00000,
160 + 0.09778, 0.07078, 4.45951, 0.15403, 0.05899, 0.00000,
161 + 0.10113, 0.07346, 5.62203, 0.19933, 0.10245, 0.00000,
162 + 0.10423, 0.07588, 6.70688, 0.24352, 0.14505, 0.00000,
163 + 0.10711, 0.07806, 7.69021, 0.28490, 0.18566, 0.00185,
164 + 0.10980, 0.08007, 8.59676, 0.31896, 0.22491, 0.02109,
165 + 0.11235, 0.08193, 9.43437, 0.34623, 0.26287, 0.05648,
166 + 0.11476, 0.08367, 10.20893, 0.37352, 0.29956, 0.08766,
167 + 0.11706, 0.08530, 10.92601, 0.39967, 0.33498, 0.11819,
168 + 0.11925, 0.08683, 11.57743, 0.42453, 0.36867, 0.14709,
169 + 0.12134, 0.08827, 12.18159, 0.44847, 0.40114, 0.17491,
170 + 0.12335, 0.08963, 12.74499, 0.47161, 0.43255, 0.20178,
171 + 0.12527, 0.09092, 13.26873, 0.49391, 0.46284, 0.22764,
172 + 0.12711, 0.09215, 13.74260, 0.51498, 0.49149, 0.25212,
173 + 0.12889, 0.09332, 14.19141, 0.53552, 0.51943, 0.27594,
174 + 0.13060, 0.09443, 14.60262, 0.55510, 0.54609, 0.29866,
175 + 0.13225, 0.09550, 14.98475, 0.57392, 0.57174, 0.32052,
176 + 0.13385, 0.09652, 15.34300, 0.59213, 0.59656, 0.34164,
177 + 0.13539, 0.09749, 15.67058, 0.60946, 0.62020, 0.36178/
178 DATA ((F(I,9,K),I=1,6),K=1,19)/
179 + 0.10357, 0.08067, 3.11537, 0.11927, 0.01233, 0.00000,
180 + 0.10815, 0.08408, 4.17223, 0.16022, 0.05126, 0.00000,
181 + 0.11231, 0.08709, 5.11878, 0.19904, 0.08842, 0.00000,
182 + 0.11613, 0.08978, 5.97918, 0.23627, 0.12424, 0.00000,
183 + 0.11967, 0.09221, 6.74062, 0.27064, 0.15792, 0.00155,
184 + 0.12297, 0.09442, 7.42789, 0.29851, 0.19003, 0.01740,
185 + 0.12607, 0.09647, 8.05054, 0.32044, 0.22070, 0.04635,
186 + 0.12900, 0.09837, 8.61579, 0.34215, 0.25001, 0.07156,
187 + 0.13178, 0.10014, 9.13005, 0.36272, 0.27800, 0.09598,
188 + 0.13442, 0.10179, 9.58852, 0.38207, 0.30435, 0.11888,
189 + 0.13693, 0.10334, 10.00690, 0.40052, 0.32952, 0.14073,
190 + 0.13933, 0.10480, 10.39119, 0.41819, 0.35365, 0.16165,
191 + 0.14162, 0.10619, 10.74296, 0.43506, 0.37673, 0.18163,
192 + 0.14381, 0.10749, 11.05516, 0.45086, 0.39838, 0.20039,
193 + 0.14592, 0.10873, 11.34723, 0.46615, 0.41934, 0.21852,
194 + 0.14794, 0.10991, 11.61008, 0.48060, 0.43918, 0.23569,
195 + 0.14989, 0.11103, 11.85054, 0.49440, 0.45815, 0.25209,
196 + 0.15176, 0.11210, 12.07276, 0.50765, 0.47638, 0.26785,
197 + 0.15357, 0.11311, 12.27197, 0.52016, 0.49362, 0.28277/
198 DATA ((F(I,10,K),I=1,6),K=1,19)/
199 + 0.11261, 0.09135, 3.04669, 0.12871, 0.01124, 0.00000,
200 + 0.11802, 0.09503, 3.96303, 0.16545, 0.04625, 0.00000,
201 + 0.12291, 0.09825, 4.76451, 0.19989, 0.07929, 0.00000,
202 + 0.12739, 0.10112, 5.47809, 0.23245, 0.11070, 0.00000,
203 + 0.13150, 0.10370, 6.09756, 0.26217, 0.13991, 0.00135,
204 + 0.13532, 0.10604, 6.64704, 0.28595, 0.16744, 0.01503,
205 + 0.13889, 0.10818, 7.13679, 0.30439, 0.19349, 0.03988,
206 + 0.14226, 0.11017, 7.57452, 0.32249, 0.21815, 0.06131,
207 + 0.14544, 0.11202, 7.96680, 0.33947, 0.24150, 0.08191,
208 + 0.14844, 0.11373, 8.31082, 0.35531, 0.26331, 0.10108,
209 + 0.15129, 0.11533, 8.62016, 0.37030, 0.28398, 0.11924,
210 + 0.15400, 0.11684, 8.90041, 0.38454, 0.30367, 0.13651,
211 + 0.15659, 0.11825, 9.15334, 0.39804, 0.32237, 0.15291,
212 + 0.15905, 0.11958, 9.37363, 0.41059, 0.33980, 0.16821,
213 + 0.16141, 0.12084, 9.57736, 0.42265, 0.35658, 0.18292,
214 + 0.16367, 0.12203, 9.75742, 0.43398, 0.37236, 0.19676,
215 + 0.16583, 0.12316, 9.91951, 0.44472, 0.38736, 0.20992,
216 + 0.16792, 0.12424, 10.06711, 0.45498, 0.40171, 0.22251,
217 + 0.16992, 0.12526, 10.19651, 0.46460, 0.41520, 0.23436/
218 DATA ((F(I,11,K),I=1,6),K=1,19)/
219 + 0.12165, 0.10064, 2.98697, 0.13629, 0.01055, 0.00000,
220 + 0.12786, 0.10451, 3.79585, 0.17003, 0.04290, 0.00000,
221 + 0.13343, 0.10788, 4.48910, 0.20117, 0.07296, 0.00000,
222 + 0.13850, 0.11087, 5.09542, 0.23023, 0.10117, 0.00000,
223 + 0.14314, 0.11353, 5.61288, 0.25645, 0.12712, 0.00120,
224 + 0.14742, 0.11594, 6.06484, 0.27718, 0.15136, 0.01331,
225 + 0.15141, 0.11814, 6.46177, 0.29304, 0.17408, 0.03520,
226 + 0.15516, 0.12016, 6.81148, 0.30848, 0.19543, 0.05392,
227 + 0.15868, 0.12204, 7.12050, 0.32286, 0.21549, 0.07180,
228 + 0.16199, 0.12377, 7.38714, 0.33615, 0.23411, 0.08833,
229 + 0.16512, 0.12538, 7.62354, 0.34865, 0.25164, 0.10390,
230 + 0.16810, 0.12689, 7.83479, 0.36044, 0.26824, 0.11863,
231 + 0.17092, 0.12831, 8.02271, 0.37155, 0.28391, 0.13253,
232 + 0.17360, 0.12963, 8.18309, 0.38180, 0.29843, 0.14544,
233 + 0.17617, 0.13088, 8.32963, 0.39160, 0.31234, 0.15779,
234 + 0.17861, 0.13206, 8.45653, 0.40074, 0.32536, 0.16936,
235 + 0.18095, 0.13317, 8.56867, 0.40936, 0.33767, 0.18031,
236 + 0.18319, 0.13423, 8.66905, 0.41755, 0.34940, 0.19075,
237 + 0.18533, 0.13522, 8.75464, 0.42518, 0.36037, 0.20052/
238 DATA ((F(I,12,K),I=1,6),K=1,19)/
239 + 0.16333, 0.13604, 2.75312, 0.15771, 0.00806, 0.00000,
240 + 0.17239, 0.14024, 3.24960, 0.18109, 0.03178, 0.00000,
241 + 0.18033, 0.14381, 3.64411, 0.20172, 0.05290, 0.00000,
242 + 0.18742, 0.14689, 3.96605, 0.22018, 0.07194, 0.00000,
243 + 0.19376, 0.14957, 4.22189, 0.23621, 0.08888, 0.00080,
244 + 0.19951, 0.15195, 4.43079, 0.24824, 0.10421, 0.00865,
245 + 0.20479, 0.15407, 4.60210, 0.25683, 0.11818, 0.02264,
246 + 0.20967, 0.15598, 4.74273, 0.26498, 0.13094, 0.03429,
247 + 0.21419, 0.15772, 4.85826, 0.27233, 0.14265, 0.04515,
248 + 0.21836, 0.15928, 4.94870, 0.27889, 0.15325, 0.05500,
249 + 0.22226, 0.16070, 5.02213, 0.28487, 0.16301, 0.06408,
250 + 0.22591, 0.16201, 5.08195, 0.29036, 0.17205, 0.07251,
251 + 0.22935, 0.16322, 5.12957, 0.29539, 0.18042, 0.08033,
252 + 0.23254, 0.16431, 5.16313, 0.29985, 0.18800, 0.08745,
253 + 0.23558, 0.16534, 5.19037, 0.30403, 0.19513, 0.09416,
254 + 0.23844, 0.16627, 5.20833, 0.30779, 0.20168, 0.10034,
255 + 0.24113, 0.16714, 5.21970, 0.31123, 0.20775, 0.10610,
256 + 0.24369, 0.16795, 5.22619, 0.31442, 0.21343, 0.11150,
257 + 0.24611, 0.16869, 5.22626, 0.31727, 0.21865, 0.11648/
258 DATA ((F(I,13,K),I=1,6),K=1,19)/
259 + 0.24459, 0.18331, 2.40477, 0.16610, 0.00563, 0.00000,
260 + 0.25604, 0.18678, 2.62843, 0.17873, 0.02150, 0.00000,
261 + 0.26571, 0.18953, 2.78248, 0.18911, 0.03487, 0.00000,
262 + 0.27406, 0.19178, 2.89083, 0.19782, 0.04635, 0.00000,
263 + 0.28126, 0.19359, 2.96146, 0.20486, 0.05614, 0.00048,
264 + 0.28761, 0.19508, 3.00721, 0.20942, 0.06464, 0.00503,
265 + 0.29326, 0.19632, 3.03438, 0.21193, 0.07211, 0.01299,
266 + 0.29832, 0.19736, 3.04747, 0.21420, 0.07870, 0.01941,
267 + 0.30289, 0.19823, 3.04985, 0.21604, 0.08454, 0.02523,
268 + 0.30697, 0.19893, 3.04202, 0.21746, 0.08965, 0.03037,
269 + 0.31067, 0.19951, 3.02819, 0.21860, 0.09421, 0.03499,
270 + 0.31406, 0.19999, 3.01011, 0.21952, 0.09831, 0.03918,
271 + 0.31717, 0.20039, 2.98846, 0.22022, 0.10200, 0.04298,
272 + 0.31996, 0.20067, 2.96234, 0.22067, 0.10522, 0.04635,
273 + 0.32256, 0.20091, 2.93540, 0.22102, 0.10818, 0.04947,
274 + 0.32491, 0.20108, 2.90614, 0.22119, 0.11080, 0.05227,
275 + 0.32709, 0.20119, 2.87577, 0.22124, 0.11316, 0.05482,
276 + 0.32911, 0.20126, 2.84499, 0.22120, 0.11531, 0.05718,
277 + 0.33094, 0.20128, 2.81304, 0.22104, 0.11721, 0.05930/
278 DATA ((F(I,14,K),I=1,6),K=1,19)/
279 + 0.31979, 0.21594, 2.12178, 0.15723, 0.00424, 0.00000,
280 + 0.33083, 0.21786, 2.21401, 0.16380, 0.01586, 0.00000,
281 + 0.33979, 0.21913, 2.26097, 0.16873, 0.02530, 0.00000,
282 + 0.34723, 0.21997, 2.28060, 0.17252, 0.03314, 0.00000,
283 + 0.35338, 0.22047, 2.27918, 0.17520, 0.03961, 0.00032,
284 + 0.35859, 0.22070, 2.26523, 0.17628, 0.04507, 0.00336,
285 + 0.36305, 0.22074, 2.24277, 0.17607, 0.04973, 0.00862,
286 + 0.36687, 0.22064, 2.21449, 0.17580, 0.05374, 0.01276,
287 + 0.37018, 0.22041, 2.18245, 0.17532, 0.05720, 0.01645,
288 + 0.37299, 0.22006, 2.14672, 0.17465, 0.06015, 0.01965,
289 + 0.37542, 0.21963, 2.10978, 0.17387, 0.06270, 0.02246,
290 + 0.37754, 0.21915, 2.07249, 0.17303, 0.06493, 0.02497,
291 + 0.37938, 0.21862, 2.03507, 0.17211, 0.06690, 0.02721,
292 + 0.38092, 0.21802, 1.99681, 0.17110, 0.06855, 0.02916,
293 + 0.38228, 0.21741, 1.95975, 0.17008, 0.07004, 0.03094,
294 + 0.38342, 0.21676, 1.92289, 0.16901, 0.07131, 0.03250,
295 + 0.38440, 0.21608, 1.88679, 0.16791, 0.07242, 0.03391,
296 + 0.38524, 0.21539, 1.85174, 0.16680, 0.07340, 0.03519,
297 + 0.38591, 0.21468, 1.81722, 0.16567, 0.07423, 0.03631/
298 DATA ((F(I,15,K),I=1,6),K=1,19)/
299 + 0.38671, 0.23943, 1.87713, 0.14198, 0.00330, 0.00000,
300 + 0.39556, 0.23941, 1.89377, 0.14480, 0.01215, 0.00000,
301 + 0.40229, 0.23894, 1.88287, 0.14651, 0.01913, 0.00000,
302 + 0.40755, 0.23819, 1.85738, 0.14749, 0.02478, 0.00000,
303 + 0.41158, 0.23720, 1.82160, 0.14777, 0.02932, 0.00023,
304 + 0.41473, 0.23606, 1.78098, 0.14702, 0.03305, 0.00239,
305 + 0.41716, 0.23484, 1.73778, 0.14546, 0.03616, 0.00609,
306 + 0.41906, 0.23353, 1.69352, 0.14395, 0.03877, 0.00895,
307 + 0.42048, 0.23219, 1.64928, 0.14238, 0.04097, 0.01146,
308 + 0.42146, 0.23078, 1.60484, 0.14076, 0.04279, 0.01359,
309 + 0.42212, 0.22936, 1.56160, 0.13915, 0.04433, 0.01545,
310 + 0.42254, 0.22795, 1.51993, 0.13755, 0.04564, 0.01708,
311 + 0.42274, 0.22654, 1.47977, 0.13597, 0.04676, 0.01852,
312 + 0.42269, 0.22509, 1.44050, 0.13437, 0.04767, 0.01975,
313 + 0.42253, 0.22368, 1.40326, 0.13282, 0.04847, 0.02085,
314 + 0.42220, 0.22226, 1.36729, 0.13129, 0.04912, 0.02181,
315 + 0.42174, 0.22086, 1.33284, 0.12978, 0.04966, 0.02266,
316 + 0.42121, 0.21948, 1.29998, 0.12831, 0.05012, 0.02341,
317 + 0.42054, 0.21811, 1.26830, 0.12686, 0.05048, 0.02407/
318 DATA ((F(I,16,K),I=1,6),K=1,19)/
319 + 0.44430, 0.25593, 1.66119, 0.12464, 0.00261, 0.00000,
320 + 0.44982, 0.25383, 1.63158, 0.12511, 0.00950, 0.00000,
321 + 0.45343, 0.25152, 1.58750, 0.12489, 0.01480, 0.00000,
322 + 0.45577, 0.24912, 1.53785, 0.12425, 0.01899, 0.00000,
323 + 0.45706, 0.24665, 1.48505, 0.12321, 0.02227, 0.00017,
324 + 0.45764, 0.24416, 1.43238, 0.12151, 0.02491, 0.00176,
325 + 0.45766, 0.24170, 1.38085, 0.11931, 0.02706, 0.00445,
326 + 0.45726, 0.23925, 1.33111, 0.11723, 0.02883, 0.00651,
327 + 0.45652, 0.23685, 1.28356, 0.11519, 0.03029, 0.00828,
328 + 0.45545, 0.23446, 1.23778, 0.11320, 0.03145, 0.00977,
329 + 0.45416, 0.23213, 1.19448, 0.11126, 0.03241, 0.01105,
330 + 0.45273, 0.22986, 1.15370, 0.10939, 0.03321, 0.01216,
331 + 0.45118, 0.22765, 1.11521, 0.10759, 0.03387, 0.01312,
332 + 0.44944, 0.22546, 1.07845, 0.10582, 0.03438, 0.01394,
333 + 0.44769, 0.22335, 1.04405, 0.10413, 0.03481, 0.01466,
334 + 0.44583, 0.22126, 1.01138, 0.10248, 0.03513, 0.01528,
335 + 0.44392, 0.21924, 0.98051, 0.10089, 0.03539, 0.01581,
336 + 0.44199, 0.21727, 0.95138, 0.09936, 0.03559, 0.01628,
337 + 0.43998, 0.21533, 0.92368, 0.09787, 0.03572, 0.01668/
338 DATA ((F(I,17,K),I=1,6),K=1,19)/
339 + 0.50285, 0.26861, 1.42406, 0.10292, 0.00199, 0.00001,
340 + 0.50324, 0.26391, 1.36066, 0.10174, 0.00712, 0.00001,
341 + 0.50222, 0.25934, 1.29441, 0.10023, 0.01096, 0.00000,
342 + 0.50039, 0.25496, 1.23023, 0.09856, 0.01391, 0.00001,
343 + 0.49787, 0.25074, 1.16867, 0.09674, 0.01616, 0.00013,
344 + 0.49496, 0.24669, 1.11108, 0.09455, 0.01793, 0.00124,
345 + 0.49175, 0.24281, 1.05741, 0.09212, 0.01933, 0.00311,
346 + 0.48834, 0.23909, 1.00753, 0.08986, 0.02045, 0.00452,
347 + 0.48481, 0.23553, 0.96131, 0.08771, 0.02134, 0.00571,
348 + 0.48113, 0.23206, 0.91813, 0.08564, 0.02202, 0.00670,
349 + 0.47741, 0.22874, 0.87816, 0.08368, 0.02257, 0.00753,
350 + 0.47370, 0.22556, 0.84121, 0.08182, 0.02300, 0.00825,
351 + 0.47000, 0.22250, 0.80693, 0.08004, 0.02334, 0.00886,
352 + 0.46624, 0.21953, 0.77481, 0.07834, 0.02358, 0.00936,
353 + 0.46258, 0.21669, 0.74511, 0.07672, 0.02377, 0.00980,
354 + 0.45891, 0.21394, 0.71730, 0.07517, 0.02389, 0.01017,
355 + 0.45529, 0.21128, 0.69133, 0.07369, 0.02397, 0.01049,
356 + 0.45172, 0.20873, 0.66707, 0.07228, 0.02401, 0.01076,
357 + 0.44818, 0.20625, 0.64427, 0.07091, 0.02402, 0.01098/
358 DATA ((F(I,18,K),I=1,6),K=1,19)/
359 + 0.54644, 0.27388, 1.21772, 0.08307, 0.00152, 0.00001,
360 + 0.54122, 0.26674, 1.13669, 0.08111, 0.00539, 0.00001,
361 + 0.53532, 0.26010, 1.06075, 0.07905, 0.00820, 0.00001,
362 + 0.52915, 0.25395, 0.99175, 0.07700, 0.01032, 0.00001,
363 + 0.52275, 0.24820, 0.92887, 0.07494, 0.01189, 0.00009,
364 + 0.51636, 0.24281, 0.87215, 0.07271, 0.01309, 0.00089,
365 + 0.51000, 0.23774, 0.82076, 0.07037, 0.01402, 0.00221,
366 + 0.50371, 0.23294, 0.77418, 0.06822, 0.01474, 0.00320,
367 + 0.49753, 0.22842, 0.73189, 0.06621, 0.01529, 0.00401,
368 + 0.49139, 0.22410, 0.69313, 0.06430, 0.01570, 0.00468,
369 + 0.48542, 0.21999, 0.65783, 0.06251, 0.01601, 0.00524,
370 + 0.47962, 0.21609, 0.62563, 0.06083, 0.01624, 0.00571,
371 + 0.47399, 0.21240, 0.59613, 0.05925, 0.01641, 0.00611,
372 + 0.46843, 0.20883, 0.56887, 0.05774, 0.01651, 0.00643,
373 + 0.46308, 0.20544, 0.54387, 0.05632, 0.01657, 0.00671,
374 + 0.45784, 0.20219, 0.52072, 0.05497, 0.01659, 0.00693,
375 + 0.45273, 0.19907, 0.49929, 0.05369, 0.01659, 0.00712,
376 + 0.44777, 0.19610, 0.47944, 0.05247, 0.01657, 0.00729,
377 + 0.44293, 0.19323, 0.46094, 0.05131, 0.01652, 0.00742/
378 DATA ((F(I,19,K),I=1,6),K=1,19)/
379 + 0.57591, 0.27299, 1.03779, 0.06582, 0.00117, 0.00000,
380 + 0.56507, 0.26368, 0.94919, 0.06361, 0.00409, 0.00000,
381 + 0.55434, 0.25527, 0.87084, 0.06144, 0.00617, 0.00000,
382 + 0.54400, 0.24762, 0.80245, 0.05936, 0.00770, 0.00000,
383 + 0.53397, 0.24060, 0.74213, 0.05735, 0.00881, 0.00006,
384 + 0.52433, 0.23411, 0.68903, 0.05529, 0.00964, 0.00064,
385 + 0.51505, 0.22809, 0.64200, 0.05320, 0.01026, 0.00159,
386 + 0.50616, 0.22248, 0.60007, 0.05129, 0.01073, 0.00229,
387 + 0.49763, 0.21720, 0.56261, 0.04953, 0.01108, 0.00286,
388 + 0.48936, 0.21223, 0.52880, 0.04787, 0.01131, 0.00332,
389 + 0.48142, 0.20755, 0.49838, 0.04633, 0.01149, 0.00370,
390 + 0.47382, 0.20314, 0.47094, 0.04490, 0.01160, 0.00402,
391 + 0.46656, 0.19897, 0.44606, 0.04355, 0.01167, 0.00428,
392 + 0.45947, 0.19500, 0.42330, 0.04229, 0.01170, 0.00449,
393 + 0.45271, 0.19125, 0.40259, 0.04110, 0.01171, 0.00466,
394 + 0.44618, 0.18767, 0.38359, 0.03997, 0.01168, 0.00481,
395 + 0.43989, 0.18425, 0.36613, 0.03891, 0.01164, 0.00492,
396 + 0.43384, 0.18100, 0.35005, 0.03791, 0.01159, 0.00502,
397 + 0.42795, 0.17788, 0.33518, 0.03696, 0.01152, 0.00509/
398 DATA ((F(I,20,K),I=1,6),K=1,19)/
399 + 0.59252, 0.26706, 0.88101, 0.05127, 0.00090, 0.00000,
400 + 0.57632, 0.25594, 0.79114, 0.04912, 0.00312, 0.00000,
401 + 0.56111, 0.24607, 0.71477, 0.04706, 0.00466, 0.00000,
402 + 0.54695, 0.23723, 0.64999, 0.04516, 0.00577, 0.00000,
403 + 0.53364, 0.22923, 0.59426, 0.04335, 0.00656, 0.00005,
404 + 0.52114, 0.22192, 0.54614, 0.04155, 0.00713, 0.00047,
405 + 0.50934, 0.21520, 0.50422, 0.03978, 0.00755, 0.00115,
406 + 0.49821, 0.20899, 0.46739, 0.03817, 0.00785, 0.00165,
407 + 0.48768, 0.20320, 0.43490, 0.03668, 0.00807, 0.00205,
408 + 0.47762, 0.19779, 0.40595, 0.03531, 0.00820, 0.00237,
409 + 0.46807, 0.19273, 0.38017, 0.03403, 0.00829, 0.00264,
410 + 0.45902, 0.18799, 0.35712, 0.03286, 0.00835, 0.00285,
411 + 0.45044, 0.18354, 0.33639, 0.03176, 0.00836, 0.00302,
412 + 0.44215, 0.17932, 0.31761, 0.03073, 0.00835, 0.00316,
413 + 0.43430, 0.17535, 0.30064, 0.02977, 0.00833, 0.00327,
414 + 0.42678, 0.17158, 0.28518, 0.02886, 0.00829, 0.00336,
415 + 0.41958, 0.16800, 0.27106, 0.02801, 0.00824, 0.00343,
416 + 0.41268, 0.16461, 0.25814, 0.02721, 0.00818, 0.00349,
417 + 0.40603, 0.16137, 0.24626, 0.02646, 0.00811, 0.00354/
418 DATA ((F(I,21,K),I=1,6),K=1,19)/
419 + 0.59760, 0.25710, 0.74463, 0.03934, 0.00069, 0.00000,
420 + 0.57654, 0.24456, 0.65754, 0.03740, 0.00237, 0.00000,
421 + 0.55733, 0.23359, 0.58570, 0.03559, 0.00352, 0.00000,
422 + 0.53985, 0.22388, 0.52613, 0.03394, 0.00433, 0.00000,
423 + 0.52373, 0.21517, 0.47593, 0.03240, 0.00489, 0.00004,
424 + 0.50882, 0.20730, 0.43327, 0.03090, 0.00528, 0.00034,
425 + 0.49495, 0.20013, 0.39664, 0.02944, 0.00556, 0.00084,
426 + 0.48200, 0.19353, 0.36483, 0.02812, 0.00576, 0.00119,
427 + 0.46986, 0.18744, 0.33707, 0.02692, 0.00589, 0.00148,
428 + 0.45840, 0.18177, 0.31263, 0.02581, 0.00597, 0.00171,
429 + 0.44763, 0.17651, 0.29105, 0.02479, 0.00601, 0.00189,
430 + 0.43748, 0.17161, 0.27191, 0.02385, 0.00602, 0.00203,
431 + 0.42787, 0.16702, 0.25483, 0.02298, 0.00602, 0.00215,
432 + 0.41872, 0.16270, 0.23948, 0.02216, 0.00599, 0.00223,
433 + 0.41009, 0.15866, 0.22569, 0.02141, 0.00595, 0.00231,
434 + 0.40183, 0.15483, 0.21319, 0.02070, 0.00591, 0.00237,
435 + 0.39399, 0.15121, 0.20186, 0.02004, 0.00585, 0.00241,
436 + 0.38653, 0.14779, 0.19155, 0.01942, 0.00579, 0.00245,
437 + 0.37937, 0.14453, 0.18212, 0.01883, 0.00573, 0.00247/
438 DATA ((F(I,22,K),I=1,6),K=1,19)/
439 + 0.59248, 0.24390, 0.62629, 0.02973, 0.00053, 0.00000,
440 + 0.56722, 0.23035, 0.54441, 0.02807, 0.00180, 0.00000,
441 + 0.54463, 0.21861, 0.47857, 0.02656, 0.00265, 0.00000,
442 + 0.52438, 0.20835, 0.42499, 0.02518, 0.00324, 0.00000,
443 + 0.50597, 0.19922, 0.38061, 0.02392, 0.00364, 0.00003,
444 + 0.48918, 0.19104, 0.34347, 0.02270, 0.00391, 0.00025,
445 + 0.47369, 0.18363, 0.31190, 0.02153, 0.00410, 0.00061,
446 + 0.45936, 0.17686, 0.28482, 0.02048, 0.00422, 0.00087,
447 + 0.44604, 0.17065, 0.26141, 0.01953, 0.00430, 0.00107,
448 + 0.43355, 0.16491, 0.24100, 0.01866, 0.00434, 0.00123,
449 + 0.42188, 0.15960, 0.22312, 0.01786, 0.00435, 0.00135,
450 + 0.41097, 0.15468, 0.20737, 0.01713, 0.00435, 0.00145,
451 + 0.40074, 0.15009, 0.19341, 0.01645, 0.00434, 0.00153,
452 + 0.39101, 0.14579, 0.18096, 0.01582, 0.00430, 0.00159,
453 + 0.38188, 0.14177, 0.16983, 0.01524, 0.00426, 0.00163,
454 + 0.37321, 0.13799, 0.15982, 0.01470, 0.00421, 0.00167,
455 + 0.36499, 0.13443, 0.15078, 0.01419, 0.00417, 0.00170,
456 + 0.35720, 0.13108, 0.14259, 0.01371, 0.00412, 0.00172,
457 + 0.34975, 0.12790, 0.13514, 0.01327, 0.00406, 0.00173/
458 DATA ((F(I,23,K),I=1,6),K=1,19)/
459 + 0.57866, 0.22836, 0.52395, 0.02215, 0.00040, 0.00000,
460 + 0.54992, 0.21417, 0.44877, 0.02079, 0.00136, 0.00000,
461 + 0.52462, 0.20201, 0.38958, 0.01956, 0.00199, 0.00000,
462 + 0.50223, 0.19147, 0.34222, 0.01846, 0.00242, 0.00000,
463 + 0.48209, 0.18218, 0.30359, 0.01745, 0.00270, 0.00002,
464 + 0.46390, 0.17390, 0.27165, 0.01649, 0.00289, 0.00018,
465 + 0.44726, 0.16645, 0.24481, 0.01558, 0.00302, 0.00045,
466 + 0.43198, 0.15969, 0.22202, 0.01477, 0.00309, 0.00063,
467 + 0.41788, 0.15352, 0.20250, 0.01403, 0.00314, 0.00078,
468 + 0.40474, 0.14785, 0.18562, 0.01336, 0.00315, 0.00088,
469 + 0.39254, 0.14262, 0.17094, 0.01275, 0.00315, 0.00097,
470 + 0.38118, 0.13780, 0.15810, 0.01219, 0.00314, 0.00103,
471 + 0.37059, 0.13333, 0.14680, 0.01167, 0.00312, 0.00109,
472 + 0.36057, 0.12914, 0.13678, 0.01119, 0.00308, 0.00113,
473 + 0.35120, 0.12526, 0.12786, 0.01076, 0.00305, 0.00116,
474 + 0.34234, 0.12161, 0.11989, 0.01035, 0.00301, 0.00118,
475 + 0.33398, 0.11819, 0.11272, 0.00997, 0.00296, 0.00120,
476 + 0.32608, 0.11497, 0.10626, 0.00961, 0.00292, 0.00121,
477 + 0.31856, 0.11193, 0.10041, 0.00928, 0.00288, 0.00121/
478 DATA ((F(I,24,K),I=1,6),K=1,19)/
479 + 0.55751, 0.21111, 0.43576, 0.01626, 0.00032, 0.00001,
480 + 0.52605, 0.19665, 0.36800, 0.01519, 0.00103, 0.00001,
481 + 0.49875, 0.18438, 0.31565, 0.01422, 0.00150, 0.00001,
482 + 0.47481, 0.17382, 0.27441, 0.01336, 0.00181, 0.00001,
483 + 0.45353, 0.16458, 0.24122, 0.01257, 0.00200, 0.00002,
484 + 0.43438, 0.15641, 0.21409, 0.01184, 0.00213, 0.00014,
485 + 0.41704, 0.14910, 0.19154, 0.01114, 0.00221, 0.00033,
486 + 0.40122, 0.14250, 0.17256, 0.01052, 0.00226, 0.00046,
487 + 0.38670, 0.13650, 0.15644, 0.00997, 0.00228, 0.00056,
488 + 0.37328, 0.13102, 0.14261, 0.00946, 0.00229, 0.00063,
489 + 0.36088, 0.12599, 0.13068, 0.00900, 0.00228, 0.00069,
490 + 0.34938, 0.12136, 0.12030, 0.00857, 0.00227, 0.00074,
491 + 0.33866, 0.11709, 0.11122, 0.00819, 0.00224, 0.00078,
492 + 0.32860, 0.11311, 0.10321, 0.00784, 0.00221, 0.00080,
493 + 0.31922, 0.10943, 0.09612, 0.00751, 0.00217, 0.00082,
494 + 0.31039, 0.10598, 0.08982, 0.00721, 0.00214, 0.00083,
495 + 0.30208, 0.10275, 0.08418, 0.00693, 0.00211, 0.00084,
496 + 0.29427, 0.09973, 0.07911, 0.00666, 0.00207, 0.00085,
497 + 0.28686, 0.09688, 0.07454, 0.00642, 0.00203, 0.00085/
498 DATA ((F(I,25,K),I=1,6),K=1,19)/
499 + 0.53038, 0.19284, 0.36016, 0.01175, 0.00024, 0.00001,
500 + 0.49702, 0.17844, 0.30004, 0.01093, 0.00078, 0.00001,
501 + 0.46839, 0.16633, 0.25439, 0.01019, 0.00112, 0.00001,
502 + 0.44351, 0.15598, 0.21894, 0.00953, 0.00134, 0.00001,
503 + 0.42157, 0.14698, 0.19077, 0.00893, 0.00147, 0.00002,
504 + 0.40198, 0.13908, 0.16799, 0.00838, 0.00156, 0.00010,
505 + 0.38436, 0.13205, 0.14924, 0.00786, 0.00161, 0.00024,
506 + 0.36837, 0.12573, 0.13360, 0.00740, 0.00164, 0.00033,
507 + 0.35378, 0.12002, 0.12041, 0.00699, 0.00165, 0.00040,
508 + 0.34036, 0.11482, 0.10919, 0.00661, 0.00165, 0.00045,
509 + 0.32801, 0.11006, 0.09957, 0.00627, 0.00164, 0.00050,
510 + 0.31661, 0.10571, 0.09125, 0.00596, 0.00162, 0.00053,
511 + 0.30604, 0.10171, 0.08401, 0.00568, 0.00160, 0.00055,
512 + 0.29615, 0.09799, 0.07767, 0.00542, 0.00157, 0.00057,
513 + 0.28696, 0.09456, 0.07208, 0.00518, 0.00155, 0.00058,
514 + 0.27834, 0.09136, 0.06712, 0.00496, 0.00152, 0.00059,
515 + 0.27026, 0.08837, 0.06272, 0.00476, 0.00149, 0.00059,
516 + 0.26268, 0.08558, 0.05877, 0.00457, 0.00146, 0.00060,
517 + 0.25551, 0.08296, 0.05523, 0.00439, 0.00143, 0.00060/
518 DATA ((F(I,26,K),I=1,6),K=1,19)/
519 + 0.49857, 0.17413, 0.29568, 0.00839, 0.00017, 0.00000,
520 + 0.46410, 0.16007, 0.24309, 0.00777, 0.00057, 0.00000,
521 + 0.43478, 0.14834, 0.20380, 0.00721, 0.00082, 0.00000,
522 + 0.40952, 0.13841, 0.17369, 0.00672, 0.00098, 0.00000,
523 + 0.38737, 0.12982, 0.15005, 0.00628, 0.00108, 0.00001,
524 + 0.36780, 0.12231, 0.13113, 0.00587, 0.00114, 0.00007,
525 + 0.35028, 0.11566, 0.11570, 0.00549, 0.00117, 0.00017,
526 + 0.33447, 0.10972, 0.10294, 0.00515, 0.00118, 0.00023,
527 + 0.32011, 0.10438, 0.09225, 0.00484, 0.00118, 0.00028,
528 + 0.30695, 0.09953, 0.08323, 0.00457, 0.00118, 0.00032,
529 + 0.29490, 0.09512, 0.07554, 0.00432, 0.00117, 0.00035,
530 + 0.28381, 0.09109, 0.06893, 0.00410, 0.00115, 0.00037,
531 + 0.27357, 0.08740, 0.06321, 0.00390, 0.00113, 0.00038,
532 + 0.26404, 0.08399, 0.05822, 0.00371, 0.00111, 0.00040,
533 + 0.25521, 0.08084, 0.05384, 0.00354, 0.00109, 0.00041,
534 + 0.24696, 0.07792, 0.04998, 0.00338, 0.00107, 0.00041,
535 + 0.23923, 0.07520, 0.04656, 0.00324, 0.00105, 0.00041,
536 + 0.23201, 0.07266, 0.04351, 0.00310, 0.00102, 0.00041,
537 + 0.22519, 0.07029, 0.04078, 0.00298, 0.00100, 0.00041/
538 DATA ((F(I,27,K),I=1,6),K=1,19)/
539 + 0.46329, 0.15537, 0.24091, 0.00586, 0.00013, 0.00000,
540 + 0.42842, 0.14190, 0.19552, 0.00541, 0.00042, 0.00000,
541 + 0.39903, 0.13075, 0.16212, 0.00501, 0.00060, 0.00000,
542 + 0.37391, 0.12138, 0.13685, 0.00465, 0.00071, 0.00000,
543 + 0.35203, 0.11332, 0.11724, 0.00434, 0.00078, 0.00000,
544 + 0.33282, 0.10632, 0.10170, 0.00404, 0.00082, 0.00005,
545 + 0.31570, 0.10014, 0.08913, 0.00376, 0.00084, 0.00012,
546 + 0.30035, 0.09465, 0.07882, 0.00352, 0.00085, 0.00017,
547 + 0.28647, 0.08974, 0.07025, 0.00330, 0.00084, 0.00020,
548 + 0.27380, 0.08529, 0.06306, 0.00311, 0.00084, 0.00023,
549 + 0.26225, 0.08127, 0.05697, 0.00293, 0.00083, 0.00025,
550 + 0.25166, 0.07760, 0.05177, 0.00277, 0.00081, 0.00026,
551 + 0.24192, 0.07426, 0.04728, 0.00263, 0.00080, 0.00027,
552 + 0.23288, 0.07117, 0.04340, 0.00250, 0.00078, 0.00028,
553 + 0.22453, 0.06834, 0.04000, 0.00238, 0.00077, 0.00028,
554 + 0.21676, 0.06571, 0.03702, 0.00227, 0.00075, 0.00028,
555 + 0.20951, 0.06327, 0.03438, 0.00217, 0.00073, 0.00029,
556 + 0.20274, 0.06101, 0.03204, 0.00207, 0.00071, 0.00028,
557 + 0.19637, 0.05889, 0.02996, 0.00198, 0.00069, 0.00028/
558 DATA ((F(I,28,K),I=1,6),K=1,19)/
559 + 0.42566, 0.13702, 0.19472, 0.00405, 0.00009, 0.00000,
560 + 0.39105, 0.12435, 0.15604, 0.00373, 0.00030, -0.00001,
561 + 0.36215, 0.11393, 0.12799, 0.00344, 0.00043, -0.00001,
562 + 0.33762, 0.10522, 0.10702, 0.00319, 0.00051, -0.00001,
563 + 0.31642, 0.09779, 0.09093, 0.00296, 0.00056, 0.00000,
564 + 0.29787, 0.09136, 0.07830, 0.00275, 0.00058, 0.00003,
565 + 0.28145, 0.08572, 0.06817, 0.00256, 0.00059, 0.00008,
566 + 0.26677, 0.08073, 0.05993, 0.00238, 0.00060, 0.00011,
567 + 0.25357, 0.07628, 0.05312, 0.00223, 0.00060, 0.00014,
568 + 0.24158, 0.07227, 0.04745, 0.00210, 0.00059, 0.00016,
569 + 0.23068, 0.06865, 0.04268, 0.00197, 0.00058, 0.00017,
570 + 0.22074, 0.06537, 0.03862, 0.00186, 0.00057, 0.00018,
571 + 0.21163, 0.06238, 0.03514, 0.00176, 0.00056, 0.00019,
572 + 0.20319, 0.05964, 0.03215, 0.00167, 0.00054, 0.00019,
573 + 0.19542, 0.05712, 0.02954, 0.00159, 0.00053, 0.00019,
574 + 0.18822, 0.05480, 0.02725, 0.00151, 0.00052, 0.00019,
575 + 0.18152, 0.05265, 0.02524, 0.00144, 0.00050, 0.00019,
576 + 0.17527, 0.05065, 0.02346, 0.00137, 0.00049, 0.00019,
577 + 0.16942, 0.04879, 0.02188, 0.00131, 0.00048, 0.00019/
578 DATA ((F(I,29,K),I=1,6),K=1,19)/
579 + 0.38667, 0.11938, 0.15599, 0.00273, 0.00006, 0.00000,
580 + 0.35294, 0.10765, 0.12344, 0.00251, 0.00021, -0.00001,
581 + 0.32500, 0.09808, 0.10017, 0.00231, 0.00031, 0.00000,
582 + 0.30145, 0.09012, 0.08298, 0.00214, 0.00036, -0.00001,
583 + 0.28122, 0.08337, 0.06993, 0.00198, 0.00040, 0.00000,
584 + 0.26362, 0.07756, 0.05978, 0.00183, 0.00041, 0.00002,
585 + 0.24812, 0.07250, 0.05171, 0.00170, 0.00042, 0.00006,
586 + 0.23432, 0.06803, 0.04519, 0.00158, 0.00042, 0.00008,
587 + 0.22198, 0.06406, 0.03984, 0.00148, 0.00042, 0.00010,
588 + 0.21080, 0.06050, 0.03542, 0.00138, 0.00041, 0.00011,
589 + 0.20069, 0.05730, 0.03171, 0.00130, 0.00040, 0.00012,
590 + 0.19150, 0.05441, 0.02858, 0.00122, 0.00039, 0.00012,
591 + 0.18310, 0.05178, 0.02591, 0.00115, 0.00038, 0.00013,
592 + 0.17534, 0.04938, 0.02362, 0.00109, 0.00037, 0.00013,
593 + 0.16822, 0.04718, 0.02164, 0.00104, 0.00036, 0.00013,
594 + 0.16165, 0.04515, 0.01990, 0.00098, 0.00035, 0.00013,
595 + 0.15554, 0.04328, 0.01839, 0.00093, 0.00034, 0.00013,
596 + 0.14987, 0.04155, 0.01705, 0.00089, 0.00033, 0.00013,
597 + 0.14456, 0.03995, 0.01586, 0.00085, 0.00033, 0.00013/
598 DATA ((F(I,30,K),I=1,6),K=1,19)/
599 + 0.34727, 0.10273, 0.12377, 0.00182, 0.00004, 0.00000,
600 + 0.31495, 0.09205, 0.09673, 0.00167, 0.00016, 0.00000,
601 + 0.28837, 0.08340, 0.07766, 0.00154, 0.00022, 0.00000,
602 + 0.26611, 0.07625, 0.06374, 0.00142, 0.00026, 0.00000,
603 + 0.24711, 0.07021, 0.05328, 0.00131, 0.00028, 0.00000,
604 + 0.23068, 0.06505, 0.04521, 0.00121, 0.00029, 0.00002,
605 + 0.21626, 0.06056, 0.03886, 0.00112, 0.00029, 0.00004,
606 + 0.20349, 0.05663, 0.03376, 0.00104, 0.00029, 0.00005,
607 + 0.19211, 0.05314, 0.02962, 0.00097, 0.00028, 0.00006,
608 + 0.18187, 0.05003, 0.02620, 0.00090, 0.00028, 0.00007,
609 + 0.17262, 0.04724, 0.02336, 0.00085, 0.00028, 0.00008,
610 + 0.16424, 0.04473, 0.02097, 0.00080, 0.00027, 0.00008,
611 + 0.15662, 0.04245, 0.01894, 0.00075, 0.00026, 0.00009,
612 + 0.14961, 0.04037, 0.01721, 0.00071, 0.00026, 0.00009,
613 + 0.14319, 0.03848, 0.01571, 0.00067, 0.00025, 0.00009,
614 + 0.13726, 0.03674, 0.01441, 0.00063, 0.00024, 0.00009,
615 + 0.13177, 0.03514, 0.01328, 0.00060, 0.00023, 0.00009,
616 + 0.12669, 0.03367, 0.01228, 0.00057, 0.00023, 0.00009,
617 + 0.12195, 0.03230, 0.01140, 0.00055, 0.00022, 0.00009/
618 DATA ((F(I,31,K),I=1,6),K=1,19)/
619 + 0.30821, 0.08726, 0.09717, 0.00118, 0.00003, 0.00000,
620 + 0.27772, 0.07768, 0.07499, 0.00108, 0.00011, 0.00000,
621 + 0.25284, 0.06999, 0.05957, 0.00099, 0.00015, 0.00000,
622 + 0.23213, 0.06366, 0.04844, 0.00091, 0.00018, 0.00000,
623 + 0.21457, 0.05835, 0.04016, 0.00084, 0.00019, 0.00000,
624 + 0.19946, 0.05384, 0.03384, 0.00078, 0.00020, 0.00001,
625 + 0.18626, 0.04993, 0.02889, 0.00072, 0.00020, 0.00003,
626 + 0.17463, 0.04651, 0.02495, 0.00066, 0.00020, 0.00004,
627 + 0.16430, 0.04350, 0.02178, 0.00062, 0.00019, 0.00004,
628 + 0.15504, 0.04082, 0.01918, 0.00057, 0.00019, 0.00005,
629 + 0.14671, 0.03843, 0.01703, 0.00054, 0.00019, 0.00005,
630 + 0.13919, 0.03628, 0.01522, 0.00050, 0.00018, 0.00006,
631 + 0.13237, 0.03434, 0.01370, 0.00047, 0.00018, 0.00006,
632 + 0.12612, 0.03258, 0.01240, 0.00045, 0.00017, 0.00006,
633 + 0.12041, 0.03097, 0.01129, 0.00042, 0.00017, 0.00006,
634 + 0.11515, 0.02950, 0.01033, 0.00040, 0.00016, 0.00006,
635 + 0.11030, 0.02815, 0.00949, 0.00038, 0.00015, 0.00006,
636 + 0.10582, 0.02691, 0.00875, 0.00036, 0.00015, 0.00006,
637 + 0.10164, 0.02577, 0.00811, 0.00034, 0.00015, 0.00006/
638 DATA ((F(I,32,K),I=1,6),K=1,19)/
639 + 0.27019, 0.07311, 0.07539, 0.00075, 0.00003, 0.00000,
640 + 0.24189, 0.06466, 0.05745, 0.00069, 0.00008, 0.00000,
641 + 0.21894, 0.05792, 0.04515, 0.00064, 0.00011, 0.00000,
642 + 0.19998, 0.05242, 0.03636, 0.00058, 0.00013, 0.00000,
643 + 0.18399, 0.04782, 0.02990, 0.00054, 0.00013, 0.00000,
644 + 0.17031, 0.04393, 0.02502, 0.00049, 0.00014, 0.00001,
645 + 0.15842, 0.04058, 0.02123, 0.00045, 0.00014, 0.00002,
646 + 0.14798, 0.03767, 0.01823, 0.00042, 0.00014, 0.00003,
647 + 0.13875, 0.03511, 0.01582, 0.00039, 0.00013, 0.00003,
648 + 0.13051, 0.03284, 0.01387, 0.00036, 0.00013, 0.00004,
649 + 0.12312, 0.03082, 0.01226, 0.00034, 0.00013, 0.00004,
650 + 0.11647, 0.02901, 0.01092, 0.00032, 0.00012, 0.00004,
651 + 0.11045, 0.02739, 0.00979, 0.00030, 0.00012, 0.00004,
652 + 0.10495, 0.02591, 0.00883, 0.00028, 0.00012, 0.00004,
653 + 0.09995, 0.02458, 0.00801, 0.00026, 0.00011, 0.00004,
654 + 0.09536, 0.02335, 0.00731, 0.00025, 0.00011, 0.00004,
655 + 0.09114, 0.02223, 0.00670, 0.00023, 0.00010, 0.00004,
656 + 0.08725, 0.02121, 0.00617, 0.00022, 0.00010, 0.00004,
657 + 0.08363, 0.02026, 0.00570, 0.00021, 0.00010, 0.00004/
658 DATA ((F(I,33,K),I=1,6),K=1,19)/
659 + 0.23385, 0.06037, 0.05777, 0.00046, 0.00001, 0.00000,
660 + 0.20798, 0.05305, 0.04347, 0.00043, 0.00005, 0.00000,
661 + 0.18716, 0.04725, 0.03379, 0.00039, 0.00007, 0.00000,
662 + 0.17007, 0.04253, 0.02696, 0.00036, 0.00008, 0.00000,
663 + 0.15573, 0.03863, 0.02199, 0.00033, 0.00009, 0.00000,
664 + 0.14353, 0.03534, 0.01826, 0.00030, 0.00009, 0.00000,
665 + 0.13297, 0.03251, 0.01539, 0.00028, 0.00009, 0.00001,
666 + 0.12375, 0.03007, 0.01314, 0.00026, 0.00009, 0.00001,
667 + 0.11564, 0.02792, 0.01135, 0.00024, 0.00008, 0.00001,
668 + 0.10840, 0.02603, 0.00990, 0.00022, 0.00008, 0.00002,
669 + 0.10195, 0.02436, 0.00871, 0.00021, 0.00008, 0.00002,
670 + 0.09616, 0.02286, 0.00773, 0.00020, 0.00008, 0.00002,
671 + 0.09094, 0.02152, 0.00691, 0.00018, 0.00007, 0.00002,
672 + 0.08619, 0.02031, 0.00621, 0.00017, 0.00007, 0.00002,
673 + 0.08188, 0.01921, 0.00562, 0.00016, 0.00007, 0.00002,
674 + 0.07793, 0.01821, 0.00511, 0.00015, 0.00007, 0.00002,
675 + 0.07430, 0.01730, 0.00467, 0.00014, 0.00007, 0.00003,
676 + 0.07097, 0.01646, 0.00429, 0.00013, 0.00007, 0.00003,
677 + 0.06789, 0.01569, 0.00396, 0.00013, 0.00006, 0.00003/
678 DATA ((F(I,34,K),I=1,6),K=1,19)/
679 + 0.19961, 0.04908, 0.04364, 0.00028, 0.00001, 0.00000,
680 + 0.17635, 0.04284, 0.03241, 0.00026, 0.00003, 0.00000,
681 + 0.15777, 0.03793, 0.02492, 0.00024, 0.00005, 0.00000,
682 + 0.14260, 0.03396, 0.01969, 0.00022, 0.00005, 0.00000,
683 + 0.12996, 0.03070, 0.01593, 0.00020, 0.00006, 0.00000,
684 + 0.11925, 0.02796, 0.01313, 0.00019, 0.00006, 0.00000,
685 + 0.11003, 0.02562, 0.01100, 0.00017, 0.00006, 0.00000,
686 + 0.10202, 0.02360, 0.00933, 0.00016, 0.00006, 0.00000,
687 + 0.09499, 0.02184, 0.00802, 0.00015, 0.00006, 0.00001,
688 + 0.08875, 0.02030, 0.00696, 0.00014, 0.00005, 0.00001,
689 + 0.08320, 0.01893, 0.00610, 0.00013, 0.00005, 0.00001,
690 + 0.07824, 0.01772, 0.00539, 0.00012, 0.00005, 0.00001,
691 + 0.07379, 0.01663, 0.00480, 0.00011, 0.00005, 0.00001,
692 + 0.06975, 0.01565, 0.00430, 0.00010, 0.00004, 0.00001,
693 + 0.06609, 0.01477, 0.00388, 0.00010, 0.00004, 0.00001,
694 + 0.06274, 0.01397, 0.00352, 0.00009, 0.00004, 0.00001,
695 + 0.05968, 0.01323, 0.00321, 0.00009, 0.00004, 0.00002,
696 + 0.05688, 0.01257, 0.00294, 0.00008, 0.00004, 0.00002,
697 + 0.05429, 0.01195, 0.00271, 0.00008, 0.00004, 0.00002/
698 DATA ((F(I,35,K),I=1,6),K=1,19)/
699 + 0.16787, 0.03921, 0.03245, 0.00016, 0.00001, 0.00000,
700 + 0.14729, 0.03401, 0.02378, 0.00015, 0.00002, 0.00000,
701 + 0.13099, 0.02993, 0.01807, 0.00014, 0.00003, 0.00000,
702 + 0.11776, 0.02666, 0.01415, 0.00013, 0.00004, 0.00000,
703 + 0.10681, 0.02397, 0.01135, 0.00012, 0.00003, -0.00001,
704 + 0.09756, 0.02173, 0.00928, 0.00011, 0.00003, 0.00000,
705 + 0.08965, 0.01984, 0.00772, 0.00010, 0.00003, 0.00000,
706 + 0.08279, 0.01821, 0.00652, 0.00009, 0.00003, 0.00001,
707 + 0.07682, 0.01678, 0.00557, 0.00008, 0.00004, 0.00001,
708 + 0.07153, 0.01554, 0.00481, 0.00008, 0.00003, 0.00001,
709 + 0.06684, 0.01445, 0.00420, 0.00007, 0.00003, 0.00001,
710 + 0.06267, 0.01348, 0.00369, 0.00007, 0.00003, 0.00001,
711 + 0.05893, 0.01262, 0.00328, 0.00006, 0.00003, 0.00001,
712 + 0.05554, 0.01184, 0.00293, 0.00006, 0.00003, 0.00001,
713 + 0.05249, 0.01114, 0.00263, 0.00006, 0.00003, 0.00001,
714 + 0.04971, 0.01051, 0.00238, 0.00005, 0.00003, 0.00001,
715 + 0.04717, 0.00994, 0.00217, 0.00005, 0.00003, 0.00001,
716 + 0.04485, 0.00942, 0.00198, 0.00005, 0.00002, 0.00001,
717 + 0.04271, 0.00894, 0.00182, 0.00004, 0.00002, 0.00001/
718 DATA ((F(I,36,K),I=1,6),K=1,19)/
719 + 0.13892, 0.03076, 0.02370, 0.00009, 0.00000, 0.00000,
720 + 0.12104, 0.02649, 0.01713, 0.00009, 0.00001, 0.00000,
721 + 0.10698, 0.02317, 0.01287, 0.00008, 0.00002, 0.00000,
722 + 0.09565, 0.02052, 0.00998, 0.00008, 0.00002, 0.00000,
723 + 0.08632, 0.01836, 0.00793, 0.00007, 0.00002, 0.00000,
724 + 0.07849, 0.01657, 0.00644, 0.00006, 0.00002, 0.00000,
725 + 0.07181, 0.01506, 0.00532, 0.00006, 0.00002, 0.00000,
726 + 0.06606, 0.01377, 0.00446, 0.00005, 0.00002, 0.00000,
727 + 0.06106, 0.01264, 0.00379, 0.00005, 0.00002, 0.00000,
728 + 0.05666, 0.01167, 0.00326, 0.00004, 0.00002, 0.00001,
729 + 0.05278, 0.01081, 0.00283, 0.00004, 0.00002, 0.00001,
730 + 0.04933, 0.01006, 0.00248, 0.00004, 0.00002, 0.00001,
731 + 0.04624, 0.00939, 0.00219, 0.00004, 0.00002, 0.00001,
732 + 0.04347, 0.00878, 0.00196, 0.00003, 0.00002, 0.00001,
733 + 0.04097, 0.00824, 0.00175, 0.00003, 0.00002, 0.00001,
734 + 0.03869, 0.00776, 0.00158, 0.00003, 0.00002, 0.00001,
735 + 0.03663, 0.00731, 0.00143, 0.00003, 0.00002, 0.00001,
736 + 0.03474, 0.00691, 0.00131, 0.00003, 0.00001, 0.00001,
737 + 0.03301, 0.00655, 0.00120, 0.00002, 0.00001, 0.00001/
738 DATA ((F(I,37,K),I=1,6),K=1,19)/
739 + 0.08998, 0.01773, 0.01186, 0.00003, 0.00000, 0.00000,
740 + 0.07727, 0.01504, 0.00833, 0.00003, 0.00001, 0.00000,
741 + 0.06741, 0.01299, 0.00611, 0.00002, 0.00001, 0.00000,
742 + 0.05958, 0.01137, 0.00464, 0.00002, 0.00001, 0.00000,
743 + 0.05319, 0.01007, 0.00362, 0.00002, 0.00001, 0.00000,
744 + 0.04791, 0.00900, 0.00289, 0.00002, 0.00001, 0.00000,
745 + 0.04344, 0.00811, 0.00236, 0.00002, 0.00001, 0.00000,
746 + 0.03963, 0.00735, 0.00195, 0.00002, 0.00001, 0.00000,
747 + 0.03634, 0.00670, 0.00164, 0.00001, 0.00001, 0.00000,
748 + 0.03348, 0.00614, 0.00140, 0.00001, 0.00001, 0.00000,
749 + 0.03097, 0.00565, 0.00120, 0.00001, 0.00001, 0.00000,
750 + 0.02875, 0.00522, 0.00105, 0.00001, 0.00001, 0.00000,
751 + 0.02678, 0.00484, 0.00092, 0.00001, 0.00001, 0.00000,
752 + 0.02502, 0.00450, 0.00081, 0.00001, 0.00001, 0.00000,
753 + 0.02345, 0.00420, 0.00072, 0.00001, 0.00001, 0.00000,
754 + 0.02203, 0.00393, 0.00065, 0.00001, 0.00001, 0.00000,
755 + 0.02075, 0.00369, 0.00059, 0.00001, 0.00001, 0.00000,
756 + 0.01958, 0.00347, 0.00053, 0.00001, 0.00000, 0.00000,
757 + 0.01852, 0.00327, 0.00049, 0.00001, 0.00000, 0.00000/
758 DATA ((F(I,38,K),I=1,6),K=1,19)/
759 + 0.05324, 0.00920, 0.00534, 0.00001, 0.00000, 0.00000,
760 + 0.04500, 0.00768, 0.00364, 0.00001, 0.00000, 0.00000,
761 + 0.03871, 0.00654, 0.00260, 0.00001, 0.00000, 0.00000,
762 + 0.03378, 0.00565, 0.00193, 0.00001, 0.00000, 0.00000,
763 + 0.02982, 0.00495, 0.00148, 0.00001, 0.00000, 0.00000,
764 + 0.02658, 0.00438, 0.00116, 0.00000, 0.00000, 0.00000,
765 + 0.02387, 0.00391, 0.00093, 0.00000, 0.00000, 0.00000,
766 + 0.02157, 0.00351, 0.00076, 0.00000, 0.00000, 0.00000,
767 + 0.01962, 0.00317, 0.00063, 0.00000, 0.00000, 0.00000,
768 + 0.01793, 0.00288, 0.00053, 0.00000, 0.00000, 0.00000,
769 + 0.01646, 0.00263, 0.00045, 0.00000, 0.00000, 0.00000,
770 + 0.01517, 0.00241, 0.00039, 0.00000, 0.00000, 0.00000,
771 + 0.01404, 0.00222, 0.00034, 0.00000, 0.00000, 0.00000,
772 + 0.01304, 0.00205, 0.00030, 0.00000, 0.00000, 0.00000,
773 + 0.01214, 0.00190, 0.00027, 0.00000, 0.00000, 0.00000,
774 + 0.01134, 0.00177, 0.00024, 0.00000, 0.00000, 0.00000,
775 + 0.01061, 0.00165, 0.00021, 0.00000, 0.00000, 0.00000,
776 + 0.00996, 0.00155, 0.00019, 0.00000, 0.00000, 0.00000,
777 + 0.00937, 0.00145, 0.00017, 0.00000, 0.00000, 0.00000/
778 DATA ((F(I,39,K),I=1,6),K=1,19)/
779 + 0.02793, 0.00414, 0.00208, 0.00000, 0.00000, 0.00000,
780 + 0.02319, 0.00339, 0.00137, 0.00000, 0.00000, 0.00000,
781 + 0.01964, 0.00284, 0.00095, 0.00000, 0.00000, 0.00000,
782 + 0.01690, 0.00243, 0.00069, 0.00000, 0.00000, 0.00000,
783 + 0.01473, 0.00210, 0.00051, 0.00000, 0.00000, 0.00000,
784 + 0.01297, 0.00183, 0.00040, 0.00000, 0.00000, 0.00000,
785 + 0.01152, 0.00162, 0.00031, 0.00000, 0.00000, 0.00000,
786 + 0.01031, 0.00144, 0.00025, 0.00000, 0.00000, 0.00000,
787 + 0.00929, 0.00129, 0.00021, 0.00000, 0.00000, 0.00000,
788 + 0.00841, 0.00116, 0.00017, 0.00000, 0.00000, 0.00000,
789 + 0.00766, 0.00105, 0.00015, 0.00000, 0.00000, 0.00000,
790 + 0.00700, 0.00096, 0.00012, 0.00000, 0.00000, 0.00000,
791 + 0.00643, 0.00087, 0.00011, 0.00000, 0.00000, 0.00000,
792 + 0.00592, 0.00080, 0.00009, 0.00000, 0.00000, 0.00000,
793 + 0.00548, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000,
794 + 0.00508, 0.00068, 0.00007, 0.00000, 0.00000, 0.00000,
795 + 0.00473, 0.00063, 0.00007, 0.00000, 0.00000, 0.00000,
796 + 0.00441, 0.00059, 0.00006, 0.00000, 0.00000, 0.00000,
797 + 0.00412, 0.00055, 0.00005, 0.00000, 0.00000, 0.00000/
798 DATA ((F(I,40,K),I=1,6),K=1,19)/
799 + 0.01235, 0.00152, 0.00066, 0.00000, 0.00000, 0.00000,
800 + 0.01004, 0.00122, 0.00041, 0.00000, 0.00000, 0.00000,
801 + 0.00835, 0.00101, 0.00028, 0.00000, 0.00000, 0.00000,
802 + 0.00707, 0.00084, 0.00020, 0.00000, 0.00000, 0.00000,
803 + 0.00607, 0.00072, 0.00014, 0.00000, 0.00000, 0.00000,
804 + 0.00527, 0.00062, 0.00011, 0.00000, 0.00000, 0.00000,
805 + 0.00463, 0.00054, 0.00008, 0.00000, 0.00000, 0.00000,
806 + 0.00409, 0.00047, 0.00007, 0.00000, 0.00000, 0.00000,
807 + 0.00364, 0.00042, 0.00005, 0.00000, 0.00000, 0.00000,
808 + 0.00326, 0.00037, 0.00004, 0.00000, 0.00000, 0.00000,
809 + 0.00294, 0.00034, 0.00004, 0.00000, 0.00000, 0.00000,
810 + 0.00267, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000,
811 + 0.00243, 0.00027, 0.00003, 0.00000, 0.00000, 0.00000,
812 + 0.00222, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000,
813 + 0.00203, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000,
814 + 0.00187, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000,
815 + 0.00173, 0.00019, 0.00002, 0.00000, 0.00000, 0.00000,
816 + 0.00160, 0.00018, 0.00001, 0.00000, 0.00000, 0.00000,
817 + 0.00149, 0.00016, 0.00001, 0.00000, 0.00000, 0.00000/
818 DATA ((F(I,41,K),I=1,6),K=1,19)/
819 + 0.00087, 0.00006, 0.00002, 0.00000, 0.00000, 0.00000,
820 + 0.00067, 0.00005, 0.00001, 0.00000, 0.00000, 0.00000,
821 + 0.00053, 0.00004, 0.00001, 0.00000, 0.00000, 0.00000,
822 + 0.00043, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000,
823 + 0.00035, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000,
824 + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
825 + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
826 + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
827 + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
828 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
829 + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
830 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
831 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
832 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
833 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
834 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
835 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
836 + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
837 + 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/
838 DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
839 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
840 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
841 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
842 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
843 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
844 . .8D0,.9D0,1.D0/
845 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
846 DATA N0/3,3,4,8,0,0/
847 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
848 DATA INIT/0/
849C
850 IF(INIT.NE.0) GOTO 10
851 INIT=1
852 DO 20 N=1,41
853 DO 20 M=1,19
854C READ(69,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M)
855 DO 25 I=1,6
856 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
857 20 CONTINUE
858 DO 30 J=1,15
859 XX(J)= LOG10(XX(J))+ONEDO
860 DO 30 I=1,5
861 DO 30 K=1,19
862 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K))
863 50 FORMAT(6F10.5)
864 DO 40 I=1,6
865 DO 40 M=1,19
866 40 F(I,42,M)=ZEROD
867 10 CONTINUE
868 UPV=ZEROD
869 DNV=ZEROD
870 SEA=ZEROD
871 STR=ZEROD
872 CHM=ZEROD
873 GL =ZEROD
874 BOT=ZEROD
875C IF(X.LT.XMIN) X=XMIN
876C IF(X.GT.XMAX) X=XMAX
877 IF(X.LT.XMIN) GOTO 777
878 IF(X.GT.XMAX) GOTO 777
879 QSQ=SCALE**2
880 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
881 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
882 XXX=X
883 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
884 N=0
885 70 N=N+1
886 IF(XXX.GT.XX(N+1)) GOTO 70
887 A=(XXX-XX(N))/(XX(N+1)-XX(N))
888 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
889 B=RM-AINT(RM)
890 M=1+ INT(RM)
891 DO 60 I=1,6
892 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
893 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
894 IF(N.GE.16) GOTO 65
895 IF(I.EQ.6) GOTO 65
896 FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
897 G(I)=FAC**(G(I)/FAC)
898 65 CONTINUE
899 G(I)=G(I)*(ONED-X)**N0(I)
900 60 CONTINUE
901 UPV=G(1)
902 DNV=G(2)
903 SEA=G(4)
904 STR=G(4)
905 CHM=G(5)
906 GL =G(3)
907 BOT=G(6)
908 777 CONTINUE
909 RETURN
910 END