]>
Commit | Line | Data |
---|---|---|
21886bb6 | 1 | #include "pdf/pilot.h" |
2 | SUBROUTINE GS96LO(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 | * leading order. u,d etc. gives the actual distributions and * | |
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 | + .70233650E+01, .16165820E+02, .22649760E+02, .35495220E+02, | |
24 | + .65474820E+02, .79231610E+02, .12861310E+03, .18177080E+03, | |
25 | + .23718420E+03, .29398330E+03, .35164760E+03, | |
26 | + .24311790E+01, .56410560E+01, .77057210E+01, .11734420E+02, | |
27 | + .20492340E+02, .24322600E+02, .37461360E+02, .50877500E+02, | |
28 | + .64331550E+02, .77721700E+02, .91007210E+02, | |
29 | + .14971770E+01, .33650050E+01, .44991710E+01, .66884180E+01, | |
30 | + .11271360E+02, .13227810E+02, .19793990E+02, .26335880E+02, | |
31 | + .32785410E+02, .39126610E+02, .45362620E+02, | |
32 | + .10921390E+01, .23762350E+01, .31245750E+01, .45575990E+01, | |
33 | + .74802520E+01, .87078440E+01, .12769890E+02, .16754230E+02, | |
34 | + .20641820E+02, .24437220E+02, .28151560E+02, | |
35 | + .86489230E+00, .18280090E+01, .23716390E+01, .34062140E+01, | |
36 | + .54744220E+01, .63325540E+01, .91427930E+01, .11868580E+02, | |
37 | + .14509180E+02, .17075190E+02, .19578820E+02, | |
38 | + .71901990E+00, .14813820E+01, .19005850E+01, .26943770E+01, | |
39 | + .42556170E+01, .48970560E+01, .69807250E+01, .89845070E+01, | |
40 | + .10915430E+02, .12785660E+02, .14606780E+02 / | |
41 | DATA ((SIG(IX,IQ),IQ=1,11),IX=7,12)/ | |
42 | + .61723300E+00, .12432440E+01, .15799330E+01, .22148420E+01, | |
43 | + .34465520E+01, .39484520E+01, .55681480E+01, .71151260E+01, | |
44 | + .85998060E+01, .10034390E+02, .11429420E+02, | |
45 | + .54204300E+00, .10699620E+01, .13485000E+01, .18719250E+01, | |
46 | + .28753520E+01, .32813470E+01, .45843660E+01, .58219380E+01, | |
47 | + .70058830E+01, .81478560E+01, .92573340E+01, | |
48 | + .48415250E+00, .93844130E+00, .11741140E+01, .16156780E+01, | |
49 | + .24533400E+01, .27901670E+01, .38661630E+01, .48833590E+01, | |
50 | + .58539990E+01, .67889940E+01, .76968530E+01, | |
51 | + .43815400E+00, .83533890E+00, .10383010E+01, .14176170E+01, | |
52 | + .21304710E+01, .24155340E+01, .33225110E+01, .41765600E+01, | |
53 | + .49898510E+01, .57725110E+01, .65321960E+01, | |
54 | + .29240730E+00, .51945260E+00, .62849450E+00, .83051500E+00, | |
55 | + .11956680E+01, .13384320E+01, .17859910E+01, .22018350E+01, | |
56 | + .25955570E+01, .29738200E+01, .33411740E+01, | |
57 | + .22771950E+00, .38647540E+00, .45986050E+00, .59540790E+00, | |
58 | + .83445110E+00, .92663030E+00, .12135430E+01, .14787420E+01, | |
59 | + .17296330E+01, .19709840E+01, .22058840E+01 / | |
60 | DATA ((SIG(IX,IQ),IQ=1,11),IX=13,18)/ | |
61 | + .18804090E+00, .30803060E+00, .36194060E+00, .46150040E+00, | |
62 | + .63379280E+00, .69956000E+00, .90347860E+00, .10916570E+01, | |
63 | + .12699170E+01, .14418210E+01, .16095890E+01, | |
64 | + .16106230E+00, .25639660E+00, .29829840E+00, .37582780E+00, | |
65 | + .50798110E+00, .55803760E+00, .71298070E+00, .85604630E+00, | |
66 | + .99191000E+00, .11233210E+01, .12519440E+01, | |
67 | + .14144340E+00, .21987620E+00, .25375560E+00, .31665930E+00, | |
68 | + .42255270E+00, .46242310E+00, .58580990E+00, .69996700E+00, | |
69 | + .80871960E+00, .91424490E+00, .10178260E+01, | |
70 | + .12648450E+00, .19269370E+00, .22089650E+00, .27351290E+00, | |
71 | + .36116160E+00, .39400900E+00, .49574770E+00, .59015340E+00, | |
72 | + .68040390E+00, .76825760E+00, .85472490E+00, | |
73 | + .11467010E+00, .17166800E+00, .19566950E+00, .24073410E+00, | |
74 | + .31512060E+00, .34289780E+00, .42907090E+00, .50931720E+00, | |
75 | + .58630930E+00, .66148940E+00, .73566840E+00, | |
76 | + .10508230E+00, .15432960E+00, .17493660E+00, .21482420E+00, | |
77 | + .27930330E+00, .30330860E+00, .37792090E+00, .44765370E+00, | |
78 | + .51478960E+00, .58053120E+00, .64554070E+00 / | |
79 | DATA ((SIG(IX,IQ),IQ=1,11),IX=19,24)/ | |
80 | + .97131789E-01, .14084660E+00, .15900900E+00, .19428030E+00, | |
81 | + .25102050E+00, .27209930E+00, .33777610E+00, .39940580E+00, | |
82 | + .45894800E+00, .51741330E+00, .57534640E+00, | |
83 | + .90422034E-01, .12963520E+00, .14583600E+00, .17742940E+00, | |
84 | + .22803570E+00, .24680480E+00, .30544260E+00, .36069220E+00, | |
85 | + .41424930E+00, .46697050E+00, .51930820E+00, | |
86 | + .84676370E-01, .12016500E+00, .13476290E+00, .16336950E+00, | |
87 | + .20901730E+00, .22592660E+00, .27890360E+00, .32902210E+00, | |
88 | + .37775960E+00, .42584740E+00, .47366380E+00, | |
89 | + .79695620E-01, .11205840E+00, .12532620E+00, .15146720E+00, | |
90 | + .19303900E+00, .20842480E+00, .25676830E+00, .30268500E+00, | |
91 | + .34746950E+00, .39175020E+00, .43584570E+00, | |
92 | + .75332552E-01, .10503960E+00, .11718890E+00, .14126560E+00, | |
93 | + .17943800E+00, .19355690E+00, .23804960E+00, .28047120E+00, | |
94 | + .32196180E+00, .36306450E+00, .40404830E+00, | |
95 | + .71475916E-01, .98902315E-01, .11009980E+00, .13242690E+00, | |
96 | + .16772780E+00, .18077960E+00, .22202890E+00, .26150320E+00, | |
97 | + .30021130E+00, .33862380E+00, .37696920E+00 / | |
98 | DATA ((SIG(IX,IQ),IQ=1,11),IX=25,30)/ | |
99 | + .68039946E-01, .93488976E-01, .10386800E+00, .12469620E+00, | |
100 | + .15754450E+00, .16968690E+00, .20817210E+00, .24513120E+00, | |
101 | + .28145950E+00, .31756730E+00, .35364870E+00, | |
102 | + .64957649E-01, .88677347E-01, .98345891E-01, .11787750E+00, | |
103 | + .14860990E+00, .15996950E+00, .19607450E+00, .23086390E+00, | |
104 | + .26513530E+00, .29924710E+00, .33336460E+00, | |
105 | + .62175583E-01, .84369965E-01, .93415700E-01, .11181690E+00, | |
106 | + .14070770E+00, .15138750E+00, .18542390E+00, .21832420E+00, | |
107 | + .25080060E+00, .28316720E+00, .31556580E+00, | |
108 | + .59650775E-01, .80420166E-01, .88902399E-01, .10637240E+00, | |
109 | + .13365770E+00, .14374470E+00, .17597350E+00, .20721680E+00, | |
110 | + .23811440E+00, .26894210E+00, .29982100E+00, | |
111 | + .51509041E-01, .68176709E-01, .75015508E-01, .89448459E-01, | |
112 | + .11187040E+00, .12017020E+00, .14694140E+00, .17316310E+00, | |
113 | + .19925500E+00, .22538240E+00, .25160820E+00, | |
114 | + .45536134E-01, .59398353E-01, .65131053E-01, .77530891E-01, | |
115 | + .96705496E-01, .10381690E+00, .12693770E+00, .14976790E+00, | |
116 | + .17258700E+00, .19549320E+00, .21851570E+00 / | |
117 | DATA ((SIG(IX,IQ),IQ=1,11),IX=31,36)/ | |
118 | + .40955305E-01, .52766804E-01, .57704475E-01, .68659775E-01, | |
119 | + .85510314E-01, .91773830E-01, .11227210E+00, .13264130E+00, | |
120 | + .15306790E+00, .17360690E+00, .19426700E+00, | |
121 | + .37324660E-01, .47601301E-01, .51943392E-01, .61794415E-01, | |
122 | + .76885954E-01, .82510278E-01, .10101900E+00, .11950580E+00, | |
123 | + .13809150E+00, .15680180E+00, .17563260E+00, | |
124 | + .34372974E-01, .43435521E-01, .47311056E-01, .56301422E-01, | |
125 | + .70009246E-01, .75133115E-01, .92074446E-01, .10906660E+00, | |
126 | + .12618310E+00, .14342960E+00, .16079300E+00, | |
127 | + .31923808E-01, .40012788E-01, .43512553E-01, .51803045E-01, | |
128 | + .64385124E-01, .69104590E-01, .84772743E-01, .10054340E+00, | |
129 | + .11645470E+00, .13249750E+00, .14865270E+00, | |
130 | + .29857013E-01, .37139244E-01, .40328316E-01, .48041262E-01, | |
131 | + .59685305E-01, .64070739E-01, .78682460E-01, .93434341E-01, | |
132 | + .10833710E+00, .12337080E+00, .13851210E+00, | |
133 | + .28087676E-01, .34687765E-01, .37615880E-01, .44843495E-01, | |
134 | + .55690806E-01, .59795659E-01, .73516525E-01, .87405436E-01, | |
135 | + .10145160E+00, .11562690E+00, .12990470E+00 / | |
136 | DATA ((SIG(IX,IQ),IQ=1,11),IX=37,42)/ | |
137 | + .26553867E-01, .32570735E-01, .35275102E-01, .42089522E-01, | |
138 | + .52249193E-01, .56115251E-01, .69075659E-01, .82225241E-01, | |
139 | + .95535874E-01, .10897300E+00, .12250760E+00, | |
140 | + .25209235E-01, .30719869E-01, .33231538E-01, .39689910E-01, | |
141 | + .49249481E-01, .52910630E-01, .65216698E-01, .77728003E-01, | |
142 | + .90402141E-01, .10319940E+00, .11608920E+00, | |
143 | + .24018301E-01, .29084699E-01, .31427387E-01, .37579320E-01, | |
144 | + .46610452E-01, .50094768E-01, .61834782E-01, .73792145E-01, | |
145 | + .85912563E-01, .98152287E-01, .11047950E+00, | |
146 | + .22953326E-01, .27626833E-01, .29821219E-01, .35707723E-01, | |
147 | + .44270609E-01, .47601912E-01, .58850951E-01, .70326120E-01, | |
148 | + .81963196E-01, .93715243E-01, .10554960E+00, | |
149 | + .21992300E-01, .26317418E-01, .28381797E-01, .34036707E-01, | |
150 | + .42182721E-01, .45381572E-01, .56204535E-01, .67259535E-01, | |
151 | + .78474045E-01, .89798547E-01, .10120000E+00, | |
152 | + .21117412E-01, .25130259E-01, .27079122E-01, .32535497E-01, | |
153 | + .40309582E-01, .43394115E-01, .53848099E-01, .64537331E-01, | |
154 | + .75382322E-01, .86331800E-01, .97352557E-01 / | |
155 | DATA ((SIG(IX,IQ),IQ=1,11),IX=43,48)/ | |
156 | + .20314088E-01, .24048898E-01, .25896588E-01, .31180535E-01, | |
157 | + .38622063E-01, .41608363E-01, .51744010E-01, .62115550E-01, | |
158 | + .72637826E-01, .83258361E-01, .93944140E-01, | |
159 | + .19570207E-01, .23054440E-01, .24812274E-01, .29951232E-01, | |
160 | + .37095614E-01, .39998349E-01, .49861446E-01, .59958387E-01, | |
161 | + .70199609E-01, .80532081E-01, .90923406E-01, | |
162 | + .18875565E-01, .22135690E-01, .23814905E-01, .28832132E-01, | |
163 | + .35710733E-01, .38543295E-01, .48175458E-01, .58036570E-01, | |
164 | + .68034008E-01, .78114823E-01, .88247612E-01, | |
165 | + .18221470E-01, .21283235E-01, .22894613E-01, .27810007E-01, | |
166 | + .34449894E-01, .37224889E-01, .46664707E-01, .56325421E-01, | |
167 | + .66112675E-01, .75974435E-01, .85880660E-01, | |
168 | + .17600402E-01, .20484766E-01, .22037288E-01, .26872966E-01, | |
169 | + .33294700E-01, .36024913E-01, .45310233E-01, .54803822E-01, | |
170 | + .64411715E-01, .74083857E-01, .83792232E-01, | |
171 | + .17005796E-01, .19735906E-01, .21239230E-01, .26012382E-01, | |
172 | + .32214422E-01, .34919977E-01, .44098802E-01, .53459194E-01, | |
173 | + .62916011E-01, .72424434E-01, .81959791E-01 / | |
174 | DATA ((SIG(IX,IQ),IQ=1,11),IX=49,54)/ | |
175 | + .16431818E-01, .19026265E-01, .20488355E-01, .25218941E-01, | |
176 | + .31340595E-01, .34012362E-01, .43073423E-01, .52304987E-01, | |
177 | + .61622459E-01, .70982762E-01, .80362923E-01, | |
178 | + .15873218E-01, .18351970E-01, .19781215E-01, .24486300E-01, | |
179 | + .30548692E-01, .33194769E-01, .42162675E-01, .51287871E-01, | |
180 | + .60487274E-01, .69720104E-01, .78965351E-01, | |
181 | + .15325210E-01, .17709229E-01, .19113980E-01, .23808308E-01, | |
182 | + .29830996E-01, .32458834E-01, .41356008E-01, .50395038E-01, | |
183 | + .59495397E-01, .68619095E-01, .77747427E-01, | |
184 | + .14783341E-01, .17090147E-01, .18477764E-01, .23178712E-01, | |
185 | + .29180394E-01, .31796936E-01, .40643897E-01, .49614865E-01, | |
186 | + .58633033E-01, .67663796E-01, .76691084E-01, | |
187 | + .14243398E-01, .16494034E-01, .17872585E-01, .22593448E-01, | |
188 | + .28591167E-01, .31202689E-01, .40017735E-01, .48936587E-01, | |
189 | + .57887271E-01, .66839188E-01, .75779170E-01, | |
190 | + .13701326E-01, .15913295E-01, .17289814E-01, .22046775E-01, | |
191 | + .28056910E-01, .30669276E-01, .39469026E-01, .48349790E-01, | |
192 | + .57245754E-01, .66130891E-01, .74995354E-01 / | |
193 | DATA ((SIG(IX,IQ),IQ=1,11),IX=55,60)/ | |
194 | + .13153119E-01, .15346353E-01, .16728375E-01, .21535255E-01, | |
195 | + .27572803E-01, .30191237E-01, .38990181E-01, .47844768E-01, | |
196 | + .56696646E-01, .65525070E-01, .74323796E-01, | |
197 | + .12594732E-01, .14791337E-01, .16186563E-01, .21054942E-01, | |
198 | + .27133595E-01, .29762773E-01, .38573418E-01, .47411691E-01, | |
199 | + .56228105E-01, .65007895E-01, .73748708E-01, | |
200 | + .12021979E-01, .14241454E-01, .15657019E-01, .20601317E-01, | |
201 | + .26734108E-01, .29378202E-01, .38211159E-01, .47040939E-01, | |
202 | + .55828430E-01, .64565547E-01, .73254302E-01, | |
203 | + .11430394E-01, .13697128E-01, .15140896E-01, .20171570E-01, | |
204 | + .26369859E-01, .29032351E-01, .37895892E-01, .46722665E-01, | |
205 | + .55485573E-01, .64183913E-01, .72824322E-01, | |
206 | + .10815056E-01, .13151020E-01, .14630304E-01, .19760678E-01, | |
207 | + .26035184E-01, .28719062E-01, .37619423E-01, .46446476E-01, | |
208 | + .55186883E-01, .63848116E-01, .72441801E-01, | |
209 | + .10170342E-01, .12601701E-01, .14124501E-01, .19365635E-01, | |
210 | + .25725456E-01, .28432934E-01, .37373677E-01, .46201620E-01, | |
211 | + .54919042E-01, .63542381E-01, .72088622E-01 / | |
212 | DATA ((SIG(IX,IQ),IQ=1,11),IX=61,66)/ | |
213 | + .94895000E-02, .12047191E-01, .13622015E-01, .18982301E-01, | |
214 | + .25434965E-01, .28167473E-01, .37149407E-01, .45976061E-01, | |
215 | + .54667313E-01, .63249402E-01, .71744934E-01, | |
216 | + .87638441E-02, .11478874E-01, .13114383E-01, .18605402E-01, | |
217 | + .25157452E-01, .27915688E-01, .36936633E-01, .45756657E-01, | |
218 | + .54415464E-01, .62949926E-01, .71388632E-01, | |
219 | + .79806140E-02, .10895309E-01, .12601756E-01, .18230738E-01, | |
220 | + .24886614E-01, .27670188E-01, .36724158E-01, .45528390E-01, | |
221 | + .54144844E-01, .62621906E-01, .70994429E-01, | |
222 | + .74511403E-02, .10516069E-01, .12272826E-01, .17993828E-01, | |
223 | + .24716759E-01, .27515635E-01, .36585581E-01, .45373466E-01, | |
224 | + .53956587E-01, .62391039E-01, .70715770E-01, | |
225 | + .68464987E-02, .10112029E-01, .11928732E-01, .17750293E-01, | |
226 | + .24543701E-01, .27357465E-01, .36438715E-01, .45203689E-01, | |
227 | + .53746648E-01, .62131848E-01, .70402443E-01, | |
228 | + .62988829E-02, .97366562E-02, .11607243E-01, .17522307E-01, | |
229 | + .24376523E-01, .27201468E-01, .36282752E-01, .45014754E-01, | |
230 | + .53508431E-01, .61836019E-01, .70044719E-01 / | |
231 | DATA ((SIG(IX,IQ),IQ=1,11),IX=67,72)/ | |
232 | + .57118190E-02, .93493359E-02, .11279009E-01, .17287323E-01, | |
233 | + .24200602E-01, .27034778E-01, .36107492E-01, .44796858E-01, | |
234 | + .53231634E-01, .61492369E-01, .69630355E-01, | |
235 | + .50750975E-02, .89408755E-02, .10935490E-01, .17041067E-01, | |
236 | + .24011744E-01, .26852885E-01, .35906781E-01, .44541899E-01, | |
237 | + .52906290E-01, .61089125E-01, .69145881E-01, | |
238 | + .43719336E-02, .85081635E-02, .10575719E-01, .16780412E-01, | |
239 | + .23806021E-01, .26651226E-01, .35673607E-01, .44240404E-01, | |
240 | + .52520528E-01, .60612228E-01, .68575099E-01, | |
241 | + .35696272E-02, .80408603E-02, .10193244E-01, .16499719E-01, | |
242 | + .23578117E-01, .26423991E-01, .35399497E-01, .43880824E-01, | |
243 | + .52059866E-01, .60044378E-01, .67898139E-01, | |
244 | + .25796264E-02, .75202058E-02, .97787427E-02, .16189592E-01, | |
245 | + .23321355E-01, .26164258E-01, .35074543E-01, .43449294E-01, | |
246 | + .51506475E-01, .59364054E-01, .67090012E-01, | |
247 | + .63840469E-03, .66830339E-02, .91540636E-02, .15787654E-01, | |
248 | + .23020176E-01, .25863128E-01, .34693021E-01, .42934284E-01, | |
249 | + .50842009E-01, .58546569E-01, .66120222E-01 / | |
250 | DATA ((SIG(IX,IQ),IQ=1,11),IX=73,78)/ | |
251 | + .54348679E-03, .66718971E-02, .91313645E-02, .15770439E-01, | |
252 | + .22891581E-01, .25676530E-01, .34300376E-01, .42334419E-01, | |
253 | + .50041795E-01, .57553779E-01, .64941801E-01, | |
254 | + .44987255E-03, .66495002E-02, .90860846E-02, .15707679E-01, | |
255 | + .22679351E-01, .25390834E-01, .33761628E-01, .41547108E-01, | |
256 | + .49016580E-01, .56300890E-01, .63469745E-01, | |
257 | + .35752088E-03, .66093411E-02, .90073841E-02, .15578166E-01, | |
258 | + .22348387E-01, .24965560E-01, .33020519E-01, .40502422E-01, | |
259 | + .47683932E-01, .54693565E-01, .61598159E-01, | |
260 | + .26639336E-03, .65389010E-02, .88747321E-02, .15344365E-01, | |
261 | + .21837499E-01, .24330446E-01, .31980157E-01, .39080344E-01, | |
262 | + .45902595E-01, .52570321E-01, .59145831E-01, | |
263 | + .17645306E-03, .64132204E-02, .86474940E-02, .14928375E-01, | |
264 | + .21021180E-01, .23341957E-01, .30444333E-01, .37038930E-01, | |
265 | + .43388367E-01, .49606442E-01, .55748388E-01, | |
266 | + .87666333E-04, .61405073E-02, .81724292E-02, .14103483E-01, | |
267 | + .19544823E-01, .21597438E-01, .27870284E-01, .33712901E-01, | |
268 | + .39361767E-01, .44912312E-01, .50408222E-01 / | |
269 | DATA ((QNS(IX,IQ),IQ=1,11),IX=1,6)/ | |
270 | + .22347780E-01, .30416997E-01, .34220558E-01, .38654409E-01, | |
271 | + .48890565E-01, .52922335E-01, .66621147E-01, .80712840E-01, | |
272 | + .95122613E-01, .10979640E+00, .12469360E+00, | |
273 | + .14476375E-01, .19870752E-01, .22425551E-01, .25597360E-01, | |
274 | + .32909065E-01, .35732053E-01, .45331556E-01, .55207506E-01, | |
275 | + .65299712E-01, .75566433E-01, .85977353E-01, | |
276 | + .11962311E-01, .16505240E-01, .18658876E-01, .21417702E-01, | |
277 | + .27743990E-01, .30164229E-01, .38388949E-01, .46841018E-01, | |
278 | + .55468224E-01, .64235009E-01, .73115870E-01, | |
279 | + .10589727E-01, .14661130E-01, .16591460E-01, .19117894E-01, | |
280 | + .24881853E-01, .27073927E-01, .34517843E-01, .42159259E-01, | |
281 | + .49951315E-01, .57862427E-01, .65870196E-01, | |
282 | + .96859979E-02, .13441657E-01, .15222020E-01, .17591115E-01, | |
283 | + .22971103E-01, .25008233E-01, .31921271E-01, .39010916E-01, | |
284 | + .46234246E-01, .53562596E-01, .60975742E-01, | |
285 | + .90294778E-02, .12552069E-01, .14221529E-01, .16473485E-01, | |
286 | + .21565964E-01, .23487607E-01, .30004630E-01, .36682442E-01, | |
287 | + .43481242E-01, .50374601E-01, .57343986E-01 / | |
288 | DATA ((QNS(IX,IQ),IQ=1,11),IX=7,12)/ | |
289 | + .85226241E-02, .11862587E-01, .13445049E-01, .15604578E-01, | |
290 | + .20469274E-01, .22299757E-01, .28504094E-01, .34856651E-01, | |
291 | + .41320160E-01, .47870025E-01, .54489061E-01, | |
292 | + .81145316E-02, .11305598E-01, .12817057E-01, .14900750E-01, | |
293 | + .19577978E-01, .21333689E-01, .27281454E-01, .33367082E-01, | |
294 | + .39555471E-01, .45823533E-01, .52155215E-01, | |
295 | + .77760560E-02, .10842069E-01, .12293876E-01, .14313543E-01, | |
296 | + .18832160E-01, .20524794E-01, .26256071E-01, .32116495E-01, | |
297 | + .38072787E-01, .44103172E-01, .50192557E-01, | |
298 | + .74886265E-02, .10447377E-01, .11847992E-01, .13812449E-01, | |
299 | + .18194064E-01, .19832352E-01, .25377102E-01, .31043489E-01, | |
300 | + .36799841E-01, .42625524E-01, .48506290E-01, | |
301 | + .64256275E-02, .89773368E-02, .10183567E-01, .11935689E-01, | |
302 | + .15789291E-01, .17219389E-01, .22049619E-01, .26973020E-01, | |
303 | + .31964321E-01, .37007291E-01, .42090867E-01, | |
304 | + .58390745E-02, .81581678E-02, .92532923E-02, .10881490E-01, | |
305 | + .14427078E-01, .15736699E-01, .20153632E-01, .24647752E-01, | |
306 | + .29197568E-01, .33789434E-01, .38414113E-01 / | |
307 | DATA ((QNS(IX,IQ),IQ=1,11),IX=13,18)/ | |
308 | + .54209060E-02, .75701606E-02, .85841808E-02, .10120295E-01, | |
309 | + .13437810E-01, .14658688E-01, .18771384E-01, .22949880E-01, | |
310 | + .27175499E-01, .31436477E-01, .35724893E-01, | |
311 | + .51001306E-02, .71166358E-02, .80672922E-02, .95302416E-02, | |
312 | + .12667454E-01, .13818449E-01, .17691769E-01, .21622244E-01, | |
313 | + .25593415E-01, .29594965E-01, .33620004E-01, | |
314 | + .48420541E-02, .67501036E-02, .76490170E-02, .90512559E-02, | |
315 | + .12039731E-01, .13133255E-01, .16809879E-01, .20536831E-01, | |
316 | + .24299441E-01, .28088575E-01, .31898152E-01, | |
317 | + .46274024E-02, .64440374E-02, .72993753E-02, .86496659E-02, | |
318 | + .11511710E-01, .12556502E-01, .16066508E-01, .19621277E-01, | |
319 | + .23207651E-01, .26817473E-01, .30445315E-01, | |
320 | + .44443929E-02, .61822440E-02, .70000733E-02, .83048791E-02, | |
321 | + .11057034E-01, .12059559E-01, .15425186E-01, .18830957E-01, | |
322 | + .22265013E-01, .25720004E-01, .29191058E-01, | |
323 | + .42853877E-02, .59574638E-02, .67436076E-02, .80045108E-02, | |
324 | + .10659067E-01, .11624165E-01, .14862226E-01, .18136676E-01, | |
325 | + .21436702E-01, .24755616E-01, .28089002E-01 / | |
326 | DATA ((QNS(IX,IQ),IQ=1,11),IX=19,24)/ | |
327 | + .41451608E-02, .57549435E-02, .65114158E-02, .77362983E-02, | |
328 | + .10303783E-01, .11235525E-01, .14359901E-01, .17517360E-01, | |
329 | + .20698044E-01, .23895871E-01, .27106808E-01, | |
330 | + .40199752E-02, .55736504E-02, .63034128E-02, .74954242E-02, | |
331 | + .99840201E-02, .10885593E-01, .13907254E-01, .16959157E-01, | |
332 | + .20032283E-01, .23121063E-01, .26221819E-01, | |
333 | + .39070938E-02, .54097446E-02, .61152326E-02, .72769844E-02, | |
334 | + .96934550E-02, .10567492E-01, .13495505E-01, .16451305E-01, | |
335 | + .19426599E-01, .22416286E-01, .25416970E-01, | |
336 | + .38044569E-02, .52603283E-02, .59435759E-02, .70772693E-02, | |
337 | + .94272951E-02, .10276008E-01, .13117989E-01, .15985610E-01, | |
338 | + .18871248E-01, .21770189E-01, .24679305E-01, | |
339 | + .37104669E-02, .51231552E-02, .57858899E-02, .68934062E-02, | |
340 | + .91818236E-02, .10007096E-01, .12769531E-01, .15555740E-01, | |
341 | + .18358679E-01, .21173978E-01, .23998743E-01, | |
342 | + .36238658E-02, .49964576E-02, .56401626E-02, .67231297E-02, | |
343 | + .89541078E-02, .97575644E-02, .12446046E-01, .15156664E-01, | |
344 | + .17882895E-01, .20620679E-01, .23367316E-01 / | |
345 | DATA ((QNS(IX,IQ),IQ=1,11),IX=25,30)/ | |
346 | + .35436423E-02, .48788190E-02, .55047837E-02, .65646246E-02, | |
347 | + .87417914E-02, .95248455E-02, .12144244E-01, .14784350E-01, | |
348 | + .17439092E-01, .20104686E-01, .22778606E-01, | |
349 | + .34689903E-02, .47690975E-02, .53784545E-02, .64164181E-02, | |
350 | + .85429605E-02, .93068564E-02, .11861458E-01, .14435508E-01, | |
351 | + .17023347E-01, .19621437E-01, .22227386E-01, | |
352 | + .33992324E-02, .46663643E-02, .52601271E-02, .62773130E-02, | |
353 | + .83560478E-02, .91018872E-02, .11595481E-01, .14107424E-01, | |
354 | + .16632421E-01, .19167142E-01, .21709338E-01, | |
355 | + .33338103E-02, .45709312E-02, .51503726E-02, .61466023E-02, | |
356 | + .81798965E-02, .89086248E-02, .11344525E-01, .13797851E-01, | |
357 | + .16263613E-01, .18738655E-01, .21220839E-01, | |
358 | + .31070877E-02, .42338623E-02, .47612539E-02, .56870929E-02, | |
359 | + .75597861E-02, .82283197E-02, .10461652E-01, .12709657E-01, | |
360 | + .14968293E-01, .17234933E-01, .19507756E-01, | |
361 | + .29223014E-02, .39567789E-02, .44408757E-02, .53065377E-02, | |
362 | + .70437291E-02, .76620006E-02, .97269351E-02, .11805083E-01, | |
363 | + .13892934E-01, .15988134E-01, .18089021E-01 / | |
364 | DATA ((QNS(IX,IQ),IQ=1,11),IX=31,36)/ | |
365 | + .27672520E-02, .37230218E-02, .41703400E-02, .49827849E-02, | |
366 | + .66026538E-02, .71779541E-02, .90995627E-02, .11033838E-01, | |
367 | + .12977473E-01, .14928191E-01, .16884387E-01, | |
368 | + .26343348E-02, .35203339E-02, .39353445E-02, .47014700E-02, | |
369 | + .62181177E-02, .67561464E-02, .85539315E-02, .10364416E-01, | |
370 | + .12184278E-01, .14011203E-01, .15843540E-01, | |
371 | + .25184827E-02, .33429826E-02, .37297010E-02, .44538858E-02, | |
372 | + .58783856E-02, .63836933E-02, .80732238E-02, .97759375E-02, | |
373 | + .11488298E-01, .13207850E-01, .14932853E-01, | |
374 | + .24161392E-02, .31847458E-02, .35460098E-02, .42331023E-02, | |
375 | + .55746799E-02, .60510873E-02, .76453555E-02, .92535503E-02, | |
376 | + .10871798E-01, .12497444E-01, .14128623E-01, | |
377 | + .23247080E-02, .30426823E-02, .33811228E-02, .40347395E-02, | |
378 | + .53010983E-02, .57518403E-02, .72618043E-02, .87866252E-02, | |
379 | + .10321981E-01, .11864970E-01, .13413583E-01, | |
380 | + .22422282E-02, .29143866E-02, .32323541E-02, .38553227E-02, | |
381 | + .50530406E-02, .54809167E-02, .69160364E-02, .83670495E-02, | |
382 | + .98291114E-02, .11299029E-01, .12774654E-01 / | |
383 | DATA ((QNS(IX,IQ),IQ=1,11),IX=37,42)/ | |
384 | + .21671746E-02, .27969701E-02, .30962587E-02, .36919208E-02, | |
385 | + .48268489E-02, .52343542E-02, .66029835E-02, .79885563E-02, | |
386 | + .93856575E-02, .10790807E-01, .12201700E-01, | |
387 | + .20983317E-02, .26895320E-02, .29719966E-02, .35426398E-02, | |
388 | + .46198913E-02, .50092353E-02, .63187508E-02, .76462403E-02, | |
389 | + .89856889E-02, .10333324E-01, .11686685E-01, | |
390 | + .20347110E-02, .25900172E-02, .28570674E-02, .34055049E-02, | |
391 | + .44297641E-02, .48029721E-02, .60600555E-02, .73360526E-02, | |
392 | + .86243451E-02, .99208793E-02, .11223059E-01, | |
393 | + .19754882E-02, .24977257E-02, .27507916E-02, .32792690E-02, | |
394 | + .42547612E-02, .46136663E-02, .58243466E-02, .70547578E-02, | |
395 | + .82976893E-02, .95488243E-02, .10805460E-01, | |
396 | + .19199703E-02, .24119478E-02, .26524004E-02, .31627815E-02, | |
397 | + .40933578E-02, .44396473E-02, .56094276E-02, .67995982E-02, | |
398 | + .80023827E-02, .92132315E-02, .10429357E-01, | |
399 | + .18675593E-02, .23314061E-02, .25603592E-02, .30549287E-02, | |
400 | + .39442163E-02, .42794705E-02, .54134391E-02, .65682498E-02, | |
401 | + .77356072E-02, .89107733E-02, .10090907E-01 / | |
402 | DATA ((QNS(IX,IQ),IQ=1,11),IX=43,48)/ | |
403 | + .18177333E-02, .22559424E-02, .24746060E-02, .29550160E-02, | |
404 | + .38063226E-02, .41320026E-02, .52348385E-02, .63587371E-02, | |
405 | + .74949465E-02, .86385896E-02, .97867977E-02, | |
406 | + .17700301E-02, .21844842E-02, .23938271E-02, .28621464E-02, | |
407 | + .36785998E-02, .39961003E-02, .50721983E-02, .61692949E-02, | |
408 | + .72782673E-02, .83941603E-02, .95141260E-02, | |
409 | + .17240335E-02, .21168005E-02, .23178440E-02, .27757883E-02, | |
410 | + .35602150E-02, .38708593E-02, .49243383E-02, .59984224E-02, | |
411 | + .70837280E-02, .81752967E-02, .92703467E-02, | |
412 | + .16793646E-02, .20525989E-02, .22463524E-02, .26953907E-02, | |
413 | + .34502086E-02, .37552959E-02, .47901147E-02, .58447379E-02, | |
414 | + .69096684E-02, .79800356E-02, .90531837E-02, | |
415 | + .16356716E-02, .19910987E-02, .21784257E-02, .26203613E-02, | |
416 | + .33471312E-02, .36480818E-02, .46683489E-02, .57069808E-02, | |
417 | + .67546302E-02, .78066657E-02, .88606523E-02, | |
418 | + .15926257E-02, .19323232E-02, .21141705E-02, .25503533E-02, | |
419 | + .32471677E-02, .35467034E-02, .45584687E-02, .55849277E-02, | |
420 | + .66182101E-02, .76544383E-02, .86916070E-02 / | |
421 | DATA ((QNS(IX,IQ),IQ=1,11),IX=49,54)/ | |
422 | + .15499133E-02, .18755398E-02, .20527074E-02, .24848238E-02, | |
423 | + .31733939E-02, .34694192E-02, .44690468E-02, .54824166E-02, | |
424 | + .65016863E-02, .75231162E-02, .85448455E-02, | |
425 | + .15072295E-02, .18206546E-02, .19939956E-02, .24234734E-02, | |
426 | + .31059671E-02, .33993160E-02, .43893415E-02, .53919069E-02, | |
427 | + .63992999E-02, .74079740E-02, .84162494E-02, | |
428 | + .14642783E-02, .17675108E-02, .19378792E-02, .23659528E-02, | |
429 | + .30444127E-02, .33358624E-02, .43186182E-02, .53124558E-02, | |
430 | + .63098902E-02, .73076356E-02, .83042309E-02, | |
431 | + .14207619E-02, .17155047E-02, .18836682E-02, .23118563E-02, | |
432 | + .29882609E-02, .32785446E-02, .42561842E-02, .52431626E-02, | |
433 | + .62323501E-02, .72207870E-02, .82072634E-02, | |
434 | + .13763800E-02, .16647108E-02, .18315095E-02, .22609546E-02, | |
435 | + .29371365E-02, .32269242E-02, .42013871E-02, .51831640E-02, | |
436 | + .61656036E-02, .71461424E-02, .81238644E-02, | |
437 | + .13308234E-02, .16145061E-02, .17806848E-02, .22128231E-02, | |
438 | + .28905622E-02, .31804843E-02, .41535427E-02, .51315837E-02, | |
439 | + .61085774E-02, .70824325E-02, .80525652E-02 / | |
440 | DATA ((QNS(IX,IQ),IQ=1,11),IX=55,60)/ | |
441 | + .12837673E-02, .15648245E-02, .17311798E-02, .21672363E-02, | |
442 | + .28481861E-02, .31388116E-02, .41120243E-02, .50875777E-02, | |
443 | + .60602142E-02, .70283907E-02, .79919016E-02, | |
444 | + .12348646E-02, .15155509E-02, .16828970E-02, .21238977E-02, | |
445 | + .28095911E-02, .31014334E-02, .40761591E-02, .50502648E-02, | |
446 | + .60194237E-02, .69827237E-02, .79403762E-02, | |
447 | + .11837373E-02, .14660839E-02, .16351854E-02, .20824377E-02, | |
448 | + .27743466E-02, .30678713E-02, .40452708E-02, .50187502E-02, | |
449 | + .59850952E-02, .69441064E-02, .78964606E-02, | |
450 | + .11299629E-02, .14164957E-02, .15881890E-02, .20426349E-02, | |
451 | + .27420740E-02, .30376737E-02, .40186653E-02, .49921009E-02, | |
452 | + .59560612E-02, .69111488E-02, .78585465E-02, | |
453 | + .10730581E-02, .13661027E-02, .15411772E-02, .20040437E-02, | |
454 | + .27122635E-02, .30102821E-02, .39955704E-02, .49693054E-02, | |
455 | + .59310701E-02, .68823644E-02, .78249183E-02, | |
456 | + .10124517E-02, .13147718E-02, .14940858E-02, .19663968E-02, | |
457 | + .26844949E-02, .29851950E-02, .39752019E-02, .49492950E-02, | |
458 | + .59087812E-02, .68561523E-02, .77937292E-02 / | |
459 | DATA ((QNS(IX,IQ),IQ=1,11),IX=61,66)/ | |
460 | + .94743934E-03, .12623048E-02, .14467723E-02, .19293092E-02, | |
461 | + .26582282E-02, .29617944E-02, .39566495E-02, .49308604E-02, | |
462 | + .58876914E-02, .68307277E-02, .77629220E-02, | |
463 | + .87709510E-03, .12078434E-02, .13984037E-02, .18922722E-02, | |
464 | + .26328613E-02, .29393982E-02, .39389115E-02, .49126549E-02, | |
465 | + .58661192E-02, .68040863E-02, .77301855E-02, | |
466 | + .80003432E-03, .11512021E-02, .13489637E-02, .18548695E-02, | |
467 | + .26077745E-02, .29172751E-02, .39208494E-02, .48931264E-02, | |
468 | + .58421153E-02, .67739063E-02, .76928437E-02, | |
469 | + .74728276E-03, .11139882E-02, .13169042E-02, .18309152E-02, | |
470 | + .25918433E-02, .29031567E-02, .39087888E-02, .48794411E-02, | |
471 | + .58248718E-02, .67520482E-02, .76657822E-02, | |
472 | + .68607146E-03, .10738550E-02, .12829850E-02, .18060285E-02, | |
473 | + .25754357E-02, .28885351E-02, .38957414E-02, .48640515E-02, | |
474 | + .58051650E-02, .67269858E-02, .76348069E-02, | |
475 | + .63109450E-03, .10367482E-02, .12514084E-02, .17826892E-02, | |
476 | + .25595864E-02, .28740799E-02, .38816468E-02, .48465123E-02, | |
477 | + .57822992E-02, .66978340E-02, .75988779E-02 / | |
478 | DATA ((QNS(IX,IQ),IQ=1,11),IX=67,72)/ | |
479 | + .57163765E-03, .99813228E-03, .12188881E-02, .17584077E-02, | |
480 | + .25426985E-02, .28583936E-02, .38654087E-02, .48257681E-02, | |
481 | + .57551647E-02, .66633858E-02, .75566689E-02, | |
482 | + .50657062E-03, .95704297E-03, .11845379E-02, .17327410E-02, | |
483 | + .25243440E-02, .28410126E-02, .38463804E-02, .48009655E-02, | |
484 | + .57226974E-02, .66223801E-02, .75067324E-02, | |
485 | + .43403276E-03, .91310695E-03, .11482193E-02, .17053575E-02, | |
486 | + .25041185E-02, .28214669E-02, .38238284E-02, .47710915E-02, | |
487 | + .56836274E-02, .65733013E-02, .74473219E-02, | |
488 | + .35039449E-03, .86517580E-03, .11092160E-02, .16756579E-02, | |
489 | + .24814762E-02, .27991587E-02, .37968634E-02, .47349199E-02, | |
490 | + .56363973E-02, .65142848E-02, .73762853E-02, | |
491 | + .24582000E-03, .81114075E-03, .10664663E-02, .16426319E-02, | |
492 | + .24557333E-02, .27733813E-02, .37644526E-02, .46909759E-02, | |
493 | + .55790963E-02, .64430088E-02, .72909221E-02, | |
494 | + .35476281E-04, .72180846E-03, .10002272E-02, .15994064E-02, | |
495 | + .24252383E-02, .27432269E-02, .37260412E-02, .46380637E-02, | |
496 | + .55097681E-02, .63568163E-02, .71879309E-02 / | |
497 | DATA ((QNS(IX,IQ),IQ=1,11),IX=73,78)/ | |
498 | + .30202087E-04, .72409806E-03, .10007038E-02, .15989871E-02, | |
499 | + .24141988E-02, .27261258E-02, .36867927E-02, .45761415E-02, | |
500 | + .54257843E-02, .62515843E-02, .70622102E-02, | |
501 | + .25000061E-04, .72496943E-03, .99849456E-03, .15936608E-02, | |
502 | + .23942941E-02, .26984934E-02, .36318651E-02, .44939639E-02, | |
503 | + .53173834E-02, .61180494E-02, .69044800E-02, | |
504 | + .19868037E-04, .72366704E-03, .99236052E-03, .15812239E-02, | |
505 | + .23618541E-02, .26560733E-02, .35552515E-02, .43839971E-02, | |
506 | + .51756361E-02, .59459638E-02, .67032245E-02, | |
507 | + .14803957E-04, .71882695E-03, .98005263E-03, .15577927E-02, | |
508 | + .23104828E-02, .25914747E-02, .34465918E-02, .42332974E-02, | |
509 | + .49852394E-02, .57177851E-02, .64387219E-02, | |
510 | + .98058217E-05, .70762285E-03, .95700304E-03, .15153018E-02, | |
511 | + .22270584E-02, .24895843E-02, .32848851E-02, .40157419E-02, | |
512 | + .47153663E-02, .53982073E-02, .60712975E-02, | |
513 | + .48717807E-05, .68005547E-03, .90639328E-03, .14304101E-02, | |
514 | + .20745308E-02, .23080043E-02, .30119694E-02, .36594281E-02, | |
515 | + .42814114E-02, .48904535E-02, .54922933E-02 / | |
516 | DATA ((GL(IX,IQ),IQ=1,11),IX=1,6)/ | |
517 | + .39315710E+02, .20245180E+03, .29706970E+03, .38998940E+03, | |
518 | + .60235050E+03, .69640340E+03, .10156940E+04, .13391290E+04, | |
519 | + .16625500E+04, .19842600E+04, .23036300E+04, | |
520 | + .13015950E+02, .49272890E+02, .67578800E+02, .84305940E+02, | |
521 | + .11989870E+03, .13482840E+03, .18292200E+03, .22887100E+03, | |
522 | + .27305840E+03, .31586090E+03, .35758670E+03, | |
523 | + .77627230E+01, .25476180E+02, .33880740E+02, .41311560E+02, | |
524 | + .56675360E+02, .62984860E+02, .82935480E+02, .10164970E+03, | |
525 | + .11947380E+03, .13666090E+03, .15338970E+03, | |
526 | + .55138630E+01, .16482330E+02, .21481590E+02, .25806310E+02, | |
527 | + .34593800E+02, .38157860E+02, .49312930E+02, .59683670E+02, | |
528 | + .69527700E+02, .79015690E+02, .88260600E+02, | |
529 | + .42658210E+01, .11894110E+02, .15268630E+02, .18139960E+02, | |
530 | + .23903340E+02, .26221040E+02, .33428250E+02, .40096080E+02, | |
531 | + .46419510E+02, .52520490E+02, .58476340E+02, | |
532 | + .34724210E+01, .91583450E+01, .11614240E+02, .13676010E+02, | |
533 | + .17776240E+02, .19414830E+02, .24487940E+02, .29168890E+02, | |
534 | + .33609710E+02, .37901580E+02, .42100420E+02 / | |
535 | DATA ((GL(IX,IQ),IQ=1,11),IX=7,12)/ | |
536 | + .29236900E+01, .73619860E+01, .92410990E+01, .10800740E+02, | |
537 | + .13879670E+02, .15104270E+02, .18884070E+02, .22367230E+02, | |
538 | + .25675400E+02, .28879140E+02, .32020490E+02, | |
539 | + .25216790E+01, .61023070E+01, .75924430E+01, .88169690E+01, | |
540 | + .11219890E+02, .12172050E+02, .15104770E+02, .17806420E+02, | |
541 | + .20376430E+02, .22870820E+02, .25322180E+02, | |
542 | + .22145510E+01, .51757430E+01, .63895740E+01, .73782130E+01, | |
543 | + .93086000E+01, .10071270E+02, .12417000E+02, .14578650E+02, | |
544 | + .16638900E+02, .18643140E+02, .20617200E+02, | |
545 | + .19723110E+01, .44689910E+01, .54786420E+01, .62943900E+01, | |
546 | + .78805140E+01, .85057080E+01, .10426880E+02, .12198810E+02, | |
547 | + .13891190E+02, .15541450E+02, .17170380E+02, | |
548 | + .12192910E+01, .24316200E+01, .28947910E+01, .32561530E+01, | |
549 | + .39488150E+01, .42202090E+01, .50550090E+01, .58326740E+01, | |
550 | + .65854590E+01, .73288830E+01, .80706300E+01, | |
551 | + .89568560E+00, .16476350E+01, .19244260E+01, .21352100E+01, | |
552 | + .25370800E+01, .26946220E+01, .31820390E+01, .36420290E+01, | |
553 | + .40930590E+01, .45432050E+01, .49959960E+01 / | |
554 | DATA ((GL(IX,IQ),IQ=1,11),IX=13,18)/ | |
555 | + .70236720E+00, .12133440E+01, .13958970E+01, .15320790E+01, | |
556 | + .17914540E+01, .18935330E+01, .22120250E+01, .25170300E+01, | |
557 | + .28198830E+01, .31250270E+01, .34340990E+01, | |
558 | + .57403860E+00, .94195960E+00, .10701270E+01, .11639690E+01, | |
559 | + .13431070E+01, .14140590E+01, .16377030E+01, .18552240E+01, | |
560 | + .20738340E+01, .22959820E+01, .25223120E+01, | |
561 | + .48276260E+00, .75846460E+00, .85241990E+00, .91998680E+00, | |
562 | + .10496390E+01, .11014220E+01, .12665440E+01, .14297320E+01, | |
563 | + .15956310E+01, .17655070E+01, .19394290E+01, | |
564 | + .41459380E+00, .62730140E+00, .69839230E+00, .74857360E+00, | |
565 | + .84566840E+00, .88484390E+00, .10113570E+01, .11384390E+01, | |
566 | + .12690460E+01, .14037090E+01, .15421800E+01, | |
567 | + .36179650E+00, .52962120E+00, .58475120E+00, .62281720E+00, | |
568 | + .69741960E+00, .72788010E+00, .82761280E+00, .92945410E+00, | |
569 | + .10352090E+01, .11449400E+01, .12582510E+01, | |
570 | + .31973670E+00, .45602200E+00, .50002460E+00, .52755250E+00, | |
571 | + .58588310E+00, .61006640E+00, .69047460E+00, .77397260E+00, | |
572 | + .86153110E+00, .95289100E+00, .10475210E+01 / | |
573 | DATA ((GL(IX,IQ),IQ=1,11),IX=19,24)/ | |
574 | + .28546990E+00, .39609320E+00, .43120210E+00, .45286930E+00, | |
575 | + .49941110E+00, .51900170E+00, .58512720E+00, .65489610E+00, | |
576 | + .72871570E+00, .80612360E+00, .88651230E+00, | |
577 | + .25703600E+00, .34778440E+00, .37611500E+00, .39334930E+00, | |
578 | + .43098980E+00, .44710000E+00, .50233750E+00, .56153960E+00, | |
579 | + .62470790E+00, .69125440E+00, .76057760E+00, | |
580 | + .23307990E+00, .30815390E+00, .33121990E+00, .34503790E+00, | |
581 | + .37582200E+00, .38924040E+00, .43599920E+00, .48689240E+00, | |
582 | + .54162370E+00, .59951500E+00, .65993800E+00, | |
583 | + .21263500E+00, .27515820E+00, .29407020E+00, .30521350E+00, | |
584 | + .33062720E+00, .34192670E+00, .38196380E+00, .42620350E+00, | |
585 | + .47413120E+00, .52501650E+00, .57824470E+00, | |
586 | + .19499370E+00, .24733700E+00, .26292730E+00, .27194790E+00, | |
587 | + .29309460E+00, .30270110E+00, .33732640E+00, .37615440E+00, | |
588 | + .41850880E+00, .46361800E+00, .51082990E+00, | |
589 | + .17962590E+00, .22362120E+00, .23652510E+00, .24384140E+00, | |
590 | + .26155530E+00, .26979150E+00, .30000080E+00, .33436720E+00, | |
591 | + .37209560E+00, .41239260E+00, .45459160E+00 / | |
592 | DATA ((GL(IX,IQ),IQ=1,11),IX=25,30)/ | |
593 | + .16612660E+00, .20321190E+00, .21392240E+00, .21985520E+00, | |
594 | + .23477780E+00, .24189180E+00, .26845490E+00, .29909880E+00, | |
595 | + .33294350E+00, .36919390E+00, .40722360E+00, | |
596 | + .15418160E+00, .18550240E+00, .19440770E+00, .19920540E+00, | |
597 | + .21183550E+00, .21802150E+00, .24154210E+00, .26904760E+00, | |
598 | + .29959740E+00, .33241030E+00, .36693600E+00, | |
599 | + .14354290E+00, .17002830E+00, .17743740E+00, .18129060E+00, | |
600 | + .19202030E+00, .19743110E+00, .21838900E+00, .24322370E+00, | |
601 | + .27095230E+00, .30081140E+00, .33232360E+00, | |
602 | + .13401250E+00, .15663680E+00, .16284470E+00, .16565330E+00, | |
603 | + .17478120E+00, .17953840E+00, .19831970E+00, .22086330E+00, | |
604 | + .24615430E+00, .27343450E+00, .30220600E+00, | |
605 | + .10417360E+00, .11535630E+00, .11815790E+00, .11911660E+00, | |
606 | + .12408260E+00, .12707970E+00, .13982000E+00, .15582030E+00, | |
607 | + .17404900E+00, .19379540E+00, .21450010E+00, | |
608 | + .83280005E-01, .88074952E-01, .89076415E-01, .89106910E-01, | |
609 | + .91864996E-01, .93877465E-01, .10307430E+00, .11506430E+00, | |
610 | + .12887400E+00, .14388710E+00, .15967520E+00 / | |
611 | DATA ((GL(IX,IQ),IQ=1,11),IX=31,36)/ | |
612 | + .67934953E-01, .69085434E-01, .69108382E-01, .68593055E-01, | |
613 | + .70118375E-01, .71543127E-01, .78508377E-01, .87859437E-01, | |
614 | + .98705448E-01, .11052400E+00, .12302120E+00, | |
615 | + .56260787E-01, .55174585E-01, .54643415E-01, .53940937E-01, | |
616 | + .54771874E-01, .55829812E-01, .61310552E-01, .68827577E-01, | |
617 | + .77579148E-01, .87120317E-01, .97241007E-01, | |
618 | + .47136471E-01, .44782624E-01, .43963388E-01, .43144271E-01, | |
619 | + .43570966E-01, .44388734E-01, .48833929E-01, .55020325E-01, | |
620 | + .62230367E-01, .70076510E-01, .78366145E-01, | |
621 | + .39851971E-01, .36729421E-01, .35761900E-01, .34960799E-01, | |
622 | + .35165071E-01, .35822459E-01, .39520901E-01, .44708878E-01, | |
623 | + .50748222E-01, .57299107E-01, .64171284E-01, | |
624 | + .33936139E-01, .30413296E-01, .29391401E-01, .28638413E-01, | |
625 | + .28721986E-01, .29267857E-01, .32407962E-01, .36824454E-01, | |
626 | + .41951463E-01, .47493108E-01, .53274922E-01, | |
627 | + .29064327E-01, .25394445E-01, .24376754E-01, .23667054E-01, | |
628 | + .23691460E-01, .24157966E-01, .26869521E-01, .30675927E-01, | |
629 | + .35078317E-01, .39836071E-01, .44877306E-01 / | |
630 | DATA ((GL(IX,IQ),IQ=1,11),IX=37,42)/ | |
631 | + .25005670E-01, .21313759E-01, .20330390E-01, .19698773E-01, | |
632 | + .19704042E-01, .20112814E-01, .22487143E-01, .25800835E-01, | |
633 | + .29612962E-01, .33709742E-01, .37998725E-01, | |
634 | + .21591624E-01, .17993903E-01, .17066699E-01, .16497068E-01, | |
635 | + .16503645E-01, .16868832E-01, .18971251E-01, .21880019E-01, | |
636 | + .25205512E-01, .28755449E-01, .32410495E-01, | |
637 | + .18696362E-01, .15236171E-01, .14373514E-01, .13882327E-01, | |
638 | + .13905123E-01, .14237027E-01, .16116453E-01, .18687543E-01, | |
639 | + .21608196E-01, .24718836E-01, .27949309E-01, | |
640 | + .16224073E-01, .12943409E-01, .12151208E-01, .11731592E-01, | |
641 | + .11776471E-01, .12081807E-01, .13774335E-01, .16059784E-01, | |
642 | + .18637422E-01, .21368474E-01, .24185961E-01, | |
643 | + .14100579E-01, .11029239E-01, .10308568E-01, .99482210E-02, | |
644 | + .10017652E-01, .10301282E-01, .11834858E-01, .13876001E-01, | |
645 | + .16161347E-01, .18575162E-01, .21078646E-01, | |
646 | + .12267570E-01, .94079394E-02, .87572867E-02, .84591992E-02, | |
647 | + .85540330E-02, .88194236E-02, .10215702E-01, .12045618E-01, | |
648 | + .14078925E-01, .16218534E-01, .18442789E-01 / | |
649 | DATA ((GL(IX,IQ),IQ=1,11),IX=43,48)/ | |
650 | + .10678612E-01, .80411639E-02, .74585718E-02, .72102095E-02, | |
651 | + .73285024E-02, .75779841E-02, .88539496E-02, .10499517E-01, | |
652 | + .12312989E-01, .14205817E-01, .16131215E-01, | |
653 | + .92962785E-02, .68717860E-02, .63530938E-02, .61557251E-02, | |
654 | + .62960787E-02, .65315128E-02, .77010165E-02, .91844928E-02, | |
655 | + .10807140E-01, .12500655E-01, .14262684E-01, | |
656 | + .80900881E-02, .58743884E-02, .54162336E-02, .52629183E-02, | |
657 | + .54223728E-02, .56449408E-02, .67190123E-02, .80587724E-02, | |
658 | + .95121395E-02, .11018037E-01, .12558649E-01, | |
659 | + .70349826E-02, .50230976E-02, .46202401E-02, .45038406E-02, | |
660 | + .46794270E-02, .48900503E-02, .58778906E-02, .70894663E-02, | |
661 | + .83929282E-02, .97336173E-02, .11080893E-01, | |
662 | + .61101746E-02, .42890897E-02, .39374796E-02, .38562235E-02, | |
663 | + .40452047E-02, .42445557E-02, .51537910E-02, .62503573E-02, | |
664 | + .74207983E-02, .86196940E-02, .98239370E-02, | |
665 | + .52982839E-02, .36604956E-02, .33559944E-02, .33026745E-02, | |
666 | + .35019240E-02, .36904460E-02, .45274529E-02, .55202697E-02, | |
667 | + .65719620E-02, .76472559E-02, .87406971E-02 / | |
668 | DATA ((GL(IX,IQ),IQ=1,11),IX=49,54)/ | |
669 | + .45846859E-02, .31162135E-02, .28544515E-02, .28278052E-02, | |
670 | + .30347600E-02, .32128408E-02, .39831395E-02, .48819482E-02, | |
671 | + .58267280E-02, .67886505E-02, .77651339E-02, | |
672 | + .39569810E-02, .26473093E-02, .24247454E-02, .24201476E-02, | |
673 | + .26318897E-02, .27997717E-02, .35080994E-02, .43213819E-02, | |
674 | + .51694019E-02, .60254131E-02, .68709645E-02, | |
675 | + .34046043E-02, .22438292E-02, .20557572E-02, .20694688E-02, | |
676 | + .22834097E-02, .24413213E-02, .30918797E-02, .38271116E-02, | |
677 | + .45877709E-02, .53499108E-02, .60871537E-02, | |
678 | + .29184977E-02, .18943140E-02, .17375646E-02, .17673951E-02, | |
679 | + .19812547E-02, .21293866E-02, .27258748E-02, .33896712E-02, | |
680 | + .40718531E-02, .47570397E-02, .54436428E-02, | |
681 | + .24908588E-02, .15938922E-02, .14650387E-02, .15071268E-02, | |
682 | + .17186721E-02, .18571820E-02, .24029033E-02, .30011062E-02, | |
683 | + .36116906E-02, .42246808E-02, .48497366E-02, | |
684 | + .21149423E-02, .13337741E-02, .12296776E-02, .12825140E-02, | |
685 | + .14899448E-02, .16190086E-02, .21169737E-02, .26547844E-02, | |
686 | + .31992192E-02, .37372273E-02, .42481385E-02 / | |
687 | DATA ((GL(IX,IQ),IQ=1,11),IX=55,60)/ | |
688 | + .17848848E-02, .11100007E-02, .10279622E-02, .10888171E-02, | |
689 | + .12903691E-02, .14101348E-02, .18630619E-02, .23452309E-02, | |
690 | + .28302725E-02, .33104452E-02, .37802462E-02, | |
691 | + .14955774E-02, .91816997E-03, .85495703E-03, .92171424E-03, | |
692 | + .11158739E-02, .12265068E-02, .16369194E-02, .20677091E-02, | |
693 | + .24983147E-02, .29245843E-02, .33496965E-02, | |
694 | + .12425565E-02, .75325108E-03, .70664968E-03, .77761279E-03, | |
695 | + .96307229E-03, .10647400E-02, .14349712E-02, .18182454E-02, | |
696 | + .21985855E-02, .25711039E-02, .29267429E-02, | |
697 | + .10219081E-02, .61274960E-03, .58026408E-03, .65349269E-03, | |
698 | + .82906091E-03, .92193682E-03, .12541724E-02, .15935067E-02, | |
699 | + .19281739E-02, .22555219E-02, .25712277E-02, | |
700 | + .83019893E-03, .49286627E-03, .47243104E-03, .54662937E-03, | |
701 | + .71134872E-03, .79562637E-03, .10919393E-02, .13906204E-02, | |
702 | + .16835885E-02, .19713063E-02, .22600864E-02, | |
703 | + .66441589E-03, .39152073E-03, .38124149E-03, .45483175E-03, | |
704 | + .60783821E-03, .68371580E-03, .94607181E-03, .12071352E-02, | |
705 | + .14617282E-02, .17114556E-02, .19640063E-02 / | |
706 | DATA ((GL(IX,IQ),IQ=1,11),IX=61,66)/ | |
707 | + .52191544E-03, .30650964E-03, .30425549E-03, .37610304E-03, | |
708 | + .51669736E-03, .58439397E-03, .81469049E-03, .10409664E-02, | |
709 | + .12601558E-02, .14725731E-02, .16762451E-02, | |
710 | + .40038952E-03, .23561563E-03, .23987702E-03, .30875663E-03, | |
711 | + .43637617E-03, .49612531E-03, .69619791E-03, .89036964E-03, | |
712 | + .10774892E-02, .12590361E-02, .14368123E-02, | |
713 | + .29784342E-03, .17733237E-03, .18638084E-03, .25133189E-03, | |
714 | + .36553078E-03, .41758516E-03, .58923062E-03, .75382303E-03, | |
715 | + .91158360E-03, .10640966E-02, .12122908E-02, | |
716 | + .24263514E-03, .14657351E-03, .15790347E-03, .21989158E-03, | |
717 | + .32554189E-03, .37292621E-03, .52770838E-03, .67504530E-03, | |
718 | + .81580994E-03, .95157587E-03, .10827127E-02, | |
719 | + .19389040E-03, .11982659E-03, .13287440E-03, .19154098E-03, | |
720 | + .28854961E-03, .33137732E-03, .46998850E-03, .60099066E-03, | |
721 | + .72579295E-03, .84621052E-03, .96362067E-03, | |
722 | + .15126605E-03, .96748132E-04, .11102766E-03, .16600316E-03, | |
723 | + .25431774E-03, .29271128E-03, .41584924E-03, .53141493E-03, | |
724 | + .64115948E-03, .74654218E-03, .84706687E-03 / | |
725 | DATA ((GL(IX,IQ),IQ=1,11),IX=67,72)/ | |
726 | + .11422795E-03, .76975164E-04, .91862144E-04, .14302804E-03, | |
727 | + .22263659E-03, .25672730E-03, .36509661E-03, .46611740E-03, | |
728 | + .56187488E-03, .65453263E-03, .74745726E-03, | |
729 | + .82548140E-04, .60335195E-04, .75479809E-04, .12240191E-03, | |
730 | + .19332457E-03, .22325170E-03, .31756415E-03, .40491007E-03, | |
731 | + .48751378E-03, .56748604E-03, .64830645E-03, | |
732 | + .56067460E-04, .46576439E-04, .61551989E-04, .10392733E-03, | |
733 | + .16621596E-03, .19212785E-03, .27310662E-03, .34764089E-03, | |
734 | + .41793621E-03, .48556499E-03, .55175397E-03, | |
735 | + .34734632E-04, .35494017E-04, .49847993E-04, .87416200E-04, | |
736 | + .14115951E-03, .16321550E-03, .23160117E-03, .29418812E-03, | |
737 | + .35311008E-03, .40979666E-03, .46541318E-03, | |
738 | + .18723960E-04, .26813012E-04, .39640283E-04, .72688417E-04, | |
739 | + .11801605E-03, .13638902E-03, .19294648E-03, .24444712E-03, | |
740 | + .29276972E-03, .33828942E-03, .37740954E-03, | |
741 | + .93565259E-05, .20590080E-04, .31268002E-04, .59558730E-04, | |
742 | + .96649608E-04, .11153039E-03, .15706076E-03, .19835927E-03, | |
743 | + .23715146E-03, .27442537E-03, .31072315E-03 / | |
744 | DATA ((GL(IX,IQ),IQ=1,11),IX=73,78)/ | |
745 | + .58125347E-05, .15763651E-04, .24259758E-04, .47547979E-04, | |
746 | + .76808079E-04, .88442721E-04, .12384965E-03, .15586225E-03, | |
747 | + .18594966E-03, .21513535E-03, .24504971E-03, | |
748 | + .33188869E-05, .11465197E-04, .17867565E-04, .36357698E-04, | |
749 | + .58392205E-04, .67069799E-04, .93331379E-04, .11700520E-03, | |
750 | + .13930532E-03, .16144506E-03, .18695639E-03, | |
751 | + .16769123E-05, .75460362E-05, .11905428E-04, .26007532E-04, | |
752 | + .41472722E-04, .47497775E-04, .65626220E-04, .81923725E-04, | |
753 | + .97279568E-04, .11249990E-03, .12980429E-03, | |
754 | + .69826064E-06, .41568615E-05, .66606681E-05, .16558290E-04, | |
755 | + .26177566E-04, .29877849E-04, .40942730E-04, .50868424E-04, | |
756 | + .60249815E-04, .69740156E-04, .81512750E-04, | |
757 | + .20423862E-06, .11978445E-05, .19153056E-05, .81375920E-05, | |
758 | + .12744816E-04, .14486184E-04, .19656443E-04, .24288327E-04, | |
759 | + .28693794E-04, .33321077E-04, .39870585E-04, | |
760 | + .25206663E-07, .43935846E-08, .36314065E-08, .11058760E-05, | |
761 | + .16963572E-05, .19157351E-05, .25642855E-05, .31440914E-05, | |
762 | + .36332465E-05, .35040996E-05, -.10333942E-06 / | |
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=50,FILE='FOR020.DAT',status='old') | |
772 | C DO 20 IQ=1,NQ | |
773 | C DO 10 IX=1,NP | |
774 | C READ(50,*)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+9D0*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.0D0).AND.(Q2.LT.250.0D0)) 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 |