]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/strh3ep.F
Addition of CPV library as a separate detector from PHOS
[u/mrichter/AliRoot.git] / PDF / spdf / strh3ep.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.2  1996/10/30 08:31:31  cernlib
6 * Version 7.04
7 *
8 * Revision 1.1.1.1  1996/04/12 15:29:55  plothow
9 * Version 7.01
10 *
11 *
12 #include "pdf/pilot.h"
13 C
14 C-----------------------------------------------------------------------
15       SUBROUTINE STRH3EP(X,SCALE,UPV,DNV,SEA,STR,CHM,BOT,GL)
16 C
17 C :::::::::::: HARRIMAN MARTIN ROBERTS STIRLING (E) sea=ubar=dbar=2sbar
18 C
19 #include "pdf/impdp.inc"
20       PARAMETER(NX=47)
21       PARAMETER(NTENTH=21)
22       DIMENSION F(7,NX,19),G(7),XX(NX),N0(7)
23       DATA XX/1.D-5,2.D-5,4.D-5,6.D-5,8.D-5,
24      .        1.D-4,2.D-4,4.D-4,6.D-4,8.D-4,
25      .        1.D-3,2.D-3,4.D-3,6.D-3,8.D-3,
26      .        1.D-2,2.D-2,4.D-2,6.D-2,8.D-2,
27      .     .1D0,.125D0,.15D0,.175D0,.2D0,.225D0,.25D0,.275D0,
28      .     .3D0,.325D0,.35D0,.375D0,.4D0,.425D0,.45D0,.475D0,
29      .     .5D0,.525D0,.55D0,.575D0,.6D0,.65D0,.7D0,.75D0,
30      .     .8D0,.9D0,1.D0/
31       DATA XMIN,XMAX,QSQMIN,QSQMAX/1.D-5,1.D0,5.D0,1310720.D0/
32       DATA N0/2,5,4,5,0,0,5/
33       DATA ZEROD/0.D0/,PONED/0.1D0/,ONED/1.D0/,ONEDO/1.1D0/,TWOD/2.D0/
34       DATA INIT/0/
35       DATA ((F(I,1,M),I=1,5),F(7,1,M),F(6,1,M),M=1,19) /
36      . 0.01969, 0.00164,  0.09195, 0.01912, 0.00451, 0.00000, 0.01181,
37      . 0.02025, 0.00179,  1.80084, 0.04394, 0.02883, 0.00000, 0.03639,
38      . 0.02075, 0.00193,  4.19046, 0.08673, 0.07115, 0.00000, 0.07895,
39      . 0.02122, 0.00206,  7.28293, 0.14772, 0.13172, 0.00000, 0.13973,
40      . 0.02166, 0.00219, 11.13947, 0.22748, 0.21106, 0.00249, 0.21928,
41      . 0.02208, 0.00231, 15.74975, 0.32609, 0.30929, 0.04857, 0.31770,
42      . 0.02247, 0.00243, 21.02483, 0.44215, 0.42497, 0.17603, 0.43357,
43      . 0.02285, 0.00255, 26.99445, 0.57644, 0.55891, 0.31205, 0.56769,
44      . 0.02321, 0.00266, 33.64830, 0.72906, 0.71118, 0.46562, 0.72014,
45      . 0.02356, 0.00277, 40.98059, 0.90018, 0.88197, 0.63832, 0.89109,
46      . 0.02389, 0.00288, 48.83829, 1.08661, 1.06809, 0.82601, 1.07737,
47      . 0.02421, 0.00299, 57.21460, 1.28838, 1.26954, 1.02898, 1.27898,
48      . 0.02452, 0.00309, 66.23915, 1.50867, 1.48954, 1.25043, 1.49913,
49      . 0.02482, 0.00320, 75.57774, 1.73989, 1.72047, 1.48274, 1.73021,
50      . 0.02510, 0.00330, 85.48186, 1.98809, 1.96839, 1.73197, 1.97826,
51      . 0.02538, 0.00340, 95.75615, 2.24880, 2.22882, 1.99366, 2.23884,
52      . 0.02566, 0.00349,106.43900, 2.52304, 2.50280, 2.26883, 2.51295,
53      . 0.02592, 0.00359,117.48085, 2.80970, 2.78920, 2.55638, 2.79948,
54      . 0.02618, 0.00368,128.87819, 3.10878, 3.08803, 2.85631, 3.09843 /
55       DATA ((F(I,2,M),I=1,5),F(7,2,M),F(6,2,M),M=1,19) /
56      . 0.02474, 0.00250,  0.11060, 0.02372, 0.00499, 0.00000, 0.01435,
57      . 0.02542, 0.00271,  1.73254, 0.04940, 0.03005, 0.00000, 0.03973,
58      . 0.02605, 0.00291,  3.89445, 0.09070, 0.07078, 0.00000, 0.08075,
59      . 0.02663, 0.00310,  6.60474, 0.14701, 0.12656, 0.00000, 0.13679,
60      . 0.02717, 0.00329,  9.90134, 0.21834, 0.19738, 0.00220, 0.20787,
61      . 0.02768, 0.00347, 13.76108, 0.30443, 0.28300, 0.04204, 0.29373,
62      . 0.02817, 0.00364, 18.09773, 0.40388, 0.38199, 0.15130, 0.39295,
63      . 0.02863, 0.00381, 22.92850, 0.51712, 0.49480, 0.26591, 0.50598,
64      . 0.02907, 0.00397, 28.23746, 0.64402, 0.62128, 0.39349, 0.63267,
65      . 0.02950, 0.00413, 34.01329, 0.78454, 0.76140, 0.53526, 0.77299,
66      . 0.02990, 0.00429, 40.12871, 0.93601, 0.91248, 0.68770, 0.92427,
67      . 0.03030, 0.00444, 46.57640, 1.09831, 1.07441, 0.85093, 1.08639,
68      . 0.03068, 0.00459, 53.45575, 1.27387, 1.24961, 1.02739, 1.26177,
69      . 0.03104, 0.00473, 60.50339, 1.45662, 1.43202, 1.21098, 1.44435,
70      . 0.03139, 0.00487, 67.91449, 1.65123, 1.62629, 1.40639, 1.63879,
71      . 0.03174, 0.00501, 75.53748, 1.85416, 1.82889, 1.61007, 1.84156,
72      . 0.03207, 0.00515, 83.40164, 2.06614, 2.04055, 1.82277, 2.05338,
73      . 0.03239, 0.00529, 91.46950, 2.28628, 2.26039, 2.04360, 2.27337,
74      . 0.03271, 0.00542, 99.73819, 2.51453, 2.48833, 2.27250, 2.50147 /
75       DATA ((F(I,3,M),I=1,5),F(7,3,M),F(6,3,M),M=1,19) /
76      . 0.03097, 0.00380,  0.13304, 0.02943, 0.00542, 0.00000, 0.01743,
77      . 0.03181, 0.00411,  1.66697, 0.05564, 0.03087, 0.00000, 0.04326,
78      . 0.03258, 0.00441,  3.61905, 0.09508, 0.06960, 0.00000, 0.08235,
79      . 0.03329, 0.00468,  5.98881, 0.14664, 0.12051, 0.00000, 0.13359,
80      . 0.03395, 0.00495,  8.79911, 0.21001, 0.18327, 0.00194, 0.19666,
81      . 0.03458, 0.00521, 12.02071, 0.28474, 0.25742, 0.03617, 0.27110,
82      . 0.03518, 0.00545, 15.57407, 0.36954, 0.34166, 0.12932, 0.35562,
83      . 0.03574, 0.00569, 19.46941, 0.46458, 0.43618, 0.22540, 0.45041,
84      . 0.03628, 0.00593, 23.68933, 0.56964, 0.54072, 0.33090, 0.55521,
85      . 0.03680, 0.00616, 28.22121, 0.68455, 0.65515, 0.44676, 0.66988,
86      . 0.03730, 0.00638, 32.96075, 0.80711, 0.77725, 0.57003, 0.79221,
87      . 0.03778, 0.00659, 37.90230, 0.93715, 0.90684, 0.70076, 0.92202,
88      . 0.03824, 0.00680, 43.12274, 1.07650, 1.04576, 0.84077, 1.06116,
89      . 0.03868, 0.00701, 48.41628, 1.22038, 1.18923, 0.98526, 1.20484,
90      . 0.03911, 0.00721, 53.93500, 1.37238, 1.34082, 1.13784, 1.35664,
91      . 0.03953, 0.00740, 59.56230, 1.52971, 1.49776, 1.29573, 1.51378,
92      . 0.03994, 0.00760, 65.32150, 1.69292, 1.66059, 1.45946, 1.67680,
93      . 0.04033, 0.00779, 71.18483, 1.86131, 1.82861, 1.62834, 1.84500,
94      . 0.04071, 0.00797, 77.15089, 2.03481, 2.00175, 1.80231, 2.01832 /
95       DATA ((F(I,4,M),I=1,5),F(7,4,M),F(6,4,M),M=1,19) /
96      . 0.03526, 0.00486,  0.14825, 0.03340, 0.00564, 0.00000, 0.01952,
97      . 0.03620, 0.00525,  1.62987, 0.05971, 0.03109, 0.00000, 0.04541,
98      . 0.03706, 0.00561,  3.46685, 0.09788, 0.06847, 0.00000, 0.08319,
99      . 0.03786, 0.00596,  5.65480, 0.14665, 0.11650, 0.00000, 0.13159,
100      . 0.03861, 0.00629,  8.21079, 0.20558, 0.17473, 0.00179, 0.19017,
101      . 0.03931, 0.00660, 11.10445, 0.27417, 0.24267, 0.03301, 0.25844,
102      . 0.03998, 0.00691, 14.26122, 0.35121, 0.31910, 0.11763, 0.33518,
103      . 0.04061, 0.00721, 17.68906, 0.43680, 0.40410, 0.20408, 0.42047,
104      . 0.04122, 0.00749, 21.37103, 0.53065, 0.49738, 0.29825, 0.51404,
105      . 0.04180, 0.00777, 25.29486, 0.63258, 0.59877, 0.40096, 0.61571,
106      . 0.04236, 0.00804, 29.36853, 0.74063, 0.70631, 0.50958, 0.72350,
107      . 0.04289, 0.00831, 33.58759, 0.85462, 0.81980, 0.62412, 0.83724,
108      . 0.04341, 0.00856, 38.01880, 0.97611, 0.94081, 0.74614, 0.95849,
109      . 0.04391, 0.00881, 42.48444, 1.10095, 1.06519, 0.87148, 1.08311,
110      . 0.04439, 0.00906, 47.11644, 1.23222, 1.19601, 1.00320, 1.21415,
111      . 0.04486, 0.00930, 51.81485, 1.36751, 1.33087, 1.13894, 1.34923,
112      . 0.04531, 0.00953, 56.60069, 1.50727, 1.47021, 1.27912, 1.48879,
113      . 0.04575, 0.00976, 61.45084, 1.65092, 1.61345, 1.42316, 1.63223,
114      . 0.04618, 0.00999, 66.36472, 1.79838, 1.76052, 1.57100, 1.77950 /
115       DATA ((F(I,5,M),I=1,5),F(7,5,M),F(6,5,M),M=1,19) /
116      . 0.03862, 0.00579,  0.16010, 0.03653, 0.00577, 0.00000, 0.02115,
117      . 0.03964, 0.00624,  1.60413, 0.06281, 0.03111, 0.00000, 0.04697,
118      . 0.04057, 0.00666,  3.36261, 0.10000, 0.06744, 0.00000, 0.08373,
119      . 0.04144, 0.00707,  5.42869, 0.14678, 0.11341, 0.00000, 0.13011,
120      . 0.04225, 0.00745,  7.81650, 0.20265, 0.16853, 0.00169, 0.18561,
121      . 0.04301, 0.00782, 10.49561, 0.26710, 0.23227, 0.03090, 0.24971,
122      . 0.04373, 0.00817, 13.39536, 0.33899, 0.30349, 0.10983, 0.32127,
123      . 0.04442, 0.00851, 16.52269, 0.41835, 0.38222, 0.18993, 0.40032,
124      . 0.04508, 0.00885, 19.86148, 0.50489, 0.46815, 0.27670, 0.48655,
125      . 0.04571, 0.00917, 23.39996, 0.59841, 0.56108, 0.37089, 0.57978,
126      . 0.04631, 0.00948, 27.05432, 0.69712, 0.65924, 0.47007, 0.67821,
127      . 0.04689, 0.00978, 30.82094, 0.80083, 0.76241, 0.57425, 0.78166,
128      . 0.04745, 0.01008, 34.76041, 0.91094, 0.87200, 0.68480, 0.89151,
129      . 0.04799, 0.01037, 38.71289, 1.02371, 0.98428, 0.79798, 1.00403,
130      . 0.04851, 0.01065, 42.79761, 1.14187, 1.10196, 0.91653, 1.12196,
131      . 0.04902, 0.01093, 46.92542, 1.26330, 1.22292, 1.03832, 1.24315,
132      . 0.04951, 0.01120, 51.11560, 1.38837, 1.34754, 1.16373, 1.36800,
133      . 0.04998, 0.01146, 55.34810, 1.51656, 1.47530, 1.29225, 1.49598,
134      . 0.05044, 0.01172, 59.62294, 1.64781, 1.60613, 1.42381, 1.62702 /
135       DATA ((F(I,6,M),I=1,5),F(7,6,M),F(6,6,M),M=1,19) /
136      . 0.04142, 0.00662,  0.16995, 0.03917, 0.00585, 0.00000, 0.02251,
137      . 0.04250, 0.00713,  1.58450, 0.06536, 0.03104, 0.00000, 0.04821,
138      . 0.04350, 0.00761,  3.28379, 0.10174, 0.06649, 0.00000, 0.08413,
139      . 0.04442, 0.00806,  5.25920, 0.14696, 0.11086, 0.00000, 0.12893,
140      . 0.04528, 0.00850,  7.52310, 0.20052, 0.16362, 0.00161, 0.18209,
141      . 0.04609, 0.00891, 10.04541, 0.26188, 0.22423, 0.02932, 0.24308,
142      . 0.04686, 0.00931, 12.75864, 0.32996, 0.29160, 0.10405, 0.31081,
143      . 0.04759, 0.00969, 15.66924, 0.40476, 0.36572, 0.17949, 0.38527,
144      . 0.04829, 0.01006, 18.76186, 0.48596, 0.44628, 0.26087, 0.46615,
145      . 0.04896, 0.01042, 22.02528, 0.57338, 0.53308, 0.34887, 0.55326,
146      . 0.04960, 0.01077, 25.38167, 0.66535, 0.62445, 0.44124, 0.64494,
147      . 0.05022, 0.01111, 28.82811, 0.76167, 0.72021, 0.53796, 0.74098,
148      . 0.05081, 0.01144, 32.42097, 0.86362, 0.82162, 0.64028, 0.84266,
149      . 0.05138, 0.01176, 36.01315, 0.96776, 0.92523, 0.74477, 0.94654,
150      . 0.05194, 0.01208, 39.71483, 1.07660, 1.03357, 0.85395, 1.05513,
151      . 0.05247, 0.01238, 43.44460, 1.18818, 1.14466, 0.96584, 1.16647,
152      . 0.05299, 0.01268, 47.22049, 1.30285, 1.25886, 1.08080, 1.28090,
153      . 0.05350, 0.01297, 51.02466, 1.42013, 1.37568, 1.19836, 1.39796,
154      . 0.05399, 0.01326, 54.85760, 1.53996, 1.49506, 1.31845, 1.51756 /
155       DATA ((F(I,7,M),I=1,5),F(7,7,M),F(6,7,M),M=1,19) /
156      . 0.05129, 0.01008,  0.20471, 0.04864, 0.00598, 0.00000, 0.02731,
157      . 0.05260, 0.01081,  1.52550, 0.07414, 0.03025, 0.00000, 0.05220,
158      . 0.05380, 0.01150,  3.04965, 0.10774, 0.06272, 0.00000, 0.08525,
159      . 0.05491, 0.01216,  4.76304, 0.14817, 0.10211, 0.00000, 0.12516,
160      . 0.05595, 0.01277,  6.67512, 0.19485, 0.14783, 0.00139, 0.17137,
161      . 0.05692, 0.01336,  8.75870, 0.24726, 0.19934, 0.02478, 0.22333,
162      . 0.05785, 0.01393, 10.95660, 0.30449, 0.25571, 0.08752, 0.28014,
163      . 0.05873, 0.01447, 13.27482, 0.36644, 0.31686, 0.14985, 0.34169,
164      . 0.05957, 0.01500, 15.70096, 0.43282, 0.38246, 0.21622, 0.40768,
165      . 0.06037, 0.01550, 18.22633, 0.50342, 0.45233, 0.28717, 0.47792,
166      . 0.06114, 0.01600, 20.78960, 0.57694, 0.52516, 0.36089, 0.55110,
167      . 0.06189, 0.01647, 23.39034, 0.65319, 0.60074, 0.43734, 0.62701,
168      . 0.06260, 0.01693, 26.07355, 0.73314, 0.68004, 0.51748, 0.70664,
169      . 0.06329, 0.01738, 28.72635, 0.81414, 0.76043, 0.59865, 0.78734,
170      . 0.06396, 0.01782, 31.43526, 0.89811, 0.84380, 0.68278, 0.87101,
171      . 0.06460, 0.01824, 34.13910, 0.98355, 0.92866, 0.76837, 0.95616,
172      . 0.06523, 0.01866, 36.85295, 1.07072, 1.01529, 0.85569, 1.04306,
173      . 0.06583, 0.01906, 39.56459, 1.15928, 1.10331, 0.94438, 1.13136,
174      . 0.06642, 0.01946, 42.27548, 1.24918, 1.19270, 1.03441, 1.22100 /
175       DATA ((F(I,8,M),I=1,5),F(7,8,M),F(6,8,M),M=1,19) /
176      . 0.06312, 0.01532,  0.24698, 0.06044, 0.00587, 0.00000, 0.03316,
177      . 0.06468, 0.01638,  1.46986, 0.08459, 0.02853, 0.00000, 0.05657,
178      . 0.06612, 0.01737,  2.82997, 0.11507, 0.05766, 0.00000, 0.08638,
179      . 0.06745, 0.01830,  4.30722, 0.15077, 0.09212, 0.00000, 0.12147,
180      . 0.06869, 0.01918,  5.91111, 0.19107, 0.13127, 0.00119, 0.16120,
181      . 0.06986, 0.02002,  7.61915, 0.23547, 0.17459, 0.02075, 0.20507,
182      . 0.07096, 0.02081,  9.38452, 0.28321, 0.22133, 0.07298, 0.25231,
183      . 0.07202, 0.02158, 11.21407, 0.33416, 0.27132, 0.12408, 0.30278,
184      . 0.07302, 0.02231, 13.09881, 0.38802, 0.32429, 0.17777, 0.35620,
185      . 0.07399, 0.02302, 15.03276, 0.44462, 0.38003, 0.23452, 0.41238,
186      . 0.07491, 0.02371, 16.96877, 0.50296, 0.43756, 0.29288, 0.47031,
187      . 0.07580, 0.02437, 18.90854, 0.56287, 0.49669, 0.35282, 0.52983,
188      . 0.07665, 0.02501, 20.88826, 0.62507, 0.55815, 0.41506, 0.59167,
189      . 0.07748, 0.02563, 22.82228, 0.68757, 0.61994, 0.47759, 0.65382,
190      . 0.07828, 0.02623, 24.77852, 0.75182, 0.68350, 0.54185, 0.71772,
191      . 0.07905, 0.02681, 26.71161, 0.81669, 0.74772, 0.60675, 0.78227,
192      . 0.07980, 0.02738, 28.63434, 0.88239, 0.81279, 0.67246, 0.84766,
193      . 0.08052, 0.02794, 30.53871, 0.94867, 0.87847, 0.73876, 0.91364,
194      . 0.08123, 0.02848, 32.42691, 1.01550, 0.94471, 0.80561, 0.98018 /
195       DATA ((F(I,9,M),I=1,5),F(7,9,M),F(6,9,M),M=1,19) /
196      . 0.07103, 0.01957,  0.27603, 0.06866, 0.00570, 0.00000, 0.03718,
197      . 0.07276, 0.02087,  1.43921, 0.09173, 0.02713, 0.00000, 0.05944,
198      . 0.07435, 0.02209,  2.70710, 0.12029, 0.05419, 0.00000, 0.08726,
199      . 0.07583, 0.02323,  4.05602, 0.15330, 0.08584, 0.00000, 0.11960,
200      . 0.07720, 0.02431,  5.49645, 0.19011, 0.12139, 0.00108, 0.15578,
201      . 0.07850, 0.02532,  7.00905, 0.23023, 0.16033, 0.01861, 0.19532,
202      . 0.07973, 0.02629,  8.55311, 0.27300, 0.20201, 0.06532, 0.23755,
203      . 0.08090, 0.02722, 10.13611, 0.31824, 0.24622, 0.11061, 0.28228,
204      . 0.08202, 0.02811, 11.75115, 0.36570, 0.29271, 0.15782, 0.32926,
205      . 0.08309, 0.02897, 13.39391, 0.41522, 0.34130, 0.20738, 0.37832,
206      . 0.08411, 0.02979, 15.02436, 0.46594, 0.39115, 0.25804, 0.42860,
207      . 0.08510, 0.03059, 16.64526, 0.51771, 0.44209, 0.30976, 0.47996,
208      . 0.08605, 0.03136, 18.28867, 0.57115, 0.49473, 0.36316, 0.53300,
209      . 0.08696, 0.03210, 19.88211, 0.62458, 0.54740, 0.41655, 0.58606,
210      . 0.08785, 0.03282, 21.48447, 0.67922, 0.60131, 0.47114, 0.64033,
211      . 0.08871, 0.03352, 23.05798, 0.73413, 0.65553, 0.52601, 0.69490,
212      . 0.08954, 0.03420, 24.61417, 0.78949, 0.71022, 0.58133, 0.74992,
213      . 0.09034, 0.03486, 26.14708, 0.84510, 0.76519, 0.63691, 0.80522,
214      . 0.09112, 0.03550, 27.65913, 0.90095, 0.82042, 0.69271, 0.86076 /
215       DATA ((F(I,10,M),I=1,5),F(7,10,M),F(6,10,M),M=1,19) /
216      . 0.07712, 0.02327,  0.29897, 0.07518, 0.00553, 0.00000, 0.04036,
217      . 0.07898, 0.02478,  1.41851, 0.09741, 0.02602, 0.00000, 0.06173,
218      . 0.08069, 0.02619,  2.62196, 0.12459, 0.05161, 0.00000, 0.08812,
219      . 0.08228, 0.02750,  3.88335, 0.15575, 0.08132, 0.00000, 0.11856,
220      . 0.08376, 0.02873,  5.21403, 0.19019, 0.11443, 0.00101, 0.15234,
221      . 0.08516, 0.02990,  6.59717, 0.22744, 0.15045, 0.01719, 0.18899,
222      . 0.08648, 0.03100,  7.99611, 0.26691, 0.18877, 0.06024, 0.22788,
223      . 0.08774, 0.03206,  9.41899, 0.30840, 0.22918, 0.10170, 0.26884,
224      . 0.08895, 0.03308, 10.86035, 0.35168, 0.27144, 0.14468, 0.31161,
225      . 0.09010, 0.03405, 12.31692, 0.39660, 0.31539, 0.18957, 0.35605,
226      . 0.09121, 0.03499, 13.75340, 0.44240, 0.36027, 0.23526, 0.40139,
227      . 0.09227, 0.03589, 15.17321, 0.48893, 0.40595, 0.28170, 0.44750,
228      . 0.09329, 0.03677, 16.60567, 0.53677, 0.45295, 0.32945, 0.49492,
229      . 0.09428, 0.03761, 17.98672, 0.58441, 0.49982, 0.37701, 0.54218,
230      . 0.09523, 0.03842, 19.36955, 0.63295, 0.54760, 0.42547, 0.59035,
231      . 0.09616, 0.03921, 20.72107, 0.68157, 0.59550, 0.47400, 0.63860,
232      . 0.09705, 0.03997, 22.05208, 0.73041, 0.64366, 0.52278, 0.68711,
233      . 0.09792, 0.04072, 23.35773, 0.77934, 0.69192, 0.57163, 0.73570,
234      . 0.09876, 0.04144, 24.64058, 0.82831, 0.74026, 0.62054, 0.78436 /
235       DATA ((F(I,11,M),I=1,5),F(7,11,M),F(6,11,M),M=1,19) /
236      . 0.08212, 0.02662,  0.31835, 0.08073, 0.00546, 0.00000, 0.04310,
237      . 0.08410, 0.02830,  1.40268, 0.10251, 0.02542, 0.00000, 0.06398,
238      . 0.08592, 0.02986,  2.55492, 0.12878, 0.05004, 0.00000, 0.08943,
239      . 0.08761, 0.03132,  3.74847, 0.15860, 0.07837, 0.00000, 0.11852,
240      . 0.08918, 0.03268,  4.99557, 0.19131, 0.10970, 0.00096, 0.15054,
241      . 0.09067, 0.03397,  6.28086, 0.22645, 0.14357, 0.01614, 0.18505,
242      . 0.09208, 0.03519,  7.57115, 0.26346, 0.17940, 0.05646, 0.22148,
243      . 0.09342, 0.03636,  8.87490, 0.30217, 0.21701, 0.09509, 0.25964,
244      . 0.09470, 0.03748, 10.18790, 0.34235, 0.25614, 0.13493, 0.29930,
245      . 0.09593, 0.03855, 11.50772, 0.38386, 0.29667, 0.17637, 0.34033,
246      . 0.09710, 0.03958, 12.80232, 0.42603, 0.33791, 0.21838, 0.38203,
247      . 0.09823, 0.04057, 14.07607, 0.46873, 0.37972, 0.26095, 0.42429,
248      . 0.09932, 0.04152, 15.35603, 0.51245, 0.42261, 0.30455, 0.46759,
249      . 0.10037, 0.04244, 16.58408, 0.55587, 0.46523, 0.34786, 0.51062,
250      . 0.10138, 0.04333, 17.80927, 0.59996, 0.50856, 0.39184, 0.55433,
251      . 0.10236, 0.04419, 19.00201, 0.64399, 0.55188, 0.43578, 0.59801,
252      . 0.10331, 0.04503, 20.17259, 0.68812, 0.59531, 0.47981, 0.64179,
253      . 0.10424, 0.04584, 21.31697, 0.73221, 0.63873, 0.52381, 0.68555,
254      . 0.10513, 0.04662, 22.43721, 0.77623, 0.68212, 0.56774, 0.72925 /
255       DATA ((F(I,12,M),I=1,5),F(7,12,M),F(6,12,M),M=1,19) /
256      . 0.09937, 0.04033,  0.38915, 0.10054, 0.00513, 0.00000, 0.05284,
257      . 0.10178, 0.04265,  1.36061, 0.12058, 0.02320, 0.00000, 0.07190,
258      . 0.10399, 0.04478,  2.35765, 0.14385, 0.04469, 0.00000, 0.09429,
259      . 0.10606, 0.04676,  3.35229, 0.16954, 0.06880, 0.00001, 0.11920,
260      . 0.10798, 0.04860,  4.35914, 0.19705, 0.09487, 0.00080, 0.14600,
261      . 0.10979, 0.05033,  5.36898, 0.22599, 0.12249, 0.01311, 0.17428,
262      . 0.11152, 0.05196,  6.35800, 0.25596, 0.15125, 0.04566, 0.20365,
263      . 0.11315, 0.05351,  7.33600, 0.28679, 0.18094, 0.07630, 0.23392,
264      . 0.11472, 0.05499,  8.30194, 0.31829, 0.21140, 0.10742, 0.26490,
265      . 0.11622, 0.05639,  9.25586, 0.35038, 0.24250, 0.13935, 0.29650,
266      . 0.11765, 0.05774, 10.17506, 0.38258, 0.27378, 0.17134, 0.32824,
267      . 0.11903, 0.05903, 11.06490, 0.41480, 0.30513, 0.20339, 0.36003,
268      . 0.12036, 0.06027, 11.94716, 0.44740, 0.33692, 0.23584, 0.39223,
269      . 0.12164, 0.06145, 12.77997, 0.47947, 0.36822, 0.26777, 0.42392,
270      . 0.12287, 0.06260, 13.60090, 0.51169, 0.39972, 0.29986, 0.45578,
271      . 0.12407, 0.06370, 14.38942, 0.54358, 0.43092, 0.33164, 0.48732,
272      . 0.12522, 0.06476, 15.15396, 0.57525, 0.46193, 0.36320, 0.51866,
273      . 0.12634, 0.06579, 15.89250, 0.60661, 0.49267, 0.39448, 0.54972,
274      . 0.12743, 0.06678, 16.60741, 0.63767, 0.52314, 0.42545, 0.58049 /
275       DATA ((F(I,13,M),I=1,5),F(7,13,M),F(6,13,M),M=1,19) /
276      . 0.11969, 0.06086,  0.48283, 0.12442, 0.00481, 0.00000, 0.06462,
277      . 0.12274, 0.06394,  1.33566, 0.14268, 0.02119, 0.00000, 0.08195,
278      . 0.12554, 0.06674,  2.17842, 0.16303, 0.03989, 0.00000, 0.10148,
279      . 0.12815, 0.06931,  2.98664, 0.18481, 0.06022, 0.00001, 0.12254,
280      . 0.13057, 0.07169,  3.77663, 0.20752, 0.08163, 0.00067, 0.14461,
281      . 0.13287, 0.07390,  4.54550, 0.23085, 0.10381, 0.01049, 0.16737,
282      . 0.13503, 0.07598,  5.27791, 0.25455, 0.12646, 0.03632, 0.19055,
283      . 0.13709, 0.07793,  5.98464, 0.27848, 0.14944, 0.06014, 0.21401,
284      . 0.13904, 0.07978,  6.66721, 0.30252, 0.17261, 0.08394, 0.23761,
285      . 0.14092, 0.08154,  7.32768, 0.32661, 0.19590, 0.10798, 0.26131,
286      . 0.14272, 0.08320,  7.95116, 0.35046, 0.21901, 0.13175, 0.28479,
287      . 0.14444, 0.08478,  8.54288, 0.37401, 0.24188, 0.15526, 0.30801,
288      . 0.14609, 0.08630,  9.12026, 0.39753, 0.26476, 0.17875, 0.33121,
289      . 0.14769, 0.08774,  9.65437, 0.42040, 0.28705, 0.20162, 0.35379,
290      . 0.14922, 0.08912, 10.17378, 0.44311, 0.30921, 0.22434, 0.37623,
291      . 0.15070, 0.09045, 10.66496, 0.46534, 0.33095, 0.24660, 0.39821,
292      . 0.15213, 0.09172, 11.13406, 0.48719, 0.35233, 0.26848, 0.41983,
293      . 0.15352, 0.09295, 11.58041, 0.50862, 0.37332, 0.28997, 0.44105,
294      . 0.15486, 0.09412, 12.00657, 0.52965, 0.39394, 0.31106, 0.46187 /
295       DATA ((F(I,14,M),I=1,5),F(7,14,M),F(6,14,M),M=1,19) /
296      . 0.13360, 0.07717,  0.55302, 0.13991, 0.00463, 0.00000, 0.07227,
297      . 0.13717, 0.08070,  1.33318, 0.15698, 0.02007, 0.00000, 0.08854,
298      . 0.14045, 0.08390,  2.08618, 0.17553, 0.03723, 0.00000, 0.10640,
299      . 0.14348, 0.08683,  2.79032, 0.19500, 0.05553, 0.00000, 0.12529,
300      . 0.14632, 0.08949,  3.46378, 0.21497, 0.07445, 0.00057, 0.14474,
301      . 0.14899, 0.09198,  4.10651, 0.23519, 0.09377, 0.00911, 0.16451,
302      . 0.15149, 0.09428,  4.70780, 0.25548, 0.11326, 0.03145, 0.18441,
303      . 0.15387, 0.09645,  5.27863, 0.27572, 0.13279, 0.05179, 0.20429,
304      . 0.15615, 0.09848,  5.82186, 0.29582, 0.15226, 0.07187, 0.22408,
305      . 0.15832, 0.10041,  6.34034, 0.31576, 0.17163, 0.09197, 0.24375,
306      . 0.16039, 0.10222,  6.82258, 0.33533, 0.19069, 0.11166, 0.26306,
307      . 0.16237, 0.10394,  7.27396, 0.35448, 0.20939, 0.13097, 0.28199,
308      . 0.16427, 0.10558,  7.70980, 0.37345, 0.22795, 0.15011, 0.30076,
309      . 0.16608, 0.10714,  8.10845, 0.39175, 0.24589, 0.16860, 0.31888,
310      . 0.16783, 0.10862,  8.49192, 0.40979, 0.26359, 0.18684, 0.33675,
311      . 0.16952, 0.11004,  8.84949, 0.42732, 0.28083, 0.20458, 0.35413,
312      . 0.17114, 0.11139,  9.18768, 0.44443, 0.29768, 0.22191, 0.37111,
313      . 0.17271, 0.11269,  9.50637, 0.46111, 0.31412, 0.23882, 0.38767,
314      . 0.17422, 0.11393,  9.80735, 0.47738, 0.33016, 0.25532, 0.40383 /
315       DATA ((F(I,15,M),I=1,5),F(7,15,M),F(6,15,M),M=1,19) /
316      . 0.14481, 0.09112,  0.61315, 0.15120, 0.00451, 0.00000, 0.07786,
317      . 0.14886, 0.09496,  1.33990, 0.16734, 0.01935, 0.00001, 0.09335,
318      . 0.15256, 0.09841,  2.02827, 0.18456, 0.03549, 0.00000, 0.11004,
319      . 0.15597, 0.10154,  2.66052, 0.20237, 0.05242, 0.00000, 0.12742,
320      . 0.15917, 0.10438,  3.25520, 0.22039, 0.06970, 0.00052, 0.14508,
321      . 0.16216, 0.10702,  3.81434, 0.23845, 0.08713, 0.00821, 0.16282,
322      . 0.16496, 0.10945,  4.33011, 0.25640, 0.10455, 0.02827, 0.18051,
323      . 0.16762, 0.11173,  4.81355, 0.27413, 0.12184, 0.04635, 0.19802,
324      . 0.17015, 0.11385,  5.26825, 0.29161, 0.13892, 0.06404, 0.21531,
325      . 0.17257, 0.11586,  5.69755, 0.30880, 0.15579, 0.08161, 0.23235,
326      . 0.17486, 0.11774,  6.09223, 0.32555, 0.17228, 0.09871, 0.24896,
327      . 0.17705, 0.11951,  6.45767, 0.34184, 0.18834, 0.11537, 0.26514,
328      . 0.17914, 0.12120,  6.80753, 0.35786, 0.20418, 0.13177, 0.28107,
329      . 0.18114, 0.12280,  7.12372, 0.37323, 0.21939, 0.14753, 0.29636,
330      . 0.18306, 0.12432,  7.42542, 0.38828, 0.23432, 0.16299, 0.31135,
331      . 0.18491, 0.12576,  7.70387, 0.40282, 0.24878, 0.17794, 0.32586,
332      . 0.18669, 0.12713,  7.96485, 0.41695, 0.26284, 0.19247, 0.33995,
333      . 0.18839, 0.12844,  8.20850, 0.43065, 0.27649, 0.20658, 0.35362,
334      . 0.19004, 0.12969,  8.43655, 0.44393, 0.28974, 0.22028, 0.36689 /
335       DATA ((F(I,16,M),I=1,5),F(7,16,M),F(6,16,M),M=1,19) /
336      . 0.15457, 0.10347,  0.66686, 0.15987, 0.00442, 0.00001, 0.08215,
337      . 0.15905, 0.10751,  1.35085, 0.17520, 0.01881, 0.00001, 0.09701,
338      . 0.16313, 0.11112,  1.98874, 0.19132, 0.03419, 0.00001, 0.11277,
339      . 0.16691, 0.11437,  2.56643, 0.20779, 0.05009, 0.00002, 0.12897,
340      . 0.17041, 0.11730,  3.10206, 0.22430, 0.06616, 0.00050, 0.14525,
341      . 0.17368, 0.12003,  3.59976, 0.24069, 0.08220, 0.00756, 0.16147,
342      . 0.17674, 0.12253,  4.05323, 0.25684, 0.09809, 0.02594, 0.17749,
343      . 0.17963, 0.12485,  4.47380, 0.27268, 0.11375, 0.04238, 0.19325,
344      . 0.18238, 0.12701,  4.86539, 0.28819, 0.12912, 0.05836, 0.20870,
345      . 0.18499, 0.12904,  5.23162, 0.30335, 0.14419, 0.07411, 0.22382,
346      . 0.18748, 0.13094,  5.56475, 0.31802, 0.15882, 0.08937, 0.23847,
347      . 0.18983, 0.13272,  5.87111, 0.33220, 0.17300, 0.10414, 0.25265,
348      . 0.19209, 0.13441,  6.16245, 0.34608, 0.18691, 0.11860, 0.26655,
349      . 0.19425, 0.13599,  6.42168, 0.35931, 0.20019, 0.13243, 0.27980,
350      . 0.19632, 0.13750,  6.66752, 0.37222, 0.21317, 0.14593, 0.29275,
351      . 0.19832, 0.13891,  6.89266, 0.38465, 0.22570, 0.15895, 0.30523,
352      . 0.20022, 0.14027,  7.10191, 0.39665, 0.23782, 0.17154, 0.31729,
353      . 0.20204, 0.14156,  7.29554, 0.40822, 0.24953, 0.18370, 0.32893,
354      . 0.20379, 0.14279,  7.47514, 0.41940, 0.26086, 0.19547, 0.34019 /
355       DATA ((F(I,17,M),I=1,5),F(7,17,M),F(6,17,M),M=1,19) /
356      . 0.19468, 0.15140,  0.88653, 0.18271, 0.00417, 0.00000, 0.09344,
357      . 0.20087, 0.15560,  1.42751, 0.19492, 0.01719, 0.00001, 0.10606,
358      . 0.20648, 0.15927,  1.90512, 0.20715, 0.03027, 0.00000, 0.11872,
359      . 0.21152, 0.16249,  2.31617, 0.21912, 0.04316, 0.00001, 0.13117,
360      . 0.21612, 0.16538,  2.67905, 0.23071, 0.05566, 0.00039, 0.14320,
361      . 0.22044, 0.16792,  3.00095, 0.24185, 0.06773, 0.00570, 0.15481,
362      . 0.22443, 0.17023,  3.28159, 0.25246, 0.07931, 0.01937, 0.16591,
363      . 0.22812, 0.17234,  3.53115, 0.26262, 0.09040, 0.03126, 0.17654,
364      . 0.23159, 0.17427,  3.75441, 0.27230, 0.10102, 0.04251, 0.18669,
365      . 0.23485, 0.17605,  3.95557, 0.28155, 0.11120, 0.05337, 0.19639,
366      . 0.23789, 0.17767,  4.13130, 0.29027, 0.12085, 0.06365, 0.20559,
367      . 0.24078, 0.17916,  4.28594, 0.29851, 0.13001, 0.07340, 0.21429,
368      . 0.24353, 0.18054,  4.42826, 0.30643, 0.13882, 0.08278, 0.22265,
369      . 0.24607, 0.18184,  4.54817, 0.31378, 0.14707, 0.09158, 0.23045,
370      . 0.24851, 0.18303,  4.65840, 0.32082, 0.15499, 0.10002, 0.23794,
371      . 0.25085, 0.18412,  4.75493, 0.32745, 0.16249, 0.10803, 0.24500,
372      . 0.25307, 0.18514,  4.84069, 0.33374, 0.16964, 0.11566, 0.25172,
373      . 0.25518, 0.18610,  4.91624, 0.33971, 0.17644, 0.12294, 0.25811,
374      . 0.25720, 0.18699,  4.98319, 0.34536, 0.18292, 0.12986, 0.26418 /
375       DATA ((F(I,18,M),I=1,5),F(7,18,M),F(6,18,M),M=1,19) /
376      . 0.26333, 0.21303,  1.21309, 0.18732, 0.00377,-0.00009, 0.09551,
377      . 0.27129, 0.21594,  1.58557, 0.19533, 0.01523,-0.00012, 0.10524,
378      . 0.27832, 0.21827,  1.88997, 0.20282, 0.02593,-0.00012, 0.11435,
379      . 0.28445, 0.22025,  2.13352, 0.20973, 0.03583,-0.00013, 0.12277,
380      . 0.28986, 0.22191,  2.33312, 0.21606, 0.04495, 0.00017, 0.13048,
381      . 0.29482, 0.22325,  2.49780, 0.22182, 0.05338, 0.00395, 0.13759,
382      . 0.29933, 0.22430,  2.63027, 0.22707, 0.06114, 0.01352, 0.14409,
383      . 0.30337, 0.22524,  2.73914, 0.23185, 0.06829, 0.02151, 0.15004,
384      . 0.30705, 0.22603,  2.82909, 0.23621, 0.07490, 0.02885, 0.15553,
385      . 0.31046, 0.22668,  2.90387, 0.24021, 0.08103, 0.03573, 0.16061,
386      . 0.31362, 0.22716,  2.96244, 0.24377, 0.08671, 0.04205, 0.16521,
387      . 0.31649, 0.22756,  3.00803, 0.24697, 0.09191, 0.04788, 0.16941,
388      . 0.31918, 0.22792,  3.04635, 0.24994, 0.09680, 0.05335, 0.17333,
389      . 0.32161, 0.22816,  3.07238, 0.25254, 0.10120, 0.05837, 0.17684,
390      . 0.32390, 0.22835,  3.09319, 0.25493, 0.10535, 0.06308, 0.18012,
391      . 0.32601, 0.22848,  3.10673, 0.25706, 0.10920, 0.06745, 0.18310,
392      . 0.32800, 0.22853,  3.11513, 0.25898, 0.11276, 0.07150, 0.18584,
393      . 0.32987, 0.22851,  3.11883, 0.26072, 0.11606, 0.07527, 0.18835,
394      . 0.33159, 0.22848,  3.11884, 0.26227, 0.11913, 0.07880, 0.19066 /
395       DATA ((F(I,19,M),I=1,5),F(7,19,M),F(6,19,M),M=1,19) /
396      . 0.32682, 0.25108,  1.44543, 0.17303, 0.00352, 0.00003, 0.08827,
397      . 0.33479, 0.25204,  1.69964, 0.17822, 0.01368, 0.00002, 0.09597,
398      . 0.34170, 0.25253,  1.89218, 0.18276, 0.02275,-0.00003, 0.10277,
399      . 0.34753, 0.25271,  2.03417, 0.18669, 0.03078, 0.00000, 0.10875,
400      . 0.35257, 0.25272,  2.14073, 0.19000, 0.03791, 0.00024, 0.11398,
401      . 0.35694, 0.25252,  2.22018, 0.19290, 0.04426, 0.00311, 0.11860,
402      . 0.36072, 0.25225,  2.27596, 0.19533, 0.04994, 0.01049, 0.12265,
403      . 0.36405, 0.25181,  2.31529, 0.19736, 0.05504, 0.01642, 0.12622,
404      . 0.36705, 0.25123,  2.34189, 0.19907, 0.05963, 0.02175, 0.12936,
405      . 0.36974, 0.25056,  2.35877, 0.20052, 0.06378, 0.02667, 0.13216,
406      . 0.37204, 0.24990,  2.36560, 0.20168, 0.06753, 0.03110, 0.13460,
407      . 0.37413, 0.24916,  2.36475, 0.20259, 0.07085, 0.03509, 0.13673,
408      . 0.37603, 0.24840,  2.36023, 0.20335, 0.07388, 0.03878, 0.13865,
409      . 0.37758, 0.24759,  2.34883, 0.20386, 0.07657, 0.04206, 0.14025,
410      . 0.37903, 0.24677,  2.33528, 0.20427, 0.07904, 0.04509, 0.14169,
411      . 0.38037, 0.24589,  2.31825, 0.20454, 0.08127, 0.04783, 0.14292,
412      . 0.38152, 0.24501,  2.29901, 0.20467, 0.08327, 0.05035, 0.14398,
413      . 0.38251, 0.24413,  2.27786, 0.20467, 0.08507, 0.05266, 0.14489,
414      . 0.38337, 0.24326,  2.25545, 0.20458, 0.08673, 0.05479, 0.14568 /
415       DATA ((F(I,20,M),I=1,5),F(7,20,M),F(6,20,M),M=1,19) /
416      . 0.38521, 0.27498,  1.59924, 0.15266, 0.00319, 0.00003, 0.07796,
417      . 0.39209, 0.27378,  1.75906, 0.15592, 0.01216, 0.00009, 0.08409,
418      . 0.39750, 0.27247,  1.86759, 0.15854, 0.01988, 0.00006, 0.08924,
419      . 0.40205, 0.27084,  1.93652, 0.16060, 0.02643, 0.00011, 0.09353,
420      . 0.40570, 0.26925,  1.97929, 0.16209, 0.03212, 0.00024, 0.09711,
421      . 0.40874, 0.26748,  2.00264, 0.16328, 0.03702, 0.00260, 0.10018,
422      . 0.41126, 0.26573,  2.00986, 0.16398, 0.04129, 0.00837, 0.10270,
423      . 0.41327, 0.26396,  2.00658, 0.16447, 0.04505, 0.01299, 0.10480,
424      . 0.41488, 0.26222,  1.99574, 0.16474, 0.04833, 0.01702, 0.10657,
425      . 0.41619, 0.26051,  1.97962, 0.16483, 0.05121, 0.02064, 0.10807,
426      . 0.41725, 0.25873,  1.95801, 0.16471, 0.05370, 0.02384, 0.10928,
427      . 0.41805, 0.25695,  1.93269, 0.16443, 0.05592, 0.02667, 0.11024,
428      . 0.41871, 0.25521,  1.90632, 0.16409, 0.05793, 0.02926, 0.11105,
429      . 0.41912, 0.25348,  1.87636, 0.16356, 0.05962, 0.03156, 0.11163,
430      . 0.41941, 0.25177,  1.84638, 0.16299, 0.06116, 0.03363, 0.11212,
431      . 0.41956, 0.25005,  1.81542, 0.16234, 0.06251, 0.03546, 0.11248,
432      . 0.41956, 0.24840,  1.78421, 0.16162, 0.06369, 0.03714, 0.11273,
433      . 0.41943, 0.24682,  1.75288, 0.16085, 0.06472, 0.03868, 0.11286,
434      . 0.41924, 0.24521,  1.72167, 0.16004, 0.06562, 0.04005, 0.11290 /
435       DATA ((F(I,21,M),I=1,5),F(7,21,M),F(6,21,M),M=1,19) /
436      . 0.43737, 0.28894,  1.68507, 0.13105, 0.00284, 0.00007, 0.06697,
437      . 0.44204, 0.28570,  1.76715, 0.13301, 0.01060, 0.00007, 0.07185,
438      . 0.44547, 0.28246,  1.81031, 0.13438, 0.01710, 0.00009, 0.07578,
439      . 0.44795, 0.27929,  1.82471, 0.13515, 0.02254, 0.00013, 0.07885,
440      . 0.44957, 0.27626,  1.82127, 0.13556, 0.02705, 0.00019, 0.08131,
441      . 0.45082, 0.27316,  1.80589, 0.13566, 0.03083, 0.00213, 0.08331,
442      . 0.45142, 0.27020,  1.78095, 0.13547, 0.03407, 0.00668, 0.08482,
443      . 0.45172, 0.26723,  1.75032, 0.13509, 0.03683, 0.01027, 0.08600,
444      . 0.45175, 0.26436,  1.71637, 0.13454, 0.03922, 0.01336, 0.08691,
445      . 0.45154, 0.26160,  1.68065, 0.13386, 0.04130, 0.01610, 0.08762,
446      . 0.45102, 0.25891,  1.64276, 0.13306, 0.04303, 0.01849, 0.08808,
447      . 0.45028, 0.25630,  1.60390, 0.13220, 0.04450, 0.02059, 0.08836,
448      . 0.44945, 0.25378,  1.56595, 0.13132, 0.04581, 0.02248, 0.08855,
449      . 0.44851, 0.25123,  1.52714, 0.13032, 0.04685, 0.02410, 0.08858,
450      . 0.44750, 0.24877,  1.48962, 0.12930, 0.04778, 0.02555, 0.08856,
451      . 0.44640, 0.24640,  1.45256, 0.12822, 0.04857, 0.02678, 0.08845,
452      . 0.44517, 0.24411,  1.41649, 0.12712, 0.04925, 0.02791, 0.08825,
453      . 0.44385, 0.24192,  1.38141, 0.12602, 0.04983, 0.02892, 0.08795,
454      . 0.44249, 0.23974,  1.34738, 0.12492, 0.05030, 0.02981, 0.08763 /
455       DATA ((F(I,22,M),I=1,5),F(7,22,M),F(6,22,M),M=1,19) /
456      . 0.49251, 0.29604,  1.71219, 0.10541, 0.00238, 0.00006, 0.05393,
457      . 0.49360, 0.29045,  1.71773, 0.10632, 0.00887, 0.00005, 0.05760,
458      . 0.49354, 0.28535,  1.69901, 0.10667, 0.01409, 0.00004, 0.06040,
459      . 0.49301, 0.28021,  1.66433, 0.10659, 0.01825, 0.00008, 0.06245,
460      . 0.49179, 0.27552,  1.62179, 0.10623, 0.02162, 0.00019, 0.06396,
461      . 0.49033, 0.27095,  1.57452, 0.10559, 0.02445, 0.00159, 0.06508,
462      . 0.48830, 0.26669,  1.52436, 0.10482, 0.02671, 0.00507, 0.06583,
463      . 0.48614, 0.26255,  1.47346, 0.10390, 0.02860, 0.00779, 0.06631,
464      . 0.48385, 0.25857,  1.42317, 0.10287, 0.03021, 0.01002, 0.06658,
465      . 0.48145, 0.25478,  1.37431, 0.10179, 0.03158, 0.01193, 0.06671,
466      . 0.47886, 0.25117,  1.32637, 0.10064, 0.03266, 0.01364, 0.06669,
467      . 0.47624, 0.24767,  1.27997, 0.09946, 0.03353, 0.01508, 0.06655,
468      . 0.47364, 0.24432,  1.23610, 0.09830, 0.03427, 0.01636, 0.06637,
469      . 0.47088, 0.24103,  1.19326, 0.09708, 0.03485, 0.01742, 0.06607,
470      . 0.46810, 0.23793,  1.15285, 0.09588, 0.03534, 0.01836, 0.06573,
471      . 0.46523, 0.23499,  1.11416, 0.09467, 0.03573, 0.01917, 0.06533,
472      . 0.46241, 0.23212,  1.07734, 0.09347, 0.03603, 0.01985, 0.06490,
473      . 0.45964, 0.22930,  1.04226, 0.09229, 0.03627, 0.02043, 0.06445,
474      . 0.45690, 0.22656,  1.00892, 0.09112, 0.03645, 0.02096, 0.06394 /
475       DATA ((F(I,23,M),I=1,5),F(7,23,M),F(6,23,M),M=1,19) /
476      . 0.53565, 0.29457,  1.66888, 0.08285, 0.00207, 0.00016, 0.04253,
477      . 0.53256, 0.28702,  1.61738, 0.08319, 0.00729, 0.00016, 0.04529,
478      . 0.52889, 0.28011,  1.55551, 0.08300, 0.01141, 0.00016, 0.04729,
479      . 0.52481, 0.27360,  1.48852, 0.08250, 0.01459, 0.00014, 0.04856,
480      . 0.52045, 0.26755,  1.42129, 0.08175, 0.01712, 0.00026, 0.04950,
481      . 0.51596, 0.26194,  1.35566, 0.08081, 0.01921, 0.00134, 0.05010,
482      . 0.51124, 0.25668,  1.29186, 0.07983, 0.02076, 0.00392, 0.05032,
483      . 0.50666, 0.25160,  1.23104, 0.07870, 0.02207, 0.00588, 0.05042,
484      . 0.50208, 0.24676,  1.17368, 0.07753, 0.02313, 0.00752, 0.05040,
485      . 0.49751, 0.24222,  1.11993, 0.07635, 0.02399, 0.00891, 0.05026,
486      . 0.49287, 0.23797,  1.06906, 0.07514, 0.02466, 0.01004, 0.04996,
487      . 0.48832, 0.23380,  1.02118, 0.07392, 0.02519, 0.01105, 0.04964,
488      . 0.48392, 0.22983,  0.97677, 0.07272, 0.02563, 0.01195, 0.04931,
489      . 0.47940, 0.22611,  0.93464, 0.07151, 0.02592, 0.01263, 0.04888,
490      . 0.47503, 0.22254,  0.89550, 0.07036, 0.02615, 0.01323, 0.04842,
491      . 0.47074, 0.21907,  0.85869, 0.06923, 0.02631, 0.01376, 0.04791,
492      . 0.46652, 0.21577,  0.82419, 0.06812, 0.02641, 0.01420, 0.04738,
493      . 0.46236, 0.21264,  0.79180, 0.06703, 0.02646, 0.01458, 0.04685,
494      . 0.45829, 0.20962,  0.76140, 0.06596, 0.02647, 0.01488, 0.04632 /
495       DATA ((F(I,24,M),I=1,5),F(7,24,M),F(6,24,M),M=1,19) /
496      . 0.56667, 0.28691,  1.57290, 0.06394, 0.00161,-0.00001, 0.03280,
497      . 0.55919, 0.27778,  1.48228, 0.06393, 0.00584, 0.00006, 0.03489,
498      . 0.55158, 0.26949,  1.39273, 0.06348, 0.00907, 0.00010, 0.03637,
499      . 0.54405, 0.26182,  1.30649, 0.06281, 0.01151, 0.00003, 0.03716,
500      . 0.53662, 0.25472,  1.22592, 0.06190, 0.01344, 0.00009, 0.03771,
501      . 0.52935, 0.24822,  1.15139, 0.06092, 0.01487, 0.00092, 0.03799,
502      . 0.52215, 0.24217,  1.08217, 0.05983, 0.01600, 0.00287, 0.03805,
503      . 0.51517, 0.23642,  1.01833, 0.05872, 0.01689, 0.00434, 0.03793,
504      . 0.50831, 0.23105,  0.95976, 0.05761, 0.01761, 0.00556, 0.03771,
505      . 0.50163, 0.22600,  0.90612, 0.05651, 0.01817, 0.00660, 0.03743,
506      . 0.49515, 0.22120,  0.85651, 0.05540, 0.01854, 0.00745, 0.03709,
507      . 0.48880, 0.21671,  0.81077, 0.05429, 0.01882, 0.00811, 0.03671,
508      . 0.48271, 0.21248,  0.76895, 0.05321, 0.01904, 0.00868, 0.03631,
509      . 0.47677, 0.20831,  0.72997, 0.05215, 0.01921, 0.00922, 0.03580,
510      . 0.47108, 0.20436,  0.69419, 0.05113, 0.01932, 0.00966, 0.03531,
511      . 0.46557, 0.20058,  0.66101, 0.05012, 0.01933, 0.00999, 0.03485,
512      . 0.46017, 0.19701,  0.63028, 0.04914, 0.01934, 0.01026, 0.03437,
513      . 0.45488, 0.19362,  0.60174, 0.04819, 0.01934, 0.01048, 0.03387,
514      . 0.44971, 0.19040,  0.57523, 0.04727, 0.01930, 0.01066, 0.03338 /
515       DATA ((F(I,25,M),I=1,5),F(7,25,M),F(6,25,M),M=1,19) /
516      . 0.58603, 0.27450,  1.44248, 0.04852, 0.00124,-0.00002, 0.02493,
517      . 0.57422, 0.26421,  1.32713, 0.04833, 0.00463,-0.00004, 0.02648,
518      . 0.56283, 0.25493,  1.22166, 0.04781, 0.00709, 0.00013, 0.02753,
519      . 0.55199, 0.24647,  1.12617, 0.04712, 0.00888, 0.00001, 0.02802,
520      . 0.54166, 0.23880,  1.04068, 0.04621, 0.01026, 0.00015, 0.02836,
521      . 0.53174, 0.23162,  0.96415, 0.04533, 0.01129, 0.00074, 0.02841,
522      . 0.52210, 0.22513,  0.89506, 0.04435, 0.01208, 0.00215, 0.02830,
523      . 0.51288, 0.21904,  0.83293, 0.04336, 0.01268, 0.00318, 0.02807,
524      . 0.50416, 0.21328,  0.77700, 0.04237, 0.01314, 0.00405, 0.02779,
525      . 0.49583, 0.20788,  0.72664, 0.04139, 0.01349, 0.00481, 0.02748,
526      . 0.48761, 0.20289,  0.68096, 0.04041, 0.01375, 0.00542, 0.02712,
527      . 0.47981, 0.19809,  0.63935, 0.03947, 0.01391, 0.00590, 0.02674,
528      . 0.47240, 0.19356,  0.60171, 0.03857, 0.01400, 0.00630, 0.02635,
529      . 0.46511, 0.18935,  0.56720, 0.03769, 0.01403, 0.00659, 0.02590,
530      . 0.45817, 0.18536,  0.53580, 0.03683, 0.01404, 0.00682, 0.02546,
531      . 0.45149, 0.18152,  0.50698, 0.03599, 0.01404, 0.00700, 0.02502,
532      . 0.44501, 0.17789,  0.48064, 0.03520, 0.01398, 0.00717, 0.02458,
533      . 0.43873, 0.17445,  0.45649, 0.03445, 0.01389, 0.00733, 0.02415,
534      . 0.43269, 0.17115,  0.43408, 0.03372, 0.01380, 0.00747, 0.02373 /
535       DATA ((F(I,26,M),I=1,5),F(7,26,M),F(6,26,M),M=1,19) /
536      . 0.59421, 0.25900,  1.29171, 0.03626, 0.00095, 0.00008, 0.01863,
537      . 0.57849, 0.24775,  1.16344, 0.03601, 0.00353, 0.00008, 0.01983,
538      . 0.56376, 0.23772,  1.05199, 0.03547, 0.00547,-0.00002, 0.02055,
539      . 0.54985, 0.22883,  0.95477, 0.03483, 0.00679, 0.00010, 0.02084,
540      . 0.53688, 0.22069,  0.87019, 0.03401, 0.00784, 0.00004, 0.02105,
541      . 0.52484, 0.21308,  0.79635, 0.03325, 0.00861, 0.00059, 0.02088,
542      . 0.51319, 0.20631,  0.73113, 0.03239, 0.00913, 0.00164, 0.02075,
543      . 0.50213, 0.19998,  0.67353, 0.03158, 0.00949, 0.00242, 0.02054,
544      . 0.49171, 0.19408,  0.62245, 0.03073, 0.00979, 0.00302, 0.02029,
545      . 0.48183, 0.18860,  0.57706, 0.02990, 0.01002, 0.00352, 0.02001,
546      . 0.47228, 0.18354,  0.53647, 0.02915, 0.01008, 0.00397, 0.01964,
547      . 0.46325, 0.17872,  0.50005, 0.02840, 0.01009, 0.00426, 0.01927,
548      . 0.45471, 0.17419,  0.46743, 0.02767, 0.01010, 0.00448, 0.01892,
549      . 0.44634, 0.17002,  0.43775, 0.02695, 0.01010, 0.00469, 0.01858,
550      . 0.43840, 0.16608,  0.41100, 0.02625, 0.01009, 0.00485, 0.01823,
551      . 0.43079, 0.16232,  0.38671, 0.02558, 0.01008, 0.00496, 0.01786,
552      . 0.42355, 0.15871,  0.36459, 0.02495, 0.01001, 0.00505, 0.01749,
553      . 0.41662, 0.15524,  0.34439, 0.02436, 0.00989, 0.00514, 0.01712,
554      . 0.40999, 0.15194,  0.32597, 0.02378, 0.00980, 0.00521, 0.01677 /
555       DATA ((F(I,27,M),I=1,5),F(7,27,M),F(6,27,M),M=1,19) /
556      . 0.59256, 0.24099,  1.13199, 0.02668, 0.00074, 0.00017, 0.01373,
557      . 0.57335, 0.22916,  1.00047, 0.02645, 0.00266, 0.00010, 0.01462,
558      . 0.55562, 0.21877,  0.88997, 0.02591, 0.00417, 0.00008, 0.01516,
559      . 0.53907, 0.20970,  0.79632, 0.02537, 0.00513, 0.00018, 0.01529,
560      . 0.52385, 0.20133,  0.71673, 0.02466, 0.00593, 0.00007, 0.01538,
561      . 0.50990, 0.19359,  0.64853, 0.02398, 0.00648, 0.00050, 0.01534,
562      . 0.49644, 0.18681,  0.58926, 0.02336, 0.00679, 0.00125, 0.01508,
563      . 0.48402, 0.18042,  0.53796, 0.02264, 0.00709, 0.00178, 0.01488,
564      . 0.47225, 0.17456,  0.49300, 0.02197, 0.00726, 0.00220, 0.01464,
565      . 0.46108, 0.16922,  0.45339, 0.02135, 0.00733, 0.00256, 0.01436,
566      . 0.45042, 0.16431,  0.41825, 0.02071, 0.00742, 0.00286, 0.01407,
567      . 0.44044, 0.15958,  0.38715, 0.02012, 0.00740, 0.00305, 0.01377,
568      . 0.43107, 0.15512,  0.35957, 0.01957, 0.00735, 0.00320, 0.01348,
569      . 0.42209, 0.15090,  0.33484, 0.01897, 0.00738, 0.00336, 0.01318,
570      . 0.41358, 0.14696,  0.31262, 0.01842, 0.00734, 0.00348, 0.01290,
571      . 0.40545, 0.14325,  0.29249, 0.01792, 0.00724, 0.00354, 0.01263,
572      . 0.39767, 0.13974,  0.27442, 0.01746, 0.00713, 0.00359, 0.01234,
573      . 0.39020, 0.13641,  0.25813, 0.01703, 0.00704, 0.00364, 0.01203,
574      . 0.38308, 0.13327,  0.24329, 0.01659, 0.00695, 0.00367, 0.01177 /
575       DATA ((F(I,28,M),I=1,5),F(7,28,M),F(6,28,M),M=1,19) /
576      . 0.58228, 0.22134,  0.97242, 0.01922, 0.00068, 0.00002, 0.01004,
577      . 0.55966, 0.20958,  0.84477, 0.01905, 0.00211, 0.00010, 0.01064,
578      . 0.53960, 0.19895,  0.74032, 0.01866, 0.00318, 0.00013, 0.01098,
579      . 0.52090, 0.18984,  0.65383, 0.01817, 0.00387, 0.00016, 0.01114,
580      . 0.50379, 0.18163,  0.58164, 0.01765, 0.00443, 0.00010, 0.01115,
581      . 0.48833, 0.17405,  0.52119, 0.01718, 0.00474, 0.00039, 0.01094,
582      . 0.47363, 0.16732,  0.46881, 0.01658, 0.00504, 0.00094, 0.01084,
583      . 0.45986, 0.16125,  0.42409, 0.01607, 0.00516, 0.00128, 0.01061,
584      . 0.44710, 0.15554,  0.38551, 0.01556, 0.00525, 0.00158, 0.01040,
585      . 0.43525, 0.15019,  0.35201, 0.01505, 0.00530, 0.00184, 0.01019,
586      . 0.42407, 0.14521,  0.32265, 0.01462, 0.00526, 0.00201, 0.00993,
587      . 0.41342, 0.14068,  0.29673, 0.01415, 0.00524, 0.00213, 0.00970,
588      . 0.40342, 0.13649,  0.27387, 0.01369, 0.00522, 0.00223, 0.00950,
589      . 0.39402, 0.13243,  0.25355, 0.01323, 0.00520, 0.00231, 0.00931,
590      . 0.38513, 0.12867,  0.23550, 0.01281, 0.00517, 0.00240, 0.00909,
591      . 0.37664, 0.12515,  0.21937, 0.01242, 0.00513, 0.00250, 0.00882,
592      . 0.36860, 0.12183,  0.20491, 0.01204, 0.00507, 0.00255, 0.00858,
593      . 0.36097, 0.11868,  0.19190, 0.01169, 0.00499, 0.00255, 0.00835,
594      . 0.35358, 0.11576,  0.18013, 0.01137, 0.00490, 0.00255, 0.00814 /
595       DATA ((F(I,29,M),I=1,5),F(7,29,M),F(6,29,M),M=1,19) /
596      . 0.56425, 0.20104,  0.81976, 0.01370, 0.00051, 0.00009, 0.00715,
597      . 0.53912, 0.18936,  0.70084, 0.01356, 0.00163, 0.00002, 0.00758,
598      . 0.51680, 0.17910,  0.60566, 0.01320, 0.00242, 0.00000, 0.00793,
599      . 0.49656, 0.17007,  0.52827, 0.01288, 0.00284, 0.00002, 0.00796,
600      . 0.47821, 0.16205,  0.46481, 0.01249, 0.00319, 0.00004, 0.00790,
601      . 0.46145, 0.15484,  0.41238, 0.01202, 0.00351, 0.00024, 0.00784,
602      . 0.44595, 0.14828,  0.36802, 0.01157, 0.00369, 0.00064, 0.00771,
603      . 0.43155, 0.14232,  0.33008, 0.01118, 0.00376, 0.00095, 0.00756,
604      . 0.41825, 0.13681,  0.29773, 0.01078, 0.00380, 0.00117, 0.00740,
605      . 0.40590, 0.13173,  0.26998, 0.01040, 0.00381, 0.00132, 0.00723,
606      . 0.39419, 0.12706,  0.24597, 0.01010, 0.00379, 0.00145, 0.00697,
607      . 0.38315, 0.12279,  0.22494, 0.00975, 0.00377, 0.00155, 0.00679,
608      . 0.37286, 0.11885,  0.20650, 0.00940, 0.00374, 0.00162, 0.00665,
609      . 0.36336, 0.11506,  0.19004, 0.00904, 0.00368, 0.00165, 0.00646,
610      . 0.35435, 0.11154,  0.17563, 0.00872, 0.00364, 0.00166, 0.00627,
611      . 0.34570, 0.10825,  0.16297, 0.00843, 0.00361, 0.00168, 0.00605,
612      . 0.33749, 0.10514,  0.15161, 0.00818, 0.00355, 0.00171, 0.00587,
613      . 0.32970, 0.10220,  0.14138, 0.00795, 0.00347, 0.00176, 0.00573,
614      . 0.32231, 0.09944,  0.13222, 0.00772, 0.00340, 0.00180, 0.00561 /
615       DATA ((F(I,30,M),I=1,5),F(7,30,M),F(6,30,M),M=1,19) /
616      . 0.53925, 0.18129,  0.67900, 0.00978, 0.00020,-0.00003, 0.00495,
617      . 0.51252, 0.16974,  0.57188, 0.00957, 0.00103,-0.00006, 0.00535,
618      . 0.48869, 0.15984,  0.48773, 0.00940, 0.00162,-0.00006, 0.00539,
619      . 0.46755, 0.15101,  0.42069, 0.00907, 0.00191,-0.00004, 0.00555,
620      . 0.44830, 0.14335,  0.36664, 0.00872, 0.00226,-0.00011, 0.00553,
621      . 0.43082, 0.13653,  0.32200, 0.00843, 0.00242, 0.00008, 0.00539,
622      . 0.41488, 0.13030,  0.28516, 0.00805, 0.00261, 0.00038, 0.00530,
623      . 0.40020, 0.12457,  0.25382, 0.00777, 0.00260, 0.00055, 0.00521,
624      . 0.38656, 0.11943,  0.22729, 0.00749, 0.00260, 0.00071, 0.00507,
625      . 0.37387, 0.11476,  0.20474, 0.00721, 0.00263, 0.00085, 0.00490,
626      . 0.36198, 0.11043,  0.18541, 0.00697, 0.00263, 0.00094, 0.00476,
627      . 0.35113, 0.10637,  0.16877, 0.00664, 0.00264, 0.00103, 0.00466,
628      . 0.34108, 0.10261,  0.15430, 0.00633, 0.00264, 0.00109, 0.00457,
629      . 0.33130, 0.09918,  0.14140, 0.00614, 0.00259, 0.00111, 0.00441,
630      . 0.32218, 0.09596,  0.13013, 0.00594, 0.00254, 0.00114, 0.00426,
631      . 0.31362, 0.09291,  0.12026, 0.00573, 0.00248, 0.00117, 0.00413,
632      . 0.30549, 0.09005,  0.11149, 0.00554, 0.00242, 0.00117, 0.00401,
633      . 0.29775, 0.08738,  0.10364, 0.00537, 0.00237, 0.00115, 0.00391,
634      . 0.29044, 0.08487,  0.09663, 0.00521, 0.00233, 0.00115, 0.00381 /
635       DATA ((F(I,31,M),I=1,5),F(7,31,M),F(6,31,M),M=1,19) /
636      . 0.50956, 0.16073,  0.55183, 0.00658, 0.00037, 0.00016, 0.00354,
637      . 0.48147, 0.14981,  0.45804, 0.00651, 0.00092, 0.00011, 0.00378,
638      . 0.45674, 0.14051,  0.38600, 0.00635, 0.00127, 0.00013, 0.00389,
639      . 0.43481, 0.13235,  0.32948, 0.00610, 0.00156, 0.00004, 0.00389,
640      . 0.41530, 0.12507,  0.28430, 0.00590, 0.00165, 0.00014, 0.00388,
641      . 0.39793, 0.11861,  0.24704, 0.00561, 0.00179, 0.00012, 0.00375,
642      . 0.38144, 0.11288,  0.21720, 0.00544, 0.00189, 0.00041, 0.00372,
643      . 0.36673, 0.10763,  0.19211, 0.00521, 0.00189, 0.00055, 0.00358,
644      . 0.35307, 0.10289,  0.17102, 0.00500, 0.00186, 0.00059, 0.00347,
645      . 0.34038, 0.09857,  0.15320, 0.00481, 0.00182, 0.00061, 0.00340,
646      . 0.32883, 0.09458,  0.13806, 0.00461, 0.00182, 0.00069, 0.00330,
647      . 0.31783, 0.09093,  0.12500, 0.00445, 0.00184, 0.00078, 0.00321,
648      . 0.30758, 0.08756,  0.11369, 0.00429, 0.00185, 0.00083, 0.00311,
649      . 0.29820, 0.08432,  0.10381, 0.00410, 0.00178, 0.00076, 0.00300,
650      . 0.28933, 0.08137,  0.09518, 0.00396, 0.00173, 0.00075, 0.00288,
651      . 0.28082, 0.07870,  0.08758, 0.00387, 0.00171, 0.00081, 0.00277,
652      . 0.27290, 0.07616,  0.08091, 0.00376, 0.00167, 0.00082, 0.00268,
653      . 0.26550, 0.07374,  0.07501, 0.00362, 0.00163, 0.00080, 0.00260,
654      . 0.25853, 0.07148,  0.06974, 0.00348, 0.00158, 0.00079, 0.00252 /
655       DATA ((F(I,32,M),I=1,5),F(7,32,M),F(6,32,M),M=1,19) /
656      . 0.47552, 0.14182,  0.44104, 0.00453, 0.00014,-0.00001, 0.00240,
657      . 0.44681, 0.13155,  0.36120, 0.00446, 0.00056,-0.00002, 0.00256,
658      . 0.42189, 0.12271,  0.30064, 0.00440, 0.00075,-0.00003, 0.00254,
659      . 0.39992, 0.11500,  0.25422, 0.00419, 0.00102,-0.00004, 0.00259,
660      . 0.38054, 0.10831,  0.21735, 0.00395, 0.00115, 0.00000, 0.00257,
661      . 0.36285, 0.10241,  0.18788, 0.00383, 0.00119, 0.00003, 0.00251,
662      . 0.34679, 0.09711,  0.16371, 0.00374, 0.00122, 0.00023, 0.00245,
663      . 0.33221, 0.09234,  0.14388, 0.00350, 0.00127, 0.00025, 0.00237,
664      . 0.31878, 0.08800,  0.12732, 0.00337, 0.00129, 0.00031, 0.00231,
665      . 0.30640, 0.08405,  0.11336, 0.00329, 0.00127, 0.00038, 0.00226,
666      . 0.29506, 0.08044,  0.10158, 0.00312, 0.00122, 0.00039, 0.00218,
667      . 0.28462, 0.07711,  0.09149, 0.00298, 0.00119, 0.00044, 0.00208,
668      . 0.27499, 0.07404,  0.08283, 0.00285, 0.00116, 0.00049, 0.00198,
669      . 0.26590, 0.07120,  0.07543, 0.00273, 0.00114, 0.00051, 0.00191,
670      . 0.25738, 0.06857,  0.06896, 0.00263, 0.00111, 0.00052, 0.00185,
671      . 0.24931, 0.06615,  0.06326, 0.00254, 0.00108, 0.00053, 0.00180,
672      . 0.24174, 0.06387,  0.05825, 0.00248, 0.00105, 0.00053, 0.00175,
673      . 0.23462, 0.06173,  0.05382, 0.00243, 0.00102, 0.00053, 0.00170,
674      . 0.22798, 0.05971,  0.04990, 0.00235, 0.00099, 0.00052, 0.00164 /
675       DATA ((F(I,33,M),I=1,5),F(7,33,M),F(6,33,M),M=1,19) /
676      . 0.43863, 0.12327,  0.34578, 0.00296, 0.00015, 0.00006, 0.00165,
677      . 0.41024, 0.11375,  0.27943, 0.00286, 0.00042, 0.00006, 0.00175,
678      . 0.38542, 0.10568,  0.23018, 0.00282, 0.00061, 0.00000, 0.00178,
679      . 0.36340, 0.09875,  0.19275, 0.00276, 0.00079, 0.00004, 0.00179,
680      . 0.34409, 0.09257,  0.16335, 0.00271, 0.00087, 0.00001, 0.00171,
681      . 0.32710, 0.08725,  0.14017, 0.00249, 0.00086, 0.00002, 0.00172,
682      . 0.31150, 0.08249,  0.12133, 0.00240, 0.00082, 0.00010, 0.00168,
683      . 0.29748, 0.07809,  0.10595, 0.00234, 0.00083, 0.00024, 0.00161,
684      . 0.28460, 0.07421,  0.09324, 0.00226, 0.00084, 0.00031, 0.00153,
685      . 0.27274, 0.07075,  0.08263, 0.00217, 0.00084, 0.00033, 0.00147,
686      . 0.26190, 0.06754,  0.07371, 0.00209, 0.00080, 0.00034, 0.00141,
687      . 0.25188, 0.06456,  0.06614, 0.00199, 0.00077, 0.00034, 0.00135,
688      . 0.24261, 0.06183,  0.05966, 0.00190, 0.00075, 0.00034, 0.00130,
689      . 0.23382, 0.05940,  0.05409, 0.00186, 0.00075, 0.00034, 0.00123,
690      . 0.22578, 0.05711,  0.04926, 0.00180, 0.00075, 0.00034, 0.00119,
691      . 0.21842, 0.05491,  0.04506, 0.00171, 0.00074, 0.00033, 0.00118,
692      . 0.21149, 0.05288,  0.04139, 0.00162, 0.00072, 0.00033, 0.00113,
693      . 0.20496, 0.05100,  0.03817, 0.00153, 0.00069, 0.00034, 0.00106,
694      . 0.19877, 0.04925,  0.03531, 0.00146, 0.00067, 0.00034, 0.00101 /
695       DATA ((F(I,34,M),I=1,5),F(7,34,M),F(6,34,M),M=1,19) /
696      . 0.40002, 0.10618,  0.26626, 0.00189, 0.00013, 0.00006, 0.00113,
697      . 0.37203, 0.09758,  0.21272, 0.00187, 0.00032, 0.00007, 0.00119,
698      . 0.34785, 0.09026,  0.17344, 0.00183, 0.00039, 0.00010, 0.00119,
699      . 0.32671, 0.08393,  0.14405, 0.00182, 0.00046, 0.00001, 0.00112,
700      . 0.30823, 0.07848,  0.12115, 0.00175, 0.00052, 0.00004, 0.00109,
701      . 0.29166, 0.07371,  0.10299, 0.00170, 0.00049, 0.00002, 0.00105,
702      . 0.27687, 0.06943,  0.08863, 0.00164, 0.00050, 0.00006, 0.00099,
703      . 0.26356, 0.06557,  0.07697, 0.00151, 0.00054, 0.00010, 0.00098,
704      . 0.25152, 0.06210,  0.06739, 0.00141, 0.00052, 0.00012, 0.00096,
705      . 0.24051, 0.05898,  0.05943, 0.00135, 0.00047, 0.00014, 0.00093,
706      . 0.23025, 0.05617,  0.05282, 0.00132, 0.00048, 0.00017, 0.00086,
707      . 0.22088, 0.05359,  0.04721, 0.00126, 0.00048, 0.00020, 0.00084,
708      . 0.21227, 0.05123,  0.04243, 0.00121, 0.00049, 0.00023, 0.00082,
709      . 0.20406, 0.04907,  0.03836, 0.00117, 0.00048, 0.00019, 0.00077,
710      . 0.19661, 0.04706,  0.03485, 0.00112, 0.00046, 0.00018, 0.00074,
711      . 0.18986, 0.04516,  0.03181, 0.00106, 0.00045, 0.00020, 0.00072,
712      . 0.18336, 0.04343,  0.02915, 0.00103, 0.00043, 0.00021, 0.00069,
713      . 0.17710, 0.04185,  0.02683, 0.00103, 0.00041, 0.00020, 0.00064,
714      . 0.17136, 0.04036,  0.02478, 0.00099, 0.00039, 0.00018, 0.00061 /
715       DATA ((F(I,35,M),I=1,5),F(7,35,M),F(6,35,M),M=1,19) /
716      . 0.36031, 0.09044,  0.20058, 0.00126, 0.00011, 0.00004, 0.00067,
717      . 0.33313, 0.08255,  0.15862, 0.00128, 0.00017, 0.00003, 0.00070,
718      . 0.30994, 0.07604,  0.12803, 0.00118, 0.00026, 0.00001, 0.00079,
719      . 0.28974, 0.07039,  0.10519, 0.00117, 0.00031,-0.00005, 0.00068,
720      . 0.27255, 0.06547,  0.08769, 0.00106, 0.00031,-0.00001, 0.00071,
721      . 0.25689, 0.06128,  0.07410, 0.00103, 0.00035, 0.00001, 0.00072,
722      . 0.24290, 0.05751,  0.06330, 0.00102, 0.00037, 0.00007, 0.00070,
723      . 0.23047, 0.05421,  0.05465, 0.00093, 0.00037, 0.00011, 0.00068,
724      . 0.21914, 0.05120,  0.04761, 0.00089, 0.00036, 0.00010, 0.00063,
725      . 0.20876, 0.04844,  0.04182, 0.00089, 0.00035, 0.00008, 0.00057,
726      . 0.19921, 0.04598,  0.03702, 0.00084, 0.00034, 0.00010, 0.00058,
727      . 0.19060, 0.04376,  0.03296, 0.00081, 0.00034, 0.00011, 0.00056,
728      . 0.18275, 0.04173,  0.02952, 0.00078, 0.00034, 0.00013, 0.00053,
729      . 0.17548, 0.03982,  0.02664, 0.00070, 0.00032, 0.00011, 0.00050,
730      . 0.16870, 0.03809,  0.02415, 0.00066, 0.00032, 0.00011, 0.00047,
731      . 0.16230, 0.03652,  0.02198, 0.00065, 0.00032, 0.00011, 0.00044,
732      . 0.15638, 0.03506,  0.02011, 0.00064, 0.00032, 0.00012, 0.00043,
733      . 0.15088, 0.03371,  0.01848, 0.00063, 0.00031, 0.00013, 0.00043,
734      . 0.14577, 0.03243,  0.01704, 0.00060, 0.00031, 0.00014, 0.00043 /
735       DATA ((F(I,36,M),I=1,5),F(7,36,M),F(6,36,M),M=1,19) /
736      . 0.32078, 0.07613,  0.14877, 0.00082, 0.00002,-0.00001, 0.00039,
737      . 0.29500, 0.06916,  0.11617, 0.00082, 0.00006,-0.00007, 0.00038,
738      . 0.27308, 0.06336,  0.09288, 0.00084, 0.00014, 0.00001, 0.00039,
739      . 0.25438, 0.05849,  0.07567, 0.00077, 0.00018,-0.00005, 0.00043,
740      . 0.23803, 0.05425,  0.06265, 0.00075, 0.00018,-0.00004, 0.00043,
741      . 0.22388, 0.05054,  0.05268, 0.00064, 0.00016,-0.00007, 0.00042,
742      . 0.21075, 0.04730,  0.04480, 0.00067, 0.00021,-0.00001, 0.00044,
743      . 0.19927, 0.04442,  0.03845, 0.00065, 0.00021, 0.00001, 0.00038,
744      . 0.18901, 0.04181,  0.03336, 0.00059, 0.00019, 0.00002, 0.00035,
745      . 0.17970, 0.03946,  0.02922, 0.00052, 0.00016, 0.00002, 0.00035,
746      . 0.17111, 0.03739,  0.02575, 0.00051, 0.00019, 0.00004, 0.00037,
747      . 0.16320, 0.03549,  0.02288, 0.00052, 0.00019, 0.00007, 0.00035,
748      . 0.15597, 0.03374,  0.02045, 0.00052, 0.00018, 0.00009, 0.00032,
749      . 0.14943, 0.03214,  0.01839, 0.00048, 0.00017, 0.00009, 0.00030,
750      . 0.14340, 0.03069,  0.01663, 0.00044, 0.00017, 0.00009, 0.00030,
751      . 0.13781, 0.02936,  0.01512, 0.00039, 0.00019, 0.00007, 0.00030,
752      . 0.13253, 0.02813,  0.01381, 0.00036, 0.00020, 0.00007, 0.00029,
753      . 0.12753, 0.02698,  0.01267, 0.00035, 0.00020, 0.00008, 0.00027,
754      . 0.12292, 0.02590,  0.01167, 0.00035, 0.00018, 0.00008, 0.00025 /
755       DATA ((F(I,37,M),I=1,5),F(7,37,M),F(6,37,M),M=1,19) /
756      . 0.28175, 0.06315,  0.10775, 0.00053, 0.00002,-0.00002, 0.00024,
757      . 0.25773, 0.05714,  0.08327, 0.00053, 0.00005,-0.00005, 0.00024,
758      . 0.23779, 0.05208,  0.06595, 0.00050, 0.00010, 0.00003, 0.00027,
759      . 0.22023, 0.04781,  0.05332, 0.00052, 0.00011, 0.00000, 0.00024,
760      . 0.20554, 0.04424,  0.04384, 0.00041, 0.00007,-0.00005, 0.00023,
761      . 0.19201, 0.04104,  0.03660, 0.00049, 0.00012,-0.00003, 0.00021,
762      . 0.18043, 0.03829,  0.03097, 0.00044, 0.00010,-0.00003, 0.00021,
763      . 0.17023, 0.03587,  0.02648, 0.00039, 0.00009, 0.00001, 0.00023,
764      . 0.16089, 0.03368,  0.02289, 0.00037, 0.00011, 0.00003, 0.00023,
765      . 0.15237, 0.03171,  0.01997, 0.00035, 0.00012, 0.00003, 0.00022,
766      . 0.14475, 0.02996,  0.01756, 0.00032, 0.00009, 0.00000, 0.00019,
767      . 0.13772, 0.02836,  0.01555, 0.00033, 0.00010, 0.00001, 0.00018,
768      . 0.13129, 0.02689,  0.01387, 0.00034, 0.00011, 0.00003, 0.00017,
769      . 0.12546, 0.02556,  0.01247, 0.00029, 0.00010, 0.00001, 0.00017,
770      . 0.12011, 0.02434,  0.01126, 0.00026, 0.00009, 0.00001, 0.00017,
771      . 0.11516, 0.02320,  0.01023, 0.00025, 0.00011, 0.00004, 0.00017,
772      . 0.11056, 0.02218,  0.00933, 0.00023, 0.00011, 0.00005, 0.00016,
773      . 0.10626, 0.02126,  0.00855, 0.00022, 0.00010, 0.00006, 0.00016,
774      . 0.10224, 0.02039,  0.00787, 0.00021, 0.00010, 0.00006, 0.00015 /
775       DATA ((F(I,38,M),I=1,5),F(7,38,M),F(6,38,M),M=1,19) /
776      . 0.24454, 0.05173,  0.07630, 0.00033,-0.00006,-0.00009, 0.00007,
777      . 0.22257, 0.04648,  0.05834, 0.00036, 0.00006,-0.00005, 0.00012,
778      . 0.20381, 0.04224,  0.04570, 0.00035, 0.00003,-0.00004, 0.00015,
779      . 0.18848, 0.03857,  0.03670, 0.00028, 0.00005,-0.00003, 0.00010,
780      . 0.17453, 0.03555,  0.02995, 0.00030, 0.00004,-0.00008, 0.00013,
781      . 0.16321, 0.03286,  0.02488, 0.00016, 0.00007,-0.00009, 0.00013,
782      . 0.15259, 0.03052,  0.02093, 0.00025, 0.00006,-0.00006, 0.00012,
783      . 0.14337, 0.02848,  0.01783, 0.00022, 0.00007,-0.00003, 0.00013,
784      . 0.13509, 0.02665,  0.01536, 0.00020, 0.00007,-0.00001, 0.00013,
785      . 0.12761, 0.02503,  0.01337, 0.00019, 0.00007, 0.00000, 0.00012,
786      . 0.12086, 0.02358,  0.01173, 0.00017, 0.00006, 0.00001, 0.00011,
787      . 0.11471, 0.02225,  0.01037, 0.00015, 0.00006, 0.00002, 0.00011,
788      . 0.10913, 0.02105,  0.00923, 0.00014, 0.00007, 0.00002, 0.00012,
789      . 0.10398, 0.01996,  0.00828, 0.00013, 0.00008, 0.00002, 0.00011,
790      . 0.09924, 0.01896,  0.00747, 0.00013, 0.00009, 0.00003, 0.00010,
791      . 0.09484, 0.01805,  0.00678, 0.00015, 0.00010, 0.00004, 0.00012,
792      . 0.09083, 0.01721,  0.00618, 0.00014, 0.00009, 0.00004, 0.00012,
793      . 0.08716, 0.01644,  0.00566, 0.00011, 0.00007, 0.00004, 0.00011,
794      . 0.08370, 0.01572,  0.00521, 0.00010, 0.00007, 0.00003, 0.00011 /
795       DATA ((F(I,39,M),I=1,5),F(7,39,M),F(6,39,M),M=1,19) /
796      . 0.20903, 0.04168,  0.05261, 0.00022,-0.00002,-0.00002, 0.00005,
797      . 0.18910, 0.03726,  0.03975, 0.00018, 0.00000,-0.00004, 0.00007,
798      . 0.17233, 0.03364,  0.03091, 0.00024,-0.00001,-0.00008, 0.00006,
799      . 0.15841, 0.03062,  0.02462, 0.00021, 0.00002,-0.00003, 0.00011,
800      . 0.14648, 0.02807,  0.01996, 0.00017, 0.00002,-0.00005, 0.00011,
801      . 0.13626, 0.02583,  0.01651, 0.00013, 0.00004,-0.00002, 0.00009,
802      . 0.12688, 0.02392,  0.01383, 0.00016, 0.00002,-0.00002, 0.00009,
803      . 0.11869, 0.02222,  0.01175, 0.00014, 0.00004,-0.00003, 0.00009,
804      . 0.11156, 0.02074,  0.01008, 0.00010, 0.00005,-0.00001, 0.00009,
805      . 0.10522, 0.01942,  0.00875, 0.00007, 0.00006, 0.00002, 0.00008,
806      . 0.09931, 0.01822,  0.00767, 0.00008, 0.00004, 0.00000, 0.00006,
807      . 0.09391, 0.01716,  0.00677, 0.00009, 0.00005, 0.00001, 0.00006,
808      . 0.08904, 0.01621,  0.00602, 0.00009, 0.00006, 0.00001, 0.00007,
809      . 0.08471, 0.01533,  0.00540, 0.00006, 0.00006, 0.00002, 0.00007,
810      . 0.08071, 0.01452,  0.00487, 0.00005, 0.00006, 0.00003, 0.00007,
811      . 0.07699, 0.01379,  0.00442, 0.00005, 0.00006, 0.00003, 0.00007,
812      . 0.07356, 0.01312,  0.00403, 0.00004, 0.00006, 0.00004, 0.00008,
813      . 0.07039, 0.01250,  0.00369, 0.00003, 0.00006, 0.00003, 0.00008,
814      . 0.06745, 0.01193,  0.00340, 0.00003, 0.00006, 0.00003, 0.00008 /
815       DATA ((F(I,40,M),I=1,5),F(7,40,M),F(6,40,M),M=1,19) /
816      . 0.17631, 0.03314,  0.03550, 0.00015,-0.00010,-0.00012,-0.00005,
817      . 0.15869, 0.02945,  0.02657, 0.00017,-0.00003,-0.00006, 0.00001,
818      . 0.14415, 0.02645,  0.02048, 0.00011,-0.00002,-0.00008, 0.00001,
819      . 0.13179, 0.02399,  0.01621, 0.00012,-0.00002,-0.00006, 0.00003,
820      . 0.12124, 0.02187,  0.01309, 0.00013, 0.00003,-0.00003, 0.00005,
821      . 0.11218, 0.02011,  0.01078, 0.00011, 0.00000,-0.00006, 0.00002,
822      . 0.10434, 0.01851,  0.00902, 0.00006, 0.00001,-0.00005, 0.00003,
823      . 0.09724, 0.01715,  0.00765, 0.00008, 0.00001,-0.00004, 0.00003,
824      . 0.09095, 0.01596,  0.00656, 0.00009, 0.00002,-0.00003, 0.00003,
825      . 0.08540, 0.01491,  0.00568, 0.00007, 0.00002,-0.00003, 0.00002,
826      . 0.08050, 0.01395,  0.00497, 0.00005, 0.00001,-0.00001, 0.00004,
827      . 0.07596, 0.01310,  0.00440, 0.00005, 0.00002, 0.00000, 0.00005,
828      . 0.07184, 0.01234,  0.00391, 0.00006, 0.00004, 0.00000, 0.00005,
829      . 0.06814, 0.01164,  0.00351, 0.00006, 0.00003, 0.00001, 0.00004,
830      . 0.06475, 0.01101,  0.00316, 0.00005, 0.00003, 0.00001, 0.00004,
831      . 0.06162, 0.01042,  0.00287, 0.00004, 0.00003, 0.00001, 0.00004,
832      . 0.05873, 0.00989,  0.00262, 0.00004, 0.00003, 0.00001, 0.00004,
833      . 0.05604, 0.00941,  0.00240, 0.00005, 0.00002, 0.00001, 0.00003,
834      . 0.05358, 0.00897,  0.00221, 0.00005, 0.00002, 0.00001, 0.00003 /
835       DATA ((F(I,41,M),I=1,5),F(7,41,M),F(6,41,M),M=1,19) /
836      . 0.14600, 0.02568,  0.02305, 0.00007,-0.00002,-0.00003, 0.00001,
837      . 0.13062, 0.02277,  0.01716, 0.00009,-0.00002,-0.00003,-0.00001,
838      . 0.11797, 0.02038,  0.01318, 0.00008, 0.00001,-0.00002, 0.00000,
839      . 0.10747, 0.01839,  0.01039, 0.00006,-0.00002,-0.00003,-0.00001,
840      . 0.09860, 0.01671,  0.00838, 0.00005, 0.00000, 0.00000, 0.00003,
841      . 0.09073, 0.01530,  0.00689, 0.00009,-0.00001,-0.00002, 0.00001,
842      . 0.08405, 0.01409,  0.00576, 0.00006, 0.00000,-0.00001, 0.00001,
843      . 0.07820, 0.01300,  0.00487, 0.00005, 0.00000,-0.00001, 0.00001,
844      . 0.07299, 0.01206,  0.00418, 0.00005, 0.00000,-0.00001, 0.00001,
845      . 0.06834, 0.01122,  0.00362, 0.00005, 0.00000,-0.00001, 0.00000,
846      . 0.06419, 0.01048,  0.00317, 0.00004, 0.00001,-0.00001, 0.00001,
847      . 0.06039, 0.00982,  0.00280, 0.00004, 0.00001, 0.00000, 0.00001,
848      . 0.05696, 0.00923,  0.00250, 0.00005, 0.00001, 0.00000, 0.00000,
849      . 0.05389, 0.00869,  0.00224, 0.00004, 0.00000, 0.00000, 0.00001,
850      . 0.05108, 0.00820,  0.00202, 0.00004, 0.00000, 0.00000, 0.00001,
851      . 0.04849, 0.00775,  0.00184, 0.00004, 0.00000,-0.00001, 0.00000,
852      . 0.04614, 0.00734,  0.00168, 0.00004, 0.00000,-0.00001, 0.00000,
853      . 0.04399, 0.00697,  0.00154, 0.00003, 0.00000, 0.00000, 0.00000,
854      . 0.04199, 0.00663,  0.00142, 0.00002, 0.00000, 0.00000, 0.00000 /
855       DATA ((F(I,42,M),I=1,5),F(7,42,M),F(6,42,M),M=1,19) /
856      . 0.09475, 0.01458,  0.00880, 0.00000, 0.00000,-0.00001,-0.00001,
857      . 0.08369, 0.01275,  0.00645, 0.00001, 0.00000,-0.00002, 0.00000,
858      . 0.07467, 0.01127,  0.00490, 0.00005, 0.00001, 0.00000, 0.00001,
859      . 0.06742, 0.01007,  0.00383, 0.00001, 0.00001,-0.00001, 0.00000,
860      . 0.06110, 0.00909,  0.00308, 0.00004, 0.00000, 0.00000, 0.00000,
861      . 0.05598, 0.00824,  0.00252,-0.00001, 0.00000,-0.00002, 0.00000,
862      . 0.05144, 0.00752,  0.00210, 0.00000, 0.00001, 0.00001, 0.00001,
863      . 0.04743, 0.00689,  0.00178, 0.00001, 0.00001, 0.00002, 0.00002,
864      . 0.04395, 0.00635,  0.00153, 0.00001, 0.00001, 0.00001, 0.00002,
865      . 0.04088, 0.00587,  0.00133, 0.00000, 0.00000, 0.00000, 0.00001,
866      . 0.03810, 0.00545,  0.00116, 0.00000, 0.00000, 0.00000, 0.00001,
867      . 0.03564, 0.00507,  0.00103, 0.00000, 0.00001, 0.00000, 0.00001,
868      . 0.03343, 0.00473,  0.00092, 0.00001, 0.00001, 0.00000, 0.00001,
869      . 0.03142, 0.00443,  0.00083, 0.00001, 0.00001, 0.00000, 0.00001,
870      . 0.02961, 0.00416,  0.00075, 0.00001, 0.00001, 0.00000, 0.00000,
871      . 0.02797, 0.00391,  0.00068, 0.00001, 0.00001, 0.00000, 0.00001,
872      . 0.02647, 0.00369,  0.00063, 0.00001, 0.00001, 0.00000, 0.00001,
873      . 0.02511, 0.00349,  0.00058, 0.00001, 0.00000, 0.00000, 0.00001,
874      . 0.02386, 0.00330,  0.00053, 0.00000, 0.00000, 0.00000, 0.00001 /
875       DATA ((F(I,43,M),I=1,5),F(7,43,M),F(6,43,M),M=1,19) /
876      . 0.05613, 0.00748,  0.00285, 0.00002, 0.00000,-0.00001, 0.00000,
877      . 0.04898, 0.00646,  0.00207, 0.00002, 0.00000,-0.00002,-0.00001,
878      . 0.04331, 0.00565,  0.00157, 0.00000,-0.00001, 0.00000, 0.00000,
879      . 0.03867, 0.00499,  0.00123, 0.00000,-0.00001, 0.00000, 0.00000,
880      . 0.03478, 0.00446,  0.00099,-0.00002, 0.00000,-0.00001, 0.00000,
881      . 0.03139, 0.00401,  0.00082, 0.00001, 0.00000,-0.00001, 0.00000,
882      . 0.02859, 0.00362,  0.00068, 0.00001, 0.00000, 0.00000, 0.00000,
883      . 0.02617, 0.00330,  0.00058, 0.00000, 0.00000, 0.00000, 0.00000,
884      . 0.02407, 0.00301,  0.00050, 0.00000, 0.00000, 0.00000, 0.00000,
885      . 0.02222, 0.00277,  0.00044, 0.00000, 0.00000, 0.00000, 0.00000,
886      . 0.02057, 0.00255,  0.00039, 0.00000, 0.00000, 0.00000, 0.00000,
887      . 0.01912, 0.00236,  0.00035, 0.00000, 0.00000, 0.00000, 0.00000,
888      . 0.01783, 0.00218,  0.00031, 0.00000, 0.00000, 0.00000, 0.00000,
889      . 0.01665, 0.00203,  0.00028, 0.00000, 0.00000, 0.00000, 0.00000,
890      . 0.01560, 0.00190,  0.00026, 0.00001, 0.00000, 0.00000, 0.00000,
891      . 0.01467, 0.00178,  0.00023, 0.00000, 0.00000, 0.00000, 0.00000,
892      . 0.01381, 0.00167,  0.00022, 0.00000, 0.00000, 0.00000, 0.00000,
893      . 0.01302, 0.00157,  0.00020, 0.00000, 0.00000, 0.00000, 0.00000,
894      . 0.01230, 0.00148,  0.00018, 0.00000, 0.00000, 0.00000, 0.00000 /
895       DATA ((F(I,44,M),I=1,5),F(7,44,M),F(6,44,M),M=1,19) /
896      . 0.02942, 0.00332,  0.00073, 0.00000, 0.00000, 0.00000, 0.00000,
897      . 0.02533, 0.00283,  0.00054, 0.00000, 0.00000, 0.00000, 0.00000,
898      . 0.02208, 0.00244,  0.00041, 0.00000,-0.00001, 0.00000, 0.00000,
899      . 0.01946, 0.00213,  0.00033, 0.00000, 0.00000, 0.00000, 0.00000,
900      . 0.01730, 0.00188,  0.00027, 0.00000, 0.00000, 0.00000, 0.00000,
901      . 0.01549, 0.00168,  0.00023, 0.00001, 0.00000, 0.00000, 0.00000,
902      . 0.01398, 0.00150,  0.00019, 0.00000, 0.00000, 0.00000, 0.00000,
903      . 0.01268, 0.00136,  0.00017, 0.00000, 0.00000, 0.00000, 0.00000,
904      . 0.01156, 0.00123,  0.00015, 0.00000, 0.00000, 0.00000, 0.00000,
905      . 0.01059, 0.00112,  0.00013, 0.00000, 0.00000, 0.00000, 0.00000,
906      . 0.00973, 0.00102,  0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
907      . 0.00898, 0.00094,  0.00010, 0.00000, 0.00000, 0.00000, 0.00000,
908      . 0.00832, 0.00087,  0.00009, 0.00000, 0.00000, 0.00000, 0.00000,
909      . 0.00772, 0.00080,  0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
910      . 0.00719, 0.00074,  0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
911      . 0.00672, 0.00069,  0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
912      . 0.00629, 0.00064,  0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
913      . 0.00589, 0.00060,  0.00006, 0.00000, 0.00000, 0.00000, 0.00000,
914      . 0.00554, 0.00056,  0.00006, 0.00000, 0.00000, 0.00000, 0.00000 /
915       DATA ((F(I,45,M),I=1,5),F(7,45,M),F(6,45,M),M=1,19) /
916      . 0.01301, 0.00121,  0.00014, 0.00000, 0.00000, 0.00000, 0.00000,
917      . 0.01101, 0.00101,  0.00011, 0.00000, 0.00000, 0.00000, 0.00000,
918      . 0.00944, 0.00086,  0.00008, 0.00000, 0.00000, 0.00000, 0.00000,
919      . 0.00820, 0.00074,  0.00007, 0.00000, 0.00000, 0.00000, 0.00000,
920      . 0.00719, 0.00064,  0.00006, 0.00000, 0.00000, 0.00000, 0.00000,
921      . 0.00637, 0.00057,  0.00005, 0.00000, 0.00000, 0.00000, 0.00000,
922      . 0.00568, 0.00050,  0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
923      . 0.00510, 0.00045,  0.00004, 0.00000, 0.00000, 0.00000, 0.00000,
924      . 0.00460, 0.00040,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
925      . 0.00417, 0.00036,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
926      . 0.00381, 0.00033,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
927      . 0.00348, 0.00030,  0.00003, 0.00000, 0.00000, 0.00000, 0.00000,
928      . 0.00319, 0.00027,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
929      . 0.00294, 0.00025,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
930      . 0.00272, 0.00023,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
931      . 0.00252, 0.00021,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
932      . 0.00234, 0.00020,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
933      . 0.00218, 0.00018,  0.00002, 0.00000, 0.00000, 0.00000, 0.00000,
934      . 0.00203, 0.00017,  0.00001, 0.00000, 0.00000, 0.00000, 0.00000 /
935       DATA ((F(I,46,M),I=1,5),F(7,46,M),F(6,46,M),M=1,19) /
936      . 0.00090, 0.00005,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
937      . 0.00073, 0.00004,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
938      . 0.00060, 0.00003,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
939      . 0.00050, 0.00003,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
940      . 0.00043, 0.00002,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
941      . 0.00036, 0.00002,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
942      . 0.00031, 0.00002,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
943      . 0.00027, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
944      . 0.00024, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
945      . 0.00021, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
946      . 0.00019, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
947      . 0.00017, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
948      . 0.00015, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
949      . 0.00014, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
950      . 0.00012, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
951      . 0.00011, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
952      . 0.00010, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
953      . 0.00009, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
954      . 0.00008, 0.00001,  0.00000, 0.00000, 0.00000, 0.00000, 0.00000 /
955
956 C
957 C     don't let x be altered if it's out of range!!
958 C
959       XSAVE=X
960 C
961       IF(INIT.NE.0) GOTO 10
962       INIT=1
963       DO 20 N=1,NX-1
964       DO 20 M=1,19
965 C 1=UV 2=DV 3=GLUE 4=(UBAR+DBAR)/2 5=CBAR 7=BBAR 6=SBAR
966          DO 25 I=1,7
967   25     F(I,N,M)=F(I,N,M)/(ONED-XX(N))**N0(I)
968   20  CONTINUE
969       DO 30 J=1,NTENTH-1
970       XX(J)= LOG10(XX(J))+ONEDO
971       DO 30 I=1,6
972       DO 30 K=1,19
973   30  F(I,J,K) = LOG( F(I,J,K))*F(I,NTENTH,K)/ LOG( F(I,NTENTH,K))
974       DO 40 I=1,7
975       DO 40 M=1,19
976   40  F(I,NX,M)=ZEROD
977   10  CONTINUE
978       IF(X.LT.XMIN) X=XMIN
979       IF(X.GT.XMAX) X=XMAX
980       QSQ=SCALE**2
981       IF(QSQ.LT.QSQMIN) QSQ=QSQMIN
982       IF(QSQ.GT.QSQMAX) QSQ=QSQMAX
983       XXX=X
984       IF(X.LT.PONED) XXX= LOG10(X)+ONEDO
985       N=0
986   70  N=N+1
987       IF(XXX.GT.XX(N+1)) GOTO 70
988       A=(XXX-XX(N))/(XX(N+1)-XX(N))
989       RM= LOG(QSQ/QSQMIN)/ LOG(TWOD)
990       B=RM-AINT(RM)
991       M=1+  INT(RM)
992       DO 60 I=1,7
993       G(I)= (ONED-A)*(ONED-B)*F(I,N,M)+(ONED-A)*B*F(I,N,M+1)
994      .    + A*(ONED-B)*F(I,N+1,M)  + A*B*F(I,N+1,M+1)
995       IF(N.GE.NTENTH) GOTO 65
996       IF(I.EQ.7) GOTO 65
997           FAC=(ONED-B)*F(I,NTENTH,M)+B*F(I,NTENTH,M+1)
998           G(I)=FAC**(G(I)/FAC)
999   65  CONTINUE
1000       G(I)=G(I)*(ONED-X)**N0(I)
1001   60  CONTINUE
1002       UPV=G(1)
1003       DNV=G(2)
1004 C
1005 C     this sea is (ubar+dbar)/2
1006 C
1007       SEA=G(4)
1008       STR=G(6)
1009       CHM=G(5)
1010       GL =G(3)
1011       BOT=G(7)
1012 C
1013 C     restore x
1014 C
1015       X=XSAVE
1016 C
1017       RETURN
1018       END