* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:29:53 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:36 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFGSLO2(X,Q,U,D,US,DS,S,C,B,G) ***************************************************************** * Subroutine returns the parton distributions in the photon in * * leading order. u,d etc. gives * * x times the distributions; Q2 means Q 2. The distributions* * are valid for 5.0e -4< x < 1.0 and 5.3 GeV 2 < Q 2 < 1.0e 8. * * if higher Q 2 or lower x is required, these may be obtained * * from the authors on request. ISET=1 chooses a harder gluon * * distribution. * * Lionel Gordon July 1991 : Gordon@uk.ac.man.ph.v2 * ***************************************************************** C #include "pdf/impdp.inc" PARAMETER(NP=78,NQ=11,NARG=2) #include "pdf/expdp.inc" + DBFINT, + SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP), + XT(NARG),A(NP+NQ),QT(NQ) DIMENSION NA(NARG) EXTERNAL GSXCOR SAVE SIG,QNS,GL,Y,ICALL DATA QT /5.3D0,20.0D0,50.0D0,1.0D2,5.0D2,1.0D3,1.0D4,1.0D5, * 1.0D6,1.0D7,1.0D8/ DATA ZEROD/0.D0/ DATA ICALL/0/ DATA (SIG(1 ,K),QNS(1 ,K),GL(1 ,K), K=1,11) / + 0.1001201D+02, 0.2955027D-01, 0.4014422D+02, + 0.1520649D+02, 0.3565433D-01, 0.1411348D+03, + 0.2269219D+02, 0.4652600D-01, 0.2346022D+03, + 0.3111953D+02, 0.5015592D-01, 0.3130608D+03, + 0.5771281D+02, 0.6232776D-01, 0.5168353D+03, + 0.7032112D+02, 0.6714210D-01, 0.6089606D+03, + 0.1168419D+03, 0.8328690D-01, 0.9274825D+03, + 0.1683443D+03, 0.9962358D-01, 0.1256198D+04, + 0.2230113D+03, 0.1161127D+00, 0.1588646D+04, + 0.2797452D+03, 0.1327265D+00, 0.1921691D+04, + 0.3378567D+03, 0.1494446D+00, 0.2253792D+04/ DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) / + 0.3454344D+01, 0.1859512D-01, 0.1329268D+02, + 0.5322830D+01, 0.2254013D-01, 0.3691824D+02, + 0.7867405D+01, 0.3080488D-01, 0.5637647D+02, + 0.1057068D+02, 0.3310206D-01, 0.7157190D+02, + 0.1864028D+02, 0.4156727D-01, 0.1080786D+03, + 0.2228195D+02, 0.4484870D-01, 0.1236305D+03, + 0.3509851D+02, 0.5585410D-01, 0.1743656D+03, + 0.4852821D+02, 0.6698711D-01, 0.2233706D+03, + 0.6221161D+02, 0.7821754D-01, 0.2706978D+03, + 0.7597015D+02, 0.8952515D-01, 0.3165699D+03, + 0.8971333D+02, 0.1008956D+00, 0.3612254D+03/ DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) / + 0.2121281D+01, 0.1513978D-01, 0.7928871D+01, + 0.3229393D+01, 0.1842273D-01, 0.1973442D+02, + 0.4685472D+01, 0.2574320D-01, 0.2897214D+02, + 0.6172252D+01, 0.2762416D-01, 0.3595784D+02, + 0.1048352D+02, 0.3485581D-01, 0.5219241D+02, + 0.1237995D+02, 0.3763255D-01, 0.5894186D+02, + 0.1889984D+02, 0.4693942D-01, 0.8047654D+02, + 0.2555286D+02, 0.5634555D-01, 0.1007941D+03, + 0.3220530D+02, 0.6582623D-01, 0.1201395D+03, + 0.3880233D+02, 0.7536519D-01, 0.1387318D+03, + 0.4532360D+02, 0.8495111D-01, 0.1567431D+03/ DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) / + 0.1543464D+01, 0.1326884D-01, 0.5632548D+01, + 0.2316019D+01, 0.1619202D-01, 0.1304977D+02, + 0.3307298D+01, 0.2295312D-01, 0.1866749D+02, + 0.4288005D+01, 0.2460686D-01, 0.2282806D+02, + 0.7077272D+01, 0.3113984D-01, 0.3229663D+02, + 0.8282985D+01, 0.3363265D-01, 0.3617478D+02, + 0.1236456D+02, 0.4198262D-01, 0.4838806D+02, + 0.1645833D+02, 0.5041463D-01, 0.5976289D+02, + 0.2050364D+02, 0.5890765D-01, 0.7051933D+02, + 0.2448171D+02, 0.6744798D-01, 0.8082289D+02, + 0.2839022D+02, 0.7602622D-01, 0.9079259D+02/ DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) / + 0.1219433D+01, 0.1204527D-01, 0.4358105D+01, + 0.1805245D+01, 0.1473045D-01, 0.9572778D+01, + 0.2544387D+01, 0.2109975D-01, 0.1342878D+02, + 0.3256197D+01, 0.2260316D-01, 0.1624080D+02, + 0.5251921D+01, 0.2866164D-01, 0.2254296D+02, + 0.6103218D+01, 0.3096262D-01, 0.2509699D+02, + 0.8952094D+01, 0.3866571D-01, 0.3306903D+02, + 0.1177368D+02, 0.4643894D-01, 0.4043243D+02, + 0.1453848D+02, 0.5426396D-01, 0.4736932D+02, + 0.1724163D+02, 0.6212893D-01, 0.5400590D+02, + 0.1988677D+02, 0.7002579D-01, 0.6042843D+02/ DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) / + 0.1011531D+01, 0.1116152D-01, 0.3547886D+01, + 0.1479381D+01, 0.1367256D-01, 0.7468752D+01, + 0.2062511D+01, 0.1974278D-01, 0.1031370D+02, + 0.2610758D+01, 0.2113642D-01, 0.1236271D+02, + 0.4130833D+01, 0.2684110D-01, 0.1690005D+02, + 0.4772286D+01, 0.2899967D-01, 0.1872401D+02, + 0.6899490D+01, 0.3622243D-01, 0.2438008D+02, + 0.8985679D+01, 0.4350645D-01, 0.2957468D+02, + 0.1101682D+02, 0.5083547D-01, 0.3445816D+02, + 0.1299419D+02, 0.5819908D-01, 0.3912936D+02, + 0.1492357D+02, 0.6559021D-01, 0.4365351D+02/ DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) / + 0.8665296D+00, 0.1048272D-01, 0.2987500D+01, + 0.1253585D+01, 0.1285820D-01, 0.6070546D+01, + 0.1731670D+01, 0.1868786D-01, 0.8272797D+01, + 0.2171419D+01, 0.1999625D-01, 0.9842484D+01, + 0.3379709D+01, 0.2542164D-01, 0.1328421D+02, + 0.3884986D+01, 0.2746820D-01, 0.1465882D+02, + 0.5548106D+01, 0.3431315D-01, 0.1890005D+02, + 0.7166167D+01, 0.4121241D-01, 0.2277959D+02, + 0.8733556D+01, 0.4815142D-01, 0.2642291D+02, + 0.1025445D+02, 0.5512090D-01, 0.2990938D+02, + 0.1173527D+02, 0.6211456D-01, 0.3328994D+02/ DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) / + 0.7594660D+00, 0.9938753D-02, 0.2576934D+01, + 0.1087976D+01, 0.1220429D-01, 0.5080088D+01, + 0.1491041D+01, 0.1783343D-01, 0.6844357D+01, + 0.1854323D+01, 0.1907289D-01, 0.8090606D+01, + 0.2845068D+01, 0.2426914D-01, 0.1080037D+02, + 0.3256133D+01, 0.2622410D-01, 0.1187689D+02, + 0.4600628D+01, 0.3276007D-01, 0.1518524D+02, + 0.5899998D+01, 0.3934474D-01, 0.1820276D+02, + 0.7153488D+01, 0.4596494D-01, 0.2103550D+02, + 0.8366651D+01, 0.5261231D-01, 0.2374855D+02, + 0.9545962D+01, 0.5928123D-01, 0.2638268D+02/ DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) / + 0.6770721D+00, 0.9489263D-02, 0.2263260D+01, + 0.9613553D+00, 0.1166290D-01, 0.4345114D+01, + 0.1308470D+01, 0.1712059D-01, 0.5795414D+01, + 0.1615381D+01, 0.1830263D-01, 0.6811776D+01, + 0.2447169D+01, 0.2330556D-01, 0.9005742D+01, + 0.2789900D+01, 0.2518346D-01, 0.9873459D+01, + 0.3904803D+01, 0.3145953D-01, 0.1253167D+02, + 0.4976195D+01, 0.3777964D-01, 0.1495128D+02, + 0.6006228D+01, 0.4413179D-01, 0.1722302D+02, + 0.7001065D+01, 0.5050841D-01, 0.1940113D+02, + 0.7966968D+01, 0.5690443D-01, 0.2151895D+02/ DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) / + 0.6116338D+00, 0.9109087D-02, 0.2015847D+01, + 0.8614222D+00, 0.1120419D-01, 0.3780118D+01, + 0.1165383D+01, 0.1651245D-01, 0.4996497D+01, + 0.1429281D+01, 0.1764553D-01, 0.5842898D+01, + 0.2140716D+01, 0.2248192D-01, 0.7658350D+01, + 0.2432047D+01, 0.2429359D-01, 0.8373641D+01, + 0.3375248D+01, 0.3034633D-01, 0.1055928D+02, + 0.4277221D+01, 0.3643916D-01, 0.1254599D+02, + 0.5141894D+01, 0.4256109D-01, 0.1441219D+02, + 0.5975632D+01, 0.4870525D-01, 0.1620376D+02, + 0.6784374D+01, 0.5486701D-01, 0.1794838D+02/ DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) / + 0.4059278D+00, 0.7720371D-02, 0.1252160D+01, + 0.5524353D+00, 0.9520617D-02, 0.2138338D+01, + 0.7304612D+00, 0.1424226D-01, 0.2725357D+01, + 0.8721845D+00, 0.1519313D-01, 0.3122568D+01, + 0.1247831D+01, 0.1939320D-01, 0.3954914D+01, + 0.1397945D+01, 0.2095338D-01, 0.4278952D+01, + 0.1875680D+01, 0.2615850D-01, 0.5262935D+01, + 0.2324999D+01, 0.3138939D-01, 0.6157547D+01, + 0.2752009D+01, 0.3663897D-01, 0.7003358D+01, + 0.3162024D+01, 0.4190285D-01, 0.7822107D+01, + 0.3559128D+01, 0.4717811D-01, 0.8625999D+01/ DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) / + 0.3138786D+00, 0.6961782D-02, 0.9201018D+00, + 0.4175822D+00, 0.8594582D-02, 0.1478793D+01, + 0.5450424D+00, 0.1296489D-01, 0.1839103D+01, + 0.6396218D+00, 0.1381361D-01, 0.2078171D+01, + 0.8886108D+00, 0.1764489D-01, 0.2571802D+01, + 0.9865214D+00, 0.1906050D-01, 0.2762852D+01, + 0.1295061D+01, 0.2377881D-01, 0.3342346D+01, + 0.1582732D+01, 0.2851540D-01, 0.3871711D+01, + 0.1855141D+01, 0.3326538D-01, 0.4376209D+01, + 0.2116481D+01, 0.3802572D-01, 0.4868533D+01, + 0.2369736D+01, 0.4279440D-01, 0.5355356D+01/ DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) / + 0.2570156D+00, 0.6424484D-02, 0.7196354D+00, + 0.3357928D+00, 0.7935347D-02, 0.1101251D+01, + 0.4343536D+00, 0.1204144D-01, 0.1341759D+01, + 0.5027834D+00, 0.1281637D-01, 0.1498570D+01, + 0.6825307D+00, 0.1637578D-01, 0.1818445D+01, + 0.7522866D+00, 0.1768538D-01, 0.1941829D+01, + 0.9705584D+00, 0.2204705D-01, 0.2316552D+01, + 0.1172936D+01, 0.2642202D-01, 0.2661374D+01, + 0.1364290D+01, 0.3080692D-01, 0.2993047D+01, + 0.1547962D+01, 0.3519968D-01, 0.3319452D+01, + 0.1726212D+01, 0.3959887D-01, 0.3644363D+01/ DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) / + 0.2187037D+00, 0.6016589D-02, 0.5875905D+00, + 0.2816192D+00, 0.7432679D-02, 0.8646647D+00, + 0.3620820D+00, 0.1132833D-01, 0.1036109D+01, + 0.4146359D+00, 0.1204625D-01, 0.1146303D+01, + 0.5529318D+00, 0.1539231D-01, 0.1369183D+01, + 0.6060635D+00, 0.1661907D-01, 0.1455123D+01, + 0.7716201D+00, 0.2070237D-01, 0.1717133D+01, + 0.9247498D+00, 0.2479544D-01, 0.1960536D+01, + 0.1069604D+01, 0.2889609D-01, 0.2196948D+01, + 0.1208881D+01, 0.3300291D-01, 0.2431482D+01, + 0.1344335D+01, 0.3711492D-01, 0.2666339D+01/ DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) / + 0.1910339D+00, 0.5691203D-02, 0.4941807D+00, + 0.2430614D+00, 0.7030179D-02, 0.7040123D+00, + 0.3112376D+00, 0.1075136D-01, 0.8318765D+00, + 0.3533130D+00, 0.1142309D-01, 0.9130735D+00, + 0.4645427D+00, 0.1459422D-01, 0.1076339D+01, + 0.5069412D+00, 0.1575330D-01, 0.1139405D+01, + 0.6387553D+00, 0.1960939D-01, 0.1332763D+01, + 0.7606292D+00, 0.2347269D-01, 0.1514336D+01, + 0.8761060D+00, 0.2734189D-01, 0.1692424D+01, + 0.9873938D+00, 0.3121611D-01, 0.1870447D+01, + 0.1095889D+01, 0.3509468D-01, 0.2049772D+01/ DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) / + 0.1699968D+00, 0.5422205D-02, 0.4244849D+00, + 0.2141108D+00, 0.6696302D-02, 0.5880855D+00, + 0.2734098D+00, 0.1026865D-01, 0.6864454D+00, + 0.3081069D+00, 0.1090162D-01, 0.7482291D+00, + 0.4004274D+00, 0.1392474D-01, 0.8719418D+00, + 0.4353949D+00, 0.1502672D-01, 0.9198927D+00, + 0.5439979D+00, 0.1869130D-01, 0.1067925D+01, + 0.6445016D+00, 0.2236121D-01, 0.1208568D+01, + 0.7399485D+00, 0.2603582D-01, 0.1347858D+01, + 0.8321728D+00, 0.2971465D-01, 0.1488103D+01, + 0.9223059D+00, 0.3339726D-01, 0.1630155D+01/ DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) / + 0.1534201D+00, 0.5194013D-02, 0.3705261D+00, + 0.1915611D+00, 0.6412141D-02, 0.5009002D+00, + 0.2441567D+00, 0.9854891D-02, 0.5783718D+00, + 0.2734244D+00, 0.1045455D-01, 0.6265323D+00, + 0.3519204D+00, 0.1334956D-01, 0.7226887D+00, + 0.3814976D+00, 0.1440224D-01, 0.7601378D+00, + 0.4733550D+00, 0.1790164D-01, 0.8766831D+00, + 0.5585145D+00, 0.2140495D-01, 0.9887897D+00, + 0.6396077D+00, 0.2491211D-01, 0.1100889D+01, + 0.7181760D+00, 0.2842295D-01, 0.1214539D+01, + 0.7951503D+00, 0.3193720D-01, 0.1330315D+01/ DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) / + 0.1399899D+00, 0.4996552D-02, 0.3275291D+00, + 0.1731927D+00, 0.6167692D-02, 0.4340010D+00, + 0.2207540D+00, 0.9494216D-02, 0.4954290D+00, + 0.2459049D+00, 0.1006453D-01, 0.5336054D+00, + 0.3139559D+00, 0.1284644D-01, 0.6097657D+00, + 0.3394857D+00, 0.1385573D-01, 0.6396229D+00, + 0.4188169D+00, 0.1720995D-01, 0.7334046D+00, + 0.4925338D+00, 0.2056710D-01, 0.8247958D+00, + 0.5629318D+00, 0.2392755D-01, 0.9170436D+00, + 0.6313219D+00, 0.2729132D-01, 0.1011140D+01, + 0.6984795D+00, 0.3065829D-01, 0.1107299D+01/ DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) / + 0.1288726D+00, 0.4823027D-02, 0.2924954D+00, + 0.1582516D+00, 0.5951372D-02, 0.3803488D+00, + 0.2017119D+00, 0.9174189D-02, 0.4299174D+00, + 0.2236416D+00, 0.9718425D-02, 0.4606436D+00, + 0.2835536D+00, 0.1239938D-01, 0.5219588D+00, + 0.3059492D+00, 0.1336999D-01, 0.5461822D+00, + 0.3756168D+00, 0.1659500D-01, 0.6230339D+00, + 0.4405324D+00, 0.1982223D-01, 0.6989289D+00, + 0.5027102D+00, 0.2305239D-01, 0.7762398D+00, + 0.5632748D+00, 0.2628567D-01, 0.8555841D+00, + 0.6228783D+00, 0.2952202D-01, 0.9370841D+00/ DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) / + 0.1195067D+00, 0.4668611D-02, 0.2634232D+00, + 0.1459540D+00, 0.5757013D-02, 0.3361955D+00, + 0.1859438D+00, 0.8886667D-02, 0.3770460D+00, + 0.2052912D+00, 0.9407497D-02, 0.4021068D+00, + 0.2587058D+00, 0.1199735D-01, 0.4521596D+00, + 0.2786141D+00, 0.1293315D-01, 0.4721025D+00, + 0.3406394D+00, 0.1604188D-01, 0.5360476D+00, + 0.3986129D+00, 0.1915233D-01, 0.6000513D+00, + 0.4543102D+00, 0.2226547D-01, 0.6658290D+00, + 0.5087024D+00, 0.2538162D-01, 0.7337234D+00, + 0.5623424D+00, 0.2850081D-01, 0.8037858D+00/ DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) / + 0.1115000D+00, 0.4529753D-02, 0.2389279D+00, + 0.1354715D+00, 0.5582175D-02, 0.2998531D+00, + 0.1726061D+00, 0.8626354D-02, 0.3337488D+00, + 0.1898548D+00, 0.9125881D-02, 0.3543789D+00, + 0.2379985D+00, 0.1163264D-01, 0.3956722D+00, + 0.2558984D+00, 0.1253674D-01, 0.4122870D+00, + 0.3117678D+00, 0.1553977D-01, 0.4661722D+00, + 0.3641574D+00, 0.1854419D-01, 0.5208510D+00, + 0.4146409D+00, 0.2155121D-01, 0.5775262D+00, + 0.4640623D+00, 0.2456123D-01, 0.6362971D+00, + 0.5128937D+00, 0.2757431D-01, 0.6969613D+00/ DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) / + 0.1045704D+00, 0.4403776D-02, 0.2180216D+00, + 0.1264625D+00, 0.5423210D-02, 0.2693866D+00, + 0.1611852D+00, 0.8388596D-02, 0.2977345D+00, + 0.1766999D+00, 0.8868589D-02, 0.3148528D+00, + 0.2204938D+00, 0.1129899D-01, 0.3492297D+00, + 0.2367438D+00, 0.1217403D-01, 0.3632144D+00, + 0.2875661D+00, 0.1508022D-01, 0.4091231D+00, + 0.3353824D+00, 0.1798767D-01, 0.4563585D+00, + 0.3815939D+00, 0.2089771D-01, 0.5057280D+00, + 0.4269380D+00, 0.2381081D-01, 0.5571908D+00, + 0.4718204D+00, 0.2672705D-01, 0.6105771D+00/ DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) / + 0.9850968D-01, 0.4288634D-02, 0.1999812D+00, + 0.1186304D+00, 0.5277643D-02, 0.2435429D+00, + 0.1512908D+00, 0.8169893D-02, 0.2673986D+00, + 0.1653534D+00, 0.8631858D-02, 0.2816943D+00, + 0.2055072D+00, 0.1099163D-01, 0.3105319D+00, + 0.2203819D+00, 0.1183982D-01, 0.3224077D+00, + 0.2670045D+00, 0.1465673D-01, 0.3618959D+00, + 0.3110175D+00, 0.1747486D-01, 0.4030974D+00, + 0.3536738D+00, 0.2029568D-01, 0.4465096D+00, + 0.3956206D+00, 0.2311969D-01, 0.4919991D+00, + 0.4372080D+00, 0.2594695D-01, 0.5394946D+00/ DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) / + 0.9316059D-01, 0.4182739D-02, 0.1842643D+00, + 0.1117564D+00, 0.5143512D-02, 0.2213859D+00, + 0.1426326D+00, 0.7967487D-02, 0.2415615D+00, + 0.1554647D+00, 0.8412716D-02, 0.2535626D+00, + 0.1925343D+00, 0.1070676D-01, 0.2779095D+00, + 0.2062482D+00, 0.1153004D-01, 0.2880726D+00, + 0.2493299D+00, 0.1426414D-01, 0.3223246D+00, + 0.2901372D+00, 0.1699957D-01, 0.3585681D+00, + 0.3297940D+00, 0.1973785D-01, 0.3970448D+00, + 0.3688706D+00, 0.2247949D-01, 0.4374617D+00, + 0.4076700D+00, 0.2522453D-01, 0.4793542D+00/ DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) / + 0.8840203D-01, 0.4084798D-02, 0.1704574D+00, + 0.1056724D+00, 0.5019246D-02, 0.2022156D+00, + 0.1349903D+00, 0.7779162D-02, 0.2193450D+00, + 0.1467682D+00, 0.8208777D-02, 0.2294611D+00, + 0.1811965D+00, 0.1044138D-01, 0.2501289D+00, + 0.1939192D+00, 0.1124141D-01, 0.2588857D+00, + 0.2339811D+00, 0.1389834D-01, 0.2888182D+00, + 0.2720542D+00, 0.1655680D-01, 0.3209401D+00, + 0.3091497D+00, 0.1921835D-01, 0.3552901D+00, + 0.3457722D+00, 0.2188346D-01, 0.3914645D+00, + 0.3821843D+00, 0.2455215D-01, 0.4287555D+00/ DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) / + 0.8413926D-01, 0.3993766D-02, 0.1582394D+00, + 0.1002512D+00, 0.4903506D-02, 0.1854837D+00, + 0.1281925D+00, 0.7603098D-02, 0.2000798D+00, + 0.1390593D+00, 0.8018091D-02, 0.2086339D+00, + 0.1712030D+00, 0.1019300D-01, 0.2262595D+00, + 0.1830711D+00, 0.1097125D-01, 0.2338503D+00, + 0.2205311D+00, 0.1355597D-01, 0.2601833D+00, + 0.2562476D+00, 0.1614251D-01, 0.2888437D+00, + 0.2911329D+00, 0.1873241D-01, 0.3197191D+00, + 0.3256345D+00, 0.2132612D-01, 0.3524311D+00, + 0.3599817D+00, 0.2392361D-01, 0.3866583D+00/ DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) / + 0.8029707D-01, 0.3908799D-02, 0.1473567D+00, + 0.9537854D-01, 0.4795466D-02, 0.1708152D+00, + 0.1220997D+00, 0.7437878D-02, 0.1832541D+00, + 0.1321744D+00, 0.7839115D-02, 0.1905007D+00, + 0.1623256D+00, 0.9959630D-02, 0.2055876D+00, + 0.1734507D+00, 0.1071739D-01, 0.2122029D+00, + 0.2086491D+00, 0.1323427D-01, 0.2355091D+00, + 0.2423157D+00, 0.1575333D-01, 0.2612353D+00, + 0.2752756D+00, 0.1827610D-01, 0.2891524D+00, + 0.3079269D+00, 0.2080293D-01, 0.3189559D+00, + 0.3404705D+00, 0.2333377D-01, 0.3509009D+00/ DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) / + 0.7681481D-01, 0.3829185D-02, 0.1376068D+00, + 0.9094260D-01, 0.4694826D-02, 0.1579894D+00, + 0.1165959D+00, 0.7282431D-02, 0.1684734D+00, + 0.1259785D+00, 0.7670647D-02, 0.1746107D+00, + 0.1543817D+00, 0.9739644D-02, 0.1875565D+00, + 0.1648563D+00, 0.1047805D-01, 0.1933487D+00, + 0.1980744D+00, 0.1293096D-01, 0.2140889D+00, + 0.2299434D+00, 0.1538651D-01, 0.2373064D+00, + 0.2612120D+00, 0.1784613D-01, 0.2626651D+00, + 0.2922347D+00, 0.2031013D-01, 0.2898076D+00, + 0.3231866D+00, 0.2277836D-01, 0.3188580D+00/ DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) / + 0.6563249D-01, 0.3553842D-02, 0.1071211D+00, + 0.7687253D-01, 0.4344396D-02, 0.1188363D+00, + 0.9913771D-01, 0.6737095D-02, 0.1240514D+00, + 0.1064470D+00, 0.7079776D-02, 0.1272095D+00, + 0.1295831D+00, 0.8966957D-02, 0.1344169D+00, + 0.1381085D+00, 0.9637479D-02, 0.1379772D+00, + 0.1653914D+00, 0.1186663D-01, 0.1516436D+00, + 0.1918587D+00, 0.1410071D-01, 0.1677900D+00, + 0.2180257D+00, 0.1634065D-01, 0.1858221D+00, + 0.2441185D+00, 0.1858630D-01, 0.2052059D+00, + 0.2702366D+00, 0.2083721D-01, 0.2253880D+00/ DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) / + 0.5745195D-01, 0.3329610D-02, 0.8571566D-01, + 0.6691286D-01, 0.4053258D-02, 0.9162973D-01, + 0.8659933D-01, 0.6281751D-02, 0.9449410D-01, + 0.9251953D-01, 0.6587201D-02, 0.9606259D-01, + 0.1120911D+00, 0.8322260D-02, 0.1001608D+00, + 0.1193075D+00, 0.8936588D-02, 0.1024678D+00, + 0.1426012D+00, 0.1098131D-01, 0.1120144D+00, + 0.1654209D+00, 0.1303371D-01, 0.1238726D+00, + 0.1881228D+00, 0.1509395D-01, 0.1373875D+00, + 0.2108504D+00, 0.1716134D-01, 0.1522449D+00, + 0.2336608D+00, 0.1923504D-01, 0.1690019D+00/ DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) / + 0.5121423D-01, 0.3141632D-02, 0.7002328D-01, + 0.5929283D-01, 0.3810202D-02, 0.7278127D-01, + 0.7706797D-01, 0.5892148D-02, 0.7402337D-01, + 0.8202420D-01, 0.6166357D-02, 0.7467312D-01, + 0.9905594D-01, 0.7770454D-02, 0.7697902D-01, + 0.1053459D+00, 0.8337058D-02, 0.7854215D-01, + 0.1258043D+00, 0.1022598D-01, 0.8555079D-01, + 0.1460121D+00, 0.1212572D-01, 0.9465327D-01, + 0.1662154D+00, 0.1403543D-01, 0.1051685D+00, + 0.1865021D+00, 0.1595377D-01, 0.1167079D+00, + 0.2068994D+00, 0.1787944D-01, 0.1293049D+00/ DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) / + 0.4627884D-01, 0.2980345D-02, 0.5804462D-01, + 0.5329282D-01, 0.3601038D-02, 0.5887774D-01, + 0.6952907D-01, 0.5550300D-02, 0.5908614D-01, + 0.7377469D-01, 0.5798186D-02, 0.5918727D-01, + 0.8887936D-01, 0.7287629D-02, 0.6040659D-01, + 0.9447064D-01, 0.7813082D-02, 0.6149783D-01, + 0.1127827D+00, 0.9568307D-02, 0.6682454D-01, + 0.1309997D+00, 0.1133764D-01, 0.7402402D-01, + 0.1492878D+00, 0.1311908D-01, 0.8242603D-01, + 0.1676954D+00, 0.1491057D-01, 0.9160433D-01, + 0.1862289D+00, 0.1671035D-01, 0.1012248D+00/ DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) / + 0.4228387D-01, 0.2839738D-02, 0.4868885D-01, + 0.4847489D-01, 0.3417714D-02, 0.4828291D-01, + 0.6341530D-01, 0.5245120D-02, 0.4790069D-01, + 0.6712223D-01, 0.5470888D-02, 0.4768746D-01, + 0.8071581D-01, 0.6858821D-02, 0.4826157D-01, + 0.8576344D-01, 0.7348466D-02, 0.4905161D-01, + 0.1023992D+00, 0.8987869D-02, 0.5324048D-01, + 0.1190524D+00, 0.1064470D-01, 0.5909014D-01, + 0.1358284D+00, 0.1231569D-01, 0.6596951D-01, + 0.1527466D+00, 0.1399804D-01, 0.7350542D-01, + 0.1697994D+00, 0.1568951D-01, 0.8145751D-01/ DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) / + 0.3898201D-01, 0.2715516D-02, 0.4122074D-01, + 0.4451036D-01, 0.3255044D-02, 0.4002824D-01, + 0.5833130D-01, 0.4968902D-02, 0.3930819D-01, + 0.6162013D-01, 0.5176222D-02, 0.3891877D-01, + 0.7399134D-01, 0.6473489D-02, 0.3910787D-01, + 0.7860309D-01, 0.6931774D-02, 0.3969960D-01, + 0.9389021D-01, 0.8470166D-02, 0.4308815D-01, + 0.1092782D+00, 0.1002922D-01, 0.4794264D-01, + 0.1248253D+00, 0.1160436D-01, 0.5367902D-01, + 0.1405293D+00, 0.1319202D-01, 0.5997478D-01, + 0.1563720D+00, 0.1478951D-01, 0.6667523D-01/ DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) / + 0.3620467D-01, 0.2604545D-02, 0.3515068D-01, + 0.4118562D-01, 0.3109293D-02, 0.3347064D-01, + 0.5401587D-01, 0.4716059D-02, 0.3256553D-01, + 0.5697474D-01, 0.4908211D-02, 0.3208403D-01, + 0.6833256D-01, 0.6123980D-02, 0.3204709D-01, + 0.7258683D-01, 0.6554697D-02, 0.3250517D-01, + 0.8676436D-01, 0.8004632D-02, 0.3531221D-01, + 0.1011063D+00, 0.9478311D-02, 0.3940955D-01, + 0.1156335D+00, 0.1096981D-01, 0.4426129D-01, + 0.1303267D+00, 0.1247482D-01, 0.4958064D-01, + 0.1451598D+00, 0.1399024D-01, 0.5523203D-01/ DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) / + 0.3383804D-01, 0.2504547D-02, 0.3015674D-01, + 0.3835829D-01, 0.2977869D-02, 0.2820794D-01, + 0.5029646D-01, 0.4482603D-02, 0.2720574D-01, + 0.5299354D-01, 0.4662583D-02, 0.2668533D-01, + 0.6349794D-01, 0.5804804D-02, 0.2652439D-01, + 0.6745509D-01, 0.6211264D-02, 0.2689187D-01, + 0.8070773D-01, 0.7583632D-02, 0.2926830D-01, + 0.9417375D-01, 0.8982609D-02, 0.3277807D-01, + 0.1078435D+00, 0.1040093D-01, 0.3693279D-01, + 0.1216845D+00, 0.1183356D-01, 0.4147453D-01, + 0.1356646D+00, 0.1327699D-01, 0.4626441D-01/ DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) / + 0.3179372D-01, 0.2413689D-02, 0.2599155D-01, + 0.3591975D-01, 0.2858401D-02, 0.2391202D-01, + 0.4704078D-01, 0.4265274D-02, 0.2287115D-01, + 0.4952917D-01, 0.4435867D-02, 0.2234399D-01, + 0.5930292D-01, 0.5511552D-02, 0.2212101D-01, + 0.6300963D-01, 0.5896684D-02, 0.2242528D-01, + 0.7548074D-01, 0.7201047D-02, 0.2447195D-01, + 0.8820342D-01, 0.8534602D-02, 0.2751278D-01, + 0.1011429D+00, 0.9888763D-02, 0.3110564D-01, + 0.1142560D+00, 0.1125784D-01, 0.3502572D-01, + 0.1275058D+00, 0.1263796D-01, 0.3916763D-01/ DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) / + 0.3001005D-01, 0.2330582D-02, 0.2248794D-01, + 0.3379539D-01, 0.2749075D-02, 0.2036682D-01, + 0.4415900D-01, 0.4061637D-02, 0.1933175D-01, + 0.4648239D-01, 0.4225478D-02, 0.1881904D-01, + 0.5562508D-01, 0.5240939D-02, 0.1857500D-01, + 0.5911952D-01, 0.5607385D-02, 0.1883509D-01, + 0.7092657D-01, 0.6852289D-02, 0.2062499D-01, + 0.8301479D-01, 0.8128628D-02, 0.2328576D-01, + 0.9532842D-01, 0.9426562D-02, 0.2641913D-01, + 0.1078157D+00, 0.1073979D-01, 0.2983252D-01, + 0.1204362D+00, 0.1206413D-01, 0.3346303D-01/ DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) / + 0.2843806D-01, 0.2254077D-02, 0.1951482D-01, + 0.3192511D-01, 0.2648428D-02, 0.1740943D-01, + 0.4158013D-01, 0.3869728D-02, 0.1641025D-01, + 0.4377509D-01, 0.4029322D-02, 0.1592473D-01, + 0.5236858D-01, 0.4990304D-02, 0.1568488D-01, + 0.5568235D-01, 0.5340468D-02, 0.1591352D-01, + 0.6692266D-01, 0.6533609D-02, 0.1749867D-01, + 0.7846669D-01, 0.7760040D-02, 0.1984530D-01, + 0.9024108D-01, 0.9008754D-02, 0.2258858D-01, + 0.1021872D+00, 0.1027291D-01, 0.2549587D-01, + 0.1142619D+00, 0.1154809D-01, 0.2818174D-01/ DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) / + 0.2704053D-01, 0.2183239D-02, 0.1697489D-01, + 0.3026434D-01, 0.2555356D-02, 0.1492445D-01, + 0.3925138D-01, 0.3688008D-02, 0.1397970D-01, + 0.4134945D-01, 0.3845756D-02, 0.1352881D-01, + 0.4946303D-01, 0.4757546D-02, 0.1330879D-01, + 0.5262306D-01, 0.5093637D-02, 0.1351477D-01, + 0.6337953D-01, 0.6242013D-02, 0.1493358D-01, + 0.7445616D-01, 0.7425105D-02, 0.1701697D-01, + 0.8576484D-01, 0.8630844D-02, 0.1942778D-01, + 0.9724151D-01, 0.9851943D-02, 0.2186552D-01, + 0.1088413D+00, 0.1108379D-01, 0.2348862D-01/ DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) / + 0.2578785D-01, 0.2117286D-02, 0.1479218D-01, + 0.2877853D-01, 0.2469047D-02, 0.1282719D-01, + 0.3713135D-01, 0.3515226D-02, 0.1194340D-01, + 0.3916036D-01, 0.3673445D-02, 0.1153078D-01, + 0.4685373D-01, 0.4540949D-02, 0.1133954D-01, + 0.4988335D-01, 0.4865013D-02, 0.1152888D-01, + 0.6022774D-01, 0.5975035D-02, 0.1280998D-01, + 0.7090319D-01, 0.7120723D-02, 0.1467053D-01, + 0.8180943D-01, 0.8289086D-02, 0.1681260D-01, + 0.9287832D-01, 0.9472484D-02, 0.1900096D-01, + 0.1040640D+00, 0.1066619D-01, 0.2064494D-01/ DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) / + 0.2465618D-01, 0.2055547D-02, 0.1290668D-01, + 0.2743951D-01, 0.2388675D-02, 0.1104679D-01, + 0.3518725D-01, 0.3350326D-02, 0.1022679D-01, + 0.3717219D-01, 0.3511281D-02, 0.9853658D-02, + 0.4449776D-01, 0.4339101D-02, 0.9695612D-02, + 0.4741756D-01, 0.4653046D-02, 0.9872415D-02, + 0.5741283D-01, 0.5730621D-02, 0.1103732D-01, + 0.6774493D-01, 0.6844297D-02, 0.1270672D-01, + 0.7830371D-01, 0.7980321D-02, 0.1462546D-01, + 0.8901825D-01, 0.9130811D-02, 0.1668201D-01, + 0.9984238D-01, 0.1029099D-01, 0.1885162D-01/ DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) / + 0.2362634D-01, 0.1997450D-02, 0.1127128D-01, + 0.2622453D-01, 0.2313475D-02, 0.9525941D-02, + 0.3339260D-01, 0.3192334D-02, 0.8772832D-02, + 0.3535685D-01, 0.3358322D-02, 0.8439009D-02, + 0.4236139D-01, 0.4150798D-02, 0.8315660D-02, + 0.4518986D-01, 0.4456430D-02, 0.8482671D-02, + 0.5489224D-01, 0.5507054D-02, 0.9547867D-02, + 0.6493216D-01, 0.6593647D-02, 0.1105093D-01, + 0.7519187D-01, 0.7701883D-02, 0.1276636D-01, + 0.8559880D-01, 0.8823764D-02, 0.1460784D-01, + 0.9610710D-01, 0.9954551D-02, 0.1661072D-01/ DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) / + 0.2268229D-01, 0.1942486D-02, 0.9847256D-02, + 0.2511509D-01, 0.2242865D-02, 0.8221282D-02, + 0.3172649D-01, 0.3040579D-02, 0.7535245D-02, + 0.3369107D-01, 0.3213744D-02, 0.7239509D-02, + 0.4041762D-01, 0.3975134D-02, 0.7150450D-02, + 0.4317148D-01, 0.4274152D-02, 0.7309487D-02, + 0.5263137D-01, 0.5302921D-02, 0.8287676D-02, + 0.6242453D-01, 0.6366920D-02, 0.9644739D-02, + 0.7242784D-01, 0.7451470D-02, 0.1117904D-01, + 0.8256826D-01, 0.8548595D-02, 0.1279818D-01, + 0.9280089D-01, 0.9653678D-02, 0.1444188D-01/ DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) / + 0.2181083D-01, 0.1890208D-02, 0.8603617D-02, + 0.2409598D-01, 0.2176319D-02, 0.7098314D-02, + 0.3016901D-01, 0.2893986D-02, 0.6477884D-02, + 0.3215592D-01, 0.3076816D-02, 0.6218434D-02, + 0.3864314D-01, 0.3811049D-02, 0.6162152D-02, + 0.4133797D-01, 0.4105114D-02, 0.6314414D-02, + 0.5060175D-01, 0.5116893D-02, 0.7215611D-02, + 0.6018922D-01, 0.6162467D-02, 0.8443634D-02, + 0.6997426D-01, 0.7227070D-02, 0.9820351D-02, + 0.7988465D-01, 0.8302910D-02, 0.1126450D-01, + 0.8987716D-01, 0.9385592D-02, 0.1271716D-01/ DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) / + 0.2100072D-01, 0.1840209D-02, 0.7514582D-02, + 0.2315380D-01, 0.2113305D-02, 0.6127400D-02, + 0.2870188D-01, 0.2751370D-02, 0.5571191D-02, + 0.3074073D-01, 0.2947767D-02, 0.5345919D-02, + 0.3701465D-01, 0.3656994D-02, 0.5320167D-02, + 0.3966520D-01, 0.3947740D-02, 0.5466403D-02, + 0.4877653D-01, 0.4947303D-02, 0.6298537D-02, + 0.5819639D-01, 0.5978456D-02, 0.7411545D-02, + 0.6779793D-01, 0.7026621D-02, 0.8648852D-02, + 0.7751116D-01, 0.8084376D-02, 0.9941266D-02, + 0.8729528D-01, 0.9147659D-02, 0.1124248D-01/ DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) / + 0.2024245D-01, 0.1792120D-02, 0.6558884D-02, + 0.2227798D-01, 0.2053421D-02, 0.5285963D-02, + 0.2729464D-01, 0.2609175D-02, 0.4791579D-02, + 0.2941735D-01, 0.2823545D-02, 0.4598144D-02, + 0.3551575D-01, 0.3512134D-02, 0.4600187D-02, + 0.3813799D-01, 0.3801500D-02, 0.4740811D-02, + 0.4714056D-01, 0.4793914D-02, 0.5510224D-02, + 0.5642791D-01, 0.5814433D-02, 0.6519979D-02, + 0.6587677D-01, 0.6849282D-02, 0.7632838D-02, + 0.7542144D-01, 0.7891717D-02, 0.8788709D-02, + 0.8502467D-01, 0.8938176D-02, 0.9944049D-02/ DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) / + 0.1952776D-01, 0.1745598D-02, 0.5718721D-02, + 0.2146028D-01, 0.1996381D-02, 0.4557055D-02, + 0.2589833D-01, 0.2460495D-02, 0.4119974D-02, + 0.2813628D-01, 0.2697245D-02, 0.3955824D-02, + 0.3413111D-01, 0.3375486D-02, 0.3982551D-02, + 0.3674474D-01, 0.3666109D-02, 0.4117720D-02, + 0.4568589D-01, 0.4657304D-02, 0.4829496D-02, + 0.5487362D-01, 0.5670843D-02, 0.5745965D-02, + 0.6419655D-01, 0.6695055D-02, 0.6747396D-02, + 0.7359673D-01, 0.7724418D-02, 0.7782276D-02, + 0.8304209D-01, 0.8756123D-02, 0.8812386D-02/ DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) / + 0.1884945D-01, 0.1700320D-02, 0.4979060D-02, + 0.2069266D-01, 0.1941818D-02, 0.3924521D-02, + 0.2463772D-01, 0.2327195D-02, 0.3540333D-02, + 0.2697389D-01, 0.2582744D-02, 0.3402817D-02, + 0.3292430D-01, 0.3258969D-02, 0.3450882D-02, + 0.3553634D-01, 0.3551444D-02, 0.3580588D-02, + 0.4443353D-01, 0.4542580D-02, 0.4238918D-02, + 0.5353634D-01, 0.5549965D-02, 0.5070685D-02, + 0.6274817D-01, 0.6564439D-02, 0.5972004D-02, + 0.7201961D-01, 0.7581792D-02, 0.6900090D-02, + 0.8132382D-01, 0.8599972D-02, 0.7827526D-02/ DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) / + 0.1820118D-01, 0.1655981D-02, 0.4327232D-02, + 0.1996775D-01, 0.1889351D-02, 0.3374022D-02, + 0.2368638D-01, 0.2239107D-02, 0.3039288D-02, + 0.2604359D-01, 0.2499915D-02, 0.2925736D-02, + 0.3197767D-01, 0.3177425D-02, 0.2991694D-02, + 0.3457769D-01, 0.3469494D-02, 0.3115839D-02, + 0.4340933D-01, 0.4455406D-02, 0.3724289D-02, + 0.5241997D-01, 0.5453984D-02, 0.4478859D-02, + 0.6152229D-01, 0.6457586D-02, 0.5290021D-02, + 0.7067206D-01, 0.7462731D-02, 0.6124400D-02, + 0.7984568D-01, 0.8467766D-02, 0.6973142D-02/ DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) / + 0.1757725D-01, 0.1612281D-02, 0.3752353D-02, + 0.1927898D-01, 0.1838626D-02, 0.2894098D-02, + 0.2293077D-01, 0.2178095D-02, 0.2605180D-02, + 0.2527426D-01, 0.2437739D-02, 0.2513056D-02, + 0.3119304D-01, 0.3115456D-02, 0.2593740D-02, + 0.3377711D-01, 0.3405994D-02, 0.2712229D-02, + 0.4254023D-01, 0.4384778D-02, 0.3273960D-02, + 0.5146441D-01, 0.5374219D-02, 0.3957929D-02, + 0.6046730D-01, 0.6367398D-02, 0.4687200D-02, + 0.6950794D-01, 0.7361208D-02, 0.5434531D-02, + 0.7856500D-01, 0.8354225D-02, 0.6196265D-02/ DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) / + 0.1697249D-01, 0.1568930D-02, 0.3245150D-02, + 0.1862079D-01, 0.1789335D-02, 0.2475358D-02, + 0.2226395D-01, 0.2127000D-02, 0.2228403D-02, + 0.2459603D-01, 0.2385286D-02, 0.2155321D-02, + 0.3048753D-01, 0.3060070D-02, 0.2247857D-02, + 0.3305832D-01, 0.3349099D-02, 0.2360612D-02, + 0.4176703D-01, 0.4321850D-02, 0.2878467D-02, + 0.5062136D-01, 0.5303787D-02, 0.3497680D-02, + 0.5954165D-01, 0.6288263D-02, 0.4152105D-02, + 0.6848978D-01, 0.7272442D-02, 0.4815643D-02, + 0.7744669D-01, 0.8255116D-02, 0.5467176D-02/ DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) / + 0.1638212D-01, 0.1525636D-02, 0.2797598D-02, + 0.1798911D-01, 0.1741262D-02, 0.2110567D-02, + 0.2164531D-01, 0.2079620D-02, 0.1901293D-02, + 0.2397271D-01, 0.2337130D-02, 0.1844967D-02, + 0.2984844D-01, 0.3009873D-02, 0.1946632D-02, + 0.3241139D-01, 0.3297918D-02, 0.2053554D-02, + 0.4108266D-01, 0.4266349D-02, 0.2530017D-02, + 0.4988275D-01, 0.5242384D-02, 0.3089660D-02, + 0.5873515D-01, 0.6219663D-02, 0.3675918D-02, + 0.6760493D-01, 0.7195648D-02, 0.4263404D-02, + 0.7647559D-01, 0.8169373D-02, 0.4814349D-02/ DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) / + 0.1580168D-01, 0.1482105D-02, 0.2402764D-02, + 0.1737958D-01, 0.1694137D-02, 0.1793054D-02, + 0.2105206D-01, 0.2032661D-02, 0.1617295D-02, + 0.2338426D-01, 0.2290478D-02, 0.1575584D-02, + 0.2926510D-01, 0.2963722D-02, 0.1683850D-02, + 0.3182675D-01, 0.3251533D-02, 0.1784837D-02, + 0.4047833D-01, 0.4217614D-02, 0.2222117D-02, + 0.4923858D-01, 0.5189286D-02, 0.2726816D-02, + 0.5803598D-01, 0.6160705D-02, 0.3251017D-02, + 0.6683960D-01, 0.7129733D-02, 0.3771182D-02, + 0.7563581D-01, 0.8095692D-02, 0.4241524D-02/ DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) / + 0.1522688D-01, 0.1438032D-02, 0.2054624D-02, + 0.1678744D-01, 0.1647620D-02, 0.1516450D-02, + 0.2048942D-01, 0.1987455D-02, 0.1370720D-02, + 0.2283367D-01, 0.2246321D-02, 0.1341664D-02, + 0.2873409D-01, 0.2921627D-02, 0.1454225D-02, + 0.3129957D-01, 0.3209751D-02, 0.1549186D-02, + 0.3994578D-01, 0.4175013D-02, 0.1949282D-02, + 0.4867814D-01, 0.5143578D-02, 0.2403186D-02, + 0.5743131D-01, 0.6110245D-02, 0.2870602D-02, + 0.6617892D-01, 0.7073346D-02, 0.3329195D-02, + 0.7491059D-01, 0.8032530D-02, 0.3724147D-02/ DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) / + 0.1465355D-01, 0.1393100D-02, 0.1747911D-02, + 0.1620864D-01, 0.1601418D-02, 0.1275640D-02, + 0.1995388D-01, 0.1943825D-02, 0.1156723D-02, + 0.2231690D-01, 0.2204423D-02, 0.1138516D-02, + 0.2824998D-01, 0.2883203D-02, 0.1253279D-02, + 0.3082377D-01, 0.3172124D-02, 0.1342136D-02, + 0.3947692D-01, 0.4137882D-02, 0.1706879D-02, + 0.4819128D-01, 0.5104380D-02, 0.2113753D-02, + 0.5690894D-01, 0.6067193D-02, 0.2529401D-02, + 0.6560875D-01, 0.7025194D-02, 0.2934544D-02, + 0.7428384D-01, 0.7978396D-02, 0.3276993D-02/ DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) / + 0.1407749D-01, 0.1346968D-02, 0.1478031D-02, + 0.1563945D-01, 0.1555241D-02, 0.1066360D-02, + 0.1944024D-01, 0.1901278D-02, 0.9711652D-03, + 0.2182866D-01, 0.2164305D-02, 0.9621416D-03, + 0.2780667D-01, 0.2847925D-02, 0.1077218D-02, + 0.3039283D-01, 0.3138087D-02, 0.1159914D-02, + 0.3906338D-01, 0.4105481D-02, 0.1491006D-02, + 0.4776766D-01, 0.5070750D-02, 0.1854291D-02, + 0.5645656D-01, 0.6030404D-02, 0.2223140D-02, + 0.6511479D-01, 0.6983928D-02, 0.2586685D-02, + 0.7373934D-01, 0.7931739D-02, 0.2925121D-02/ DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) / + 0.1349444D-01, 0.1299267D-02, 0.1240936D-02, + 0.1507538D-01, 0.1508716D-02, 0.8846816D-03, + 0.1894419D-01, 0.1859462D-02, 0.8104447D-03, + 0.2136434D-01, 0.2125594D-02, 0.8090871D-03, + 0.2739849D-01, 0.2815317D-02, 0.9227907D-03, + 0.3000049D-01, 0.3107107D-02, 0.9992913D-03, + 0.3869691D-01, 0.4077066D-02, 0.1298326D-02, + 0.4739693D-01, 0.5041725D-02, 0.1621145D-02, + 0.5606172D-01, 0.5998692D-02, 0.1946904D-02, + 0.6468253D-01, 0.6948146D-02, 0.2271225D-02, + 0.7326055D-01, 0.7890947D-02, 0.2598422D-02/ DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) / + 0.1289987D-01, 0.1249584D-02, 0.1033081D-02, + 0.1451237D-01, 0.1461485D-02, 0.7273077D-03, + 0.1846151D-01, 0.1818013D-02, 0.6714853D-03, + 0.2091942D-01, 0.2087902D-02, 0.6764054D-03, + 0.2701972D-01, 0.2784879D-02, 0.7872339D-03, + 0.2964046D-01, 0.3078622D-02, 0.8575271D-03, + 0.3836901D-01, 0.4051849D-02, 0.1126019D-02, + 0.4706833D-01, 0.5016276D-02, 0.1411231D-02, + 0.5571143D-01, 0.5970791D-02, 0.1696802D-02, + 0.6429682D-01, 0.6916351D-02, 0.1978967D-02, + 0.7283019D-01, 0.7854300D-02, 0.2257198D-02/ DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) / + 0.1228891D-01, 0.1197454D-02, 0.8513343D-03, + 0.1394728D-01, 0.1413255D-02, 0.5916331D-03, + 0.1798822D-01, 0.1776572D-02, 0.5516701D-03, + 0.2048952D-01, 0.2050837D-02, 0.5615787D-03, + 0.2666460D-01, 0.2756087D-02, 0.6681796D-03, + 0.2930626D-01, 0.3052040D-02, 0.7322735D-03, + 0.3807079D-01, 0.4028980D-02, 0.9716695D-03, + 0.4677049D-01, 0.4993292D-02, 0.1221955D-02, + 0.5539190D-01, 0.5945333D-02, 0.1470665D-02, + 0.6394152D-01, 0.6886927D-02, 0.1714880D-02, + 0.7242988D-01, 0.7819940D-02, 0.1951831D-02/ DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) / + 0.1165610D-01, 0.1142338D-02, 0.6929434D-03, + 0.1337603D-01, 0.1363632D-02, 0.4752178D-03, + 0.1751989D-01, 0.1734720D-02, 0.4487068D-03, + 0.2006984D-01, 0.2013955D-02, 0.4624209D-03, + 0.2632691D-01, 0.2728358D-02, 0.5635959D-03, + 0.2899093D-01, 0.3026700D-02, 0.6215215D-03, + 0.3779262D-01, 0.4007521D-02, 0.8332199D-03, + 0.4649108D-01, 0.4971543D-02, 0.1051090D-02, + 0.5508818D-01, 0.5920805D-02, 0.1266148D-02, + 0.6359912D-01, 0.6858085D-02, 0.1477698D-02, + 0.7203961D-01, 0.7785812D-02, 0.1689135D-02/ DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) / + 0.1099514D-01, 0.1083588D-02, 0.5554829D-03, + 0.1279345D-01, 0.1312105D-02, 0.3757508D-03, + 0.1705150D-01, 0.1691967D-02, 0.3605745D-03, + 0.1965503D-01, 0.1976742D-02, 0.3770231D-03, + 0.2599972D-01, 0.2701027D-02, 0.4717315D-03, + 0.2868675D-01, 0.3001852D-02, 0.5235444D-03, + 0.3752380D-01, 0.3986402D-02, 0.7089121D-03, + 0.4621635D-01, 0.4949630D-02, 0.8967120D-03, + 0.5478352D-01, 0.5895485D-02, 0.1080649D-02, + 0.6325004D-01, 0.6827794D-02, 0.1259726D-02, + 0.7163704D-01, 0.7749586D-02, 0.1431507D-02/ DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) / + 0.1029850D-01, 0.1020420D-02, 0.4368255D-03, + 0.1219302D-01, 0.1258011D-02, 0.2912833D-03, + 0.1657706D-01, 0.1647716D-02, 0.2855189D-03, + 0.1923879D-01, 0.1938580D-02, 0.3037309D-03, + 0.2567508D-01, 0.2673311D-02, 0.3910778D-03, + 0.2838481D-01, 0.2976616D-02, 0.4368594D-03, + 0.3725202D-01, 0.3964379D-02, 0.5972465D-03, + 0.4593051D-01, 0.4925929D-02, 0.7572191D-03, + 0.5445876D-01, 0.5867380D-02, 0.9128350D-03, + 0.6287181D-01, 0.6793706D-02, 0.1064099D-02, + 0.7119658D-01, 0.7708577D-02, 0.1210551D-02/ DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) / + 0.9840897D-02, 0.9782596D-03, 0.3713784D-03, + 0.1180564D-01, 0.1222580D-02, 0.2453782D-03, + 0.1627454D-01, 0.1618998D-02, 0.2445719D-03, + 0.1897483D-01, 0.1913936D-02, 0.2634300D-03, + 0.2546946D-01, 0.2655393D-02, 0.3457791D-03, + 0.2819273D-01, 0.2960194D-02, 0.3878439D-03, + 0.3707435D-01, 0.3949510D-02, 0.5333011D-03, + 0.4573808D-01, 0.4909365D-02, 0.6769768D-03, + 0.5423568D-01, 0.5847364D-02, 0.8162581D-03, + 0.6260905D-01, 0.6769252D-02, 0.9525659D-03, + 0.7088885D-01, 0.7679118D-02, 0.1091238D-02/ DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) / + 0.9362920D-02, 0.9336812D-03, 0.3121447D-03, + 0.1140707D-01, 0.1185693D-02, 0.2043740D-03, + 0.1596535D-01, 0.1589249D-02, 0.2078236D-03, + 0.1870573D-01, 0.1888457D-02, 0.2269950D-03, + 0.2525882D-01, 0.2636719D-02, 0.3040733D-03, + 0.2799473D-01, 0.2942935D-02, 0.3424685D-03, + 0.3688593D-01, 0.3933301D-02, 0.4735221D-03, + 0.4552889D-01, 0.4890808D-02, 0.6017052D-03, + 0.5398961D-01, 0.5824669D-02, 0.7253177D-03, + 0.6231716D-01, 0.6741440D-02, 0.8448679D-03, + 0.7054607D-01, 0.7645640D-02, 0.9597377D-03/ DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) / + 0.8861152D-02, 0.8863133D-03, 0.2587609D-03, + 0.1099504D-01, 0.1147103D-02, 0.1679426D-03, + 0.1564738D-01, 0.1558242D-02, 0.1749748D-03, + 0.1842927D-01, 0.1861911D-02, 0.1941430D-03, + 0.2504024D-01, 0.2616993D-02, 0.2657061D-03, + 0.2778752D-01, 0.2924500D-02, 0.3004861D-03, + 0.3668208D-01, 0.3915265D-02, 0.4176663D-03, + 0.4529689D-01, 0.4869621D-02, 0.5311613D-03, + 0.5371317D-01, 0.5798514D-02, 0.6401437D-03, + 0.6198753D-01, 0.6709351D-02, 0.7452922D-03, + 0.7015842D-01, 0.7607094D-02, 0.8459428D-03/ DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) / + 0.8331323D-02, 0.8356897D-03, 0.2109022D-03, + 0.1056886D-01, 0.1106710D-02, 0.1358045D-03, + 0.1531844D-01, 0.1525740D-02, 0.1457502D-03, + 0.1814299D-01, 0.1834044D-02, 0.1646124D-03, + 0.2481034D-01, 0.2595862D-02, 0.2304459D-03, + 0.2756725D-01, 0.2904489D-02, 0.2616728D-03, + 0.3645735D-01, 0.3894826D-02, 0.3655178D-03, + 0.4503501D-01, 0.4845051D-02, 0.4651090D-03, + 0.5339778D-01, 0.5767975D-02, 0.5602599D-03, + 0.6161011D-01, 0.6671899D-02, 0.6510685D-03, + 0.6971447D-01, 0.7562242D-02, 0.7332600D-03/ DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) / + 0.7767826D-02, 0.7811929D-03, 0.1682844D-03, + 0.1012105D-01, 0.1063746D-02, 0.1076382D-03, + 0.1497433D-01, 0.1491304D-02, 0.1198886D-03, + 0.1784295D-01, 0.1804446D-02, 0.1381639D-03, + 0.2456471D-01, 0.2572881D-02, 0.1980851D-03, + 0.2732909D-01, 0.2882411D-02, 0.2258286D-03, + 0.3620518D-01, 0.3871305D-02, 0.3168863D-03, + 0.4473488D-01, 0.4816218D-02, 0.4033581D-03, + 0.5303326D-01, 0.5731976D-02, 0.4856919D-03, + 0.6117300D-01, 0.6627822D-02, 0.5646497D-03, + 0.6920063D-01, 0.7509639D-02, 0.6390357D-03/ DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) / + 0.7162524D-02, 0.7219252D-03, 0.1306685D-03, + 0.9648990D-02, 0.1017894D-02, 0.8324373D-04, + 0.1461151D-01, 0.1454547D-02, 0.9717247D-04, + 0.1752550D-01, 0.1772730D-02, 0.1145860D-03, + 0.2429861D-01, 0.2547554D-02, 0.1684362D-03, + 0.2706767D-01, 0.2857704D-02, 0.1927744D-03, + 0.3591786D-01, 0.3843886D-02, 0.2716051D-03, + 0.4438643D-01, 0.4782047D-02, 0.3457338D-03, + 0.5260734D-01, 0.5689198D-02, 0.4161628D-03, + 0.6066182D-01, 0.6575566D-02, 0.4848411D-03, + 0.6860054D-01, 0.7447509D-02, 0.5565929D-03/ DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) / + 0.6498830D-02, 0.6560480D-03, 0.9787648D-04, + 0.9145191D-02, 0.9683183D-03, 0.6241237D-04, + 0.1422362D-01, 0.1414772D-02, 0.7739472D-04, + 0.1718482D-01, 0.1738279D-02, 0.9368118D-04, + 0.2400574D-01, 0.2519222D-02, 0.1413299D-03, + 0.2677606D-01, 0.2829644D-02, 0.1623507D-03, + 0.3558588D-01, 0.3811562D-02, 0.2295327D-03, + 0.4397734D-01, 0.4741221D-02, 0.2920817D-03, + 0.5210497D-01, 0.5638020D-02, 0.3512062D-03, + 0.6005895D-01, 0.6513225D-02, 0.4080366D-03, + 0.6789415D-01, 0.7373677D-02, 0.4632646D-03/ DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) / + 0.5778300D-02, 0.5837402D-03, 0.6984198D-04, + 0.8612970D-02, 0.9153618D-03, 0.4492100D-04, + 0.1381626D-01, 0.1372613D-02, 0.6035747D-04, + 0.1682500D-01, 0.1701574D-02, 0.7526036D-04, + 0.2368520D-01, 0.2487846D-02, 0.1166112D-03, + 0.2645128D-01, 0.2797962D-02, 0.1344146D-03, + 0.3520003D-01, 0.3773383D-02, 0.1905509D-03, + 0.4349343D-01, 0.4692238D-02, 0.2423050D-03, + 0.5150776D-01, 0.5576476D-02, 0.2911091D-03, + 0.5934224D-01, 0.6438423D-02, 0.3385689D-03, + 0.6705574D-01, 0.7285380D-02, 0.3881714D-03/ DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) / + 0.5034733D-02, 0.5087611D-03, 0.4625723D-04, + 0.8064844D-02, 0.8604694D-03, 0.3058347D-04, + 0.1338882D-01, 0.1328038D-02, 0.4584601D-04, + 0.1644089D-01, 0.1662102D-02, 0.5913359D-04, + 0.2332541D-01, 0.2452214D-02, 0.9413941D-04, + 0.2607982D-01, 0.2761237D-02, 0.1088415D-03, + 0.3474175D-01, 0.3727366D-02, 0.1545688D-03, + 0.4291176D-01, 0.4632629D-02, 0.1963152D-03, + 0.5078870D-01, 0.5501647D-02, 0.2355473D-03, + 0.5848082D-01, 0.6347807D-02, 0.2736505D-03, + 0.6605081D-01, 0.7178859D-02, 0.3134502D-03/ DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) / + 0.4190120D-02, 0.4224470D-03, 0.2707369D-04, + 0.7459661D-02, 0.7990326D-03, 0.1924123D-04, + 0.1291263D-01, 0.1277880D-02, 0.3371034D-04, + 0.1600870D-01, 0.1617273D-02, 0.4515653D-04, + 0.2290601D-01, 0.2410157D-02, 0.7380760D-04, + 0.2564100D-01, 0.2717275D-02, 0.8554009D-04, + 0.3418645D-01, 0.3670890D-02, 0.1215324D-03, + 0.4220236D-01, 0.4559178D-02, 0.1540794D-03, + 0.4991220D-01, 0.5409691D-02, 0.1845894D-03, + 0.5743353D-01, 0.6236926D-02, 0.2143511D-03, + 0.6483269D-01, 0.7049062D-02, 0.2463026D-03/ DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) / + 0.3185613D-02, 0.3182631D-03, 0.1245652D-04, + 0.6769268D-02, 0.7279159D-03, 0.1081952D-04, + 0.1236544D-01, 0.1219703D-02, 0.2382310D-04, + 0.1550825D-01, 0.1564938D-02, 0.3320242D-04, + 0.2240537D-01, 0.2359413D-02, 0.5553033D-04, + 0.2511120D-01, 0.2663596D-02, 0.6444454D-04, + 0.3350197D-01, 0.3600533D-02, 0.9142491D-04, + 0.4132394D-01, 0.4467443D-02, 0.1156077D-03, + 0.4882817D-01, 0.5295189D-02, 0.1382571D-03, + 0.5614187D-01, 0.6099425D-02, 0.1606747D-03, + 0.6333486D-01, 0.6888744D-02, 0.1865614D-03/ DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) / + 0.1809282D-02, 0.1726649D-03, 0.2992961D-05, + 0.5931035D-02, 0.6401202D-03, 0.5333937D-05, + 0.1168839D-01, 0.1147036D-02, 0.1608256D-04, + 0.1489229D-01, 0.1499991D-02, 0.2315794D-04, + 0.2178472D-01, 0.2295904D-02, 0.3924450D-04, + 0.2445086D-01, 0.2596047D-02, 0.4551809D-04, + 0.3263896D-01, 0.3511060D-02, 0.6427893D-04, + 0.4021380D-01, 0.4350705D-02, 0.8097014D-04, + 0.4746027D-01, 0.5149908D-02, 0.9650246D-04, + 0.5451648D-01, 0.5925630D-02, 0.1110490D-03, + 0.6145620D-01, 0.6686943D-02, 0.1231286D-03/ DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) / + 0.3805620D-03, 0.2114851D-04, 0.6982608D-06, + 0.5090375D-02, 0.5518335D-03, 0.2662843D-05, + 0.1113599D-01, 0.1088290D-02, 0.1022639D-04, + 0.1437980D-01, 0.1447041D-02, 0.1477675D-04, + 0.2116744D-01, 0.2233731D-02, 0.2484446D-04, + 0.2374762D-01, 0.2524768D-02, 0.2870907D-04, + 0.3159391D-01, 0.3402477D-02, 0.4017386D-04, + 0.3880817D-01, 0.4202257D-02, 0.5033954D-04, + 0.4570192D-01, 0.4962380D-02, 0.5987738D-04, + 0.5241713D-01, 0.5700351D-02, 0.6954527D-04, + 0.5902565D-01, 0.6425055D-02, 0.8187836D-04/ DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) / + 0.2520758D-03, 0.1400832D-04, 0.2042386D-06, + 0.4996608D-02, 0.5462461D-03, 0.7665191D-06, + 0.1093572D-01, 0.1068999D-02, 0.5098637D-05, + 0.1404163D-01, 0.1414532D-02, 0.7339637D-05, + 0.2043427D-01, 0.2160448D-02, 0.1215728D-04, + 0.2284021D-01, 0.2432665D-02, 0.1397626D-04, + 0.3012736D-01, 0.3248969D-02, 0.1933151D-04, + 0.3682378D-01, 0.3991383D-02, 0.2406949D-04, + 0.4323450D-01, 0.4697957D-02, 0.2851476D-04, + 0.4949194D-01, 0.5385258D-02, 0.3292379D-04, + 0.5566045D-01, 0.6061358D-02, 0.3791125D-04/ DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) / + 0.1252376D-03, 0.6959685D-05, 0.2520666D-07, + 0.4821983D-02, 0.5316304D-03, 0.7858168D-08, + 0.1050200D-01, 0.1025048D-02, 0.7111042D-06, + 0.1335221D-01, 0.1345876D-02, 0.1009473D-05, + 0.1908276D-01, 0.2022552D-02, 0.1627908D-05, + 0.2121249D-01, 0.2264703D-02, 0.1857406D-05, + 0.2764352D-01, 0.2986467D-02, 0.2528897D-05, + 0.3356695D-01, 0.3643016D-02, 0.3119704D-05, + 0.3926174D-01, 0.4270162D-02, 0.3578213D-05, + 0.4484042D-01, 0.4882367D-02, 0.3050931D-05, + 0.5035456D-01, 0.5486257D-02,-0.3054033D-05/ ****************************************************************** *if x is out of range U = ZEROD D = ZEROD S = ZEROD C = ZEROD B = ZEROD G = ZEROD IF((X.LT.5.0D-4).OR.(X.GT.0.99D0)) GOTO 90 ******************************************************************* IF (ICALL.NE.1) THEN * get the x coordinates CALL GSXCOR(Y,NP) ICALL=1 END IF * DO 30 IX=1,NP A(IX)=Y(IX) 30 CONTINUE DO 40 IQ=1,NQ A(NP+IQ)=QT(IQ) 40 CONTINUE * Q2 = Q*Q NA(1)=NP NA(2)=NQ XT(1)=X XT(2)=Q2 XSIG=DBFINT(2,XT,NA,A,SIG) XQNS=DBFINT(2,XT,NA,A,QNS) G =DBFINT(2,XT,NA,A,GL) * IF (Q2.LT.50.0D0) THEN C Use three flavour evolution. U=(XSIG+9.0D0*XQNS)/6.0D0 D=(XSIG-4.5D0*XQNS)/6.0D0 S=D C=ZEROD B=ZEROD * ELSE IF((Q2.GT.50.0D0).AND.(Q2.LT.250.0D0)) THEN C Use four flavour evolution U=(XSIG+6.D0*XQNS)/8.0D0 D=(XSIG-6.D0*XQNS)/8.0D0 S=D C=U B=ZEROD ELSE C Use five flavour evolution U=(XSIG+7.5D0*XQNS)/10.0D0 D=(XSIG-5.D0*XQNS)/10.0D0 S=D C=U B=D ENDIF U=X*U US=U D=X*D DS=D S=X*S C=X*C B=X*B G=X*G 90 RETURN END