5 * Revision 1.1.1.2 1996/10/30 08:31:05 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:50 plothow
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14 SUBROUTINE STRH2B(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15 C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (B) sea=ubar=dbar=2sbar
16 #include "pdf/impdp.inc"
17 DIMENSION F(7,42,19),G(7),XX(42),N0(7)
18 DATA ((F(I,1,K),I=1,5),F(7,1,K),F(6,1,K),K=1,19)/
19 + 0.04574, 0.01401, 3.78332, 0.04134, 0.01529, 0.00000, 0.02847,
20 + 0.04583, 0.01480, 7.44979, 0.12080, 0.09317, 0.00000, 0.10710,
21 + 0.04597, 0.01553, 11.82667, 0.22784, 0.19877, 0.00000, 0.21339,
22 + 0.04613, 0.01621, 16.83759, 0.35855, 0.32816, 0.00000, 0.34343,
23 + 0.04632, 0.01684, 22.23625, 0.50068, 0.47247, 0.00678, 0.48832,
24 + 0.04652, 0.01743, 28.00661, 0.62179, 0.63148, 0.08486, 0.64789,
25 + 0.04673, 0.01800, 34.08723, 0.71836, 0.80352, 0.23791, 0.82045,
26 + 0.04696, 0.01855, 40.42050, 0.82768, 0.98694, 0.38816, 1.00437,
27 + 0.04719, 0.01907, 46.95706, 0.94205, 1.18029, 0.54801, 1.19819,
28 + 0.04743, 0.01957, 53.56265, 1.06019, 1.37934, 0.71167, 1.39769,
29 + 0.04767, 0.02005, 60.28923, 1.18287, 1.58580, 0.88098, 1.60458,
30 + 0.04792, 0.02052, 67.12621, 1.30988, 1.79932, 1.05568, 1.81852,
31 + 0.04817, 0.02097, 74.03026, 1.44035, 2.01846, 1.23462, 2.03805,
32 + 0.04842, 0.02140, 80.86339, 1.57164, 2.23883, 1.41431, 2.25880,
33 + 0.04867, 0.02183, 87.78844, 1.70675, 2.46544, 1.59882, 2.48578,
34 + 0.04893, 0.02224, 94.65599, 1.84277, 2.69348, 1.78428, 2.71418,
35 + 0.04918, 0.02264,101.50505, 1.98041, 2.92411, 1.97165, 2.94515,
36 + 0.04943, 0.02303,108.35330, 2.11988, 3.15771, 2.16125, 3.17909,
37 + 0.04968, 0.02341,115.10117, 2.25924, 3.39106, 2.35052, 3.41276/
38 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/
39 + 0.05265, 0.01883, 3.67866, 0.05101, 0.01634, 0.00000, 0.03378,
40 + 0.05306, 0.01986, 6.79273, 0.12777, 0.09128, 0.00000, 0.10961,
41 + 0.05348, 0.02080, 10.33414, 0.22316, 0.18503, 0.00000, 0.20417,
42 + 0.05389, 0.02167, 14.24124, 0.33409, 0.29446, 0.00000, 0.31433,
43 + 0.05431, 0.02248, 18.32507, 0.45076, 0.41249, 0.00548, 0.43304,
44 + 0.05473, 0.02324, 22.58011, 0.54776, 0.53918, 0.06741, 0.56036,
45 + 0.05514, 0.02396, 26.96515, 0.62316, 0.67330, 0.18724, 0.69507,
46 + 0.05556, 0.02465, 31.44249, 0.70701, 0.81364, 0.30249, 0.83597,
47 + 0.05596, 0.02531, 35.98160, 0.79325, 0.95918, 0.42322, 0.98204,
48 + 0.05638, 0.02594, 40.49191, 0.88101, 1.10683, 0.54504, 1.13019,
49 + 0.05678, 0.02655, 45.01662, 0.97092, 1.25797, 0.66943, 1.28181,
50 + 0.05718, 0.02713, 49.55295, 1.06286, 1.41239, 0.79623, 1.43669,
51 + 0.05758, 0.02769, 54.07498, 1.15625, 1.56912, 0.92467, 1.59386,
52 + 0.05797, 0.02823, 58.49271, 1.24923, 1.72507, 1.05230, 1.75023,
53 + 0.05836, 0.02876, 62.92191, 1.34400, 1.88392, 1.18211, 1.90949,
54 + 0.05874, 0.02927, 67.26494, 1.43853, 2.04232, 1.31140, 2.06828,
55 + 0.05912, 0.02976, 71.55196, 1.53335, 2.20114, 1.44089, 2.22747,
56 + 0.05950, 0.03024, 75.79805, 1.62868, 2.36074, 1.57090, 2.38744,
57 + 0.05987, 0.03071, 79.94044, 1.72318, 2.51891, 1.69964, 2.54596/
58 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/
59 + 0.06032, 0.02531, 3.57497, 0.06296, 0.01703, 0.00000, 0.04005,
60 + 0.06115, 0.02665, 6.18963, 0.13571, 0.08771, 0.00000, 0.11176,
61 + 0.06195, 0.02786, 9.02308, 0.21948, 0.16962, 0.00000, 0.19460,
62 + 0.06272, 0.02898, 12.03482, 0.31243, 0.26088, 0.00000, 0.28669,
63 + 0.06346, 0.03001, 15.08739, 0.40710, 0.35621, 0.00439, 0.38279,
64 + 0.06417, 0.03098, 18.18623, 0.48397, 0.45595, 0.05297, 0.48324,
65 + 0.06487, 0.03189, 21.30760, 0.54223, 0.55930, 0.14581, 0.58725,
66 + 0.06554, 0.03276, 24.43015, 0.60589, 0.66547, 0.23330, 0.69404,
67 + 0.06620, 0.03359, 27.53772, 0.67025, 0.77379, 0.32356, 0.80294,
68 + 0.06685, 0.03438, 30.57178, 0.73477, 0.88208, 0.41331, 0.91179,
69 + 0.06748, 0.03513, 33.56853, 0.79998, 0.99147, 0.50376, 1.02170,
70 + 0.06809, 0.03586, 36.53035, 0.86584, 1.10188, 0.59485, 1.13261,
71 + 0.06869, 0.03655, 39.44325, 0.93198, 1.21269, 0.68609, 1.24389,
72 + 0.06928, 0.03722, 42.24977, 0.99710, 1.32177, 0.77580, 1.35342,
73 + 0.06985, 0.03787, 45.03233, 1.06283, 1.43182, 0.86616, 1.46390,
74 + 0.07042, 0.03850, 47.72797, 1.12779, 1.54052, 0.95532, 1.57302,
75 + 0.07097, 0.03910, 50.35994, 1.19236, 1.64857, 1.04385, 1.68147,
76 + 0.07151, 0.03969, 52.94081, 1.25675, 1.75628, 1.13201, 1.78955,
77 + 0.07204, 0.04026, 55.43167, 1.32006, 1.86215, 1.21861, 1.89579/
78 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/
79 + 0.06517, 0.03010, 3.51411, 0.07120, 0.01718, 0.00000, 0.04423,
80 + 0.06632, 0.03165, 5.85884, 0.14092, 0.08467, 0.00000, 0.11283,
81 + 0.06741, 0.03305, 8.32942, 0.21790, 0.15968, 0.00000, 0.18883,
82 + 0.06843, 0.03434, 10.89840, 0.30111, 0.24109, 0.00000, 0.27114,
83 + 0.06941, 0.03553, 13.45492, 0.38436, 0.32463, 0.00383, 0.35549,
84 + 0.07035, 0.03665, 16.01010, 0.45104, 0.41077, 0.04572, 0.44237,
85 + 0.07125, 0.03769, 18.54872, 0.50083, 0.49893, 0.12522, 0.53123,
86 + 0.07213, 0.03868, 21.05713, 0.55471, 0.58853, 0.19927, 0.62148,
87 + 0.07297, 0.03963, 23.52573, 0.60862, 0.67907, 0.27496, 0.71263,
88 + 0.07379, 0.04052, 25.91005, 0.66220, 0.76882, 0.34960, 0.80295,
89 + 0.07459, 0.04138, 28.24280, 0.71591, 0.85877, 0.42423, 0.89345,
90 + 0.07536, 0.04220, 30.52843, 0.76976, 0.94892, 0.49887, 0.98411,
91 + 0.07611, 0.04299, 32.75760, 0.82347, 1.03878, 0.57313, 1.07446,
92 + 0.07685, 0.04374, 34.88687, 0.87601, 1.12667, 0.64568, 1.16282,
93 + 0.07756, 0.04447, 36.98360, 0.92874, 1.21485, 0.71835, 1.25144,
94 + 0.07826, 0.04518, 38.99945, 0.98054, 1.30146, 0.78965, 1.33847,
95 + 0.07894, 0.04586, 40.95441, 1.03177, 1.38710, 0.86008, 1.42451,
96 + 0.07960, 0.04651, 42.85948, 1.08260, 1.47205, 0.92987, 1.50986,
97 + 0.08025, 0.04715, 44.68547, 1.13233, 1.55515, 0.99810, 1.59332/
98 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/
99 + 0.06880, 0.03403, 3.47049, 0.07768, 0.01715, 0.00000, 0.04744,
100 + 0.07021, 0.03576, 5.63280, 0.14490, 0.08204, 0.00000, 0.11350,
101 + 0.07153, 0.03732, 7.86636, 0.21708, 0.15216, 0.00000, 0.18465,
102 + 0.07278, 0.03874, 10.15266, 0.29371, 0.22693, 0.00000, 0.26036,
103 + 0.07395, 0.04006, 12.39806, 0.36945, 0.30271, 0.00346, 0.33699,
104 + 0.07507, 0.04128, 14.61715, 0.42953, 0.38006, 0.04106, 0.41511,
105 + 0.07615, 0.04243, 16.79994, 0.47394, 0.45854, 0.11206, 0.49430,
106 + 0.07718, 0.04352, 18.93750, 0.52164, 0.53770, 0.17764, 0.57413,
107 + 0.07818, 0.04455, 21.02394, 0.56903, 0.61715, 0.24425, 0.65421,
108 + 0.07915, 0.04553, 23.02324, 0.61584, 0.69544, 0.30954, 0.73308,
109 + 0.08008, 0.04647, 24.96574, 0.66249, 0.77346, 0.37446, 0.81165,
110 + 0.08098, 0.04736, 26.85672, 0.70901, 0.85124, 0.43905, 0.88995,
111 + 0.08186, 0.04822, 28.68982, 0.75519, 0.92842, 0.50302, 0.96762,
112 + 0.08271, 0.04904, 30.42937, 0.80014, 1.00355, 0.56523, 1.04322,
113 + 0.08354, 0.04983, 32.13374, 0.84507, 1.07862, 0.62728, 1.11874,
114 + 0.08435, 0.05059, 33.76312, 0.88903, 1.15205, 0.68793, 1.19259,
115 + 0.08513, 0.05133, 35.33519, 0.93233, 1.22438, 0.74760, 1.26533,
116 + 0.08590, 0.05204, 36.86005, 0.97515, 1.29589, 0.80653, 1.33723,
117 + 0.08665, 0.05273, 38.31403, 1.01688, 1.36558, 0.86394, 1.40729/
118 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/
119 + 0.07174, 0.03744, 3.43619, 0.08310, 0.01703, 0.00000, 0.05008,
120 + 0.07337, 0.03931, 5.46192, 0.14818, 0.07969, 0.00000, 0.11396,
121 + 0.07490, 0.04099, 7.52240, 0.21664, 0.14604, 0.00000, 0.18137,
122 + 0.07633, 0.04253, 9.60580, 0.28836, 0.21585, 0.00000, 0.25214,
123 + 0.07768, 0.04395, 11.63082, 0.35858, 0.28595, 0.00320, 0.32311,
124 + 0.07896, 0.04527, 13.61438, 0.41388, 0.35694, 0.03770, 0.39488,
125 + 0.08018, 0.04651, 15.55015, 0.45442, 0.42849, 0.10261, 0.46716,
126 + 0.08135, 0.04768, 17.43233, 0.49773, 0.50024, 0.16218, 0.53959,
127 + 0.08248, 0.04878, 19.25757, 0.54053, 0.57187, 0.22239, 0.61186,
128 + 0.08357, 0.04983, 20.99544, 0.58258, 0.64212, 0.28112, 0.68270,
129 + 0.08463, 0.05083, 22.67453, 0.62431, 0.71182, 0.33928, 0.75296,
130 + 0.08564, 0.05179, 24.30077, 0.66575, 0.78104, 0.39691, 0.82270,
131 + 0.08663, 0.05270, 25.86943, 0.70672, 0.84946, 0.45377, 0.89161,
132 + 0.08759, 0.05358, 27.35023, 0.74646, 0.91582, 0.50887, 0.95844,
133 + 0.08851, 0.05442, 28.79524, 0.78605, 0.98191, 0.56365, 1.02498,
134 + 0.08942, 0.05523, 30.17026, 0.82465, 1.04636, 0.61702, 1.08984,
135 + 0.09029, 0.05601, 31.49141, 0.86256, 1.10965, 0.66939, 1.15354,
136 + 0.09115, 0.05676, 32.76807, 0.89994, 1.17205, 0.72095, 1.21633,
137 + 0.09198, 0.05749, 33.98010, 0.93627, 1.23269, 0.77104, 1.27733/
138 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/
139 + 0.08175, 0.05035, 3.32503, 0.10233, 0.01603, 0.00000, 0.05918,
140 + 0.08424, 0.05275, 4.95133, 0.15955, 0.07066, 0.00000, 0.11512,
141 + 0.08654, 0.05489, 6.52810, 0.21653, 0.12539, 0.00000, 0.17100,
142 + 0.08868, 0.05684, 8.06148, 0.27396, 0.18082, 0.00000, 0.22744,
143 + 0.09067, 0.05861, 9.50291, 0.32866, 0.23499, 0.00247, 0.28250,
144 + 0.09256, 0.06026, 10.87475, 0.37079, 0.28855, 0.02855, 0.33688,
145 + 0.09435, 0.06179, 12.17946, 0.40089, 0.34145, 0.07707, 0.39051,
146 + 0.09605, 0.06324, 13.41866, 0.43249, 0.39353, 0.12071, 0.44327,
147 + 0.09768, 0.06459, 14.59475, 0.46318, 0.44468, 0.16413, 0.49505,
148 + 0.09925, 0.06588, 15.69085, 0.49287, 0.49410, 0.20587, 0.54505,
149 + 0.10075, 0.06709, 16.73024, 0.52190, 0.54245, 0.24664, 0.59394,
150 + 0.10219, 0.06825, 17.71971, 0.55036, 0.58985, 0.28653, 0.64185,
151 + 0.10359, 0.06936, 18.65834, 0.57815, 0.63615, 0.32543, 0.68862,
152 + 0.10493, 0.07041, 19.52817, 0.60477, 0.68053, 0.36269, 0.73344,
153 + 0.10623, 0.07142, 20.36560, 0.63101, 0.72429, 0.39936, 0.77761,
154 + 0.10748, 0.07238, 21.14958, 0.65633, 0.76650, 0.43472, 0.82022,
155 + 0.10870, 0.07331, 21.89204, 0.68094, 0.80757, 0.46909, 0.86166,
156 + 0.10988, 0.07420, 22.60011, 0.70499, 0.84769, 0.50264, 0.90213,
157 + 0.11103, 0.07506, 23.26193, 0.72814, 0.88632, 0.53492, 0.94110/
158 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/
159 + 0.09411, 0.06777, 3.20020, 0.12542, 0.01397, 0.00000, 0.06970,
160 + 0.09778, 0.07078, 4.45951, 0.17303, 0.05899, 0.00000, 0.11604,
161 + 0.10113, 0.07346, 5.62203, 0.21869, 0.10245, 0.00000, 0.16061,
162 + 0.10423, 0.07588, 6.70688, 0.26319, 0.14505, 0.00000, 0.20418,
163 + 0.10711, 0.07806, 7.69021, 0.30454, 0.18566, 0.00185, 0.24564,
164 + 0.10980, 0.08007, 8.59676, 0.33563, 0.22491, 0.02109, 0.28563,
165 + 0.11235, 0.08193, 9.43437, 0.35722, 0.26287, 0.05648, 0.32426,
166 + 0.11476, 0.08367, 10.20893, 0.37950, 0.29956, 0.08766, 0.36155,
167 + 0.11706, 0.08530, 10.92601, 0.40074, 0.33498, 0.11819, 0.39752,
168 + 0.11925, 0.08683, 11.57743, 0.42095, 0.36867, 0.14709, 0.43169,
169 + 0.12134, 0.08827, 12.18159, 0.44040, 0.40114, 0.17491, 0.46462,
170 + 0.12335, 0.08963, 12.74499, 0.45920, 0.43255, 0.20178, 0.49644,
171 + 0.12527, 0.09092, 13.26873, 0.47731, 0.46284, 0.22764, 0.52711,
172 + 0.12711, 0.09215, 13.74260, 0.49442, 0.49149, 0.25212, 0.55612,
173 + 0.12889, 0.09332, 14.19141, 0.51109, 0.51943, 0.27594, 0.58438,
174 + 0.13060, 0.09443, 14.60262, 0.52698, 0.54609, 0.29866, 0.61134,
175 + 0.13225, 0.09550, 14.98475, 0.54225, 0.57174, 0.32052, 0.63727,
176 + 0.13385, 0.09652, 15.34300, 0.55702, 0.59656, 0.34164, 0.66235,
177 + 0.13539, 0.09749, 15.67058, 0.57108, 0.62020, 0.36178, 0.68623/
178 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/
179 + 0.10357, 0.08067, 3.11537, 0.14066, 0.01233, 0.00000, 0.07650,
180 + 0.10815, 0.08408, 4.17223, 0.18200, 0.05126, 0.00000, 0.11666,
181 + 0.11231, 0.08709, 5.11878, 0.22115, 0.08842, 0.00000, 0.15483,
182 + 0.11613, 0.08978, 5.97918, 0.25865, 0.12424, 0.00000, 0.19150,
183 + 0.11967, 0.09221, 6.74062, 0.29300, 0.15792, 0.00155, 0.22592,
184 + 0.12297, 0.09442, 7.42789, 0.31843, 0.19003, 0.01740, 0.25866,
185 + 0.12607, 0.09647, 8.05054, 0.33572, 0.22070, 0.04635, 0.28988,
186 + 0.12900, 0.09837, 8.61579, 0.35339, 0.25001, 0.07156, 0.31968,
187 + 0.13178, 0.10014, 9.13005, 0.37003, 0.27800, 0.09598, 0.34810,
188 + 0.13442, 0.10179, 9.58852, 0.38568, 0.30435, 0.11888, 0.37484,
189 + 0.13693, 0.10334, 10.00690, 0.40060, 0.32952, 0.14073, 0.40035,
190 + 0.13933, 0.10480, 10.39119, 0.41488, 0.35365, 0.16165, 0.42479,
191 + 0.14162, 0.10619, 10.74296, 0.42852, 0.37673, 0.18163, 0.44814,
192 + 0.14381, 0.10749, 11.05516, 0.44128, 0.39838, 0.20039, 0.47004,
193 + 0.14592, 0.10873, 11.34723, 0.45362, 0.41934, 0.21852, 0.49122,
194 + 0.14794, 0.10991, 11.61008, 0.46527, 0.43918, 0.23569, 0.51127,
195 + 0.14989, 0.11103, 11.85054, 0.47639, 0.45815, 0.25209, 0.53041,
196 + 0.15176, 0.11210, 12.07276, 0.48706, 0.47638, 0.26785, 0.54881,
197 + 0.15357, 0.11311, 12.27197, 0.49714, 0.49362, 0.28277, 0.56620/
198 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/
199 + 0.11261, 0.09135, 3.04669, 0.15220, 0.01124, 0.00000, 0.08174,
200 + 0.11802, 0.09503, 3.96303, 0.18928, 0.04625, 0.00000, 0.11780,
201 + 0.12291, 0.09825, 4.76451, 0.22399, 0.07929, 0.00000, 0.15169,
202 + 0.12739, 0.10112, 5.47809, 0.25678, 0.11070, 0.00000, 0.18380,
203 + 0.13150, 0.10370, 6.09756, 0.28646, 0.13991, 0.00135, 0.21359,
204 + 0.13532, 0.10604, 6.64704, 0.30811, 0.16744, 0.01503, 0.24161,
205 + 0.13889, 0.10818, 7.13679, 0.32255, 0.19349, 0.03988, 0.26807,
206 + 0.14226, 0.11017, 7.57452, 0.33719, 0.21815, 0.06131, 0.29308,
207 + 0.14544, 0.11202, 7.96680, 0.35084, 0.24150, 0.08191, 0.31674,
208 + 0.14844, 0.11373, 8.31082, 0.36357, 0.26331, 0.10108, 0.33880,
209 + 0.15129, 0.11533, 8.62016, 0.37560, 0.28398, 0.11924, 0.35970,
210 + 0.15400, 0.11684, 8.90041, 0.38702, 0.30367, 0.13651, 0.37957,
211 + 0.15659, 0.11825, 9.15334, 0.39784, 0.32237, 0.15291, 0.39844,
212 + 0.15905, 0.11958, 9.37363, 0.40788, 0.33980, 0.16821, 0.41600,
213 + 0.16141, 0.12084, 9.57736, 0.41753, 0.35658, 0.18292, 0.43289,
214 + 0.16367, 0.12203, 9.75742, 0.42658, 0.37236, 0.19676, 0.44877,
215 + 0.16583, 0.12316, 9.91951, 0.43515, 0.38736, 0.20992, 0.46385,
216 + 0.16792, 0.12424, 10.06711, 0.44334, 0.40171, 0.22251, 0.47826,
217 + 0.16992, 0.12526, 10.19651, 0.45100, 0.41520, 0.23436, 0.49180/
218 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/
219 + 0.12165, 0.10064, 2.98697, 0.16142, 0.01055, 0.00000, 0.08602,
220 + 0.12786, 0.10451, 3.79585, 0.19543, 0.04290, 0.00000, 0.11922,
221 + 0.13343, 0.10788, 4.48910, 0.22678, 0.07296, 0.00000, 0.14994,
222 + 0.13850, 0.11087, 5.09542, 0.25601, 0.10117, 0.00000, 0.17866,
223 + 0.14314, 0.11353, 5.61288, 0.28216, 0.12712, 0.00120, 0.20503,
224 + 0.14742, 0.11594, 6.06484, 0.30098, 0.15136, 0.01331, 0.22959,
225 + 0.15141, 0.11814, 6.46177, 0.31327, 0.17408, 0.03520, 0.25257,
226 + 0.15516, 0.12016, 6.81148, 0.32566, 0.19543, 0.05392, 0.27412,
227 + 0.15868, 0.12204, 7.12050, 0.33711, 0.21549, 0.07180, 0.29435,
228 + 0.16199, 0.12377, 7.38714, 0.34769, 0.23411, 0.08833, 0.31308,
229 + 0.16512, 0.12538, 7.62354, 0.35761, 0.25164, 0.10390, 0.33071,
230 + 0.16810, 0.12689, 7.83479, 0.36697, 0.26824, 0.11863, 0.34737,
231 + 0.17092, 0.12831, 8.02271, 0.37578, 0.28391, 0.13253, 0.36309,
232 + 0.17360, 0.12963, 8.18309, 0.38388, 0.29843, 0.14544, 0.37763,
233 + 0.17617, 0.13088, 8.32963, 0.39163, 0.31234, 0.15779, 0.39154,
234 + 0.17861, 0.13206, 8.45653, 0.39883, 0.32536, 0.16936, 0.40455,
235 + 0.18095, 0.13317, 8.56867, 0.40562, 0.33767, 0.18031, 0.41684,
236 + 0.18319, 0.13423, 8.66905, 0.41206, 0.34940, 0.19075, 0.42853,
237 + 0.18533, 0.13522, 8.75464, 0.41805, 0.36037, 0.20052, 0.43945/
238 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/
239 + 0.16333, 0.13604, 2.75312, 0.18763, 0.00806, 0.00000, 0.09787,
240 + 0.17239, 0.14024, 3.24960, 0.21094, 0.03178, 0.00000, 0.12140,
241 + 0.18033, 0.14381, 3.64411, 0.23147, 0.05290, 0.00000, 0.14223,
242 + 0.18742, 0.14689, 3.96605, 0.24981, 0.07194, 0.00000, 0.16093,
243 + 0.19376, 0.14957, 4.22189, 0.26558, 0.08888, 0.00080, 0.17748,
244 + 0.19951, 0.15195, 4.43079, 0.27616, 0.10421, 0.00865, 0.19240,
245 + 0.20479, 0.15407, 4.60210, 0.28227, 0.11818, 0.02264, 0.20594,
246 + 0.20967, 0.15598, 4.74273, 0.28834, 0.13094, 0.03429, 0.21827,
247 + 0.21419, 0.15772, 4.85826, 0.29373, 0.14265, 0.04515, 0.22954,
248 + 0.21836, 0.15928, 4.94870, 0.29850, 0.15325, 0.05500, 0.23968,
249 + 0.22226, 0.16070, 5.02213, 0.30281, 0.16301, 0.06408, 0.24899,
250 + 0.22591, 0.16201, 5.08195, 0.30674, 0.17205, 0.07251, 0.25758,
251 + 0.22935, 0.16322, 5.12957, 0.31032, 0.18042, 0.08033, 0.26551,
252 + 0.23254, 0.16431, 5.16313, 0.31345, 0.18800, 0.08745, 0.27265,
253 + 0.23558, 0.16534, 5.19037, 0.31637, 0.19513, 0.09416, 0.27935,
254 + 0.23844, 0.16627, 5.20833, 0.31895, 0.20168, 0.10034, 0.28546,
255 + 0.24113, 0.16714, 5.21970, 0.32129, 0.20775, 0.10610, 0.29110,
256 + 0.24369, 0.16795, 5.22619, 0.32344, 0.21343, 0.11150, 0.29637,
257 + 0.24611, 0.16869, 5.22626, 0.32533, 0.21865, 0.11648, 0.30116/
258 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/
259 + 0.24459, 0.18331, 2.40477, 0.19819, 0.00563, 0.00000, 0.10193,
260 + 0.25604, 0.18678, 2.62843, 0.21017, 0.02150, 0.00000, 0.11586,
261 + 0.26571, 0.18953, 2.78248, 0.21995, 0.03487, 0.00000, 0.12743,
262 + 0.27406, 0.19178, 2.89083, 0.22810, 0.04635, 0.00000, 0.13725,
263 + 0.28126, 0.19359, 2.96146, 0.23454, 0.05614, 0.00048, 0.14548,
264 + 0.28761, 0.19508, 3.00721, 0.23786, 0.06464, 0.00503, 0.15253,
265 + 0.29326, 0.19632, 3.03438, 0.23859, 0.07211, 0.01299, 0.15862,
266 + 0.29832, 0.19736, 3.04747, 0.23936, 0.07870, 0.01941, 0.16390,
267 + 0.30289, 0.19823, 3.04985, 0.23981, 0.08454, 0.02523, 0.16850,
268 + 0.30697, 0.19893, 3.04202, 0.23998, 0.08965, 0.03037, 0.17243,
269 + 0.31067, 0.19951, 3.02819, 0.23998, 0.09421, 0.03499, 0.17586,
270 + 0.31406, 0.19999, 3.01011, 0.23983, 0.09831, 0.03918, 0.17888,
271 + 0.31717, 0.20039, 2.98846, 0.23957, 0.10200, 0.04298, 0.18154,
272 + 0.31996, 0.20067, 2.96234, 0.23913, 0.10522, 0.04635, 0.18377,
273 + 0.32256, 0.20091, 2.93540, 0.23864, 0.10818, 0.04947, 0.18578,
274 + 0.32491, 0.20108, 2.90614, 0.23804, 0.11080, 0.05227, 0.18749,
275 + 0.32709, 0.20119, 2.87577, 0.23737, 0.11316, 0.05482, 0.18898,
276 + 0.32911, 0.20126, 2.84499, 0.23666, 0.11531, 0.05718, 0.19029,
277 + 0.33094, 0.20128, 2.81304, 0.23588, 0.11721, 0.05930, 0.19137/
278 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/
279 + 0.31979, 0.21594, 2.12178, 0.18783, 0.00424, 0.00000, 0.09603,
280 + 0.33083, 0.21786, 2.21401, 0.19338, 0.01586, 0.00000, 0.10462,
281 + 0.33979, 0.21913, 2.26097, 0.19742, 0.02530, 0.00000, 0.11136,
282 + 0.34723, 0.21997, 2.28060, 0.20039, 0.03314, 0.00000, 0.11676,
283 + 0.35338, 0.22047, 2.27918, 0.20229, 0.03961, 0.00032, 0.12103,
284 + 0.35859, 0.22070, 2.26523, 0.20219, 0.04507, 0.00336, 0.12446,
285 + 0.36305, 0.22074, 2.24277, 0.20048, 0.04973, 0.00862, 0.12726,
286 + 0.36687, 0.22064, 2.21449, 0.19894, 0.05374, 0.01276, 0.12952,
287 + 0.37018, 0.22041, 2.18245, 0.19730, 0.05720, 0.01645, 0.13136,
288 + 0.37299, 0.22006, 2.14672, 0.19559, 0.06015, 0.01965, 0.13277,
289 + 0.37542, 0.21963, 2.10978, 0.19387, 0.06270, 0.02246, 0.13389,
290 + 0.37754, 0.21915, 2.07249, 0.19215, 0.06493, 0.02497, 0.13477,
291 + 0.37938, 0.21862, 2.03507, 0.19044, 0.06690, 0.02721, 0.13546,
292 + 0.38092, 0.21802, 1.99681, 0.18870, 0.06855, 0.02916, 0.13590,
293 + 0.38228, 0.21741, 1.95975, 0.18700, 0.07004, 0.03094, 0.13624,
294 + 0.38342, 0.21676, 1.92289, 0.18530, 0.07131, 0.03250, 0.13642,
295 + 0.38440, 0.21608, 1.88679, 0.18362, 0.07242, 0.03391, 0.13648,
296 + 0.38524, 0.21539, 1.85174, 0.18197, 0.07340, 0.03519, 0.13647,
297 + 0.38591, 0.21468, 1.81722, 0.18033, 0.07423, 0.03631, 0.13634/
298 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/
299 + 0.38671, 0.23943, 1.87713, 0.16973, 0.00330, 0.00000, 0.08650,
300 + 0.39556, 0.23941, 1.89377, 0.17134, 0.01215, 0.00000, 0.09173,
301 + 0.40229, 0.23894, 1.88287, 0.17199, 0.01913, 0.00000, 0.09555,
302 + 0.40755, 0.23819, 1.85738, 0.17203, 0.02478, 0.00000, 0.09839,
303 + 0.41158, 0.23720, 1.82160, 0.17145, 0.02932, 0.00023, 0.10043,
304 + 0.41473, 0.23606, 1.78098, 0.16959, 0.03305, 0.00239, 0.10190,
305 + 0.41716, 0.23484, 1.73778, 0.16672, 0.03616, 0.00609, 0.10294,
306 + 0.41906, 0.23353, 1.69352, 0.16409, 0.03877, 0.00895, 0.10365,
307 + 0.42048, 0.23219, 1.64928, 0.16152, 0.04097, 0.01146, 0.10409,
308 + 0.42146, 0.23078, 1.60484, 0.15901, 0.04279, 0.01359, 0.10428,
309 + 0.42212, 0.22936, 1.56160, 0.15658, 0.04433, 0.01545, 0.10429,
310 + 0.42254, 0.22795, 1.51993, 0.15423, 0.04564, 0.01708, 0.10419,
311 + 0.42274, 0.22654, 1.47977, 0.15196, 0.04676, 0.01852, 0.10397,
312 + 0.42269, 0.22509, 1.44050, 0.14974, 0.04767, 0.01975, 0.10362,
313 + 0.42253, 0.22368, 1.40326, 0.14762, 0.04847, 0.02085, 0.10323,
314 + 0.42220, 0.22226, 1.36729, 0.14555, 0.04912, 0.02181, 0.10277,
315 + 0.42174, 0.22086, 1.33284, 0.14355, 0.04966, 0.02266, 0.10225,
316 + 0.42121, 0.21948, 1.29998, 0.14162, 0.05012, 0.02341, 0.10170,
317 + 0.42054, 0.21811, 1.26830, 0.13973, 0.05048, 0.02407, 0.10110/
318 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/
319 + 0.44430, 0.25593, 1.66119, 0.14904, 0.00261, 0.00000, 0.07582,
320 + 0.44982, 0.25383, 1.63158, 0.14824, 0.00950, 0.00000, 0.07886,
321 + 0.45343, 0.25152, 1.58750, 0.14691, 0.01480, 0.00000, 0.08085,
322 + 0.45577, 0.24912, 1.53785, 0.14530, 0.01899, 0.00000, 0.08213,
323 + 0.45706, 0.24665, 1.48505, 0.14338, 0.02227, 0.00017, 0.08286,
324 + 0.45764, 0.24416, 1.43238, 0.14065, 0.02491, 0.00176, 0.08321,
325 + 0.45766, 0.24170, 1.38085, 0.13731, 0.02706, 0.00445, 0.08329,
326 + 0.45726, 0.23925, 1.33111, 0.13426, 0.02883, 0.00651, 0.08316,
327 + 0.45652, 0.23685, 1.28356, 0.13135, 0.03029, 0.00828, 0.08287,
328 + 0.45545, 0.23446, 1.23778, 0.12857, 0.03145, 0.00977, 0.08244,
329 + 0.45416, 0.23213, 1.19448, 0.12593, 0.03241, 0.01105, 0.08192,
330 + 0.45273, 0.22986, 1.15370, 0.12342, 0.03321, 0.01216, 0.08134,
331 + 0.45118, 0.22765, 1.11521, 0.12102, 0.03387, 0.01312, 0.08071,
332 + 0.44944, 0.22546, 1.07845, 0.11872, 0.03438, 0.01394, 0.08001,
333 + 0.44769, 0.22335, 1.04405, 0.11653, 0.03481, 0.01466, 0.07931,
334 + 0.44583, 0.22126, 1.01138, 0.11443, 0.03513, 0.01528, 0.07859,
335 + 0.44392, 0.21924, 0.98051, 0.11242, 0.03539, 0.01581, 0.07784,
336 + 0.44199, 0.21727, 0.95138, 0.11049, 0.03559, 0.01628, 0.07710,
337 + 0.43998, 0.21533, 0.92368, 0.10864, 0.03572, 0.01668, 0.07633/
338 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/
339 + 0.50285, 0.26861, 1.42406, 0.12311, 0.00199, 0.00001, 0.06254,
340 + 0.50324, 0.26391, 1.36066, 0.12067, 0.00712, 0.00001, 0.06389,
341 + 0.50222, 0.25934, 1.29441, 0.11809, 0.01096, 0.00000, 0.06451,
342 + 0.50039, 0.25496, 1.23023, 0.11549, 0.01391, 0.00001, 0.06469,
343 + 0.49787, 0.25074, 1.16867, 0.11284, 0.01616, 0.00013, 0.06452,
344 + 0.49496, 0.24669, 1.11108, 0.10976, 0.01793, 0.00124, 0.06414,
345 + 0.49175, 0.24281, 1.05741, 0.10637, 0.01933, 0.00311, 0.06362,
346 + 0.48834, 0.23909, 1.00753, 0.10330, 0.02045, 0.00452, 0.06298,
347 + 0.48481, 0.23553, 0.96131, 0.10042, 0.02134, 0.00571, 0.06229,
348 + 0.48113, 0.23206, 0.91813, 0.09770, 0.02202, 0.00670, 0.06152,
349 + 0.47741, 0.22874, 0.87816, 0.09515, 0.02257, 0.00753, 0.06073,
350 + 0.47370, 0.22556, 0.84121, 0.09276, 0.02300, 0.00825, 0.05993,
351 + 0.47000, 0.22250, 0.80693, 0.09050, 0.02334, 0.00886, 0.05912,
352 + 0.46624, 0.21953, 0.77481, 0.08836, 0.02358, 0.00936, 0.05829,
353 + 0.46258, 0.21669, 0.74511, 0.08634, 0.02377, 0.00980, 0.05749,
354 + 0.45891, 0.21394, 0.71730, 0.08442, 0.02389, 0.01017, 0.05668,
355 + 0.45529, 0.21128, 0.69133, 0.08259, 0.02397, 0.01049, 0.05588,
356 + 0.45172, 0.20873, 0.66707, 0.08086, 0.02401, 0.01076, 0.05511,
357 + 0.44818, 0.20625, 0.64427, 0.07920, 0.02402, 0.01098, 0.05434/
358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/
359 + 0.54644, 0.27388, 1.21772, 0.09938, 0.00152, 0.00001, 0.05044,
360 + 0.54122, 0.26674, 1.13669, 0.09627, 0.00539, 0.00001, 0.05081,
361 + 0.53532, 0.26010, 1.06075, 0.09323, 0.00820, 0.00001, 0.05070,
362 + 0.52915, 0.25395, 0.99175, 0.09035, 0.01032, 0.00001, 0.05031,
363 + 0.52275, 0.24820, 0.92887, 0.08755, 0.01189, 0.00009, 0.04973,
364 + 0.51636, 0.24281, 0.87215, 0.08455, 0.01309, 0.00089, 0.04903,
365 + 0.51000, 0.23774, 0.82076, 0.08143, 0.01402, 0.00221, 0.04826,
366 + 0.50371, 0.23294, 0.77418, 0.07860, 0.01474, 0.00320, 0.04745,
367 + 0.49753, 0.22842, 0.73189, 0.07600, 0.01529, 0.00401, 0.04663,
368 + 0.49139, 0.22410, 0.69313, 0.07356, 0.01570, 0.00468, 0.04579,
369 + 0.48542, 0.21999, 0.65783, 0.07129, 0.01601, 0.00524, 0.04495,
370 + 0.47962, 0.21609, 0.62563, 0.06918, 0.01624, 0.00571, 0.04412,
371 + 0.47399, 0.21240, 0.59613, 0.06721, 0.01641, 0.00611, 0.04332,
372 + 0.46843, 0.20883, 0.56887, 0.06535, 0.01651, 0.00643, 0.04252,
373 + 0.46308, 0.20544, 0.54387, 0.06360, 0.01657, 0.00671, 0.04175,
374 + 0.45784, 0.20219, 0.52072, 0.06196, 0.01659, 0.00693, 0.04099,
375 + 0.45273, 0.19907, 0.49929, 0.06040, 0.01659, 0.00712, 0.04026,
376 + 0.44777, 0.19610, 0.47944, 0.05893, 0.01657, 0.00729, 0.03956,
377 + 0.44293, 0.19323, 0.46094, 0.05754, 0.01652, 0.00742, 0.03886/
378 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/
379 + 0.57591, 0.27299, 1.03779, 0.07875, 0.00117, 0.00000, 0.03995,
380 + 0.56507, 0.26368, 0.94919, 0.07552, 0.00409, 0.00000, 0.03980,
381 + 0.55434, 0.25527, 0.87084, 0.07249, 0.00617, 0.00000, 0.03932,
382 + 0.54400, 0.24762, 0.80245, 0.06970, 0.00770, 0.00000, 0.03869,
383 + 0.53397, 0.24060, 0.74213, 0.06706, 0.00881, 0.00006, 0.03794,
384 + 0.52433, 0.23411, 0.68903, 0.06436, 0.00964, 0.00064, 0.03715,
385 + 0.51505, 0.22809, 0.64200, 0.06163, 0.01026, 0.00159, 0.03633,
386 + 0.50616, 0.22248, 0.60007, 0.05918, 0.01073, 0.00229, 0.03552,
387 + 0.49763, 0.21720, 0.56261, 0.05693, 0.01108, 0.00286, 0.03472,
388 + 0.48936, 0.21223, 0.52880, 0.05486, 0.01131, 0.00332, 0.03391,
389 + 0.48142, 0.20755, 0.49838, 0.05294, 0.01149, 0.00370, 0.03313,
390 + 0.47382, 0.20314, 0.47094, 0.05116, 0.01160, 0.00402, 0.03238,
391 + 0.46656, 0.19897, 0.44606, 0.04951, 0.01167, 0.00428, 0.03165,
392 + 0.45947, 0.19500, 0.42330, 0.04796, 0.01170, 0.00449, 0.03094,
393 + 0.45271, 0.19125, 0.40259, 0.04651, 0.01171, 0.00466, 0.03027,
394 + 0.44618, 0.18767, 0.38359, 0.04515, 0.01168, 0.00481, 0.02961,
395 + 0.43989, 0.18425, 0.36613, 0.04388, 0.01164, 0.00492, 0.02898,
396 + 0.43384, 0.18100, 0.35005, 0.04268, 0.01159, 0.00502, 0.02838,
397 + 0.42795, 0.17788, 0.33518, 0.04154, 0.01152, 0.00509, 0.02780/
398 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/
399 + 0.59252, 0.26706, 0.88101, 0.06134, 0.00090, 0.00000, 0.03112,
400 + 0.57632, 0.25594, 0.79114, 0.05832, 0.00312, 0.00000, 0.03071,
401 + 0.56111, 0.24607, 0.71477, 0.05555, 0.00466, 0.00000, 0.03010,
402 + 0.54695, 0.23723, 0.64999, 0.05304, 0.00577, 0.00000, 0.02940,
403 + 0.53364, 0.22923, 0.59426, 0.05071, 0.00656, 0.00005, 0.02864,
404 + 0.52114, 0.22192, 0.54614, 0.04839, 0.00713, 0.00047, 0.02787,
405 + 0.50934, 0.21520, 0.50422, 0.04611, 0.00755, 0.00115, 0.02711,
406 + 0.49821, 0.20899, 0.46739, 0.04406, 0.00785, 0.00165, 0.02637,
407 + 0.48768, 0.20320, 0.43490, 0.04220, 0.00807, 0.00205, 0.02565,
408 + 0.47762, 0.19779, 0.40595, 0.04049, 0.00820, 0.00237, 0.02494,
409 + 0.46807, 0.19273, 0.38017, 0.03892, 0.00829, 0.00264, 0.02426,
410 + 0.45902, 0.18799, 0.35712, 0.03747, 0.00835, 0.00285, 0.02362,
411 + 0.45044, 0.18354, 0.33639, 0.03614, 0.00836, 0.00302, 0.02300,
412 + 0.44215, 0.17932, 0.31761, 0.03489, 0.00835, 0.00316, 0.02241,
413 + 0.43430, 0.17535, 0.30064, 0.03373, 0.00833, 0.00327, 0.02184,
414 + 0.42678, 0.17158, 0.28518, 0.03264, 0.00829, 0.00336, 0.02130,
415 + 0.41958, 0.16800, 0.27106, 0.03162, 0.00824, 0.00343, 0.02079,
416 + 0.41268, 0.16461, 0.25814, 0.03067, 0.00818, 0.00349, 0.02030,
417 + 0.40603, 0.16137, 0.24626, 0.02978, 0.00811, 0.00354, 0.01982/
418 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/
419 + 0.59760, 0.25710, 0.74463, 0.04707, 0.00069, 0.00000, 0.02387,
420 + 0.57654, 0.24456, 0.65754, 0.04441, 0.00237, 0.00000, 0.02338,
421 + 0.55733, 0.23359, 0.58570, 0.04201, 0.00352, 0.00000, 0.02275,
422 + 0.53985, 0.22388, 0.52613, 0.03986, 0.00433, 0.00000, 0.02209,
423 + 0.52373, 0.21517, 0.47593, 0.03790, 0.00489, 0.00004, 0.02139,
424 + 0.50882, 0.20730, 0.43327, 0.03599, 0.00528, 0.00034, 0.02071,
425 + 0.49495, 0.20013, 0.39664, 0.03413, 0.00556, 0.00084, 0.02005,
426 + 0.48200, 0.19353, 0.36483, 0.03248, 0.00576, 0.00119, 0.01941,
427 + 0.46986, 0.18744, 0.33707, 0.03098, 0.00589, 0.00148, 0.01880,
428 + 0.45840, 0.18177, 0.31263, 0.02961, 0.00597, 0.00171, 0.01821,
429 + 0.44763, 0.17651, 0.29105, 0.02836, 0.00601, 0.00189, 0.01765,
430 + 0.43748, 0.17161, 0.27191, 0.02721, 0.00602, 0.00203, 0.01712,
431 + 0.42787, 0.16702, 0.25483, 0.02616, 0.00602, 0.00215, 0.01661,
432 + 0.41872, 0.16270, 0.23948, 0.02518, 0.00599, 0.00223, 0.01614,
433 + 0.41009, 0.15866, 0.22569, 0.02427, 0.00595, 0.00231, 0.01569,
434 + 0.40183, 0.15483, 0.21319, 0.02343, 0.00591, 0.00237, 0.01525,
435 + 0.39399, 0.15121, 0.20186, 0.02264, 0.00585, 0.00241, 0.01484,
436 + 0.38653, 0.14779, 0.19155, 0.02190, 0.00579, 0.00245, 0.01445,
437 + 0.37937, 0.14453, 0.18212, 0.02120, 0.00573, 0.00247, 0.01408/
438 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/
439 + 0.59248, 0.24390, 0.62629, 0.03557, 0.00053, 0.00000, 0.01805,
440 + 0.56722, 0.23035, 0.54441, 0.03332, 0.00180, 0.00000, 0.01756,
441 + 0.54463, 0.21861, 0.47857, 0.03134, 0.00265, 0.00000, 0.01699,
442 + 0.52438, 0.20835, 0.42499, 0.02957, 0.00324, 0.00000, 0.01640,
443 + 0.50597, 0.19922, 0.38061, 0.02797, 0.00364, 0.00003, 0.01581,
444 + 0.48918, 0.19104, 0.34347, 0.02643, 0.00391, 0.00025, 0.01523,
445 + 0.47369, 0.18363, 0.31190, 0.02496, 0.00410, 0.00061, 0.01468,
446 + 0.45936, 0.17686, 0.28482, 0.02365, 0.00422, 0.00087, 0.01415,
447 + 0.44604, 0.17065, 0.26141, 0.02248, 0.00430, 0.00107, 0.01365,
448 + 0.43355, 0.16491, 0.24100, 0.02141, 0.00434, 0.00123, 0.01318,
449 + 0.42188, 0.15960, 0.22312, 0.02043, 0.00435, 0.00135, 0.01273,
450 + 0.41097, 0.15468, 0.20737, 0.01954, 0.00435, 0.00145, 0.01230,
451 + 0.40074, 0.15009, 0.19341, 0.01872, 0.00434, 0.00153, 0.01191,
452 + 0.39101, 0.14579, 0.18096, 0.01797, 0.00430, 0.00159, 0.01153,
453 + 0.38188, 0.14177, 0.16983, 0.01727, 0.00426, 0.00163, 0.01117,
454 + 0.37321, 0.13799, 0.15982, 0.01663, 0.00421, 0.00167, 0.01083,
455 + 0.36499, 0.13443, 0.15078, 0.01603, 0.00417, 0.00170, 0.01052,
456 + 0.35720, 0.13108, 0.14259, 0.01546, 0.00412, 0.00172, 0.01021,
457 + 0.34975, 0.12790, 0.13514, 0.01494, 0.00406, 0.00173, 0.00993/
458 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/
459 + 0.57866, 0.22836, 0.52395, 0.02650, 0.00040, 0.00000, 0.01345,
460 + 0.54992, 0.21417, 0.44877, 0.02468, 0.00136, 0.00000, 0.01302,
461 + 0.52462, 0.20201, 0.38958, 0.02308, 0.00199, 0.00000, 0.01253,
462 + 0.50223, 0.19147, 0.34222, 0.02167, 0.00242, 0.00000, 0.01204,
463 + 0.48209, 0.18218, 0.30359, 0.02040, 0.00270, 0.00002, 0.01155,
464 + 0.46390, 0.17390, 0.27165, 0.01919, 0.00289, 0.00018, 0.01109,
465 + 0.44726, 0.16645, 0.24481, 0.01805, 0.00302, 0.00045, 0.01064,
466 + 0.43198, 0.15969, 0.22202, 0.01704, 0.00309, 0.00063, 0.01022,
467 + 0.41788, 0.15352, 0.20250, 0.01614, 0.00314, 0.00078, 0.00982,
468 + 0.40474, 0.14785, 0.18562, 0.01532, 0.00315, 0.00088, 0.00945,
469 + 0.39254, 0.14262, 0.17094, 0.01457, 0.00315, 0.00097, 0.00910,
470 + 0.38118, 0.13780, 0.15810, 0.01390, 0.00314, 0.00103, 0.00877,
471 + 0.37059, 0.13333, 0.14680, 0.01327, 0.00312, 0.00109, 0.00847,
472 + 0.36057, 0.12914, 0.13678, 0.01271, 0.00308, 0.00113, 0.00817,
473 + 0.35120, 0.12526, 0.12786, 0.01218, 0.00305, 0.00116, 0.00790,
474 + 0.34234, 0.12161, 0.11989, 0.01170, 0.00301, 0.00118, 0.00764,
475 + 0.33398, 0.11819, 0.11272, 0.01125, 0.00296, 0.00120, 0.00740,
476 + 0.32608, 0.11497, 0.10626, 0.01083, 0.00292, 0.00121, 0.00717,
477 + 0.31856, 0.11193, 0.10041, 0.01044, 0.00288, 0.00121, 0.00696/
478 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/
479 + 0.55751, 0.21111, 0.43576, 0.01945, 0.00032, 0.00001, 0.00989,
480 + 0.52605, 0.19665, 0.36800, 0.01802, 0.00103, 0.00001, 0.00953,
481 + 0.49875, 0.18438, 0.31565, 0.01676, 0.00150, 0.00001, 0.00914,
482 + 0.47481, 0.17382, 0.27441, 0.01567, 0.00181, 0.00001, 0.00874,
483 + 0.45353, 0.16458, 0.24122, 0.01468, 0.00200, 0.00002, 0.00835,
484 + 0.43438, 0.15641, 0.21409, 0.01377, 0.00213, 0.00014, 0.00798,
485 + 0.41704, 0.14910, 0.19154, 0.01290, 0.00221, 0.00033, 0.00764,
486 + 0.40122, 0.14250, 0.17256, 0.01213, 0.00226, 0.00046, 0.00731,
487 + 0.38670, 0.13650, 0.15644, 0.01145, 0.00228, 0.00056, 0.00700,
488 + 0.37328, 0.13102, 0.14261, 0.01083, 0.00229, 0.00063, 0.00672,
489 + 0.36088, 0.12599, 0.13068, 0.01027, 0.00228, 0.00069, 0.00645,
490 + 0.34938, 0.12136, 0.12030, 0.00976, 0.00227, 0.00074, 0.00620,
491 + 0.33866, 0.11709, 0.11122, 0.00930, 0.00224, 0.00078, 0.00597,
492 + 0.32860, 0.11311, 0.10321, 0.00888, 0.00221, 0.00080, 0.00575,
493 + 0.31922, 0.10943, 0.09612, 0.00849, 0.00217, 0.00082, 0.00554,
494 + 0.31039, 0.10598, 0.08982, 0.00814, 0.00214, 0.00083, 0.00535,
495 + 0.30208, 0.10275, 0.08418, 0.00780, 0.00211, 0.00084, 0.00517,
496 + 0.29427, 0.09973, 0.07911, 0.00750, 0.00207, 0.00085, 0.00500,
497 + 0.28686, 0.09688, 0.07454, 0.00721, 0.00203, 0.00085, 0.00484/
498 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/
499 + 0.53038, 0.19284, 0.36016, 0.01405, 0.00024, 0.00001, 0.00715,
500 + 0.49702, 0.17844, 0.30004, 0.01295, 0.00078, 0.00001, 0.00687,
501 + 0.46839, 0.16633, 0.25439, 0.01200, 0.00112, 0.00001, 0.00657,
502 + 0.44351, 0.15598, 0.21894, 0.01116, 0.00134, 0.00001, 0.00626,
503 + 0.42157, 0.14698, 0.19077, 0.01042, 0.00147, 0.00002, 0.00596,
504 + 0.40198, 0.13908, 0.16799, 0.00974, 0.00156, 0.00010, 0.00568,
505 + 0.38436, 0.13205, 0.14924, 0.00908, 0.00161, 0.00024, 0.00541,
506 + 0.36837, 0.12573, 0.13360, 0.00851, 0.00164, 0.00033, 0.00516,
507 + 0.35378, 0.12002, 0.12041, 0.00801, 0.00165, 0.00040, 0.00493,
508 + 0.34036, 0.11482, 0.10919, 0.00755, 0.00165, 0.00045, 0.00472,
509 + 0.32801, 0.11006, 0.09957, 0.00714, 0.00164, 0.00050, 0.00452,
510 + 0.31661, 0.10571, 0.09125, 0.00677, 0.00162, 0.00053, 0.00433,
511 + 0.30604, 0.10171, 0.08401, 0.00643, 0.00160, 0.00055, 0.00416,
512 + 0.29615, 0.09799, 0.07767, 0.00613, 0.00157, 0.00057, 0.00400,
513 + 0.28696, 0.09456, 0.07208, 0.00585, 0.00155, 0.00058, 0.00385,
514 + 0.27834, 0.09136, 0.06712, 0.00559, 0.00152, 0.00059, 0.00370,
515 + 0.27026, 0.08837, 0.06272, 0.00535, 0.00149, 0.00059, 0.00357,
516 + 0.26268, 0.08558, 0.05877, 0.00513, 0.00146, 0.00060, 0.00345,
517 + 0.25551, 0.08296, 0.05523, 0.00492, 0.00143, 0.00060, 0.00333/
518 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/
519 + 0.49857, 0.17413, 0.29568, 0.01003, 0.00017, 0.00000, 0.00510,
520 + 0.46410, 0.16007, 0.24309, 0.00921, 0.00057, 0.00000, 0.00488,
521 + 0.43478, 0.14834, 0.20380, 0.00849, 0.00082, 0.00000, 0.00465,
522 + 0.40952, 0.13841, 0.17369, 0.00787, 0.00098, 0.00000, 0.00442,
523 + 0.38737, 0.12982, 0.15005, 0.00733, 0.00108, 0.00001, 0.00419,
524 + 0.36780, 0.12231, 0.13113, 0.00681, 0.00114, 0.00007, 0.00399,
525 + 0.35028, 0.11566, 0.11570, 0.00634, 0.00117, 0.00017, 0.00379,
526 + 0.33447, 0.10972, 0.10294, 0.00592, 0.00118, 0.00023, 0.00361,
527 + 0.32011, 0.10438, 0.09225, 0.00555, 0.00118, 0.00028, 0.00344,
528 + 0.30695, 0.09953, 0.08323, 0.00522, 0.00118, 0.00032, 0.00328,
529 + 0.29490, 0.09512, 0.07554, 0.00492, 0.00117, 0.00035, 0.00313,
530 + 0.28381, 0.09109, 0.06893, 0.00465, 0.00115, 0.00037, 0.00300,
531 + 0.27357, 0.08740, 0.06321, 0.00441, 0.00113, 0.00038, 0.00287,
532 + 0.26404, 0.08399, 0.05822, 0.00419, 0.00111, 0.00040, 0.00275,
533 + 0.25521, 0.08084, 0.05384, 0.00399, 0.00109, 0.00041, 0.00264,
534 + 0.24696, 0.07792, 0.04998, 0.00380, 0.00107, 0.00041, 0.00254,
535 + 0.23923, 0.07520, 0.04656, 0.00363, 0.00105, 0.00041, 0.00244,
536 + 0.23201, 0.07266, 0.04351, 0.00348, 0.00102, 0.00041, 0.00235,
537 + 0.22519, 0.07029, 0.04078, 0.00333, 0.00100, 0.00041, 0.00227/
538 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/
539 + 0.46329, 0.15537, 0.24091, 0.00701, 0.00013, 0.00000, 0.00357,
540 + 0.42842, 0.14190, 0.19552, 0.00641, 0.00042, 0.00000, 0.00341,
541 + 0.39903, 0.13075, 0.16212, 0.00589, 0.00060, 0.00000, 0.00324,
542 + 0.37391, 0.12138, 0.13685, 0.00544, 0.00071, 0.00000, 0.00307,
543 + 0.35203, 0.11332, 0.11724, 0.00505, 0.00078, 0.00000, 0.00291,
544 + 0.33282, 0.10632, 0.10170, 0.00468, 0.00082, 0.00005, 0.00276,
545 + 0.31570, 0.10014, 0.08913, 0.00434, 0.00084, 0.00012, 0.00262,
546 + 0.30035, 0.09465, 0.07882, 0.00404, 0.00085, 0.00017, 0.00248,
547 + 0.28647, 0.08974, 0.07025, 0.00377, 0.00084, 0.00020, 0.00236,
548 + 0.27380, 0.08529, 0.06306, 0.00354, 0.00084, 0.00023, 0.00225,
549 + 0.26225, 0.08127, 0.05697, 0.00333, 0.00083, 0.00025, 0.00214,
550 + 0.25166, 0.07760, 0.05177, 0.00314, 0.00081, 0.00026, 0.00204,
551 + 0.24192, 0.07426, 0.04728, 0.00297, 0.00080, 0.00027, 0.00195,
552 + 0.23288, 0.07117, 0.04340, 0.00282, 0.00078, 0.00028, 0.00187,
553 + 0.22453, 0.06834, 0.04000, 0.00267, 0.00077, 0.00028, 0.00179,
554 + 0.21676, 0.06571, 0.03702, 0.00254, 0.00075, 0.00028, 0.00172,
555 + 0.20951, 0.06327, 0.03438, 0.00242, 0.00073, 0.00029, 0.00165,
556 + 0.20274, 0.06101, 0.03204, 0.00231, 0.00071, 0.00028, 0.00158,
557 + 0.19637, 0.05889, 0.02996, 0.00221, 0.00069, 0.00028, 0.00152/
558 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/
559 + 0.42566, 0.13702, 0.19472, 0.00485, 0.00009, 0.00000, 0.00246,
560 + 0.39105, 0.12435, 0.15604, 0.00442, 0.00030, -0.00001, 0.00235,
561 + 0.36215, 0.11393, 0.12799, 0.00405, 0.00043, -0.00001, 0.00223,
562 + 0.33762, 0.10522, 0.10702, 0.00373, 0.00051, -0.00001, 0.00212,
563 + 0.31642, 0.09779, 0.09093, 0.00344, 0.00056, 0.00000, 0.00200,
564 + 0.29787, 0.09136, 0.07830, 0.00318, 0.00058, 0.00003, 0.00189,
565 + 0.28145, 0.08572, 0.06817, 0.00294, 0.00059, 0.00008, 0.00179,
566 + 0.26677, 0.08073, 0.05993, 0.00273, 0.00060, 0.00011, 0.00169,
567 + 0.25357, 0.07628, 0.05312, 0.00255, 0.00060, 0.00014, 0.00161,
568 + 0.24158, 0.07227, 0.04745, 0.00238, 0.00059, 0.00016, 0.00152,
569 + 0.23068, 0.06865, 0.04268, 0.00223, 0.00058, 0.00017, 0.00145,
570 + 0.22074, 0.06537, 0.03862, 0.00210, 0.00057, 0.00018, 0.00138,
571 + 0.21163, 0.06238, 0.03514, 0.00198, 0.00056, 0.00019, 0.00132,
572 + 0.20319, 0.05964, 0.03215, 0.00188, 0.00054, 0.00019, 0.00126,
573 + 0.19542, 0.05712, 0.02954, 0.00178, 0.00053, 0.00019, 0.00120,
574 + 0.18822, 0.05480, 0.02725, 0.00169, 0.00052, 0.00019, 0.00115,
575 + 0.18152, 0.05265, 0.02524, 0.00160, 0.00050, 0.00019, 0.00110,
576 + 0.17527, 0.05065, 0.02346, 0.00153, 0.00049, 0.00019, 0.00106,
577 + 0.16942, 0.04879, 0.02188, 0.00146, 0.00048, 0.00019, 0.00102/
578 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/
579 + 0.38667, 0.11938, 0.15599, 0.00327, 0.00006, 0.00000, 0.00166,
580 + 0.35294, 0.10765, 0.12344, 0.00297, 0.00021, -0.00001, 0.00159,
581 + 0.32500, 0.09808, 0.10017, 0.00272, 0.00031, 0.00000, 0.00151,
582 + 0.30145, 0.09012, 0.08298, 0.00249, 0.00036, -0.00001, 0.00142,
583 + 0.28122, 0.08337, 0.06993, 0.00230, 0.00040, 0.00000, 0.00135,
584 + 0.26362, 0.07756, 0.05978, 0.00212, 0.00041, 0.00002, 0.00127,
585 + 0.24812, 0.07250, 0.05171, 0.00195, 0.00042, 0.00006, 0.00119,
586 + 0.23432, 0.06803, 0.04519, 0.00181, 0.00042, 0.00008, 0.00113,
587 + 0.22198, 0.06406, 0.03984, 0.00168, 0.00042, 0.00010, 0.00107,
588 + 0.21080, 0.06050, 0.03542, 0.00157, 0.00041, 0.00011, 0.00101,
589 + 0.20069, 0.05730, 0.03171, 0.00146, 0.00040, 0.00012, 0.00096,
590 + 0.19150, 0.05441, 0.02858, 0.00137, 0.00039, 0.00012, 0.00091,
591 + 0.18310, 0.05178, 0.02591, 0.00129, 0.00038, 0.00013, 0.00087,
592 + 0.17534, 0.04938, 0.02362, 0.00122, 0.00037, 0.00013, 0.00083,
593 + 0.16822, 0.04718, 0.02164, 0.00116, 0.00036, 0.00013, 0.00079,
594 + 0.16165, 0.04515, 0.01990, 0.00110, 0.00035, 0.00013, 0.00076,
595 + 0.15554, 0.04328, 0.01839, 0.00104, 0.00034, 0.00013, 0.00072,
596 + 0.14987, 0.04155, 0.01705, 0.00099, 0.00033, 0.00013, 0.00069,
597 + 0.14456, 0.03995, 0.01586, 0.00094, 0.00033, 0.00013, 0.00067/
598 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/
599 + 0.34727, 0.10273, 0.12377, 0.00218, 0.00004, 0.00000, 0.00110,
600 + 0.31495, 0.09205, 0.09673, 0.00198, 0.00016, 0.00000, 0.00106,
601 + 0.28837, 0.08340, 0.07766, 0.00180, 0.00022, 0.00000, 0.00101,
602 + 0.26611, 0.07625, 0.06374, 0.00165, 0.00026, 0.00000, 0.00095,
603 + 0.24711, 0.07021, 0.05328, 0.00152, 0.00028, 0.00000, 0.00090,
604 + 0.23068, 0.06505, 0.04521, 0.00139, 0.00029, 0.00002, 0.00084,
605 + 0.21626, 0.06056, 0.03886, 0.00128, 0.00029, 0.00004, 0.00079,
606 + 0.20349, 0.05663, 0.03376, 0.00119, 0.00029, 0.00005, 0.00075,
607 + 0.19211, 0.05314, 0.02962, 0.00110, 0.00028, 0.00006, 0.00070,
608 + 0.18187, 0.05003, 0.02620, 0.00102, 0.00028, 0.00007, 0.00067,
609 + 0.17262, 0.04724, 0.02336, 0.00095, 0.00028, 0.00008, 0.00063,
610 + 0.16424, 0.04473, 0.02097, 0.00089, 0.00027, 0.00008, 0.00060,
611 + 0.15662, 0.04245, 0.01894, 0.00084, 0.00026, 0.00009, 0.00057,
612 + 0.14961, 0.04037, 0.01721, 0.00079, 0.00026, 0.00009, 0.00054,
613 + 0.14319, 0.03848, 0.01571, 0.00074, 0.00025, 0.00009, 0.00052,
614 + 0.13726, 0.03674, 0.01441, 0.00070, 0.00024, 0.00009, 0.00049,
615 + 0.13177, 0.03514, 0.01328, 0.00067, 0.00023, 0.00009, 0.00047,
616 + 0.12669, 0.03367, 0.01228, 0.00063, 0.00023, 0.00009, 0.00045,
617 + 0.12195, 0.03230, 0.01140, 0.00060, 0.00022, 0.00009, 0.00043/
618 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/
619 + 0.30821, 0.08726, 0.09717, 0.00141, 0.00003, 0.00000, 0.00071,
620 + 0.27772, 0.07768, 0.07499, 0.00128, 0.00011, 0.00000, 0.00069,
621 + 0.25284, 0.06999, 0.05957, 0.00116, 0.00015, 0.00000, 0.00065,
622 + 0.23213, 0.06366, 0.04844, 0.00106, 0.00018, 0.00000, 0.00062,
623 + 0.21457, 0.05835, 0.04016, 0.00097, 0.00019, 0.00000, 0.00058,
624 + 0.19946, 0.05384, 0.03384, 0.00089, 0.00020, 0.00001, 0.00055,
625 + 0.18626, 0.04993, 0.02889, 0.00082, 0.00020, 0.00003, 0.00051,
626 + 0.17463, 0.04651, 0.02495, 0.00076, 0.00020, 0.00004, 0.00048,
627 + 0.16430, 0.04350, 0.02178, 0.00070, 0.00019, 0.00004, 0.00045,
628 + 0.15504, 0.04082, 0.01918, 0.00065, 0.00019, 0.00005, 0.00043,
629 + 0.14671, 0.03843, 0.01703, 0.00060, 0.00019, 0.00005, 0.00041,
630 + 0.13919, 0.03628, 0.01522, 0.00056, 0.00018, 0.00006, 0.00038,
631 + 0.13237, 0.03434, 0.01370, 0.00053, 0.00018, 0.00006, 0.00037,
632 + 0.12612, 0.03258, 0.01240, 0.00050, 0.00017, 0.00006, 0.00035,
633 + 0.12041, 0.03097, 0.01129, 0.00047, 0.00017, 0.00006, 0.00033,
634 + 0.11515, 0.02950, 0.01033, 0.00044, 0.00016, 0.00006, 0.00031,
635 + 0.11030, 0.02815, 0.00949, 0.00042, 0.00015, 0.00006, 0.00030,
636 + 0.10582, 0.02691, 0.00875, 0.00039, 0.00015, 0.00006, 0.00029,
637 + 0.10164, 0.02577, 0.00811, 0.00037, 0.00015, 0.00006, 0.00028/
638 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/
639 + 0.27019, 0.07311, 0.07539, 0.00090, 0.00003, 0.00000, 0.00046,
640 + 0.24189, 0.06466, 0.05745, 0.00081, 0.00008, 0.00000, 0.00045,
641 + 0.21894, 0.05792, 0.04515, 0.00074, 0.00011, 0.00000, 0.00043,
642 + 0.19998, 0.05242, 0.03636, 0.00068, 0.00013, 0.00000, 0.00040,
643 + 0.18399, 0.04782, 0.02990, 0.00062, 0.00013, 0.00000, 0.00038,
644 + 0.17031, 0.04393, 0.02502, 0.00056, 0.00014, 0.00001, 0.00035,
645 + 0.15842, 0.04058, 0.02123, 0.00051, 0.00014, 0.00002, 0.00033,
646 + 0.14798, 0.03767, 0.01823, 0.00047, 0.00014, 0.00003, 0.00031,
647 + 0.13875, 0.03511, 0.01582, 0.00044, 0.00013, 0.00003, 0.00029,
648 + 0.13051, 0.03284, 0.01387, 0.00040, 0.00013, 0.00004, 0.00028,
649 + 0.12312, 0.03082, 0.01226, 0.00037, 0.00013, 0.00004, 0.00026,
650 + 0.11647, 0.02901, 0.01092, 0.00035, 0.00012, 0.00004, 0.00025,
651 + 0.11045, 0.02739, 0.00979, 0.00033, 0.00012, 0.00004, 0.00023,
652 + 0.10495, 0.02591, 0.00883, 0.00031, 0.00012, 0.00004, 0.00022,
653 + 0.09995, 0.02458, 0.00801, 0.00029, 0.00011, 0.00004, 0.00021,
654 + 0.09536, 0.02335, 0.00731, 0.00027, 0.00011, 0.00004, 0.00020,
655 + 0.09114, 0.02223, 0.00670, 0.00026, 0.00010, 0.00004, 0.00019,
656 + 0.08725, 0.02121, 0.00617, 0.00025, 0.00010, 0.00004, 0.00018,
657 + 0.08363, 0.02026, 0.00570, 0.00023, 0.00010, 0.00004, 0.00017/
658 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/
659 + 0.23385, 0.06037, 0.05777, 0.00055, 0.00001, 0.00000, 0.00028,
660 + 0.20798, 0.05305, 0.04347, 0.00050, 0.00005, 0.00000, 0.00027,
661 + 0.18716, 0.04725, 0.03379, 0.00046, 0.00007, 0.00000, 0.00026,
662 + 0.17007, 0.04253, 0.02696, 0.00042, 0.00008, 0.00000, 0.00025,
663 + 0.15573, 0.03863, 0.02199, 0.00038, 0.00009, 0.00000, 0.00023,
664 + 0.14353, 0.03534, 0.01826, 0.00035, 0.00009, 0.00000, 0.00022,
665 + 0.13297, 0.03251, 0.01539, 0.00032, 0.00009, 0.00001, 0.00021,
666 + 0.12375, 0.03007, 0.01314, 0.00029, 0.00009, 0.00001, 0.00019,
667 + 0.11564, 0.02792, 0.01135, 0.00027, 0.00008, 0.00001, 0.00017,
668 + 0.10840, 0.02603, 0.00990, 0.00025, 0.00008, 0.00002, 0.00017,
669 + 0.10195, 0.02436, 0.00871, 0.00023, 0.00008, 0.00002, 0.00016,
670 + 0.09616, 0.02286, 0.00773, 0.00022, 0.00008, 0.00002, 0.00015,
671 + 0.09094, 0.02152, 0.00691, 0.00020, 0.00007, 0.00002, 0.00014,
672 + 0.08619, 0.02031, 0.00621, 0.00019, 0.00007, 0.00002, 0.00014,
673 + 0.08188, 0.01921, 0.00562, 0.00018, 0.00007, 0.00002, 0.00013,
674 + 0.07793, 0.01821, 0.00511, 0.00016, 0.00007, 0.00002, 0.00012,
675 + 0.07430, 0.01730, 0.00467, 0.00015, 0.00007, 0.00003, 0.00012,
676 + 0.07097, 0.01646, 0.00429, 0.00015, 0.00007, 0.00003, 0.00011,
677 + 0.06789, 0.01569, 0.00396, 0.00014, 0.00006, 0.00003, 0.00010/
678 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/
679 + 0.19961, 0.04908, 0.04364, 0.00034, 0.00001, 0.00000, 0.00017,
680 + 0.17635, 0.04284, 0.03241, 0.00031, 0.00003, 0.00000, 0.00017,
681 + 0.15777, 0.03793, 0.02492, 0.00028, 0.00005, 0.00000, 0.00016,
682 + 0.14260, 0.03396, 0.01969, 0.00026, 0.00005, 0.00000, 0.00015,
683 + 0.12996, 0.03070, 0.01593, 0.00023, 0.00006, 0.00000, 0.00014,
684 + 0.11925, 0.02796, 0.01313, 0.00021, 0.00006, 0.00000, 0.00014,
685 + 0.11003, 0.02562, 0.01100, 0.00019, 0.00006, 0.00000, 0.00013,
686 + 0.10202, 0.02360, 0.00933, 0.00018, 0.00006, 0.00000, 0.00012,
687 + 0.09499, 0.02184, 0.00802, 0.00017, 0.00006, 0.00001, 0.00010,
688 + 0.08875, 0.02030, 0.00696, 0.00015, 0.00005, 0.00001, 0.00010,
689 + 0.08320, 0.01893, 0.00610, 0.00014, 0.00005, 0.00001, 0.00010,
690 + 0.07824, 0.01772, 0.00539, 0.00013, 0.00005, 0.00001, 0.00009,
691 + 0.07379, 0.01663, 0.00480, 0.00012, 0.00005, 0.00001, 0.00009,
692 + 0.06975, 0.01565, 0.00430, 0.00011, 0.00004, 0.00001, 0.00008,
693 + 0.06609, 0.01477, 0.00388, 0.00011, 0.00004, 0.00001, 0.00008,
694 + 0.06274, 0.01397, 0.00352, 0.00010, 0.00004, 0.00001, 0.00007,
695 + 0.05968, 0.01323, 0.00321, 0.00009, 0.00004, 0.00002, 0.00007,
696 + 0.05688, 0.01257, 0.00294, 0.00009, 0.00004, 0.00002, 0.00007,
697 + 0.05429, 0.01195, 0.00271, 0.00008, 0.00004, 0.00002, 0.00006/
698 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/
699 + 0.16787, 0.03921, 0.03245, 0.00019, 0.00001, 0.00000, 0.00010,
700 + 0.14729, 0.03401, 0.02378, 0.00018, 0.00002, 0.00000, 0.00010,
701 + 0.13099, 0.02993, 0.01807, 0.00016, 0.00003, 0.00000, 0.00010,
702 + 0.11776, 0.02666, 0.01415, 0.00015, 0.00004, 0.00000, 0.00009,
703 + 0.10681, 0.02397, 0.01135, 0.00014, 0.00003, -0.00001, 0.00009,
704 + 0.09756, 0.02173, 0.00928, 0.00013, 0.00003, 0.00000, 0.00008,
705 + 0.08965, 0.01984, 0.00772, 0.00011, 0.00003, 0.00000, 0.00008,
706 + 0.08279, 0.01821, 0.00652, 0.00010, 0.00003, 0.00001, 0.00007,
707 + 0.07682, 0.01678, 0.00557, 0.00009, 0.00004, 0.00001, 0.00007,
708 + 0.07153, 0.01554, 0.00481, 0.00009, 0.00003, 0.00001, 0.00006,
709 + 0.06684, 0.01445, 0.00420, 0.00008, 0.00003, 0.00001, 0.00006,
710 + 0.06267, 0.01348, 0.00369, 0.00007, 0.00003, 0.00001, 0.00006,
711 + 0.05893, 0.01262, 0.00328, 0.00007, 0.00003, 0.00001, 0.00005,
712 + 0.05554, 0.01184, 0.00293, 0.00006, 0.00003, 0.00001, 0.00005,
713 + 0.05249, 0.01114, 0.00263, 0.00006, 0.00003, 0.00001, 0.00005,
714 + 0.04971, 0.01051, 0.00238, 0.00006, 0.00003, 0.00001, 0.00004,
715 + 0.04717, 0.00994, 0.00217, 0.00005, 0.00003, 0.00001, 0.00004,
716 + 0.04485, 0.00942, 0.00198, 0.00005, 0.00002, 0.00001, 0.00004,
717 + 0.04271, 0.00894, 0.00182, 0.00005, 0.00002, 0.00001, 0.00004/
718 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/
719 + 0.13892, 0.03076, 0.02370, 0.00011, 0.00000, 0.00000, 0.00006,
720 + 0.12104, 0.02649, 0.01713, 0.00010, 0.00001, 0.00000, 0.00006,
721 + 0.10698, 0.02317, 0.01287, 0.00009, 0.00002, 0.00000, 0.00006,
722 + 0.09565, 0.02052, 0.00998, 0.00009, 0.00002, 0.00000, 0.00005,
723 + 0.08632, 0.01836, 0.00793, 0.00008, 0.00002, 0.00000, 0.00005,
724 + 0.07849, 0.01657, 0.00644, 0.00007, 0.00002, 0.00000, 0.00005,
725 + 0.07181, 0.01506, 0.00532, 0.00007, 0.00002, 0.00000, 0.00004,
726 + 0.06606, 0.01377, 0.00446, 0.00006, 0.00002, 0.00000, 0.00004,
727 + 0.06106, 0.01264, 0.00379, 0.00005, 0.00002, 0.00000, 0.00004,
728 + 0.05666, 0.01167, 0.00326, 0.00005, 0.00002, 0.00001, 0.00004,
729 + 0.05278, 0.01081, 0.00283, 0.00005, 0.00002, 0.00001, 0.00003,
730 + 0.04933, 0.01006, 0.00248, 0.00004, 0.00002, 0.00001, 0.00003,
731 + 0.04624, 0.00939, 0.00219, 0.00004, 0.00002, 0.00001, 0.00003,
732 + 0.04347, 0.00878, 0.00196, 0.00004, 0.00002, 0.00001, 0.00003,
733 + 0.04097, 0.00824, 0.00175, 0.00003, 0.00002, 0.00001, 0.00003,
734 + 0.03869, 0.00776, 0.00158, 0.00003, 0.00002, 0.00001, 0.00002,
735 + 0.03663, 0.00731, 0.00143, 0.00003, 0.00002, 0.00001, 0.00002,
736 + 0.03474, 0.00691, 0.00131, 0.00003, 0.00001, 0.00001, 0.00002,
737 + 0.03301, 0.00655, 0.00120, 0.00003, 0.00001, 0.00001, 0.00002/
738 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/
739 + 0.08998, 0.01773, 0.01186, 0.00003, 0.00000, 0.00000, 0.00002,
740 + 0.07727, 0.01504, 0.00833, 0.00003, 0.00001, 0.00000, 0.00002,
741 + 0.06741, 0.01299, 0.00611, 0.00003, 0.00001, 0.00000, 0.00002,
742 + 0.05958, 0.01137, 0.00464, 0.00002, 0.00001, 0.00000, 0.00002,
743 + 0.05319, 0.01007, 0.00362, 0.00002, 0.00001, 0.00000, 0.00001,
744 + 0.04791, 0.00900, 0.00289, 0.00002, 0.00001, 0.00000, 0.00001,
745 + 0.04344, 0.00811, 0.00236, 0.00002, 0.00001, 0.00000, 0.00001,
746 + 0.03963, 0.00735, 0.00195, 0.00002, 0.00001, 0.00000, 0.00001,
747 + 0.03634, 0.00670, 0.00164, 0.00001, 0.00001, 0.00000, 0.00001,
748 + 0.03348, 0.00614, 0.00140, 0.00001, 0.00001, 0.00000, 0.00001,
749 + 0.03097, 0.00565, 0.00120, 0.00001, 0.00001, 0.00000, 0.00001,
750 + 0.02875, 0.00522, 0.00105, 0.00001, 0.00001, 0.00000, 0.00001,
751 + 0.02678, 0.00484, 0.00092, 0.00001, 0.00001, 0.00000, 0.00001,
752 + 0.02502, 0.00450, 0.00081, 0.00001, 0.00001, 0.00000, 0.00001,
753 + 0.02345, 0.00420, 0.00072, 0.00001, 0.00001, 0.00000, 0.00001,
754 + 0.02203, 0.00393, 0.00065, 0.00001, 0.00001, 0.00000, 0.00001,
755 + 0.02075, 0.00369, 0.00059, 0.00001, 0.00001, 0.00000, 0.00001,
756 + 0.01958, 0.00347, 0.00053, 0.00001, 0.00000, 0.00000, 0.00001,
757 + 0.01852, 0.00327, 0.00049, 0.00001, 0.00000, 0.00000, 0.00001/
758 DATA ((F(I,38,K),I=1,5),F(7,38,K),F(6,38,K),K=1,19)/
759 + 0.05324, 0.00920, 0.00534, 0.00001, 0.00000, 0.00000, 0.00000,
760 + 0.04500, 0.00768, 0.00364, 0.00001, 0.00000, 0.00000, 0.00000,
761 + 0.03871, 0.00654, 0.00260, 0.00001, 0.00000, 0.00000, 0.00000,
762 + 0.03378, 0.00565, 0.00193, 0.00001, 0.00000, 0.00000, 0.00000,
763 + 0.02982, 0.00495, 0.00148, 0.00001, 0.00000, 0.00000, 0.00000,
764 + 0.02658, 0.00438, 0.00116, 0.00001, 0.00000, 0.00000, 0.00000,
765 + 0.02387, 0.00391, 0.00093, 0.00000, 0.00000, 0.00000, 0.00000,
766 + 0.02157, 0.00351, 0.00076, 0.00000, 0.00000, 0.00000, 0.00000,
767 + 0.01962, 0.00317, 0.00063, 0.00000, 0.00000, 0.00000, 0.00000,
768 + 0.01793, 0.00288, 0.00053, 0.00000, 0.00000, 0.00000, 0.00000,
769 + 0.01646, 0.00263, 0.00045, 0.00000, 0.00000, 0.00000, 0.00000,
770 + 0.01517, 0.00241, 0.00039, 0.00000, 0.00000, 0.00000, 0.00000,
771 + 0.01404, 0.00222, 0.00034, 0.00000, 0.00000, 0.00000, 0.00000,
772 + 0.01304, 0.00205, 0.00030, 0.00000, 0.00000, 0.00000, 0.00000,
773 + 0.01214, 0.00190, 0.00027, 0.00000, 0.00000, 0.00000, 0.00000,
774 + 0.01134, 0.00177, 0.00024, 0.00000, 0.00000, 0.00000, 0.00000,
775 + 0.01061, 0.00165, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000,
776 + 0.00996, 0.00155, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000,
777 + 0.00937, 0.00145, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000/
778 DATA ((F(I,39,K),I=1,5),F(7,39,K),F(6,39,K),K=1,19)/
779 + 0.02793, 0.00414, 0.00208, 0.00000, 0.00000, 0.00000, 0.00000,
780 + 0.02319, 0.00339, 0.00137, 0.00000, 0.00000, 0.00000, 0.00000,
781 + 0.01964, 0.00284, 0.00095, 0.00000, 0.00000, 0.00000, 0.00000,
782 + 0.01690, 0.00243, 0.00069, 0.00000, 0.00000, 0.00000, 0.00000,
783 + 0.01473, 0.00210, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000,
784 + 0.01297, 0.00183, 0.00040, 0.00000, 0.00000, 0.00000, 0.00000,
785 + 0.01152, 0.00162, 0.00031, 0.00000, 0.00000, 0.00000, 0.00000,
786 + 0.01031, 0.00144, 0.00025, 0.00000, 0.00000, 0.00000, 0.00000,
787 + 0.00929, 0.00129, 0.00021, 0.00000, 0.00000, 0.00000, 0.00000,
788 + 0.00841, 0.00116, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000,
789 + 0.00766, 0.00105, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000,
790 + 0.00700, 0.00096, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000,
791 + 0.00643, 0.00087, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
792 + 0.00592, 0.00080, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000,
793 + 0.00548, 0.00074, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
794 + 0.00508, 0.00068, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
795 + 0.00473, 0.00063, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
796 + 0.00441, 0.00059, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000,
797 + 0.00412, 0.00055, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000/
798 DATA ((F(I,40,K),I=1,5),F(7,40,K),F(6,40,K),K=1,19)/
799 + 0.01235, 0.00152, 0.00066, 0.00000, 0.00000, 0.00000, 0.00000,
800 + 0.01004, 0.00122, 0.00041, 0.00000, 0.00000, 0.00000, 0.00000,
801 + 0.00835, 0.00101, 0.00028, 0.00000, 0.00000, 0.00000, 0.00000,
802 + 0.00707, 0.00084, 0.00020, 0.00000, 0.00000, 0.00000, 0.00000,
803 + 0.00607, 0.00072, 0.00014, 0.00000, 0.00000, 0.00000, 0.00000,
804 + 0.00527, 0.00062, 0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
805 + 0.00463, 0.00054, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
806 + 0.00409, 0.00047, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
807 + 0.00364, 0.00042, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
808 + 0.00326, 0.00037, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
809 + 0.00294, 0.00034, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
810 + 0.00267, 0.00030, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
811 + 0.00243, 0.00027, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
812 + 0.00222, 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
813 + 0.00203, 0.00023, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
814 + 0.00187, 0.00021, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
815 + 0.00173, 0.00019, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
816 + 0.00160, 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
817 + 0.00149, 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/
818 DATA ((F(I,41,K),I=1,5),F(7,41,K),F(6,41,K),K=1,19)/
819 + 0.00087, 0.00006, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
820 + 0.00067, 0.00005, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
821 + 0.00053, 0.00004, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
822 + 0.00043, 0.00003, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
823 + 0.00035, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
824 + 0.00029, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
825 + 0.00025, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
826 + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
827 + 0.00018, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
828 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
829 + 0.00014, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
830 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
831 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
832 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
833 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
834 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
835 + 0.00007, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
836 + 0.00006, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
837 + 0.00005, 0.00001, 0.00000, 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,
845 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
846 DATA N0/2,5,4,5,0,0,5/
847 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
850 IF(INIT.NE.0) GOTO 10
854 C READ(28,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),
856 C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR
858 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
861 XX(J)= LOG10(XX(J))+ONEDO
864 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K))
873 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
874 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
876 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
879 IF(XXX.GT.XX(N+1)) GOTO 70
880 A=(XXX-XX(N))/(XX(N+1)-XX(N))
881 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
886 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
887 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
890 FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
893 G(I)=G(I)*(ONED-X)**N0(I)
git://git.uio.no / u / mrichter / AliRoot.git / blob