]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PDF/spdf/fxg360.F
negative indexes allowed
[u/mrichter/AliRoot.git] / PDF / spdf / fxg360.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.3  1996/11/15 17:32:44  cernlib
6 * Import version 7.06
7 *
8 * Revision 1.2  1996/11/15 15:07:04  pdflib
9 * Version 7.06: tabs removed and bug fixed in grsgalo
10 *
11 * Revision 1.1.1.1  1996/04/12 15:29:18  plothow
12 * Version 7.01
13 *
14 *
15 #include "pdf/pilot.h"
16 C
17 C------------------------------------------------------------
18 C------------- Subroutine to compute a point in x and q**2 --
19 C------------- for the following parton distributions :    --
20 C------------- UP Valence, DOWN Valence , GLUON , QBAR ,   --
21 C------------- UBAR , Strange , Charm , Bottom , Top .     --
22 C------------- Range of validity :                         --
23 C-------------                     5.E-05 < x < .95        --
24 C-------------                     1      <Log10 Q**2 < 8  --
25 C------------------------------------------------------------
26 C-------------        Authors :    M. Diemoz
27 C-------------                     F. Ferroni
28 C-------------                     E. Longo
29 C-------------                     G. Martinelli
30 C------------------------------------------------------------
31       SUBROUTINE  FXG360(X,QSTAR2,STRFUN,FUNC)
32 C------------------------------------------------------------
33 C-------------   X is x and QSTAR2 is Q square  -------------
34       CHARACTER*(*) STRFUN
35 C------------------------------------------------------------
36 C------------ STRFUN specifies the desired function----------
37 C------------------------------------------------------------
38 C------------------------------------------------------------
39 C        IFUN =  1     UP valence      'UPVAL'
40 C                2     DOWN valence    'DOVAL'
41 C                3     Gluon           'GLUON'
42 C                4     Q bar           'QBAR '
43 C                5     UP bar          'UBAR '
44 C                6     Strange         'SBAR '
45 C                7     Charm           'CBAR '
46 C                8     Bottom          'BBAR '
47 C                9     Top             'TBAR '
48 C------------------------------------------------------------
49 C-------------  FUNC is the output (parton density value)----
50 C------------------------------------------------------------
51       PARAMETER (IX=104,IQ=9,NARG=2,KFUN=9)
52 C------------------------------------------------------------
53 C-----------Input tables are given as 104 x points at 9 Q**2
54 C-----------positions (log spaced in Q**2 and x up to .6
55 C-----------(90 points). The remaining 14 x points are ------
56 C----------linearly spaced)----------------------------------
57 C------------------------------------------------------------
58       DIMENSION ARG(NARG),NENT(NARG),ENT(IX+IQ)
59       DIMENSION XQDUM(IX,IQ,KFUN)
60       DIMENSION Q2(IQ),XCO(IX)
61 C------------------------------------------------------------
62 C----------- Next the 9 Q**2 of the input tables are defined
63 C------------------------------------------------------------
64       DATA Q2 /10.,30.,100.,1000.,10000.,100000.,1000000,
65      +         10000000.,100000000./
66 C----------------------------------------------------------------
67 C----------- And now the 104 x positions ------------------------
68 C----------------------------------------------------------------
69       DATA XCO   /
70      +0.5000E-04,0.5545E-04,0.6150E-04,0.6820E-04,0.7564E-04,0.8389E-04,
71      +0.9303E-04,0.1032E-03,0.1144E-03,0.1269E-03,0.1407E-03,0.1561E-03,
72      +0.1731E-03,0.1920E-03,0.2129E-03,0.2361E-03,0.2619E-03,0.2904E-03,
73      +0.3221E-03,0.3572E-03,0.3961E-03,0.4393E-03,0.4872E-03,0.5404E-03,
74      +0.5993E-03,0.6646E-03,0.7371E-03,0.8174E-03,0.9066E-03,0.1005E-02,
75      +0.1115E-02,0.1237E-02,0.1371E-02,0.1521E-02,0.1687E-02,0.1871E-02,
76      +0.2075E-02,0.2301E-02,0.2552E-02,0.2830E-02,0.3139E-02,0.3481E-02,
77      +0.3860E-02,0.4281E-02,0.4748E-02,0.5266E-02,0.5840E-02,0.6476E-02,
78      +0.7182E-02,0.7966E-02,0.8834E-02,0.9797E-02,0.1087E-01,0.1205E-01,
79      +0.1336E-01,0.1482E-01,0.1644E-01,0.1823E-01,0.2022E-01,0.2242E-01,
80      +0.2487E-01,0.2758E-01,0.3058E-01,0.3392E-01,0.3762E-01,0.4172E-01,
81      +0.4627E-01,0.5131E-01,0.5690E-01,0.6311E-01,0.6999E-01,0.7762E-01,
82      +0.8608E-01,0.9547E-01,0.1059E+00,0.1174E+00,0.1302E+00,0.1444E+00,
83      +0.1602E+00,0.1776E+00,0.1970E+00,0.2185E+00,0.2423E+00,0.2687E+00,
84      +0.2980E+00,0.3305E+00,0.3666E+00,0.4065E+00,0.4508E+00,0.5000E+00,
85      +0.5321E+00,0.5643E+00,0.5964E+00,0.6286E+00,0.6607E+00,0.6929E+00,
86      +0.7250E+00,0.7571E+00,0.7893E+00,0.8214E+00,0.8536E+00,0.8857E+00,
87      +0.9179E+00,0.9500E+00/
88       DATA (XQDUM (I,1,1),I=1,104) /
89      +0.1154E-01,0.1220E-01,0.1290E-01,0.1363E-01,0.1441E-01,0.1523E-01,
90      +0.1610E-01,0.1702E-01,0.1799E-01,0.1901E-01,0.2010E-01,0.2124E-01,
91      +0.2245E-01,0.2373E-01,0.2509E-01,0.2652E-01,0.2803E-01,0.2962E-01,
92      +0.3131E-01,0.3309E-01,0.3498E-01,0.3697E-01,0.3908E-01,0.4130E-01,
93      +0.4365E-01,0.4613E-01,0.4876E-01,0.5153E-01,0.5445E-01,0.5755E-01,
94      +0.6082E-01,0.6427E-01,0.6791E-01,0.7176E-01,0.7583E-01,0.8012E-01,
95      +0.8465E-01,0.8943E-01,0.9448E-01,0.9981E-01,0.1054E+00,0.1114E+00,
96      +0.1176E+00,0.1242E+00,0.1311E+00,0.1385E+00,0.1462E+00,0.1543E+00,
97      +0.1628E+00,0.1718E+00,0.1812E+00,0.1912E+00,0.2016E+00,0.2125E+00,
98      +0.2239E+00,0.2359E+00,0.2484E+00,0.2615E+00,0.2751E+00,0.2893E+00,
99      +0.3040E+00,0.3193E+00,0.3350E+00,0.3513E+00,0.3679E+00,0.3850E+00,
100      +0.4023E+00,0.4198E+00,0.4373E+00,0.4548E+00,0.4719E+00,0.4886E+00,
101      +0.5045E+00,0.5193E+00,0.5326E+00,0.5440E+00,0.5530E+00,0.5591E+00,
102      +0.5617E+00,0.5601E+00,0.5538E+00,0.5421E+00,0.5243E+00,0.5002E+00,
103      +0.4693E+00,0.4318E+00,0.3881E+00,0.3390E+00,0.2860E+00,0.2312E+00,
104      +0.1982E+00,0.1679E+00,0.1404E+00,0.1157E+00,0.9371E-01,0.7442E-01,
105      +0.5769E-01,0.4337E-01,0.3133E-01,0.2144E-01,0.1357E-01,0.7621E-02,
106      +0.3496E-02,0.1057E-02/
107       DATA (XQDUM (I,1,2),I=1,104) /
108      +0.6591E-02,0.6967E-02,0.7364E-02,0.7784E-02,0.8228E-02,0.8697E-02,
109      +0.9193E-02,0.9717E-02,0.1027E-01,0.1086E-01,0.1147E-01,0.1213E-01,
110      +0.1282E-01,0.1355E-01,0.1432E-01,0.1514E-01,0.1600E-01,0.1691E-01,
111      +0.1787E-01,0.1889E-01,0.1997E-01,0.2110E-01,0.2230E-01,0.2357E-01,
112      +0.2491E-01,0.2632E-01,0.2782E-01,0.2940E-01,0.3107E-01,0.3283E-01,
113      +0.3469E-01,0.3665E-01,0.3872E-01,0.4091E-01,0.4322E-01,0.4566E-01,
114      +0.4823E-01,0.5095E-01,0.5381E-01,0.5683E-01,0.6001E-01,0.6336E-01,
115      +0.6689E-01,0.7061E-01,0.7453E-01,0.7864E-01,0.8297E-01,0.8752E-01,
116      +0.9230E-01,0.9732E-01,0.1026E+00,0.1081E+00,0.1138E+00,0.1199E+00,
117      +0.1262E+00,0.1327E+00,0.1395E+00,0.1466E+00,0.1539E+00,0.1615E+00,
118      +0.1693E+00,0.1773E+00,0.1854E+00,0.1938E+00,0.2022E+00,0.2106E+00,
119      +0.2191E+00,0.2274E+00,0.2355E+00,0.2433E+00,0.2506E+00,0.2573E+00,
120      +0.2633E+00,0.2682E+00,0.2719E+00,0.2741E+00,0.2746E+00,0.2731E+00,
121      +0.2694E+00,0.2630E+00,0.2539E+00,0.2419E+00,0.2269E+00,0.2088E+00,
122      +0.1881E+00,0.1651E+00,0.1404E+00,0.1149E+00,0.8969E-01,0.6600E-01,
123      +0.5296E-01,0.4178E-01,0.3235E-01,0.2453E-01,0.1816E-01,0.1305E-01,
124      +0.9059E-02,0.6015E-02,0.3770E-02,0.2186E-02,0.1134E-02,0.4973E-03,
125      +0.1640E-03,0.3020E-04/
126       DATA (XQDUM (I,1,3),I=1,104) /
127      +0.3367E+02,0.3244E+02,0.3126E+02,0.3012E+02,0.2903E+02,0.2797E+02,
128      +0.2695E+02,0.2597E+02,0.2502E+02,0.2411E+02,0.2324E+02,0.2239E+02,
129      +0.2158E+02,0.2079E+02,0.2003E+02,0.1931E+02,0.1860E+02,0.1793E+02,
130      +0.1727E+02,0.1665E+02,0.1604E+02,0.1546E+02,0.1490E+02,0.1436E+02,
131      +0.1383E+02,0.1333E+02,0.1285E+02,0.1238E+02,0.1193E+02,0.1150E+02,
132      +0.1108E+02,0.1068E+02,0.1029E+02,0.9914E+01,0.9554E+01,0.9206E+01,
133      +0.8871E+01,0.8548E+01,0.8236E+01,0.7935E+01,0.7645E+01,0.7365E+01,
134      +0.7095E+01,0.6834E+01,0.6582E+01,0.6338E+01,0.6103E+01,0.5876E+01,
135      +0.5655E+01,0.5442E+01,0.5236E+01,0.5036E+01,0.4842E+01,0.4654E+01,
136      +0.4471E+01,0.4293E+01,0.4119E+01,0.3951E+01,0.3786E+01,0.3625E+01,
137      +0.3467E+01,0.3313E+01,0.3161E+01,0.3013E+01,0.2866E+01,0.2722E+01,
138      +0.2580E+01,0.2439E+01,0.2301E+01,0.2163E+01,0.2028E+01,0.1893E+01,
139      +0.1760E+01,0.1628E+01,0.1499E+01,0.1370E+01,0.1244E+01,0.1121E+01,
140      +0.1001E+01,0.8836E+00,0.7708E+00,0.6630E+00,0.5609E+00,0.4653E+00,
141      +0.3772E+00,0.2974E+00,0.2267E+00,0.1657E+00,0.1149E+00,0.7438E-01,
142      +0.5489E-01,0.3975E-01,0.2816E-01,0.1944E-01,0.1301E-01,0.8390E-02,
143      +0.5165E-02,0.3001E-02,0.1618E-02,0.7887E-03,0.3339E-03,0.1143E-03,
144      +0.2737E-04,0.0000E+00/
145       DATA (XQDUM (I,1,4),I=1,104) /
146      +0.6996E+00,0.6996E+00,0.6994E+00,0.6994E+00,0.6994E+00,0.6992E+00,
147      +0.6993E+00,0.6992E+00,0.6990E+00,0.6989E+00,0.6988E+00,0.6987E+00,
148      +0.6985E+00,0.6983E+00,0.6981E+00,0.6980E+00,0.6977E+00,0.6974E+00,
149      +0.6972E+00,0.6968E+00,0.6965E+00,0.6961E+00,0.6957E+00,0.6952E+00,
150      +0.6947E+00,0.6941E+00,0.6935E+00,0.6928E+00,0.6920E+00,0.6911E+00,
151      +0.6902E+00,0.6891E+00,0.6879E+00,0.6866E+00,0.6852E+00,0.6836E+00,
152      +0.6818E+00,0.6799E+00,0.6777E+00,0.6754E+00,0.6727E+00,0.6698E+00,
153      +0.6666E+00,0.6631E+00,0.6592E+00,0.6549E+00,0.6502E+00,0.6450E+00,
154      +0.6393E+00,0.6331E+00,0.6262E+00,0.6187E+00,0.6105E+00,0.6015E+00,
155      +0.5917E+00,0.5811E+00,0.5695E+00,0.5570E+00,0.5435E+00,0.5290E+00,
156      +0.5134E+00,0.4966E+00,0.4788E+00,0.4599E+00,0.4400E+00,0.4190E+00,
157      +0.3971E+00,0.3744E+00,0.3510E+00,0.3271E+00,0.3028E+00,0.2785E+00,
158      +0.2543E+00,0.2305E+00,0.2073E+00,0.1850E+00,0.1638E+00,0.1438E+00,
159      +0.1252E+00,0.1079E+00,0.9189E-01,0.7717E-01,0.6363E-01,0.5119E-01,
160      +0.3985E-01,0.2967E-01,0.2082E-01,0.1351E-01,0.7893E-02,0.4007E-02,
161      +0.2439E-02,0.1414E-02,0.7767E-03,0.4008E-03,0.1924E-03,0.8481E-04,
162      +0.3374E-04,0.1182E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
163      +0.0000E+00,0.0000E+00/
164       DATA (XQDUM (I,1,5),I=1,104) /
165      +0.2915E+00,0.2915E+00,0.2914E+00,0.2914E+00,0.2914E+00,0.2913E+00,
166      +0.2914E+00,0.2913E+00,0.2913E+00,0.2912E+00,0.2912E+00,0.2911E+00,
167      +0.2910E+00,0.2910E+00,0.2909E+00,0.2908E+00,0.2907E+00,0.2906E+00,
168      +0.2905E+00,0.2904E+00,0.2902E+00,0.2901E+00,0.2899E+00,0.2897E+00,
169      +0.2895E+00,0.2892E+00,0.2890E+00,0.2887E+00,0.2883E+00,0.2880E+00,
170      +0.2876E+00,0.2871E+00,0.2866E+00,0.2861E+00,0.2855E+00,0.2848E+00,
171      +0.2841E+00,0.2833E+00,0.2824E+00,0.2814E+00,0.2803E+00,0.2791E+00,
172      +0.2778E+00,0.2763E+00,0.2747E+00,0.2729E+00,0.2709E+00,0.2688E+00,
173      +0.2664E+00,0.2638E+00,0.2609E+00,0.2578E+00,0.2544E+00,0.2506E+00,
174      +0.2466E+00,0.2421E+00,0.2373E+00,0.2321E+00,0.2265E+00,0.2204E+00,
175      +0.2139E+00,0.2069E+00,0.1995E+00,0.1916E+00,0.1833E+00,0.1746E+00,
176      +0.1655E+00,0.1560E+00,0.1462E+00,0.1363E+00,0.1262E+00,0.1160E+00,
177      +0.1060E+00,0.9604E-01,0.8639E-01,0.7710E-01,0.6826E-01,0.5993E-01,
178      +0.5215E-01,0.4494E-01,0.3829E-01,0.3216E-01,0.2651E-01,0.2133E-01,
179      +0.1660E-01,0.1236E-01,0.8676E-02,0.5628E-02,0.3289E-02,0.1669E-02,
180      +0.1016E-02,0.5892E-03,0.3236E-03,0.1670E-03,0.8017E-04,0.3534E-04,
181      +0.1406E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
182      +0.0000E+00,0.0000E+00/
183       DATA (XQDUM (I,1,6),I=1,104) /
184      +0.1166E+00,0.1166E+00,0.1166E+00,0.1166E+00,0.1166E+00,0.1165E+00,
185      +0.1165E+00,0.1165E+00,0.1165E+00,0.1165E+00,0.1165E+00,0.1164E+00,
186      +0.1164E+00,0.1164E+00,0.1164E+00,0.1163E+00,0.1163E+00,0.1162E+00,
187      +0.1162E+00,0.1161E+00,0.1161E+00,0.1160E+00,0.1159E+00,0.1159E+00,
188      +0.1158E+00,0.1157E+00,0.1156E+00,0.1155E+00,0.1153E+00,0.1152E+00,
189      +0.1150E+00,0.1149E+00,0.1147E+00,0.1144E+00,0.1142E+00,0.1139E+00,
190      +0.1136E+00,0.1133E+00,0.1130E+00,0.1126E+00,0.1121E+00,0.1116E+00,
191      +0.1111E+00,0.1105E+00,0.1099E+00,0.1092E+00,0.1084E+00,0.1075E+00,
192      +0.1066E+00,0.1055E+00,0.1044E+00,0.1031E+00,0.1017E+00,0.1002E+00,
193      +0.9862E-01,0.9685E-01,0.9492E-01,0.9284E-01,0.9059E-01,0.8816E-01,
194      +0.8556E-01,0.8277E-01,0.7980E-01,0.7665E-01,0.7333E-01,0.6983E-01,
195      +0.6618E-01,0.6240E-01,0.5850E-01,0.5451E-01,0.5047E-01,0.4642E-01,
196      +0.4238E-01,0.3842E-01,0.3456E-01,0.3084E-01,0.2730E-01,0.2397E-01,
197      +0.2086E-01,0.1798E-01,0.1531E-01,0.1286E-01,0.1061E-01,0.8532E-02,
198      +0.6641E-02,0.4945E-02,0.3470E-02,0.2251E-02,0.1315E-02,0.6679E-03,
199      +0.4064E-03,0.2357E-03,0.1294E-03,0.6680E-04,0.3207E-04,0.1413E-04,
200      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
201      +0.0000E+00,0.0000E+00/
202       DATA (XQDUM (I,1,7),I=1,104) /
203      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
204      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
205      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
206      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
207      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
208      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
209      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
210      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
211      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
212      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
213      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
214      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
215      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
216      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
217      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
218      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
219      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
220      +0.0000E+00,0.0000E+00/
221       DATA (XQDUM (I,1,8),I=1,104) /
222      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
223      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
224      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
225      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
226      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
227      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
228      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
229      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
230      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
231      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
232      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
233      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
234      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
235      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
236      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
237      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
238      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
239      +0.0000E+00,0.0000E+00/
240       DATA (XQDUM (I,1,9),I=1,104) /
241      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
242      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
243      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
244      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
245      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
246      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
247      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
248      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
249      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
250      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
251      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
252      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
253      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
254      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
255      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
256      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
257      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
258      +0.0000E+00,0.0000E+00/
259       DATA (XQDUM (I,2,1),I=1,104) /
260      +0.1281E-01,0.1354E-01,0.1430E-01,0.1512E-01,0.1597E-01,0.1688E-01,
261      +0.1784E-01,0.1885E-01,0.1992E-01,0.2104E-01,0.2224E-01,0.2350E-01,
262      +0.2483E-01,0.2623E-01,0.2772E-01,0.2928E-01,0.3094E-01,0.3269E-01,
263      +0.3454E-01,0.3649E-01,0.3855E-01,0.4072E-01,0.4302E-01,0.4545E-01,
264      +0.4801E-01,0.5072E-01,0.5357E-01,0.5659E-01,0.5977E-01,0.6312E-01,
265      +0.6667E-01,0.7041E-01,0.7435E-01,0.7851E-01,0.8290E-01,0.8753E-01,
266      +0.9241E-01,0.9755E-01,0.1030E+00,0.1087E+00,0.1147E+00,0.1210E+00,
267      +0.1277E+00,0.1347E+00,0.1421E+00,0.1499E+00,0.1580E+00,0.1666E+00,
268      +0.1756E+00,0.1850E+00,0.1949E+00,0.2052E+00,0.2161E+00,0.2274E+00,
269      +0.2392E+00,0.2515E+00,0.2643E+00,0.2776E+00,0.2915E+00,0.3058E+00,
270      +0.3205E+00,0.3357E+00,0.3513E+00,0.3672E+00,0.3834E+00,0.3998E+00,
271      +0.4162E+00,0.4326E+00,0.4489E+00,0.4647E+00,0.4800E+00,0.4944E+00,
272      +0.5077E+00,0.5195E+00,0.5295E+00,0.5372E+00,0.5421E+00,0.5438E+00,
273      +0.5417E+00,0.5353E+00,0.5241E+00,0.5075E+00,0.4852E+00,0.4570E+00,
274      +0.4230E+00,0.3833E+00,0.3389E+00,0.2907E+00,0.2403E+00,0.1898E+00,
275      +0.1602E+00,0.1335E+00,0.1097E+00,0.8874E-01,0.7047E-01,0.5475E-01,
276      +0.4141E-01,0.3027E-01,0.2116E-01,0.1393E-01,0.8402E-02,0.4438E-02,
277      +0.1871E-02,0.4938E-03/
278       DATA (XQDUM (I,2,2),I=1,104) /
279      +0.7309E-02,0.7723E-02,0.8161E-02,0.8624E-02,0.9113E-02,0.9629E-02,
280      +0.1017E-01,0.1075E-01,0.1136E-01,0.1200E-01,0.1268E-01,0.1340E-01,
281      +0.1416E-01,0.1496E-01,0.1580E-01,0.1670E-01,0.1764E-01,0.1864E-01,
282      +0.1969E-01,0.2080E-01,0.2197E-01,0.2321E-01,0.2452E-01,0.2590E-01,
283      +0.2736E-01,0.2889E-01,0.3052E-01,0.3223E-01,0.3404E-01,0.3594E-01,
284      +0.3795E-01,0.4007E-01,0.4231E-01,0.4467E-01,0.4715E-01,0.4977E-01,
285      +0.5253E-01,0.5544E-01,0.5849E-01,0.6171E-01,0.6510E-01,0.6867E-01,
286      +0.7241E-01,0.7635E-01,0.8048E-01,0.8482E-01,0.8936E-01,0.9413E-01,
287      +0.9912E-01,0.1043E+00,0.1098E+00,0.1155E+00,0.1214E+00,0.1276E+00,
288      +0.1340E+00,0.1407E+00,0.1475E+00,0.1546E+00,0.1619E+00,0.1694E+00,
289      +0.1771E+00,0.1849E+00,0.1928E+00,0.2008E+00,0.2087E+00,0.2166E+00,
290      +0.2243E+00,0.2318E+00,0.2389E+00,0.2456E+00,0.2516E+00,0.2569E+00,
291      +0.2612E+00,0.2643E+00,0.2661E+00,0.2662E+00,0.2645E+00,0.2608E+00,
292      +0.2547E+00,0.2462E+00,0.2351E+00,0.2213E+00,0.2048E+00,0.1859E+00,
293      +0.1649E+00,0.1423E+00,0.1188E+00,0.9527E-01,0.7271E-01,0.5214E-01,
294      +0.4111E-01,0.3185E-01,0.2419E-01,0.1797E-01,0.1301E-01,0.9132E-02,
295      +0.6171E-02,0.3975E-02,0.2406E-02,0.1338E-02,0.6601E-03,0.2712E-03,
296      +0.8180E-04,0.1309E-04/
297       DATA (XQDUM (I,2,3),I=1,104) /
298      +0.4836E+02,0.4656E+02,0.4482E+02,0.4315E+02,0.4153E+02,0.3997E+02,
299      +0.3848E+02,0.3703E+02,0.3564E+02,0.3430E+02,0.3300E+02,0.3176E+02,
300      +0.3056E+02,0.2940E+02,0.2828E+02,0.2721E+02,0.2617E+02,0.2518E+02,
301      +0.2421E+02,0.2329E+02,0.2239E+02,0.2153E+02,0.2070E+02,0.1990E+02,
302      +0.1913E+02,0.1839E+02,0.1767E+02,0.1698E+02,0.1632E+02,0.1567E+02,
303      +0.1506E+02,0.1446E+02,0.1389E+02,0.1333E+02,0.1280E+02,0.1228E+02,
304      +0.1179E+02,0.1131E+02,0.1084E+02,0.1040E+02,0.9968E+01,0.9553E+01,
305      +0.9153E+01,0.8766E+01,0.8393E+01,0.8033E+01,0.7685E+01,0.7349E+01,
306      +0.7025E+01,0.6711E+01,0.6408E+01,0.6115E+01,0.5832E+01,0.5558E+01,
307      +0.5292E+01,0.5036E+01,0.4787E+01,0.4546E+01,0.4312E+01,0.4086E+01,
308      +0.3866E+01,0.3652E+01,0.3445E+01,0.3244E+01,0.3049E+01,0.2859E+01,
309      +0.2674E+01,0.2495E+01,0.2321E+01,0.2151E+01,0.1987E+01,0.1828E+01,
310      +0.1674E+01,0.1524E+01,0.1380E+01,0.1242E+01,0.1109E+01,0.9823E+00,
311      +0.8616E+00,0.7475E+00,0.6404E+00,0.5405E+00,0.4485E+00,0.3646E+00,
312      +0.2892E+00,0.2227E+00,0.1654E+00,0.1174E+00,0.7854E-01,0.4859E-01,
313      +0.3457E-01,0.2394E-01,0.1598E-01,0.1014E-01,0.5946E-02,0.3032E-02,
314      +0.1095E-02,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
315      +0.0000E+00,0.0000E+00/
316       DATA (XQDUM (I,2,4),I=1,104) /
317      +0.3866E+01,0.3740E+01,0.3619E+01,0.3503E+01,0.3390E+01,0.3282E+01,
318      +0.3178E+01,0.3077E+01,0.2980E+01,0.2887E+01,0.2797E+01,0.2711E+01,
319      +0.2627E+01,0.2547E+01,0.2469E+01,0.2395E+01,0.2323E+01,0.2253E+01,
320      +0.2187E+01,0.2122E+01,0.2060E+01,0.2000E+01,0.1943E+01,0.1887E+01,
321      +0.1833E+01,0.1782E+01,0.1732E+01,0.1684E+01,0.1638E+01,0.1593E+01,
322      +0.1550E+01,0.1508E+01,0.1467E+01,0.1429E+01,0.1391E+01,0.1354E+01,
323      +0.1319E+01,0.1285E+01,0.1251E+01,0.1219E+01,0.1188E+01,0.1157E+01,
324      +0.1127E+01,0.1098E+01,0.1070E+01,0.1042E+01,0.1015E+01,0.9875E+00,
325      +0.9608E+00,0.9344E+00,0.9082E+00,0.8821E+00,0.8561E+00,0.8300E+00,
326      +0.8039E+00,0.7776E+00,0.7510E+00,0.7242E+00,0.6970E+00,0.6695E+00,
327      +0.6414E+00,0.6130E+00,0.5841E+00,0.5547E+00,0.5249E+00,0.4948E+00,
328      +0.4643E+00,0.4337E+00,0.4030E+00,0.3725E+00,0.3422E+00,0.3125E+00,
329      +0.2835E+00,0.2554E+00,0.2284E+00,0.2027E+00,0.1786E+00,0.1560E+00,
330      +0.1350E+00,0.1157E+00,0.9789E-01,0.8161E-01,0.6675E-01,0.5326E-01,
331      +0.4115E-01,0.3050E-01,0.2143E-01,0.1408E-01,0.8507E-02,0.4656E-02,
332      +0.3071E-02,0.2000E-02,0.1292E-02,0.8335E-03,0.5390E-03,0.3499E-03,
333      +0.2272E-03,0.1459E-03,0.9105E-04,0.5382E-04,0.2903E-04,0.1346E-04,
334      +0.0000E+00,0.0000E+00/
335       DATA (XQDUM (I,2,5),I=1,104) /
336      +0.1017E+01,0.9884E+00,0.9606E+00,0.9339E+00,0.9082E+00,0.8834E+00,
337      +0.8595E+00,0.8365E+00,0.8142E+00,0.7929E+00,0.7722E+00,0.7524E+00,
338      +0.7332E+00,0.7148E+00,0.6970E+00,0.6798E+00,0.6633E+00,0.6474E+00,
339      +0.6320E+00,0.6172E+00,0.6029E+00,0.5891E+00,0.5758E+00,0.5629E+00,
340      +0.5505E+00,0.5385E+00,0.5270E+00,0.5158E+00,0.5049E+00,0.4945E+00,
341      +0.4843E+00,0.4745E+00,0.4650E+00,0.4558E+00,0.4468E+00,0.4381E+00,
342      +0.4296E+00,0.4213E+00,0.4131E+00,0.4052E+00,0.3974E+00,0.3898E+00,
343      +0.3822E+00,0.3748E+00,0.3674E+00,0.3600E+00,0.3527E+00,0.3454E+00,
344      +0.3381E+00,0.3307E+00,0.3232E+00,0.3157E+00,0.3080E+00,0.3001E+00,
345      +0.2921E+00,0.2839E+00,0.2754E+00,0.2668E+00,0.2578E+00,0.2486E+00,
346      +0.2390E+00,0.2292E+00,0.2191E+00,0.2087E+00,0.1980E+00,0.1871E+00,
347      +0.1760E+00,0.1647E+00,0.1533E+00,0.1419E+00,0.1305E+00,0.1193E+00,
348      +0.1083E+00,0.9760E-01,0.8732E-01,0.7752E-01,0.6827E-01,0.5962E-01,
349      +0.5158E-01,0.4416E-01,0.3735E-01,0.3110E-01,0.2540E-01,0.2021E-01,
350      +0.1555E-01,0.1145E-01,0.7971E-02,0.5158E-02,0.3045E-02,0.1604E-02,
351      +0.1024E-02,0.6403E-03,0.3943E-03,0.2409E-03,0.1474E-03,0.9087E-04,
352      +0.5656E-04,0.3525E-04,0.2161E-04,0.1266E-04,0.0000E+00,0.0000E+00,
353      +0.0000E+00,0.0000E+00/
354       DATA (XQDUM (I,2,6),I=1,104) /
355      +0.8423E+00,0.8136E+00,0.7859E+00,0.7592E+00,0.7335E+00,0.7087E+00,
356      +0.6849E+00,0.6619E+00,0.6397E+00,0.6183E+00,0.5978E+00,0.5780E+00,
357      +0.5589E+00,0.5405E+00,0.5227E+00,0.5057E+00,0.4892E+00,0.4733E+00,
358      +0.4581E+00,0.4433E+00,0.4292E+00,0.4155E+00,0.4023E+00,0.3896E+00,
359      +0.3774E+00,0.3656E+00,0.3542E+00,0.3432E+00,0.3327E+00,0.3225E+00,
360      +0.3126E+00,0.3031E+00,0.2940E+00,0.2851E+00,0.2766E+00,0.2684E+00,
361      +0.2604E+00,0.2527E+00,0.2452E+00,0.2380E+00,0.2310E+00,0.2242E+00,
362      +0.2176E+00,0.2111E+00,0.2049E+00,0.1988E+00,0.1928E+00,0.1870E+00,
363      +0.1813E+00,0.1757E+00,0.1701E+00,0.1647E+00,0.1593E+00,0.1539E+00,
364      +0.1486E+00,0.1433E+00,0.1380E+00,0.1326E+00,0.1273E+00,0.1220E+00,
365      +0.1166E+00,0.1111E+00,0.1056E+00,0.1001E+00,0.9458E-01,0.8899E-01,
366      +0.8339E-01,0.7779E-01,0.7220E-01,0.6667E-01,0.6120E-01,0.5585E-01,
367      +0.5064E-01,0.4561E-01,0.4079E-01,0.3621E-01,0.3190E-01,0.2787E-01,
368      +0.2413E-01,0.2069E-01,0.1752E-01,0.1462E-01,0.1198E-01,0.9578E-02,
369      +0.7424E-02,0.5529E-02,0.3913E-02,0.2598E-02,0.1597E-02,0.8963E-03,
370      +0.6038E-03,0.4028E-03,0.2674E-03,0.1773E-03,0.1177E-03,0.7823E-04,
371      +0.5170E-04,0.3361E-04,0.2114E-04,0.1255E-04,0.0000E+00,0.0000E+00,
372      +0.0000E+00,0.0000E+00/
373       DATA (XQDUM (I,2,7),I=1,104) /
374      +0.7258E+00,0.6971E+00,0.6694E+00,0.6427E+00,0.6170E+00,0.5923E+00,
375      +0.5684E+00,0.5455E+00,0.5233E+00,0.5020E+00,0.4815E+00,0.4617E+00,
376      +0.4426E+00,0.4242E+00,0.4066E+00,0.3895E+00,0.3731E+00,0.3573E+00,
377      +0.3421E+00,0.3274E+00,0.3133E+00,0.2997E+00,0.2866E+00,0.2740E+00,
378      +0.2619E+00,0.2502E+00,0.2390E+00,0.2282E+00,0.2178E+00,0.2078E+00,
379      +0.1981E+00,0.1889E+00,0.1799E+00,0.1714E+00,0.1631E+00,0.1552E+00,
380      +0.1476E+00,0.1402E+00,0.1332E+00,0.1265E+00,0.1200E+00,0.1137E+00,
381      +0.1078E+00,0.1020E+00,0.9653E-01,0.9126E-01,0.8621E-01,0.8137E-01,
382      +0.7673E-01,0.7230E-01,0.6805E-01,0.6400E-01,0.6012E-01,0.5642E-01,
383      +0.5288E-01,0.4951E-01,0.4630E-01,0.4323E-01,0.4032E-01,0.3754E-01,
384      +0.3490E-01,0.3239E-01,0.3001E-01,0.2775E-01,0.2561E-01,0.2358E-01,
385      +0.2166E-01,0.1984E-01,0.1813E-01,0.1651E-01,0.1499E-01,0.1356E-01,
386      +0.1221E-01,0.1095E-01,0.9773E-02,0.8676E-02,0.7656E-02,0.6712E-02,
387      +0.5841E-02,0.5040E-02,0.4307E-02,0.3640E-02,0.3035E-02,0.2491E-02,
388      +0.2006E-02,0.1579E-02,0.1207E-02,0.8920E-03,0.6316E-03,0.4242E-03,
389      +0.3236E-03,0.2446E-03,0.1828E-03,0.1349E-03,0.9799E-04,0.6980E-04,
390      +0.4846E-04,0.3252E-04,0.2082E-04,0.1248E-04,0.0000E+00,0.0000E+00,
391      +0.0000E+00,0.0000E+00/
392       DATA (XQDUM (I,2,8),I=1,104) /
393      +0.2635E+00,0.2528E+00,0.2426E+00,0.2328E+00,0.2233E+00,0.2142E+00,
394      +0.2054E+00,0.1969E+00,0.1888E+00,0.1810E+00,0.1734E+00,0.1661E+00,
395      +0.1592E+00,0.1524E+00,0.1459E+00,0.1397E+00,0.1337E+00,0.1279E+00,
396      +0.1224E+00,0.1170E+00,0.1119E+00,0.1069E+00,0.1022E+00,0.9760E-01,
397      +0.9319E-01,0.8896E-01,0.8489E-01,0.8097E-01,0.7720E-01,0.7358E-01,
398      +0.7011E-01,0.6676E-01,0.6355E-01,0.6046E-01,0.5750E-01,0.5465E-01,
399      +0.5192E-01,0.4929E-01,0.4677E-01,0.4436E-01,0.4204E-01,0.3981E-01,
400      +0.3768E-01,0.3564E-01,0.3368E-01,0.3181E-01,0.3001E-01,0.2829E-01,
401      +0.2665E-01,0.2508E-01,0.2358E-01,0.2214E-01,0.2077E-01,0.1947E-01,
402      +0.1822E-01,0.1703E-01,0.1590E-01,0.1482E-01,0.1380E-01,0.1282E-01,
403      +0.1190E-01,0.1102E-01,0.1019E-01,0.9397E-02,0.8650E-02,0.7943E-02,
404      +0.7276E-02,0.6646E-02,0.6053E-02,0.5495E-02,0.4970E-02,0.4479E-02,
405      +0.4019E-02,0.3590E-02,0.3190E-02,0.2819E-02,0.2476E-02,0.2160E-02,
406      +0.1870E-02,0.1605E-02,0.1364E-02,0.1145E-02,0.9493E-03,0.7742E-03,
407      +0.6193E-03,0.4839E-03,0.3675E-03,0.2696E-03,0.1895E-03,0.1263E-03,
408      +0.9588E-04,0.7212E-04,0.5366E-04,0.3940E-04,0.2847E-04,0.2016E-04,
409      +0.1391E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
410      +0.0000E+00,0.0000E+00/
411       DATA (XQDUM (I,2,9),I=1,104) /
412      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
413      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
414      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
415      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
416      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
417      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
418      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
419      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
420      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
421      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
422      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
423      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
424      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
425      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
426      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
427      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
428      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
429      +0.0000E+00,0.0000E+00/
430       DATA (XQDUM (I,3,1),I=1,104) /
431      +0.1407E-01,0.1486E-01,0.1570E-01,0.1658E-01,0.1752E-01,0.1851E-01,
432      +0.1955E-01,0.2065E-01,0.2182E-01,0.2304E-01,0.2434E-01,0.2571E-01,
433      +0.2716E-01,0.2868E-01,0.3030E-01,0.3200E-01,0.3379E-01,0.3569E-01,
434      +0.3769E-01,0.3980E-01,0.4203E-01,0.4438E-01,0.4686E-01,0.4948E-01,
435      +0.5224E-01,0.5516E-01,0.5823E-01,0.6147E-01,0.6489E-01,0.6849E-01,
436      +0.7229E-01,0.7629E-01,0.8051E-01,0.8495E-01,0.8964E-01,0.9457E-01,
437      +0.9976E-01,0.1052E+00,0.1110E+00,0.1170E+00,0.1234E+00,0.1301E+00,
438      +0.1371E+00,0.1445E+00,0.1522E+00,0.1603E+00,0.1689E+00,0.1778E+00,
439      +0.1871E+00,0.1969E+00,0.2071E+00,0.2178E+00,0.2289E+00,0.2405E+00,
440      +0.2525E+00,0.2650E+00,0.2780E+00,0.2914E+00,0.3052E+00,0.3194E+00,
441      +0.3341E+00,0.3490E+00,0.3642E+00,0.3796E+00,0.3951E+00,0.4107E+00,
442      +0.4261E+00,0.4414E+00,0.4561E+00,0.4703E+00,0.4837E+00,0.4959E+00,
443      +0.5067E+00,0.5158E+00,0.5227E+00,0.5272E+00,0.5286E+00,0.5266E+00,
444      +0.5207E+00,0.5104E+00,0.4954E+00,0.4753E+00,0.4500E+00,0.4193E+00,
445      +0.3835E+00,0.3432E+00,0.2991E+00,0.2526E+00,0.2053E+00,0.1589E+00,
446      +0.1324E+00,0.1088E+00,0.8812E-01,0.7016E-01,0.5476E-01,0.4175E-01,
447      +0.3091E-01,0.2205E-01,0.1498E-01,0.9528E-02,0.5509E-02,0.2752E-02,
448      +0.1072E-02,0.2472E-03/
449       DATA (XQDUM (I,3,2),I=1,104) /
450      +0.8019E-02,0.8471E-02,0.8949E-02,0.9453E-02,0.9986E-02,0.1055E-01,
451      +0.1114E-01,0.1177E-01,0.1243E-01,0.1313E-01,0.1387E-01,0.1465E-01,
452      +0.1547E-01,0.1634E-01,0.1726E-01,0.1822E-01,0.1925E-01,0.2032E-01,
453      +0.2146E-01,0.2266E-01,0.2393E-01,0.2526E-01,0.2667E-01,0.2815E-01,
454      +0.2972E-01,0.3137E-01,0.3312E-01,0.3495E-01,0.3689E-01,0.3892E-01,
455      +0.4107E-01,0.4334E-01,0.4572E-01,0.4823E-01,0.5087E-01,0.5365E-01,
456      +0.5657E-01,0.5964E-01,0.6287E-01,0.6626E-01,0.6983E-01,0.7357E-01,
457      +0.7749E-01,0.8160E-01,0.8591E-01,0.9042E-01,0.9514E-01,0.1001E+00,
458      +0.1052E+00,0.1106E+00,0.1162E+00,0.1220E+00,0.1280E+00,0.1342E+00,
459      +0.1407E+00,0.1474E+00,0.1542E+00,0.1613E+00,0.1685E+00,0.1758E+00,
460      +0.1833E+00,0.1908E+00,0.1983E+00,0.2059E+00,0.2133E+00,0.2205E+00,
461      +0.2275E+00,0.2341E+00,0.2403E+00,0.2459E+00,0.2507E+00,0.2546E+00,
462      +0.2574E+00,0.2590E+00,0.2591E+00,0.2575E+00,0.2540E+00,0.2485E+00,
463      +0.2407E+00,0.2306E+00,0.2181E+00,0.2032E+00,0.1861E+00,0.1669E+00,
464      +0.1462E+00,0.1243E+00,0.1022E+00,0.8057E-01,0.6031E-01,0.4231E-01,
465      +0.3287E-01,0.2507E-01,0.1874E-01,0.1368E-01,0.9719E-02,0.6681E-02,
466      +0.4411E-02,0.2767E-02,0.1624E-02,0.8704E-03,0.4101E-03,0.1587E-03,
467      +0.4390E-04,0.0000E+00/
468       DATA (XQDUM (I,3,3),I=1,104) /
469      +0.6518E+02,0.6264E+02,0.6020E+02,0.5785E+02,0.5559E+02,0.5340E+02,
470      +0.5130E+02,0.4928E+02,0.4733E+02,0.4546E+02,0.4365E+02,0.4192E+02,
471      +0.4024E+02,0.3863E+02,0.3708E+02,0.3558E+02,0.3414E+02,0.3276E+02,
472      +0.3143E+02,0.3014E+02,0.2891E+02,0.2772E+02,0.2657E+02,0.2547E+02,
473      +0.2441E+02,0.2339E+02,0.2240E+02,0.2146E+02,0.2055E+02,0.1967E+02,
474      +0.1882E+02,0.1801E+02,0.1723E+02,0.1648E+02,0.1575E+02,0.1506E+02,
475      +0.1439E+02,0.1374E+02,0.1312E+02,0.1252E+02,0.1195E+02,0.1139E+02,
476      +0.1086E+02,0.1035E+02,0.9854E+01,0.9379E+01,0.8922E+01,0.8482E+01,
477      +0.8058E+01,0.7651E+01,0.7259E+01,0.6881E+01,0.6518E+01,0.6168E+01,
478      +0.5831E+01,0.5507E+01,0.5195E+01,0.4895E+01,0.4606E+01,0.4328E+01,
479      +0.4060E+01,0.3802E+01,0.3554E+01,0.3315E+01,0.3086E+01,0.2865E+01,
480      +0.2653E+01,0.2449E+01,0.2254E+01,0.2066E+01,0.1887E+01,0.1716E+01,
481      +0.1552E+01,0.1397E+01,0.1249E+01,0.1110E+01,0.9779E+00,0.8543E+00,
482      +0.7390E+00,0.6319E+00,0.5333E+00,0.4432E+00,0.3617E+00,0.2888E+00,
483      +0.2248E+00,0.1695E+00,0.1228E+00,0.8468E-01,0.5465E-01,0.3215E-01,
484      +0.2190E-01,0.1430E-01,0.8755E-02,0.4801E-02,0.2070E-02,0.2691E-03,
485      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
486      +0.0000E+00,0.0000E+00/
487       DATA (XQDUM (I,3,4),I=1,104) /
488      +0.7778E+01,0.7488E+01,0.7209E+01,0.6940E+01,0.6682E+01,0.6433E+01,
489      +0.6194E+01,0.5963E+01,0.5742E+01,0.5528E+01,0.5323E+01,0.5126E+01,
490      +0.4936E+01,0.4753E+01,0.4577E+01,0.4408E+01,0.4245E+01,0.4089E+01,
491      +0.3938E+01,0.3793E+01,0.3654E+01,0.3520E+01,0.3391E+01,0.3267E+01,
492      +0.3148E+01,0.3033E+01,0.2922E+01,0.2816E+01,0.2714E+01,0.2616E+01,
493      +0.2521E+01,0.2430E+01,0.2343E+01,0.2259E+01,0.2177E+01,0.2099E+01,
494      +0.2024E+01,0.1951E+01,0.1882E+01,0.1814E+01,0.1749E+01,0.1686E+01,
495      +0.1626E+01,0.1567E+01,0.1510E+01,0.1455E+01,0.1402E+01,0.1350E+01,
496      +0.1299E+01,0.1250E+01,0.1202E+01,0.1156E+01,0.1110E+01,0.1065E+01,
497      +0.1021E+01,0.9773E+00,0.9345E+00,0.8922E+00,0.8504E+00,0.8089E+00,
498      +0.7678E+00,0.7270E+00,0.6864E+00,0.6462E+00,0.6062E+00,0.5666E+00,
499      +0.5275E+00,0.4889E+00,0.4509E+00,0.4137E+00,0.3774E+00,0.3423E+00,
500      +0.3085E+00,0.2762E+00,0.2455E+00,0.2166E+00,0.1896E+00,0.1646E+00,
501      +0.1415E+00,0.1204E+00,0.1011E+00,0.8357E-01,0.6773E-01,0.5354E-01,
502      +0.4100E-01,0.3015E-01,0.2109E-01,0.1386E-01,0.8468E-02,0.4756E-02,
503      +0.3220E-02,0.2165E-02,0.1452E-02,0.9723E-03,0.6505E-03,0.4333E-03,
504      +0.2851E-03,0.1832E-03,0.1130E-03,0.6524E-04,0.3404E-04,0.1509E-04,
505      +0.0000E+00,0.0000E+00/
506       DATA (XQDUM (I,3,5),I=1,104) /
507      +0.1796E+01,0.1734E+01,0.1675E+01,0.1618E+01,0.1563E+01,0.1511E+01,
508      +0.1460E+01,0.1411E+01,0.1364E+01,0.1319E+01,0.1275E+01,0.1233E+01,
509      +0.1193E+01,0.1154E+01,0.1116E+01,0.1080E+01,0.1046E+01,0.1012E+01,
510      +0.9802E+00,0.9494E+00,0.9196E+00,0.8910E+00,0.8635E+00,0.8370E+00,
511      +0.8115E+00,0.7869E+00,0.7632E+00,0.7404E+00,0.7184E+00,0.6973E+00,
512      +0.6769E+00,0.6572E+00,0.6382E+00,0.6199E+00,0.6022E+00,0.5851E+00,
513      +0.5686E+00,0.5526E+00,0.5371E+00,0.5220E+00,0.5074E+00,0.4932E+00,
514      +0.4794E+00,0.4660E+00,0.4528E+00,0.4400E+00,0.4273E+00,0.4149E+00,
515      +0.4027E+00,0.3906E+00,0.3787E+00,0.3668E+00,0.3551E+00,0.3433E+00,
516      +0.3315E+00,0.3197E+00,0.3078E+00,0.2959E+00,0.2839E+00,0.2717E+00,
517      +0.2595E+00,0.2471E+00,0.2345E+00,0.2219E+00,0.2091E+00,0.1963E+00,
518      +0.1835E+00,0.1706E+00,0.1579E+00,0.1452E+00,0.1328E+00,0.1207E+00,
519      +0.1089E+00,0.9766E-01,0.8690E-01,0.7673E-01,0.6720E-01,0.5835E-01,
520      +0.5017E-01,0.4266E-01,0.3580E-01,0.2955E-01,0.2390E-01,0.1882E-01,
521      +0.1432E-01,0.1043E-01,0.7185E-02,0.4617E-02,0.2725E-02,0.1454E-02,
522      +0.9446E-03,0.6066E-03,0.3870E-03,0.2468E-03,0.1579E-03,0.1014E-03,
523      +0.6495E-04,0.4102E-04,0.2506E-04,0.1442E-04,0.0000E+00,0.0000E+00,
524      +0.0000E+00,0.0000E+00/
525       DATA (XQDUM (I,3,6),I=1,104) /
526      +0.1621E+01,0.1560E+01,0.1501E+01,0.1444E+01,0.1389E+01,0.1336E+01,
527      +0.1285E+01,0.1237E+01,0.1189E+01,0.1144E+01,0.1101E+01,0.1059E+01,
528      +0.1018E+01,0.9797E+00,0.9423E+00,0.9064E+00,0.8719E+00,0.8387E+00,
529      +0.8067E+00,0.7759E+00,0.7464E+00,0.7179E+00,0.6905E+00,0.6642E+00,
530      +0.6389E+00,0.6145E+00,0.5911E+00,0.5686E+00,0.5469E+00,0.5261E+00,
531      +0.5060E+00,0.4867E+00,0.4682E+00,0.4503E+00,0.4331E+00,0.4166E+00,
532      +0.4007E+00,0.3854E+00,0.3706E+00,0.3564E+00,0.3427E+00,0.3295E+00,
533      +0.3168E+00,0.3045E+00,0.2926E+00,0.2811E+00,0.2700E+00,0.2593E+00,
534      +0.2489E+00,0.2388E+00,0.2289E+00,0.2194E+00,0.2101E+00,0.2010E+00,
535      +0.1921E+00,0.1834E+00,0.1749E+00,0.1665E+00,0.1583E+00,0.1502E+00,
536      +0.1422E+00,0.1344E+00,0.1266E+00,0.1189E+00,0.1114E+00,0.1039E+00,
537      +0.9658E-01,0.8938E-01,0.8233E-01,0.7546E-01,0.6878E-01,0.6234E-01,
538      +0.5615E-01,0.5025E-01,0.4466E-01,0.3940E-01,0.3450E-01,0.2995E-01,
539      +0.2576E-01,0.2192E-01,0.1842E-01,0.1524E-01,0.1237E-01,0.9804E-02,
540      +0.7533E-02,0.5569E-02,0.3925E-02,0.2609E-02,0.1620E-02,0.9302E-03,
541      +0.6404E-03,0.4385E-03,0.2993E-03,0.2039E-03,0.1384E-03,0.9330E-04,
542      +0.6194E-04,0.4004E-04,0.2479E-04,0.1436E-04,0.0000E+00,0.0000E+00,
543      +0.0000E+00,0.0000E+00/
544       DATA (XQDUM (I,3,7),I=1,104) /
545      +0.1505E+01,0.1443E+01,0.1384E+01,0.1327E+01,0.1273E+01,0.1220E+01,
546      +0.1169E+01,0.1120E+01,0.1073E+01,0.1028E+01,0.9845E+00,0.9426E+00,
547      +0.9023E+00,0.8636E+00,0.8263E+00,0.7905E+00,0.7560E+00,0.7228E+00,
548      +0.6910E+00,0.6603E+00,0.6308E+00,0.6024E+00,0.5752E+00,0.5490E+00,
549      +0.5238E+00,0.4996E+00,0.4763E+00,0.4540E+00,0.4325E+00,0.4119E+00,
550      +0.3921E+00,0.3730E+00,0.3548E+00,0.3372E+00,0.3204E+00,0.3042E+00,
551      +0.2887E+00,0.2739E+00,0.2596E+00,0.2460E+00,0.2329E+00,0.2203E+00,
552      +0.2083E+00,0.1968E+00,0.1858E+00,0.1752E+00,0.1651E+00,0.1555E+00,
553      +0.1463E+00,0.1375E+00,0.1291E+00,0.1211E+00,0.1134E+00,0.1061E+00,
554      +0.9917E-01,0.9256E-01,0.8627E-01,0.8029E-01,0.7461E-01,0.6921E-01,
555      +0.6410E-01,0.5925E-01,0.5466E-01,0.5031E-01,0.4621E-01,0.4233E-01,
556      +0.3868E-01,0.3524E-01,0.3200E-01,0.2896E-01,0.2611E-01,0.2345E-01,
557      +0.2097E-01,0.1866E-01,0.1651E-01,0.1453E-01,0.1270E-01,0.1102E-01,
558      +0.9492E-02,0.8099E-02,0.6838E-02,0.5705E-02,0.4693E-02,0.3796E-02,
559      +0.3010E-02,0.2330E-02,0.1752E-02,0.1271E-02,0.8828E-03,0.5810E-03,
560      +0.4375E-03,0.3264E-03,0.2408E-03,0.1753E-03,0.1255E-03,0.8792E-04,
561      +0.5994E-04,0.3939E-04,0.2461E-04,0.1432E-04,0.0000E+00,0.0000E+00,
562      +0.0000E+00,0.0000E+00/
563       DATA (XQDUM (I,3,8),I=1,104) /
564      +0.1060E+01,0.1016E+01,0.9733E+00,0.9326E+00,0.8935E+00,0.8559E+00,
565      +0.8197E+00,0.7848E+00,0.7513E+00,0.7192E+00,0.6882E+00,0.6584E+00,
566      +0.6298E+00,0.6023E+00,0.5758E+00,0.5504E+00,0.5260E+00,0.5025E+00,
567      +0.4800E+00,0.4583E+00,0.4374E+00,0.4174E+00,0.3982E+00,0.3797E+00,
568      +0.3620E+00,0.3450E+00,0.3286E+00,0.3129E+00,0.2979E+00,0.2834E+00,
569      +0.2695E+00,0.2562E+00,0.2435E+00,0.2312E+00,0.2195E+00,0.2082E+00,
570      +0.1974E+00,0.1871E+00,0.1772E+00,0.1677E+00,0.1586E+00,0.1499E+00,
571      +0.1416E+00,0.1336E+00,0.1260E+00,0.1187E+00,0.1118E+00,0.1051E+00,
572      +0.9878E-01,0.9272E-01,0.8695E-01,0.8145E-01,0.7620E-01,0.7121E-01,
573      +0.6646E-01,0.6193E-01,0.5764E-01,0.5356E-01,0.4968E-01,0.4601E-01,
574      +0.4253E-01,0.3924E-01,0.3612E-01,0.3318E-01,0.3040E-01,0.2779E-01,
575      +0.2532E-01,0.2301E-01,0.2083E-01,0.1880E-01,0.1690E-01,0.1512E-01,
576      +0.1347E-01,0.1194E-01,0.1053E-01,0.9224E-02,0.8028E-02,0.6935E-02,
577      +0.5941E-02,0.5042E-02,0.4233E-02,0.3510E-02,0.2869E-02,0.2306E-02,
578      +0.1816E-02,0.1395E-02,0.1041E-02,0.7495E-03,0.5164E-03,0.3370E-03,
579      +0.2525E-03,0.1874E-03,0.1375E-03,0.9950E-04,0.7080E-04,0.4929E-04,
580      +0.3336E-04,0.2173E-04,0.1344E-04,0.0000E+00,0.0000E+00,0.0000E+00,
581      +0.0000E+00,0.0000E+00/
582       DATA (XQDUM (I,3,9),I=1,104) /
583      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
584      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
585      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
586      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
587      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
588      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
589      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
590      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
591      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
592      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
593      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
594      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
595      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
596      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
597      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
598      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
599      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
600      +0.0000E+00,0.0000E+00/
601       DATA (XQDUM (I,4,1),I=1,104) /
602      +0.1618E-01,0.1709E-01,0.1804E-01,0.1905E-01,0.2012E-01,0.2124E-01,
603      +0.2243E-01,0.2368E-01,0.2500E-01,0.2639E-01,0.2786E-01,0.2941E-01,
604      +0.3105E-01,0.3277E-01,0.3459E-01,0.3651E-01,0.3853E-01,0.4067E-01,
605      +0.4292E-01,0.4529E-01,0.4779E-01,0.5042E-01,0.5320E-01,0.5612E-01,
606      +0.5920E-01,0.6244E-01,0.6586E-01,0.6946E-01,0.7325E-01,0.7723E-01,
607      +0.8142E-01,0.8584E-01,0.9048E-01,0.9536E-01,0.1005E+00,0.1059E+00,
608      +0.1115E+00,0.1175E+00,0.1237E+00,0.1303E+00,0.1371E+00,0.1443E+00,
609      +0.1518E+00,0.1597E+00,0.1680E+00,0.1766E+00,0.1856E+00,0.1950E+00,
610      +0.2048E+00,0.2150E+00,0.2256E+00,0.2366E+00,0.2480E+00,0.2598E+00,
611      +0.2720E+00,0.2846E+00,0.2976E+00,0.3109E+00,0.3245E+00,0.3384E+00,
612      +0.3525E+00,0.3667E+00,0.3810E+00,0.3953E+00,0.4095E+00,0.4235E+00,
613      +0.4371E+00,0.4501E+00,0.4625E+00,0.4738E+00,0.4840E+00,0.4927E+00,
614      +0.4996E+00,0.5045E+00,0.5069E+00,0.5065E+00,0.5030E+00,0.4959E+00,
615      +0.4849E+00,0.4697E+00,0.4501E+00,0.4260E+00,0.3973E+00,0.3643E+00,
616      +0.3275E+00,0.2876E+00,0.2456E+00,0.2027E+00,0.1606E+00,0.1207E+00,
617      +0.9860E-01,0.7937E-01,0.6287E-01,0.4888E-01,0.3718E-01,0.2754E-01,
618      +0.1974E-01,0.1357E-01,0.8825E-02,0.5321E-02,0.2877E-02,0.1313E-02,
619      +0.4461E-03,0.7924E-04/
620       DATA (XQDUM (I,4,2),I=1,104) /
621      +0.9212E-02,0.9728E-02,0.1027E-01,0.1084E-01,0.1145E-01,0.1209E-01,
622      +0.1276E-01,0.1347E-01,0.1422E-01,0.1501E-01,0.1585E-01,0.1673E-01,
623      +0.1766E-01,0.1864E-01,0.1967E-01,0.2075E-01,0.2190E-01,0.2311E-01,
624      +0.2438E-01,0.2573E-01,0.2714E-01,0.2863E-01,0.3020E-01,0.3185E-01,
625      +0.3359E-01,0.3542E-01,0.3735E-01,0.3938E-01,0.4151E-01,0.4375E-01,
626      +0.4611E-01,0.4859E-01,0.5120E-01,0.5393E-01,0.5681E-01,0.5982E-01,
627      +0.6299E-01,0.6630E-01,0.6978E-01,0.7342E-01,0.7723E-01,0.8121E-01,
628      +0.8538E-01,0.8973E-01,0.9427E-01,0.9900E-01,0.1039E+00,0.1091E+00,
629      +0.1144E+00,0.1199E+00,0.1256E+00,0.1315E+00,0.1376E+00,0.1439E+00,
630      +0.1503E+00,0.1569E+00,0.1636E+00,0.1704E+00,0.1773E+00,0.1843E+00,
631      +0.1913E+00,0.1982E+00,0.2050E+00,0.2117E+00,0.2182E+00,0.2243E+00,
632      +0.2300E+00,0.2352E+00,0.2398E+00,0.2437E+00,0.2466E+00,0.2485E+00,
633      +0.2491E+00,0.2484E+00,0.2461E+00,0.2422E+00,0.2364E+00,0.2286E+00,
634      +0.2188E+00,0.2069E+00,0.1929E+00,0.1770E+00,0.1595E+00,0.1406E+00,
635      +0.1208E+00,0.1006E+00,0.8085E-01,0.6214E-01,0.4523E-01,0.3072E-01,
636      +0.2335E-01,0.1740E-01,0.1269E-01,0.9029E-02,0.6234E-02,0.4153E-02,
637      +0.2646E-02,0.1594E-02,0.8916E-03,0.4509E-03,0.1973E-03,0.6898E-04,
638      +0.1631E-04,0.0000E+00/
639       DATA (XQDUM (I,4,3),I=1,104) /
640      +0.9960E+02,0.9539E+02,0.9135E+02,0.8747E+02,0.8374E+02,0.8016E+02,
641      +0.7671E+02,0.7341E+02,0.7023E+02,0.6718E+02,0.6425E+02,0.6143E+02,
642      +0.5873E+02,0.5613E+02,0.5364E+02,0.5125E+02,0.4895E+02,0.4675E+02,
643      +0.4463E+02,0.4260E+02,0.4065E+02,0.3878E+02,0.3699E+02,0.3527E+02,
644      +0.3362E+02,0.3204E+02,0.3052E+02,0.2906E+02,0.2767E+02,0.2633E+02,
645      +0.2505E+02,0.2382E+02,0.2265E+02,0.2152E+02,0.2044E+02,0.1940E+02,
646      +0.1841E+02,0.1747E+02,0.1656E+02,0.1569E+02,0.1486E+02,0.1406E+02,
647      +0.1330E+02,0.1257E+02,0.1188E+02,0.1121E+02,0.1057E+02,0.9967E+01,
648      +0.9386E+01,0.8831E+01,0.8301E+01,0.7794E+01,0.7311E+01,0.6850E+01,
649      +0.6411E+01,0.5992E+01,0.5592E+01,0.5211E+01,0.4848E+01,0.4503E+01,
650      +0.4175E+01,0.3862E+01,0.3566E+01,0.3284E+01,0.3017E+01,0.2764E+01,
651      +0.2524E+01,0.2297E+01,0.2083E+01,0.1882E+01,0.1692E+01,0.1515E+01,
652      +0.1348E+01,0.1193E+01,0.1049E+01,0.9154E+00,0.7922E+00,0.6793E+00,
653      +0.5762E+00,0.4828E+00,0.3988E+00,0.3240E+00,0.2581E+00,0.2008E+00,
654      +0.1519E+00,0.1108E+00,0.7735E-01,0.5091E-01,0.3090E-01,0.1658E-01,
655      +0.1034E-01,0.5887E-02,0.2788E-02,0.7079E-03,0.0000E+00,0.0000E+00,
656      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
657      +0.0000E+00,0.0000E+00/
658       DATA (XQDUM (I,4,4),I=1,104) /
659      +0.1516E+02,0.1453E+02,0.1394E+02,0.1336E+02,0.1281E+02,0.1228E+02,
660      +0.1177E+02,0.1128E+02,0.1081E+02,0.1036E+02,0.9929E+01,0.9513E+01,
661      +0.9114E+01,0.8731E+01,0.8363E+01,0.8010E+01,0.7672E+01,0.7347E+01,
662      +0.7035E+01,0.6736E+01,0.6449E+01,0.6173E+01,0.5909E+01,0.5656E+01,
663      +0.5413E+01,0.5180E+01,0.4956E+01,0.4742E+01,0.4537E+01,0.4340E+01,
664      +0.4151E+01,0.3970E+01,0.3796E+01,0.3630E+01,0.3470E+01,0.3317E+01,
665      +0.3170E+01,0.3030E+01,0.2895E+01,0.2765E+01,0.2641E+01,0.2522E+01,
666      +0.2408E+01,0.2298E+01,0.2193E+01,0.2091E+01,0.1994E+01,0.1900E+01,
667      +0.1810E+01,0.1723E+01,0.1639E+01,0.1558E+01,0.1480E+01,0.1404E+01,
668      +0.1331E+01,0.1261E+01,0.1192E+01,0.1125E+01,0.1060E+01,0.9975E+00,
669      +0.9363E+00,0.8767E+00,0.8187E+00,0.7622E+00,0.7073E+00,0.6541E+00,
670      +0.6024E+00,0.5524E+00,0.5042E+00,0.4579E+00,0.4136E+00,0.3714E+00,
671      +0.3314E+00,0.2938E+00,0.2586E+00,0.2259E+00,0.1957E+00,0.1680E+00,
672      +0.1428E+00,0.1200E+00,0.9941E-01,0.8099E-01,0.6463E-01,0.5027E-01,
673      +0.3786E-01,0.2741E-01,0.1891E-01,0.1231E-01,0.7497E-02,0.4238E-02,
674      +0.2896E-02,0.1970E-02,0.1336E-02,0.9032E-03,0.6066E-03,0.4025E-03,
675      +0.2616E-03,0.1645E-03,0.9839E-04,0.5460E-04,0.2710E-04,0.1128E-04,
676      +0.0000E+00,0.0000E+00/
677       DATA (XQDUM (I,4,5),I=1,104) /
678      +0.3267E+01,0.3139E+01,0.3016E+01,0.2898E+01,0.2785E+01,0.2676E+01,
679      +0.2571E+01,0.2471E+01,0.2374E+01,0.2281E+01,0.2192E+01,0.2107E+01,
680      +0.2025E+01,0.1946E+01,0.1870E+01,0.1798E+01,0.1728E+01,0.1661E+01,
681      +0.1597E+01,0.1535E+01,0.1476E+01,0.1419E+01,0.1364E+01,0.1312E+01,
682      +0.1262E+01,0.1213E+01,0.1167E+01,0.1123E+01,0.1080E+01,0.1039E+01,
683      +0.9999E+00,0.9622E+00,0.9259E+00,0.8911E+00,0.8577E+00,0.8256E+00,
684      +0.7947E+00,0.7649E+00,0.7363E+00,0.7088E+00,0.6823E+00,0.6567E+00,
685      +0.6320E+00,0.6082E+00,0.5852E+00,0.5629E+00,0.5412E+00,0.5203E+00,
686      +0.4999E+00,0.4800E+00,0.4607E+00,0.4418E+00,0.4233E+00,0.4052E+00,
687      +0.3874E+00,0.3699E+00,0.3527E+00,0.3357E+00,0.3189E+00,0.3022E+00,
688      +0.2858E+00,0.2695E+00,0.2534E+00,0.2375E+00,0.2217E+00,0.2062E+00,
689      +0.1909E+00,0.1760E+00,0.1613E+00,0.1471E+00,0.1333E+00,0.1201E+00,
690      +0.1075E+00,0.9553E-01,0.8427E-01,0.7375E-01,0.6400E-01,0.5502E-01,
691      +0.4681E-01,0.3935E-01,0.3260E-01,0.2653E-01,0.2112E-01,0.1635E-01,
692      +0.1222E-01,0.8737E-02,0.5915E-02,0.3745E-02,0.2191E-02,0.1172E-02,
693      +0.7681E-03,0.5006E-03,0.3256E-03,0.2118E-03,0.1378E-03,0.8931E-04,
694      +0.5714E-04,0.3560E-04,0.2120E-04,0.1176E-04,0.0000E+00,0.0000E+00,
695      +0.0000E+00,0.0000E+00/
696       DATA (XQDUM (I,4,6),I=1,104) /
697      +0.3092E+01,0.2965E+01,0.2842E+01,0.2724E+01,0.2610E+01,0.2501E+01,
698      +0.2397E+01,0.2296E+01,0.2200E+01,0.2107E+01,0.2018E+01,0.1933E+01,
699      +0.1851E+01,0.1772E+01,0.1697E+01,0.1624E+01,0.1555E+01,0.1488E+01,
700      +0.1424E+01,0.1362E+01,0.1303E+01,0.1246E+01,0.1192E+01,0.1140E+01,
701      +0.1090E+01,0.1042E+01,0.9962E+00,0.9521E+00,0.9099E+00,0.8694E+00,
702      +0.8305E+00,0.7933E+00,0.7576E+00,0.7234E+00,0.6906E+00,0.6592E+00,
703      +0.6291E+00,0.6002E+00,0.5725E+00,0.5460E+00,0.5205E+00,0.4961E+00,
704      +0.4727E+00,0.4503E+00,0.4287E+00,0.4081E+00,0.3882E+00,0.3692E+00,
705      +0.3509E+00,0.3333E+00,0.3163E+00,0.3000E+00,0.2843E+00,0.2692E+00,
706      +0.2546E+00,0.2404E+00,0.2268E+00,0.2136E+00,0.2009E+00,0.1886E+00,
707      +0.1766E+00,0.1650E+00,0.1538E+00,0.1429E+00,0.1324E+00,0.1222E+00,
708      +0.1124E+00,0.1029E+00,0.9381E-01,0.8510E-01,0.7679E-01,0.6890E-01,
709      +0.6144E-01,0.5444E-01,0.4790E-01,0.4183E-01,0.3623E-01,0.3111E-01,
710      +0.2645E-01,0.2222E-01,0.1842E-01,0.1502E-01,0.1201E-01,0.9361E-02,
711      +0.7076E-02,0.5150E-02,0.3580E-02,0.2357E-02,0.1457E-02,0.8395E-03,
712      +0.5812E-03,0.4008E-03,0.2753E-03,0.1881E-03,0.1275E-03,0.8523E-04,
713      +0.5570E-04,0.3516E-04,0.2109E-04,0.1174E-04,0.0000E+00,0.0000E+00,
714      +0.0000E+00,0.0000E+00/
715       DATA (XQDUM (I,4,7),I=1,104) /
716      +0.2976E+01,0.2848E+01,0.2725E+01,0.2607E+01,0.2494E+01,0.2385E+01,
717      +0.2281E+01,0.2180E+01,0.2084E+01,0.1991E+01,0.1902E+01,0.1817E+01,
718      +0.1735E+01,0.1657E+01,0.1581E+01,0.1509E+01,0.1439E+01,0.1372E+01,
719      +0.1308E+01,0.1247E+01,0.1188E+01,0.1132E+01,0.1077E+01,0.1025E+01,
720      +0.9756E+00,0.9279E+00,0.8821E+00,0.8383E+00,0.7963E+00,0.7561E+00,
721      +0.7175E+00,0.6806E+00,0.6453E+00,0.6115E+00,0.5791E+00,0.5482E+00,
722      +0.5186E+00,0.4902E+00,0.4632E+00,0.4373E+00,0.4126E+00,0.3890E+00,
723      +0.3664E+00,0.3449E+00,0.3244E+00,0.3048E+00,0.2862E+00,0.2684E+00,
724      +0.2515E+00,0.2354E+00,0.2200E+00,0.2055E+00,0.1916E+00,0.1785E+00,
725      +0.1660E+00,0.1541E+00,0.1429E+00,0.1323E+00,0.1223E+00,0.1128E+00,
726      +0.1038E+00,0.9535E-01,0.8738E-01,0.7988E-01,0.7284E-01,0.6623E-01,
727      +0.6003E-01,0.5424E-01,0.4883E-01,0.4379E-01,0.3911E-01,0.3477E-01,
728      +0.3075E-01,0.2706E-01,0.2366E-01,0.2056E-01,0.1774E-01,0.1518E-01,
729      +0.1287E-01,0.1081E-01,0.8975E-02,0.7353E-02,0.5933E-02,0.4702E-02,
730      +0.3648E-02,0.2759E-02,0.2024E-02,0.1431E-02,0.9670E-03,0.6180E-03,
731      +0.4567E-03,0.3342E-03,0.2418E-03,0.1723E-03,0.1206E-03,0.8251E-04,
732      +0.5473E-04,0.3487E-04,0.2101E-04,0.1172E-04,0.0000E+00,0.0000E+00,
733      +0.0000E+00,0.0000E+00/
734       DATA (XQDUM (I,4,8),I=1,104) /
735      +0.2555E+01,0.2444E+01,0.2337E+01,0.2235E+01,0.2136E+01,0.2042E+01,
736      +0.1951E+01,0.1864E+01,0.1780E+01,0.1700E+01,0.1623E+01,0.1549E+01,
737      +0.1478E+01,0.1410E+01,0.1345E+01,0.1283E+01,0.1223E+01,0.1165E+01,
738      +0.1110E+01,0.1057E+01,0.1006E+01,0.9577E+00,0.9112E+00,0.8666E+00,
739      +0.8239E+00,0.7829E+00,0.7437E+00,0.7062E+00,0.6703E+00,0.6359E+00,
740      +0.6029E+00,0.5715E+00,0.5413E+00,0.5125E+00,0.4850E+00,0.4586E+00,
741      +0.4335E+00,0.4094E+00,0.3865E+00,0.3645E+00,0.3436E+00,0.3236E+00,
742      +0.3046E+00,0.2864E+00,0.2691E+00,0.2526E+00,0.2369E+00,0.2219E+00,
743      +0.2077E+00,0.1942E+00,0.1813E+00,0.1691E+00,0.1575E+00,0.1465E+00,
744      +0.1360E+00,0.1262E+00,0.1168E+00,0.1080E+00,0.9960E-01,0.9171E-01,
745      +0.8427E-01,0.7726E-01,0.7067E-01,0.6447E-01,0.5866E-01,0.5321E-01,
746      +0.4812E-01,0.4336E-01,0.3893E-01,0.3482E-01,0.3100E-01,0.2747E-01,
747      +0.2422E-01,0.2123E-01,0.1849E-01,0.1600E-01,0.1374E-01,0.1171E-01,
748      +0.9881E-02,0.8253E-02,0.6812E-02,0.5547E-02,0.4447E-02,0.3500E-02,
749      +0.2696E-02,0.2024E-02,0.1473E-02,0.1032E-02,0.6915E-03,0.4378E-03,
750      +0.3216E-03,0.2339E-03,0.1681E-03,0.1191E-03,0.8277E-04,0.5617E-04,
751      +0.3693E-04,0.2329E-04,0.1387E-04,0.0000E+00,0.0000E+00,0.0000E+00,
752      +0.0000E+00,0.0000E+00/
753       DATA (XQDUM (I,4,9),I=1,104) /
754      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
755      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
756      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
757      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
758      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
759      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
760      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
761      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
762      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
763      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
764      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
765      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
766      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
767      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
768      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
769      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
770      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
771      +0.0000E+00,0.0000E+00/
772       DATA (XQDUM (I,5,1),I=1,104) /
773      +0.1805E-01,0.1905E-01,0.2011E-01,0.2123E-01,0.2240E-01,0.2364E-01,
774      +0.2495E-01,0.2633E-01,0.2779E-01,0.2932E-01,0.3094E-01,0.3265E-01,
775      +0.3444E-01,0.3634E-01,0.3833E-01,0.4044E-01,0.4265E-01,0.4498E-01,
776      +0.4744E-01,0.5003E-01,0.5275E-01,0.5562E-01,0.5864E-01,0.6181E-01,
777      +0.6516E-01,0.6867E-01,0.7237E-01,0.7625E-01,0.8034E-01,0.8463E-01,
778      +0.8914E-01,0.9388E-01,0.9885E-01,0.1041E+00,0.1095E+00,0.1153E+00,
779      +0.1213E+00,0.1276E+00,0.1342E+00,0.1411E+00,0.1483E+00,0.1559E+00,
780      +0.1638E+00,0.1720E+00,0.1806E+00,0.1895E+00,0.1989E+00,0.2085E+00,
781      +0.2186E+00,0.2290E+00,0.2398E+00,0.2510E+00,0.2625E+00,0.2744E+00,
782      +0.2866E+00,0.2991E+00,0.3118E+00,0.3249E+00,0.3381E+00,0.3514E+00,
783      +0.3649E+00,0.3784E+00,0.3917E+00,0.4049E+00,0.4178E+00,0.4303E+00,
784      +0.4422E+00,0.4533E+00,0.4635E+00,0.4724E+00,0.4800E+00,0.4858E+00,
785      +0.4897E+00,0.4914E+00,0.4904E+00,0.4865E+00,0.4794E+00,0.4688E+00,
786      +0.4545E+00,0.4362E+00,0.4139E+00,0.3876E+00,0.3574E+00,0.3238E+00,
787      +0.2872E+00,0.2486E+00,0.2090E+00,0.1695E+00,0.1317E+00,0.9683E-01,
788      +0.7787E-01,0.6169E-01,0.4804E-01,0.3667E-01,0.2734E-01,0.1981E-01,
789      +0.1384E-01,0.9242E-02,0.5807E-02,0.3357E-02,0.1718E-02,0.7264E-03,
790      +0.2179E-03,0.2871E-04/
791       DATA (XQDUM (I,5,2),I=1,104) /
792      +0.1027E-01,0.1083E-01,0.1143E-01,0.1207E-01,0.1274E-01,0.1344E-01,
793      +0.1418E-01,0.1496E-01,0.1579E-01,0.1666E-01,0.1757E-01,0.1854E-01,
794      +0.1956E-01,0.2063E-01,0.2176E-01,0.2295E-01,0.2420E-01,0.2551E-01,
795      +0.2690E-01,0.2836E-01,0.2990E-01,0.3151E-01,0.3322E-01,0.3500E-01,
796      +0.3688E-01,0.3886E-01,0.4094E-01,0.4312E-01,0.4541E-01,0.4781E-01,
797      +0.5034E-01,0.5299E-01,0.5576E-01,0.5867E-01,0.6172E-01,0.6492E-01,
798      +0.6826E-01,0.7175E-01,0.7541E-01,0.7922E-01,0.8321E-01,0.8736E-01,
799      +0.9169E-01,0.9619E-01,0.1009E+00,0.1057E+00,0.1108E+00,0.1160E+00,
800      +0.1214E+00,0.1270E+00,0.1327E+00,0.1386E+00,0.1447E+00,0.1509E+00,
801      +0.1572E+00,0.1636E+00,0.1701E+00,0.1767E+00,0.1832E+00,0.1898E+00,
802      +0.1963E+00,0.2026E+00,0.2088E+00,0.2147E+00,0.2203E+00,0.2254E+00,
803      +0.2301E+00,0.2341E+00,0.2374E+00,0.2399E+00,0.2413E+00,0.2416E+00,
804      +0.2407E+00,0.2383E+00,0.2344E+00,0.2288E+00,0.2215E+00,0.2123E+00,
805      +0.2013E+00,0.1884E+00,0.1738E+00,0.1577E+00,0.1403E+00,0.1220E+00,
806      +0.1033E+00,0.8475E-01,0.6693E-01,0.5047E-01,0.3595E-01,0.2383E-01,
807      +0.1781E-01,0.1304E-01,0.9338E-02,0.6510E-02,0.4397E-02,0.2858E-02,
808      +0.1772E-02,0.1034E-02,0.5566E-03,0.2685E-03,0.1104E-03,0.3528E-04,
809      +0.0000E+00,0.0000E+00/
810       DATA (XQDUM (I,5,3),I=1,104) /
811      +0.1333E+03,0.1273E+03,0.1216E+03,0.1160E+03,0.1107E+03,0.1056E+03,
812      +0.1008E+03,0.9608E+02,0.9161E+02,0.8732E+02,0.8322E+02,0.7929E+02,
813      +0.7552E+02,0.7192E+02,0.6847E+02,0.6517E+02,0.6201E+02,0.5898E+02,
814      +0.5609E+02,0.5332E+02,0.5068E+02,0.4815E+02,0.4573E+02,0.4341E+02,
815      +0.4120E+02,0.3909E+02,0.3707E+02,0.3514E+02,0.3330E+02,0.3154E+02,
816      +0.2986E+02,0.2826E+02,0.2673E+02,0.2528E+02,0.2389E+02,0.2256E+02,
817      +0.2129E+02,0.2009E+02,0.1894E+02,0.1785E+02,0.1681E+02,0.1582E+02,
818      +0.1487E+02,0.1397E+02,0.1312E+02,0.1231E+02,0.1154E+02,0.1080E+02,
819      +0.1011E+02,0.9446E+01,0.8819E+01,0.8224E+01,0.7659E+01,0.7125E+01,
820      +0.6618E+01,0.6139E+01,0.5685E+01,0.5256E+01,0.4851E+01,0.4469E+01,
821      +0.4108E+01,0.3768E+01,0.3448E+01,0.3147E+01,0.2864E+01,0.2599E+01,
822      +0.2350E+01,0.2118E+01,0.1901E+01,0.1699E+01,0.1512E+01,0.1338E+01,
823      +0.1178E+01,0.1030E+01,0.8944E+00,0.7707E+00,0.6584E+00,0.5568E+00,
824      +0.4657E+00,0.3844E+00,0.3125E+00,0.2496E+00,0.1952E+00,0.1488E+00,
825      +0.1100E+00,0.7819E-01,0.5287E-01,0.3342E-01,0.1915E-01,0.9323E-02,
826      +0.5211E-02,0.2386E-02,0.5135E-03,0.0000E+00,0.0000E+00,0.0000E+00,
827      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
828      +0.0000E+00,0.0000E+00/
829       DATA (XQDUM (I,5,4),I=1,104) /
830      +0.2315E+02,0.2214E+02,0.2117E+02,0.2024E+02,0.1935E+02,0.1850E+02,
831      +0.1768E+02,0.1689E+02,0.1614E+02,0.1542E+02,0.1473E+02,0.1407E+02,
832      +0.1343E+02,0.1283E+02,0.1224E+02,0.1169E+02,0.1115E+02,0.1064E+02,
833      +0.1015E+02,0.9686E+01,0.9238E+01,0.8809E+01,0.8399E+01,0.8006E+01,
834      +0.7630E+01,0.7271E+01,0.6927E+01,0.6598E+01,0.6284E+01,0.5984E+01,
835      +0.5696E+01,0.5422E+01,0.5159E+01,0.4908E+01,0.4668E+01,0.4439E+01,
836      +0.4220E+01,0.4011E+01,0.3811E+01,0.3620E+01,0.3437E+01,0.3263E+01,
837      +0.3096E+01,0.2937E+01,0.2784E+01,0.2639E+01,0.2499E+01,0.2366E+01,
838      +0.2238E+01,0.2116E+01,0.1999E+01,0.1887E+01,0.1780E+01,0.1677E+01,
839      +0.1578E+01,0.1483E+01,0.1391E+01,0.1304E+01,0.1219E+01,0.1138E+01,
840      +0.1060E+01,0.9846E+00,0.9122E+00,0.8427E+00,0.7759E+00,0.7118E+00,
841      +0.6505E+00,0.5918E+00,0.5360E+00,0.4830E+00,0.4328E+00,0.3856E+00,
842      +0.3414E+00,0.3002E+00,0.2621E+00,0.2271E+00,0.1950E+00,0.1659E+00,
843      +0.1397E+00,0.1161E+00,0.9516E-01,0.7660E-01,0.6036E-01,0.4632E-01,
844      +0.3441E-01,0.2458E-01,0.1674E-01,0.1078E-01,0.6506E-02,0.3659E-02,
845      +0.2496E-02,0.1695E-02,0.1147E-02,0.7717E-03,0.5142E-03,0.3373E-03,
846      +0.2157E-03,0.1328E-03,0.7740E-04,0.4164E-04,0.1990E-04,0.0000E+00,
847      +0.0000E+00,0.0000E+00/
848       DATA (XQDUM (I,5,5),I=1,104) /
849      +0.4717E+01,0.4519E+01,0.4329E+01,0.4146E+01,0.3972E+01,0.3804E+01,
850      +0.3643E+01,0.3489E+01,0.3341E+01,0.3199E+01,0.3063E+01,0.2933E+01,
851      +0.2808E+01,0.2689E+01,0.2574E+01,0.2464E+01,0.2359E+01,0.2258E+01,
852      +0.2162E+01,0.2069E+01,0.1981E+01,0.1896E+01,0.1815E+01,0.1737E+01,
853      +0.1663E+01,0.1591E+01,0.1523E+01,0.1458E+01,0.1396E+01,0.1336E+01,
854      +0.1278E+01,0.1224E+01,0.1171E+01,0.1121E+01,0.1073E+01,0.1027E+01,
855      +0.9826E+00,0.9403E+00,0.8998E+00,0.8609E+00,0.8236E+00,0.7879E+00,
856      +0.7535E+00,0.7205E+00,0.6888E+00,0.6583E+00,0.6289E+00,0.6005E+00,
857      +0.5732E+00,0.5468E+00,0.5212E+00,0.4965E+00,0.4725E+00,0.4492E+00,
858      +0.4265E+00,0.4044E+00,0.3829E+00,0.3619E+00,0.3414E+00,0.3214E+00,
859      +0.3018E+00,0.2827E+00,0.2639E+00,0.2456E+00,0.2277E+00,0.2103E+00,
860      +0.1934E+00,0.1770E+00,0.1612E+00,0.1460E+00,0.1314E+00,0.1176E+00,
861      +0.1045E+00,0.9224E-01,0.8079E-01,0.7019E-01,0.6045E-01,0.5155E-01,
862      +0.4348E-01,0.3620E-01,0.2968E-01,0.2389E-01,0.1878E-01,0.1434E-01,
863      +0.1057E-01,0.7444E-02,0.4966E-02,0.3103E-02,0.1797E-02,0.9556E-03,
864      +0.6265E-03,0.4091E-03,0.2668E-03,0.1739E-03,0.1130E-03,0.7281E-04,
865      +0.4606E-04,0.2821E-04,0.1641E-04,0.0000E+00,0.0000E+00,0.0000E+00,
866      +0.0000E+00,0.0000E+00/
867       DATA (XQDUM (I,5,6),I=1,104) /
868      +0.4543E+01,0.4345E+01,0.4155E+01,0.3972E+01,0.3798E+01,0.3630E+01,
869      +0.3469E+01,0.3315E+01,0.3167E+01,0.3025E+01,0.2890E+01,0.2760E+01,
870      +0.2635E+01,0.2515E+01,0.2401E+01,0.2291E+01,0.2186E+01,0.2086E+01,
871      +0.1989E+01,0.1897E+01,0.1809E+01,0.1724E+01,0.1643E+01,0.1566E+01,
872      +0.1492E+01,0.1421E+01,0.1353E+01,0.1288E+01,0.1226E+01,0.1167E+01,
873      +0.1110E+01,0.1056E+01,0.1004E+01,0.9548E+00,0.9075E+00,0.8622E+00,
874      +0.8190E+00,0.7777E+00,0.7382E+00,0.7005E+00,0.6644E+00,0.6300E+00,
875      +0.5971E+00,0.5657E+00,0.5357E+00,0.5070E+00,0.4795E+00,0.4533E+00,
876      +0.4282E+00,0.4043E+00,0.3813E+00,0.3594E+00,0.3384E+00,0.3183E+00,
877      +0.2990E+00,0.2805E+00,0.2628E+00,0.2458E+00,0.2295E+00,0.2139E+00,
878      +0.1989E+00,0.1845E+00,0.1707E+00,0.1574E+00,0.1448E+00,0.1326E+00,
879      +0.1211E+00,0.1100E+00,0.9957E-01,0.8964E-01,0.8028E-01,0.7148E-01,
880      +0.6325E-01,0.5561E-01,0.4854E-01,0.4204E-01,0.3611E-01,0.3072E-01,
881      +0.2587E-01,0.2152E-01,0.1764E-01,0.1422E-01,0.1122E-01,0.8634E-02,
882      +0.6438E-02,0.4623E-02,0.3172E-02,0.2064E-02,0.1263E-02,0.7229E-03,
883      +0.4987E-03,0.3425E-03,0.2342E-03,0.1590E-03,0.1067E-03,0.7041E-04,
884      +0.4524E-04,0.2797E-04,0.1635E-04,0.0000E+00,0.0000E+00,0.0000E+00,
885      +0.0000E+00,0.0000E+00/
886       DATA (XQDUM (I,5,7),I=1,104) /
887      +0.4427E+01,0.4229E+01,0.4039E+01,0.3856E+01,0.3681E+01,0.3514E+01,
888      +0.3353E+01,0.3199E+01,0.3051E+01,0.2910E+01,0.2774E+01,0.2644E+01,
889      +0.2519E+01,0.2400E+01,0.2286E+01,0.2176E+01,0.2071E+01,0.1971E+01,
890      +0.1874E+01,0.1782E+01,0.1694E+01,0.1610E+01,0.1529E+01,0.1452E+01,
891      +0.1378E+01,0.1307E+01,0.1240E+01,0.1175E+01,0.1114E+01,0.1055E+01,
892      +0.9983E+00,0.9445E+00,0.8931E+00,0.8440E+00,0.7972E+00,0.7525E+00,
893      +0.7098E+00,0.6692E+00,0.6304E+00,0.5935E+00,0.5582E+00,0.5247E+00,
894      +0.4928E+00,0.4624E+00,0.4335E+00,0.4060E+00,0.3799E+00,0.3551E+00,
895      +0.3316E+00,0.3092E+00,0.2881E+00,0.2680E+00,0.2490E+00,0.2310E+00,
896      +0.2140E+00,0.1979E+00,0.1827E+00,0.1684E+00,0.1549E+00,0.1422E+00,
897      +0.1303E+00,0.1191E+00,0.1085E+00,0.9869E-01,0.8948E-01,0.8089E-01,
898      +0.7287E-01,0.6542E-01,0.5851E-01,0.5210E-01,0.4619E-01,0.4075E-01,
899      +0.3576E-01,0.3120E-01,0.2705E-01,0.2328E-01,0.1989E-01,0.1685E-01,
900      +0.1413E-01,0.1173E-01,0.9617E-02,0.7776E-02,0.6187E-02,0.4830E-02,
901      +0.3688E-02,0.2743E-02,0.1977E-02,0.1371E-02,0.9079E-03,0.5676E-03,
902      +0.4134E-03,0.2982E-03,0.2124E-03,0.1490E-03,0.1025E-03,0.6881E-04,
903      +0.4470E-04,0.2781E-04,0.1632E-04,0.0000E+00,0.0000E+00,0.0000E+00,
904      +0.0000E+00,0.0000E+00/
905       DATA (XQDUM (I,5,8),I=1,104) /
906      +0.4025E+01,0.3842E+01,0.3668E+01,0.3500E+01,0.3340E+01,0.3186E+01,
907      +0.3038E+01,0.2897E+01,0.2761E+01,0.2632E+01,0.2507E+01,0.2388E+01,
908      +0.2274E+01,0.2165E+01,0.2061E+01,0.1961E+01,0.1865E+01,0.1773E+01,
909      +0.1685E+01,0.1602E+01,0.1521E+01,0.1444E+01,0.1371E+01,0.1301E+01,
910      +0.1234E+01,0.1170E+01,0.1108E+01,0.1050E+01,0.9940E+00,0.9406E+00,
911      +0.8897E+00,0.8410E+00,0.7946E+00,0.7503E+00,0.7081E+00,0.6678E+00,
912      +0.6294E+00,0.5928E+00,0.5580E+00,0.5248E+00,0.4932E+00,0.4631E+00,
913      +0.4345E+00,0.4073E+00,0.3815E+00,0.3569E+00,0.3336E+00,0.3115E+00,
914      +0.2905E+00,0.2706E+00,0.2518E+00,0.2340E+00,0.2171E+00,0.2011E+00,
915      +0.1861E+00,0.1719E+00,0.1584E+00,0.1458E+00,0.1339E+00,0.1227E+00,
916      +0.1122E+00,0.1024E+00,0.9316E-01,0.8453E-01,0.7648E-01,0.6898E-01,
917      +0.6200E-01,0.5552E-01,0.4952E-01,0.4398E-01,0.3887E-01,0.3419E-01,
918      +0.2990E-01,0.2599E-01,0.2245E-01,0.1924E-01,0.1637E-01,0.1380E-01,
919      +0.1152E-01,0.9509E-02,0.7752E-02,0.6229E-02,0.4923E-02,0.3817E-02,
920      +0.2893E-02,0.2135E-02,0.1525E-02,0.1049E-02,0.6879E-03,0.4257E-03,
921      +0.3080E-03,0.2207E-03,0.1561E-03,0.1087E-03,0.7421E-04,0.4937E-04,
922      +0.3176E-04,0.1953E-04,0.1131E-04,0.0000E+00,0.0000E+00,0.0000E+00,
923      +0.0000E+00,0.0000E+00/
924       DATA (XQDUM (I,5,9),I=1,104) /
925      +0.7184E+00,0.6836E+00,0.6503E+00,0.6185E+00,0.5881E+00,0.5591E+00,
926      +0.5313E+00,0.5048E+00,0.4794E+00,0.4552E+00,0.4321E+00,0.4101E+00,
927      +0.3890E+00,0.3689E+00,0.3498E+00,0.3315E+00,0.3140E+00,0.2974E+00,
928      +0.2815E+00,0.2664E+00,0.2520E+00,0.2383E+00,0.2252E+00,0.2127E+00,
929      +0.2009E+00,0.1896E+00,0.1788E+00,0.1686E+00,0.1589E+00,0.1497E+00,
930      +0.1409E+00,0.1325E+00,0.1246E+00,0.1171E+00,0.1099E+00,0.1032E+00,
931      +0.9673E-01,0.9063E-01,0.8485E-01,0.7938E-01,0.7419E-01,0.6928E-01,
932      +0.6464E-01,0.6025E-01,0.5610E-01,0.5218E-01,0.4848E-01,0.4498E-01,
933      +0.4169E-01,0.3859E-01,0.3567E-01,0.3292E-01,0.3034E-01,0.2792E-01,
934      +0.2564E-01,0.2351E-01,0.2151E-01,0.1964E-01,0.1790E-01,0.1627E-01,
935      +0.1475E-01,0.1334E-01,0.1203E-01,0.1081E-01,0.9690E-02,0.8653E-02,
936      +0.7697E-02,0.6818E-02,0.6013E-02,0.5278E-02,0.4608E-02,0.4001E-02,
937      +0.3452E-02,0.2959E-02,0.2517E-02,0.2124E-02,0.1776E-02,0.1471E-02,
938      +0.1204E-02,0.9740E-03,0.7768E-03,0.6096E-03,0.4698E-03,0.3544E-03,
939      +0.2609E-03,0.1866E-03,0.1289E-03,0.8547E-04,0.5390E-04,0.3193E-04,
940      +0.2245E-04,0.1560E-04,0.1070E-04,0.0000E+00,0.0000E+00,0.0000E+00,
941      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
942      +0.0000E+00,0.0000E+00/
943       DATA (XQDUM (I,6,1),I=1,104) /
944      +0.1976E-01,0.2085E-01,0.2201E-01,0.2322E-01,0.2450E-01,0.2584E-01,
945      +0.2726E-01,0.2876E-01,0.3033E-01,0.3200E-01,0.3374E-01,0.3559E-01,
946      +0.3753E-01,0.3957E-01,0.4172E-01,0.4398E-01,0.4637E-01,0.4888E-01,
947      +0.5151E-01,0.5429E-01,0.5721E-01,0.6028E-01,0.6351E-01,0.6690E-01,
948      +0.7047E-01,0.7421E-01,0.7815E-01,0.8228E-01,0.8661E-01,0.9116E-01,
949      +0.9594E-01,0.1009E+00,0.1062E+00,0.1117E+00,0.1174E+00,0.1235E+00,
950      +0.1298E+00,0.1364E+00,0.1432E+00,0.1504E+00,0.1579E+00,0.1658E+00,
951      +0.1739E+00,0.1824E+00,0.1912E+00,0.2004E+00,0.2099E+00,0.2198E+00,
952      +0.2300E+00,0.2405E+00,0.2514E+00,0.2626E+00,0.2741E+00,0.2859E+00,
953      +0.2980E+00,0.3103E+00,0.3228E+00,0.3354E+00,0.3482E+00,0.3610E+00,
954      +0.3738E+00,0.3864E+00,0.3989E+00,0.4110E+00,0.4227E+00,0.4338E+00,
955      +0.4441E+00,0.4535E+00,0.4618E+00,0.4687E+00,0.4740E+00,0.4775E+00,
956      +0.4789E+00,0.4779E+00,0.4743E+00,0.4678E+00,0.4580E+00,0.4449E+00,
957      +0.4282E+00,0.4079E+00,0.3839E+00,0.3563E+00,0.3255E+00,0.2920E+00,
958      +0.2562E+00,0.2192E+00,0.1819E+00,0.1454E+00,0.1112E+00,0.8028E-01,
959      +0.6376E-01,0.4985E-01,0.3828E-01,0.2878E-01,0.2111E-01,0.1501E-01,
960      +0.1028E-01,0.6698E-02,0.4089E-02,0.2281E-02,0.1114E-02,0.4403E-03,
961      +0.1171E-03,0.1032E-04/
962       DATA (XQDUM (I,6,2),I=1,104) /
963      +0.1123E-01,0.1185E-01,0.1250E-01,0.1319E-01,0.1391E-01,0.1467E-01,
964      +0.1548E-01,0.1632E-01,0.1721E-01,0.1815E-01,0.1914E-01,0.2018E-01,
965      +0.2128E-01,0.2243E-01,0.2364E-01,0.2492E-01,0.2626E-01,0.2768E-01,
966      +0.2916E-01,0.3072E-01,0.3236E-01,0.3409E-01,0.3590E-01,0.3781E-01,
967      +0.3980E-01,0.4190E-01,0.4410E-01,0.4641E-01,0.4884E-01,0.5137E-01,
968      +0.5403E-01,0.5682E-01,0.5974E-01,0.6279E-01,0.6598E-01,0.6931E-01,
969      +0.7279E-01,0.7642E-01,0.8021E-01,0.8416E-01,0.8827E-01,0.9254E-01,
970      +0.9699E-01,0.1016E+00,0.1064E+00,0.1113E+00,0.1164E+00,0.1217E+00,
971      +0.1271E+00,0.1327E+00,0.1384E+00,0.1443E+00,0.1503E+00,0.1563E+00,
972      +0.1625E+00,0.1687E+00,0.1750E+00,0.1812E+00,0.1874E+00,0.1936E+00,
973      +0.1995E+00,0.2053E+00,0.2109E+00,0.2161E+00,0.2209E+00,0.2252E+00,
974      +0.2289E+00,0.2320E+00,0.2342E+00,0.2355E+00,0.2357E+00,0.2348E+00,
975      +0.2326E+00,0.2290E+00,0.2238E+00,0.2171E+00,0.2087E+00,0.1986E+00,
976      +0.1868E+00,0.1734E+00,0.1586E+00,0.1425E+00,0.1255E+00,0.1080E+00,
977      +0.9035E-01,0.7317E-01,0.5698E-01,0.4230E-01,0.2961E-01,0.1924E-01,
978      +0.1418E-01,0.1024E-01,0.7220E-02,0.4951E-02,0.3285E-02,0.2093E-02,
979      +0.1268E-02,0.7203E-03,0.3757E-03,0.1741E-03,0.6777E-04,0.1992E-04,
980      +0.0000E+00,0.0000E+00/
981       DATA (XQDUM (I,6,3),I=1,104) /
982      +0.1651E+03,0.1572E+03,0.1497E+03,0.1425E+03,0.1356E+03,0.1290E+03,
983      +0.1227E+03,0.1167E+03,0.1109E+03,0.1054E+03,0.1001E+03,0.9512E+02,
984      +0.9033E+02,0.8575E+02,0.8137E+02,0.7720E+02,0.7322E+02,0.6942E+02,
985      +0.6579E+02,0.6234E+02,0.5904E+02,0.5589E+02,0.5290E+02,0.5004E+02,
986      +0.4732E+02,0.4473E+02,0.4226E+02,0.3992E+02,0.3768E+02,0.3555E+02,
987      +0.3353E+02,0.3160E+02,0.2977E+02,0.2803E+02,0.2638E+02,0.2481E+02,
988      +0.2332E+02,0.2191E+02,0.2056E+02,0.1929E+02,0.1808E+02,0.1694E+02,
989      +0.1585E+02,0.1482E+02,0.1385E+02,0.1293E+02,0.1206E+02,0.1123E+02,
990      +0.1045E+02,0.9719E+01,0.9024E+01,0.8369E+01,0.7751E+01,0.7169E+01,
991      +0.6621E+01,0.6105E+01,0.5620E+01,0.5164E+01,0.4736E+01,0.4335E+01,
992      +0.3958E+01,0.3606E+01,0.3277E+01,0.2970E+01,0.2684E+01,0.2417E+01,
993      +0.2170E+01,0.1940E+01,0.1728E+01,0.1532E+01,0.1352E+01,0.1186E+01,
994      +0.1035E+01,0.8965E+00,0.7713E+00,0.6581E+00,0.5565E+00,0.4656E+00,
995      +0.3850E+00,0.3140E+00,0.2521E+00,0.1986E+00,0.1529E+00,0.1146E+00,
996      +0.8309E-01,0.5773E-01,0.3794E-01,0.2309E-01,0.1249E-01,0.5436E-02,
997      +0.2596E-02,0.7200E-03,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
998      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
999      +0.0000E+00,0.0000E+00/
1000       DATA (XQDUM (I,6,4),I=1,104) /
1001      +0.3186E+02,0.3041E+02,0.2901E+02,0.2768E+02,0.2640E+02,0.2518E+02,
1002      +0.2401E+02,0.2289E+02,0.2181E+02,0.2079E+02,0.1981E+02,0.1887E+02,
1003      +0.1797E+02,0.1712E+02,0.1630E+02,0.1551E+02,0.1476E+02,0.1405E+02,
1004      +0.1336E+02,0.1271E+02,0.1209E+02,0.1149E+02,0.1092E+02,0.1038E+02,
1005      +0.9859E+01,0.9364E+01,0.8892E+01,0.8441E+01,0.8012E+01,0.7602E+01,
1006      +0.7211E+01,0.6838E+01,0.6483E+01,0.6144E+01,0.5821E+01,0.5513E+01,
1007      +0.5220E+01,0.4941E+01,0.4675E+01,0.4421E+01,0.4180E+01,0.3950E+01,
1008      +0.3731E+01,0.3522E+01,0.3324E+01,0.3135E+01,0.2954E+01,0.2783E+01,
1009      +0.2619E+01,0.2463E+01,0.2315E+01,0.2173E+01,0.2038E+01,0.1909E+01,
1010      +0.1787E+01,0.1669E+01,0.1557E+01,0.1451E+01,0.1348E+01,0.1251E+01,
1011      +0.1158E+01,0.1069E+01,0.9846E+00,0.9039E+00,0.8271E+00,0.7540E+00,
1012      +0.6846E+00,0.6190E+00,0.5570E+00,0.4987E+00,0.4440E+00,0.3930E+00,
1013      +0.3457E+00,0.3020E+00,0.2618E+00,0.2252E+00,0.1920E+00,0.1621E+00,
1014      +0.1353E+00,0.1115E+00,0.9052E-01,0.7214E-01,0.5624E-01,0.4268E-01,
1015      +0.3134E-01,0.2213E-01,0.1490E-01,0.9494E-02,0.5681E-02,0.3170E-02,
1016      +0.2153E-02,0.1456E-02,0.9795E-03,0.6543E-03,0.4319E-03,0.2799E-03,
1017      +0.1763E-03,0.1066E-03,0.6080E-04,0.3188E-04,0.1478E-04,0.0000E+00,
1018      +0.0000E+00,0.0000E+00/
1019       DATA (XQDUM (I,6,5),I=1,104) /
1020      +0.6142E+01,0.5871E+01,0.5610E+01,0.5361E+01,0.5123E+01,0.4895E+01,
1021      +0.4676E+01,0.4467E+01,0.4266E+01,0.4074E+01,0.3891E+01,0.3715E+01,
1022      +0.3548E+01,0.3387E+01,0.3233E+01,0.3086E+01,0.2946E+01,0.2811E+01,
1023      +0.2683E+01,0.2560E+01,0.2443E+01,0.2331E+01,0.2224E+01,0.2121E+01,
1024      +0.2023E+01,0.1930E+01,0.1841E+01,0.1755E+01,0.1674E+01,0.1596E+01,
1025      +0.1522E+01,0.1451E+01,0.1383E+01,0.1319E+01,0.1257E+01,0.1198E+01,
1026      +0.1142E+01,0.1088E+01,0.1036E+01,0.9873E+00,0.9403E+00,0.8954E+00,
1027      +0.8524E+00,0.8113E+00,0.7719E+00,0.7341E+00,0.6979E+00,0.6632E+00,
1028      +0.6299E+00,0.5978E+00,0.5670E+00,0.5373E+00,0.5087E+00,0.4811E+00,
1029      +0.4545E+00,0.4287E+00,0.4038E+00,0.3796E+00,0.3562E+00,0.3335E+00,
1030      +0.3115E+00,0.2901E+00,0.2694E+00,0.2493E+00,0.2299E+00,0.2112E+00,
1031      +0.1931E+00,0.1758E+00,0.1592E+00,0.1434E+00,0.1284E+00,0.1142E+00,
1032      +0.1009E+00,0.8858E-01,0.7713E-01,0.6660E-01,0.5699E-01,0.4827E-01,
1033      +0.4041E-01,0.3338E-01,0.2713E-01,0.2163E-01,0.1683E-01,0.1271E-01,
1034      +0.9253E-02,0.6440E-02,0.4244E-02,0.2622E-02,0.1503E-02,0.7938E-03,
1035      +0.5190E-03,0.3383E-03,0.2203E-03,0.1431E-03,0.9255E-04,0.5914E-04,
1036      +0.3697E-04,0.2229E-04,0.1271E-04,0.0000E+00,0.0000E+00,0.0000E+00,
1037      +0.0000E+00,0.0000E+00/
1038       DATA (XQDUM (I,6,6),I=1,104) /
1039      +0.5968E+01,0.5697E+01,0.5437E+01,0.5188E+01,0.4949E+01,0.4721E+01,
1040      +0.4502E+01,0.4293E+01,0.4093E+01,0.3901E+01,0.3718E+01,0.3542E+01,
1041      +0.3375E+01,0.3214E+01,0.3061E+01,0.2914E+01,0.2774E+01,0.2639E+01,
1042      +0.2511E+01,0.2389E+01,0.2272E+01,0.2160E+01,0.2053E+01,0.1951E+01,
1043      +0.1854E+01,0.1761E+01,0.1672E+01,0.1587E+01,0.1506E+01,0.1429E+01,
1044      +0.1355E+01,0.1285E+01,0.1218E+01,0.1154E+01,0.1093E+01,0.1035E+01,
1045      +0.9799E+00,0.9272E+00,0.8769E+00,0.8291E+00,0.7835E+00,0.7400E+00,
1046      +0.6986E+00,0.6592E+00,0.6217E+00,0.5859E+00,0.5519E+00,0.5194E+00,
1047      +0.4886E+00,0.4591E+00,0.4311E+00,0.4044E+00,0.3789E+00,0.3547E+00,
1048      +0.3315E+00,0.3095E+00,0.2885E+00,0.2684E+00,0.2493E+00,0.2311E+00,
1049      +0.2137E+00,0.1971E+00,0.1814E+00,0.1664E+00,0.1521E+00,0.1386E+00,
1050      +0.1258E+00,0.1136E+00,0.1022E+00,0.9147E-01,0.8142E-01,0.7206E-01,
1051      +0.6337E-01,0.5535E-01,0.4800E-01,0.4130E-01,0.3522E-01,0.2974E-01,
1052      +0.2485E-01,0.2049E-01,0.1665E-01,0.1329E-01,0.1038E-01,0.7900E-02,
1053      +0.5825E-02,0.4135E-02,0.2805E-02,0.1806E-02,0.1094E-02,0.6205E-03,
1054      +0.4257E-03,0.2907E-03,0.1974E-03,0.1330E-03,0.8838E-04,0.5760E-04,
1055      +0.3646E-04,0.2215E-04,0.1268E-04,0.0000E+00,0.0000E+00,0.0000E+00,
1056      +0.0000E+00,0.0000E+00/
1057       DATA (XQDUM (I,6,7),I=1,104) /
1058      +0.5852E+01,0.5581E+01,0.5321E+01,0.5072E+01,0.4833E+01,0.4605E+01,
1059      +0.4386E+01,0.4177E+01,0.3977E+01,0.3786E+01,0.3602E+01,0.3427E+01,
1060      +0.3259E+01,0.3099E+01,0.2946E+01,0.2799E+01,0.2659E+01,0.2525E+01,
1061      +0.2397E+01,0.2274E+01,0.2157E+01,0.2046E+01,0.1939E+01,0.1837E+01,
1062      +0.1740E+01,0.1647E+01,0.1559E+01,0.1474E+01,0.1394E+01,0.1317E+01,
1063      +0.1244E+01,0.1174E+01,0.1108E+01,0.1044E+01,0.9840E+00,0.9266E+00,
1064      +0.8720E+00,0.8200E+00,0.7705E+00,0.7235E+00,0.6788E+00,0.6364E+00,
1065      +0.5961E+00,0.5578E+00,0.5215E+00,0.4871E+00,0.4545E+00,0.4236E+00,
1066      +0.3943E+00,0.3666E+00,0.3404E+00,0.3157E+00,0.2924E+00,0.2703E+00,
1067      +0.2496E+00,0.2300E+00,0.2116E+00,0.1943E+00,0.1781E+00,0.1628E+00,
1068      +0.1486E+00,0.1352E+00,0.1227E+00,0.1111E+00,0.1003E+00,0.9020E-01,
1069      +0.8086E-01,0.7222E-01,0.6424E-01,0.5689E-01,0.5014E-01,0.4397E-01,
1070      +0.3834E-01,0.3323E-01,0.2860E-01,0.2444E-01,0.2072E-01,0.1740E-01,
1071      +0.1447E-01,0.1190E-01,0.9665E-02,0.7734E-02,0.6086E-02,0.4696E-02,
1072      +0.3541E-02,0.2599E-02,0.1847E-02,0.1262E-02,0.8221E-03,0.5049E-03,
1073      +0.3635E-03,0.2590E-03,0.1822E-03,0.1262E-03,0.8560E-04,0.5657E-04,
1074      +0.3613E-04,0.2205E-04,0.1266E-04,0.0000E+00,0.0000E+00,0.0000E+00,
1075      +0.0000E+00,0.0000E+00/
1076       DATA (XQDUM (I,6,8),I=1,104) /
1077      +0.5465E+01,0.5209E+01,0.4963E+01,0.4729E+01,0.4504E+01,0.4289E+01,
1078      +0.4083E+01,0.3887E+01,0.3698E+01,0.3518E+01,0.3346E+01,0.3181E+01,
1079      +0.3024E+01,0.2873E+01,0.2729E+01,0.2592E+01,0.2461E+01,0.2335E+01,
1080      +0.2215E+01,0.2101E+01,0.1991E+01,0.1887E+01,0.1788E+01,0.1693E+01,
1081      +0.1602E+01,0.1515E+01,0.1433E+01,0.1354E+01,0.1279E+01,0.1208E+01,
1082      +0.1140E+01,0.1075E+01,0.1014E+01,0.9548E+00,0.8989E+00,0.8458E+00,
1083      +0.7952E+00,0.7472E+00,0.7015E+00,0.6581E+00,0.6169E+00,0.5778E+00,
1084      +0.5407E+00,0.5055E+00,0.4721E+00,0.4405E+00,0.4106E+00,0.3822E+00,
1085      +0.3554E+00,0.3301E+00,0.3062E+00,0.2836E+00,0.2623E+00,0.2422E+00,
1086      +0.2233E+00,0.2055E+00,0.1888E+00,0.1731E+00,0.1584E+00,0.1446E+00,
1087      +0.1317E+00,0.1196E+00,0.1084E+00,0.9793E-01,0.8819E-01,0.7916E-01,
1088      +0.7080E-01,0.6308E-01,0.5596E-01,0.4942E-01,0.4343E-01,0.3796E-01,
1089      +0.3299E-01,0.2849E-01,0.2443E-01,0.2079E-01,0.1755E-01,0.1467E-01,
1090      +0.1214E-01,0.9932E-02,0.8018E-02,0.6376E-02,0.4984E-02,0.3818E-02,
1091      +0.2858E-02,0.2080E-02,0.1465E-02,0.9919E-03,0.6399E-03,0.3888E-03,
1092      +0.2779E-03,0.1966E-03,0.1373E-03,0.9430E-04,0.6342E-04,0.4151E-04,
1093      +0.2623E-04,0.1582E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1094      +0.0000E+00,0.0000E+00/
1095       DATA (XQDUM (I,6,9),I=1,104) /
1096      +0.2294E+01,0.2180E+01,0.2071E+01,0.1967E+01,0.1867E+01,0.1772E+01,
1097      +0.1682E+01,0.1595E+01,0.1513E+01,0.1434E+01,0.1359E+01,0.1288E+01,
1098      +0.1220E+01,0.1155E+01,0.1093E+01,0.1034E+01,0.9782E+00,0.9248E+00,
1099      +0.8739E+00,0.8255E+00,0.7795E+00,0.7357E+00,0.6940E+00,0.6544E+00,
1100      +0.6168E+00,0.5810E+00,0.5471E+00,0.5148E+00,0.4842E+00,0.4551E+00,
1101      +0.4275E+00,0.4014E+00,0.3766E+00,0.3531E+00,0.3308E+00,0.3097E+00,
1102      +0.2898E+00,0.2709E+00,0.2530E+00,0.2362E+00,0.2202E+00,0.2051E+00,
1103      +0.1909E+00,0.1775E+00,0.1648E+00,0.1529E+00,0.1417E+00,0.1311E+00,
1104      +0.1212E+00,0.1119E+00,0.1031E+00,0.9487E-01,0.8716E-01,0.7994E-01,
1105      +0.7319E-01,0.6688E-01,0.6098E-01,0.5549E-01,0.5038E-01,0.4563E-01,
1106      +0.4121E-01,0.3712E-01,0.3334E-01,0.2985E-01,0.2663E-01,0.2367E-01,
1107      +0.2095E-01,0.1847E-01,0.1620E-01,0.1415E-01,0.1228E-01,0.1060E-01,
1108      +0.9091E-02,0.7740E-02,0.6540E-02,0.5479E-02,0.4547E-02,0.3734E-02,
1109      +0.3031E-02,0.2429E-02,0.1917E-02,0.1489E-02,0.1134E-02,0.8450E-03,
1110      +0.6136E-03,0.4324E-03,0.2941E-03,0.1916E-03,0.1185E-03,0.6871E-04,
1111      +0.4759E-04,0.3258E-04,0.2198E-04,0.1455E-04,0.0000E+00,0.0000E+00,
1112      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1113      +0.0000E+00,0.0000E+00/
1114       DATA (XQDUM (I,7,1),I=1,104) /
1115      +0.2135E-01,0.2252E-01,0.2376E-01,0.2506E-01,0.2643E-01,0.2787E-01,
1116      +0.2939E-01,0.3099E-01,0.3268E-01,0.3445E-01,0.3632E-01,0.3828E-01,
1117      +0.4035E-01,0.4253E-01,0.4482E-01,0.4723E-01,0.4976E-01,0.5243E-01,
1118      +0.5523E-01,0.5817E-01,0.6126E-01,0.6451E-01,0.6792E-01,0.7150E-01,
1119      +0.7527E-01,0.7921E-01,0.8335E-01,0.8769E-01,0.9225E-01,0.9702E-01,
1120      +0.1020E+00,0.1072E+00,0.1127E+00,0.1185E+00,0.1244E+00,0.1307E+00,
1121      +0.1372E+00,0.1441E+00,0.1512E+00,0.1586E+00,0.1663E+00,0.1744E+00,
1122      +0.1827E+00,0.1914E+00,0.2004E+00,0.2097E+00,0.2194E+00,0.2293E+00,
1123      +0.2396E+00,0.2502E+00,0.2611E+00,0.2723E+00,0.2837E+00,0.2954E+00,
1124      +0.3073E+00,0.3193E+00,0.3315E+00,0.3438E+00,0.3560E+00,0.3683E+00,
1125      +0.3804E+00,0.3922E+00,0.4038E+00,0.4149E+00,0.4254E+00,0.4352E+00,
1126      +0.4442E+00,0.4520E+00,0.4586E+00,0.4638E+00,0.4672E+00,0.4687E+00,
1127      +0.4680E+00,0.4649E+00,0.4591E+00,0.4505E+00,0.4387E+00,0.4237E+00,
1128      +0.4053E+00,0.3835E+00,0.3584E+00,0.3302E+00,0.2993E+00,0.2661E+00,
1129      +0.2314E+00,0.1959E+00,0.1608E+00,0.1270E+00,0.9580E-01,0.6810E-01,
1130      +0.5351E-01,0.4136E-01,0.3138E-01,0.2329E-01,0.1684E-01,0.1179E-01,
1131      +0.7924E-02,0.5057E-02,0.3011E-02,0.1628E-02,0.7625E-03,0.2828E-03,
1132      +0.6643E-04,0.0000E+00/
1133       DATA (XQDUM (I,7,2),I=1,104) /
1134      +0.1212E-01,0.1278E-01,0.1348E-01,0.1422E-01,0.1499E-01,0.1581E-01,
1135      +0.1667E-01,0.1757E-01,0.1852E-01,0.1952E-01,0.2057E-01,0.2168E-01,
1136      +0.2285E-01,0.2407E-01,0.2536E-01,0.2672E-01,0.2814E-01,0.2964E-01,
1137      +0.3121E-01,0.3286E-01,0.3460E-01,0.3642E-01,0.3833E-01,0.4033E-01,
1138      +0.4243E-01,0.4464E-01,0.4695E-01,0.4937E-01,0.5190E-01,0.5455E-01,
1139      +0.5732E-01,0.6022E-01,0.6326E-01,0.6642E-01,0.6973E-01,0.7317E-01,
1140      +0.7677E-01,0.8051E-01,0.8440E-01,0.8845E-01,0.9266E-01,0.9702E-01,
1141      +0.1015E+00,0.1062E+00,0.1111E+00,0.1160E+00,0.1212E+00,0.1265E+00,
1142      +0.1319E+00,0.1375E+00,0.1431E+00,0.1489E+00,0.1548E+00,0.1607E+00,
1143      +0.1667E+00,0.1727E+00,0.1787E+00,0.1846E+00,0.1905E+00,0.1962E+00,
1144      +0.2017E+00,0.2070E+00,0.2120E+00,0.2166E+00,0.2207E+00,0.2242E+00,
1145      +0.2271E+00,0.2293E+00,0.2306E+00,0.2309E+00,0.2302E+00,0.2283E+00,
1146      +0.2250E+00,0.2204E+00,0.2143E+00,0.2067E+00,0.1975E+00,0.1868E+00,
1147      +0.1745E+00,0.1609E+00,0.1460E+00,0.1302E+00,0.1137E+00,0.9687E-01,
1148      +0.8025E-01,0.6428E-01,0.4946E-01,0.3624E-01,0.2499E-01,0.1596E-01,
1149      +0.1163E-01,0.8295E-02,0.5772E-02,0.3902E-02,0.2549E-02,0.1596E-02,
1150      +0.9482E-03,0.5263E-03,0.2668E-03,0.1192E-03,0.4414E-04,0.1195E-04,
1151      +0.0000E+00,0.0000E+00/
1152       DATA (XQDUM (I,7,3),I=1,104) /
1153      +0.1958E+03,0.1861E+03,0.1767E+03,0.1678E+03,0.1593E+03,0.1512E+03,
1154      +0.1434E+03,0.1360E+03,0.1290E+03,0.1223E+03,0.1159E+03,0.1098E+03,
1155      +0.1040E+03,0.9842E+02,0.9315E+02,0.8813E+02,0.8334E+02,0.7879E+02,
1156      +0.7447E+02,0.7035E+02,0.6643E+02,0.6271E+02,0.5917E+02,0.5580E+02,
1157      +0.5261E+02,0.4957E+02,0.4669E+02,0.4395E+02,0.4135E+02,0.3889E+02,
1158      +0.3655E+02,0.3434E+02,0.3224E+02,0.3025E+02,0.2837E+02,0.2659E+02,
1159      +0.2490E+02,0.2330E+02,0.2179E+02,0.2036E+02,0.1902E+02,0.1774E+02,
1160      +0.1654E+02,0.1541E+02,0.1434E+02,0.1333E+02,0.1238E+02,0.1148E+02,
1161      +0.1064E+02,0.9848E+01,0.9103E+01,0.8404E+01,0.7748E+01,0.7132E+01,
1162      +0.6555E+01,0.6015E+01,0.5509E+01,0.5037E+01,0.4595E+01,0.4184E+01,
1163      +0.3800E+01,0.3443E+01,0.3111E+01,0.2804E+01,0.2519E+01,0.2255E+01,
1164      +0.2012E+01,0.1787E+01,0.1582E+01,0.1393E+01,0.1220E+01,0.1063E+01,
1165      +0.9210E+00,0.7921E+00,0.6762E+00,0.5724E+00,0.4799E+00,0.3980E+00,
1166      +0.3261E+00,0.2633E+00,0.2091E+00,0.1628E+00,0.1238E+00,0.9145E-01,
1167      +0.6520E-01,0.4441E-01,0.2847E-01,0.1674E-01,0.8565E-02,0.3294E-02,
1168      +0.1249E-02,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1169      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1170      +0.0000E+00,0.0000E+00/
1171       DATA (XQDUM (I,7,4),I=1,104) /
1172      +0.4037E+02,0.3845E+02,0.3662E+02,0.3488E+02,0.3320E+02,0.3161E+02,
1173      +0.3008E+02,0.2862E+02,0.2723E+02,0.2589E+02,0.2462E+02,0.2341E+02,
1174      +0.2225E+02,0.2114E+02,0.2009E+02,0.1908E+02,0.1812E+02,0.1720E+02,
1175      +0.1633E+02,0.1549E+02,0.1470E+02,0.1394E+02,0.1322E+02,0.1253E+02,
1176      +0.1187E+02,0.1125E+02,0.1066E+02,0.1009E+02,0.9549E+01,0.9036E+01,
1177      +0.8547E+01,0.8083E+01,0.7641E+01,0.7220E+01,0.6820E+01,0.6440E+01,
1178      +0.6079E+01,0.5735E+01,0.5409E+01,0.5099E+01,0.4804E+01,0.4524E+01,
1179      +0.4259E+01,0.4006E+01,0.3767E+01,0.3539E+01,0.3323E+01,0.3118E+01,
1180      +0.2923E+01,0.2738E+01,0.2563E+01,0.2396E+01,0.2238E+01,0.2087E+01,
1181      +0.1944E+01,0.1809E+01,0.1680E+01,0.1557E+01,0.1441E+01,0.1331E+01,
1182      +0.1226E+01,0.1127E+01,0.1032E+01,0.9430E+00,0.8585E+00,0.7787E+00,
1183      +0.7035E+00,0.6328E+00,0.5665E+00,0.5045E+00,0.4469E+00,0.3934E+00,
1184      +0.3441E+00,0.2989E+00,0.2577E+00,0.2203E+00,0.1867E+00,0.1566E+00,
1185      +0.1298E+00,0.1062E+00,0.8548E-01,0.6755E-01,0.5219E-01,0.3923E-01,
1186      +0.2852E-01,0.1993E-01,0.1329E-01,0.8387E-02,0.4973E-02,0.2752E-02,
1187      +0.1859E-02,0.1250E-02,0.8362E-03,0.5544E-03,0.3627E-03,0.2324E-03,
1188      +0.1445E-03,0.8603E-04,0.4818E-04,0.2474E-04,0.1119E-04,0.0000E+00,
1189      +0.0000E+00,0.0000E+00/
1190       DATA (XQDUM (I,7,5),I=1,104) /
1191      +0.7537E+01,0.7190E+01,0.6858E+01,0.6541E+01,0.6237E+01,0.5947E+01,
1192      +0.5670E+01,0.5405E+01,0.5152E+01,0.4910E+01,0.4678E+01,0.4457E+01,
1193      +0.4246E+01,0.4045E+01,0.3852E+01,0.3669E+01,0.3493E+01,0.3326E+01,
1194      +0.3166E+01,0.3013E+01,0.2868E+01,0.2729E+01,0.2597E+01,0.2471E+01,
1195      +0.2350E+01,0.2235E+01,0.2126E+01,0.2022E+01,0.1922E+01,0.1828E+01,
1196      +0.1737E+01,0.1651E+01,0.1569E+01,0.1491E+01,0.1417E+01,0.1346E+01,
1197      +0.1278E+01,0.1214E+01,0.1152E+01,0.1094E+01,0.1038E+01,0.9851E+00,
1198      +0.9344E+00,0.8860E+00,0.8398E+00,0.7957E+00,0.7536E+00,0.7133E+00,
1199      +0.6747E+00,0.6379E+00,0.6025E+00,0.5686E+00,0.5361E+00,0.5049E+00,
1200      +0.4749E+00,0.4461E+00,0.4183E+00,0.3916E+00,0.3658E+00,0.3410E+00,
1201      +0.3171E+00,0.2940E+00,0.2718E+00,0.2504E+00,0.2299E+00,0.2102E+00,
1202      +0.1914E+00,0.1734E+00,0.1563E+00,0.1401E+00,0.1249E+00,0.1106E+00,
1203      +0.9724E-01,0.8491E-01,0.7356E-01,0.6318E-01,0.5376E-01,0.4527E-01,
1204      +0.3766E-01,0.3090E-01,0.2493E-01,0.1970E-01,0.1520E-01,0.1137E-01,
1205      +0.8193E-02,0.5642E-02,0.3679E-02,0.2250E-02,0.1278E-02,0.6700E-03,
1206      +0.4366E-03,0.2837E-03,0.1841E-03,0.1191E-03,0.7657E-04,0.4853E-04,
1207      +0.3000E-04,0.1784E-04,0.1000E-04,0.0000E+00,0.0000E+00,0.0000E+00,
1208      +0.0000E+00,0.0000E+00/
1209       DATA (XQDUM (I,7,6),I=1,104) /
1210      +0.7363E+01,0.7016E+01,0.6684E+01,0.6367E+01,0.6064E+01,0.5774E+01,
1211      +0.5497E+01,0.5232E+01,0.4978E+01,0.4736E+01,0.4505E+01,0.4285E+01,
1212      +0.4074E+01,0.3872E+01,0.3680E+01,0.3497E+01,0.3321E+01,0.3154E+01,
1213      +0.2995E+01,0.2843E+01,0.2697E+01,0.2559E+01,0.2427E+01,0.2301E+01,
1214      +0.2181E+01,0.2067E+01,0.1958E+01,0.1854E+01,0.1755E+01,0.1661E+01,
1215      +0.1572E+01,0.1486E+01,0.1405E+01,0.1328E+01,0.1255E+01,0.1185E+01,
1216      +0.1118E+01,0.1055E+01,0.9949E+00,0.9378E+00,0.8836E+00,0.8320E+00,
1217      +0.7830E+00,0.7365E+00,0.6923E+00,0.6503E+00,0.6104E+00,0.5726E+00,
1218      +0.5366E+00,0.5025E+00,0.4701E+00,0.4393E+00,0.4101E+00,0.3823E+00,
1219      +0.3560E+00,0.3310E+00,0.3072E+00,0.2847E+00,0.2633E+00,0.2430E+00,
1220      +0.2238E+00,0.2055E+00,0.1882E+00,0.1719E+00,0.1564E+00,0.1418E+00,
1221      +0.1281E+00,0.1152E+00,0.1031E+00,0.9181E-01,0.8131E-01,0.7159E-01,
1222      +0.6263E-01,0.5442E-01,0.4693E-01,0.4014E-01,0.3403E-01,0.2856E-01,
1223      +0.2369E-01,0.1940E-01,0.1564E-01,0.1238E-01,0.9588E-02,0.7229E-02,
1224      +0.5279E-02,0.3710E-02,0.2492E-02,0.1588E-02,0.9538E-03,0.5358E-03,
1225      +0.3655E-03,0.2481E-03,0.1674E-03,0.1118E-03,0.7365E-04,0.4747E-04,
1226      +0.2967E-04,0.1775E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1227      +0.0000E+00,0.0000E+00/
1228       DATA (XQDUM (I,7,7),I=1,104) /
1229      +0.7247E+01,0.6900E+01,0.6568E+01,0.6251E+01,0.5948E+01,0.5658E+01,
1230      +0.5381E+01,0.5116E+01,0.4863E+01,0.4621E+01,0.4390E+01,0.4169E+01,
1231      +0.3959E+01,0.3757E+01,0.3565E+01,0.3382E+01,0.3207E+01,0.3040E+01,
1232      +0.2880E+01,0.2728E+01,0.2584E+01,0.2445E+01,0.2314E+01,0.2188E+01,
1233      +0.2068E+01,0.1954E+01,0.1846E+01,0.1742E+01,0.1644E+01,0.1550E+01,
1234      +0.1461E+01,0.1376E+01,0.1296E+01,0.1219E+01,0.1146E+01,0.1077E+01,
1235      +0.1011E+01,0.9490E+00,0.8898E+00,0.8336E+00,0.7804E+00,0.7299E+00,
1236      +0.6820E+00,0.6367E+00,0.5939E+00,0.5533E+00,0.5150E+00,0.4787E+00,
1237      +0.4445E+00,0.4122E+00,0.3818E+00,0.3531E+00,0.3260E+00,0.3006E+00,
1238      +0.2767E+00,0.2542E+00,0.2332E+00,0.2134E+00,0.1950E+00,0.1777E+00,
1239      +0.1616E+00,0.1465E+00,0.1325E+00,0.1195E+00,0.1074E+00,0.9626E-01,
1240      +0.8593E-01,0.7641E-01,0.6766E-01,0.5964E-01,0.5231E-01,0.4564E-01,
1241      +0.3958E-01,0.3411E-01,0.2920E-01,0.2480E-01,0.2088E-01,0.1742E-01,
1242      +0.1439E-01,0.1174E-01,0.9458E-02,0.7504E-02,0.5851E-02,0.4471E-02,
1243      +0.3337E-02,0.2422E-02,0.1701E-02,0.1148E-02,0.7376E-03,0.4463E-03,
1244      +0.3181E-03,0.2244E-03,0.1562E-03,0.1070E-03,0.7170E-04,0.4677E-04,
1245      +0.2944E-04,0.1769E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1246      +0.0000E+00,0.0000E+00/
1247       DATA (XQDUM (I,7,8),I=1,104) /
1248      +0.6872E+01,0.6540E+01,0.6223E+01,0.5919E+01,0.5630E+01,0.5352E+01,
1249      +0.5088E+01,0.4835E+01,0.4593E+01,0.4363E+01,0.4142E+01,0.3932E+01,
1250      +0.3731E+01,0.3539E+01,0.3357E+01,0.3182E+01,0.3016E+01,0.2857E+01,
1251      +0.2705E+01,0.2561E+01,0.2423E+01,0.2292E+01,0.2167E+01,0.2048E+01,
1252      +0.1935E+01,0.1827E+01,0.1724E+01,0.1627E+01,0.1534E+01,0.1445E+01,
1253      +0.1361E+01,0.1281E+01,0.1205E+01,0.1133E+01,0.1065E+01,0.9995E+00,
1254      +0.9378E+00,0.8792E+00,0.8236E+00,0.7710E+00,0.7210E+00,0.6738E+00,
1255      +0.6290E+00,0.5867E+00,0.5467E+00,0.5088E+00,0.4731E+00,0.4393E+00,
1256      +0.4075E+00,0.3774E+00,0.3491E+00,0.3225E+00,0.2974E+00,0.2739E+00,
1257      +0.2518E+00,0.2310E+00,0.2116E+00,0.1934E+00,0.1764E+00,0.1605E+00,
1258      +0.1457E+00,0.1319E+00,0.1190E+00,0.1071E+00,0.9611E-01,0.8592E-01,
1259      +0.7653E-01,0.6788E-01,0.5995E-01,0.5270E-01,0.4609E-01,0.4008E-01,
1260      +0.3465E-01,0.2976E-01,0.2537E-01,0.2146E-01,0.1800E-01,0.1495E-01,
1261      +0.1228E-01,0.9967E-02,0.7981E-02,0.6292E-02,0.4873E-02,0.3697E-02,
1262      +0.2738E-02,0.1970E-02,0.1371E-02,0.9164E-03,0.5830E-03,0.3487E-03,
1263      +0.2467E-03,0.1727E-03,0.1193E-03,0.8098E-04,0.5378E-04,0.3473E-04,
1264      +0.2162E-04,0.1282E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1265      +0.0000E+00,0.0000E+00/
1266       DATA (XQDUM (I,7,9),I=1,104) /
1267      +0.3814E+01,0.3619E+01,0.3434E+01,0.3257E+01,0.3088E+01,0.2927E+01,
1268      +0.2774E+01,0.2628E+01,0.2488E+01,0.2356E+01,0.2230E+01,0.2109E+01,
1269      +0.1995E+01,0.1886E+01,0.1782E+01,0.1684E+01,0.1590E+01,0.1501E+01,
1270      +0.1416E+01,0.1336E+01,0.1259E+01,0.1186E+01,0.1117E+01,0.1052E+01,
1271      +0.9897E+00,0.9307E+00,0.8748E+00,0.8218E+00,0.7715E+00,0.7239E+00,
1272      +0.6788E+00,0.6361E+00,0.5957E+00,0.5575E+00,0.5213E+00,0.4871E+00,
1273      +0.4549E+00,0.4244E+00,0.3956E+00,0.3684E+00,0.3428E+00,0.3187E+00,
1274      +0.2959E+00,0.2745E+00,0.2544E+00,0.2354E+00,0.2176E+00,0.2009E+00,
1275      +0.1852E+00,0.1706E+00,0.1568E+00,0.1439E+00,0.1319E+00,0.1206E+00,
1276      +0.1101E+00,0.1003E+00,0.9122E-01,0.8276E-01,0.7490E-01,0.6761E-01,
1277      +0.6087E-01,0.5465E-01,0.4890E-01,0.4362E-01,0.3877E-01,0.3433E-01,
1278      +0.3027E-01,0.2657E-01,0.2321E-01,0.2017E-01,0.1743E-01,0.1497E-01,
1279      +0.1277E-01,0.1081E-01,0.9084E-02,0.7564E-02,0.6237E-02,0.5087E-02,
1280      +0.4099E-02,0.3259E-02,0.2552E-02,0.1964E-02,0.1481E-02,0.1092E-02,
1281      +0.7843E-03,0.5460E-03,0.3664E-03,0.2353E-03,0.1432E-03,0.8149E-04,
1282      +0.5573E-04,0.3766E-04,0.2505E-04,0.1634E-04,0.1039E-04,0.0000E+00,
1283      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1284      +0.0000E+00,0.0000E+00/
1285       DATA (XQDUM (I,8,1),I=1,104) /
1286      +0.2284E-01,0.2408E-01,0.2540E-01,0.2678E-01,0.2823E-01,0.2976E-01,
1287      +0.3137E-01,0.3307E-01,0.3485E-01,0.3673E-01,0.3871E-01,0.4079E-01,
1288      +0.4297E-01,0.4527E-01,0.4769E-01,0.5022E-01,0.5289E-01,0.5570E-01,
1289      +0.5864E-01,0.6173E-01,0.6498E-01,0.6839E-01,0.7197E-01,0.7572E-01,
1290      +0.7965E-01,0.8377E-01,0.8810E-01,0.9262E-01,0.9736E-01,0.1023E+00,
1291      +0.1075E+00,0.1129E+00,0.1186E+00,0.1245E+00,0.1307E+00,0.1372E+00,
1292      +0.1439E+00,0.1509E+00,0.1582E+00,0.1658E+00,0.1737E+00,0.1820E+00,
1293      +0.1905E+00,0.1993E+00,0.2084E+00,0.2178E+00,0.2276E+00,0.2376E+00,
1294      +0.2479E+00,0.2585E+00,0.2694E+00,0.2805E+00,0.2918E+00,0.3033E+00,
1295      +0.3150E+00,0.3267E+00,0.3386E+00,0.3504E+00,0.3622E+00,0.3738E+00,
1296      +0.3853E+00,0.3964E+00,0.4071E+00,0.4172E+00,0.4267E+00,0.4354E+00,
1297      +0.4430E+00,0.4495E+00,0.4547E+00,0.4582E+00,0.4600E+00,0.4598E+00,
1298      +0.4574E+00,0.4525E+00,0.4450E+00,0.4346E+00,0.4212E+00,0.4047E+00,
1299      +0.3851E+00,0.3623E+00,0.3365E+00,0.3081E+00,0.2772E+00,0.2447E+00,
1300      +0.2110E+00,0.1771E+00,0.1440E+00,0.1125E+00,0.8385E-01,0.5879E-01,
1301      +0.4576E-01,0.3502E-01,0.2629E-01,0.1929E-01,0.1377E-01,0.9507E-02,
1302      +0.6291E-02,0.3941E-02,0.2294E-02,0.1206E-02,0.5435E-03,0.1898E-03,
1303      +0.3901E-04,0.0000E+00/
1304       DATA (XQDUM (I,8,2),I=1,104) /
1305      +0.1295E-01,0.1366E-01,0.1440E-01,0.1518E-01,0.1600E-01,0.1686E-01,
1306      +0.1777E-01,0.1873E-01,0.1973E-01,0.2079E-01,0.2190E-01,0.2307E-01,
1307      +0.2430E-01,0.2559E-01,0.2695E-01,0.2837E-01,0.2987E-01,0.3144E-01,
1308      +0.3309E-01,0.3482E-01,0.3664E-01,0.3855E-01,0.4054E-01,0.4263E-01,
1309      +0.4483E-01,0.4712E-01,0.4953E-01,0.5204E-01,0.5467E-01,0.5742E-01,
1310      +0.6029E-01,0.6329E-01,0.6642E-01,0.6968E-01,0.7308E-01,0.7662E-01,
1311      +0.8030E-01,0.8413E-01,0.8811E-01,0.9223E-01,0.9651E-01,0.1009E+00,
1312      +0.1055E+00,0.1102E+00,0.1151E+00,0.1201E+00,0.1253E+00,0.1305E+00,
1313      +0.1359E+00,0.1415E+00,0.1471E+00,0.1527E+00,0.1585E+00,0.1643E+00,
1314      +0.1701E+00,0.1759E+00,0.1816E+00,0.1872E+00,0.1927E+00,0.1981E+00,
1315      +0.2032E+00,0.2080E+00,0.2124E+00,0.2164E+00,0.2199E+00,0.2228E+00,
1316      +0.2250E+00,0.2264E+00,0.2269E+00,0.2264E+00,0.2248E+00,0.2220E+00,
1317      +0.2180E+00,0.2126E+00,0.2058E+00,0.1975E+00,0.1877E+00,0.1765E+00,
1318      +0.1640E+00,0.1502E+00,0.1355E+00,0.1199E+00,0.1039E+00,0.8785E-01,
1319      +0.7214E-01,0.5724E-01,0.4358E-01,0.3157E-01,0.2149E-01,0.1352E-01,
1320      +0.9751E-02,0.6880E-02,0.4733E-02,0.3160E-02,0.2036E-02,0.1256E-02,
1321      +0.7331E-03,0.3986E-03,0.1970E-03,0.8519E-04,0.3007E-04,0.0000E+00,
1322      +0.0000E+00,0.0000E+00/
1323       DATA (XQDUM (I,8,3),I=1,104) /
1324      +0.2253E+03,0.2135E+03,0.2024E+03,0.1918E+03,0.1817E+03,0.1720E+03,
1325      +0.1629E+03,0.1541E+03,0.1458E+03,0.1379E+03,0.1304E+03,0.1232E+03,
1326      +0.1164E+03,0.1100E+03,0.1038E+03,0.9800E+02,0.9246E+02,0.8720E+02,
1327      +0.8220E+02,0.7746E+02,0.7296E+02,0.6869E+02,0.6464E+02,0.6081E+02,
1328      +0.5717E+02,0.5372E+02,0.5046E+02,0.4737E+02,0.4445E+02,0.4168E+02,
1329      +0.3907E+02,0.3659E+02,0.3425E+02,0.3205E+02,0.2996E+02,0.2799E+02,
1330      +0.2613E+02,0.2438E+02,0.2273E+02,0.2117E+02,0.1970E+02,0.1832E+02,
1331      +0.1702E+02,0.1580E+02,0.1465E+02,0.1357E+02,0.1256E+02,0.1161E+02,
1332      +0.1072E+02,0.9885E+01,0.9104E+01,0.8372E+01,0.7688E+01,0.7049E+01,
1333      +0.6452E+01,0.5896E+01,0.5378E+01,0.4895E+01,0.4447E+01,0.4030E+01,
1334      +0.3644E+01,0.3287E+01,0.2956E+01,0.2651E+01,0.2370E+01,0.2111E+01,
1335      +0.1873E+01,0.1656E+01,0.1457E+01,0.1276E+01,0.1112E+01,0.9631E+00,
1336      +0.8290E+00,0.7086E+00,0.6009E+00,0.5052E+00,0.4206E+00,0.3462E+00,
1337      +0.2814E+00,0.2253E+00,0.1773E+00,0.1366E+00,0.1028E+00,0.7497E-01,
1338      +0.5268E-01,0.3527E-01,0.2211E-01,0.1260E-01,0.6116E-02,0.2049E-02,
1339      +0.5238E-03,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1340      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1341      +0.0000E+00,0.0000E+00/
1342       DATA (XQDUM (I,8,4),I=1,104) /
1343      +0.4865E+02,0.4627E+02,0.4400E+02,0.4183E+02,0.3976E+02,0.3779E+02,
1344      +0.3590E+02,0.3411E+02,0.3239E+02,0.3075E+02,0.2919E+02,0.2771E+02,
1345      +0.2629E+02,0.2494E+02,0.2365E+02,0.2242E+02,0.2125E+02,0.2014E+02,
1346      +0.1908E+02,0.1807E+02,0.1711E+02,0.1619E+02,0.1532E+02,0.1449E+02,
1347      +0.1371E+02,0.1296E+02,0.1225E+02,0.1157E+02,0.1093E+02,0.1032E+02,
1348      +0.9737E+01,0.9186E+01,0.8663E+01,0.8166E+01,0.7695E+01,0.7248E+01,
1349      +0.6824E+01,0.6421E+01,0.6040E+01,0.5678E+01,0.5336E+01,0.5011E+01,
1350      +0.4703E+01,0.4412E+01,0.4136E+01,0.3874E+01,0.3626E+01,0.3392E+01,
1351      +0.3170E+01,0.2960E+01,0.2761E+01,0.2572E+01,0.2394E+01,0.2225E+01,
1352      +0.2066E+01,0.1915E+01,0.1772E+01,0.1636E+01,0.1509E+01,0.1388E+01,
1353      +0.1273E+01,0.1165E+01,0.1064E+01,0.9676E+00,0.8772E+00,0.7924E+00,
1354      +0.7128E+00,0.6384E+00,0.5690E+00,0.5046E+00,0.4449E+00,0.3899E+00,
1355      +0.3394E+00,0.2934E+00,0.2517E+00,0.2141E+00,0.1804E+00,0.1505E+00,
1356      +0.1240E+00,0.1008E+00,0.8057E-01,0.6320E-01,0.4844E-01,0.3611E-01,
1357      +0.2603E-01,0.1803E-01,0.1192E-01,0.7455E-02,0.4384E-02,0.2406E-02,
1358      +0.1617E-02,0.1081E-02,0.7188E-03,0.4732E-03,0.3069E-03,0.1948E-03,
1359      +0.1197E-03,0.7031E-04,0.3877E-04,0.1955E-04,0.0000E+00,0.0000E+00,
1360      +0.0000E+00,0.0000E+00/
1361       DATA (XQDUM (I,8,5),I=1,104) /
1362      +0.8897E+01,0.8473E+01,0.8069E+01,0.7682E+01,0.7314E+01,0.6961E+01,
1363      +0.6625E+01,0.6304E+01,0.5998E+01,0.5706E+01,0.5427E+01,0.5161E+01,
1364      +0.4907E+01,0.4665E+01,0.4434E+01,0.4214E+01,0.4005E+01,0.3805E+01,
1365      +0.3614E+01,0.3433E+01,0.3260E+01,0.3096E+01,0.2939E+01,0.2790E+01,
1366      +0.2648E+01,0.2513E+01,0.2384E+01,0.2262E+01,0.2145E+01,0.2034E+01,
1367      +0.1929E+01,0.1829E+01,0.1733E+01,0.1643E+01,0.1557E+01,0.1475E+01,
1368      +0.1397E+01,0.1323E+01,0.1252E+01,0.1185E+01,0.1121E+01,0.1061E+01,
1369      +0.1003E+01,0.9483E+00,0.8961E+00,0.8463E+00,0.7990E+00,0.7538E+00,
1370      +0.7107E+00,0.6696E+00,0.6304E+00,0.5929E+00,0.5571E+00,0.5229E+00,
1371      +0.4901E+00,0.4587E+00,0.4286E+00,0.3997E+00,0.3720E+00,0.3455E+00,
1372      +0.3201E+00,0.2957E+00,0.2723E+00,0.2499E+00,0.2285E+00,0.2082E+00,
1373      +0.1888E+00,0.1703E+00,0.1529E+00,0.1366E+00,0.1212E+00,0.1069E+00,
1374      +0.9362E-01,0.8139E-01,0.7020E-01,0.6002E-01,0.5082E-01,0.4257E-01,
1375      +0.3522E-01,0.2872E-01,0.2302E-01,0.1807E-01,0.1382E-01,0.1026E-01,
1376      +0.7327E-02,0.4999E-02,0.3230E-02,0.1957E-02,0.1103E-02,0.5740E-03,
1377      +0.3726E-03,0.2413E-03,0.1560E-03,0.1005E-03,0.6419E-04,0.4035E-04,
1378      +0.2470E-04,0.1450E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1379      +0.0000E+00,0.0000E+00/
1380       DATA (XQDUM (I,8,6),I=1,104) /
1381      +0.8723E+01,0.8300E+01,0.7895E+01,0.7509E+01,0.7140E+01,0.6788E+01,
1382      +0.6452E+01,0.6131E+01,0.5825E+01,0.5533E+01,0.5254E+01,0.4988E+01,
1383      +0.4735E+01,0.4493E+01,0.4262E+01,0.4043E+01,0.3833E+01,0.3634E+01,
1384      +0.3444E+01,0.3263E+01,0.3090E+01,0.2926E+01,0.2770E+01,0.2621E+01,
1385      +0.2480E+01,0.2345E+01,0.2217E+01,0.2095E+01,0.1979E+01,0.1869E+01,
1386      +0.1765E+01,0.1665E+01,0.1571E+01,0.1481E+01,0.1396E+01,0.1315E+01,
1387      +0.1238E+01,0.1165E+01,0.1096E+01,0.1031E+01,0.9688E+00,0.9099E+00,
1388      +0.8541E+00,0.8012E+00,0.7510E+00,0.7035E+00,0.6585E+00,0.6159E+00,
1389      +0.5755E+00,0.5373E+00,0.5011E+00,0.4668E+00,0.4344E+00,0.4037E+00,
1390      +0.3746E+00,0.3472E+00,0.3212E+00,0.2966E+00,0.2733E+00,0.2513E+00,
1391      +0.2306E+00,0.2110E+00,0.1925E+00,0.1751E+00,0.1587E+00,0.1434E+00,
1392      +0.1290E+00,0.1155E+00,0.1029E+00,0.9129E-01,0.8051E-01,0.7057E-01,
1393      +0.6146E-01,0.5316E-01,0.4562E-01,0.3883E-01,0.3274E-01,0.2733E-01,
1394      +0.2254E-01,0.1834E-01,0.1469E-01,0.1154E-01,0.8871E-02,0.6635E-02,
1395      +0.4804E-02,0.3347E-02,0.2229E-02,0.1408E-02,0.8382E-03,0.4669E-03,
1396      +0.3167E-03,0.2137E-03,0.1433E-03,0.9502E-04,0.6205E-04,0.3960E-04,
1397      +0.2447E-04,0.1444E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1398      +0.0000E+00,0.0000E+00/
1399       DATA (XQDUM (I,8,7),I=1,104) /
1400      +0.8607E+01,0.8184E+01,0.7779E+01,0.7393E+01,0.7025E+01,0.6673E+01,
1401      +0.6336E+01,0.6016E+01,0.5710E+01,0.5418E+01,0.5139E+01,0.4873E+01,
1402      +0.4620E+01,0.4378E+01,0.4148E+01,0.3928E+01,0.3719E+01,0.3520E+01,
1403      +0.3330E+01,0.3149E+01,0.2977E+01,0.2813E+01,0.2657E+01,0.2508E+01,
1404      +0.2367E+01,0.2233E+01,0.2105E+01,0.1984E+01,0.1868E+01,0.1759E+01,
1405      +0.1655E+01,0.1556E+01,0.1462E+01,0.1373E+01,0.1289E+01,0.1208E+01,
1406      +0.1133E+01,0.1061E+01,0.9925E+00,0.9280E+00,0.8669E+00,0.8092E+00,
1407      +0.7546E+00,0.7030E+00,0.6542E+00,0.6082E+00,0.5648E+00,0.5239E+00,
1408      +0.4853E+00,0.4490E+00,0.4149E+00,0.3828E+00,0.3526E+00,0.3243E+00,
1409      +0.2977E+00,0.2728E+00,0.2496E+00,0.2278E+00,0.2075E+00,0.1886E+00,
1410      +0.1709E+00,0.1546E+00,0.1393E+00,0.1252E+00,0.1122E+00,0.1002E+00,
1411      +0.8912E-01,0.7895E-01,0.6964E-01,0.6114E-01,0.5340E-01,0.4639E-01,
1412      +0.4005E-01,0.3435E-01,0.2925E-01,0.2472E-01,0.2070E-01,0.1717E-01,
1413      +0.1409E-01,0.1143E-01,0.9142E-02,0.7200E-02,0.5571E-02,0.4222E-02,
1414      +0.3123E-02,0.2246E-02,0.1561E-02,0.1042E-02,0.6620E-03,0.3954E-03,
1415      +0.2794E-03,0.1954E-03,0.1348E-03,0.9138E-04,0.6062E-04,0.3910E-04,
1416      +0.2431E-04,0.1440E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1417      +0.0000E+00,0.0000E+00/
1418       DATA (XQDUM (I,8,8),I=1,104) /
1419      +0.8243E+01,0.7834E+01,0.7444E+01,0.7071E+01,0.6715E+01,0.6376E+01,
1420      +0.6052E+01,0.5743E+01,0.5448E+01,0.5167E+01,0.4899E+01,0.4643E+01,
1421      +0.4399E+01,0.4167E+01,0.3945E+01,0.3735E+01,0.3534E+01,0.3342E+01,
1422      +0.3160E+01,0.2987E+01,0.2822E+01,0.2665E+01,0.2515E+01,0.2373E+01,
1423      +0.2238E+01,0.2110E+01,0.1988E+01,0.1872E+01,0.1762E+01,0.1657E+01,
1424      +0.1558E+01,0.1464E+01,0.1375E+01,0.1290E+01,0.1210E+01,0.1134E+01,
1425      +0.1062E+01,0.9933E+00,0.9287E+00,0.8676E+00,0.8098E+00,0.7552E+00,
1426      +0.7036E+00,0.6549E+00,0.6089E+00,0.5655E+00,0.5246E+00,0.4861E+00,
1427      +0.4498E+00,0.4157E+00,0.3836E+00,0.3535E+00,0.3253E+00,0.2988E+00,
1428      +0.2739E+00,0.2507E+00,0.2290E+00,0.2087E+00,0.1898E+00,0.1722E+00,
1429      +0.1558E+00,0.1407E+00,0.1266E+00,0.1135E+00,0.1015E+00,0.9044E-01,
1430      +0.8027E-01,0.7094E-01,0.6241E-01,0.5464E-01,0.4759E-01,0.4121E-01,
1431      +0.3546E-01,0.3031E-01,0.2571E-01,0.2164E-01,0.1804E-01,0.1490E-01,
1432      +0.1216E-01,0.9810E-02,0.7801E-02,0.6105E-02,0.4691E-02,0.3529E-02,
1433      +0.2590E-02,0.1846E-02,0.1272E-02,0.8406E-03,0.5283E-03,0.3118E-03,
1434      +0.2186E-03,0.1517E-03,0.1037E-03,0.6971E-04,0.4580E-04,0.2923E-04,
1435      +0.1796E-04,0.1050E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1436      +0.0000E+00,0.0000E+00/
1437       DATA (XQDUM (I,8,9),I=1,104) /
1438      +0.5281E+01,0.5006E+01,0.4743E+01,0.4493E+01,0.4255E+01,0.4028E+01,
1439      +0.3813E+01,0.3607E+01,0.3412E+01,0.3226E+01,0.3049E+01,0.2881E+01,
1440      +0.2721E+01,0.2569E+01,0.2424E+01,0.2287E+01,0.2157E+01,0.2033E+01,
1441      +0.1915E+01,0.1804E+01,0.1698E+01,0.1598E+01,0.1502E+01,0.1412E+01,
1442      +0.1327E+01,0.1246E+01,0.1169E+01,0.1096E+01,0.1028E+01,0.9628E+00,
1443      +0.9013E+00,0.8432E+00,0.7884E+00,0.7365E+00,0.6876E+00,0.6414E+00,
1444      +0.5978E+00,0.5567E+00,0.5180E+00,0.4815E+00,0.4472E+00,0.4149E+00,
1445      +0.3846E+00,0.3560E+00,0.3293E+00,0.3041E+00,0.2805E+00,0.2585E+00,
1446      +0.2378E+00,0.2184E+00,0.2004E+00,0.1835E+00,0.1677E+00,0.1530E+00,
1447      +0.1394E+00,0.1267E+00,0.1149E+00,0.1039E+00,0.9382E-01,0.8446E-01,
1448      +0.7582E-01,0.6786E-01,0.6055E-01,0.5384E-01,0.4769E-01,0.4208E-01,
1449      +0.3698E-01,0.3234E-01,0.2815E-01,0.2437E-01,0.2097E-01,0.1793E-01,
1450      +0.1523E-01,0.1284E-01,0.1073E-01,0.8888E-02,0.7288E-02,0.5910E-02,
1451      +0.4733E-02,0.3737E-02,0.2905E-02,0.2219E-02,0.1660E-02,0.1213E-02,
1452      +0.8627E-03,0.5943E-03,0.3943E-03,0.2500E-03,0.1500E-03,0.8403E-04,
1453      +0.5685E-04,0.3798E-04,0.2497E-04,0.1608E-04,0.1009E-04,0.0000E+00,
1454      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1455      +0.0000E+00,0.0000E+00/
1456       DATA (XQDUM (I,9,1),I=1,104) /
1457      +0.2424E-01,0.2555E-01,0.2693E-01,0.2839E-01,0.2992E-01,0.3153E-01,
1458      +0.3323E-01,0.3502E-01,0.3689E-01,0.3887E-01,0.4094E-01,0.4312E-01,
1459      +0.4541E-01,0.4782E-01,0.5035E-01,0.5301E-01,0.5580E-01,0.5874E-01,
1460      +0.6181E-01,0.6504E-01,0.6843E-01,0.7198E-01,0.7570E-01,0.7960E-01,
1461      +0.8369E-01,0.8797E-01,0.9246E-01,0.9715E-01,0.1021E+00,0.1072E+00,
1462      +0.1125E+00,0.1181E+00,0.1240E+00,0.1301E+00,0.1364E+00,0.1431E+00,
1463      +0.1500E+00,0.1571E+00,0.1646E+00,0.1724E+00,0.1804E+00,0.1887E+00,
1464      +0.1974E+00,0.2063E+00,0.2155E+00,0.2250E+00,0.2348E+00,0.2448E+00,
1465      +0.2552E+00,0.2657E+00,0.2765E+00,0.2875E+00,0.2987E+00,0.3100E+00,
1466      +0.3214E+00,0.3329E+00,0.3443E+00,0.3558E+00,0.3671E+00,0.3782E+00,
1467      +0.3890E+00,0.3994E+00,0.4093E+00,0.4185E+00,0.4270E+00,0.4346E+00,
1468      +0.4411E+00,0.4464E+00,0.4502E+00,0.4524E+00,0.4528E+00,0.4511E+00,
1469      +0.4472E+00,0.4408E+00,0.4318E+00,0.4200E+00,0.4053E+00,0.3877E+00,
1470      +0.3671E+00,0.3436E+00,0.3175E+00,0.2889E+00,0.2584E+00,0.2265E+00,
1471      +0.1940E+00,0.1616E+00,0.1302E+00,0.1008E+00,0.7432E-01,0.5148E-01,
1472      +0.3973E-01,0.3014E-01,0.2241E-01,0.1628E-01,0.1149E-01,0.7834E-02,
1473      +0.5110E-02,0.3148E-02,0.1796E-02,0.9200E-03,0.4002E-03,0.1318E-03,
1474      +0.2336E-04,0.0000E+00/
1475       DATA (XQDUM (I,9,2),I=1,104) /
1476      +0.1373E-01,0.1448E-01,0.1526E-01,0.1608E-01,0.1694E-01,0.1785E-01,
1477      +0.1880E-01,0.1981E-01,0.2086E-01,0.2197E-01,0.2314E-01,0.2437E-01,
1478      +0.2565E-01,0.2700E-01,0.2842E-01,0.2991E-01,0.3148E-01,0.3312E-01,
1479      +0.3483E-01,0.3664E-01,0.3853E-01,0.4051E-01,0.4258E-01,0.4475E-01,
1480      +0.4702E-01,0.4940E-01,0.5189E-01,0.5448E-01,0.5720E-01,0.6003E-01,
1481      +0.6299E-01,0.6607E-01,0.6928E-01,0.7262E-01,0.7610E-01,0.7972E-01,
1482      +0.8348E-01,0.8738E-01,0.9142E-01,0.9561E-01,0.9994E-01,0.1044E+00,
1483      +0.1090E+00,0.1138E+00,0.1187E+00,0.1237E+00,0.1288E+00,0.1341E+00,
1484      +0.1394E+00,0.1449E+00,0.1504E+00,0.1560E+00,0.1616E+00,0.1672E+00,
1485      +0.1728E+00,0.1784E+00,0.1839E+00,0.1892E+00,0.1944E+00,0.1994E+00,
1486      +0.2041E+00,0.2084E+00,0.2124E+00,0.2159E+00,0.2188E+00,0.2210E+00,
1487      +0.2226E+00,0.2233E+00,0.2231E+00,0.2219E+00,0.2197E+00,0.2162E+00,
1488      +0.2115E+00,0.2054E+00,0.1980E+00,0.1892E+00,0.1790E+00,0.1675E+00,
1489      +0.1548E+00,0.1411E+00,0.1264E+00,0.1112E+00,0.9574E-01,0.8036E-01,
1490      +0.6548E-01,0.5152E-01,0.3887E-01,0.2786E-01,0.1875E-01,0.1164E-01,
1491      +0.8321E-02,0.5815E-02,0.3960E-02,0.2615E-02,0.1664E-02,0.1013E-02,
1492      +0.5819E-03,0.3105E-03,0.1500E-03,0.6292E-04,0.2123E-04,0.0000E+00,
1493      +0.0000E+00,0.0000E+00/
1494       DATA (XQDUM (I,9,3),I=1,104) /
1495      +0.2532E+03,0.2396E+03,0.2266E+03,0.2143E+03,0.2027E+03,0.1915E+03,
1496      +0.1810E+03,0.1709E+03,0.1614E+03,0.1523E+03,0.1437E+03,0.1356E+03,
1497      +0.1278E+03,0.1205E+03,0.1135E+03,0.1069E+03,0.1007E+03,0.9472E+02,
1498      +0.8910E+02,0.8377E+02,0.7873E+02,0.7395E+02,0.6944E+02,0.6517E+02,
1499      +0.6112E+02,0.5731E+02,0.5370E+02,0.5029E+02,0.4707E+02,0.4403E+02,
1500      +0.4116E+02,0.3846E+02,0.3591E+02,0.3350E+02,0.3124E+02,0.2911E+02,
1501      +0.2710E+02,0.2522E+02,0.2344E+02,0.2177E+02,0.2021E+02,0.1874E+02,
1502      +0.1736E+02,0.1607E+02,0.1485E+02,0.1372E+02,0.1265E+02,0.1166E+02,
1503      +0.1073E+02,0.9864E+01,0.9054E+01,0.8298E+01,0.7594E+01,0.6939E+01,
1504      +0.6329E+01,0.5763E+01,0.5238E+01,0.4750E+01,0.4299E+01,0.3881E+01,
1505      +0.3496E+01,0.3140E+01,0.2813E+01,0.2512E+01,0.2236E+01,0.1983E+01,
1506      +0.1752E+01,0.1542E+01,0.1351E+01,0.1177E+01,0.1021E+01,0.8797E+00,
1507      +0.7533E+00,0.6404E+00,0.5401E+00,0.4514E+00,0.3735E+00,0.3054E+00,
1508      +0.2465E+00,0.1959E+00,0.1529E+00,0.1169E+00,0.8704E-01,0.6283E-01,
1509      +0.4359E-01,0.2874E-01,0.1767E-01,0.9789E-02,0.4516E-02,0.1294E-02,
1510      +0.1249E-03,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1511      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1512      +0.0000E+00,0.0000E+00/
1513       DATA (XQDUM (I,9,4),I=1,104) /
1514      +0.5669E+02,0.5384E+02,0.5113E+02,0.4854E+02,0.4608E+02,0.4373E+02,
1515      +0.4149E+02,0.3935E+02,0.3732E+02,0.3538E+02,0.3353E+02,0.3178E+02,
1516      +0.3010E+02,0.2851E+02,0.2699E+02,0.2555E+02,0.2418E+02,0.2288E+02,
1517      +0.2163E+02,0.2046E+02,0.1933E+02,0.1827E+02,0.1726E+02,0.1629E+02,
1518      +0.1538E+02,0.1452E+02,0.1369E+02,0.1291E+02,0.1217E+02,0.1147E+02,
1519      +0.1080E+02,0.1017E+02,0.9571E+01,0.9004E+01,0.8467E+01,0.7958E+01,
1520      +0.7476E+01,0.7019E+01,0.6588E+01,0.6179E+01,0.5793E+01,0.5427E+01,
1521      +0.5082E+01,0.4755E+01,0.4446E+01,0.4154E+01,0.3879E+01,0.3618E+01,
1522      +0.3372E+01,0.3140E+01,0.2921E+01,0.2714E+01,0.2518E+01,0.2334E+01,
1523      +0.2160E+01,0.1996E+01,0.1841E+01,0.1695E+01,0.1558E+01,0.1428E+01,
1524      +0.1306E+01,0.1191E+01,0.1084E+01,0.9823E+00,0.8875E+00,0.7987E+00,
1525      +0.7159E+00,0.6388E+00,0.5672E+00,0.5011E+00,0.4401E+00,0.3841E+00,
1526      +0.3331E+00,0.2867E+00,0.2449E+00,0.2074E+00,0.1739E+00,0.1443E+00,
1527      +0.1183E+00,0.9558E-01,0.7597E-01,0.5921E-01,0.4507E-01,0.3335E-01,
1528      +0.2386E-01,0.1640E-01,0.1075E-01,0.6673E-02,0.3893E-02,0.2120E-02,
1529      +0.1418E-02,0.9432E-03,0.6232E-03,0.4076E-03,0.2623E-03,0.1650E-03,
1530      +0.1003E-03,0.5825E-04,0.3168E-04,0.1572E-04,0.0000E+00,0.0000E+00,
1531      +0.0000E+00,0.0000E+00/
1532       DATA (XQDUM (I,9,5),I=1,104) /
1533      +0.1022E+02,0.9719E+01,0.9241E+01,0.8786E+01,0.8351E+01,0.7937E+01,
1534      +0.7542E+01,0.7165E+01,0.6806E+01,0.6464E+01,0.6138E+01,0.5828E+01,
1535      +0.5532E+01,0.5250E+01,0.4982E+01,0.4727E+01,0.4484E+01,0.4252E+01,
1536      +0.4032E+01,0.3823E+01,0.3624E+01,0.3434E+01,0.3254E+01,0.3083E+01,
1537      +0.2920E+01,0.2765E+01,0.2618E+01,0.2479E+01,0.2346E+01,0.2220E+01,
1538      +0.2101E+01,0.1987E+01,0.1879E+01,0.1777E+01,0.1680E+01,0.1588E+01,
1539      +0.1500E+01,0.1417E+01,0.1339E+01,0.1264E+01,0.1193E+01,0.1126E+01,
1540      +0.1062E+01,0.1001E+01,0.9432E+00,0.8885E+00,0.8364E+00,0.7870E+00,
1541      +0.7399E+00,0.6951E+00,0.6525E+00,0.6120E+00,0.5733E+00,0.5364E+00,
1542      +0.5013E+00,0.4677E+00,0.4357E+00,0.4051E+00,0.3758E+00,0.3479E+00,
1543      +0.3212E+00,0.2958E+00,0.2715E+00,0.2484E+00,0.2264E+00,0.2055E+00,
1544      +0.1857E+00,0.1670E+00,0.1494E+00,0.1330E+00,0.1176E+00,0.1033E+00,
1545      +0.9016E-01,0.7809E-01,0.6708E-01,0.5712E-01,0.4816E-01,0.4015E-01,
1546      +0.3306E-01,0.2681E-01,0.2136E-01,0.1666E-01,0.1266E-01,0.9324E-02,
1547      +0.6609E-02,0.4473E-02,0.2866E-02,0.1723E-02,0.9632E-03,0.4981E-03,
1548      +0.3222E-03,0.2079E-03,0.1339E-03,0.8583E-04,0.5450E-04,0.3401E-04,
1549      +0.2063E-04,0.1198E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1550      +0.0000E+00,0.0000E+00/
1551       DATA (XQDUM (I,9,6),I=1,104) /
1552      +0.1005E+02,0.9546E+01,0.9068E+01,0.8613E+01,0.8178E+01,0.7764E+01,
1553      +0.7369E+01,0.6993E+01,0.6634E+01,0.6292E+01,0.5966E+01,0.5656E+01,
1554      +0.5360E+01,0.5079E+01,0.4811E+01,0.4555E+01,0.4313E+01,0.4082E+01,
1555      +0.3862E+01,0.3653E+01,0.3454E+01,0.3265E+01,0.3085E+01,0.2915E+01,
1556      +0.2752E+01,0.2598E+01,0.2452E+01,0.2313E+01,0.2181E+01,0.2056E+01,
1557      +0.1937E+01,0.1825E+01,0.1718E+01,0.1617E+01,0.1521E+01,0.1430E+01,
1558      +0.1343E+01,0.1262E+01,0.1185E+01,0.1111E+01,0.1042E+01,0.9765E+00,
1559      +0.9145E+00,0.8559E+00,0.8004E+00,0.7480E+00,0.6984E+00,0.6516E+00,
1560      +0.6073E+00,0.5655E+00,0.5261E+00,0.4888E+00,0.4536E+00,0.4204E+00,
1561      +0.3890E+00,0.3594E+00,0.3315E+00,0.3052E+00,0.2804E+00,0.2571E+00,
1562      +0.2351E+00,0.2145E+00,0.1950E+00,0.1768E+00,0.1598E+00,0.1438E+00,
1563      +0.1289E+00,0.1150E+00,0.1022E+00,0.9027E-01,0.7931E-01,0.6926E-01,
1564      +0.6008E-01,0.5175E-01,0.4423E-01,0.3748E-01,0.3146E-01,0.2613E-01,
1565      +0.2144E-01,0.1735E-01,0.1381E-01,0.1079E-01,0.8234E-02,0.6114E-02,
1566      +0.4394E-02,0.3038E-02,0.2007E-02,0.1258E-02,0.7430E-03,0.4105E-03,
1567      +0.2770E-03,0.1860E-03,0.1239E-03,0.8162E-04,0.5288E-04,0.3345E-04,
1568      +0.2046E-04,0.1194E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1569      +0.0000E+00,0.0000E+00/
1570       DATA (XQDUM (I,9,7),I=1,104) /
1571      +0.9930E+01,0.9430E+01,0.8952E+01,0.8497E+01,0.8063E+01,0.7649E+01,
1572      +0.7254E+01,0.6877E+01,0.6519E+01,0.6177E+01,0.5851E+01,0.5541E+01,
1573      +0.5245E+01,0.4964E+01,0.4696E+01,0.4441E+01,0.4199E+01,0.3968E+01,
1574      +0.3748E+01,0.3539E+01,0.3341E+01,0.3152E+01,0.2973E+01,0.2803E+01,
1575      +0.2641E+01,0.2487E+01,0.2341E+01,0.2203E+01,0.2071E+01,0.1946E+01,
1576      +0.1828E+01,0.1716E+01,0.1610E+01,0.1509E+01,0.1414E+01,0.1324E+01,
1577      +0.1239E+01,0.1158E+01,0.1082E+01,0.1010E+01,0.9414E+00,0.8771E+00,
1578      +0.8164E+00,0.7591E+00,0.7051E+00,0.6543E+00,0.6064E+00,0.5613E+00,
1579      +0.5189E+00,0.4791E+00,0.4417E+00,0.4067E+00,0.3738E+00,0.3430E+00,
1580      +0.3142E+00,0.2873E+00,0.2622E+00,0.2387E+00,0.2169E+00,0.1966E+00,
1581      +0.1777E+00,0.1603E+00,0.1441E+00,0.1292E+00,0.1154E+00,0.1027E+00,
1582      +0.9106E-01,0.8041E-01,0.7069E-01,0.6184E-01,0.5382E-01,0.4657E-01,
1583      +0.4005E-01,0.3421E-01,0.2901E-01,0.2440E-01,0.2034E-01,0.1678E-01,
1584      +0.1370E-01,0.1105E-01,0.8785E-02,0.6875E-02,0.5283E-02,0.3975E-02,
1585      +0.2918E-02,0.2081E-02,0.1434E-02,0.9483E-03,0.5962E-03,0.3521E-03,
1586      +0.2469E-03,0.1713E-03,0.1172E-03,0.7881E-04,0.5181E-04,0.3308E-04,
1587      +0.2035E-04,0.1191E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1588      +0.0000E+00,0.0000E+00/
1589       DATA (XQDUM (I,9,8),I=1,104) /
1590      +0.9575E+01,0.9089E+01,0.8625E+01,0.8183E+01,0.7761E+01,0.7360E+01,
1591      +0.6977E+01,0.6612E+01,0.6264E+01,0.5932E+01,0.5617E+01,0.5317E+01,
1592      +0.5031E+01,0.4758E+01,0.4499E+01,0.4253E+01,0.4018E+01,0.3795E+01,
1593      +0.3583E+01,0.3382E+01,0.3190E+01,0.3008E+01,0.2835E+01,0.2671E+01,
1594      +0.2515E+01,0.2368E+01,0.2227E+01,0.2094E+01,0.1968E+01,0.1848E+01,
1595      +0.1735E+01,0.1627E+01,0.1525E+01,0.1429E+01,0.1338E+01,0.1252E+01,
1596      +0.1170E+01,0.1093E+01,0.1020E+01,0.9512E+00,0.8863E+00,0.8250E+00,
1597      +0.7672E+00,0.7127E+00,0.6614E+00,0.6131E+00,0.5676E+00,0.5249E+00,
1598      +0.4848E+00,0.4471E+00,0.4117E+00,0.3786E+00,0.3476E+00,0.3185E+00,
1599      +0.2914E+00,0.2661E+00,0.2424E+00,0.2204E+00,0.2000E+00,0.1810E+00,
1600      +0.1633E+00,0.1470E+00,0.1319E+00,0.1180E+00,0.1052E+00,0.9345E-01,
1601      +0.8267E-01,0.7283E-01,0.6386E-01,0.5571E-01,0.4834E-01,0.4170E-01,
1602      +0.3574E-01,0.3043E-01,0.2570E-01,0.2153E-01,0.1787E-01,0.1468E-01,
1603      +0.1192E-01,0.9559E-02,0.7555E-02,0.5875E-02,0.4483E-02,0.3348E-02,
1604      +0.2438E-02,0.1724E-02,0.1177E-02,0.7702E-03,0.4790E-03,0.2794E-03,
1605      +0.1944E-03,0.1337E-03,0.9070E-04,0.6041E-04,0.3931E-04,0.2483E-04,
1606      +0.1508E-04,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1607      +0.0000E+00,0.0000E+00/
1608       DATA (XQDUM (I,9,9),I=1,104) /
1609      +0.6697E+01,0.6341E+01,0.6002E+01,0.5679E+01,0.5372E+01,0.5080E+01,
1610      +0.4802E+01,0.4538E+01,0.4287E+01,0.4049E+01,0.3822E+01,0.3607E+01,
1611      +0.3402E+01,0.3208E+01,0.3024E+01,0.2849E+01,0.2683E+01,0.2526E+01,
1612      +0.2377E+01,0.2236E+01,0.2102E+01,0.1975E+01,0.1855E+01,0.1741E+01,
1613      +0.1633E+01,0.1531E+01,0.1435E+01,0.1344E+01,0.1258E+01,0.1177E+01,
1614      +0.1100E+01,0.1028E+01,0.9592E+00,0.8947E+00,0.8340E+00,0.7767E+00,
1615      +0.7228E+00,0.6720E+00,0.6243E+00,0.5793E+00,0.5371E+00,0.4975E+00,
1616      +0.4603E+00,0.4254E+00,0.3927E+00,0.3620E+00,0.3334E+00,0.3065E+00,
1617      +0.2815E+00,0.2581E+00,0.2362E+00,0.2159E+00,0.1969E+00,0.1793E+00,
1618      +0.1629E+00,0.1478E+00,0.1337E+00,0.1207E+00,0.1087E+00,0.9759E-01,
1619      +0.8738E-01,0.7801E-01,0.6941E-01,0.6155E-01,0.5437E-01,0.4783E-01,
1620      +0.4190E-01,0.3653E-01,0.3169E-01,0.2734E-01,0.2344E-01,0.1997E-01,
1621      +0.1689E-01,0.1418E-01,0.1180E-01,0.9732E-02,0.7942E-02,0.6407E-02,
1622      +0.5103E-02,0.4007E-02,0.3095E-02,0.2348E-02,0.1744E-02,0.1265E-02,
1623      +0.8919E-03,0.6089E-03,0.3999E-03,0.2508E-03,0.1487E-03,0.8208E-04,
1624      +0.5500E-04,0.3638E-04,0.2366E-04,0.1507E-04,0.0000E+00,0.0000E+00,
1625      +0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,0.0000E+00,
1626      +0.0000E+00,0.0000E+00/
1627       DATA XMIN/5.E-05/,XMAX/.95/
1628       DATA ISTEP/0/
1629       IF(ISTEP.EQ.0) THEN
1630         DO 2 I=1,IX
1631           ENT(I)=LOG10(XCO(I))
1632     2   CONTINUE
1633         NENT(1)=IX
1634         NENT(2)=IQ
1635         DO 3 I=1,IQ
1636           ENT(IX+I)=LOG10(Q2(I))
1637     3   CONTINUE
1638         ISTEP=1
1639       ENDIF
1640       IF (STRFUN(1:2) .EQ. 'UP' ) THEN
1641       IFUN =1
1642       ELSE IF (STRFUN(1:2) .EQ. 'DO') THEN
1643       IFUN =2
1644       ELSE IF (STRFUN(1:2) .EQ. 'GL') THEN
1645       IFUN =3
1646       ELSE IF (STRFUN(1:2) .EQ. 'QB') THEN
1647       IFUN =4
1648       ELSE IF (STRFUN(1:2) .EQ. 'UB') THEN
1649       IFUN =5
1650       ELSE IF (STRFUN(1:2) .EQ. 'SB') THEN
1651       IFUN =6
1652       ELSE IF (STRFUN(1:2) .EQ. 'CB') THEN
1653       IFUN =7
1654       ELSE IF (STRFUN(1:2) .EQ. 'BB') THEN
1655       IFUN =8
1656       ELSE IF (STRFUN(1:2) .EQ. 'TB') THEN
1657       IFUN =9
1658       ENDIF
1659       FUNC=0.
1660 C     IF(X.GT.XMIN.AND.X.LT.XMAX) THEN
1661       IF(X.LT.XMAX) THEN
1662       ARG(1)=LOG10(X)
1663       ARG(2)=LOG10(QSTAR2)
1664       FUNC =FINT(NARG,ARG,NENT,ENT,XQDUM(1,1,IFUN))
1665       ENDIF
1666       IF (FUNC.LT.0.) FUNC=0.
1667       END