]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/strh2e.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Default shish-kebab geometry for EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / strh2e.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:31:06 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:51 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13C-----------------------------------------------------------------------
14 SUBROUTINE STRH2E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15C :::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar at Q0*
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.04096, 0.00664, 3.32967, 0.04384, 0.01024, 0.00000, 0.02701,
20 + 0.04188, 0.00720, 6.12704, 0.09283, 0.05797, 0.00000, 0.07537,
21 + 0.04274, 0.00772, 9.45610, 0.15957, 0.12355, 0.00000, 0.14153,
22 + 0.04354, 0.00823, 13.16263, 0.24006, 0.20295, 0.00000, 0.22148,
23 + 0.04430, 0.00870, 17.21933, 0.33222, 0.29517, 0.00219, 0.31422,
24 + 0.04502, 0.00917, 21.57890, 0.41810, 0.39894, 0.03991, 0.41848,
25 + 0.04570, 0.00961, 26.15117, 0.48102, 0.51187, 0.14176, 0.53187,
26 + 0.04636, 0.01004, 30.94051, 0.55380, 0.63407, 0.24236, 0.65451,
27 + 0.04699, 0.01046, 35.92586, 0.63218, 0.76497, 0.34910, 0.78584,
28 + 0.04760, 0.01087, 41.09314, 0.71529, 0.90419, 0.46294, 0.92547,
29 + 0.04819, 0.01127, 46.34061, 0.80175, 1.04876, 0.58071, 1.07044,
30 + 0.04876, 0.01166, 51.66371, 0.89136, 1.19854, 0.70254, 1.22059,
31 + 0.04931, 0.01204, 57.13947, 0.98544, 1.35571, 0.83018, 1.37813,
32 + 0.04985, 0.01241, 62.57440, 1.08054, 1.51455, 0.95903, 1.53732,
33 + 0.05037, 0.01277, 68.11569, 1.17925, 1.67934, 1.09255, 1.70245,
34 + 0.05088, 0.01312, 73.65871, 1.27962, 1.84688, 1.22818, 1.87032,
35 + 0.05137, 0.01347, 79.22708, 1.38207, 2.01784, 1.36647, 2.04160,
36 + 0.05185, 0.01381, 84.80046, 1.48615, 2.19149, 1.50684, 2.21556,
37 + 0.05232, 0.01414, 90.37953, 1.59186, 2.36781, 1.64928, 2.39219/
38 DATA ((F(I,2,K),I=1,5),F(7,2,K),F(6,2,K),K=1,19)/
39 + 0.05088, 0.01010, 3.25209, 0.05395, 0.01104, 0.00000, 0.03247,
40 + 0.05205, 0.01088, 5.65026, 0.10300, 0.05863, 0.00000, 0.08079,
41 + 0.05312, 0.01162, 8.38432, 0.16513, 0.11943, 0.00000, 0.14226,
42 + 0.05412, 0.01232, 11.32975, 0.23659, 0.18965, 0.00000, 0.21310,
43 + 0.05507, 0.01298, 14.46710, 0.31557, 0.26840, 0.00185, 0.29244,
44 + 0.05596, 0.01362, 17.76108, 0.38730, 0.35459, 0.03294, 0.37917,
45 + 0.05681, 0.01423, 21.14510, 0.43849, 0.44628, 0.11599, 0.47138,
46 + 0.05762, 0.01482, 24.62537, 0.49662, 0.54359, 0.19631, 0.56918,
47 + 0.05840, 0.01539, 28.18849, 0.55814, 0.64605, 0.28006, 0.67211,
48 + 0.05915, 0.01595, 31.82632, 0.62234, 0.75336, 0.36806, 0.77987,
49 + 0.05988, 0.01648, 35.46771, 0.68822, 0.86329, 0.45787, 0.89023,
50 + 0.06058, 0.01700, 39.11272, 0.75563, 0.97577, 0.54962, 1.00312,
51 + 0.06125, 0.01751, 42.81876, 0.82558, 1.09244, 0.64465, 1.12019,
52 + 0.06191, 0.01800, 46.45189, 0.89555, 1.20912, 0.73957, 1.23725,
53 + 0.06254, 0.01849, 50.11823, 0.96744, 1.32897, 0.83696, 1.35747,
54 + 0.06316, 0.01895, 53.74707, 1.03986, 1.44970, 0.93498, 1.47856,
55 + 0.06376, 0.01941, 57.35736, 1.11314, 1.57183, 1.03404, 1.60103,
56 + 0.06435, 0.01986, 60.93729, 1.18697, 1.69487, 1.13378, 1.72440,
57 + 0.06492, 0.02030, 64.48935, 1.26137, 1.81884, 1.23420, 1.84869/
58 DATA ((F(I,3,K),I=1,5),F(7,3,K),F(6,3,K),K=1,19)/
59 + 0.06282, 0.01534, 3.17485, 0.06637, 0.01161, 0.00000, 0.03897,
60 + 0.06428, 0.01644, 5.20773, 0.11445, 0.05804, 0.00000, 0.08623,
61 + 0.06562, 0.01747, 7.42919, 0.17128, 0.11338, 0.00000, 0.14232,
62 + 0.06687, 0.01844, 9.74484, 0.23376, 0.17448, 0.00000, 0.20412,
63 + 0.06804, 0.01935, 12.14470, 0.30053, 0.24073, 0.00154, 0.27102,
64 + 0.06915, 0.02022, 14.60555, 0.35966, 0.31132, 0.02684, 0.34221,
65 + 0.07020, 0.02105, 17.08078, 0.40082, 0.38480, 0.09372, 0.41626,
66 + 0.07121, 0.02186, 19.57907, 0.44670, 0.46130, 0.15709, 0.49329,
67 + 0.07218, 0.02263, 22.09364, 0.49444, 0.54051, 0.22204, 0.57300,
68 + 0.07310, 0.02337, 24.62143, 0.54347, 0.62221, 0.28930, 0.65519,
69 + 0.07399, 0.02409, 27.11404, 0.59310, 0.70479, 0.35702, 0.73823,
70 + 0.07485, 0.02478, 29.57483, 0.64326, 0.78825, 0.42536, 0.82212,
71 + 0.07568, 0.02546, 32.04695, 0.69469, 0.87382, 0.49532, 0.90812,
72 + 0.07648, 0.02611, 34.43900, 0.74558, 0.95850, 0.56448, 0.99320,
73 + 0.07726, 0.02674, 36.82719, 0.79735, 1.04462, 0.63473, 1.07971,
74 + 0.07801, 0.02736, 39.16483, 0.84901, 1.13058, 0.70478, 1.16604,
75 + 0.07875, 0.02796, 41.46690, 0.90082, 1.21677, 0.77497, 1.25258,
76 + 0.07946, 0.02854, 43.72720, 0.95259, 1.30289, 0.84504, 1.33905,
77 + 0.08015, 0.02911, 45.94916, 1.00434, 1.38898, 0.91504, 1.42547/
78 DATA ((F(I,4,K),I=1,5),F(7,4,K),F(6,4,K),K=1,19)/
79 + 0.07083, 0.01959, 3.12932, 0.07489, 0.01177, 0.00000, 0.04332,
80 + 0.07248, 0.02092, 4.96284, 0.12181, 0.05696, 0.00000, 0.08938,
81 + 0.07401, 0.02217, 6.91799, 0.17521, 0.10877, 0.00000, 0.14199,
82 + 0.07544, 0.02333, 8.91708, 0.23247, 0.16457, 0.00000, 0.19853,
83 + 0.07677, 0.02443, 10.95555, 0.29250, 0.22396, 0.00137, 0.25859,
84 + 0.07802, 0.02547, 13.01664, 0.34494, 0.28628, 0.02363, 0.32154,
85 + 0.07922, 0.02646, 15.06373, 0.38092, 0.35035, 0.08216, 0.38620,
86 + 0.08036, 0.02741, 17.10666, 0.42060, 0.41633, 0.13696, 0.45273,
87 + 0.08145, 0.02833, 19.14198, 0.46148, 0.48398, 0.19257, 0.52090,
88 + 0.08250, 0.02921, 21.16891, 0.50309, 0.55315, 0.24968, 0.59058,
89 + 0.08351, 0.03005, 23.14951, 0.54487, 0.62253, 0.30672, 0.66042,
90 + 0.08448, 0.03087, 25.08839, 0.58678, 0.69213, 0.36388, 0.73047,
91 + 0.08541, 0.03166, 27.02209, 0.62947, 0.76303, 0.42201, 0.80180,
92 + 0.08632, 0.03243, 28.87794, 0.67144, 0.83274, 0.47912, 0.87192,
93 + 0.08719, 0.03317, 30.71896, 0.71387, 0.90324, 0.53679, 0.94280,
94 + 0.08804, 0.03389, 32.50862, 0.75599, 0.97321, 0.59398, 1.01315,
95 + 0.08887, 0.03459, 34.25996, 0.79801, 1.04301, 0.65098, 1.08331,
96 + 0.08967, 0.03526, 35.96909, 0.83978, 1.11241, 0.70762, 1.15306,
97 + 0.09044, 0.03592, 37.63948, 0.88134, 1.18147, 0.76393, 1.22245/
98 DATA ((F(I,5,K),I=1,5),F(7,5,K),F(6,5,K),K=1,19)/
99 + 0.07699, 0.02329, 3.09657, 0.08155, 0.01180, 0.00000, 0.04667,
100 + 0.07881, 0.02482, 4.79457, 0.12736, 0.05579, 0.00000, 0.09158,
101 + 0.08048, 0.02624, 6.57428, 0.17816, 0.10496, 0.00000, 0.14157,
102 + 0.08204, 0.02757, 8.36915, 0.23173, 0.15703, 0.00000, 0.19440,
103 + 0.08350, 0.02881, 10.17824, 0.28718, 0.21174, 0.00126, 0.24980,
104 + 0.08488, 0.02999, 11.98900, 0.33514, 0.26855, 0.02151, 0.30725,
105 + 0.08619, 0.03111, 13.77102, 0.36771, 0.32645, 0.07456, 0.36576,
106 + 0.08744, 0.03218, 15.53498, 0.40338, 0.38563, 0.12382, 0.42550,
107 + 0.08863, 0.03321, 17.27930, 0.43987, 0.44589, 0.17347, 0.48629,
108 + 0.08977, 0.03420, 19.00464, 0.47677, 0.50713, 0.22414, 0.54803,
109 + 0.09087, 0.03515, 20.67931, 0.51362, 0.56822, 0.27448, 0.60959,
110 + 0.09193, 0.03606, 22.30855, 0.55039, 0.62918, 0.32467, 0.67101,
111 + 0.09295, 0.03695, 23.92488, 0.58765, 0.69099, 0.37547, 0.73324,
112 + 0.09394, 0.03780, 25.46680, 0.62412, 0.75150, 0.42515, 0.79416,
113 + 0.09489, 0.03862, 26.98915, 0.66084, 0.81243, 0.47512, 0.85548,
114 + 0.09582, 0.03942, 28.46149, 0.69714, 0.87267, 0.52448, 0.91609,
115 + 0.09671, 0.04020, 29.89561, 0.73322, 0.93254, 0.57349, 0.97632,
116 + 0.09758, 0.04095, 31.28883, 0.76896, 0.99187, 0.62202, 1.03599,
117 + 0.09843, 0.04168, 32.64464, 0.80439, 1.05069, 0.67011, 1.09514/
118 DATA ((F(I,6,K),I=1,5),F(7,6,K),F(6,6,K),K=1,19)/
119 + 0.08206, 0.02664, 3.07078, 0.08710, 0.01175, 0.00000, 0.04942,
120 + 0.08401, 0.02833, 4.66685, 0.13185, 0.05465, 0.00000, 0.09326,
121 + 0.08581, 0.02990, 6.31762, 0.18056, 0.10168, 0.00000, 0.14113,
122 + 0.08749, 0.03136, 7.96477, 0.23128, 0.15087, 0.00000, 0.19110,
123 + 0.08906, 0.03274, 9.60994, 0.28326, 0.20205, 0.00118, 0.24298,
124 + 0.09053, 0.03403, 11.24354, 0.32790, 0.25479, 0.01995, 0.29637,
125 + 0.09194, 0.03526, 12.83967, 0.35799, 0.30819, 0.06899, 0.35038,
126 + 0.09328, 0.03644, 14.40938, 0.39074, 0.36245, 0.11424, 0.40520,
127 + 0.09456, 0.03756, 15.95251, 0.42407, 0.41741, 0.15961, 0.46069,
128 + 0.09578, 0.03864, 17.47061, 0.45761, 0.47299, 0.20569, 0.51678,
129 + 0.09696, 0.03967, 18.93633, 0.49096, 0.52820, 0.25129, 0.57246,
130 + 0.09809, 0.04067, 20.35518, 0.52410, 0.58308, 0.29657, 0.62780,
131 + 0.09918, 0.04163, 21.75691, 0.55755, 0.63852, 0.34222, 0.68365,
132 + 0.10024, 0.04255, 23.08755, 0.59018, 0.69260, 0.38673, 0.73814,
133 + 0.10126, 0.04345, 24.39639, 0.62292, 0.74688, 0.43134, 0.79281,
134 + 0.10224, 0.04431, 25.65698, 0.65519, 0.80039, 0.47527, 0.84668,
135 + 0.10320, 0.04515, 26.88029, 0.68716, 0.85341, 0.51877, 0.90005,
136 + 0.10413, 0.04596, 28.06430, 0.71875, 0.90580, 0.56172, 0.95278,
137 + 0.10503, 0.04675, 29.21252, 0.74998, 0.95762, 0.60418, 1.00492/
138 DATA ((F(I,7,K),I=1,5),F(7,7,K),F(6,7,K),K=1,19)/
139 + 0.09951, 0.04035, 2.98677, 0.10658, 0.01118, 0.00000, 0.05889,
140 + 0.10196, 0.04266, 4.28244, 0.14692, 0.04959, 0.00000, 0.09828,
141 + 0.10422, 0.04478, 5.56876, 0.18861, 0.08956, 0.00000, 0.13912,
142 + 0.10631, 0.04674, 6.80979, 0.23055, 0.12995, 0.00000, 0.18029,
143 + 0.10828, 0.04857, 8.01392, 0.27234, 0.17081, 0.00094, 0.22186,
144 + 0.11012, 0.05029, 9.17943, 0.30744, 0.21194, 0.01554, 0.26364,
145 + 0.11188, 0.05190, 10.29177, 0.33053, 0.25279, 0.05340, 0.30508,
146 + 0.11355, 0.05344, 11.36288, 0.35525, 0.29355, 0.08767, 0.34639,
147 + 0.11514, 0.05490, 12.39573, 0.37999, 0.33418, 0.12147, 0.38753,
148 + 0.11666, 0.05629, 13.39404, 0.40451, 0.37467, 0.15531, 0.42850,
149 + 0.11813, 0.05762, 14.34086, 0.42855, 0.41436, 0.18836, 0.46863,
150 + 0.11953, 0.05889, 15.24236, 0.45214, 0.45333, 0.22078, 0.50802,
151 + 0.12088, 0.06012, 16.12077, 0.47567, 0.49223, 0.25309, 0.54731,
152 + 0.12219, 0.06129, 16.94078, 0.49836, 0.52977, 0.28424, 0.58522,
153 + 0.12344, 0.06242, 17.73729, 0.52089, 0.56706, 0.31516, 0.62286,
154 + 0.12466, 0.06351, 18.49368, 0.54287, 0.60347, 0.34531, 0.65960,
155 + 0.12584, 0.06456, 19.21832, 0.56444, 0.63921, 0.37489, 0.69565,
156 + 0.12698, 0.06557, 19.91093, 0.58556, 0.67422, 0.40385, 0.73096,
157 + 0.12809, 0.06655, 20.57460, 0.60626, 0.70855, 0.43223, 0.76557/
158 DATA ((F(I,8,K),I=1,5),F(7,8,K),F(6,8,K),K=1,19)/
159 + 0.11992, 0.06089, 2.89161, 0.12944, 0.00987, 0.00000, 0.06968,
160 + 0.12303, 0.06395, 3.90807, 0.16359, 0.04220, 0.00000, 0.10293,
161 + 0.12589, 0.06674, 4.87665, 0.19762, 0.07464, 0.00000, 0.13618,
162 + 0.12855, 0.06929, 5.77887, 0.23094, 0.10657, 0.00000, 0.16880,
163 + 0.13104, 0.07165, 6.62765, 0.26332, 0.13808, 0.00073, 0.20094,
164 + 0.13337, 0.07384, 7.42676, 0.28995, 0.16912, 0.01176, 0.23254,
165 + 0.13558, 0.07590, 8.16982, 0.30701, 0.19939, 0.04019, 0.26332,
166 + 0.13768, 0.07783, 8.86874, 0.32497, 0.22908, 0.06544, 0.29346,
167 + 0.13968, 0.07966, 9.52822, 0.34266, 0.25819, 0.08993, 0.32299,
168 + 0.14160, 0.08140, 10.15303, 0.35991, 0.28678, 0.11411, 0.35196,
169 + 0.14343, 0.08304, 10.73344, 0.37660, 0.31442, 0.13741, 0.37996,
170 + 0.14518, 0.08461, 11.27537, 0.39275, 0.34122, 0.15998, 0.40708,
171 + 0.14687, 0.08611, 11.79519, 0.40865, 0.36765, 0.18220, 0.43380,
172 + 0.14849, 0.08753, 12.27041, 0.42381, 0.39286, 0.20340, 0.45928,
173 + 0.15005, 0.08890, 12.72536, 0.43869, 0.41764, 0.22420, 0.48432,
174 + 0.15156, 0.09020, 13.14986, 0.45305, 0.44158, 0.24428, 0.50849,
175 + 0.15301, 0.09146, 13.55015, 0.46699, 0.46485, 0.26380, 0.53197,
176 + 0.15442, 0.09267, 13.92672, 0.48051, 0.48742, 0.28272, 0.55475,
177 + 0.15578, 0.09383, 14.28213, 0.49363, 0.50936, 0.30110, 0.57688/
178 DATA ((F(I,9,K),I=1,5),F(7,9,K),F(6,9,K),K=1,19)/
179 + 0.13374, 0.07721, 2.82642, 0.14409, 0.00880, 0.00000, 0.07645,
180 + 0.13736, 0.08074, 3.68746, 0.17391, 0.03704, 0.00000, 0.10550,
181 + 0.14069, 0.08394, 4.48785, 0.20325, 0.06502, 0.00000, 0.13417,
182 + 0.14377, 0.08684, 5.21715, 0.23162, 0.09224, 0.00000, 0.16197,
183 + 0.14665, 0.08951, 5.88979, 0.25884, 0.11877, 0.00062, 0.18901,
184 + 0.14934, 0.09198, 6.51178, 0.28095, 0.14460, 0.00981, 0.21528,
185 + 0.15189, 0.09428, 7.08019, 0.29481, 0.16952, 0.03346, 0.24059,
186 + 0.15431, 0.09643, 7.60644, 0.30929, 0.19371, 0.05423, 0.26512,
187 + 0.15661, 0.09846, 8.09574, 0.32341, 0.21720, 0.07417, 0.28892,
188 + 0.15880, 0.10037, 8.55301, 0.33705, 0.24005, 0.09369, 0.31205,
189 + 0.16090, 0.10218, 8.97158, 0.35012, 0.26198, 0.11235, 0.33422,
190 + 0.16290, 0.10388, 9.35695, 0.36266, 0.28306, 0.13027, 0.35551,
191 + 0.16483, 0.10552, 9.72256, 0.37492, 0.30369, 0.14779, 0.37634,
192 + 0.16667, 0.10706, 10.05156, 0.38650, 0.32323, 0.16439, 0.39605,
193 + 0.16845, 0.10853, 10.36322, 0.39779, 0.34230, 0.18057, 0.41528,
194 + 0.17016, 0.10994, 10.65013, 0.40860, 0.36060, 0.19609, 0.43372,
195 + 0.17180, 0.11128, 10.91742, 0.41903, 0.37828, 0.21107, 0.45152,
196 + 0.17339, 0.11257, 11.16580, 0.42907, 0.39533, 0.22552, 0.46868,
197 + 0.17493, 0.11380, 11.39737, 0.43876, 0.41180, 0.23947, 0.48524/
198 DATA ((F(I,10,K),I=1,5),F(7,10,K),F(6,10,K),K=1,19)/
199 + 0.14500, 0.09118, 2.77331, 0.15476, 0.00808, 0.00000, 0.08144,
200 + 0.14908, 0.09501, 3.52587, 0.18162, 0.03367, 0.00000, 0.10767,
201 + 0.15283, 0.09846, 4.21204, 0.20775, 0.05877, 0.00000, 0.13330,
202 + 0.15630, 0.10157, 4.82669, 0.23277, 0.08293, 0.00000, 0.15790,
203 + 0.15952, 0.10442, 5.38470, 0.25653, 0.10624, 0.00055, 0.18157,
204 + 0.16253, 0.10705, 5.89329, 0.27559, 0.12871, 0.00857, 0.20435,
205 + 0.16538, 0.10948, 6.35166, 0.28730, 0.15021, 0.02914, 0.22610,
206 + 0.16807, 0.11174, 6.77052, 0.29946, 0.17090, 0.04706, 0.24701,
207 + 0.17062, 0.11387, 7.15523, 0.31123, 0.19085, 0.06413, 0.26714,
208 + 0.17305, 0.11587, 7.51064, 0.32250, 0.21011, 0.08072, 0.28656,
209 + 0.17536, 0.11774, 7.83187, 0.33323, 0.22847, 0.09648, 0.30504,
210 + 0.17757, 0.11951, 8.12401, 0.34344, 0.24601, 0.11153, 0.32268,
211 + 0.17969, 0.12119, 8.39861, 0.35336, 0.26307, 0.12615, 0.33983,
212 + 0.18172, 0.12277, 8.64208, 0.36266, 0.27913, 0.13992, 0.35596,
213 + 0.18366, 0.12428, 8.87064, 0.37168, 0.29473, 0.15327, 0.37161,
214 + 0.18553, 0.12571, 9.07849, 0.38027, 0.30962, 0.16602, 0.38653,
215 + 0.18733, 0.12708, 9.26993, 0.38850, 0.32393, 0.17827, 0.40086,
216 + 0.18906, 0.12838, 9.44570, 0.39638, 0.33766, 0.19002, 0.41461,
217 + 0.19073, 0.12963, 9.60769, 0.40394, 0.35086, 0.20132, 0.42782/
218 DATA ((F(I,11,K),I=1,5),F(7,11,K),F(6,11,K),K=1,19)/
219 + 0.15493, 0.10355, 2.72690, 0.16298, 0.00763, 0.00000, 0.08533,
220 + 0.15946, 0.10757, 3.39611, 0.18773, 0.03148, 0.00000, 0.10964,
221 + 0.16361, 0.11117, 3.99639, 0.21148, 0.05455, 0.00000, 0.13306,
222 + 0.16743, 0.11440, 4.52622, 0.23398, 0.07651, 0.00000, 0.15530,
223 + 0.17097, 0.11735, 5.00081, 0.25513, 0.09749, 0.00049, 0.17649,
224 + 0.17428, 0.12005, 5.42798, 0.27190, 0.11754, 0.00767, 0.19670,
225 + 0.17739, 0.12253, 5.80819, 0.28198, 0.13658, 0.02602, 0.21586,
226 + 0.18032, 0.12484, 6.15162, 0.29240, 0.15478, 0.04189, 0.23413,
227 + 0.18309, 0.12700, 6.46357, 0.30240, 0.17219, 0.05691, 0.25160,
228 + 0.18573, 0.12902, 6.74881, 0.31193, 0.18891, 0.07141, 0.26835,
229 + 0.18823, 0.13091, 7.00353, 0.32092, 0.20475, 0.08512, 0.28419,
230 + 0.19062, 0.13268, 7.23250, 0.32943, 0.21979, 0.09814, 0.29923,
231 + 0.19290, 0.13436, 7.44589, 0.33765, 0.23436, 0.11072, 0.31377,
232 + 0.19508, 0.13594, 7.63229, 0.34531, 0.24800, 0.12252, 0.32737,
233 + 0.19716, 0.13743, 7.80575, 0.35269, 0.26118, 0.13392, 0.34050,
234 + 0.19916, 0.13885, 7.96148, 0.35968, 0.27371, 0.14474, 0.35297,
235 + 0.20108, 0.14020, 8.10325, 0.36635, 0.28570, 0.15510, 0.36488,
236 + 0.20293, 0.14147, 8.23181, 0.37270, 0.29715, 0.16501, 0.37626,
237 + 0.20470, 0.14269, 8.34882, 0.37875, 0.30812, 0.17449, 0.38714/
238 DATA ((F(I,12,K),I=1,5),F(7,12,K),F(6,12,K),K=1,19)/
239 + 0.19507, 0.15149, 2.54346, 0.18440, 0.00598, 0.00000, 0.09521,
240 + 0.20131, 0.15569, 2.96819, 0.20159, 0.02401, 0.00000, 0.11283,
241 + 0.20694, 0.15935, 3.32764, 0.21746, 0.04078, 0.00000, 0.12916,
242 + 0.21205, 0.16257, 3.62763, 0.23196, 0.05622, 0.00000, 0.14413,
243 + 0.21673, 0.16543, 3.88265, 0.24514, 0.07053, 0.00034, 0.15796,
244 + 0.22104, 0.16799, 4.10092, 0.25506, 0.08382, 0.00516, 0.17078,
245 + 0.22504, 0.17030, 4.28491, 0.26029, 0.09613, 0.01738, 0.18260,
246 + 0.22877, 0.17240, 4.44280, 0.26563, 0.10761, 0.02770, 0.19359,
247 + 0.23226, 0.17432, 4.57919, 0.27064, 0.11836, 0.03726, 0.20386,
248 + 0.23554, 0.17609, 4.69793, 0.27527, 0.12846, 0.04630, 0.21349,
249 + 0.23862, 0.17771, 4.79753, 0.27950, 0.13784, 0.05470, 0.22239,
250 + 0.24152, 0.17919, 4.88154, 0.28339, 0.14658, 0.06253, 0.23066,
251 + 0.24427, 0.18058, 4.95632, 0.28706, 0.15489, 0.06998, 0.23852,
252 + 0.24686, 0.18185, 5.01563, 0.29035, 0.16254, 0.07685, 0.24570,
253 + 0.24933, 0.18303, 5.06787, 0.29346, 0.16980, 0.08338, 0.25253,
254 + 0.25166, 0.18413, 5.11053, 0.29631, 0.17659, 0.08950, 0.25887,
255 + 0.25388, 0.18515, 5.14600, 0.29895, 0.18298, 0.09526, 0.26483,
256 + 0.25600, 0.18610, 5.17482, 0.30139, 0.18900, 0.10070, 0.27042,
257 + 0.25802, 0.18698, 5.19803, 0.30366, 0.19467, 0.10583, 0.27567/
258 DATA ((F(I,13,K),I=1,5),F(7,13,K),F(6,13,K),K=1,19)/
259 + 0.26393, 0.21301, 2.26515, 0.18753, 0.00432, 0.00000, 0.09594,
260 + 0.27194, 0.21591, 2.47235, 0.19663, 0.01691, 0.00000, 0.10679,
261 + 0.27896, 0.21829, 2.63149, 0.20455, 0.02807, 0.00000, 0.11633,
262 + 0.28514, 0.22024, 2.75087, 0.21138, 0.03793, 0.00000, 0.12467,
263 + 0.29065, 0.22184, 2.84173, 0.21723, 0.04672, 0.00021, 0.13205,
264 + 0.29561, 0.22318, 2.91059, 0.22098, 0.05461, 0.00316, 0.13861,
265 + 0.30008, 0.22428, 2.96015, 0.22184, 0.06168, 0.01051, 0.14441,
266 + 0.30416, 0.22518, 2.99567, 0.22282, 0.06808, 0.01655, 0.14960,
267 + 0.30789, 0.22594, 3.02037, 0.22363, 0.07390, 0.02199, 0.15428,
268 + 0.31132, 0.22658, 3.03673, 0.22425, 0.07922, 0.02702, 0.15851,
269 + 0.31446, 0.22708, 3.04427, 0.22469, 0.08403, 0.03159, 0.16227,
270 + 0.31734, 0.22748, 3.04506, 0.22497, 0.08839, 0.03575, 0.16563,
271 + 0.32003, 0.22782, 3.04251, 0.22518, 0.09245, 0.03964, 0.16874,
272 + 0.32247, 0.22804, 3.03359, 0.22521, 0.09608, 0.04314, 0.17144,
273 + 0.32477, 0.22822, 3.02254, 0.22518, 0.09945, 0.04640, 0.17393,
274 + 0.32689, 0.22833, 3.00814, 0.22505, 0.10253, 0.04940, 0.17615,
275 + 0.32886, 0.22839, 2.99155, 0.22485, 0.10535, 0.05218, 0.17816,
276 + 0.33070, 0.22840, 2.97306, 0.22458, 0.10795, 0.05475, 0.17996,
277 + 0.33241, 0.22838, 2.95314, 0.22426, 0.11034, 0.05713, 0.18159/
278 DATA ((F(I,14,K),I=1,5),F(7,14,K),F(6,14,K),K=1,19)/
279 + 0.32748, 0.25117, 2.03445, 0.17254, 0.00335, 0.00000, 0.08794,
280 + 0.33553, 0.25211, 2.13380, 0.17708, 0.01289, 0.00000, 0.09499,
281 + 0.34236, 0.25266, 2.19959, 0.18076, 0.02109, 0.00001, 0.10093,
282 + 0.34819, 0.25287, 2.23928, 0.18367, 0.02813, 0.00001, 0.10590,
283 + 0.35322, 0.25285, 2.26129, 0.18592, 0.03425, 0.00015, 0.11012,
284 + 0.35760, 0.25267, 2.27045, 0.18676, 0.03960, 0.00220, 0.11372,
285 + 0.36144, 0.25231, 2.26868, 0.18563, 0.04428, 0.00727, 0.11677,
286 + 0.36481, 0.25184, 2.25964, 0.18468, 0.04843, 0.01135, 0.11938,
287 + 0.36779, 0.25128, 2.24539, 0.18368, 0.05211, 0.01497, 0.12163,
288 + 0.37045, 0.25066, 2.22753, 0.18264, 0.05542, 0.01825, 0.12358,
289 + 0.37279, 0.24998, 2.20577, 0.18154, 0.05834, 0.02118, 0.12523,
290 + 0.37484, 0.24924, 2.18135, 0.18040, 0.06093, 0.02381, 0.12661,
291 + 0.37671, 0.24848, 2.15634, 0.17927, 0.06329, 0.02623, 0.12782,
292 + 0.37831, 0.24766, 2.12875, 0.17807, 0.06535, 0.02837, 0.12879,
293 + 0.37977, 0.24683, 2.10118, 0.17689, 0.06724, 0.03035, 0.12964,
294 + 0.38105, 0.24598, 2.07277, 0.17569, 0.06892, 0.03213, 0.13033,
295 + 0.38218, 0.24511, 2.04421, 0.17449, 0.07043, 0.03376, 0.13089,
296 + 0.38317, 0.24423, 2.01557, 0.17330, 0.07179, 0.03524, 0.13133,
297 + 0.38405, 0.24334, 1.98706, 0.17210, 0.07301, 0.03660, 0.13169/
298 DATA ((F(I,15,K),I=1,5),F(7,15,K),F(6,15,K),K=1,19)/
299 + 0.38577, 0.27514, 1.83134, 0.15191, 0.00268, 0.00000, 0.07728,
300 + 0.39258, 0.27396, 1.86637, 0.15372, 0.01018, -0.00001, 0.08194,
301 + 0.39814, 0.27257, 1.87912, 0.15493, 0.01646, 0.00000, 0.08569,
302 + 0.40260, 0.27103, 1.87548, 0.15564, 0.02174, 0.00000, 0.08868,
303 + 0.40628, 0.26939, 1.86163, 0.15593, 0.02622, 0.00011, 0.09109,
304 + 0.40931, 0.26770, 1.84105, 0.15524, 0.03006, 0.00162, 0.09305,
305 + 0.41176, 0.26596, 1.81489, 0.15319, 0.03336, 0.00532, 0.09459,
306 + 0.41378, 0.26417, 1.78555, 0.15134, 0.03622, 0.00826, 0.09583,
307 + 0.41544, 0.26239, 1.75442, 0.14954, 0.03872, 0.01082, 0.09682,
308 + 0.41679, 0.26062, 1.72249, 0.14777, 0.04091, 0.01311, 0.09761,
309 + 0.41784, 0.25884, 1.68940, 0.14602, 0.04281, 0.01513, 0.09818,
310 + 0.41864, 0.25707, 1.65589, 0.14429, 0.04446, 0.01693, 0.09859,
311 + 0.41929, 0.25534, 1.62326, 0.14262, 0.04595, 0.01856, 0.09890,
312 + 0.41967, 0.25360, 1.59008, 0.14096, 0.04721, 0.01997, 0.09906,
313 + 0.41994, 0.25191, 1.55799, 0.13935, 0.04834, 0.02127, 0.09914,
314 + 0.42007, 0.25022, 1.52634, 0.13777, 0.04933, 0.02242, 0.09913,
315 + 0.42007, 0.24855, 1.49547, 0.13623, 0.05019, 0.02346, 0.09905,
316 + 0.41997, 0.24691, 1.46537, 0.13472, 0.05095, 0.02439, 0.09891,
317 + 0.41978, 0.24530, 1.43613, 0.13325, 0.05161, 0.02524, 0.09872/
318 DATA ((F(I,16,K),I=1,5),F(7,16,K),F(6,16,K),K=1,19)/
319 + 0.43776, 0.28909, 1.64882, 0.13023, 0.00217, 0.00000, 0.06619,
320 + 0.44242, 0.28586, 1.64270, 0.13041, 0.00819, -0.00001, 0.06929,
321 + 0.44588, 0.28264, 1.62295, 0.13020, 0.01312, 0.00000, 0.07166,
322 + 0.44831, 0.27945, 1.59396, 0.12968, 0.01718, 0.00000, 0.07342,
323 + 0.45005, 0.27632, 1.56010, 0.12891, 0.02056, 0.00008, 0.07474,
324 + 0.45121, 0.27326, 1.52371, 0.12745, 0.02341, 0.00123, 0.07574,
325 + 0.45186, 0.27026, 1.48531, 0.12503, 0.02581, 0.00402, 0.07642,
326 + 0.45214, 0.26732, 1.44645, 0.12283, 0.02786, 0.00621, 0.07688,
327 + 0.45213, 0.26446, 1.40796, 0.12073, 0.02961, 0.00810, 0.07718,
328 + 0.45188, 0.26169, 1.37039, 0.11871, 0.03112, 0.00976, 0.07735,
329 + 0.45138, 0.25898, 1.33333, 0.11675, 0.03240, 0.01121, 0.07737,
330 + 0.45069, 0.25633, 1.29717, 0.11485, 0.03350, 0.01248, 0.07728,
331 + 0.44991, 0.25379, 1.26272, 0.11303, 0.03447, 0.01363, 0.07714,
332 + 0.44891, 0.25129, 1.22885, 0.11126, 0.03526, 0.01461, 0.07690,
333 + 0.44785, 0.24887, 1.19662, 0.10956, 0.03597, 0.01549, 0.07662,
334 + 0.44669, 0.24650, 1.16549, 0.10792, 0.03656, 0.01627, 0.07629,
335 + 0.44546, 0.24420, 1.13563, 0.10633, 0.03706, 0.01697, 0.07592,
336 + 0.44417, 0.24195, 1.10696, 0.10479, 0.03749, 0.01758, 0.07552,
337 + 0.44282, 0.23976, 1.07949, 0.10331, 0.03785, 0.01813, 0.07509/
338 DATA ((F(I,17,K),I=1,5),F(7,17,K),F(6,17,K),K=1,19)/
339 + 0.49294, 0.29618, 1.44435, 0.10451, 0.00171, 0.00001, 0.05311,
340 + 0.49398, 0.29063, 1.40607, 0.10363, 0.00635, 0.00001, 0.05498,
341 + 0.49408, 0.28536, 1.36223, 0.10254, 0.01007, 0.00001, 0.05629,
342 + 0.49338, 0.28036, 1.31553, 0.10128, 0.01305, 0.00001, 0.05715,
343 + 0.49220, 0.27560, 1.26866, 0.09991, 0.01550, 0.00007, 0.05771,
344 + 0.49061, 0.27111, 1.22275, 0.09811, 0.01751, 0.00090, 0.05803,
345 + 0.48868, 0.26677, 1.17775, 0.09567, 0.01917, 0.00292, 0.05814,
346 + 0.48652, 0.26264, 1.13448, 0.09344, 0.02055, 0.00449, 0.05811,
347 + 0.48419, 0.25868, 1.09324, 0.09134, 0.02171, 0.00581, 0.05797,
348 + 0.48176, 0.25490, 1.05420, 0.08936, 0.02269, 0.00697, 0.05775,
349 + 0.47917, 0.25126, 1.01686, 0.08745, 0.02350, 0.00796, 0.05745,
350 + 0.47650, 0.24775, 0.98134, 0.08563, 0.02417, 0.00882, 0.05709,
351 + 0.47385, 0.24440, 0.94806, 0.08391, 0.02475, 0.00958, 0.05671,
352 + 0.47107, 0.24115, 0.91612, 0.08224, 0.02521, 0.01022, 0.05626,
353 + 0.46831, 0.23804, 0.88614, 0.08066, 0.02560, 0.01079, 0.05581,
354 + 0.46553, 0.23503, 0.85766, 0.07914, 0.02591, 0.01129, 0.05534,
355 + 0.46275, 0.23212, 0.83070, 0.07768, 0.02616, 0.01173, 0.05484,
356 + 0.45997, 0.22932, 0.80515, 0.07629, 0.02637, 0.01211, 0.05434,
357 + 0.45721, 0.22661, 0.78094, 0.07495, 0.02653, 0.01244, 0.05383/
358 DATA ((F(I,18,K),I=1,5),F(7,18,K),F(6,18,K),K=1,19)/
359 + 0.53606, 0.29472, 1.26244, 0.08206, 0.00135, 0.00001, 0.04169,
360 + 0.53294, 0.28717, 1.20527, 0.08075, 0.00496, 0.00000, 0.04285,
361 + 0.52924, 0.28021, 1.14839, 0.07934, 0.00780, 0.00000, 0.04356,
362 + 0.52513, 0.27371, 1.09311, 0.07786, 0.01004, 0.00000, 0.04393,
363 + 0.52077, 0.26768, 1.04076, 0.07635, 0.01182, 0.00005, 0.04408,
364 + 0.51629, 0.26203, 0.99161, 0.07455, 0.01327, 0.00067, 0.04407,
365 + 0.51168, 0.25666, 0.94522, 0.07233, 0.01444, 0.00215, 0.04390,
366 + 0.50700, 0.25161, 0.90185, 0.07031, 0.01539, 0.00329, 0.04365,
367 + 0.50233, 0.24683, 0.86145, 0.06841, 0.01617, 0.00424, 0.04334,
368 + 0.49771, 0.24230, 0.82391, 0.06663, 0.01682, 0.00506, 0.04298,
369 + 0.49309, 0.23797, 0.78871, 0.06494, 0.01733, 0.00576, 0.04257,
370 + 0.48850, 0.23384, 0.75579, 0.06334, 0.01775, 0.00635, 0.04212,
371 + 0.48404, 0.22993, 0.72530, 0.06184, 0.01809, 0.00687, 0.04167,
372 + 0.47957, 0.22616, 0.69651, 0.06039, 0.01835, 0.00731, 0.04119,
373 + 0.47521, 0.22257, 0.66975, 0.05903, 0.01857, 0.00769, 0.04071,
374 + 0.47090, 0.21913, 0.64460, 0.05772, 0.01873, 0.00801, 0.04022,
375 + 0.46668, 0.21582, 0.62104, 0.05648, 0.01885, 0.00829, 0.03973,
376 + 0.46255, 0.21265, 0.59892, 0.05530, 0.01893, 0.00853, 0.03923,
377 + 0.45848, 0.20960, 0.57815, 0.05417, 0.01898, 0.00874, 0.03875/
378 DATA ((F(I,19,K),I=1,5),F(7,19,K),F(6,19,K),K=1,19)/
379 + 0.56694, 0.28694, 1.10021, 0.06328, 0.00106, 0.00000, 0.03217,
380 + 0.55946, 0.27779, 1.03264, 0.06190, 0.00389, 0.00001, 0.03289,
381 + 0.55189, 0.26947, 0.96958, 0.06048, 0.00607, 0.00000, 0.03327,
382 + 0.54428, 0.26185, 0.91115, 0.05905, 0.00776, 0.00000, 0.03339,
383 + 0.53682, 0.25481, 0.85768, 0.05761, 0.00909, 0.00004, 0.03335,
384 + 0.52950, 0.24831, 0.80881, 0.05599, 0.01014, 0.00050, 0.03318,
385 + 0.52229, 0.24221, 0.76377, 0.05408, 0.01097, 0.00161, 0.03292,
386 + 0.51523, 0.23650, 0.72247, 0.05234, 0.01163, 0.00245, 0.03259,
387 + 0.50836, 0.23114, 0.68464, 0.05073, 0.01216, 0.00314, 0.03223,
388 + 0.50172, 0.22610, 0.64998, 0.04923, 0.01258, 0.00373, 0.03184,
389 + 0.49523, 0.22130, 0.61793, 0.04780, 0.01292, 0.00422, 0.03141,
390 + 0.48890, 0.21677, 0.58836, 0.04646, 0.01317, 0.00464, 0.03097,
391 + 0.48281, 0.21250, 0.56123, 0.04521, 0.01338, 0.00500, 0.03054,
392 + 0.47681, 0.20841, 0.53590, 0.04401, 0.01352, 0.00529, 0.03009,
393 + 0.47104, 0.20453, 0.51254, 0.04289, 0.01363, 0.00555, 0.02964,
394 + 0.46542, 0.20083, 0.49080, 0.04182, 0.01371, 0.00577, 0.02920,
395 + 0.45995, 0.19729, 0.47060, 0.04080, 0.01375, 0.00595, 0.02876,
396 + 0.45463, 0.19391, 0.45177, 0.03985, 0.01377, 0.00610, 0.02833,
397 + 0.44947, 0.19068, 0.43421, 0.03893, 0.01377, 0.00623, 0.02790/
398 DATA ((F(I,20,K),I=1,5),F(7,20,K),F(6,20,K),K=1,19)/
399 + 0.58616, 0.27450, 0.95557, 0.04797, 0.00085, 0.00000, 0.02441,
400 + 0.57437, 0.26414, 0.88327, 0.04672, 0.00307, 0.00001, 0.02489,
401 + 0.56303, 0.25483, 0.81839, 0.04544, 0.00475, 0.00000, 0.02510,
402 + 0.55212, 0.24639, 0.76014, 0.04417, 0.00603, 0.00000, 0.02509,
403 + 0.54172, 0.23867, 0.70811, 0.04292, 0.00701, 0.00003, 0.02497,
404 + 0.53177, 0.23159, 0.66150, 0.04155, 0.00778, 0.00038, 0.02476,
405 + 0.52219, 0.22501, 0.61931, 0.03997, 0.00837, 0.00121, 0.02447,
406 + 0.51298, 0.21888, 0.58120, 0.03855, 0.00883, 0.00183, 0.02415,
407 + 0.50416, 0.21317, 0.54674, 0.03724, 0.00919, 0.00234, 0.02380,
408 + 0.49573, 0.20783, 0.51553, 0.03601, 0.00947, 0.00276, 0.02344,
409 + 0.48761, 0.20278, 0.48701, 0.03486, 0.00969, 0.00312, 0.02305,
410 + 0.47978, 0.19803, 0.46095, 0.03377, 0.00984, 0.00341, 0.02266,
411 + 0.47231, 0.19357, 0.43724, 0.03277, 0.00996, 0.00367, 0.02228,
412 + 0.46504, 0.18933, 0.41532, 0.03181, 0.01003, 0.00387, 0.02189,
413 + 0.45808, 0.18532, 0.39525, 0.03091, 0.01008, 0.00404, 0.02151,
414 + 0.45137, 0.18150, 0.37671, 0.03006, 0.01010, 0.00419, 0.02113,
415 + 0.44489, 0.17788, 0.35960, 0.02926, 0.01011, 0.00431, 0.02076,
416 + 0.43862, 0.17442, 0.34376, 0.02851, 0.01009, 0.00441, 0.02040,
417 + 0.43258, 0.17113, 0.32907, 0.02779, 0.01006, 0.00449, 0.02004/
418 DATA ((F(I,21,K),I=1,5),F(7,21,K),F(6,21,K),K=1,19)/
419 + 0.59448, 0.25877, 0.82678, 0.03584, 0.00066, 0.00000, 0.01825,
420 + 0.57863, 0.24757, 0.75359, 0.03480, 0.00241, -0.00001, 0.01859,
421 + 0.56384, 0.23761, 0.68973, 0.03373, 0.00371, 0.00000, 0.01871,
422 + 0.54994, 0.22863, 0.63373, 0.03268, 0.00467, 0.00000, 0.01866,
423 + 0.53691, 0.22051, 0.58465, 0.03165, 0.00541, 0.00002, 0.01852,
424 + 0.52465, 0.21310, 0.54138, 0.03053, 0.00598, 0.00028, 0.01832,
425 + 0.51300, 0.20626, 0.50281, 0.02928, 0.00640, 0.00091, 0.01806,
426 + 0.50196, 0.19993, 0.46836, 0.02814, 0.00672, 0.00137, 0.01776,
427 + 0.49149, 0.19406, 0.43757, 0.02710, 0.00697, 0.00175, 0.01746,
428 + 0.48157, 0.18860, 0.40997, 0.02613, 0.00716, 0.00206, 0.01715,
429 + 0.47210, 0.18347, 0.38500, 0.02522, 0.00729, 0.00231, 0.01682,
430 + 0.46304, 0.17866, 0.36236, 0.02437, 0.00738, 0.00252, 0.01650,
431 + 0.45446, 0.17417, 0.34190, 0.02358, 0.00744, 0.00270, 0.01618,
432 + 0.44619, 0.16989, 0.32316, 0.02283, 0.00747, 0.00284, 0.01585,
433 + 0.43831, 0.16588, 0.30612, 0.02214, 0.00748, 0.00296, 0.01554,
434 + 0.43073, 0.16208, 0.29049, 0.02149, 0.00747, 0.00305, 0.01523,
435 + 0.42346, 0.15847, 0.27614, 0.02087, 0.00746, 0.00313, 0.01494,
436 + 0.41649, 0.15505, 0.26293, 0.02028, 0.00743, 0.00320, 0.01464,
437 + 0.40980, 0.15179, 0.25075, 0.01973, 0.00739, 0.00325, 0.01436/
438 DATA ((F(I,22,K),I=1,5),F(7,22,K),F(6,22,K),K=1,19)/
439 + 0.59269, 0.24072, 0.71230, 0.02635, 0.00053, 0.00000, 0.01344,
440 + 0.57325, 0.22903, 0.64079, 0.02552, 0.00190, 0.00000, 0.01371,
441 + 0.55540, 0.21872, 0.57977, 0.02468, 0.00290, 0.00000, 0.01379,
442 + 0.53890, 0.20950, 0.52731, 0.02385, 0.00364, 0.00001, 0.01374,
443 + 0.52366, 0.20121, 0.48206, 0.02304, 0.00418, 0.00002, 0.01361,
444 + 0.50947, 0.19370, 0.44267, 0.02217, 0.00459, 0.00022, 0.01343,
445 + 0.49615, 0.18680, 0.40803, 0.02118, 0.00489, 0.00069, 0.01321,
446 + 0.48362, 0.18045, 0.37744, 0.02031, 0.00511, 0.00103, 0.01297,
447 + 0.47185, 0.17458, 0.35033, 0.01950, 0.00528, 0.00131, 0.01271,
448 + 0.46077, 0.16914, 0.32623, 0.01875, 0.00540, 0.00154, 0.01246,
449 + 0.45025, 0.16407, 0.30462, 0.01806, 0.00548, 0.00172, 0.01220,
450 + 0.44028, 0.15933, 0.28518, 0.01740, 0.00553, 0.00187, 0.01193,
451 + 0.43089, 0.15491, 0.26773, 0.01680, 0.00556, 0.00199, 0.01167,
452 + 0.42188, 0.15073, 0.25188, 0.01623, 0.00557, 0.00209, 0.01142,
453 + 0.41334, 0.14682, 0.23754, 0.01569, 0.00556, 0.00217, 0.01117,
454 + 0.40518, 0.14312, 0.22446, 0.01520, 0.00554, 0.00223, 0.01092,
455 + 0.39739, 0.13962, 0.21252, 0.01473, 0.00551, 0.00228, 0.01069,
456 + 0.38996, 0.13631, 0.20159, 0.01429, 0.00548, 0.00233, 0.01046,
457 + 0.38284, 0.13317, 0.19155, 0.01387, 0.00543, 0.00236, 0.01024/
458 DATA ((F(I,23,K),I=1,5),F(7,23,K),F(6,23,K),K=1,19)/
459 + 0.58209, 0.22129, 0.61084, 0.01911, 0.00042, 0.00000, 0.00976,
460 + 0.55958, 0.20941, 0.54275, 0.01849, 0.00149, 0.00000, 0.00999,
461 + 0.53918, 0.19902, 0.48575, 0.01786, 0.00226, 0.00000, 0.01006,
462 + 0.52057, 0.18978, 0.43753, 0.01723, 0.00282, 0.00001, 0.01002,
463 + 0.50356, 0.18153, 0.39650, 0.01660, 0.00322, 0.00001, 0.00991,
464 + 0.48786, 0.17410, 0.36121, 0.01594, 0.00352, 0.00016, 0.00977,
465 + 0.47325, 0.16730, 0.33052, 0.01519, 0.00373, 0.00052, 0.00959,
466 + 0.45961, 0.16108, 0.30369, 0.01453, 0.00389, 0.00078, 0.00940,
467 + 0.44688, 0.15535, 0.28012, 0.01391, 0.00400, 0.00098, 0.00920,
468 + 0.43497, 0.15007, 0.25933, 0.01334, 0.00407, 0.00115, 0.00900,
469 + 0.42373, 0.14516, 0.24083, 0.01282, 0.00412, 0.00128, 0.00879,
470 + 0.41314, 0.14058, 0.22432, 0.01233, 0.00415, 0.00138, 0.00858,
471 + 0.40320, 0.13633, 0.20958, 0.01187, 0.00416, 0.00147, 0.00838,
472 + 0.39372, 0.13233, 0.19628, 0.01145, 0.00415, 0.00154, 0.00818,
473 + 0.38477, 0.12860, 0.18431, 0.01105, 0.00413, 0.00159, 0.00799,
474 + 0.37626, 0.12508, 0.17346, 0.01068, 0.00410, 0.00163, 0.00780,
475 + 0.36817, 0.12176, 0.16361, 0.01033, 0.00407, 0.00167, 0.00761,
476 + 0.36047, 0.11862, 0.15463, 0.01000, 0.00404, 0.00169, 0.00744,
477 + 0.35313, 0.11566, 0.14642, 0.00969, 0.00399, 0.00171, 0.00727/
478 DATA ((F(I,24,K),I=1,5),F(7,24,K),F(6,24,K),K=1,19)/
479 + 0.56377, 0.20114, 0.52115, 0.01364, 0.00033, 0.00001, 0.00699,
480 + 0.53879, 0.18934, 0.45761, 0.01320, 0.00117, 0.00001, 0.00720,
481 + 0.51640, 0.17908, 0.40527, 0.01275, 0.00176, 0.00001, 0.00726,
482 + 0.49621, 0.17003, 0.36168, 0.01228, 0.00218, 0.00000, 0.00723,
483 + 0.47786, 0.16200, 0.32500, 0.01182, 0.00248, 0.00002, 0.00716,
484 + 0.46111, 0.15479, 0.29381, 0.01132, 0.00269, 0.00013, 0.00705,
485 + 0.44557, 0.14823, 0.26694, 0.01077, 0.00285, 0.00040, 0.00691,
486 + 0.43119, 0.14225, 0.24366, 0.01028, 0.00295, 0.00058, 0.00676,
487 + 0.41785, 0.13678, 0.22339, 0.00982, 0.00303, 0.00073, 0.00660,
488 + 0.40544, 0.13175, 0.20564, 0.00940, 0.00307, 0.00085, 0.00645,
489 + 0.39380, 0.12708, 0.18996, 0.00901, 0.00310, 0.00095, 0.00629,
490 + 0.38287, 0.12275, 0.17606, 0.00864, 0.00310, 0.00102, 0.00613,
491 + 0.37265, 0.11874, 0.16373, 0.00831, 0.00310, 0.00108, 0.00598,
492 + 0.36293, 0.11499, 0.15267, 0.00799, 0.00309, 0.00113, 0.00583,
493 + 0.35382, 0.11148, 0.14276, 0.00770, 0.00306, 0.00117, 0.00568,
494 + 0.34519, 0.10819, 0.13383, 0.00743, 0.00304, 0.00120, 0.00553,
495 + 0.33700, 0.10510, 0.12576, 0.00717, 0.00301, 0.00122, 0.00540,
496 + 0.32922, 0.10219, 0.11844, 0.00694, 0.00297, 0.00124, 0.00526,
497 + 0.32182, 0.09944, 0.11178, 0.00671, 0.00294, 0.00125, 0.00514/
498 DATA ((F(I,25,K),I=1,5),F(7,25,K),F(6,25,K),K=1,19)/
499 + 0.53899, 0.18084, 0.44224, 0.00958, 0.00026, 0.00001, 0.00493,
500 + 0.51217, 0.16935, 0.38389, 0.00929, 0.00091, 0.00001, 0.00511,
501 + 0.48837, 0.15944, 0.33655, 0.00897, 0.00136, 0.00001, 0.00517,
502 + 0.46709, 0.15074, 0.29763, 0.00864, 0.00168, 0.00000, 0.00516,
503 + 0.44789, 0.14305, 0.26526, 0.00831, 0.00190, 0.00001, 0.00511,
504 + 0.43049, 0.13619, 0.23801, 0.00795, 0.00205, 0.00010, 0.00503,
505 + 0.41444, 0.12998, 0.21475, 0.00755, 0.00216, 0.00030, 0.00493,
506 + 0.39969, 0.12434, 0.19478, 0.00719, 0.00223, 0.00044, 0.00482,
507 + 0.38606, 0.11919, 0.17752, 0.00685, 0.00228, 0.00055, 0.00470,
508 + 0.37344, 0.11448, 0.16251, 0.00655, 0.00230, 0.00063, 0.00458,
509 + 0.36167, 0.11013, 0.14934, 0.00626, 0.00231, 0.00070, 0.00446,
510 + 0.35065, 0.10611, 0.13775, 0.00600, 0.00231, 0.00075, 0.00435,
511 + 0.34039, 0.10239, 0.12752, 0.00575, 0.00230, 0.00080, 0.00423,
512 + 0.33068, 0.09892, 0.11839, 0.00553, 0.00229, 0.00083, 0.00412,
513 + 0.32160, 0.09569, 0.11026, 0.00532, 0.00226, 0.00085, 0.00401,
514 + 0.31303, 0.09266, 0.10297, 0.00512, 0.00224, 0.00087, 0.00390,
515 + 0.30493, 0.08982, 0.09641, 0.00493, 0.00221, 0.00089, 0.00380,
516 + 0.29725, 0.08716, 0.09048, 0.00476, 0.00218, 0.00090, 0.00370,
517 + 0.28998, 0.08466, 0.08512, 0.00460, 0.00215, 0.00090, 0.00360/
518 DATA ((F(I,26,K),I=1,5),F(7,26,K),F(6,26,K),K=1,19)/
519 + 0.50900, 0.16088, 0.37309, 0.00666, 0.00020, 0.00000, 0.00342,
520 + 0.48098, 0.14990, 0.32025, 0.00648, 0.00069, -0.00001, 0.00358,
521 + 0.45635, 0.14048, 0.27801, 0.00626, 0.00104, -0.00001, 0.00365,
522 + 0.43445, 0.13227, 0.24366, 0.00604, 0.00128, 0.00000, 0.00365,
523 + 0.41488, 0.12504, 0.21543, 0.00580, 0.00143, 0.00000, 0.00362,
524 + 0.39720, 0.11861, 0.19189, 0.00555, 0.00154, 0.00007, 0.00356,
525 + 0.38103, 0.11283, 0.17198, 0.00525, 0.00162, 0.00022, 0.00349,
526 + 0.36623, 0.10759, 0.15501, 0.00499, 0.00167, 0.00032, 0.00341,
527 + 0.35261, 0.10283, 0.14045, 0.00475, 0.00170, 0.00040, 0.00332,
528 + 0.34006, 0.09849, 0.12787, 0.00453, 0.00172, 0.00046, 0.00324,
529 + 0.32841, 0.09449, 0.11692, 0.00432, 0.00172, 0.00051, 0.00315,
530 + 0.31753, 0.09081, 0.10733, 0.00413, 0.00171, 0.00055, 0.00306,
531 + 0.30743, 0.08742, 0.09891, 0.00396, 0.00170, 0.00058, 0.00298,
532 + 0.29793, 0.08426, 0.09145, 0.00380, 0.00168, 0.00060, 0.00289,
533 + 0.28906, 0.08132, 0.08483, 0.00365, 0.00166, 0.00062, 0.00281,
534 + 0.28071, 0.07858, 0.07892, 0.00351, 0.00164, 0.00063, 0.00273,
535 + 0.27285, 0.07602, 0.07363, 0.00338, 0.00161, 0.00064, 0.00266,
536 + 0.26544, 0.07362, 0.06887, 0.00325, 0.00159, 0.00064, 0.00258,
537 + 0.25843, 0.07137, 0.06458, 0.00314, 0.00156, 0.00065, 0.00251/
538 DATA ((F(I,27,K),I=1,5),F(7,27,K),F(6,27,K),K=1,19)/
539 + 0.47497, 0.14157, 0.31271, 0.00452, 0.00015, 0.00000, 0.00233,
540 + 0.44637, 0.13125, 0.26548, 0.00442, 0.00053, 0.00000, 0.00247,
541 + 0.42143, 0.12245, 0.22823, 0.00428, 0.00079, 0.00000, 0.00254,
542 + 0.39940, 0.11481, 0.19828, 0.00414, 0.00097, 0.00000, 0.00255,
543 + 0.37984, 0.10812, 0.17392, 0.00398, 0.00108, 0.00000, 0.00253,
544 + 0.36227, 0.10220, 0.15380, 0.00380, 0.00116, 0.00005, 0.00249,
545 + 0.34629, 0.09689, 0.13692, 0.00360, 0.00121, 0.00016, 0.00245,
546 + 0.33173, 0.09210, 0.12265, 0.00341, 0.00124, 0.00023, 0.00239,
547 + 0.31839, 0.08777, 0.11049, 0.00324, 0.00126, 0.00029, 0.00232,
548 + 0.30614, 0.08383, 0.10005, 0.00309, 0.00127, 0.00034, 0.00226,
549 + 0.29482, 0.08022, 0.09102, 0.00294, 0.00127, 0.00037, 0.00220,
550 + 0.28430, 0.07690, 0.08316, 0.00281, 0.00126, 0.00040, 0.00213,
551 + 0.27455, 0.07385, 0.07630, 0.00268, 0.00124, 0.00042, 0.00207,
552 + 0.26542, 0.07102, 0.07025, 0.00257, 0.00123, 0.00044, 0.00201,
553 + 0.25691, 0.06839, 0.06491, 0.00247, 0.00121, 0.00045, 0.00195,
554 + 0.24894, 0.06595, 0.06016, 0.00237, 0.00119, 0.00045, 0.00190,
555 + 0.24145, 0.06367, 0.05593, 0.00228, 0.00117, 0.00046, 0.00184,
556 + 0.23440, 0.06154, 0.05214, 0.00219, 0.00115, 0.00046, 0.00179,
557 + 0.22776, 0.05955, 0.04874, 0.00211, 0.00113, 0.00046, 0.00174/
558 DATA ((F(I,28,K),I=1,5),F(7,28,K),F(6,28,K),K=1,19)/
559 + 0.43807, 0.12325, 0.26028, 0.00305, 0.00011, -0.00001, 0.00157,
560 + 0.40947, 0.11370, 0.21859, 0.00300, 0.00040, -0.00001, 0.00169,
561 + 0.38473, 0.10559, 0.18611, 0.00291, 0.00059, -0.00001, 0.00175,
562 + 0.36299, 0.09860, 0.16030, 0.00283, 0.00072, -0.00001, 0.00177,
563 + 0.34382, 0.09249, 0.13949, 0.00271, 0.00081, 0.00000, 0.00176,
564 + 0.32665, 0.08713, 0.12247, 0.00260, 0.00087, 0.00004, 0.00174,
565 + 0.31119, 0.08233, 0.10830, 0.00245, 0.00091, 0.00012, 0.00171,
566 + 0.29711, 0.07802, 0.09642, 0.00232, 0.00092, 0.00017, 0.00166,
567 + 0.28427, 0.07413, 0.08637, 0.00220, 0.00093, 0.00021, 0.00162,
568 + 0.27253, 0.07061, 0.07779, 0.00210, 0.00093, 0.00024, 0.00157,
569 + 0.26170, 0.06739, 0.07042, 0.00200, 0.00092, 0.00027, 0.00153,
570 + 0.25169, 0.06444, 0.06404, 0.00190, 0.00092, 0.00029, 0.00148,
571 + 0.24247, 0.06173, 0.05849, 0.00182, 0.00091, 0.00030, 0.00144,
572 + 0.23384, 0.05923, 0.05363, 0.00174, 0.00089, 0.00031, 0.00139,
573 + 0.22582, 0.05692, 0.04935, 0.00166, 0.00088, 0.00032, 0.00135,
574 + 0.21833, 0.05477, 0.04557, 0.00159, 0.00086, 0.00032, 0.00131,
575 + 0.21131, 0.05277, 0.04222, 0.00153, 0.00084, 0.00033, 0.00127,
576 + 0.20472, 0.05090, 0.03923, 0.00147, 0.00083, 0.00033, 0.00123,
577 + 0.19853, 0.04916, 0.03655, 0.00142, 0.00081, 0.00033, 0.00119/
578 DATA ((F(I,29,K),I=1,5),F(7,29,K),F(6,29,K),K=1,19)/
579 + 0.39932, 0.10609, 0.21499, 0.00199, 0.00008, -0.00001, 0.00103,
580 + 0.37125, 0.09738, 0.17861, 0.00198, 0.00030, -0.00001, 0.00113,
581 + 0.34714, 0.09003, 0.15062, 0.00194, 0.00044, -0.00001, 0.00118,
582 + 0.32609, 0.08372, 0.12861, 0.00189, 0.00054, -0.00001, 0.00120,
583 + 0.30762, 0.07824, 0.11104, 0.00181, 0.00060, 0.00000, 0.00120,
584 + 0.29117, 0.07344, 0.09679, 0.00174, 0.00064, 0.00003, 0.00119,
585 + 0.27641, 0.06917, 0.08503, 0.00164, 0.00067, 0.00008, 0.00117,
586 + 0.26304, 0.06534, 0.07523, 0.00155, 0.00067, 0.00012, 0.00114,
587 + 0.25090, 0.06191, 0.06700, 0.00147, 0.00068, 0.00015, 0.00111,
588 + 0.23984, 0.05880, 0.06003, 0.00140, 0.00068, 0.00018, 0.00108,
589 + 0.22966, 0.05597, 0.05406, 0.00133, 0.00067, 0.00019, 0.00105,
590 + 0.22030, 0.05339, 0.04893, 0.00127, 0.00066, 0.00020, 0.00101,
591 + 0.21169, 0.05102, 0.04450, 0.00121, 0.00065, 0.00021, 0.00098,
592 + 0.20367, 0.04884, 0.04063, 0.00115, 0.00064, 0.00022, 0.00095,
593 + 0.19624, 0.04683, 0.03724, 0.00110, 0.00063, 0.00023, 0.00092,
594 + 0.18931, 0.04497, 0.03426, 0.00105, 0.00061, 0.00023, 0.00089,
595 + 0.18283, 0.04324, 0.03163, 0.00101, 0.00060, 0.00023, 0.00086,
596 + 0.17677, 0.04163, 0.02929, 0.00097, 0.00059, 0.00023, 0.00084,
597 + 0.17109, 0.04013, 0.02721, 0.00093, 0.00057, 0.00023, 0.00081/
598 DATA ((F(I,30,K),I=1,5),F(7,30,K),F(6,30,K),K=1,19)/
599 + 0.35977, 0.09027, 0.17611, 0.00129, 0.00006, 0.00000, 0.00067,
600 + 0.33269, 0.08244, 0.14474, 0.00130, 0.00022, -0.00001, 0.00076,
601 + 0.30956, 0.07587, 0.12088, 0.00129, 0.00033, 0.00000, 0.00081,
602 + 0.28955, 0.07026, 0.10233, 0.00125, 0.00040, 0.00000, 0.00082,
603 + 0.27202, 0.06542, 0.08765, 0.00121, 0.00044, 0.00000, 0.00082,
604 + 0.25654, 0.06119, 0.07585, 0.00116, 0.00046, 0.00002, 0.00081,
605 + 0.24267, 0.05744, 0.06620, 0.00109, 0.00048, 0.00006, 0.00080,
606 + 0.23017, 0.05410, 0.05821, 0.00104, 0.00049, 0.00009, 0.00078,
607 + 0.21888, 0.05110, 0.05154, 0.00098, 0.00049, 0.00011, 0.00076,
608 + 0.20862, 0.04840, 0.04592, 0.00093, 0.00049, 0.00013, 0.00074,
609 + 0.19922, 0.04595, 0.04115, 0.00088, 0.00048, 0.00014, 0.00071,
610 + 0.19059, 0.04372, 0.03707, 0.00084, 0.00047, 0.00014, 0.00069,
611 + 0.18268, 0.04168, 0.03356, 0.00080, 0.00047, 0.00015, 0.00067,
612 + 0.17533, 0.03981, 0.03052, 0.00076, 0.00046, 0.00016, 0.00065,
613 + 0.16855, 0.03808, 0.02787, 0.00073, 0.00045, 0.00016, 0.00063,
614 + 0.16225, 0.03649, 0.02554, 0.00070, 0.00043, 0.00016, 0.00061,
615 + 0.15637, 0.03502, 0.02349, 0.00067, 0.00042, 0.00016, 0.00058,
616 + 0.15087, 0.03365, 0.02169, 0.00064, 0.00041, 0.00016, 0.00057,
617 + 0.14572, 0.03238, 0.02008, 0.00062, 0.00040, 0.00016, 0.00055/
618 DATA ((F(I,31,K),I=1,5),F(7,31,K),F(6,31,K),K=1,19)/
619 + 0.32018, 0.07586, 0.14295, 0.00080, 0.00004, 0.00000, 0.00042,
620 + 0.29450, 0.06894, 0.11621, 0.00083, 0.00016, 0.00000, 0.00049,
621 + 0.27271, 0.06315, 0.09613, 0.00083, 0.00024, 0.00000, 0.00053,
622 + 0.25396, 0.05824, 0.08066, 0.00081, 0.00029, 0.00000, 0.00055,
623 + 0.23762, 0.05402, 0.06854, 0.00079, 0.00032, 0.00000, 0.00055,
624 + 0.22327, 0.05035, 0.05888, 0.00076, 0.00033, 0.00001, 0.00055,
625 + 0.21046, 0.04710, 0.05104, 0.00071, 0.00035, 0.00004, 0.00054,
626 + 0.19896, 0.04422, 0.04460, 0.00068, 0.00035, 0.00006, 0.00052,
627 + 0.18861, 0.04165, 0.03926, 0.00064, 0.00035, 0.00008, 0.00051,
628 + 0.17925, 0.03934, 0.03479, 0.00060, 0.00035, 0.00009, 0.00050,
629 + 0.17070, 0.03725, 0.03102, 0.00057, 0.00034, 0.00009, 0.00048,
630 + 0.16287, 0.03535, 0.02781, 0.00055, 0.00033, 0.00010, 0.00046,
631 + 0.15572, 0.03362, 0.02506, 0.00052, 0.00033, 0.00011, 0.00045,
632 + 0.14910, 0.03203, 0.02270, 0.00050, 0.00032, 0.00011, 0.00043,
633 + 0.14300, 0.03058, 0.02064, 0.00047, 0.00031, 0.00011, 0.00042,
634 + 0.13735, 0.02924, 0.01885, 0.00045, 0.00030, 0.00011, 0.00040,
635 + 0.13209, 0.02800, 0.01728, 0.00043, 0.00030, 0.00011, 0.00039,
636 + 0.12718, 0.02685, 0.01589, 0.00041, 0.00029, 0.00011, 0.00038,
637 + 0.12260, 0.02579, 0.01467, 0.00040, 0.00028, 0.00011, 0.00036/
638 DATA ((F(I,32,K),I=1,5),F(7,32,K),F(6,32,K),K=1,19)/
639 + 0.28136, 0.06292, 0.11486, 0.00050, 0.00004, 0.00000, 0.00027,
640 + 0.25741, 0.05689, 0.09236, 0.00052, 0.00012, 0.00000, 0.00033,
641 + 0.23722, 0.05187, 0.07564, 0.00053, 0.00018, 0.00000, 0.00035,
642 + 0.21993, 0.04764, 0.06291, 0.00052, 0.00021, 0.00000, 0.00037,
643 + 0.20495, 0.04401, 0.05303, 0.00051, 0.00023, 0.00000, 0.00037,
644 + 0.19184, 0.04087, 0.04522, 0.00049, 0.00024, 0.00001, 0.00037,
645 + 0.18020, 0.03811, 0.03893, 0.00046, 0.00025, 0.00003, 0.00036,
646 + 0.16981, 0.03566, 0.03380, 0.00043, 0.00025, 0.00005, 0.00035,
647 + 0.16047, 0.03349, 0.02958, 0.00041, 0.00025, 0.00005, 0.00034,
648 + 0.15204, 0.03154, 0.02607, 0.00039, 0.00024, 0.00006, 0.00033,
649 + 0.14438, 0.02979, 0.02312, 0.00037, 0.00024, 0.00007, 0.00032,
650 + 0.13739, 0.02820, 0.02063, 0.00035, 0.00024, 0.00007, 0.00031,
651 + 0.13102, 0.02675, 0.01851, 0.00033, 0.00023, 0.00007, 0.00030,
652 + 0.12515, 0.02543, 0.01668, 0.00032, 0.00022, 0.00007, 0.00029,
653 + 0.11975, 0.02421, 0.01511, 0.00030, 0.00022, 0.00007, 0.00028,
654 + 0.11475, 0.02310, 0.01375, 0.00029, 0.00021, 0.00007, 0.00027,
655 + 0.11012, 0.02208, 0.01256, 0.00028, 0.00021, 0.00007, 0.00026,
656 + 0.10581, 0.02114, 0.01151, 0.00026, 0.00020, 0.00007, 0.00025,
657 + 0.10180, 0.02026, 0.01059, 0.00025, 0.00019, 0.00007, 0.00024/
658 DATA ((F(I,33,K),I=1,5),F(7,33,K),F(6,33,K),K=1,19)/
659 + 0.24401, 0.05147, 0.09129, 0.00030, 0.00002, 0.00000, 0.00016,
660 + 0.22204, 0.04630, 0.07259, 0.00033, 0.00008, 0.00000, 0.00020,
661 + 0.20363, 0.04202, 0.05887, 0.00033, 0.00012, 0.00000, 0.00023,
662 + 0.18793, 0.03842, 0.04852, 0.00033, 0.00015, 0.00000, 0.00024,
663 + 0.17440, 0.03538, 0.04058, 0.00033, 0.00016, 0.00000, 0.00024,
664 + 0.16264, 0.03272, 0.03433, 0.00031, 0.00017, 0.00001, 0.00024,
665 + 0.15222, 0.03041, 0.02936, 0.00030, 0.00017, 0.00002, 0.00024,
666 + 0.14297, 0.02836, 0.02532, 0.00028, 0.00017, 0.00003, 0.00023,
667 + 0.13469, 0.02655, 0.02202, 0.00027, 0.00017, 0.00003, 0.00023,
668 + 0.12724, 0.02494, 0.01929, 0.00025, 0.00017, 0.00004, 0.00022,
669 + 0.12049, 0.02348, 0.01702, 0.00024, 0.00016, 0.00004, 0.00021,
670 + 0.11435, 0.02217, 0.01512, 0.00023, 0.00016, 0.00004, 0.00020,
671 + 0.10876, 0.02098, 0.01350, 0.00022, 0.00015, 0.00004, 0.00019,
672 + 0.10363, 0.01990, 0.01212, 0.00021, 0.00015, 0.00005, 0.00019,
673 + 0.09893, 0.01891, 0.01093, 0.00020, 0.00014, 0.00005, 0.00018,
674 + 0.09459, 0.01800, 0.00991, 0.00018, 0.00014, 0.00005, 0.00018,
675 + 0.09057, 0.01716, 0.00901, 0.00017, 0.00014, 0.00005, 0.00017,
676 + 0.08685, 0.01639, 0.00823, 0.00017, 0.00013, 0.00005, 0.00016,
677 + 0.08340, 0.01568, 0.00755, 0.00016, 0.00013, 0.00005, 0.00016/
678 DATA ((F(I,34,K),I=1,5),F(7,34,K),F(6,34,K),K=1,19)/
679 + 0.20866, 0.04147, 0.07167, 0.00018, 0.00002, 0.00000, 0.00010,
680 + 0.18883, 0.03710, 0.05635, 0.00020, 0.00006, 0.00000, 0.00013,
681 + 0.17232, 0.03352, 0.04523, 0.00021, 0.00009, 0.00000, 0.00015,
682 + 0.15832, 0.03051, 0.03694, 0.00021, 0.00010, 0.00000, 0.00016,
683 + 0.14631, 0.02798, 0.03063, 0.00021, 0.00011, 0.00000, 0.00016,
684 + 0.13591, 0.02579, 0.02572, 0.00020, 0.00012, 0.00000, 0.00016,
685 + 0.12675, 0.02388, 0.02183, 0.00019, 0.00012, 0.00001, 0.00016,
686 + 0.11864, 0.02220, 0.01871, 0.00018, 0.00012, 0.00002, 0.00015,
687 + 0.11141, 0.02072, 0.01617, 0.00017, 0.00012, 0.00002, 0.00015,
688 + 0.10493, 0.01940, 0.01409, 0.00016, 0.00011, 0.00003, 0.00014,
689 + 0.09907, 0.01822, 0.01236, 0.00015, 0.00011, 0.00003, 0.00013,
690 + 0.09377, 0.01715, 0.01092, 0.00015, 0.00011, 0.00003, 0.00013,
691 + 0.08896, 0.01620, 0.00970, 0.00014, 0.00010, 0.00003, 0.00012,
692 + 0.08455, 0.01532, 0.00867, 0.00013, 0.00010, 0.00003, 0.00012,
693 + 0.08052, 0.01453, 0.00779, 0.00012, 0.00010, 0.00003, 0.00012,
694 + 0.07681, 0.01380, 0.00703, 0.00012, 0.00009, 0.00003, 0.00011,
695 + 0.07339, 0.01313, 0.00638, 0.00011, 0.00009, 0.00003, 0.00011,
696 + 0.07022, 0.01251, 0.00580, 0.00011, 0.00009, 0.00003, 0.00010,
697 + 0.06729, 0.01194, 0.00530, 0.00010, 0.00008, 0.00003, 0.00010/
698 DATA ((F(I,35,K),I=1,5),F(7,35,K),F(6,35,K),K=1,19)/
699 + 0.17573, 0.03287, 0.05549, 0.00010, 0.00001, 0.00000, 0.00006,
700 + 0.15815, 0.02925, 0.04312, 0.00012, 0.00004, 0.00000, 0.00008,
701 + 0.14359, 0.02629, 0.03426, 0.00013, 0.00006, 0.00000, 0.00009,
702 + 0.13133, 0.02382, 0.02772, 0.00013, 0.00007, 0.00000, 0.00010,
703 + 0.12086, 0.02174, 0.02278, 0.00013, 0.00008, -0.00001, 0.00010,
704 + 0.11182, 0.01998, 0.01898, 0.00013, 0.00007, 0.00000, 0.00010,
705 + 0.10390, 0.01843, 0.01599, 0.00012, 0.00008, 0.00001, 0.00010,
706 + 0.09691, 0.01708, 0.01361, 0.00011, 0.00008, 0.00001, 0.00009,
707 + 0.09070, 0.01589, 0.01169, 0.00011, 0.00008, 0.00002, 0.00009,
708 + 0.08516, 0.01483, 0.01013, 0.00010, 0.00008, 0.00002, 0.00009,
709 + 0.08018, 0.01389, 0.00884, 0.00009, 0.00007, 0.00002, 0.00009,
710 + 0.07568, 0.01304, 0.00776, 0.00009, 0.00007, 0.00002, 0.00009,
711 + 0.07160, 0.01228, 0.00686, 0.00008, 0.00007, 0.00002, 0.00008,
712 + 0.06788, 0.01159, 0.00611, 0.00008, 0.00007, 0.00002, 0.00008,
713 + 0.06448, 0.01096, 0.00546, 0.00008, 0.00006, 0.00002, 0.00007,
714 + 0.06137, 0.01039, 0.00491, 0.00007, 0.00006, 0.00002, 0.00007,
715 + 0.05850, 0.00986, 0.00444, 0.00007, 0.00006, 0.00002, 0.00007,
716 + 0.05586, 0.00938, 0.00402, 0.00006, 0.00006, 0.00002, 0.00007,
717 + 0.05341, 0.00894, 0.00366, 0.00006, 0.00006, 0.00002, 0.00006/
718 DATA ((F(I,36,K),I=1,5),F(7,36,K),F(6,36,K),K=1,19)/
719 + 0.14559, 0.02558, 0.04232, 0.00006, 0.00001, 0.00000, 0.00003,
720 + 0.13028, 0.02263, 0.03249, 0.00007, 0.00003, 0.00000, 0.00005,
721 + 0.11768, 0.02024, 0.02554, 0.00008, 0.00004, 0.00000, 0.00006,
722 + 0.10712, 0.01826, 0.02046, 0.00008, 0.00005, 0.00000, 0.00006,
723 + 0.09816, 0.01660, 0.01667, 0.00008, 0.00005, 0.00000, 0.00006,
724 + 0.09044, 0.01519, 0.01377, 0.00008, 0.00005, 0.00000, 0.00006,
725 + 0.08373, 0.01396, 0.01152, 0.00008, 0.00005, 0.00000, 0.00006,
726 + 0.07782, 0.01289, 0.00973, 0.00007, 0.00005, 0.00001, 0.00006,
727 + 0.07259, 0.01195, 0.00830, 0.00007, 0.00005, 0.00001, 0.00006,
728 + 0.06793, 0.01113, 0.00715, 0.00006, 0.00005, 0.00001, 0.00006,
729 + 0.06377, 0.01039, 0.00620, 0.00006, 0.00005, 0.00001, 0.00005,
730 + 0.06002, 0.00973, 0.00542, 0.00005, 0.00005, 0.00001, 0.00005,
731 + 0.05663, 0.00913, 0.00477, 0.00005, 0.00004, 0.00001, 0.00005,
732 + 0.05354, 0.00860, 0.00422, 0.00005, 0.00004, 0.00001, 0.00005,
733 + 0.05074, 0.00811, 0.00376, 0.00005, 0.00004, 0.00001, 0.00005,
734 + 0.04817, 0.00767, 0.00337, 0.00004, 0.00004, 0.00001, 0.00004,
735 + 0.04581, 0.00727, 0.00303, 0.00004, 0.00004, 0.00001, 0.00004,
736 + 0.04365, 0.00690, 0.00274, 0.00004, 0.00004, 0.00001, 0.00004,
737 + 0.04165, 0.00656, 0.00248, 0.00004, 0.00004, 0.00001, 0.00004/
738 DATA ((F(I,37,K),I=1,5),F(7,37,K),F(6,37,K),K=1,19)/
739 + 0.09445, 0.01453, 0.02330, 0.00001, 0.00001, 0.00000, 0.00001,
740 + 0.08350, 0.01270, 0.01744, 0.00002, 0.00001, 0.00000, 0.00002,
741 + 0.07461, 0.01124, 0.01339, 0.00002, 0.00002, 0.00000, 0.00002,
742 + 0.06725, 0.01004, 0.01051, 0.00003, 0.00002, 0.00000, 0.00002,
743 + 0.06106, 0.00905, 0.00840, 0.00003, 0.00002, 0.00000, 0.00002,
744 + 0.05579, 0.00821, 0.00682, 0.00003, 0.00002, 0.00000, 0.00002,
745 + 0.05124, 0.00749, 0.00562, 0.00002, 0.00002, 0.00000, 0.00002,
746 + 0.04727, 0.00687, 0.00467, 0.00002, 0.00002, 0.00000, 0.00002,
747 + 0.04379, 0.00632, 0.00393, 0.00002, 0.00002, 0.00000, 0.00002,
748 + 0.04071, 0.00585, 0.00334, 0.00002, 0.00002, 0.00001, 0.00002,
749 + 0.03797, 0.00542, 0.00286, 0.00002, 0.00002, 0.00001, 0.00002,
750 + 0.03552, 0.00505, 0.00247, 0.00002, 0.00002, 0.00001, 0.00002,
751 + 0.03332, 0.00472, 0.00215, 0.00002, 0.00002, 0.00000, 0.00002,
752 + 0.03133, 0.00442, 0.00189, 0.00002, 0.00002, 0.00000, 0.00002,
753 + 0.02954, 0.00414, 0.00166, 0.00002, 0.00002, 0.00000, 0.00002,
754 + 0.02790, 0.00390, 0.00148, 0.00001, 0.00001, 0.00000, 0.00002,
755 + 0.02641, 0.00368, 0.00132, 0.00001, 0.00001, 0.00000, 0.00002,
756 + 0.02504, 0.00347, 0.00118, 0.00001, 0.00001, 0.00000, 0.00001,
757 + 0.02378, 0.00329, 0.00106, 0.00001, 0.00001, 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.05591, 0.00743, 0.01171, 0.00001, 0.00000, 0.00000, 0.00000,
760 + 0.04880, 0.00642, 0.00852, 0.00001, 0.00000, 0.00000, 0.00001,
761 + 0.04309, 0.00562, 0.00638, 0.00001, 0.00001, 0.00000, 0.00001,
762 + 0.03843, 0.00496, 0.00490, 0.00001, 0.00001, 0.00000, 0.00001,
763 + 0.03455, 0.00443, 0.00383, 0.00001, 0.00001, 0.00000, 0.00001,
764 + 0.03128, 0.00398, 0.00305, 0.00001, 0.00001, 0.00000, 0.00001,
765 + 0.02847, 0.00360, 0.00247, 0.00001, 0.00001, 0.00000, 0.00001,
766 + 0.02606, 0.00328, 0.00202, 0.00001, 0.00001, 0.00000, 0.00001,
767 + 0.02395, 0.00299, 0.00167, 0.00001, 0.00001, 0.00000, 0.00001,
768 + 0.02211, 0.00275, 0.00140, 0.00001, 0.00001, 0.00000, 0.00001,
769 + 0.02048, 0.00253, 0.00119, 0.00001, 0.00001, 0.00000, 0.00001,
770 + 0.01904, 0.00234, 0.00101, 0.00001, 0.00001, 0.00000, 0.00001,
771 + 0.01775, 0.00218, 0.00087, 0.00000, 0.00001, 0.00000, 0.00001,
772 + 0.01659, 0.00202, 0.00075, 0.00000, 0.00001, 0.00000, 0.00001,
773 + 0.01555, 0.00189, 0.00066, 0.00000, 0.00001, 0.00000, 0.00001,
774 + 0.01461, 0.00177, 0.00058, 0.00000, 0.00001, 0.00000, 0.00001,
775 + 0.01375, 0.00166, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000,
776 + 0.01297, 0.00156, 0.00045, 0.00000, 0.00000, 0.00000, 0.00000,
777 + 0.01226, 0.00147, 0.00041, 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.02931, 0.00330, 0.00519, 0.00000, 0.00000, 0.00000, 0.00000,
780 + 0.02521, 0.00281, 0.00366, 0.00000, 0.00000, 0.00000, 0.00000,
781 + 0.02197, 0.00243, 0.00266, 0.00000, 0.00000, 0.00000, 0.00000,
782 + 0.01936, 0.00212, 0.00199, 0.00000, 0.00000, 0.00000, 0.00000,
783 + 0.01722, 0.00187, 0.00152, 0.00000, 0.00000, 0.00000, 0.00000,
784 + 0.01543, 0.00167, 0.00119, 0.00000, 0.00000, 0.00000, 0.00000,
785 + 0.01391, 0.00149, 0.00094, 0.00000, 0.00000, 0.00000, 0.00000,
786 + 0.01262, 0.00135, 0.00076, 0.00000, 0.00000, 0.00000, 0.00000,
787 + 0.01150, 0.00122, 0.00062, 0.00000, 0.00000, 0.00000, 0.00000,
788 + 0.01053, 0.00111, 0.00051, 0.00000, 0.00000, 0.00000, 0.00000,
789 + 0.00968, 0.00102, 0.00042, 0.00000, 0.00000, 0.00000, 0.00000,
790 + 0.00893, 0.00093, 0.00035, 0.00000, 0.00000, 0.00000, 0.00000,
791 + 0.00827, 0.00086, 0.00030, 0.00000, 0.00000, 0.00000, 0.00000,
792 + 0.00768, 0.00080, 0.00026, 0.00000, 0.00000, 0.00000, 0.00000,
793 + 0.00715, 0.00074, 0.00022, 0.00000, 0.00000, 0.00000, 0.00000,
794 + 0.00667, 0.00069, 0.00019, 0.00000, 0.00000, 0.00000, 0.00000,
795 + 0.00624, 0.00064, 0.00017, 0.00000, 0.00000, 0.00000, 0.00000,
796 + 0.00586, 0.00060, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000,
797 + 0.00551, 0.00056, 0.00013, 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.01294, 0.00120, 0.00192, 0.00000, 0.00000, 0.00000, 0.00000,
800 + 0.01094, 0.00100, 0.00130, 0.00000, 0.00000, 0.00000, 0.00000,
801 + 0.00940, 0.00085, 0.00092, 0.00000, 0.00000, 0.00000, 0.00000,
802 + 0.00816, 0.00074, 0.00067, 0.00000, 0.00000, 0.00000, 0.00000,
803 + 0.00716, 0.00064, 0.00050, 0.00000, 0.00000, 0.00000, 0.00000,
804 + 0.00634, 0.00057, 0.00038, 0.00000, 0.00000, 0.00000, 0.00000,
805 + 0.00566, 0.00050, 0.00029, 0.00000, 0.00000, 0.00000, 0.00000,
806 + 0.00508, 0.00045, 0.00023, 0.00000, 0.00000, 0.00000, 0.00000,
807 + 0.00458, 0.00040, 0.00018, 0.00000, 0.00000, 0.00000, 0.00000,
808 + 0.00416, 0.00036, 0.00015, 0.00000, 0.00000, 0.00000, 0.00000,
809 + 0.00379, 0.00033, 0.00012, 0.00000, 0.00000, 0.00000, 0.00000,
810 + 0.00346, 0.00030, 0.00010, 0.00000, 0.00000, 0.00000, 0.00000,
811 + 0.00318, 0.00027, 0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
812 + 0.00293, 0.00025, 0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
813 + 0.00271, 0.00023, 0.00006, 0.00000, 0.00000, 0.00000, 0.00000,
814 + 0.00251, 0.00021, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
815 + 0.00233, 0.00020, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
816 + 0.00217, 0.00018, 0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
817 + 0.00203, 0.00017, 0.00003, 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.00090, 0.00005, 0.00009, 0.00000, 0.00000, 0.00000, 0.00000,
820 + 0.00073, 0.00004, 0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
821 + 0.00060, 0.00003, 0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
822 + 0.00050, 0.00002, 0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
823 + 0.00042, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
824 + 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
825 + 0.00031, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
826 + 0.00027, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
827 + 0.00024, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
828 + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
829 + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
830 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
831 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
832 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
833 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
834 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
835 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
836 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
837 + 0.00008, 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,
844 . .8D0,.9D0,1.D0/
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/
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(27,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),
855C . F(6,N,M)
856C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR
857 DO 25 I=1,7
858 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
859 20 CONTINUE
860 DO 30 J=1,15
861 XX(J)= LOG10(XX(J))+ONEDO
862 DO 30 I=1,6
863 DO 30 K=1,19
864 30 F(I,J,K)= LOG(F(I,J,K))*F(I,16,K)/ LOG(F(I,16,K))
865 50 FORMAT(7F10.5)
866 DO 40 I=1,7
867 DO 40 M=1,19
868 40 F(I,42,M)=ZEROD
869 10 CONTINUE
870 IF(X.LT.XMIN) X=XMIN
871 IF(X.GT.XMAX) X=XMAX
872 QSQ=SCALE**2
873 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
874 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
875 XXX=X
876 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
877 N=0
878 70 N=N+1
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)
882 B=RM-AINT(RM)
883 M=1+ INT(RM)
884 IF(M.GT.18) M=18
885 DO 60 I=1,7
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)
888 IF(N.GE.16) GOTO 65
889 IF(I.EQ.7) GOTO 65
890 FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
891 G(I)=FAC**(G(I)/FAC)
892 65 CONTINUE
893 G(I)=G(I)*(ONED-X)**N0(I)
894 60 CONTINUE
895 UPV=G(1)
896 DNV=G(2)
897 SEA=G(4)
898 STR=G(6)
899 CHM=G(5)
900 GL =G(3)
901 BOT=G(7)
902 RETURN
903 END