* * $Id$ * * $Log$ * Revision 1.1.1.2 1996/10/30 08:29:51 cernlib * Version 7.04 * * Revision 1.1.1.1 1996/04/12 15:29:36 plothow * Version 7.01 * * #include "pdf/pilot.h" SUBROUTINE SFGSLO1(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.9811474D+01, 0.1864514D-01, 0.2545083D+02, + 0.1342878D+02, 0.2346805D-01, 0.9675292D+02, + 0.1871367D+02, 0.3348569D-01, 0.1647521D+03, + 0.2475213D+02, 0.3649892D-01, 0.2225751D+03, + 0.4415395D+02, 0.4732645D-01, 0.3758252D+03, + 0.5349644D+02, 0.5161918D-01, 0.4462931D+03, + 0.8856512D+02, 0.6620172D-01, 0.6947289D+03, + 0.1282624D+03, 0.8118179D-01, 0.9577845D+03, + 0.1712023D+03, 0.9646955D-01, 0.1229658D+04, + 0.2165017D+03, 0.1120038D+00, 0.1507126D+04, + 0.2635741D+03, 0.1277408D+00, 0.1788290D+04/ DATA (SIG(2 ,K),QNS(2 ,K),GL(2 ,K), K=1,11) / + 0.3340865D+01, 0.1254764D-01, 0.8458172D+01, + 0.4615365D+01, 0.1593154D-01, 0.2534847D+02, + 0.6407919D+01, 0.2383214D-01, 0.3975948D+02, + 0.8345271D+01, 0.2587110D-01, 0.5118792D+02, + 0.1426236D+02, 0.3378655D-01, 0.7934057D+02, + 0.1698355D+02, 0.3685939D-01, 0.9159314D+02, + 0.2676101D+02, 0.4725523D-01, 0.1325592D+03, + 0.3728618D+02, 0.5787674D-01, 0.1734413D+03, + 0.4825718D+02, 0.6866755D-01, 0.2140051D+03, + 0.5950685D+02, 0.7959052D-01, 0.2542146D+03, + 0.7093750D+02, 0.9061975D-01, 0.2940978D+03/ DATA (SIG(3 ,K),QNS(3 ,K),GL(3 ,K), K=1,11) / + 0.2034510D+01, 0.1057583D-01, 0.5059672D+01, + 0.2788372D+01, 0.1348177D-01, 0.1356121D+02, + 0.3818232D+01, 0.2056081D-01, 0.2047473D+02, + 0.4886212D+01, 0.2227210D-01, 0.2579153D+02, + 0.8061907D+01, 0.2914690D-01, 0.3849590D+02, + 0.9487711D+01, 0.3178981D-01, 0.4390494D+02, + 0.1450119D+02, 0.4071058D-01, 0.6163788D+02, + 0.1976989D+02, 0.4979865D-01, 0.7897868D+02, + 0.2517030D+02, 0.5901041D-01, 0.9597537D+02, + 0.3064047D+02, 0.6831757D-01, 0.1126978D+03, + 0.3614773D+02, 0.7770066D-01, 0.1292082D+03/ DATA (SIG(4 ,K),QNS(4 ,K),GL(4 ,K), K=1,11) / + 0.1470873D+01, 0.9489893D-02, 0.3603193D+01, + 0.1996594D+01, 0.1212548D-01, 0.8973600D+01, + 0.2701098D+01, 0.1870426D-01, 0.1321112D+02, + 0.3407142D+01, 0.2023077D-01, 0.1640650D+02, + 0.5469768D+01, 0.2649866D-01, 0.2389886D+02, + 0.6380776D+01, 0.2889295D-01, 0.2704700D+02, + 0.9538903D+01, 0.3696154D-01, 0.3725226D+02, + 0.1280682D+02, 0.4516515D-01, 0.4712321D+02, + 0.1612162D+02, 0.5346760D-01, 0.5674164D+02, + 0.1945463D+02, 0.6184567D-01, 0.6617581D+02, + 0.2279240D+02, 0.7028355D-01, 0.7547659D+02/ DATA (SIG(5 ,K),QNS(5 ,K),GL(5 ,K), K=1,11) / + 0.1155962D+01, 0.8769721D-02, 0.2794055D+01, + 0.1555081D+01, 0.1122175D-01, 0.6586598D+01, + 0.2083039D+01, 0.1744450D-01, 0.9514421D+01, + 0.2596578D+01, 0.1884628D-01, 0.1169037D+02, + 0.4077581D+01, 0.2469463D-01, 0.1672371D+02, + 0.4723573D+01, 0.2691814D-01, 0.1881923D+02, + 0.6939601D+01, 0.3440195D-01, 0.2556127D+02, + 0.9207032D+01, 0.4199949D-01, 0.3203772D+02, + 0.1149009D+02, 0.4967968D-01, 0.3832801D+02, + 0.1377416D+02, 0.5742272D-01, 0.4448952D+02, + 0.1605343D+02, 0.6521522D-01, 0.5056183D+02/ DATA (SIG(6 ,K),QNS(6 ,K),GL(6 ,K), K=1,11) / + 0.9545560D+00, 0.8243679D-02, 0.2279163D+01, + 0.1273810D+01, 0.1055868D-01, 0.5141778D+01, + 0.1692448D+01, 0.1650667D-01, 0.7314287D+01, + 0.2088771D+01, 0.1781595D-01, 0.8910377D+01, + 0.3220486D+01, 0.2334759D-01, 0.1256385D+02, + 0.3709136D+01, 0.2544282D-01, 0.1407441D+02, + 0.5371622D+01, 0.3248779D-01, 0.1890806D+02, + 0.7057906D+01, 0.3963112D-01, 0.2352976D+02, + 0.8746382D+01, 0.4684550D-01, 0.2801030D+02, + 0.1042938D+02, 0.5411365D-01, 0.3239702D+02, + 0.1210461D+02, 0.6142394D-01, 0.3672108D+02/ DATA (SIG(7 ,K),QNS(7 ,K),GL(7 ,K), K=1,11) / + 0.8144777D+00, 0.7835363D-02, 0.1922711D+01, + 0.1079065D+01, 0.1004205D-01, 0.4181421D+01, + 0.1424030D+01, 0.1576720D-01, 0.5871822D+01, + 0.1742533D+01, 0.1700388D-01, 0.7101886D+01, + 0.2644899D+01, 0.2228313D-01, 0.9893680D+01, + 0.3031201D+01, 0.2427658D-01, 0.1104170D+02, + 0.4336613D+01, 0.3097363D-01, 0.1470028D+02, + 0.5651427D+01, 0.3775726D-01, 0.1818711D+02, + 0.6962189D+01, 0.4460313D-01, 0.2156402D+02, + 0.8265006D+01, 0.5149590D-01, 0.2487031D+02, + 0.9559405D+01, 0.5842533D-01, 0.2813094D+02/ DATA (SIG(8 ,K),QNS(8 ,K),GL(8 ,K), K=1,11) / + 0.7113130D+00, 0.7505120D-02, 0.1661322D+01, + 0.9362982D+00, 0.9622823D-02, 0.3500973D+01, + 0.1228600D+01, 0.1516108D-01, 0.4861612D+01, + 0.1492201D+01, 0.1633848D-01, 0.5843631D+01, + 0.2234300D+01, 0.2140911D-01, 0.8056692D+01, + 0.2549644D+01, 0.2331871D-01, 0.8962737D+01, + 0.3609223D+01, 0.2972941D-01, 0.1184104D+02, + 0.4670222D+01, 0.3621733D-01, 0.1457797D+02, + 0.5724207D+01, 0.4276049D-01, 0.1722742D+02, + 0.6769478D+01, 0.4934516D-01, 0.1982232D+02, + 0.7806528D+01, 0.5596216D-01, 0.2238305D+02/ DATA (SIG(9 ,K),QNS(9 ,K),GL(9 ,K), K=1,11) / + 0.6321049D+00, 0.7229919D-02, 0.1461446D+01, + 0.8271749D+00, 0.9272436D-02, 0.2995936D+01, + 0.1080155D+01, 0.1465007D-01, 0.4119382D+01, + 0.1303253D+01, 0.1577768D-01, 0.4924404D+01, + 0.1928079D+01, 0.2067121D-01, 0.6727659D+01, + 0.2191856D+01, 0.2250988D-01, 0.7463250D+01, + 0.3073851D+01, 0.2867844D-01, 0.9794267D+01, + 0.3952683D+01, 0.3491653D-01, 0.1200727D+02, + 0.4823158D+01, 0.4120417D-01, 0.1414939D+02, + 0.5684904D+01, 0.4752893D-01, 0.1624856D+02, + 0.6538944D+01, 0.5388253D-01, 0.1832162D+02/ DATA (SIG(10,K),QNS(10,K),GL(10,K), K=1,11) / + 0.5693330D+00, 0.6995336D-02, 0.1303657D+01, + 0.7410676D+00, 0.8972980D-02, 0.2607617D+01, + 0.9636782D+00, 0.1421000D-01, 0.3553791D+01, + 0.1155855D+01, 0.1529489D-01, 0.4227472D+01, + 0.1691770D+01, 0.2003504D-01, 0.5728633D+01, + 0.1916692D+01, 0.2181243D-01, 0.6339138D+01, + 0.2665577D+01, 0.2777200D-01, 0.8269980D+01, + 0.3408627D+01, 0.3379465D-01, 0.1010111D+02, + 0.4142817D+01, 0.3986209D-01, 0.1187397D+02, + 0.4868604D+01, 0.4596301D-01, 0.1361246D+02, + 0.5587296D+01, 0.5208989D-01, 0.1533073D+02/ DATA (SIG(11,K),QNS(11,K),GL(11,K), K=1,11) / + 0.3730960D+00, 0.6120965D-02, 0.8154455D+00, + 0.4749083D+00, 0.7849717D-02, 0.1478536D+01, + 0.6086066D+00, 0.1252952D-01, 0.1943912D+01, + 0.7127702D+00, 0.1345286D-01, 0.2267237D+01, + 0.9997864D+00, 0.1759998D-01, 0.2974678D+01, + 0.1117477D+01, 0.1914207D-01, 0.3259808D+01, + 0.1503442D+01, 0.2430040D-01, 0.4157717D+01, + 0.1880986D+01, 0.2949893D-01, 0.5009443D+01, + 0.2251280D+01, 0.3472565D-01, 0.5837374D+01, + 0.2615967D+01, 0.3997324D-01, 0.6653189D+01, + 0.2976464D+01, 0.4523694D-01, 0.7463200D+01/ DATA (SIG(12,K),QNS(12,K),GL(12,K), K=1,11) / + 0.2859998D+00, 0.5629193D-02, 0.6023001D+00, + 0.3587725D+00, 0.7212752D-02, 0.1024434D+01, + 0.4565610D+00, 0.1155531D-01, 0.1314519D+01, + 0.5266432D+00, 0.1238625D-01, 0.1512774D+01, + 0.7192906D+00, 0.1618484D-01, 0.1941998D+01, + 0.7970759D+00, 0.1758982D-01, 0.2114345D+01, + 0.1050007D+01, 0.2228246D-01, 0.2656958D+01, + 0.1295612D+01, 0.2700356D-01, 0.3173484D+01, + 0.1535753D+01, 0.3174450D-01, 0.3678110D+01, + 0.1772011D+01, 0.3650011D-01, 0.4177689D+01, + 0.2005552D+01, 0.4126704D-01, 0.4675528D+01/ DATA (SIG(13,K),QNS(13,K),GL(13,K), K=1,11) / + 0.2325262D+00, 0.5273251D-02, 0.4731738D+00, + 0.2883535D+00, 0.6749219D-02, 0.7642125D+00, + 0.3654920D+00, 0.1083653D-01, 0.9608043D+00, + 0.4166306D+00, 0.1159989D-01, 0.1093294D+01, + 0.5574725D+00, 0.1513929D-01, 0.1377878D+01, + 0.6136260D+00, 0.1644289D-01, 0.1491966D+01, + 0.7951283D+00, 0.2079185D-01, 0.1851742D+01, + 0.9705577D+00, 0.2516146D-01, 0.2196020D+01, + 0.1141835D+01, 0.2954550D-01, 0.2534298D+01, + 0.1310343D+01, 0.3394023D-01, 0.2870839D+01, + 0.1477018D+01, 0.3834328D-01, 0.3207519D+01/ DATA (SIG(14,K),QNS(14,K),GL(14,K), K=1,11) / + 0.1967074D+00, 0.4997904D-02, 0.3878182D+00, + 0.2417281D+00, 0.6389082D-02, 0.6009470D+00, + 0.3058526D+00, 0.1027213D-01, 0.7430875D+00, + 0.3454587D+00, 0.1098271D-01, 0.8378482D+00, + 0.4551466D+00, 0.1431736D-01, 0.1040439D+01, + 0.4984555D+00, 0.1554122D-01, 0.1121722D+01, + 0.6379509D+00, 0.1962036D-01, 0.1378926D+01, + 0.7724993D+00, 0.2371465D-01, 0.1626676D+01, + 0.9038709D+00, 0.2781962D-01, 0.1871567D+01, + 0.1033232D+01, 0.3193259D-01, 0.2116360D+01, + 0.1161330D+01, 0.3605186D-01, 0.2362229D+01/ DATA (SIG(15,K),QNS(15,K),GL(15,K), K=1,11) / + 0.1709702D+00, 0.4774667D-02, 0.3272337D+00, + 0.2085570D+00, 0.6096091D-02, 0.4899467D+00, + 0.2637885D+00, 0.9809195D-02, 0.5974096D+00, + 0.2957638D+00, 0.1047664D-01, 0.6684300D+00, + 0.3850212D+00, 0.1364252D-01, 0.8199058D+00, + 0.4199937D+00, 0.1480091D-01, 0.8808272D+00, + 0.5324273D+00, 0.1865882D-01, 0.1074482D+01, + 0.6408225D+00, 0.2252785D-01, 0.1262378D+01, + 0.7467554D+00, 0.2640485D-01, 0.1449204D+01, + 0.8512034D+00, 0.3028796D-01, 0.1636755D+01, + 0.9547686D+00, 0.3417598D-01, 0.1825670D+01/ DATA (SIG(16,K),QNS(16,K),GL(16,K), K=1,11) / + 0.1514900D+00, 0.4587498D-02, 0.2818885D+00, + 0.1836623D+00, 0.5849718D-02, 0.4097530D+00, + 0.2324266D+00, 0.9417417D-02, 0.4935393D+00, + 0.2590170D+00, 0.1004844D-01, 0.5485061D+00, + 0.3339433D+00, 0.1307091D-01, 0.6656389D+00, + 0.3631165D+00, 0.1417383D-01, 0.7129148D+00, + 0.4568269D+00, 0.1784463D-01, 0.8639954D+00, + 0.5472150D+00, 0.2152348D-01, 0.1011711D+01, + 0.6356704D+00, 0.2520832D-01, 0.1159433D+01, + 0.7230151D+00, 0.2889791D-01, 0.1308315D+01, + 0.8097384D+00, 0.3259142D-01, 0.1458630D+01/ DATA (SIG(17,K),QNS(17,K),GL(17,K), K=1,11) / + 0.1362032D+00, 0.4426775D-02, 0.2466773D+00, + 0.1642793D+00, 0.5637536D-02, 0.3493700D+00, + 0.2081314D+00, 0.9078316D-02, 0.4162589D+00, + 0.2307493D+00, 0.9677830D-02, 0.4598475D+00, + 0.2951564D+00, 0.1257574D-01, 0.5527651D+00, + 0.3201033D+00, 0.1363060D-01, 0.5904349D+00, + 0.4002301D+00, 0.1713951D-01, 0.7115331D+00, + 0.4776029D+00, 0.2065413D-01, 0.8308750D+00, + 0.5534435D+00, 0.2417327D-01, 0.9508961D+00, + 0.6284475D+00, 0.2769616D-01, 0.1072330D+01, + 0.7030161D+00, 0.3122227D-01, 0.1195327D+01/ DATA (SIG(18,K),QNS(18,K),GL(18,K), K=1,11) / + 0.1238651D+00, 0.4286165D-02, 0.2185398D+00, + 0.1485757D+00, 0.5453052D-02, 0.3029612D+00, + 0.1886876D+00, 0.8780119D-02, 0.3568719D+00, + 0.2082834D+00, 0.9351763D-02, 0.3920567D+00, + 0.2647055D+00, 0.1213944D-01, 0.4672107D+00, + 0.2864626D+00, 0.1315189D-01, 0.4978496D+00, + 0.3563689D+00, 0.1651818D-01, 0.5969922D+00, + 0.4239718D+00, 0.1988844D-01, 0.6954935D+00, + 0.4903486D+00, 0.2326213D-01, 0.7950932D+00, + 0.5560921D+00, 0.2663887D-01, 0.8962021D+00, + 0.6215344D+00, 0.3001835D-01, 0.9987553D+00/ DATA (SIG(19,K),QNS(19,K),GL(19,K), K=1,11) / + 0.1136880D+00, 0.4161361D-02, 0.1955509D+00, + 0.1357758D+00, 0.5288262D-02, 0.2657110D+00, + 0.1728313D+00, 0.8513547D-02, 0.3099208D+00, + 0.1900576D+00, 0.9060307D-02, 0.3387726D+00, + 0.2402334D+00, 0.1174931D-01, 0.4005765D+00, + 0.2595095D+00, 0.1272387D-01, 0.4259297D+00, + 0.3214905D+00, 0.1596293D-01, 0.5085320D+00, + 0.3815339D+00, 0.1920461D-01, 0.5912675D+00, + 0.4405917D+00, 0.2244892D-01, 0.6753586D+00, + 0.4991714D+00, 0.2569579D-01, 0.7609743D+00, + 0.5575493D+00, 0.2894506D-01, 0.8478420D+00/ DATA (SIG(20,K),QNS(20,K),GL(20,K), K=1,11) / + 0.1051429D+00, 0.4049293D-02, 0.1764239D+00, + 0.1251967D+00, 0.5138969D-02, 0.2350378D+00, + 0.1596674D+00, 0.8272475D-02, 0.2719973D+00, + 0.1749906D+00, 0.8796788D-02, 0.2959797D+00, + 0.2201627D+00, 0.1139652D-01, 0.3475265D+00, + 0.2374618D+00, 0.1233688D-01, 0.3688112D+00, + 0.2931447D+00, 0.1546121D-01, 0.4386453D+00, + 0.3471920D+00, 0.1858711D-01, 0.5091549D+00, + 0.4004459D+00, 0.2171506D-01, 0.5811735D+00, + 0.4533429D+00, 0.2484521D-01, 0.6546974D+00, + 0.5061138D+00, 0.2797757D-01, 0.7293174D+00/ DATA (SIG(21,K),QNS(21,K),GL(21,K), K=1,11) / + 0.9786133D-01, 0.3947691D-02, 0.1602676D+00, + 0.1161986D+00, 0.5003614D-02, 0.2097587D+00, + 0.1485238D+00, 0.8052864D-02, 0.2409080D+00, + 0.1622960D+00, 0.8556679D-02, 0.2610485D+00, + 0.2033910D+00, 0.1107483D-01, 0.3045284D+00, + 0.2190863D+00, 0.1198399D-01, 0.3226118D+00, + 0.2696688D+00, 0.1500384D-01, 0.3823773D+00, + 0.3188646D+00, 0.1802449D-01, 0.4432053D+00, + 0.3674216D+00, 0.2104678D-01, 0.5056271D+00, + 0.4157164D+00, 0.2407107D-01, 0.5694936D+00, + 0.4639427D+00, 0.2709744D-01, 0.6342043D+00/ DATA (SIG(22,K),QNS(22,K),GL(22,K), K=1,11) / + 0.9157856D-01, 0.3854825D-02, 0.1464450D+00, + 0.1084705D+00, 0.4879677D-02, 0.1885441D+00, + 0.1389709D+00, 0.7851154D-02, 0.2150231D+00, + 0.1514586D+00, 0.8336118D-02, 0.2320898D+00, + 0.1891747D+00, 0.1077916D-01, 0.2691259D+00, + 0.2035462D+00, 0.1165966D-01, 0.2846489D+00, + 0.2499252D+00, 0.1458365D-01, 0.3363387D+00, + 0.2951253D+00, 0.1750788D-01, 0.3893658D+00, + 0.3398120D+00, 0.2043351D-01, 0.4440254D+00, + 0.3843117D+00, 0.2336103D-01, 0.5000539D+00, + 0.4287871D+00, 0.2629059D-01, 0.5566753D+00/ DATA (SIG(23,K),QNS(23,K),GL(23,K), K=1,11) / + 0.8609981D-01, 0.3769372D-02, 0.1344894D+00, + 0.1017579D+00, 0.4765453D-02, 0.1705291D+00, + 0.1306882D+00, 0.7664669D-02, 0.1931985D+00, + 0.1420965D+00, 0.8132177D-02, 0.2077720D+00, + 0.1769728D+00, 0.1050562D-01, 0.2395875D+00, + 0.1902355D+00, 0.1135961D-01, 0.2530326D+00, + 0.2330983D+00, 0.1419508D-01, 0.2981487D+00, + 0.2749570D+00, 0.1703043D-01, 0.3447958D+00, + 0.3164053D+00, 0.1986706D-01, 0.3930942D+00, + 0.3577269D+00, 0.2270554D-01, 0.4427890D+00, + 0.3990594D+00, 0.2554609D-01, 0.4934667D+00/ DATA (SIG(24,K),QNS(24,K),GL(24,K), K=1,11) / + 0.8127817D-01, 0.3690287D-02, 0.1240502D+00, + 0.9587178D-01, 0.4659572D-02, 0.1550682D+00, + 0.1234335D+00, 0.7491268D-02, 0.1745938D+00, + 0.1339254D+00, 0.7942527D-02, 0.1871210D+00, + 0.1663844D+00, 0.1025112D-01, 0.2146546D+00, + 0.1787068D+00, 0.1108047D-01, 0.2263920D+00, + 0.2185897D+00, 0.1383374D-01, 0.2660874D+00, + 0.2576166D+00, 0.1658668D-01, 0.3074479D+00, + 0.2963185D+00, 0.1934088D-01, 0.3504595D+00, + 0.3349425D+00, 0.2209699D-01, 0.3949131D+00, + 0.3736051D+00, 0.2485523D-01, 0.4408714D+00/ DATA (SIG(25,K),QNS(25,K),GL(25,K), K=1,11) / + 0.7700072D-01, 0.3616717D-02, 0.1148599D+00, + 0.9066703D-01, 0.4560939D-02, 0.1416777D+00, + 0.1170243D+00, 0.7329230D-02, 0.1585820D+00, + 0.1267295D+00, 0.7765293D-02, 0.1694124D+00, + 0.1571087D+00, 0.1001317D-01, 0.1933961D+00, + 0.1686245D+00, 0.1081949D-01, 0.2037145D+00, + 0.2059529D+00, 0.1349607D-01, 0.2388896D+00, + 0.2425518D+00, 0.1617226D-01, 0.2758190D+00, + 0.2788968D+00, 0.1884976D-01, 0.3143754D+00, + 0.3152034D+00, 0.2152928D-01, 0.3543264D+00, + 0.3515700D+00, 0.2421104D-01, 0.3957874D+00/ DATA (SIG(26,K),QNS(26,K),GL(26,K), K=1,11) / + 0.7317924D-01, 0.3547973D-02, 0.1067101D+00, + 0.8603272D-01, 0.4468605D-02, 0.1299792D+00, + 0.1113200D+00, 0.7177133D-02, 0.1446859D+00, + 0.1203424D+00, 0.7598930D-02, 0.1540961D+00, + 0.1489149D+00, 0.9789726D-02, 0.1751095D+00, + 0.1597317D+00, 0.1057444D-01, 0.1842373D+00, + 0.1948478D+00, 0.1317917D-01, 0.2156051D+00, + 0.2293430D+00, 0.1578356D-01, 0.2487827D+00, + 0.2636440D+00, 0.1838941D-01, 0.2835412D+00, + 0.2979390D+00, 0.2099743D-01, 0.3195266D+00, + 0.3323100D+00, 0.2360783D-01, 0.3563460D+00/ DATA (SIG(27,K),QNS(27,K),GL(27,K), K=1,11) / + 0.6974384D-01, 0.3483488D-02, 0.9943664D-01, + 0.8187382D-01, 0.4382003D-02, 0.1197128D+00, + 0.1062061D+00, 0.7033862D-02, 0.1325399D+00, + 0.1146319D+00, 0.7442211D-02, 0.1407497D+00, + 0.1416214D+00, 0.9579126D-02, 0.1592550D+00, + 0.1518274D+00, 0.1034350D-01, 0.1673748D+00, + 0.1850101D+00, 0.1288067D-01, 0.1955072D+00, + 0.2176658D+00, 0.1541765D-01, 0.2254800D+00, + 0.2501778D+00, 0.1795630D-01, 0.2569802D+00, + 0.2827101D+00, 0.2049730D-01, 0.2895307D+00, + 0.3153313D+00, 0.2304087D-01, 0.3221902D+00/ DATA (SIG(28,K),QNS(28,K),GL(28,K), K=1,11) / + 0.6663838D-01, 0.3422795D-02, 0.9290756D-01, + 0.7810341D-01, 0.4300967D-02, 0.1107238D+00, + 0.1015874D+00, 0.6898572D-02, 0.1218608D+00, + 0.1094900D+00, 0.7294175D-02, 0.1290444D+00, + 0.1350829D+00, 0.9380019D-02, 0.1454110D+00, + 0.1447512D+00, 0.1012516D-01, 0.1526704D+00, + 0.1762317D+00, 0.1259856D-01, 0.1780313D+00, + 0.2072659D+00, 0.1507204D-01, 0.2052453D+00, + 0.2381990D+00, 0.1754745D-01, 0.2339463D+00, + 0.2691743D+00, 0.2002546D-01, 0.2636970D+00, + 0.3002485D+00, 0.2250621D-01, 0.2938297D+00/ DATA (SIG(29,K),QNS(29,K),GL(29,K), K=1,11) / + 0.5672650D-01, 0.3210853D-02, 0.7240408D-01, + 0.6615824D-01, 0.4016148D-02, 0.8323177D-01, + 0.8691136D-01, 0.6420369D-02, 0.8971424D-01, + 0.9323547D-01, 0.6771184D-02, 0.9406866D-01, + 0.1145714D+00, 0.8676316D-02, 0.1045172D+00, + 0.1226097D+00, 0.9353817D-02, 0.1093721D+00, + 0.1489274D+00, 0.1160369D-01, 0.1268984D+00, + 0.1750335D+00, 0.1385536D-01, 0.1462071D+00, + 0.2011561D+00, 0.1611042D-01, 0.1668319D+00, + 0.2273771D+00, 0.1836924D-01, 0.1885959D+00, + 0.2537208D+00, 0.2063174D-01, 0.2122672D+00/ DATA (SIG(30,K),QNS(30,K),GL(30,K), K=1,11) / + 0.4954493D-01, 0.3036037D-02, 0.5791704D-01, + 0.5767308D-01, 0.3776657D-02, 0.6409829D-01, + 0.7632964D-01, 0.6017023D-02, 0.6828358D-01, + 0.8158505D-01, 0.6330936D-02, 0.7103772D-01, + 0.9998869D-01, 0.8084253D-02, 0.7807089D-01, + 0.1069129D+00, 0.8705546D-02, 0.8150090D-01, + 0.1296983D+00, 0.1077057D-01, 0.9427469D-01, + 0.1524214D+00, 0.1283979D-01, 0.1086698D+00, + 0.1752299D+00, 0.1491422D-01, 0.1241663D+00, + 0.1981660D+00, 0.1699377D-01, 0.1404129D+00, + 0.2212340D+00, 0.1907801D-01, 0.1571799D+00/ DATA (SIG(31,K),QNS(31,K),GL(31,K), K=1,11) / + 0.4412153D-01, 0.2888053D-02, 0.4723757D-01, + 0.5124083D-01, 0.3574623D-02, 0.5079840D-01, + 0.6828640D-01, 0.5668800D-02, 0.5340916D-01, + 0.7278667D-01, 0.5951593D-02, 0.5518718D-01, + 0.8905596D-01, 0.7573866D-02, 0.6011898D-01, + 0.9517505D-01, 0.8147290D-02, 0.6265433D-01, + 0.1154004D+00, 0.1005577D-01, 0.7237706D-01, + 0.1356604D+00, 0.1197136D-01, 0.8354372D-01, + 0.1560466D+00, 0.1389421D-01, 0.9564194D-01, + 0.1765749D+00, 0.1582365D-01, 0.1083558D+00, + 0.1972366D+00, 0.1775883D-01, 0.1215070D+00/ DATA (SIG(32,K),QNS(32,K),GL(32,K), K=1,11) / + 0.3987000D-01, 0.2760162D-02, 0.3905016D-01, + 0.4620264D-01, 0.3399376D-02, 0.4096906D-01, + 0.6191934D-01, 0.5361016D-02, 0.4254156D-01, + 0.6585419D-01, 0.5617449D-02, 0.4369583D-01, + 0.8047312D-01, 0.7124692D-02, 0.4725629D-01, + 0.8597415D-01, 0.7656726D-02, 0.4919142D-01, + 0.1042297D+00, 0.9430540D-02, 0.5681735D-01, + 0.1225874D+00, 0.1121465D-01, 0.6571598D-01, + 0.1410978D+00, 0.1300815D-01, 0.7540076D-01, + 0.1597577D+00, 0.1480967D-01, 0.8558730D-01, + 0.1785497D+00, 0.1661794D-01, 0.9611574D-01/ DATA (SIG(33,K),QNS(33,K),GL(33,K), K=1,11) / + 0.3646109D-01, 0.2648039D-02, 0.3263199D-01, + 0.4217242D-01, 0.3244785D-02, 0.3347094D-01, + 0.5674877D-01, 0.5084485D-02, 0.3439708D-01, + 0.6024879D-01, 0.5318638D-02, 0.3515416D-01, + 0.7354944D-01, 0.6723776D-02, 0.3781038D-01, + 0.7856124D-01, 0.7219697D-02, 0.3933451D-01, + 0.9525463D-01, 0.8876577D-02, 0.4548254D-01, + 0.1120997D+00, 0.1054704D-01, 0.5274369D-01, + 0.1291150D+00, 0.1222897D-01, 0.6066672D-01, + 0.1462836D+00, 0.1392031D-01, 0.6899395D-01, + 0.1635819D+00, 0.1561931D-01, 0.7755795D-01/ DATA (SIG(34,K),QNS(34,K),GL(34,K), K=1,11) / + 0.3367022D-01, 0.2548552D-02, 0.2749444D-01, + 0.3887100D-01, 0.3106863D-02, 0.2762565D-01, + 0.5244414D-01, 0.4832766D-02, 0.2813872D-01, + 0.5560189D-01, 0.5048218D-02, 0.2863779D-01, + 0.6781742D-01, 0.6361936D-02, 0.3067907D-01, + 0.7243072D-01, 0.6826144D-02, 0.3191142D-01, + 0.8784979D-01, 0.8380807D-02, 0.3697870D-01, + 0.1034580D+00, 0.9952320D-02, 0.4301513D-01, + 0.1192488D+00, 0.1153730D-01, 0.4960915D-01, + 0.1351946D+00, 0.1313294D-01, 0.5653657D-01, + 0.1512669D+00, 0.1473702D-01, 0.6366571D-01/ DATA (SIG(35,K),QNS(35,K),GL(35,K), K=1,11) / + 0.3134481D-01, 0.2459379D-02, 0.2331059D-01, + 0.3611534D-01, 0.2982715D-02, 0.2298208D-01, + 0.4878597D-01, 0.4601158D-02, 0.2322870D-01, + 0.5167003D-01, 0.4801118D-02, 0.2355833D-01, + 0.6297136D-01, 0.6032467D-02, 0.2517093D-01, + 0.6725305D-01, 0.6468721D-02, 0.2618981D-01, + 0.8161064D-01, 0.7933663D-02, 0.3044220D-01, + 0.9618679D-01, 0.9418618D-02, 0.3553568D-01, + 0.1109544D+00, 0.1091889D-01, 0.4109899D-01, + 0.1258772D+00, 0.1243090D-01, 0.4694225D-01, + 0.1409234D+00, 0.1395202D-01, 0.5298558D-01/ DATA (SIG(36,K),QNS(36,K),GL(36,K), K=1,11) / + 0.2938217D-01, 0.2378800D-02, 0.1986429D-01, + 0.3378389D-01, 0.2870303D-02, 0.1925703D-01, + 0.4562917D-01, 0.4386271D-02, 0.1932811D-01, + 0.4829334D-01, 0.4573682D-02, 0.1954728D-01, + 0.5881281D-01, 0.5730525D-02, 0.2085770D-01, + 0.6281506D-01, 0.6142113D-02, 0.2171753D-01, + 0.7627748D-01, 0.7528192D-02, 0.2534355D-01, + 0.8998194D-01, 0.8937272D-02, 0.2969751D-01, + 0.1038842D+00, 0.1036331D-01, 0.3444605D-01, + 0.1179407D+00, 0.1180201D-01, 0.3942204D-01, + 0.1321170D+00, 0.1325033D-01, 0.4454895D-01/ DATA (SIG(37,K),QNS(37,K),GL(37,K), K=1,11) / + 0.2770262D-01, 0.2305415D-02, 0.1698906D-01, + 0.3178261D-01, 0.2767735D-02, 0.1621974D-01, + 0.4286201D-01, 0.4185330D-02, 0.1617733D-01, + 0.4534900D-01, 0.4362933D-02, 0.1632430D-01, + 0.5518980D-01, 0.5452214D-02, 0.1741592D-01, + 0.5895360D-01, 0.5842051D-02, 0.1815359D-01, + 0.7165176D-01, 0.7158814D-02, 0.2128433D-01, + 0.8461095D-01, 0.8501318D-02, 0.2504361D-01, + 0.9777212D-01, 0.9862194D-02, 0.2913437D-01, + 0.1110861D+00, 0.1123646D-01, 0.3341568D-01, + 0.1245159D+00, 0.1262069D-01, 0.3784494D-01/ DATA (SIG(38,K),QNS(38,K),GL(38,K), K=1,11) / + 0.2625076D-01, 0.2238143D-02, 0.1457164D-01, + 0.3004678D-01, 0.2673543D-02, 0.1371774D-01, + 0.4040840D-01, 0.3996244D-02, 0.1360885D-01, + 0.4275402D-01, 0.4166634D-02, 0.1371041D-01, + 0.5200107D-01, 0.5194614D-02, 0.1464250D-01, + 0.5556037D-01, 0.5565332D-02, 0.1528490D-01, + 0.6760275D-01, 0.6821321D-02, 0.1801795D-01, + 0.7992130D-01, 0.8105482D-02, 0.2129236D-01, + 0.9244427D-01, 0.9409166D-02, 0.2484524D-01, + 0.1051176D+00, 0.1072675D-01, 0.2856420D-01, + 0.1179026D+00, 0.1205448D-01, 0.3246368D-01/ DATA (SIG(39,K),QNS(39,K),GL(39,K), K=1,11) / + 0.2498264D-01, 0.2176074D-02, 0.1252296D-01, + 0.2852474D-01, 0.2586529D-02, 0.1163583D-01, + 0.3820837D-01, 0.3817320D-02, 0.1149342D-01, + 0.4044316D-01, 0.3982970D-02, 0.1156755D-01, + 0.4916729D-01, 0.4955355D-02, 0.1238112D-01, + 0.5255058D-01, 0.5309351D-02, 0.1294757D-01, + 0.6402810D-01, 0.6512269D-02, 0.1535507D-01, + 0.7579352D-01, 0.7745429D-02, 0.1822732D-01, + 0.8776405D-01, 0.8998974D-02, 0.2132728D-01, + 0.9988157D-01, 0.1026671D-01, 0.2451663D-01, + 0.1121061D+00, 0.1154461D-01, 0.2759257D-01/ DATA (SIG(40,K),QNS(40,K),GL(40,K), K=1,11) / + 0.2386489D-01, 0.2118459D-02, 0.1077657D-01, + 0.2717822D-01, 0.2505779D-02, 0.9892013D-02, + 0.3621722D-01, 0.3647218D-02, 0.9738241D-02, + 0.3836804D-01, 0.3810504D-02, 0.9797171D-02, + 0.4663004D-01, 0.4732553D-02, 0.1052143D-01, + 0.4986193D-01, 0.5072033D-02, 0.1102628D-01, + 0.6085280D-01, 0.6228898D-02, 0.1316329D-01, + 0.7214003D-01, 0.7417662D-02, 0.1569785D-01, + 0.8363130D-01, 0.8627361D-02, 0.1841362D-01, + 0.9526528D-01, 0.9851314D-02, 0.2112131D-01, + 0.1070011D+00, 0.1108527D-01, 0.2327940D-01/ DATA (SIG(41,K),QNS(41,K),GL(41,K), K=1,11) / + 0.2287098D-01, 0.2064657D-02, 0.9280388D-02, + 0.2597773D-01, 0.2430616D-02, 0.8425721D-02, + 0.3439999D-01, 0.3484847D-02, 0.8272486D-02, + 0.3649089D-01, 0.3648070D-02, 0.8324276D-02, + 0.4434388D-01, 0.4524671D-02, 0.8979947D-02, + 0.4744594D-01, 0.4851682D-02, 0.9433945D-02, + 0.5801849D-01, 0.5968927D-02, 0.1134298D-01, + 0.6889258D-01, 0.7119276D-02, 0.1359116D-01, + 0.7996782D-01, 0.8290777D-02, 0.1599018D-01, + 0.9118045D-01, 0.9476352D-02, 0.1839031D-01, + 0.1024892D+00, 0.1067160D-01, 0.2039326D-01/ DATA (SIG(42,K),QNS(42,K),GL(42,K), K=1,11) / + 0.2197955D-01, 0.2014114D-02, 0.7993099D-02, + 0.2489892D-01, 0.2360339D-02, 0.7186451D-02, + 0.3272884D-01, 0.3329282D-02, 0.7041447D-02, + 0.3478187D-01, 0.3494691D-02, 0.7091319D-02, + 0.4227310D-01, 0.4330436D-02, 0.7693084D-02, + 0.4526455D-01, 0.4646892D-02, 0.8104329D-02, + 0.5547928D-01, 0.5730457D-02, 0.9818596D-02, + 0.6599736D-01, 0.6847828D-02, 0.1182118D-01, + 0.7671179D-01, 0.7986219D-02, 0.1395409D-01, + 0.8755713D-01, 0.9138261D-02, 0.1614919D-01, + 0.9849221D-01, 0.1029947D-01, 0.1837904D-01/ DATA (SIG(43,K),QNS(43,K),GL(43,K), K=1,11) / + 0.2117340D-01, 0.1966342D-02, 0.6882100D-02, + 0.2392202D-01, 0.2294293D-02, 0.6133391D-02, + 0.3118119D-01, 0.3179651D-02, 0.6003205D-02, + 0.3321734D-01, 0.3349532D-02, 0.6054520D-02, + 0.4038951D-01, 0.4148762D-02, 0.6612858D-02, + 0.4328782D-01, 0.4456474D-02, 0.6987574D-02, + 0.5319917D-01, 0.5511893D-02, 0.8533492D-02, + 0.6341209D-01, 0.6601263D-02, 0.1032315D-01, + 0.7381442D-01, 0.7711148D-02, 0.1221988D-01, + 0.8433995D-01, 0.8834009D-02, 0.1417351D-01, + 0.9494803D-01, 0.9965359D-02, 0.1620130D-01/ DATA (SIG(44,K),QNS(44,K),GL(44,K), K=1,11) / + 0.2043814D-01, 0.1920905D-02, 0.5920516D-02, + 0.2303106D-01, 0.2231972D-02, 0.5235412D-02, + 0.2973935D-01, 0.3035369D-02, 0.5123704D-02, + 0.3177770D-01, 0.3211858D-02, 0.5178428D-02, + 0.3867066D-01, 0.3978835D-02, 0.5700761D-02, + 0.4149177D-01, 0.4279512D-02, 0.6043757D-02, + 0.5114890D-01, 0.5311924D-02, 0.7442485D-02, + 0.6110199D-01, 0.6377837D-02, 0.9046025D-02, + 0.7123538D-01, 0.7463372D-02, 0.1073481D-01, + 0.8148293D-01, 0.8560955D-02, 0.1245572D-01, + 0.9180501D-01, 0.9666184D-02, 0.1416720D-01/ DATA (SIG(45,K),QNS(45,K),GL(45,K), K=1,11) / + 0.1976193D-01, 0.1877410D-02, 0.5086713D-02, + 0.2221291D-01, 0.2172914D-02, 0.4467734D-02, + 0.2838599D-01, 0.2895430D-02, 0.4376311D-02, + 0.3044695D-01, 0.3081011D-02, 0.4435494D-02, + 0.3709682D-01, 0.3819678D-02, 0.4927158D-02, + 0.3985576D-01, 0.4114991D-02, 0.5242225D-02, + 0.4930422D-01, 0.5129310D-02, 0.6511036D-02, + 0.5903866D-01, 0.6175988D-02, 0.7950838D-02, + 0.6894178D-01, 0.7240966D-02, 0.9458458D-02, + 0.7894853D-01, 0.8316794D-02, 0.1098790D-01, + 0.8902094D-01, 0.9399251D-02, 0.1249729D-01/ DATA (SIG(46,K),QNS(46,K),GL(46,K), K=1,11) / + 0.1913463D-01, 0.1835496D-02, 0.4362632D-02, + 0.2145590D-01, 0.2116647D-02, 0.3809195D-02, + 0.2710495D-01, 0.2758708D-02, 0.3739239D-02, + 0.2921686D-01, 0.2957282D-02, 0.3803287D-02, + 0.3564769D-01, 0.3669808D-02, 0.4268056D-02, + 0.3835874D-01, 0.3961405D-02, 0.4558201D-02, + 0.4764170D-01, 0.4962458D-02, 0.5711288D-02, + 0.5719584D-01, 0.5993963D-02, 0.7006013D-02, + 0.6690404D-01, 0.7041949D-02, 0.8354029D-02, + 0.7670359D-01, 0.8099270D-02, 0.9717345D-02, + 0.8655882D-01, 0.9162005D-02, 0.1106294D-01/ DATA (SIG(47,K),QNS(47,K),GL(47,K), K=1,11) / + 0.1854764D-01, 0.1794825D-02, 0.3733304D-02, + 0.2075086D-01, 0.2062805D-02, 0.3243440D-02, + 0.2586753D-01, 0.2621691D-02, 0.3195035D-02, + 0.2806129D-01, 0.2837668D-02, 0.3263885D-02, + 0.3430926D-01, 0.3528447D-02, 0.3704376D-02, + 0.3698811D-01, 0.3818282D-02, 0.3971997D-02, + 0.4614900D-01, 0.4811196D-02, 0.5021144D-02, + 0.5555833D-01, 0.5831374D-02, 0.6186538D-02, + 0.6510306D-01, 0.6865544D-02, 0.7393058D-02, + 0.7472472D-01, 0.7907176D-02, 0.8610003D-02, + 0.8439100D-01, 0.8952809D-02, 0.9813729D-02/ DATA (SIG(48,K),QNS(48,K),GL(48,K), K=1,11) / + 0.1799345D-01, 0.1755079D-02, 0.3186141D-02, + 0.2009060D-01, 0.2011123D-02, 0.2757918D-02, + 0.2462623D-01, 0.2477509D-02, 0.2729519D-02, + 0.2693235D-01, 0.2715303D-02, 0.2802749D-02, + 0.3306826D-01, 0.3394658D-02, 0.3220668D-02, + 0.3573439D-01, 0.3685386D-02, 0.3467681D-02, + 0.4482053D-01, 0.4676154D-02, 0.4422733D-02, + 0.5411841D-01, 0.5688723D-02, 0.5472197D-02, + 0.6352707D-01, 0.6711812D-02, 0.6552948D-02, + 0.7299563D-01, 0.7740054D-02, 0.7643261D-02, + 0.8249668D-01, 0.8770698D-02, 0.8741538D-02/ DATA (SIG(49,K),QNS(49,K),GL(49,K), K=1,11) / + 0.1746548D-01, 0.1715953D-02, 0.2710467D-02, + 0.1946806D-01, 0.1961262D-02, 0.2340938D-02, + 0.2350704D-01, 0.2348056D-02, 0.2330809D-02, + 0.2590782D-01, 0.2604098D-02, 0.2407697D-02, + 0.3198994D-01, 0.3280403D-02, 0.2804010D-02, + 0.3465026D-01, 0.3572639D-02, 0.3031970D-02, + 0.4367926D-01, 0.4562489D-02, 0.3901298D-02, + 0.5288092D-01, 0.5568338D-02, 0.4846367D-02, + 0.6216904D-01, 0.6581304D-02, 0.5814597D-02, + 0.7150093D-01, 0.7597267D-02, 0.6792054D-02, + 0.8085416D-01, 0.8614193D-02, 0.7796493D-02/ DATA (SIG(50,K),QNS(50,K),GL(50,K), K=1,11) / + 0.1695791D-01, 0.1677152D-02, 0.2297231D-02, + 0.1887672D-01, 0.1912869D-02, 0.1982212D-02, + 0.2268456D-01, 0.2263196D-02, 0.1989012D-02, + 0.2510231D-01, 0.2523959D-02, 0.2068612D-02, + 0.3115808D-01, 0.3200559D-02, 0.2443735D-02, + 0.3380212D-01, 0.3492068D-02, 0.2653930D-02, + 0.4275270D-01, 0.4475908D-02, 0.3444788D-02, + 0.5185150D-01, 0.5472451D-02, 0.4295515D-02, + 0.6102133D-01, 0.6474218D-02, 0.5162264D-02, + 0.7022431D-01, 0.7477751D-02, 0.6033582D-02, + 0.7944090D-01, 0.8481383D-02, 0.6922060D-02/ DATA (SIG(51,K),QNS(51,K),GL(51,K), K=1,11) / + 0.1646541D-01, 0.1638383D-02, 0.1938626D-02, + 0.1831074D-01, 0.1865606D-02, 0.1673497D-02, + 0.2204616D-01, 0.2204811D-02, 0.1695369D-02, + 0.2444568D-01, 0.2463889D-02, 0.1776706D-02, + 0.3047576D-01, 0.3139762D-02, 0.2130947D-02, + 0.3309959D-01, 0.3429442D-02, 0.2324524D-02, + 0.4196919D-01, 0.4405446D-02, 0.3043336D-02, + 0.5097149D-01, 0.5392421D-02, 0.3808564D-02, + 0.6003382D-01, 0.6383495D-02, 0.4583789D-02, + 0.6912110D-01, 0.7375522D-02, 0.5358050D-02, + 0.7821569D-01, 0.8367026D-02, 0.6131132D-02/ DATA (SIG(52,K),QNS(52,K),GL(52,K), K=1,11) / + 0.1598313D-01, 0.1599356D-02, 0.1627963D-02, + 0.1776514D-01, 0.1819174D-02, 0.1407954D-02, + 0.2148560D-01, 0.2155759D-02, 0.1442665D-02, + 0.2386894D-01, 0.2412981D-02, 0.1524787D-02, + 0.2986111D-01, 0.3085047D-02, 0.1858422D-02, + 0.3246750D-01, 0.3372948D-02, 0.2036420D-02, + 0.4127076D-01, 0.4342294D-02, 0.2688928D-02, + 0.5019388D-01, 0.5321403D-02, 0.3376494D-02, + 0.5916623D-01, 0.6303562D-02, 0.4069231D-02, + 0.6815506D-01, 0.7285834D-02, 0.4757368D-02, + 0.7714466D-01, 0.8266924D-02, 0.5433820D-02/ DATA (SIG(53,K),QNS(53,K),GL(53,K), K=1,11) / + 0.1550654D-01, 0.1559773D-02, 0.1359418D-02, + 0.1723619D-01, 0.1773360D-02, 0.1180071D-02, + 0.2096290D-01, 0.2109849D-02, 0.1225215D-02, + 0.2333658D-01, 0.2365825D-02, 0.1307185D-02, + 0.2930237D-01, 0.3035046D-02, 0.1620378D-02, + 0.3189688D-01, 0.3321720D-02, 0.1783705D-02, + 0.4065142D-01, 0.4286208D-02, 0.2374984D-02, + 0.4951167D-01, 0.5259127D-02, 0.2991800D-02, + 0.5840944D-01, 0.6233935D-02, 0.3610009D-02, + 0.6731464D-01, 0.7207936D-02, 0.4221724D-02, + 0.7621369D-01, 0.8180047D-02, 0.4818659D-02/ DATA (SIG(54,K),QNS(54,K),GL(54,K), K=1,11) / + 0.1503130D-01, 0.1519329D-02, 0.1127933D-02, + 0.1671990D-01, 0.1727892D-02, 0.9849006D-03, + 0.2045578D-01, 0.2063797D-02, 0.1038154D-02, + 0.2282919D-01, 0.2319642D-02, 0.1119089D-02, + 0.2878964D-01, 0.2988638D-02, 0.1411966D-02, + 0.3137898D-01, 0.3274867D-02, 0.1561435D-02, + 0.4010326D-01, 0.4236559D-02, 0.2096014D-02, + 0.4891584D-01, 0.5204902D-02, 0.2648220D-02, + 0.5775263D-01, 0.6173755D-02, 0.3198920D-02, + 0.6658697D-01, 0.7140768D-02, 0.3742543D-02, + 0.7540784D-01, 0.8105119D-02, 0.4273630D-02/ DATA (SIG(55,K),QNS(55,K),GL(55,K), K=1,11) / + 0.1455322D-01, 0.1477706D-02, 0.9290777D-03, + 0.1621185D-01, 0.1682435D-02, 0.8178835D-03, + 0.1996990D-01, 0.2018943D-02, 0.8772579D-03, + 0.2235032D-01, 0.2275435D-02, 0.9563592D-03, + 0.2832019D-01, 0.2945853D-02, 0.1229056D-02, + 0.3090970D-01, 0.3232220D-02, 0.1365408D-02, + 0.3961889D-01, 0.4192747D-02, 0.1847375D-02, + 0.4839651D-01, 0.5157844D-02, 0.2340460D-02, + 0.5718377D-01, 0.6121909D-02, 0.2829815D-02, + 0.6595804D-01, 0.7083010D-02, 0.3311857D-02, + 0.7471115D-01, 0.8040628D-02, 0.3783842D-02/ DATA (SIG(56,K),QNS(56,K),GL(56,K), K=1,11) / + 0.1406811D-01, 0.1434564D-02, 0.7589557D-03, + 0.1570823D-01, 0.1636690D-02, 0.6752545D-03, + 0.1950212D-01, 0.1975114D-02, 0.7389313D-03, + 0.2189636D-01, 0.2232978D-02, 0.8154783D-03, + 0.2788920D-01, 0.2906329D-02, 0.1068157D-02, + 0.3048365D-01, 0.3193354D-02, 0.1192079D-02, + 0.3919091D-01, 0.4154133D-02, 0.1625145D-02, + 0.4794429D-01, 0.5117102D-02, 0.2064043D-02, + 0.5669146D-01, 0.6077336D-02, 0.2497567D-02, + 0.6541444D-01, 0.7033397D-02, 0.2923871D-02, + 0.7410826D-01, 0.7985108D-02, 0.3342986D-02/ DATA (SIG(57,K),QNS(57,K),GL(57,K), K=1,11) / + 0.1357172D-01, 0.1389532D-02, 0.6141374D-03, + 0.1520546D-01, 0.1590357D-02, 0.5538299D-03, + 0.1904756D-01, 0.1931818D-02, 0.6201010D-03, + 0.2146241D-01, 0.2191801D-02, 0.6934552D-03, + 0.2749114D-01, 0.2869556D-02, 0.9263228D-03, + 0.3009486D-01, 0.3157722D-02, 0.1038456D-02, + 0.3881166D-01, 0.4120003D-02, 0.1426019D-02, + 0.4754955D-01, 0.5081763D-02, 0.1815194D-02, + 0.5626407D-01, 0.6038917D-02, 0.2197886D-02, + 0.6494256D-01, 0.6990604D-02, 0.2574141D-02, + 0.7358356D-01, 0.7937031D-02, 0.2948746D-02/ DATA (SIG(58,K),QNS(58,K),GL(58,K), K=1,11) / + 0.1305961D-01, 0.1342208D-02, 0.4915750D-03, + 0.1469918D-01, 0.1543048D-02, 0.4508016D-03, + 0.1860215D-01, 0.1888699D-02, 0.5181130D-03, + 0.2104422D-01, 0.2151533D-02, 0.5877194D-03, + 0.2712081D-01, 0.2835076D-02, 0.8010341D-03, + 0.2973763D-01, 0.3124815D-02, 0.9019835D-03, + 0.3847346D-01, 0.4089642D-02, 0.1247175D-02, + 0.4720254D-01, 0.5050893D-02, 0.1590676D-02, + 0.5588975D-01, 0.6005498D-02, 0.1926936D-02, + 0.6452845D-01, 0.6953258D-02, 0.2257086D-02, + 0.7312111D-01, 0.7894811D-02, 0.2587537D-02/ DATA (SIG(59,K),QNS(59,K),GL(59,K), K=1,11) / + 0.1252702D-01, 0.1292136D-02, 0.3885671D-03, + 0.1418534D-01, 0.1494387D-02, 0.3637417D-03, + 0.1816184D-01, 0.1845390D-02, 0.4306922D-03, + 0.2063755D-01, 0.2111791D-02, 0.4960791D-03, + 0.2677293D-01, 0.2802407D-02, 0.6901580D-03, + 0.2940612D-01, 0.3094090D-02, 0.7805020D-03, + 0.3816837D-01, 0.4062288D-02, 0.1086226D-02, + 0.4689307D-01, 0.5023491D-02, 0.1387751D-02, + 0.5555607D-01, 0.5975840D-02, 0.1681514D-02, + 0.6415751D-01, 0.6919890D-02, 0.1968570D-02, + 0.7270413D-01, 0.7856755D-02, 0.2251816D-02/ DATA (SIG(60,K),QNS(60,K),GL(60,K), K=1,11) / + 0.1196868D-01, 0.1238794D-02, 0.3027001D-03, + 0.1366069D-01, 0.1444059D-02, 0.2905299D-03, + 0.1772278D-01, 0.1801523D-02, 0.3558742D-03, + 0.2023822D-01, 0.2072187D-02, 0.4166499D-03, + 0.2644215D-01, 0.2771042D-02, 0.5918701D-03, + 0.2909433D-01, 0.3064977D-02, 0.6721645D-03, + 0.3788805D-01, 0.4037122D-02, 0.9411313D-03, + 0.4661037D-01, 0.4998478D-02, 0.1204081D-02, + 0.5524982D-01, 0.5948604D-02, 0.1459074D-02, + 0.6381416D-01, 0.6888909D-02, 0.1707222D-02, + 0.7231476D-01, 0.7821029D-02, 0.1949374D-02/ DATA (SIG(61,K),QNS(61,K),GL(61,K), K=1,11) / + 0.1137865D-01, 0.1181574D-02, 0.2318165D-03, + 0.1312101D-01, 0.1391639D-02, 0.2292968D-03, + 0.1728060D-01, 0.1756671D-02, 0.2919582D-03, + 0.1984164D-01, 0.2032277D-02, 0.3478124D-03, + 0.2612261D-01, 0.2740417D-02, 0.5046158D-03, + 0.2879571D-01, 0.3036838D-02, 0.5753994D-03, + 0.3762338D-01, 0.4013233D-02, 0.8101543D-03, + 0.4634261D-01, 0.4974653D-02, 0.1037667D-02, + 0.5495655D-01, 0.5922305D-02, 0.1257321D-02, + 0.6348138D-01, 0.6858553D-02, 0.1470516D-02, + 0.7193348D-01, 0.7785600D-02, 0.1677973D-02/ DATA (SIG(62,K),QNS(62,K),GL(62,K), K=1,11) / + 0.1074991D-01, 0.1119738D-02, 0.1739793D-03, + 0.1256094D-01, 0.1336577D-02, 0.1783844D-03, + 0.1683025D-01, 0.1710325D-02, 0.2374660D-03, + 0.1944256D-01, 0.1991544D-02, 0.2881699D-03, + 0.2580777D-01, 0.2709886D-02, 0.4270664D-03, + 0.2850296D-01, 0.3008949D-02, 0.4888655D-03, + 0.3736416D-01, 0.3989588D-02, 0.6918148D-03, + 0.4607655D-01, 0.4950653D-02, 0.8868018D-03, + 0.5466002D-01, 0.5895256D-02, 0.1074146D-02, + 0.6314003D-01, 0.6826821D-02, 0.1254700D-02, + 0.7153834D-01, 0.7748167D-02, 0.1425246D-02/ DATA (SIG(63,K),QNS(63,K),GL(63,K), K=1,11) / + 0.1007400D-01, 0.1052383D-02, 0.1274453D-03, + 0.1197358D-01, 0.1278152D-02, 0.1364337D-03, + 0.1636572D-01, 0.1661868D-02, 0.1911371D-03, + 0.1903486D-01, 0.1949365D-02, 0.2365329D-03, + 0.2549000D-01, 0.2678687D-02, 0.3580925D-03, + 0.2820758D-01, 0.2980457D-02, 0.4114234D-03, + 0.3709858D-01, 0.3964979D-02, 0.5848546D-03, + 0.4579694D-01, 0.4924896D-02, 0.7500401D-03, + 0.5434155D-01, 0.5865502D-02, 0.9080527D-03, + 0.6276812D-01, 0.6791399D-02, 0.1059851D-02, + 0.7110417D-01, 0.7706069D-02, 0.1202185D-02/ DATA (SIG(64,K),QNS(64,K),GL(64,K), K=1,11) / + 0.9622924D-02, 0.1006979D-02, 0.1033961D-03, + 0.1158935D-01, 0.1239575D-02, 0.1142204D-03, + 0.1606518D-01, 0.1630195D-02, 0.1658357D-03, + 0.1877257D-01, 0.1921954D-02, 0.2078648D-03, + 0.2528606D-01, 0.2658460D-02, 0.3189058D-03, + 0.2801733D-01, 0.2961906D-02, 0.3672030D-03, + 0.3692332D-01, 0.3948482D-02, 0.5233033D-03, + 0.4560741D-01, 0.4907079D-02, 0.6711742D-03, + 0.5412171D-01, 0.5844512D-02, 0.8123121D-03, + 0.6250880D-01, 0.6766180D-02, 0.9483706D-03, + 0.7079999D-01, 0.7676003D-02, 0.1079576D-02/ DATA (SIG(65,K),QNS(65,K),GL(65,K), K=1,11) / + 0.9146037D-02, 0.9586166D-03, 0.8279114D-04, + 0.1118984D-01, 0.1199183D-02, 0.9473437D-04, + 0.1575466D-01, 0.1597227D-02, 0.1430530D-03, + 0.1850232D-01, 0.1893508D-02, 0.1816995D-03, + 0.2507520D-01, 0.2637382D-02, 0.2824857D-03, + 0.2781954D-01, 0.2942452D-02, 0.3259477D-03, + 0.3673635D-01, 0.3930649D-02, 0.4655528D-03, + 0.4540055D-01, 0.4887307D-02, 0.5970734D-03, + 0.5387853D-01, 0.5820898D-02, 0.7223289D-03, + 0.6222016D-01, 0.6737665D-02, 0.8434945D-03, + 0.7046065D-01, 0.7641985D-02, 0.9635346D-03/ DATA (SIG(66,K),QNS(66,K),GL(66,K), K=1,11) / + 0.8639353D-02, 0.9068600D-03, 0.6529791D-04, + 0.1077253D-01, 0.1156700D-02, 0.7772599D-04, + 0.1543193D-01, 0.1562728D-02, 0.1225721D-03, + 0.1822189D-01, 0.1863792D-02, 0.1578370D-03, + 0.2485458D-01, 0.2615166D-02, 0.2486485D-03, + 0.2761103D-01, 0.2921773D-02, 0.2874734D-03, + 0.3653314D-01, 0.3911010D-02, 0.4114025D-03, + 0.4517043D-01, 0.4864960D-02, 0.5275054D-03, + 0.5360474D-01, 0.5793892D-02, 0.6378053D-03, + 0.6189362D-01, 0.6704948D-02, 0.7445840D-03, + 0.7007635D-01, 0.7602974D-02, 0.8515526D-03/ DATA (SIG(67,K),QNS(67,K),GL(67,K), K=1,11) / + 0.8097853D-02, 0.8511551D-03, 0.5060323D-04, + 0.1033647D-01, 0.1112007D-02, 0.6285172D-04, + 0.1509471D-01, 0.1526449D-02, 0.1041970D-03, + 0.1792878D-01, 0.1832549D-02, 0.1361005D-03, + 0.2462094D-01, 0.2591474D-02, 0.2172318D-03, + 0.2738810D-01, 0.2899482D-02, 0.2516174D-03, + 0.3630841D-01, 0.3889008D-02, 0.3606749D-03, + 0.4491017D-01, 0.4839302D-02, 0.4622659D-03, + 0.5329193D-01, 0.5762589D-02, 0.5584833D-03, + 0.6151933D-01, 0.6666957D-02, 0.6511047D-03, + 0.6963580D-01, 0.7557742D-02, 0.7414816D-03/ DATA (SIG(68,K),QNS(68,K),GL(68,K), K=1,11) / + 0.7514872D-02, 0.7907674D-03, 0.3841250D-04, + 0.9873614D-02, 0.1064245D-02, 0.5014641D-04, + 0.1473850D-01, 0.1487915D-02, 0.8776989D-04, + 0.1761894D-01, 0.1799351D-02, 0.1163357D-03, + 0.2436997D-01, 0.2565861D-02, 0.1880906D-03, + 0.2714606D-01, 0.2875096D-02, 0.2182348D-03, + 0.3605581D-01, 0.3863979D-02, 0.3132148D-03, + 0.4461159D-01, 0.4809469D-02, 0.4011823D-03, + 0.5293010D-01, 0.5725924D-02, 0.4842680D-03, + 0.6108553D-01, 0.6622438D-02, 0.5640514D-03, + 0.6912561D-01, 0.7504852D-02, 0.6412635D-03/ DATA (SIG(69,K),QNS(69,K),GL(69,K), K=1,11) / + 0.6880619D-02, 0.7246115D-03, 0.2844760D-04, + 0.9380667D-02, 0.1013034D-02, 0.3929549D-04, + 0.1435947D-01, 0.1446701D-02, 0.7312048D-04, + 0.1728859D-01, 0.1763800D-02, 0.9839339D-04, + 0.2409705D-01, 0.2537849D-02, 0.1610956D-03, + 0.2687972D-01, 0.2848077D-02, 0.1871983D-03, + 0.3576791D-01, 0.3835137D-02, 0.2688886D-03, + 0.4426491D-01, 0.4774415D-02, 0.3441027D-03, + 0.5250722D-01, 0.5682603D-02, 0.4149649D-03, + 0.6057806D-01, 0.6569860D-02, 0.4829946D-03, + 0.6852953D-01, 0.7442548D-02, 0.5491281D-03/ DATA (SIG(70,K),QNS(70,K),GL(70,K), K=1,11) / + 0.6175053D-02, 0.6504649D-03, 0.2044622D-04, + 0.8848811D-02, 0.9573941D-03, 0.3013649D-04, + 0.1395049D-01, 0.1402032D-02, 0.6010827D-04, + 0.1693154D-01, 0.1725234D-02, 0.8214608D-04, + 0.2379598D-01, 0.2506793D-02, 0.1361355D-03, + 0.2658237D-01, 0.2817723D-02, 0.1583990D-03, + 0.3543548D-01, 0.3801509D-02, 0.2275843D-03, + 0.4385810D-01, 0.4732856D-02, 0.2909021D-03, + 0.5200849D-01, 0.5631034D-02, 0.3504226D-03, + 0.5997947D-01, 0.6507340D-02, 0.4076877D-03, + 0.6782766D-01, 0.7368673D-02, 0.4644050D-03/ DATA (SIG(71,K),QNS(71,K),GL(71,K), K=1,11) / + 0.5398744D-02, 0.5683946D-03, 0.1416060D-04, + 0.8281431D-02, 0.8976869D-03, 0.2239874D-04, + 0.1351845D-01, 0.1354687D-02, 0.4860597D-04, + 0.1655331D-01, 0.1684299D-02, 0.6748272D-04, + 0.2346726D-01, 0.2472803D-02, 0.1131140D-03, + 0.2625230D-01, 0.2783907D-02, 0.1317435D-03, + 0.3505035D-01, 0.3762254D-02, 0.1892110D-03, + 0.4337771D-01, 0.4683367D-02, 0.2414809D-03, + 0.5141607D-01, 0.5569306D-02, 0.2904725D-03, + 0.5926806D-01, 0.6432540D-02, 0.3373234D-03, + 0.6699463D-01, 0.7280485D-02, 0.3822983D-03/ DATA (SIG(72,K),QNS(72,K),GL(72,K), K=1,11) / + 0.4588185D-02, 0.4824567D-03, 0.9356528D-05, + 0.7692733D-02, 0.8355193D-03, 0.1615647D-04, + 0.1306276D-01, 0.1304628D-02, 0.3850066D-04, + 0.1614865D-01, 0.1640468D-02, 0.5429527D-04, + 0.2309929D-01, 0.2434666D-02, 0.9194451D-04, + 0.2587607D-01, 0.2745214D-02, 0.1071520D-03, + 0.3459412D-01, 0.3715406D-02, 0.1537015D-03, + 0.4280104D-01, 0.4623504D-02, 0.1957761D-03, + 0.5070320D-01, 0.5494522D-02, 0.2351316D-03, + 0.5841316D-01, 0.6342127D-02, 0.2728421D-03, + 0.6599612D-01, 0.7174248D-02, 0.3096146D-03/ DATA (SIG(73,K),QNS(73,K),GL(73,K), K=1,11) / + 0.3641422D-02, 0.3813268D-03, 0.5812531D-05, + 0.7030305D-02, 0.7650499D-03, 0.1118915D-04, + 0.1254823D-01, 0.1247977D-02, 0.2969350D-04, + 0.1568961D-01, 0.1590694D-02, 0.4250254D-04, + 0.2267060D-01, 0.2390098D-02, 0.7257038D-04, + 0.2543256D-01, 0.2699404D-02, 0.8457547D-04, + 0.3404272D-01, 0.3658409D-02, 0.1210229D-03, + 0.4209881D-01, 0.4550128D-02, 0.1537602D-03, + 0.4983488D-01, 0.5402912D-02, 0.1843363D-03, + 0.5737408D-01, 0.6231706D-02, 0.2137833D-03, + 0.6478584D-01, 0.7044951D-02, 0.2434280D-03/ DATA (SIG(74,K),QNS(74,K),GL(74,K), K=1,11) / + 0.2442180D-02, 0.2520874D-03, 0.3318887D-05, + 0.6246053D-02, 0.6809301D-03, 0.7439917D-05, + 0.1194027D-01, 0.1180934D-02, 0.2212418D-04, + 0.1514887D-01, 0.1532038D-02, 0.3205041D-04, + 0.2215876D-01, 0.2336753D-02, 0.5495747D-04, + 0.2489860D-01, 0.2644056D-02, 0.6398874D-04, + 0.3336605D-01, 0.3588071D-02, 0.9117621D-04, + 0.4123181D-01, 0.4459036D-02, 0.1154432D-03, + 0.4876278D-01, 0.5289257D-02, 0.1379148D-03, + 0.5609374D-01, 0.6095086D-02, 0.1579914D-03, + 0.6329842D-01, 0.6885487D-02, 0.1694595D-03/ DATA (SIG(75,K),QNS(75,K),GL(75,K), K=1,11) / + 0.2725973D-03, 0.1497779D-04, 0.1676913D-05, + 0.4997874D-02, 0.5451269D-03, 0.4794887D-05, + 0.1111990D-01, 0.1090347D-02, 0.1574706D-04, + 0.1446766D-01, 0.1458127D-02, 0.2289941D-04, + 0.2155396D-01, 0.2273767D-02, 0.3908881D-04, + 0.2426704D-01, 0.2578614D-02, 0.4538793D-04, + 0.3254323D-01, 0.3502312D-02, 0.6420119D-04, + 0.4015768D-01, 0.4345752D-02, 0.8092218D-04, + 0.4742446D-01, 0.5146848D-02, 0.9654040D-04, + 0.5449197D-01, 0.5923595D-02, 0.1118682D-03, + 0.6143754D-01, 0.6685400D-02, 0.1288652D-03/ DATA (SIG(76,K),QNS(76,K),GL(76,K), K=1,11) / + 0.2031153D-03, 0.1116017D-04, 0.6982608D-06, + 0.4974824D-02, 0.5453293D-03, 0.2608937D-05, + 0.1105191D-01, 0.1083556D-02, 0.1014033D-04, + 0.1431165D-01, 0.1443205D-02, 0.1469766D-04, + 0.2112373D-01, 0.2231271D-02, 0.2478729D-04, + 0.2371064D-01, 0.2522687D-02, 0.2865972D-04, + 0.3157121D-01, 0.3401200D-02, 0.4014286D-04, + 0.3879308D-01, 0.4201408D-02, 0.5031873D-04, + 0.4569130D-01, 0.4961783D-02, 0.5985590D-04, + 0.5240933D-01, 0.5699913D-02, 0.6945468D-04, + 0.5901973D-01, 0.6424723D-02, 0.8133991D-04/ DATA (SIG(77,K),QNS(77,K),GL(77,K), K=1,11) / + 0.1345390D-03, 0.7392253D-05, 0.2042386D-06, + 0.4921615D-02, 0.5420251D-03, 0.7561732D-06, + 0.1088284D-01, 0.1066024D-02, 0.5069232D-05, + 0.1399945D-01, 0.1412158D-02, 0.7312571D-05, + 0.2040805D-01, 0.2158973D-02, 0.1213798D-04, + 0.2281829D-01, 0.2431431D-02, 0.1395974D-04, + 0.3011432D-01, 0.3248235D-02, 0.1932136D-04, + 0.3681532D-01, 0.3990908D-02, 0.2406288D-04, + 0.4322868D-01, 0.4697631D-02, 0.2851021D-04, + 0.4948774D-01, 0.5385024D-02, 0.3292002D-04, + 0.5565732D-01, 0.6061184D-02, 0.3790388D-04/ DATA (SIG(78,K),QNS(78,K),GL(78,K), K=1,11) / + 0.6684235D-04, 0.3672657D-05, 0.2520666D-07, + 0.4787180D-02, 0.5296710D-03, 0.7858168D-08, + 0.1047770D-01, 0.1023679D-02, 0.7086373D-06, + 0.1333311D-01, 0.1344802D-02, 0.1007223D-05, + 0.1907124D-01, 0.2021903D-02, 0.1626336D-05, + 0.2120296D-01, 0.2264166D-02, 0.1856073D-05, + 0.2763801D-01, 0.2986157D-02, 0.2528095D-05, + 0.3356345D-01, 0.3642820D-02, 0.3119144D-05, + 0.3925936D-01, 0.4270031D-02, 0.3576717D-05, + 0.4483872D-01, 0.4882277D-02, 0.3037903D-05, + 0.5035331D-01, 0.5486195D-02,-0.3139074D-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