]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/strh1e.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Restore symmetry between CXXFLAGS and the other compilation flags, now
[u/mrichter/AliRoot.git] / PDF / spdf / strh1e.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:31:04 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:50 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13C-----------------------------------------------------------------------
14 SUBROUTINE STRH1E(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15C :::::::::::: HMRS(E) ::::::::::::::::: 100 MEV::::::::::::
16#include "pdf/impdp.inc"
17 DIMENSION F(6,42,19),G(6),XX(42),N0(6)
18 DATA ((F(I,1,K),I=1,6),K=1,19)/
19 + 0.04096, 0.00664, 3.32967, 0.03823, 0.01024, 0.00000,
20 + 0.04188, 0.00720, 6.12704, 0.08701, 0.05797, 0.00000,
21 + 0.04274, 0.00772, 9.45610, 0.15356, 0.12355, 0.00000,
22 + 0.04354, 0.00823, 13.16263, 0.23387, 0.20295, 0.00000,
23 + 0.04430, 0.00870, 17.21933, 0.32622, 0.29517, 0.00219,
24 + 0.04502, 0.00917, 21.57890, 0.41823, 0.39894, 0.03991,
25 + 0.04570, 0.00961, 26.15117, 0.49797, 0.51187, 0.14176,
26 + 0.04636, 0.01004, 30.94051, 0.58737, 0.63407, 0.24236,
27 + 0.04699, 0.01046, 35.92586, 0.68340, 0.76497, 0.34910,
28 + 0.04760, 0.01087, 41.09314, 0.78535, 0.90419, 0.46294,
29 + 0.04819, 0.01127, 46.34061, 0.89131, 1.04876, 0.58071,
30 + 0.04876, 0.01166, 51.66371, 1.00110, 1.19854, 0.70254,
31 + 0.04931, 0.01204, 57.13947, 1.11633, 1.35571, 0.83018,
32 + 0.04985, 0.01241, 62.57440, 1.23280, 1.51455, 0.95903,
33 + 0.05037, 0.01277, 68.11569, 1.35365, 1.67934, 1.09255,
34 + 0.05088, 0.01312, 73.65871, 1.47652, 1.84688, 1.22818,
35 + 0.05137, 0.01347, 79.22708, 1.60192, 2.01784, 1.36647,
36 + 0.05185, 0.01381, 84.80046, 1.72929, 2.19149, 1.50684,
37 + 0.05232, 0.01414, 90.37953, 1.85863, 2.36781, 1.64928/
38 DATA ((F(I,2,K),I=1,6),K=1,19)/
39 + 0.05088, 0.01010, 3.25209, 0.04679, 0.01104, 0.00000,
40 + 0.05205, 0.01088, 5.65026, 0.09559, 0.05863, 0.00000,
41 + 0.05312, 0.01162, 8.38432, 0.15751, 0.11943, 0.00000,
42 + 0.05412, 0.01232, 11.32975, 0.22876, 0.18965, 0.00000,
43 + 0.05507, 0.01298, 14.46710, 0.30786, 0.26840, 0.00185,
44 + 0.05596, 0.01362, 17.76108, 0.38459, 0.35459, 0.03294,
45 + 0.05681, 0.01423, 21.14510, 0.44945, 0.44628, 0.11599,
46 + 0.05762, 0.01482, 24.62537, 0.52081, 0.54359, 0.19631,
47 + 0.05840, 0.01539, 28.18849, 0.59613, 0.64605, 0.28006,
48 + 0.05915, 0.01595, 31.82632, 0.67485, 0.75336, 0.36806,
49 + 0.05988, 0.01648, 35.46771, 0.75555, 0.86329, 0.45787,
50 + 0.06058, 0.01700, 39.11272, 0.83813, 0.97577, 0.54962,
51 + 0.06125, 0.01751, 42.81876, 0.92379, 1.09244, 0.64465,
52 + 0.06191, 0.01800, 46.45189, 1.00945, 1.20912, 0.73957,
53 + 0.06254, 0.01849, 50.11823, 1.09745, 1.32897, 0.83696,
54 + 0.06316, 0.01895, 53.74707, 1.18609, 1.44970, 0.93498,
55 + 0.06376, 0.01941, 57.35736, 1.27577, 1.57183, 1.03404,
56 + 0.06435, 0.01986, 60.93729, 1.36612, 1.69487, 1.13378,
57 + 0.06492, 0.02030, 64.48935, 1.45714, 1.81884, 1.23420/
58 DATA ((F(I,3,K),I=1,6),K=1,19)/
59 + 0.06282, 0.01534, 3.17485, 0.05724, 0.01161, 0.00000,
60 + 0.06428, 0.01644, 5.20773, 0.10504, 0.05804, 0.00000,
61 + 0.06562, 0.01747, 7.42919, 0.16163, 0.11338, 0.00000,
62 + 0.06687, 0.01844, 9.74484, 0.22388, 0.17448, 0.00000,
63 + 0.06804, 0.01935, 12.14470, 0.29069, 0.24073, 0.00154,
64 + 0.06915, 0.02022, 14.60555, 0.35385, 0.31132, 0.02684,
65 + 0.07020, 0.02105, 17.08078, 0.40597, 0.38480, 0.09372,
66 + 0.07121, 0.02186, 19.57907, 0.46223, 0.46130, 0.15709,
67 + 0.07218, 0.02263, 22.09364, 0.52063, 0.54051, 0.22204,
68 + 0.07310, 0.02337, 24.62143, 0.58071, 0.62221, 0.28930,
69 + 0.07399, 0.02409, 27.11404, 0.64148, 0.70479, 0.35702,
70 + 0.07485, 0.02478, 29.57483, 0.70288, 0.78825, 0.42536,
71 + 0.07568, 0.02546, 32.04695, 0.76583, 0.87382, 0.49532,
72 + 0.07648, 0.02611, 34.43900, 0.82812, 0.95850, 0.56448,
73 + 0.07726, 0.02674, 36.82719, 0.89147, 1.04462, 0.63473,
74 + 0.07801, 0.02736, 39.16483, 0.95469, 1.13058, 0.70478,
75 + 0.07875, 0.02796, 41.46690, 1.01808, 1.21677, 0.77497,
76 + 0.07946, 0.02854, 43.72720, 1.08141, 1.30289, 0.84504,
77 + 0.08015, 0.02911, 45.94916, 1.14472, 1.38898, 0.91504/
78 DATA ((F(I,4,K),I=1,6),K=1,19)/
79 + 0.07083, 0.01959, 3.12932, 0.06436, 0.01177, 0.00000,
80 + 0.07248, 0.02092, 4.96284, 0.11100, 0.05696, 0.00000,
81 + 0.07401, 0.02217, 6.91799, 0.16414, 0.10877, 0.00000,
82 + 0.07544, 0.02333, 8.91708, 0.22115, 0.16457, 0.00000,
83 + 0.07677, 0.02443, 10.95555, 0.28120, 0.22396, 0.00137,
84 + 0.07802, 0.02547, 13.01664, 0.33714, 0.28628, 0.02363,
85 + 0.07922, 0.02646, 15.06373, 0.38268, 0.35035, 0.08216,
86 + 0.08036, 0.02741, 17.10666, 0.43131, 0.41633, 0.13696,
87 + 0.08145, 0.02833, 19.14198, 0.48129, 0.48398, 0.19257,
88 + 0.08250, 0.02921, 21.16891, 0.53225, 0.55315, 0.24968,
89 + 0.08351, 0.03005, 23.14951, 0.58339, 0.62253, 0.30672,
90 + 0.08448, 0.03087, 25.08839, 0.63468, 0.69213, 0.36388,
91 + 0.08541, 0.03166, 27.02209, 0.68691, 0.76303, 0.42201,
92 + 0.08632, 0.03243, 28.87794, 0.73826, 0.83274, 0.47912,
93 + 0.08719, 0.03317, 30.71896, 0.79018, 0.90324, 0.53679,
94 + 0.08804, 0.03389, 32.50862, 0.84171, 0.97321, 0.59398,
95 + 0.08887, 0.03459, 34.25996, 0.89311, 1.04301, 0.65098,
96 + 0.08967, 0.03526, 35.96909, 0.94421, 1.11241, 0.70762,
97 + 0.09044, 0.03592, 37.63948, 0.99504, 1.18147, 0.76393/
98 DATA ((F(I,5,K),I=1,6),K=1,19)/
99 + 0.07699, 0.02329, 3.09657, 0.06992, 0.01180, 0.00000,
100 + 0.07881, 0.02482, 4.79457, 0.11543, 0.05579, 0.00000,
101 + 0.08048, 0.02624, 6.57428, 0.16597, 0.10496, 0.00000,
102 + 0.08204, 0.02757, 8.36915, 0.21929, 0.15703, 0.00000,
103 + 0.08350, 0.02881, 10.17824, 0.27472, 0.21174, 0.00126,
104 + 0.08488, 0.02999, 11.98900, 0.32584, 0.26855, 0.02151,
105 + 0.08619, 0.03111, 13.77102, 0.36706, 0.32645, 0.07456,
106 + 0.08744, 0.03218, 15.53498, 0.41075, 0.38563, 0.12382,
107 + 0.08863, 0.03321, 17.27930, 0.45534, 0.44589, 0.17347,
108 + 0.08977, 0.03420, 19.00464, 0.50052, 0.50713, 0.22414,
109 + 0.09087, 0.03515, 20.67931, 0.54561, 0.56822, 0.27448,
110 + 0.09193, 0.03606, 22.30855, 0.59059, 0.62918, 0.32467,
111 + 0.09295, 0.03695, 23.92488, 0.63618, 0.69099, 0.37547,
112 + 0.09394, 0.03780, 25.46680, 0.68080, 0.75150, 0.42515,
113 + 0.09489, 0.03862, 26.98915, 0.72572, 0.81243, 0.47512,
114 + 0.09582, 0.03942, 28.46149, 0.77013, 0.87267, 0.52448,
115 + 0.09671, 0.04020, 29.89561, 0.81425, 0.93254, 0.57349,
116 + 0.09758, 0.04095, 31.28883, 0.85797, 0.99187, 0.62202,
117 + 0.09843, 0.04168, 32.64464, 0.90131, 1.05069, 0.67011/
118 DATA ((F(I,6,K),I=1,6),K=1,19)/
119 + 0.08206, 0.02664, 3.07078, 0.07454, 0.01175, 0.00000,
120 + 0.08401, 0.02833, 4.66685, 0.11899, 0.05465, 0.00000,
121 + 0.08581, 0.02990, 6.31762, 0.16742, 0.10168, 0.00000,
122 + 0.08749, 0.03136, 7.96477, 0.21788, 0.15087, 0.00000,
123 + 0.08906, 0.03274, 9.60994, 0.26984, 0.20205, 0.00118,
124 + 0.09053, 0.03403, 11.24354, 0.31739, 0.25479, 0.01995,
125 + 0.09194, 0.03526, 12.83967, 0.35545, 0.30819, 0.06899,
126 + 0.09328, 0.03644, 14.40938, 0.39556, 0.36245, 0.11424,
127 + 0.09456, 0.03756, 15.95251, 0.43628, 0.41741, 0.15961,
128 + 0.09578, 0.03864, 17.47061, 0.47733, 0.47299, 0.20569,
129 + 0.09696, 0.03967, 18.93633, 0.51813, 0.52820, 0.25129,
130 + 0.09809, 0.04067, 20.35518, 0.55866, 0.58308, 0.29657,
131 + 0.09918, 0.04163, 21.75691, 0.59958, 0.63852, 0.34222,
132 + 0.10024, 0.04255, 23.08755, 0.63950, 0.69260, 0.38673,
133 + 0.10126, 0.04345, 24.39639, 0.67955, 0.74688, 0.43134,
134 + 0.10224, 0.04431, 25.65698, 0.71902, 0.80039, 0.47527,
135 + 0.10320, 0.04515, 26.88029, 0.75813, 0.85341, 0.51877,
136 + 0.10413, 0.04596, 28.06430, 0.79676, 0.90580, 0.56172,
137 + 0.10503, 0.04675, 29.21252, 0.83496, 0.95762, 0.60418/
138 DATA ((F(I,7,K),I=1,6),K=1,19)/
139 + 0.09951, 0.04035, 2.98677, 0.09068, 0.01118, 0.00000,
140 + 0.10196, 0.04266, 4.28244, 0.13070, 0.04959, 0.00000,
141 + 0.10422, 0.04478, 5.56876, 0.17211, 0.08956, 0.00000,
142 + 0.10631, 0.04674, 6.80979, 0.21380, 0.12995, 0.00000,
143 + 0.10828, 0.04857, 8.01392, 0.25551, 0.17081, 0.00094,
144 + 0.11012, 0.05029, 9.17943, 0.29284, 0.21194, 0.01554,
145 + 0.11188, 0.05190, 10.29177, 0.32205, 0.25279, 0.05340,
146 + 0.11355, 0.05344, 11.36288, 0.35230, 0.29355, 0.08767,
147 + 0.11514, 0.05490, 12.39573, 0.38250, 0.33418, 0.12147,
148 + 0.11666, 0.05629, 13.39404, 0.41250, 0.37467, 0.15531,
149 + 0.11813, 0.05762, 14.34086, 0.44191, 0.41436, 0.18836,
150 + 0.11953, 0.05889, 15.24236, 0.47076, 0.45333, 0.22078,
151 + 0.12088, 0.06012, 16.12077, 0.49955, 0.49223, 0.25309,
152 + 0.12219, 0.06129, 16.94078, 0.52731, 0.52977, 0.28424,
153 + 0.12344, 0.06242, 17.73729, 0.55488, 0.56706, 0.31516,
154 + 0.12466, 0.06351, 18.49368, 0.58178, 0.60347, 0.34531,
155 + 0.12584, 0.06456, 19.21832, 0.60818, 0.63921, 0.37489,
156 + 0.12698, 0.06557, 19.91093, 0.63402, 0.67422, 0.40385,
157 + 0.12809, 0.06655, 20.57460, 0.65936, 0.70855, 0.43223/
158 DATA ((F(I,8,K),I=1,6),K=1,19)/
159 + 0.11992, 0.06089, 2.89161, 0.10952, 0.00987, 0.00000,
160 + 0.12303, 0.06395, 3.90807, 0.14337, 0.04220, 0.00000,
161 + 0.12589, 0.06674, 4.87665, 0.17714, 0.07464, 0.00000,
162 + 0.12855, 0.06929, 5.77887, 0.21023, 0.10657, 0.00000,
163 + 0.13104, 0.07165, 6.62765, 0.24253, 0.13808, 0.00073,
164 + 0.13337, 0.07384, 7.42676, 0.27082, 0.16912, 0.01176,
165 + 0.13558, 0.07590, 8.16982, 0.29245, 0.19939, 0.04019,
166 + 0.13768, 0.07783, 8.86874, 0.31447, 0.22908, 0.06544,
167 + 0.13968, 0.07966, 9.52822, 0.33610, 0.25819, 0.08993,
168 + 0.14160, 0.08140, 10.15303, 0.35726, 0.28678, 0.11411,
169 + 0.14343, 0.08304, 10.73344, 0.37772, 0.31442, 0.13741,
170 + 0.14518, 0.08461, 11.27537, 0.39752, 0.34122, 0.15998,
171 + 0.14687, 0.08611, 11.79519, 0.41704, 0.36765, 0.18220,
172 + 0.14849, 0.08753, 12.27041, 0.43563, 0.39286, 0.20340,
173 + 0.15005, 0.08890, 12.72536, 0.45390, 0.41764, 0.22420,
174 + 0.15156, 0.09020, 13.14986, 0.47153, 0.44158, 0.24428,
175 + 0.15301, 0.09146, 13.55015, 0.48865, 0.46485, 0.26380,
176 + 0.15442, 0.09267, 13.92672, 0.50525, 0.48742, 0.28272,
177 + 0.15578, 0.09383, 14.28213, 0.52138, 0.50936, 0.30110/
178 DATA ((F(I,9,K),I=1,6),K=1,19)/
179 + 0.13374, 0.07721, 2.82642, 0.12154, 0.00880, 0.00000,
180 + 0.13736, 0.08074, 3.68746, 0.15111, 0.03704, 0.00000,
181 + 0.14069, 0.08394, 4.48785, 0.18022, 0.06502, 0.00000,
182 + 0.14377, 0.08684, 5.21715, 0.20841, 0.09224, 0.00000,
183 + 0.14665, 0.08951, 5.88979, 0.23557, 0.11877, 0.00062,
184 + 0.14934, 0.09198, 6.51178, 0.25906, 0.14460, 0.00981,
185 + 0.15189, 0.09428, 7.08019, 0.27674, 0.16952, 0.03346,
186 + 0.15431, 0.09643, 7.60644, 0.29457, 0.19371, 0.05423,
187 + 0.15661, 0.09846, 8.09574, 0.31192, 0.21720, 0.07417,
188 + 0.15880, 0.10037, 8.55301, 0.32872, 0.24005, 0.09369,
189 + 0.16090, 0.10218, 8.97158, 0.34482, 0.26198, 0.11235,
190 + 0.16290, 0.10388, 9.35695, 0.36028, 0.28306, 0.13027,
191 + 0.16483, 0.10552, 9.72256, 0.37539, 0.30369, 0.14779,
192 + 0.16667, 0.10706, 10.05156, 0.38968, 0.32323, 0.16439,
193 + 0.16845, 0.10853, 10.36322, 0.40362, 0.34230, 0.18057,
194 + 0.17016, 0.10994, 10.65013, 0.41697, 0.36060, 0.19609,
195 + 0.17180, 0.11128, 10.91742, 0.42986, 0.37828, 0.21107,
196 + 0.17339, 0.11257, 11.16580, 0.44227, 0.39533, 0.22552,
197 + 0.17493, 0.11380, 11.39737, 0.45425, 0.41180, 0.23947/
198 DATA ((F(I,10,K),I=1,6),K=1,19)/
199 + 0.14500, 0.09118, 2.77331, 0.13032, 0.00808, 0.00000,
200 + 0.14908, 0.09501, 3.52587, 0.15697, 0.03367, 0.00000,
201 + 0.15283, 0.09846, 4.21204, 0.18293, 0.05877, 0.00000,
202 + 0.15630, 0.10157, 4.82669, 0.20782, 0.08293, 0.00000,
203 + 0.15952, 0.10442, 5.38470, 0.23154, 0.10624, 0.00055,
204 + 0.16253, 0.10705, 5.89329, 0.25184, 0.12871, 0.00857,
205 + 0.16538, 0.10948, 6.35166, 0.26690, 0.15021, 0.02914,
206 + 0.16807, 0.11174, 6.77052, 0.28198, 0.17090, 0.04706,
207 + 0.17062, 0.11387, 7.15523, 0.29653, 0.19085, 0.06413,
208 + 0.17305, 0.11587, 7.51064, 0.31052, 0.21011, 0.08072,
209 + 0.17536, 0.11774, 7.83187, 0.32383, 0.22847, 0.09648,
210 + 0.17757, 0.11951, 8.12401, 0.33652, 0.24601, 0.11153,
211 + 0.17969, 0.12119, 8.39861, 0.34885, 0.26307, 0.12615,
212 + 0.18172, 0.12277, 8.64208, 0.36043, 0.27913, 0.13992,
213 + 0.18366, 0.12428, 8.87064, 0.37166, 0.29473, 0.15327,
214 + 0.18553, 0.12571, 9.07849, 0.38236, 0.30962, 0.16602,
215 + 0.18733, 0.12708, 9.26993, 0.39262, 0.32393, 0.17827,
216 + 0.18906, 0.12838, 9.44570, 0.40246, 0.33766, 0.19002,
217 + 0.19073, 0.12963, 9.60769, 0.41190, 0.35086, 0.20132/
218 DATA ((F(I,11,K),I=1,6),K=1,19)/
219 + 0.15493, 0.10355, 2.72690, 0.13710, 0.00763, 0.00000,
220 + 0.15946, 0.10757, 3.39611, 0.16170, 0.03148, 0.00000,
221 + 0.16361, 0.11117, 3.99639, 0.18534, 0.05455, 0.00000,
222 + 0.16743, 0.11440, 4.52622, 0.20776, 0.07651, 0.00000,
223 + 0.17097, 0.11735, 5.00081, 0.22892, 0.09749, 0.00049,
224 + 0.17428, 0.12005, 5.42798, 0.24683, 0.11754, 0.00767,
225 + 0.17739, 0.12253, 5.80819, 0.25994, 0.13658, 0.02602,
226 + 0.18032, 0.12484, 6.15162, 0.27297, 0.15478, 0.04189,
227 + 0.18309, 0.12700, 6.46357, 0.28547, 0.17219, 0.05691,
228 + 0.18573, 0.12902, 6.74881, 0.29740, 0.18891, 0.07141,
229 + 0.18823, 0.13091, 7.00353, 0.30868, 0.20475, 0.08512,
230 + 0.19062, 0.13268, 7.23250, 0.31936, 0.21979, 0.09814,
231 + 0.19290, 0.13436, 7.44589, 0.32969, 0.23436, 0.11072,
232 + 0.19508, 0.13594, 7.63229, 0.33933, 0.24800, 0.12252,
233 + 0.19716, 0.13743, 7.80575, 0.34863, 0.26118, 0.13392,
234 + 0.19916, 0.13885, 7.96148, 0.35744, 0.27371, 0.14474,
235 + 0.20108, 0.14020, 8.10325, 0.36586, 0.28570, 0.15510,
236 + 0.20293, 0.14147, 8.23181, 0.37388, 0.29715, 0.16501,
237 + 0.20470, 0.14269, 8.34882, 0.38155, 0.30812, 0.17449/
238 DATA ((F(I,12,K),I=1,6),K=1,19)/
239 + 0.19507, 0.15149, 2.54346, 0.15467, 0.00598, 0.00000,
240 + 0.20131, 0.15569, 2.96819, 0.17200, 0.02401, 0.00000,
241 + 0.20694, 0.15935, 3.32764, 0.18802, 0.04078, 0.00000,
242 + 0.21205, 0.16257, 3.62763, 0.20269, 0.05622, 0.00000,
243 + 0.21673, 0.16543, 3.88265, 0.21608, 0.07053, 0.00034,
244 + 0.22104, 0.16799, 4.10092, 0.22697, 0.08382, 0.00516,
245 + 0.22504, 0.17030, 4.28491, 0.23439, 0.09613, 0.01738,
246 + 0.22877, 0.17240, 4.44280, 0.24162, 0.10761, 0.02770,
247 + 0.23226, 0.17432, 4.57919, 0.24838, 0.11836, 0.03726,
248 + 0.23554, 0.17609, 4.69793, 0.25467, 0.12846, 0.04630,
249 + 0.23862, 0.17771, 4.79753, 0.26046, 0.13784, 0.05470,
250 + 0.24152, 0.17919, 4.88154, 0.26581, 0.14658, 0.06253,
251 + 0.24427, 0.18058, 4.95632, 0.27088, 0.15489, 0.06998,
252 + 0.24686, 0.18185, 5.01563, 0.27547, 0.16254, 0.07685,
253 + 0.24933, 0.18303, 5.06787, 0.27982, 0.16980, 0.08338,
254 + 0.25166, 0.18413, 5.11053, 0.28383, 0.17659, 0.08950,
255 + 0.25388, 0.18515, 5.14600, 0.28757, 0.18298, 0.09526,
256 + 0.25600, 0.18610, 5.17482, 0.29107, 0.18900, 0.10070,
257 + 0.25802, 0.18698, 5.19803, 0.29433, 0.19467, 0.10583/
258 DATA ((F(I,13,K),I=1,6),K=1,19)/
259 + 0.26393, 0.21301, 2.26515, 0.15700, 0.00432, 0.00000,
260 + 0.27194, 0.21591, 2.47235, 0.16668, 0.01691, 0.00000,
261 + 0.27896, 0.21829, 2.63149, 0.17514, 0.02807, 0.00000,
262 + 0.28514, 0.22024, 2.75087, 0.18247, 0.03793, 0.00000,
263 + 0.29065, 0.22184, 2.84173, 0.18884, 0.04672, 0.00021,
264 + 0.29561, 0.22318, 2.91059, 0.19353, 0.05461, 0.00316,
265 + 0.30008, 0.22428, 2.96015, 0.19603, 0.06168, 0.01051,
266 + 0.30416, 0.22518, 2.99567, 0.19841, 0.06808, 0.01655,
267 + 0.30789, 0.22594, 3.02037, 0.20051, 0.07390, 0.02199,
268 + 0.31132, 0.22658, 3.03673, 0.20234, 0.07922, 0.02702,
269 + 0.31446, 0.22708, 3.04427, 0.20389, 0.08403, 0.03159,
270 + 0.31734, 0.22748, 3.04506, 0.20519, 0.08839, 0.03575,
271 + 0.32003, 0.22782, 3.04251, 0.20636, 0.09245, 0.03964,
272 + 0.32247, 0.22804, 3.03359, 0.20728, 0.09608, 0.04314,
273 + 0.32477, 0.22822, 3.02254, 0.20810, 0.09945, 0.04640,
274 + 0.32689, 0.22833, 3.00814, 0.20875, 0.10253, 0.04940,
275 + 0.32886, 0.22839, 2.99155, 0.20929, 0.10535, 0.05218,
276 + 0.33070, 0.22840, 2.97306, 0.20971, 0.10795, 0.05475,
277 + 0.33241, 0.22838, 2.95314, 0.21004, 0.11034, 0.05713/
278 DATA ((F(I,14,K),I=1,6),K=1,19)/
279 + 0.32748, 0.25117, 2.03445, 0.14434, 0.00335, 0.00000,
280 + 0.33553, 0.25211, 2.13380, 0.14972, 0.01289, 0.00000,
281 + 0.34236, 0.25266, 2.19959, 0.15415, 0.02109, 0.00001,
282 + 0.34819, 0.25287, 2.23928, 0.15775, 0.02813, 0.00001,
283 + 0.35322, 0.25285, 2.26129, 0.16066, 0.03425, 0.00015,
284 + 0.35760, 0.25267, 2.27045, 0.16241, 0.03960, 0.00220,
285 + 0.36144, 0.25231, 2.26868, 0.16268, 0.04428, 0.00727,
286 + 0.36481, 0.25184, 2.25964, 0.16291, 0.04843, 0.01135,
287 + 0.36779, 0.25128, 2.24539, 0.16300, 0.05211, 0.01497,
288 + 0.37045, 0.25066, 2.22753, 0.16296, 0.05542, 0.01825,
289 + 0.37279, 0.24998, 2.20577, 0.16277, 0.05834, 0.02118,
290 + 0.37484, 0.24924, 2.18135, 0.16247, 0.06093, 0.02381,
291 + 0.37671, 0.24848, 2.15634, 0.16212, 0.06329, 0.02623,
292 + 0.37831, 0.24766, 2.12875, 0.16165, 0.06535, 0.02837,
293 + 0.37977, 0.24683, 2.10118, 0.16114, 0.06724, 0.03035,
294 + 0.38105, 0.24598, 2.07277, 0.16057, 0.06892, 0.03213,
295 + 0.38218, 0.24511, 2.04421, 0.15996, 0.07043, 0.03376,
296 + 0.38317, 0.24423, 2.01557, 0.15931, 0.07179, 0.03524,
297 + 0.38405, 0.24334, 1.98706, 0.15863, 0.07301, 0.03660/
298 DATA ((F(I,15,K),I=1,6),K=1,19)/
299 + 0.38577, 0.27514, 1.83134, 0.12703, 0.00268, 0.00000,
300 + 0.39258, 0.27396, 1.86637, 0.12979, 0.01018, -0.00001,
301 + 0.39814, 0.27257, 1.87912, 0.13185, 0.01646, 0.00000,
302 + 0.40260, 0.27103, 1.87548, 0.13332, 0.02174, 0.00000,
303 + 0.40628, 0.26939, 1.86163, 0.13432, 0.02622, 0.00011,
304 + 0.40931, 0.26770, 1.84105, 0.13451, 0.03006, 0.00162,
305 + 0.41176, 0.26596, 1.81489, 0.13365, 0.03336, 0.00532,
306 + 0.41378, 0.26417, 1.78555, 0.13283, 0.03622, 0.00826,
307 + 0.41544, 0.26239, 1.75442, 0.13196, 0.03872, 0.01082,
308 + 0.41679, 0.26062, 1.72249, 0.13105, 0.04091, 0.01311,
309 + 0.41784, 0.25884, 1.68940, 0.13007, 0.04281, 0.01513,
310 + 0.41864, 0.25707, 1.65589, 0.12905, 0.04446, 0.01693,
311 + 0.41929, 0.25534, 1.62326, 0.12805, 0.04595, 0.01856,
312 + 0.41967, 0.25360, 1.59008, 0.12699, 0.04721, 0.01997,
313 + 0.41994, 0.25191, 1.55799, 0.12595, 0.04834, 0.02127,
314 + 0.42007, 0.25022, 1.52634, 0.12489, 0.04933, 0.02242,
315 + 0.42007, 0.24855, 1.49547, 0.12384, 0.05019, 0.02346,
316 + 0.41997, 0.24691, 1.46537, 0.12278, 0.05095, 0.02439,
317 + 0.41978, 0.24530, 1.43613, 0.12174, 0.05161, 0.02524/
318 DATA ((F(I,16,K),I=1,6),K=1,19)/
319 + 0.43776, 0.28909, 1.64882, 0.10888, 0.00217, 0.00000,
320 + 0.44242, 0.28586, 1.64270, 0.11004, 0.00819, -0.00001,
321 + 0.44588, 0.28264, 1.62295, 0.11069, 0.01312, 0.00000,
322 + 0.44831, 0.27945, 1.59396, 0.11093, 0.01718, 0.00000,
323 + 0.45005, 0.27632, 1.56010, 0.11085, 0.02056, 0.00008,
324 + 0.45121, 0.27326, 1.52371, 0.11021, 0.02341, 0.00123,
325 + 0.45186, 0.27026, 1.48531, 0.10883, 0.02581, 0.00402,
326 + 0.45214, 0.26732, 1.44645, 0.10751, 0.02786, 0.00621,
327 + 0.45213, 0.26446, 1.40796, 0.10621, 0.02961, 0.00810,
328 + 0.45188, 0.26169, 1.37039, 0.10492, 0.03112, 0.00976,
329 + 0.45138, 0.25898, 1.33333, 0.10362, 0.03240, 0.01121,
330 + 0.45069, 0.25633, 1.29717, 0.10232, 0.03350, 0.01248,
331 + 0.44991, 0.25379, 1.26272, 0.10107, 0.03447, 0.01363,
332 + 0.44891, 0.25129, 1.22885, 0.09981, 0.03526, 0.01461,
333 + 0.44785, 0.24887, 1.19662, 0.09858, 0.03597, 0.01549,
334 + 0.44669, 0.24650, 1.16549, 0.09738, 0.03656, 0.01627,
335 + 0.44546, 0.24420, 1.13563, 0.09619, 0.03706, 0.01697,
336 + 0.44417, 0.24195, 1.10696, 0.09503, 0.03749, 0.01758,
337 + 0.44282, 0.23976, 1.07949, 0.09390, 0.03785, 0.01813/
338 DATA ((F(I,17,K),I=1,6),K=1,19)/
339 + 0.49294, 0.29618, 1.44435, 0.08738, 0.00171, 0.00001,
340 + 0.49398, 0.29063, 1.40607, 0.08741, 0.00635, 0.00001,
341 + 0.49408, 0.28536, 1.36223, 0.08712, 0.01007, 0.00001,
342 + 0.49338, 0.28036, 1.31553, 0.08657, 0.01305, 0.00001,
343 + 0.49220, 0.27560, 1.26866, 0.08584, 0.01550, 0.00007,
344 + 0.49061, 0.27111, 1.22275, 0.08475, 0.01751, 0.00090,
345 + 0.48868, 0.26677, 1.17775, 0.08316, 0.01917, 0.00292,
346 + 0.48652, 0.26264, 1.13448, 0.08166, 0.02055, 0.00449,
347 + 0.48419, 0.25868, 1.09324, 0.08022, 0.02171, 0.00581,
348 + 0.48176, 0.25490, 1.05420, 0.07882, 0.02269, 0.00697,
349 + 0.47917, 0.25126, 1.01686, 0.07745, 0.02350, 0.00796,
350 + 0.47650, 0.24775, 0.98134, 0.07612, 0.02417, 0.00882,
351 + 0.47385, 0.24440, 0.94806, 0.07484, 0.02475, 0.00958,
352 + 0.47107, 0.24115, 0.91612, 0.07358, 0.02521, 0.01022,
353 + 0.46831, 0.23804, 0.88614, 0.07238, 0.02560, 0.01079,
354 + 0.46553, 0.23503, 0.85766, 0.07121, 0.02591, 0.01129,
355 + 0.46275, 0.23212, 0.83070, 0.07007, 0.02616, 0.01173,
356 + 0.45997, 0.22932, 0.80515, 0.06897, 0.02637, 0.01211,
357 + 0.45721, 0.22661, 0.78094, 0.06791, 0.02653, 0.01244/
358 DATA ((F(I,18,K),I=1,6),K=1,19)/
359 + 0.53606, 0.29472, 1.26244, 0.06860, 0.00135, 0.00001,
360 + 0.53294, 0.28717, 1.20527, 0.06812, 0.00496, 0.00000,
361 + 0.52924, 0.28021, 1.14839, 0.06741, 0.00780, 0.00000,
362 + 0.52513, 0.27371, 1.09311, 0.06655, 0.01004, 0.00000,
363 + 0.52077, 0.26768, 1.04076, 0.06559, 0.01182, 0.00005,
364 + 0.51629, 0.26203, 0.99161, 0.06439, 0.01327, 0.00067,
365 + 0.51168, 0.25666, 0.94522, 0.06286, 0.01444, 0.00215,
366 + 0.50700, 0.25161, 0.90185, 0.06142, 0.01539, 0.00329,
367 + 0.50233, 0.24683, 0.86145, 0.06005, 0.01617, 0.00424,
368 + 0.49771, 0.24230, 0.82391, 0.05875, 0.01682, 0.00506,
369 + 0.49309, 0.23797, 0.78871, 0.05749, 0.01733, 0.00576,
370 + 0.48850, 0.23384, 0.75579, 0.05627, 0.01775, 0.00635,
371 + 0.48404, 0.22993, 0.72530, 0.05511, 0.01809, 0.00687,
372 + 0.47957, 0.22616, 0.69651, 0.05399, 0.01835, 0.00731,
373 + 0.47521, 0.22257, 0.66975, 0.05292, 0.01857, 0.00769,
374 + 0.47090, 0.21913, 0.64460, 0.05189, 0.01873, 0.00801,
375 + 0.46668, 0.21582, 0.62104, 0.05090, 0.01885, 0.00829,
376 + 0.46255, 0.21265, 0.59892, 0.04995, 0.01893, 0.00853,
377 + 0.45848, 0.20960, 0.57815, 0.04903, 0.01898, 0.00874/
378 DATA ((F(I,19,K),I=1,6),K=1,19)/
379 + 0.56694, 0.28694, 1.10021, 0.05291, 0.00106, 0.00000,
380 + 0.55946, 0.27779, 1.03264, 0.05223, 0.00389, 0.00001,
381 + 0.55189, 0.26947, 0.96958, 0.05141, 0.00607, 0.00000,
382 + 0.54428, 0.26185, 0.91115, 0.05049, 0.00776, 0.00000,
383 + 0.53682, 0.25481, 0.85768, 0.04952, 0.00909, 0.00004,
384 + 0.52950, 0.24831, 0.80881, 0.04839, 0.01014, 0.00050,
385 + 0.52229, 0.24221, 0.76377, 0.04702, 0.01097, 0.00161,
386 + 0.51523, 0.23650, 0.72247, 0.04576, 0.01163, 0.00245,
387 + 0.50836, 0.23114, 0.68464, 0.04457, 0.01216, 0.00314,
388 + 0.50172, 0.22610, 0.64998, 0.04343, 0.01258, 0.00373,
389 + 0.49523, 0.22130, 0.61793, 0.04234, 0.01292, 0.00422,
390 + 0.48890, 0.21677, 0.58836, 0.04130, 0.01317, 0.00464,
391 + 0.48281, 0.21250, 0.56123, 0.04032, 0.01338, 0.00500,
392 + 0.47681, 0.20841, 0.53590, 0.03937, 0.01352, 0.00529,
393 + 0.47104, 0.20453, 0.51254, 0.03847, 0.01363, 0.00555,
394 + 0.46542, 0.20083, 0.49080, 0.03761, 0.01371, 0.00577,
395 + 0.45995, 0.19729, 0.47060, 0.03679, 0.01375, 0.00595,
396 + 0.45463, 0.19391, 0.45177, 0.03601, 0.01377, 0.00610,
397 + 0.44947, 0.19068, 0.43421, 0.03525, 0.01377, 0.00623/
398 DATA ((F(I,20,K),I=1,6),K=1,19)/
399 + 0.58616, 0.27450, 0.95557, 0.04012, 0.00085, 0.00000,
400 + 0.57437, 0.26414, 0.88327, 0.03944, 0.00307, 0.00001,
401 + 0.56303, 0.25483, 0.81839, 0.03866, 0.00475, 0.00000,
402 + 0.55212, 0.24639, 0.76014, 0.03781, 0.00603, 0.00000,
403 + 0.54172, 0.23867, 0.70811, 0.03694, 0.00701, 0.00003,
404 + 0.53177, 0.23159, 0.66150, 0.03595, 0.00778, 0.00038,
405 + 0.52219, 0.22501, 0.61931, 0.03481, 0.00837, 0.00121,
406 + 0.51298, 0.21888, 0.58120, 0.03375, 0.00883, 0.00183,
407 + 0.50416, 0.21317, 0.54674, 0.03276, 0.00919, 0.00234,
408 + 0.49573, 0.20783, 0.51553, 0.03182, 0.00947, 0.00276,
409 + 0.48761, 0.20278, 0.48701, 0.03092, 0.00969, 0.00312,
410 + 0.47978, 0.19803, 0.46095, 0.03007, 0.00984, 0.00341,
411 + 0.47231, 0.19357, 0.43724, 0.02927, 0.00996, 0.00367,
412 + 0.46504, 0.18933, 0.41532, 0.02850, 0.01003, 0.00387,
413 + 0.45808, 0.18532, 0.39525, 0.02778, 0.01008, 0.00404,
414 + 0.45137, 0.18150, 0.37671, 0.02708, 0.01010, 0.00419,
415 + 0.44489, 0.17788, 0.35960, 0.02643, 0.01011, 0.00431,
416 + 0.43862, 0.17442, 0.34376, 0.02580, 0.01009, 0.00441,
417 + 0.43258, 0.17113, 0.32907, 0.02521, 0.01006, 0.00449/
418 DATA ((F(I,21,K),I=1,6),K=1,19)/
419 + 0.59448, 0.25877, 0.82678, 0.02998, 0.00066, 0.00000,
420 + 0.57863, 0.24757, 0.75359, 0.02939, 0.00241, -0.00001,
421 + 0.56384, 0.23761, 0.68973, 0.02872, 0.00371, 0.00000,
422 + 0.54994, 0.22863, 0.63373, 0.02801, 0.00467, 0.00000,
423 + 0.53691, 0.22051, 0.58465, 0.02727, 0.00541, 0.00002,
424 + 0.52465, 0.21310, 0.54138, 0.02646, 0.00598, 0.00028,
425 + 0.51300, 0.20626, 0.50281, 0.02554, 0.00640, 0.00091,
426 + 0.50196, 0.19993, 0.46836, 0.02468, 0.00672, 0.00137,
427 + 0.49149, 0.19406, 0.43757, 0.02389, 0.00697, 0.00175,
428 + 0.48157, 0.18860, 0.40997, 0.02313, 0.00716, 0.00206,
429 + 0.47210, 0.18347, 0.38500, 0.02242, 0.00729, 0.00231,
430 + 0.46304, 0.17866, 0.36236, 0.02174, 0.00738, 0.00252,
431 + 0.45446, 0.17417, 0.34190, 0.02111, 0.00744, 0.00270,
432 + 0.44619, 0.16989, 0.32316, 0.02051, 0.00747, 0.00284,
433 + 0.43831, 0.16588, 0.30612, 0.01994, 0.00748, 0.00296,
434 + 0.43073, 0.16208, 0.29049, 0.01940, 0.00747, 0.00305,
435 + 0.42346, 0.15847, 0.27614, 0.01889, 0.00746, 0.00313,
436 + 0.41649, 0.15505, 0.26293, 0.01840, 0.00743, 0.00320,
437 + 0.40980, 0.15179, 0.25075, 0.01794, 0.00739, 0.00325/
438 DATA ((F(I,22,K),I=1,6),K=1,19)/
439 + 0.59269, 0.24072, 0.71230, 0.02204, 0.00053, 0.00000,
440 + 0.57325, 0.22903, 0.64079, 0.02158, 0.00190, 0.00000,
441 + 0.55540, 0.21872, 0.57977, 0.02105, 0.00290, 0.00000,
442 + 0.53890, 0.20950, 0.52731, 0.02048, 0.00364, 0.00001,
443 + 0.52366, 0.20121, 0.48206, 0.01989, 0.00418, 0.00002,
444 + 0.50947, 0.19370, 0.44267, 0.01925, 0.00459, 0.00022,
445 + 0.49615, 0.18680, 0.40803, 0.01853, 0.00489, 0.00069,
446 + 0.48362, 0.18045, 0.37744, 0.01786, 0.00511, 0.00103,
447 + 0.47185, 0.17458, 0.35033, 0.01724, 0.00528, 0.00131,
448 + 0.46077, 0.16914, 0.32623, 0.01665, 0.00540, 0.00154,
449 + 0.45025, 0.16407, 0.30462, 0.01610, 0.00548, 0.00172,
450 + 0.44028, 0.15933, 0.28518, 0.01558, 0.00553, 0.00187,
451 + 0.43089, 0.15491, 0.26773, 0.01509, 0.00556, 0.00199,
452 + 0.42188, 0.15073, 0.25188, 0.01462, 0.00557, 0.00209,
453 + 0.41334, 0.14682, 0.23754, 0.01419, 0.00556, 0.00217,
454 + 0.40518, 0.14312, 0.22446, 0.01377, 0.00554, 0.00223,
455 + 0.39739, 0.13962, 0.21252, 0.01338, 0.00551, 0.00228,
456 + 0.38996, 0.13631, 0.20159, 0.01301, 0.00548, 0.00233,
457 + 0.38284, 0.13317, 0.19155, 0.01266, 0.00543, 0.00236/
458 DATA ((F(I,23,K),I=1,6),K=1,19)/
459 + 0.58209, 0.22129, 0.61084, 0.01599, 0.00042, 0.00000,
460 + 0.55958, 0.20941, 0.54275, 0.01565, 0.00149, 0.00000,
461 + 0.53918, 0.19902, 0.48575, 0.01526, 0.00226, 0.00000,
462 + 0.52057, 0.18978, 0.43753, 0.01482, 0.00282, 0.00001,
463 + 0.50356, 0.18153, 0.39650, 0.01437, 0.00322, 0.00001,
464 + 0.48786, 0.17410, 0.36121, 0.01388, 0.00352, 0.00016,
465 + 0.47325, 0.16730, 0.33052, 0.01333, 0.00373, 0.00052,
466 + 0.45961, 0.16108, 0.30369, 0.01282, 0.00389, 0.00078,
467 + 0.44688, 0.15535, 0.28012, 0.01234, 0.00400, 0.00098,
468 + 0.43497, 0.15007, 0.25933, 0.01190, 0.00407, 0.00115,
469 + 0.42373, 0.14516, 0.24083, 0.01148, 0.00412, 0.00128,
470 + 0.41314, 0.14058, 0.22432, 0.01108, 0.00415, 0.00138,
471 + 0.40320, 0.13633, 0.20958, 0.01071, 0.00416, 0.00147,
472 + 0.39372, 0.13233, 0.19628, 0.01036, 0.00415, 0.00154,
473 + 0.38477, 0.12860, 0.18431, 0.01003, 0.00413, 0.00159,
474 + 0.37626, 0.12508, 0.17346, 0.00972, 0.00410, 0.00163,
475 + 0.36817, 0.12176, 0.16361, 0.00942, 0.00407, 0.00167,
476 + 0.36047, 0.11862, 0.15463, 0.00915, 0.00404, 0.00169,
477 + 0.35313, 0.11566, 0.14642, 0.00888, 0.00399, 0.00171/
478 DATA ((F(I,24,K),I=1,6),K=1,19)/
479 + 0.56377, 0.20114, 0.52115, 0.01143, 0.00033, 0.00001,
480 + 0.53879, 0.18934, 0.45761, 0.01120, 0.00117, 0.00001,
481 + 0.51640, 0.17908, 0.40527, 0.01092, 0.00176, 0.00001,
482 + 0.49621, 0.17003, 0.36168, 0.01060, 0.00218, 0.00000,
483 + 0.47786, 0.16200, 0.32500, 0.01027, 0.00248, 0.00002,
484 + 0.46111, 0.15479, 0.29381, 0.00990, 0.00269, 0.00013,
485 + 0.44557, 0.14823, 0.26694, 0.00949, 0.00285, 0.00040,
486 + 0.43119, 0.14225, 0.24366, 0.00911, 0.00295, 0.00058,
487 + 0.41785, 0.13678, 0.22339, 0.00875, 0.00303, 0.00073,
488 + 0.40544, 0.13175, 0.20564, 0.00842, 0.00307, 0.00085,
489 + 0.39380, 0.12708, 0.18996, 0.00810, 0.00310, 0.00095,
490 + 0.38287, 0.12275, 0.17606, 0.00781, 0.00310, 0.00102,
491 + 0.37265, 0.11874, 0.16373, 0.00753, 0.00310, 0.00108,
492 + 0.36293, 0.11499, 0.15267, 0.00727, 0.00309, 0.00113,
493 + 0.35382, 0.11148, 0.14276, 0.00703, 0.00306, 0.00117,
494 + 0.34519, 0.10819, 0.13383, 0.00680, 0.00304, 0.00120,
495 + 0.33700, 0.10510, 0.12576, 0.00658, 0.00301, 0.00122,
496 + 0.32922, 0.10219, 0.11844, 0.00638, 0.00297, 0.00124,
497 + 0.32182, 0.09944, 0.11178, 0.00619, 0.00294, 0.00125/
498 DATA ((F(I,25,K),I=1,6),K=1,19)/
499 + 0.53899, 0.18084, 0.44224, 0.00803, 0.00026, 0.00001,
500 + 0.51217, 0.16935, 0.38389, 0.00789, 0.00091, 0.00001,
501 + 0.48837, 0.15944, 0.33655, 0.00771, 0.00136, 0.00001,
502 + 0.46709, 0.15074, 0.29763, 0.00748, 0.00168, 0.00000,
503 + 0.44789, 0.14305, 0.26526, 0.00725, 0.00190, 0.00001,
504 + 0.43049, 0.13619, 0.23801, 0.00698, 0.00205, 0.00010,
505 + 0.41444, 0.12998, 0.21475, 0.00668, 0.00216, 0.00030,
506 + 0.39969, 0.12434, 0.19478, 0.00640, 0.00223, 0.00044,
507 + 0.38606, 0.11919, 0.17752, 0.00614, 0.00228, 0.00055,
508 + 0.37344, 0.11448, 0.16251, 0.00589, 0.00230, 0.00063,
509 + 0.36167, 0.11013, 0.14934, 0.00566, 0.00231, 0.00070,
510 + 0.35065, 0.10611, 0.13775, 0.00545, 0.00231, 0.00075,
511 + 0.34039, 0.10239, 0.12752, 0.00525, 0.00230, 0.00080,
512 + 0.33068, 0.09892, 0.11839, 0.00506, 0.00229, 0.00083,
513 + 0.32160, 0.09569, 0.11026, 0.00488, 0.00226, 0.00085,
514 + 0.31303, 0.09266, 0.10297, 0.00471, 0.00224, 0.00087,
515 + 0.30493, 0.08982, 0.09641, 0.00455, 0.00221, 0.00089,
516 + 0.29725, 0.08716, 0.09048, 0.00441, 0.00218, 0.00090,
517 + 0.28998, 0.08466, 0.08512, 0.00427, 0.00215, 0.00090/
518 DATA ((F(I,26,K),I=1,6),K=1,19)/
519 + 0.50900, 0.16088, 0.37309, 0.00558, 0.00020, 0.00000,
520 + 0.48098, 0.14990, 0.32025, 0.00551, 0.00069, -0.00001,
521 + 0.45635, 0.14048, 0.27801, 0.00539, 0.00104, -0.00001,
522 + 0.43445, 0.13227, 0.24366, 0.00524, 0.00128, 0.00000,
523 + 0.41488, 0.12504, 0.21543, 0.00507, 0.00143, 0.00000,
524 + 0.39720, 0.11861, 0.19189, 0.00488, 0.00154, 0.00007,
525 + 0.38103, 0.11283, 0.17198, 0.00467, 0.00162, 0.00022,
526 + 0.36623, 0.10759, 0.15501, 0.00446, 0.00167, 0.00032,
527 + 0.35261, 0.10283, 0.14045, 0.00428, 0.00170, 0.00040,
528 + 0.34006, 0.09849, 0.12787, 0.00410, 0.00172, 0.00046,
529 + 0.32841, 0.09449, 0.11692, 0.00393, 0.00172, 0.00051,
530 + 0.31753, 0.09081, 0.10733, 0.00378, 0.00171, 0.00055,
531 + 0.30743, 0.08742, 0.09891, 0.00363, 0.00170, 0.00058,
532 + 0.29793, 0.08426, 0.09145, 0.00350, 0.00168, 0.00060,
533 + 0.28906, 0.08132, 0.08483, 0.00337, 0.00166, 0.00062,
534 + 0.28071, 0.07858, 0.07892, 0.00325, 0.00164, 0.00063,
535 + 0.27285, 0.07602, 0.07363, 0.00314, 0.00161, 0.00064,
536 + 0.26544, 0.07362, 0.06887, 0.00303, 0.00159, 0.00064,
537 + 0.25843, 0.07137, 0.06458, 0.00293, 0.00156, 0.00065/
538 DATA ((F(I,27,K),I=1,6),K=1,19)/
539 + 0.47497, 0.14157, 0.31271, 0.00379, 0.00015, 0.00000,
540 + 0.44637, 0.13125, 0.26548, 0.00377, 0.00053, 0.00000,
541 + 0.42143, 0.12245, 0.22823, 0.00370, 0.00079, 0.00000,
542 + 0.39940, 0.11481, 0.19828, 0.00361, 0.00097, 0.00000,
543 + 0.37984, 0.10812, 0.17392, 0.00350, 0.00108, 0.00000,
544 + 0.36227, 0.10220, 0.15380, 0.00336, 0.00116, 0.00005,
545 + 0.34629, 0.09689, 0.13692, 0.00321, 0.00121, 0.00016,
546 + 0.33173, 0.09210, 0.12265, 0.00307, 0.00124, 0.00023,
547 + 0.31839, 0.08777, 0.11049, 0.00294, 0.00126, 0.00029,
548 + 0.30614, 0.08383, 0.10005, 0.00281, 0.00127, 0.00034,
549 + 0.29482, 0.08022, 0.09102, 0.00269, 0.00127, 0.00037,
550 + 0.28430, 0.07690, 0.08316, 0.00258, 0.00126, 0.00040,
551 + 0.27455, 0.07385, 0.07630, 0.00248, 0.00124, 0.00042,
552 + 0.26542, 0.07102, 0.07025, 0.00239, 0.00123, 0.00044,
553 + 0.25691, 0.06839, 0.06491, 0.00230, 0.00121, 0.00045,
554 + 0.24894, 0.06595, 0.06016, 0.00221, 0.00119, 0.00045,
555 + 0.24145, 0.06367, 0.05593, 0.00213, 0.00117, 0.00046,
556 + 0.23440, 0.06154, 0.05214, 0.00206, 0.00115, 0.00046,
557 + 0.22776, 0.05955, 0.04874, 0.00198, 0.00113, 0.00046/
558 DATA ((F(I,28,K),I=1,6),K=1,19)/
559 + 0.43807, 0.12325, 0.26028, 0.00255, 0.00011, -0.00001,
560 + 0.40947, 0.11370, 0.21859, 0.00256, 0.00040, -0.00001,
561 + 0.38473, 0.10559, 0.18611, 0.00253, 0.00059, -0.00001,
562 + 0.36299, 0.09860, 0.16030, 0.00247, 0.00072, -0.00001,
563 + 0.34382, 0.09249, 0.13949, 0.00240, 0.00081, 0.00000,
564 + 0.32665, 0.08713, 0.12247, 0.00232, 0.00087, 0.00004,
565 + 0.31119, 0.08233, 0.10830, 0.00220, 0.00091, 0.00012,
566 + 0.29711, 0.07802, 0.09642, 0.00210, 0.00092, 0.00017,
567 + 0.28427, 0.07413, 0.08637, 0.00201, 0.00093, 0.00021,
568 + 0.27253, 0.07061, 0.07779, 0.00192, 0.00093, 0.00024,
569 + 0.26170, 0.06739, 0.07042, 0.00184, 0.00092, 0.00027,
570 + 0.25169, 0.06444, 0.06404, 0.00176, 0.00092, 0.00029,
571 + 0.24247, 0.06173, 0.05849, 0.00169, 0.00091, 0.00030,
572 + 0.23384, 0.05923, 0.05363, 0.00162, 0.00089, 0.00031,
573 + 0.22582, 0.05692, 0.04935, 0.00156, 0.00088, 0.00032,
574 + 0.21833, 0.05477, 0.04557, 0.00150, 0.00086, 0.00032,
575 + 0.21131, 0.05277, 0.04222, 0.00144, 0.00084, 0.00033,
576 + 0.20472, 0.05090, 0.03923, 0.00139, 0.00083, 0.00033,
577 + 0.19853, 0.04916, 0.03655, 0.00134, 0.00081, 0.00033/
578 DATA ((F(I,29,K),I=1,6),K=1,19)/
579 + 0.39932, 0.10609, 0.21499, 0.00167, 0.00008, -0.00001,
580 + 0.37125, 0.09738, 0.17861, 0.00170, 0.00030, -0.00001,
581 + 0.34714, 0.09003, 0.15062, 0.00169, 0.00044, -0.00001,
582 + 0.32609, 0.08372, 0.12861, 0.00166, 0.00054, -0.00001,
583 + 0.30762, 0.07824, 0.11104, 0.00161, 0.00060, 0.00000,
584 + 0.29117, 0.07344, 0.09679, 0.00156, 0.00064, 0.00003,
585 + 0.27641, 0.06917, 0.08503, 0.00148, 0.00067, 0.00008,
586 + 0.26304, 0.06534, 0.07523, 0.00141, 0.00067, 0.00012,
587 + 0.25090, 0.06191, 0.06700, 0.00135, 0.00068, 0.00015,
588 + 0.23984, 0.05880, 0.06003, 0.00129, 0.00068, 0.00018,
589 + 0.22966, 0.05597, 0.05406, 0.00123, 0.00067, 0.00019,
590 + 0.22030, 0.05339, 0.04893, 0.00118, 0.00066, 0.00020,
591 + 0.21169, 0.05102, 0.04450, 0.00113, 0.00065, 0.00021,
592 + 0.20367, 0.04884, 0.04063, 0.00109, 0.00064, 0.00022,
593 + 0.19624, 0.04683, 0.03724, 0.00104, 0.00063, 0.00023,
594 + 0.18931, 0.04497, 0.03426, 0.00100, 0.00061, 0.00023,
595 + 0.18283, 0.04324, 0.03163, 0.00096, 0.00060, 0.00023,
596 + 0.17677, 0.04163, 0.02929, 0.00093, 0.00059, 0.00023,
597 + 0.17109, 0.04013, 0.02721, 0.00089, 0.00057, 0.00023/
598 DATA ((F(I,30,K),I=1,6),K=1,19)/
599 + 0.35977, 0.09027, 0.17611, 0.00108, 0.00006, 0.00000,
600 + 0.33269, 0.08244, 0.14474, 0.00112, 0.00022, -0.00001,
601 + 0.30956, 0.07587, 0.12088, 0.00113, 0.00033, 0.00000,
602 + 0.28955, 0.07026, 0.10233, 0.00111, 0.00040, 0.00000,
603 + 0.27202, 0.06542, 0.08765, 0.00108, 0.00044, 0.00000,
604 + 0.25654, 0.06119, 0.07585, 0.00104, 0.00046, 0.00002,
605 + 0.24267, 0.05744, 0.06620, 0.00100, 0.00048, 0.00006,
606 + 0.23017, 0.05410, 0.05821, 0.00095, 0.00049, 0.00009,
607 + 0.21888, 0.05110, 0.05154, 0.00091, 0.00049, 0.00011,
608 + 0.20862, 0.04840, 0.04592, 0.00086, 0.00049, 0.00013,
609 + 0.19922, 0.04595, 0.04115, 0.00083, 0.00048, 0.00014,
610 + 0.19059, 0.04372, 0.03707, 0.00079, 0.00047, 0.00014,
611 + 0.18268, 0.04168, 0.03356, 0.00076, 0.00047, 0.00015,
612 + 0.17533, 0.03981, 0.03052, 0.00072, 0.00046, 0.00016,
613 + 0.16855, 0.03808, 0.02787, 0.00069, 0.00045, 0.00016,
614 + 0.16225, 0.03649, 0.02554, 0.00067, 0.00043, 0.00016,
615 + 0.15637, 0.03502, 0.02349, 0.00064, 0.00042, 0.00016,
616 + 0.15087, 0.03365, 0.02169, 0.00062, 0.00041, 0.00016,
617 + 0.14572, 0.03238, 0.02008, 0.00059, 0.00040, 0.00016/
618 DATA ((F(I,31,K),I=1,6),K=1,19)/
619 + 0.32018, 0.07586, 0.14295, 0.00068, 0.00004, 0.00000,
620 + 0.29450, 0.06894, 0.11621, 0.00072, 0.00016, 0.00000,
621 + 0.27271, 0.06315, 0.09613, 0.00073, 0.00024, 0.00000,
622 + 0.25396, 0.05824, 0.08066, 0.00072, 0.00029, 0.00000,
623 + 0.23762, 0.05402, 0.06854, 0.00071, 0.00032, 0.00000,
624 + 0.22327, 0.05035, 0.05888, 0.00069, 0.00033, 0.00001,
625 + 0.21046, 0.04710, 0.05104, 0.00066, 0.00035, 0.00004,
626 + 0.19896, 0.04422, 0.04460, 0.00062, 0.00035, 0.00006,
627 + 0.18861, 0.04165, 0.03926, 0.00060, 0.00035, 0.00008,
628 + 0.17925, 0.03934, 0.03479, 0.00057, 0.00035, 0.00009,
629 + 0.17070, 0.03725, 0.03102, 0.00054, 0.00034, 0.00009,
630 + 0.16287, 0.03535, 0.02781, 0.00052, 0.00033, 0.00010,
631 + 0.15572, 0.03362, 0.02506, 0.00050, 0.00033, 0.00011,
632 + 0.14910, 0.03203, 0.02270, 0.00047, 0.00032, 0.00011,
633 + 0.14300, 0.03058, 0.02064, 0.00045, 0.00031, 0.00011,
634 + 0.13735, 0.02924, 0.01885, 0.00043, 0.00030, 0.00011,
635 + 0.13209, 0.02800, 0.01728, 0.00042, 0.00030, 0.00011,
636 + 0.12718, 0.02685, 0.01589, 0.00040, 0.00029, 0.00011,
637 + 0.12260, 0.02579, 0.01467, 0.00039, 0.00028, 0.00011/
638 DATA ((F(I,32,K),I=1,6),K=1,19)/
639 + 0.28136, 0.06292, 0.11486, 0.00042, 0.00004, 0.00000,
640 + 0.25741, 0.05689, 0.09236, 0.00046, 0.00012, 0.00000,
641 + 0.23722, 0.05187, 0.07564, 0.00047, 0.00018, 0.00000,
642 + 0.21993, 0.04764, 0.06291, 0.00047, 0.00021, 0.00000,
643 + 0.20495, 0.04401, 0.05303, 0.00047, 0.00023, 0.00000,
644 + 0.19184, 0.04087, 0.04522, 0.00045, 0.00024, 0.00001,
645 + 0.18020, 0.03811, 0.03893, 0.00043, 0.00025, 0.00003,
646 + 0.16981, 0.03566, 0.03380, 0.00041, 0.00025, 0.00005,
647 + 0.16047, 0.03349, 0.02958, 0.00039, 0.00025, 0.00005,
648 + 0.15204, 0.03154, 0.02607, 0.00037, 0.00024, 0.00006,
649 + 0.14438, 0.02979, 0.02312, 0.00035, 0.00024, 0.00007,
650 + 0.13739, 0.02820, 0.02063, 0.00034, 0.00024, 0.00007,
651 + 0.13102, 0.02675, 0.01851, 0.00032, 0.00023, 0.00007,
652 + 0.12515, 0.02543, 0.01668, 0.00031, 0.00022, 0.00007,
653 + 0.11975, 0.02421, 0.01511, 0.00030, 0.00022, 0.00007,
654 + 0.11475, 0.02310, 0.01375, 0.00028, 0.00021, 0.00007,
655 + 0.11012, 0.02208, 0.01256, 0.00027, 0.00021, 0.00007,
656 + 0.10581, 0.02114, 0.01151, 0.00026, 0.00020, 0.00007,
657 + 0.10180, 0.02026, 0.01059, 0.00025, 0.00019, 0.00007/
658 DATA ((F(I,33,K),I=1,6),K=1,19)/
659 + 0.24401, 0.05147, 0.09129, 0.00026, 0.00002, 0.00000,
660 + 0.22204, 0.04630, 0.07259, 0.00029, 0.00008, 0.00000,
661 + 0.20363, 0.04202, 0.05887, 0.00030, 0.00012, 0.00000,
662 + 0.18793, 0.03842, 0.04852, 0.00030, 0.00015, 0.00000,
663 + 0.17440, 0.03538, 0.04058, 0.00030, 0.00016, 0.00000,
664 + 0.16264, 0.03272, 0.03433, 0.00029, 0.00017, 0.00001,
665 + 0.15222, 0.03041, 0.02936, 0.00028, 0.00017, 0.00002,
666 + 0.14297, 0.02836, 0.02532, 0.00027, 0.00017, 0.00003,
667 + 0.13469, 0.02655, 0.02202, 0.00025, 0.00017, 0.00003,
668 + 0.12724, 0.02494, 0.01929, 0.00024, 0.00017, 0.00004,
669 + 0.12049, 0.02348, 0.01702, 0.00023, 0.00016, 0.00004,
670 + 0.11435, 0.02217, 0.01512, 0.00022, 0.00016, 0.00004,
671 + 0.10876, 0.02098, 0.01350, 0.00021, 0.00015, 0.00004,
672 + 0.10363, 0.01990, 0.01212, 0.00020, 0.00015, 0.00005,
673 + 0.09893, 0.01891, 0.01093, 0.00019, 0.00014, 0.00005,
674 + 0.09459, 0.01800, 0.00991, 0.00018, 0.00014, 0.00005,
675 + 0.09057, 0.01716, 0.00901, 0.00017, 0.00014, 0.00005,
676 + 0.08685, 0.01639, 0.00823, 0.00017, 0.00013, 0.00005,
677 + 0.08340, 0.01568, 0.00755, 0.00016, 0.00013, 0.00005/
678 DATA ((F(I,34,K),I=1,6),K=1,19)/
679 + 0.20866, 0.04147, 0.07167, 0.00015, 0.00002, 0.00000,
680 + 0.18883, 0.03710, 0.05635, 0.00018, 0.00006, 0.00000,
681 + 0.17232, 0.03352, 0.04523, 0.00019, 0.00009, 0.00000,
682 + 0.15832, 0.03051, 0.03694, 0.00019, 0.00010, 0.00000,
683 + 0.14631, 0.02798, 0.03063, 0.00019, 0.00011, 0.00000,
684 + 0.13591, 0.02579, 0.02572, 0.00019, 0.00012, 0.00000,
685 + 0.12675, 0.02388, 0.02183, 0.00018, 0.00012, 0.00001,
686 + 0.11864, 0.02220, 0.01871, 0.00017, 0.00012, 0.00002,
687 + 0.11141, 0.02072, 0.01617, 0.00016, 0.00012, 0.00002,
688 + 0.10493, 0.01940, 0.01409, 0.00015, 0.00011, 0.00003,
689 + 0.09907, 0.01822, 0.01236, 0.00015, 0.00011, 0.00003,
690 + 0.09377, 0.01715, 0.01092, 0.00014, 0.00011, 0.00003,
691 + 0.08896, 0.01620, 0.00970, 0.00013, 0.00010, 0.00003,
692 + 0.08455, 0.01532, 0.00867, 0.00013, 0.00010, 0.00003,
693 + 0.08052, 0.01453, 0.00779, 0.00012, 0.00010, 0.00003,
694 + 0.07681, 0.01380, 0.00703, 0.00012, 0.00009, 0.00003,
695 + 0.07339, 0.01313, 0.00638, 0.00011, 0.00009, 0.00003,
696 + 0.07022, 0.01251, 0.00580, 0.00011, 0.00009, 0.00003,
697 + 0.06729, 0.01194, 0.00530, 0.00010, 0.00008, 0.00003/
698 DATA ((F(I,35,K),I=1,6),K=1,19)/
699 + 0.17573, 0.03287, 0.05549, 0.00009, 0.00001, 0.00000,
700 + 0.15815, 0.02925, 0.04312, 0.00011, 0.00004, 0.00000,
701 + 0.14359, 0.02629, 0.03426, 0.00012, 0.00006, 0.00000,
702 + 0.13133, 0.02382, 0.02772, 0.00012, 0.00007, 0.00000,
703 + 0.12086, 0.02174, 0.02278, 0.00012, 0.00008, -0.00001,
704 + 0.11182, 0.01998, 0.01898, 0.00012, 0.00007, 0.00000,
705 + 0.10390, 0.01843, 0.01599, 0.00011, 0.00008, 0.00001,
706 + 0.09691, 0.01708, 0.01361, 0.00011, 0.00008, 0.00001,
707 + 0.09070, 0.01589, 0.01169, 0.00010, 0.00008, 0.00002,
708 + 0.08516, 0.01483, 0.01013, 0.00010, 0.00008, 0.00002,
709 + 0.08018, 0.01389, 0.00884, 0.00009, 0.00007, 0.00002,
710 + 0.07568, 0.01304, 0.00776, 0.00009, 0.00007, 0.00002,
711 + 0.07160, 0.01228, 0.00686, 0.00008, 0.00007, 0.00002,
712 + 0.06788, 0.01159, 0.00611, 0.00008, 0.00007, 0.00002,
713 + 0.06448, 0.01096, 0.00546, 0.00008, 0.00006, 0.00002,
714 + 0.06137, 0.01039, 0.00491, 0.00007, 0.00006, 0.00002,
715 + 0.05850, 0.00986, 0.00444, 0.00007, 0.00006, 0.00002,
716 + 0.05586, 0.00938, 0.00402, 0.00006, 0.00006, 0.00002,
717 + 0.05341, 0.00894, 0.00366, 0.00006, 0.00006, 0.00002/
718 DATA ((F(I,36,K),I=1,6),K=1,19)/
719 + 0.14559, 0.02558, 0.04232, 0.00005, 0.00001, 0.00000,
720 + 0.13028, 0.02263, 0.03249, 0.00006, 0.00003, 0.00000,
721 + 0.11768, 0.02024, 0.02554, 0.00007, 0.00004, 0.00000,
722 + 0.10712, 0.01826, 0.02046, 0.00007, 0.00005, 0.00000,
723 + 0.09816, 0.01660, 0.01667, 0.00008, 0.00005, 0.00000,
724 + 0.09044, 0.01519, 0.01377, 0.00008, 0.00005, 0.00000,
725 + 0.08373, 0.01396, 0.01152, 0.00007, 0.00005, 0.00000,
726 + 0.07782, 0.01289, 0.00973, 0.00007, 0.00005, 0.00001,
727 + 0.07259, 0.01195, 0.00830, 0.00006, 0.00005, 0.00001,
728 + 0.06793, 0.01113, 0.00715, 0.00006, 0.00005, 0.00001,
729 + 0.06377, 0.01039, 0.00620, 0.00006, 0.00005, 0.00001,
730 + 0.06002, 0.00973, 0.00542, 0.00005, 0.00005, 0.00001,
731 + 0.05663, 0.00913, 0.00477, 0.00005, 0.00004, 0.00001,
732 + 0.05354, 0.00860, 0.00422, 0.00005, 0.00004, 0.00001,
733 + 0.05074, 0.00811, 0.00376, 0.00005, 0.00004, 0.00001,
734 + 0.04817, 0.00767, 0.00337, 0.00004, 0.00004, 0.00001,
735 + 0.04581, 0.00727, 0.00303, 0.00004, 0.00004, 0.00001,
736 + 0.04365, 0.00690, 0.00274, 0.00004, 0.00004, 0.00001,
737 + 0.04165, 0.00656, 0.00248, 0.00004, 0.00004, 0.00001/
738 DATA ((F(I,37,K),I=1,6),K=1,19)/
739 + 0.09445, 0.01453, 0.02330, 0.00001, 0.00001, 0.00000,
740 + 0.08350, 0.01270, 0.01744, 0.00002, 0.00001, 0.00000,
741 + 0.07461, 0.01124, 0.01339, 0.00002, 0.00002, 0.00000,
742 + 0.06725, 0.01004, 0.01051, 0.00003, 0.00002, 0.00000,
743 + 0.06106, 0.00905, 0.00840, 0.00003, 0.00002, 0.00000,
744 + 0.05579, 0.00821, 0.00682, 0.00003, 0.00002, 0.00000,
745 + 0.05124, 0.00749, 0.00562, 0.00002, 0.00002, 0.00000,
746 + 0.04727, 0.00687, 0.00467, 0.00002, 0.00002, 0.00000,
747 + 0.04379, 0.00632, 0.00393, 0.00002, 0.00002, 0.00000,
748 + 0.04071, 0.00585, 0.00334, 0.00002, 0.00002, 0.00001,
749 + 0.03797, 0.00542, 0.00286, 0.00002, 0.00002, 0.00001,
750 + 0.03552, 0.00505, 0.00247, 0.00002, 0.00002, 0.00001,
751 + 0.03332, 0.00472, 0.00215, 0.00002, 0.00002, 0.00000,
752 + 0.03133, 0.00442, 0.00189, 0.00002, 0.00002, 0.00000,
753 + 0.02954, 0.00414, 0.00166, 0.00002, 0.00002, 0.00000,
754 + 0.02790, 0.00390, 0.00148, 0.00002, 0.00001, 0.00000,
755 + 0.02641, 0.00368, 0.00132, 0.00001, 0.00001, 0.00000,
756 + 0.02504, 0.00347, 0.00118, 0.00001, 0.00001, 0.00000,
757 + 0.02378, 0.00329, 0.00106, 0.00001, 0.00001, 0.00000/
758 DATA ((F(I,38,K),I=1,6),K=1,19)/
759 + 0.05591, 0.00743, 0.01171, 0.00000, 0.00000, 0.00000,
760 + 0.04880, 0.00642, 0.00852, 0.00001, 0.00000, 0.00000,
761 + 0.04309, 0.00562, 0.00638, 0.00001, 0.00001, 0.00000,
762 + 0.03843, 0.00496, 0.00490, 0.00001, 0.00001, 0.00000,
763 + 0.03455, 0.00443, 0.00383, 0.00001, 0.00001, 0.00000,
764 + 0.03128, 0.00398, 0.00305, 0.00001, 0.00001, 0.00000,
765 + 0.02847, 0.00360, 0.00247, 0.00001, 0.00001, 0.00000,
766 + 0.02606, 0.00328, 0.00202, 0.00001, 0.00001, 0.00000,
767 + 0.02395, 0.00299, 0.00167, 0.00001, 0.00001, 0.00000,
768 + 0.02211, 0.00275, 0.00140, 0.00001, 0.00001, 0.00000,
769 + 0.02048, 0.00253, 0.00119, 0.00001, 0.00001, 0.00000,
770 + 0.01904, 0.00234, 0.00101, 0.00001, 0.00001, 0.00000,
771 + 0.01775, 0.00218, 0.00087, 0.00001, 0.00001, 0.00000,
772 + 0.01659, 0.00202, 0.00075, 0.00001, 0.00001, 0.00000,
773 + 0.01555, 0.00189, 0.00066, 0.00000, 0.00001, 0.00000,
774 + 0.01461, 0.00177, 0.00058, 0.00000, 0.00001, 0.00000,
775 + 0.01375, 0.00166, 0.00051, 0.00000, 0.00000, 0.00000,
776 + 0.01297, 0.00156, 0.00045, 0.00000, 0.00000, 0.00000,
777 + 0.01226, 0.00147, 0.00041, 0.00000, 0.00000, 0.00000/
778 DATA ((F(I,39,K),I=1,6),K=1,19)/
779 + 0.02931, 0.00330, 0.00519, 0.00000, 0.00000, 0.00000,
780 + 0.02521, 0.00281, 0.00366, 0.00000, 0.00000, 0.00000,
781 + 0.02197, 0.00243, 0.00266, 0.00000, 0.00000, 0.00000,
782 + 0.01936, 0.00212, 0.00199, 0.00000, 0.00000, 0.00000,
783 + 0.01722, 0.00187, 0.00152, 0.00000, 0.00000, 0.00000,
784 + 0.01543, 0.00167, 0.00119, 0.00000, 0.00000, 0.00000,
785 + 0.01391, 0.00149, 0.00094, 0.00000, 0.00000, 0.00000,
786 + 0.01262, 0.00135, 0.00076, 0.00000, 0.00000, 0.00000,
787 + 0.01150, 0.00122, 0.00062, 0.00000, 0.00000, 0.00000,
788 + 0.01053, 0.00111, 0.00051, 0.00000, 0.00000, 0.00000,
789 + 0.00968, 0.00102, 0.00042, 0.00000, 0.00000, 0.00000,
790 + 0.00893, 0.00093, 0.00035, 0.00000, 0.00000, 0.00000,
791 + 0.00827, 0.00086, 0.00030, 0.00000, 0.00000, 0.00000,
792 + 0.00768, 0.00080, 0.00026, 0.00000, 0.00000, 0.00000,
793 + 0.00715, 0.00074, 0.00022, 0.00000, 0.00000, 0.00000,
794 + 0.00667, 0.00069, 0.00019, 0.00000, 0.00000, 0.00000,
795 + 0.00624, 0.00064, 0.00017, 0.00000, 0.00000, 0.00000,
796 + 0.00586, 0.00060, 0.00015, 0.00000, 0.00000, 0.00000,
797 + 0.00551, 0.00056, 0.00013, 0.00000, 0.00000, 0.00000/
798 DATA ((F(I,40,K),I=1,6),K=1,19)/
799 + 0.01294, 0.00120, 0.00192, 0.00000, 0.00000, 0.00000,
800 + 0.01094, 0.00100, 0.00130, 0.00000, 0.00000, 0.00000,
801 + 0.00940, 0.00085, 0.00092, 0.00000, 0.00000, 0.00000,
802 + 0.00816, 0.00074, 0.00067, 0.00000, 0.00000, 0.00000,
803 + 0.00716, 0.00064, 0.00050, 0.00000, 0.00000, 0.00000,
804 + 0.00634, 0.00057, 0.00038, 0.00000, 0.00000, 0.00000,
805 + 0.00566, 0.00050, 0.00029, 0.00000, 0.00000, 0.00000,
806 + 0.00508, 0.00045, 0.00023, 0.00000, 0.00000, 0.00000,
807 + 0.00458, 0.00040, 0.00018, 0.00000, 0.00000, 0.00000,
808 + 0.00416, 0.00036, 0.00015, 0.00000, 0.00000, 0.00000,
809 + 0.00379, 0.00033, 0.00012, 0.00000, 0.00000, 0.00000,
810 + 0.00346, 0.00030, 0.00010, 0.00000, 0.00000, 0.00000,
811 + 0.00318, 0.00027, 0.00008, 0.00000, 0.00000, 0.00000,
812 + 0.00293, 0.00025, 0.00007, 0.00000, 0.00000, 0.00000,
813 + 0.00271, 0.00023, 0.00006, 0.00000, 0.00000, 0.00000,
814 + 0.00251, 0.00021, 0.00005, 0.00000, 0.00000, 0.00000,
815 + 0.00233, 0.00020, 0.00004, 0.00000, 0.00000, 0.00000,
816 + 0.00217, 0.00018, 0.00004, 0.00000, 0.00000, 0.00000,
817 + 0.00203, 0.00017, 0.00003, 0.00000, 0.00000, 0.00000/
818 DATA ((F(I,41,K),I=1,6),K=1,19)/
819 + 0.00090, 0.00005, 0.00009, 0.00000, 0.00000, 0.00000,
820 + 0.00073, 0.00004, 0.00005, 0.00000, 0.00000, 0.00000,
821 + 0.00060, 0.00003, 0.00003, 0.00000, 0.00000, 0.00000,
822 + 0.00050, 0.00002, 0.00002, 0.00000, 0.00000, 0.00000,
823 + 0.00042, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000,
824 + 0.00036, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000,
825 + 0.00031, 0.00002, 0.00001, 0.00000, 0.00000, 0.00000,
826 + 0.00027, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000,
827 + 0.00024, 0.00001, 0.00001, 0.00000, 0.00000, 0.00000,
828 + 0.00021, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
829 + 0.00019, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
830 + 0.00016, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
831 + 0.00015, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
832 + 0.00013, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
833 + 0.00012, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
834 + 0.00011, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
835 + 0.00010, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
836 + 0.00009, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
837 + 0.00008, 0.00001, 0.00000, 0.00000, 0.00000, 0.00000/
838 DATA XX/1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
839 . 1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
840 . 1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
841 . .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
842 . .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
843 . .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
844 . .8D0,.9D0,1.D0/
845 DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-4,1.D0,5.D0,1310720.D0/
846 DATA N0/3,3,4,8,0,0/
847 DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
848 DATA INIT/0/
849C
850 IF(INIT.NE.0) GOTO 10
851 INIT=1
852 DO 20 N=1,41
853 DO 20 M=1,19
854C READ(68,50)F(1,N,M),F(2,N,M),F(3,N,M),F(4,N,M),F(5,N,M),F(6,N,M)
855 DO 25 I=1,6
856 25 F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
857 20 CONTINUE
858 DO 30 J=1,15
859 XX(J)= LOG10(XX(J))+ONEDO
860 DO 30 I=1,5
861 DO 30 K=1,19
862 30 F(I,J,K) = LOG( F(I,J,K))*F(I,16,K)/ LOG( F(I,16,K))
863 50 FORMAT(6F10.5)
864 DO 40 I=1,6
865 DO 40 M=1,19
866 40 F(I,42,M)=ZEROD
867 10 CONTINUE
868 UPV=ZEROD
869 DNV=ZEROD
870 SEA=ZEROD
871 STR=ZEROD
872 CHM=ZEROD
873 GL =ZEROD
874 BOT=ZEROD
875C IF(X.LT.XMIN) X=XMIN
876C IF(X.GT.XMAX) X=XMAX
877 IF(X.LT.XMIN) GOTO 777
878 IF(X.GT.XMAX) GOTO 777
879 QSQ=SCALE**2
880 IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
881 IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
882 XXX=X
883 IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
884 N=0
885 70 N=N+1
886 IF(XXX.GT.XX(N+1)) GOTO 70
887 A=(XXX-XX(N))/(XX(N+1)-XX(N))
888 RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
889 B=RM-AINT(RM)
890 M=1+ INT(RM)
891 DO 60 I=1,6
892 G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
893 . + A*(ONED-B)*F(I,N+1,M) + A*B*F(I,N+1,M+1)
894 IF(N.GE.16) GOTO 65
895 IF(I.EQ.6) GOTO 65
896 FAC=(ONED-B)*F(I,16,M)+B*F(I,16,M+1)
897 G(I)=FAC**(G(I)/FAC)
898 65 CONTINUE
899 G(I)=G(I)*(ONED-X)**N0(I)
900 60 CONTINUE
901 UPV=G(1)
902 DNV=G(2)
903 SEA=G(4)
904 STR=G(4)
905 CHM=G(5)
906 GL =G(3)
907 BOT=G(6)
908 777 CONTINUE
909 RETURN
910 END