]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/strh3em.F
New methods and data member added by M. Horner.
[u/mrichter/AliRoot.git] / PDF / spdf / strh3em.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:31:29  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:53  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13 C-----------------------------------------------------------------------
14       SUBROUTINE STRH3EM(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
15 C
16 C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar
17 C
18 #include "pdf/impdp.inc"
19       PARAMETER(NX=47)
20       PARAMETER(NTENTH=21)
21       DIMENSION F(7,NX,19),G(7),XX(NX),N0(7)
22       DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
23      .        1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
24      .        1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
25      .        1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
26      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
27      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
28      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
29      .     .8D0,.9D0,1.D0/
30       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
31       DATA N0/2,5,4,5,0,0,5/
32       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
33       DATA INIT/0/
34       DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) /
35      . 0.01969, 0.00164,116.16710, 0.06202, 0.04741, 0.00000, 0.05472,
36      . 0.02025, 0.00179,127.89989, 0.81070, 0.79559, 0.00000, 0.80315,
37      . 0.02075, 0.00193,140.71202, 1.58952, 1.57395, 0.00000, 1.58174,
38      . 0.02122, 0.00206,154.54207, 2.32148, 2.30547, 0.00001, 2.31349,
39      . 0.02166, 0.00219,169.19019, 3.04645, 3.03004, 0.02041, 3.03826,
40      . 0.02208, 0.00231,184.57181, 3.77047, 3.75367, 0.35216, 3.76208,
41      . 0.02247, 0.00243,200.68066, 4.48675, 4.46957, 1.20799, 4.47818,
42      . 0.02285, 0.00255,217.38646, 5.20872, 5.19119, 1.98794, 5.19998,
43      . 0.02321, 0.00266,234.60693, 5.93866, 5.92079, 2.76578, 5.92974,
44      . 0.02356, 0.00277,252.27565, 6.67804, 6.65984, 3.55490, 6.66896,
45      . 0.02389, 0.00288,270.37134, 7.41594, 7.39742, 4.33805, 7.40670,
46      . 0.02421, 0.00299,288.82153, 8.15665, 8.13781, 5.12156, 8.14725,
47      . 0.02452, 0.00309,307.57056, 8.91105, 8.89190, 5.91634, 8.90149,
48      . 0.02482, 0.00320,326.58789, 9.65866, 9.63924, 6.70224, 9.64897,
49      . 0.02510, 0.00330,345.83203,10.41779,10.39806, 7.49761,10.40794,
50      . 0.02538, 0.00340,365.27856,11.17783,11.15786, 8.29215,11.16787,
51      . 0.02566, 0.00349,384.87744,11.94252,11.92227, 9.08967,11.93242,
52      . 0.02592, 0.00359,404.61719,12.71006,12.68955, 9.88854,12.69983,
53      . 0.02618, 0.00368,424.46558,13.48144,13.46067,10.68985,13.47108 /
54       DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) /
55      . 0.02474, 0.00250, 82.26169, 0.06499, 0.04626, 0.00000, 0.05563,
56      . 0.02542, 0.00271, 90.87798, 0.62406, 0.60471, 0.00000, 0.61439,
57      . 0.02605, 0.00291,100.17773, 1.17959, 1.15968, 0.00000, 1.16964,
58      . 0.02663, 0.00310,110.09918, 1.70075, 1.68029, 0.00000, 1.69053,
59      . 0.02717, 0.00329,120.50507, 2.21571, 2.19475, 0.01447, 2.20525,
60      . 0.02768, 0.00347,131.33676, 2.72866, 2.70723, 0.24879, 2.71796,
61      . 0.02817, 0.00364,142.57803, 3.23468, 3.21279, 0.85271, 3.22375,
62      . 0.02863, 0.00381,154.14714, 3.74301, 3.72069, 1.40129, 3.73187,
63      . 0.02907, 0.00397,165.99039, 4.25518, 4.23245, 1.94659, 4.24384,
64      . 0.02950, 0.00413,178.06674, 4.77224, 4.74911, 2.49811, 4.76070,
65      . 0.02990, 0.00429,190.34813, 5.28635, 5.26283, 3.04354, 5.27461,
66      . 0.03030, 0.00444,202.78943, 5.80049, 5.77660, 3.58730, 5.78857,
67      . 0.03068, 0.00459,215.37265, 6.32250, 6.29825, 4.13725, 6.31040,
68      . 0.03104, 0.00473,228.04665, 6.83767, 6.81307, 4.67888, 6.82540,
69      . 0.03139, 0.00487,240.81381, 7.35916, 7.33422, 5.22543, 7.34672,
70      . 0.03174, 0.00501,253.64397, 7.87938, 7.85411, 5.76948, 7.86678,
71      . 0.03207, 0.00515,266.51099, 8.40105, 8.37546, 6.31383, 8.38828,
72      . 0.03239, 0.00529,279.40820, 8.92293, 8.89703, 6.85734, 8.91000,
73      . 0.03271, 0.00542,292.31665, 9.44573, 9.41954, 7.40083, 9.43267 /
74       DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) /
75      . 0.03097, 0.00380, 58.25577, 0.06833, 0.04432, 0.00000, 0.05633,
76      . 0.03181, 0.00411, 64.57631, 0.48206, 0.45729, 0.00000, 0.46968,
77      . 0.03258, 0.00441, 71.32291, 0.87751, 0.85204, 0.00000, 0.86479,
78      . 0.03329, 0.00468, 78.43808, 1.24834, 1.22221, 0.00000, 1.23529,
79      . 0.03395, 0.00495, 85.82788, 1.61399, 1.58724, 0.01025, 1.60063,
80      . 0.03458, 0.00521, 93.45129, 1.97728, 1.94995, 0.17567, 1.96363,
81      . 0.03518, 0.00545,101.28951, 2.33463, 2.30675, 0.60162, 2.32071,
82      . 0.03574, 0.00569,109.29231, 2.69238, 2.66398, 0.98723, 2.67820,
83      . 0.03628, 0.00593,117.42609, 3.05158, 3.02267, 1.36928, 3.03716,
84      . 0.03680, 0.00616,125.66614, 3.41297, 3.38357, 1.75447, 3.39830,
85      . 0.03730, 0.00638,133.98412, 3.77091, 3.74106, 2.13403, 3.75602,
86      . 0.03778, 0.00659,142.35316, 4.12751, 4.09721, 2.51106, 4.11239,
87      . 0.03824, 0.00680,150.77592, 4.48842, 4.45768, 2.89123, 4.47308,
88      . 0.03868, 0.00701,159.19644, 4.84306, 4.81191, 3.26411, 4.82752,
89      . 0.03911, 0.00721,167.63899, 5.20091, 5.16935, 3.63922, 5.18517,
90      . 0.03953, 0.00740,176.07346, 5.55657, 5.52462, 4.01129, 5.54063,
91      . 0.03994, 0.00760,184.48874, 5.91199, 5.87967, 4.38233, 5.89587,
92      . 0.04033, 0.00779,192.88028, 6.26635, 6.23366, 4.75158, 6.25005,
93      . 0.04071, 0.00797,201.23856, 6.62018, 6.58713, 5.11963, 6.60370 /
94       DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) /
95      . 0.03526, 0.00486, 47.61009, 0.07051, 0.04275, 0.00000, 0.05663,
96      . 0.03620, 0.00525, 52.88040, 0.41559, 0.38697, 0.00000, 0.40129,
97      . 0.03706, 0.00561, 58.47057, 0.73948, 0.71006, 0.00000, 0.72478,
98      . 0.03786, 0.00596, 64.32683, 1.04332, 1.01316, 0.00000, 1.02826,
99      . 0.03861, 0.00629, 70.37396, 1.34256, 1.31171, 0.00838, 1.32715,
100      . 0.03931, 0.00660, 76.57898, 1.63942, 1.60792, 0.14328, 1.62369,
101      . 0.03998, 0.00691, 82.92308, 1.93093, 1.89881, 0.49047, 1.91489,
102      . 0.04061, 0.00721, 89.36919, 2.22216, 2.18946, 0.80414, 2.20584,
103      . 0.04122, 0.00749, 95.89230, 2.51396, 2.48070, 1.11429, 2.49736,
104      . 0.04180, 0.00777,102.47449, 2.80693, 2.77312, 1.42640, 2.79006,
105      . 0.04236, 0.00804,109.08884, 3.09645, 3.06213, 1.73329, 3.07933,
106      . 0.04289, 0.00831,115.71597, 3.38422, 3.34940, 2.03747, 3.36685,
107      . 0.04341, 0.00856,122.36574, 3.67490, 3.63960, 2.34362, 3.65728,
108      . 0.04391, 0.00881,128.98306, 3.95980, 3.92404, 2.64316, 3.94196,
109      . 0.04439, 0.00906,135.59865, 4.24673, 4.21052, 2.94395, 4.22867,
110      . 0.04486, 0.00930,142.18425, 4.53125, 4.49461, 3.24164, 4.51297,
111      . 0.04531, 0.00953,148.73381, 4.81501, 4.77795, 3.53792, 4.79652,
112      . 0.04575, 0.00976,155.24446, 5.09734, 5.05987, 3.83219, 5.07865,
113      . 0.04618, 0.00999,161.71021, 5.37868, 5.34082, 4.12494, 5.35980 /
114       DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) /
115      . 0.03862, 0.00579, 41.26035, 0.07218, 0.04141, 0.00000, 0.05680,
116      . 0.03964, 0.00624, 45.89227, 0.37473, 0.34302, 0.00000, 0.35888,
117      . 0.04057, 0.00666, 50.78358, 0.65576, 0.62319, 0.00000, 0.63949,
118      . 0.04144, 0.00707, 55.88326, 0.91954, 0.88617, 0.00000, 0.90287,
119      . 0.04225, 0.00745, 61.12738, 1.17911, 1.14499, 0.00727, 1.16207,
120      . 0.04301, 0.00782, 66.48781, 1.43633, 1.40150, 0.12397, 1.41894,
121      . 0.04373, 0.00817, 71.94595, 1.68861, 1.65311, 0.42425, 1.67089,
122      . 0.04442, 0.00851, 77.47250, 1.94027, 1.90414, 0.69513, 1.92223,
123      . 0.04508, 0.00885, 83.04726, 2.19203, 2.15529, 0.96259, 2.17370,
124      . 0.04571, 0.00917, 88.65604, 2.44442, 2.40709, 1.23137, 2.42579,
125      . 0.04631, 0.00948, 94.27356, 2.69343, 2.65555, 1.49523, 2.67453,
126      . 0.04689, 0.00978, 99.88506, 2.94051, 2.90209, 1.75635, 2.92134,
127      . 0.04745, 0.01008,105.50307, 3.18975, 3.15081, 2.01882, 3.17032,
128      . 0.04799, 0.01037,111.07504, 3.43357, 3.39414, 2.27516, 3.41390,
129      . 0.04851, 0.01065,116.63367, 3.67880, 3.63890, 2.53223, 3.65889,
130      . 0.04902, 0.01093,122.15237, 3.92157, 3.88120, 2.78625, 3.90143,
131      . 0.04951, 0.01120,127.62817, 4.16333, 4.12251, 3.03871, 4.14297,
132      . 0.04998, 0.01146,133.05890, 4.40350, 4.36225, 3.28909, 4.38293,
133      . 0.05044, 0.01172,138.44028, 4.64250, 4.60082, 3.53783, 4.62171 /
134       DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) /
135      . 0.04142, 0.00662, 36.92542, 0.07356, 0.04024, 0.00000, 0.05690,
136      . 0.04250, 0.00713, 41.11545, 0.34627, 0.31195, 0.00000, 0.32912,
137      . 0.04350, 0.00761, 45.52489, 0.59798, 0.56274, 0.00000, 0.58037,
138      . 0.04442, 0.00806, 50.10533, 0.83437, 0.79827, 0.00000, 0.81634,
139      . 0.04528, 0.00850, 54.80003, 1.06683, 1.02993, 0.00650, 1.04840,
140      . 0.04609, 0.00891, 59.58429, 1.29699, 1.25933, 0.11080, 1.27818,
141      . 0.04686, 0.00931, 64.44011, 1.52249, 1.48412, 0.37908, 1.50333,
142      . 0.04759, 0.00969, 69.34320, 1.74718, 1.70814, 0.62081, 1.72769,
143      . 0.04829, 0.01006, 74.27635, 1.97169, 1.93201, 0.85921, 1.95188,
144      . 0.04896, 0.01042, 79.22853, 2.19648, 2.15618, 1.09853, 2.17637,
145      . 0.04960, 0.01077, 84.17529, 2.41799, 2.37709, 1.33319, 2.39758,
146      . 0.05022, 0.01111, 89.10451, 2.63748, 2.59602, 1.56510, 2.61679,
147      . 0.05081, 0.01144, 94.03094, 2.85864, 2.81664, 1.79799, 2.83769,
148      . 0.05138, 0.01176, 98.90370, 3.07469, 3.03216, 2.02511, 3.05347,
149      . 0.05194, 0.01208,103.75691, 3.29174, 3.24870, 2.25263, 3.27027,
150      . 0.05247, 0.01238,108.56493, 3.50633, 3.46281, 2.47718, 3.48462,
151      . 0.05299, 0.01268,113.32674, 3.71977, 3.67578, 2.70010, 3.69783,
152      . 0.05350, 0.01297,118.04047, 3.93158, 3.88713, 2.92093, 3.90941,
153      . 0.05399, 0.01326,122.70358, 4.14210, 4.09721, 3.14007, 4.11971 /
154       DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) /
155      . 0.05129, 0.01008, 26.16243, 0.07846, 0.03580, 0.00000, 0.05713,
156      . 0.05260, 0.01081, 29.22992, 0.27377, 0.22988, 0.00000, 0.25184,
157      . 0.05380, 0.01150, 32.42279, 0.45252, 0.40750, 0.00000, 0.43002,
158      . 0.05491, 0.01216, 35.70041, 0.62074, 0.57469, 0.00000, 0.59774,
159      . 0.05595, 0.01277, 39.02498, 0.78580, 0.73878, 0.00461, 0.76231,
160      . 0.05692, 0.01336, 42.37987, 0.94873, 0.90080, 0.07814, 0.92479,
161      . 0.05785, 0.01393, 45.74956, 1.10784, 1.05905, 0.26709, 1.08348,
162      . 0.05873, 0.01447, 49.12158, 1.26575, 1.21616, 0.43670, 1.24100,
163      . 0.05957, 0.01500, 52.48636, 1.42291, 1.37256, 0.60333, 1.39778,
164      . 0.06037, 0.01550, 55.83878, 1.57966, 1.52857, 0.77001, 1.55416,
165      . 0.06114, 0.01600, 59.15862, 1.73346, 1.68167, 0.93280, 1.70761,
166      . 0.06189, 0.01647, 62.44046, 1.88521, 1.83275, 1.09303, 1.85903,
167      . 0.06260, 0.01693, 65.70174, 2.03757, 1.98447, 1.25338, 2.01107,
168      . 0.06329, 0.01738, 68.89891, 2.18570, 2.13198, 1.40906, 2.15889,
169      . 0.06396, 0.01782, 72.06584, 2.33398, 2.27968, 1.56449, 2.30688,
170      . 0.06460, 0.01824, 75.18158, 2.47998, 2.42510, 1.71727, 2.45260,
171      . 0.06523, 0.01866, 78.24844, 2.62465, 2.56921, 1.86838, 2.59699,
172      . 0.06583, 0.01906, 81.26595, 2.76766, 2.71170, 2.01754, 2.73974,
173      . 0.06642, 0.01946, 84.23390, 2.90927, 2.85280, 2.16501, 2.88110 /
174       DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) /
175      . 0.06312, 0.01532, 18.54797, 0.08471, 0.03014, 0.00000, 0.05743,
176      . 0.06468, 0.01638, 20.79260, 0.22199, 0.16593, 0.00000, 0.19397,
177      . 0.06612, 0.01737, 23.10101, 0.34909, 0.29168, 0.00000, 0.32041,
178      . 0.06745, 0.01830, 25.44026, 0.46898, 0.41033, 0.00000, 0.43968,
179      . 0.06869, 0.01918, 27.78612, 0.58624, 0.52644, 0.00327, 0.55637,
180      . 0.06986, 0.02002, 30.12813, 0.70155, 0.64068, 0.05506, 0.67115,
181      . 0.07096, 0.02081, 32.45386, 0.81373, 0.75185, 0.18799, 0.78283,
182      . 0.07202, 0.02158, 34.75819, 0.92457, 0.86173, 0.30679, 0.89319,
183      . 0.07302, 0.02231, 37.03682, 1.03437, 0.97064, 0.42299, 1.00255,
184      . 0.07399, 0.02302, 39.28835, 1.14341, 1.07882, 0.53878, 1.11116,
185      . 0.07491, 0.02371, 41.49661, 1.24990, 1.18449, 0.65136, 1.21725,
186      . 0.07580, 0.02437, 43.66045, 1.35448, 1.28830, 0.76168, 1.32144,
187      . 0.07665, 0.02501, 45.79718, 1.45905, 1.39213, 0.87168, 1.42565,
188      . 0.07748, 0.02563, 47.87125, 1.56021, 1.49258, 0.97794, 1.52645,
189      . 0.07828, 0.02623, 49.91336, 1.66107, 1.59276, 1.08364, 1.62698,
190      . 0.07905, 0.02681, 51.90663, 1.75993, 1.69097, 1.18710, 1.72552,
191      . 0.07980, 0.02738, 53.85559, 1.85748, 1.78789, 1.28901, 1.82276,
192      . 0.08052, 0.02794, 55.76007, 1.95352, 1.88332, 1.38920, 1.91849,
193      . 0.08123, 0.02848, 57.62129, 2.04824, 1.97746, 1.48789, 2.01292 /
194       DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) /
195      . 0.07103, 0.01957, 15.17519, 0.08935, 0.02639, 0.00000, 0.05787,
196      . 0.07276, 0.02087, 17.04501, 0.20014, 0.13553, 0.00000, 0.16785,
197      . 0.07435, 0.02209, 18.95226, 0.30442, 0.23832, 0.00000, 0.27139,
198      . 0.07583, 0.02323, 20.86848, 0.40285, 0.33539, 0.00000, 0.36915,
199      . 0.07720, 0.02431, 22.77579, 0.49888, 0.43016, 0.00267, 0.46455,
200      . 0.07850, 0.02532, 24.66664, 0.59305, 0.52315, 0.04482, 0.55814,
201      . 0.07973, 0.02629, 26.53041, 0.68440, 0.61342, 0.15292, 0.64895,
202      . 0.08090, 0.02722, 28.36516, 0.77439, 0.70237, 0.24923, 0.73843,
203      . 0.08202, 0.02811, 30.16876, 0.86327, 0.79027, 0.34317, 0.82682,
204      . 0.08309, 0.02897, 31.94124, 0.95125, 0.87734, 0.43652, 0.91435,
205      . 0.08411, 0.02979, 33.66881, 1.03693, 0.96214, 0.52703, 0.99960,
206      . 0.08510, 0.03059, 35.35197, 1.12082, 1.04519, 0.61547, 1.08306,
207      . 0.08605, 0.03136, 37.00720, 1.20447, 1.12805, 0.70342, 1.16633,
208      . 0.08696, 0.03210, 38.60333, 1.28513, 1.20795, 0.78813, 1.24660,
209      . 0.08785, 0.03282, 40.16879, 1.36535, 1.28744, 0.87218, 1.32646,
210      . 0.08871, 0.03352, 41.68903, 1.44375, 1.36515, 0.95422, 1.40452,
211      . 0.08954, 0.03420, 43.16875, 1.52090, 1.44163, 1.03483, 1.48133,
212      . 0.09034, 0.03486, 44.60831, 1.59665, 1.51674, 1.11388, 1.55677,
213      . 0.09112, 0.03550, 46.00919, 1.67117, 1.59064, 1.19154, 1.63098 /
214       DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) /
215      . 0.07712, 0.02327, 13.16574, 0.09330, 0.02365, 0.00000, 0.05848,
216      . 0.07898, 0.02478, 14.80844, 0.18825, 0.11686, 0.00000, 0.15257,
217      . 0.08069, 0.02619, 16.47285, 0.27894, 0.20596, 0.00000, 0.24248,
218      . 0.08228, 0.02750, 18.13367, 0.36455, 0.29013, 0.00000, 0.32737,
219      . 0.08376, 0.02873, 19.77696, 0.44788, 0.37212, 0.00232, 0.41004,
220      . 0.08516, 0.02990, 21.39713, 0.52940, 0.45240, 0.03870, 0.49094,
221      . 0.08648, 0.03100, 22.98485, 0.60831, 0.53016, 0.13196, 0.56928,
222      . 0.08774, 0.03206, 24.54005, 0.68584, 0.60661, 0.21486, 0.64628,
223      . 0.08895, 0.03308, 26.06174, 0.76223, 0.68198, 0.29551, 0.72216,
224      . 0.09010, 0.03405, 27.55090, 0.83767, 0.75646, 0.37549, 0.79712,
225      . 0.09121, 0.03499, 28.99532, 0.91097, 0.82885, 0.45287, 0.86997,
226      . 0.09227, 0.03589, 30.39627, 0.98255, 0.89957, 0.52831, 0.94112,
227      . 0.09329, 0.03677, 31.76959, 1.05379, 0.96998, 0.60319, 1.01195,
228      . 0.09428, 0.03761, 33.08720, 1.12231, 1.03771, 0.67513, 1.08008,
229      . 0.09523, 0.03842, 34.37549, 1.19032, 1.10497, 0.74639, 1.14772,
230      . 0.09616, 0.03921, 35.62160, 1.25664, 1.17057, 0.81579, 1.21368,
231      . 0.09705, 0.03997, 36.83032, 1.32177, 1.23501, 0.88385, 1.27846,
232      . 0.09792, 0.04072, 38.00208, 1.38558, 1.29817, 0.95045, 1.34195,
233      . 0.09876, 0.04144, 39.13869, 1.44824, 1.36019, 1.01577, 1.40429 /
234       DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) /
235      . 0.08212, 0.02662, 11.79638, 0.09731, 0.02205, 0.00000, 0.05968,
236      . 0.08410, 0.02830, 13.28476, 0.18266, 0.10557, 0.00000, 0.14413,
237      . 0.08592, 0.02986, 14.78149, 0.26398, 0.18525, 0.00000, 0.22464,
238      . 0.08761, 0.03132, 16.26578, 0.34071, 0.26048, 0.00000, 0.30062,
239      . 0.08918, 0.03268, 17.72635, 0.41523, 0.33363, 0.00207, 0.37447,
240      . 0.09067, 0.03397, 19.15871, 0.48798, 0.40510, 0.03445, 0.44658,
241      . 0.09208, 0.03519, 20.55453, 0.55828, 0.47422, 0.11742, 0.51629,
242      . 0.09342, 0.03636, 21.91643, 0.62719, 0.54203, 0.19101, 0.58466,
243      . 0.09470, 0.03748, 23.24315, 0.69494, 0.60873, 0.26247, 0.65189,
244      . 0.09593, 0.03855, 24.53601, 0.76170, 0.67450, 0.33318, 0.71816,
245      . 0.09710, 0.03958, 25.78419, 0.82643, 0.73831, 0.40147, 0.78243,
246      . 0.09823, 0.04057, 26.99084, 0.88952, 0.80052, 0.46791, 0.84508,
247      . 0.09932, 0.04152, 28.17056, 0.95219, 0.86235, 0.53375, 0.90733,
248      . 0.10037, 0.04244, 29.29681, 1.01233, 0.92169, 0.59688, 0.96708,
249      . 0.10138, 0.04333, 30.39546, 1.07190, 0.98051, 0.65928, 1.02628,
250      . 0.10236, 0.04419, 31.45509, 1.12988, 1.03776, 0.71994, 1.08389,
251      . 0.10331, 0.04503, 32.47900, 1.18672, 1.09390, 0.77934, 1.14039,
252      . 0.10424, 0.04584, 33.46780, 1.24233, 1.14885, 0.83739, 1.19567,
253      . 0.10513, 0.04662, 34.42484, 1.29684, 1.20272, 0.89422, 1.24986 /
254       DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) /
255      . 0.09937, 0.04033,  8.40338, 0.11220, 0.01679, 0.00000, 0.06450,
256      . 0.10178, 0.04265,  9.49333, 0.17239, 0.07500, 0.00000, 0.12371,
257      . 0.10399, 0.04478, 10.56401, 0.23013, 0.13097, 0.00000, 0.18057,
258      . 0.10606, 0.04676, 11.60128, 0.28460, 0.18386, 0.00000, 0.23426,
259      . 0.10798, 0.04860, 12.60207, 0.33713, 0.23494, 0.00146, 0.28607,
260      . 0.10979, 0.05033, 13.56600, 0.38800, 0.28450, 0.02391, 0.33629,
261      . 0.11152, 0.05196, 14.48812, 0.43682, 0.33210, 0.08132, 0.38451,
262      . 0.11315, 0.05351, 15.37353, 0.48430, 0.37845, 0.13186, 0.43143,
263      . 0.11472, 0.05499, 16.22350, 0.53060, 0.42370, 0.18056, 0.47720,
264      . 0.11622, 0.05639, 17.04082, 0.57588, 0.46800, 0.22843, 0.52200,
265      . 0.11765, 0.05774, 17.81773, 0.61948, 0.51067, 0.27435, 0.56514,
266      . 0.11903, 0.05903, 18.55838, 0.66166, 0.55199, 0.31874, 0.60689,
267      . 0.12036, 0.06027, 19.27530, 0.70327, 0.59279, 0.36244, 0.64810,
268      . 0.12164, 0.06145, 19.94875, 0.74292, 0.63167, 0.40406, 0.68737,
269      . 0.12287, 0.06260, 20.59947, 0.78195, 0.66997, 0.44496, 0.72603,
270      . 0.12407, 0.06370, 21.21921, 0.81968, 0.70701, 0.48447, 0.76342,
271      . 0.12522, 0.06476, 21.81142, 0.85643, 0.74311, 0.52293, 0.79985,
272      . 0.12634, 0.06579, 22.37688, 0.89218, 0.77824, 0.56030, 0.83529,
273      . 0.12743, 0.06678, 22.91855, 0.92700, 0.81247, 0.59668, 0.86982 /
274       DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) /
275      . 0.11969, 0.06086,  6.01678, 0.13217, 0.01256, 0.00000, 0.07236,
276      . 0.12274, 0.06394,  6.80673, 0.17495, 0.05346, 0.00001, 0.11421,
277      . 0.12554, 0.06674,  7.55903, 0.21566, 0.09253, 0.00001, 0.15412,
278      . 0.12815, 0.06931,  8.26577, 0.25389, 0.12930, 0.00001, 0.19162,
279      . 0.13057, 0.07169,  8.93096, 0.29035, 0.16447, 0.00103, 0.22745,
280      . 0.13287, 0.07390,  9.55610, 0.32530, 0.19826, 0.01635, 0.26182,
281      . 0.13503, 0.07598, 10.14125, 0.35852, 0.23044, 0.05543, 0.29453,
282      . 0.13709, 0.07793, 10.69099, 0.39049, 0.26145, 0.08947, 0.32602,
283      . 0.13904, 0.07978, 11.20920, 0.42135, 0.29144, 0.12198, 0.35644,
284      . 0.14092, 0.08154, 11.69917, 0.45125, 0.32053, 0.15366, 0.38594,
285      . 0.14272, 0.08320, 12.15483, 0.47977, 0.34832, 0.18381, 0.41411,
286      . 0.14444, 0.08478, 12.58193, 0.50712, 0.37498, 0.21270, 0.44111,
287      . 0.14609, 0.08630, 12.99009, 0.53385, 0.40108, 0.24090, 0.46753,
288      . 0.14769, 0.08774, 13.36432, 0.55911, 0.42576, 0.26757, 0.49250,
289      . 0.14922, 0.08912, 13.72178, 0.58377, 0.44988, 0.29358, 0.51690,
290      . 0.15070, 0.09045, 14.05703, 0.60743, 0.47303, 0.31853, 0.54030,
291      . 0.15213, 0.09172, 14.37202, 0.63029, 0.49543, 0.34263, 0.56293,
292      . 0.15352, 0.09295, 14.66762, 0.65235, 0.51705, 0.36588, 0.58477,
293      . 0.15486, 0.09412, 14.94680, 0.67368, 0.53797, 0.38836, 0.60590 /
294       DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) /
295      . 0.13360, 0.07717,  4.96637, 0.14572, 0.01044, 0.00000, 0.07808,
296      . 0.13717, 0.08070,  5.61285, 0.18045, 0.04354, 0.00000, 0.11201,
297      . 0.14045, 0.08390,  6.21550, 0.21329, 0.07499, 0.00001, 0.14415,
298      . 0.14348, 0.08683,  6.76943, 0.24395, 0.10448, 0.00001, 0.17424,
299      . 0.14632, 0.08949,  7.28060, 0.27299, 0.13247, 0.00083, 0.20276,
300      . 0.14899, 0.09198,  7.75583, 0.30059, 0.15917, 0.01294, 0.22991,
301      . 0.15149, 0.09428,  8.19121, 0.32666, 0.18444, 0.04382, 0.25559,
302      . 0.15387, 0.09645,  8.59418, 0.35156, 0.20863, 0.07052, 0.28014,
303      . 0.15615, 0.09848,  8.96859, 0.37542, 0.23185, 0.09585, 0.30368,
304      . 0.15832, 0.10041,  9.31812, 0.39836, 0.25423, 0.12037, 0.32635,
305      . 0.16039, 0.10222,  9.63930, 0.42012, 0.27548, 0.14358, 0.34785,
306      . 0.16237, 0.10394,  9.93465, 0.44084, 0.29575, 0.16569, 0.36835,
307      . 0.16427, 0.10558, 10.21377, 0.46097, 0.31547, 0.18716, 0.38828,
308      . 0.16608, 0.10714, 10.46704, 0.47990, 0.33404, 0.20739, 0.40703,
309      . 0.16783, 0.10862, 10.70598, 0.49827, 0.35207, 0.22700, 0.42523,
310      . 0.16952, 0.11004, 10.92593, 0.51577, 0.36928, 0.24569, 0.44259,
311      . 0.17114, 0.11139, 11.13066, 0.53259, 0.38584, 0.26366, 0.45928,
312      . 0.17271, 0.11269, 11.32094, 0.54875, 0.40175, 0.28093, 0.47531,
313      . 0.17422, 0.11393, 11.49819, 0.56428, 0.41707, 0.29754, 0.49074 /
314       DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) /
315      . 0.14481, 0.09112,  4.34421, 0.15583, 0.00913, 0.00000, 0.08248,
316      . 0.14886, 0.09496,  4.90003, 0.18562, 0.03763, 0.00000, 0.11164,
317      . 0.15256, 0.09841,  5.40908, 0.21359, 0.06452, 0.00001, 0.13906,
318      . 0.15597, 0.10154,  5.86901, 0.23955, 0.08961, 0.00001, 0.16460,
319      . 0.15917, 0.10438,  6.28708, 0.26398, 0.11328, 0.00071, 0.18866,
320      . 0.16216, 0.10702,  6.67062, 0.28704, 0.13572, 0.01090, 0.21141,
321      . 0.16496, 0.10945,  7.01696, 0.30870, 0.15685, 0.03685, 0.23281,
322      . 0.16762, 0.11173,  7.33347, 0.32926, 0.17696, 0.05916, 0.25315,
323      . 0.17015, 0.11385,  7.62410, 0.34883, 0.19615, 0.08021, 0.27254,
324      . 0.17257, 0.11586,  7.89245, 0.36755, 0.21455, 0.10048, 0.29110,
325      . 0.17486, 0.11774,  8.13579, 0.38522, 0.23194, 0.11959, 0.30862,
326      . 0.17705, 0.11951,  8.35669, 0.40194, 0.24844, 0.13771, 0.32524,
327      . 0.17914, 0.12120,  8.56359, 0.41810, 0.26442, 0.15523, 0.34132,
328      . 0.18114, 0.12280,  8.74839, 0.43323, 0.27940, 0.17166, 0.35637,
329      . 0.18306, 0.12432,  8.92116, 0.44784, 0.29389, 0.18753, 0.37092,
330      . 0.18491, 0.12576,  9.07801, 0.46169, 0.30765, 0.20259, 0.38473,
331      . 0.18669, 0.12713,  9.22233, 0.47495, 0.32084, 0.21702, 0.39795,
332      . 0.18839, 0.12844,  9.35481, 0.48762, 0.33345, 0.23083, 0.41059,
333      . 0.19004, 0.12969,  9.47666, 0.49974, 0.34555, 0.24406, 0.42270 /
334       DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) /
335      . 0.15457, 0.10347,  3.92223, 0.16365, 0.00821, 0.00001, 0.08593,
336      . 0.15905, 0.10751,  4.41288, 0.18990, 0.03351, 0.00001, 0.11172,
337      . 0.16313, 0.11112,  4.85546, 0.21438, 0.05725, 0.00001, 0.13583,
338      . 0.16691, 0.11437,  5.25018, 0.23700, 0.07930, 0.00001, 0.15818,
339      . 0.17041, 0.11730,  5.60396, 0.25816, 0.10002, 0.00065, 0.17912,
340      . 0.17368, 0.12003,  5.92422, 0.27802, 0.11952, 0.00952, 0.19880,
341      . 0.17674, 0.12253,  6.20984, 0.29657, 0.13782, 0.03209, 0.21723,
342      . 0.17963, 0.12485,  6.46805, 0.31408, 0.15515, 0.05141, 0.23465,
343      . 0.18238, 0.12701,  6.70247, 0.33067, 0.17160, 0.06954, 0.25118,
344      . 0.18499, 0.12904,  6.91662, 0.34646, 0.18730, 0.08694, 0.26693,
345      . 0.18748, 0.13094,  7.10843, 0.36128, 0.20208, 0.10327, 0.28173,
346      . 0.18983, 0.13272,  7.28127, 0.37525, 0.21606, 0.11872, 0.29571,
347      . 0.19209, 0.13441,  7.44193, 0.38871, 0.22954, 0.13359, 0.30918,
348      . 0.19425, 0.13599,  7.58188, 0.40121, 0.24210, 0.14745, 0.32171,
349      . 0.19632, 0.13750,  7.71188, 0.41325, 0.25420, 0.16081, 0.33378,
350      . 0.19832, 0.13891,  7.82884, 0.42463, 0.26568, 0.17348, 0.34521,
351      . 0.20022, 0.14027,  7.93523, 0.43547, 0.27664, 0.18556, 0.35611,
352      . 0.20204, 0.14156,  8.03169, 0.44577, 0.28708, 0.19707, 0.36648,
353      . 0.20379, 0.14279,  8.11898, 0.45560, 0.29706, 0.20807, 0.37639 /
354       DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) /
355      . 0.19468, 0.15140,  2.88332, 0.18428, 0.00575, 0.00000, 0.09502,
356      . 0.20087, 0.15560,  3.19521, 0.20065, 0.02292, 0.00002, 0.11179,
357      . 0.20648, 0.15927,  3.46067, 0.21553, 0.03865, 0.00001, 0.12710,
358      . 0.21152, 0.16249,  3.68406, 0.22897, 0.05300, 0.00001, 0.14101,
359      . 0.21612, 0.16538,  3.87466, 0.24124, 0.06619, 0.00041, 0.15373,
360      . 0.22044, 0.16792,  4.03739, 0.25247, 0.07836, 0.00600, 0.16544,
361      . 0.22443, 0.17023,  4.17579, 0.26274, 0.08958, 0.02013, 0.17618,
362      . 0.22812, 0.17234,  4.29385, 0.27222, 0.10001, 0.03201, 0.18614,
363      . 0.23159, 0.17427,  4.39546, 0.28101, 0.10973, 0.04296, 0.19539,
364      . 0.23485, 0.17605,  4.48373, 0.28920, 0.11885, 0.05332, 0.20404,
365      . 0.23789, 0.17767,  4.55793, 0.29673, 0.12732, 0.06291, 0.21205,
366      . 0.24078, 0.17916,  4.62051, 0.30368, 0.13518, 0.07185, 0.21945,
367      . 0.24353, 0.18054,  4.67605, 0.31024, 0.14264, 0.08034, 0.22647,
368      . 0.24607, 0.18184,  4.71944, 0.31622, 0.14950, 0.08816, 0.23289,
369      . 0.24851, 0.18303,  4.75732, 0.32186, 0.15603, 0.09558, 0.23898,
370      . 0.25085, 0.18412,  4.78784, 0.32707, 0.16212, 0.10251, 0.24463,
371      . 0.25307, 0.18514,  4.81288, 0.33195, 0.16785, 0.10906, 0.24993,
372      . 0.25518, 0.18610,  4.83287, 0.33650, 0.17323, 0.11524, 0.25491,
373      . 0.25720, 0.18699,  4.84841, 0.34075, 0.17831, 0.12106, 0.25957 /
374       DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) /
375      . 0.26333, 0.21303,  2.14724, 0.18731, 0.00376,-0.00008, 0.09550,
376      . 0.27129, 0.21594,  2.30769, 0.19498, 0.01487,-0.00011, 0.10488,
377      . 0.27832, 0.21827,  2.43192, 0.20159, 0.02470,-0.00008, 0.11312,
378      . 0.28445, 0.22025,  2.52540, 0.20727, 0.03337,-0.00017, 0.12031,
379      . 0.28986, 0.22191,  2.59691, 0.21223, 0.04112, 0.00014, 0.12665,
380      . 0.29482, 0.22325,  2.65129, 0.21651, 0.04807, 0.00340, 0.13228,
381      . 0.29933, 0.22430,  2.69066, 0.22024, 0.05431, 0.01153, 0.13726,
382      . 0.30337, 0.22524,  2.71857, 0.22351, 0.05996, 0.01824, 0.14170,
383      . 0.30705, 0.22603,  2.73789, 0.22639, 0.06507, 0.02428, 0.14571,
384      . 0.31046, 0.22668,  2.75062, 0.22894, 0.06976, 0.02985, 0.14933,
385      . 0.31362, 0.22716,  2.75623, 0.23113, 0.07407, 0.03492, 0.15257,
386      . 0.31649, 0.22756,  2.75634, 0.23300, 0.07795, 0.03954, 0.15544,
387      . 0.31918, 0.22792,  2.75377, 0.23469, 0.08155, 0.04386, 0.15809,
388      . 0.32161, 0.22816,  2.74597, 0.23610, 0.08476, 0.04780, 0.16040,
389      . 0.32390, 0.22835,  2.73643, 0.23734, 0.08777, 0.05146, 0.16253,
390      . 0.32601, 0.22848,  2.72413, 0.23838, 0.09052, 0.05480, 0.16443,
391      . 0.32800, 0.22853,  2.71000, 0.23928, 0.09306, 0.05791, 0.16614,
392      . 0.32987, 0.22851,  2.69426, 0.24005, 0.09539, 0.06080, 0.16768,
393      . 0.33159, 0.22848,  2.67729, 0.24068, 0.09754, 0.06347, 0.16907 /
394       DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) /
395      . 0.32682, 0.25108,  1.80252, 0.17241, 0.00290, 0.00002, 0.08765,
396      . 0.33479, 0.25204,  1.88626, 0.17566, 0.01112,-0.00001, 0.09342,
397      . 0.34170, 0.25253,  1.94279, 0.17825, 0.01823, 0.00005, 0.09825,
398      . 0.34753, 0.25271,  1.97818, 0.18024, 0.02433, 0.00002, 0.10229,
399      . 0.35257, 0.25272,  1.99859, 0.18177, 0.02968, 0.00017, 0.10575,
400      . 0.35694, 0.25252,  2.00846, 0.18296, 0.03432, 0.00241, 0.10866,
401      . 0.36072, 0.25225,  2.00898, 0.18380, 0.03841, 0.00799, 0.11113,
402      . 0.36405, 0.25181,  2.00334, 0.18439, 0.04207, 0.01245, 0.11324,
403      . 0.36705, 0.25123,  1.99317, 0.18477, 0.04533, 0.01644, 0.11506,
404      . 0.36974, 0.25056,  1.97979, 0.18500, 0.04825, 0.02010, 0.11664,
405      . 0.37204, 0.24990,  1.96293, 0.18502, 0.05087, 0.02331, 0.11794,
406      . 0.37413, 0.24916,  1.94367, 0.18491, 0.05316, 0.02621, 0.11905,
407      . 0.37603, 0.24840,  1.92379, 0.18472, 0.05526, 0.02889, 0.12002,
408      . 0.37758, 0.24759,  1.90154, 0.18440, 0.05711, 0.03128, 0.12079,
409      . 0.37903, 0.24677,  1.87920, 0.18402, 0.05879, 0.03347, 0.12144,
410      . 0.38037, 0.24589,  1.85607, 0.18355, 0.06028, 0.03544, 0.12193,
411      . 0.38152, 0.24501,  1.83263, 0.18302, 0.06162, 0.03725, 0.12234,
412      . 0.38251, 0.24413,  1.80896, 0.18244, 0.06285, 0.03893, 0.12266,
413      . 0.38337, 0.24326,  1.78537, 0.18182, 0.06397, 0.04046, 0.12291 /
414       DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) /
415      . 0.38521, 0.27498,  1.57483, 0.15180, 0.00233, 0.00003, 0.07710,
416      . 0.39209, 0.27378,  1.61067, 0.15253, 0.00877, 0.00006, 0.08070,
417      . 0.39750, 0.27247,  1.62698, 0.15286, 0.01420, 0.00006, 0.08356,
418      . 0.40205, 0.27084,  1.62888, 0.15289, 0.01872, 0.00008, 0.08582,
419      . 0.40570, 0.26925,  1.62174, 0.15262, 0.02265, 0.00016, 0.08764,
420      . 0.40874, 0.26748,  1.60823, 0.15222, 0.02596, 0.00187, 0.08911,
421      . 0.41126, 0.26573,  1.58941, 0.15157, 0.02888, 0.00586, 0.09029,
422      . 0.41327, 0.26396,  1.56756, 0.15084, 0.03142, 0.00907, 0.09117,
423      . 0.41488, 0.26222,  1.54384, 0.15002, 0.03361, 0.01190, 0.09185,
424      . 0.41619, 0.26051,  1.51909, 0.14914, 0.03552, 0.01446, 0.09238,
425      . 0.41725, 0.25873,  1.49296, 0.14821, 0.03720, 0.01670, 0.09278,
426      . 0.41805, 0.25695,  1.46626, 0.14720, 0.03869, 0.01869, 0.09300,
427      . 0.41871, 0.25521,  1.44012, 0.14619, 0.04003, 0.02050, 0.09315,
428      . 0.41912, 0.25348,  1.41325, 0.14512, 0.04118, 0.02208, 0.09319,
429      . 0.41941, 0.25177,  1.38712, 0.14404, 0.04221, 0.02351, 0.09317,
430      . 0.41956, 0.25005,  1.36114, 0.14292, 0.04310, 0.02480, 0.09307,
431      . 0.41956, 0.24840,  1.33572, 0.14182, 0.04389, 0.02595, 0.09292,
432      . 0.41943, 0.24682,  1.31086, 0.14072, 0.04459, 0.02699, 0.09273,
433      . 0.41924, 0.24521,  1.28659, 0.13963, 0.04520, 0.02793, 0.09248 /
434       DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) /
435      . 0.43737, 0.28894,  1.39940, 0.13011, 0.00190, 0.00005, 0.06604,
436      . 0.44204, 0.28570,  1.40269, 0.12941, 0.00700, 0.00004, 0.06825,
437      . 0.44547, 0.28246,  1.39303, 0.12852, 0.01124, 0.00006, 0.06992,
438      . 0.44795, 0.27929,  1.37438, 0.12742, 0.01480, 0.00009, 0.07111,
439      . 0.44957, 0.27626,  1.35067, 0.12624, 0.01773, 0.00018, 0.07199,
440      . 0.45082, 0.27316,  1.32393, 0.12498, 0.02015, 0.00137, 0.07262,
441      . 0.45142, 0.27020,  1.29473, 0.12366, 0.02227, 0.00442, 0.07302,
442      . 0.45172, 0.26723,  1.26473, 0.12233, 0.02407, 0.00684, 0.07324,
443      . 0.45175, 0.26436,  1.23462, 0.12095, 0.02563, 0.00893, 0.07333,
444      . 0.45154, 0.26160,  1.20490, 0.11957, 0.02700, 0.01077, 0.07333,
445      . 0.45102, 0.25891,  1.17522, 0.11819, 0.02815, 0.01235, 0.07321,
446      . 0.45028, 0.25630,  1.14602, 0.11683, 0.02913, 0.01373, 0.07299,
447      . 0.44945, 0.25378,  1.11806, 0.11551, 0.03000, 0.01498, 0.07274,
448      . 0.44851, 0.25123,  1.09030, 0.11417, 0.03070, 0.01609, 0.07243,
449      . 0.44750, 0.24877,  1.06380, 0.11285, 0.03133, 0.01709, 0.07211,
450      . 0.44640, 0.24640,  1.03812, 0.11152, 0.03187, 0.01796, 0.07176,
451      . 0.44517, 0.24411,  1.01336, 0.11023, 0.03235, 0.01873, 0.07135,
452      . 0.44385, 0.24192,  0.98948, 0.10896, 0.03277, 0.01942, 0.07089,
453      . 0.44249, 0.23974,  0.96651, 0.10773, 0.03312, 0.02005, 0.07044 /
454       DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) /
455      . 0.49251, 0.29604,  1.21998, 0.10451, 0.00147, 0.00008, 0.05303,
456      . 0.49360, 0.29045,  1.19620, 0.10293, 0.00548, 0.00005, 0.05421,
457      . 0.49354, 0.28535,  1.16590, 0.10129, 0.00871, 0.00005, 0.05502,
458      . 0.49301, 0.28021,  1.13179, 0.09962, 0.01128, 0.00013, 0.05548,
459      . 0.49179, 0.27552,  1.09646, 0.09797, 0.01336, 0.00017, 0.05570,
460      . 0.49033, 0.27095,  1.06102, 0.09627, 0.01514, 0.00106, 0.05577,
461      . 0.48830, 0.26669,  1.02571, 0.09467, 0.01656, 0.00329, 0.05569,
462      . 0.48614, 0.26255,  0.99136, 0.09307, 0.01778, 0.00496, 0.05548,
463      . 0.48385, 0.25857,  0.95828, 0.09149, 0.01882, 0.00640, 0.05520,
464      . 0.48145, 0.25478,  0.92670, 0.08994, 0.01973, 0.00769, 0.05486,
465      . 0.47886, 0.25117,  0.89627, 0.08844, 0.02045, 0.00882, 0.05448,
466      . 0.47624, 0.24767,  0.86710, 0.08697, 0.02104, 0.00976, 0.05407,
467      . 0.47364, 0.24432,  0.83965, 0.08557, 0.02155, 0.01058, 0.05364,
468      . 0.47088, 0.24103,  0.81318, 0.08418, 0.02195, 0.01134, 0.05317,
469      . 0.46810, 0.23793,  0.78823, 0.08284, 0.02231, 0.01199, 0.05270,
470      . 0.46523, 0.23499,  0.76441, 0.08155, 0.02261, 0.01251, 0.05221,
471      . 0.46241, 0.23212,  0.74179, 0.08029, 0.02285, 0.01298, 0.05172,
472      . 0.45964, 0.22930,  0.72027, 0.07906, 0.02305, 0.01340, 0.05122,
473      . 0.45690, 0.22656,  0.69982, 0.07788, 0.02321, 0.01378, 0.05070 /
474       DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) /
475      . 0.53565, 0.29457,  1.06752, 0.08205, 0.00127, 0.00014, 0.04173,
476      . 0.53256, 0.28702,  1.02661, 0.08022, 0.00432, 0.00014, 0.04233,
477      . 0.52889, 0.28011,  0.98412, 0.07836, 0.00677, 0.00009, 0.04266,
478      . 0.52481, 0.27360,  0.94166, 0.07661, 0.00871, 0.00014, 0.04268,
479      . 0.52045, 0.26755,  0.90066, 0.07487, 0.01023, 0.00017, 0.04262,
480      . 0.51596, 0.26194,  0.86167, 0.07315, 0.01155, 0.00083, 0.04244,
481      . 0.51124, 0.25668,  0.82432, 0.07157, 0.01251, 0.00251, 0.04207,
482      . 0.50666, 0.25160,  0.78911, 0.06998, 0.01335, 0.00371, 0.04170,
483      . 0.50208, 0.24676,  0.75608, 0.06845, 0.01405, 0.00477, 0.04132,
484      . 0.49751, 0.24222,  0.72520, 0.06699, 0.01463, 0.00569, 0.04090,
485      . 0.49287, 0.23797,  0.69608, 0.06559, 0.01511, 0.00638, 0.04040,
486      . 0.48832, 0.23380,  0.66870, 0.06422, 0.01549, 0.00706, 0.03994,
487      . 0.48392, 0.22983,  0.64325, 0.06291, 0.01582, 0.00768, 0.03950,
488      . 0.47940, 0.22611,  0.61913, 0.06165, 0.01606, 0.00813, 0.03902,
489      . 0.47503, 0.22254,  0.59660, 0.06046, 0.01625, 0.00854, 0.03852,
490      . 0.47074, 0.21907,  0.57532, 0.05933, 0.01640, 0.00890, 0.03800,
491      . 0.46652, 0.21577,  0.55535, 0.05823, 0.01651, 0.00923, 0.03749,
492      . 0.46236, 0.21264,  0.53656, 0.05716, 0.01660, 0.00953, 0.03699,
493      . 0.45829, 0.20962,  0.51886, 0.05614, 0.01665, 0.00979, 0.03650 /
494       DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) /
495      . 0.56667, 0.28691,  0.93372, 0.06327, 0.00094, 0.00002, 0.03212,
496      . 0.55919, 0.27778,  0.88238, 0.06147, 0.00339, 0.00001, 0.03244,
497      . 0.55158, 0.26949,  0.83316, 0.05969, 0.00528, 0.00001, 0.03258,
498      . 0.54405, 0.26182,  0.78684, 0.05805, 0.00675, 0.00001, 0.03240,
499      . 0.53662, 0.25472,  0.74383, 0.05641, 0.00795, 0.00006, 0.03223,
500      . 0.52935, 0.24822,  0.70417, 0.05488, 0.00883, 0.00063, 0.03195,
501      . 0.52215, 0.24217,  0.66729, 0.05339, 0.00955, 0.00181, 0.03161,
502      . 0.51517, 0.23642,  0.63320, 0.05198, 0.01015, 0.00279, 0.03119,
503      . 0.50831, 0.23105,  0.60180, 0.05065, 0.01065, 0.00359, 0.03075,
504      . 0.50163, 0.22600,  0.57289, 0.04939, 0.01105, 0.00425, 0.03031,
505      . 0.49515, 0.22120,  0.54601, 0.04818, 0.01132, 0.00480, 0.02987,
506      . 0.48880, 0.21671,  0.52111, 0.04701, 0.01154, 0.00526, 0.02943,
507      . 0.48271, 0.21248,  0.49822, 0.04590, 0.01173, 0.00565, 0.02900,
508      . 0.47677, 0.20831,  0.47692, 0.04485, 0.01191, 0.00595, 0.02849,
509      . 0.47108, 0.20436,  0.45715, 0.04384, 0.01203, 0.00623, 0.02802,
510      . 0.46557, 0.20058,  0.43858, 0.04287, 0.01208, 0.00649, 0.02760,
511      . 0.46017, 0.19701,  0.42125, 0.04193, 0.01213, 0.00669, 0.02717,
512      . 0.45488, 0.19362,  0.40505, 0.04104, 0.01219, 0.00684, 0.02672,
513      . 0.44971, 0.19040,  0.38995, 0.04018, 0.01221, 0.00698, 0.02630 /
514       DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) /
515      . 0.58603, 0.27450,  0.81460, 0.04797, 0.00070,-0.00003, 0.02439,
516      . 0.57422, 0.26421,  0.75768, 0.04637, 0.00267, 0.00000, 0.02452,
517      . 0.56283, 0.25493,  0.70575, 0.04484, 0.00412, 0.00013, 0.02455,
518      . 0.55199, 0.24647,  0.65847, 0.04342, 0.00519, 0.00012, 0.02432,
519      . 0.54166, 0.23880,  0.61574, 0.04199, 0.00604, 0.00007, 0.02414,
520      . 0.53174, 0.23162,  0.57734, 0.04073, 0.00669, 0.00046, 0.02381,
521      . 0.52210, 0.22513,  0.54221, 0.03949, 0.00722, 0.00141, 0.02344,
522      . 0.51288, 0.21904,  0.51031, 0.03832, 0.00764, 0.00207, 0.02303,
523      . 0.50416, 0.21328,  0.48142, 0.03720, 0.00797, 0.00264, 0.02262,
524      . 0.49583, 0.20788,  0.45520, 0.03613, 0.00823, 0.00313, 0.02222,
525      . 0.48761, 0.20289,  0.43115, 0.03512, 0.00846, 0.00346, 0.02183,
526      . 0.47981, 0.19809,  0.40900, 0.03417, 0.00861, 0.00379, 0.02144,
527      . 0.47240, 0.19356,  0.38876, 0.03328, 0.00871, 0.00408, 0.02105,
528      . 0.46511, 0.18935,  0.37002, 0.03242, 0.00877, 0.00430, 0.02063,
529      . 0.45817, 0.18536,  0.35284, 0.03161, 0.00882, 0.00449, 0.02024,
530      . 0.45149, 0.18152,  0.33697, 0.03083, 0.00888, 0.00464, 0.01986,
531      . 0.44501, 0.17789,  0.32226, 0.03010, 0.00888, 0.00478, 0.01948,
532      . 0.43873, 0.17445,  0.30861, 0.02941, 0.00885, 0.00491, 0.01911,
533      . 0.43269, 0.17115,  0.29590, 0.02875, 0.00883, 0.00502, 0.01876 /
534       DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) /
535      . 0.59421, 0.25900,  0.70797, 0.03584, 0.00053, 0.00007, 0.01821,
536      . 0.57849, 0.24775,  0.64885, 0.03451, 0.00203, 0.00005, 0.01832,
537      . 0.56376, 0.23772,  0.59664, 0.03321, 0.00321, 0.00010, 0.01829,
538      . 0.54985, 0.22883,  0.55044, 0.03205, 0.00402, 0.00004, 0.01807,
539      . 0.53688, 0.22069,  0.50954, 0.03086, 0.00469, 0.00008, 0.01790,
540      . 0.52484, 0.21308,  0.47332, 0.02985, 0.00522, 0.00039, 0.01748,
541      . 0.51319, 0.20631,  0.44097, 0.02883, 0.00557, 0.00115, 0.01719,
542      . 0.50213, 0.19998,  0.41203, 0.02790, 0.00581, 0.00159, 0.01687,
543      . 0.49171, 0.19408,  0.38591, 0.02699, 0.00605, 0.00199, 0.01655,
544      . 0.48183, 0.18860,  0.36237, 0.02612, 0.00625, 0.00237, 0.01623,
545      . 0.47228, 0.18354,  0.34115, 0.02538, 0.00631, 0.00263, 0.01587,
546      . 0.46325, 0.17872,  0.32177, 0.02466, 0.00635, 0.00287, 0.01553,
547      . 0.45471, 0.17419,  0.30419, 0.02397, 0.00639, 0.00307, 0.01521,
548      . 0.44634, 0.17002,  0.28811, 0.02328, 0.00643, 0.00316, 0.01491,
549      . 0.43840, 0.16608,  0.27344, 0.02263, 0.00647, 0.00326, 0.01460,
550      . 0.43079, 0.16232,  0.25995, 0.02200, 0.00651, 0.00338, 0.01428,
551      . 0.42355, 0.15871,  0.24755, 0.02143, 0.00650, 0.00348, 0.01397,
552      . 0.41662, 0.15524,  0.23611, 0.02092, 0.00644, 0.00354, 0.01367,
553      . 0.40999, 0.15194,  0.22556, 0.02039, 0.00642, 0.00360, 0.01338 /
554       DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) /
555      . 0.59256, 0.24099,  0.61218, 0.02636, 0.00042, 0.00010, 0.01341,
556      . 0.57335, 0.22916,  0.55331, 0.02533, 0.00154, 0.00013, 0.01350,
557      . 0.55562, 0.21877,  0.50277, 0.02426, 0.00251, 0.00012, 0.01351,
558      . 0.53907, 0.20970,  0.45875, 0.02335, 0.00310, 0.00016, 0.01327,
559      . 0.52385, 0.20133,  0.42063, 0.02240, 0.00367, 0.00005, 0.01312,
560      . 0.50990, 0.19359,  0.38733, 0.02154, 0.00404, 0.00036, 0.01290,
561      . 0.49644, 0.18681,  0.35818, 0.02084, 0.00427, 0.00085, 0.01256,
562      . 0.48402, 0.18042,  0.33210, 0.02006, 0.00451, 0.00121, 0.01230,
563      . 0.47225, 0.17456,  0.30890, 0.01936, 0.00465, 0.00148, 0.01203,
564      . 0.46108, 0.16922,  0.28825, 0.01874, 0.00472, 0.00170, 0.01175,
565      . 0.45042, 0.16431,  0.26967, 0.01811, 0.00482, 0.00195, 0.01147,
566      . 0.44044, 0.15958,  0.25295, 0.01755, 0.00483, 0.00211, 0.01119,
567      . 0.43107, 0.15512,  0.23791, 0.01702, 0.00481, 0.00222, 0.01094,
568      . 0.42209, 0.15090,  0.22429, 0.01648, 0.00488, 0.00230, 0.01069,
569      . 0.41358, 0.14696,  0.21191, 0.01598, 0.00490, 0.00238, 0.01046,
570      . 0.40545, 0.14325,  0.20055, 0.01552, 0.00484, 0.00246, 0.01023,
571      . 0.39767, 0.13974,  0.19020, 0.01511, 0.00478, 0.00251, 0.00998,
572      . 0.39020, 0.13641,  0.18073, 0.01473, 0.00474, 0.00254, 0.00973,
573      . 0.38308, 0.13327,  0.17205, 0.01433, 0.00469, 0.00259, 0.00952 /
574       DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) /
575      . 0.58228, 0.22134,  0.52642, 0.01899, 0.00045, 0.00005, 0.00981,
576      . 0.55966, 0.20958,  0.46962, 0.01825, 0.00131, 0.00010, 0.00984,
577      . 0.53960, 0.19895,  0.42165, 0.01748, 0.00200, 0.00002, 0.00980,
578      . 0.52090, 0.18984,  0.38100, 0.01675, 0.00246, 0.00008, 0.00973,
579      . 0.50379, 0.18163,  0.34605, 0.01606, 0.00285, 0.00010, 0.00956,
580      . 0.48833, 0.17405,  0.31610, 0.01549, 0.00306, 0.00029, 0.00926,
581      . 0.47363, 0.16732,  0.28976, 0.01484, 0.00330, 0.00062, 0.00911,
582      . 0.45986, 0.16125,  0.26694, 0.01432, 0.00340, 0.00092, 0.00886,
583      . 0.44710, 0.15554,  0.24673, 0.01380, 0.00349, 0.00114, 0.00864,
584      . 0.43525, 0.15019,  0.22876, 0.01330, 0.00355, 0.00129, 0.00844,
585      . 0.42407, 0.14521,  0.21278, 0.01289, 0.00354, 0.00137, 0.00820,
586      . 0.41342, 0.14068,  0.19858, 0.01245, 0.00354, 0.00147, 0.00801,
587      . 0.40342, 0.13649,  0.18593, 0.01202, 0.00355, 0.00157, 0.00783,
588      . 0.39402, 0.13243,  0.17450, 0.01160, 0.00356, 0.00166, 0.00767,
589      . 0.38513, 0.12867,  0.16416, 0.01121, 0.00357, 0.00173, 0.00749,
590      . 0.37664, 0.12515,  0.15473, 0.01086, 0.00358, 0.00180, 0.00727,
591      . 0.36860, 0.12183,  0.14620, 0.01053, 0.00355, 0.00185, 0.00706,
592      . 0.36097, 0.11868,  0.13846, 0.01022, 0.00351, 0.00189, 0.00688,
593      . 0.35358, 0.11576,  0.13137, 0.00994, 0.00347, 0.00193, 0.00672 /
594       DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) /
595      . 0.56425, 0.20104,  0.44970, 0.01354, 0.00035, 0.00014, 0.00699,
596      . 0.53912, 0.18936,  0.39588, 0.01300, 0.00107, 0.00008, 0.00702,
597      . 0.51680, 0.17910,  0.35179, 0.01239, 0.00161, 0.00013, 0.00712,
598      . 0.49656, 0.17007,  0.31450, 0.01192, 0.00188, 0.00012, 0.00699,
599      . 0.47821, 0.16205,  0.28332, 0.01143, 0.00213, 0.00009, 0.00684,
600      . 0.46145, 0.15484,  0.25651, 0.01090, 0.00239, 0.00027, 0.00672,
601      . 0.44595, 0.14828,  0.23354, 0.01044, 0.00255, 0.00051, 0.00657,
602      . 0.43155, 0.14232,  0.21342, 0.01004, 0.00262, 0.00076, 0.00641,
603      . 0.41825, 0.13681,  0.19597, 0.00964, 0.00266, 0.00090, 0.00627,
604      . 0.40590, 0.13173,  0.18078, 0.00927, 0.00269, 0.00098, 0.00611,
605      . 0.39419, 0.12706,  0.16741, 0.00899, 0.00269, 0.00109, 0.00587,
606      . 0.38315, 0.12279,  0.15547, 0.00867, 0.00269, 0.00118, 0.00572,
607      . 0.37286, 0.11885,  0.14482, 0.00835, 0.00269, 0.00124, 0.00559,
608      . 0.36336, 0.11506,  0.13522, 0.00802, 0.00266, 0.00130, 0.00544,
609      . 0.35435, 0.11154,  0.12664, 0.00773, 0.00264, 0.00133, 0.00527,
610      . 0.34570, 0.10825,  0.11895, 0.00748, 0.00265, 0.00135, 0.00509,
611      . 0.33749, 0.10514,  0.11197, 0.00725, 0.00263, 0.00137, 0.00494,
612      . 0.32970, 0.10220,  0.10562, 0.00705, 0.00257, 0.00138, 0.00483,
613      . 0.32231, 0.09944,  0.09987, 0.00684, 0.00253, 0.00140, 0.00474 /
614       DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) /
615      . 0.53925, 0.18129,  0.38209, 0.00967, 0.00009,-0.00003, 0.00484,
616      . 0.51252, 0.16974,  0.33223, 0.00921, 0.00067,-0.00012, 0.00498,
617      . 0.48869, 0.15984,  0.29205, 0.00886, 0.00109,-0.00010, 0.00486,
618      . 0.46755, 0.15101,  0.25845, 0.00845, 0.00129,-0.00011, 0.00493,
619      . 0.44830, 0.14335,  0.23081, 0.00803, 0.00158,-0.00008, 0.00485,
620      . 0.43082, 0.13653,  0.20758, 0.00772, 0.00172, 0.00004, 0.00468,
621      . 0.41488, 0.13030,  0.18769, 0.00733, 0.00189, 0.00022, 0.00458,
622      . 0.40020, 0.12457,  0.17050, 0.00705, 0.00188, 0.00041, 0.00449,
623      . 0.38656, 0.11943,  0.15559, 0.00678, 0.00190, 0.00057, 0.00436,
624      . 0.37387, 0.11476,  0.14264, 0.00653, 0.00195, 0.00070, 0.00422,
625      . 0.36198, 0.11043,  0.13139, 0.00631, 0.00197, 0.00078, 0.00411,
626      . 0.35113, 0.10637,  0.12140, 0.00600, 0.00199, 0.00082, 0.00402,
627      . 0.34108, 0.10261,  0.11255, 0.00569, 0.00201, 0.00084, 0.00393,
628      . 0.33130, 0.09918,  0.10475, 0.00553, 0.00198, 0.00087, 0.00380,
629      . 0.32218, 0.09596,  0.09778, 0.00536, 0.00195, 0.00090, 0.00368,
630      . 0.31362, 0.09291,  0.09152, 0.00517, 0.00192, 0.00095, 0.00357,
631      . 0.30549, 0.09005,  0.08581, 0.00500, 0.00189, 0.00097, 0.00347,
632      . 0.29775, 0.08738,  0.08059, 0.00485, 0.00184, 0.00096, 0.00338,
633      . 0.29044, 0.08487,  0.07592, 0.00469, 0.00181, 0.00096, 0.00329 /
634       DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) /
635      . 0.50956, 0.16073,  0.32139, 0.00651, 0.00030, 0.00012, 0.00347,
636      . 0.48147, 0.14981,  0.27630, 0.00628, 0.00069, 0.00014, 0.00355,
637      . 0.45674, 0.14051,  0.24001, 0.00601, 0.00093, 0.00014, 0.00355,
638      . 0.43481, 0.13235,  0.21078, 0.00573, 0.00118, 0.00007, 0.00352,
639      . 0.41530, 0.12507,  0.18653, 0.00549, 0.00124, 0.00008, 0.00347,
640      . 0.39793, 0.11861,  0.16646, 0.00520, 0.00137, 0.00016, 0.00334,
641      . 0.38144, 0.11288,  0.14959, 0.00503, 0.00148, 0.00033, 0.00330,
642      . 0.36673, 0.10763,  0.13506, 0.00480, 0.00148, 0.00041, 0.00317,
643      . 0.35307, 0.10289,  0.12255, 0.00460, 0.00146, 0.00046, 0.00307,
644      . 0.34038, 0.09857,  0.11176, 0.00442, 0.00143, 0.00053, 0.00301,
645      . 0.32883, 0.09458,  0.10237, 0.00422, 0.00143, 0.00061, 0.00291,
646      . 0.31783, 0.09093,  0.09410, 0.00408, 0.00147, 0.00068, 0.00284,
647      . 0.30758, 0.08756,  0.08683, 0.00395, 0.00151, 0.00073, 0.00277,
648      . 0.29820, 0.08432,  0.08044, 0.00380, 0.00148, 0.00070, 0.00269,
649      . 0.28933, 0.08137,  0.07477, 0.00367, 0.00144, 0.00069, 0.00260,
650      . 0.28082, 0.07870,  0.06971, 0.00357, 0.00140, 0.00070, 0.00246,
651      . 0.27290, 0.07616,  0.06514, 0.00346, 0.00137, 0.00068, 0.00237,
652      . 0.26550, 0.07374,  0.06100, 0.00334, 0.00134, 0.00064, 0.00232,
653      . 0.25853, 0.07148,  0.05729, 0.00322, 0.00132, 0.00066, 0.00226 /
654       DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) /
655      . 0.47552, 0.14182,  0.26875, 0.00449, 0.00010,-0.00001, 0.00235,
656      . 0.44681, 0.13155,  0.22819, 0.00432, 0.00043,-0.00004, 0.00242,
657      . 0.42189, 0.12271,  0.19638, 0.00422, 0.00058,-0.00001, 0.00236,
658      . 0.39992, 0.11500,  0.17102, 0.00398, 0.00081,-0.00006, 0.00238,
659      . 0.38054, 0.10831,  0.15007, 0.00372, 0.00093,-0.00004, 0.00234,
660      . 0.36285, 0.10241,  0.13295, 0.00362, 0.00097, 0.00003, 0.00229,
661      . 0.34679, 0.09711,  0.11855, 0.00352, 0.00099, 0.00020, 0.00222,
662      . 0.33221, 0.09234,  0.10642, 0.00331, 0.00107, 0.00028, 0.00218,
663      . 0.31878, 0.08800,  0.09599, 0.00316, 0.00108, 0.00031, 0.00210,
664      . 0.30640, 0.08405,  0.08702, 0.00306, 0.00104, 0.00032, 0.00203,
665      . 0.29506, 0.08044,  0.07934, 0.00295, 0.00105, 0.00035, 0.00201,
666      . 0.28462, 0.07711,  0.07265, 0.00283, 0.00104, 0.00037, 0.00193,
667      . 0.27499, 0.07404,  0.06678, 0.00271, 0.00103, 0.00039, 0.00185,
668      . 0.26590, 0.07120,  0.06161, 0.00260, 0.00101, 0.00044, 0.00178,
669      . 0.25738, 0.06857,  0.05702, 0.00250, 0.00099, 0.00047, 0.00172,
670      . 0.24931, 0.06615,  0.05292, 0.00242, 0.00096, 0.00045, 0.00167,
671      . 0.24174, 0.06387,  0.04928, 0.00235, 0.00092, 0.00046, 0.00162,
672      . 0.23462, 0.06173,  0.04603, 0.00230, 0.00089, 0.00048, 0.00158,
673      . 0.22798, 0.05971,  0.04311, 0.00224, 0.00087, 0.00049, 0.00153 /
674       DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) /
675      . 0.43863, 0.12327,  0.22232, 0.00294, 0.00013, 0.00004, 0.00163,
676      . 0.41024, 0.11375,  0.18686, 0.00279, 0.00035, 0.00008, 0.00168,
677      . 0.38542, 0.10568,  0.15923, 0.00275, 0.00055, 0.00009, 0.00172,
678      . 0.36340, 0.09875,  0.13722, 0.00265, 0.00068, 0.00004, 0.00168,
679      . 0.34409, 0.09257,  0.11959, 0.00258, 0.00074,-0.00001, 0.00158,
680      . 0.32710, 0.08725,  0.10512, 0.00240, 0.00078, 0.00003, 0.00164,
681      . 0.31150, 0.08249,  0.09316, 0.00232, 0.00074, 0.00014, 0.00159,
682      . 0.29748, 0.07809,  0.08303, 0.00225, 0.00074, 0.00019, 0.00152,
683      . 0.28460, 0.07421,  0.07451, 0.00218, 0.00076, 0.00023, 0.00145,
684      . 0.27274, 0.07075,  0.06727, 0.00209, 0.00076, 0.00027, 0.00139,
685      . 0.26190, 0.06754,  0.06100, 0.00201, 0.00072, 0.00027, 0.00133,
686      . 0.25188, 0.06456,  0.05558, 0.00192, 0.00070, 0.00031, 0.00128,
687      . 0.24261, 0.06183,  0.05087, 0.00184, 0.00069, 0.00033, 0.00124,
688      . 0.23382, 0.05940,  0.04669, 0.00180, 0.00069, 0.00031, 0.00117,
689      . 0.22578, 0.05711,  0.04305, 0.00174, 0.00069, 0.00030, 0.00113,
690      . 0.21842, 0.05491,  0.03987, 0.00165, 0.00068, 0.00032, 0.00112,
691      . 0.21149, 0.05288,  0.03702, 0.00157, 0.00068, 0.00034, 0.00109,
692      . 0.20496, 0.05100,  0.03445, 0.00152, 0.00068, 0.00037, 0.00105,
693      . 0.19877, 0.04925,  0.03215, 0.00147, 0.00068, 0.00038, 0.00102 /
694       DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) /
695      . 0.40002, 0.10618,  0.18253, 0.00189, 0.00013, 0.00003, 0.00112,
696      . 0.37203, 0.09758,  0.15187, 0.00184, 0.00030, 0.00003, 0.00116,
697      . 0.34785, 0.09026,  0.12830, 0.00180, 0.00036, 0.00006, 0.00117,
698      . 0.32671, 0.08393,  0.10967, 0.00177, 0.00041, 0.00005, 0.00107,
699      . 0.30823, 0.07848,  0.09477, 0.00171, 0.00048, 0.00005, 0.00105,
700      . 0.29166, 0.07371,  0.08260, 0.00168, 0.00047, 0.00004, 0.00104,
701      . 0.27687, 0.06943,  0.07270, 0.00162, 0.00048, 0.00010, 0.00098,
702      . 0.26356, 0.06557,  0.06446, 0.00149, 0.00052, 0.00009, 0.00096,
703      . 0.25152, 0.06210,  0.05751, 0.00141, 0.00051, 0.00011, 0.00095,
704      . 0.24051, 0.05898,  0.05160, 0.00136, 0.00048, 0.00016, 0.00093,
705      . 0.23025, 0.05617,  0.04655, 0.00132, 0.00048, 0.00019, 0.00086,
706      . 0.22088, 0.05359,  0.04223, 0.00127, 0.00049, 0.00021, 0.00084,
707      . 0.21227, 0.05123,  0.03849, 0.00122, 0.00050, 0.00022, 0.00083,
708      . 0.20406, 0.04907,  0.03523, 0.00119, 0.00049, 0.00018, 0.00079,
709      . 0.19661, 0.04706,  0.03236, 0.00114, 0.00048, 0.00017, 0.00075,
710      . 0.18986, 0.04516,  0.02983, 0.00106, 0.00045, 0.00019, 0.00072,
711      . 0.18336, 0.04343,  0.02760, 0.00102, 0.00043, 0.00019, 0.00068,
712      . 0.17710, 0.04185,  0.02562, 0.00101, 0.00040, 0.00017, 0.00063,
713      . 0.17136, 0.04036,  0.02386, 0.00099, 0.00040, 0.00018, 0.00061 /
714       DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) /
715      . 0.36031, 0.09044,  0.14833, 0.00126, 0.00012, 0.00003, 0.00067,
716      . 0.33313, 0.08255,  0.12189, 0.00128, 0.00017, 0.00003, 0.00070,
717      . 0.30994, 0.07604,  0.10181, 0.00119, 0.00027,-0.00003, 0.00080,
718      . 0.28974, 0.07039,  0.08623, 0.00119, 0.00033,-0.00003, 0.00070,
719      . 0.27255, 0.06547,  0.07381, 0.00107, 0.00032,-0.00003, 0.00073,
720      . 0.25689, 0.06128,  0.06396, 0.00105, 0.00037, 0.00003, 0.00073,
721      . 0.24290, 0.05751,  0.05592, 0.00104, 0.00039, 0.00009, 0.00071,
722      . 0.23047, 0.05421,  0.04925, 0.00097, 0.00041, 0.00014, 0.00072,
723      . 0.21914, 0.05120,  0.04365, 0.00095, 0.00042, 0.00015, 0.00068,
724      . 0.20876, 0.04844,  0.03893, 0.00095, 0.00041, 0.00014, 0.00063,
725      . 0.19921, 0.04598,  0.03496, 0.00092, 0.00041, 0.00014, 0.00066,
726      . 0.19060, 0.04376,  0.03155, 0.00086, 0.00039, 0.00013, 0.00061,
727      . 0.18275, 0.04173,  0.02861, 0.00081, 0.00036, 0.00013, 0.00055,
728      . 0.17548, 0.03982,  0.02606, 0.00075, 0.00037, 0.00014, 0.00055,
729      . 0.16870, 0.03809,  0.02384, 0.00071, 0.00038, 0.00015, 0.00053,
730      . 0.16230, 0.03652,  0.02191, 0.00069, 0.00037, 0.00016, 0.00049,
731      . 0.15638, 0.03506,  0.02020, 0.00068, 0.00036, 0.00016, 0.00047,
732      . 0.15088, 0.03371,  0.01869, 0.00067, 0.00035, 0.00016, 0.00047,
733      . 0.14577, 0.03243,  0.01735, 0.00064, 0.00035, 0.00017, 0.00047 /
734       DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) /
735      . 0.32078, 0.07613,  0.11944, 0.00082, 0.00002,-0.00002, 0.00039,
736      . 0.29500, 0.06916,  0.09707, 0.00085, 0.00009,-0.00004, 0.00041,
737      . 0.27308, 0.06336,  0.08019, 0.00088, 0.00018,-0.00005, 0.00043,
738      . 0.25438, 0.05849,  0.06738, 0.00077, 0.00018,-0.00007, 0.00043,
739      . 0.23803, 0.05425,  0.05723, 0.00077, 0.00020,-0.00005, 0.00045,
740      . 0.22388, 0.05054,  0.04922, 0.00066, 0.00018,-0.00003, 0.00045,
741      . 0.21075, 0.04730,  0.04271, 0.00069, 0.00023,-0.00001, 0.00046,
742      . 0.19927, 0.04442,  0.03739, 0.00067, 0.00023, 0.00005, 0.00040,
743      . 0.18901, 0.04181,  0.03299, 0.00062, 0.00021, 0.00005, 0.00037,
744      . 0.17970, 0.03946,  0.02930, 0.00056, 0.00019, 0.00003, 0.00038,
745      . 0.17111, 0.03739,  0.02617, 0.00053, 0.00021, 0.00008, 0.00039,
746      . 0.16320, 0.03549,  0.02352, 0.00054, 0.00021, 0.00007, 0.00037,
747      . 0.15597, 0.03374,  0.02124, 0.00055, 0.00020, 0.00006, 0.00034,
748      . 0.14943, 0.03214,  0.01926, 0.00052, 0.00020, 0.00009, 0.00034,
749      . 0.14340, 0.03069,  0.01755, 0.00047, 0.00021, 0.00010, 0.00033,
750      . 0.13781, 0.02936,  0.01607, 0.00042, 0.00022, 0.00010, 0.00033,
751      . 0.13253, 0.02813,  0.01477, 0.00039, 0.00023, 0.00010, 0.00032,
752      . 0.12753, 0.02698,  0.01363, 0.00039, 0.00023, 0.00009, 0.00030,
753      . 0.12292, 0.02590,  0.01262, 0.00039, 0.00022, 0.00008, 0.00029 /
754       DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) /
755      . 0.28175, 0.06315,  0.09488, 0.00054, 0.00003,-0.00003, 0.00025,
756      . 0.25773, 0.05714,  0.07618, 0.00055, 0.00008,-0.00002, 0.00027,
757      . 0.23779, 0.05208,  0.06242, 0.00052, 0.00011,-0.00003, 0.00028,
758      . 0.22023, 0.04781,  0.05195, 0.00054, 0.00012,-0.00008, 0.00026,
759      . 0.20554, 0.04424,  0.04383, 0.00044, 0.00011,-0.00002, 0.00026,
760      . 0.19201, 0.04104,  0.03738, 0.00054, 0.00017,-0.00004, 0.00026,
761      . 0.18043, 0.03829,  0.03222, 0.00051, 0.00017,-0.00001, 0.00028,
762      . 0.17023, 0.03587,  0.02801, 0.00042, 0.00013, 0.00001, 0.00026,
763      . 0.16089, 0.03368,  0.02454, 0.00039, 0.00013, 0.00002, 0.00025,
764      . 0.15237, 0.03171,  0.02167, 0.00039, 0.00016, 0.00003, 0.00026,
765      . 0.14475, 0.02996,  0.01929, 0.00038, 0.00016, 0.00004, 0.00025,
766      . 0.13772, 0.02836,  0.01726, 0.00037, 0.00014, 0.00003, 0.00022,
767      . 0.13129, 0.02689,  0.01552, 0.00035, 0.00013, 0.00002, 0.00019,
768      . 0.12546, 0.02556,  0.01403, 0.00034, 0.00014, 0.00006, 0.00022,
769      . 0.12011, 0.02434,  0.01275, 0.00032, 0.00015, 0.00007, 0.00023,
770      . 0.11516, 0.02320,  0.01163, 0.00030, 0.00016, 0.00006, 0.00022,
771      . 0.11056, 0.02218,  0.01065, 0.00027, 0.00015, 0.00006, 0.00021,
772      . 0.10626, 0.02126,  0.00979, 0.00026, 0.00014, 0.00006, 0.00020,
773      . 0.10224, 0.02039,  0.00903, 0.00025, 0.00014, 0.00007, 0.00019 /
774       DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) /
775      . 0.24454, 0.05173,  0.07442, 0.00033,-0.00006,-0.00009, 0.00007,
776      . 0.22257, 0.04648,  0.05909, 0.00035, 0.00006,-0.00008, 0.00012,
777      . 0.20381, 0.04224,  0.04785, 0.00040, 0.00008,-0.00004, 0.00020,
778      . 0.18848, 0.03857,  0.03941, 0.00031, 0.00008,-0.00008, 0.00013,
779      . 0.17453, 0.03555,  0.03295, 0.00038, 0.00012,-0.00005, 0.00021,
780      . 0.16321, 0.03286,  0.02791, 0.00024, 0.00016,-0.00002, 0.00021,
781      . 0.15259, 0.03052,  0.02388, 0.00028, 0.00009,-0.00004, 0.00015,
782      . 0.14337, 0.02848,  0.02064, 0.00025, 0.00009,-0.00003, 0.00015,
783      . 0.13509, 0.02665,  0.01799, 0.00023, 0.00011,-0.00001, 0.00016,
784      . 0.12761, 0.02503,  0.01580, 0.00024, 0.00012, 0.00001, 0.00017,
785      . 0.12086, 0.02358,  0.01397, 0.00022, 0.00011, 0.00002, 0.00016,
786      . 0.11471, 0.02225,  0.01244, 0.00020, 0.00012, 0.00003, 0.00017,
787      . 0.10913, 0.02105,  0.01113, 0.00019, 0.00012, 0.00004, 0.00018,
788      . 0.10398, 0.01996,  0.01002, 0.00018, 0.00014, 0.00005, 0.00016,
789      . 0.09924, 0.01896,  0.00907, 0.00018, 0.00014, 0.00005, 0.00015,
790      . 0.09484, 0.01805,  0.00825, 0.00019, 0.00013, 0.00005, 0.00015,
791      . 0.09083, 0.01721,  0.00753, 0.00017, 0.00012, 0.00004, 0.00015,
792      . 0.08716, 0.01644,  0.00690, 0.00014, 0.00010, 0.00003, 0.00014,
793      . 0.08370, 0.01572,  0.00634, 0.00014, 0.00010, 0.00004, 0.00014 /
794       DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) /
795      . 0.20903, 0.04168,  0.05745, 0.00023,-0.00001,-0.00002, 0.00006,
796      . 0.18910, 0.03726,  0.04501, 0.00019, 0.00001,-0.00009, 0.00008,
797      . 0.17233, 0.03364,  0.03606, 0.00028, 0.00003,-0.00005, 0.00010,
798      . 0.15841, 0.03062,  0.02945, 0.00021, 0.00002,-0.00007, 0.00010,
799      . 0.14648, 0.02807,  0.02442, 0.00019, 0.00004,-0.00006, 0.00013,
800      . 0.13626, 0.02583,  0.02051, 0.00015, 0.00006,-0.00007, 0.00011,
801      . 0.12688, 0.02392,  0.01743, 0.00019, 0.00005, 0.00000, 0.00012,
802      . 0.11869, 0.02222,  0.01495, 0.00019, 0.00009, 0.00001, 0.00014,
803      . 0.11156, 0.02074,  0.01296, 0.00015, 0.00010, 0.00002, 0.00014,
804      . 0.10522, 0.01942,  0.01132, 0.00010, 0.00009, 0.00002, 0.00012,
805      . 0.09931, 0.01822,  0.00996, 0.00012, 0.00009, 0.00003, 0.00011,
806      . 0.09391, 0.01716,  0.00882, 0.00013, 0.00010, 0.00004, 0.00011,
807      . 0.08904, 0.01621,  0.00786, 0.00014, 0.00010, 0.00005, 0.00012,
808      . 0.08471, 0.01533,  0.00704, 0.00011, 0.00010, 0.00005, 0.00012,
809      . 0.08071, 0.01452,  0.00635, 0.00009, 0.00010, 0.00006, 0.00012,
810      . 0.07699, 0.01379,  0.00574, 0.00009, 0.00011, 0.00006, 0.00012,
811      . 0.07356, 0.01312,  0.00523, 0.00008, 0.00010, 0.00006, 0.00012,
812      . 0.07039, 0.01250,  0.00478, 0.00006, 0.00009, 0.00005, 0.00012,
813      . 0.06745, 0.01193,  0.00438, 0.00005, 0.00009, 0.00004, 0.00011 /
814       DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) /
815      . 0.17631, 0.03314,  0.04389, 0.00016,-0.00008,-0.00010,-0.00003,
816      . 0.15869, 0.02945,  0.03396, 0.00017,-0.00003,-0.00009, 0.00001,
817      . 0.14415, 0.02645,  0.02688, 0.00013, 0.00000,-0.00007, 0.00003,
818      . 0.13179, 0.02399,  0.02174, 0.00014, 0.00000,-0.00007, 0.00005,
819      . 0.12124, 0.02187,  0.01789, 0.00015, 0.00004,-0.00003, 0.00007,
820      . 0.11218, 0.02011,  0.01494, 0.00014, 0.00002,-0.00005, 0.00005,
821      . 0.10434, 0.01851,  0.01260, 0.00009, 0.00004,-0.00004, 0.00007,
822      . 0.09724, 0.01715,  0.01075, 0.00011, 0.00004,-0.00002, 0.00006,
823      . 0.09095, 0.01596,  0.00926, 0.00011, 0.00004,-0.00001, 0.00005,
824      . 0.08540, 0.01491,  0.00804, 0.00011, 0.00006,-0.00001, 0.00006,
825      . 0.08050, 0.01395,  0.00704, 0.00008, 0.00005, 0.00000, 0.00007,
826      . 0.07596, 0.01310,  0.00620, 0.00008, 0.00004, 0.00001, 0.00007,
827      . 0.07184, 0.01234,  0.00550, 0.00007, 0.00005, 0.00000, 0.00006,
828      . 0.06814, 0.01164,  0.00492, 0.00008, 0.00005, 0.00001, 0.00006,
829      . 0.06475, 0.01101,  0.00442, 0.00007, 0.00005, 0.00001, 0.00006,
830      . 0.06162, 0.01042,  0.00399, 0.00006, 0.00005, 0.00001, 0.00006,
831      . 0.05873, 0.00989,  0.00362, 0.00006, 0.00005, 0.00001, 0.00006,
832      . 0.05604, 0.00941,  0.00330, 0.00007, 0.00004, 0.00002, 0.00005,
833      . 0.05358, 0.00897,  0.00302, 0.00007, 0.00004, 0.00002, 0.00005 /
834       DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) /
835      . 0.14600, 0.02568,  0.03269, 0.00008,-0.00001,-0.00002, 0.00002,
836      . 0.13062, 0.02277,  0.02506, 0.00011,-0.00001,-0.00002, 0.00000,
837      . 0.11797, 0.02038,  0.01970, 0.00008, 0.00001,-0.00005, 0.00000,
838      . 0.10747, 0.01839,  0.01580, 0.00010, 0.00002, 0.00000, 0.00003,
839      . 0.09860, 0.01671,  0.01289, 0.00007, 0.00001,-0.00002, 0.00005,
840      . 0.09073, 0.01530,  0.01067, 0.00011, 0.00002,-0.00001, 0.00004,
841      . 0.08405, 0.01409,  0.00895, 0.00010, 0.00003, 0.00001, 0.00005,
842      . 0.07820, 0.01300,  0.00759, 0.00008, 0.00003, 0.00000, 0.00005,
843      . 0.07299, 0.01206,  0.00650, 0.00008, 0.00003, 0.00000, 0.00004,
844      . 0.06834, 0.01122,  0.00561, 0.00008, 0.00003, 0.00001, 0.00003,
845      . 0.06419, 0.01048,  0.00489, 0.00006, 0.00003, 0.00000, 0.00004,
846      . 0.06039, 0.00982,  0.00430, 0.00006, 0.00003, 0.00000, 0.00003,
847      . 0.05696, 0.00923,  0.00379, 0.00006, 0.00002,-0.00001, 0.00002,
848      . 0.05389, 0.00869,  0.00338, 0.00005, 0.00001,-0.00001, 0.00001,
849      . 0.05108, 0.00820,  0.00302, 0.00005, 0.00000,-0.00001, 0.00001,
850      . 0.04849, 0.00775,  0.00272, 0.00005, 0.00001, 0.00000, 0.00001,
851      . 0.04614, 0.00734,  0.00246, 0.00005, 0.00001, 0.00000, 0.00001,
852      . 0.04399, 0.00697,  0.00223, 0.00004, 0.00002, 0.00000, 0.00002,
853      . 0.04199, 0.00663,  0.00204, 0.00004, 0.00002, 0.00000, 0.00002 /
854       DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) /
855      . 0.09475, 0.01458,  0.01709, 0.00001, 0.00001, 0.00000, 0.00000,
856      . 0.08369, 0.01275,  0.01275, 0.00002, 0.00001,-0.00002, 0.00001,
857      . 0.07467, 0.01127,  0.00978, 0.00005, 0.00001,-0.00002, 0.00001,
858      . 0.06742, 0.01007,  0.00768, 0.00002, 0.00002, 0.00000, 0.00002,
859      . 0.06110, 0.00909,  0.00615, 0.00006, 0.00001, 0.00000, 0.00002,
860      . 0.05598, 0.00824,  0.00500, 0.00002, 0.00002, 0.00001, 0.00002,
861      . 0.05144, 0.00752,  0.00413, 0.00001, 0.00002, 0.00001, 0.00002,
862      . 0.04743, 0.00689,  0.00345, 0.00002, 0.00002, 0.00001, 0.00002,
863      . 0.04395, 0.00635,  0.00292, 0.00002, 0.00002, 0.00000, 0.00002,
864      . 0.04088, 0.00587,  0.00249, 0.00001, 0.00002, 0.00000, 0.00002,
865      . 0.03810, 0.00545,  0.00215, 0.00001, 0.00002, 0.00000, 0.00002,
866      . 0.03564, 0.00507,  0.00186, 0.00001, 0.00002, 0.00001, 0.00002,
867      . 0.03343, 0.00473,  0.00163, 0.00001, 0.00002, 0.00001, 0.00001,
868      . 0.03142, 0.00443,  0.00144, 0.00002, 0.00002, 0.00001, 0.00001,
869      . 0.02961, 0.00416,  0.00128, 0.00002, 0.00001, 0.00001, 0.00001,
870      . 0.02797, 0.00391,  0.00114, 0.00002, 0.00001, 0.00001, 0.00001,
871      . 0.02647, 0.00369,  0.00102, 0.00002, 0.00001, 0.00001, 0.00001,
872      . 0.02511, 0.00349,  0.00092, 0.00001, 0.00001, 0.00001, 0.00002,
873      . 0.02386, 0.00330,  0.00084, 0.00001, 0.00001, 0.00001, 0.00001 /
874       DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) /
875      . 0.05613, 0.00748,  0.00807, 0.00003, 0.00000,-0.00001, 0.00000,
876      . 0.04898, 0.00646,  0.00585, 0.00001, 0.00000,-0.00002,-0.00001,
877      . 0.04331, 0.00565,  0.00439, 0.00000,-0.00001,-0.00002,-0.00001,
878      . 0.03867, 0.00499,  0.00337, 0.00000, 0.00000, 0.00000, 0.00000,
879      . 0.03478, 0.00446,  0.00264,-0.00001, 0.00000,-0.00001, 0.00000,
880      . 0.03139, 0.00401,  0.00211, 0.00001, 0.00001, 0.00000, 0.00001,
881      . 0.02859, 0.00362,  0.00171, 0.00001, 0.00001, 0.00000, 0.00000,
882      . 0.02617, 0.00330,  0.00141, 0.00001, 0.00000, 0.00000, 0.00000,
883      . 0.02407, 0.00301,  0.00118, 0.00000, 0.00000, 0.00000, 0.00000,
884      . 0.02222, 0.00277,  0.00099, 0.00000, 0.00000, 0.00000, 0.00000,
885      . 0.02057, 0.00255,  0.00084, 0.00001, 0.00000, 0.00000, 0.00001,
886      . 0.01912, 0.00236,  0.00072, 0.00000, 0.00001, 0.00000, 0.00001,
887      . 0.01783, 0.00218,  0.00063, 0.00000, 0.00001, 0.00000, 0.00001,
888      . 0.01665, 0.00203,  0.00055, 0.00001, 0.00001, 0.00000, 0.00000,
889      . 0.01560, 0.00190,  0.00048, 0.00001, 0.00000, 0.00000, 0.00000,
890      . 0.01467, 0.00178,  0.00043, 0.00001, 0.00001, 0.00000, 0.00001,
891      . 0.01381, 0.00167,  0.00038, 0.00000, 0.00001, 0.00000, 0.00001,
892      . 0.01302, 0.00157,  0.00034, 0.00000, 0.00000, 0.00000, 0.00000,
893      . 0.01230, 0.00148,  0.00031, 0.00000, 0.00000, 0.00000, 0.00000 /
894       DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) /
895      . 0.02942, 0.00332,  0.00329, 0.00000, 0.00000,-0.00001, 0.00000,
896      . 0.02533, 0.00283,  0.00232, 0.00000, 0.00000, 0.00000, 0.00000,
897      . 0.02208, 0.00244,  0.00169, 0.00000, 0.00000, 0.00000, 0.00000,
898      . 0.01946, 0.00213,  0.00127, 0.00001, 0.00000, 0.00000, 0.00000,
899      . 0.01730, 0.00188,  0.00097, 0.00000, 0.00000, 0.00000, 0.00000,
900      . 0.01549, 0.00168,  0.00076, 0.00001, 0.00000, 0.00000, 0.00000,
901      . 0.01398, 0.00150,  0.00061, 0.00000, 0.00000, 0.00000, 0.00000,
902      . 0.01268, 0.00136,  0.00049, 0.00000, 0.00000, 0.00000, 0.00000,
903      . 0.01156, 0.00123,  0.00040, 0.00000, 0.00000, 0.00000, 0.00000,
904      . 0.01059, 0.00112,  0.00034, 0.00000, 0.00000, 0.00000, 0.00000,
905      . 0.00973, 0.00102,  0.00028, 0.00000, 0.00000, 0.00000, 0.00000,
906      . 0.00898, 0.00094,  0.00024, 0.00000, 0.00000, 0.00000, 0.00000,
907      . 0.00832, 0.00087,  0.00021, 0.00000, 0.00000, 0.00000, 0.00000,
908      . 0.00772, 0.00080,  0.00018, 0.00000, 0.00000, 0.00000, 0.00000,
909      . 0.00719, 0.00074,  0.00016, 0.00000, 0.00000, 0.00000, 0.00000,
910      . 0.00672, 0.00069,  0.00014, 0.00000, 0.00000, 0.00000, 0.00000,
911      . 0.00629, 0.00064,  0.00012, 0.00000, 0.00000, 0.00000, 0.00000,
912      . 0.00589, 0.00060,  0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
913      . 0.00554, 0.00056,  0.00010, 0.00000, 0.00000, 0.00000, 0.00000 /
914       DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) /
915      . 0.01301, 0.00121,  0.00109, 0.00000, 0.00000, 0.00000, 0.00000,
916      . 0.01101, 0.00101,  0.00074, 0.00000, 0.00000, 0.00000, 0.00000,
917      . 0.00944, 0.00086,  0.00052, 0.00000, 0.00000, 0.00000, 0.00000,
918      . 0.00820, 0.00074,  0.00038, 0.00000, 0.00000, 0.00000, 0.00000,
919      . 0.00719, 0.00064,  0.00028, 0.00000, 0.00000, 0.00000, 0.00000,
920      . 0.00637, 0.00057,  0.00022, 0.00000, 0.00000, 0.00000, 0.00000,
921      . 0.00568, 0.00050,  0.00017, 0.00000, 0.00000, 0.00000, 0.00000,
922      . 0.00510, 0.00045,  0.00014, 0.00000, 0.00000, 0.00000, 0.00000,
923      . 0.00460, 0.00040,  0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
924      . 0.00417, 0.00036,  0.00009, 0.00000, 0.00000, 0.00000, 0.00000,
925      . 0.00381, 0.00033,  0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
926      . 0.00348, 0.00030,  0.00006, 0.00000, 0.00000, 0.00000, 0.00000,
927      . 0.00319, 0.00027,  0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
928      . 0.00294, 0.00025,  0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
929      . 0.00272, 0.00023,  0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
930      . 0.00252, 0.00021,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
931      . 0.00234, 0.00020,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
932      . 0.00218, 0.00018,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
933      . 0.00203, 0.00017,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000 /
934       DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) /
935      . 0.00090, 0.00005,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
936      . 0.00073, 0.00004,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
937      . 0.00060, 0.00003,  0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
938      . 0.00050, 0.00003,  0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
939      . 0.00043, 0.00002,  0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
940      . 0.00036, 0.00002,  0.00001, 0.00000, 0.00000, 0.00000, 0.00000,
941      . 0.00031, 0.00002,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
942      . 0.00027, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
943      . 0.00024, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
944      . 0.00021, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
945      . 0.00019, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
946      . 0.00017, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
947      . 0.00015, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
948      . 0.00014, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
949      . 0.00012, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
950      . 0.00011, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
951      . 0.00010, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
952      . 0.00009, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
953      . 0.00008, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000 /
954
955 C
956 C     don't let x be altered if it's out of range!!
957 C
958       XSAVE=X
959 C
960       IF(INIT.NE.0) GOTO 10
961       INIT=1
962       DO 20 N=1,NX-1
963       DO 20 M=1,19
964 C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR
965          DO 25 I=1,7
966   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
967   20  CONTINUE
968       DO 30 J=1,NTENTH-1
969       XX(J)= LOG10(XX(J))+ONEDO
970       DO 30 I=1,6
971       DO 30 K=1,19
972   30  F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K))
973       DO 40 I=1,7
974       DO 40 M=1,19
975   40  F(I,NX,M)=ZEROD
976   10  CONTINUE
977       IF(X.LT.XMIN) X=XMIN
978       IF(X.GT.XMAX) X=XMAX
979       QSQ=SCALE**2
980       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
981       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
982       XXX=X
983       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
984       N=0
985   70  N=N+1
986       IF(XXX.GT.XX(N+1)) GOTO 70
987       A=(XXX-XX(N))/(XX(N+1)-XX(N))
988       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
989       B=RM-AINT(RM)
990       M=1+  INT(RM)
991       DO 60 I=1,7
992       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
993      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
994       IF(N.GE.NTENTH) GOTO 65
995       IF(I.EQ.7) GOTO 65
996           FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
997           G(I)=FAC**(G(I)/FAC)
998   65  CONTINUE
999       G(I)=G(I)*(ONED-X)**N0(I)
1000   60  CONTINUE
1001       UPV=G(1)
1002       DNV=G(2)
1003 C
1004 C     this sea is (ubar+dbar)/2
1005 C
1006       SEA=G(4)
1007       STR=G(6)
1008       CHM=G(5)
1009       GL =G(3)
1010       BOT=G(7)
1011 C
1012 C     restore x
1013 C
1014       X=XSAVE
1015 C
1016       RETURN
1017       END