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