5 * Revision 1.1.1.2 1996/10/30 08:29:53 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:36 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE SFGSLO2(X,Q,U,D,US,DS,S,C,B,G)
15 *****************************************************************
16 * Subroutine returns the parton distributions in the photon in *
17 * leading order. u,d etc. gives *
18 * x times the distributions; Q2 means Q 2. The distributions*
19 * are valid for 5.0e -4< x < 1.0 and 5.3 GeV 2 < Q 2 < 1.0e 8. *
20 * if higher Q 2 or lower x is required, these may be obtained *
21 * from the authors on request. ISET=1 chooses a harder gluon *
23 * Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 *
24 *****************************************************************
26 #include "pdf/impdp.inc"
27 PARAMETER(NP=78,NQ=11,NARG=2)
28 #include "pdf/expdp.inc"
30 + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP),
31 + XT(NARG),A(NP+NQ),QT(NQ)
34 SAVE SIG,QNS,GL,Y,ICALL
35 DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5,
39 DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) /
40 + 0.1001201D+02, 0.2955027D-01, 0.4014422D+02,
41 + 0.1520649D+02, 0.3565433D-01, 0.1411348D+03,
42 + 0.2269219D+02, 0.4652600D-01, 0.2346022D+03,
43 + 0.3111953D+02, 0.5015592D-01, 0.3130608D+03,
44 + 0.5771281D+02, 0.6232776D-01, 0.5168353D+03,
45 + 0.7032112D+02, 0.6714210D-01, 0.6089606D+03,
46 + 0.1168419D+03, 0.8328690D-01, 0.9274825D+03,
47 + 0.1683443D+03, 0.9962358D-01, 0.1256198D+04,
48 + 0.2230113D+03, 0.1161127D+00, 0.1588646D+04,
49 + 0.2797452D+03, 0.1327265D+00, 0.1921691D+04,
50 + 0.3378567D+03, 0.1494446D+00, 0.2253792D+04/
51 DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) /
52 + 0.3454344D+01, 0.1859512D-01, 0.1329268D+02,
53 + 0.5322830D+01, 0.2254013D-01, 0.3691824D+02,
54 + 0.7867405D+01, 0.3080488D-01, 0.5637647D+02,
55 + 0.1057068D+02, 0.3310206D-01, 0.7157190D+02,
56 + 0.1864028D+02, 0.4156727D-01, 0.1080786D+03,
57 + 0.2228195D+02, 0.4484870D-01, 0.1236305D+03,
58 + 0.3509851D+02, 0.5585410D-01, 0.1743656D+03,
59 + 0.4852821D+02, 0.6698711D-01, 0.2233706D+03,
60 + 0.6221161D+02, 0.7821754D-01, 0.2706978D+03,
61 + 0.7597015D+02, 0.8952515D-01, 0.3165699D+03,
62 + 0.8971333D+02, 0.1008956D+00, 0.3612254D+03/
63 DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) /
64 + 0.2121281D+01, 0.1513978D-01, 0.7928871D+01,
65 + 0.3229393D+01, 0.1842273D-01, 0.1973442D+02,
66 + 0.4685472D+01, 0.2574320D-01, 0.2897214D+02,
67 + 0.6172252D+01, 0.2762416D-01, 0.3595784D+02,
68 + 0.1048352D+02, 0.3485581D-01, 0.5219241D+02,
69 + 0.1237995D+02, 0.3763255D-01, 0.5894186D+02,
70 + 0.1889984D+02, 0.4693942D-01, 0.8047654D+02,
71 + 0.2555286D+02, 0.5634555D-01, 0.1007941D+03,
72 + 0.3220530D+02, 0.6582623D-01, 0.1201395D+03,
73 + 0.3880233D+02, 0.7536519D-01, 0.1387318D+03,
74 + 0.4532360D+02, 0.8495111D-01, 0.1567431D+03/
75 DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) /
76 + 0.1543464D+01, 0.1326884D-01, 0.5632548D+01,
77 + 0.2316019D+01, 0.1619202D-01, 0.1304977D+02,
78 + 0.3307298D+01, 0.2295312D-01, 0.1866749D+02,
79 + 0.4288005D+01, 0.2460686D-01, 0.2282806D+02,
80 + 0.7077272D+01, 0.3113984D-01, 0.3229663D+02,
81 + 0.8282985D+01, 0.3363265D-01, 0.3617478D+02,
82 + 0.1236456D+02, 0.4198262D-01, 0.4838806D+02,
83 + 0.1645833D+02, 0.5041463D-01, 0.5976289D+02,
84 + 0.2050364D+02, 0.5890765D-01, 0.7051933D+02,
85 + 0.2448171D+02, 0.6744798D-01, 0.8082289D+02,
86 + 0.2839022D+02, 0.7602622D-01, 0.9079259D+02/
87 DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) /
88 + 0.1219433D+01, 0.1204527D-01, 0.4358105D+01,
89 + 0.1805245D+01, 0.1473045D-01, 0.9572778D+01,
90 + 0.2544387D+01, 0.2109975D-01, 0.1342878D+02,
91 + 0.3256197D+01, 0.2260316D-01, 0.1624080D+02,
92 + 0.5251921D+01, 0.2866164D-01, 0.2254296D+02,
93 + 0.6103218D+01, 0.3096262D-01, 0.2509699D+02,
94 + 0.8952094D+01, 0.3866571D-01, 0.3306903D+02,
95 + 0.1177368D+02, 0.4643894D-01, 0.4043243D+02,
96 + 0.1453848D+02, 0.5426396D-01, 0.4736932D+02,
97 + 0.1724163D+02, 0.6212893D-01, 0.5400590D+02,
98 + 0.1988677D+02, 0.7002579D-01, 0.6042843D+02/
99 DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) /
100 + 0.1011531D+01, 0.1116152D-01, 0.3547886D+01,
101 + 0.1479381D+01, 0.1367256D-01, 0.7468752D+01,
102 + 0.2062511D+01, 0.1974278D-01, 0.1031370D+02,
103 + 0.2610758D+01, 0.2113642D-01, 0.1236271D+02,
104 + 0.4130833D+01, 0.2684110D-01, 0.1690005D+02,
105 + 0.4772286D+01, 0.2899967D-01, 0.1872401D+02,
106 + 0.6899490D+01, 0.3622243D-01, 0.2438008D+02,
107 + 0.8985679D+01, 0.4350645D-01, 0.2957468D+02,
108 + 0.1101682D+02, 0.5083547D-01, 0.3445816D+02,
109 + 0.1299419D+02, 0.5819908D-01, 0.3912936D+02,
110 + 0.1492357D+02, 0.6559021D-01, 0.4365351D+02/
111 DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) /
112 + 0.8665296D+00, 0.1048272D-01, 0.2987500D+01,
113 + 0.1253585D+01, 0.1285820D-01, 0.6070546D+01,
114 + 0.1731670D+01, 0.1868786D-01, 0.8272797D+01,
115 + 0.2171419D+01, 0.1999625D-01, 0.9842484D+01,
116 + 0.3379709D+01, 0.2542164D-01, 0.1328421D+02,
117 + 0.3884986D+01, 0.2746820D-01, 0.1465882D+02,
118 + 0.5548106D+01, 0.3431315D-01, 0.1890005D+02,
119 + 0.7166167D+01, 0.4121241D-01, 0.2277959D+02,
120 + 0.8733556D+01, 0.4815142D-01, 0.2642291D+02,
121 + 0.1025445D+02, 0.5512090D-01, 0.2990938D+02,
122 + 0.1173527D+02, 0.6211456D-01, 0.3328994D+02/
123 DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) /
124 + 0.7594660D+00, 0.9938753D-02, 0.2576934D+01,
125 + 0.1087976D+01, 0.1220429D-01, 0.5080088D+01,
126 + 0.1491041D+01, 0.1783343D-01, 0.6844357D+01,
127 + 0.1854323D+01, 0.1907289D-01, 0.8090606D+01,
128 + 0.2845068D+01, 0.2426914D-01, 0.1080037D+02,
129 + 0.3256133D+01, 0.2622410D-01, 0.1187689D+02,
130 + 0.4600628D+01, 0.3276007D-01, 0.1518524D+02,
131 + 0.5899998D+01, 0.3934474D-01, 0.1820276D+02,
132 + 0.7153488D+01, 0.4596494D-01, 0.2103550D+02,
133 + 0.8366651D+01, 0.5261231D-01, 0.2374855D+02,
134 + 0.9545962D+01, 0.5928123D-01, 0.2638268D+02/
135 DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) /
136 + 0.6770721D+00, 0.9489263D-02, 0.2263260D+01,
137 + 0.9613553D+00, 0.1166290D-01, 0.4345114D+01,
138 + 0.1308470D+01, 0.1712059D-01, 0.5795414D+01,
139 + 0.1615381D+01, 0.1830263D-01, 0.6811776D+01,
140 + 0.2447169D+01, 0.2330556D-01, 0.9005742D+01,
141 + 0.2789900D+01, 0.2518346D-01, 0.9873459D+01,
142 + 0.3904803D+01, 0.3145953D-01, 0.1253167D+02,
143 + 0.4976195D+01, 0.3777964D-01, 0.1495128D+02,
144 + 0.6006228D+01, 0.4413179D-01, 0.1722302D+02,
145 + 0.7001065D+01, 0.5050841D-01, 0.1940113D+02,
146 + 0.7966968D+01, 0.5690443D-01, 0.2151895D+02/
147 DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) /
148 + 0.6116338D+00, 0.9109087D-02, 0.2015847D+01,
149 + 0.8614222D+00, 0.1120419D-01, 0.3780118D+01,
150 + 0.1165383D+01, 0.1651245D-01, 0.4996497D+01,
151 + 0.1429281D+01, 0.1764553D-01, 0.5842898D+01,
152 + 0.2140716D+01, 0.2248192D-01, 0.7658350D+01,
153 + 0.2432047D+01, 0.2429359D-01, 0.8373641D+01,
154 + 0.3375248D+01, 0.3034633D-01, 0.1055928D+02,
155 + 0.4277221D+01, 0.3643916D-01, 0.1254599D+02,
156 + 0.5141894D+01, 0.4256109D-01, 0.1441219D+02,
157 + 0.5975632D+01, 0.4870525D-01, 0.1620376D+02,
158 + 0.6784374D+01, 0.5486701D-01, 0.1794838D+02/
159 DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) /
160 + 0.4059278D+00, 0.7720371D-02, 0.1252160D+01,
161 + 0.5524353D+00, 0.9520617D-02, 0.2138338D+01,
162 + 0.7304612D+00, 0.1424226D-01, 0.2725357D+01,
163 + 0.8721845D+00, 0.1519313D-01, 0.3122568D+01,
164 + 0.1247831D+01, 0.1939320D-01, 0.3954914D+01,
165 + 0.1397945D+01, 0.2095338D-01, 0.4278952D+01,
166 + 0.1875680D+01, 0.2615850D-01, 0.5262935D+01,
167 + 0.2324999D+01, 0.3138939D-01, 0.6157547D+01,
168 + 0.2752009D+01, 0.3663897D-01, 0.7003358D+01,
169 + 0.3162024D+01, 0.4190285D-01, 0.7822107D+01,
170 + 0.3559128D+01, 0.4717811D-01, 0.8625999D+01/
171 DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) /
172 + 0.3138786D+00, 0.6961782D-02, 0.9201018D+00,
173 + 0.4175822D+00, 0.8594582D-02, 0.1478793D+01,
174 + 0.5450424D+00, 0.1296489D-01, 0.1839103D+01,
175 + 0.6396218D+00, 0.1381361D-01, 0.2078171D+01,
176 + 0.8886108D+00, 0.1764489D-01, 0.2571802D+01,
177 + 0.9865214D+00, 0.1906050D-01, 0.2762852D+01,
178 + 0.1295061D+01, 0.2377881D-01, 0.3342346D+01,
179 + 0.1582732D+01, 0.2851540D-01, 0.3871711D+01,
180 + 0.1855141D+01, 0.3326538D-01, 0.4376209D+01,
181 + 0.2116481D+01, 0.3802572D-01, 0.4868533D+01,
182 + 0.2369736D+01, 0.4279440D-01, 0.5355356D+01/
183 DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) /
184 + 0.2570156D+00, 0.6424484D-02, 0.7196354D+00,
185 + 0.3357928D+00, 0.7935347D-02, 0.1101251D+01,
186 + 0.4343536D+00, 0.1204144D-01, 0.1341759D+01,
187 + 0.5027834D+00, 0.1281637D-01, 0.1498570D+01,
188 + 0.6825307D+00, 0.1637578D-01, 0.1818445D+01,
189 + 0.7522866D+00, 0.1768538D-01, 0.1941829D+01,
190 + 0.9705584D+00, 0.2204705D-01, 0.2316552D+01,
191 + 0.1172936D+01, 0.2642202D-01, 0.2661374D+01,
192 + 0.1364290D+01, 0.3080692D-01, 0.2993047D+01,
193 + 0.1547962D+01, 0.3519968D-01, 0.3319452D+01,
194 + 0.1726212D+01, 0.3959887D-01, 0.3644363D+01/
195 DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) /
196 + 0.2187037D+00, 0.6016589D-02, 0.5875905D+00,
197 + 0.2816192D+00, 0.7432679D-02, 0.8646647D+00,
198 + 0.3620820D+00, 0.1132833D-01, 0.1036109D+01,
199 + 0.4146359D+00, 0.1204625D-01, 0.1146303D+01,
200 + 0.5529318D+00, 0.1539231D-01, 0.1369183D+01,
201 + 0.6060635D+00, 0.1661907D-01, 0.1455123D+01,
202 + 0.7716201D+00, 0.2070237D-01, 0.1717133D+01,
203 + 0.9247498D+00, 0.2479544D-01, 0.1960536D+01,
204 + 0.1069604D+01, 0.2889609D-01, 0.2196948D+01,
205 + 0.1208881D+01, 0.3300291D-01, 0.2431482D+01,
206 + 0.1344335D+01, 0.3711492D-01, 0.2666339D+01/
207 DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) /
208 + 0.1910339D+00, 0.5691203D-02, 0.4941807D+00,
209 + 0.2430614D+00, 0.7030179D-02, 0.7040123D+00,
210 + 0.3112376D+00, 0.1075136D-01, 0.8318765D+00,
211 + 0.3533130D+00, 0.1142309D-01, 0.9130735D+00,
212 + 0.4645427D+00, 0.1459422D-01, 0.1076339D+01,
213 + 0.5069412D+00, 0.1575330D-01, 0.1139405D+01,
214 + 0.6387553D+00, 0.1960939D-01, 0.1332763D+01,
215 + 0.7606292D+00, 0.2347269D-01, 0.1514336D+01,
216 + 0.8761060D+00, 0.2734189D-01, 0.1692424D+01,
217 + 0.9873938D+00, 0.3121611D-01, 0.1870447D+01,
218 + 0.1095889D+01, 0.3509468D-01, 0.2049772D+01/
219 DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) /
220 + 0.1699968D+00, 0.5422205D-02, 0.4244849D+00,
221 + 0.2141108D+00, 0.6696302D-02, 0.5880855D+00,
222 + 0.2734098D+00, 0.1026865D-01, 0.6864454D+00,
223 + 0.3081069D+00, 0.1090162D-01, 0.7482291D+00,
224 + 0.4004274D+00, 0.1392474D-01, 0.8719418D+00,
225 + 0.4353949D+00, 0.1502672D-01, 0.9198927D+00,
226 + 0.5439979D+00, 0.1869130D-01, 0.1067925D+01,
227 + 0.6445016D+00, 0.2236121D-01, 0.1208568D+01,
228 + 0.7399485D+00, 0.2603582D-01, 0.1347858D+01,
229 + 0.8321728D+00, 0.2971465D-01, 0.1488103D+01,
230 + 0.9223059D+00, 0.3339726D-01, 0.1630155D+01/
231 DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) /
232 + 0.1534201D+00, 0.5194013D-02, 0.3705261D+00,
233 + 0.1915611D+00, 0.6412141D-02, 0.5009002D+00,
234 + 0.2441567D+00, 0.9854891D-02, 0.5783718D+00,
235 + 0.2734244D+00, 0.1045455D-01, 0.6265323D+00,
236 + 0.3519204D+00, 0.1334956D-01, 0.7226887D+00,
237 + 0.3814976D+00, 0.1440224D-01, 0.7601378D+00,
238 + 0.4733550D+00, 0.1790164D-01, 0.8766831D+00,
239 + 0.5585145D+00, 0.2140495D-01, 0.9887897D+00,
240 + 0.6396077D+00, 0.2491211D-01, 0.1100889D+01,
241 + 0.7181760D+00, 0.2842295D-01, 0.1214539D+01,
242 + 0.7951503D+00, 0.3193720D-01, 0.1330315D+01/
243 DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) /
244 + 0.1399899D+00, 0.4996552D-02, 0.3275291D+00,
245 + 0.1731927D+00, 0.6167692D-02, 0.4340010D+00,
246 + 0.2207540D+00, 0.9494216D-02, 0.4954290D+00,
247 + 0.2459049D+00, 0.1006453D-01, 0.5336054D+00,
248 + 0.3139559D+00, 0.1284644D-01, 0.6097657D+00,
249 + 0.3394857D+00, 0.1385573D-01, 0.6396229D+00,
250 + 0.4188169D+00, 0.1720995D-01, 0.7334046D+00,
251 + 0.4925338D+00, 0.2056710D-01, 0.8247958D+00,
252 + 0.5629318D+00, 0.2392755D-01, 0.9170436D+00,
253 + 0.6313219D+00, 0.2729132D-01, 0.1011140D+01,
254 + 0.6984795D+00, 0.3065829D-01, 0.1107299D+01/
255 DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) /
256 + 0.1288726D+00, 0.4823027D-02, 0.2924954D+00,
257 + 0.1582516D+00, 0.5951372D-02, 0.3803488D+00,
258 + 0.2017119D+00, 0.9174189D-02, 0.4299174D+00,
259 + 0.2236416D+00, 0.9718425D-02, 0.4606436D+00,
260 + 0.2835536D+00, 0.1239938D-01, 0.5219588D+00,
261 + 0.3059492D+00, 0.1336999D-01, 0.5461822D+00,
262 + 0.3756168D+00, 0.1659500D-01, 0.6230339D+00,
263 + 0.4405324D+00, 0.1982223D-01, 0.6989289D+00,
264 + 0.5027102D+00, 0.2305239D-01, 0.7762398D+00,
265 + 0.5632748D+00, 0.2628567D-01, 0.8555841D+00,
266 + 0.6228783D+00, 0.2952202D-01, 0.9370841D+00/
267 DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) /
268 + 0.1195067D+00, 0.4668611D-02, 0.2634232D+00,
269 + 0.1459540D+00, 0.5757013D-02, 0.3361955D+00,
270 + 0.1859438D+00, 0.8886667D-02, 0.3770460D+00,
271 + 0.2052912D+00, 0.9407497D-02, 0.4021068D+00,
272 + 0.2587058D+00, 0.1199735D-01, 0.4521596D+00,
273 + 0.2786141D+00, 0.1293315D-01, 0.4721025D+00,
274 + 0.3406394D+00, 0.1604188D-01, 0.5360476D+00,
275 + 0.3986129D+00, 0.1915233D-01, 0.6000513D+00,
276 + 0.4543102D+00, 0.2226547D-01, 0.6658290D+00,
277 + 0.5087024D+00, 0.2538162D-01, 0.7337234D+00,
278 + 0.5623424D+00, 0.2850081D-01, 0.8037858D+00/
279 DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) /
280 + 0.1115000D+00, 0.4529753D-02, 0.2389279D+00,
281 + 0.1354715D+00, 0.5582175D-02, 0.2998531D+00,
282 + 0.1726061D+00, 0.8626354D-02, 0.3337488D+00,
283 + 0.1898548D+00, 0.9125881D-02, 0.3543789D+00,
284 + 0.2379985D+00, 0.1163264D-01, 0.3956722D+00,
285 + 0.2558984D+00, 0.1253674D-01, 0.4122870D+00,
286 + 0.3117678D+00, 0.1553977D-01, 0.4661722D+00,
287 + 0.3641574D+00, 0.1854419D-01, 0.5208510D+00,
288 + 0.4146409D+00, 0.2155121D-01, 0.5775262D+00,
289 + 0.4640623D+00, 0.2456123D-01, 0.6362971D+00,
290 + 0.5128937D+00, 0.2757431D-01, 0.6969613D+00/
291 DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) /
292 + 0.1045704D+00, 0.4403776D-02, 0.2180216D+00,
293 + 0.1264625D+00, 0.5423210D-02, 0.2693866D+00,
294 + 0.1611852D+00, 0.8388596D-02, 0.2977345D+00,
295 + 0.1766999D+00, 0.8868589D-02, 0.3148528D+00,
296 + 0.2204938D+00, 0.1129899D-01, 0.3492297D+00,
297 + 0.2367438D+00, 0.1217403D-01, 0.3632144D+00,
298 + 0.2875661D+00, 0.1508022D-01, 0.4091231D+00,
299 + 0.3353824D+00, 0.1798767D-01, 0.4563585D+00,
300 + 0.3815939D+00, 0.2089771D-01, 0.5057280D+00,
301 + 0.4269380D+00, 0.2381081D-01, 0.5571908D+00,
302 + 0.4718204D+00, 0.2672705D-01, 0.6105771D+00/
303 DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) /
304 + 0.9850968D-01, 0.4288634D-02, 0.1999812D+00,
305 + 0.1186304D+00, 0.5277643D-02, 0.2435429D+00,
306 + 0.1512908D+00, 0.8169893D-02, 0.2673986D+00,
307 + 0.1653534D+00, 0.8631858D-02, 0.2816943D+00,
308 + 0.2055072D+00, 0.1099163D-01, 0.3105319D+00,
309 + 0.2203819D+00, 0.1183982D-01, 0.3224077D+00,
310 + 0.2670045D+00, 0.1465673D-01, 0.3618959D+00,
311 + 0.3110175D+00, 0.1747486D-01, 0.4030974D+00,
312 + 0.3536738D+00, 0.2029568D-01, 0.4465096D+00,
313 + 0.3956206D+00, 0.2311969D-01, 0.4919991D+00,
314 + 0.4372080D+00, 0.2594695D-01, 0.5394946D+00/
315 DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) /
316 + 0.9316059D-01, 0.4182739D-02, 0.1842643D+00,
317 + 0.1117564D+00, 0.5143512D-02, 0.2213859D+00,
318 + 0.1426326D+00, 0.7967487D-02, 0.2415615D+00,
319 + 0.1554647D+00, 0.8412716D-02, 0.2535626D+00,
320 + 0.1925343D+00, 0.1070676D-01, 0.2779095D+00,
321 + 0.2062482D+00, 0.1153004D-01, 0.2880726D+00,
322 + 0.2493299D+00, 0.1426414D-01, 0.3223246D+00,
323 + 0.2901372D+00, 0.1699957D-01, 0.3585681D+00,
324 + 0.3297940D+00, 0.1973785D-01, 0.3970448D+00,
325 + 0.3688706D+00, 0.2247949D-01, 0.4374617D+00,
326 + 0.4076700D+00, 0.2522453D-01, 0.4793542D+00/
327 DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) /
328 + 0.8840203D-01, 0.4084798D-02, 0.1704574D+00,
329 + 0.1056724D+00, 0.5019246D-02, 0.2022156D+00,
330 + 0.1349903D+00, 0.7779162D-02, 0.2193450D+00,
331 + 0.1467682D+00, 0.8208777D-02, 0.2294611D+00,
332 + 0.1811965D+00, 0.1044138D-01, 0.2501289D+00,
333 + 0.1939192D+00, 0.1124141D-01, 0.2588857D+00,
334 + 0.2339811D+00, 0.1389834D-01, 0.2888182D+00,
335 + 0.2720542D+00, 0.1655680D-01, 0.3209401D+00,
336 + 0.3091497D+00, 0.1921835D-01, 0.3552901D+00,
337 + 0.3457722D+00, 0.2188346D-01, 0.3914645D+00,
338 + 0.3821843D+00, 0.2455215D-01, 0.4287555D+00/
339 DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) /
340 + 0.8413926D-01, 0.3993766D-02, 0.1582394D+00,
341 + 0.1002512D+00, 0.4903506D-02, 0.1854837D+00,
342 + 0.1281925D+00, 0.7603098D-02, 0.2000798D+00,
343 + 0.1390593D+00, 0.8018091D-02, 0.2086339D+00,
344 + 0.1712030D+00, 0.1019300D-01, 0.2262595D+00,
345 + 0.1830711D+00, 0.1097125D-01, 0.2338503D+00,
346 + 0.2205311D+00, 0.1355597D-01, 0.2601833D+00,
347 + 0.2562476D+00, 0.1614251D-01, 0.2888437D+00,
348 + 0.2911329D+00, 0.1873241D-01, 0.3197191D+00,
349 + 0.3256345D+00, 0.2132612D-01, 0.3524311D+00,
350 + 0.3599817D+00, 0.2392361D-01, 0.3866583D+00/
351 DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) /
352 + 0.8029707D-01, 0.3908799D-02, 0.1473567D+00,
353 + 0.9537854D-01, 0.4795466D-02, 0.1708152D+00,
354 + 0.1220997D+00, 0.7437878D-02, 0.1832541D+00,
355 + 0.1321744D+00, 0.7839115D-02, 0.1905007D+00,
356 + 0.1623256D+00, 0.9959630D-02, 0.2055876D+00,
357 + 0.1734507D+00, 0.1071739D-01, 0.2122029D+00,
358 + 0.2086491D+00, 0.1323427D-01, 0.2355091D+00,
359 + 0.2423157D+00, 0.1575333D-01, 0.2612353D+00,
360 + 0.2752756D+00, 0.1827610D-01, 0.2891524D+00,
361 + 0.3079269D+00, 0.2080293D-01, 0.3189559D+00,
362 + 0.3404705D+00, 0.2333377D-01, 0.3509009D+00/
363 DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) /
364 + 0.7681481D-01, 0.3829185D-02, 0.1376068D+00,
365 + 0.9094260D-01, 0.4694826D-02, 0.1579894D+00,
366 + 0.1165959D+00, 0.7282431D-02, 0.1684734D+00,
367 + 0.1259785D+00, 0.7670647D-02, 0.1746107D+00,
368 + 0.1543817D+00, 0.9739644D-02, 0.1875565D+00,
369 + 0.1648563D+00, 0.1047805D-01, 0.1933487D+00,
370 + 0.1980744D+00, 0.1293096D-01, 0.2140889D+00,
371 + 0.2299434D+00, 0.1538651D-01, 0.2373064D+00,
372 + 0.2612120D+00, 0.1784613D-01, 0.2626651D+00,
373 + 0.2922347D+00, 0.2031013D-01, 0.2898076D+00,
374 + 0.3231866D+00, 0.2277836D-01, 0.3188580D+00/
375 DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) /
376 + 0.6563249D-01, 0.3553842D-02, 0.1071211D+00,
377 + 0.7687253D-01, 0.4344396D-02, 0.1188363D+00,
378 + 0.9913771D-01, 0.6737095D-02, 0.1240514D+00,
379 + 0.1064470D+00, 0.7079776D-02, 0.1272095D+00,
380 + 0.1295831D+00, 0.8966957D-02, 0.1344169D+00,
381 + 0.1381085D+00, 0.9637479D-02, 0.1379772D+00,
382 + 0.1653914D+00, 0.1186663D-01, 0.1516436D+00,
383 + 0.1918587D+00, 0.1410071D-01, 0.1677900D+00,
384 + 0.2180257D+00, 0.1634065D-01, 0.1858221D+00,
385 + 0.2441185D+00, 0.1858630D-01, 0.2052059D+00,
386 + 0.2702366D+00, 0.2083721D-01, 0.2253880D+00/
387 DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) /
388 + 0.5745195D-01, 0.3329610D-02, 0.8571566D-01,
389 + 0.6691286D-01, 0.4053258D-02, 0.9162973D-01,
390 + 0.8659933D-01, 0.6281751D-02, 0.9449410D-01,
391 + 0.9251953D-01, 0.6587201D-02, 0.9606259D-01,
392 + 0.1120911D+00, 0.8322260D-02, 0.1001608D+00,
393 + 0.1193075D+00, 0.8936588D-02, 0.1024678D+00,
394 + 0.1426012D+00, 0.1098131D-01, 0.1120144D+00,
395 + 0.1654209D+00, 0.1303371D-01, 0.1238726D+00,
396 + 0.1881228D+00, 0.1509395D-01, 0.1373875D+00,
397 + 0.2108504D+00, 0.1716134D-01, 0.1522449D+00,
398 + 0.2336608D+00, 0.1923504D-01, 0.1690019D+00/
399 DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) /
400 + 0.5121423D-01, 0.3141632D-02, 0.7002328D-01,
401 + 0.5929283D-01, 0.3810202D-02, 0.7278127D-01,
402 + 0.7706797D-01, 0.5892148D-02, 0.7402337D-01,
403 + 0.8202420D-01, 0.6166357D-02, 0.7467312D-01,
404 + 0.9905594D-01, 0.7770454D-02, 0.7697902D-01,
405 + 0.1053459D+00, 0.8337058D-02, 0.7854215D-01,
406 + 0.1258043D+00, 0.1022598D-01, 0.8555079D-01,
407 + 0.1460121D+00, 0.1212572D-01, 0.9465327D-01,
408 + 0.1662154D+00, 0.1403543D-01, 0.1051685D+00,
409 + 0.1865021D+00, 0.1595377D-01, 0.1167079D+00,
410 + 0.2068994D+00, 0.1787944D-01, 0.1293049D+00/
411 DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) /
412 + 0.4627884D-01, 0.2980345D-02, 0.5804462D-01,
413 + 0.5329282D-01, 0.3601038D-02, 0.5887774D-01,
414 + 0.6952907D-01, 0.5550300D-02, 0.5908614D-01,
415 + 0.7377469D-01, 0.5798186D-02, 0.5918727D-01,
416 + 0.8887936D-01, 0.7287629D-02, 0.6040659D-01,
417 + 0.9447064D-01, 0.7813082D-02, 0.6149783D-01,
418 + 0.1127827D+00, 0.9568307D-02, 0.6682454D-01,
419 + 0.1309997D+00, 0.1133764D-01, 0.7402402D-01,
420 + 0.1492878D+00, 0.1311908D-01, 0.8242603D-01,
421 + 0.1676954D+00, 0.1491057D-01, 0.9160433D-01,
422 + 0.1862289D+00, 0.1671035D-01, 0.1012248D+00/
423 DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) /
424 + 0.4228387D-01, 0.2839738D-02, 0.4868885D-01,
425 + 0.4847489D-01, 0.3417714D-02, 0.4828291D-01,
426 + 0.6341530D-01, 0.5245120D-02, 0.4790069D-01,
427 + 0.6712223D-01, 0.5470888D-02, 0.4768746D-01,
428 + 0.8071581D-01, 0.6858821D-02, 0.4826157D-01,
429 + 0.8576344D-01, 0.7348466D-02, 0.4905161D-01,
430 + 0.1023992D+00, 0.8987869D-02, 0.5324048D-01,
431 + 0.1190524D+00, 0.1064470D-01, 0.5909014D-01,
432 + 0.1358284D+00, 0.1231569D-01, 0.6596951D-01,
433 + 0.1527466D+00, 0.1399804D-01, 0.7350542D-01,
434 + 0.1697994D+00, 0.1568951D-01, 0.8145751D-01/
435 DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) /
436 + 0.3898201D-01, 0.2715516D-02, 0.4122074D-01,
437 + 0.4451036D-01, 0.3255044D-02, 0.4002824D-01,
438 + 0.5833130D-01, 0.4968902D-02, 0.3930819D-01,
439 + 0.6162013D-01, 0.5176222D-02, 0.3891877D-01,
440 + 0.7399134D-01, 0.6473489D-02, 0.3910787D-01,
441 + 0.7860309D-01, 0.6931774D-02, 0.3969960D-01,
442 + 0.9389021D-01, 0.8470166D-02, 0.4308815D-01,
443 + 0.1092782D+00, 0.1002922D-01, 0.4794264D-01,
444 + 0.1248253D+00, 0.1160436D-01, 0.5367902D-01,
445 + 0.1405293D+00, 0.1319202D-01, 0.5997478D-01,
446 + 0.1563720D+00, 0.1478951D-01, 0.6667523D-01/
447 DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) /
448 + 0.3620467D-01, 0.2604545D-02, 0.3515068D-01,
449 + 0.4118562D-01, 0.3109293D-02, 0.3347064D-01,
450 + 0.5401587D-01, 0.4716059D-02, 0.3256553D-01,
451 + 0.5697474D-01, 0.4908211D-02, 0.3208403D-01,
452 + 0.6833256D-01, 0.6123980D-02, 0.3204709D-01,
453 + 0.7258683D-01, 0.6554697D-02, 0.3250517D-01,
454 + 0.8676436D-01, 0.8004632D-02, 0.3531221D-01,
455 + 0.1011063D+00, 0.9478311D-02, 0.3940955D-01,
456 + 0.1156335D+00, 0.1096981D-01, 0.4426129D-01,
457 + 0.1303267D+00, 0.1247482D-01, 0.4958064D-01,
458 + 0.1451598D+00, 0.1399024D-01, 0.5523203D-01/
459 DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) /
460 + 0.3383804D-01, 0.2504547D-02, 0.3015674D-01,
461 + 0.3835829D-01, 0.2977869D-02, 0.2820794D-01,
462 + 0.5029646D-01, 0.4482603D-02, 0.2720574D-01,
463 + 0.5299354D-01, 0.4662583D-02, 0.2668533D-01,
464 + 0.6349794D-01, 0.5804804D-02, 0.2652439D-01,
465 + 0.6745509D-01, 0.6211264D-02, 0.2689187D-01,
466 + 0.8070773D-01, 0.7583632D-02, 0.2926830D-01,
467 + 0.9417375D-01, 0.8982609D-02, 0.3277807D-01,
468 + 0.1078435D+00, 0.1040093D-01, 0.3693279D-01,
469 + 0.1216845D+00, 0.1183356D-01, 0.4147453D-01,
470 + 0.1356646D+00, 0.1327699D-01, 0.4626441D-01/
471 DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) /
472 + 0.3179372D-01, 0.2413689D-02, 0.2599155D-01,
473 + 0.3591975D-01, 0.2858401D-02, 0.2391202D-01,
474 + 0.4704078D-01, 0.4265274D-02, 0.2287115D-01,
475 + 0.4952917D-01, 0.4435867D-02, 0.2234399D-01,
476 + 0.5930292D-01, 0.5511552D-02, 0.2212101D-01,
477 + 0.6300963D-01, 0.5896684D-02, 0.2242528D-01,
478 + 0.7548074D-01, 0.7201047D-02, 0.2447195D-01,
479 + 0.8820342D-01, 0.8534602D-02, 0.2751278D-01,
480 + 0.1011429D+00, 0.9888763D-02, 0.3110564D-01,
481 + 0.1142560D+00, 0.1125784D-01, 0.3502572D-01,
482 + 0.1275058D+00, 0.1263796D-01, 0.3916763D-01/
483 DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) /
484 + 0.3001005D-01, 0.2330582D-02, 0.2248794D-01,
485 + 0.3379539D-01, 0.2749075D-02, 0.2036682D-01,
486 + 0.4415900D-01, 0.4061637D-02, 0.1933175D-01,
487 + 0.4648239D-01, 0.4225478D-02, 0.1881904D-01,
488 + 0.5562508D-01, 0.5240939D-02, 0.1857500D-01,
489 + 0.5911952D-01, 0.5607385D-02, 0.1883509D-01,
490 + 0.7092657D-01, 0.6852289D-02, 0.2062499D-01,
491 + 0.8301479D-01, 0.8128628D-02, 0.2328576D-01,
492 + 0.9532842D-01, 0.9426562D-02, 0.2641913D-01,
493 + 0.1078157D+00, 0.1073979D-01, 0.2983252D-01,
494 + 0.1204362D+00, 0.1206413D-01, 0.3346303D-01/
495 DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) /
496 + 0.2843806D-01, 0.2254077D-02, 0.1951482D-01,
497 + 0.3192511D-01, 0.2648428D-02, 0.1740943D-01,
498 + 0.4158013D-01, 0.3869728D-02, 0.1641025D-01,
499 + 0.4377509D-01, 0.4029322D-02, 0.1592473D-01,
500 + 0.5236858D-01, 0.4990304D-02, 0.1568488D-01,
501 + 0.5568235D-01, 0.5340468D-02, 0.1591352D-01,
502 + 0.6692266D-01, 0.6533609D-02, 0.1749867D-01,
503 + 0.7846669D-01, 0.7760040D-02, 0.1984530D-01,
504 + 0.9024108D-01, 0.9008754D-02, 0.2258858D-01,
505 + 0.1021872D+00, 0.1027291D-01, 0.2549587D-01,
506 + 0.1142619D+00, 0.1154809D-01, 0.2818174D-01/
507 DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) /
508 + 0.2704053D-01, 0.2183239D-02, 0.1697489D-01,
509 + 0.3026434D-01, 0.2555356D-02, 0.1492445D-01,
510 + 0.3925138D-01, 0.3688008D-02, 0.1397970D-01,
511 + 0.4134945D-01, 0.3845756D-02, 0.1352881D-01,
512 + 0.4946303D-01, 0.4757546D-02, 0.1330879D-01,
513 + 0.5262306D-01, 0.5093637D-02, 0.1351477D-01,
514 + 0.6337953D-01, 0.6242013D-02, 0.1493358D-01,
515 + 0.7445616D-01, 0.7425105D-02, 0.1701697D-01,
516 + 0.8576484D-01, 0.8630844D-02, 0.1942778D-01,
517 + 0.9724151D-01, 0.9851943D-02, 0.2186552D-01,
518 + 0.1088413D+00, 0.1108379D-01, 0.2348862D-01/
519 DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) /
520 + 0.2578785D-01, 0.2117286D-02, 0.1479218D-01,
521 + 0.2877853D-01, 0.2469047D-02, 0.1282719D-01,
522 + 0.3713135D-01, 0.3515226D-02, 0.1194340D-01,
523 + 0.3916036D-01, 0.3673445D-02, 0.1153078D-01,
524 + 0.4685373D-01, 0.4540949D-02, 0.1133954D-01,
525 + 0.4988335D-01, 0.4865013D-02, 0.1152888D-01,
526 + 0.6022774D-01, 0.5975035D-02, 0.1280998D-01,
527 + 0.7090319D-01, 0.7120723D-02, 0.1467053D-01,
528 + 0.8180943D-01, 0.8289086D-02, 0.1681260D-01,
529 + 0.9287832D-01, 0.9472484D-02, 0.1900096D-01,
530 + 0.1040640D+00, 0.1066619D-01, 0.2064494D-01/
531 DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) /
532 + 0.2465618D-01, 0.2055547D-02, 0.1290668D-01,
533 + 0.2743951D-01, 0.2388675D-02, 0.1104679D-01,
534 + 0.3518725D-01, 0.3350326D-02, 0.1022679D-01,
535 + 0.3717219D-01, 0.3511281D-02, 0.9853658D-02,
536 + 0.4449776D-01, 0.4339101D-02, 0.9695612D-02,
537 + 0.4741756D-01, 0.4653046D-02, 0.9872415D-02,
538 + 0.5741283D-01, 0.5730621D-02, 0.1103732D-01,
539 + 0.6774493D-01, 0.6844297D-02, 0.1270672D-01,
540 + 0.7830371D-01, 0.7980321D-02, 0.1462546D-01,
541 + 0.8901825D-01, 0.9130811D-02, 0.1668201D-01,
542 + 0.9984238D-01, 0.1029099D-01, 0.1885162D-01/
543 DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) /
544 + 0.2362634D-01, 0.1997450D-02, 0.1127128D-01,
545 + 0.2622453D-01, 0.2313475D-02, 0.9525941D-02,
546 + 0.3339260D-01, 0.3192334D-02, 0.8772832D-02,
547 + 0.3535685D-01, 0.3358322D-02, 0.8439009D-02,
548 + 0.4236139D-01, 0.4150798D-02, 0.8315660D-02,
549 + 0.4518986D-01, 0.4456430D-02, 0.8482671D-02,
550 + 0.5489224D-01, 0.5507054D-02, 0.9547867D-02,
551 + 0.6493216D-01, 0.6593647D-02, 0.1105093D-01,
552 + 0.7519187D-01, 0.7701883D-02, 0.1276636D-01,
553 + 0.8559880D-01, 0.8823764D-02, 0.1460784D-01,
554 + 0.9610710D-01, 0.9954551D-02, 0.1661072D-01/
555 DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) /
556 + 0.2268229D-01, 0.1942486D-02, 0.9847256D-02,
557 + 0.2511509D-01, 0.2242865D-02, 0.8221282D-02,
558 + 0.3172649D-01, 0.3040579D-02, 0.7535245D-02,
559 + 0.3369107D-01, 0.3213744D-02, 0.7239509D-02,
560 + 0.4041762D-01, 0.3975134D-02, 0.7150450D-02,
561 + 0.4317148D-01, 0.4274152D-02, 0.7309487D-02,
562 + 0.5263137D-01, 0.5302921D-02, 0.8287676D-02,
563 + 0.6242453D-01, 0.6366920D-02, 0.9644739D-02,
564 + 0.7242784D-01, 0.7451470D-02, 0.1117904D-01,
565 + 0.8256826D-01, 0.8548595D-02, 0.1279818D-01,
566 + 0.9280089D-01, 0.9653678D-02, 0.1444188D-01/
567 DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) /
568 + 0.2181083D-01, 0.1890208D-02, 0.8603617D-02,
569 + 0.2409598D-01, 0.2176319D-02, 0.7098314D-02,
570 + 0.3016901D-01, 0.2893986D-02, 0.6477884D-02,
571 + 0.3215592D-01, 0.3076816D-02, 0.6218434D-02,
572 + 0.3864314D-01, 0.3811049D-02, 0.6162152D-02,
573 + 0.4133797D-01, 0.4105114D-02, 0.6314414D-02,
574 + 0.5060175D-01, 0.5116893D-02, 0.7215611D-02,
575 + 0.6018922D-01, 0.6162467D-02, 0.8443634D-02,
576 + 0.6997426D-01, 0.7227070D-02, 0.9820351D-02,
577 + 0.7988465D-01, 0.8302910D-02, 0.1126450D-01,
578 + 0.8987716D-01, 0.9385592D-02, 0.1271716D-01/
579 DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) /
580 + 0.2100072D-01, 0.1840209D-02, 0.7514582D-02,
581 + 0.2315380D-01, 0.2113305D-02, 0.6127400D-02,
582 + 0.2870188D-01, 0.2751370D-02, 0.5571191D-02,
583 + 0.3074073D-01, 0.2947767D-02, 0.5345919D-02,
584 + 0.3701465D-01, 0.3656994D-02, 0.5320167D-02,
585 + 0.3966520D-01, 0.3947740D-02, 0.5466403D-02,
586 + 0.4877653D-01, 0.4947303D-02, 0.6298537D-02,
587 + 0.5819639D-01, 0.5978456D-02, 0.7411545D-02,
588 + 0.6779793D-01, 0.7026621D-02, 0.8648852D-02,
589 + 0.7751116D-01, 0.8084376D-02, 0.9941266D-02,
590 + 0.8729528D-01, 0.9147659D-02, 0.1124248D-01/
591 DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) /
592 + 0.2024245D-01, 0.1792120D-02, 0.6558884D-02,
593 + 0.2227798D-01, 0.2053421D-02, 0.5285963D-02,
594 + 0.2729464D-01, 0.2609175D-02, 0.4791579D-02,
595 + 0.2941735D-01, 0.2823545D-02, 0.4598144D-02,
596 + 0.3551575D-01, 0.3512134D-02, 0.4600187D-02,
597 + 0.3813799D-01, 0.3801500D-02, 0.4740811D-02,
598 + 0.4714056D-01, 0.4793914D-02, 0.5510224D-02,
599 + 0.5642791D-01, 0.5814433D-02, 0.6519979D-02,
600 + 0.6587677D-01, 0.6849282D-02, 0.7632838D-02,
601 + 0.7542144D-01, 0.7891717D-02, 0.8788709D-02,
602 + 0.8502467D-01, 0.8938176D-02, 0.9944049D-02/
603 DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) /
604 + 0.1952776D-01, 0.1745598D-02, 0.5718721D-02,
605 + 0.2146028D-01, 0.1996381D-02, 0.4557055D-02,
606 + 0.2589833D-01, 0.2460495D-02, 0.4119974D-02,
607 + 0.2813628D-01, 0.2697245D-02, 0.3955824D-02,
608 + 0.3413111D-01, 0.3375486D-02, 0.3982551D-02,
609 + 0.3674474D-01, 0.3666109D-02, 0.4117720D-02,
610 + 0.4568589D-01, 0.4657304D-02, 0.4829496D-02,
611 + 0.5487362D-01, 0.5670843D-02, 0.5745965D-02,
612 + 0.6419655D-01, 0.6695055D-02, 0.6747396D-02,
613 + 0.7359673D-01, 0.7724418D-02, 0.7782276D-02,
614 + 0.8304209D-01, 0.8756123D-02, 0.8812386D-02/
615 DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) /
616 + 0.1884945D-01, 0.1700320D-02, 0.4979060D-02,
617 + 0.2069266D-01, 0.1941818D-02, 0.3924521D-02,
618 + 0.2463772D-01, 0.2327195D-02, 0.3540333D-02,
619 + 0.2697389D-01, 0.2582744D-02, 0.3402817D-02,
620 + 0.3292430D-01, 0.3258969D-02, 0.3450882D-02,
621 + 0.3553634D-01, 0.3551444D-02, 0.3580588D-02,
622 + 0.4443353D-01, 0.4542580D-02, 0.4238918D-02,
623 + 0.5353634D-01, 0.5549965D-02, 0.5070685D-02,
624 + 0.6274817D-01, 0.6564439D-02, 0.5972004D-02,
625 + 0.7201961D-01, 0.7581792D-02, 0.6900090D-02,
626 + 0.8132382D-01, 0.8599972D-02, 0.7827526D-02/
627 DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) /
628 + 0.1820118D-01, 0.1655981D-02, 0.4327232D-02,
629 + 0.1996775D-01, 0.1889351D-02, 0.3374022D-02,
630 + 0.2368638D-01, 0.2239107D-02, 0.3039288D-02,
631 + 0.2604359D-01, 0.2499915D-02, 0.2925736D-02,
632 + 0.3197767D-01, 0.3177425D-02, 0.2991694D-02,
633 + 0.3457769D-01, 0.3469494D-02, 0.3115839D-02,
634 + 0.4340933D-01, 0.4455406D-02, 0.3724289D-02,
635 + 0.5241997D-01, 0.5453984D-02, 0.4478859D-02,
636 + 0.6152229D-01, 0.6457586D-02, 0.5290021D-02,
637 + 0.7067206D-01, 0.7462731D-02, 0.6124400D-02,
638 + 0.7984568D-01, 0.8467766D-02, 0.6973142D-02/
639 DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) /
640 + 0.1757725D-01, 0.1612281D-02, 0.3752353D-02,
641 + 0.1927898D-01, 0.1838626D-02, 0.2894098D-02,
642 + 0.2293077D-01, 0.2178095D-02, 0.2605180D-02,
643 + 0.2527426D-01, 0.2437739D-02, 0.2513056D-02,
644 + 0.3119304D-01, 0.3115456D-02, 0.2593740D-02,
645 + 0.3377711D-01, 0.3405994D-02, 0.2712229D-02,
646 + 0.4254023D-01, 0.4384778D-02, 0.3273960D-02,
647 + 0.5146441D-01, 0.5374219D-02, 0.3957929D-02,
648 + 0.6046730D-01, 0.6367398D-02, 0.4687200D-02,
649 + 0.6950794D-01, 0.7361208D-02, 0.5434531D-02,
650 + 0.7856500D-01, 0.8354225D-02, 0.6196265D-02/
651 DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) /
652 + 0.1697249D-01, 0.1568930D-02, 0.3245150D-02,
653 + 0.1862079D-01, 0.1789335D-02, 0.2475358D-02,
654 + 0.2226395D-01, 0.2127000D-02, 0.2228403D-02,
655 + 0.2459603D-01, 0.2385286D-02, 0.2155321D-02,
656 + 0.3048753D-01, 0.3060070D-02, 0.2247857D-02,
657 + 0.3305832D-01, 0.3349099D-02, 0.2360612D-02,
658 + 0.4176703D-01, 0.4321850D-02, 0.2878467D-02,
659 + 0.5062136D-01, 0.5303787D-02, 0.3497680D-02,
660 + 0.5954165D-01, 0.6288263D-02, 0.4152105D-02,
661 + 0.6848978D-01, 0.7272442D-02, 0.4815643D-02,
662 + 0.7744669D-01, 0.8255116D-02, 0.5467176D-02/
663 DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) /
664 + 0.1638212D-01, 0.1525636D-02, 0.2797598D-02,
665 + 0.1798911D-01, 0.1741262D-02, 0.2110567D-02,
666 + 0.2164531D-01, 0.2079620D-02, 0.1901293D-02,
667 + 0.2397271D-01, 0.2337130D-02, 0.1844967D-02,
668 + 0.2984844D-01, 0.3009873D-02, 0.1946632D-02,
669 + 0.3241139D-01, 0.3297918D-02, 0.2053554D-02,
670 + 0.4108266D-01, 0.4266349D-02, 0.2530017D-02,
671 + 0.4988275D-01, 0.5242384D-02, 0.3089660D-02,
672 + 0.5873515D-01, 0.6219663D-02, 0.3675918D-02,
673 + 0.6760493D-01, 0.7195648D-02, 0.4263404D-02,
674 + 0.7647559D-01, 0.8169373D-02, 0.4814349D-02/
675 DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) /
676 + 0.1580168D-01, 0.1482105D-02, 0.2402764D-02,
677 + 0.1737958D-01, 0.1694137D-02, 0.1793054D-02,
678 + 0.2105206D-01, 0.2032661D-02, 0.1617295D-02,
679 + 0.2338426D-01, 0.2290478D-02, 0.1575584D-02,
680 + 0.2926510D-01, 0.2963722D-02, 0.1683850D-02,
681 + 0.3182675D-01, 0.3251533D-02, 0.1784837D-02,
682 + 0.4047833D-01, 0.4217614D-02, 0.2222117D-02,
683 + 0.4923858D-01, 0.5189286D-02, 0.2726816D-02,
684 + 0.5803598D-01, 0.6160705D-02, 0.3251017D-02,
685 + 0.6683960D-01, 0.7129733D-02, 0.3771182D-02,
686 + 0.7563581D-01, 0.8095692D-02, 0.4241524D-02/
687 DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) /
688 + 0.1522688D-01, 0.1438032D-02, 0.2054624D-02,
689 + 0.1678744D-01, 0.1647620D-02, 0.1516450D-02,
690 + 0.2048942D-01, 0.1987455D-02, 0.1370720D-02,
691 + 0.2283367D-01, 0.2246321D-02, 0.1341664D-02,
692 + 0.2873409D-01, 0.2921627D-02, 0.1454225D-02,
693 + 0.3129957D-01, 0.3209751D-02, 0.1549186D-02,
694 + 0.3994578D-01, 0.4175013D-02, 0.1949282D-02,
695 + 0.4867814D-01, 0.5143578D-02, 0.2403186D-02,
696 + 0.5743131D-01, 0.6110245D-02, 0.2870602D-02,
697 + 0.6617892D-01, 0.7073346D-02, 0.3329195D-02,
698 + 0.7491059D-01, 0.8032530D-02, 0.3724147D-02/
699 DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) /
700 + 0.1465355D-01, 0.1393100D-02, 0.1747911D-02,
701 + 0.1620864D-01, 0.1601418D-02, 0.1275640D-02,
702 + 0.1995388D-01, 0.1943825D-02, 0.1156723D-02,
703 + 0.2231690D-01, 0.2204423D-02, 0.1138516D-02,
704 + 0.2824998D-01, 0.2883203D-02, 0.1253279D-02,
705 + 0.3082377D-01, 0.3172124D-02, 0.1342136D-02,
706 + 0.3947692D-01, 0.4137882D-02, 0.1706879D-02,
707 + 0.4819128D-01, 0.5104380D-02, 0.2113753D-02,
708 + 0.5690894D-01, 0.6067193D-02, 0.2529401D-02,
709 + 0.6560875D-01, 0.7025194D-02, 0.2934544D-02,
710 + 0.7428384D-01, 0.7978396D-02, 0.3276993D-02/
711 DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) /
712 + 0.1407749D-01, 0.1346968D-02, 0.1478031D-02,
713 + 0.1563945D-01, 0.1555241D-02, 0.1066360D-02,
714 + 0.1944024D-01, 0.1901278D-02, 0.9711652D-03,
715 + 0.2182866D-01, 0.2164305D-02, 0.9621416D-03,
716 + 0.2780667D-01, 0.2847925D-02, 0.1077218D-02,
717 + 0.3039283D-01, 0.3138087D-02, 0.1159914D-02,
718 + 0.3906338D-01, 0.4105481D-02, 0.1491006D-02,
719 + 0.4776766D-01, 0.5070750D-02, 0.1854291D-02,
720 + 0.5645656D-01, 0.6030404D-02, 0.2223140D-02,
721 + 0.6511479D-01, 0.6983928D-02, 0.2586685D-02,
722 + 0.7373934D-01, 0.7931739D-02, 0.2925121D-02/
723 DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) /
724 + 0.1349444D-01, 0.1299267D-02, 0.1240936D-02,
725 + 0.1507538D-01, 0.1508716D-02, 0.8846816D-03,
726 + 0.1894419D-01, 0.1859462D-02, 0.8104447D-03,
727 + 0.2136434D-01, 0.2125594D-02, 0.8090871D-03,
728 + 0.2739849D-01, 0.2815317D-02, 0.9227907D-03,
729 + 0.3000049D-01, 0.3107107D-02, 0.9992913D-03,
730 + 0.3869691D-01, 0.4077066D-02, 0.1298326D-02,
731 + 0.4739693D-01, 0.5041725D-02, 0.1621145D-02,
732 + 0.5606172D-01, 0.5998692D-02, 0.1946904D-02,
733 + 0.6468253D-01, 0.6948146D-02, 0.2271225D-02,
734 + 0.7326055D-01, 0.7890947D-02, 0.2598422D-02/
735 DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) /
736 + 0.1289987D-01, 0.1249584D-02, 0.1033081D-02,
737 + 0.1451237D-01, 0.1461485D-02, 0.7273077D-03,
738 + 0.1846151D-01, 0.1818013D-02, 0.6714853D-03,
739 + 0.2091942D-01, 0.2087902D-02, 0.6764054D-03,
740 + 0.2701972D-01, 0.2784879D-02, 0.7872339D-03,
741 + 0.2964046D-01, 0.3078622D-02, 0.8575271D-03,
742 + 0.3836901D-01, 0.4051849D-02, 0.1126019D-02,
743 + 0.4706833D-01, 0.5016276D-02, 0.1411231D-02,
744 + 0.5571143D-01, 0.5970791D-02, 0.1696802D-02,
745 + 0.6429682D-01, 0.6916351D-02, 0.1978967D-02,
746 + 0.7283019D-01, 0.7854300D-02, 0.2257198D-02/
747 DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) /
748 + 0.1228891D-01, 0.1197454D-02, 0.8513343D-03,
749 + 0.1394728D-01, 0.1413255D-02, 0.5916331D-03,
750 + 0.1798822D-01, 0.1776572D-02, 0.5516701D-03,
751 + 0.2048952D-01, 0.2050837D-02, 0.5615787D-03,
752 + 0.2666460D-01, 0.2756087D-02, 0.6681796D-03,
753 + 0.2930626D-01, 0.3052040D-02, 0.7322735D-03,
754 + 0.3807079D-01, 0.4028980D-02, 0.9716695D-03,
755 + 0.4677049D-01, 0.4993292D-02, 0.1221955D-02,
756 + 0.5539190D-01, 0.5945333D-02, 0.1470665D-02,
757 + 0.6394152D-01, 0.6886927D-02, 0.1714880D-02,
758 + 0.7242988D-01, 0.7819940D-02, 0.1951831D-02/
759 DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) /
760 + 0.1165610D-01, 0.1142338D-02, 0.6929434D-03,
761 + 0.1337603D-01, 0.1363632D-02, 0.4752178D-03,
762 + 0.1751989D-01, 0.1734720D-02, 0.4487068D-03,
763 + 0.2006984D-01, 0.2013955D-02, 0.4624209D-03,
764 + 0.2632691D-01, 0.2728358D-02, 0.5635959D-03,
765 + 0.2899093D-01, 0.3026700D-02, 0.6215215D-03,
766 + 0.3779262D-01, 0.4007521D-02, 0.8332199D-03,
767 + 0.4649108D-01, 0.4971543D-02, 0.1051090D-02,
768 + 0.5508818D-01, 0.5920805D-02, 0.1266148D-02,
769 + 0.6359912D-01, 0.6858085D-02, 0.1477698D-02,
770 + 0.7203961D-01, 0.7785812D-02, 0.1689135D-02/
771 DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) /
772 + 0.1099514D-01, 0.1083588D-02, 0.5554829D-03,
773 + 0.1279345D-01, 0.1312105D-02, 0.3757508D-03,
774 + 0.1705150D-01, 0.1691967D-02, 0.3605745D-03,
775 + 0.1965503D-01, 0.1976742D-02, 0.3770231D-03,
776 + 0.2599972D-01, 0.2701027D-02, 0.4717315D-03,
777 + 0.2868675D-01, 0.3001852D-02, 0.5235444D-03,
778 + 0.3752380D-01, 0.3986402D-02, 0.7089121D-03,
779 + 0.4621635D-01, 0.4949630D-02, 0.8967120D-03,
780 + 0.5478352D-01, 0.5895485D-02, 0.1080649D-02,
781 + 0.6325004D-01, 0.6827794D-02, 0.1259726D-02,
782 + 0.7163704D-01, 0.7749586D-02, 0.1431507D-02/
783 DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) /
784 + 0.1029850D-01, 0.1020420D-02, 0.4368255D-03,
785 + 0.1219302D-01, 0.1258011D-02, 0.2912833D-03,
786 + 0.1657706D-01, 0.1647716D-02, 0.2855189D-03,
787 + 0.1923879D-01, 0.1938580D-02, 0.3037309D-03,
788 + 0.2567508D-01, 0.2673311D-02, 0.3910778D-03,
789 + 0.2838481D-01, 0.2976616D-02, 0.4368594D-03,
790 + 0.3725202D-01, 0.3964379D-02, 0.5972465D-03,
791 + 0.4593051D-01, 0.4925929D-02, 0.7572191D-03,
792 + 0.5445876D-01, 0.5867380D-02, 0.9128350D-03,
793 + 0.6287181D-01, 0.6793706D-02, 0.1064099D-02,
794 + 0.7119658D-01, 0.7708577D-02, 0.1210551D-02/
795 DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) /
796 + 0.9840897D-02, 0.9782596D-03, 0.3713784D-03,
797 + 0.1180564D-01, 0.1222580D-02, 0.2453782D-03,
798 + 0.1627454D-01, 0.1618998D-02, 0.2445719D-03,
799 + 0.1897483D-01, 0.1913936D-02, 0.2634300D-03,
800 + 0.2546946D-01, 0.2655393D-02, 0.3457791D-03,
801 + 0.2819273D-01, 0.2960194D-02, 0.3878439D-03,
802 + 0.3707435D-01, 0.3949510D-02, 0.5333011D-03,
803 + 0.4573808D-01, 0.4909365D-02, 0.6769768D-03,
804 + 0.5423568D-01, 0.5847364D-02, 0.8162581D-03,
805 + 0.6260905D-01, 0.6769252D-02, 0.9525659D-03,
806 + 0.7088885D-01, 0.7679118D-02, 0.1091238D-02/
807 DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) /
808 + 0.9362920D-02, 0.9336812D-03, 0.3121447D-03,
809 + 0.1140707D-01, 0.1185693D-02, 0.2043740D-03,
810 + 0.1596535D-01, 0.1589249D-02, 0.2078236D-03,
811 + 0.1870573D-01, 0.1888457D-02, 0.2269950D-03,
812 + 0.2525882D-01, 0.2636719D-02, 0.3040733D-03,
813 + 0.2799473D-01, 0.2942935D-02, 0.3424685D-03,
814 + 0.3688593D-01, 0.3933301D-02, 0.4735221D-03,
815 + 0.4552889D-01, 0.4890808D-02, 0.6017052D-03,
816 + 0.5398961D-01, 0.5824669D-02, 0.7253177D-03,
817 + 0.6231716D-01, 0.6741440D-02, 0.8448679D-03,
818 + 0.7054607D-01, 0.7645640D-02, 0.9597377D-03/
819 DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) /
820 + 0.8861152D-02, 0.8863133D-03, 0.2587609D-03,
821 + 0.1099504D-01, 0.1147103D-02, 0.1679426D-03,
822 + 0.1564738D-01, 0.1558242D-02, 0.1749748D-03,
823 + 0.1842927D-01, 0.1861911D-02, 0.1941430D-03,
824 + 0.2504024D-01, 0.2616993D-02, 0.2657061D-03,
825 + 0.2778752D-01, 0.2924500D-02, 0.3004861D-03,
826 + 0.3668208D-01, 0.3915265D-02, 0.4176663D-03,
827 + 0.4529689D-01, 0.4869621D-02, 0.5311613D-03,
828 + 0.5371317D-01, 0.5798514D-02, 0.6401437D-03,
829 + 0.6198753D-01, 0.6709351D-02, 0.7452922D-03,
830 + 0.7015842D-01, 0.7607094D-02, 0.8459428D-03/
831 DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) /
832 + 0.8331323D-02, 0.8356897D-03, 0.2109022D-03,
833 + 0.1056886D-01, 0.1106710D-02, 0.1358045D-03,
834 + 0.1531844D-01, 0.1525740D-02, 0.1457502D-03,
835 + 0.1814299D-01, 0.1834044D-02, 0.1646124D-03,
836 + 0.2481034D-01, 0.2595862D-02, 0.2304459D-03,
837 + 0.2756725D-01, 0.2904489D-02, 0.2616728D-03,
838 + 0.3645735D-01, 0.3894826D-02, 0.3655178D-03,
839 + 0.4503501D-01, 0.4845051D-02, 0.4651090D-03,
840 + 0.5339778D-01, 0.5767975D-02, 0.5602599D-03,
841 + 0.6161011D-01, 0.6671899D-02, 0.6510685D-03,
842 + 0.6971447D-01, 0.7562242D-02, 0.7332600D-03/
843 DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) /
844 + 0.7767826D-02, 0.7811929D-03, 0.1682844D-03,
845 + 0.1012105D-01, 0.1063746D-02, 0.1076382D-03,
846 + 0.1497433D-01, 0.1491304D-02, 0.1198886D-03,
847 + 0.1784295D-01, 0.1804446D-02, 0.1381639D-03,
848 + 0.2456471D-01, 0.2572881D-02, 0.1980851D-03,
849 + 0.2732909D-01, 0.2882411D-02, 0.2258286D-03,
850 + 0.3620518D-01, 0.3871305D-02, 0.3168863D-03,
851 + 0.4473488D-01, 0.4816218D-02, 0.4033581D-03,
852 + 0.5303326D-01, 0.5731976D-02, 0.4856919D-03,
853 + 0.6117300D-01, 0.6627822D-02, 0.5646497D-03,
854 + 0.6920063D-01, 0.7509639D-02, 0.6390357D-03/
855 DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) /
856 + 0.7162524D-02, 0.7219252D-03, 0.1306685D-03,
857 + 0.9648990D-02, 0.1017894D-02, 0.8324373D-04,
858 + 0.1461151D-01, 0.1454547D-02, 0.9717247D-04,
859 + 0.1752550D-01, 0.1772730D-02, 0.1145860D-03,
860 + 0.2429861D-01, 0.2547554D-02, 0.1684362D-03,
861 + 0.2706767D-01, 0.2857704D-02, 0.1927744D-03,
862 + 0.3591786D-01, 0.3843886D-02, 0.2716051D-03,
863 + 0.4438643D-01, 0.4782047D-02, 0.3457338D-03,
864 + 0.5260734D-01, 0.5689198D-02, 0.4161628D-03,
865 + 0.6066182D-01, 0.6575566D-02, 0.4848411D-03,
866 + 0.6860054D-01, 0.7447509D-02, 0.5565929D-03/
867 DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) /
868 + 0.6498830D-02, 0.6560480D-03, 0.9787648D-04,
869 + 0.9145191D-02, 0.9683183D-03, 0.6241237D-04,
870 + 0.1422362D-01, 0.1414772D-02, 0.7739472D-04,
871 + 0.1718482D-01, 0.1738279D-02, 0.9368118D-04,
872 + 0.2400574D-01, 0.2519222D-02, 0.1413299D-03,
873 + 0.2677606D-01, 0.2829644D-02, 0.1623507D-03,
874 + 0.3558588D-01, 0.3811562D-02, 0.2295327D-03,
875 + 0.4397734D-01, 0.4741221D-02, 0.2920817D-03,
876 + 0.5210497D-01, 0.5638020D-02, 0.3512062D-03,
877 + 0.6005895D-01, 0.6513225D-02, 0.4080366D-03,
878 + 0.6789415D-01, 0.7373677D-02, 0.4632646D-03/
879 DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) /
880 + 0.5778300D-02, 0.5837402D-03, 0.6984198D-04,
881 + 0.8612970D-02, 0.9153618D-03, 0.4492100D-04,
882 + 0.1381626D-01, 0.1372613D-02, 0.6035747D-04,
883 + 0.1682500D-01, 0.1701574D-02, 0.7526036D-04,
884 + 0.2368520D-01, 0.2487846D-02, 0.1166112D-03,
885 + 0.2645128D-01, 0.2797962D-02, 0.1344146D-03,
886 + 0.3520003D-01, 0.3773383D-02, 0.1905509D-03,
887 + 0.4349343D-01, 0.4692238D-02, 0.2423050D-03,
888 + 0.5150776D-01, 0.5576476D-02, 0.2911091D-03,
889 + 0.5934224D-01, 0.6438423D-02, 0.3385689D-03,
890 + 0.6705574D-01, 0.7285380D-02, 0.3881714D-03/
891 DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) /
892 + 0.5034733D-02, 0.5087611D-03, 0.4625723D-04,
893 + 0.8064844D-02, 0.8604694D-03, 0.3058347D-04,
894 + 0.1338882D-01, 0.1328038D-02, 0.4584601D-04,
895 + 0.1644089D-01, 0.1662102D-02, 0.5913359D-04,
896 + 0.2332541D-01, 0.2452214D-02, 0.9413941D-04,
897 + 0.2607982D-01, 0.2761237D-02, 0.1088415D-03,
898 + 0.3474175D-01, 0.3727366D-02, 0.1545688D-03,
899 + 0.4291176D-01, 0.4632629D-02, 0.1963152D-03,
900 + 0.5078870D-01, 0.5501647D-02, 0.2355473D-03,
901 + 0.5848082D-01, 0.6347807D-02, 0.2736505D-03,
902 + 0.6605081D-01, 0.7178859D-02, 0.3134502D-03/
903 DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) /
904 + 0.4190120D-02, 0.4224470D-03, 0.2707369D-04,
905 + 0.7459661D-02, 0.7990326D-03, 0.1924123D-04,
906 + 0.1291263D-01, 0.1277880D-02, 0.3371034D-04,
907 + 0.1600870D-01, 0.1617273D-02, 0.4515653D-04,
908 + 0.2290601D-01, 0.2410157D-02, 0.7380760D-04,
909 + 0.2564100D-01, 0.2717275D-02, 0.8554009D-04,
910 + 0.3418645D-01, 0.3670890D-02, 0.1215324D-03,
911 + 0.4220236D-01, 0.4559178D-02, 0.1540794D-03,
912 + 0.4991220D-01, 0.5409691D-02, 0.1845894D-03,
913 + 0.5743353D-01, 0.6236926D-02, 0.2143511D-03,
914 + 0.6483269D-01, 0.7049062D-02, 0.2463026D-03/
915 DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) /
916 + 0.3185613D-02, 0.3182631D-03, 0.1245652D-04,
917 + 0.6769268D-02, 0.7279159D-03, 0.1081952D-04,
918 + 0.1236544D-01, 0.1219703D-02, 0.2382310D-04,
919 + 0.1550825D-01, 0.1564938D-02, 0.3320242D-04,
920 + 0.2240537D-01, 0.2359413D-02, 0.5553033D-04,
921 + 0.2511120D-01, 0.2663596D-02, 0.6444454D-04,
922 + 0.3350197D-01, 0.3600533D-02, 0.9142491D-04,
923 + 0.4132394D-01, 0.4467443D-02, 0.1156077D-03,
924 + 0.4882817D-01, 0.5295189D-02, 0.1382571D-03,
925 + 0.5614187D-01, 0.6099425D-02, 0.1606747D-03,
926 + 0.6333486D-01, 0.6888744D-02, 0.1865614D-03/
927 DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) /
928 + 0.1809282D-02, 0.1726649D-03, 0.2992961D-05,
929 + 0.5931035D-02, 0.6401202D-03, 0.5333937D-05,
930 + 0.1168839D-01, 0.1147036D-02, 0.1608256D-04,
931 + 0.1489229D-01, 0.1499991D-02, 0.2315794D-04,
932 + 0.2178472D-01, 0.2295904D-02, 0.3924450D-04,
933 + 0.2445086D-01, 0.2596047D-02, 0.4551809D-04,
934 + 0.3263896D-01, 0.3511060D-02, 0.6427893D-04,
935 + 0.4021380D-01, 0.4350705D-02, 0.8097014D-04,
936 + 0.4746027D-01, 0.5149908D-02, 0.9650246D-04,
937 + 0.5451648D-01, 0.5925630D-02, 0.1110490D-03,
938 + 0.6145620D-01, 0.6686943D-02, 0.1231286D-03/
939 DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) /
940 + 0.3805620D-03, 0.2114851D-04, 0.6982608D-06,
941 + 0.5090375D-02, 0.5518335D-03, 0.2662843D-05,
942 + 0.1113599D-01, 0.1088290D-02, 0.1022639D-04,
943 + 0.1437980D-01, 0.1447041D-02, 0.1477675D-04,
944 + 0.2116744D-01, 0.2233731D-02, 0.2484446D-04,
945 + 0.2374762D-01, 0.2524768D-02, 0.2870907D-04,
946 + 0.3159391D-01, 0.3402477D-02, 0.4017386D-04,
947 + 0.3880817D-01, 0.4202257D-02, 0.5033954D-04,
948 + 0.4570192D-01, 0.4962380D-02, 0.5987738D-04,
949 + 0.5241713D-01, 0.5700351D-02, 0.6954527D-04,
950 + 0.5902565D-01, 0.6425055D-02, 0.8187836D-04/
951 DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) /
952 + 0.2520758D-03, 0.1400832D-04, 0.2042386D-06,
953 + 0.4996608D-02, 0.5462461D-03, 0.7665191D-06,
954 + 0.1093572D-01, 0.1068999D-02, 0.5098637D-05,
955 + 0.1404163D-01, 0.1414532D-02, 0.7339637D-05,
956 + 0.2043427D-01, 0.2160448D-02, 0.1215728D-04,
957 + 0.2284021D-01, 0.2432665D-02, 0.1397626D-04,
958 + 0.3012736D-01, 0.3248969D-02, 0.1933151D-04,
959 + 0.3682378D-01, 0.3991383D-02, 0.2406949D-04,
960 + 0.4323450D-01, 0.4697957D-02, 0.2851476D-04,
961 + 0.4949194D-01, 0.5385258D-02, 0.3292379D-04,
962 + 0.5566045D-01, 0.6061358D-02, 0.3791125D-04/
963 DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) /
964 + 0.1252376D-03, 0.6959685D-05, 0.2520666D-07,
965 + 0.4821983D-02, 0.5316304D-03, 0.7858168D-08,
966 + 0.1050200D-01, 0.1025048D-02, 0.7111042D-06,
967 + 0.1335221D-01, 0.1345876D-02, 0.1009473D-05,
968 + 0.1908276D-01, 0.2022552D-02, 0.1627908D-05,
969 + 0.2121249D-01, 0.2264703D-02, 0.1857406D-05,
970 + 0.2764352D-01, 0.2986467D-02, 0.2528897D-05,
971 + 0.3356695D-01, 0.3643016D-02, 0.3119704D-05,
972 + 0.3926174D-01, 0.4270162D-02, 0.3578213D-05,
973 + 0.4484042D-01, 0.4882367D-02, 0.3050931D-05,
974 + 0.5035456D-01, 0.5486257D-02,-0.3054033D-05/
975 ******************************************************************
976 *if x is out of range
983 IF((X.LT.5.0D-4).OR.(X.GT.0.99D0)) GOTO 90
984 *******************************************************************
986 * get the x coordinates
1003 XSIG=DBFINT(2,XT,NA,A,SIG)
1004 XQNS=DBFINT(2,XT,NA,A,QNS)
1005 G =DBFINT(2,XT,NA,A,GL)
1007 IF (Q2.LT.50.0D0) THEN
1008 C Use three flavour evolution.
1009 U=(XSIG+9.0D0*XQNS)/6.0D0
1010 D=(XSIG-4.5D0*XQNS)/6.0D0
1015 ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN
1016 C Use four flavour evolution
1017 U=(XSIG+6.D0*XQNS)/8.0D0
1018 D=(XSIG-6.D0*XQNS)/8.0D0
1023 C Use five flavour evolution
1024 U=(XSIG+7.5D0*XQNS)/10.0D0
1025 D=(XSIG-5.D0*XQNS)/10.0D0
git://git.uio.no / u / mrichter / AliRoot.git / blob