5 * Revision 1.1.1.2 1996/10/30 08:29:51 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:29:36 plothow
12 #include "pdf/pilot.h"
13 SUBROUTINE SFGSLO1(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.9811474D+01, 0.1864514D-01, 0.2545083D+02,
41 + 0.1342878D+02, 0.2346805D-01, 0.9675292D+02,
42 + 0.1871367D+02, 0.3348569D-01, 0.1647521D+03,
43 + 0.2475213D+02, 0.3649892D-01, 0.2225751D+03,
44 + 0.4415395D+02, 0.4732645D-01, 0.3758252D+03,
45 + 0.5349644D+02, 0.5161918D-01, 0.4462931D+03,
46 + 0.8856512D+02, 0.6620172D-01, 0.6947289D+03,
47 + 0.1282624D+03, 0.8118179D-01, 0.9577845D+03,
48 + 0.1712023D+03, 0.9646955D-01, 0.1229658D+04,
49 + 0.2165017D+03, 0.1120038D+00, 0.1507126D+04,
50 + 0.2635741D+03, 0.1277408D+00, 0.1788290D+04/
51 DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) /
52 + 0.3340865D+01, 0.1254764D-01, 0.8458172D+01,
53 + 0.4615365D+01, 0.1593154D-01, 0.2534847D+02,
54 + 0.6407919D+01, 0.2383214D-01, 0.3975948D+02,
55 + 0.8345271D+01, 0.2587110D-01, 0.5118792D+02,
56 + 0.1426236D+02, 0.3378655D-01, 0.7934057D+02,
57 + 0.1698355D+02, 0.3685939D-01, 0.9159314D+02,
58 + 0.2676101D+02, 0.4725523D-01, 0.1325592D+03,
59 + 0.3728618D+02, 0.5787674D-01, 0.1734413D+03,
60 + 0.4825718D+02, 0.6866755D-01, 0.2140051D+03,
61 + 0.5950685D+02, 0.7959052D-01, 0.2542146D+03,
62 + 0.7093750D+02, 0.9061975D-01, 0.2940978D+03/
63 DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) /
64 + 0.2034510D+01, 0.1057583D-01, 0.5059672D+01,
65 + 0.2788372D+01, 0.1348177D-01, 0.1356121D+02,
66 + 0.3818232D+01, 0.2056081D-01, 0.2047473D+02,
67 + 0.4886212D+01, 0.2227210D-01, 0.2579153D+02,
68 + 0.8061907D+01, 0.2914690D-01, 0.3849590D+02,
69 + 0.9487711D+01, 0.3178981D-01, 0.4390494D+02,
70 + 0.1450119D+02, 0.4071058D-01, 0.6163788D+02,
71 + 0.1976989D+02, 0.4979865D-01, 0.7897868D+02,
72 + 0.2517030D+02, 0.5901041D-01, 0.9597537D+02,
73 + 0.3064047D+02, 0.6831757D-01, 0.1126978D+03,
74 + 0.3614773D+02, 0.7770066D-01, 0.1292082D+03/
75 DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) /
76 + 0.1470873D+01, 0.9489893D-02, 0.3603193D+01,
77 + 0.1996594D+01, 0.1212548D-01, 0.8973600D+01,
78 + 0.2701098D+01, 0.1870426D-01, 0.1321112D+02,
79 + 0.3407142D+01, 0.2023077D-01, 0.1640650D+02,
80 + 0.5469768D+01, 0.2649866D-01, 0.2389886D+02,
81 + 0.6380776D+01, 0.2889295D-01, 0.2704700D+02,
82 + 0.9538903D+01, 0.3696154D-01, 0.3725226D+02,
83 + 0.1280682D+02, 0.4516515D-01, 0.4712321D+02,
84 + 0.1612162D+02, 0.5346760D-01, 0.5674164D+02,
85 + 0.1945463D+02, 0.6184567D-01, 0.6617581D+02,
86 + 0.2279240D+02, 0.7028355D-01, 0.7547659D+02/
87 DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) /
88 + 0.1155962D+01, 0.8769721D-02, 0.2794055D+01,
89 + 0.1555081D+01, 0.1122175D-01, 0.6586598D+01,
90 + 0.2083039D+01, 0.1744450D-01, 0.9514421D+01,
91 + 0.2596578D+01, 0.1884628D-01, 0.1169037D+02,
92 + 0.4077581D+01, 0.2469463D-01, 0.1672371D+02,
93 + 0.4723573D+01, 0.2691814D-01, 0.1881923D+02,
94 + 0.6939601D+01, 0.3440195D-01, 0.2556127D+02,
95 + 0.9207032D+01, 0.4199949D-01, 0.3203772D+02,
96 + 0.1149009D+02, 0.4967968D-01, 0.3832801D+02,
97 + 0.1377416D+02, 0.5742272D-01, 0.4448952D+02,
98 + 0.1605343D+02, 0.6521522D-01, 0.5056183D+02/
99 DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) /
100 + 0.9545560D+00, 0.8243679D-02, 0.2279163D+01,
101 + 0.1273810D+01, 0.1055868D-01, 0.5141778D+01,
102 + 0.1692448D+01, 0.1650667D-01, 0.7314287D+01,
103 + 0.2088771D+01, 0.1781595D-01, 0.8910377D+01,
104 + 0.3220486D+01, 0.2334759D-01, 0.1256385D+02,
105 + 0.3709136D+01, 0.2544282D-01, 0.1407441D+02,
106 + 0.5371622D+01, 0.3248779D-01, 0.1890806D+02,
107 + 0.7057906D+01, 0.3963112D-01, 0.2352976D+02,
108 + 0.8746382D+01, 0.4684550D-01, 0.2801030D+02,
109 + 0.1042938D+02, 0.5411365D-01, 0.3239702D+02,
110 + 0.1210461D+02, 0.6142394D-01, 0.3672108D+02/
111 DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) /
112 + 0.8144777D+00, 0.7835363D-02, 0.1922711D+01,
113 + 0.1079065D+01, 0.1004205D-01, 0.4181421D+01,
114 + 0.1424030D+01, 0.1576720D-01, 0.5871822D+01,
115 + 0.1742533D+01, 0.1700388D-01, 0.7101886D+01,
116 + 0.2644899D+01, 0.2228313D-01, 0.9893680D+01,
117 + 0.3031201D+01, 0.2427658D-01, 0.1104170D+02,
118 + 0.4336613D+01, 0.3097363D-01, 0.1470028D+02,
119 + 0.5651427D+01, 0.3775726D-01, 0.1818711D+02,
120 + 0.6962189D+01, 0.4460313D-01, 0.2156402D+02,
121 + 0.8265006D+01, 0.5149590D-01, 0.2487031D+02,
122 + 0.9559405D+01, 0.5842533D-01, 0.2813094D+02/
123 DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) /
124 + 0.7113130D+00, 0.7505120D-02, 0.1661322D+01,
125 + 0.9362982D+00, 0.9622823D-02, 0.3500973D+01,
126 + 0.1228600D+01, 0.1516108D-01, 0.4861612D+01,
127 + 0.1492201D+01, 0.1633848D-01, 0.5843631D+01,
128 + 0.2234300D+01, 0.2140911D-01, 0.8056692D+01,
129 + 0.2549644D+01, 0.2331871D-01, 0.8962737D+01,
130 + 0.3609223D+01, 0.2972941D-01, 0.1184104D+02,
131 + 0.4670222D+01, 0.3621733D-01, 0.1457797D+02,
132 + 0.5724207D+01, 0.4276049D-01, 0.1722742D+02,
133 + 0.6769478D+01, 0.4934516D-01, 0.1982232D+02,
134 + 0.7806528D+01, 0.5596216D-01, 0.2238305D+02/
135 DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) /
136 + 0.6321049D+00, 0.7229919D-02, 0.1461446D+01,
137 + 0.8271749D+00, 0.9272436D-02, 0.2995936D+01,
138 + 0.1080155D+01, 0.1465007D-01, 0.4119382D+01,
139 + 0.1303253D+01, 0.1577768D-01, 0.4924404D+01,
140 + 0.1928079D+01, 0.2067121D-01, 0.6727659D+01,
141 + 0.2191856D+01, 0.2250988D-01, 0.7463250D+01,
142 + 0.3073851D+01, 0.2867844D-01, 0.9794267D+01,
143 + 0.3952683D+01, 0.3491653D-01, 0.1200727D+02,
144 + 0.4823158D+01, 0.4120417D-01, 0.1414939D+02,
145 + 0.5684904D+01, 0.4752893D-01, 0.1624856D+02,
146 + 0.6538944D+01, 0.5388253D-01, 0.1832162D+02/
147 DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) /
148 + 0.5693330D+00, 0.6995336D-02, 0.1303657D+01,
149 + 0.7410676D+00, 0.8972980D-02, 0.2607617D+01,
150 + 0.9636782D+00, 0.1421000D-01, 0.3553791D+01,
151 + 0.1155855D+01, 0.1529489D-01, 0.4227472D+01,
152 + 0.1691770D+01, 0.2003504D-01, 0.5728633D+01,
153 + 0.1916692D+01, 0.2181243D-01, 0.6339138D+01,
154 + 0.2665577D+01, 0.2777200D-01, 0.8269980D+01,
155 + 0.3408627D+01, 0.3379465D-01, 0.1010111D+02,
156 + 0.4142817D+01, 0.3986209D-01, 0.1187397D+02,
157 + 0.4868604D+01, 0.4596301D-01, 0.1361246D+02,
158 + 0.5587296D+01, 0.5208989D-01, 0.1533073D+02/
159 DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) /
160 + 0.3730960D+00, 0.6120965D-02, 0.8154455D+00,
161 + 0.4749083D+00, 0.7849717D-02, 0.1478536D+01,
162 + 0.6086066D+00, 0.1252952D-01, 0.1943912D+01,
163 + 0.7127702D+00, 0.1345286D-01, 0.2267237D+01,
164 + 0.9997864D+00, 0.1759998D-01, 0.2974678D+01,
165 + 0.1117477D+01, 0.1914207D-01, 0.3259808D+01,
166 + 0.1503442D+01, 0.2430040D-01, 0.4157717D+01,
167 + 0.1880986D+01, 0.2949893D-01, 0.5009443D+01,
168 + 0.2251280D+01, 0.3472565D-01, 0.5837374D+01,
169 + 0.2615967D+01, 0.3997324D-01, 0.6653189D+01,
170 + 0.2976464D+01, 0.4523694D-01, 0.7463200D+01/
171 DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) /
172 + 0.2859998D+00, 0.5629193D-02, 0.6023001D+00,
173 + 0.3587725D+00, 0.7212752D-02, 0.1024434D+01,
174 + 0.4565610D+00, 0.1155531D-01, 0.1314519D+01,
175 + 0.5266432D+00, 0.1238625D-01, 0.1512774D+01,
176 + 0.7192906D+00, 0.1618484D-01, 0.1941998D+01,
177 + 0.7970759D+00, 0.1758982D-01, 0.2114345D+01,
178 + 0.1050007D+01, 0.2228246D-01, 0.2656958D+01,
179 + 0.1295612D+01, 0.2700356D-01, 0.3173484D+01,
180 + 0.1535753D+01, 0.3174450D-01, 0.3678110D+01,
181 + 0.1772011D+01, 0.3650011D-01, 0.4177689D+01,
182 + 0.2005552D+01, 0.4126704D-01, 0.4675528D+01/
183 DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) /
184 + 0.2325262D+00, 0.5273251D-02, 0.4731738D+00,
185 + 0.2883535D+00, 0.6749219D-02, 0.7642125D+00,
186 + 0.3654920D+00, 0.1083653D-01, 0.9608043D+00,
187 + 0.4166306D+00, 0.1159989D-01, 0.1093294D+01,
188 + 0.5574725D+00, 0.1513929D-01, 0.1377878D+01,
189 + 0.6136260D+00, 0.1644289D-01, 0.1491966D+01,
190 + 0.7951283D+00, 0.2079185D-01, 0.1851742D+01,
191 + 0.9705577D+00, 0.2516146D-01, 0.2196020D+01,
192 + 0.1141835D+01, 0.2954550D-01, 0.2534298D+01,
193 + 0.1310343D+01, 0.3394023D-01, 0.2870839D+01,
194 + 0.1477018D+01, 0.3834328D-01, 0.3207519D+01/
195 DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) /
196 + 0.1967074D+00, 0.4997904D-02, 0.3878182D+00,
197 + 0.2417281D+00, 0.6389082D-02, 0.6009470D+00,
198 + 0.3058526D+00, 0.1027213D-01, 0.7430875D+00,
199 + 0.3454587D+00, 0.1098271D-01, 0.8378482D+00,
200 + 0.4551466D+00, 0.1431736D-01, 0.1040439D+01,
201 + 0.4984555D+00, 0.1554122D-01, 0.1121722D+01,
202 + 0.6379509D+00, 0.1962036D-01, 0.1378926D+01,
203 + 0.7724993D+00, 0.2371465D-01, 0.1626676D+01,
204 + 0.9038709D+00, 0.2781962D-01, 0.1871567D+01,
205 + 0.1033232D+01, 0.3193259D-01, 0.2116360D+01,
206 + 0.1161330D+01, 0.3605186D-01, 0.2362229D+01/
207 DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) /
208 + 0.1709702D+00, 0.4774667D-02, 0.3272337D+00,
209 + 0.2085570D+00, 0.6096091D-02, 0.4899467D+00,
210 + 0.2637885D+00, 0.9809195D-02, 0.5974096D+00,
211 + 0.2957638D+00, 0.1047664D-01, 0.6684300D+00,
212 + 0.3850212D+00, 0.1364252D-01, 0.8199058D+00,
213 + 0.4199937D+00, 0.1480091D-01, 0.8808272D+00,
214 + 0.5324273D+00, 0.1865882D-01, 0.1074482D+01,
215 + 0.6408225D+00, 0.2252785D-01, 0.1262378D+01,
216 + 0.7467554D+00, 0.2640485D-01, 0.1449204D+01,
217 + 0.8512034D+00, 0.3028796D-01, 0.1636755D+01,
218 + 0.9547686D+00, 0.3417598D-01, 0.1825670D+01/
219 DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) /
220 + 0.1514900D+00, 0.4587498D-02, 0.2818885D+00,
221 + 0.1836623D+00, 0.5849718D-02, 0.4097530D+00,
222 + 0.2324266D+00, 0.9417417D-02, 0.4935393D+00,
223 + 0.2590170D+00, 0.1004844D-01, 0.5485061D+00,
224 + 0.3339433D+00, 0.1307091D-01, 0.6656389D+00,
225 + 0.3631165D+00, 0.1417383D-01, 0.7129148D+00,
226 + 0.4568269D+00, 0.1784463D-01, 0.8639954D+00,
227 + 0.5472150D+00, 0.2152348D-01, 0.1011711D+01,
228 + 0.6356704D+00, 0.2520832D-01, 0.1159433D+01,
229 + 0.7230151D+00, 0.2889791D-01, 0.1308315D+01,
230 + 0.8097384D+00, 0.3259142D-01, 0.1458630D+01/
231 DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) /
232 + 0.1362032D+00, 0.4426775D-02, 0.2466773D+00,
233 + 0.1642793D+00, 0.5637536D-02, 0.3493700D+00,
234 + 0.2081314D+00, 0.9078316D-02, 0.4162589D+00,
235 + 0.2307493D+00, 0.9677830D-02, 0.4598475D+00,
236 + 0.2951564D+00, 0.1257574D-01, 0.5527651D+00,
237 + 0.3201033D+00, 0.1363060D-01, 0.5904349D+00,
238 + 0.4002301D+00, 0.1713951D-01, 0.7115331D+00,
239 + 0.4776029D+00, 0.2065413D-01, 0.8308750D+00,
240 + 0.5534435D+00, 0.2417327D-01, 0.9508961D+00,
241 + 0.6284475D+00, 0.2769616D-01, 0.1072330D+01,
242 + 0.7030161D+00, 0.3122227D-01, 0.1195327D+01/
243 DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) /
244 + 0.1238651D+00, 0.4286165D-02, 0.2185398D+00,
245 + 0.1485757D+00, 0.5453052D-02, 0.3029612D+00,
246 + 0.1886876D+00, 0.8780119D-02, 0.3568719D+00,
247 + 0.2082834D+00, 0.9351763D-02, 0.3920567D+00,
248 + 0.2647055D+00, 0.1213944D-01, 0.4672107D+00,
249 + 0.2864626D+00, 0.1315189D-01, 0.4978496D+00,
250 + 0.3563689D+00, 0.1651818D-01, 0.5969922D+00,
251 + 0.4239718D+00, 0.1988844D-01, 0.6954935D+00,
252 + 0.4903486D+00, 0.2326213D-01, 0.7950932D+00,
253 + 0.5560921D+00, 0.2663887D-01, 0.8962021D+00,
254 + 0.6215344D+00, 0.3001835D-01, 0.9987553D+00/
255 DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) /
256 + 0.1136880D+00, 0.4161361D-02, 0.1955509D+00,
257 + 0.1357758D+00, 0.5288262D-02, 0.2657110D+00,
258 + 0.1728313D+00, 0.8513547D-02, 0.3099208D+00,
259 + 0.1900576D+00, 0.9060307D-02, 0.3387726D+00,
260 + 0.2402334D+00, 0.1174931D-01, 0.4005765D+00,
261 + 0.2595095D+00, 0.1272387D-01, 0.4259297D+00,
262 + 0.3214905D+00, 0.1596293D-01, 0.5085320D+00,
263 + 0.3815339D+00, 0.1920461D-01, 0.5912675D+00,
264 + 0.4405917D+00, 0.2244892D-01, 0.6753586D+00,
265 + 0.4991714D+00, 0.2569579D-01, 0.7609743D+00,
266 + 0.5575493D+00, 0.2894506D-01, 0.8478420D+00/
267 DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) /
268 + 0.1051429D+00, 0.4049293D-02, 0.1764239D+00,
269 + 0.1251967D+00, 0.5138969D-02, 0.2350378D+00,
270 + 0.1596674D+00, 0.8272475D-02, 0.2719973D+00,
271 + 0.1749906D+00, 0.8796788D-02, 0.2959797D+00,
272 + 0.2201627D+00, 0.1139652D-01, 0.3475265D+00,
273 + 0.2374618D+00, 0.1233688D-01, 0.3688112D+00,
274 + 0.2931447D+00, 0.1546121D-01, 0.4386453D+00,
275 + 0.3471920D+00, 0.1858711D-01, 0.5091549D+00,
276 + 0.4004459D+00, 0.2171506D-01, 0.5811735D+00,
277 + 0.4533429D+00, 0.2484521D-01, 0.6546974D+00,
278 + 0.5061138D+00, 0.2797757D-01, 0.7293174D+00/
279 DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) /
280 + 0.9786133D-01, 0.3947691D-02, 0.1602676D+00,
281 + 0.1161986D+00, 0.5003614D-02, 0.2097587D+00,
282 + 0.1485238D+00, 0.8052864D-02, 0.2409080D+00,
283 + 0.1622960D+00, 0.8556679D-02, 0.2610485D+00,
284 + 0.2033910D+00, 0.1107483D-01, 0.3045284D+00,
285 + 0.2190863D+00, 0.1198399D-01, 0.3226118D+00,
286 + 0.2696688D+00, 0.1500384D-01, 0.3823773D+00,
287 + 0.3188646D+00, 0.1802449D-01, 0.4432053D+00,
288 + 0.3674216D+00, 0.2104678D-01, 0.5056271D+00,
289 + 0.4157164D+00, 0.2407107D-01, 0.5694936D+00,
290 + 0.4639427D+00, 0.2709744D-01, 0.6342043D+00/
291 DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) /
292 + 0.9157856D-01, 0.3854825D-02, 0.1464450D+00,
293 + 0.1084705D+00, 0.4879677D-02, 0.1885441D+00,
294 + 0.1389709D+00, 0.7851154D-02, 0.2150231D+00,
295 + 0.1514586D+00, 0.8336118D-02, 0.2320898D+00,
296 + 0.1891747D+00, 0.1077916D-01, 0.2691259D+00,
297 + 0.2035462D+00, 0.1165966D-01, 0.2846489D+00,
298 + 0.2499252D+00, 0.1458365D-01, 0.3363387D+00,
299 + 0.2951253D+00, 0.1750788D-01, 0.3893658D+00,
300 + 0.3398120D+00, 0.2043351D-01, 0.4440254D+00,
301 + 0.3843117D+00, 0.2336103D-01, 0.5000539D+00,
302 + 0.4287871D+00, 0.2629059D-01, 0.5566753D+00/
303 DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) /
304 + 0.8609981D-01, 0.3769372D-02, 0.1344894D+00,
305 + 0.1017579D+00, 0.4765453D-02, 0.1705291D+00,
306 + 0.1306882D+00, 0.7664669D-02, 0.1931985D+00,
307 + 0.1420965D+00, 0.8132177D-02, 0.2077720D+00,
308 + 0.1769728D+00, 0.1050562D-01, 0.2395875D+00,
309 + 0.1902355D+00, 0.1135961D-01, 0.2530326D+00,
310 + 0.2330983D+00, 0.1419508D-01, 0.2981487D+00,
311 + 0.2749570D+00, 0.1703043D-01, 0.3447958D+00,
312 + 0.3164053D+00, 0.1986706D-01, 0.3930942D+00,
313 + 0.3577269D+00, 0.2270554D-01, 0.4427890D+00,
314 + 0.3990594D+00, 0.2554609D-01, 0.4934667D+00/
315 DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) /
316 + 0.8127817D-01, 0.3690287D-02, 0.1240502D+00,
317 + 0.9587178D-01, 0.4659572D-02, 0.1550682D+00,
318 + 0.1234335D+00, 0.7491268D-02, 0.1745938D+00,
319 + 0.1339254D+00, 0.7942527D-02, 0.1871210D+00,
320 + 0.1663844D+00, 0.1025112D-01, 0.2146546D+00,
321 + 0.1787068D+00, 0.1108047D-01, 0.2263920D+00,
322 + 0.2185897D+00, 0.1383374D-01, 0.2660874D+00,
323 + 0.2576166D+00, 0.1658668D-01, 0.3074479D+00,
324 + 0.2963185D+00, 0.1934088D-01, 0.3504595D+00,
325 + 0.3349425D+00, 0.2209699D-01, 0.3949131D+00,
326 + 0.3736051D+00, 0.2485523D-01, 0.4408714D+00/
327 DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) /
328 + 0.7700072D-01, 0.3616717D-02, 0.1148599D+00,
329 + 0.9066703D-01, 0.4560939D-02, 0.1416777D+00,
330 + 0.1170243D+00, 0.7329230D-02, 0.1585820D+00,
331 + 0.1267295D+00, 0.7765293D-02, 0.1694124D+00,
332 + 0.1571087D+00, 0.1001317D-01, 0.1933961D+00,
333 + 0.1686245D+00, 0.1081949D-01, 0.2037145D+00,
334 + 0.2059529D+00, 0.1349607D-01, 0.2388896D+00,
335 + 0.2425518D+00, 0.1617226D-01, 0.2758190D+00,
336 + 0.2788968D+00, 0.1884976D-01, 0.3143754D+00,
337 + 0.3152034D+00, 0.2152928D-01, 0.3543264D+00,
338 + 0.3515700D+00, 0.2421104D-01, 0.3957874D+00/
339 DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) /
340 + 0.7317924D-01, 0.3547973D-02, 0.1067101D+00,
341 + 0.8603272D-01, 0.4468605D-02, 0.1299792D+00,
342 + 0.1113200D+00, 0.7177133D-02, 0.1446859D+00,
343 + 0.1203424D+00, 0.7598930D-02, 0.1540961D+00,
344 + 0.1489149D+00, 0.9789726D-02, 0.1751095D+00,
345 + 0.1597317D+00, 0.1057444D-01, 0.1842373D+00,
346 + 0.1948478D+00, 0.1317917D-01, 0.2156051D+00,
347 + 0.2293430D+00, 0.1578356D-01, 0.2487827D+00,
348 + 0.2636440D+00, 0.1838941D-01, 0.2835412D+00,
349 + 0.2979390D+00, 0.2099743D-01, 0.3195266D+00,
350 + 0.3323100D+00, 0.2360783D-01, 0.3563460D+00/
351 DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) /
352 + 0.6974384D-01, 0.3483488D-02, 0.9943664D-01,
353 + 0.8187382D-01, 0.4382003D-02, 0.1197128D+00,
354 + 0.1062061D+00, 0.7033862D-02, 0.1325399D+00,
355 + 0.1146319D+00, 0.7442211D-02, 0.1407497D+00,
356 + 0.1416214D+00, 0.9579126D-02, 0.1592550D+00,
357 + 0.1518274D+00, 0.1034350D-01, 0.1673748D+00,
358 + 0.1850101D+00, 0.1288067D-01, 0.1955072D+00,
359 + 0.2176658D+00, 0.1541765D-01, 0.2254800D+00,
360 + 0.2501778D+00, 0.1795630D-01, 0.2569802D+00,
361 + 0.2827101D+00, 0.2049730D-01, 0.2895307D+00,
362 + 0.3153313D+00, 0.2304087D-01, 0.3221902D+00/
363 DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) /
364 + 0.6663838D-01, 0.3422795D-02, 0.9290756D-01,
365 + 0.7810341D-01, 0.4300967D-02, 0.1107238D+00,
366 + 0.1015874D+00, 0.6898572D-02, 0.1218608D+00,
367 + 0.1094900D+00, 0.7294175D-02, 0.1290444D+00,
368 + 0.1350829D+00, 0.9380019D-02, 0.1454110D+00,
369 + 0.1447512D+00, 0.1012516D-01, 0.1526704D+00,
370 + 0.1762317D+00, 0.1259856D-01, 0.1780313D+00,
371 + 0.2072659D+00, 0.1507204D-01, 0.2052453D+00,
372 + 0.2381990D+00, 0.1754745D-01, 0.2339463D+00,
373 + 0.2691743D+00, 0.2002546D-01, 0.2636970D+00,
374 + 0.3002485D+00, 0.2250621D-01, 0.2938297D+00/
375 DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) /
376 + 0.5672650D-01, 0.3210853D-02, 0.7240408D-01,
377 + 0.6615824D-01, 0.4016148D-02, 0.8323177D-01,
378 + 0.8691136D-01, 0.6420369D-02, 0.8971424D-01,
379 + 0.9323547D-01, 0.6771184D-02, 0.9406866D-01,
380 + 0.1145714D+00, 0.8676316D-02, 0.1045172D+00,
381 + 0.1226097D+00, 0.9353817D-02, 0.1093721D+00,
382 + 0.1489274D+00, 0.1160369D-01, 0.1268984D+00,
383 + 0.1750335D+00, 0.1385536D-01, 0.1462071D+00,
384 + 0.2011561D+00, 0.1611042D-01, 0.1668319D+00,
385 + 0.2273771D+00, 0.1836924D-01, 0.1885959D+00,
386 + 0.2537208D+00, 0.2063174D-01, 0.2122672D+00/
387 DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) /
388 + 0.4954493D-01, 0.3036037D-02, 0.5791704D-01,
389 + 0.5767308D-01, 0.3776657D-02, 0.6409829D-01,
390 + 0.7632964D-01, 0.6017023D-02, 0.6828358D-01,
391 + 0.8158505D-01, 0.6330936D-02, 0.7103772D-01,
392 + 0.9998869D-01, 0.8084253D-02, 0.7807089D-01,
393 + 0.1069129D+00, 0.8705546D-02, 0.8150090D-01,
394 + 0.1296983D+00, 0.1077057D-01, 0.9427469D-01,
395 + 0.1524214D+00, 0.1283979D-01, 0.1086698D+00,
396 + 0.1752299D+00, 0.1491422D-01, 0.1241663D+00,
397 + 0.1981660D+00, 0.1699377D-01, 0.1404129D+00,
398 + 0.2212340D+00, 0.1907801D-01, 0.1571799D+00/
399 DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) /
400 + 0.4412153D-01, 0.2888053D-02, 0.4723757D-01,
401 + 0.5124083D-01, 0.3574623D-02, 0.5079840D-01,
402 + 0.6828640D-01, 0.5668800D-02, 0.5340916D-01,
403 + 0.7278667D-01, 0.5951593D-02, 0.5518718D-01,
404 + 0.8905596D-01, 0.7573866D-02, 0.6011898D-01,
405 + 0.9517505D-01, 0.8147290D-02, 0.6265433D-01,
406 + 0.1154004D+00, 0.1005577D-01, 0.7237706D-01,
407 + 0.1356604D+00, 0.1197136D-01, 0.8354372D-01,
408 + 0.1560466D+00, 0.1389421D-01, 0.9564194D-01,
409 + 0.1765749D+00, 0.1582365D-01, 0.1083558D+00,
410 + 0.1972366D+00, 0.1775883D-01, 0.1215070D+00/
411 DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) /
412 + 0.3987000D-01, 0.2760162D-02, 0.3905016D-01,
413 + 0.4620264D-01, 0.3399376D-02, 0.4096906D-01,
414 + 0.6191934D-01, 0.5361016D-02, 0.4254156D-01,
415 + 0.6585419D-01, 0.5617449D-02, 0.4369583D-01,
416 + 0.8047312D-01, 0.7124692D-02, 0.4725629D-01,
417 + 0.8597415D-01, 0.7656726D-02, 0.4919142D-01,
418 + 0.1042297D+00, 0.9430540D-02, 0.5681735D-01,
419 + 0.1225874D+00, 0.1121465D-01, 0.6571598D-01,
420 + 0.1410978D+00, 0.1300815D-01, 0.7540076D-01,
421 + 0.1597577D+00, 0.1480967D-01, 0.8558730D-01,
422 + 0.1785497D+00, 0.1661794D-01, 0.9611574D-01/
423 DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) /
424 + 0.3646109D-01, 0.2648039D-02, 0.3263199D-01,
425 + 0.4217242D-01, 0.3244785D-02, 0.3347094D-01,
426 + 0.5674877D-01, 0.5084485D-02, 0.3439708D-01,
427 + 0.6024879D-01, 0.5318638D-02, 0.3515416D-01,
428 + 0.7354944D-01, 0.6723776D-02, 0.3781038D-01,
429 + 0.7856124D-01, 0.7219697D-02, 0.3933451D-01,
430 + 0.9525463D-01, 0.8876577D-02, 0.4548254D-01,
431 + 0.1120997D+00, 0.1054704D-01, 0.5274369D-01,
432 + 0.1291150D+00, 0.1222897D-01, 0.6066672D-01,
433 + 0.1462836D+00, 0.1392031D-01, 0.6899395D-01,
434 + 0.1635819D+00, 0.1561931D-01, 0.7755795D-01/
435 DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) /
436 + 0.3367022D-01, 0.2548552D-02, 0.2749444D-01,
437 + 0.3887100D-01, 0.3106863D-02, 0.2762565D-01,
438 + 0.5244414D-01, 0.4832766D-02, 0.2813872D-01,
439 + 0.5560189D-01, 0.5048218D-02, 0.2863779D-01,
440 + 0.6781742D-01, 0.6361936D-02, 0.3067907D-01,
441 + 0.7243072D-01, 0.6826144D-02, 0.3191142D-01,
442 + 0.8784979D-01, 0.8380807D-02, 0.3697870D-01,
443 + 0.1034580D+00, 0.9952320D-02, 0.4301513D-01,
444 + 0.1192488D+00, 0.1153730D-01, 0.4960915D-01,
445 + 0.1351946D+00, 0.1313294D-01, 0.5653657D-01,
446 + 0.1512669D+00, 0.1473702D-01, 0.6366571D-01/
447 DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) /
448 + 0.3134481D-01, 0.2459379D-02, 0.2331059D-01,
449 + 0.3611534D-01, 0.2982715D-02, 0.2298208D-01,
450 + 0.4878597D-01, 0.4601158D-02, 0.2322870D-01,
451 + 0.5167003D-01, 0.4801118D-02, 0.2355833D-01,
452 + 0.6297136D-01, 0.6032467D-02, 0.2517093D-01,
453 + 0.6725305D-01, 0.6468721D-02, 0.2618981D-01,
454 + 0.8161064D-01, 0.7933663D-02, 0.3044220D-01,
455 + 0.9618679D-01, 0.9418618D-02, 0.3553568D-01,
456 + 0.1109544D+00, 0.1091889D-01, 0.4109899D-01,
457 + 0.1258772D+00, 0.1243090D-01, 0.4694225D-01,
458 + 0.1409234D+00, 0.1395202D-01, 0.5298558D-01/
459 DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) /
460 + 0.2938217D-01, 0.2378800D-02, 0.1986429D-01,
461 + 0.3378389D-01, 0.2870303D-02, 0.1925703D-01,
462 + 0.4562917D-01, 0.4386271D-02, 0.1932811D-01,
463 + 0.4829334D-01, 0.4573682D-02, 0.1954728D-01,
464 + 0.5881281D-01, 0.5730525D-02, 0.2085770D-01,
465 + 0.6281506D-01, 0.6142113D-02, 0.2171753D-01,
466 + 0.7627748D-01, 0.7528192D-02, 0.2534355D-01,
467 + 0.8998194D-01, 0.8937272D-02, 0.2969751D-01,
468 + 0.1038842D+00, 0.1036331D-01, 0.3444605D-01,
469 + 0.1179407D+00, 0.1180201D-01, 0.3942204D-01,
470 + 0.1321170D+00, 0.1325033D-01, 0.4454895D-01/
471 DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) /
472 + 0.2770262D-01, 0.2305415D-02, 0.1698906D-01,
473 + 0.3178261D-01, 0.2767735D-02, 0.1621974D-01,
474 + 0.4286201D-01, 0.4185330D-02, 0.1617733D-01,
475 + 0.4534900D-01, 0.4362933D-02, 0.1632430D-01,
476 + 0.5518980D-01, 0.5452214D-02, 0.1741592D-01,
477 + 0.5895360D-01, 0.5842051D-02, 0.1815359D-01,
478 + 0.7165176D-01, 0.7158814D-02, 0.2128433D-01,
479 + 0.8461095D-01, 0.8501318D-02, 0.2504361D-01,
480 + 0.9777212D-01, 0.9862194D-02, 0.2913437D-01,
481 + 0.1110861D+00, 0.1123646D-01, 0.3341568D-01,
482 + 0.1245159D+00, 0.1262069D-01, 0.3784494D-01/
483 DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) /
484 + 0.2625076D-01, 0.2238143D-02, 0.1457164D-01,
485 + 0.3004678D-01, 0.2673543D-02, 0.1371774D-01,
486 + 0.4040840D-01, 0.3996244D-02, 0.1360885D-01,
487 + 0.4275402D-01, 0.4166634D-02, 0.1371041D-01,
488 + 0.5200107D-01, 0.5194614D-02, 0.1464250D-01,
489 + 0.5556037D-01, 0.5565332D-02, 0.1528490D-01,
490 + 0.6760275D-01, 0.6821321D-02, 0.1801795D-01,
491 + 0.7992130D-01, 0.8105482D-02, 0.2129236D-01,
492 + 0.9244427D-01, 0.9409166D-02, 0.2484524D-01,
493 + 0.1051176D+00, 0.1072675D-01, 0.2856420D-01,
494 + 0.1179026D+00, 0.1205448D-01, 0.3246368D-01/
495 DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) /
496 + 0.2498264D-01, 0.2176074D-02, 0.1252296D-01,
497 + 0.2852474D-01, 0.2586529D-02, 0.1163583D-01,
498 + 0.3820837D-01, 0.3817320D-02, 0.1149342D-01,
499 + 0.4044316D-01, 0.3982970D-02, 0.1156755D-01,
500 + 0.4916729D-01, 0.4955355D-02, 0.1238112D-01,
501 + 0.5255058D-01, 0.5309351D-02, 0.1294757D-01,
502 + 0.6402810D-01, 0.6512269D-02, 0.1535507D-01,
503 + 0.7579352D-01, 0.7745429D-02, 0.1822732D-01,
504 + 0.8776405D-01, 0.8998974D-02, 0.2132728D-01,
505 + 0.9988157D-01, 0.1026671D-01, 0.2451663D-01,
506 + 0.1121061D+00, 0.1154461D-01, 0.2759257D-01/
507 DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) /
508 + 0.2386489D-01, 0.2118459D-02, 0.1077657D-01,
509 + 0.2717822D-01, 0.2505779D-02, 0.9892013D-02,
510 + 0.3621722D-01, 0.3647218D-02, 0.9738241D-02,
511 + 0.3836804D-01, 0.3810504D-02, 0.9797171D-02,
512 + 0.4663004D-01, 0.4732553D-02, 0.1052143D-01,
513 + 0.4986193D-01, 0.5072033D-02, 0.1102628D-01,
514 + 0.6085280D-01, 0.6228898D-02, 0.1316329D-01,
515 + 0.7214003D-01, 0.7417662D-02, 0.1569785D-01,
516 + 0.8363130D-01, 0.8627361D-02, 0.1841362D-01,
517 + 0.9526528D-01, 0.9851314D-02, 0.2112131D-01,
518 + 0.1070011D+00, 0.1108527D-01, 0.2327940D-01/
519 DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) /
520 + 0.2287098D-01, 0.2064657D-02, 0.9280388D-02,
521 + 0.2597773D-01, 0.2430616D-02, 0.8425721D-02,
522 + 0.3439999D-01, 0.3484847D-02, 0.8272486D-02,
523 + 0.3649089D-01, 0.3648070D-02, 0.8324276D-02,
524 + 0.4434388D-01, 0.4524671D-02, 0.8979947D-02,
525 + 0.4744594D-01, 0.4851682D-02, 0.9433945D-02,
526 + 0.5801849D-01, 0.5968927D-02, 0.1134298D-01,
527 + 0.6889258D-01, 0.7119276D-02, 0.1359116D-01,
528 + 0.7996782D-01, 0.8290777D-02, 0.1599018D-01,
529 + 0.9118045D-01, 0.9476352D-02, 0.1839031D-01,
530 + 0.1024892D+00, 0.1067160D-01, 0.2039326D-01/
531 DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) /
532 + 0.2197955D-01, 0.2014114D-02, 0.7993099D-02,
533 + 0.2489892D-01, 0.2360339D-02, 0.7186451D-02,
534 + 0.3272884D-01, 0.3329282D-02, 0.7041447D-02,
535 + 0.3478187D-01, 0.3494691D-02, 0.7091319D-02,
536 + 0.4227310D-01, 0.4330436D-02, 0.7693084D-02,
537 + 0.4526455D-01, 0.4646892D-02, 0.8104329D-02,
538 + 0.5547928D-01, 0.5730457D-02, 0.9818596D-02,
539 + 0.6599736D-01, 0.6847828D-02, 0.1182118D-01,
540 + 0.7671179D-01, 0.7986219D-02, 0.1395409D-01,
541 + 0.8755713D-01, 0.9138261D-02, 0.1614919D-01,
542 + 0.9849221D-01, 0.1029947D-01, 0.1837904D-01/
543 DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) /
544 + 0.2117340D-01, 0.1966342D-02, 0.6882100D-02,
545 + 0.2392202D-01, 0.2294293D-02, 0.6133391D-02,
546 + 0.3118119D-01, 0.3179651D-02, 0.6003205D-02,
547 + 0.3321734D-01, 0.3349532D-02, 0.6054520D-02,
548 + 0.4038951D-01, 0.4148762D-02, 0.6612858D-02,
549 + 0.4328782D-01, 0.4456474D-02, 0.6987574D-02,
550 + 0.5319917D-01, 0.5511893D-02, 0.8533492D-02,
551 + 0.6341209D-01, 0.6601263D-02, 0.1032315D-01,
552 + 0.7381442D-01, 0.7711148D-02, 0.1221988D-01,
553 + 0.8433995D-01, 0.8834009D-02, 0.1417351D-01,
554 + 0.9494803D-01, 0.9965359D-02, 0.1620130D-01/
555 DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) /
556 + 0.2043814D-01, 0.1920905D-02, 0.5920516D-02,
557 + 0.2303106D-01, 0.2231972D-02, 0.5235412D-02,
558 + 0.2973935D-01, 0.3035369D-02, 0.5123704D-02,
559 + 0.3177770D-01, 0.3211858D-02, 0.5178428D-02,
560 + 0.3867066D-01, 0.3978835D-02, 0.5700761D-02,
561 + 0.4149177D-01, 0.4279512D-02, 0.6043757D-02,
562 + 0.5114890D-01, 0.5311924D-02, 0.7442485D-02,
563 + 0.6110199D-01, 0.6377837D-02, 0.9046025D-02,
564 + 0.7123538D-01, 0.7463372D-02, 0.1073481D-01,
565 + 0.8148293D-01, 0.8560955D-02, 0.1245572D-01,
566 + 0.9180501D-01, 0.9666184D-02, 0.1416720D-01/
567 DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) /
568 + 0.1976193D-01, 0.1877410D-02, 0.5086713D-02,
569 + 0.2221291D-01, 0.2172914D-02, 0.4467734D-02,
570 + 0.2838599D-01, 0.2895430D-02, 0.4376311D-02,
571 + 0.3044695D-01, 0.3081011D-02, 0.4435494D-02,
572 + 0.3709682D-01, 0.3819678D-02, 0.4927158D-02,
573 + 0.3985576D-01, 0.4114991D-02, 0.5242225D-02,
574 + 0.4930422D-01, 0.5129310D-02, 0.6511036D-02,
575 + 0.5903866D-01, 0.6175988D-02, 0.7950838D-02,
576 + 0.6894178D-01, 0.7240966D-02, 0.9458458D-02,
577 + 0.7894853D-01, 0.8316794D-02, 0.1098790D-01,
578 + 0.8902094D-01, 0.9399251D-02, 0.1249729D-01/
579 DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) /
580 + 0.1913463D-01, 0.1835496D-02, 0.4362632D-02,
581 + 0.2145590D-01, 0.2116647D-02, 0.3809195D-02,
582 + 0.2710495D-01, 0.2758708D-02, 0.3739239D-02,
583 + 0.2921686D-01, 0.2957282D-02, 0.3803287D-02,
584 + 0.3564769D-01, 0.3669808D-02, 0.4268056D-02,
585 + 0.3835874D-01, 0.3961405D-02, 0.4558201D-02,
586 + 0.4764170D-01, 0.4962458D-02, 0.5711288D-02,
587 + 0.5719584D-01, 0.5993963D-02, 0.7006013D-02,
588 + 0.6690404D-01, 0.7041949D-02, 0.8354029D-02,
589 + 0.7670359D-01, 0.8099270D-02, 0.9717345D-02,
590 + 0.8655882D-01, 0.9162005D-02, 0.1106294D-01/
591 DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) /
592 + 0.1854764D-01, 0.1794825D-02, 0.3733304D-02,
593 + 0.2075086D-01, 0.2062805D-02, 0.3243440D-02,
594 + 0.2586753D-01, 0.2621691D-02, 0.3195035D-02,
595 + 0.2806129D-01, 0.2837668D-02, 0.3263885D-02,
596 + 0.3430926D-01, 0.3528447D-02, 0.3704376D-02,
597 + 0.3698811D-01, 0.3818282D-02, 0.3971997D-02,
598 + 0.4614900D-01, 0.4811196D-02, 0.5021144D-02,
599 + 0.5555833D-01, 0.5831374D-02, 0.6186538D-02,
600 + 0.6510306D-01, 0.6865544D-02, 0.7393058D-02,
601 + 0.7472472D-01, 0.7907176D-02, 0.8610003D-02,
602 + 0.8439100D-01, 0.8952809D-02, 0.9813729D-02/
603 DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) /
604 + 0.1799345D-01, 0.1755079D-02, 0.3186141D-02,
605 + 0.2009060D-01, 0.2011123D-02, 0.2757918D-02,
606 + 0.2462623D-01, 0.2477509D-02, 0.2729519D-02,
607 + 0.2693235D-01, 0.2715303D-02, 0.2802749D-02,
608 + 0.3306826D-01, 0.3394658D-02, 0.3220668D-02,
609 + 0.3573439D-01, 0.3685386D-02, 0.3467681D-02,
610 + 0.4482053D-01, 0.4676154D-02, 0.4422733D-02,
611 + 0.5411841D-01, 0.5688723D-02, 0.5472197D-02,
612 + 0.6352707D-01, 0.6711812D-02, 0.6552948D-02,
613 + 0.7299563D-01, 0.7740054D-02, 0.7643261D-02,
614 + 0.8249668D-01, 0.8770698D-02, 0.8741538D-02/
615 DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) /
616 + 0.1746548D-01, 0.1715953D-02, 0.2710467D-02,
617 + 0.1946806D-01, 0.1961262D-02, 0.2340938D-02,
618 + 0.2350704D-01, 0.2348056D-02, 0.2330809D-02,
619 + 0.2590782D-01, 0.2604098D-02, 0.2407697D-02,
620 + 0.3198994D-01, 0.3280403D-02, 0.2804010D-02,
621 + 0.3465026D-01, 0.3572639D-02, 0.3031970D-02,
622 + 0.4367926D-01, 0.4562489D-02, 0.3901298D-02,
623 + 0.5288092D-01, 0.5568338D-02, 0.4846367D-02,
624 + 0.6216904D-01, 0.6581304D-02, 0.5814597D-02,
625 + 0.7150093D-01, 0.7597267D-02, 0.6792054D-02,
626 + 0.8085416D-01, 0.8614193D-02, 0.7796493D-02/
627 DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) /
628 + 0.1695791D-01, 0.1677152D-02, 0.2297231D-02,
629 + 0.1887672D-01, 0.1912869D-02, 0.1982212D-02,
630 + 0.2268456D-01, 0.2263196D-02, 0.1989012D-02,
631 + 0.2510231D-01, 0.2523959D-02, 0.2068612D-02,
632 + 0.3115808D-01, 0.3200559D-02, 0.2443735D-02,
633 + 0.3380212D-01, 0.3492068D-02, 0.2653930D-02,
634 + 0.4275270D-01, 0.4475908D-02, 0.3444788D-02,
635 + 0.5185150D-01, 0.5472451D-02, 0.4295515D-02,
636 + 0.6102133D-01, 0.6474218D-02, 0.5162264D-02,
637 + 0.7022431D-01, 0.7477751D-02, 0.6033582D-02,
638 + 0.7944090D-01, 0.8481383D-02, 0.6922060D-02/
639 DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) /
640 + 0.1646541D-01, 0.1638383D-02, 0.1938626D-02,
641 + 0.1831074D-01, 0.1865606D-02, 0.1673497D-02,
642 + 0.2204616D-01, 0.2204811D-02, 0.1695369D-02,
643 + 0.2444568D-01, 0.2463889D-02, 0.1776706D-02,
644 + 0.3047576D-01, 0.3139762D-02, 0.2130947D-02,
645 + 0.3309959D-01, 0.3429442D-02, 0.2324524D-02,
646 + 0.4196919D-01, 0.4405446D-02, 0.3043336D-02,
647 + 0.5097149D-01, 0.5392421D-02, 0.3808564D-02,
648 + 0.6003382D-01, 0.6383495D-02, 0.4583789D-02,
649 + 0.6912110D-01, 0.7375522D-02, 0.5358050D-02,
650 + 0.7821569D-01, 0.8367026D-02, 0.6131132D-02/
651 DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) /
652 + 0.1598313D-01, 0.1599356D-02, 0.1627963D-02,
653 + 0.1776514D-01, 0.1819174D-02, 0.1407954D-02,
654 + 0.2148560D-01, 0.2155759D-02, 0.1442665D-02,
655 + 0.2386894D-01, 0.2412981D-02, 0.1524787D-02,
656 + 0.2986111D-01, 0.3085047D-02, 0.1858422D-02,
657 + 0.3246750D-01, 0.3372948D-02, 0.2036420D-02,
658 + 0.4127076D-01, 0.4342294D-02, 0.2688928D-02,
659 + 0.5019388D-01, 0.5321403D-02, 0.3376494D-02,
660 + 0.5916623D-01, 0.6303562D-02, 0.4069231D-02,
661 + 0.6815506D-01, 0.7285834D-02, 0.4757368D-02,
662 + 0.7714466D-01, 0.8266924D-02, 0.5433820D-02/
663 DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) /
664 + 0.1550654D-01, 0.1559773D-02, 0.1359418D-02,
665 + 0.1723619D-01, 0.1773360D-02, 0.1180071D-02,
666 + 0.2096290D-01, 0.2109849D-02, 0.1225215D-02,
667 + 0.2333658D-01, 0.2365825D-02, 0.1307185D-02,
668 + 0.2930237D-01, 0.3035046D-02, 0.1620378D-02,
669 + 0.3189688D-01, 0.3321720D-02, 0.1783705D-02,
670 + 0.4065142D-01, 0.4286208D-02, 0.2374984D-02,
671 + 0.4951167D-01, 0.5259127D-02, 0.2991800D-02,
672 + 0.5840944D-01, 0.6233935D-02, 0.3610009D-02,
673 + 0.6731464D-01, 0.7207936D-02, 0.4221724D-02,
674 + 0.7621369D-01, 0.8180047D-02, 0.4818659D-02/
675 DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) /
676 + 0.1503130D-01, 0.1519329D-02, 0.1127933D-02,
677 + 0.1671990D-01, 0.1727892D-02, 0.9849006D-03,
678 + 0.2045578D-01, 0.2063797D-02, 0.1038154D-02,
679 + 0.2282919D-01, 0.2319642D-02, 0.1119089D-02,
680 + 0.2878964D-01, 0.2988638D-02, 0.1411966D-02,
681 + 0.3137898D-01, 0.3274867D-02, 0.1561435D-02,
682 + 0.4010326D-01, 0.4236559D-02, 0.2096014D-02,
683 + 0.4891584D-01, 0.5204902D-02, 0.2648220D-02,
684 + 0.5775263D-01, 0.6173755D-02, 0.3198920D-02,
685 + 0.6658697D-01, 0.7140768D-02, 0.3742543D-02,
686 + 0.7540784D-01, 0.8105119D-02, 0.4273630D-02/
687 DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) /
688 + 0.1455322D-01, 0.1477706D-02, 0.9290777D-03,
689 + 0.1621185D-01, 0.1682435D-02, 0.8178835D-03,
690 + 0.1996990D-01, 0.2018943D-02, 0.8772579D-03,
691 + 0.2235032D-01, 0.2275435D-02, 0.9563592D-03,
692 + 0.2832019D-01, 0.2945853D-02, 0.1229056D-02,
693 + 0.3090970D-01, 0.3232220D-02, 0.1365408D-02,
694 + 0.3961889D-01, 0.4192747D-02, 0.1847375D-02,
695 + 0.4839651D-01, 0.5157844D-02, 0.2340460D-02,
696 + 0.5718377D-01, 0.6121909D-02, 0.2829815D-02,
697 + 0.6595804D-01, 0.7083010D-02, 0.3311857D-02,
698 + 0.7471115D-01, 0.8040628D-02, 0.3783842D-02/
699 DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) /
700 + 0.1406811D-01, 0.1434564D-02, 0.7589557D-03,
701 + 0.1570823D-01, 0.1636690D-02, 0.6752545D-03,
702 + 0.1950212D-01, 0.1975114D-02, 0.7389313D-03,
703 + 0.2189636D-01, 0.2232978D-02, 0.8154783D-03,
704 + 0.2788920D-01, 0.2906329D-02, 0.1068157D-02,
705 + 0.3048365D-01, 0.3193354D-02, 0.1192079D-02,
706 + 0.3919091D-01, 0.4154133D-02, 0.1625145D-02,
707 + 0.4794429D-01, 0.5117102D-02, 0.2064043D-02,
708 + 0.5669146D-01, 0.6077336D-02, 0.2497567D-02,
709 + 0.6541444D-01, 0.7033397D-02, 0.2923871D-02,
710 + 0.7410826D-01, 0.7985108D-02, 0.3342986D-02/
711 DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) /
712 + 0.1357172D-01, 0.1389532D-02, 0.6141374D-03,
713 + 0.1520546D-01, 0.1590357D-02, 0.5538299D-03,
714 + 0.1904756D-01, 0.1931818D-02, 0.6201010D-03,
715 + 0.2146241D-01, 0.2191801D-02, 0.6934552D-03,
716 + 0.2749114D-01, 0.2869556D-02, 0.9263228D-03,
717 + 0.3009486D-01, 0.3157722D-02, 0.1038456D-02,
718 + 0.3881166D-01, 0.4120003D-02, 0.1426019D-02,
719 + 0.4754955D-01, 0.5081763D-02, 0.1815194D-02,
720 + 0.5626407D-01, 0.6038917D-02, 0.2197886D-02,
721 + 0.6494256D-01, 0.6990604D-02, 0.2574141D-02,
722 + 0.7358356D-01, 0.7937031D-02, 0.2948746D-02/
723 DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) /
724 + 0.1305961D-01, 0.1342208D-02, 0.4915750D-03,
725 + 0.1469918D-01, 0.1543048D-02, 0.4508016D-03,
726 + 0.1860215D-01, 0.1888699D-02, 0.5181130D-03,
727 + 0.2104422D-01, 0.2151533D-02, 0.5877194D-03,
728 + 0.2712081D-01, 0.2835076D-02, 0.8010341D-03,
729 + 0.2973763D-01, 0.3124815D-02, 0.9019835D-03,
730 + 0.3847346D-01, 0.4089642D-02, 0.1247175D-02,
731 + 0.4720254D-01, 0.5050893D-02, 0.1590676D-02,
732 + 0.5588975D-01, 0.6005498D-02, 0.1926936D-02,
733 + 0.6452845D-01, 0.6953258D-02, 0.2257086D-02,
734 + 0.7312111D-01, 0.7894811D-02, 0.2587537D-02/
735 DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) /
736 + 0.1252702D-01, 0.1292136D-02, 0.3885671D-03,
737 + 0.1418534D-01, 0.1494387D-02, 0.3637417D-03,
738 + 0.1816184D-01, 0.1845390D-02, 0.4306922D-03,
739 + 0.2063755D-01, 0.2111791D-02, 0.4960791D-03,
740 + 0.2677293D-01, 0.2802407D-02, 0.6901580D-03,
741 + 0.2940612D-01, 0.3094090D-02, 0.7805020D-03,
742 + 0.3816837D-01, 0.4062288D-02, 0.1086226D-02,
743 + 0.4689307D-01, 0.5023491D-02, 0.1387751D-02,
744 + 0.5555607D-01, 0.5975840D-02, 0.1681514D-02,
745 + 0.6415751D-01, 0.6919890D-02, 0.1968570D-02,
746 + 0.7270413D-01, 0.7856755D-02, 0.2251816D-02/
747 DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) /
748 + 0.1196868D-01, 0.1238794D-02, 0.3027001D-03,
749 + 0.1366069D-01, 0.1444059D-02, 0.2905299D-03,
750 + 0.1772278D-01, 0.1801523D-02, 0.3558742D-03,
751 + 0.2023822D-01, 0.2072187D-02, 0.4166499D-03,
752 + 0.2644215D-01, 0.2771042D-02, 0.5918701D-03,
753 + 0.2909433D-01, 0.3064977D-02, 0.6721645D-03,
754 + 0.3788805D-01, 0.4037122D-02, 0.9411313D-03,
755 + 0.4661037D-01, 0.4998478D-02, 0.1204081D-02,
756 + 0.5524982D-01, 0.5948604D-02, 0.1459074D-02,
757 + 0.6381416D-01, 0.6888909D-02, 0.1707222D-02,
758 + 0.7231476D-01, 0.7821029D-02, 0.1949374D-02/
759 DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) /
760 + 0.1137865D-01, 0.1181574D-02, 0.2318165D-03,
761 + 0.1312101D-01, 0.1391639D-02, 0.2292968D-03,
762 + 0.1728060D-01, 0.1756671D-02, 0.2919582D-03,
763 + 0.1984164D-01, 0.2032277D-02, 0.3478124D-03,
764 + 0.2612261D-01, 0.2740417D-02, 0.5046158D-03,
765 + 0.2879571D-01, 0.3036838D-02, 0.5753994D-03,
766 + 0.3762338D-01, 0.4013233D-02, 0.8101543D-03,
767 + 0.4634261D-01, 0.4974653D-02, 0.1037667D-02,
768 + 0.5495655D-01, 0.5922305D-02, 0.1257321D-02,
769 + 0.6348138D-01, 0.6858553D-02, 0.1470516D-02,
770 + 0.7193348D-01, 0.7785600D-02, 0.1677973D-02/
771 DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) /
772 + 0.1074991D-01, 0.1119738D-02, 0.1739793D-03,
773 + 0.1256094D-01, 0.1336577D-02, 0.1783844D-03,
774 + 0.1683025D-01, 0.1710325D-02, 0.2374660D-03,
775 + 0.1944256D-01, 0.1991544D-02, 0.2881699D-03,
776 + 0.2580777D-01, 0.2709886D-02, 0.4270664D-03,
777 + 0.2850296D-01, 0.3008949D-02, 0.4888655D-03,
778 + 0.3736416D-01, 0.3989588D-02, 0.6918148D-03,
779 + 0.4607655D-01, 0.4950653D-02, 0.8868018D-03,
780 + 0.5466002D-01, 0.5895256D-02, 0.1074146D-02,
781 + 0.6314003D-01, 0.6826821D-02, 0.1254700D-02,
782 + 0.7153834D-01, 0.7748167D-02, 0.1425246D-02/
783 DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) /
784 + 0.1007400D-01, 0.1052383D-02, 0.1274453D-03,
785 + 0.1197358D-01, 0.1278152D-02, 0.1364337D-03,
786 + 0.1636572D-01, 0.1661868D-02, 0.1911371D-03,
787 + 0.1903486D-01, 0.1949365D-02, 0.2365329D-03,
788 + 0.2549000D-01, 0.2678687D-02, 0.3580925D-03,
789 + 0.2820758D-01, 0.2980457D-02, 0.4114234D-03,
790 + 0.3709858D-01, 0.3964979D-02, 0.5848546D-03,
791 + 0.4579694D-01, 0.4924896D-02, 0.7500401D-03,
792 + 0.5434155D-01, 0.5865502D-02, 0.9080527D-03,
793 + 0.6276812D-01, 0.6791399D-02, 0.1059851D-02,
794 + 0.7110417D-01, 0.7706069D-02, 0.1202185D-02/
795 DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) /
796 + 0.9622924D-02, 0.1006979D-02, 0.1033961D-03,
797 + 0.1158935D-01, 0.1239575D-02, 0.1142204D-03,
798 + 0.1606518D-01, 0.1630195D-02, 0.1658357D-03,
799 + 0.1877257D-01, 0.1921954D-02, 0.2078648D-03,
800 + 0.2528606D-01, 0.2658460D-02, 0.3189058D-03,
801 + 0.2801733D-01, 0.2961906D-02, 0.3672030D-03,
802 + 0.3692332D-01, 0.3948482D-02, 0.5233033D-03,
803 + 0.4560741D-01, 0.4907079D-02, 0.6711742D-03,
804 + 0.5412171D-01, 0.5844512D-02, 0.8123121D-03,
805 + 0.6250880D-01, 0.6766180D-02, 0.9483706D-03,
806 + 0.7079999D-01, 0.7676003D-02, 0.1079576D-02/
807 DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) /
808 + 0.9146037D-02, 0.9586166D-03, 0.8279114D-04,
809 + 0.1118984D-01, 0.1199183D-02, 0.9473437D-04,
810 + 0.1575466D-01, 0.1597227D-02, 0.1430530D-03,
811 + 0.1850232D-01, 0.1893508D-02, 0.1816995D-03,
812 + 0.2507520D-01, 0.2637382D-02, 0.2824857D-03,
813 + 0.2781954D-01, 0.2942452D-02, 0.3259477D-03,
814 + 0.3673635D-01, 0.3930649D-02, 0.4655528D-03,
815 + 0.4540055D-01, 0.4887307D-02, 0.5970734D-03,
816 + 0.5387853D-01, 0.5820898D-02, 0.7223289D-03,
817 + 0.6222016D-01, 0.6737665D-02, 0.8434945D-03,
818 + 0.7046065D-01, 0.7641985D-02, 0.9635346D-03/
819 DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) /
820 + 0.8639353D-02, 0.9068600D-03, 0.6529791D-04,
821 + 0.1077253D-01, 0.1156700D-02, 0.7772599D-04,
822 + 0.1543193D-01, 0.1562728D-02, 0.1225721D-03,
823 + 0.1822189D-01, 0.1863792D-02, 0.1578370D-03,
824 + 0.2485458D-01, 0.2615166D-02, 0.2486485D-03,
825 + 0.2761103D-01, 0.2921773D-02, 0.2874734D-03,
826 + 0.3653314D-01, 0.3911010D-02, 0.4114025D-03,
827 + 0.4517043D-01, 0.4864960D-02, 0.5275054D-03,
828 + 0.5360474D-01, 0.5793892D-02, 0.6378053D-03,
829 + 0.6189362D-01, 0.6704948D-02, 0.7445840D-03,
830 + 0.7007635D-01, 0.7602974D-02, 0.8515526D-03/
831 DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) /
832 + 0.8097853D-02, 0.8511551D-03, 0.5060323D-04,
833 + 0.1033647D-01, 0.1112007D-02, 0.6285172D-04,
834 + 0.1509471D-01, 0.1526449D-02, 0.1041970D-03,
835 + 0.1792878D-01, 0.1832549D-02, 0.1361005D-03,
836 + 0.2462094D-01, 0.2591474D-02, 0.2172318D-03,
837 + 0.2738810D-01, 0.2899482D-02, 0.2516174D-03,
838 + 0.3630841D-01, 0.3889008D-02, 0.3606749D-03,
839 + 0.4491017D-01, 0.4839302D-02, 0.4622659D-03,
840 + 0.5329193D-01, 0.5762589D-02, 0.5584833D-03,
841 + 0.6151933D-01, 0.6666957D-02, 0.6511047D-03,
842 + 0.6963580D-01, 0.7557742D-02, 0.7414816D-03/
843 DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) /
844 + 0.7514872D-02, 0.7907674D-03, 0.3841250D-04,
845 + 0.9873614D-02, 0.1064245D-02, 0.5014641D-04,
846 + 0.1473850D-01, 0.1487915D-02, 0.8776989D-04,
847 + 0.1761894D-01, 0.1799351D-02, 0.1163357D-03,
848 + 0.2436997D-01, 0.2565861D-02, 0.1880906D-03,
849 + 0.2714606D-01, 0.2875096D-02, 0.2182348D-03,
850 + 0.3605581D-01, 0.3863979D-02, 0.3132148D-03,
851 + 0.4461159D-01, 0.4809469D-02, 0.4011823D-03,
852 + 0.5293010D-01, 0.5725924D-02, 0.4842680D-03,
853 + 0.6108553D-01, 0.6622438D-02, 0.5640514D-03,
854 + 0.6912561D-01, 0.7504852D-02, 0.6412635D-03/
855 DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) /
856 + 0.6880619D-02, 0.7246115D-03, 0.2844760D-04,
857 + 0.9380667D-02, 0.1013034D-02, 0.3929549D-04,
858 + 0.1435947D-01, 0.1446701D-02, 0.7312048D-04,
859 + 0.1728859D-01, 0.1763800D-02, 0.9839339D-04,
860 + 0.2409705D-01, 0.2537849D-02, 0.1610956D-03,
861 + 0.2687972D-01, 0.2848077D-02, 0.1871983D-03,
862 + 0.3576791D-01, 0.3835137D-02, 0.2688886D-03,
863 + 0.4426491D-01, 0.4774415D-02, 0.3441027D-03,
864 + 0.5250722D-01, 0.5682603D-02, 0.4149649D-03,
865 + 0.6057806D-01, 0.6569860D-02, 0.4829946D-03,
866 + 0.6852953D-01, 0.7442548D-02, 0.5491281D-03/
867 DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) /
868 + 0.6175053D-02, 0.6504649D-03, 0.2044622D-04,
869 + 0.8848811D-02, 0.9573941D-03, 0.3013649D-04,
870 + 0.1395049D-01, 0.1402032D-02, 0.6010827D-04,
871 + 0.1693154D-01, 0.1725234D-02, 0.8214608D-04,
872 + 0.2379598D-01, 0.2506793D-02, 0.1361355D-03,
873 + 0.2658237D-01, 0.2817723D-02, 0.1583990D-03,
874 + 0.3543548D-01, 0.3801509D-02, 0.2275843D-03,
875 + 0.4385810D-01, 0.4732856D-02, 0.2909021D-03,
876 + 0.5200849D-01, 0.5631034D-02, 0.3504226D-03,
877 + 0.5997947D-01, 0.6507340D-02, 0.4076877D-03,
878 + 0.6782766D-01, 0.7368673D-02, 0.4644050D-03/
879 DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) /
880 + 0.5398744D-02, 0.5683946D-03, 0.1416060D-04,
881 + 0.8281431D-02, 0.8976869D-03, 0.2239874D-04,
882 + 0.1351845D-01, 0.1354687D-02, 0.4860597D-04,
883 + 0.1655331D-01, 0.1684299D-02, 0.6748272D-04,
884 + 0.2346726D-01, 0.2472803D-02, 0.1131140D-03,
885 + 0.2625230D-01, 0.2783907D-02, 0.1317435D-03,
886 + 0.3505035D-01, 0.3762254D-02, 0.1892110D-03,
887 + 0.4337771D-01, 0.4683367D-02, 0.2414809D-03,
888 + 0.5141607D-01, 0.5569306D-02, 0.2904725D-03,
889 + 0.5926806D-01, 0.6432540D-02, 0.3373234D-03,
890 + 0.6699463D-01, 0.7280485D-02, 0.3822983D-03/
891 DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) /
892 + 0.4588185D-02, 0.4824567D-03, 0.9356528D-05,
893 + 0.7692733D-02, 0.8355193D-03, 0.1615647D-04,
894 + 0.1306276D-01, 0.1304628D-02, 0.3850066D-04,
895 + 0.1614865D-01, 0.1640468D-02, 0.5429527D-04,
896 + 0.2309929D-01, 0.2434666D-02, 0.9194451D-04,
897 + 0.2587607D-01, 0.2745214D-02, 0.1071520D-03,
898 + 0.3459412D-01, 0.3715406D-02, 0.1537015D-03,
899 + 0.4280104D-01, 0.4623504D-02, 0.1957761D-03,
900 + 0.5070320D-01, 0.5494522D-02, 0.2351316D-03,
901 + 0.5841316D-01, 0.6342127D-02, 0.2728421D-03,
902 + 0.6599612D-01, 0.7174248D-02, 0.3096146D-03/
903 DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) /
904 + 0.3641422D-02, 0.3813268D-03, 0.5812531D-05,
905 + 0.7030305D-02, 0.7650499D-03, 0.1118915D-04,
906 + 0.1254823D-01, 0.1247977D-02, 0.2969350D-04,
907 + 0.1568961D-01, 0.1590694D-02, 0.4250254D-04,
908 + 0.2267060D-01, 0.2390098D-02, 0.7257038D-04,
909 + 0.2543256D-01, 0.2699404D-02, 0.8457547D-04,
910 + 0.3404272D-01, 0.3658409D-02, 0.1210229D-03,
911 + 0.4209881D-01, 0.4550128D-02, 0.1537602D-03,
912 + 0.4983488D-01, 0.5402912D-02, 0.1843363D-03,
913 + 0.5737408D-01, 0.6231706D-02, 0.2137833D-03,
914 + 0.6478584D-01, 0.7044951D-02, 0.2434280D-03/
915 DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) /
916 + 0.2442180D-02, 0.2520874D-03, 0.3318887D-05,
917 + 0.6246053D-02, 0.6809301D-03, 0.7439917D-05,
918 + 0.1194027D-01, 0.1180934D-02, 0.2212418D-04,
919 + 0.1514887D-01, 0.1532038D-02, 0.3205041D-04,
920 + 0.2215876D-01, 0.2336753D-02, 0.5495747D-04,
921 + 0.2489860D-01, 0.2644056D-02, 0.6398874D-04,
922 + 0.3336605D-01, 0.3588071D-02, 0.9117621D-04,
923 + 0.4123181D-01, 0.4459036D-02, 0.1154432D-03,
924 + 0.4876278D-01, 0.5289257D-02, 0.1379148D-03,
925 + 0.5609374D-01, 0.6095086D-02, 0.1579914D-03,
926 + 0.6329842D-01, 0.6885487D-02, 0.1694595D-03/
927 DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) /
928 + 0.2725973D-03, 0.1497779D-04, 0.1676913D-05,
929 + 0.4997874D-02, 0.5451269D-03, 0.4794887D-05,
930 + 0.1111990D-01, 0.1090347D-02, 0.1574706D-04,
931 + 0.1446766D-01, 0.1458127D-02, 0.2289941D-04,
932 + 0.2155396D-01, 0.2273767D-02, 0.3908881D-04,
933 + 0.2426704D-01, 0.2578614D-02, 0.4538793D-04,
934 + 0.3254323D-01, 0.3502312D-02, 0.6420119D-04,
935 + 0.4015768D-01, 0.4345752D-02, 0.8092218D-04,
936 + 0.4742446D-01, 0.5146848D-02, 0.9654040D-04,
937 + 0.5449197D-01, 0.5923595D-02, 0.1118682D-03,
938 + 0.6143754D-01, 0.6685400D-02, 0.1288652D-03/
939 DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) /
940 + 0.2031153D-03, 0.1116017D-04, 0.6982608D-06,
941 + 0.4974824D-02, 0.5453293D-03, 0.2608937D-05,
942 + 0.1105191D-01, 0.1083556D-02, 0.1014033D-04,
943 + 0.1431165D-01, 0.1443205D-02, 0.1469766D-04,
944 + 0.2112373D-01, 0.2231271D-02, 0.2478729D-04,
945 + 0.2371064D-01, 0.2522687D-02, 0.2865972D-04,
946 + 0.3157121D-01, 0.3401200D-02, 0.4014286D-04,
947 + 0.3879308D-01, 0.4201408D-02, 0.5031873D-04,
948 + 0.4569130D-01, 0.4961783D-02, 0.5985590D-04,
949 + 0.5240933D-01, 0.5699913D-02, 0.6945468D-04,
950 + 0.5901973D-01, 0.6424723D-02, 0.8133991D-04/
951 DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) /
952 + 0.1345390D-03, 0.7392253D-05, 0.2042386D-06,
953 + 0.4921615D-02, 0.5420251D-03, 0.7561732D-06,
954 + 0.1088284D-01, 0.1066024D-02, 0.5069232D-05,
955 + 0.1399945D-01, 0.1412158D-02, 0.7312571D-05,
956 + 0.2040805D-01, 0.2158973D-02, 0.1213798D-04,
957 + 0.2281829D-01, 0.2431431D-02, 0.1395974D-04,
958 + 0.3011432D-01, 0.3248235D-02, 0.1932136D-04,
959 + 0.3681532D-01, 0.3990908D-02, 0.2406288D-04,
960 + 0.4322868D-01, 0.4697631D-02, 0.2851021D-04,
961 + 0.4948774D-01, 0.5385024D-02, 0.3292002D-04,
962 + 0.5565732D-01, 0.6061184D-02, 0.3790388D-04/
963 DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) /
964 + 0.6684235D-04, 0.3672657D-05, 0.2520666D-07,
965 + 0.4787180D-02, 0.5296710D-03, 0.7858168D-08,
966 + 0.1047770D-01, 0.1023679D-02, 0.7086373D-06,
967 + 0.1333311D-01, 0.1344802D-02, 0.1007223D-05,
968 + 0.1907124D-01, 0.2021903D-02, 0.1626336D-05,
969 + 0.2120296D-01, 0.2264166D-02, 0.1856073D-05,
970 + 0.2763801D-01, 0.2986157D-02, 0.2528095D-05,
971 + 0.3356345D-01, 0.3642820D-02, 0.3119144D-05,
972 + 0.3925936D-01, 0.4270031D-02, 0.3576717D-05,
973 + 0.4483872D-01, 0.4882277D-02, 0.3037903D-05,
974 + 0.5035331D-01, 0.5486195D-02,-0.3139074D-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