]>
Commit | Line | Data |
---|---|---|
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) | |
771 | C OPEN(UNIT=30,FILE='FOR030.DAT',status='old') | |
772 | C DO 20 IQ=1,NQ | |
773 | C DO 10 IX=1,NP | |
774 | C READ(30,*)SIG(IX,IQ),QNS(IX,IQ),GL(IX,IQ) | |
775 | C 10 CONTINUE | |
776 | C 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 | |
796 | C 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 | |
804 | C 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 | |
811 | C 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 |