]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/sfgsho.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
PDF version 8 added
[u/mrichter/AliRoot.git] / PDF / spdf / sfgsho.F
CommitLineData
21886bb6 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.2 1996/10/30 08:29:50 cernlib
6* Version 7.04
7*
8* Revision 1.1.1.1 1996/04/12 15:29:35 plothow
9* Version 7.01
10*
11*
12#include "pdf/pilot.h"
13 SUBROUTINE SFGSHO(X,Q,U,D,US,DS,S,C,B,G)
14C
15*****************************************************************
16* Subroutine returns the parton distributions in the photon in *
17* higher order. u,d etc. gives the actual distributions and *
18* not 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. *
22* Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 *
23*****************************************************************
24C
25#include "pdf/impdp.inc"
26 PARAMETER(NP=78,NQ=11,NARG=2)
27#include "pdf/expdp.inc"
28 + DBFINT,
29 + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP),
30 + XT(NARG),A(NP+NQ),QT(NQ)
31 DIMENSION NA(NARG)
32 EXTERNAL GSXCOR
33 SAVE SIG,QNS,GL,Y,ICALL
34 DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5,
35 * 1.0D6,1.0D7,1.0D8/
36 DATA ZEROD/0.D0/
37 DATA ICALL/0/
38 DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) /
39 + 0.6065650D+01, 0.1673511D-01, 0.2735557D+02,
40 + 0.1481312D+02, 0.2400233D-01, 0.7486941D+02,
41 + 0.9293111D+01, 0.3138266D-01, 0.9985361D+02,
42 + 0.2989254D+02, 0.4222596D-01, 0.1230775D+03,
43 + 0.4618080D+02, 0.5221972D-01, 0.2166799D+03,
44 + 0.5893127D+02, 0.5874368D-01, 0.2610377D+03,
45 + 0.1055808D+03, 0.8102559D-01, 0.4353956D+03,
46 + 0.1576617D+03, 0.1040283D+00, 0.6461963D+03,
47 + 0.2140912D+03, 0.1275606D+00, 0.8877358D+03,
48 + 0.2741096D+03, 0.1514974D+00, 0.1155378D+04,
49 + 0.3371538D+03, 0.1757520D+00, 0.1445374D+04/
50 DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) /
51 + 0.2088165D+01, 0.1036023D-01, 0.8723419D+01,
52 + 0.4225006D+01, 0.1475505D-01, 0.1941606D+02,
53 + 0.3339304D+01, 0.1994866D-01, 0.2310114D+02,
54 + 0.8486094D+01, 0.2711732D-01, 0.2970967D+02,
55 + 0.1273584D+02, 0.3351494D-01, 0.4668130D+02,
56 + 0.1583552D+02, 0.3769763D-01, 0.5517038D+02,
57 + 0.2682932D+02, 0.5180539D-01, 0.8690373D+02,
58 + 0.3868541D+02, 0.6613841D-01, 0.1228761D+03,
59 + 0.5120706D+02, 0.8061253D-01, 0.1619629D+03,
60 + 0.6425571D+02, 0.9517723D-01, 0.2033927D+03,
61 + 0.7772972D+02, 0.1098005D+00, 0.2466208D+03/
62 DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) /
63 + 0.1280238D+01, 0.8388687D-02, 0.5101070D+01,
64 + 0.2383706D+01, 0.1199014D-01, 0.1044092D+02,
65 + 0.2067960D+01, 0.1662210D-01, 0.1182869D+02,
66 + 0.4705948D+01, 0.2254763D-01, 0.1541149D+02,
67 + 0.6897929D+01, 0.2803397D-01, 0.2318680D+02,
68 + 0.8463400D+01, 0.3153630D-01, 0.2717897D+02,
69 + 0.1394875D+02, 0.4330472D-01, 0.4180924D+02,
70 + 0.1978188D+02, 0.5520337D-01, 0.5800315D+02,
71 + 0.2587715D+02, 0.6717250D-01, 0.7527982D+02,
72 + 0.3217454D+02, 0.7917807D-01, 0.9332840D+02,
73 + 0.3863046D+02, 0.9119967D-01, 0.1119399D+03/
74 DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) /
75 + 0.9302918D+00, 0.7335389D-02, 0.3575869D+01,
76 + 0.1639148D+01, 0.1051952D-01, 0.6947249D+01,
77 + 0.1502766D+01, 0.1484208D-01, 0.7627649D+01,
78 + 0.3188108D+01, 0.2006829D-01, 0.1001293D+02,
79 + 0.4587731D+01, 0.2507186D-01, 0.1467344D+02,
80 + 0.5576946D+01, 0.2820290D-01, 0.1711137D+02,
81 + 0.9016710D+01, 0.3870013D-01, 0.2593665D+02,
82 + 0.1264162D+02, 0.4928320D-01, 0.3556541D+02,
83 + 0.1640320D+02, 0.5990463D-01, 0.4572807D+02,
84 + 0.2026772D+02, 0.7053860D-01, 0.5625666D+02,
85 + 0.2421099D+02, 0.8117033D-01, 0.6704169D+02/
86 DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) /
87 + 0.7341829D+00, 0.6653940D-02, 0.2739483D+01,
88 + 0.1240866D+01, 0.9566919D-02, 0.5124557D+01,
89 + 0.1183022D+01, 0.1368404D-01, 0.5494513D+01,
90 + 0.2384678D+01, 0.1843840D-01, 0.7254667D+01,
91 + 0.3381126D+01, 0.2312477D-01, 0.1043191D+02,
92 + 0.4080611D+01, 0.2600844D-01, 0.1212016D+02,
93 + 0.6499412D+01, 0.3566051D-01, 0.1817709D+02,
94 + 0.9031486D+01, 0.4537145D-01, 0.2471753D+02,
95 + 0.1164555D+02, 0.5510174D-01, 0.3156858D+02,
96 + 0.1432000D+02, 0.6483074D-01, 0.3862542D+02,
97 + 0.1703953D+02, 0.7454720D-01, 0.4582131D+02/
98 DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) /
99 + 0.6084410D+00, 0.6166135D-02, 0.2212711D+01,
100 + 0.9945472D+00, 0.8883065D-02, 0.4017803D+01,
101 + 0.9783799D+00, 0.1283867D-01, 0.4227000D+01,
102 + 0.1892738D+01, 0.1725123D-01, 0.5606328D+01,
103 + 0.2651696D+01, 0.2169976D-01, 0.7943884D+01,
104 + 0.3181088D+01, 0.2440177D-01, 0.9202744D+01,
105 + 0.5003829D+01, 0.3343367D-01, 0.1368754D+02,
106 + 0.6901991D+01, 0.4250548D-01, 0.1849166D+02,
107 + 0.8853699D+01, 0.5158359D-01, 0.2349486D+02,
108 + 0.1084398D+02, 0.6065109D-01, 0.2862582D+02,
109 + 0.1286234D+02, 0.6969934D-01, 0.3384002D+02/
110 DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) /
111 + 0.5207982D+00, 0.5794293D-02, 0.1851154D+01,
112 + 0.8279024D+00, 0.8359971D-02, 0.3279824D+01,
113 + 0.8352991D+00, 0.1219818D-01, 0.3395676D+01,
114 + 0.1562856D+01, 0.1633236D-01, 0.4521039D+01,
115 + 0.2167241D+01, 0.2060156D-01, 0.6329528D+01,
116 + 0.2586669D+01, 0.2316071D-01, 0.7315240D+01,
117 + 0.4025714D+01, 0.3170613D-01, 0.1080662D+02,
118 + 0.5517890D+01, 0.4027804D-01, 0.1452216D+02,
119 + 0.7047054D+01, 0.4884713D-01, 0.1837359D+02,
120 + 0.8602262D+01, 0.5739923D-01, 0.2230954D+02,
121 + 0.1017592D+02, 0.6592748D-01, 0.2629850D+02/
122 DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) /
123 + 0.4561276D+00, 0.5498347D-02, 0.1587975D+01,
124 + 0.7080337D+00, 0.7942158D-02, 0.2755364D+01,
125 + 0.7298861D+00, 0.1168320D-01, 0.2813688D+01,
126 + 0.1327437D+01, 0.1559082D-01, 0.3758285D+01,
127 + 0.1824850D+01, 0.1971228D-01, 0.5208444D+01,
128 + 0.2168283D+01, 0.2215487D-01, 0.6007488D+01,
129 + 0.3343064D+01, 0.3030401D-01, 0.8823803D+01,
130 + 0.4556793D+01, 0.3846943D-01, 0.1180446D+02,
131 + 0.5797109D+01, 0.4662514D-01, 0.1488208D+02,
132 + 0.7055698D+01, 0.5475909D-01, 0.1801812D+02,
133 + 0.8326851D+01, 0.6286585D-01, 0.2118931D+02/
134 DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) /
135 + 0.4063894D+00, 0.5255330D-02, 0.1388031D+01,
136 + 0.6178786D+00, 0.7597823D-02, 0.2365005D+01,
137 + 0.6490827D+00, 0.1124494D-01, 0.2385734D+01,
138 + 0.1151646D+01, 0.1497336D-01, 0.3195698D+01,
139 + 0.1571178D+01, 0.1896419D-01, 0.4390163D+01,
140 + 0.1859430D+01, 0.2130983D-01, 0.5054904D+01,
141 + 0.2842955D+01, 0.2912866D-01, 0.7387858D+01,
142 + 0.3855926D+01, 0.3695479D-01, 0.9845208D+01,
143 + 0.4888587D+01, 0.4476535D-01, 0.1237404D+02,
144 + 0.5934431D+01, 0.5255023D-01, 0.1494452D+02,
145 + 0.6989035D+01, 0.6030523D-01, 0.1753891D+02/
146 DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) /
147 + 0.3669108D+00, 0.5050910D-02, 0.1231104D+01,
148 + 0.5477297D+00, 0.7307178D-02, 0.2064071D+01,
149 + 0.5845310D+00, 0.1088540D-01, 0.2059616D+01,
150 + 0.1015645D+01, 0.1444751D-01, 0.2765911D+01,
151 + 0.1376090D+01, 0.1833354D-01, 0.3770310D+01,
152 + 0.1622807D+01, 0.2059506D-01, 0.4334537D+01,
153 + 0.2462716D+01, 0.2812857D-01, 0.6307271D+01,
154 + 0.3325383D+01, 0.3566287D-01, 0.8376540D+01,
155 + 0.4202940D+01, 0.4317731D-01, 0.1049981D+02,
156 + 0.5090187D+01, 0.5066318D-01, 0.1265347D+02,
157 + 0.5983618D+01, 0.5811724D-01, 0.1482375D+02/
158 DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) /
159 + 0.2430186D+00, 0.4314023D-02, 0.7523072D+00,
160 + 0.3377715D+00, 0.6249551D-02, 0.1183329D+01,
161 + 0.3837406D+00, 0.9531402D-02, 0.1130697D+01,
162 + 0.6146161D+00, 0.1249180D-01, 0.1532368D+01,
163 + 0.8112021D+00, 0.1596203D-01, 0.2028064D+01,
164 + 0.9429896D+00, 0.1790703D-01, 0.2317788D+01,
165 + 0.1387883D+01, 0.2436676D-01, 0.3316495D+01,
166 + 0.1840164D+01, 0.3080363D-01, 0.4348077D+01,
167 + 0.2296647D+01, 0.3720595D-01, 0.5395572D+01,
168 + 0.2755311D+01, 0.4357046D-01, 0.6450140D+01,
169 + 0.3214868D+01, 0.4989738D-01, 0.7507156D+01/
170 DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) /
171 + 0.1877330D+00, 0.3918133D-02, 0.5472383D+00,
172 + 0.2498051D+00, 0.5673293D-02, 0.8258573D+00,
173 + 0.2960849D+00, 0.8751134D-02, 0.7670979D+00,
174 + 0.4499378D+00, 0.1139486D-01, 0.1044215D+01,
175 + 0.5851333D+00, 0.1460703D-01, 0.1356770D+01,
176 + 0.6736690D+00, 0.1637242D-01, 0.1544586D+01,
177 + 0.9710444D+00, 0.2222223D-01, 0.2186219D+01,
178 + 0.1271493D+01, 0.2803610D-01, 0.2842571D+01,
179 + 0.1573305D+01, 0.3380803D-01, 0.3504703D+01,
180 + 0.1875444D+01, 0.3953799D-01, 0.4168181D+01,
181 + 0.2177278D+01, 0.4522816D-01, 0.4830741D+01/
182 DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) /
183 + 0.1536570D+00, 0.3640366D-02, 0.4246642D+00,
184 + 0.1978402D+00, 0.5264835D-02, 0.6197465D+00,
185 + 0.2420744D+00, 0.8206276D-02, 0.5624516D+00,
186 + 0.3538099D+00, 0.1060189D-01, 0.7681583D+00,
187 + 0.4550185D+00, 0.1363207D-01, 0.9831431D+00,
188 + 0.5199088D+00, 0.1526445D-01, 0.1115647D+01,
189 + 0.7369921D+00, 0.2066525D-01, 0.1565027D+01,
190 + 0.9552516D+00, 0.2602315D-01, 0.2021111D+01,
191 + 0.1173696D+01, 0.3133545D-01, 0.2478795D+01,
192 + 0.1391756D+01, 0.3660403D-01, 0.2935698D+01,
193 + 0.1609106D+01, 0.4183217D-01, 0.3390712D+01/
194 DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) /
195 + 0.1307466D+00, 0.3430768D-02, 0.3446542D+00,
196 + 0.1642276D+00, 0.4953992D-02, 0.4896833D+00,
197 + 0.2061101D+00, 0.7783275D-02, 0.4361399D+00,
198 + 0.2923728D+00, 0.9988721D-02, 0.5970331D+00,
199 + 0.3731124D+00, 0.1287307D-01, 0.7552890D+00,
200 + 0.4238146D+00, 0.1440173D-01, 0.8549424D+00,
201 + 0.5929472D+00, 0.1945293D-01, 0.1191056D+01,
202 + 0.7624074D+00, 0.2445664D-01, 0.1530201D+01,
203 + 0.9315756D+00, 0.2941259D-01, 0.1869240D+01,
204 + 0.1100116D+01, 0.3432402D-01, 0.2206814D+01,
205 + 0.1267856D+01, 0.3919499D-01, 0.2542411D+01/
206 DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) /
207 + 0.1142303D+00, 0.3264050D-02, 0.2884674D+00,
208 + 0.1407451D+00, 0.4705052D-02, 0.4008395D+00,
209 + 0.1803555D+00, 0.7435805D-02, 0.3514833D+00,
210 + 0.2498652D+00, 0.9491595D-02, 0.4818864D+00,
211 + 0.3170887D+00, 0.1225274D-01, 0.6039667D+00,
212 + 0.3584874D+00, 0.1369704D-01, 0.6822623D+00,
213 + 0.4962908D+00, 0.1846406D-01, 0.9452117D+00,
214 + 0.6340090D+00, 0.2318019D-01, 0.1209350D+01,
215 + 0.7712347D+00, 0.2784719D-01, 0.1472646D+01,
216 + 0.9077632D+00, 0.3246936D-01, 0.1734274D+01,
217 + 0.1043501D+01, 0.3705138D-01, 0.1993933D+01/
218 DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) /
219 + 0.1016919D+00, 0.3126270D-02, 0.2467923D+00,
220 + 0.1233648D+00, 0.4498203D-02, 0.3364129D+00,
221 + 0.1609060D+00, 0.7144636D-02, 0.2909869D+00,
222 + 0.2185992D+00, 0.9074521D-02, 0.3994197D+00,
223 + 0.2763102D+00, 0.1173045D-01, 0.4967034D+00,
224 + 0.3111752D+00, 0.1310358D-01, 0.5601225D+00,
225 + 0.4270351D+00, 0.1763133D-01, 0.7723572D+00,
226 + 0.5425936D+00, 0.2210593D-01, 0.9847733D+00,
227 + 0.6575760D+00, 0.2653071D-01, 0.1196022D+01,
228 + 0.7718564D+00, 0.3091074D-01, 0.1405613D+01,
229 + 0.8853900D+00, 0.3525113D-01, 0.1613477D+01/
230 DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) /
231 + 0.9182438D-01, 0.3009235D-02, 0.2146909D+00,
232 + 0.1099809D+00, 0.4321725D-02, 0.2877548D+00,
233 + 0.1457158D+00, 0.6893122D-02, 0.2459586D+00,
234 + 0.1946893D+00, 0.8715689D-02, 0.3378464D+00,
235 + 0.2453717D+00, 0.1127961D-01, 0.4173046D+00,
236 + 0.2754281D+00, 0.1259139D-01, 0.4698735D+00,
237 + 0.3751792D+00, 0.1691322D-01, 0.6452820D+00,
238 + 0.4745191D+00, 0.2118032D-01, 0.8203104D+00,
239 + 0.5732574D+00, 0.2539727D-01, 0.9940447D+00,
240 + 0.6713176D+00, 0.2956980D-01, 0.1166189D+01,
241 + 0.7686830D+00, 0.3370330D-01, 0.1336708D+01/
242 DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) /
243 + 0.8383799D-01, 0.2907675D-02, 0.1892241D+00,
244 + 0.9935048D-01, 0.4168045D-02, 0.2498206D+00,
245 + 0.1334649D+00, 0.6672353D-02, 0.2112534D+00,
246 + 0.1757937D+00, 0.8401655D-02, 0.2903118D+00,
247 + 0.2210806D+00, 0.1088340D-01, 0.3564903D+00,
248 + 0.2474715D+00, 0.1214132D-01, 0.4008628D+00,
249 + 0.3349671D+00, 0.1628262D-01, 0.5485501D+00,
250 + 0.4219958D+00, 0.2036817D-01, 0.6955385D+00,
251 + 0.5084242D+00, 0.2440356D-01, 0.8412092D+00,
252 + 0.5942087D+00, 0.2839500D-01, 0.9854434D+00,
253 + 0.6793509D+00, 0.3234812D-01, 0.1128552D+01/
254 DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) /
255 + 0.7723206D-01, 0.2818058D-02, 0.1685560D+00,
256 + 0.9070309D-01, 0.4032067D-02, 0.2195174D+00,
257 + 0.1232904D+00, 0.6475505D-02, 0.1837747D+00,
258 + 0.1604877D+00, 0.8122404D-02, 0.2526959D+00,
259 + 0.2014971D+00, 0.1053004D-01, 0.3086819D+00,
260 + 0.2250217D+00, 0.1174002D-01, 0.3466962D+00,
261 + 0.3029397D+00, 0.1572088D-01, 0.4729392D+00,
262 + 0.3803591D+00, 0.1964536D-01, 0.5983037D+00,
263 + 0.4571906D+00, 0.2351989D-01, 0.7223719D+00,
264 + 0.5334144D+00, 0.2735105D-01, 0.8450831D+00,
265 + 0.6090437D+00, 0.3114464D-01, 0.9665902D+00/
266 DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) /
267 + 0.7166979D-01, 0.2737904D-02, 0.1514659D+00,
268 + 0.8352938D-01, 0.3910187D-02, 0.1948200D+00,
269 + 0.1147711D+00, 0.6297541D-02, 0.1616210D+00,
270 + 0.1478390D+00, 0.7871022D-02, 0.2223137D+00,
271 + 0.1854069D+00, 0.1021112D-01, 0.2703070D+00,
272 + 0.2066313D+00, 0.1137797D-01, 0.3032722D+00,
273 + 0.2768761D+00, 0.1521465D-01, 0.4125369D+00,
274 + 0.3466116D+00, 0.1899463D-01, 0.5208333D+00,
275 + 0.4157796D+00, 0.2272501D-01, 0.6278800D+00,
276 + 0.4843759D+00, 0.2641267D-01, 0.7336177D+00,
277 + 0.5524220D+00, 0.3006353D-01, 0.8378928D+00/
278 DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) /
279 + 0.6691647D-01, 0.2665407D-02, 0.1371127D+00,
280 + 0.7748023D-01, 0.3799770D-02, 0.1743523D+00,
281 + 0.1075640D+00, 0.6134855D-02, 0.1434916D+00,
282 + 0.1372090D+00, 0.7642610D-02, 0.1973353D+00,
283 + 0.1719627D+00, 0.9920397D-02, 0.2389568D+00,
284 + 0.1913020D+00, 0.1104810D-01, 0.2678341D+00,
285 + 0.2552737D+00, 0.1475406D-01, 0.3633965D+00,
286 + 0.3187415D+00, 0.1840319D-01, 0.4579583D+00,
287 + 0.3816664D+00, 0.2200316D-01, 0.5513343D+00,
288 + 0.4440552D+00, 0.2556111D-01, 0.6435294D+00,
289 + 0.5059347D+00, 0.2908306D-01, 0.7346384D+00/
290 DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) /
291 + 0.6280322D-01, 0.2599220D-02, 0.1248987D+00,
292 + 0.7230827D-01, 0.3698845D-02, 0.1571487D+00,
293 + 0.1012721D+00, 0.5984977D-02, 0.1283524D+00,
294 + 0.1281479D+00, 0.7433146D-02, 0.1764963D+00,
295 + 0.1605255D+00, 0.9653220D-02, 0.2129282D+00,
296 + 0.1783039D+00, 0.1074511D-01, 0.2384503D+00,
297 + 0.2370774D+00, 0.1433162D-01, 0.3227885D+00,
298 + 0.2953521D+00, 0.1786131D-01, 0.4061219D+00,
299 + 0.3531073D+00, 0.2134241D-01, 0.4883356D+00,
300 + 0.4103581D+00, 0.2478220D-01, 0.5694727D+00,
301 + 0.4671349D+00, 0.2818677D-01, 0.6497681D+00/
302 DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) /
303 + 0.5920566D-01, 0.2538310D-02, 0.1143875D+00,
304 + 0.6783383D-01, 0.3605897D-02, 0.1425133D+00,
305 + 0.9587391D-01, 0.5846810D-02, 0.1154861D+00,
306 + 0.1203243D+00, 0.7239886D-02, 0.1588972D+00,
307 + 0.1507296D+00, 0.9406499D-02, 0.1910425D+00,
308 + 0.1671840D+00, 0.1046534D-01, 0.2137761D+00,
309 + 0.2215643D+00, 0.1394179D-01, 0.2887921D+00,
310 + 0.2754635D+00, 0.1736169D-01, 0.3628156D+00,
311 + 0.3288700D+00, 0.2073360D-01, 0.4357847D+00,
312 + 0.3818032D+00, 0.2406498D-01, 0.5076579D+00,
313 + 0.4342943D+00, 0.2736193D-01, 0.5779003D+00/
314 DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) /
315 + 0.5602975D-01, 0.2481877D-02, 0.1052530D+00,
316 + 0.6392282D-01, 0.3519741D-02, 0.1299312D+00,
317 + 0.9098847D-01, 0.5718579D-02, 0.1045397D+00,
318 + 0.1135013D+00, 0.7060596D-02, 0.1438706D+00,
319 + 0.1421624D+00, 0.9177235D-02, 0.1724437D+00,
320 + 0.1574975D+00, 0.1020541D-01, 0.1928262D+00,
321 + 0.2081516D+00, 0.1357993D-01, 0.2600014D+00,
322 + 0.2583326D+00, 0.1689829D-01, 0.3262112D+00,
323 + 0.3080420D+00, 0.2016938D-01, 0.3914376D+00,
324 + 0.3573045D+00, 0.2340073D-01, 0.4556479D+00,
325 + 0.4061528D+00, 0.2659843D-01, 0.5181314D+00/
326 DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) /
327 + 0.5320339D-01, 0.2429285D-02, 0.9724709D-01,
328 + 0.6047362D-01, 0.3439436D-02, 0.1190152D+00,
329 + 0.8672179D-01, 0.5598116D-02, 0.9515747D-01,
330 + 0.1074955D+00, 0.6893428D-02, 0.1309197D+00,
331 + 0.1346727D+00, 0.8962708D-02, 0.1564870D+00,
332 + 0.1490360D+00, 0.9962359D-02, 0.1748654D+00,
333 + 0.1964665D+00, 0.1324214D-01, 0.2353754D+00,
334 + 0.2434399D+00, 0.1646624D-01, 0.2949560D+00,
335 + 0.2899643D+00, 0.1964379D-01, 0.3536189D+00,
336 + 0.3360674D+00, 0.2278239D-01, 0.4114122D+00,
337 + 0.3817828D+00, 0.2588812D-01, 0.4681676D+00/
338 DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) /
339 + 0.5067014D-01, 0.2380023D-02, 0.9017766D-01,
340 + 0.5740767D-01, 0.3364221D-02, 0.1094682D+00,
341 + 0.8294029D-01, 0.5484802D-02, 0.8701598D-01,
342 + 0.1021628D+00, 0.6736615D-02, 0.1196648D+00,
343 + 0.1280525D+00, 0.8761290D-02, 0.1426762D+00,
344 + 0.1415660D+00, 0.9734266D-02, 0.1593326D+00,
345 + 0.1861850D+00, 0.1292555D-01, 0.2141261D+00,
346 + 0.2303669D+00, 0.1606172D-01, 0.2680304D+00,
347 + 0.2741223D+00, 0.1915210D-01, 0.3210715D+00,
348 + 0.3174801D+00, 0.2220431D-01, 0.3733182D+00,
349 + 0.3604743D+00, 0.2522440D-01, 0.4248763D+00/
350 DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) /
351 + 0.4838525D-01, 0.2333673D-02, 0.8389354D-01,
352 + 0.5466325D-01, 0.3293475D-02, 0.1010585D+00,
353 + 0.7942896D-01, 0.5378205D-02, 0.7987463D-01,
354 + 0.9739343D-01, 0.6588836D-02, 0.1098106D+00,
355 + 0.1220999D+00, 0.8571672D-02, 0.1306276D+00,
356 + 0.1348752D+00, 0.9519577D-02, 0.1457940D+00,
357 + 0.1770428D+00, 0.1262781D-01, 0.1956462D+00,
358 + 0.2187841D+00, 0.1568160D-01, 0.2446509D+00,
359 + 0.2601163D+00, 0.1869039D-01, 0.2928437D+00,
360 + 0.3010706D+00, 0.2166182D-01, 0.3402504D+00,
361 + 0.3416809D+00, 0.2460189D-01, 0.3867162D+00/
362 DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) /
363 + 0.4631267D-01, 0.2289894D-02, 0.7827406D-01,
364 + 0.5219118D-01, 0.3226686D-02, 0.9360310D-01,
365 + 0.7630146D-01, 0.5276581D-02, 0.7356495D-01,
366 + 0.9310554D-01, 0.6449411D-02, 0.1011247D+00,
367 + 0.1167827D+00, 0.8392094D-02, 0.1200429D+00,
368 + 0.1289001D+00, 0.9316437D-02, 0.1339110D+00,
369 + 0.1688894D+00, 0.1234665D-01, 0.1794612D+00,
370 + 0.2084679D+00, 0.1532308D-01, 0.2242050D+00,
371 + 0.2476557D+00, 0.1825530D-01, 0.2681946D+00,
372 + 0.2864847D+00, 0.2115094D-01, 0.3115122D+00,
373 + 0.3249890D+00, 0.2401596D-01, 0.3542832D+00/
374 DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) /
375 + 0.3963995D-01, 0.2135454D-02, 0.6077375D-01,
376 + 0.4434767D-01, 0.2991513D-02, 0.7082573D-01,
377 + 0.6624326D-01, 0.4915647D-02, 0.5452637D-01,
378 + 0.7952175D-01, 0.5958057D-02, 0.7493513D-01,
379 + 0.1000133D+00, 0.7757855D-02, 0.8836736D-01,
380 + 0.1101170D+00, 0.8599883D-02, 0.9841307D-01,
381 + 0.1434479D+00, 0.1135815D-01, 0.1313303D+00,
382 + 0.1764247D+00, 0.1406569D-01, 0.1635950D+00,
383 + 0.2090732D+00, 0.1673228D-01, 0.1952974D+00,
384 + 0.2414257D+00, 0.1936536D-01, 0.2266835D+00,
385 + 0.2735150D+00, 0.2197062D-01, 0.2586619D+00/
386 DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) /
387 + 0.3473127D-01, 0.2005596D-02, 0.4855298D-01,
388 + 0.3868482D-01, 0.2794641D-02, 0.5535224D-01,
389 + 0.5871451D-01, 0.4611990D-02, 0.4189645D-01,
390 + 0.6970597D-01, 0.5546104D-02, 0.5749077D-01,
391 + 0.8790730D-01, 0.7226409D-02, 0.6749497D-01,
392 + 0.9663246D-01, 0.8000395D-02, 0.7507513D-01,
393 + 0.1254004D+00, 0.1053498D-01, 0.9987858D-01,
394 + 0.1538522D+00, 0.1302248D-01, 0.1241562D+00,
395 + 0.1820191D+00, 0.1547236D-01, 0.1479759D+00,
396 + 0.2099336D+00, 0.1789169D-01, 0.1713871D+00,
397 + 0.2376255D+00, 0.2028576D-01, 0.1942811D+00/
398 DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) /
399 + 0.3096272D-01, 0.1893419D-02, 0.3963485D-01,
400 + 0.3440060D-01, 0.2625488D-02, 0.4433935D-01,
401 + 0.5295932D-01, 0.4348357D-02, 0.3305527D-01,
402 + 0.6227508D-01, 0.5192441D-02, 0.4530292D-01,
403 + 0.7878427D-01, 0.6769381D-02, 0.5304958D-01,
404 + 0.8650020D-01, 0.7485907D-02, 0.5895900D-01,
405 + 0.1119368D+00, 0.9832260D-02, 0.7827856D-01,
406 + 0.1370931D+00, 0.1213530D-01, 0.9717233D-01,
407 + 0.1620007D+00, 0.1440397D-01, 0.1156999D+00,
408 + 0.1866905D+00, 0.1664484D-01, 0.1339078D+00,
409 + 0.2111894D+00, 0.1886280D-01, 0.1517285D+00/
410 DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) /
411 + 0.2795860D-01, 0.1794555D-02, 0.3285041D-01,
412 + 0.3102012D-01, 0.2477298D-02, 0.3613191D-01,
413 + 0.4834785D-01, 0.4115216D-02, 0.2656478D-01,
414 + 0.5639649D-01, 0.4882376D-02, 0.3636285D-01,
415 + 0.7157303D-01, 0.6368941D-02, 0.4252888D-01,
416 + 0.7851124D-01, 0.7036028D-02, 0.4724076D-01,
417 + 0.1013838D+00, 0.9220985D-02, 0.6263629D-01,
418 + 0.1240067D+00, 0.1136641D-01, 0.7768341D-01,
419 + 0.1464104D+00, 0.1348058D-01, 0.9243061D-01,
420 + 0.1686237D+00, 0.1556952D-01, 0.1069155D+00,
421 + 0.1906710D+00, 0.1763769D-01, 0.1211197D+00/
422 DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) /
423 + 0.2550812D-01, 0.1706341D-02, 0.2756726D-01,
424 + 0.2828616D-01, 0.2345881D-02, 0.2986518D-01,
425 + 0.4456303D-01, 0.3906355D-02, 0.2167934D-01,
426 + 0.5162542D-01, 0.4606805D-02, 0.2964358D-01,
427 + 0.6572278D-01, 0.6013698D-02, 0.3467294D-01,
428 + 0.7204419D-01, 0.6637753D-02, 0.3850438D-01,
429 + 0.9288541D-01, 0.8682663D-02, 0.5101891D-01,
430 + 0.1135038D+00, 0.1069176D-01, 0.6324522D-01,
431 + 0.1339278D+00, 0.1267255D-01, 0.7521787D-01,
432 + 0.1541835D+00, 0.1463047D-01, 0.8693566D-01,
433 + 0.1742932D+00, 0.1656957D-01, 0.9827354D-01/
434 DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) /
435 + 0.2346782D-01, 0.1626907D-02, 0.2335992D-01,
436 + 0.2602508D-01, 0.2228274D-02, 0.2496174D-01,
437 + 0.4139830D-01, 0.3717883D-02, 0.1790854D-01,
438 + 0.4766020D-01, 0.4359389D-02, 0.2446231D-01,
439 + 0.6086595D-01, 0.5695777D-02, 0.2864798D-01,
440 + 0.6668359D-01, 0.6281994D-02, 0.3181253D-01,
441 + 0.8586868D-01, 0.8204173D-02, 0.4214714D-01,
442 + 0.1048552D+00, 0.1009418D-01, 0.5224091D-01,
443 + 0.1236690D+00, 0.1195865D-01, 0.6211735D-01,
444 + 0.1423333D+00, 0.1380242D-01, 0.7174700D-01,
445 + 0.1608679D+00, 0.1562911D-01, 0.8092517D-01/
446 DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) /
447 + 0.2174052D-01, 0.1554922D-02, 0.1994644D-01,
448 + 0.2412138D-01, 0.2122341D-02, 0.2104650D-01,
449 + 0.3870388D-01, 0.3546495D-02, 0.1493920D-01,
450 + 0.4430282D-01, 0.4135457D-02, 0.2038137D-01,
451 + 0.5675727D-01, 0.5409177D-02, 0.2392391D-01,
452 + 0.6215470D-01, 0.5961907D-02, 0.2657063D-01,
453 + 0.7996025D-01, 0.7775788D-02, 0.3521395D-01,
454 + 0.9758952D-01, 0.9561009D-02, 0.4365453D-01,
455 + 0.1150648D+00, 0.1132327D-01, 0.5190911D-01,
456 + 0.1324067D+00, 0.1306682D-01, 0.5994190D-01,
457 + 0.1496328D+00, 0.1479486D-01, 0.6754249D-01/
458 DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) /
459 + 0.2026112D-01, 0.1489445D-02, 0.1714226D-01,
460 + 0.2249913D-01, 0.2026552D-02, 0.1787877D-01,
461 + 0.3637431D-01, 0.3389577D-02, 0.1257395D-01,
462 + 0.4142448D-01, 0.3931617D-02, 0.1712367D-01,
463 + 0.5323490D-01, 0.5149424D-02, 0.2016795D-01,
464 + 0.5827752D-01, 0.5672412D-02, 0.2240598D-01,
465 + 0.7491877D-01, 0.7390360D-02, 0.2971616D-01,
466 + 0.9140342D-01, 0.9082965D-02, 0.3685477D-01,
467 + 0.1077506D+00, 0.1075500D-01, 0.4383659D-01,
468 + 0.1239783D+00, 0.1241011D-01, 0.5064669D-01,
469 + 0.1401016D+00, 0.1405115D-01, 0.5716857D-01/
470 DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) /
471 + 0.1897928D-01, 0.1429733D-02, 0.1480575D-01,
472 + 0.2109989D-01, 0.1939687D-02, 0.1527502D-01,
473 + 0.3434731D-01, 0.3245061D-02, 0.1065428D-01,
474 + 0.3892485D-01, 0.3745247D-02, 0.1447877D-01,
475 + 0.5017955D-01, 0.4913054D-02, 0.1712695D-01,
476 + 0.5491741D-01, 0.5409554D-02, 0.1903599D-01,
477 + 0.7056040D-01, 0.7042225D-02, 0.2527338D-01,
478 + 0.8606525D-01, 0.8652645D-02, 0.3136426D-01,
479 + 0.1014476D+00, 0.1024466D-01, 0.3731765D-01,
480 + 0.1167225D+00, 0.1182137D-01, 0.4310605D-01,
481 + 0.1319030D+00, 0.1338523D-01, 0.4856615D-01/
482 DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) /
483 + 0.1786026D-01, 0.1375239D-02, 0.1284175D-01,
484 + 0.1988414D-01, 0.1860838D-02, 0.1311480D-01,
485 + 0.3257804D-01, 0.3111553D-02, 0.9077812D-02,
486 + 0.3673648D-01, 0.3574365D-02, 0.1231087D-01,
487 + 0.4751076D-01, 0.4697474D-02, 0.1463924D-01,
488 + 0.5198410D-01, 0.5170351D-02, 0.1628060D-01,
489 + 0.6676326D-01, 0.6727088D-02, 0.2164489D-01,
490 + 0.8142222D-01, 0.8264424D-02, 0.2688248D-01,
491 + 0.9597226D-01, 0.9785323D-02, 0.3199040D-01,
492 + 0.1104258D+00, 0.1129232D-01, 0.3687973D-01,
493 + 0.1247939D+00, 0.1278746D-01, 0.4114147D-01/
494 DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) /
495 + 0.1687667D-01, 0.1325525D-02, 0.1117568D-01,
496 + 0.1882082D-01, 0.1789262D-02, 0.1130437D-01,
497 + 0.3101532D-01, 0.2988451D-02, 0.7771350D-02,
498 + 0.3480674D-01, 0.3417267D-02, 0.1051495D-01,
499 + 0.4516156D-01, 0.4500583D-02, 0.1258078D-01,
500 + 0.4940417D-01, 0.4952347D-02, 0.1400123D-01,
501 + 0.6343101D-01, 0.6441374D-02, 0.1864500D-01,
502 + 0.7735425D-01, 0.7913638D-02, 0.2317885D-01,
503 + 0.9118083D-01, 0.9371229D-02, 0.2759768D-01,
504 + 0.1049204D+00, 0.1081616D-01, 0.3181773D-01,
505 + 0.1185825D+00, 0.1225015D-01, 0.3546369D-01/
506 DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) /
507 + 0.1600790D-01, 0.1280243D-02, 0.9752417D-02,
508 + 0.1788685D-01, 0.1724369D-02, 0.9775493D-02,
509 + 0.2962648D-01, 0.2875010D-02, 0.6681283D-02,
510 + 0.3309635D-01, 0.3272610D-02, 0.9015398D-02,
511 + 0.4308362D-01, 0.4320696D-02, 0.1086284D-01,
512 + 0.4712416D-01, 0.4753591D-02, 0.1209901D-01,
513 + 0.6049278D-01, 0.6182242D-02, 0.1614185D-01,
514 + 0.7377297D-01, 0.7596552D-02, 0.2008945D-01,
515 + 0.8696745D-01, 0.8997748D-02, 0.2394496D-01,
516 + 0.1000833D+00, 0.1038738D-01, 0.2769812D-01,
517 + 0.1131282D+00, 0.1176692D-01, 0.3128067D-01/
518 DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) /
519 + 0.1523772D-01, 0.1239113D-02, 0.8528992D-02,
520 + 0.1706416D-01, 0.1665670D-02, 0.8475568D-02,
521 + 0.2839349D-01, 0.2770231D-02, 0.5765168D-02,
522 + 0.3157419D-01, 0.3139319D-02, 0.7754231D-02,
523 + 0.4124089D-01, 0.4156408D-02, 0.9417515D-02,
524 + 0.4510345D-01, 0.4572478D-02, 0.1049851D-01,
525 + 0.5789349D-01, 0.5947373D-02, 0.1403532D-01,
526 + 0.7060934D-01, 0.7310097D-02, 0.1748913D-01,
527 + 0.8324938D-01, 0.8661061D-02, 0.2086697D-01,
528 + 0.9581807D-01, 0.1000138D-01, 0.2418921D-01,
529 + 0.1083215D+00, 0.1133226D-01, 0.2747728D-01/
530 DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) /
531 + 0.1455323D-01, 0.1201901D-02, 0.7471548D-02,
532 + 0.1633845D-01, 0.1612758D-02, 0.7363583D-02,
533 + 0.2729630D-01, 0.2673283D-02, 0.4990482D-02,
534 + 0.3021620D-01, 0.3016514D-02, 0.6686722D-02,
535 + 0.3960291D-01, 0.4006438D-02, 0.8192691D-02,
536 + 0.4330837D-01, 0.4407562D-02, 0.9141828D-02,
537 + 0.5558890D-01, 0.5734733D-02, 0.1224871D-01,
538 + 0.6780845D-01, 0.7051626D-02, 0.1528267D-01,
539 + 0.7996099D-01, 0.8357894D-02, 0.1824895D-01,
540 + 0.9204853D-01, 0.9654265D-02, 0.2115846D-01,
541 + 0.1040759D+00, 0.1094172D-01, 0.2396305D-01/
542 DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) /
543 + 0.1394419D-01, 0.1168415D-02, 0.6553553D-02,
544 + 0.1569844D-01, 0.1565289D-02, 0.6407801D-02,
545 + 0.2631675D-01, 0.2583498D-02, 0.4332239D-02,
546 + 0.2900352D-01, 0.2903465D-02, 0.5778616D-02,
547 + 0.3814479D-01, 0.3869698D-02, 0.7148648D-02,
548 + 0.4171183D-01, 0.4257617D-02, 0.7984910D-02,
549 + 0.5354388D-01, 0.5542592D-02, 0.1072379D-01,
550 + 0.6532679D-01, 0.6818882D-02, 0.1339810D-01,
551 + 0.7705033D-01, 0.8085467D-02, 0.1600921D-01,
552 + 0.8871432D-01, 0.9342752D-02, 0.1856095D-01,
553 + 0.1003230D+00, 0.1059164D-01, 0.2102536D-01/
554 DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) /
555 + 0.1340217D-01, 0.1138493D-02, 0.5753254D-02,
556 + 0.1513488D-01, 0.1522968D-02, 0.5582407D-02,
557 + 0.2543883D-01, 0.2499414D-02, 0.3769770D-02,
558 + 0.2791923D-01, 0.2799531D-02, 0.5002239D-02,
559 + 0.3684597D-01, 0.3744949D-02, 0.6253347D-02,
560 + 0.4029136D-01, 0.4121362D-02, 0.6992269D-02,
561 + 0.5172933D-01, 0.5369404D-02, 0.9413801D-02,
562 + 0.6312836D-01, 0.6609934D-02, 0.1177816D-01,
563 + 0.7447435D-01, 0.7841404D-02, 0.1408587D-01,
564 + 0.8576509D-01, 0.9063961D-02, 0.1634614D-01,
565 + 0.9700397D-01, 0.1027838D-01, 0.1857268D-01/
566 DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) /
567 + 0.1292036D-01, 0.1111996D-02, 0.5053260D-02,
568 + 0.1464030D-01, 0.1485543D-02, 0.4867025D-02,
569 + 0.2465190D-01, 0.2420667D-02, 0.3287046D-02,
570 + 0.2694984D-01, 0.2704141D-02, 0.4335943D-02,
571 + 0.3569077D-01, 0.3631560D-02, 0.5481896D-02,
572 + 0.3902959D-01, 0.3998062D-02, 0.6136356D-02,
573 + 0.5012212D-01, 0.5214033D-02, 0.8282538D-02,
574 + 0.6118419D-01, 0.6423222D-02, 0.1037843D-01,
575 + 0.7219820D-01, 0.7623707D-02, 0.1242835D-01,
576 + 0.8316006D-01, 0.8815451D-02, 0.1446010D-01,
577 + 0.9407152D-01, 0.9998979D-02, 0.1650448D-01/
578 DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) /
579 + 0.1249310D-01, 0.1088806D-02, 0.4439143D-02,
580 + 0.1420849D-01, 0.1452790D-02, 0.4244885D-02,
581 + 0.2395598D-01, 0.2350271D-02, 0.2871654D-02,
582 + 0.2608594D-01, 0.2617224D-02, 0.3761943D-02,
583 + 0.3466997D-01, 0.3530602D-02, 0.4814066D-02,
584 + 0.3791512D-01, 0.3888402D-02, 0.5394776D-02,
585 + 0.4870442D-01, 0.5076194D-02, 0.7300583D-02,
586 + 0.5947068D-01, 0.6257760D-02, 0.9161833D-02,
587 + 0.7019290D-01, 0.7430845D-02, 0.1098223D-01,
588 + 0.8086509D-01, 0.8595268D-02, 0.1278958D-01,
589 + 0.9148696D-01, 0.9751464D-02, 0.1461056D-01/
590 DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) /
591 + 0.1211569D-01, 0.1068819D-02, 0.3899017D-02,
592 + 0.1383428D-01, 0.1424514D-02, 0.3702315D-02,
593 + 0.2334240D-01, 0.2286572D-02, 0.2513208D-02,
594 + 0.2531619D-01, 0.2537027D-02, 0.3265929D-02,
595 + 0.3377093D-01, 0.3440771D-02, 0.4233571D-02,
596 + 0.3693428D-01, 0.3791115D-02, 0.4749537D-02,
597 + 0.4745892D-01, 0.4954590D-02, 0.6444375D-02,
598 + 0.5796663D-01, 0.6112073D-02, 0.8099326D-02,
599 + 0.6843322D-01, 0.7261087D-02, 0.9712690D-02,
600 + 0.7885111D-01, 0.8401411D-02, 0.1129342D-01,
601 + 0.8921855D-01, 0.9533566D-02, 0.1285285D-01/
602 DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) /
603 + 0.1178420D-01, 0.1051946D-02, 0.3422948D-02,
604 + 0.1351336D-01, 0.1400540D-02, 0.3227998D-02,
605 + 0.2279290D-01, 0.2222986D-02, 0.2202729D-02,
606 + 0.2462639D-01, 0.2459831D-02, 0.2836209D-02,
607 + 0.3297638D-01, 0.3358073D-02, 0.3727067D-02,
608 + 0.3606984D-01, 0.3702675D-02, 0.4185912D-02,
609 + 0.4636753D-01, 0.4846645D-02, 0.5694691D-02,
610 + 0.5665187D-01, 0.5983969D-02, 0.7168071D-02,
611 + 0.6689626D-01, 0.7112319D-02, 0.8603057D-02,
612 + 0.7709253D-01, 0.8231635D-02, 0.1000619D-01,
613 + 0.8723987D-01, 0.9342570D-02, 0.1139055D-01/
614 DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) /
615 + 0.1149529D-01, 0.1038107D-02, 0.3002565D-02,
616 + 0.1324203D-01, 0.1380712D-02, 0.2812477D-02,
617 + 0.2231491D-01, 0.2166749D-02, 0.1933013D-02,
618 + 0.2402455D-01, 0.2392620D-02, 0.2463026D-02,
619 + 0.3228866D-01, 0.3287488D-02, 0.3283484D-02,
620 + 0.3532220D-01, 0.3627406D-02, 0.3691709D-02,
621 + 0.4542445D-01, 0.4754858D-02, 0.5035658D-02,
622 + 0.5551528D-01, 0.5874617D-02, 0.6348246D-02,
623 + 0.6556622D-01, 0.6984737D-02, 0.7625089D-02,
624 + 0.7556887D-01, 0.8085398D-02, 0.8868126D-02,
625 + 0.8552402D-01, 0.9177392D-02, 0.1007870D-01/
626 DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) /
627 + 0.1124616D-01, 0.1027230D-02, 0.2630821D-02,
628 + 0.1301714D-01, 0.1364887D-02, 0.2447872D-02,
629 + 0.2192372D-01, 0.2129306D-02, 0.1698206D-02,
630 + 0.2352558D-01, 0.2345484D-02, 0.2138281D-02,
631 + 0.3171635D-01, 0.3236580D-02, 0.2893693D-02,
632 + 0.3469742D-01, 0.3571854D-02, 0.3256882D-02,
633 + 0.4462830D-01, 0.4683112D-02, 0.4454236D-02,
634 + 0.5454942D-01, 0.5786085D-02, 0.5623153D-02,
635 + 0.6443056D-01, 0.6879143D-02, 0.6749026D-02,
636 + 0.7426261D-01, 0.7962607D-02, 0.7789787D-02,
637 + 0.8404548D-01, 0.9037441D-02, 0.8669741D-02/
638 DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) /
639 + 0.1103438D-01, 0.1019251D-02, 0.2301676D-02,
640 + 0.1283600D-01, 0.1352933D-02, 0.2127479D-02,
641 + 0.2160814D-01, 0.2106366D-02, 0.1492965D-02,
642 + 0.2311523D-01, 0.2312986D-02, 0.1855069D-02,
643 + 0.3124109D-01, 0.3199316D-02, 0.2550045D-02,
644 + 0.3417664D-01, 0.3530047D-02, 0.2873027D-02,
645 + 0.4395954D-01, 0.4626038D-02, 0.3939551D-02,
646 + 0.5373416D-01, 0.5713649D-02, 0.4981035D-02,
647 + 0.6346823D-01, 0.6791305D-02, 0.5982809D-02,
648 + 0.7315179D-01, 0.7859351D-02, 0.6904523D-02,
649 + 0.8278356D-01, 0.8918864D-02, 0.7675607D-02/
650 DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) /
651 + 0.1085790D-01, 0.1014114D-02, 0.2009990D-02,
652 + 0.1269625D-01, 0.1344732D-02, 0.1845652D-02,
653 + 0.2135426D-01, 0.2092798D-02, 0.1313058D-02,
654 + 0.2277900D-01, 0.2289594D-02, 0.1607648D-02,
655 + 0.3084644D-01, 0.3170330D-02, 0.2246213D-02,
656 + 0.3374336D-01, 0.3496817D-02, 0.2533189D-02,
657 + 0.4340158D-01, 0.4579202D-02, 0.3482587D-02,
658 + 0.5305233D-01, 0.5653470D-02, 0.4411415D-02,
659 + 0.6266104D-01, 0.6717785D-02, 0.5321811D-02,
660 + 0.7221726D-01, 0.7772419D-02, 0.6251061D-02,
661 + 0.8171982D-01, 0.8818458D-02, 0.7268327D-02/
662 DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) /
663 + 0.1071493D-01, 0.1011762D-02, 0.1751324D-02,
664 + 0.1259582D-01, 0.1340170D-02, 0.1597551D-02,
665 + 0.2114501D-01, 0.2083862D-02, 0.1155694D-02,
666 + 0.2250576D-01, 0.2272187D-02, 0.1391240D-02,
667 + 0.3052386D-01, 0.3148043D-02, 0.1976923D-02,
668 + 0.3338967D-01, 0.3470956D-02, 0.2231526D-02,
669 + 0.4294638D-01, 0.4541916D-02, 0.3075710D-02,
670 + 0.5249434D-01, 0.5604904D-02, 0.3902668D-02,
671 + 0.6199733D-01, 0.6657812D-02, 0.4720710D-02,
672 + 0.7144511D-01, 0.7700821D-02, 0.5597501D-02,
673 + 0.8083810D-01, 0.8734850D-02, 0.6664278D-02/
674 DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) /
675 + 0.1060391D-01, 0.1012148D-02, 0.1521852D-02,
676 + 0.1253289D-01, 0.1339142D-02, 0.1379041D-02,
677 + 0.2097213D-01, 0.2077262D-02, 0.1017767D-02,
678 + 0.2228926D-01, 0.2259164D-02, 0.1201775D-02,
679 + 0.3026715D-01, 0.3131450D-02, 0.1737664D-02,
680 + 0.3310928D-01, 0.3451602D-02, 0.1963099D-02,
681 + 0.4258645D-01, 0.4513489D-02, 0.2712520D-02,
682 + 0.5205093D-01, 0.5567199D-02, 0.3446609D-02,
683 + 0.6146586D-01, 0.6610495D-02, 0.4164984D-02,
684 + 0.7082175D-01, 0.7643513D-02, 0.4898620D-02,
685 + 0.8012108D-01, 0.8666980D-02, 0.5723075D-02/
686 DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) /
687 + 0.1052348D-01, 0.1015224D-02, 0.1318255D-02,
688 + 0.1250582D-01, 0.1341546D-02, 0.1186564D-02,
689 + 0.2083739D-01, 0.2073792D-02, 0.8957586D-03,
690 + 0.2212933D-01, 0.2251047D-02, 0.1035754D-02,
691 + 0.3007323D-01, 0.3120552D-02, 0.1524534D-02,
692 + 0.3289816D-01, 0.3438624D-02, 0.1723670D-02,
693 + 0.4231527D-01, 0.4493469D-02, 0.2387608D-02,
694 + 0.5171338D-01, 0.5539663D-02, 0.3038195D-02,
695 + 0.6105570D-01, 0.6574927D-02, 0.3670457D-02,
696 + 0.7033358D-01, 0.7599475D-02, 0.4294804D-02,
697 + 0.7954992D-01, 0.8614127D-02, 0.4944872D-02/
698 DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) /
699 + 0.1047244D-01, 0.1020945D-02, 0.1137636D-02,
700 + 0.1251313D-01, 0.1347287D-02, 0.1017041D-02,
701 + 0.2073806D-01, 0.2073273D-02, 0.7876636D-03,
702 + 0.2202273D-01, 0.2247680D-02, 0.8901817D-03,
703 + 0.2993745D-01, 0.3114997D-02, 0.1334295D-02,
704 + 0.3275122D-01, 0.3431630D-02, 0.1509675D-02,
705 + 0.4212620D-01, 0.4481306D-02, 0.2096351D-02,
706 + 0.5147332D-01, 0.5521568D-02, 0.2671800D-02,
707 + 0.6075664D-01, 0.6550191D-02, 0.3231094D-02,
708 + 0.6996872D-01, 0.7567561D-02, 0.3784007D-02,
709 + 0.7911229D-01, 0.8574781D-02, 0.4352146D-02/
710 DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) /
711 + 0.1044972D-01, 0.1029268D-02, 0.9774779D-03,
712 + 0.1255350D-01, 0.1356273D-02, 0.8678135D-03,
713 + 0.2066992D-01, 0.2075333D-02, 0.6921957D-03,
714 + 0.2196562D-01, 0.2248788D-02, 0.7624932D-03,
715 + 0.2985471D-01, 0.3114351D-02, 0.1164232D-02,
716 + 0.3266315D-01, 0.3430154D-02, 0.1318104D-02,
717 + 0.4201273D-01, 0.4476414D-02, 0.1834815D-02,
718 + 0.5132261D-01, 0.5512165D-02, 0.2342132D-02,
719 + 0.6055876D-01, 0.6535352D-02, 0.2834267D-02,
720 + 0.6971592D-01, 0.7546567D-02, 0.3317937D-02,
721 + 0.7879832D-01, 0.8547100D-02, 0.3811467D-02/
722 DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) /
723 + 0.1045435D-01, 0.1040151D-02, 0.8355650D-03,
724 + 0.1262569D-01, 0.1368412D-02, 0.7365616D-03,
725 + 0.2063083D-01, 0.2079191D-02, 0.6075426D-03,
726 + 0.2195770D-01, 0.2254233D-02, 0.6504640D-03,
727 + 0.2982169D-01, 0.3118137D-02, 0.1011948D-02,
728 + 0.3263010D-01, 0.3433727D-02, 0.1146336D-02,
729 + 0.4196920D-01, 0.4478232D-02, 0.1599617D-02,
730 + 0.5125362D-01, 0.5510739D-02, 0.2045118D-02,
731 + 0.6045238D-01, 0.6529504D-02, 0.2475939D-02,
732 + 0.6956314D-01, 0.7535433D-02, 0.2893872D-02,
733 + 0.7859266D-01, 0.8530091D-02, 0.3307776D-02/
734 DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) /
735 + 0.1048546D-01, 0.1053547D-02, 0.7099625D-03,
736 + 0.1272853D-01, 0.1383614D-02, 0.6212702D-03,
737 + 0.2061648D-01, 0.2084243D-02, 0.5321479D-03,
738 + 0.2199796D-01, 0.2263852D-02, 0.5521804D-03,
739 + 0.2983434D-01, 0.3125919D-02, 0.8753955D-03,
740 + 0.3264772D-01, 0.3441904D-02, 0.9921320D-03,
741 + 0.4198977D-01, 0.4486207D-02, 0.1387869D-02,
742 + 0.5125865D-01, 0.5516554D-02, 0.1777270D-02,
743 + 0.6042770D-01, 0.6531715D-02, 0.2152616D-02,
744 + 0.6949834D-01, 0.7533032D-02, 0.2510341D-02,
745 + 0.7848012D-01, 0.8522533D-02, 0.2839263D-02/
746 DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) /
747 + 0.1054222D-01, 0.1069414D-02, 0.5989679D-03,
748 + 0.1286095D-01, 0.1401790D-02, 0.5201774D-03,
749 + 0.2061806D-01, 0.2090398D-02, 0.4647142D-03,
750 + 0.2208311D-01, 0.2277419D-02, 0.4659813D-03,
751 + 0.2988675D-01, 0.3137368D-02, 0.7528104D-03,
752 + 0.3271026D-01, 0.3454307D-02, 0.8535673D-03,
753 + 0.4206795D-01, 0.4499787D-02, 0.1197085D-02,
754 + 0.5132957D-01, 0.5528862D-02, 0.1535666D-02,
755 + 0.6047457D-01, 0.6541002D-02, 0.1862927D-02,
756 + 0.6950893D-01, 0.7538092D-02, 0.2181331D-02,
757 + 0.7844487D-01, 0.8522594D-02, 0.2492964D-02/
758 DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) /
759 + 0.1062383D-01, 0.1087704D-02, 0.5010861D-03,
760 + 0.1302189D-01, 0.1422854D-02, 0.4317422D-03,
761 + 0.2062839D-01, 0.2097339D-02, 0.4042136D-03,
762 + 0.2221038D-01, 0.2294751D-02, 0.3904274D-03,
763 + 0.2997359D-01, 0.3152120D-02, 0.6426976D-03,
764 + 0.3281234D-01, 0.3470540D-02, 0.7289981D-03,
765 + 0.4219737D-01, 0.4518421D-02, 0.1025129D-02,
766 + 0.5145813D-01, 0.5546887D-02, 0.1317569D-02,
767 + 0.6058253D-01, 0.6556350D-02, 0.1601980D-02,
768 + 0.6958259D-01, 0.7549350D-02, 0.1890736D-02,
769 + 0.7847460D-01, 0.8528807D-02, 0.2213008D-02/
770 DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) /
771 + 0.1072952D-01, 0.1108364D-02, 0.4150045D-03,
772 + 0.1321034D-01, 0.1446714D-02, 0.3546149D-03,
773 + 0.2064111D-01, 0.2104503D-02, 0.3498957D-03,
774 + 0.2237696D-01, 0.2315665D-02, 0.3242668D-03,
775 + 0.3008952D-01, 0.3169750D-02, 0.5437976D-03,
776 + 0.3294856D-01, 0.3490167D-02, 0.6170291D-03,
777 + 0.4237143D-01, 0.4541521D-02, 0.8701613D-03,
778 + 0.5163567D-01, 0.5569811D-02, 0.1120311D-02,
779 + 0.6074059D-01, 0.6576678D-02, 0.1360293D-02,
780 + 0.6970704D-01, 0.7565557D-02, 0.1584552D-02,
781 + 0.7856282D-01, 0.8540347D-02, 0.1764050D-02/
782 DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) /
783 + 0.1085850D-01, 0.1131334D-02, 0.3395707D-03,
784 + 0.1342532D-01, 0.1473281D-02, 0.2876105D-03,
785 + 0.2065245D-01, 0.2110415D-02, 0.3007357D-03,
786 + 0.2258702D-01, 0.2340195D-02, 0.2664124D-03,
787 + 0.3023235D-01, 0.3189620D-02, 0.4549792D-03,
788 + 0.3311621D-01, 0.3512596D-02, 0.5164340D-03,
789 + 0.4258475D-01, 0.4568415D-02, 0.7306088D-03,
790 + 0.5185369D-01, 0.5596713D-02, 0.9425278D-03,
791 + 0.6093653D-01, 0.6600713D-02, 0.1145295D-02,
792 + 0.6986260D-01, 0.7584754D-02, 0.1334739D-02,
793 + 0.7866288D-01, 0.8552918D-02, 0.1494378D-02/
794 DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) /
795 + 0.1095056D-01, 0.1146833D-02, 0.2973791D-03,
796 + 0.1357274D-01, 0.1491220D-02, 0.2504063D-03,
797 + 0.2065445D-01, 0.2112884D-02, 0.2723036D-03,
798 + 0.2274003D-01, 0.2357246D-02, 0.2340431D-03,
799 + 0.3033250D-01, 0.3202872D-02, 0.4041655D-03,
800 + 0.3323418D-01, 0.3527750D-02, 0.4588746D-03,
801 + 0.4273469D-01, 0.4586816D-02, 0.6506095D-03,
802 + 0.5200596D-01, 0.5615090D-02, 0.8405470D-03,
803 + 0.6107217D-01, 0.6617008D-02, 0.1023416D-02,
804 + 0.6996785D-01, 0.7597519D-02, 0.1204404D-02,
805 + 0.7872140D-01, 0.8560537D-02, 0.1404463D-02/
806 DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) /
807 + 0.1105116D-01, 0.1163187D-02, 0.2587327D-03,
808 + 0.1372991D-01, 0.1510159D-02, 0.2165202D-03,
809 + 0.2064613D-01, 0.2114270D-02, 0.2456066D-03,
810 + 0.2290573D-01, 0.2375356D-02, 0.2043327D-03,
811 + 0.3043651D-01, 0.3216581D-02, 0.3567473D-03,
812 + 0.3335829D-01, 0.3543591D-02, 0.4051492D-03,
813 + 0.4289395D-01, 0.4606211D-02, 0.5758095D-03,
814 + 0.5216669D-01, 0.5634336D-02, 0.7446848D-03,
815 + 0.6121353D-01, 0.6633858D-02, 0.9025874D-03,
816 + 0.7007667D-01, 0.7610632D-02, 0.1030998D-02,
817 + 0.7878929D-01, 0.8569376D-02, 0.1077537D-02/
818 DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) /
819 + 0.1116004D-01, 0.1180374D-02, 0.2234305D-03,
820 + 0.1389661D-01, 0.1530078D-02, 0.1857416D-03,
821 + 0.2063697D-01, 0.2115628D-02, 0.2203036D-03,
822 + 0.2308712D-01, 0.2394960D-02, 0.1771058D-03,
823 + 0.3054759D-01, 0.3230993D-02, 0.3125297D-03,
824 + 0.3349073D-01, 0.3560260D-02, 0.3550529D-03,
825 + 0.4306231D-01, 0.4626511D-02, 0.5059651D-03,
826 + 0.5233388D-01, 0.5654200D-02, 0.6558619D-03,
827 + 0.6135705D-01, 0.6650822D-02, 0.8028907D-03,
828 + 0.7018390D-01, 0.7623096D-02, 0.9665798D-03,
829 + 0.7885914D-01, 0.8575979D-02, 0.1203969D-02/
830 DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) /
831 + 0.1127693D-01, 0.1198365D-02, 0.1912908D-03,
832 + 0.1407266D-01, 0.1550955D-02, 0.1578765D-03,
833 + 0.2060949D-01, 0.2113887D-02, 0.1964569D-03,
834 + 0.2328407D-01, 0.2415770D-02, 0.1521849D-03,
835 + 0.3066088D-01, 0.3245210D-02, 0.2713597D-03,
836 + 0.3362771D-01, 0.3577086D-02, 0.3084104D-03,
837 + 0.4323691D-01, 0.4647330D-02, 0.4408168D-03,
838 + 0.5250398D-01, 0.5674290D-02, 0.5721364D-03,
839 + 0.6149764D-01, 0.6667425D-02, 0.6972495D-03,
840 + 0.7027970D-01, 0.7634560D-02, 0.8160472D-03,
841 + 0.7890062D-01, 0.8581299D-02, 0.9290159D-03/
842 DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) /
843 + 0.1140147D-01, 0.1217128D-02, 0.1621482D-03,
844 + 0.1425784D-01, 0.1572775D-02, 0.1327457D-03,
845 + 0.2055878D-01, 0.2109888D-02, 0.1737863D-03,
846 + 0.2349476D-01, 0.2437721D-02, 0.1294131D-03,
847 + 0.3077430D-01, 0.3259460D-02, 0.2330962D-03,
848 + 0.3376728D-01, 0.3594203D-02, 0.2650687D-03,
849 + 0.4341532D-01, 0.4668562D-02, 0.3801743D-03,
850 + 0.5267327D-01, 0.5694284D-02, 0.4942894D-03,
851 + 0.6162996D-01, 0.6683147D-02, 0.6019176D-03,
852 + 0.7035687D-01, 0.7644281D-02, 0.6974530D-03,
853 + 0.7890423D-01, 0.8584311D-02, 0.7580469D-03/
854 DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) /
855 + 0.1153327D-01, 0.1236620D-02, 0.1358542D-03,
856 + 0.1445202D-01, 0.1595521D-02, 0.1101834D-03,
857 + 0.2048052D-01, 0.2104457D-02, 0.1524725D-03,
858 + 0.2372376D-01, 0.2461083D-02, 0.1086476D-03,
859 + 0.3088459D-01, 0.3273838D-02, 0.1976499D-03,
860 + 0.3390647D-01, 0.3611625D-02, 0.2249100D-03,
861 + 0.4359434D-01, 0.4690013D-02, 0.3238549D-03,
862 + 0.5283727D-01, 0.5713785D-02, 0.4220202D-03,
863 + 0.6174823D-01, 0.6697353D-02, 0.5158874D-03,
864 + 0.7041217D-01, 0.7651341D-02, 0.6098137D-03,
865 + 0.7888968D-01, 0.8583534D-02, 0.7180615D-03/
866 DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) /
867 + 0.1167183D-01, 0.1256790D-02, 0.1122758D-03,
868 + 0.1465510D-01, 0.1619189D-02, 0.9003570D-04,
869 + 0.2037853D-01, 0.2094017D-02, 0.1321030D-03,
870 + 0.2396785D-01, 0.2485650D-02, 0.8975944D-04,
871 + 0.3099402D-01, 0.3287437D-02, 0.1648836D-03,
872 + 0.3404687D-01, 0.3628694D-02, 0.1877990D-03,
873 + 0.4377300D-01, 0.4711264D-02, 0.2716916D-03,
874 + 0.5299219D-01, 0.5732249D-02, 0.3548223D-03,
875 + 0.6184544D-01, 0.6709254D-02, 0.4334635D-03,
876 + 0.7043227D-01, 0.7654560D-02, 0.5080978D-03,
877 + 0.7882120D-01, 0.8576844D-02, 0.5797531D-03/
878 DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) /
879 + 0.1181647D-01, 0.1277565D-02, 0.9129428D-04,
880 + 0.1486710D-01, 0.1643782D-02, 0.7215919D-04,
881 + 0.2022955D-01, 0.2077429D-02, 0.1127025D-03,
882 + 0.2423278D-01, 0.2511646D-02, 0.7263067D-04,
883 + 0.3109528D-01, 0.3300031D-02, 0.1347201D-03,
884 + 0.3418277D-01, 0.3645241D-02, 0.1536427D-03,
885 + 0.4394674D-01, 0.4732059D-02, 0.2235573D-03,
886 + 0.5313173D-01, 0.5749129D-02, 0.2930308D-03,
887 + 0.6191258D-01, 0.6717955D-02, 0.3626658D-03,
888 + 0.7040595D-01, 0.7652672D-02, 0.4535676D-03,
889 + 0.7868964D-01, 0.8562632D-02, 0.6247552D-03/
890 DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) /
891 + 0.1196628D-01, 0.1298846D-02, 0.7280353D-04,
892 + 0.1508822D-01, 0.1669327D-02, 0.5641824D-04,
893 + 0.2002976D-01, 0.2055872D-02, 0.9438530D-04,
894 + 0.2451781D-01, 0.2539266D-02, 0.5715600D-04,
895 + 0.3118934D-01, 0.3311992D-02, 0.1071288D-03,
896 + 0.3431502D-01, 0.3661525D-02, 0.1223854D-03,
897 + 0.4411383D-01, 0.4752254D-02, 0.1793328D-03,
898 + 0.5325008D-01, 0.5763819D-02, 0.2355838D-03,
899 + 0.6193935D-01, 0.6722374D-02, 0.2884691D-03,
900 + 0.7031817D-01, 0.7644304D-02, 0.3390711D-03,
901 + 0.7847476D-01, 0.8540155D-02, 0.3905845D-03/
902 DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) /
903 + 0.1211980D-01, 0.1320475D-02, 0.5670526D-04,
904 + 0.1531890D-01, 0.1695875D-02, 0.4268258D-04,
905 + 0.1975773D-01, 0.2025696D-02, 0.7695441D-04,
906 + 0.2482848D-01, 0.2568552D-02, 0.4324056D-04,
907 + 0.3127177D-01, 0.3322650D-02, 0.8205078D-04,
908 + 0.3444048D-01, 0.3677119D-02, 0.9396410D-04,
909 + 0.4427030D-01, 0.4771465D-02, 0.1389470D-03,
910 + 0.5333876D-01, 0.5775471D-02, 0.1832372D-03,
911 + 0.6191156D-01, 0.6721027D-02, 0.2243437D-03,
912 + 0.7014885D-01, 0.7627193D-02, 0.2616205D-03,
913 + 0.7815062D-01, 0.8505841D-02, 0.2933832D-03/
914 DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) /
915 + 0.1227299D-01, 0.1342003D-02, 0.4289990D-04,
916 + 0.1555954D-01, 0.1723476D-02, 0.3082279D-04,
917 + 0.1936295D-01, 0.1984274D-02, 0.6042343D-04,
918 + 0.2516971D-01, 0.2600582D-02, 0.3080060D-04,
919 + 0.3133393D-01, 0.3332148D-02, 0.5947800D-04,
920 + 0.3455411D-01, 0.3692320D-02, 0.6835598D-04,
921 + 0.4441201D-01, 0.4789662D-02, 0.1023489D-03,
922 + 0.5338756D-01, 0.5783205D-02, 0.1357253D-03,
923 + 0.6181091D-01, 0.6712049D-02, 0.1667890D-03,
924 + 0.6987172D-01, 0.7598458D-02, 0.1963376D-03,
925 + 0.7768720D-01, 0.8455781D-02, 0.2259275D-03/
926 DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) /
927 + 0.1243137D-01, 0.1364048D-02, 0.3129244D-04,
928 + 0.1581572D-01, 0.1752757D-02, 0.2070323D-04,
929 + 0.1884552D-01, 0.1926498D-02, 0.4480547D-04,
930 + 0.2556812D-01, 0.2637158D-02, 0.1975675D-04,
931 + 0.3139065D-01, 0.3340494D-02, 0.3942602D-04,
932 + 0.3466979D-01, 0.3707470D-02, 0.4556351D-04,
933 + 0.4454300D-01, 0.4806847D-02, 0.6952895D-04,
934 + 0.5338652D-01, 0.5785771D-02, 0.9298713D-04,
935 + 0.6161238D-01, 0.6692699D-02, 0.1147661D-03,
936 + 0.6944466D-01, 0.7553868D-02, 0.1360036D-03,
937 + 0.7701357D-01, 0.8384460D-02, 0.1596615D-03/
938 DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) /
939 + 0.1252328D-01, 0.1378649D-02, 0.2163190D-04,
940 + 0.1604865D-01, 0.1779411D-02, 0.1214199D-04,
941 + 0.1804958D-01, 0.1839043D-02, 0.3014681D-04,
942 + 0.2602381D-01, 0.2677629D-02, 0.1004265D-04,
943 + 0.3142022D-01, 0.3346852D-02, 0.2195819D-04,
944 + 0.3477752D-01, 0.3722718D-02, 0.2563694D-04,
945 + 0.4465882D-01, 0.4823221D-02, 0.4054423D-04,
946 + 0.5331569D-01, 0.5781421D-02, 0.5514060D-04,
947 + 0.6127490D-01, 0.6658731D-02, 0.6863506D-04,
948 + 0.6880718D-01, 0.7486566D-02, 0.8193828D-04,
949 + 0.7606576D-01, 0.8282335D-02, 0.9740668D-04/
950 DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) /
951 + 0.1234791D-01, 0.1363494D-02, 0.1348928D-04,
952 + 0.1622263D-01, 0.1799507D-02, 0.4961565D-05,
953 + 0.1676115D-01, 0.1697429D-02, 0.1666435D-04,
954 + 0.2661140D-01, 0.2728740D-02, 0.1627666D-05,
955 + 0.3146012D-01, 0.3355362D-02, 0.7215678D-05,
956 + 0.3492982D-01, 0.3743962D-02, 0.8694667D-05,
957 + 0.4480030D-01, 0.4843537D-02, 0.1554571D-04,
958 + 0.5317078D-01, 0.5769960D-02, 0.2244054D-04,
959 + 0.6074226D-01, 0.6604301D-02, 0.2880538D-04,
960 + 0.6784808D-01, 0.7385162D-02, 0.3495122D-04,
961 + 0.7466155D-01, 0.8132980D-02, 0.4120636D-04/
962 DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) /
963 + 0.1211214D-01, 0.1341571D-02, 0.4373675D-05,
964 + 0.1661582D-01, 0.1843998D-02, 0.0000000D+00,
965 + 0.1456251D-01, 0.1453943D-02, 0.4857473D-05,
966 + 0.2778169D-01, 0.2834638D-02, 0.0000000D+00,
967 + 0.3179171D-01, 0.3398332D-02, 0.0000000D+00,
968 + 0.3543129D-01, 0.3806159D-02, 0.0000000D+00,
969 + 0.4519056D-01, 0.4893611D-02, 0.0000000D+00,
970 + 0.5302338D-01, 0.5760278D-02, 0.0000000D+00,
971 + 0.5993193D-01, 0.6521104D-02, 0.0000000D+00,
972 + 0.6634341D-01, 0.7225065D-02, 0.0000000D+00,
973 + 0.7246398D-01, 0.7895784D-02, 0.1451897D-05/
974******************************************************************
975 U = ZEROD
976 D = ZEROD
977 S = ZEROD
978 C = ZEROD
979 B = ZEROD
980 G = ZEROD
981*if x is out of range
982 IF((X.LT.5.0D-4).OR.(X.GT.0.95D0)) GOTO 90
983*******************************************************************
984 IF (ICALL.NE.1) THEN
985* get the x coordinates
986 CALL GSXCOR(Y,NP)
987 ICALL=1
988 END IF
989*
990 DO 30 IX=1,NP
991 A(IX)=Y(IX)
992 30 CONTINUE
993 DO 40 IQ=1,NQ
994 A(NP+IQ)=QT(IQ)
995 40 CONTINUE
996*
997 Q2 = Q*Q
998 NA(1)=NP
999 NA(2)=NQ
1000 XT(1)=X
1001 XT(2)=Q2
1002 XSIG=DBFINT(2,XT,NA,A,SIG)
1003 XQNS=DBFINT(2,XT,NA,A,QNS)
1004 G =DBFINT(2,XT,NA,A,GL)
1005*
1006 IF (Q2.LT.50.0D0) THEN
1007C Use three flavour evolution.
1008 U=(XSIG+9.0D0*XQNS)/6.0D0
1009 D=(XSIG-4.5D0*XQNS)/6.0D0
1010 S=D
1011 C=ZEROD
1012 B=ZEROD
1013*
1014 ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN
1015C Use four flavour evolution
1016 U=(XSIG+6.0D0*XQNS)/8.0D0
1017 D=(XSIG-6.0D0*XQNS)/8.0D0
1018 S=D
1019 C=U
1020 B=ZEROD
1021 ELSE
1022C Use five flavour evolution
1023 U=(XSIG+7.5D0*XQNS)/10.0D0
1024 D=(XSIG-5.0D0*XQNS)/10.0D0
1025 S=D
1026 C=U
1027 B=D
1028 ENDIF
1029 U=X*U
1030 US=U
1031 D=X*D
1032 DS=D
1033 S=X*S
1034 C=X*C
1035 B=X*B
1036 G=X*G
1037 90 RETURN
1038 END