]> git.uio.no Git - u/mrichter/AliRoot.git/blame - PDF/spdf/gs96ho.F
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / PDF / spdf / gs96ho.F
CommitLineData
21886bb6 1#include "pdf/pilot.h"
2 SUBROUTINE GS96HO(X,Q,U,D,S,C,B,G)
3#include "pdf/impdp.inc"
4 PARAMETER(NP=78,NQ=11,NARG=2)
5*****************************************************************
6* Subroutine returns the parton distributions in the photon in *
7* next-to-leading order. u,d etc. gives the actual distributions*
8* not x times the distributions; Q2 means Q^2. The distributions*
9* are valid for 5.0e^-4< x < 1.0 and 5.3 GeV^2 < Q^2 < 1.0e^8. *
10* if higher Q^2 or lower x is required, these may be obtained *
11* from the authors on request. *
12* Lionel Gordon April 1996 : Gordon@hep.anl.gov *
13* John Storrow :johns@a3.ph.man.ac.uk *
14*****************************************************************
15 DIMENSION SIG(NP,NQ),QNS(NP,NQ),GL(NP,NQ),Y(NP)
16 DIMENSION XT(NARG),NA(NARG),A(NP+NQ),QT(NQ)
17 EXTERNAL GS2XCOR
18 SAVE SIG,QNS,GL,Y,ICALL
19 DATA QT /3.0D0,20.0D0,50.0D0,100.0D0,500.0D0,1.0D3,1.0D4,1.0D5,
20 + 1.0D6,1.0D7,1.0D8/
21******************************************************************
22 DATA ((SIG(IX,IQ),IQ=1,11),IX=1,6)/
23 + .32952790E+01, .17617310E+02, .24664560E+02, .79734660E+02,
24 + .10394290E+03, .13205610E+03, .22801450E+03, .32663620E+03,
25 + .42694500E+03, .52839150E+03, .63063600E+03,
26 + .11355130E+01, .49007990E+01, .66096530E+01, .20736370E+02,
27 + .27152900E+02, .33481500E+02, .54249380E+02, .74646160E+02,
28 + .94712450E+02, .11448800E+03, .13400700E+03,
29 + .69725520E+00, .27181100E+01, .36078720E+01, .10865590E+02,
30 + .14099710E+02, .17157470E+02, .27046880E+02, .36598070E+02,
31 + .45881690E+02, .54947310E+02, .63831170E+02,
32 + .50751400E+00, .18400150E+01, .24154690E+01, .70494920E+01,
33 + .90649070E+01, .10935810E+02, .16934240E+02, .22669580E+02,
34 + .28204380E+02, .33580270E+02, .38826630E+02,
35 + .40121810E+00, .13731050E+01, .17868270E+01, .50892710E+01,
36 + .64925790E+01, .77819030E+01, .11890620E+02, .15791700E+02,
37 + .19537770E+02, .23163030E+02, .26691190E+02,
38 + .33308050E+00, .10861830E+01, .14031020E+01, .39184370E+01,
39 + .49651020E+01, .59201350E+01, .89495960E+01, .11810820E+02,
40 + .14548250E+02, .17190350E+02, .19756580E+02 /
41 DATA ((SIG(IX,IQ),IQ=1,11),IX=7,12)/
42 + .28559850E+00, .89331280E+00, .11466080E+01, .31502900E+01,
43 + .39693270E+01, .47118240E+01, .70586360E+01, .92660250E+01,
44 + .11371930E+02, .13400400E+02, .15367710E+02,
45 + .25056860E+00, .75545290E+00, .96416780E+00, .26125790E+01,
46 + .32751870E+01, .38730210E+01, .57570350E+01, .75232170E+01,
47 + .92043930E+01, .10821190E+02, .12387470E+02,
48 + .22363090E+00, .65240040E+00, .82838500E+00, .22177870E+01,
49 + .27681710E+01, .32623690E+01, .48160030E+01, .62684990E+01,
50 + .76485700E+01, .89741320E+01, .10257160E+02,
51 + .20225260E+00, .57269080E+00, .72377460E+00, .19173610E+01,
52 + .23834610E+01, .28005980E+01, .41091970E+01, .53297510E+01,
53 + .64876830E+01, .75987540E+01, .86734410E+01,
54 + .13472800E+00, .33581240E+00, .41579080E+00, .10559280E+01,
55 + .12925430E+01, .14995290E+01, .21442820E+01, .27411460E+01,
56 + .33048170E+01, .38441940E+01, .43650690E+01,
57 + .10491760E+00, .24055790E+00, .29374620E+00, .72728380E+00,
58 + .88260870E+00, .10155930E+01, .14286250E+01, .18099560E+01,
59 + .21696630E+01, .25137560E+01, .28460940E+01 /
60 DATA ((SIG(IX,IQ),IQ=1,11),IX=13,18)/
61 + .86709805E-01, .18617900E+00, .22482300E+00, .54616330E+00,
62 + .65903060E+00, .75352190E+00, .10466620E+01, .13171390E+01,
63 + .15723460E+01, .18166450E+01, .20528090E+01,
64 + .74374467E-01, .15134900E+00, .18107930E+00, .43337820E+00,
65 + .52092740E+00, .59255640E+00, .81476960E+00, .10199420E+01,
66 + .12137490E+01, .13995040E+01, .15793000E+01,
67 + .65431371E-01, .12728810E+00, .15110160E+00, .35720830E+00,
68 + .42832690E+00, .48514330E+00, .66153710E+00, .82465060E+00,
69 + .97897980E+00, .11271280E+01, .12707220E+01,
70 + .58629494E-01, .10975060E+00, .12940750E+00, .30279420E+00,
71 + .36250730E+00, .40911560E+00, .55400170E+00, .68825410E+00,
72 + .81552170E+00, .93790310E+00, .10567010E+01,
73 + .53268183E-01, .96444786E-01, .11305450E+00, .26219950E+00,
74 + .31362490E+00, .35287020E+00, .47505800E+00, .58854290E+00,
75 + .69634740E+00, .80019700E+00, .90115710E+00,
76 + .48923943E-01, .86029820E-01, .10033050E+00, .23090380E+00,
77 + .27613580E+00, .30986190E+00, .41506420E+00, .51302950E+00,
78 + .60629480E+00, .69630070E+00, .78393270E+00 /
79 DATA ((SIG(IX,IQ),IQ=1,11),IX=19,24)/
80 + .45325417E-01, .77671677E-01, .90175442E-01, .20612440E+00,
81 + .24648620E+00, .27597160E+00, .36812100E+00, .45415550E+00,
82 + .53623810E+00, .61558990E+00, .69295660E+00,
83 + .42290546E-01, .70825607E-01, .81900075E-01, .18607260E+00,
84 + .22264560E+00, .24877150E+00, .33059900E+00, .40721100E+00,
85 + .48046360E+00, .55140020E+00, .62065590E+00,
86 + .39692465E-01, .65121531E-01, .75038075E-01, .16955730E+00,
87 + .20299960E+00, .22643100E+00, .29997090E+00, .36900690E+00,
88 + .43515230E+00, .49930950E+00, .56202530E+00,
89 + .37440032E-01, .60299657E-01, .69263399E-01, .15574050E+00,
90 + .18662790E+00, .20784940E+00, .27459440E+00, .33741870E+00,
91 + .39773350E+00, .45632530E+00, .51366970E+00,
92 + .35466060E-01, .56172553E-01, .64341649E-01, .14402330E+00,
93 + .17278250E+00, .19216460E+00, .25325630E+00, .31091170E+00,
94 + .36637180E+00, .42032620E+00, .47319000E+00,
95 + .33719864E-01, .52601762E-01, .60100291E-01, .13397400E+00,
96 + .16093890E+00, .17877080E+00, .23509850E+00, .28839580E+00,
97 + .33975930E+00, .38979680E+00, .43887260E+00 /
98 DATA ((SIG(IX,IQ),IQ=1,11),IX=25,30)/
99 + .32162480E-01, .49482886E-01, .56409642E-01, .12527020E+00,
100 + .15066100E+00, .16717900E+00, .21946070E+00, .26904790E+00,
101 + .31691800E+00, .36361120E+00, .40945090E+00,
102 + .30763483E-01, .46735819E-01, .53170551E-01, .11766680E+00,
103 + .14173100E+00, .15711330E+00, .20590070E+00, .25228480E+00,
104 + .29713750E+00, .34093990E+00, .38397940E+00,
105 + .29498696E-01, .44298116E-01, .50305955E-01, .11096760E+00,
106 + .13383810E+00, .14824130E+00, .19400660E+00, .23761120E+00,
107 + .27984020E+00, .32112550E+00, .36172580E+00,
108 + .28348716E-01, .42120434E-01, .47755107E-01, .10502540E+00,
109 + .12683710E+00, .14038510E+00, .18350680E+00, .22467540E+00,
110 + .26460150E+00, .30367480E+00, .34212800E+00,
111 + .24619857E-01, .35323314E-01, .39848242E-01, .86743489E-01,
112 + .10540140E+00, .11638150E+00, .15156290E+00, .18540100E+00,
113 + .21838070E+00, .25076720E+00, .28271890E+00,
114 + .21853192E-01, .30553076E-01, .34355298E-01, .74188948E-01,
115 + .90686098E-01, .99975824E-01, .12990140E+00, .15885240E+00,
116 + .18717560E+00, .21506010E+00, .24261850E+00 /
117 DATA ((SIG(IX,IQ),IQ=1,11),IX=31,36)/
118 + .19703059E-01, .27013483E-01, .30313641E-01, .65037966E-01,
119 + .79956084E-01, .88050827E-01, .11424140E+00, .13969640E+00,
120 + .16467170E+00, .18930720E+00, .21368750E+00,
121 + .17974563E-01, .24277063E-01, .27211100E-01, .58061510E-01,
122 + .71771979E-01, .78976542E-01, .10237060E+00, .12519180E+00,
123 + .14763340E+00, .16980200E+00, .19176230E+00,
124 + .16549228E-01, .22094935E-01, .24751903E-01, .52563004E-01,
125 + .65307312E-01, .71822792E-01, .93040287E-01, .11379900E+00,
126 + .13424850E+00, .15447220E+00, .17452180E+00,
127 + .15350753E-01, .20312915E-01, .22754140E-01, .48113000E-01,
128 + .60069747E-01, .66033401E-01, .85501239E-01, .10459460E+00,
129 + .12343080E+00, .14207600E+00, .16057180E+00,
130 + .14327709E-01, .18830646E-01, .21100238E-01, .44433333E-01,
131 + .55730633E-01, .61242688E-01, .79272471E-01, .96990965E-01,
132 + .11449140E+00, .13182720E+00, .14903200E+00,
133 + .13444182E-01, .17580202E-01, .19711042E-01, .41341946E-01,
134 + .52083630E-01, .57217542E-01, .74040212E-01, .90601578E-01,
135 + .10697600E+00, .12320640E+00, .13932010E+00 /
136 DATA ((SIG(IX,IQ),IQ=1,11),IX=37,42)/
137 + .12674276E-01, .16513998E-01, .18531460E-01, .38707916E-01,
138 + .48974223E-01, .53786840E-01, .69582365E-01, .85157104E-01,
139 + .10057000E+00, .11585610E+00, .13103860E+00,
140 + .11998878E-01, .15597810E-01, .17522020E-01, .36437824E-01,
141 + .46296742E-01, .50833378E-01, .65744840E-01, .80468833E-01,
142 + .95051795E-01, .10952210E+00, .12389890E+00,
143 + .11403565E-01, .14806393E-01, .16653737E-01, .34466218E-01,
144 + .43969791E-01, .48267648E-01, .62412605E-01, .76397650E-01,
145 + .90258978E-01, .10401960E+00, .11769590E+00,
146 + .10877254E-01, .14120740E-01, .15904872E-01, .32743327E-01,
147 + .41942414E-01, .46030410E-01, .59503313E-01, .72841354E-01,
148 + .86071022E-01, .99210240E-01, .11227220E+00,
149 + .10411290E-01, .13526291E-01, .15258805E-01, .31226756E-01,
150 + .40159699E-01, .44064362E-01, .56948848E-01, .69719382E-01,
151 + .82394473E-01, .94988078E-01, .10751200E+00,
152 + .99988347E-02, .13011689E-01, .14702618E-01, .29890353E-01,
153 + .38591381E-01, .42334680E-01, .54701053E-01, .66971727E-01,
154 + .79158202E-01, .91270424E-01, .10331710E+00 /
155 DATA ((SIG(IX,IQ),IQ=1,11),IX=43,48)/
156 + .96344016E-02, .12567966E-01, .14226112E-01, .28708473E-01,
157 + .37210722E-01, .40811460E-01, .52720375E-01, .64549908E-01,
158 + .76305106E-01, .87992281E-01, .99616937E-01,
159 + .93135582E-02, .12187938E-01, .13821121E-01, .27662413E-01,
160 + .35996199E-01, .39469995E-01, .50973836E-01, .62413912E-01,
161 + .73788591E-01, .85101403E-01, .96358329E-01,
162 + .90326807E-02, .11865777E-01, .13481013E-01, .26736151E-01,
163 + .34920789E-01, .38284242E-01, .49433734E-01, .60531553E-01,
164 + .71570978E-01, .82552649E-01, .93479961E-01,
165 + .87887971E-02, .11596706E-01, .13200351E-01, .25917782E-01,
166 + .33981018E-01, .37246559E-01, .48082780E-01, .58878690E-01,
167 + .69622464E-01, .80311924E-01, .90947837E-01,
168 + .85794227E-02, .11376764E-01, .12974606E-01, .25197493E-01,
169 + .33162601E-01, .36341149E-01, .46901077E-01, .57431698E-01,
170 + .67915753E-01, .78349166E-01, .88734441E-01,
171 + .84025022E-02, .11202639E-01, .12799975E-01, .24563916E-01,
172 + .32448944E-01, .35551958E-01, .45871548E-01, .56170788E-01,
173 + .66427633E-01, .76635823E-01, .86796649E-01 /
174 DATA ((SIG(IX,IQ),IQ=1,11),IX=49,54)/
175 + .82563059E-02, .11071531E-01, .12673226E-01, .24012102E-01,
176 + .31833299E-01, .34870546E-01, .44981480E-01, .55079792E-01,
177 + .65138817E-01, .75150378E-01, .85115068E-01,
178 + .81393691E-02, .10981051E-01, .12591578E-01, .23533953E-01,
179 + .31301934E-01, .34283873E-01, .44217642E-01, .54143660E-01,
180 + .64031810E-01, .73872268E-01, .83663598E-01,
181 + .80504613E-02, .10929144E-01, .12552610E-01, .23124803E-01,
182 + .30857082E-01, .33790868E-01, .43572366E-01, .53350791E-01,
183 + .63092016E-01, .72784781E-01, .82427159E-01,
184 + .79885283E-02, .10914015E-01, .12554196E-01, .22779644E-01,
185 + .30482143E-01, .33377100E-01, .43033730E-01, .52688722E-01,
186 + .62305346E-01, .71872152E-01, .81389144E-01,
187 + .79526706E-02, .10934099E-01, .12594441E-01, .22494080E-01,
188 + .30177545E-01, .33040911E-01, .42595427E-01, .52147999E-01,
189 + .61659563E-01, .71117401E-01, .80517791E-01,
190 + .79421243E-02, .10988006E-01, .12671645E-01, .22264561E-01,
191 + .29937573E-01, .32775901E-01, .42249337E-01, .51718794E-01,
192 + .61143313E-01, .70511110E-01, .79823114E-01 /
193 DATA ((SIG(IX,IQ),IQ=1,11),IX=55,60)/
194 + .79562264E-02, .11074492E-01, .12784246E-01, .22087734E-01,
195 + .29755836E-01, .32575890E-01, .41988421E-01, .51392362E-01,
196 + .60745593E-01, .70036925E-01, .79268448E-01,
197 + .79944124E-02, .11192435E-01, .12930818E-01, .21960316E-01,
198 + .29623669E-01, .32432761E-01, .41804638E-01, .51159516E-01,
199 + .60455564E-01, .69681950E-01, .78837253E-01,
200 + .80561917E-02, .11340820E-01, .13110019E-01, .21879360E-01,
201 + .29542189E-01, .32345828E-01, .41693553E-01, .51013283E-01,
202 + .60264260E-01, .69437623E-01, .78533784E-01,
203 + .81411460E-02, .11518705E-01, .13320576E-01, .21843312E-01,
204 + .29502705E-01, .32307163E-01, .41647520E-01, .50944839E-01,
205 + .60161151E-01, .69290906E-01, .78339122E-01,
206 + .82489066E-02, .11725234E-01, .13561288E-01, .21849515E-01,
207 + .29501507E-01, .32312520E-01, .41660730E-01, .50946612E-01,
208 + .60136516E-01, .69228791E-01, .78231640E-01,
209 + .83791632E-02, .11959608E-01, .13830981E-01, .21894226E-01,
210 + .29535467E-01, .32358348E-01, .41727737E-01, .51010951E-01,
211 + .60180463E-01, .69239631E-01, .78200467E-01 /
212 DATA ((SIG(IX,IQ),IQ=1,11),IX=61,66)/
213 + .85316403E-02, .12221093E-01, .14128524E-01, .21978032E-01,
214 + .29595131E-01, .32436047E-01, .41840464E-01, .51128577E-01,
215 + .60281888E-01, .69310732E-01, .78234360E-01,
216 + .87061003E-02, .12509022E-01, .14452809E-01, .22096861E-01,
217 + .29680053E-01, .32543853E-01, .41993879E-01, .51291585E-01,
218 + .60429726E-01, .69425702E-01, .78300618E-01,
219 + .89023467E-02, .12822819E-01, .14802766E-01, .22250477E-01,
220 + .29782128E-01, .32674585E-01, .42180751E-01, .51490601E-01,
221 + .60612094E-01, .69573112E-01, .78404374E-01,
222 + .90359822E-02, .13031869E-01, .15034065E-01, .22362122E-01,
223 + .29850839E-01, .32764409E-01, .42310800E-01, .51628429E-01,
224 + .60736999E-01, .69670126E-01, .78456439E-01,
225 + .91780219E-02, .13250767E-01, .15274761E-01, .22488188E-01,
226 + .29924517E-01, .32860663E-01, .42449314E-01, .51773544E-01,
227 + .60866475E-01, .69771327E-01, .78528494E-01,
228 + .93284314E-02, .13479475E-01, .15524645E-01, .22627080E-01,
229 + .29999176E-01, .32960486E-01, .42594228E-01, .51923074E-01,
230 + .60995921E-01, .69865242E-01, .78576982E-01 /
231 DATA ((SIG(IX,IQ),IQ=1,11),IX=67,72)/
232 + .94871838E-02, .13718016E-01, .15783543E-01, .22776177E-01,
233 + .30071471E-01, .33060603E-01, .42742141E-01, .52072845E-01,
234 + .61120227E-01, .69947325E-01, .78606389E-01,
235 + .96542509E-02, .13966491E-01, .16051345E-01, .22940211E-01,
236 + .30139847E-01, .33159722E-01, .42891223E-01, .52219562E-01,
237 + .61234307E-01, .70010558E-01, .78607284E-01,
238 + .98296180E-02, .14225140E-01, .16328029E-01, .23117078E-01,
239 + .30202052E-01, .33255868E-01, .43038785E-01, .52358828E-01,
240 + .61331645E-01, .70045605E-01, .78564249E-01,
241 + .10013272E-01, .14494411E-01, .16613735E-01, .23306198E-01,
242 + .30257005E-01, .33347387E-01, .43181617E-01, .52485328E-01,
243 + .61404757E-01, .70044920E-01, .78481585E-01,
244 + .10205200E-01, .14774987E-01, .16908780E-01, .23512876E-01,
245 + .30300457E-01, .33431724E-01, .43317288E-01, .52593846E-01,
246 + .61444521E-01, .69992140E-01, .78318946E-01,
247 + .10405328E-01, .15067826E-01, .17213726E-01, .23740612E-01,
248 + .30328626E-01, .33505201E-01, .43440655E-01, .52675914E-01,
249 + .61438680E-01, .69873333E-01, .78072920E-01 /
250 DATA ((SIG(IX,IQ),IQ=1,11),IX=73,78)/
251 + .10613733E-01, .15375177E-01, .17530238E-01, .23991156E-01,
252 + .30339517E-01, .33566315E-01, .43547787E-01, .52722398E-01,
253 + .61372019E-01, .69667287E-01, .77717520E-01,
254 + .10830436E-01, .15700419E-01, .17860981E-01, .24269460E-01,
255 + .30324731E-01, .33610221E-01, .43633968E-01, .52721620E-01,
256 + .61223745E-01, .69341116E-01, .77194721E-01,
257 + .11055518E-01, .16048975E-01, .18210417E-01, .24589844E-01,
258 + .30280162E-01, .33635441E-01, .43694302E-01, .52657146E-01,
259 + .60963918E-01, .68853512E-01, .76464675E-01,
260 + .11233788E-01, .16404711E-01, .18568806E-01, .24966985E-01,
261 + .30198859E-01, .33643205E-01, .43727428E-01, .52507479E-01,
262 + .60546633E-01, .68133444E-01, .75430356E-01,
263 + .11195521E-01, .16786704E-01, .18971112E-01, .25527190E-01,
264 + .30142711E-01, .33703748E-01, .43775905E-01, .52260574E-01,
265 + .59902553E-01, .67055628E-01, .73906749E-01,
266 + .11157162E-01, .17455921E-01, .19645428E-01, .26781252E-01,
267 + .30308895E-01, .34030765E-01, .43964390E-01, .51890522E-01,
268 + .58854111E-01, .65300442E-01, .71444392E-01 /
269 DATA ((QNS(IX,IQ),IQ=1,11),IX=1,6)/
270 + .94240336E-02, .18417537E-01, .22739289E-01, .37607048E-01,
271 + .44243883E-01, .50122499E-01, .70369989E-01, .91482073E-01,
272 + .11324320E+00, .13550980E+00, .15818140E+00,
273 + .59973067E-02, .11720352E-01, .14432831E-01, .24163216E-01,
274 + .28503288E-01, .32346703E-01, .45423366E-01, .58843695E-01,
275 + .72496824E-01, .86314097E-01, .10025040E+00,
276 + .49393503E-02, .97090816E-02, .11965460E-01, .20150421E-01,
277 + .23982644E-01, .27228395E-01, .38227096E-01, .49456306E-01,
278 + .60832184E-01, .72304659E-01, .83841935E-01,
279 + .43745874E-02, .86307731E-02, .10642637E-01, .17979529E-01,
280 + .21555452E-01, .24471853E-01, .34330886E-01, .44365548E-01,
281 + .54505978E-01, .64711556E-01, .74957199E-01,
282 + .40092943E-02, .79269614E-02, .97778682E-02, .16550563E-01,
283 + .19954743E-01, .22650827E-01, .31749010E-01, .40988449E-01,
284 + .50308473E-01, .59674632E-01, .69066122E-01,
285 + .37478260E-02, .74182409E-02, .91516310E-02, .15509205E-01,
286 + .18786343E-01, .21319561E-01, .29856237E-01, .38510069E-01,
287 + .47227092E-01, .55977229E-01, .64742774E-01 /
288 DATA ((QNS(IX,IQ),IQ=1,11),IX=7,12)/
289 + .35484738E-02, .70266821E-02, .86687198E-02, .14701542E-01,
290 + .17877039E-01, .20282917E-01, .28380385E-01, .36576372E-01,
291 + .44822372E-01, .53091832E-01, .61369438E-01,
292 + .33897611E-02, .67121517E-02, .82801273E-02, .14049334E-01,
293 + .17141886E-01, .19443339E-01, .27181588E-01, .35004079E-01,
294 + .42866483E-01, .50744981E-01, .58626097E-01,
295 + .32593519E-02, .64515634E-02, .79576503E-02, .13505563E-01,
296 + .16532049E-01, .18745350E-01, .26180854E-01, .33689238E-01,
297 + .41229557E-01, .48780218E-01, .56329239E-01,
298 + .31495895E-02, .62305392E-02, .76837270E-02, .13042108E-01,
299 + .16006669E-01, .18144501E-01, .25320824E-01, .32560334E-01,
300 + .39825078E-01, .47095336E-01, .54360423E-01,
301 + .27516156E-02, .54136738E-02, .66676224E-02, .11308790E-01,
302 + .14027087E-01, .15878243E-01, .22070521E-01, .28290793E-01,
303 + .34512676E-01, .40723700E-01, .46917904E-01,
304 + .25373192E-02, .49619353E-02, .61029163E-02, .10335214E-01,
305 + .12905763E-01, .14591646E-01, .20218667E-01, .25856126E-01,
306 + .31483859E-01, .37093196E-01, .42680621E-01 /
307 DATA ((QNS(IX,IQ),IQ=1,11),IX=13,18)/
308 + .23864319E-02, .46382886E-02, .56970883E-02, .96306726E-02,
309 + .12086046E-01, .13650976E-01, .18864932E-01, .24077490E-01,
310 + .29272981E-01, .34445409E-01, .39592940E-01,
311 + .22713402E-02, .43883673E-02, .53830515E-02, .90831602E-02,
312 + .11444672E-01, .12914657E-01, .17805120E-01, .22685859E-01,
313 + .27544534E-01, .32377109E-01, .37182964E-01,
314 + .21788219E-02, .41857213E-02, .51280665E-02, .86372243E-02,
315 + .10918611E-01, .12310890E-01, .16936969E-01, .21547042E-01,
316 + .26131453E-01, .30687688E-01, .35216041E-01,
317 + .21016418E-02, .40156827E-02, .49139261E-02, .82624108E-02,
318 + .10473821E-01, .11800430E-01, .16203472E-01, .20585742E-01,
319 + .24939708E-01, .29264078E-01, .33559863E-01,
320 + .20354639E-02, .38693461E-02, .47295480E-02, .79390667E-02,
321 + .10088349E-01, .11358257E-01, .15568984E-01, .19755155E-01,
322 + .23911040E-01, .28036337E-01, .32132633E-01,
323 + .19775096E-02, .37409402E-02, .45677349E-02, .76557137E-02,
324 + .97481254E-02, .10968228E-01, .15010223E-01, .19024638E-01,
325 + .23007255E-01, .26958590E-01, .30880703E-01 /
326 DATA ((QNS(IX,IQ),IQ=1,11),IX=19,24)/
327 + .19259059E-02, .36265303E-02, .44235704E-02, .74031064E-02,
328 + .94441744E-02, .10619841E-01, .14511577E-01, .18373329E-01,
329 + .22202175E-01, .25999289E-01, .29767124E-01,
330 + .18793355E-02, .35233255E-02, .42935591E-02, .71755024E-02,
331 + .91693141E-02, .10304910E-01, .14061378E-01, .17785965E-01,
332 + .21476803E-01, .25135649E-01, .28765282E-01,
333 + .18368444E-02, .34292820E-02, .41751377E-02, .69686845E-02,
334 + .89182211E-02, .10017415E-01, .13651083E-01, .17251292E-01,
335 + .20817133E-01, .24350848E-01, .27855478E-01,
336 + .17977183E-02, .33428592E-02, .40663714E-02, .67788879E-02,
337 + .86870156E-02, .97528668E-02, .13274182E-01, .16760744E-01,
338 + .20212485E-01, .23632064E-01, .27022738E-01,
339 + .17614159E-02, .32628726E-02, .39657708E-02, .66033578E-02,
340 + .84729679E-02, .95080482E-02, .12925822E-01, .16307818E-01,
341 + .19654684E-01, .22969447E-01, .26255554E-01,
342 + .17275111E-02, .31883945E-02, .38721631E-02, .64408416E-02,
343 + .82737096E-02, .92802355E-02, .12602052E-01, .15887277E-01,
344 + .19137194E-01, .22355136E-01, .25544692E-01 /
345 DATA ((QNS(IX,IQ),IQ=1,11),IX=25,30)/
346 + .16956702E-02, .31186820E-02, .37846135E-02, .62889042E-02,
347 + .80871545E-02, .90670856E-02, .12299596E-01, .15494860E-01,
348 + .18654723E-01, .21782780E-01, .24882762E-01,
349 + .16656237E-02, .30531355E-02, .37023639E-02, .61464268E-02,
350 + .79117296E-02, .88667758E-02, .12015808E-01, .15127074E-01,
351 + .18202923E-01, .21247189E-01, .24263706E-01,
352 + .16371526E-02, .29912621E-02, .36247906E-02, .60121906E-02,
353 + .77458029E-02, .86775497E-02, .11748403E-01, .14781022E-01,
354 + .17778244E-01, .20744115E-01, .23682568E-01,
355 + .16100761E-02, .29326540E-02, .35513761E-02, .58856634E-02,
356 + .75892429E-02, .84989592E-02, .11496051E-01, .14454621E-01,
357 + .17377900E-01, .20270115E-01, .23135249E-01,
358 + .15130475E-02, .27247653E-02, .32915641E-02, .54398151E-02,
359 + .70358422E-02, .78683086E-02, .10607525E-01, .13308002E-01,
360 + .15974075E-01, .18610418E-01, .21221181E-01,
361 + .14297062E-02, .25492418E-02, .30730397E-02, .50678886E-02,
362 + .65713013E-02, .73400214E-02, .98670078E-02, .12355796E-01,
363 + .14811448E-01, .17238868E-01, .19642226E-01 /
364 DATA ((QNS(IX,IQ),IQ=1,11),IX=31,36)/
365 + .13563674E-02, .23973631E-02, .28846720E-02, .47500571E-02,
366 + .61722188E-02, .68868920E-02, .92345588E-02, .11545152E-01,
367 + .13824115E-01, .16076397E-01, .18306112E-01,
368 + .12908148E-02, .22637607E-02, .27195795E-02, .44729449E-02,
369 + .58233179E-02, .64914445E-02, .86850319E-02, .10842929E-01,
370 + .12970786E-01, .15073508E-01, .17155087E-01,
371 + .12316250E-02, .21449025E-02, .25732184E-02, .42289156E-02,
372 + .55154981E-02, .61428514E-02, .82019744E-02, .10227119E-01,
373 + .12223910E-01, .14197091E-01, .16150456E-01,
374 + .11778341E-02, .20383450E-02, .24424321E-02, .40115491E-02,
375 + .52416227E-02, .58329245E-02, .77735735E-02, .96821617E-02,
376 + .11564116E-01, .13423979E-01, .15265364E-01,
377 + .11287644E-02, .19423265E-02, .23249392E-02, .38168030E-02,
378 + .49954145E-02, .55547967E-02, .73906495E-02, .91963019E-02,
379 + .10976971E-01, .12736951E-01, .14479612E-01,
380 + .10839220E-02, .18555359E-02, .22190348E-02, .36413525E-02,
381 + .47741015E-02, .53048851E-02, .70471931E-02, .87612784E-02,
382 + .10452021E-01, .12123445E-01, .13778742E-01 /
383 DATA ((QNS(IX,IQ),IQ=1,11),IX=37,42)/
384 + .10429369E-02, .17769686E-02, .21234076E-02, .34828938E-02,
385 + .45744213E-02, .50795381E-02, .67380839E-02, .83703874E-02,
386 + .99809458E-02, .11573471E-01, .13150859E-01,
387 + .10055272E-02, .17058378E-02, .20370285E-02, .33393521E-02,
388 + .43941182E-02, .48760460E-02, .64592627E-02, .80182981E-02,
389 + .95571596E-02, .11079242E-01, .12587328E-01,
390 + .97147172E-03, .16415142E-02, .19590692E-02, .32090063E-02,
391 + .42302958E-02, .46914709E-02, .62072063E-02, .77006207E-02,
392 + .91752894E-02, .10634297E-01, .12080133E-01,
393 + .94059587E-03, .15834844E-02, .18888538E-02, .30905926E-02,
394 + .40823021E-02, .45246948E-02, .59795799E-02, .74140122E-02,
395 + .88310866E-02, .10233535E-01, .11623533E-01,
396 + .91275759E-03, .15313239E-02, .18258197E-02, .29835096E-02,
397 + .39487118E-02, .43740915E-02, .57740975E-02, .71555194E-02,
398 + .85209096E-02, .98726815E-02, .11212891E-01,
399 + .88784238E-03, .14846778E-02, .17694950E-02, .28861878E-02,
400 + .38281640E-02, .42381478E-02, .55887257E-02, .69225645E-02,
401 + .82416162E-02, .95479656E-02, .10843531E-01 /
402 DATA ((QNS(IX,IQ),IQ=1,11),IX=43,48)/
403 + .86575508E-03, .14432413E-02, .17194751E-02, .27981452E-02,
404 + .37194416E-02, .41156444E-02, .54219291E-02, .67131273E-02,
405 + .79906583E-02, .92562689E-02, .10511580E-01,
406 + .84641628E-03, .14067559E-02, .16754109E-02, .27188875E-02,
407 + .36215344E-02, .40053953E-02, .52720965E-02, .65252217E-02,
408 + .77656736E-02, .89949016E-02, .10214346E-01,
409 + .82975865E-03, .13749937E-02, .16369977E-02, .26474192E-02,
410 + .35338006E-02, .39066677E-02, .51381350E-02, .63573606E-02,
411 + .75647663E-02, .87615633E-02, .99491617E-02,
412 + .81572641E-03, .13477562E-02, .16039666E-02, .25835091E-02,
413 + .34569120E-02, .38199599E-02, .50199148E-02, .62088193E-02,
414 + .73866746E-02, .85544502E-02, .97133927E-02,
415 + .80427068E-03, .13248667E-02, .15760761E-02, .25267287E-02,
416 + .33901930E-02, .37442986E-02, .49158903E-02, .60777371E-02,
417 + .72292946E-02, .83712526E-02, .95047299E-02,
418 + .79534907E-03, .13061668E-02, .15531119E-02, .24765951E-02,
419 + .33318023E-02, .36780294E-02, .48246486E-02, .59626573E-02,
420 + .70909988E-02, .82100471E-02, .93204780E-02 /
421 DATA ((QNS(IX,IQ),IQ=1,11),IX=49,54)/
422 + .78892603E-03, .12915136E-02, .15348764E-02, .24326355E-02,
423 + .32813039E-02, .36206250E-02, .47453931E-02, .58625308E-02,
424 + .69705080E-02, .80695096E-02, .91602625E-02,
425 + .78496989E-03, .12807774E-02, .15211905E-02, .23947326E-02,
426 + .32383364E-02, .35716321E-02, .46774149E-02, .57764109E-02,
427 + .68666204E-02, .79480289E-02, .90212673E-02,
428 + .78345265E-03, .12738386E-02, .15118875E-02, .23623395E-02,
429 + .32021496E-02, .35303223E-02, .46199183E-02, .57033417E-02,
430 + .67781927E-02, .78442944E-02, .89022024E-02,
431 + .78435033E-03, .12705869E-02, .15068129E-02, .23352338E-02,
432 + .31724246E-02, .34963095E-02, .45723030E-02, .56425128E-02,
433 + .67042061E-02, .77571347E-02, .88020414E-02,
434 + .78764104E-03, .12709198E-02, .15058212E-02, .23131308E-02,
435 + .31488554E-02, .34692136E-02, .45339740E-02, .55931257E-02,
436 + .66436469E-02, .76852157E-02, .87185781E-02,
437 + .79330592E-03, .12747411E-02, .15087749E-02, .22959628E-02,
438 + .31306976E-02, .34483334E-02, .45042206E-02, .55543538E-02,
439 + .65955287E-02, .76273838E-02, .86505124E-02 /
440 DATA ((QNS(IX,IQ),IQ=1,11),IX=55,60)/
441 + .80132775E-03, .12819601E-02, .15155423E-02, .22832237E-02,
442 + .31179774E-02, .34335442E-02, .44825966E-02, .55255168E-02,
443 + .65589719E-02, .75826435E-02, .85972035E-02,
444 + .81169140E-03, .12924910E-02, .15259976E-02, .22749053E-02,
445 + .31100719E-02, .34242724E-02, .44685043E-02, .55058813E-02,
446 + .65330602E-02, .75498386E-02, .85570021E-02,
447 + .82438299E-03, .13062516E-02, .15400186E-02, .22705384E-02,
448 + .31066088E-02, .34200996E-02, .44613751E-02, .54947105E-02,
449 + .65168762E-02, .75278734E-02, .85286936E-02,
450 + .83939038E-03, .13231644E-02, .15574869E-02, .22702448E-02,
451 + .31072609E-02, .34206652E-02, .44607022E-02, .54913131E-02,
452 + .65095178E-02, .75156037E-02, .85107759E-02,
453 + .85670268E-03, .13431550E-02, .15782870E-02, .22734660E-02,
454 + .31112402E-02, .34252387E-02, .44657774E-02, .54948679E-02,
455 + .65100011E-02, .75118644E-02, .85019497E-02,
456 + .87631017E-03, .13661537E-02, .16023031E-02, .22801904E-02,
457 + .31182719E-02, .34335172E-02, .44761305E-02, .55046869E-02,
458 + .65173940E-02, .75154915E-02, .85008712E-02 /
459 DATA ((QNS(IX,IQ),IQ=1,11),IX=61,66)/
460 + .89820346E-03, .13920940E-02, .16294246E-02, .22902105E-02,
461 + .31279377E-02, .34450574E-02, .44911648E-02, .55199591E-02,
462 + .65306341E-02, .75250724E-02, .85053705E-02,
463 + .92237460E-03, .14209161E-02, .16595413E-02, .23032357E-02,
464 + .31400539E-02, .34595616E-02, .45103151E-02, .55398559E-02,
465 + .65486338E-02, .75394385E-02, .85151950E-02,
466 + .94881753E-03, .14525695E-02, .16925491E-02, .23191539E-02,
467 + .31535069E-02, .34761061E-02, .45327861E-02, .55634025E-02,
468 + .65701143E-02, .75568613E-02, .85275853E-02,
469 + .96649455E-03, .14737727E-02, .17146018E-02, .23304247E-02,
470 + .31622106E-02, .34871437E-02, .45481748E-02, .55795112E-02,
471 + .65846588E-02, .75682360E-02, .85340347E-02,
472 + .98505535E-03, .14960614E-02, .17377236E-02, .23429242E-02,
473 + .31715189E-02, .34989410E-02, .45645195E-02, .55964231E-02,
474 + .65996749E-02, .75797983E-02, .85411314E-02,
475 + .10044985E-02, .15194350E-02, .17618948E-02, .23562198E-02,
476 + .31807874E-02, .35109739E-02, .45814523E-02, .56137498E-02,
477 + .66146837E-02, .75909602E-02, .85482234E-02 /
478 DATA ((QNS(IX,IQ),IQ=1,11),IX=67,72)/
479 + .10248232E-02, .15438999E-02, .17871021E-02, .23705235E-02,
480 + .31895766E-02, .35229130E-02, .45987237E-02, .56311488E-02,
481 + .66291569E-02, .76006553E-02, .85519645E-02,
482 + .10460286E-02, .15694713E-02, .18133381E-02, .23857092E-02,
483 + .31980989E-02, .35348898E-02, .46162345E-02, .56483033E-02,
484 + .66425726E-02, .76081753E-02, .85515585E-02,
485 + .10681147E-02, .15961806E-02, .18406077E-02, .24019419E-02,
486 + .32063741E-02, .35468566E-02, .46337540E-02, .56647821E-02,
487 + .66543249E-02, .76132179E-02, .85494705E-02,
488 + .10910823E-02, .16240836E-02, .18689354E-02, .24190135E-02,
489 + .32130878E-02, .35578534E-02, .46507269E-02, .56799552E-02,
490 + .66635003E-02, .76139537E-02, .85399570E-02,
491 + .11149311E-02, .16532638E-02, .18983661E-02, .24373443E-02,
492 + .32194003E-02, .35687012E-02, .46672500E-02, .56934077E-02,
493 + .66692806E-02, .76096137E-02, .85245045E-02,
494 + .11396549E-02, .16838355E-02, .19289744E-02, .24572820E-02,
495 + .32237917E-02, .35782943E-02, .46826154E-02, .57042143E-02,
496 + .66702957E-02, .75979815E-02, .84982533E-02 /
497 DATA ((QNS(IX,IQ),IQ=1,11),IX=73,78)/
498 + .11652628E-02, .17160538E-02, .19609558E-02, .24788762E-02,
499 + .32264341E-02, .35867651E-02, .46965568E-02, .57114917E-02,
500 + .66650049E-02, .75771199E-02, .84602814E-02,
501 + .11917589E-02, .17503077E-02, .19946259E-02, .25023462E-02,
502 + .32268544E-02, .35939009E-02, .47087069E-02, .57140728E-02,
503 + .66512520E-02, .75437622E-02, .84057571E-02,
504 + .12191528E-02, .17872198E-02, .20305095E-02, .25288546E-02,
505 + .32246693E-02, .35996984E-02, .47187502E-02, .57103517E-02,
506 + .66258898E-02, .74931574E-02, .83282115E-02,
507 + .12413139E-02, .18250246E-02, .20675659E-02, .25593296E-02,
508 + .32194380E-02, .36046421E-02, .47269203E-02, .56983405E-02,
509 + .65842373E-02, .74179485E-02, .82179485E-02,
510 + .12393846E-02, .18659254E-02, .21097811E-02, .26058301E-02,
511 + .32189018E-02, .36173693E-02, .47386773E-02, .56773759E-02,
512 + .65192748E-02, .73050433E-02, .80559906E-02,
513 + .12374151E-02, .19389354E-02, .21825545E-02, .27193346E-02,
514 + .32465039E-02, .36632048E-02, .47694566E-02, .56461799E-02,
515 + .64129378E-02, .71206577E-02, .77938964E-02 /
516 DATA ((GL(IX,IQ),IQ=1,11),IX=1,6)/
517 + .48529990E+02, .12870040E+03, .15706260E+03, .38370580E+03,
518 + .61519150E+03, .70666880E+03, .10382790E+04, .14040060E+04,
519 + .17957580E+04, .22078860E+04, .26363170E+04,
520 + .15890960E+02, .33628660E+02, .39931390E+02, .83964760E+02,
521 + .11694850E+03, .13170540E+03, .18258190E+03, .23518540E+03,
522 + .28866640E+03, .34257400E+03, .39665660E+03,
523 + .94310980E+01, .18175180E+02, .21277330E+02, .41681420E+02,
524 + .55201450E+02, .61626310E+02, .83381870E+02, .10540340E+03,
525 + .12745100E+03, .14942310E+03, .17127760E+03,
526 + .66802850E+01, .12141380E+02, .14075520E+02, .26326920E+02,
527 + .33816230E+02, .37544280E+02, .50036320E+02, .62532720E+02,
528 + .74944210E+02, .87244550E+02, .99430920E+02,
529 + .51591140E+01, .89841540E+01, .10336430E+02, .18682250E+02,
530 + .23467670E+02, .25951700E+02, .34213800E+02, .42412950E+02,
531 + .50514890E+02, .58517450E+02, .66428190E+02,
532 + .41946060E+01, .70619560E+01, .80738110E+01, .14199900E+02,
533 + .17532030E+02, .19326750E+02, .25263170E+02, .31120420E+02,
534 + .36887950E+02, .42572410E+02, .48184150E+02 /
535 DATA ((GL(IX,IQ),IQ=1,11),IX=7,12)/
536 + .35288730E+01, .57772250E+01, .65692210E+01, .11294930E+02,
537 + .13750450E+02, .15118280E+02, .19623350E+02, .24048990E+02,
538 + .28395830E+02, .32673770E+02, .36893470E+02,
539 + .30419200E+01, .48623110E+01, .55024400E+01, .92788580E+01,
540 + .11160360E+02, .12243700E+02, .15798790E+02, .19278800E+02,
541 + .22690250E+02, .26044140E+02, .29350600E+02,
542 + .26703820E+01, .41800760E+01, .47100670E+01, .78087810E+01,
543 + .92948980E+01, .10177610E+02, .13065580E+02, .15884490E+02,
544 + .18643830E+02, .21354680E+02, .24026370E+02,
545 + .23776530E+01, .36532620E+01, .41003660E+01, .66962170E+01,
546 + .78973980E+01, .86327130E+01, .11032260E+02, .13368940E+02,
547 + .15653690E+02, .17897230E+02, .20108140E+02,
548 + .14695900E+01, .20912560E+01, .23075640E+01, .35403820E+01,
549 + .40241170E+01, .43681370E+01, .54807730E+01, .65564470E+01,
550 + .76055440E+01, .86354300E+01, .96513940E+01,
551 + .10802530E+01, .14641260E+01, .15970510E+01, .23548000E+01,
552 + .26165310E+01, .28277200E+01, .35080070E+01, .41642440E+01,
553 + .48044590E+01, .54336700E+01, .60549590E+01 /
554 DATA ((GL(IX,IQ),IQ=1,11),IX=13,18)/
555 + .84787960E+00, .11063140E+01, .11955030E+01, .17083810E+01,
556 + .18655730E+01, .20093670E+01, .24715870E+01, .29173410E+01,
557 + .33528030E+01, .37816090E+01, .42062570E+01,
558 + .69367090E+00, .87731270E+00, .94055530E+00, .13095010E+01,
559 + .14106630E+01, .15151670E+01, .18508740E+01, .21749670E+01,
560 + .24922060E+01, .28052850E+01, .31163180E+01,
561 + .58397920E+00, .71931010E+00, .76587130E+00, .10428030E+01,
562 + .11106750E+01, .11901670E+01, .14455980E+01, .16926470E+01,
563 + .19350150E+01, .21746200E+01, .24125360E+01,
564 + .50203150E+00, .60434630E+00, .63955520E+00, .85395630E+00,
565 + .90078840E+00, .96332250E+00, .11644380E+01, .13594100E+01,
566 + .15511590E+01, .17411420E+01, .19302900E+01,
567 + .43853270E+00, .51731970E+00, .54446970E+00, .71438090E+00,
568 + .74729330E+00, .79777910E+00, .96035330E+00, .11183840E+01,
569 + .12741880E+01, .14288210E+01, .15827430E+01,
570 + .38791870E+00, .44939010E+00, .47063000E+00, .60780210E+00,
571 + .63118570E+00, .67277980E+00, .80695640E+00, .93777170E+00,
572 + .10670820E+01, .11957530E+01, .13245020E+01 /
573 DATA ((GL(IX,IQ),IQ=1,11),IX=19,24)/
574 + .34665570E+00, .39505460E+00, .41184650E+00, .52420930E+00,
575 + .54084130E+00, .57569740E+00, .68834800E+00, .79851220E+00,
576 + .90768090E+00, .10164890E+01, .11253730E+01,
577 + .31239220E+00, .35071640E+00, .36409070E+00, .45726440E+00,
578 + .46905640E+00, .49866390E+00, .59456930E+00, .68866500E+00,
579 + .78213980E+00, .87541510E+00, .96853840E+00,
580 + .28350310E+00, .31393070E+00, .32463340E+00, .40263530E+00,
581 + .41088930E+00, .43633690E+00, .51896510E+00, .60030390E+00,
582 + .68131460E+00, .76235900E+00, .84367270E+00,
583 + .25882940E+00, .28298000E+00, .29156430E+00, .35741600E+00,
584 + .36299110E+00, .38509200E+00, .45702380E+00, .52806320E+00,
585 + .59898170E+00, .67003450E+00, .74135010E+00,
586 + .23752240E+00, .25662460E+00, .26350900E+00, .31945240E+00,
587 + .32311680E+00, .34246850E+00, .40562650E+00, .46821550E+00,
588 + .53084740E+00, .59371670E+00, .65700290E+00,
589 + .21894650E+00, .23394800E+00, .23945450E+00, .28730270E+00,
590 + .28941910E+00, .30650290E+00, .36240090E+00, .41797570E+00,
591 + .47370080E+00, .52958380E+00, .58507090E+00 /
592 DATA ((GL(IX,IQ),IQ=1,11),IX=25,30)/
593 + .20261640E+00, .21425900E+00, .21863880E+00, .25972380E+00,
594 + .26072540E+00, .27590580E+00, .32571060E+00, .37539280E+00,
595 + .42531580E+00, .47533090E+00, .52403220E+00,
596 + .18815480E+00, .19702690E+00, .20047890E+00, .23591050E+00,
597 + .23603700E+00, .24960760E+00, .29425620E+00, .33894140E+00,
598 + .38394360E+00, .42915350E+00, .47359070E+00,
599 + .17526470E+00, .18183780E+00, .18452110E+00, .21516090E+00,
600 + .21466740E+00, .22685990E+00, .26709920E+00, .30750590E+00,
601 + .34829710E+00, .38960260E+00, .43225460E+00,
602 + .16370820E+00, .16836440E+00, .17040750E+00, .19698360E+00,
603 + .19598750E+00, .20700130E+00, .24345240E+00, .28017040E+00,
604 + .31730650E+00, .35494590E+00, .39383850E+00,
605 + .12746030E+00, .12707300E+00, .12743460E+00, .14270610E+00,
606 + .14072550E+00, .14836340E+00, .17392820E+00, .19999170E+00,
607 + .22653530E+00, .25348820E+00, .28086890E+00,
608 + .10200540E+00, .99072851E-01, .98585270E-01, .10733410E+00,
609 + .10519130E+00, .11076640E+00, .12963620E+00, .14908340E+00,
610 + .16899390E+00, .18924010E+00, .20980620E+00 /
611 DATA ((GL(IX,IQ),IQ=1,11),IX=31,36)/
612 + .83261266E-01, .79071991E-01, .78161083E-01, .82952023E-01,
613 + .80975369E-01, .85207291E-01, .99679098E-01, .11473360E+00,
614 + .13021420E+00, .14599940E+00, .16219400E+00,
615 + .68968028E-01, .64226680E-01, .63123502E-01, .65433361E-01,
616 + .63734278E-01, .67045681E-01, .78477465E-01, .90464495E-01,
617 + .10283340E+00, .11547220E+00, .12849930E+00,
618 + .57774346E-01, .52880250E-01, .51714636E-01, .52434806E-01,
619 + .51041912E-01, .53698793E-01, .62946260E-01, .72705969E-01,
620 + .82802862E-01, .93068495E-01, .10302780E+00,
621 + .48822779E-01, .44005964E-01, .42852037E-01, .42545836E-01,
622 + .41453704E-01, .43628745E-01, .51253814E-01, .59342265E-01,
623 + .67724489E-01, .76302469E-01, .85065432E-01,
624 + .41543383E-01, .36935728E-01, .35835505E-01, .34868360E-01,
625 + .34053877E-01, .35865203E-01, .42253211E-01, .49054630E-01,
626 + .56095999E-01, .63209556E-01, .70077658E-01,
627 + .35542656E-01, .31217217E-01, .30193670E-01, .28811287E-01,
628 + .28240420E-01, .29770782E-01, .35194006E-01, .40982444E-01,
629 + .46963304E-01, .52930225E-01, .58454961E-01 /
630 DATA ((GL(IX,IQ),IQ=1,11),IX=37,42)/
631 + .30540215E-01, .26534021E-01, .25598461E-01, .23967603E-01,
632 + .23608219E-01, .24916900E-01, .29572174E-01, .34549791E-01,
633 + .39702527E-01, .44911645E-01, .49987104E-01,
634 + .26330978E-01, .22658577E-01, .21815188E-01, .20044504E-01,
635 + .19868838E-01, .21000214E-01, .25034785E-01, .29350990E-01,
636 + .33817947E-01, .38380049E-01, .43175381E-01,
637 + .22761498E-01, .19423366E-01, .18671896E-01, .16839994E-01,
638 + .16821781E-01, .17807977E-01, .21331685E-01, .25101034E-01,
639 + .28996825E-01, .32948896E-01, .36902972E-01,
640 + .19714693E-01, .16702496E-01, .16039969E-01, .14202482E-01,
641 + .14312029E-01, .15178242E-01, .18276546E-01, .21587918E-01,
642 + .25004115E-01, .28461335E-01, .31901490E-01,
643 + .17099718E-01, .14399716E-01, .13821516E-01, .12014621E-01,
644 + .12229261E-01, .12995567E-01, .15735839E-01, .18660692E-01,
645 + .21690875E-01, .24895152E-01, .28732846E-01,
646 + .14845011E-01, .12440257E-01, .11940845E-01, .10187574E-01,
647 + .10491603E-01, .11172105E-01, .13605919E-01, .16198263E-01,
648 + .18864267E-01, .21574745E-01, .24365081E-01 /
649 DATA ((GL(IX,IQ),IQ=1,11),IX=43,48)/
650 + .12893437E-01, .10765237E-01, .10338598E-01, .86557819E-02,
651 + .90296203E-02, .96370047E-02, .11807495E-01, .14113699E-01,
652 + .16476428E-01, .18850012E-01, .21186231E-01,
653 + .11198856E-01, .93277292E-02, .89676771E-02, .73661194E-02,
654 + .77940393E-02, .83379159E-02, .10279461E-01, .12337290E-01,
655 + .14443425E-01, .16574530E-01, .18737625E-01,
656 + .97235842E-02, .80898963E-02, .77902800E-02, .62755812E-02,
657 + .67443443E-02, .72326530E-02, .89736022E-02, .10813558E-01,
658 + .12689628E-01, .14571436E-01, .16437961E-01,
659 + .84365765E-02, .70209587E-02, .67757773E-02, .53504459E-02,
660 + .58481670E-02, .62875370E-02, .78516202E-02, .94999624E-02,
661 + .11178712E-01, .12874294E-01, .14605011E-01,
662 + .73120063E-02, .60956310E-02, .58991169E-02, .45637870E-02,
663 + .50804755E-02, .54762443E-02, .68831155E-02, .83620390E-02,
664 + .98717529E-02, .11428135E-01, .13068485E-01,
665 + .63282275E-02, .52929819E-02, .51396578E-02, .38933353E-02,
666 + .44199834E-02, .47767651E-02, .60432088E-02, .73699811E-02,
667 + .87127574E-02, .10057214E-01, .11411997E-01 /
668 DATA ((GL(IX,IQ),IQ=1,11),IX=49,54)/
669 + .54669739E-02, .45955651E-02, .44802641E-02, .33206195E-02,
670 + .38496056E-02, .41713011E-02, .53116912E-02, .65027177E-02,
671 + .77011143E-02, .88746678E-02, .99681346E-02,
672 + .47127111E-02, .39887261E-02, .39066095E-02, .28307301E-02,
673 + .33553415E-02, .36453218E-02, .46720691E-02, .57427599E-02,
674 + .68357103E-02, .80072861E-02, .94076097E-02,
675 + .40521673E-02, .34600997E-02, .34066585E-02, .24112663E-02,
676 + .29261985E-02, .31872878E-02, .41110185E-02, .50702901E-02,
677 + .60250992E-02, .69173952E-02, .75759287E-02,
678 + .34739231E-02, .29991798E-02, .29702333E-02, .20518992E-02,
679 + .25519510E-02, .27867043E-02, .36168986E-02, .44774325E-02,
680 + .53389524E-02, .61903261E-02, .70185601E-02,
681 + .29681101E-02, .25970007E-02, .25886917E-02, .17432495E-02,
682 + .22248747E-02, .24355252E-02, .31804622E-02, .39506904E-02,
683 + .47161230E-02, .54487702E-02, .60870470E-02,
684 + .25261631E-02, .22458818E-02, .22546651E-02, .14785756E-02,
685 + .19382576E-02, .21268046E-02, .27938937E-02, .34815152E-02,
686 + .41530817E-02, .47463877E-02, .51725246E-02 /
687 DATA ((GL(IX,IQ),IQ=1,11),IX=55,60)/
688 + .21406065E-02, .19392093E-02, .19618410E-02, .12511247E-02,
689 + .16862222E-02, .18544963E-02, .24503896E-02, .30631558E-02,
690 + .36543363E-02, .41417694E-02, .43804199E-02,
691 + .18048959E-02, .16712700E-02, .17047965E-02, .10559455E-02,
692 + .14644208E-02, .16139932E-02, .21446492E-02, .26926622E-02,
693 + .32628893E-02, .39804033E-02, .51951655E-02,
694 + .15132793E-02, .14371148E-02, .14788593E-02, .88831043E-03,
695 + .12684151E-02, .14008406E-02, .18716479E-02, .23557961E-02,
696 + .28372828E-02, .33232141E-02, .38416204E-02,
697 + .12606832E-02, .12324414E-02, .12799926E-02, .74424793E-03,
698 + .10950567E-02, .12116791E-02, .16275726E-02, .20548766E-02,
699 + .24787872E-02, .29049153E-02, .33533813E-02,
700 + .10426207E-02, .10535023E-02, .11047025E-02, .62077324E-03,
701 + .94134692E-03, .10434433E-02, .14089389E-02, .17839950E-02,
702 + .21523484E-02, .25089125E-02, .28646204E-02,
703 + .85511315E-03, .89702843E-03, .94996102E-03, .51481061E-03,
704 + .80484606E-03, .89360634E-03, .12128714E-02, .15403864E-02,
705 + .18615247E-02, .21698938E-02, .24510692E-02 /
706 DATA ((GL(IX,IQ),IQ=1,11),IX=61,66)/
707 + .69462199E-03, .76016103E-03, .81314059E-03, .42395398E-03,
708 + .68344019E-03, .75998489E-03, .10368736E-02, .13208538E-02,
709 + .15991258E-02, .18703775E-02, .21409541E-02,
710 + .55799709E-03, .64040016E-03, .69196307E-03, .34613954E-03,
711 + .57541387E-03, .64079266E-03, .87887404E-03, .11229855E-02,
712 + .13612587E-02, .15899333E-02, .17994390E-02,
713 + .44242750E-03, .53555850E-03, .58445230E-03, .27959974E-03,
714 + .47923587E-03, .53444429E-03, .73704944E-03, .94491709E-03,
715 + .11499835E-02, .13629402E-02, .16131144E-02,
716 + .37976223E-03, .47674883E-03, .52342948E-03, .24302480E-03,
717 + .42460355E-03, .47393574E-03, .65595709E-03, .84273744E-03,
718 + .10278203E-02, .12271540E-02, .14861936E-02,
719 + .32377799E-03, .42259792E-03, .46670469E-03, .20990966E-03,
720 + .37385608E-03, .41766485E-03, .58025646E-03, .74656424E-03,
721 + .90435368E-03, .10364352E-02, .11024800E-02,
722 + .27395386E-03, .37272234E-03, .41394209E-03, .17995390E-03,
723 + .32672964E-03, .36536818E-03, .50967175E-03, .65769651E-03,
724 + .80517057E-03, .97348861E-03, .12287423E-02 /
725 DATA ((GL(IX,IQ),IQ=1,11),IX=67,72)/
726 + .22980465E-03, .32677129E-03, .36483782E-03, .15289533E-03,
727 + .28305233E-03, .31685113E-03, .44392538E-03, .57369040E-03,
728 + .69590734E-03, .79750392E-03, .85393875E-03,
729 + .19087768E-03, .28442426E-03, .31911809E-03, .12851208E-03,
730 + .24262680E-03, .27191307E-03, .38280417E-03, .49586652E-03,
731 + .60144276E-03, .68557670E-03, .71986660E-03,
732 + .15675026E-03, .24538868E-03, .27653706E-03, .10655740E-03,
733 + .20529632E-03, .23038426E-03, .32609791E-03, .42376091E-03,
734 + .51794731E-03, .61210821E-03, .71923883E-03,
735 + .12702562E-03, .20939946E-03, .23687704E-03, .86850647E-04,
736 + .17095124E-03, .19214209E-03, .27363410E-03, .35657937E-03,
737 + .43596257E-03, .51353715E-03, .59708609E-03,
738 + .10133997E-03, .17622036E-03, .19994892E-03, .69206086E-04,
739 + .13947536E-03, .15706119E-03, .22526080E-03, .29422212E-03,
740 + .35635440E-03, .39608881E-03, .37468970E-03,
741 + .79367856E-04, .14563842E-03, .16558901E-03, .53488286E-04,
742 + .11076736E-03, .12503305E-03, .18085355E-03, .23724210E-03,
743 + .29005515E-03, .33739625E-03, .37392578E-03 /
744 DATA ((GL(IX,IQ),IQ=1,11),IX=73,78)/
745 + .60783786E-04, .11746485E-03, .13366299E-03, .39538561E-04,
746 + .84787382E-04, .96002914E-04, .14032156E-03, .18491085E-03,
747 + .22700217E-03, .26840641E-03, .31536425E-03,
748 + .45273802E-04, .91536160E-04, .10406847E-03, .27264969E-04,
749 + .61503961E-04, .69928057E-04, .10360509E-03, .13728385E-03,
750 + .16879971E-03, .19924328E-03, .23159156E-03,
751 + .32502478E-04, .67715468E-04, .76742552E-04, .16574819E-04,
752 + .40923231E-04, .46800356E-04, .70686932E-04, .94421048E-04,
753 + .11643116E-03, .13739125E-03, .15853342E-03,
754 + .21987848E-04, .45899367E-04, .51682022E-04, .74050604E-05,
755 + .23103194E-04, .26661361E-04, .41614618E-04, .56428016E-04,
756 + .70160619E-04, .83918188E-04, .10076668E-03,
757 + .13204433E-04, .26131152E-04, .29027275E-04, -.28512312E-06,
758 + .81521121E-05, .95961141E-05, .16516115E-04, .23530647E-04,
759 + .30009225E-04, .36369518E-04, .43395718E-04,
760 + .42339570E-05, .81012440E-05, .87494236E-05, -.69599464E-05,
761 + -.40101486E-05, -.44945273E-05, -.45099641E-05, -.38566682E-05,
762 + -.30550304E-05, -.17409886E-05, .20399091E-05 /
763******************************************************************
764 q2=q*q
765*if x is out of range
766 IF((X.LT.5.0D-4).OR.(X.GT.1.0D0)) GOTO 90
767*******************************************************************
768 IF (ICALL.NE.1) THEN
769* get the x coordinates
770 CALL GS2XCOR(Y,NP)
771C OPEN(UNIT=30,FILE='FOR030.DAT',status='old')
772C DO 20 IQ=1,NQ
773C DO 10 IX=1,NP
774C READ(30,*)SIG(IX,IQ),QNS(IX,IQ),GL(IX,IQ)
775C 10 CONTINUE
776C 20 CONTINUE
777 ICALL=1
778 END IF
779*
780 DO 30 IX=1,NP
781 A(IX)=Y(IX)
782 30 CONTINUE
783 DO 40 IQ=1,NQ
784 A(NP+IQ)=QT(IQ)
785 40 CONTINUE
786*
787 NA(1)=NP
788 NA(2)=NQ
789 XT(1)=X
790 XT(2)=Q2
791 XSIG=DBFINT(2,XT,NA,A,SIG)
792 XQNS=DBFINT(2,XT,NA,A,QNS)
793 G =DBFINT(2,XT,NA,A,GL)
794*
795 IF (Q2.LT.50.0D0) THEN
796C Use three flavour evolution.
797 U=(XSIG+9.0D0*XQNS)/6.0D0
798 D=(XSIG-4.5D0*XQNS)/6.0D0
799 S=D
800 C=0.0D0
801 B=0.0D0
802*
803 ELSE IF((Q2.GT.50.0).AND.(Q2.LT.250.0)) THEN
804C Use four flavour evolution
805 U=(XSIG+6.0D0*XQNS)/8.0D0
806 D=(XSIG-6.0D0*XQNS)/8.0D0
807 S=D
808 C=U
809 B=0.0D0
810 ELSE
811C Use five flavour evolution
812 U=(XSIG+7.5D0*XQNS)/10.0D0
813 D=(XSIG-5.0D0*XQNS)/10.0D0
814 S=D
815 C=U
816 B=D
817 ENDIF
818 U=X*U
819 US=U
820 D=X*D
821 DS=D
822 S=X*S
823 C=X*C
824 B=X*B
825 G=X*G
826 90 RETURN
827 END