]> git.uio.no Git - u/mrichter/AliRoot.git/blame - LHAPDF/lhapdf5.3.1/QCDNUM.f
git://git.uio.no / u / mrichter / AliRoot.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Create wrapper for JSON macro that calls traditional macro, and add development JSON...
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.3.1 / QCDNUM.f
CommitLineData
4e9e3152 1CDECK ID>, QCDCOM.
2
3CDECK ID>, QCDCOM.
4
5C------------------------QCDNUM COMMON BLOCKS---------------------
6
7CDECK ID>, QCDNUM.
8
9CDECK ID>, QNINIT.
10
11C =================
12 SUBROUTINE QNINIT
13C =================
14
15C--- QNINIT: initialisation.
16C--- Called by user.
17
18 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
19
20 CHARACTER*8 CHVERS,CHDATE
21 COMMON/QCVERS/ CHVERS,CHDATE
22
23
24 COMMON/QCCONS/
25 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
26 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
27 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
28 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
29 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
30 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
31
32
33
34 LOGICAL
35 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
36 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
37 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
38 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
39 +LFFCAL,LASOLD
40
41 COMMON/QCFLAG/
42 +IORD,IOLAST,
43 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
44 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
45 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
46 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
47 +LFFCAL(7,30),LASOLD
48
49
50 PARAMETER ( MXX = 410 )
51 PARAMETER ( MQ2 = 120 )
52
53C-- Do not set the following parameter to zero!
54 PARAMETER ( NDFMAX = 20)
55
56
57 COMMON/QCGRID/
58 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
59 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
60 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
61 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
62
63
64 REAL
65 +WGTFF1,WGTFG1,
66 +WGTGF1,WGTGG1,
67 +WGTPP2,WGTPM2,WGTNS2,
68 +WGTFF2,WGTFG2,
69 +WGTGF2,WGTGG2,
70 +WGTC2Q,WGTC2G,YNTC2Q,
71 +WGTCLQ,WGTCLG,WGTC3Q
72
73 COMMON/QCWEIT/
74 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
75 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
76 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
77 +WGTNS2(MXX*(MXX+1)/2,3:5),
78 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
79 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
80 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
81 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
82 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
83
84 COMMON/QCWADR/ IWADR(MXX,MXX)
85
86
87 COMMON/QCPASS/
88 +ALPHA0, Q0ALFA, ASLAST, QALAST,
89 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
90 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
91 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
92 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
93 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
94 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
95 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
96 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
97 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
98
99 LOGICAL LEVDONE,LE_DONE
100 COMMON/QCLEVL/
101 +LEVDONE(MXX,10),LE_DONE(MXX)
102
103
104 CHARACTER*5 PNAM,STFNAM
105 LOGICAL LNFP
106 COMMON /QCLNFP/ LNFP(0:30,3:5)
107 COMMON /QCPNAM/ PNAM(0:30)
108 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
109 COMMON /QCFNAM/ STFNAM(7)
110
111
112 LOGICAL LTIME
113 REAL T_START,T_END,T_SPENT
114 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
115 +E_CALLS(10),LTIME
116 COMMON/QCFCNT/IFCNT(-1:1,5)
117
118 CHARACTER*7 TSNAM
119 COMMON/QCTRCE/ TSNAM(0:19)
120 COMMON/QCTRCI/ NTCAL(0:19),ITADR
121c
122c common added by MRW 18/3/05 to make silent mode for LHAPDF
123c
124 common/lhasilent/lhasilent
125c
126
127 CHVERS = '16.12 '
128 CHDATE = '12-08-98'
129
130 LDOUBL = .TRUE.
131 if(lhasilent.eq.0) then
132 WRITE(6,'(/////)')
133 WRITE(6,
134 &'(8X,''+-----------------------------------------------+'')')
135 WRITE(6,
136 &'(8X,''| |'')')
137c LDOUBL = .TRUE.
138 WRITE(6,
139 &'(8X,''| You are using the double precision version of |'')')
140 WRITE(6,
141 &'(8X,''| |'')')
142 WRITE(6,
143 &'(8X,''| Q C D N U M '',A8,
144 & '' |'')') CHVERS
145 WRITE(6,
146 &'(8X,''| |'')')
147 WRITE(6,
148 &'(8X,''| Author : Michiel Botje |'')')
149 WRITE(6,
150 &'(8X,''| Email : h24@nikhef.nl |'')')
151 WRITE(6,
152 &'(8X,''| |'')')
153 WRITE(6,
154 &'(8X,''| Date : '',A8,
155 & '' |'')') CHDATE
156 WRITE(6,
157 &'(8X,''| Max NX : '',I3,
158 & '' |'')') MXX-1
159 WRITE(6,
160 &'(8X,''| Max NQ2 : '',I3,
161 & '' |'')') MQ2-1
162 WRITE(6,
163 &'(8X,''| |'')')
164 WRITE(6,
165 &'(8X,''+-----------------------------------------------+'')')
166 WRITE(6,'(/////)')
167 endif
168
169 IORD = 2
170 IOLAST = -999
171 Q0ALFA = 50.
172 ALPHA0 = 0.180
173 QALAST = -999.
174 ASLAST = -999.
175 SCAX0 = 0.20
176 SCAQ0 = 1.D10
177
178 PI = 3.14159265359
179 PROTON = 0.9382796
180 EUTRON = 0.9395731
181 UCLEON = (PROTON + EUTRON) / 2.
182 UDSCBT(1) = 0.005
183 UDSCBT(2) = 0.01
184 UDSCBT(3) = 0.3
185 UDSCBT(4) = 1.5
186 UDSCBT(5) = 5.0
187 UDSCBT(6) = 188.
188 CBMSTF(4) = UDSCBT(4)
189 CBMSTF(5) = UDSCBT(4)
190 CBMSTF(6) = UDSCBT(5)
191 CBMSTF(7) = UDSCBT(5)
192 CHARGE(4) = 4./9.
193 CHARGE(5) = 4./9.
194 CHARGE(6) = 1./9.
195 CHARGE(7) = 1./9.
196 AAM2H = 1.
197 BBM2H = 0.
198 AAM2L = 1.
199 BBM2L = 0.
200 AAAR2 = 1.
201 BBBR2 = 0.
202 FL_FAC = 0.
203 C1S3 = 1./3.
204 C2S3 = 2./3.
205 C4S3 = 4./3.
206 C5S3 = 5./3.
207 C8S3 = 8./3.
208 C14S3 = 14./3.
209 C16S3 = 16./3.
210 C20S3 = 20./3.
211 C28S3 = 28./3.
212 C38S3 = 38./3.
213 C40S3 = 40./3.
214 C44S3 = 44./3.
215 C52S3 = 52./3.
216 C136S3 = 136./3.
217 C11S6 = 11./6.
218 C2S9 = 2./9.
219 C4S9 = 4./9.
220 C10S9 = 10./9.
221 C14S9 = 14./9.
222 C16S9 = 16./9.
223 C40S9 = 40./9.
224 C44S9 = 44./9.
225 C62S9 = 62./9.
226 C112S9 = 112./9.
227 C182S9 = 182./9.
228 C11S12 = 11./12.
229 C35S18 = 35./18.
230 C11S3 = 11./3.
231 C22S3 = 22./3.
232 C61S12 = 61./12.
233 C215S1 = 215./12.
234 C29S12 = 29./12.
235 CPI2S3 = PI**2/3.
236 CPIA = 67./18. - CPI2S3/2.
237 CPIB = 4.*CPI2S3
238 CPIC = 17./18. + 3.5*CPI2S3
239 CPID = 367./36. - CPI2S3
240 CPIE = 5. - CPI2S3
241 CPIF = CPI2S3 - 218./9.
242
243 CCA = 3.
244 CCF = (CCA*CCA-1.)/(2.*CCA)
245 CTF = 0.5
246 CATF = CCA*CTF
247 CFTF = CCF*CTF
248
249 DO I = 1,10
250 T_SPENT(I) = 0.
251 E_CALLS(I) = 0.
252 N_CALLS(I) = 0
253 ENDDO
254 LTIME = .FALSE.
255
256 LBMARK = .FALSE.
257 LW1ANA = .TRUE.
258 LW1NUM = .FALSE.
259 LW2NUM = .TRUE.
260 LW2STF = .TRUE.
261 LWF2C = .FALSE.
262 LWF2B = .FALSE.
263 LWFLC = .FALSE.
264 LWFLB = .FALSE.
265 LIMCK = .TRUE.
266 LPLUS = .TRUE.
267 LALFOK = .FALSE.
268 LDQ2OK = .FALSE.
269 LWT1OK = .FALSE.
270 LWT2OK = .FALSE.
271 LWTFOK = .FALSE.
272 LWFCOK = .FALSE.
273 LWLCOK = .FALSE.
274 LWFBOK = .FALSE.
275 LWLBOK = .FALSE.
276 LMARK = .FALSE.
277 LCLOWQ = .TRUE.
278 LASOLD = .FALSE.
279 DO I = 1,30
280 DO J = 1,7
281 LFFCAL(J,I) = .FALSE.
282 ENDDO
283 ENDDO
284C-- Invalidate all evolutions
285 CALL QNFALS(LEVDONE,MXX*10)
286 CALL QNFALS(LE_DONE,MXX)
287 CALL QNINUL(IQL_LAST,10)
288 CALL QNINUL(IQ0_LAST,10)
289 CALL QNINUL(IQH_LAST,10)
290
291 ITADR = 0
292 DO I = 0,19
293 TSNAM(I) = ' '
294 NTCAL(I) = 0
295 ENDDO
296
297 NXX = 0
298 NQ2 = 0
299 NGRVER = 0
300 NDFAST = 30
301 XMICUT = -1.
302 QMICUT = -1.
303 QMACUT = -1.
304 RS2CUT = -1.
305 QMINAS = 0.
306 THRS34 = -1.D10
307 THRS45 = 1.D10
308
309 CALL VZERO_LHA (WGTFF1,MXX*(MXX+1)/2)
310 CALL VZERO_LHA (WGTFG1,MXX*(MXX+1)*3/2)
311 CALL VZERO_LHA (WGTGF1,MXX*(MXX+1)/2)
312 CALL VZERO_LHA (WGTGG1,MXX*(MXX+1)*3/2)
313 CALL VZERO_LHA (WGTPP2,MXX*(MXX+1)*3/2)
314 CALL VZERO_LHA (WGTPM2,MXX*(MXX+1)*3/2)
315 CALL VZERO_LHA (WGTNS2,MXX*(MXX+1)*3/2)
316 CALL VZERO_LHA (WGTFF2,MXX*(MXX+1)*3/2)
317 CALL VZERO_LHA (WGTFG2,MXX*(MXX+1)*3/2)
318 CALL VZERO_LHA (WGTGF2,MXX*(MXX+1)*3/2)
319 CALL VZERO_LHA (WGTGG2,MXX*(MXX+1)*3/2)
320 CALL VZERO_LHA (WGTC2Q,MXX*(MXX+1)/2)
321 CALL VZERO_LHA (WGTC2G,MXX*(MXX+1)*3/2)
322 CALL VZERO_LHA (YNTC2Q,MXX)
323 CALL VZERO_LHA (WGTCLQ,MXX*(MXX+1)/2)
324 CALL VZERO_LHA (WGTCLG,MXX*(MXX+1)*3/2)
325 CALL VZERO_LHA (WGTC3Q,MXX*(MXX+1)/2)
326
327 CALL QNVNUL(PWGT,11*31*3)
328 CALL QNINUL(NFMAP,MQ2)
329 CALL QNINUL(MARKFF,MXX*MQ2)
330 CALL QNINUL(MARKFH,MXX*MQ2)
331 CALL QNINUL(MARKQQ,MQ2)
332 CALL QNINUL(IDFAST,7*30)
333 CALL QNINUL(IFCNT,3*5)
334
335 CALL QNVNUL(PDFQCD,MXX*MQ2*11)
336 DO ID = 1,NDFMAX
337 DO IX = 1,MXX
338 DO IQ = 1,MQ2
339 FSTORE(IX,IQ,30+ID) = -501.
340 ENDDO
341 ENDDO
342 ENDDO
343
344 PNAM(0) = 'GLUON'
345 PNAM(1) = 'SINGL'
346 LNFP(0,3) = .TRUE.
347 LNFP(0,4) = .TRUE.
348 LNFP(0,5) = .TRUE.
349 LNFP(1,3) = .TRUE.
350 LNFP(1,4) = .TRUE.
351 LNFP(1,5) = .TRUE.
352 DO 10 I = 2,30
353 PNAM(I) = 'FREE '
354 LNFP(I,3) = .FALSE.
355 LNFP(I,4) = .FALSE.
356 LNFP(I,5) = .FALSE.
357 10 CONTINUE
358 PWGT(0,0,3) = 1.
359 PWGT(0,0,4) = 1.
360 PWGT(0,0,5) = 1.
361 PWGT(1,1,3) = 1.
362 PWGT(1,1,4) = 1.
363 PWGT(1,1,5) = 1.
364 STFNAM(1) = 'F2 '
365 STFNAM(2) = 'FL '
366 STFNAM(3) = 'XF3 '
367 STFNAM(4) = 'F2C '
368 STFNAM(5) = 'FLC '
369 STFNAM(6) = 'F2B '
370 STFNAM(7) = 'FLB '
371
372 CALL QTRACE('QNINIT ',0)
373
374 RETURN
375 END
376
377CDECK ID>, QTRACE.
378
379C ===============================
380 SUBROUTINE QTRACE(SRNAM,IPRINT)
381C ===============================
382
383 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
384
385 CHARACTER*7 SRNAM
386
387 CHARACTER*7 TSNAM
388 COMMON/QCTRCE/ TSNAM(0:19)
389 COMMON/QCTRCI/ NTCAL(0:19),ITADR
390
391
392 IF(IPRINT.EQ.0) THEN
393
394 IF(SRNAM.EQ.TSNAM(ITADR)) THEN
395 NTCAL(ITADR) = NTCAL(ITADR) + 1
396 ELSE
397 ITADR = MOD(ITADR+1,20)
398 TSNAM(ITADR) = SRNAM
399 NTCAL(ITADR) = 1
400 ENDIF
401
402 ELSE
403
404 WRITE(6,'(/'' ----------------------------'')')
405
406 K = -20
407 DO I = ITADR+1,ITADR+19
408 J = MOD(I,20)
409 K = K+1
410 WRITE(6,'(I4,2X,A7,'' #calls = '',I5)')
411 + K,TSNAM(J),NTCAL(J)
412 ENDDO
413 K = 0
414 WRITE(6,'(I4,2X,A7,'' #calls = '',I5,'' <--- error'')')
415 + K,TSNAM(ITADR),NTCAL(ITADR)
416
417 WRITE(6,'( '' ----------------------------'')')
418
419 ENDIF
420
421 RETURN
422 END
423
424CDECK ID>, QNDUMP.
425
426C ======================
427 SUBROUTINE QNDUMP(LUN)
428C ======================
429
430C--- QNDUMP: write weight tables to LUN.
431C--- Called by user.
432
433 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
434
435
436 PARAMETER ( MXX = 410 )
437 PARAMETER ( MQ2 = 120 )
438
439C-- Do not set the following parameter to zero!
440 PARAMETER ( NDFMAX = 20)
441
442 CHARACTER*8 CHVERS,CHDATE
443 COMMON/QCVERS/ CHVERS,CHDATE
444
445
446 COMMON/QCCONS/
447 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
448 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
449 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
450 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
451 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
452 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
453
454
455
456 LOGICAL
457 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
458 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
459 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
460 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
461 +LFFCAL,LASOLD
462
463 COMMON/QCFLAG/
464 +IORD,IOLAST,
465 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
466 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
467 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
468 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
469 +LFFCAL(7,30),LASOLD
470
471
472 COMMON/QCGRID/
473 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
474 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
475 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
476 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
477
478
479 REAL
480 +WGTFF1,WGTFG1,
481 +WGTGF1,WGTGG1,
482 +WGTPP2,WGTPM2,WGTNS2,
483 +WGTFF2,WGTFG2,
484 +WGTGF2,WGTGG2,
485 +WGTC2Q,WGTC2G,YNTC2Q,
486 +WGTCLQ,WGTCLG,WGTC3Q
487
488 COMMON/QCWEIT/
489 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
490 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
491 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
492 +WGTNS2(MXX*(MXX+1)/2,3:5),
493 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
494 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
495 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
496 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
497 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
498
499 COMMON/QCWADR/ IWADR(MXX,MXX)
500
501
502 REAL
503 +WH_C0KG,WH_C1KG,WH_C1BKG,
504 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
505
506 COMMON/QCHWGT/
507 +WH_C0KG(0:MXX,MQ2,4:7),
508 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
509 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
510 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
511
512
513 DIMENSION STOREM(6)
514
515 CALL QTRACE('QNDUMP ',0)
516
517 STOREM(1) = CBMSTF(4)
518 STOREM(2) = CBMSTF(6)
519 STOREM(3) = 0.
520 STOREM(4) = 0.
521 STOREM(5) = 0.
522 STOREM(6) = 0.
523
524 WRITE(LUN) MXX,MQ2
525 WRITE(LUN) CHVERS,CHDATE
526 WRITE(LUN) STOREM
527 WRITE(LUN) LWT1OK,LWT2OK,LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,
528 + LPLUS
529 WRITE(LUN) XXTAB,Q2TAB,
530 + NXX,NQ2,IQF2C,IQF2B,IQFLC,IQFLB
531 IF(LWT1OK) THEN
532 WRITE(LUN) WGTFF1,WGTFG1,WGTGF1,WGTGG1
533 ENDIF
534 IF(LWT2OK) THEN
535 WRITE(LUN) WGTPP2,WGTPM2,WGTNS2,WGTFF2,WGTFG2,WGTGF2,WGTGG2
536 ENDIF
537 IF(LWTFOK) THEN
538 WRITE(LUN) WGTC2Q,WGTC2G,YNTC2Q,WGTCLQ,WGTCLG,WGTC3Q
539 ENDIF
540 IF(LWFCOK.OR.LWLCOK.OR.LWFBOK.OR.LWLBOK) THEN
541 WRITE(LUN) WH_C0KG,WH_C1KG,WH_C1BKG,
542 + WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
543 ENDIF
544
545 RETURN
546 END
547
548CDECK ID>, QNREAD.
549
550C =================================
551 SUBROUTINE QNREAD(LUN,ISTOP,IERR)
552C =================================
553
554C--- QNDUMP: read weight tables from LUN.
555C--- Called by user.
556C--- Input integer LUN
557C--- integer ISTOP = 0 read the file
558C--- ISTOP = 1 read only when ierr = 0
559C--- ISTOP = 2 stop the program when ierr .ne. 0
560C--- Output integer IERR = 0 all ok
561C--- = 1 xgrid on file .ne. that in QCDNUM
562C--- = 2 file contains heavy quark weight tables and
563C--- qgrid on file .ne. that in QCDNUM
564C--- = 3 file contains charm weight tables and
565C--- c mass on the file .ne. that in QCDNUM
566C--- = 4 file contains bottom weight tables and
567C--- b mass on the file .ne. that in QCDNUM
568
569 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
570
571
572 PARAMETER ( MXX = 410 )
573 PARAMETER ( MQ2 = 120 )
574
575C-- Do not set the following parameter to zero!
576 PARAMETER ( NDFMAX = 20)
577
578 CHARACTER*8 CHVERS,CHDATE
579 COMMON/QCVERS/ CHVERS,CHDATE
580
581
582 COMMON/QCCONS/
583 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
584 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
585 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
586 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
587 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
588 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
589
590
591
592 LOGICAL
593 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
594 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
595 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
596 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
597 +LFFCAL,LASOLD
598
599 COMMON/QCFLAG/
600 +IORD,IOLAST,
601 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
602 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
603 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
604 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
605 +LFFCAL(7,30),LASOLD
606
607
608 COMMON/QCGRID/
609 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
610 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
611 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
612 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
613
614
615 REAL
616 +WGTFF1,WGTFG1,
617 +WGTGF1,WGTGG1,
618 +WGTPP2,WGTPM2,WGTNS2,
619 +WGTFF2,WGTFG2,
620 +WGTGF2,WGTGG2,
621 +WGTC2Q,WGTC2G,YNTC2Q,
622 +WGTCLQ,WGTCLG,WGTC3Q
623
624 COMMON/QCWEIT/
625 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
626 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
627 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
628 +WGTNS2(MXX*(MXX+1)/2,3:5),
629 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
630 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
631 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
632 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
633 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
634
635 COMMON/QCWADR/ IWADR(MXX,MXX)
636
637
638 REAL
639 +WH_C0KG,WH_C1KG,WH_C1BKG,
640 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
641
642 COMMON/QCHWGT/
643 +WH_C0KG(0:MXX,MQ2,4:7),
644 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
645 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
646 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
647
648
649 COMMON/QCPASS/
650 +ALPHA0, Q0ALFA, ASLAST, QALAST,
651 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
652 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
653 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
654 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
655 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
656 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
657 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
658 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
659 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
660
661 LOGICAL LEVDONE,LE_DONE
662 COMMON/QCLEVL/
663 +LEVDONE(MXX,10),LE_DONE(MXX)
664
665
666 CHARACTER*8 RHVERS,RHDATE
667 LOGICAL RWT1OK,RWT2OK,RWTFOK,RWFCOK
668 LOGICAL RWLCOK,RWFBOK,RWLBOK,RPLUS
669 LOGICAL LREADX,LREADQ,LREADB,LREADC
670 DIMENSION RMASS(6)
671 DIMENSION RXTAB(MXX),RQTAB(MQ2)
672 DIMENSION IRF2C(MQ2),IRF2B(MQ2),IRFLC(MQ2),IRFLB(MQ2)
673c
674c common added 18/3/05 by MRW
675 common/lhasilent/lhasilent
676
677 CALL QTRACE('QNREAD ',0)
678
679 REWIND LUN
680
681C-- Setup the weight adresses
682C-- (Usually done in QNFILW, but this routine might not be called)
683 DO IX0 = 1,MXX
684 DO IX = IX0,MXX
685 IWADR(IX,IX0) = IWTAD(IX,IX0)
686 ENDDO
687 ENDDO
688
689C-- Read header information
690 READ(LUN,ERR=500) KXX,KQ2
691 IF(KXX.NE.MXX.OR.KQ2.NE.MQ2) THEN
692 WRITE(6,'(/'' QNREAD: nxmax, nqmax on file '',2I5,
693 + /'' nxmax, nqmax in QCDNUM'',2I5,
694 + /'' Incompatible ---> STOP'')')
695 + KXX,KQ2,MXX,MQ2
696 STOP
697 ENDIF
698 READ(LUN,ERR=500) RHVERS,RHDATE
699 READ(RHVERS(1:2),'(I2)') IV
700
701C-- If ISTOP > 0 : stop when fileversion = QCDNUM15 or lower
702C-- If ISTOP = 0 : read up to the weight tables
703 IF(IV.LE.15.AND.ISTOP.NE.0) THEN
704 WRITE(6,'(/'' QNREAD: file was written with QCDNUM'',A8,
705 + '' Incompatible ---> STOP'')')
706 + RHVERS
707 STOP
708 ENDIF
709 if(lhasilent.eq.0)
710 + WRITE(6,'(/'' QNREAD: file was written with QCDNUM'',A8)')
711 + RHVERS
712
713 READ(LUN,ERR=500) RMASS
714 READ(LUN,ERR=500) RWT1OK,RWT2OK,RWTFOK,RWFCOK,RWLCOK,RWFBOK,
715 + RWLBOK,RPLUS
716 READ(LUN,ERR=500) RXTAB,RQTAB,
717 + NRX,NRQ,IRF2C,IRF2B,IRFLC,IRFLB
718
719 IERR = 0
720 LREADX = .FALSE.
721 LREADQ = .FALSE.
722 LREADC = .FALSE.
723 LREADB = .FALSE.
724
725C-- Check xgrid (if there is one already defined)
726 IF(NXX.NE.0) THEN
727 IF(NXX.NE.NRX) THEN
728 IERR = 1
729 ELSE
730 DO IX = 1,NXX
731 IF(RXTAB(IX).NE.XXTAB(IX)) IERR = 1
732 ENDDO
733 ENDIF
734 ENDIF
735
736C-- What to do when xgrid is different
737 IF(IERR.EQ.1) THEN
738 IF(ISTOP.EQ.1) THEN
739 WRITE(6,'(/
740 + '' QNREAD: X grid in memory different from that on file'',
741 + '' ---> abandon reading'')')
742 RETURN
743 ENDIF
744 IF(ISTOP.EQ.2) THEN
745 WRITE(6,'(/
746 + '' QNREAD: X grid in memory different from that on file'',
747 + '' ---> STOP'')')
748 STOP
749 ENDIF
750 ENDIF
751
752 IF(IERR.EQ.1.OR.NXX.LE.0) LREADX = .TRUE.
753
754C-- Check Q2 grid if there is one already defined and if there are
755C-- heavy quark weight tables on the file
756 IF(NQ2.NE.0.AND.(RWFCOK.OR.RWLCOK.OR.RWFBOK.OR.RWLBOK)) THEN
757 IF(NQ2.NE.NRQ) THEN
758 IERR = 2
759 ELSE
760 DO IQ = 1,NQ2
761 IF(RQTAB(IQ).NE.Q2TAB(IQ)) IERR = 2
762 ENDDO
763 ENDIF
764 ENDIF
765
766C-- What to do when qgrid is different
767 IF(IERR.EQ.2) THEN
768 IF(ISTOP.EQ.1) THEN
769 WRITE(6,'(/
770 + '' QNREAD: Q2 grid in memory different from that on file'',
771 + '' ---> abandon reading'')')
772 RETURN
773 ENDIF
774 IF(ISTOP.EQ.2) THEN
775 WRITE(6,'(/
776 + '' QNREAD: Q2 grid in memory different from that on file'',
777 + '' ---> STOP'')')
778 STOP
779 ENDIF
780 ENDIF
781
782 IF(IERR.EQ.2.OR.NQ2.LE.0) LREADQ = .TRUE.
783
784C-- Check charm mass if there are charm weight tables on the file
785 IF(RWFCOK.OR.RWLCOK) THEN
786 IF(IV.LE.15) THEN
787 IF(RMASS(4).NE.CBMSTF(4)) IERR = 3
788 ELSE
789 IF(RMASS(1).NE.CBMSTF(4)) IERR = 3
790 ENDIF
791 ENDIF
792
793C-- What to do when charm mass is different
794 IF(IERR.EQ.3) THEN
795 IF(ISTOP.EQ.1) THEN
796 WRITE(6,'(/
797 + '' QNREAD: Charm mass in memory different from that on file'',
798 + '' ---> abandon reading'')')
799 RETURN
800 ENDIF
801 IF(ISTOP.EQ.2) THEN
802 WRITE(6,'(/
803 + '' QNREAD: Charm mass in memory different from that on'',
804 + '' file ---> STOP'')')
805 STOP
806 ENDIF
807 LREADC = .TRUE.
808 ENDIF
809
810C-- Check bottom mass if there are bottom weight tables on the file
811 IF(RWFBOK.OR.RWLBOK) THEN
812 IF(IV.LE.15) THEN
813 IF(RMASS(5).NE.CBMSTF(6)) IERR = 4
814 ELSE
815 IF(RMASS(2).NE.CBMSTF(6)) IERR = 4
816 ENDIF
817 ENDIF
818
819C-- What to do when bottom mass is different
820 IF(IERR.EQ.4) THEN
821 IF(ISTOP.EQ.1) THEN
822 WRITE(6,'(/
823 + '' QNREAD: Bottom mass in memory different from that on'',
824 + '' file ---> abandon reading'')')
825 RETURN
826 ENDIF
827 IF(ISTOP.EQ.2) THEN
828 WRITE(6,'(/
829 + '' QNREAD: Bottom mass in memory different from that on'',
830 + '' file ---> STOP'')')
831 STOP
832 ENDIF
833 LREADB = .TRUE.
834 ENDIF
835
836C-- ok..... continue.......
837 LPLUS = RPLUS
838C-- Invalidate all evolutions
839 CALL QNFALS(LEVDONE,MXX*10)
840
841 IF(LREADX) THEN
842C-- Copy xgrid to qcdnum common block
843 NXX = NRX
844 DO IX = 1,NXX+1
845 XXTAB(IX) = RXTAB(IX)
846 ENDDO
847 WRITE(6,'(/
848 + '' QNREAD: xgrid table read in (original overwritten)'')')
849C-- Invalidate all weight tables since the grid has changed
850 LWT1OK = .FALSE.
851 LWT2OK = .FALSE.
852 LWTFOK = .FALSE.
853 LWFCOK = .FALSE.
854 LWLCOK = .FALSE.
855 LWFBOK = .FALSE.
856 LWLBOK = .FALSE.
857 LMARK = .FALSE.
858 NGRVER = NGRVER+1
859C-- Invalidate all evolutions
860 CALL QNFALS(LEVDONE,MXX*10)
861C--- Update IFAILC
862 CALL GRSETC
863C--- Update NFMAP
864 CALL QNSETT
865C--- Update heavy quark xgrid
866 CALL GXHDEF
867 ENDIF
868
869 IF(LREADQ) THEN
870C-- Copy q2 grid to common block
871 NQ2 = NRQ
872 DO IQ = 1,NQ2
873 Q2TAB(IQ) = RQTAB(IQ)
874 ENDDO
875 WRITE(6,'(/
876 + '' QNREAD: qgrid table read in (original overwritten)'')')
877C-- Invalidate hq weight tables since the grid has changed
878 LALFOK = .FALSE.
879 LDQ2OK = .FALSE.
880 LWFCOK = .FALSE.
881 LWLCOK = .FALSE.
882 LWFBOK = .FALSE.
883 LWLBOK = .FALSE.
884 LMARK = .FALSE.
885 NGRVER = NGRVER + 1
886C-- Invalidate all evolutions
887 CALL QNFALS(LEVDONE,MXX*10)
888C--- Update IFAILC
889 CALL GRSETC
890C--- Update NFMAP
891 CALL QNSETT
892 ENDIF
893
894 IF(LREADC) THEN
895 IF(IV.LE.15) THEN
896 UDSCBT(4) = RMASS(4)
897 CBMSTF(4) = RMASS(4)
898 CBMSTF(5) = RMASS(4)
899 ELSE
900 CBMSTF(4) = RMASS(1)
901 CBMSTF(5) = RMASS(1)
902 ENDIF
903 WRITE(6,'(/
904 + '' QNREAD: charm mass read in (original overwritten)'')')
905C-- Invalidate charm weight tables since charm mass has changed
906 LWFCOK = .FALSE.
907 LWLCOK = .FALSE.
908C-- Invalidate alpha_s table
909 LALFOK = .FALSE.
910 ENDIF
911
912 IF(LREADB) THEN
913 IF(IV.LE.15) THEN
914 UDSCBT(5) = RMASS(5)
915 CBMSTF(6) = RMASS(5)
916 CBMSTF(7) = RMASS(5)
917 ELSE
918 CBMSTF(6) = RMASS(2)
919 CBMSTF(7) = RMASS(2)
920 ENDIF
921 WRITE(6,'(/
922 + '' QNREAD: bottom mass read in (original overwritten)'')')
923C-- Invalidate bottom weight tables since charm mass has changed
924 LWFBOK = .FALSE.
925 LWLBOK = .FALSE.
926C-- Invalidate alpha_s table
927 LALFOK = .FALSE.
928 ENDIF
929
930 IF(IV.LE.15) THEN
931 WRITE(6,'(/'' QNREAD: file was written with QCDNUM'',A8)')
932 + RHVERS
933 WRITE(6,'( '' ------> Abandon reading the weight tables'')')
934 RETURN
935 ENDIF
936
937 IF(RWT1OK) THEN
938 READ(LUN,ERR=500) WGTFF1,WGTFG1,WGTGF1,WGTGG1
939 LWT1OK = .TRUE.
940 if(lhasilent.eq.0)
941 + WRITE(6,'(/'' QNREAD: LO weight tables read in'')')
942 ENDIF
943
944 IF(RWT2OK) THEN
945 READ(LUN,ERR=500) WGTPP2,WGTPM2,WGTNS2,WGTFF2,WGTFG2,WGTGF2,
946 + WGTGG2
947 LWT2OK = .TRUE.
948 if(lhasilent.eq.0)
949 + WRITE(6,'(/'' QNREAD: NLO weight tables read in'')')
950 ENDIF
951
952 IF(RWTFOK) THEN
953 READ(LUN,ERR=500) WGTC2Q,WGTC2G,YNTC2Q,WGTCLQ,WGTCLG,WGTC3Q
954 LWTFOK = .TRUE.
955 if(lhasilent.eq.0)
956 + WRITE(6,'(/'' QNREAD: F2, FL weight tables read in'')')
957 ENDIF
958
959 IF(RWFCOK.OR.RWLCOK.OR.RWFBOK.OR.RWLBOK) THEN
960 READ(LUN,ERR=500) WH_C0KG,WH_C1KG,WH_C1BKG,
961 + WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
962 LWFCOK = RWFCOK
963 LWLCOK = RWLCOK
964 LWFBOK = RWFBOK
965 LWLBOK = RWLBOK
966 if(lhasilent.eq.0) then
967 IF(RWFCOK)
968 + WRITE(6,'(/'' QNREAD: F2C weight tables read in'')')
969 IF(RWLCOK)
970 + WRITE(6,'(/'' QNREAD: FLC weight tables read in'')')
971 IF(RWFBOK)
972 + WRITE(6,'(/'' QNREAD: F2B weight tables read in'')')
973 IF(RWLBOK)
974 + WRITE(6,'(/'' QNREAD: FLB weight tables read in'')')
975 endif
976 ENDIF
977
978 RETURN
979
980 500 CONTINUE
981 WRITE(6,'(/'' QNREAD: cannot read file on lun = '',I5,
982 + '' ---> STOP'')') LUN
983
984 CALL QTRACE('QNREAD ',1)
985
986 STOP
987
988 END
989
990CDECK ID>, QNPRIN.
991C
992C ======================
993 SUBROUTINE QNPRIN(LUN)
994C ======================
995
996C--- QNPRIN: print default + current setting of QCDNUM parameters.
997C--- Called by QPRINT
998C--- Input parameter: LUN. To be opened by user unless LUN = 6.
999
1000 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1001
1002
1003 LOGICAL
1004 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1005 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1006 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1007 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1008 +LFFCAL,LASOLD
1009
1010 COMMON/QCFLAG/
1011 +IORD,IOLAST,
1012 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1013 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1014 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1015 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1016 +LFFCAL(7,30),LASOLD
1017
1018
1019 COMMON/QCCONS/
1020 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
1021 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
1022 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
1023 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
1024 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
1025 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
1026
1027
1028
1029 PARAMETER ( MXX = 410 )
1030 PARAMETER ( MQ2 = 120 )
1031
1032C-- Do not set the following parameter to zero!
1033 PARAMETER ( NDFMAX = 20)
1034
1035
1036 COMMON/QCGRID/
1037 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
1038 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
1039 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
1040 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
1041
1042
1043 COMMON/QCPASS/
1044 +ALPHA0, Q0ALFA, ASLAST, QALAST,
1045 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
1046 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
1047 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
1048 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
1049 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
1050 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
1051 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
1052 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
1053 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
1054
1055 LOGICAL LEVDONE,LE_DONE
1056 COMMON/QCLEVL/
1057 +LEVDONE(MXX,10),LE_DONE(MXX)
1058
1059
1060 IF(RS2CUT.GE.0.) THEN
1061 RS2C = SQRT(RS2CUT)
1062 ELSE
1063 RS2C = RS2CUT
1064 ENDIF
1065
1066 WRITE(LUN,'(//'' +-------+---+-------+--------------+'',
1067 + ''------------------------------------+'')')
1068 WRITE(LUN,'( '' | var |typ| deflt | value |'',
1069 + '' description |'')')
1070 WRITE(LUN,'( '' +-------+---+-------+--------------+'',
1071 + ''------------------------------------+'')')
1072 WRITE(LUN,'('' | W1ANA | L | T | '',6X,L1,5X,
1073 + '' | Analytical LO weight calculation |'')') LW1ANA
1074 WRITE(LUN,'('' | W1NUM | L | F | '',6X,L1,5X,
1075 + '' | Numerical LO weight calculation |'')') LW1NUM
1076 WRITE(LUN,'('' | W2NUM | L | T | '',6X,L1,5X,
1077 + '' | Numerical NLO weight calculation |'')') LW2NUM
1078 WRITE(LUN,'('' | W2STF | L | T | '',6X,L1,5X,
1079 + '' | Structure function NLO weights |'')') LW2STF
1080 WRITE(LUN,'('' | WTF2C | L | F | '',6X,L1,5X,
1081 + '' | F2_charm weight calculation |'')') LWF2C
1082 WRITE(LUN,'('' | WTF2B | L | F | '',6X,L1,5X,
1083 + '' | F2_bottom weight calculation |'')') LWF2B
1084 WRITE(LUN,'('' | WTFLC | L | F | '',6X,L1,5X,
1085 + '' | FL_charm weight calculation |'')') LWFLC
1086 WRITE(LUN,'('' | WTFLB | L | F | '',6X,L1,5X,
1087 + '' | FL_bottom weight calculation |'')') LWFLB
1088 WRITE(LUN,'('' | LIMCK | L | T | '',6X,L1,5X,
1089 + '' | Check x, Q2 limits and cuts |'')') LIMCK
1090 WRITE(LUN,'('' | CLOWQ | L | T | '',6X,L1,5X,
1091 + '' | Heavy F2,FL only for Q2 > 1.5 GeV2 |'')') LCLOWQ
1092 WRITE(LUN,'('' | ORDER | I | 2 | '',6X,I1,5X,
1093 + '' | LO (1) or NLO (2) calculations |'')') IORD
1094 WRITE(LUN,'('' | SCAX0 | R | 0.20 | '',E12.5,
1095 + '' | x-grid scale from log --> linear |'')') SCAX0
1096 WRITE(LUN,'('' | SCAQ0 | R | +inf | '',E12.5,
1097 + '' | Q2-grid scale from log --> linear |'')') SCAQ0
1098 WRITE(LUN,'('' | MCSTF | R | 1.5 | '',E12.5,
1099 + '' | C mass for F2c, FLc (GeV) |'')') CBMSTF(4)
1100 WRITE(LUN,'('' | MBSTF | R | 5.0 | '',E12.5,
1101 + '' | B mass for F2b, FLb (GeV) |'')') CBMSTF(6)
1102 WRITE(LUN,'('' | MCALF | R | 1.5 | '',E12.5,
1103 + '' | C mass for alpha_s evolution (GeV) |'')') UDSCBT(4)
1104 WRITE(LUN,'('' | MBALF | R | 5.0 | '',E12.5,
1105 + '' | B mass for alpha_s evolution (GeV) |'')') UDSCBT(5)
1106 WRITE(LUN,'('' | MTALF | R | 188. | '',E12.5,
1107 + '' | T mass for alpha_s evolution (GeV) |'')') UDSCBT(6)
1108 WRITE(LUN,'('' | ALFAS | R | 0.180 | '',E12.5,
1109 + '' | Value of alpha_s |'')') ALPHA0
1110 WRITE(LUN,'('' | ALFQ0 | R | 50. | '',E12.5,
1111 + '' | Q2 where alpha_s is given (GeV2) |'')') Q0ALFA
1112 WRITE(LUN,'('' | AAAR2 | R | 1.0 | '',E12.5,
1113 + '' | R2 = A*M2 + B (ren. scale) |'')') AAAR2
1114 WRITE(LUN,'('' | BBBR2 | R | 0.0 | '',E12.5,
1115 + '' | R2 = A*M2 + B (ren. scale) |'')') BBBR2
1116 WRITE(LUN,'('' | AAM2L | R | 1.0 | '',E12.5,
1117 + '' | M2 = A*Q2 + B (light fact. scale) |'')') AAM2L
1118 WRITE(LUN,'('' | BBM2L | R | 0.0 | '',E12.5,
1119 + '' | M2 = A*Q2 + B (light fact. scale) |'')') BBM2L
1120 WRITE(LUN,'('' | AAM2H | R | 1.0 | '',E12.5,
1121 + '' | M2 = A*Q2 + B (heavy fact. scale) |'')') AAM2H
1122 WRITE(LUN,'('' | BBM2H | R | 0.0 | '',E12.5,
1123 + '' | M2 = A*Q2 + B (heavy fact. scale) |'')') BBM2H
1124 WRITE(LUN,'( '' +-------+---+-------+--------------+'',
1125 + ''------------------------------------+'')')
1126 WRITE(LUN,'('' | TCHRM | R | -inf | '',E12.5,
1127 + '' | Charm threshold (GeV2) |'')') THRS34
1128 WRITE(LUN,'('' | TBOTT | R | +inf | '',E12.5,
1129 + '' | Bottom threshold (GeV2) |'')') THRS45
1130 WRITE(LUN,'('' | XMINC | R | 0.0 | '',E12.5,
1131 + '' | Xmin cut (.le.0 = no cut) |'')') XMICUT
1132 WRITE(LUN,'('' | QMINC | R | 0.0 | '',E12.5,
1133 + '' | Qmin cut (.le.0 = no cut) |'')') QMICUT
1134 WRITE(LUN,'('' | QMAXC | R | 0.0 | '',E12.5,
1135 + '' | Qmax cut (.le.0 = no cut) |'')') QMACUT
1136 WRITE(LUN,'('' | ROOTS | R | 0.0 | '',E12.5,
1137 + '' | Roots cut (.le.0 = no cut) |'')') RS2C
1138 WRITE(LUN,'('' | QMINA | R | 0.0 | '',E12.5,
1139 + '' | Lowest Q2 gridpoint above Lambda2 |'')') QMINAS
1140 WRITE(LUN,'( '' +-------+---+-------+--------------+'',
1141 + ''------------------------------------+'')')
1142 WRITE(LUN,'('' | ASOLD | L | F | '',6X,L1,5X,
1143 + '' | Use old (incorrect) a_s evolution |'')') LASOLD
1144 WRITE(LUN,'('' | BMARK | L | F | '',6X,L1,5X,
1145 + '' | Do not use: for tests only |'')') LBMARK
1146 WRITE(LUN,'('' | FLFAC | R | 0.0 | '',E12.5,
1147 + '' | Hands off : for experts only |'')') BBM2H
1148 WRITE(LUN,'( '' +-------+---+-------+--------------+'',
1149 + ''------------------------------------+'')')
1150
1151 RETURN
1152 END
1153
1154CDECK ID>, QNVERS.
1155C
1156C ==============================================
1157 SUBROUTINE QNVERS(VERSION,LDOUBLE,NXMAX,NQMAX)
1158C ==============================================
1159
1160C--- QNVERS: return version number, dp flag and max # of gridpoints.
1161C--- Called by user.
1162C--- Output variables: VERSION (character*8)
1163C--- LDOUBLE (logical)
1164C--- NXMAX, NQMAX (integer); set by parameter
1165C--- statement in common block QCNXQM.
1166
1167 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1168
1169 CHARACTER*8 VERSION
1170 LOGICAL LDOUBLE
1171
1172 CHARACTER*8 CHVERS,CHDATE
1173 COMMON/QCVERS/ CHVERS,CHDATE
1174
1175
1176 LOGICAL
1177 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1178 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1179 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1180 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1181 +LFFCAL,LASOLD
1182
1183 COMMON/QCFLAG/
1184 +IORD,IOLAST,
1185 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1186 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1187 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1188 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1189 +LFFCAL(7,30),LASOLD
1190
1191
1192 PARAMETER ( MXX = 410 )
1193 PARAMETER ( MQ2 = 120 )
1194
1195C-- Do not set the following parameter to zero!
1196 PARAMETER ( NDFMAX = 20)
1197
1198
1199 CALL QTRACE('QNVERS ',0)
1200
1201 VERSION = CHVERS
1202 LDOUBLE = LDOUBL
1203 NXMAX = MXX-1
1204 NQMAX = MQ2-1
1205
1206 RETURN
1207 END
1208
1209CDECK ID>, QPRINT.
1210
1211C ==========================
1212 SUBROUTINE QPRINT(LUN,OPT)
1213C ==========================
1214
1215C--- QPRINT: steering routine to print various QCDNUM info on
1216C-- logical unit number LUN (to be opened by the user).
1217C--- Called by user.
1218C--- Input integer LUN : locical unit number.
1219C--- character OPT: 'A' (All) print all info.
1220C--- 'B' (Booklist) print pdf definitions.
1221C--- 'P' (Parameters) Parameter/option list.
1222C--- 'S' (Statistics) # STF function calls.
1223C--- 'T' (Timelog) timelog.
1224C--- 'X' (Xq2grid) grid,thresholds,cuts.
1225
1226 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1227
1228 CHARACTER*(*) OPT
1229 CHARACTER*1 OPT1
1230
1231
1232 LOGICAL LTIME
1233 REAL T_START,T_END,T_SPENT
1234 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
1235 +E_CALLS(10),LTIME
1236 COMMON/QCFCNT/IFCNT(-1:1,5)
1237
1238
1239 PARAMETER ( MXX = 410 )
1240 PARAMETER ( MQ2 = 120 )
1241
1242C-- Do not set the following parameter to zero!
1243 PARAMETER ( NDFMAX = 20)
1244
1245
1246 COMMON/QCGRID/
1247 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
1248 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
1249 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
1250 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
1251
1252
1253 REAL
1254 +WGTFF1,WGTFG1,
1255 +WGTGF1,WGTGG1,
1256 +WGTPP2,WGTPM2,WGTNS2,
1257 +WGTFF2,WGTFG2,
1258 +WGTGF2,WGTGG2,
1259 +WGTC2Q,WGTC2G,YNTC2Q,
1260 +WGTCLQ,WGTCLG,WGTC3Q
1261
1262 COMMON/QCWEIT/
1263 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
1264 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
1265 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
1266 +WGTNS2(MXX*(MXX+1)/2,3:5),
1267 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
1268 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
1269 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
1270 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
1271 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
1272
1273 COMMON/QCWADR/ IWADR(MXX,MXX)
1274
1275
1276 CALL QTRACE('QPRINT ',0)
1277
1278 IF(LENOCC_LHA(OPT).LT.1) GOTO 500
1279 OPT1 = OPT(1:1)
1280 CALL CLTOU_LHA(OPT1)
1281
1282 IF(OPT1.EQ.'T') THEN !
1283 CALL QPTIME(LUN)
1284 ELSEIF(OPT1.EQ.'P') THEN
1285 CALL QNPRIN(LUN)
1286 ELSEIF(OPT1.EQ.'B') THEN
1287 CALL QNLIST(LUN)
1288 ELSEIF(OPT1.EQ.'S') THEN
1289 CALL QNSTAT(LUN)
1290 ELSEIF(OPT1.EQ.'X') THEN
1291 CALL QPGRID(LUN)
1292 ELSEIF(OPT1.EQ.'A') THEN
1293 CALL QNPRIN(LUN)
1294 CALL QNLIST(LUN)
1295 CALL QPGRID(LUN)
1296 CALL QNSTAT(LUN)
1297 CALL QPTIME(LUN)
1298 ELSE
1299 GOTO 500
1300 ENDIF
1301
1302 RETURN
1303
1304 500 CONTINUE
1305
1306 WRITE(6,'(/'' ------------------------------------'')')
1307 WRITE(6,'( '' QCDNUM error in s/r QPRINT ---> STOP'')')
1308 WRITE(6,'( '' ------------------------------------'')')
1309 WRITE(6,'( '' Input LUN :'',I5 )') LUN
1310 WRITE(6,'( '' OPT :'',A )') OPT
1311 WRITE(6,'(/'' Option should be A, B, P, S, T or X'')')
1312
1313 STOP
1314
1315 END
1316
1317CDECK ID>, QNTIME.
1318
1319C ======================
1320 SUBROUTINE QNTIME(OPT)
1321C ======================
1322
1323C--- QNTIME: start/halt/continue the timelog.
1324C--- Called by user and by QPTIME.
1325C--- Input variable: 'Start' initialise and start the timelog.
1326C--- 'Hold' stop logging.
1327C--- 'Cont' continue logging.
1328
1329 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1330
1331 CHARACTER*(*) OPT
1332 CHARACTER*1 OPT1
1333
1334
1335 LOGICAL LTIME
1336 REAL T_START,T_END,T_SPENT
1337 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
1338 +E_CALLS(10),LTIME
1339 COMMON/QCFCNT/IFCNT(-1:1,5)
1340
1341
1342 CALL QTRACE('QNTIME ',0)
1343
1344 IF(LENOCC_LHA(OPT).LT.1) GOTO 500
1345 OPT1 = OPT(1:1)
1346 CALL CLTOU_LHA(OPT1)
1347
1348 IF(OPT1.EQ.'S') THEN
1349
1350 DO I = 1,10
1351 T_SPENT(I) = 0.
1352 E_CALLS(I) = 0.
1353 N_CALLS(I) = 0
1354 ENDDO
1355 LTIME = .TRUE.
1356
1357 N_CALLS(1) = N_CALLS(1)+1
1358 CALL TIMEX_LHA(T_START(1))
1359
1360 ELSEIF(OPT1.EQ.'H') THEN
1361
1362 LTIME = .FALSE.
1363 CALL TIMEX_LHA(T_END(1))
1364 T_SPENT(1) = T_SPENT(1)+T_END(1)-T_START(1)
1365 T_START(1) = T_END(1)
1366
1367 ELSEIF(OPT1.EQ.'C') THEN
1368
1369 IF(.NOT.LTIME) THEN
1370 LTIME = .TRUE.
1371 N_CALLS(1) = N_CALLS(1)+1
1372 CALL TIMEX_LHA(T_START(1))
1373 ENDIF
1374
1375 ELSE
1376
1377 GOTO 500
1378
1379 ENDIF
1380
1381 RETURN
1382
1383 500 CONTINUE
1384
1385 WRITE(6,'(/'' ------------------------------------'')')
1386 WRITE(6,'( '' QCDNUM error in s/r QNTIME ---> STOP'')')
1387 WRITE(6,'( '' ------------------------------------'')')
1388 WRITE(6,'( '' Input OPT :'',A )') OPT
1389 WRITE(6,'(/'' Option should be S, H or C '')')
1390
1391 CALL QTRACE('QNTIME ',1)
1392
1393 STOP
1394
1395 END
1396
1397CDECK ID>, QPTIME.
1398
1399C ======================
1400 SUBROUTINE QPTIME(LUN)
1401C ======================
1402
1403C--- QPTIME: start/print the timelog.
1404C--- Called by QPRINT.
1405C--- Input variable: LUN logical unit number
1406
1407 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1408
1409
1410 LOGICAL LTIME
1411 REAL T_START,T_END,T_SPENT
1412 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
1413 +E_CALLS(10),LTIME
1414 COMMON/QCFCNT/IFCNT(-1:1,5)
1415
1416
1417 PARAMETER ( MXX = 410 )
1418 PARAMETER ( MQ2 = 120 )
1419
1420C-- Do not set the following parameter to zero!
1421 PARAMETER ( NDFMAX = 20)
1422
1423
1424 COMMON/QCGRID/
1425 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
1426 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
1427 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
1428 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
1429
1430
1431 REAL
1432 +WGTFF1,WGTFG1,
1433 +WGTGF1,WGTGG1,
1434 +WGTPP2,WGTPM2,WGTNS2,
1435 +WGTFF2,WGTFG2,
1436 +WGTGF2,WGTGG2,
1437 +WGTC2Q,WGTC2G,YNTC2Q,
1438 +WGTCLQ,WGTCLG,WGTC3Q
1439
1440 COMMON/QCWEIT/
1441 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
1442 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
1443 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
1444 +WGTNS2(MXX*(MXX+1)/2,3:5),
1445 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
1446 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
1447 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
1448 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
1449 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
1450
1451 COMMON/QCWADR/ IWADR(MXX,MXX)
1452
1453
1454 CALL QNTIME('H')
1455
1456 N_TOT = N_CALLS(3)+N_CALLS(4)+N_CALLS(5)
1457 E_TOT = E_CALLS(3)+E_CALLS(4)+E_CALLS(5)
1458 T_TOT = T_SPENT(3)+T_SPENT(4)+T_SPENT(5)
1459 T_REST = T_SPENT(1)-T_TOT-T_SPENT(2)-T_SPENT(6)
1460 DUMMY = 1.
1461 F_FAST = 0.
1462 DO J = 1,5
1463 F_FAST = F_FAST+IFCNT(1,J)
1464 ENDDO
1465 WRITE(LUN,
1466 + '(//'' -------------------------------------------------'')')
1467 WRITE(LUN,
1468 + '( '' Routine # calls # evols CPU sec CPU/evol'')')
1469 WRITE(LUN,
1470 + '( '' -------------------------------------------------'')')
1471 WRITE(LUN,
1472 + '('' EVOLNM '',I10,2F10.1,F10.2)') N_CALLS(3),
1473 + E_CALLS(3),T_SPENT(3),T_SPENT(3)/MAX(E_CALLS(3),DUMMY)
1474 WRITE(LUN,
1475 + '('' EVOLNP '',I10,2F10.1,F10.2)') N_CALLS(4),
1476 + E_CALLS(4),T_SPENT(4),T_SPENT(4)/MAX(E_CALLS(4),DUMMY)
1477 WRITE(LUN,
1478 + '('' EVOLSG '',I10,2F10.1,F10.2)') N_CALLS(5),
1479 + E_CALLS(5),T_SPENT(5),T_SPENT(5)/MAX(E_CALLS(5),DUMMY)
1480 WRITE(LUN,
1481 + '( '' -------------------------------------------------'')')
1482 WRITE(LUN,
1483 + '('' AP total '',I10,2F10.1,F10.2)') N_TOT,
1484 + E_TOT,T_TOT,T_TOT/MAX(E_TOT,DUMMY)
1485 WRITE(LUN,'('' '')')
1486 WRITE(LUN,
1487 + '('' STFAST '',I10, 2F10.1)') N_CALLS(6),F_FAST,T_SPENT(6)
1488 WRITE(LUN,
1489 + '('' QNFILW '',I10,10X,F10.1)') N_CALLS(2),T_SPENT(2)
1490 WRITE(LUN,
1491 + '('' Other '',10X,10X,F10.1)') T_REST
1492 WRITE(LUN,
1493 + '( '' -------------------------------------------------'')')
1494 WRITE(LUN,
1495 + '('' Total '',10X,10X,F10.1)') T_SPENT(1)
1496 WRITE(LUN,
1497 + '( '' -------------------------------------------------'')')
1498
1499
1500 RETURN
1501 END
1502
1503CDECK ID>, QNSTAT.
1504
1505C ======================
1506 SUBROUTINE QNSTAT(LUN)
1507C ======================
1508
1509C--- QNSTAT: print number of structure function calculations.
1510C--- Called by user.
1511C--- Input parameter: LUN to be opened by user unless LUN = 6.
1512
1513 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1514
1515
1516 LOGICAL LTIME
1517 REAL T_START,T_END,T_SPENT
1518 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
1519 +E_CALLS(10),LTIME
1520 COMMON/QCFCNT/IFCNT(-1:1,5)
1521
1522
1523 DIMENSION ITOT(5)
1524
1525 DO J = 1,5
1526 ITOT(J) = 0
1527 DO I = -1,1
1528 ITOT(J) = ITOT(J)+IFCNT(I,J)
1529 ENDDO
1530 ENDDO
1531
1532 WRITE(LUN,'(//'' ------------------------------'',
1533 + ''--------------------------------------------'')')
1534 WRITE(LUN,'( '' Structure function calls '',
1535 + '' F2 FL xF3'',
1536 + '' F2h FLh'')')
1537 WRITE(LUN,'( '' ------------------------------'',
1538 + ''--------------------------------------------'')')
1539 WRITE(LUN,
1540 + '('' Slow calculation '',5I9)') (IFCNT( 0,J),J=1,5)
1541 WRITE(LUN,
1542 + '('' Fast calculation '',5I9)') (IFCNT( 1,J),J=1,5)
1543 WRITE(LUN,
1544 + '('' Outside grid or cuts '',5I9)') (IFCNT(-1,J),J=1,5)
1545 WRITE(LUN,'( '' ------------------------------'',
1546 + ''--------------------------------------------'')')
1547 WRITE(LUN,
1548 + '('' Total '',5I9)') ( ITOT(J),J=1,5)
1549 WRITE(LUN,'( '' ------------------------------'',
1550 + ''--------------------------------------------'')')
1551
1552 RETURN
1553 END
1554
1555CDECK ID>, QNIVAL.
1556
1557C ================================
1558 SUBROUTINE QNIVAL(OPT,FLAG,IVAL)
1559C ================================
1560
1561C--- QNIVAL: set/get integer variable.
1562C--- Called by user or internally by s/r QNISET and QNIGET.
1563C--- Input parameters: 'OPT' = 'Set' or 'Get'.
1564C--- 'FLAG' = variable name to set or get.
1565C--- 'IVAL' (integer) input or output variable.
1566
1567 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1568
1569 CHARACTER*(*) OPT
1570 CHARACTER*1 OPT1
1571 CHARACTER*(*) FLAG
1572 CHARACTER*5 FLAG5
1573
1574
1575 COMMON/QCCONS/
1576 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
1577 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
1578 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
1579 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
1580 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
1581 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
1582
1583
1584
1585 LOGICAL
1586 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1587 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1588 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1589 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1590 +LFFCAL,LASOLD
1591
1592 COMMON/QCFLAG/
1593 +IORD,IOLAST,
1594 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1595 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1596 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1597 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1598 +LFFCAL(7,30),LASOLD
1599
1600
1601 PARAMETER ( MXX = 410 )
1602 PARAMETER ( MQ2 = 120 )
1603
1604C-- Do not set the following parameter to zero!
1605 PARAMETER ( NDFMAX = 20)
1606
1607
1608 COMMON/QCGRID/
1609 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
1610 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
1611 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
1612 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
1613
1614
1615 COMMON/QCPASS/
1616 +ALPHA0, Q0ALFA, ASLAST, QALAST,
1617 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
1618 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
1619 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
1620 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
1621 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
1622 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
1623 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
1624 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
1625 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
1626
1627 LOGICAL LEVDONE,LE_DONE
1628 COMMON/QCLEVL/
1629 +LEVDONE(MXX,10),LE_DONE(MXX)
1630
1631
1632 IF(LENOCC_LHA(OPT).LT.1) THEN
1633 IERR = 1
1634 GOTO 500
1635 ENDIF
1636 IF(LENOCC_LHA(FLAG).LT.5) THEN
1637 IERR = 2
1638 GOTO 500
1639 ENDIF
1640 OPT1 = OPT(1:1)
1641 FLAG5 = FLAG(1:5)
1642 CALL CLTOU_LHA(OPT1)
1643 CALL CLTOU_LHA(FLAG5)
1644
1645C ----------------------
1646 IF(OPT1.EQ.'S') THEN !
1647C ----------------------
1648
1649 IF (FLAG5.EQ.'ORDER') THEN
1650 IF(IVAL.LE.0.OR.IVAL.GE.3) THEN
1651 IERR = 3
1652 GOTO 500
1653 ENDIF
1654 IORD = IVAL
1655C-- Invalidate all evolutions
1656 CALL QNFALS(LEVDONE,MXX*10)
1657 LALFOK = .FALSE.
1658 ELSE
1659 IERR = 2
1660 GOTO 500
1661 ENDIF
1662
1663C --------------------------
1664 ELSEIF(OPT1.EQ.'G') THEN !
1665C --------------------------
1666
1667 IF (FLAG5.EQ.'ORDER') THEN
1668 IVAL = IORD
1669 ELSE
1670 IERR = 2
1671 GOTO 500
1672 ENDIF
1673
1674C ------
1675 ELSE !
1676C ------
1677
1678 IERR = 1
1679 GOTO 500
1680
1681C -------
1682 ENDIF !
1683C -------
1684
1685 RETURN
1686
1687 500 CONTINUE
1688
1689 WRITE(6,'(/'' ------------------------------------'')')
1690 WRITE(6,'( '' QCDNUM error in s/r QNIVAL ---> STOP'')')
1691 WRITE(6,'( '' ------------------------------------'')')
1692 WRITE(6,'( '' Input OPT : '',A )') OPT
1693 WRITE(6,'( '' VAR : '',A )') FLAG
1694 WRITE(6,'( '' VAL : '',I10 )') IVAL
1695 IF(IERR.EQ.1) THEN
1696 WRITE(6,'(/'' OPT should be either SET or GET '')')
1697 ELSEIF(IERR.EQ.2) THEN
1698 WRITE(6,'(/'' Variable VAR not found'')')
1699 ELSEIF(IERR.EQ.3) THEN
1700 WRITE(6,'(/'' IVAL out of allowed range'')')
1701 ENDIF
1702
1703 CALL QTRACE('QNIVAL ',1)
1704
1705 STOP
1706
1707 END
1708
1709CDECK ID>, QNISET.
1710
1711C ============================
1712 SUBROUTINE QNISET(FLAG,IVAL)
1713C ============================
1714
1715 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1716
1717 CHARACTER*(*) FLAG
1718
1719 CALL QTRACE('QNISET ',0)
1720
1721 CALL QNIVAL('SET',FLAG,IVAL)
1722
1723 RETURN
1724 END
1725
1726CDECK ID>, QNIGET.
1727
1728C ============================
1729 SUBROUTINE QNIGET(FLAG,IVAL)
1730C ============================
1731
1732 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1733
1734 CHARACTER*(*) FLAG
1735
1736 CALL QTRACE('QNIGET ',0)
1737
1738 CALL QNIVAL('GET',FLAG,IVAL)
1739
1740 RETURN
1741 END
1742
1743CDECK ID>, QNRVAL.
1744
1745C ===============================
1746 SUBROUTINE QNRVAL(OPT,FLAG,VAL)
1747C ===============================
1748
1749C--- QNRVAL: set/get floating point variable.
1750C--- Called by user or internally by s/r QNRSET and QNRGET.
1751C--- Input parameters: 'OPT' = 'Set' or 'Get'.
1752C--- 'FLAG' = variable name to set or get.
1753C--- 'VAL' (real or d.p.) input or output variable.
1754
1755 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
1756
1757 CHARACTER*(*) OPT
1758 CHARACTER*1 OPT1
1759 CHARACTER*(*) FLAG
1760 CHARACTER*5 FLAG5
1761
1762
1763 COMMON/QCCONS/
1764 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
1765 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
1766 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
1767 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
1768 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
1769 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
1770
1771
1772
1773 LOGICAL
1774 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1775 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1776 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1777 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1778 +LFFCAL,LASOLD
1779
1780 COMMON/QCFLAG/
1781 +IORD,IOLAST,
1782 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
1783 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
1784 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
1785 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
1786 +LFFCAL(7,30),LASOLD
1787
1788
1789 PARAMETER ( MXX = 410 )
1790 PARAMETER ( MQ2 = 120 )
1791
1792C-- Do not set the following parameter to zero!
1793 PARAMETER ( NDFMAX = 20)
1794
1795
1796 COMMON/QCGRID/
1797 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
1798 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
1799 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
1800 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
1801
1802
1803 COMMON/QCPASS/
1804 +ALPHA0, Q0ALFA, ASLAST, QALAST,
1805 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
1806 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
1807 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
1808 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
1809 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
1810 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
1811 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
1812 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
1813 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
1814
1815 LOGICAL LEVDONE,LE_DONE
1816 COMMON/QCLEVL/
1817 +LEVDONE(MXX,10),LE_DONE(MXX)
1818
1819
1820 IF(LENOCC_LHA(OPT).LT.1) THEN
1821 IERR = 1
1822 GOTO 500
1823 ENDIF
1824 IF(LENOCC_LHA(FLAG).LT.5) THEN
1825 IERR = 2
1826 GOTO 500
1827 ENDIF
1828 OPT1 = OPT(1:1)
1829 FLAG5 = FLAG(1:5)
1830 CALL CLTOU_LHA(OPT1)
1831 CALL CLTOU_LHA(FLAG5)
1832
1833C ----------------------
1834 IF(OPT1.EQ.'S') THEN !
1835C ----------------------
1836
1837 IF (FLAG5.EQ.'AAM2H'.OR.FLAG5.EQ.'AATQ2') THEN
1838 IF(VAL.LE.0.) THEN
1839 IERR = 3
1840 GOTO 500
1841 ENDIF
1842 AAM2H = VAL
1843 DO I = 1,30
1844 LFFCAL(4,I) = .FALSE.
1845 LFFCAL(5,I) = .FALSE.
1846 LFFCAL(6,I) = .FALSE.
1847 LFFCAL(7,I) = .FALSE.
1848 ENDDO
1849 ELSEIF(FLAG5.EQ.'BBM2H'.OR.FLAG5.EQ.'PLUSB') THEN
1850 BBM2H = VAL
1851 DO I = 1,30
1852 LFFCAL(4,I) = .FALSE.
1853 LFFCAL(5,I) = .FALSE.
1854 LFFCAL(6,I) = .FALSE.
1855 LFFCAL(7,I) = .FALSE.
1856 ENDDO
1857 ELSEIF(FLAG5.EQ.'AAM2L') THEN
1858 IF(VAL.LE.0.) THEN
1859 IERR = 3
1860 GOTO 500
1861 ENDIF
1862 AAM2L = VAL
1863 DO I = 1,30
1864 LFFCAL(1,I) = .FALSE.
1865 LFFCAL(2,I) = .FALSE.
1866 LFFCAL(3,I) = .FALSE.
1867 ENDDO
1868 ELSEIF(FLAG5.EQ.'BBM2L') THEN
1869 BBM2L = VAL
1870 DO I = 1,30
1871 LFFCAL(1,I) = .FALSE.
1872 LFFCAL(2,I) = .FALSE.
1873 LFFCAL(3,I) = .FALSE.
1874 ENDDO
1875 ELSEIF(FLAG5.EQ.'AAAR2') THEN
1876 AAAR2 = VAL
1877C-- Invalidate all evolutions
1878 CALL QNFALS(LEVDONE,MXX*10)
1879 LALFOK = .FALSE.
1880 DO I = 1,30
1881 DO J = 1,7
1882 LFFCAL(J,I) = .FALSE.
1883 ENDDO
1884 ENDDO
1885 ELSEIF(FLAG5.EQ.'BBBR2') THEN
1886 BBBR2 = VAL
1887C-- Invalidate all evolutions
1888 CALL QNFALS(LEVDONE,MXX*10)
1889 LALFOK = .FALSE.
1890 DO I = 1,30
1891 DO J = 1,7
1892 LFFCAL(J,I) = .FALSE.
1893 ENDDO
1894 ENDDO
1895 ELSEIF(FLAG5.EQ.'FLFAC') THEN
1896 FL_FAC = VAL
1897 DO I = 1,30
1898 LFFCAL(2,I) = .FALSE.
1899 ENDDO
1900 ELSEIF(FLAG5.EQ.'SCAX0') THEN
1901 IF(VAL.LE.0.) THEN
1902 IERR = 3
1903 GOTO 500
1904 ENDIF
1905 SCAX0 = VAL
1906 ELSEIF(FLAG5.EQ.'SCAQ0') THEN
1907 IF(VAL.LE.0.) THEN
1908 IERR = 3
1909 GOTO 500
1910 ENDIF
1911 SCAQ0 = VAL
1912 ELSE
1913 IF(VAL.LE.0.) THEN
1914 IERR = 3
1915 GOTO 500
1916 ENDIF
1917C-- Invalidate all evolutions
1918 CALL QNFALS(LEVDONE,MXX*10)
1919 LALFOK = .FALSE. !force alpha_s to be recalculated
1920 IF (FLAG5.EQ.'UMASS') THEN
1921 UDSCBT(1) = VAL
1922 ELSEIF(FLAG5.EQ.'DMASS') THEN
1923 UDSCBT(2) = VAL
1924 ELSEIF(FLAG5.EQ.'SMASS') THEN
1925 UDSCBT(3) = VAL
1926 ELSEIF(FLAG5.EQ.'CMASS') THEN
1927 UDSCBT(4) = VAL
1928 CBMSTF(4) = VAL
1929 CBMSTF(5) = VAL
1930 LWFCOK = .FALSE. !invalidate F2C weight tables
1931 LWLCOK = .FALSE. !invalidate FLC weight tables
1932 ELSEIF(FLAG5.EQ.'MCSTF') THEN
1933 CBMSTF(4) = VAL
1934 CBMSTF(5) = VAL
1935 LWFCOK = .FALSE.
1936 LWLCOK = .FALSE.
1937 ELSEIF(FLAG5.EQ.'MCALF') THEN
1938 UDSCBT(4) = VAL
1939 ELSEIF(FLAG5.EQ.'BMASS') THEN
1940 UDSCBT(5) = VAL
1941 CBMSTF(6) = VAL
1942 CBMSTF(7) = VAL
1943 LWFBOK = .FALSE. !invalidate F2B weight tables
1944 LWLBOK = .FALSE. !invalidate FLB weight tables
1945 ELSEIF(FLAG5.EQ.'MBSTF') THEN
1946 CBMSTF(6) = VAL
1947 CBMSTF(7) = VAL
1948 LWFBOK = .FALSE.
1949 LWLBOK = .FALSE.
1950 ELSEIF(FLAG5.EQ.'MBALF') THEN
1951 UDSCBT(5) = VAL
1952 ELSEIF(FLAG5.EQ.'MTALF') THEN
1953 UDSCBT(6) = VAL
1954 ELSEIF(FLAG5.EQ.'TMASS') THEN
1955 UDSCBT(6) = VAL
1956 ELSEIF(FLAG5.EQ.'ALFAS') THEN
1957 ALPHA0 = VAL
1958 ELSEIF(FLAG5.EQ.'ALFQ0') THEN
1959 Q0ALFA = VAL
1960 ELSE
1961 IERR = 2
1962 GOTO 500
1963 ENDIF
1964 ENDIF
1965
1966C --------------------------
1967 ELSEIF(OPT1.EQ.'G') THEN !
1968C --------------------------
1969
1970 IF (FLAG5.EQ.'SCAX0') THEN
1971 VAL = SCAX0
1972 ELSEIF(FLAG5.EQ.'SCAQ0') THEN
1973 VAL = SCAQ0
1974 ELSEIF(FLAG5.EQ.'AAM2H'.OR.FLAG5.EQ.'AATQ2') THEN
1975 VAL = AAM2H
1976 ELSEIF(FLAG5.EQ.'BBM2H'.OR.FLAG5.EQ.'PLUSB') THEN
1977 VAL = BBM2H
1978 ELSEIF(FLAG5.EQ.'AAM2L') THEN
1979 VAL = AAM2L
1980 ELSEIF(FLAG5.EQ.'BBM2L') THEN
1981 VAL = BBM2L
1982 ELSEIF(FLAG5.EQ.'AAAR2') THEN
1983 VAL = AAAR2
1984 ELSEIF(FLAG5.EQ.'BBBR2') THEN
1985 VAL = BBBR2
1986 ELSEIF(FLAG5.EQ.'FLFAC') THEN
1987 VAL = FL_FAC
1988 ELSEIF(FLAG5.EQ.'UMASS') THEN
1989 VAL = UDSCBT(1)
1990 ELSEIF(FLAG5.EQ.'DMASS') THEN
1991 VAL = UDSCBT(2)
1992 ELSEIF(FLAG5.EQ.'SMASS') THEN
1993 VAL = UDSCBT(3)
1994 ELSEIF(FLAG5.EQ.'CMASS') THEN
1995 VAL = UDSCBT(4)
1996 ELSEIF(FLAG5.EQ.'BMASS') THEN
1997 VAL = UDSCBT(5)
1998 ELSEIF(FLAG5.EQ.'TMASS') THEN
1999 VAL = UDSCBT(6)
2000 ELSEIF(FLAG5.EQ.'MCSTF') THEN
2001 VAL = CBMSTF(4)
2002 ELSEIF(FLAG5.EQ.'MBSTF') THEN
2003 VAL = CBMSTF(6)
2004 ELSEIF(FLAG5.EQ.'MCALF') THEN
2005 VAL = UDSCBT(4)
2006 ELSEIF(FLAG5.EQ.'MBALF') THEN
2007 VAL = UDSCBT(5)
2008 ELSEIF(FLAG5.EQ.'MTALF') THEN
2009 VAL = UDSCBT(6)
2010 ELSEIF(FLAG5.EQ.'ALFAS') THEN
2011 VAL = ALPHA0
2012 ELSEIF(FLAG5.EQ.'ALFQ0') THEN
2013 VAL = Q0ALFA
2014 ELSEIF(FLAG5.EQ.'TCHRM') THEN
2015 VAL = THRS34
2016 ELSEIF(FLAG5.EQ.'TBOTT') THEN
2017 VAL = THRS45
2018 ELSEIF(FLAG5.EQ.'XMINC') THEN
2019 VAL = XMICUT
2020 ELSEIF(FLAG5.EQ.'QMINC') THEN
2021 VAL = QMICUT
2022 ELSEIF(FLAG5.EQ.'QMAXC') THEN
2023 VAL = QMACUT
2024 ELSEIF(FLAG5.EQ.'ROOTS') THEN
2025 IF(RS2CUT.GE.0.) THEN
2026 VAL = SQRT(RS2CUT)
2027 ELSE
2028 VAL = RS2CUT
2029 ENDIF
2030 ELSEIF(FLAG5.EQ.'QMINA') THEN
2031 VAL = QMINAS
2032 ELSE
2033 IERR = 2
2034 GOTO 500
2035 ENDIF
2036
2037C ------
2038 ELSE !
2039C ------
2040
2041 IERR = 1
2042 GOTO 500
2043
2044C -------
2045 ENDIF !
2046C -------
2047
2048 RETURN
2049
2050 500 CONTINUE
2051
2052 WRITE(6,'(/'' ------------------------------------'')')
2053 WRITE(6,'( '' QCDNUM error in s/r QNRVAL ---> STOP'')')
2054 WRITE(6,'( '' ------------------------------------'')')
2055 WRITE(6,'( '' Input OPT : '',A )') OPT
2056 WRITE(6,'( '' VAR : '',A )') FLAG
2057 WRITE(6,'( '' VAL : '',E12.5)') RVAL
2058 IF(IERR.EQ.1) THEN
2059 WRITE(6,'(/'' OPT should be either SET or GET '')')
2060 ELSEIF(IERR.EQ.2) THEN
2061 WRITE(6,'(/'' Variable VAR not found'')')
2062 ELSEIF(IERR.EQ.3) THEN
2063 WRITE(6,'(/'' VAL should be .gt. 0 '')')
2064 ENDIF
2065
2066 CALL QTRACE('QNRVAL ',1)
2067
2068 STOP
2069
2070 END
2071
2072CDECK ID>, QNRSET.
2073
2074C ============================
2075 SUBROUTINE QNRSET(FLAG,RVAL)
2076C ============================
2077
2078 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2079
2080 CHARACTER*(*) FLAG
2081
2082 CALL QTRACE('QNRSET ',0)
2083
2084 CALL QNRVAL('SET',FLAG,RVAL)
2085
2086 RETURN
2087 END
2088
2089CDECK ID>, QNRGET.
2090
2091C ============================
2092 SUBROUTINE QNRGET(FLAG,RVAL)
2093C ============================
2094
2095 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2096
2097 CHARACTER*(*) FLAG
2098
2099 CALL QTRACE('QNRGET ',0)
2100
2101 CALL QNRVAL('GET',FLAG,RVAL)
2102
2103 RETURN
2104 END
2105
2106CDECK ID>, QNLVAL.
2107
2108C ================================
2109 SUBROUTINE QNLVAL(OPT,FLAG,LVAL)
2110C ================================
2111
2112C--- QNLVAL: set/get logical variable.
2113C--- Called by user or internally by s/r QNLSET and QNLGET.
2114C--- Input parameters: 'OPT' = 'Set' or 'Get'.
2115C--- 'FLAG' = variable name to set or get.
2116C--- 'VAL' (logical) input or output variable.
2117
2118 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2119
2120 CHARACTER*(*) OPT
2121 CHARACTER*1 OPT1
2122 CHARACTER*(*) FLAG
2123 CHARACTER*5 FLAG5
2124 LOGICAL LVAL
2125
2126
2127 COMMON/QCCONS/
2128 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
2129 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
2130 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
2131 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
2132 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
2133 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
2134
2135
2136
2137 LOGICAL
2138 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2139 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2140 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2141 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2142 +LFFCAL,LASOLD
2143
2144 COMMON/QCFLAG/
2145 +IORD,IOLAST,
2146 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2147 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2148 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2149 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2150 +LFFCAL(7,30),LASOLD
2151
2152
2153 IF(LENOCC_LHA(OPT).LT.1) THEN
2154 IERR = 1
2155 GOTO 500
2156 ENDIF
2157 IF(LENOCC_LHA(FLAG).LT.5) THEN
2158 IERR = 2
2159 GOTO 500
2160 ENDIF
2161 OPT1 = OPT(1:1)
2162 FLAG5 = FLAG(1:5)
2163 CALL CLTOU_LHA(OPT1)
2164 CALL CLTOU_LHA(FLAG5)
2165
2166C ----------------------
2167 IF(OPT1.EQ.'S') THEN !
2168C ----------------------
2169
2170 IF (FLAG5.EQ.'W1ANA' ) THEN
2171 LW1ANA = LVAL
2172 IF(LW1ANA) LW1NUM = .FALSE.
2173 ELSEIF(FLAG5.EQ.'W1NUM' ) THEN
2174 LW1NUM = LVAL
2175 IF(LW1NUM) LW1ANA = .FALSE.
2176 ELSEIF(FLAG5.EQ.'W2NUM' ) THEN
2177 LW2NUM = LVAL
2178 ELSEIF(FLAG5.EQ.'W2STF' ) THEN
2179 LW2STF = LVAL
2180 ELSEIF(FLAG5.EQ.'WTF2C' ) THEN
2181 LWF2C = LVAL
2182 ELSEIF(FLAG5.EQ.'WTFLC' ) THEN
2183 LWFLC = LVAL
2184 ELSEIF(FLAG5.EQ.'WTF2B' ) THEN
2185 LWF2B = LVAL
2186 ELSEIF(FLAG5.EQ.'WTFLB' ) THEN
2187 LWFLB = LVAL
2188 ELSEIF(FLAG5.EQ.'BMARK' ) THEN
2189 LBMARK = LVAL
2190 LALFOK = .FALSE.
2191 ELSEIF(FLAG5.EQ.'LIMCK' ) THEN
2192 LIMCK = LVAL
2193 ELSEIF(FLAG5.EQ.'CLOWQ' ) THEN
2194 LCLOWQ = LVAL
2195 ELSEIF(FLAG5.EQ.'ASOLD' ) THEN
2196 LASOLD = LVAL
2197 LALFOK = .FALSE.
2198 ELSE
2199 IERR = 2
2200 GOTO 500
2201 ENDIF
2202
2203C --------------------------
2204 ELSEIF(OPT1.EQ.'G') THEN !
2205C --------------------------
2206
2207 IF (FLAG5.EQ.'W1ANA' ) THEN
2208 LVAL = LW1ANA
2209 ELSEIF(FLAG5.EQ.'W1NUM' ) THEN
2210 LVAL = LW1NUM
2211 ELSEIF(FLAG5.EQ.'W2NUM' ) THEN
2212 LVAL = LW2NUM
2213 ELSEIF(FLAG5.EQ.'W2STF' ) THEN
2214 LVAL = LW2STF
2215 ELSEIF(FLAG5.EQ.'WTF2C' ) THEN
2216 LVAL = LWF2C
2217 ELSEIF(FLAG5.EQ.'WTFLC' ) THEN
2218 LVAL = LWFLC
2219 ELSEIF(FLAG5.EQ.'WTF2B' ) THEN
2220 LVAL = LWF2B
2221 ELSEIF(FLAG5.EQ.'WTFLB' ) THEN
2222 LVAL = LWFLB
2223 ELSEIF(FLAG5.EQ.'BMARK' ) THEN
2224 LVAL = LBMARK
2225 ELSEIF(FLAG5.EQ.'LIMCK' ) THEN
2226 LVAL = LIMCK
2227 ELSEIF(FLAG5.EQ.'CLOWQ' ) THEN
2228 LVAL = LCLOWQ
2229 ELSEIF(FLAG5.EQ.'ASOLD' ) THEN
2230 LVAL = LASOLD
2231 ELSE
2232 IERR = 2
2233 GOTO 500
2234 ENDIF
2235
2236C ------
2237 ELSE !
2238C ------
2239
2240 IERR = 1
2241 GOTO 500
2242
2243C -------
2244 ENDIF !
2245C -------
2246
2247 RETURN
2248
2249 500 CONTINUE
2250
2251 WRITE(6,'(/'' ------------------------------------'')')
2252 WRITE(6,'( '' QCDNUM error in s/r QNLVAL ---> STOP'')')
2253 WRITE(6,'( '' ------------------------------------'')')
2254 WRITE(6,'( '' Input OPT : '',A )') OPT
2255 WRITE(6,'( '' VAR : '',A )') FLAG
2256 WRITE(6,'( '' VAL : '',L2 )') LVAL
2257 IF(IERR.EQ.1) THEN
2258 WRITE(6,'(/'' OPT should be either SET or GET '')')
2259 ELSEIF(IERR.EQ.2) THEN
2260 WRITE(6,'(/'' Variable VAR not found'')')
2261 ENDIF
2262
2263 CALL QTRACE('QNLVAL ',1)
2264
2265 STOP
2266
2267 END
2268
2269CDECK ID>, QNLSET.
2270
2271C ============================
2272 SUBROUTINE QNLSET(FLAG,LVAL)
2273C ============================
2274
2275 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2276
2277 CHARACTER*(*) FLAG
2278 LOGICAL LVAL
2279
2280 CALL QTRACE('QNLSET ',0)
2281
2282 CALL QNLVAL('SET',FLAG,LVAL)
2283
2284 RETURN
2285 END
2286
2287CDECK ID>, QNLGET.
2288
2289C ============================
2290 SUBROUTINE QNLGET(FLAG,LVAL)
2291C ============================
2292
2293 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2294
2295 CHARACTER*(*) FLAG
2296 LOGICAL LVAL
2297
2298 CALL QTRACE('QNLGET ',0)
2299
2300 CALL QNLVAL('GET',FLAG,LVAL)
2301
2302 RETURN
2303 END
2304
2305CDECK ID>, GRMXMQ.
2306
2307C ============================
2308 SUBROUTINE GRMXMQ(NXMA,NQMA)
2309C ============================
2310
2311C--- GRMXMQ: return max allowed number of x, Q2 gridpoints.
2312C--- Called by user.
2313C--- MXX and MQ2 are set by parameter statement in common QCNXQM.
2314
2315 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2316
2317
2318 PARAMETER ( MXX = 410 )
2319 PARAMETER ( MQ2 = 120 )
2320
2321C-- Do not set the following parameter to zero!
2322 PARAMETER ( NDFMAX = 20)
2323
2324
2325 COMMON/QCGRID/
2326 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2327 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2328 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2329 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2330
2331
2332 CALL QTRACE('GRMXMQ ',0)
2333
2334 NXMA = MXX-1
2335 NQMA = MQ2-1
2336
2337 RETURN
2338 END
2339
2340CDECK ID>, GRGIVE.
2341
2342C ========================================
2343 SUBROUTINE GRGIVE(NX,XMI,XMA,NQ,QMI,QMA)
2344C ========================================
2345
2346C--- GRGIVE: return current grid definition.
2347C--- Called by user.
2348C--- Output variables: NX (integer) number of x gridpoints.
2349C--- XMI (real or d.p.) lowest x value.
2350C--- XMA (real or d.p.) highest x value = 1.
2351C--- NQ (integer) number of Q2 gridpoints.
2352C--- QMI (real or d.p.) lowest Q2 value.
2353C--- QMA (real or d.p.) highest Q2 value.
2354
2355 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2356
2357
2358 PARAMETER ( MXX = 410 )
2359 PARAMETER ( MQ2 = 120 )
2360
2361C-- Do not set the following parameter to zero!
2362 PARAMETER ( NDFMAX = 20)
2363
2364
2365 COMMON/QCGRID/
2366 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2367 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2368 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2369 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2370
2371
2372 CALL QTRACE('GRGIVE ',0)
2373
2374 NX = NXX
2375 XMI = XXTAB(1)
2376 XMA = XXTAB(NXX+1)
2377 NQ = NQ2
2378 QMI = Q2TAB(1)
2379 QMA = Q2TAB(NQ2)
2380
2381 RETURN
2382 END
2383
2384CDECK ID>, GRXNUL.
2385
2386C =================
2387 SUBROUTINE GRXNUL
2388C =================
2389
2390 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2391
2392
2393 LOGICAL
2394 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2395 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2396 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2397 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2398 +LFFCAL,LASOLD
2399
2400 COMMON/QCFLAG/
2401 +IORD,IOLAST,
2402 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2403 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2404 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2405 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2406 +LFFCAL(7,30),LASOLD
2407
2408
2409 PARAMETER ( MXX = 410 )
2410 PARAMETER ( MQ2 = 120 )
2411
2412C-- Do not set the following parameter to zero!
2413 PARAMETER ( NDFMAX = 20)
2414
2415
2416 COMMON/QCGRID/
2417 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2418 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2419 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2420 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2421
2422
2423 COMMON/QCPASS/
2424 +ALPHA0, Q0ALFA, ASLAST, QALAST,
2425 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
2426 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
2427 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
2428 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
2429 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
2430 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
2431 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
2432 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
2433 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
2434
2435 LOGICAL LEVDONE,LE_DONE
2436 COMMON/QCLEVL/
2437 +LEVDONE(MXX,10),LE_DONE(MXX)
2438
2439
2440 CALL QTRACE('GRXNUL ',0)
2441
2442C--- Invalidate weight tables (validated by call to QNFILW)
2443 LWT1OK = .FALSE.
2444 LWT2OK = .FALSE.
2445 LWTFOK = .FALSE.
2446 LWFCOK = .FALSE.
2447 LWLCOK = .FALSE.
2448 LWFBOK = .FALSE.
2449 LWLBOK = .FALSE.
2450 LMARK = .FALSE.
2451C-- Invalidate all evolutions
2452 CALL QNFALS(LEVDONE,MXX*10)
2453
2454C--- Set grid to zero
2455 CALL QNVNUL(XXTAB,MXX)
2456 CALL QNVNUL(XHTAB,MXX)
2457 CALL QNINUL(IHTAB,MXX)
2458 NXX = 0
2459 NGRVER = 0
2460
2461C--- Update IFAILC
2462 CALL GRSETC
2463
2464C--- Update NFMAP
2465 CALL QNSETT
2466
2467
2468 RETURN
2469 END
2470
2471CDECK ID>, GRXINP.
2472
2473C ============================
2474 SUBROUTINE GRXINP(XARRAY,NX)
2475C ============================
2476
2477 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2478
2479
2480 LOGICAL
2481 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2482 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2483 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2484 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2485 +LFFCAL,LASOLD
2486
2487 COMMON/QCFLAG/
2488 +IORD,IOLAST,
2489 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2490 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2491 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2492 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2493 +LFFCAL(7,30),LASOLD
2494
2495
2496 PARAMETER ( MXX = 410 )
2497 PARAMETER ( MQ2 = 120 )
2498
2499C-- Do not set the following parameter to zero!
2500 PARAMETER ( NDFMAX = 20)
2501
2502
2503 COMMON/QCGRID/
2504 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2505 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2506 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2507 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2508
2509
2510 COMMON/QCPASS/
2511 +ALPHA0, Q0ALFA, ASLAST, QALAST,
2512 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
2513 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
2514 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
2515 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
2516 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
2517 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
2518 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
2519 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
2520 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
2521
2522 LOGICAL LEVDONE,LE_DONE
2523 COMMON/QCLEVL/
2524 +LEVDONE(MXX,10),LE_DONE(MXX)
2525
2526
2527 DIMENSION XARRAY(*)
2528
2529 DATA EPSI /1.E-6/
2530
2531 CALL QTRACE('GRXINP ',0)
2532
2533 IF(NX.LE.0) THEN
2534 IERR = 1
2535 GOTO 500
2536 ENDIF
2537
2538 IF((NX+NXX).GT.MXX-1) THEN
2539 IERR = 2
2540 GOTO 500
2541 ENDIF
2542
2543C--- Invalidate weight tables (validated by call to QNFILW)
2544 LWT1OK = .FALSE.
2545 LWT2OK = .FALSE.
2546 LWTFOK = .FALSE.
2547 LWFCOK = .FALSE.
2548 LWLCOK = .FALSE.
2549 LWFBOK = .FALSE.
2550 LWLBOK = .FALSE.
2551 LMARK = .FALSE.
2552C-- Invalidate all evolutions
2553 CALL QNFALS(LEVDONE,MXX*10)
2554
2555C--- if this number changes, QCDNUM knows that the grid has changed
2556 NGRVER = NGRVER + 1
2557
2558 IF(NXX.EQ.0) THEN
2559 DO 10 IX = 1,NX
2560 X = XARRAY(IX)
2561 IF(X.LE.0..OR.X.GT.1.) THEN
2562 IERR = 3
2563 GOTO 500
2564 ENDIF
2565 NXX = NXX+1
2566 XXTAB(IX) = X
2567 10 CONTINUE
2568 IF(XXTAB(NXX).EQ.1.) THEN
2569 NXX = NXX-1
2570 ELSE
2571 XXTAB(NXX+1) = 1.
2572 ENDIF
2573 RETURN
2574 ENDIF
2575
2576 IF(XXTAB(NXX).EQ.1.) THEN
2577 NXX = NXX-1
2578 ELSE
2579 XXTAB(NXX+1) = 1.
2580 ENDIF
2581
2582 NXP = NXX+1
2583
2584 DO 100 IX = 1,NX
2585
2586 X = XARRAY(IX)
2587
2588 IF(X.LE.0..OR.X.GT.1.) THEN
2589 IERR = 3
2590 GOTO 500
2591 ENDIF
2592
2593*mb IF(X.LT.XXTAB(1)-EPSI) THEN
2594 IF(X/XXTAB(1).LT.1.-EPSI) THEN
2595
2596 DO 20 JX = NXP,1,-1
2597 XXTAB(JX+1) = XXTAB(JX)
2598 20 CONTINUE
2599 NXP = NXP+1
2600 XXTAB(1) = X
2601
2602*mb ELSEIF(X.GT.XXTAB(NXP)+EPSI) THEN
2603 ELSEIF(X/XXTAB(NXP).GT.1.+EPSI) THEN
2604
2605 NXP = NXP+1
2606 XXTAB(NXP) = X
2607
2608 ELSE
2609
2610 DO 30 I = 1,NXP
2611*mb IF(XXTAB(I).LE.X+EPSI) IX0 = I
2612 IF(XXTAB(I)/X.LE.1.+EPSI) IX0 = I
2613 30 CONTINUE
2614
2615*mb IF(ABS(XXTAB(IX0)-X).LE.EPSI) THEN
2616 IF(ABS(XXTAB(IX0)/X-1.).LE.EPSI) THEN
2617 XXTAB(IX0) = X
2618 ELSE
2619 DO 40 JX = NXP,IX0+1,-1
2620 XXTAB(JX+1) = XXTAB(JX)
2621 40 CONTINUE
2622 NXP = NXP+1
2623 XXTAB(IX0+1) = X
2624 ENDIF
2625
2626 ENDIF
2627
2628 100 CONTINUE
2629
2630 IF(XXTAB(NXP).EQ.1.) THEN
2631 NXX = NXP-1
2632 ELSE
2633 NXX = NXP
2634 XXTAB(NXX+1) = 1.
2635 ENDIF
2636
2637C--- Update IFAILC
2638 CALL GRSETC
2639
2640C--- Update NFMAP
2641 CALL QNSETT
2642
2643C--- Update heavy quark xgrid
2644 CALL GXHDEF
2645
2646 RETURN
2647
2648 500 CONTINUE
2649
2650 WRITE(6,'(/'' ------------------------------------'')')
2651 WRITE(6,'( '' QCDNUM error in s/r GRXINP ---> STOP'')')
2652 WRITE(6,'( '' ------------------------------------'')')
2653 WRITE(6,'( '' Input X :'',E12.5)') X
2654 WRITE(6,'( '' NX :'',I5 )') NX
2655 IF(IERR.EQ.1) THEN
2656 WRITE(6,'(/'' NX must be .ge. 1'')')
2657 ELSEIF(IERR.EQ.2) THEN
2658 WRITE(6,'(/'' Maximum number of gridpoints exceeded '')')
2659 WRITE(6,'(/'' # existing x gridpoints ='',I5/
2660 + '' # points to be added ='',I5/
2661 + '' maximum # points allowed ='',I5)')
2662 + NXX, NX, MXX-1
2663 ELSEIF(IERR.EQ.3) THEN
2664 WRITE(6,'(/'' Value of X outside allowed range (0,1]'')')
2665 ENDIF
2666
2667 CALL QTRACE('GRXINP ',1)
2668
2669 STOP
2670
2671 END
2672
2673CDECK ID>, GRXDEF.
2674
2675C ==========================
2676 SUBROUTINE GRXDEF(NX,XMIN)
2677C ==========================
2678
2679 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2680
2681
2682 LOGICAL
2683 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2684 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2685 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2686 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2687 +LFFCAL,LASOLD
2688
2689 COMMON/QCFLAG/
2690 +IORD,IOLAST,
2691 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2692 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2693 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2694 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2695 +LFFCAL(7,30),LASOLD
2696
2697
2698 PARAMETER ( MXX = 410 )
2699 PARAMETER ( MQ2 = 120 )
2700
2701C-- Do not set the following parameter to zero!
2702 PARAMETER ( NDFMAX = 20)
2703
2704
2705 COMMON/QCGRID/
2706 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2707 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2708 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2709 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2710
2711
2712 COMMON/QCPASS/
2713 +ALPHA0, Q0ALFA, ASLAST, QALAST,
2714 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
2715 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
2716 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
2717 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
2718 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
2719 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
2720 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
2721 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
2722 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
2723
2724 LOGICAL LEVDONE,LE_DONE
2725 COMMON/QCLEVL/
2726 +LEVDONE(MXX,10),LE_DONE(MXX)
2727
2728
2729 CALL QTRACE('GRXDEF ',0)
2730
2731 IF(NX.LE.0) THEN
2732 IERR = 1
2733 GOTO 500
2734 ENDIF
2735
2736 IF(NX.GT.MXX-1) THEN
2737 IERR = 2
2738 GOTO 500
2739 ENDIF
2740
2741 IF(XMIN.LE.0.OR.XMIN.GE.1.) THEN
2742 IERR = 3
2743 GOTO 500
2744 ENDIF
2745
2746C--- Invalidate weight tables (validated by call to QNFILW)
2747 LWT1OK = .FALSE.
2748 LWT2OK = .FALSE.
2749 LWTFOK = .FALSE.
2750 LWFCOK = .FALSE.
2751 LWLCOK = .FALSE.
2752 LWFBOK = .FALSE.
2753 LWLBOK = .FALSE.
2754 LMARK = .FALSE.
2755C-- Invalidate all evolutions
2756 CALL QNFALS(LEVDONE,MXX*10)
2757
2758C--- if this number changes, QCDNUM knows that the grid has changed
2759 NGRVER = NGRVER + 1
2760
2761 XMAX = 1.
2762 YMIN = SYFROMX(XMIN)
2763 YMAX = SYFROMX(XMAX)
2764 BW = (YMAX-YMIN)/NX
2765 DO I = 1,NX
2766 YI = YMIN+(I-1)*BW
2767 XXTAB(I) = SXFROMY(YI)
2768 ENDDO
2769 XXTAB(1) = XMIN
2770 XXTAB(NX+1) = 1.
2771 NXX = NX
2772
2773C--- Update IFAILC
2774 CALL GRSETC
2775
2776C--- Update NFMAP
2777 CALL QNSETT
2778
2779C--- Update heavy quark xgrid
2780 CALL GXHDEF
2781
2782 RETURN
2783
2784 500 CONTINUE
2785
2786 WRITE(6,'(/'' ------------------------------------'')')
2787 WRITE(6,'( '' QCDNUM error in s/r GRXDEF ---> STOP'')')
2788 WRITE(6,'( '' ------------------------------------'')')
2789 WRITE(6,'( '' Input NX :'',I5 )') NX
2790 WRITE(6,'( '' Xmin :'',E12.5)') XMIN
2791 IF(IERR.EQ.1) THEN
2792 WRITE(6,'(/'' NX must be .ge. 1'')')
2793 ELSEIF(IERR.EQ.2) THEN
2794 WRITE(6,'(/'' NX > max number of gridpoints'',
2795 + '' allowed:'',I5)') MXX-1
2796 ELSEIF(IERR.EQ.3) THEN
2797 WRITE(6,'(/'' Xmin outside allowed range (0,1]'')')
2798 ENDIF
2799
2800 CALL QTRACE('GRXDEF ',1)
2801
2802 STOP
2803
2804 END
2805
2806CDECK ID>, GRXLIM.
2807
2808C ==========================
2809 SUBROUTINE GRXLIM(NX,XMIN)
2810C ==========================
2811
2812 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
2813
2814
2815 LOGICAL
2816 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2817 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2818 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2819 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2820 +LFFCAL,LASOLD
2821
2822 COMMON/QCFLAG/
2823 +IORD,IOLAST,
2824 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
2825 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
2826 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
2827 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
2828 +LFFCAL(7,30),LASOLD
2829
2830
2831 PARAMETER ( MXX = 410 )
2832 PARAMETER ( MQ2 = 120 )
2833
2834C-- Do not set the following parameter to zero!
2835 PARAMETER ( NDFMAX = 20)
2836
2837
2838 COMMON/QCGRID/
2839 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
2840 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
2841 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
2842 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
2843
2844
2845 COMMON/QCPASS/
2846 +ALPHA0, Q0ALFA, ASLAST, QALAST,
2847 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
2848 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
2849 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
2850 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
2851 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
2852 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
2853 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
2854 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
2855 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
2856
2857 LOGICAL LEVDONE,LE_DONE
2858 COMMON/QCLEVL/
2859 +LEVDONE(MXX,10),LE_DONE(MXX)
2860
2861
2862 DATA EPSI / 1.E-6 /
2863
2864 CALL QTRACE('GRXLIM ',0)
2865
2866 IF(NX.LE.0) THEN
2867 IERR = 1
2868 GOTO 500
2869 ENDIF
2870
2871 IF(NX.GT.MXX-1) THEN
2872 IERR = 2
2873 GOTO 500
2874 ENDIF
2875
2876C--- Invalidate weight tables (validated by call to QNFILW)
2877 LWT1OK = .FALSE.
2878 LWT2OK = .FALSE.
2879 LWTFOK = .FALSE.
2880 LWFCOK = .FALSE.
2881 LWLCOK = .FALSE.
2882 LWFBOK = .FALSE.
2883 LWLBOK = .FALSE.
2884 LMARK = .FALSE.
2885C-- Invalidate all evolutions
2886 CALL QNFALS(LEVDONE,MXX*10)
2887
2888 IF(XMIN.LE.0.OR.XMIN.GE.1.) THEN
2889 IERR = 3
2890 GOTO 500
2891 ENDIF
2892
2893C--- if this number changes, QCDNUM knows that the grid has changed
2894 NGRVER = NGRVER + 1
2895
2896 IF(NXX.EQ.0) THEN
2897 XXTAB(1) = 1.
2898 ELSEIF(XXTAB(NXX).EQ.1.) THEN
2899 NXX = NXX-1
2900 ELSE
2901 XXTAB(NXX+1) = 1.
2902 ENDIF
2903
2904 NXP = NXX+1
2905
2906*mb IF(XMIN.LT.XXTAB(1)-EPSI) THEN
2907 IF(XMIN/XXTAB(1).LT.1.-EPSI) THEN
2908 DO 20 IX = NXP,1,-1
2909 XXTAB(IX+1) = XXTAB(IX)
2910 20 CONTINUE
2911 NXP = NXP+1
2912 XXTAB(1) = XMIN
2913 ENDIF
2914
2915 IF(NX.GT.NXP-1) THEN
2916 30 CONTINUE
2917 GAPMAX = 0.
2918 DO 35 IX = 1,NXP-1
2919 GAP = SYFROMX(XXTAB(IX+1))-SYFROMX(XXTAB(IX))
2920 IF(GAP.GT.GAPMAX) THEN
2921 GAPMAX = GAP
2922 IX0 = IX
2923 ENDIF
2924 35 CONTINUE
2925 DO 40 IX = NXP,IX0+1,-1
2926 XXTAB(IX+1) = XXTAB(IX)
2927 40 CONTINUE
2928 NXP = NXP+1
2929 XXTAB(IX0+1) = 0.5*(XXTAB(IX0)+XXTAB(IX0+2))
2930 IF(NXP-1.LT.NX) GOTO 30
2931
2932 ELSEIF(NX.LT.NXP-1) THEN
2933 50 CONTINUE
2934 GAPMIN = 999999.
2935 DO 55 IX = 2,NXP-1
2936 GAP = SYFROMX(XXTAB(IX+1))-SYFROMX(XXTAB(IX-1))
2937 IF(GAP.LE.GAPMIN) THEN
2938 GAPMIN = GAP
2939 IX0 = IX
2940 ENDIF
2941 55 CONTINUE
2942 DO 60 IX = IX0,NXP-1
2943 XXTAB(IX) = XXTAB(IX+1)
2944 60 CONTINUE
2945 XXTAB(NXP) = 0.
2946 NXP = NXP-1
2947 IF(NXP-1.GT.NX) GOTO 50
2948 ENDIF
2949
2950 IF(XXTAB(NXP).EQ.1.) THEN
2951 NXX = NXP-1
2952 ELSE
2953 NXX = NXP
2954 XXTAB(NXX+1) = 1.
2955 ENDIF
2956
2957C--- Update IFAILC
2958 CALL GRSETC
2959
2960C--- Update NFMAP
2961 CALL QNSETT
2962
2963C--- Update heavy quark xgrid
2964 CALL GXHDEF
2965
2966 RETURN
2967
2968 500 CONTINUE
2969
2970 WRITE(6,'(/'' ------------------------------------'')')
2971 WRITE(6,'( '' QCDNUM error in s/r GRXLIM ---> STOP'')')
2972 WRITE(6,'( '' ------------------------------------'')')
2973 WRITE(6,'( '' Input NX :'',I5 )') NX
2974 WRITE(6,'( '' Xmin :'',E12.5)') XMIN
2975 IF(IERR.EQ.1) THEN
2976 WRITE(6,'(/'' NX must be .ge. 1'')')
2977 ELSEIF(IERR.EQ.2) THEN
2978 WRITE(6,'(/'' NX > max number of gridpoints'',
2979 + '' allowed:'',I5)') MXX-1
2980 ELSEIF(IERR.EQ.3) THEN
2981 WRITE(6,'(/'' Xmin outside allowed range (0,1]'')')
2982 ENDIF
2983
2984 CALL QTRACE('GRXLIM ',1)
2985
2986 STOP
2987
2988 END
2989
2990CDECK ID>, GXHDEF.
2991
2992C =================
2993 SUBROUTINE GXHDEF
2994C =================
2995
2996C-- Create a purely logarithmic grid in x (XHTAB) for use
2997C-- in the heavy quark structure function calculations.
2998
2999 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3000
3001
3002 PARAMETER ( MXX = 410 )
3003 PARAMETER ( MQ2 = 120 )
3004
3005C-- Do not set the following parameter to zero!
3006 PARAMETER ( NDFMAX = 20)
3007
3008
3009 COMMON/QCGRID/
3010 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3011 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3012 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3013 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3014
3015
3016 IF(NXX.EQ.0.OR.NXX.GE.MXX) RETURN
3017 IF(XXTAB(1).LE.0..OR.XXTAB(1).GE.1.) RETURN
3018
3019 XL1 = LOG(XXTAB(1))
3020 XL2 = 0.
3021 BW = (XL2-XL1)/NXX
3022
3023 DO IX = 1,NXX
3024 XL = XL1 + (IX-1)*BW
3025 XHTAB(IX) = EXP(XL)
3026 IHTAB(IX) = ABS(IXFROMX(XHTAB(IX)))
3027 ENDDO
3028 XHTAB(NXX+1) = 1.
3029 IHTAB(NXX+1) = NXX+1
3030
3031 RETURN
3032 END
3033
3034
3035CDECK ID>, SYFROMX.
3036
3037C ====================================
3038 DOUBLE PRECISION FUNCTION SYFROMX(X)
3039C ====================================
3040 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3041
3042
3043 PARAMETER ( MXX = 410 )
3044 PARAMETER ( MQ2 = 120 )
3045
3046C-- Do not set the following parameter to zero!
3047 PARAMETER ( NDFMAX = 20)
3048
3049
3050 COMMON/QCGRID/
3051 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3052 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3053 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3054 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3055
3056
3057 IF(X.LE.SCAX0) THEN
3058 SYFROMX = LOG(X)
3059 ELSE
3060 SYFROMX = LOG(SCAX0) + (X-SCAX0)/SCAX0
3061 ENDIF
3062
3063 RETURN
3064 END
3065
3066CDECK ID>, SXFROMY.
3067
3068C ====================================
3069 DOUBLE PRECISION FUNCTION SXFROMY(Y)
3070C ====================================
3071 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3072
3073
3074 PARAMETER ( MXX = 410 )
3075 PARAMETER ( MQ2 = 120 )
3076
3077C-- Do not set the following parameter to zero!
3078 PARAMETER ( NDFMAX = 20)
3079
3080
3081 COMMON/QCGRID/
3082 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3083 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3084 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3085 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3086
3087
3088 IF(Y.LE.LOG(SCAX0)) THEN
3089 SXFROMY = EXP(Y)
3090 ELSE
3091 SXFROMY = (Y-LOG(SCAX0)+1.) * SCAX0
3092 ENDIF
3093
3094 RETURN
3095 END
3096
3097CDECK ID>, GRXOUT.
3098
3099C =========================
3100 SUBROUTINE GRXOUT(XARRAY)
3101C =========================
3102
3103C--- Copy XXTAB to XARRAY which should have been dimensioned
3104C--- to at least NXX+1 by the user.
3105
3106 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3107
3108
3109 LOGICAL
3110 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3111 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3112 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3113 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3114 +LFFCAL,LASOLD
3115
3116 COMMON/QCFLAG/
3117 +IORD,IOLAST,
3118 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3119 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3120 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3121 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3122 +LFFCAL(7,30),LASOLD
3123
3124
3125 PARAMETER ( MXX = 410 )
3126 PARAMETER ( MQ2 = 120 )
3127
3128C-- Do not set the following parameter to zero!
3129 PARAMETER ( NDFMAX = 20)
3130
3131
3132 COMMON/QCGRID/
3133 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3134 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3135 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3136 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3137
3138
3139 DIMENSION XARRAY(*)
3140
3141 CALL QTRACE('GRXOUT ',0)
3142
3143 DO 10 IX = 1,NXX+1
3144 XARRAY(IX) = XXTAB(IX)
3145 10 CONTINUE
3146
3147 RETURN
3148 END
3149
3150CDECK ID>, LOGXGR.
3151
3152C ===============================
3153 LOGICAL FUNCTION LOGXGR(IDUMMY)
3154C ===============================
3155
3156C--- Figure out if xgrid is purely logarithmic
3157
3158 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3159
3160 REAL RAT1,RAT
3161
3162
3163 PARAMETER ( MXX = 410 )
3164 PARAMETER ( MQ2 = 120 )
3165
3166C-- Do not set the following parameter to zero!
3167 PARAMETER ( NDFMAX = 20)
3168
3169
3170 COMMON/QCGRID/
3171 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3172 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3173 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3174 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3175
3176
3177 LOGXGR = .FALSE.
3178
3179 IF(NXX.LE.0) RETURN
3180
3181 RAT1 = XXTAB(2)/XXTAB(1)
3182 LOGXGR = .TRUE.
3183 DO IX = 1,NXX
3184 RAT = XXTAB(IX+1)/XXTAB(IX)
3185 IF(RAT.NE.RAT1) LOGXGR = .FALSE.
3186 ENDDO
3187
3188 RETURN
3189 END
3190
3191CDECK ID>, GRQNUL.
3192
3193C =================
3194 SUBROUTINE GRQNUL
3195C =================
3196
3197 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3198
3199
3200 LOGICAL
3201 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3202 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3203 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3204 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3205 +LFFCAL,LASOLD
3206
3207 COMMON/QCFLAG/
3208 +IORD,IOLAST,
3209 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3210 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3211 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3212 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3213 +LFFCAL(7,30),LASOLD
3214
3215
3216 PARAMETER ( MXX = 410 )
3217 PARAMETER ( MQ2 = 120 )
3218
3219C-- Do not set the following parameter to zero!
3220 PARAMETER ( NDFMAX = 20)
3221
3222
3223 COMMON/QCGRID/
3224 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3225 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3226 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3227 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3228
3229
3230 COMMON/QCPASS/
3231 +ALPHA0, Q0ALFA, ASLAST, QALAST,
3232 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
3233 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
3234 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
3235 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
3236 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
3237 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
3238 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
3239 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
3240 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
3241
3242 LOGICAL LEVDONE,LE_DONE
3243 COMMON/QCLEVL/
3244 +LEVDONE(MXX,10),LE_DONE(MXX)
3245
3246
3247 CALL QTRACE('GRQNUL ',0)
3248
3249C--- Invalidate weight tables (validated by call to QNFILW)
3250 LALFOK = .FALSE.
3251 LDQ2OK = .FALSE.
3252 LWFCOK = .FALSE.
3253 LWLCOK = .FALSE.
3254 LWFBOK = .FALSE.
3255 LWLBOK = .FALSE.
3256 LMARK = .FALSE.
3257C-- Invalidate all evolutions
3258 CALL QNFALS(LEVDONE,MXX*10)
3259
3260C--- Set grid to zero
3261 CALL QNVNUL(Q2TAB,MQ2)
3262 NQ2 = 0
3263 NGRVER = 0
3264
3265C--- Update IFAILC
3266 CALL GRSETC
3267
3268C--- Update NFMAP
3269 CALL QNSETT
3270
3271
3272 RETURN
3273 END
3274
3275CDECK ID>, GRQINP.
3276C
3277C ============================
3278 SUBROUTINE GRQINP(QARRAY,NQ)
3279C ============================
3280
3281 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3282
3283
3284 LOGICAL
3285 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3286 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3287 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3288 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3289 +LFFCAL,LASOLD
3290
3291 COMMON/QCFLAG/
3292 +IORD,IOLAST,
3293 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3294 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3295 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3296 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3297 +LFFCAL(7,30),LASOLD
3298
3299
3300 PARAMETER ( MXX = 410 )
3301 PARAMETER ( MQ2 = 120 )
3302
3303C-- Do not set the following parameter to zero!
3304 PARAMETER ( NDFMAX = 20)
3305
3306
3307 COMMON/QCGRID/
3308 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3309 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3310 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3311 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3312
3313
3314 COMMON/QCPASS/
3315 +ALPHA0, Q0ALFA, ASLAST, QALAST,
3316 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
3317 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
3318 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
3319 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
3320 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
3321 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
3322 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
3323 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
3324 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
3325
3326 LOGICAL LEVDONE,LE_DONE
3327 COMMON/QCLEVL/
3328 +LEVDONE(MXX,10),LE_DONE(MXX)
3329
3330
3331 DIMENSION QARRAY(*)
3332
3333 DATA EPSI /1.E-6/
3334
3335 CALL QTRACE('GRQINP ',0)
3336
3337 IF(NQ.LE.0) THEN
3338 IERR = 1
3339 GOTO 500
3340 ENDIF
3341
3342 IF((NQ+NQ2).GT.MQ2-1) THEN
3343 IERR = 2
3344 GOTO 500
3345 ENDIF
3346
3347C--- Invalidate weight tables (validated by call to QNFILW)
3348 LALFOK = .FALSE.
3349 LDQ2OK = .FALSE.
3350 LWFCOK = .FALSE.
3351 LWLCOK = .FALSE.
3352 LWFBOK = .FALSE.
3353 LWLBOK = .FALSE.
3354 LMARK = .FALSE.
3355C-- Invalidate all evolutions
3356 CALL QNFALS(LEVDONE,MXX*10)
3357
3358C--- if this number changes, QCDNUM knows that the grid has changed
3359 NGRVER = NGRVER + 1
3360
3361 IF(NQ2.EQ.0) THEN
3362 DO 10 IQ = 1,NQ
3363 Q = QARRAY(IQ)
3364 IF(Q.LE.0.) THEN
3365 IERR = 3
3366 GOTO 500
3367 ENDIF
3368 NQ2 = NQ2+1
3369 Q2TAB(IQ) = Q
3370 10 CONTINUE
3371 RETURN
3372 ENDIF
3373
3374 DO 100 IQ = 1,NQ
3375
3376 Q = QARRAY(IQ)
3377
3378 IF(Q.LE.0.) THEN
3379 IERR = 3
3380 GOTO 500
3381 ENDIF
3382
3383*mb IF(Q.LT.Q2TAB(1)-EPSI) THEN
3384 IF(Q/Q2TAB(1).LT.1.-EPSI) THEN
3385
3386 DO 20 JQ = NQ2,1,-1
3387 Q2TAB(JQ+1) = Q2TAB(JQ)
3388 20 CONTINUE
3389 NQ2 = NQ2+1
3390 Q2TAB(1) = Q
3391
3392*mb ELSEIF(Q.GT.Q2TAB(NQ2)+EPSI) THEN
3393 ELSEIF(Q/Q2TAB(NQ2).GT.1.+EPSI) THEN
3394
3395 NQ2 = NQ2+1
3396 Q2TAB(NQ2) = Q
3397
3398 ELSE
3399
3400 DO 30 I = 1,NQ2
3401*mb IF(Q2TAB(I).LE.Q+EPSI) IQ0 = I
3402 IF(Q2TAB(I)/Q.LE.1.+EPSI) IQ0 = I
3403 30 CONTINUE
3404
3405*mb IF(ABS(Q2TAB(IQ0)-Q).LE.EPSI) THEN
3406 IF(ABS(Q2TAB(IQ0)/Q-1.).LE.EPSI) THEN
3407 Q2TAB(IQ0) = Q
3408 ELSE
3409 DO 40 JQ = NQ2,IQ0+1,-1
3410 Q2TAB(JQ+1) = Q2TAB(JQ)
3411 40 CONTINUE
3412 NQ2 = NQ2+1
3413 Q2TAB(IQ0+1) = Q
3414 ENDIF
3415
3416 ENDIF
3417
3418 100 CONTINUE
3419
3420C--- Update IFAILC
3421 CALL GRSETC
3422
3423C--- Update NFMAP
3424 CALL QNSETT
3425
3426 RETURN
3427
3428 500 CONTINUE
3429
3430 WRITE(6,'(/'' ------------------------------------'')')
3431 WRITE(6,'( '' QCDNUM error in s/r GRQINP ---> STOP'')')
3432 WRITE(6,'( '' ------------------------------------'')')
3433 WRITE(6,'( '' Input Q2 :'',E12.5)') Q
3434 WRITE(6,'( '' NQ :'',I5 )') NQ
3435 IF(IERR.EQ.1) THEN
3436 WRITE(6,'(/'' NQ must be .ge. 1'')')
3437 ELSEIF(IERR.EQ.2) THEN
3438 WRITE(6,'(/'' Maximum number of gridpoints exceeded '')')
3439 WRITE(6,'(/'' # existing Q2 gridpoints ='',I5/
3440 + '' # points to be added ='',I5/
3441 + '' maximum # points allowed ='',I5)')
3442 + NQ2, NQ, MQ2-1
3443 ELSEIF(IERR.EQ.3) THEN
3444 WRITE(6,'(/'' Value of Q2 outside allowed range > 0'')')
3445 ENDIF
3446
3447 CALL QTRACE('GRQINP ',1)
3448
3449 STOP
3450
3451 END
3452
3453CDECK ID>, GRQDEF.
3454
3455C ===============================
3456 SUBROUTINE GRQDEF(NQ,QMIN,QMAX)
3457C ===============================
3458
3459 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3460
3461
3462 LOGICAL
3463 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3464 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3465 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3466 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3467 +LFFCAL,LASOLD
3468
3469 COMMON/QCFLAG/
3470 +IORD,IOLAST,
3471 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3472 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3473 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3474 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3475 +LFFCAL(7,30),LASOLD
3476
3477
3478 PARAMETER ( MXX = 410 )
3479 PARAMETER ( MQ2 = 120 )
3480
3481C-- Do not set the following parameter to zero!
3482 PARAMETER ( NDFMAX = 20)
3483
3484
3485 COMMON/QCGRID/
3486 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3487 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3488 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3489 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3490
3491
3492 COMMON/QCPASS/
3493 +ALPHA0, Q0ALFA, ASLAST, QALAST,
3494 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
3495 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
3496 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
3497 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
3498 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
3499 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
3500 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
3501 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
3502 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
3503
3504 LOGICAL LEVDONE,LE_DONE
3505 COMMON/QCLEVL/
3506 +LEVDONE(MXX,10),LE_DONE(MXX)
3507
3508
3509 CALL QTRACE('GRQDEF ',0)
3510
3511 IF(NQ.LE.1) THEN
3512 IERR = 1
3513 GOTO 500
3514 ENDIF
3515
3516 IF(NQ.GT.MQ2-1) THEN
3517 IERR = 2
3518 GOTO 500
3519 ENDIF
3520
3521 IF(QMIN.LE.0.OR.QMAX.LE.0.OR.QMIN.GE.QMAX) THEN
3522 IERR = 3
3523 GOTO 500
3524 ENDIF
3525
3526C--- Invalidate weight tables (validated by call to QNFILW)
3527 LALFOK = .FALSE.
3528 LDQ2OK = .FALSE.
3529 LWFCOK = .FALSE.
3530 LWLCOK = .FALSE.
3531 LWFBOK = .FALSE.
3532 LWLBOK = .FALSE.
3533 LMARK = .FALSE.
3534C-- Invalidate all evolutions
3535 CALL QNFALS(LEVDONE,MXX*10)
3536
3537C--- if this number changes, QCDNUM knows that the grid has changed
3538 NGRVER = NGRVER + 1
3539
3540 YMIN = SYFROMQ(QMIN)
3541 YMAX = SYFROMQ(QMAX)
3542 BW = (YMAX-YMIN)/(NQ-1)
3543 DO I = 1,NQ
3544 YI = YMIN+(I-1)*BW
3545 Q2TAB(I) = SQFROMY(YI)
3546 ENDDO
3547 Q2TAB(1) = QMIN
3548 Q2TAB(NQ) = QMAX
3549 NQ2 = NQ
3550
3551C--- Update IFAILC
3552 CALL GRSETC
3553
3554C--- Update NFMAP
3555 CALL QNSETT
3556
3557 RETURN
3558
3559 500 CONTINUE
3560
3561 WRITE(6,'(/'' ------------------------------------'')')
3562 WRITE(6,'( '' QCDNUM error in s/r GRQDEF ---> STOP'')')
3563 WRITE(6,'( '' ------------------------------------'')')
3564 WRITE(6,'( '' Input NQ :'',I5 )') NQ
3565 WRITE(6,'( '' Q2min :'',E12.5)') QMIN
3566 WRITE(6,'( '' Q2max :'',E12.5)') QMAX
3567 IF(IERR.EQ.1) THEN
3568 WRITE(6,'(/'' NQ must be .ge. 2'')')
3569 ELSEIF(IERR.EQ.2) THEN
3570 WRITE(6,'(/'' NQ > max number of gridpoints'',
3571 + '' allowed:'',I5)') MQ2-1
3572 ELSEIF(IERR.EQ.3) THEN
3573 WRITE(6,'(/'' Qmin and/or Qmax .le. 0 or Qmin .ge. Qmax'')')
3574 ENDIF
3575
3576 CALL QTRACE('GRQDEF ',1)
3577
3578 STOP
3579
3580 END
3581
3582CDECK ID>, GRQLIM.
3583
3584C ===============================
3585 SUBROUTINE GRQLIM(NQ,QMIN,QMAX)
3586C ===============================
3587
3588 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3589
3590
3591 LOGICAL
3592 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3593 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3594 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3595 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3596 +LFFCAL,LASOLD
3597
3598 COMMON/QCFLAG/
3599 +IORD,IOLAST,
3600 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
3601 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
3602 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
3603 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
3604 +LFFCAL(7,30),LASOLD
3605
3606
3607 PARAMETER ( MXX = 410 )
3608 PARAMETER ( MQ2 = 120 )
3609
3610C-- Do not set the following parameter to zero!
3611 PARAMETER ( NDFMAX = 20)
3612
3613
3614 COMMON/QCGRID/
3615 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3616 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3617 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3618 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3619
3620
3621 COMMON/QCPASS/
3622 +ALPHA0, Q0ALFA, ASLAST, QALAST,
3623 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
3624 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
3625 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
3626 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
3627 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
3628 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
3629 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
3630 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
3631 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
3632
3633 LOGICAL LEVDONE,LE_DONE
3634 COMMON/QCLEVL/
3635 +LEVDONE(MXX,10),LE_DONE(MXX)
3636
3637
3638 DATA EPSI /1.E-6/
3639
3640 CALL QTRACE('GRQLIM ',0)
3641
3642 IF(NQ.LE.0) THEN
3643 IERR = 1
3644 GOTO 500
3645 ENDIF
3646
3647 IF(NQ.GT.MQ2-1) THEN
3648 IERR = 2
3649 GOTO 500
3650 ENDIF
3651
3652C--- Invalidate weight tables (validated by call to QNFILW)
3653 LALFOK = .FALSE.
3654 LDQ2OK = .FALSE.
3655 LWFCOK = .FALSE.
3656 LWLCOK = .FALSE.
3657 LWFBOK = .FALSE.
3658 LWLBOK = .FALSE.
3659 LMARK = .FALSE.
3660C-- Invalidate all evolutions
3661 CALL QNFALS(LEVDONE,MXX*10)
3662
3663C--- if this number changes, QCDNUM knows that the grid has changed
3664 NGRVER = NGRVER + 1
3665
3666 IF(NQ2.EQ.0) THEN
3667
3668 IF(QMIN.LE.0..OR.QMAX.LE.0..OR.QMIN.GE.QMAX) THEN
3669 IERR = 3
3670 GOTO 500
3671 ENDIF
3672
3673 CALL GRQDEF(NQ,QMI,QMA)
3674
3675 ELSE
3676
3677 IF(QMIN.LE.0..OR.QMAX.LE.0..OR.QMIN.GE.QMAX) THEN
3678 IERR = 3
3679 GOTO 500
3680 ENDIF
3681
3682*mb IF(QMIN.LT.Q2TAB(1)-EPSI) THEN
3683 IF(QMIN/Q2TAB(1).LT.1.-EPSI) THEN
3684 DO 20 IQ = NQ2,1,-1
3685 Q2TAB(IQ+1) = Q2TAB(IQ)
3686 20 CONTINUE
3687 NQ2 = NQ2+1
3688 Q2TAB(1) = QMIN
3689 ENDIF
3690*mb IF(QMAX.GT.Q2TAB(NQ2)+EPSI) THEN
3691 IF(QMAX/Q2TAB(NQ2).GT.1.+EPSI) THEN
3692 NQ2 = NQ2+1
3693 Q2TAB(NQ2) = QMAX
3694 ENDIF
3695
3696 IF(NQ.GT.NQ2) THEN
3697 30 CONTINUE
3698 GAPMAX = 0.
3699 DO 35 IQ = 1,NQ2-1
3700 GAP = SYFROMQ(Q2TAB(IQ+1))-SYFROMQ(Q2TAB(IQ))
3701 IF(GAP.GT.GAPMAX) THEN
3702 GAPMAX = GAP
3703 IQ0 = IQ
3704 ENDIF
3705 35 CONTINUE
3706 DO 40 IQ = NQ2,IQ0+1,-1
3707 Q2TAB(IQ+1) = Q2TAB(IQ)
3708 40 CONTINUE
3709 NQ2 = NQ2+1
3710 Q2TAB(IQ0+1) = SQRT(Q2TAB(IQ0)*Q2TAB(IQ0+2))
3711 IF(NQ2.LT.NQ) GOTO 30
3712
3713 ELSEIF(NQ.LT.NQ2) THEN
3714 50 CONTINUE
3715 GAPMIN = 999999.
3716 DO 55 IQ = 2,NQ2-1
3717 GAP = SYFROMQ(Q2TAB(IQ+1))-SYFROMQ(Q2TAB(IQ-1))
3718 IF(GAP.LE.GAPMIN) THEN
3719 GAPMIN = GAP
3720 IQ0 = IQ
3721 ENDIF
3722 55 CONTINUE
3723 DO 60 IQ = IQ0,NQ2-1
3724 Q2TAB(IQ) = Q2TAB(IQ+1)
3725 60 CONTINUE
3726 Q2TAB(NQ2) = 0.
3727 NQ2 = NQ2-1
3728 IF(NQ2.GT.NQ) GOTO 50
3729 ENDIF
3730
3731 ENDIF
3732
3733C--- Update IFAILC
3734 CALL GRSETC
3735
3736C--- Update NFMAP
3737 CALL QNSETT
3738
3739 RETURN
3740
3741 500 CONTINUE
3742
3743 WRITE(6,'(/'' ------------------------------------'')')
3744 WRITE(6,'( '' QCDNUM error in s/r GRQLIM ---> STOP'')')
3745 WRITE(6,'( '' ------------------------------------'')')
3746 WRITE(6,'( '' Input NQ :'',I5 )') NQ
3747 WRITE(6,'( '' Q2min :'',E12.5)') QMIN
3748 WRITE(6,'( '' Q2max :'',E12.5)') QMAX
3749 IF(IERR.EQ.1) THEN
3750 WRITE(6,'(/'' NQ must be .ge. 1'')')
3751 ELSEIF(IERR.EQ.2) THEN
3752 WRITE(6,'(/'' NQ > max number of gridpoints'',
3753 + '' allowed:'',I5)') MQ2-1
3754 ELSEIF(IERR.EQ.3) THEN
3755 WRITE(6,'(/'' Qmin and/or Qmax .le. 0 or Qmin .ge. Qmax'')')
3756 ENDIF
3757
3758 CALL QTRACE('GRQLIM ',1)
3759
3760 STOP
3761
3762 END
3763
3764CDECK ID>, SYFROMQ.
3765
3766C ====================================
3767 DOUBLE PRECISION FUNCTION SYFROMQ(Q)
3768C ====================================
3769 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3770
3771
3772 PARAMETER ( MXX = 410 )
3773 PARAMETER ( MQ2 = 120 )
3774
3775C-- Do not set the following parameter to zero!
3776 PARAMETER ( NDFMAX = 20)
3777
3778
3779 COMMON/QCGRID/
3780 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3781 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3782 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3783 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3784
3785
3786 IF(Q.LE.SCAQ0) THEN
3787 SYFROMQ = LOG(Q)
3788 ELSE
3789 SYFROMQ = LOG(SCAQ0) + (Q-SCAQ0)/SCAQ0
3790 ENDIF
3791
3792 RETURN
3793 END
3794
3795CDECK ID>, SQFROMY.
3796
3797C ====================================
3798 DOUBLE PRECISION FUNCTION SQFROMY(Y)
3799C ====================================
3800 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3801
3802
3803 PARAMETER ( MXX = 410 )
3804 PARAMETER ( MQ2 = 120 )
3805
3806C-- Do not set the following parameter to zero!
3807 PARAMETER ( NDFMAX = 20)
3808
3809
3810 COMMON/QCGRID/
3811 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3812 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3813 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3814 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3815
3816
3817 IF(Y.LE.LOG(SCAQ0)) THEN
3818 SQFROMY = EXP(Y)
3819 ELSE
3820 SQFROMY = (Y-LOG(SCAQ0)+1.) * SCAQ0
3821 ENDIF
3822
3823 RETURN
3824 END
3825
3826
3827CDECK ID>, GRQOUT.
3828
3829C =========================
3830 SUBROUTINE GRQOUT(QARRAY)
3831C =========================
3832
3833C--- Copy Q2TAB to QARRAY which should have been dimensioned
3834C--- to at least NQ2 by the user.
3835
3836 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3837
3838
3839 PARAMETER ( MXX = 410 )
3840 PARAMETER ( MQ2 = 120 )
3841
3842C-- Do not set the following parameter to zero!
3843 PARAMETER ( NDFMAX = 20)
3844
3845
3846 COMMON/QCGRID/
3847 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3848 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3849 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3850 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3851
3852
3853 DIMENSION QARRAY(*)
3854
3855 CALL QTRACE('GRQOUT ',0)
3856
3857 DO 10 IQ = 1,NQ2
3858 QARRAY(IQ) = Q2TAB(IQ)
3859 10 CONTINUE
3860
3861 RETURN
3862 END
3863
3864CDECK ID>, IXFROMX.
3865
3866C ===========================
3867 INTEGER FUNCTION IXFROMX(X)
3868C ===========================
3869
3870 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3871
3872C--- Returns gridindex IX given a value for X.
3873C--- If X is outside the current gridboundary then IXFROMX = 0.
3874C--- If X corresponds to gridindex IX then IXFROMX = IX.
3875C--- If X lies above IX and below IX+1 then IXFROMX = -IX.
3876
3877C--- NB: X and XXTAB are different only if |X-XXTAB| < epsi.
3878C--- NB: If since the previous call the grid did not change
3879C--- (i.e. NGRVER is the same) and if X did not change, then
3880C--- IXFROMX just returns the result of the previous call.
3881
3882
3883 PARAMETER ( MXX = 410 )
3884 PARAMETER ( MQ2 = 120 )
3885
3886C-- Do not set the following parameter to zero!
3887 PARAMETER ( NDFMAX = 20)
3888
3889
3890 COMMON/QCGRID/
3891 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
3892 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
3893 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
3894 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
3895
3896
3897 SAVE XLAST,IXLAST,NGLAST
3898
3899 DATA XLAST / 0. /
3900 DATA IXLAST / 0 /
3901 DATA NGLAST / 0 /
3902 DATA EPSI /1.E-6/
3903
3904* CALL QTRACE('IXFROMX',0)
3905
3906 IF(X.EQ.XLAST.AND.NGRVER.EQ.NGLAST) THEN
3907 IXFROMX = IXLAST
3908 RETURN
3909 ENDIF
3910
3911 IX = 0
3912 IXLAST = 0
3913 NGLAST = NGRVER
3914 XLAST = X
3915 IXFROMX = 0
3916
3917 IF(X.GT.1..OR.NXX.LE.0) RETURN
3918 IF(X/XXTAB(1).LT.1.-EPSI) RETURN
3919
3920 DO 10 I = 1,NXX
3921*mb IF(XXTAB(I).LE.X+EPSI) IX = I
3922 IF(XXTAB(I)/X.LE.1.+EPSI) IX = I
3923 10 CONTINUE
3924
3925*mb IF(ABS(XXTAB(IX)-X).LE.EPSI) THEN
3926 IF(ABS(XXTAB(IX)/X-1.).LE.EPSI) THEN
3927 IXFROMX = IX
3928 IXLAST = IX
3929 ELSE
3930 IXFROMX = -IX
3931 IXLAST = -IX
3932 ENDIF
3933
3934 RETURN
3935 END
3936
3937C------------------------------------------------
3938
3939*- REAL XR,X1,X2,XLAST
3940*-
3941*-+SEQ,QCNXQM.
3942*-+SEQ,QCGRID.
3943*-
3944*- SAVE XLAST,IXLAST,NGLAST
3945*-
3946*- DATA XLAST / 0. /
3947*- DATA IXLAST / 0 /
3948*- DATA NGLAST / 0 /
3949*-
3950*-* CALL QTRACE('IXFROMX',0)
3951*-
3952*- XR = X
3953*- IF(XR.EQ.XLAST.AND.NGRVER.EQ.NGLAST) THEN
3954*- IXFROMX = IXLAST
3955*- RETURN
3956*- ENDIF
3957*-
3958*- IX = 0
3959*- IXLAST = 0
3960*- NGLAST = NGRVER
3961*- XLAST = X
3962*- IXFROMX = 0
3963*-
3964*- IF(XR.GT.1..OR.NXX.LE.0) RETURN
3965*- X1 = XXTAB(1)
3966*- IF(XR.LT.X1) RETURN
3967*-
3968*- DO IX = 1,NXX
3969*- X2 = XXTAB(IX+1)
3970*- IF(X1.LE.XR.AND.XR.LT.X2) THEN
3971*- IXFROMX = -IX
3972*- IF(X1.EQ.XR) IXFROMX = IX
3973*- IXLAST = IX
3974*- RETURN
3975*- ENDIF
3976*- X1 = X2
3977*- ENDDO
3978*-
3979*- RETURN
3980*- END
3981
3982CDECK ID>, IHFROMH.
3983
3984C ===========================
3985 INTEGER FUNCTION IHFROMH(X)
3986C ===========================
3987
3988 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
3989
3990C--- Returns gridindex IX of heavy quark grid given a value for X.
3991C--- If X is outside the current gridboundary then IHFROMH = 0.
3992C--- If X corresponds to gridindex IX then IHFROMH = IX.
3993C--- If X lies above IX and below IX+1 then IHFROMH = -IX.
3994
3995C--- NB: X and XHTAB are different only if |X-XHTAB| < epsi.
3996C--- NB: If since the previous call the grid did not change
3997C--- (i.e. NGRVER is the same) and if X did not change, then
3998C--- IHFROMH just returns the result of the previous call.
3999
4000
4001 PARAMETER ( MXX = 410 )
4002 PARAMETER ( MQ2 = 120 )
4003
4004C-- Do not set the following parameter to zero!
4005 PARAMETER ( NDFMAX = 20)
4006
4007
4008 COMMON/QCGRID/
4009 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4010 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4011 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4012 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4013
4014
4015 SAVE XLAST,IXLAST,NGLAST
4016
4017 DATA XLAST / 0. /
4018 DATA IXLAST / 0 /
4019 DATA NGLAST / 0 /
4020 DATA EPSI /1.E-6/
4021
4022* CALL QTRACE('IHFROMH',0)
4023
4024 IF(X.EQ.XLAST.AND.NGRVER.EQ.NGLAST) THEN
4025 IHFROMH = IXLAST
4026 RETURN
4027 ENDIF
4028
4029 IX = 0
4030 IXLAST = 0
4031 NGLAST = NGRVER
4032 XLAST = X
4033 IHFROMH = 0
4034
4035 IF(X.GT.1..OR.NXX.LE.0) RETURN
4036 IF(X/XHTAB(1).LT.1.-EPSI) RETURN
4037
4038 DO 10 I = 1,NXX
4039*mb IF(XHTAB(I).LE.X+EPSI) IX = I
4040 IF(XHTAB(I)/X.LE.1.+EPSI) IX = I
4041 10 CONTINUE
4042
4043*mb IF(ABS(XHTAB(IX)-X).LE.EPSI) THEN
4044 IF(ABS(XHTAB(IX)/X-1.).LE.EPSI) THEN
4045 IHFROMH = IX
4046 IXLAST = IX
4047 ELSE
4048 IHFROMH = -IX
4049 IXLAST = -IX
4050 ENDIF
4051
4052 RETURN
4053 END
4054
4055C------------------------------------------------
4056
4057*- REAL XR,X1,X2,XLAST
4058*-
4059*-+SEQ,QCNXQM.
4060*-+SEQ,QCGRID.
4061*-
4062*- SAVE XLAST,IXLAST,NGLAST
4063*-
4064*- DATA XLAST / 0. /
4065*- DATA IXLAST / 0 /
4066*- DATA NGLAST / 0 /
4067*-
4068*-* CALL QTRACE('IXFROMX',0)
4069*-
4070*- XR = X
4071*- IF(XR.EQ.XLAST.AND.NGRVER.EQ.NGLAST) THEN
4072*- IXFROMX = IXLAST
4073*- RETURN
4074*- ENDIF
4075*-
4076*- IX = 0
4077*- IXLAST = 0
4078*- NGLAST = NGRVER
4079*- XLAST = X
4080*- IXFROMX = 0
4081*-
4082*- IF(XR.GT.1..OR.NXX.LE.0) RETURN
4083*- X1 = XHTAB(1)
4084*- IF(XR.LT.X1) RETURN
4085*-
4086*- DO IX = 1,NXX
4087*- X2 = XHTAB(IX+1)
4088*- IF(X1.LE.XR.AND.XR.LT.X2) THEN
4089*- IXFROMX = -IX
4090*- IF(X1.EQ.XR) IXFROMX = IX
4091*- IXLAST = IX
4092*- RETURN
4093*- ENDIF
4094*- X1 = X2
4095*- ENDDO
4096*-
4097*- RETURN
4098*- END
4099
4100CDECK ID>, IXNEARX.
4101
4102C ===========================
4103 INTEGER FUNCTION IXNEARX(X)
4104C ===========================
4105
4106 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4107
4108C--- Returns closest gridindex IX given a value for X.
4109C--- If X is outside the current gridboundary then IXNEARX = 0.
4110C--- If X corresponds to gridindex IX then IXNEARX = IX.
4111C--- If X lies above IX and below IX+1 then IXNEARX = -IX or -IX-1.
4112
4113C--- NB: X and XXTAB are different only if |X-XXTAB| < epsi.
4114C--- NB: If since the previous call the grid did not change
4115C--- (i.e. NGRVER is the same) and if X did not change, then
4116C--- IXNEARX just returns the result of the previous call.
4117
4118
4119 PARAMETER ( MXX = 410 )
4120 PARAMETER ( MQ2 = 120 )
4121
4122C-- Do not set the following parameter to zero!
4123 PARAMETER ( NDFMAX = 20)
4124
4125
4126 COMMON/QCGRID/
4127 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4128 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4129 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4130 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4131
4132
4133 SAVE XLAST,IXLAST,NGLAST
4134
4135 DATA XLAST / 0. /
4136 DATA IXLAST / 0 /
4137 DATA NGLAST / 0 /
4138 DATA EPSI /1.E-6/
4139
4140* CALL QTRACE('IXNEARX',0)
4141
4142 IF(X.EQ.XLAST.AND.NGRVER.EQ.NGLAST) THEN
4143 IXNEARX = IXLAST
4144 RETURN
4145 ENDIF
4146
4147 IX = 0
4148 IXLAST = 0
4149 NGLAST = NGRVER
4150 XLAST = X
4151 IXNEARX = 0
4152
4153 IF(X.GT.1..OR.NXX.LE.0) RETURN
4154 IF(X/XXTAB(1).LT.1.-EPSI) RETURN
4155
4156 DO 10 I = 1,NXX
4157*mb IF(XXTAB(I).LE.X+EPSI) IX = I
4158 IF(XXTAB(I)/X.LE.1.+EPSI) IX = I
4159 10 CONTINUE
4160
4161*mb IF(ABS(XXTAB(IX)-X).LE.EPSI) THEN
4162 IF(ABS(XXTAB(IX)/X-1.).LE.EPSI) THEN
4163 IXNEARX = IX
4164 IXLAST = IX
4165 ELSE
4166 GAP = SYFROMX(XXTAB(IX+1))-SYFROMX(XXTAB(IX))
4167 DEL = SYFROMX(X)-SYFROMX(XXTAB(IX))
4168 IF(DEL/GAP.LE.0.5) THEN
4169 IXNEARX = -IX
4170 ELSE
4171 IXNEARX = -MIN(IX+1,NXX)
4172 ENDIF
4173 IXLAST = IXNEARX
4174 ENDIF
4175
4176 RETURN
4177 END
4178
4179CDECK ID>, IQFROMQ.
4180
4181C ===========================
4182 INTEGER FUNCTION IQFROMQ(Q)
4183C ===========================
4184
4185C--- Returns gridindex IQ given a value for Q.
4186C--- If Q is outside the current gridboundary then IQFROMQ = 0.
4187C--- If Q corresponds to gridindex IQ then IQFROMQ = IQ.
4188C--- If Q lies above IQ and below IQ+1 then IQFROMQ = -IQ.
4189
4190C--- NB: Q and Q2TAB are different only if |Q-Q2TAB| < epsi.
4191C--- NB: If since the previous call the grid did not change
4192C--- (i.e. NGRVER is the same) and if Q did not change, then
4193C--- IQFROMQ just returns the result of the previous call.
4194
4195 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4196
4197
4198 PARAMETER ( MXX = 410 )
4199 PARAMETER ( MQ2 = 120 )
4200
4201C-- Do not set the following parameter to zero!
4202 PARAMETER ( NDFMAX = 20)
4203
4204
4205 COMMON/QCGRID/
4206 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4207 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4208 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4209 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4210
4211
4212 SAVE QLAST,IQLAST,NGLAST
4213
4214 DATA QLAST / 0. /
4215 DATA IQLAST / 0 /
4216 DATA NGLAST / 0 /
4217 DATA EPSI /1.E-6/
4218
4219* CALL QTRACE('IQFROMQ',0)
4220
4221 IF(Q.EQ.QLAST.AND.NGRVER.EQ.NGLAST) THEN
4222 IQFROMQ = IQLAST
4223 RETURN
4224 ENDIF
4225
4226 IQ = 0
4227 IQLAST = 0
4228 NGLAST = NGRVER
4229 QLAST = Q
4230 IQFROMQ = 0
4231
4232 IF(NQ2.EQ.0) RETURN
4233 IF(Q/Q2TAB(1).LT.1.-EPSI) RETURN
4234 IF(Q/Q2TAB(NQ2).GT.1.+EPSI) RETURN
4235
4236 DO 10 I = 1,NQ2
4237*mb IF(Q2TAB(I).LE.Q+EPSI) IQ = I
4238 IF(Q2TAB(I)/Q.LE.1.+EPSI) IQ = I
4239 10 CONTINUE
4240
4241*mb IF(ABS(Q2TAB(IQ)-Q).LE.EPSI) THEN
4242 IF(ABS(Q2TAB(IQ)/Q-1.).LE.EPSI) THEN
4243 IQFROMQ = IQ
4244 IQLAST = IQ
4245 ELSE
4246 IQFROMQ = -IQ
4247 IQLAST = -IQ
4248 ENDIF
4249
4250 RETURN
4251 END
4252
4253C------------------------------------------------
4254
4255*- REAL QR,Q1,Q2,QLAST
4256*-
4257*-+SEQ,QCNXQM.
4258*-+SEQ,QCGRID.
4259*-
4260*- SAVE QLAST,IQLAST,NGLAST
4261*-
4262*- DATA QLAST / 0. /
4263*- DATA IQLAST / 0 /
4264*- DATA NGLAST / 0 /
4265*-
4266*-* CALL QTRACE('IQFROMQ',0)
4267*-
4268*- QR = Q
4269*- IF(QR.EQ.QLAST.AND.NGRVER.EQ.NGLAST) THEN
4270*- IQFROMQ = IQLAST
4271*- RETURN
4272*- ENDIF
4273*-
4274*- IQ = 0
4275*- IQLAST = 0
4276*- NGLAST = NGRVER
4277*- QLAST = Q
4278*- IQFROMQ = 0
4279*-
4280*-
4281*- IF(NQ2.LE.0) RETURN
4282*- Q1 = Q2TAB(1)
4283*- IF(QR.LT.Q1) RETURN
4284*- Q2 = Q2TAB(NQ2)
4285*- IF(QR.GT.Q2) RETURN
4286*- IF(QR.EQ.Q2) THEN
4287*- IQFROMQ = NQ2
4288*- IQLAST = NQ2
4289*- RETURN
4290*- ENDIF
4291*-
4292*- DO IQ = 1,NQ2-1
4293*- Q2 = Q2TAB(IQ+1)
4294*- IF(Q1.LE.QR.AND.QR.LT.Q2) THEN
4295*- IQFROMQ = -IQ
4296*- IF(Q1.EQ.QR) IQFROMQ = IQ
4297*- IQLAST = IQ
4298*- RETURN
4299*- ENDIF
4300*- Q1 = Q2
4301*- ENDDO
4302*-
4303*- RETURN
4304*- END
4305
4306CDECK ID>, IQNEARQ.
4307
4308C ===========================
4309 INTEGER FUNCTION IQNEARQ(Q)
4310C ===========================
4311
4312C--- Returns closest gridindex IQ given a value for Q.
4313C--- If Q is outside the current gridboundary then IQNEARQ = 0.
4314C--- If Q corresponds to gridindex IQ then IQNEARQ = IQ.
4315C--- If Q lies above IQ and below IQ+1 then IQNEARQ = -IQ or -IQ-1.
4316
4317C--- NB: Q and Q2TAB are different only if |Q-Q2TAB| < epsi.
4318C--- NB: If since the previous call the grid did not change
4319C--- (i.e. NGRVER is the same) and if Q did not change, then
4320C--- IQNEARQ just returns the result of the previous call.
4321
4322 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4323
4324
4325 PARAMETER ( MXX = 410 )
4326 PARAMETER ( MQ2 = 120 )
4327
4328C-- Do not set the following parameter to zero!
4329 PARAMETER ( NDFMAX = 20)
4330
4331
4332 COMMON/QCGRID/
4333 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4334 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4335 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4336 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4337
4338
4339 SAVE QLAST,IQLAST,NGLAST
4340
4341 DATA QLAST / 0. /
4342 DATA IQLAST / 0 /
4343 DATA NGLAST / 0 /
4344 DATA EPSI /1.E-6/
4345
4346* CALL QTRACE('IQNEARQ',0)
4347
4348 IF(Q.EQ.QLAST.AND.NGRVER.EQ.NGLAST) THEN
4349 IQNEARQ = IQLAST
4350 RETURN
4351 ENDIF
4352
4353 IQ = 0
4354 IQLAST = 0
4355 NGLAST = NGRVER
4356 QLAST = Q
4357 IQNEARQ = 0
4358
4359 IF(NQ2.EQ.0) RETURN
4360 IF(Q/Q2TAB(1).LT.1.-EPSI) RETURN
4361 IF(Q/Q2TAB(NQ2).GT.1.+EPSI) RETURN
4362
4363 DO 10 I = 1,NQ2
4364*mb IF(Q2TAB(I).LE.Q+EPSI) IQ = I
4365 IF(Q2TAB(I)/Q.LE.1.+EPSI) IQ = I
4366 10 CONTINUE
4367
4368*mb IF(ABS(Q2TAB(IQ)-Q).LE.EPSI) THEN
4369 IF(ABS(Q2TAB(IQ)/Q-1.).LE.EPSI) THEN
4370 IQNEARQ = IQ
4371 IQLAST = IQ
4372 ELSE
4373 GAP = LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
4374 DEL = LOG(Q/Q2TAB(IQ))
4375 IF(DEL/GAP.LE.0.5) THEN
4376 IQNEARQ = -IQ
4377 ELSE
4378 IQNEARQ = -MIN(IQ+1,NQ2)
4379 ENDIF
4380 IQLAST = IQNEARQ
4381 ENDIF
4382
4383 RETURN
4384 END
4385
4386CDECK ID>, XFROMIX.
4387
4388C =====================================
4389 DOUBLE PRECISION FUNCTION XFROMIX(IX)
4390C =====================================
4391
4392 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4393
4394C--- Returns x given the gridindex IX.
4395C--- If IX is out of range [1,NXX] then XFROMIX = 0.
4396
4397
4398 PARAMETER ( MXX = 410 )
4399 PARAMETER ( MQ2 = 120 )
4400
4401C-- Do not set the following parameter to zero!
4402 PARAMETER ( NDFMAX = 20)
4403
4404
4405 COMMON/QCGRID/
4406 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4407 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4408 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4409 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4410
4411
4412* CALL QTRACE('XFROMIX',0)
4413
4414 IF(IX.LE.0) THEN
4415 XFROMIX = 0.
4416 ELSEIF(IX.GT.NXX) THEN
4417 XFROMIX = 0.
4418 ELSE
4419 XFROMIX = XXTAB(IX)
4420 ENDIF
4421
4422 RETURN
4423 END
4424
4425CDECK ID>, QFROMIQ.
4426C
4427C =====================================
4428 DOUBLE PRECISION FUNCTION QFROMIQ(IQ)
4429C =====================================
4430
4431 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4432
4433C--- Returns Q2 given the gridindex IQ.
4434C--- If IQ is out of range [1,NQ2] then QFROMIQ = 0.
4435
4436
4437 PARAMETER ( MXX = 410 )
4438 PARAMETER ( MQ2 = 120 )
4439
4440C-- Do not set the following parameter to zero!
4441 PARAMETER ( NDFMAX = 20)
4442
4443
4444 COMMON/QCGRID/
4445 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4446 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4447 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4448 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4449
4450
4451* CALL QTRACE('QFROMIQ',0)
4452
4453 IF(IQ.LE.0) THEN
4454 QFROMIQ = 0.
4455 ELSEIF(IQ.GT.NQ2) THEN
4456 QFROMIQ = 0.
4457 ELSE
4458 QFROMIQ = Q2TAB(IQ)
4459 ENDIF
4460
4461 RETURN
4462 END
4463
4464CDECK ID>, GRCUTS.
4465
4466C ====================================
4467 SUBROUTINE GRCUTS(XMI,QMI,QMA,ROOTS)
4468C ====================================
4469
4470C--- GRCUTS: user input of cuts.
4471C--- Input : Double precision XMI: reject x .lt. XMI
4472C--- QMI: reject Q2 .lt. QMI
4473C--- QMA: reject Q2 .gt. QMA
4474C--- ROOTS: reject Q2 .gt. x * roots**2
4475C--- Output: XMICUT, QMICUT, QMACUT, RS2CUT in +seq,QCGRID.
4476C--- NB : No cut is applied when XMI etc .le. 0 (XMICUT etc = -1.)
4477
4478 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4479
4480
4481 PARAMETER ( MXX = 410 )
4482 PARAMETER ( MQ2 = 120 )
4483
4484C-- Do not set the following parameter to zero!
4485 PARAMETER ( NDFMAX = 20)
4486
4487
4488 COMMON/QCGRID/
4489 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4490 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4491 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4492 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4493
4494
4495 CALL QTRACE('GRCUTS ',0)
4496
4497 IF(XMI.LE.0..OR.XMI.GE.1.) THEN
4498 XMICUT = -1.
4499 ELSE
4500 XMICUT = XMI
4501 ENDIF
4502
4503 IF(QMI.LE.0.) THEN
4504 QMICUT = -1.
4505 ELSE
4506 QMICUT = QMI
4507 ENDIF
4508
4509 IF(QMA.LE.0.) THEN
4510 QMACUT = -0.5
4511 ELSE
4512 QMACUT = QMA
4513 ENDIF
4514
4515 IF(ROOTS.LE.0.) THEN
4516 RS2CUT = -1.
4517 ELSE
4518 RS2CUT = ROOTS*ROOTS
4519 ENDIF
4520
4521 IF(QMICUT.GE.QMACUT.AND.QMACUT.GT.0.) THEN
4522
4523 WRITE(6,'(/'' ------------------------------------'')')
4524 WRITE(6,'( '' QCDNUM error in s/r GRCUTS ---> STOP'')')
4525 WRITE(6,'( '' ------------------------------------'')')
4526 WRITE(6,'( '' Input Xmin :'',E12.5)') XMI
4527 WRITE(6,'( '' Q2min :'',E12.5)') QMI
4528 WRITE(6,'( '' Q2max :'',E12.5)') QMA
4529 WRITE(6,'( '' rootS :'',E12.5)') ROOTS
4530 WRITE(6,'(/'' Value of Q2min .ge. Q2max'')')
4531
4532 CALL QTRACE('GRCUTS ',1)
4533
4534 STOP
4535
4536 ENDIF
4537
4538 CALL GRSETC
4539
4540 RETURN
4541 END
4542
4543CDECK ID>, GRSETC.
4544
4545C =================
4546 SUBROUTINE GRSETC
4547C =================
4548
4549C--- Input: XMIN, QMIN, QMAX, RS2CUT + grid-definitions, all this
4550C--- as stored in QCGRID.
4551C--- Output: integer array IFAILC(IX,IQ) (see below).
4552C--- Called by GRCUTS (user input of cuts) and
4553C--- by all grid definition routines (update of IFAILC).
4554
4555C--- Fill the array IFAILC(IX,IQ) such that
4556C--- IFAILC = 0 : gridpoint passes all cuts
4557C--- IFAILC = ijkl : i = 0/1 no/yes fail roots cut
4558C--- j = 0/1 no/yes fail qmax cut
4559C--- k = 0/1 no/yes fail qmin cut
4560C--- l = 0/1 no/yes fail xmin cut
4561
4562C--- For any x,Q2 passing the cuts the four surrounding gridpoints
4563C--- will also be flagged as passing the cut. This then guarantees
4564C--- that parton distributions are available on the surrounding
4565C--- gridpoints for interpolation purposes.
4566
4567 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4568
4569
4570 LOGICAL
4571 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
4572 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
4573 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
4574 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
4575 +LFFCAL,LASOLD
4576
4577 COMMON/QCFLAG/
4578 +IORD,IOLAST,
4579 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
4580 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
4581 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
4582 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
4583 +LFFCAL(7,30),LASOLD
4584
4585
4586 PARAMETER ( MXX = 410 )
4587 PARAMETER ( MQ2 = 120 )
4588
4589C-- Do not set the following parameter to zero!
4590 PARAMETER ( NDFMAX = 20)
4591
4592
4593 COMMON/QCGRID/
4594 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4595 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4596 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4597 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4598
4599
4600 COMMON/QCPASS/
4601 +ALPHA0, Q0ALFA, ASLAST, QALAST,
4602 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
4603 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
4604 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
4605 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
4606 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
4607 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
4608 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
4609 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
4610 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
4611
4612 LOGICAL LEVDONE,LE_DONE
4613 COMMON/QCLEVL/
4614 +LEVDONE(MXX,10),LE_DONE(MXX)
4615
4616
4617 DO IX = 1,MXX
4618 DO IQ = 1,MQ2
4619 IFAILC(IX,IQ) = 11111
4620 ENDDO
4621 ENDDO
4622 IF(NXX.LE.0) RETURN
4623 IF(NQ2.LE.0) RETURN
4624
4625 DO IQ = 1,NQ2
4626 DO IX = 1,NXX
4627 IXP1 = MIN(IX+1,NXX)
4628 IQP1 = MIN(IQ+1,NQ2)
4629 IQM1 = MAX(IQ-1,1)
4630 IFAILC(IX,IQ) = 0
4631 IF(XXTAB(IXP1).LE.XMICUT.AND.XMICUT.GT.0.)
4632 + IFAILC(IX,IQ) = IFAILC(IX,IQ)+1
4633 IF(Q2TAB(IQP1).LE.QMICUT.AND.QMICUT.GT.0.)
4634 + IFAILC(IX,IQ) = IFAILC(IX,IQ)+10
4635 IF(Q2TAB(IQM1).GE.QMACUT.AND.QMACUT.GT.0.)
4636 + IFAILC(IX,IQ) = IFAILC(IX,IQ)+100
4637 IF(Q2TAB(IQM1).GE.XXTAB(IXP1)*RS2CUT.AND.RS2CUT.GT.0.)
4638 + IFAILC(IX,IQ) = IFAILC(IX,IQ)+1000
4639 IF(Q2TAB(IQP1).LE.QMINAS.AND.QMINAS.GT.0.)
4640 + IFAILC(IX,IQ) = IFAILC(IX,IQ)+10000
4641
4642 ENDDO
4643 ENDDO
4644
4645C-- Invalidate all evolutions
4646 CALL QNFALS(LEVDONE,MXX*10)
4647
4648 RETURN
4649 END
4650
4651CDECK ID>, IFAILXQ.
4652
4653C =============================
4654 INTEGER FUNCTION IFAILXQ(X,Q)
4655C =============================
4656
4657C--- User interface to ICUTXQ
4658
4659 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4660
4661 CALL QTRACE('IFAILXQ',0)
4662
4663 IFAILXQ = ICUTXQ(X,Q,0)
4664
4665 RETURN
4666 END
4667
4668CDECK ID>, ICUTXQ.
4669
4670C ==================================
4671 INTEGER FUNCTION ICUTXQ(X,Q,IPRIN)
4672C ==================================
4673
4674C--- ICUTXQ = ijkl : i = 0/1 no/yes fail ROOTS cut
4675C--- j = 0/1 no/yes fail QMAX cut
4676C--- k = 0/1 no/yes fail QMIN cut
4677C--- l = 0/1 no/yes fail XMIN cut
4678
4679C--- Input integer IPRIN = 0/1 no/yes printout.
4680
4681 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4682
4683
4684 PARAMETER ( MXX = 410 )
4685 PARAMETER ( MQ2 = 120 )
4686
4687C-- Do not set the following parameter to zero!
4688 PARAMETER ( NDFMAX = 20)
4689
4690
4691 COMMON/QCGRID/
4692 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4693 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4694 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4695 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4696
4697
4698 CHARACTER*4 PASS(0:1)
4699
4700 DATA PASS /'pass','fail'/
4701
4702C-- No x-grid available
4703 IF(NXX.LE.0) THEN
4704 ICUTXQ = 11111
4705 RETURN
4706 ENDIF
4707C-- No Q2 grid available
4708 IF(NQ2.LE.0) THEN
4709 ICUTXQ = 11111
4710 RETURN
4711 ENDIF
4712C-- x > 1
4713 IF(X.GT.1.0) THEN
4714 ICUTXQ = 11111
4715 RETURN
4716 ENDIF
4717
4718 I1 = 0
4719 I2 = 0
4720 I3 = 0
4721 I4 = 0
4722 I5 = 0
4723
4724 IF((X.LT.XXTAB(1)).OR.(X.LT.XMICUT.AND.XMICUT.GT.0.))
4725 + I1 = 1
4726 IF((Q.LT.Q2TAB(1)).OR.(Q.LT.QMICUT.AND.QMICUT.GT.0.))
4727 + I2 = 1
4728 IF((Q.GT.Q2TAB(NQ2)).OR.(Q.GT.QMACUT.AND.QMACUT.GT.0.))
4729 + I3 = 1
4730 IF(Q.GT.X*RS2CUT.AND.RS2CUT.GT.0.)
4731 + I4 = 1
4732 IF((Q.LT.Q2TAB(1)).OR.(Q.LT.QMINAS.AND.QMINAS.GT.0.))
4733 + I5 = 1
4734
4735 ICUTXQ = 10000*I5 + 1000*I4 + 100*I3 + 10*I2 + I1
4736
4737 IF(IPRIN.EQ.1) THEN
4738
4739 XMIPR = XMICUT
4740 IF(XMICUT.LE.0.) XMIPR = XXTAB(1)
4741 QMIPR = QMICUT
4742 IF(QMICUT.LE.0.) QMIPR = Q2TAB(1)
4743 QMAPR = QMACUT
4744 IF(QMACUT.LE.0.) QMAPR = Q2TAB(NQ2)
4745 WRITE(6,'('' '')')
4746 WRITE(6,'('' x ='',E12.5,'' xmin = '',E12.5,
4747 + '' pass/fail = '',A4)') X, XMIPR, PASS(I1)
4748 WRITE(6,'('' Q2 ='',E12.5,'' Qmin = '',E12.5,
4749 + '' pass/fail = '',A4)') Q, QMIPR, PASS(I2)
4750 WRITE(6,'('' Q2 ='',E12.5,'' Qmax = '',E12.5,
4751 + '' pass/fail = '',A4)') Q, QMAPR, PASS(I3)
4752 WRITE(6,'('' s ='',E12.5,'' Smax = '',E12.5,
4753 + '' pass/fail = '',A4)') Q/X, RS2CUT, PASS(I4)
4754 WRITE(6,'('' Q2 ='',E12.5,'' Qmin_alphas = '',E12.5,
4755 + '' pass/fail = '',A4)') Q, QMINAS, PASS(I5)
4756 WRITE(6,'('' '')')
4757
4758 ENDIF
4759
4760 RETURN
4761 END
4762
4763CDECK ID>, IFAILIJ.
4764
4765C ===============================
4766 INTEGER FUNCTION IFAILIJ(IX,IQ)
4767C ===============================
4768
4769C--- User interface to ICUTIJ
4770
4771 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4772
4773 CALL QTRACE('IFAILIJ',0)
4774
4775 IFAILIJ = ICUTIJ(IX,IQ,0)
4776
4777 RETURN
4778 END
4779
4780CDECK ID>, ICUTIJ.
4781
4782C ====================================
4783 INTEGER FUNCTION ICUTIJ(JX,JQ,IPRIN)
4784C ====================================
4785
4786C--- ICUTIJ = ijklm : i = 0/1 no/yes fail QMINA cut
4787C--- j = 0/1 no/yes fail ROOTS cut
4788C--- k = 0/1 no/yes fail QMAX cut
4789C--- l = 0/1 no/yes fail QMIN cut
4790C--- m = 0/1 no/yes fail XMIN cut
4791
4792C--- ijklm is taken from array IFAILC.
4793C--- IFAILC is set by s/r GRSETC
4794
4795C--- Input integer IPRIN = 0/1 no/yes printout.
4796
4797 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4798
4799
4800 PARAMETER ( MXX = 410 )
4801 PARAMETER ( MQ2 = 120 )
4802
4803C-- Do not set the following parameter to zero!
4804 PARAMETER ( NDFMAX = 20)
4805
4806
4807 COMMON/QCGRID/
4808 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4809 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4810 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4811 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4812
4813
4814 CHARACTER*4 PASS(0:1)
4815
4816 DATA PASS /'pass','fail'/
4817
4818 ICUTIJ = 11111
4819
4820C-- No x-grid available
4821 IF(NXX.LE.0) RETURN
4822C-- No Q2 grid available
4823 IF(NQ2.LE.0) RETURN
4824
4825 IX = ABS(JX)
4826 IQ = ABS(JQ)
4827 IF(IX.GE.1.AND.IX.LE.NXX.AND.IQ.GE.1.AND.IQ.LE.NQ2)
4828 + ICUTIJ = IFAILC(IX,IQ)
4829
4830 IF(IPRIN.EQ.1) THEN
4831
4832 IF(IX.GE.1.AND.IX.LE.NXX.AND.IQ.GE.1.AND.IQ.LE.NQ2) THEN
4833 X = XXTAB(IX)
4834 Q = Q2TAB(IQ)
4835 ELSE
4836 X = 0.
4837 Q = 0.
4838 ENDIF
4839 I5 = ICUTIJ/10000.
4840 I4 = (ICUTIJ-10000*I5)/1000.
4841 I3 = (ICUTIJ-10000*I5-1000*I4)/100.
4842 I2 = (ICUTIJ-10000*I5-1000*I4-100*I3)/10.
4843 I1 = ICUTIJ-10000*I5-1000*I4-100*I3-10*I2
4844
4845 XMIPR = XMICUT
4846 IF(XMICUT.LE.0.) XMIPR = XXTAB(1)
4847 QMIPR = QMICUT
4848 IF(QMICUT.LE.0.) QMIPR = Q2TAB(1)
4849 QMAPR = QMACUT
4850 IF(QMACUT.LE.0.) QMAPR = Q2TAB(NQ2)
4851 WRITE(6,'('' '')')
4852 WRITE(6,'('' IX = '',I5,'' x ='',E12.5,'' xmin = '',
4853 + E12.5,'' pass/fail = '',A4)') IX, X, XMIPR, PASS(I1)
4854 WRITE(6,'('' IQ = '',I5,'' Q2 ='',E12.5,'' Qmin = '',
4855 + E12.5,'' pass/fail = '',A4)') IQ, Q, QMIPR, PASS(I2)
4856 WRITE(6,'('' IQ = '',I5,'' Q2 ='',E12.5,'' Qmax = '',
4857 + E12.5,'' pass/fail = '',A4)') IQ, Q, QMAPR, PASS(I3)
4858 WRITE(6,'('' '',5X,'' s ='',E12.5,'' Smax = '',
4859 + E12.5,'' pass/fail = '',A4)') Q/X, RS2CUT, PASS(I4)
4860 WRITE(6,'('' IQ = '',I5,'' Q2 ='',E12.5,'' Qmin_alphas = '',
4861 + E12.5,'' pass/fail = '',A4)') IQ, Q, QMINAS, PASS(I5)
4862 WRITE(6,'('' '')')
4863
4864 ENDIF
4865
4866 RETURN
4867 END
4868
4869CDECK ID>, QTHRES.
4870
4871C ==========================
4872 SUBROUTINE QTHRES(T34,T45)
4873C ==========================
4874
4875C--- QTHRES: user input of flavour thresholds.
4876C--- Input : Double precision T34: Q2 .lt. T34 --> f = 3
4877C--- Q2 .ge. T34 --> f = 4
4878C--- T45: Q2 .lt. T45 --> f = 4
4879C--- Q2 .ge. T45 --> f = 5
4880C--- Output: THRS34 and THRS45 in +seq,QCGRID.
4881C--- NB1 : Default THRS34 = -huge, THRS45 = +huge --> f = 4.
4882C--- NB2 : The array NFMAP(Q2) = 3,4,5 is setup here through a
4883C--- call to QNSETT and maintained further in the grid
4884C--- defining routines.
4885
4886 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4887
4888
4889 PARAMETER ( MXX = 410 )
4890 PARAMETER ( MQ2 = 120 )
4891
4892C-- Do not set the following parameter to zero!
4893 PARAMETER ( NDFMAX = 20)
4894
4895
4896 COMMON/QCGRID/
4897 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4898 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4899 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4900 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4901
4902
4903 CALL QTRACE('QTHRES ',0)
4904
4905 IF(T34.GE.T45) THEN
4906 IERR = 1
4907 GOTO 500
4908 ENDIF
4909
4910 THRS34 = T34
4911 THRS45 = T45
4912
4913C--- Fill the flavour map
4914 CALL QNSETT
4915
4916 RETURN
4917
4918 500 CONTINUE
4919
4920 WRITE(6,'(/'' ------------------------------------'')')
4921 WRITE(6,'( '' QCDNUM error in s/r QTHRES ---> STOP'')')
4922 WRITE(6,'( '' ------------------------------------'')')
4923 WRITE(6,'( '' Input Threshold34 :'',E12.5)') T34
4924 WRITE(6,'( '' Threshold45 :'',E12.5)') T45
4925 WRITE(6,'(/'' Value of T34 .ge. T45'')')
4926
4927 CALL QTRACE('QTHRES ',1)
4928
4929 STOP
4930
4931 END
4932
4933CDECK ID>, QNSETT.
4934
4935C =================
4936 SUBROUTINE QNSETT
4937C =================
4938
4939C--- Input: THRS34 and THRS45 + grid-definitions, all this
4940C--- as stored in QCGRID.
4941C--- Output: integer array NFMAP(IQ) = 3,4,5
4942C--- Called by QTHRES (user input of thresholds) and
4943C--- by all grid definition routines (update of NFMAP).
4944
4945 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
4946
4947
4948 LOGICAL
4949 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
4950 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
4951 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
4952 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
4953 +LFFCAL,LASOLD
4954
4955 COMMON/QCFLAG/
4956 +IORD,IOLAST,
4957 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
4958 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
4959 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
4960 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
4961 +LFFCAL(7,30),LASOLD
4962
4963
4964 PARAMETER ( MXX = 410 )
4965 PARAMETER ( MQ2 = 120 )
4966
4967C-- Do not set the following parameter to zero!
4968 PARAMETER ( NDFMAX = 20)
4969
4970
4971 COMMON/QCGRID/
4972 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
4973 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
4974 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
4975 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
4976
4977
4978 COMMON/QCPASS/
4979 +ALPHA0, Q0ALFA, ASLAST, QALAST,
4980 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
4981 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
4982 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
4983 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
4984 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
4985 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
4986 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
4987 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
4988 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
4989
4990 LOGICAL LEVDONE,LE_DONE
4991 COMMON/QCLEVL/
4992 +LEVDONE(MXX,10),LE_DONE(MXX)
4993
4994
4995 IF(NQ2.LE.0) THEN
4996 DO IQ = 1,MQ2
4997 NFMAP(IQ) = 4
4998 ENDDO
4999 RETURN
5000 ENDIF
5001
5002 DO IQ = 1,NQ2
5003 NFMAP(IQ) = 4
5004 IF(Q2TAB(IQ).LT.THRS34) NFMAP(IQ) = 3
5005 IF(Q2TAB(IQ).GE.THRS45) NFMAP(IQ) = 5
5006 ENDDO
5007
5008C-- Invalidate all evolutions
5009 CALL QNFALS(LEVDONE,MXX*10)
5010
5011 RETURN
5012 END
5013
5014CDECK ID>, QNFMAP.
5015
5016C ==============================
5017 SUBROUTINE QNFMAP(OPT,T34,T45)
5018C ==============================
5019
5020 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5021
5022 CHARACTER*(*) OPT
5023
5024
5025C--- Obsolete 17/07/96: use QTHRES instead
5026
5027 CALL QTHRES(T34,T45)
5028
5029 RETURN
5030
5031 END
5032
5033CDECK ID>, QNFSET.
5034
5035C ===========================
5036 SUBROUTINE QNFSET(IX,IQ,NF)
5037C ===========================
5038
5039 WRITE(6,'(/'' QNFSET: this routine is not available'',
5040 + '' ---> STOP'')')
5041 STOP
5042
5043 END
5044
5045CDECK ID>, QNFNUL.
5046
5047C =================
5048 SUBROUTINE QNFNUL
5049C =================
5050
5051 WRITE(6,'(/'' QNFNUL: this routine is not available'',
5052 + '' ---> STOP'')')
5053 STOP
5054
5055 END
5056
5057CDECK ID>, NFLGET.
5058
5059C ===========================
5060 INTEGER FUNCTION NFLGET(IQ)
5061C ===========================
5062
5063 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5064
5065
5066 PARAMETER ( MXX = 410 )
5067 PARAMETER ( MQ2 = 120 )
5068
5069C-- Do not set the following parameter to zero!
5070 PARAMETER ( NDFMAX = 20)
5071
5072
5073 COMMON/QCGRID/
5074 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5075 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5076 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5077 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5078
5079
5080 CALL QTRACE('NFLGET ',0)
5081
5082 NFLGET = 0
5083 IF(IQ.GE.1.AND.IQ.LE.NQ2) THEN
5084 NFLGET = NFMAP(IQ)
5085 ELSE
5086 WRITE(6,'(/'' ------------------------------------'')')
5087 WRITE(6,'( '' QCDNUM error in s/r NFLGET ---> STOP'')')
5088 WRITE(6,'( '' ------------------------------------'')')
5089 WRITE(6,'( '' Input IQ :'',I10)') IQ
5090 WRITE(6,'(/'' IQ outside grid boundary'')')
5091 CALL QTRACE('NFLGET ',1)
5092 STOP
5093 ENDIF
5094
5095 RETURN
5096 END
5097
5098CDECK ID>, QPGRID.
5099
5100C ======================
5101 SUBROUTINE QPGRID(LUN)
5102C ======================
5103
5104 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5105
5106
5107 PARAMETER ( MXX = 410 )
5108 PARAMETER ( MQ2 = 120 )
5109
5110C-- Do not set the following parameter to zero!
5111 PARAMETER ( NDFMAX = 20)
5112
5113
5114 COMMON/QCGRID/
5115 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5116 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5117 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5118 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5119
5120
5121C-- Write x-Q2 evolution grid
5122C-- -------------------------
5123
5124 WRITE(LUN,'(/'' QCDNUM x-Q2 evolution grid'')')
5125 WRITE(LUN,'( '' --------------------------'')')
5126
5127 CALL GRGIVE(N_X,X_MI,X_MA,N_Q,Q_MI,Q_MA)
5128
5129 WRITE(LUN,'(/'' nx xmin xmax'',
5130 + '' nq qmin qmax'')')
5131 WRITE(LUN,'(I5,2F10.7,I5,2F10.2)')
5132 + N_X,X_MI,X_MA,N_Q,Q_MI,Q_MA
5133 WRITE(LUN,'(/'' Xgrid (heavy quarks)'')')
5134 WRITE(LUN,'(5(I4,E12.5))') (I,XHTAB(I),I=1,NXX)
5135 WRITE(LUN,'(/'' Xgrid'')')
5136 WRITE(LUN,'(5(I4,E12.5))') (I,XXTAB(I),I=1,NXX)
5137 WRITE(LUN,'(/'' Qgrid'')')
5138 WRITE(LUN,'(5(I4,E12.5))') (I,Q2TAB(I),I=1,NQ2)
5139 IF(RS2CUT.GE.0.) THEN
5140 RS2C = SQRT(RS2CUT)
5141 ELSE
5142 RS2C = RS2CUT
5143 ENDIF
5144 WRITE(LUN,'(/'' Thresholds and cuts''/
5145 + '' Q2 charm .......: '',E12.5/
5146 + '' Q2 bottom .......: '',E12.5/
5147 + '' Xmin cut .......: '',E12.5/
5148 + '' Qmin cut .......: '',E12.5/
5149 + '' Qmax cut .......: '',E12.5/
5150 + '' Roots cut .......: '',E12.5/
5151 + '' Qmin alpha_s ...: '',E12.5/)')
5152 + THRS34,THRS45,XMICUT,QMICUT,QMACUT,RS2C,QMINAS
5153
5154 RETURN
5155 END
5156
5157CDECK ID>, QDELQ2.
5158
5159C =================
5160 SUBROUTINE QDELQ2
5161C =================
5162
5163 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5164
5165
5166 LOGICAL
5167 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5168 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5169 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5170 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5171 +LFFCAL,LASOLD
5172
5173 COMMON/QCFLAG/
5174 +IORD,IOLAST,
5175 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5176 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5177 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5178 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5179 +LFFCAL(7,30),LASOLD
5180
5181
5182 PARAMETER ( MXX = 410 )
5183 PARAMETER ( MQ2 = 120 )
5184
5185C-- Do not set the following parameter to zero!
5186 PARAMETER ( NDFMAX = 20)
5187
5188
5189 COMMON/QCGRID/
5190 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5191 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5192 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5193 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5194
5195
5196 COMMON/QCPASS/
5197 +ALPHA0, Q0ALFA, ASLAST, QALAST,
5198 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
5199 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
5200 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
5201 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
5202 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
5203 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
5204 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
5205 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
5206 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
5207
5208 LOGICAL LEVDONE,LE_DONE
5209 COMMON/QCLEVL/
5210 +LEVDONE(MXX,10),LE_DONE(MXX)
5211
5212
5213C-- Pre-calculate log distance in Q2 for up and down evolution
5214
5215 DO 10 IQ = 2,NQ2
5216 DELUP(IQ) = LOG(Q2TAB(IQ)/Q2TAB(IQ-1))
5217 10 CONTINUE
5218 DO 20 IQ = NQ2-1,1,-1
5219 DELDN(IQ) = LOG(Q2TAB(IQ)/Q2TAB(IQ+1))
5220 20 CONTINUE
5221
5222 LDQ2OK = .TRUE.
5223
5224 RETURN
5225 END
5226
5227CDECK ID>, QFMARK.
5228
5229C ======================
5230 SUBROUTINE QFMARK(X,Q)
5231C ======================
5232
5233 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5234
5235
5236 LOGICAL
5237 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5238 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5239 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5240 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5241 +LFFCAL,LASOLD
5242
5243 COMMON/QCFLAG/
5244 +IORD,IOLAST,
5245 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5246 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5247 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5248 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5249 +LFFCAL(7,30),LASOLD
5250
5251
5252 PARAMETER ( MXX = 410 )
5253 PARAMETER ( MQ2 = 120 )
5254
5255C-- Do not set the following parameter to zero!
5256 PARAMETER ( NDFMAX = 20)
5257
5258
5259 COMMON/QCGRID/
5260 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5261 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5262 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5263 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5264
5265
5266 COMMON/QCPASS/
5267 +ALPHA0, Q0ALFA, ASLAST, QALAST,
5268 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
5269 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
5270 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
5271 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
5272 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
5273 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
5274 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
5275 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
5276 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
5277
5278 LOGICAL LEVDONE,LE_DONE
5279 COMMON/QCLEVL/
5280 +LEVDONE(MXX,10),LE_DONE(MXX)
5281
5282
5283 CALL QTRACE('QFMARK ',0)
5284
5285C-- Mark gridpoints for fast structure function calculation
5286
5287 IERR = 0
5288 IF(X.LE.0. .OR. X.GT.1.) THEN
5289 IERR = 1
5290 GOTO 500
5291 ENDIF
5292 IF(Q.LE.0.) THEN
5293 IERR = 2
5294 GOTO 500
5295 ENDIF
5296
5297C-- Mark the evolution grid
5298
5299 IX = IXFROMX(X)
5300 IQ = IQFROMQ(Q)
5301 IF(IX.EQ.0.OR.IQ.EQ.0) THEN
5302 IERR = 3
5303 GOTO 500
5304 ELSEIF(IX.GT.0.AND.IQ.GT.0) THEN
5305 MARKFF(IX,IQ) = 1
5306 MARKQQ(IQ) = 1
5307 LMARK = .TRUE.
5308 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
5309 MARKFF(-IX,IQ) = 1
5310 MARKFF(-IX+1,IQ) = 1
5311 MARKQQ(IQ) = 1
5312 LMARK = .TRUE.
5313 ELSEIF(IX.GT.0.AND.IQ.LT.0) THEN
5314 MARKFF(IX,-IQ) = 1
5315 MARKFF(IX,-IQ+1) = 1
5316 MARKQQ(-IQ) = 1
5317 MARKQQ(-IQ+1) = 1
5318 LMARK = .TRUE.
5319 ELSEIF(IX.LT.0.AND.IQ.LT.0) THEN
5320 MARKFF(-IX,-IQ) = 1
5321 MARKFF(-IX+1,-IQ) = 1
5322 MARKFF(-IX,-IQ+1) = 1
5323 MARKFF(-IX+1,-IQ+1) = 1
5324 MARKQQ(-IQ) = 1
5325 MARKQQ(-IQ+1) = 1
5326 LMARK = .TRUE.
5327 ENDIF
5328
5329C-- Mark the heavy quark grid
5330
5331 IX = IHFROMH(X)
5332 IQ = IQFROMQ(Q)
5333 IF(IX.EQ.0.OR.IQ.EQ.0) THEN
5334 IERR = 3
5335 GOTO 500
5336 ELSEIF(IX.GT.0.AND.IQ.GT.0) THEN
5337 MARKFH(IX,IQ) = 1
5338 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
5339 MARKFH(-IX,IQ) = 1
5340 MARKFH(-IX+1,IQ) = 1
5341 ELSEIF(IX.GT.0.AND.IQ.LT.0) THEN
5342 MARKFH(IX,-IQ) = 1
5343 MARKFH(IX,-IQ+1) = 1
5344 ELSEIF(IX.LT.0.AND.IQ.LT.0) THEN
5345 MARKFH(-IX,-IQ) = 1
5346 MARKFH(-IX+1,-IQ) = 1
5347 MARKFH(-IX,-IQ+1) = 1
5348 MARKFH(-IX+1,-IQ+1) = 1
5349 ENDIF
5350
5351 RETURN
5352
5353 500 CONTINUE
5354
5355 DO I = 1,30
5356 DO J = 1,7
5357 LFFCAL(J,I) = .FALSE.
5358 ENDDO
5359 ENDDO
5360
5361 WRITE(6,'(/'' ------------------------------------'')')
5362 WRITE(6,'( '' QCDNUM error in s/r QFMARK ---> STOP'')')
5363 WRITE(6,'( '' ------------------------------------'')')
5364 WRITE(6,'( '' Input x :'',E12.5)') X
5365 WRITE(6,'( '' Input Q2 :'',E12.5)') Q
5366 IF(IERR.EQ.1) THEN
5367 WRITE(6,'(/'' Value of x outside allowed range [0,1]'')')
5368 ELSEIF(IERR.EQ.2) THEN
5369 WRITE(6,'(/'' Value of Q2 outside allowed range > 0'')')
5370 ELSEIF(IERR.EQ.3) THEN
5371 WRITE(6,'(/'' Value of x and/or Q2 outside grid'')')
5372 IDUM = ICUTXQ(X,Q,1)
5373 ENDIF
5374
5375 CALL QTRACE('QFMARK ',1)
5376
5377 STOP
5378
5379 END
5380
5381CDECK ID>, QFMNUL.
5382
5383C =================
5384 SUBROUTINE QFMNUL
5385C =================
5386
5387 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5388
5389
5390 LOGICAL
5391 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5392 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5393 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5394 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5395 +LFFCAL,LASOLD
5396
5397 COMMON/QCFLAG/
5398 +IORD,IOLAST,
5399 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5400 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5401 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5402 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5403 +LFFCAL(7,30),LASOLD
5404
5405
5406 PARAMETER ( MXX = 410 )
5407 PARAMETER ( MQ2 = 120 )
5408
5409C-- Do not set the following parameter to zero!
5410 PARAMETER ( NDFMAX = 20)
5411
5412
5413 COMMON/QCGRID/
5414 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5415 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5416 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5417 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5418
5419
5420 COMMON/QCPASS/
5421 +ALPHA0, Q0ALFA, ASLAST, QALAST,
5422 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
5423 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
5424 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
5425 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
5426 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
5427 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
5428 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
5429 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
5430 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
5431
5432 LOGICAL LEVDONE,LE_DONE
5433 COMMON/QCLEVL/
5434 +LEVDONE(MXX,10),LE_DONE(MXX)
5435
5436
5437 CALL QTRACE('QFMNUL ',0)
5438
5439C-- Clear gridpoints for fast structure function calculation
5440
5441 CALL QNINUL(MARKFF,MXX*MQ2)
5442 CALL QNINUL(MARKQQ,MQ2)
5443 CALL QNINUL(IDFAST,7*30)
5444 NDFAST = 30
5445 LMARK = .FALSE.
5446
5447 DO I = 1,30
5448 DO J = 1,7
5449 LFFCAL(J,I) = .FALSE.
5450 ENDDO
5451 ENDDO
5452
5453 RETURN
5454 END
5455
5456CDECK ID>, STFCLR.
5457
5458C =================
5459 SUBROUTINE STFCLR
5460C =================
5461
5462 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5463
5464
5465 LOGICAL
5466 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5467 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5468 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5469 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5470 +LFFCAL,LASOLD
5471
5472 COMMON/QCFLAG/
5473 +IORD,IOLAST,
5474 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5475 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5476 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5477 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5478 +LFFCAL(7,30),LASOLD
5479
5480
5481 PARAMETER ( MXX = 410 )
5482 PARAMETER ( MQ2 = 120 )
5483
5484C-- Do not set the following parameter to zero!
5485 PARAMETER ( NDFMAX = 20)
5486
5487
5488 COMMON/QCGRID/
5489 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5490 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5491 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5492 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5493
5494
5495 COMMON/QCPASS/
5496 +ALPHA0, Q0ALFA, ASLAST, QALAST,
5497 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
5498 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
5499 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
5500 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
5501 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
5502 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
5503 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
5504 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
5505 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
5506
5507 LOGICAL LEVDONE,LE_DONE
5508 COMMON/QCLEVL/
5509 +LEVDONE(MXX,10),LE_DONE(MXX)
5510
5511
5512C-- Clear memory allocation for STFAST
5513
5514 CALL QTRACE('STFCLR ',0)
5515
5516 CALL QNINUL(IDFAST,7*30)
5517 NDFAST = 30
5518
5519 DO I = 1,30
5520 DO J = 1,7
5521 LFFCAL(J,I) = .FALSE.
5522 ENDDO
5523 ENDDO
5524
5525 RETURN
5526 END
5527
5528CDECK ID>, QNFILW.
5529
5530C ================================
5531 SUBROUTINE QNFILW(IQLIST,NQLIST)
5532C ================================
5533
5534 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5535
5536
5537 LOGICAL LTIME
5538 REAL T_START,T_END,T_SPENT
5539 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
5540 +E_CALLS(10),LTIME
5541 COMMON/QCFCNT/IFCNT(-1:1,5)
5542
5543
5544 COMMON/QCCONS/
5545 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
5546 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
5547 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
5548 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
5549 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
5550 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
5551
5552
5553
5554 LOGICAL
5555 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5556 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5557 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5558 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5559 +LFFCAL,LASOLD
5560
5561 COMMON/QCFLAG/
5562 +IORD,IOLAST,
5563 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
5564 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
5565 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
5566 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
5567 +LFFCAL(7,30),LASOLD
5568
5569
5570 PARAMETER ( MXX = 410 )
5571 PARAMETER ( MQ2 = 120 )
5572
5573C-- Do not set the following parameter to zero!
5574 PARAMETER ( NDFMAX = 20)
5575
5576
5577 COMMON/QCGRID/
5578 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5579 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5580 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5581 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5582
5583
5584 COMMON/QCPASS/
5585 +ALPHA0, Q0ALFA, ASLAST, QALAST,
5586 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
5587 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
5588 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
5589 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
5590 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
5591 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
5592 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
5593 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
5594 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
5595
5596 LOGICAL LEVDONE,LE_DONE
5597 COMMON/QCLEVL/
5598 +LEVDONE(MXX,10),LE_DONE(MXX)
5599
5600
5601 REAL
5602 +WGTFF1,WGTFG1,
5603 +WGTGF1,WGTGG1,
5604 +WGTPP2,WGTPM2,WGTNS2,
5605 +WGTFF2,WGTFG2,
5606 +WGTGF2,WGTGG2,
5607 +WGTC2Q,WGTC2G,YNTC2Q,
5608 +WGTCLQ,WGTCLG,WGTC3Q
5609
5610 COMMON/QCWEIT/
5611 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
5612 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
5613 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
5614 +WGTNS2(MXX*(MXX+1)/2,3:5),
5615 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
5616 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
5617 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
5618 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
5619 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
5620
5621 COMMON/QCWADR/ IWADR(MXX,MXX)
5622
5623
5624 DIMENSION IQLIST(*)
5625
5626 IF(LTIME) CALL TIMEX_LHA(T_START(2))
5627
5628 CALL QTRACE('QNFILW ',0)
5629
5630 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
5631 IERR = 1
5632 GOTO 500
5633 ENDIF
5634
5635C-- Invalidate all evolutions
5636 CALL QNFALS(LEVDONE,MXX*10)
5637
5638C-- Setup the adresses
5639 DO IX0 = 1,MXX
5640 DO IX = IX0,MXX
5641 IWADR(IX,IX0) = IWTAD(IX,IX0)
5642 ENDDO
5643 ENDDO
5644
5645C-- Now calculate weights
5646 IF(LW1ANA) THEN
5647 DO 30 NF = 3,5
5648 CALL FILLO1(NF)
5649 30 CONTINUE
5650 LW1NUM = .FALSE.
5651 LWT1OK = .TRUE.
5652 WRITE(6,'(/'' QNFILW: Calculate LO weights analytically'')')
5653 ENDIF
5654
5655 I1 = 0
5656 I2 = 0
5657 I3 = 0
5658 IF(LW1NUM) THEN
5659 I1 = 1
5660 LWT1OK = .TRUE.
5661 WRITE(6,'(/'' QNFILW: Calculate LO weights numerically'')')
5662 ENDIF
5663 IF(LW2NUM) THEN
5664 I2 = 1
5665 LWT2OK = .TRUE.
5666 WRITE(6,'(/'' QNFILW: Calculate NLO weights'')')
5667 ENDIF
5668 IF(LW2STF) THEN
5669 I3 = 1
5670 LWTFOK = .TRUE.
5671 WRITE(6,'(/'' QNFILW: Calculate F2 weights'')')
5672 ENDIF
5673
5674 DO 40 NF = 3,5
5675 CALL FILLWF(I1,I2,I3,NF)
5676 40 CONTINUE
5677
5678 IF(LWF2C.OR.LWF2B.OR.LWFLC.OR.LWFLB) THEN
5679
5680C--- Check charm, bottom mass
5681 IF(.NOT.(0..LT.CBMSTF(4) .AND. CBMSTF(4).EQ.CBMSTF(5) .AND.
5682 + CBMSTF(4).LT.CBMSTF(6) .AND. CBMSTF(6).EQ.CBMSTF(7))) THEN
5683 IERR = 2
5684 GOTO 500
5685 ENDIF
5686
5687 IF(LWF2C) THEN
5688 LWFCOK = .TRUE.
5689 CALL FIL_F2H(4)
5690 WRITE(6,'(/'' QNFILW: Calculate F2c weights'')')
5691 ENDIF
5692 IF(LWF2B) THEN
5693 LWFBOK = .TRUE.
5694 CALL FIL_F2H(6)
5695 WRITE(6,'(/'' QNFILW: Calculate F2b weights'')')
5696 ENDIF
5697 IF(LWFLC) THEN
5698 LWLCOK = .TRUE.
5699 CALL FIL_FLH(5)
5700 WRITE(6,'(/'' QNFILW: Calculate FLc weights'')')
5701 ENDIF
5702 IF(LWFLB) THEN
5703 LWLBOK = .TRUE.
5704 CALL FIL_FLH(7)
5705 WRITE(6,'(/'' QNFILW: Calculate FLb weights'')')
5706 ENDIF
5707
5708 ENDIF
5709
5710 WRITE(6,'(/)')
5711
5712 IF(LTIME) THEN
5713 CALL TIMEX_LHA(T_END(2))
5714 T_SPENT(2) = T_SPENT(2)+T_END(2)-T_START(2)
5715 N_CALLS(2) = N_CALLS(2)+1
5716 ENDIF
5717
5718 RETURN
5719
5720 500 CONTINUE
5721 WRITE(6,'(/'' ------------------------------------'')')
5722 WRITE(6,'( '' QCDNUM error in s/r QNFILW ---> STOP'')')
5723 WRITE(6,'( '' ------------------------------------'')')
5724 IF(IERR.EQ.1) THEN
5725 WRITE(6,'(/'' No x-Q2 grid available'')')
5726 ENDIF
5727 IF(IERR.EQ.2) THEN
5728 WRITE(6,'( '' Cmass (F2c,FLc) ='',2E12.5)') CBMSTF(4),CBMSTF(5)
5729 WRITE(6,'( '' Bmass (F2b,FLb) ='',2E12.5)') CBMSTF(6),CBMSTF(7)
5730 WRITE(6,'(/'' Masses not in ascending order or not equal'',
5731 + '' for F2 and FL'')')
5732 ENDIF
5733
5734 CALL QTRACE('QNFILW ',1)
5735
5736 STOP
5737
5738 END
5739
5740CDECK ID>, QNGETW.
5741
5742C ===============================================
5743 DOUBLE PRECISION FUNCTION QNGETW(OPT,IX0,IX,IQ)
5744C ===============================================
5745
5746 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5747
5748
5749 PARAMETER ( MXX = 410 )
5750 PARAMETER ( MQ2 = 120 )
5751
5752C-- Do not set the following parameter to zero!
5753 PARAMETER ( NDFMAX = 20)
5754
5755
5756 COMMON/QCGRID/
5757 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
5758 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
5759 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
5760 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
5761
5762
5763 REAL
5764 +WGTFF1,WGTFG1,
5765 +WGTGF1,WGTGG1,
5766 +WGTPP2,WGTPM2,WGTNS2,
5767 +WGTFF2,WGTFG2,
5768 +WGTGF2,WGTGG2,
5769 +WGTC2Q,WGTC2G,YNTC2Q,
5770 +WGTCLQ,WGTCLG,WGTC3Q
5771
5772 COMMON/QCWEIT/
5773 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
5774 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
5775 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
5776 +WGTNS2(MXX*(MXX+1)/2,3:5),
5777 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
5778 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
5779 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
5780 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
5781 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
5782
5783 COMMON/QCWADR/ IWADR(MXX,MXX)
5784
5785
5786 REAL
5787 +WH_C0KG,WH_C1KG,WH_C1BKG,
5788 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
5789
5790 COMMON/QCHWGT/
5791 +WH_C0KG(0:MXX,MQ2,4:7),
5792 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
5793 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
5794 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
5795
5796
5797 CHARACTER*(*) OPT
5798 CHARACTER*8 OPT8
5799
5800 CALL QTRACE('QNGETW ',0)
5801
5802 IERR = 0
5803 IF(IX0.LE.0.OR.IX0.GT.MXX-1) THEN
5804 IERR = 1
5805 GOTO 500
5806 ENDIF
5807 IF(IX.LE.0.OR.IX.GT.MXX-1) THEN
5808 IERR = 1
5809 GOTO 500
5810 ENDIF
5811 IF(IQ.LE.0.OR.IQ.GT.MQ2-1) THEN
5812 IERR = 1
5813 GOTO 500
5814 ENDIF
5815
5816 NF = NFMAP(IQ)
5817 IF(NF.LT.3.OR.NF.GT.5) THEN
5818 IERR = 2
5819 GOTO 500
5820 ENDIF
5821
5822 IF(IX.LT.IX0) THEN
5823 QNGETW = 0.
5824 RETURN
5825 ENDIF
5826
5827 LEN = MIN(LENOCC_LHA(OPT),8)
5828 OPT8(1:LEN) = OPT(1:LEN)
5829 CALL CLTOU_LHA(OPT8)
5830
5831 IF(OPT8(1:6).EQ.'WGTFF1') THEN
5832 QNGETW = WGTFF1(IWTAD(IX,IX0))
5833 ELSEIF(OPT8(1:6).EQ.'WGTFG1') THEN
5834 QNGETW = WGTFG1(IWTAD(IX,IX0),NF)
5835 ELSEIF(OPT8(1:6).EQ.'WGTGF1') THEN
5836 QNGETW = WGTGF1(IWTAD(IX,IX0))
5837 ELSEIF(OPT8(1:6).EQ.'WGTGG1') THEN
5838 QNGETW = WGTGG1(IWTAD(IX,IX0),NF)
5839 ELSEIF(OPT8(1:6).EQ.'WGTPP2') THEN
5840 QNGETW = WGTPP2(IWTAD(IX,IX0),NF)
5841 ELSEIF(OPT8(1:6).EQ.'WGTPM2') THEN
5842 QNGETW = WGTPM2(IWTAD(IX,IX0),NF)
5843 ELSEIF(OPT8(1:6).EQ.'WGTNS2') THEN
5844 QNGETW = WGTNS2(IWTAD(IX,IX0),NF)
5845 ELSEIF(OPT8(1:6).EQ.'WGTFF2') THEN
5846 QNGETW = WGTFF2(IWTAD(IX,IX0),NF)
5847 ELSEIF(OPT8(1:6).EQ.'WGTFG2') THEN
5848 QNGETW = WGTFG2(IWTAD(IX,IX0),NF)
5849 ELSEIF(OPT8(1:6).EQ.'WGTGF2') THEN
5850 QNGETW = WGTGF2(IWTAD(IX,IX0),NF)
5851 ELSEIF(OPT8(1:6).EQ.'WGTGG2') THEN
5852 QNGETW = WGTGG2(IWTAD(IX,IX0),NF)
5853 ELSEIF(OPT8(1:6).EQ.'WGTC2Q') THEN
5854 QNGETW = WGTC2Q(IWTAD(IX,IX0))
5855 ELSEIF(OPT8(1:6).EQ.'WGTC2G') THEN
5856 QNGETW = WGTC2G(IWTAD(IX,IX0),NF)
5857 ELSEIF(OPT8(1:6).EQ.'WGTCLQ') THEN
5858 QNGETW = WGTCLQ(IWTAD(IX,IX0))
5859 ELSEIF(OPT8(1:6).EQ.'WGTCLG') THEN
5860 QNGETW = WGTCLG(IWTAD(IX,IX0),NF)
5861 ELSEIF(OPT8(1:6).EQ.'WGTC3Q') THEN
5862 QNGETW = WGTC3Q(IWTAD(IX,IX0))
5863 ELSEIF(OPT8(1:7).EQ.'WH_C02G') THEN
5864 QNGETW = WH_C0KG(IX-IX0,IQ,4)
5865 ELSEIF(OPT8(1:7).EQ.'WH_C12G') THEN
5866 QNGETW = WH_C1KG(IX-IX0,IQ,4)
5867 ELSEIF(OPT8(1:8).EQ.'WH_C1B2G') THEN
5868 QNGETW = WH_C1BKG(IX-IX0,IQ,4)
5869 ELSEIF(OPT8(1:7).EQ.'WH_C12Q') THEN
5870 QNGETW = WH_C1KQ(IX-IX0,IQ,4)
5871 ELSEIF(OPT8(1:8).EQ.'WH_C1B2Q') THEN
5872 QNGETW = WH_C1BKQ(IX-IX0,IQ,4)
5873 ELSEIF(OPT8(1:7).EQ.'WH_D12Q') THEN
5874 QNGETW = WH_D1KQ(IX-IX0,IQ,4)
5875 ELSEIF(OPT8(1:8).EQ.'WH_D1B2Q') THEN
5876 QNGETW = WH_D1BKQ(IX-IX0,IQ,4)
5877 ELSEIF(OPT8(1:7).EQ.'WH_C0LG') THEN
5878 QNGETW = WH_C0KG(IX-IX0,IQ,5)
5879 ELSEIF(OPT8(1:7).EQ.'WH_C1LG') THEN
5880 QNGETW = WH_C1KG(IX-IX0,IQ,5)
5881 ELSEIF(OPT8(1:8).EQ.'WH_C1BLG') THEN
5882 QNGETW = WH_C1BKG(IX-IX0,IQ,5)
5883 ELSEIF(OPT8(1:7).EQ.'WH_C1LQ') THEN
5884 QNGETW = WH_C1KQ(IX-IX0,IQ,5)
5885 ELSEIF(OPT8(1:8).EQ.'WH_C1BLQ') THEN
5886 QNGETW = WH_C1BKQ(IX-IX0,IQ,5)
5887 ELSEIF(OPT8(1:7).EQ.'WH_D1LQ') THEN
5888 QNGETW = WH_D1KQ(IX-IX0,IQ,5)
5889 ELSEIF(OPT8(1:8).EQ.'WH_D1BLQ') THEN
5890 QNGETW = WH_D1BKQ(IX-IX0,IQ,5)
5891 ELSE
5892 IERR = 3
5893 GOTO 500
5894 ENDIF
5895
5896 RETURN
5897
5898 500 CONTINUE
5899 WRITE(6,'(/'' ------------------------------------'')')
5900 WRITE(6,'( '' QCDNUM error in s/r QNGETW ---> STOP'')')
5901 WRITE(6,'( '' ------------------------------------'')')
5902 WRITE(6,'( '' Input OPT :'',A)') OPT
5903 WRITE(6,'( '' IX0 :'',I10)') IX0
5904 WRITE(6,'( '' IX :'',I10)') IX
5905 WRITE(6,'( '' IQ :'',I10)') IQ
5906 IF(IERR.EQ.1) THEN
5907 WRITE(6,'(/'' IX0, IX and/or IQ outside allowed range'')')
5908 ELSEIF(IERR.EQ.2) THEN
5909 WRITE(6,'(/'' NF(IX,IQ) ='',I3,'' outside allowed range'')') NF
5910 ELSEIF(IERR.EQ.3) THEN
5911 WRITE(6,'(/'' Unknown option'')')
5912 ENDIF
5913
5914 CALL QTRACE('QNGETW ',1)
5915
5916 STOP
5917
5918 END
5919
5920CDECK ID>, QSTRIP.
5921
5922C =================================
5923 SUBROUTINE QSTRIP(NAMEIN,NAMEOUT)
5924C =================================
5925
5926C--- Truncate NAMEIN to 5 characters and convert to upper case
5927
5928 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5929
5930 CHARACTER*(*) NAMEIN
5931 CHARACTER*5 NAMEOUT
5932
5933 LEN = MIN(LENOCC_LHA(NAMEIN),5)
5934 NAMEOUT = ' '
5935 NAMEOUT(1:LEN) = NAMEIN(1:LEN)
5936 CALL CLTOU_LHA(NAMEOUT)
5937
5938 RETURN
5939 END
5940
5941CDECK ID>, CHKNAM.
5942
5943C ====================================
5944 SUBROUTINE CHKNAM(ID,NAME,SNAME,NAM)
5945C ====================================
5946
5947 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
5948
5949
5950 CHARACTER*5 PNAM,STFNAM
5951 LOGICAL LNFP
5952 COMMON /QCLNFP/ LNFP(0:30,3:5)
5953 COMMON /QCPNAM/ PNAM(0:30)
5954 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
5955 COMMON /QCFNAM/ STFNAM(7)
5956
5957
5958 CHARACTER*(*) NAME, SNAME
5959 CHARACTER*5 NAM
5960
5961 LEN = MIN(LENOCC_LHA(NAME),5)
5962 NAM = ' '
5963 NAM(1:LEN) = NAME(1:LEN)
5964 CALL CLTOU_LHA(NAM)
5965
5966 IF(NAM.EQ.' ') THEN
5967 IERR = 1
5968 GOTO 500
5969 ENDIF
5970
5971 IF(NAM.EQ.'FREE ') THEN
5972 PNAM(ID) = NAM
5973 LNFP(ID,3) = .FALSE.
5974 LNFP(ID,4) = .FALSE.
5975 LNFP(ID,5) = .FALSE.
5976 IF(ID.LE.10) THEN
5977 DO JD = 0,30
5978 PWGT(ID,JD,3) = 0.
5979 PWGT(ID,JD,4) = 0.
5980 PWGT(ID,JD,5) = 0.
5981 ENDDO
5982 ELSE
5983 DO JD = 0,10
5984 PWGT(JD,ID,3) = 0.
5985 PWGT(JD,ID,4) = 0.
5986 PWGT(JD,ID,5) = 0.
5987 ENDDO
5988 ENDIF
5989 RETURN
5990 ENDIF
5991
5992 IF(PNAM(ID).NE.'FREE '.AND.PNAM(ID).NE.NAM) THEN
5993 IERR = 2
5994 GOTO 500
5995 ENDIF
5996
5997 DO 10 JD = 0,30
5998 IF(JD.EQ.ID) GOTO 10
5999 IF(PNAM(JD).EQ.NAM) THEN
6000 IERR = 3
6001 GOTO 500
6002 ENDIF
6003 10 CONTINUE
6004
6005 RETURN
6006
6007 500 CONTINUE
6008 WRITE(6,'(/'' ------------------------------------'')')
6009 WRITE(6,'( '' QCDNUM error in s/r '',A,'' ---> STOP'')')
6010 + SNAME
6011 WRITE(6,'( '' ------------------------------------'')')
6012 WRITE(6,'( '' Input ID :'',I10)') ID
6013 WRITE(6,'( '' Input NAME :'',A)') NAM
6014 IF(IERR.EQ.1) THEN
6015 WRITE(6,'(/'' Blank name not allowed'')')
6016 ELSEIF(IERR.EQ.2) THEN
6017 WRITE(6,'(/'' ID already booked'')')
6018 ELSEIF(IERR.EQ.3) THEN
6019 WRITE(6,'(/'' NAME already used'')')
6020 ENDIF
6021
6022 CALL QTRACE('CHKNAM ',1)
6023
6024 STOP
6025
6026 END
6027
6028CDECK ID>, QNBOOK.
6029
6030C ==========================
6031 SUBROUTINE QNBOOK(ID,NAME)
6032C ==========================
6033
6034 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6035
6036
6037 CHARACTER*5 PNAM,STFNAM
6038 LOGICAL LNFP
6039 COMMON /QCLNFP/ LNFP(0:30,3:5)
6040 COMMON /QCPNAM/ PNAM(0:30)
6041 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6042 COMMON /QCFNAM/ STFNAM(7)
6043
6044
6045 CHARACTER*(*) NAME
6046 CHARACTER*5 NAM
6047
6048 CALL QTRACE('QNBOOK ',0)
6049
6050 CALL CHKNAM(ID,NAME,'QNBOOK',NAM)
6051
6052 PNAM(ID) = NAM
6053 LNFP(ID,3) = .TRUE.
6054 LNFP(ID,4) = .TRUE.
6055 LNFP(ID,5) = .TRUE.
6056 PWGT(ID,ID,3) = 1.
6057 PWGT(ID,ID,4) = 1.
6058 PWGT(ID,ID,5) = 1.
6059
6060 RETURN
6061 END
6062
6063CDECK ID>, QNLINC.
6064
6065C ===================================
6066 SUBROUTINE QNLINC(ID,NAME,NF,WEITS)
6067C ===================================
6068
6069 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6070
6071
6072 CHARACTER*5 PNAM,STFNAM
6073 LOGICAL LNFP
6074 COMMON /QCLNFP/ LNFP(0:30,3:5)
6075 COMMON /QCPNAM/ PNAM(0:30)
6076 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6077 COMMON /QCFNAM/ STFNAM(7)
6078
6079
6080 CHARACTER*(*) NAME
6081 CHARACTER*5 NAM
6082 DIMENSION WEITS(10)
6083
6084 CALL QTRACE('QNLINC ',0)
6085
6086 IF(ID.LE.10.OR.ID.GE.31) THEN
6087 IERR = 1
6088 GOTO 500
6089 ENDIF
6090
6091 IF(NF.LT.3 .OR.NF.GT.5 ) THEN
6092 IERR = 2
6093 GOTO 500
6094 ENDIF
6095
6096 CALL CHKNAM(ID,NAME,'QNLINC',NAM)
6097
6098 PNAM(ID) = NAM
6099 LNFP(ID,NF) = .TRUE.
6100 DO 20 I=1,10
6101 PWGT(I,ID,NF) = WEITS(I)
6102 20 CONTINUE
6103
6104 RETURN
6105
6106 500 CONTINUE
6107 WRITE(6,'(/'' ------------------------------------'')')
6108 WRITE(6,'( '' QCDNUM error in s/r QNLINC ---> STOP'')')
6109 WRITE(6,'( '' ------------------------------------'')')
6110 WRITE(6,'( '' Input ID :'',I0)') ID
6111 WRITE(6,'( '' NAME :'',A)') NAME
6112 WRITE(6,'( '' NF :'',I0)') NF
6113 WRITE(6,'( '' FACTORS(1):'',E12.5)') WEITS(1)
6114 IF(IERR.EQ.1) THEN
6115 WRITE(6,'(/'' ID outside allowed range [11,30]'')')
6116 ELSEIF(IERR.EQ.2) THEN
6117 WRITE(6,'(/'' NF outside allowed range [3,5]'')')
6118 ENDIF
6119
6120 CALL QTRACE('QNLINC ',1)
6121
6122 STOP
6123
6124 END
6125
6126CDECK ID>, QNGIVE.
6127
6128C ===================================
6129 SUBROUTINE QNGIVE(ID,NF,NAME,WEITS)
6130C ===================================
6131
6132 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6133
6134
6135 CHARACTER*5 PNAM,STFNAM
6136 LOGICAL LNFP
6137 COMMON /QCLNFP/ LNFP(0:30,3:5)
6138 COMMON /QCPNAM/ PNAM(0:30)
6139 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6140 COMMON /QCFNAM/ STFNAM(7)
6141
6142
6143 CHARACTER*5 NAME
6144 DIMENSION WEITS(10)
6145
6146 CALL QTRACE('QNGIVE ',1)
6147
6148 IF(ID.LT.0.OR.ID.GT.30.OR.NF.LT.3.OR.NF.GT.5) THEN
6149
6150 NAME = 'NULL '
6151 DO 10 I=1,10
6152 WEITS(I) = 0.
6153 10 CONTINUE
6154
6155 ELSE
6156
6157 NAME = PNAM(ID)
6158 DO 15 I=1,10
6159 WEITS(I) = PWGT(I,ID,NF)
6160 15 CONTINUE
6161
6162 ENDIF
6163
6164 RETURN
6165 END
6166
6167CDECK ID>, IDCHEK.
6168
6169C =============================
6170 INTEGER FUNCTION IPDFID(UNAM)
6171C =============================
6172
6173C--- IPDFID = identifier of memory resident quark distn
6174
6175 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6176
6177 CHARACTER*(*) UNAM
6178 CHARACTER*5 NAM
6179
6180
6181 CHARACTER*5 PNAM,STFNAM
6182 LOGICAL LNFP
6183 COMMON /QCLNFP/ LNFP(0:30,3:5)
6184 COMMON /QCPNAM/ PNAM(0:30)
6185 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6186 COMMON /QCFNAM/ STFNAM(7)
6187
6188
6189 CALL QTRACE('IPDFID ',0)
6190
6191 CALL QSTRIP(UNAM,NAM)
6192
6193 IF(NAM.EQ.' '.OR.NAM.EQ.'FREE ') THEN
6194 GOTO 500
6195 ENDIF
6196
6197 ID = -1
6198 DO I = 1,10
6199 IF(NAM.EQ.PNAM(I)) ID = I
6200 ENDDO
6201
6202 IPDFID = ID
6203
6204 IF(ID.EQ.-1) THEN
6205 GOTO 500
6206 ENDIF
6207
6208 RETURN
6209
6210 500 CONTINUE
6211 WRITE(6,'(/'' ------------------------------------'')')
6212 WRITE(6,'( '' QCDNUM error in s/r IPDFID ---> STOP'')')
6213 WRITE(6,'( '' ------------------------------------'')')
6214 WRITE(6,'( '' Input NAME :'',A)') UNAM
6215 WRITE(6,'(/'' NAME not booked at all or NAME does not refer''/
6216 + '' to a memory resident quark distribution'')')
6217 IF(NAM(1:1).EQ.' ')
6218 +WRITE(6,'(/'' WARNING: NAME has one or more leading blanks'')')
6219
6220 CALL QTRACE('IPDFID ',1)
6221
6222 STOP
6223 END
6224
6225
6226CDECK ID>, IDCHEK.
6227
6228C ============================================
6229 INTEGER FUNCTION IDCHEK(NAM,NF,SRNAME,ISTOP)
6230C ============================================
6231
6232 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6233
6234 CHARACTER*6 SRNAME
6235 CHARACTER*5 NAMLAST,NAM
6236
6237
6238 CHARACTER*5 PNAM,STFNAM
6239 LOGICAL LNFP
6240 COMMON /QCLNFP/ LNFP(0:30,3:5)
6241 COMMON /QCPNAM/ PNAM(0:30)
6242 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6243 COMMON /QCFNAM/ STFNAM(7)
6244
6245
6246 SAVE IDLAST,NAMLAST
6247
6248 DATA IDLAST / 0 /
6249 DATA NAMLAST / ' ' /
6250
6251 IDCHEK = -1
6252
6253 IF(NAM.EQ.' '.OR.NAM.EQ.'FREE '.OR.
6254 + NF.LT.3.OR.NF.GT.5) THEN
6255 IF(ISTOP.EQ.1) THEN
6256 IERR = 1
6257 GOTO 500
6258 ENDIF
6259 RETURN
6260 ENDIF
6261
6262 ID = -1
6263 IF(NAM.EQ.NAMLAST.AND.LNFP(IDLAST,NF)) THEN
6264 ID = IDLAST
6265 ELSE
6266 DO 10 I = 0,30
6267 IF(NAM.EQ.PNAM(I).AND.LNFP(I,NF)) ID = I
6268 10 CONTINUE
6269 IDLAST = ID
6270 NAMLAST = NAM
6271 ENDIF
6272
6273 IDCHEK = ID
6274
6275 IF(ID.EQ.-1.AND.ISTOP.EQ.1) THEN
6276 IERR = 2
6277 GOTO 500
6278 ENDIF
6279
6280 RETURN
6281
6282 500 CONTINUE
6283 WRITE(6,'(/'' ------------------------------------'')')
6284 WRITE(6,'( '' QCDNUM error in s/r '',A,'' ---> STOP'')')
6285 + SRNAME
6286 WRITE(6,'( '' ------------------------------------'')')
6287 WRITE(6,'( '' Input NAME :'',A)') NAM
6288 WRITE(6,'( '' NF :'',I10)') NF
6289 IF(IERR.EQ.1) THEN
6290 WRITE(6,'(/'' Input name not allowed and/or NF outside'',
6291 + '' the allowed range [3,5]'')')
6292 ELSEIF(IERR.EQ.2) THEN
6293 WRITE(6,'(/'' NAME not booked at all or, if NAME refers to''/
6294 + '' a linear combination, it might not have been''/
6295 + '' booked for NF flavours'')')
6296 IF(NAM(1:1).EQ.' ')
6297 + WRITE(6,'(/'' WARNING: NAME has one or more leading blanks'')')
6298 ENDIF
6299
6300 CALL QTRACE('IDCHEK ',1)
6301
6302 STOP
6303 END
6304
6305CDECK ID>, QNLIST.
6306
6307C ======================
6308 SUBROUTINE QNLIST(LUN)
6309C ======================
6310
6311 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6312
6313 CHARACTER*5 NAM
6314 CHARACTER*3 II
6315
6316
6317 CHARACTER*5 PNAM,STFNAM
6318 LOGICAL LNFP
6319 COMMON /QCLNFP/ LNFP(0:30,3:5)
6320 COMMON /QCPNAM/ PNAM(0:30)
6321 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6322 COMMON /QCFNAM/ STFNAM(7)
6323
6324
6325 WRITE(LUN,'(////)')
6326 WRITE(LUN,'(1X,''+'',13(''-''),''+'',60(''-''),''+'')')
6327 WRITE(LUN,'('' | | W_'',I2,
6328 + 9('' W_'',I2),'' |'')') (J, J=1,10)
6329 WRITE(LUN,'('' | ID NAME nf | '',A4,
6330 + 9(2X,A4),'' |'')') (PNAM(J),J=1,10)
6331 WRITE(LUN,'(1X,''+'',13(''-''),''+'',60(''-''),''+'')')
6332 DO 10 I = 0,10
6333 IF(IDCHEK(PNAM(I),3,' ',0).EQ.-1) GOTO 10
6334 WRITE(LUN,'('' |'',I3,1X,A5,'' |'',F5.2,
6335 + 9(F6.2),'' |'')') I, PNAM(I),(PWGT(J,I,3),J=1,10)
6336 10 CONTINUE
6337 WRITE(LUN,'(1X,''+'',13(''-''),''+'',60(''-''),''+'')')
6338 DO 20 I = 11,30
6339 NAM = PNAM(I)
6340 WRITE(II,'(I3)') I
6341 IF(IDCHEK(PNAM(I),3,' ',0).NE.-1) THEN
6342 WRITE(LUN,'('' |'',A3,1X,A5,'' 3 |'',F5.2,
6343 + 9(F6.2),'' |'')') II, NAM,(PWGT(J,I,3),J=1,10)
6344 NAM = ' '
6345 II = ' '
6346 ENDIF
6347 IF(IDCHEK(PNAM(I),4,' ',0).NE.-1) THEN
6348 WRITE(LUN,'('' |'',A3,1X,A5,'' 4 |'',F5.2,
6349 + 9(F6.2),'' |'')') II, NAM,(PWGT(J,I,4),J=1,10)
6350 NAM = ' '
6351 II = ' '
6352 ENDIF
6353 IF(IDCHEK(PNAM(I),5,' ',0).NE.-1) THEN
6354 WRITE(LUN,'('' |'',A3,1X,A5,'' 5 |'',F5.2,
6355 + 9(F6.2),'' |'')') II, NAM, (PWGT(J,I,5),J=1,10)
6356 NAM = ' '
6357 II = ' '
6358 ENDIF
6359 20 CONTINUE
6360 WRITE(LUN,'(1X,''+'',13(''-''),''+'',60(''-''),''+'')')
6361 WRITE(LUN,'(////)')
6362
6363 RETURN
6364 END
6365
6366CDECK ID>, QNPSET.
6367C =================================
6368 SUBROUTINE QNPSET(UNAM,IX,IQ,VAL)
6369C =================================
6370
6371 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6372
6373 CHARACTER*(*) UNAM
6374 CHARACTER*5 NAME
6375
6376
6377 LOGICAL
6378 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6379 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6380 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6381 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6382 +LFFCAL,LASOLD
6383
6384 COMMON/QCFLAG/
6385 +IORD,IOLAST,
6386 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6387 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6388 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6389 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6390 +LFFCAL(7,30),LASOLD
6391
6392
6393 CHARACTER*5 PNAM,STFNAM
6394 LOGICAL LNFP
6395 COMMON /QCLNFP/ LNFP(0:30,3:5)
6396 COMMON /QCPNAM/ PNAM(0:30)
6397 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6398 COMMON /QCFNAM/ STFNAM(7)
6399
6400
6401 PARAMETER ( MXX = 410 )
6402 PARAMETER ( MQ2 = 120 )
6403
6404C-- Do not set the following parameter to zero!
6405 PARAMETER ( NDFMAX = 20)
6406
6407
6408 COMMON/QCGRID/
6409 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
6410 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
6411 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
6412 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
6413
6414
6415 COMMON/QCPASS/
6416 +ALPHA0, Q0ALFA, ASLAST, QALAST,
6417 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
6418 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
6419 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
6420 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
6421 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
6422 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
6423 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
6424 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
6425 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
6426
6427 LOGICAL LEVDONE,LE_DONE
6428 COMMON/QCLEVL/
6429 +LEVDONE(MXX,10),LE_DONE(MXX)
6430
6431
6432 CALL QTRACE('QNPSET ',0)
6433
6434 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
6435 IERR = 1
6436 GOTO 500
6437 ENDIF
6438
6439 CALL QSTRIP(UNAM,NAME)
6440
6441 ID = IDCHEK(NAME,4,'QNPSET',1)
6442
6443 IF(ID.EQ.-1) RETURN
6444
6445 IF(IX.LT.1.OR.IX.GT.NXX) THEN
6446 IERR = 2
6447 GOTO 500
6448 ENDIF
6449
6450 IF(IQ.LT.1.OR.IQ.GT.NQ2) THEN
6451 IERR = 2
6452 GOTO 500
6453 ENDIF
6454
6455 IF(ID.LT.0.OR.ID.GT.10) THEN
6456 IERR = 3
6457 GOTO 500
6458 ENDIF
6459
6460C-- If a different input value, invalidate evolution for this
6461C-- and all lower x-grid points
6462 IF(VAL.NE.PDFQCD(IX,IQ,ID)) THEN
6463 DO JX = 1,IX
6464 LEVDONE(JX,MAX(ID,1)) = .FALSE.
6465 ENDDO
6466 ENDIF
6467
6468 PDFQCD(IX,IQ,ID) = VAL
6469
6470 DO I = 1,30
6471 DO J = 1,7
6472 LFFCAL(J,I) = .FALSE.
6473 ENDDO
6474 ENDDO
6475
6476 RETURN
6477
6478 500 CONTINUE
6479 WRITE(6,'(/'' ------------------------------------'')')
6480 WRITE(6,'( '' QCDNUM error in s/r QNPSET ---> STOP'')')
6481 WRITE(6,'( '' ------------------------------------'')')
6482 WRITE(6,'( '' Input NAME :'',A)') UNAM
6483 WRITE(6,'( '' IX :'',I10)') IX
6484 WRITE(6,'( '' IQ :'',I10)') IQ
6485 WRITE(6,'( '' Value :'',E12.5)') VAL
6486 IF(IERR.EQ.1) THEN
6487 WRITE(6,'(/'' No x-Q2 grid available'')')
6488 ELSEIF(IERR.EQ.2) THEN
6489 WRITE(6,'(/'' IX and/or IQ outside grid boundary'')')
6490 ELSEIF(IERR.EQ.3) THEN
6491 WRITE(6,'(/'' Apparently you try to assign a value'',
6492 + '' to a linear combination: no thank you'')')
6493 ENDIF
6494
6495 CALL QTRACE('QNPSET ',1)
6496
6497 STOP
6498
6499 END
6500
6501CDECK ID>, QADDSI.
6502
6503C =================================
6504 SUBROUTINE QADDSI(UNAM,IQ,FACTOR)
6505C =================================
6506
6507 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6508
6509 CHARACTER*(*) UNAM
6510 CHARACTER*5 NAME
6511
6512
6513 LOGICAL
6514 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6515 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6516 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6517 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6518 +LFFCAL,LASOLD
6519
6520 COMMON/QCFLAG/
6521 +IORD,IOLAST,
6522 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6523 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6524 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6525 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6526 +LFFCAL(7,30),LASOLD
6527
6528
6529 CHARACTER*5 PNAM,STFNAM
6530 LOGICAL LNFP
6531 COMMON /QCLNFP/ LNFP(0:30,3:5)
6532 COMMON /QCPNAM/ PNAM(0:30)
6533 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6534 COMMON /QCFNAM/ STFNAM(7)
6535
6536
6537 PARAMETER ( MXX = 410 )
6538 PARAMETER ( MQ2 = 120 )
6539
6540C-- Do not set the following parameter to zero!
6541 PARAMETER ( NDFMAX = 20)
6542
6543
6544 COMMON/QCGRID/
6545 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
6546 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
6547 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
6548 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
6549
6550
6551 COMMON/QCPASS/
6552 +ALPHA0, Q0ALFA, ASLAST, QALAST,
6553 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
6554 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
6555 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
6556 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
6557 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
6558 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
6559 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
6560 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
6561 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
6562
6563 LOGICAL LEVDONE,LE_DONE
6564 COMMON/QCLEVL/
6565 +LEVDONE(MXX,10),LE_DONE(MXX)
6566
6567
6568 CALL QTRACE('QADDSI ',0)
6569
6570 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
6571 IERR = 1
6572 GOTO 500
6573 ENDIF
6574
6575 CALL QSTRIP(UNAM,NAME)
6576
6577 ID = IDCHEK(NAME,4,'QADDSI',1)
6578
6579 IF(ID.EQ.-1) RETURN
6580
6581 IF(ID.EQ.0.OR.ID.EQ.1) THEN
6582 IERR = 2
6583 GOTO 500
6584 ENDIF
6585
6586 IF(IQ.LT.1.OR.IQ.GT.NQ2) THEN
6587 IERR = 3
6588 GOTO 500
6589 ENDIF
6590
6591 IF(ID.LT.0.OR.ID.GT.10) THEN
6592 IERR = 4
6593 GOTO 500
6594 ENDIF
6595
6596 DO IX = 1,NXX
6597C-- Invalidate evolution of this pdf
6598 LEVDONE(IX,MAX(ID,1)) = .FALSE.
6599 PDFQCD(IX,IQ,ID) = PDFQCD(IX,IQ,ID)+
6600 + FACTOR*PDFQCD(IX,IQ,1)
6601 ENDDO
6602
6603 DO I = 1,30
6604 DO J = 1,7
6605 LFFCAL(J,I) = .FALSE.
6606 ENDDO
6607 ENDDO
6608
6609 RETURN
6610
6611 500 CONTINUE
6612 WRITE(6,'(/'' ------------------------------------'')')
6613 WRITE(6,'( '' QCDNUM error in s/r QADDSI ---> STOP'')')
6614 WRITE(6,'( '' ------------------------------------'')')
6615 WRITE(6,'( '' Input NAME :'',A)') UNAM
6616 WRITE(6,'( '' IQ :'',I10)') IQ
6617 WRITE(6,'( '' Factor :'',E12.5)') FACTOR
6618 IF(IERR.EQ.1) THEN
6619 WRITE(6,'(/'' No x-Q2 grid available'')')
6620 ELSEIF(IERR.EQ.2) THEN
6621 WRITE(6,'(/'' This routine cannot be used'',
6622 + '' for singlet or gluon'')')
6623 ELSEIF(IERR.EQ.3) THEN
6624 WRITE(6,'(/'' IX and/or IQ outside grid boundary'')')
6625 ELSEIF(IERR.EQ.4) THEN
6626 WRITE(6,'(/'' Apparently you try to assign a value'',
6627 + '' to a linear combination: no thank you'')')
6628 ENDIF
6629
6630 CALL QTRACE('QADDSI ',1)
6631
6632 STOP
6633
6634 END
6635
6636CDECK ID>, QNPNUL.
6637
6638C =======================
6639 SUBROUTINE QNPNUL(UNAM)
6640C =======================
6641
6642C--- Set parton distribution 'NAME' to zero.
6643C--- Called by user.
6644
6645 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6646
6647 CHARACTER*(*) UNAM
6648 CHARACTER*5 NAME
6649
6650
6651 LOGICAL
6652 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6653 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6654 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6655 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6656 +LFFCAL,LASOLD
6657
6658 COMMON/QCFLAG/
6659 +IORD,IOLAST,
6660 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6661 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6662 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6663 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6664 +LFFCAL(7,30),LASOLD
6665
6666
6667 CHARACTER*5 PNAM,STFNAM
6668 LOGICAL LNFP
6669 COMMON /QCLNFP/ LNFP(0:30,3:5)
6670 COMMON /QCPNAM/ PNAM(0:30)
6671 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6672 COMMON /QCFNAM/ STFNAM(7)
6673
6674
6675 PARAMETER ( MXX = 410 )
6676 PARAMETER ( MQ2 = 120 )
6677
6678C-- Do not set the following parameter to zero!
6679 PARAMETER ( NDFMAX = 20)
6680
6681
6682 COMMON/QCGRID/
6683 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
6684 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
6685 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
6686 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
6687
6688
6689 COMMON/QCPASS/
6690 +ALPHA0, Q0ALFA, ASLAST, QALAST,
6691 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
6692 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
6693 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
6694 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
6695 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
6696 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
6697 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
6698 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
6699 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
6700
6701 LOGICAL LEVDONE,LE_DONE
6702 COMMON/QCLEVL/
6703 +LEVDONE(MXX,10),LE_DONE(MXX)
6704
6705
6706 CALL QTRACE('QNPNUL ',0)
6707
6708 CALL QSTRIP(UNAM,NAME)
6709
6710 ID = IDCHEK(NAME,4,'QNPNUL',1)
6711
6712 IF(ID.EQ.-1) RETURN
6713
6714 IF(ID.LT.0.OR.ID.GT.10) THEN
6715 GOTO 500
6716 ENDIF
6717
6718 DO IX = 1,MXX
6719 DO IQ = 1,MQ2
6720 PDFQCD(IX,IQ,ID) = 0.
6721 ENDDO
6722 ENDDO
6723
6724C-- Invalidate all evolutions
6725 CALL QNFALS(LEVDONE,MXX*10)
6726
6727 DO I = 1,30
6728 DO J = 1,7
6729 LFFCAL(J,I) = .FALSE.
6730 ENDDO
6731 ENDDO
6732
6733 RETURN
6734
6735 500 CONTINUE
6736 WRITE(6,'(/'' ------------------------------------'')')
6737 WRITE(6,'( '' QCDNUM error in s/r QNPNUL ---> STOP'')')
6738 WRITE(6,'( '' ------------------------------------'')')
6739 WRITE(6,'( '' Input NAME :'',A)') UNAM
6740 WRITE(6,'(/'' Apparently you try to clear'',
6741 + '' a linear combination: no thank you'')')
6742
6743 CALL QTRACE('QNPNUL ',1)
6744
6745 STOP
6746
6747 END
6748
6749CDECK ID>, IX1CHK.
6750
6751C ==============================
6752 INTEGER FUNCTION IX1CHK(ISTOP)
6753C ==============================
6754
6755C--- Check all pdfs are zero at NXX+1 (x = 1).
6756C--- IX1CHK = 0 : All ok.
6757C--- = 1 : Nonzero entry in gluon or singlet.
6758C--- = 2-10 : Nonzero entry in PDF 2-10.
6759C--- Called by user.
6760
6761 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6762
6763
6764 LOGICAL
6765 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6766 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6767 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6768 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6769 +LFFCAL,LASOLD
6770
6771 COMMON/QCFLAG/
6772 +IORD,IOLAST,
6773 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6774 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6775 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6776 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6777 +LFFCAL(7,30),LASOLD
6778
6779
6780 CHARACTER*5 PNAM,STFNAM
6781 LOGICAL LNFP
6782 COMMON /QCLNFP/ LNFP(0:30,3:5)
6783 COMMON /QCPNAM/ PNAM(0:30)
6784 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
6785 COMMON /QCFNAM/ STFNAM(7)
6786
6787
6788 PARAMETER ( MXX = 410 )
6789 PARAMETER ( MQ2 = 120 )
6790
6791C-- Do not set the following parameter to zero!
6792 PARAMETER ( NDFMAX = 20)
6793
6794
6795 COMMON/QCGRID/
6796 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
6797 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
6798 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
6799 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
6800
6801
6802 COMMON/QCPASS/
6803 +ALPHA0, Q0ALFA, ASLAST, QALAST,
6804 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
6805 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
6806 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
6807 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
6808 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
6809 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
6810 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
6811 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
6812 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
6813
6814 LOGICAL LEVDONE,LE_DONE
6815 COMMON/QCLEVL/
6816 +LEVDONE(MXX,10),LE_DONE(MXX)
6817
6818
6819 CALL QTRACE('IX1CHK ',0)
6820
6821 IERR = -1
6822 JQ = 0
6823
6824 DO ID = 0,10
6825 DO IQ = 1,NQ2
6826 IF(ABS(PDFQCD(NXX+1,IQ,ID)).GT.1.E-11) THEN
6827 IERR = ID
6828 JQ = IQ
6829 ENDIF
6830 ENDDO
6831 ENDDO
6832
6833 IF(IERR.EQ.-1) THEN
6834 IX1CHK = 0
6835 RETURN
6836 ENDIF
6837
6838 IX1CHK = MAX(IERR,1)
6839 IF(ISTOP.EQ.0) RETURN
6840
6841 WRITE(6,'(/'' ------------------------------------'')')
6842 WRITE(6,'( '' QCDNUM error in s/r IX1CHK ---> STOP'')')
6843 WRITE(6,'( '' ------------------------------------'')')
6844 WRITE(6,'( '' Pdf identifier ID :'',I5)') IERR
6845 WRITE(6,'( '' X = 1 gridpoint IX :'',I5)') NXX+1
6846 WRITE(6,'( '' Q2 gridpoint IQ :'',I5)') JQ
6847 WRITE(6,'(/'' Pdf nonzero at x = 1;''/
6848 + '' this should never happen....'')')
6849
6850 CALL QTRACE('IX1CHK ',1)
6851
6852 STOP
6853
6854 END
6855
6856CDECK ID>, EVOLSG.
6857
6858C ================================
6859 SUBROUTINE EVOLSG(IQ0,IUQL,IUQH)
6860C ================================
6861
6862 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
6863
6864
6865 LOGICAL
6866 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6867 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6868 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6869 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6870 +LFFCAL,LASOLD
6871
6872 COMMON/QCFLAG/
6873 +IORD,IOLAST,
6874 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
6875 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
6876 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
6877 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
6878 +LFFCAL(7,30),LASOLD
6879
6880
6881 PARAMETER ( MXX = 410 )
6882 PARAMETER ( MQ2 = 120 )
6883
6884C-- Do not set the following parameter to zero!
6885 PARAMETER ( NDFMAX = 20)
6886
6887
6888 COMMON/QCGRID/
6889 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
6890 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
6891 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
6892 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
6893
6894
6895 COMMON/QCPASS/
6896 +ALPHA0, Q0ALFA, ASLAST, QALAST,
6897 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
6898 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
6899 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
6900 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
6901 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
6902 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
6903 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
6904 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
6905 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
6906
6907 LOGICAL LEVDONE,LE_DONE
6908 COMMON/QCLEVL/
6909 +LEVDONE(MXX,10),LE_DONE(MXX)
6910
6911
6912 LOGICAL LTIME
6913 REAL T_START,T_END,T_SPENT
6914 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
6915 +E_CALLS(10),LTIME
6916 COMMON/QCFCNT/IFCNT(-1:1,5)
6917
6918
6919 IF(LTIME) CALL TIMEX_LHA(T_START(5))
6920
6921 CALL QTRACE('EVOLSG ',0)
6922
6923 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
6924 IERR = 1
6925 GOTO 500
6926 ENDIF
6927
6928 IQL = IUQL
6929 IQH = IUQH
6930
6931 IXL = MAX(ABS(IXFROMX(XMICUT)),1)
6932 IQD = ABS(IQFROMQ(QMICUT))
6933 IQD = MAX(IQD,ABS(IQFROMQ(QMINAS)))
6934 IQU = ABS(IQFROMQ(QMACUT))
6935 IF(IQD.NE.0) IQL = MAX(IQD,IQL)
6936 IF(IQU.NE.0) IQH = MIN(IQU+1,IQH)
6937
6938 IF(IQL.LE.0) IQL = 1
6939 IF(IQH.LE.0.OR.IQH.GT.NQ2) IQH = NQ2
6940 IF(IQL.EQ.IQ0.AND.IQH.EQ.IQ0) RETURN
6941 IF(IQL.GE.IQH) THEN
6942 IERR = 2
6943 GOTO 500
6944 ENDIF
6945 IF(IQL.LT.1.OR.IQL.GE.NQ2) THEN
6946 IERR = 3
6947 GOTO 500
6948 ENDIF
6949 IF(IQH.LE.1.OR.IQH.GT.NQ2) THEN
6950 IERR = 3
6951 GOTO 500
6952 ENDIF
6953 IF(IQ0.LT.IQL.OR.IQ0.GT.IQH) THEN
6954 IERR = 4
6955 GOTO 500
6956 ENDIF
6957 IF(.NOT.LWT1OK) THEN
6958 IERR = 5
6959 GOTO 500
6960 ENDIF
6961 IF(IORD.EQ.2.AND..NOT.LWT2OK) THEN
6962 IERR = 6
6963 GOTO 500
6964 ENDIF
6965
6966 IRUN = 0
6967 IF(.NOT.LALFOK) THEN
6968 CALL QFILAS('EVOLSG')
6969 IRUN = 1
6970 ENDIF
6971 IF(.NOT.LDQ2OK) THEN
6972 CALL QDELQ2
6973 IRUN = 1
6974 ENDIF
6975
6976 DO IX = 1,NXX
6977 LE_DONE(IX) = LEVDONE(IX,1)
6978 DO IQ = 1,NQ2
6979 FGLQCD(IX,IQ) = PDFQCD(IX,IQ,0)
6980 FSIQCD(IX,IQ) = PDFQCD(IX,IQ,1)
6981 ENDDO
6982 ENDDO
6983
6984 IF(IQ0.NE.IQ0_LAST(1) .OR.
6985 + IQL.NE.IQL_LAST(1) .OR.
6986 + IQH.NE.IQH_LAST(1) ) IRUN = 1
6987
6988 CALL APSI(IXL,IQ0,IQL,IQH,IRUN,EVL)
6989
6990 IQ0_LAST(1) = IQ0
6991 IQL_LAST(1) = IQL
6992 IQH_LAST(1) = IQH
6993
6994 DO IX = 1,NXX
6995 LEVDONE(IX,1) = LE_DONE(IX)
6996 DO IQ = 1,NQ2
6997 PDFQCD(IX,IQ,0) = FGLQCD(IX,IQ)
6998 PDFQCD(IX,IQ,1) = FSIQCD(IX,IQ)
6999 ENDDO
7000 ENDDO
7001
7002 DO I = 1,30
7003 DO J = 1,7
7004 LFFCAL(J,I) = .FALSE.
7005 ENDDO
7006 ENDDO
7007
7008 IF(LTIME) THEN
7009 CALL TIMEX_LHA(T_END(5))
7010 T_SPENT(5) = T_SPENT(5)+T_END(5)-T_START(5)
7011 N_CALLS(5) = N_CALLS(5)+1
7012 E_CALLS(5) = E_CALLS(5)+EVL
7013 ENDIF
7014
7015 RETURN
7016
7017 500 CONTINUE
7018 WRITE(6,'(/'' ------------------------------------'')')
7019 WRITE(6,'( '' QCDNUM error in s/r EVOLSG ---> STOP'')')
7020 WRITE(6,'( '' ------------------------------------'')')
7021 WRITE(6,'( '' Input IQ0 :'',I5)') IQ0
7022 WRITE(6,'( '' IQLow :'',I5)') IUQL
7023 WRITE(6,'( '' IQHigh :'',I5)') IUQH
7024 IF(IERR.NE.1) THEN
7025 WRITE(6,'(/'' After cuts IQ0, Q20 :'',I5,E12.5)') IQ0,Q2TAB(IQ0)
7026 WRITE(6,'( '' IQL, Q2L :'',I5,E12.5)') IQL,Q2TAB(IQL)
7027 WRITE(6,'( '' IQH, Q2H :'',I5,E12.5)') IQH,Q2TAB(IQH)
7028 ENDIF
7029 IF(IERR.EQ.1) THEN
7030 WRITE(6,'(/'' No x-Q2 grid available'')')
7031 ELSEIF(IERR.EQ.2) THEN
7032 WRITE(6,'(/'' Value of IQL .ge. IQH'',
7033 + '' (after applying Q2 cuts, if any)'')')
7034 ELSEIF(IERR.EQ.3) THEN
7035 WRITE(6,'(/'' IQL and/or IQH outside grid boundary'')')
7036 ELSEIF(IERR.EQ.4) THEN
7037 WRITE(6,'(/'' IQ0 outside the range [IQL,IQH]'',
7038 + '' (after applying Q2 cuts, if any)'')')
7039 ELSEIF(IERR.EQ.5) THEN
7040 WRITE(6,'(/'' No LO weight tables available'',
7041 + '' (please call s/r QNFILW)'')')
7042 ELSEIF(IERR.EQ.6) THEN
7043 WRITE(6,'(/'' No NLO weight tables available'',
7044 + '' (please call s/r QNFILW)'')')
7045 ENDIF
7046
7047 CALL QTRACE('EVOLSG ',1)
7048
7049 STOP
7050
7051 END
7052
7053
7054CDECK ID>, APSI.
7055C =========================================
7056 SUBROUTINE APSI(IXL,IQ0,IQL,IQH,IRUN,EVL)
7057C =========================================
7058
7059 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7060
7061 COMMON/QCCONS/
7062 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
7063 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
7064 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
7065 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
7066 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
7067 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
7068
7069
7070
7071 LOGICAL
7072 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7073 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7074 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7075 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7076 +LFFCAL,LASOLD
7077
7078 COMMON/QCFLAG/
7079 +IORD,IOLAST,
7080 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7081 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7082 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7083 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7084 +LFFCAL(7,30),LASOLD
7085
7086
7087 PARAMETER ( MXX = 410 )
7088 PARAMETER ( MQ2 = 120 )
7089
7090C-- Do not set the following parameter to zero!
7091 PARAMETER ( NDFMAX = 20)
7092
7093
7094 COMMON/QCGRID/
7095 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
7096 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
7097 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
7098 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
7099
7100
7101 REAL
7102 +WGTFF1,WGTFG1,
7103 +WGTGF1,WGTGG1,
7104 +WGTPP2,WGTPM2,WGTNS2,
7105 +WGTFF2,WGTFG2,
7106 +WGTGF2,WGTGG2,
7107 +WGTC2Q,WGTC2G,YNTC2Q,
7108 +WGTCLQ,WGTCLG,WGTC3Q
7109
7110 COMMON/QCWEIT/
7111 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
7112 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
7113 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
7114 +WGTNS2(MXX*(MXX+1)/2,3:5),
7115 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
7116 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
7117 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
7118 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
7119 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
7120
7121 COMMON/QCWADR/ IWADR(MXX,MXX)
7122
7123
7124 COMMON/QCPASS/
7125 +ALPHA0, Q0ALFA, ASLAST, QALAST,
7126 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
7127 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
7128 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
7129 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
7130 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
7131 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
7132 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
7133 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
7134 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
7135
7136 LOGICAL LEVDONE,LE_DONE
7137 COMMON/QCLEVL/
7138 +LEVDONE(MXX,10),LE_DONE(MXX)
7139
7140
7141 LOGICAL LTIME
7142 REAL T_START,T_END,T_SPENT
7143 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
7144 +E_CALLS(10),LTIME
7145 COMMON/QCFCNT/IFCNT(-1:1,5)
7146
7147
7148 EVL = 0.
7149
7150 FSI = FSIQCD(NXX,IQ0)
7151 FGL = FGLQCD(NXX,IQ0)
7152C -------------------------------------------
7153 IF(.NOT.LE_DONE(NXX) .OR. IRUN.EQ.1) THEN !
7154C -------------------------------------------
7155
7156 NF = NFMAP(IQ0)
7157
7158 WQQ = ALFAPQ(IQ0) * WGTFF1(IWADR(NXX,NXX)) +
7159 + ALFA2Q(IQ0) * WGTFF2(IWADR(NXX,NXX),NF)
7160 WQG = ALFAPQ(IQ0) * WGTFG1(IWADR(NXX,NXX),NF) +
7161 + ALFA2Q(IQ0) * WGTFG2(IWADR(NXX,NXX),NF)
7162 WGQ = ALFAPQ(IQ0) * WGTGF1(IWADR(NXX,NXX)) +
7163 + ALFA2Q(IQ0) * WGTGF2(IWADR(NXX,NXX),NF)
7164 WGG = ALFAPQ(IQ0) * WGTGG1(IWADR(NXX,NXX),NF) +
7165 + ALFA2Q(IQ0) * WGTGG2(IWADR(NXX,NXX),NF)
7166
7167 DSI = WQQ*FSI+WQG*FGL
7168 DGL = WGQ*FSI+WGG*FGL
7169
7170 FSI0 = FSI
7171 DSI0 = DSI
7172 FGL0 = FGL
7173 DGL0 = DGL
7174 FSIQCD(NXX,IQ0) = FSI
7175 DSIQCD(NXX,IQ0) = DSI
7176 FGLQCD(NXX,IQ0) = FGL
7177 DGGQCD(NXX,IQ0) = DGL
7178 EVL = EVL+1.
7179
7180 DO 100 IQ = IQ0+1,IQH
7181 DEL = DELUP(IQ)
7182 NF = NFMAP(IQ)
7183 WQQ = ALFAPQ(IQ) * WGTFF1(IWADR(NXX,NXX)) +
7184 + ALFA2Q(IQ) * WGTFF2(IWADR(NXX,NXX),NF)
7185 WQG = ALFAPQ(IQ) * WGTFG1(IWADR(NXX,NXX),NF) +
7186 + ALFA2Q(IQ) * WGTFG2(IWADR(NXX,NXX),NF)
7187 WGQ = ALFAPQ(IQ) * WGTGF1(IWADR(NXX,NXX)) +
7188 + ALFA2Q(IQ) * WGTGF2(IWADR(NXX,NXX),NF)
7189 WGG = ALFAPQ(IQ) * WGTGG1(IWADR(NXX,NXX),NF) +
7190 + ALFA2Q(IQ) * WGTGG2(IWADR(NXX,NXX),NF)
7191 AAS = 2.*FSI + DSI*DEL
7192 BBS = 2. - WQQ*DEL
7193 AAG = 2.*FGL + DGL*DEL
7194 BBG = 2. - WGG*DEL
7195 FSI = (AAS*BBG+WQG*AAG*DEL) / (BBS*BBG-WQG*WGQ*DEL*DEL)
7196 FGL = (AAG*BBS+WGQ*AAS*DEL) / (BBG*BBS-WGQ*WQG*DEL*DEL)
7197 DSI = WQQ*FSI+WQG*FGL
7198 DGL = WGQ*FSI+WGG*FGL
7199 FSIQCD(NXX,IQ) = FSI
7200 DSIQCD(NXX,IQ) = DSI
7201 FGLQCD(NXX,IQ) = FGL
7202 DGGQCD(NXX,IQ) = DGL
7203 100 CONTINUE
7204 EVL = EVL+IQH-IQ0
7205
7206 FSI = FSI0
7207 DSI = DSI0
7208 FGL = FGL0
7209 DGL = DGL0
7210
7211 DO 200 IQ = IQ0-1,IQL,-1
7212 DEL = DELDN(IQ)
7213 NF = NFMAP(IQ)
7214 WQQ = ALFAPQ(IQ) * WGTFF1(IWADR(NXX,NXX)) +
7215 + ALFA2Q(IQ) * WGTFF2(IWADR(NXX,NXX),NF)
7216 WQG = ALFAPQ(IQ) * WGTFG1(IWADR(NXX,NXX),NF) +
7217 + ALFA2Q(IQ) * WGTFG2(IWADR(NXX,NXX),NF)
7218 WGQ = ALFAPQ(IQ) * WGTGF1(IWADR(NXX,NXX)) +
7219 + ALFA2Q(IQ) * WGTGF2(IWADR(NXX,NXX),NF)
7220 WGG = ALFAPQ(IQ) * WGTGG1(IWADR(NXX,NXX),NF) +
7221 + ALFA2Q(IQ) * WGTGG2(IWADR(NXX,NXX),NF)
7222 AAS = 2.*FSI + DSI*DEL
7223 BBS = 2. - WQQ*DEL
7224 AAG = 2.*FGL + DGL*DEL
7225 BBG = 2. - WGG*DEL
7226 FSI = (AAS*BBG+WQG*AAG*DEL) / (BBS*BBG-WQG*WGQ*DEL*DEL)
7227 FGL = (AAG*BBS+WGQ*AAS*DEL) / (BBG*BBS-WGQ*WQG*DEL*DEL)
7228 DSI = WQQ*FSI+WQG*FGL
7229 DGL = WGQ*FSI+WGG*FGL
7230 FSIQCD(NXX,IQ) = FSI
7231 DSIQCD(NXX,IQ) = DSI
7232 FGLQCD(NXX,IQ) = FGL
7233 DGGQCD(NXX,IQ) = DGL
7234 200 CONTINUE
7235 EVL = EVL+IQ0-IQL
7236
7237C -------
7238 ENDIF !
7239C -------
7240
7241C ---------------------------
7242 DO 300 IX0 = NXX-1,IXL,-1 !
7243C ---------------------------
7244
7245 FSI = FSIQCD(IX0,IQ0)
7246 FGL = FGLQCD(IX0,IQ0)
7247 IF(LE_DONE(IX0) .AND. IRUN.EQ.0) GOTO 300
7248 ALF = ALFAPQ(IQ0)
7249 AL2 = ALFA2Q(IQ0)
7250 SQQ1 = 0.
7251 SQG1 = 0.
7252 SGQ1 = 0.
7253 SGG1 = 0.
7254 SQQ2 = 0.
7255 SQG2 = 0.
7256 SGQ2 = 0.
7257 SGG2 = 0.
7258 NF = NFMAP(IQ0)
7259 DO 220 IX = NXX,IX0+1,-1
7260 IADR = IWADR(IX,IX0)
7261 SQQ1 = SQQ1 + WGTFF1(IADR) * FSIQCD(IX,IQ0)
7262 SQQ2 = SQQ2 + WGTFF2(IADR,NF) * FSIQCD(IX,IQ0)
7263 SQG1 = SQG1 + WGTFG1(IADR,NF) * FGLQCD(IX,IQ0)
7264 SQG2 = SQG2 + WGTFG2(IADR,NF) * FGLQCD(IX,IQ0)
7265 SGQ1 = SGQ1 + WGTGF1(IADR) * FSIQCD(IX,IQ0)
7266 SGQ2 = SGQ2 + WGTGF2(IADR,NF) * FSIQCD(IX,IQ0)
7267 SGG1 = SGG1 + WGTGG1(IADR,NF) * FGLQCD(IX,IQ0)
7268 SGG2 = SGG2 + WGTGG2(IADR,NF) * FGLQCD(IX,IQ0)
7269 220 CONTINUE
7270 IAD = IWADR(IX0,IX0)
7271 SQQ = ALF*SQQ1 + AL2*SQQ2
7272 SQG = ALF*SQG1 + AL2*SQG2
7273 SGQ = ALF*SGQ1 + AL2*SGQ2
7274 SGG = ALF*SGG1 + AL2*SGG2
7275 WQQ = ALF* WGTFF1(IAD) + AL2*WGTFF2(IAD,NF)
7276 WQG = ALF* WGTFG1(IAD,NF) + AL2*WGTFG2(IAD,NF)
7277 WGQ = ALF* WGTGF1(IAD) + AL2*WGTGF2(IAD,NF)
7278 WGG = ALF* WGTGG1(IAD,NF) + AL2*WGTGG2(IAD,NF)
7279 DSI = WQQ*FSI+SQQ+WQG*FGL+SQG
7280 DGL = WGQ*FSI+SGQ+WGG*FGL+SGG
7281
7282 FSI0 = FSI
7283 DSI0 = DSI
7284 FGL0 = FGL
7285 DGL0 = DGL
7286 FSIQCD(IX0,IQ0) = FSI
7287 DSIQCD(IX0,IQ0) = DSI
7288 FGLQCD(IX0,IQ0) = FGL
7289 DGGQCD(IX0,IQ0) = DGL
7290 EVL = EVL+NXX-IX0+1
7291
7292 DO 250 IQ = IQ0+1,IQH
7293 IF(IFAILC(IX0,IQ).NE.0) GOTO 250
7294 ALF = ALFAPQ(IQ)
7295 AL2 = ALFA2Q(IQ)
7296 DEL = DELUP(IQ)
7297 SQQ1 = 0.
7298 SQG1 = 0.
7299 SGQ1 = 0.
7300 SGG1 = 0.
7301 SQQ2 = 0.
7302 SQG2 = 0.
7303 SGQ2 = 0.
7304 SGG2 = 0.
7305 NF = NFMAP(IQ)
7306 DO 230 IX = NXX,IX0+1,-1
7307 IADR = IWADR(IX,IX0)
7308 SQQ1 = SQQ1 + WGTFF1(IADR) * FSIQCD(IX,IQ)
7309 SQQ2 = SQQ2 + WGTFF2(IADR,NF) * FSIQCD(IX,IQ)
7310 SQG1 = SQG1 + WGTFG1(IADR,NF) * FGLQCD(IX,IQ)
7311 SQG2 = SQG2 + WGTFG2(IADR,NF) * FGLQCD(IX,IQ)
7312 SGQ1 = SGQ1 + WGTGF1(IADR) * FSIQCD(IX,IQ)
7313 SGQ2 = SGQ2 + WGTGF2(IADR,NF) * FSIQCD(IX,IQ)
7314 SGG1 = SGG1 + WGTGG1(IADR,NF) * FGLQCD(IX,IQ)
7315 SGG2 = SGG2 + WGTGG2(IADR,NF) * FGLQCD(IX,IQ)
7316 230 CONTINUE
7317 IAD = IWADR(IX0,IX0)
7318 SQQ = ALF*SQQ1 + AL2*SQQ2
7319 SQG = ALF*SQG1 + AL2*SQG2
7320 SGQ = ALF*SGQ1 + AL2*SGQ2
7321 SGG = ALF*SGG1 + AL2*SGG2
7322 WQQ = ALF* WGTFF1(IAD) + AL2*WGTFF2(IAD,NF)
7323 WQG = ALF* WGTFG1(IAD,NF) + AL2*WGTFG2(IAD,NF)
7324 WGQ = ALF* WGTGF1(IAD) + AL2*WGTGF2(IAD,NF)
7325 WGG = ALF* WGTGG1(IAD,NF) + AL2*WGTGG2(IAD,NF)
7326 AAS = 2.*FSI + (DSI+SQQ+SQG)*DEL
7327 BBS = 2. - WQQ*DEL
7328 AAG = 2.*FGL + (DGL+SGQ+SGG)*DEL
7329 BBG = 2. - WGG*DEL
7330 FSI = (AAS*BBG+WQG*AAG*DEL) / (BBS*BBG-WQG*WGQ*DEL*DEL)
7331 FGL = (AAG*BBS+WGQ*AAS*DEL) / (BBG*BBS-WGQ*WQG*DEL*DEL)
7332 DSI = WQQ*FSI+SQQ+WQG*FGL+SQG
7333 DGL = WGQ*FSI+SGQ+WGG*FGL+SGG
7334 FSIQCD(IX0,IQ) = FSI
7335 DSIQCD(IX0,IQ) = DSI
7336 FGLQCD(IX0,IQ) = FGL
7337 DGGQCD(IX0,IQ) = DGL
7338 EVL = EVL+NXX-IX0+1
7339 250 CONTINUE
7340
7341 FSI = FSI0
7342 DSI = DSI0
7343 FGL = FGL0
7344 DGL = DGL0
7345
7346 DO 270 IQ = IQ0-1,IQL,-1
7347 ALF = ALFAPQ(IQ)
7348 AL2 = ALFA2Q(IQ)
7349 DEL = DELDN(IQ)
7350 SQQ1 = 0.
7351 SQG1 = 0.
7352 SGQ1 = 0.
7353 SGG1 = 0.
7354 SQQ2 = 0.
7355 SQG2 = 0.
7356 SGQ2 = 0.
7357 SGG2 = 0.
7358 NF = NFMAP(IQ)
7359 DO 260 IX = NXX,IX0+1,-1
7360 IADR = IWADR(IX,IX0)
7361 SQQ1 = SQQ1 + WGTFF1(IADR) * FSIQCD(IX,IQ)
7362 SQQ2 = SQQ2 + WGTFF2(IADR,NF) * FSIQCD(IX,IQ)
7363 SQG1 = SQG1 + WGTFG1(IADR,NF) * FGLQCD(IX,IQ)
7364 SQG2 = SQG2 + WGTFG2(IADR,NF) * FGLQCD(IX,IQ)
7365 SGQ1 = SGQ1 + WGTGF1(IADR) * FSIQCD(IX,IQ)
7366 SGQ2 = SGQ2 + WGTGF2(IADR,NF) * FSIQCD(IX,IQ)
7367 SGG1 = SGG1 + WGTGG1(IADR,NF) * FGLQCD(IX,IQ)
7368 SGG2 = SGG2 + WGTGG2(IADR,NF) * FGLQCD(IX,IQ)
7369 260 CONTINUE
7370 IAD = IWADR(IX0,IX0)
7371 SQQ = ALF*SQQ1 + AL2*SQQ2
7372 SQG = ALF*SQG1 + AL2*SQG2
7373 SGQ = ALF*SGQ1 + AL2*SGQ2
7374 SGG = ALF*SGG1 + AL2*SGG2
7375 WQQ = ALF* WGTFF1(IAD) + AL2*WGTFF2(IAD,NF)
7376 WQG = ALF* WGTFG1(IAD,NF) + AL2*WGTFG2(IAD,NF)
7377 WGQ = ALF* WGTGF1(IAD) + AL2*WGTGF2(IAD,NF)
7378 WGG = ALF* WGTGG1(IAD,NF) + AL2*WGTGG2(IAD,NF)
7379 AAS = 2.*FSI + (DSI+SQQ+SQG)*DEL
7380 BBS = 2. - WQQ*DEL
7381 AAG = 2.*FGL + (DGL+SGQ+SGG)*DEL
7382 BBG = 2. - WGG*DEL
7383 FSI = (AAS*BBG+WQG*AAG*DEL) / (BBS*BBG-WQG*WGQ*DEL*DEL)
7384 FGL = (AAG*BBS+WGQ*AAS*DEL) / (BBG*BBS-WGQ*WQG*DEL*DEL)
7385 DSI = WQQ*FSI+SQQ+WQG*FGL+SQG
7386 DGL = WGQ*FSI+SGQ+WGG*FGL+SGG
7387 FSIQCD(IX0,IQ) = FSI
7388 DSIQCD(IX0,IQ) = DSI
7389 FGLQCD(IX0,IQ) = FGL
7390 DGGQCD(IX0,IQ) = DGL
7391 EVL = EVL+NXX-IX0+1
7392 270 CONTINUE
7393
7394C ----------
7395 300 CONTINUE !
7396C ----------
7397
7398 EVL = EVL*2./(NXX*(NXX+1)*NQ2)
7399
7400 CALL QNTRUE(LE_DONE,NXX)
7401
7402 RETURN
7403 END
7404
7405CDECK ID>, EVOLNM.
7406
7407C =====================================
7408 SUBROUTINE EVOLNM(UNAM,IQ0,IUQL,IUQH)
7409C =====================================
7410
7411 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7412
7413 CHARACTER*(*) UNAM
7414 CHARACTER*5 NAME
7415
7416
7417 CHARACTER*5 PNAM,STFNAM
7418 LOGICAL LNFP
7419 COMMON /QCLNFP/ LNFP(0:30,3:5)
7420 COMMON /QCPNAM/ PNAM(0:30)
7421 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
7422 COMMON /QCFNAM/ STFNAM(7)
7423
7424
7425 PARAMETER ( MXX = 410 )
7426 PARAMETER ( MQ2 = 120 )
7427
7428C-- Do not set the following parameter to zero!
7429 PARAMETER ( NDFMAX = 20)
7430
7431
7432 COMMON/QCGRID/
7433 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
7434 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
7435 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
7436 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
7437
7438
7439 LOGICAL
7440 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7441 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7442 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7443 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7444 +LFFCAL,LASOLD
7445
7446 COMMON/QCFLAG/
7447 +IORD,IOLAST,
7448 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7449 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7450 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7451 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7452 +LFFCAL(7,30),LASOLD
7453
7454
7455 COMMON/QCPASS/
7456 +ALPHA0, Q0ALFA, ASLAST, QALAST,
7457 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
7458 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
7459 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
7460 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
7461 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
7462 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
7463 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
7464 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
7465 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
7466
7467 LOGICAL LEVDONE,LE_DONE
7468 COMMON/QCLEVL/
7469 +LEVDONE(MXX,10),LE_DONE(MXX)
7470
7471
7472 REAL
7473 +WGTFF1,WGTFG1,
7474 +WGTGF1,WGTGG1,
7475 +WGTPP2,WGTPM2,WGTNS2,
7476 +WGTFF2,WGTFG2,
7477 +WGTGF2,WGTGG2,
7478 +WGTC2Q,WGTC2G,YNTC2Q,
7479 +WGTCLQ,WGTCLG,WGTC3Q
7480
7481 COMMON/QCWEIT/
7482 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
7483 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
7484 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
7485 +WGTNS2(MXX*(MXX+1)/2,3:5),
7486 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
7487 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
7488 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
7489 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
7490 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
7491
7492 COMMON/QCWADR/ IWADR(MXX,MXX)
7493
7494
7495 LOGICAL LTIME
7496 REAL T_START,T_END,T_SPENT
7497 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
7498 +E_CALLS(10),LTIME
7499 COMMON/QCFCNT/IFCNT(-1:1,5)
7500
7501
7502 IF(LTIME) CALL TIMEX_LHA(T_START(3))
7503
7504 CALL QTRACE('EVOLNM ',0)
7505
7506 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
7507 IERR = 1
7508 GOTO 500
7509 ENDIF
7510
7511 IQL = IUQL
7512 IQH = IUQH
7513
7514 IXL = MAX(ABS(IXFROMX(XMICUT)),1)
7515 IQD = ABS(IQFROMQ(QMICUT))
7516 IQD = MAX(IQD,ABS(IQFROMQ(QMINAS)))
7517 IQU = ABS(IQFROMQ(QMACUT))
7518 IF(IQD.NE.0) IQL = MAX(IQD,IQL)
7519 IF(IQU.NE.0) IQH = MIN(IQU+1,IQH)
7520
7521 IF(IQL.LE.0) IQL = 1
7522 IF(IQH.LE.0.OR.IQH.GT.NQ2) IQH = NQ2
7523 IF(IQL.EQ.IQ0.AND.IQH.EQ.IQ0) RETURN
7524 IF(IQL.GE.IQH) THEN
7525 IERR = 2
7526 GOTO 500
7527 ENDIF
7528 IF(IQL.LT.1.OR.IQL.GE.NQ2) THEN
7529 IERR = 3
7530 GOTO 500
7531 ENDIF
7532 IF(IQH.LE.1.OR.IQH.GT.NQ2) THEN
7533 IERR = 3
7534 GOTO 500
7535 ENDIF
7536 IF(IQ0.LT.IQL.OR.IQ0.GT.IQH) THEN
7537 IERR = 4
7538 GOTO 500
7539 ENDIF
7540 IF(.NOT.LWT1OK) THEN
7541 IERR = 5
7542 GOTO 500
7543 ENDIF
7544 IF(IORD.EQ.2.AND..NOT.LWT2OK) THEN
7545 IERR = 6
7546 GOTO 500
7547 ENDIF
7548
7549 CALL QSTRIP(UNAM,NAME)
7550
7551 NFMI = 9
7552 NFMA = 0
7553 DO 15 IQ = IQL,IQH
7554 NFMI = MIN(NFMI,NFMAP(IQ))
7555 NFMA = MAX(NFMA,NFMAP(IQ))
7556 15 CONTINUE
7557
7558 DO 16 NF = NFMI,NFMA
7559 ID = IDCHEK(NAME,NF,'EVOLNM',1)
7560 16 CONTINUE
7561
7562 IRUN = 0
7563 IF(LPLUS) THEN
7564 DO 19 NF = 3,5
7565 DO 18 IX0 = 1,NXX
7566 DO 17 IX = IX0,NXX
7567 WGTNS2(IWADR(IX,IX0),NF) = WGTPM2(IWADR(IX,IX0),NF)
7568 17 CONTINUE
7569 18 CONTINUE
7570 19 CONTINUE
7571 IRUN = 1
7572 ENDIF
7573 LPLUS = .FALSE.
7574
7575 IF(.NOT.LALFOK) THEN
7576 CALL QFILAS('EVOLNM')
7577 IRUN = 1
7578 ENDIF
7579 IF(.NOT.LDQ2OK) THEN
7580 CALL QDELQ2
7581 IRUN = 1
7582 ENDIF
7583
7584 DO IX = 1,NXX
7585 LE_DONE(IX) = LEVDONE(IX,ID)
7586 DO IQ = 1,NQ2
7587 FNSQCD(IX,IQ) = PDFQCD(IX,IQ,ID)
7588 ENDDO
7589 ENDDO
7590
7591 IF(IQ0.NE.IQ0_LAST(ID) .OR.
7592 + IQL.NE.IQL_LAST(ID) .OR.
7593 + IQH.NE.IQH_LAST(ID) ) IRUN = 1
7594
7595 CALL APNS(IXL,IQ0,IQL,IQH,IRUN,EVL)
7596
7597 IQ0_LAST(ID) = IQ0
7598 IQL_LAST(ID) = IQL
7599 IQH_LAST(ID) = IQH
7600
7601 DO IX = 1,NXX
7602 LEVDONE(IX,ID) = LE_DONE(IX)
7603 DO IQ = 1,NQ2
7604 PDFQCD(IX,IQ,ID) = FNSQCD(IX,IQ)
7605 ENDDO
7606 ENDDO
7607
7608 DO I = 1,30
7609 DO J = 1,7
7610 LFFCAL(J,I) = .FALSE.
7611 ENDDO
7612 ENDDO
7613
7614 IF(LTIME) THEN
7615 CALL TIMEX_LHA(T_END(3))
7616 T_SPENT(3) = T_SPENT(3)+T_END(3)-T_START(3)
7617 N_CALLS(3) = N_CALLS(3)+1
7618 E_CALLS(3) = E_CALLS(3)+EVL
7619 ENDIF
7620
7621 RETURN
7622
7623 500 CONTINUE
7624 WRITE(6,'(/'' ------------------------------------'')')
7625 WRITE(6,'( '' QCDNUM error in s/r EVOLNM ---> STOP'')')
7626 WRITE(6,'( '' ------------------------------------'')')
7627 WRITE(6,'( '' Input NAME :'',A)') UNAM
7628 WRITE(6,'( '' IQ0 :'',I5)') IQ0
7629 WRITE(6,'( '' IQLow :'',I5)') IUQL
7630 WRITE(6,'( '' IQHigh :'',I5)') IUQH
7631 IF(IERR.NE.1) THEN
7632 WRITE(6,'(/'' After cuts IQ0, Q20 :'',I5,E12.5)') IQ0,Q2TAB(IQ0)
7633 WRITE(6,'( '' IQL, Q2L :'',I5,E12.5)') IQL,Q2TAB(IQL)
7634 WRITE(6,'( '' IQH, Q2H :'',I5,E12.5)') IQH,Q2TAB(IQH)
7635 ENDIF
7636 IF(IERR.EQ.1) THEN
7637 WRITE(6,'(/'' No x-Q2 grid available'')')
7638 ELSEIF(IERR.EQ.2) THEN
7639 WRITE(6,'(/'' Value of IQL .ge. IQH'',
7640 + '' (after applying Q2 cuts, if any)'')')
7641 ELSEIF(IERR.EQ.3) THEN
7642 WRITE(6,'(/'' IQL and/or IQH outside grid boundary'')')
7643 ELSEIF(IERR.EQ.4) THEN
7644 WRITE(6,'(/'' IQ0 outside the range [IQL,IQH]'',
7645 + '' (after applying Q2 cuts, if any)'')')
7646 ELSEIF(IERR.EQ.5) THEN
7647 WRITE(6,'(/'' No LO weight tables available'',
7648 + '' (please call s/r QNFILW)'')')
7649 ELSEIF(IERR.EQ.6) THEN
7650 WRITE(6,'(/'' No NLO weight tables available'',
7651 + '' (please call s/r QNFILW)'')')
7652 ENDIF
7653
7654 CALL QTRACE('EVOLNM ',1)
7655
7656 STOP
7657
7658 END
7659
7660CDECK ID>, EVOLNP.
7661
7662C =====================================
7663 SUBROUTINE EVOLNP(UNAM,IQ0,IUQL,IUQH)
7664C =====================================
7665
7666 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7667
7668 CHARACTER*(*) UNAM
7669 CHARACTER*5 NAME
7670
7671
7672 CHARACTER*5 PNAM,STFNAM
7673 LOGICAL LNFP
7674 COMMON /QCLNFP/ LNFP(0:30,3:5)
7675 COMMON /QCPNAM/ PNAM(0:30)
7676 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
7677 COMMON /QCFNAM/ STFNAM(7)
7678
7679
7680 PARAMETER ( MXX = 410 )
7681 PARAMETER ( MQ2 = 120 )
7682
7683C-- Do not set the following parameter to zero!
7684 PARAMETER ( NDFMAX = 20)
7685
7686
7687 COMMON/QCGRID/
7688 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
7689 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
7690 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
7691 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
7692
7693
7694 LOGICAL
7695 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7696 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7697 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7698 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7699 +LFFCAL,LASOLD
7700
7701 COMMON/QCFLAG/
7702 +IORD,IOLAST,
7703 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7704 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7705 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7706 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7707 +LFFCAL(7,30),LASOLD
7708
7709
7710 COMMON/QCPASS/
7711 +ALPHA0, Q0ALFA, ASLAST, QALAST,
7712 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
7713 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
7714 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
7715 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
7716 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
7717 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
7718 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
7719 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
7720 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
7721
7722 LOGICAL LEVDONE,LE_DONE
7723 COMMON/QCLEVL/
7724 +LEVDONE(MXX,10),LE_DONE(MXX)
7725
7726
7727 REAL
7728 +WGTFF1,WGTFG1,
7729 +WGTGF1,WGTGG1,
7730 +WGTPP2,WGTPM2,WGTNS2,
7731 +WGTFF2,WGTFG2,
7732 +WGTGF2,WGTGG2,
7733 +WGTC2Q,WGTC2G,YNTC2Q,
7734 +WGTCLQ,WGTCLG,WGTC3Q
7735
7736 COMMON/QCWEIT/
7737 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
7738 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
7739 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
7740 +WGTNS2(MXX*(MXX+1)/2,3:5),
7741 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
7742 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
7743 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
7744 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
7745 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
7746
7747 COMMON/QCWADR/ IWADR(MXX,MXX)
7748
7749
7750 LOGICAL LTIME
7751 REAL T_START,T_END,T_SPENT
7752 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
7753 +E_CALLS(10),LTIME
7754 COMMON/QCFCNT/IFCNT(-1:1,5)
7755
7756
7757 IF(LTIME) CALL TIMEX_LHA(T_START(4))
7758
7759 CALL QTRACE('EVOLNP ',0)
7760
7761 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
7762 IERR = 1
7763 GOTO 500
7764 ENDIF
7765
7766 IQL = IUQL
7767 IQH = IUQH
7768
7769 IXL = MAX(ABS(IXFROMX(XMICUT)),1)
7770 IQD = ABS(IQFROMQ(QMICUT))
7771 IQD = MAX(IQD,ABS(IQFROMQ(QMINAS)))
7772 IQU = ABS(IQFROMQ(QMACUT))
7773 IF(IQD.NE.0) IQL = MAX(IQD,IQL)
7774 IF(IQU.NE.0) IQH = MIN(IQU+1,IQH)
7775
7776 IF(IQL.LE.0) IQL = 1
7777 IF(IQH.LE.0.OR.IQH.GT.NQ2) IQH = NQ2
7778 IF(IQL.EQ.IQ0.AND.IQH.EQ.IQ0) RETURN
7779 IF(IQL.GE.IQH) THEN
7780 IERR = 2
7781 GOTO 500
7782 ENDIF
7783 IF(IQL.LT.1.OR.IQL.GE.NQ2) THEN
7784 IERR = 3
7785 GOTO 500
7786 ENDIF
7787 IF(IQH.LE.1.OR.IQH.GT.NQ2) THEN
7788 IERR = 3
7789 GOTO 500
7790 ENDIF
7791 IF(IQ0.LT.IQL.OR.IQ0.GT.IQH) THEN
7792 IERR = 4
7793 GOTO 500
7794 ENDIF
7795 IF(.NOT.LWT1OK) THEN
7796 IERR = 5
7797 GOTO 500
7798 ENDIF
7799 IF(IORD.EQ.2.AND..NOT.LWT2OK) THEN
7800 IERR = 6
7801 GOTO 500
7802 ENDIF
7803
7804 CALL QSTRIP(UNAM,NAME)
7805
7806 NFMI = 9
7807 NFMA = 0
7808 DO 15 IQ = IQL,IQH
7809 NFMI = MIN(NFMI,NFMAP(IQ))
7810 NFMA = MAX(NFMA,NFMAP(IQ))
7811 15 CONTINUE
7812
7813 DO 16 NF = NFMI,NFMA
7814 ID = IDCHEK(NAME,NF,'EVOLNP',1)
7815 16 CONTINUE
7816
7817 IRUN = 0
7818 IF(.NOT.LPLUS) THEN
7819 DO 19 NF = 3,5
7820 DO 18 IX0 = 1,NXX
7821 DO 17 IX = IX0,NXX
7822 WGTNS2(IWADR(IX,IX0),NF) = WGTPP2(IWADR(IX,IX0),NF)
7823 17 CONTINUE
7824 18 CONTINUE
7825 19 CONTINUE
7826 IRUN = 1
7827 ENDIF
7828 LPLUS = .TRUE.
7829
7830 IF(.NOT.LALFOK) THEN
7831 CALL QFILAS('EVOLNP')
7832 IRUN = 1
7833 ENDIF
7834 IF(.NOT.LDQ2OK) THEN
7835 CALL QDELQ2
7836 IRUN = 1
7837 ENDIF
7838
7839 DO 25 IX = 1,NXX
7840 DO 20 IQ = 1,NQ2
7841 20 CONTINUE
7842 25 CONTINUE
7843
7844 DO IX = 1,NXX
7845 LE_DONE(IX) = LEVDONE(IX,ID)
7846 DO IQ = 1,NQ2
7847 FNSQCD(IX,IQ) = PDFQCD(IX,IQ,ID)
7848 ENDDO
7849 ENDDO
7850
7851 IF(IQ0.NE.IQ0_LAST(ID) .OR.
7852 + IQL.NE.IQL_LAST(ID) .OR.
7853 + IQH.NE.IQH_LAST(ID) ) IRUN = 1
7854
7855 CALL APNS(IXL,IQ0,IQL,IQH,IRUN,EVL)
7856
7857 IQ0_LAST(ID) = IQ0
7858 IQL_LAST(ID) = IQL
7859 IQH_LAST(ID) = IQH
7860
7861 DO IX = 1,NXX
7862 LEVDONE(IX,ID) = LE_DONE(IX)
7863 DO IQ = 1,NQ2
7864 PDFQCD(IX,IQ,ID) = FNSQCD(IX,IQ)
7865 ENDDO
7866 ENDDO
7867
7868 DO I = 1,30
7869 DO J = 1,7
7870 LFFCAL(J,I) = .FALSE.
7871 ENDDO
7872 ENDDO
7873
7874 IF(LTIME) THEN
7875 CALL TIMEX_LHA(T_END(4))
7876 T_SPENT(4) = T_SPENT(4)+T_END(4)-T_START(4)
7877 N_CALLS(4) = N_CALLS(4)+1
7878 E_CALLS(4) = E_CALLS(4)+EVL
7879 ENDIF
7880
7881 RETURN
7882
7883 500 CONTINUE
7884 WRITE(6,'(/'' ------------------------------------'')')
7885 WRITE(6,'( '' QCDNUM error in s/r EVOLNP ---> STOP'')')
7886 WRITE(6,'( '' ------------------------------------'')')
7887 WRITE(6,'( '' Input NAME :'',A)') UNAM
7888 WRITE(6,'( '' IQ0 :'',I5)') IQ0
7889 WRITE(6,'( '' IQLow :'',I5)') IUQL
7890 WRITE(6,'( '' IQHigh :'',I5)') IUQH
7891 IF(IERR.NE.1) THEN
7892 WRITE(6,'(/'' After cuts IQ0, Q20 :'',I5,E12.5)') IQ0,Q2TAB(IQ0)
7893 WRITE(6,'( '' IQL, Q2L :'',I5,E12.5)') IQL,Q2TAB(IQL)
7894 WRITE(6,'( '' IQH, Q2H :'',I5,E12.5)') IQH,Q2TAB(IQH)
7895 ENDIF
7896 IF(IERR.EQ.1) THEN
7897 WRITE(6,'(/'' No x-Q2 grid available'')')
7898 ELSEIF(IERR.EQ.2) THEN
7899 WRITE(6,'(/'' Value of IQL .ge. IQH'',
7900 + '' (after applying Q2 cuts, if any)'')')
7901 ELSEIF(IERR.EQ.3) THEN
7902 WRITE(6,'(/'' IQL and/or IQH outside grid boundary'')')
7903 ELSEIF(IERR.EQ.4) THEN
7904 WRITE(6,'(/'' IQ0 outside the range [IQL,IQH]'',
7905 + '' (after applying Q2 cuts, if any)'')')
7906 ELSEIF(IERR.EQ.5) THEN
7907 WRITE(6,'(/'' No LO weight tables available'',
7908 + '' (please call s/r QNFILW)'')')
7909 ELSEIF(IERR.EQ.6) THEN
7910 WRITE(6,'(/'' No NLO weight tables available'',
7911 + '' (please call s/r QNFILW)'')')
7912 ENDIF
7913
7914 CALL QTRACE('EVOLNP ',1)
7915
7916 STOP
7917
7918 END
7919
7920CDECK ID>, EVPLUS.
7921
7922C =====================================
7923 SUBROUTINE EVPLUS(UNAM,IQ0,IUQL,IUQH)
7924C =====================================
7925
7926 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
7927
7928 CHARACTER*(*) UNAM
7929 CHARACTER*5 NAME
7930
7931
7932 CHARACTER*5 PNAM,STFNAM
7933 LOGICAL LNFP
7934 COMMON /QCLNFP/ LNFP(0:30,3:5)
7935 COMMON /QCPNAM/ PNAM(0:30)
7936 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
7937 COMMON /QCFNAM/ STFNAM(7)
7938
7939
7940 PARAMETER ( MXX = 410 )
7941 PARAMETER ( MQ2 = 120 )
7942
7943C-- Do not set the following parameter to zero!
7944 PARAMETER ( NDFMAX = 20)
7945
7946
7947 COMMON/QCGRID/
7948 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
7949 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
7950 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
7951 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
7952
7953
7954 LOGICAL
7955 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7956 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7957 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7958 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7959 +LFFCAL,LASOLD
7960
7961 COMMON/QCFLAG/
7962 +IORD,IOLAST,
7963 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
7964 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
7965 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
7966 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
7967 +LFFCAL(7,30),LASOLD
7968
7969
7970 COMMON/QCPASS/
7971 +ALPHA0, Q0ALFA, ASLAST, QALAST,
7972 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
7973 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
7974 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
7975 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
7976 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
7977 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
7978 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
7979 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
7980 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
7981
7982 LOGICAL LEVDONE,LE_DONE
7983 COMMON/QCLEVL/
7984 +LEVDONE(MXX,10),LE_DONE(MXX)
7985
7986
7987 REAL
7988 +WGTFF1,WGTFG1,
7989 +WGTGF1,WGTGG1,
7990 +WGTPP2,WGTPM2,WGTNS2,
7991 +WGTFF2,WGTFG2,
7992 +WGTGF2,WGTGG2,
7993 +WGTC2Q,WGTC2G,YNTC2Q,
7994 +WGTCLQ,WGTCLG,WGTC3Q
7995
7996 COMMON/QCWEIT/
7997 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
7998 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
7999 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
8000 +WGTNS2(MXX*(MXX+1)/2,3:5),
8001 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
8002 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
8003 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
8004 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
8005 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
8006
8007 COMMON/QCWADR/ IWADR(MXX,MXX)
8008
8009
8010 LOGICAL LTIME
8011 REAL T_START,T_END,T_SPENT
8012 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
8013 +E_CALLS(10),LTIME
8014 COMMON/QCFCNT/IFCNT(-1:1,5)
8015
8016
8017 IF(LTIME) CALL TIMEX_LHA(T_START(4))
8018
8019 CALL QTRACE('EVPLUS ',0)
8020
8021 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
8022 IERR = 1
8023 GOTO 500
8024 ENDIF
8025
8026 IQL = IUQL
8027 IQH = IUQH
8028
8029 IXL = MAX(ABS(IXFROMX(XMICUT)),1)
8030 IQD = ABS(IQFROMQ(QMICUT))
8031 IQD = MAX(IQD,ABS(IQFROMQ(QMINAS)))
8032 IQU = ABS(IQFROMQ(QMACUT))
8033 IF(IQD.NE.0) IQL = MAX(IQD,IQL)
8034 IF(IQU.NE.0) IQH = MIN(IQU+1,IQH)
8035
8036 IF(IQL.LE.0) IQL = 1
8037 IF(IQH.LE.0.OR.IQH.GT.NQ2) IQH = NQ2
8038 IF(IQL.EQ.IQ0.AND.IQH.EQ.IQ0) RETURN
8039 IF(IQL.GE.IQH) THEN
8040 IERR = 2
8041 GOTO 500
8042 ENDIF
8043 IF(IQL.LT.1.OR.IQL.GE.NQ2) THEN
8044 IERR = 3
8045 GOTO 500
8046 ENDIF
8047 IF(IQH.LE.1.OR.IQH.GT.NQ2) THEN
8048 IERR = 3
8049 GOTO 500
8050 ENDIF
8051 IF(IQ0.LT.IQL.OR.IQ0.GT.IQH) THEN
8052 IERR = 4
8053 GOTO 500
8054 ENDIF
8055 IF(NFMAP(IQL).NE.NFMAP(IQH-1)) THEN
8056 IERR = 5
8057 GOTO 500
8058 ENDIF
8059 IF(.NOT.LWT1OK) THEN
8060 IERR = 6
8061 GOTO 500
8062 ENDIF
8063 IF(IORD.EQ.2.AND..NOT.LWT2OK) THEN
8064 IERR = 7
8065 GOTO 500
8066 ENDIF
8067
8068 CALL QSTRIP(UNAM,NAME)
8069
8070 NFMI = 9
8071 NFMA = 0
8072 DO 15 IQ = IQL,IQH
8073 NFMI = MIN(NFMI,NFMAP(IQ))
8074 NFMA = MAX(NFMA,NFMAP(IQ))
8075 15 CONTINUE
8076
8077 DO 16 NF = NFMI,NFMA
8078 ID = IDCHEK(NAME,NF,'EVPLUS',1)
8079 16 CONTINUE
8080
8081 IRUN = 0
8082 IF(.NOT.LPLUS) THEN
8083 DO 19 NF = 3,5
8084 DO 18 IX0 = 1,NXX
8085 DO 17 IX = IX0,NXX
8086 WGTNS2(IWADR(IX,IX0),NF) = WGTPP2(IWADR(IX,IX0),NF)
8087 17 CONTINUE
8088 18 CONTINUE
8089 19 CONTINUE
8090 IRUN = 1
8091 ENDIF
8092 LPLUS = .TRUE.
8093
8094 IF(.NOT.LALFOK) THEN
8095 CALL QFILAS('EVPLUS')
8096 IRUN = 1
8097 ENDIF
8098 IF(.NOT.LDQ2OK) THEN
8099 CALL QDELQ2
8100 IRUN = 1
8101 ENDIF
8102
8103 DO IX = 1,NXX
8104 LE_DONE(IX) = LEVDONE(IX,ID)
8105 DO IQ = 1,NQ2
8106 FNSQCD(IX,IQ) = PDFQCD(IX,IQ,ID)
8107 ENDDO
8108 ENDDO
8109
8110 IF(IQ0.NE.IQ0_LAST(ID) .OR.
8111 + IQL.NE.IQL_LAST(ID) .OR.
8112 + IQH.NE.IQH_LAST(ID) ) IRUN = 1
8113
8114 CALL APNS(IXL,IQ0,IQL,IQH,IRUN,EVL)
8115
8116 IQ0_LAST(ID) = IQ0
8117 IQL_LAST(ID) = IQL
8118 IQH_LAST(ID) = IQH
8119
8120 DO IX = 1,NXX
8121 LEVDONE(IX,ID) = LE_DONE(IX)
8122 DO IQ = 1,NQ2
8123 PDFQCD(IX,IQ,ID) = FNSQCD(IX,IQ)
8124 ENDDO
8125 ENDDO
8126
8127 DO I = 1,30
8128 DO J = 1,7
8129 LFFCAL(J,I) = .FALSE.
8130 ENDDO
8131 ENDDO
8132
8133 IF(LTIME) THEN
8134 CALL TIMEX_LHA(T_END(4))
8135 T_SPENT(4) = T_SPENT(4)+T_END(4)-T_START(4)
8136 N_CALLS(4) = N_CALLS(4)+1
8137 E_CALLS(4) = E_CALLS(4)+EVL
8138 ENDIF
8139
8140 RETURN
8141
8142 500 CONTINUE
8143 WRITE(6,'(/'' ------------------------------------'')')
8144 WRITE(6,'( '' QCDNUM error in s/r EVPLUS ---> STOP'')')
8145 WRITE(6,'( '' ------------------------------------'')')
8146 WRITE(6,'( '' Input NAME :'',A)') UNAM
8147 WRITE(6,'( '' Input IQ0 :'',I10)') IQ0
8148 WRITE(6,'( '' IQLow :'',I10)') IUQL
8149 WRITE(6,'( '' IQHigh :'',I10)') IUQH
8150 IF(IERR.NE.1) THEN
8151 WRITE(6,'(/'' After cuts IQ0, Q20 :'',I5,E12.5)') IQ0,Q2TAB(IQ0)
8152 WRITE(6,'( '' IQL, Q2L :'',I5,E12.5)') IQL,Q2TAB(IQL)
8153 WRITE(6,'( '' IQH, Q2H :'',I5,E12.5)') IQH,Q2TAB(IQH)
8154 ENDIF
8155 IF(IERR.EQ.1) THEN
8156 WRITE(6,'(/'' No x-Q2 grid available'')')
8157 ELSEIF(IERR.EQ.2) THEN
8158 WRITE(6,'(/'' Value of IQL .ge. IQH'',
8159 + '' (after applying Q2 cuts, if any)'')')
8160 ELSEIF(IERR.EQ.3) THEN
8161 WRITE(6,'(/'' IQL and/or IQH outside grid boundary'')')
8162 ELSEIF(IERR.EQ.4) THEN
8163 WRITE(6,'(/'' IQ0 outside the range [IQL,IQH]'')')
8164 ELSEIF(IERR.EQ.5) THEN
8165 WRITE(6,'(/'' [IQL,IQH} crosses a flavour threshold'')')
8166 ELSEIF(IERR.EQ.6) THEN
8167 WRITE(6,'(/'' No LO weight tables available'',
8168 + '' (please call s/r QNFILW)'')')
8169 ELSEIF(IERR.EQ.7) THEN
8170 WRITE(6,'(/'' No NLO weight tables available'',
8171 + '' (please call s/r QNFILW)'')')
8172 ENDIF
8173
8174 CALL QTRACE('EVPLUS ',1)
8175
8176 STOP
8177
8178 END
8179
8180CDECK ID>, APNS.
8181
8182C =========================================
8183 SUBROUTINE APNS(IXL,IQ0,IQL,IQH,IRUN,EVL)
8184C =========================================
8185
8186 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8187
8188
8189 COMMON/QCCONS/
8190 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
8191 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
8192 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
8193 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
8194 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
8195 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
8196
8197
8198
8199 LOGICAL
8200 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8201 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8202 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8203 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8204 +LFFCAL,LASOLD
8205
8206 COMMON/QCFLAG/
8207 +IORD,IOLAST,
8208 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8209 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8210 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8211 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8212 +LFFCAL(7,30),LASOLD
8213
8214
8215 PARAMETER ( MXX = 410 )
8216 PARAMETER ( MQ2 = 120 )
8217
8218C-- Do not set the following parameter to zero!
8219 PARAMETER ( NDFMAX = 20)
8220
8221
8222 COMMON/QCGRID/
8223 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8224 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8225 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8226 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8227
8228
8229 REAL
8230 +WGTFF1,WGTFG1,
8231 +WGTGF1,WGTGG1,
8232 +WGTPP2,WGTPM2,WGTNS2,
8233 +WGTFF2,WGTFG2,
8234 +WGTGF2,WGTGG2,
8235 +WGTC2Q,WGTC2G,YNTC2Q,
8236 +WGTCLQ,WGTCLG,WGTC3Q
8237
8238 COMMON/QCWEIT/
8239 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
8240 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
8241 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
8242 +WGTNS2(MXX*(MXX+1)/2,3:5),
8243 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
8244 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
8245 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
8246 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
8247 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
8248
8249 COMMON/QCWADR/ IWADR(MXX,MXX)
8250
8251
8252 COMMON/QCPASS/
8253 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8254 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8255 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8256 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8257 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8258 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8259 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8260 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8261 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8262 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8263
8264 LOGICAL LEVDONE,LE_DONE
8265 COMMON/QCLEVL/
8266 +LEVDONE(MXX,10),LE_DONE(MXX)
8267
8268
8269 LOGICAL LTIME
8270 REAL T_START,T_END,T_SPENT
8271 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
8272 +E_CALLS(10),LTIME
8273 COMMON/QCFCNT/IFCNT(-1:1,5)
8274
8275
8276 EVL = 0.
8277
8278 FNS = FNSQCD(NXX,IQ0)
8279C -------------------------------------------
8280 IF(.NOT.LE_DONE(NXX) .OR. IRUN.EQ.1) THEN !
8281C -------------------------------------------
8282
8283 NF = NFMAP(IQ0)
8284 WGT = ALFAPQ(IQ0)*WGTFF1(IWADR(NXX,NXX)) +
8285 + ALFA2Q(IQ0)*WGTNS2(IWADR(NXX,NXX),NF)
8286 DNS = WGT*FNS
8287 FNS0 = FNS
8288 DNS0 = DNS
8289 FNSQCD(NXX,IQ0) = FNS
8290 DNSQCD(NXX,IQ0) = DNS
8291 EVL = EVL+1.
8292
8293 DO 100 IQ = IQ0+1,IQH
8294 NF = NFMAP(IQ)
8295 WGT = ALFAPQ(IQ)*WGTFF1(IWADR(NXX,NXX)) +
8296 + ALFA2Q(IQ)*WGTNS2(IWADR(NXX,NXX),NF)
8297 FNS = ( 2.*FNS + DNS*DELUP(IQ) ) / ( 2. - WGT*DELUP(IQ) )
8298 DNS = WGT*FNS
8299 FNSQCD(NXX,IQ) = FNS
8300 DNSQCD(NXX,IQ) = DNS
8301 100 CONTINUE
8302 EVL = EVL+IQH-IQ0
8303
8304 FNS = FNS0
8305 DNS = DNS0
8306
8307 DO 200 IQ = IQ0-1,IQL,-1
8308 NF = NFMAP(IQ)
8309 WGT = ALFAPQ(IQ)*WGTFF1(IWADR(NXX,NXX)) +
8310 + ALFA2Q(IQ)*WGTNS2(IWADR(NXX,NXX),NF)
8311 FNS = ( 2.*FNS + DNS*DELDN(IQ) ) / ( 2. - WGT*DELDN(IQ) )
8312 DNS = WGT*FNS
8313 FNSQCD(NXX,IQ) = FNS
8314 DNSQCD(NXX,IQ) = DNS
8315 200 CONTINUE
8316 EVL = EVL+IQ0-IQL
8317
8318C -------
8319 ENDIF !
8320C -------
8321
8322C ---------------------------
8323 DO 300 IX0 = NXX-1,IXL,-1 !
8324C ---------------------------
8325
8326 FNS = FNSQCD(IX0,IQ0)
8327 IF(LE_DONE(IX0).AND.IRUN.EQ.0) GOTO 300
8328 ALFAS = ALFAPQ(IQ0)
8329 ALFA2 = ALFA2Q(IQ0)
8330 SUM = 0.
8331 NF = NFMAP(IQ0)
8332 DO 220 IX = NXX,IX0+1,-1
8333 WFF1 = WGTFF1(IWADR(IX,IX0))
8334 WNS2 = WGTNS2(IWADR(IX,IX0),NF)
8335 SUM = SUM + (ALFAS*WFF1+ALFA2*WNS2) * FNSQCD(IX,IQ0)
8336 220 CONTINUE
8337 WGT = ALFAS*WGTFF1(IWADR(IX0,IX0)) +
8338 + ALFA2*WGTNS2(IWADR(IX0,IX0),NF)
8339 DNS = WGT*FNS + SUM
8340
8341 FNS0 = FNS
8342 DNS0 = DNS
8343 FNSQCD(IX0,IQ0) = FNS
8344 DNSQCD(IX0,IQ0) = DNS
8345 EVL = EVL+NXX-IX0+1
8346
8347 DO 250 IQ = IQ0+1,IQH
8348 IF(IFAILC(IX0,IQ).NE.0) GOTO 250
8349 ALFAS = ALFAPQ(IQ)
8350 ALFA2 = ALFA2Q(IQ)
8351 DELIQ = DELUP(IQ)
8352 SUM = 0.
8353 NF = NFMAP(IQ)
8354 DO 230 IX = NXX,IX0+1,-1
8355 WFF1 = WGTFF1(IWADR(IX,IX0))
8356 WNS2 = WGTNS2(IWADR(IX,IX0),NF)
8357 SUM = SUM + (ALFAS*WFF1+ALFA2*WNS2) * FNSQCD(IX,IQ)
8358 230 CONTINUE
8359 WGT = ALFAS*WGTFF1(IWADR(IX0,IX0)) +
8360 + ALFA2*WGTNS2(IWADR(IX0,IX0),NF)
8361 FNS = ( 2.*FNS + (DNS+SUM)*DELIQ ) / ( 2. - WGT*DELIQ )
8362 DNS = WGT*FNS + SUM
8363 FNSQCD(IX0,IQ) = FNS
8364 DNSQCD(IX0,IQ) = DNS
8365 EVL = EVL+NXX-IX0+1
8366 250 CONTINUE
8367
8368 FNS = FNS0
8369 DNS = DNS0
8370
8371 DO 270 IQ = IQ0-1,IQL,-1
8372 ALFAS = ALFAPQ(IQ)
8373 ALFA2 = ALFA2Q(IQ)
8374 DELIQ = DELDN(IQ)
8375 SUM = 0.
8376 NF = NFMAP(IQ)
8377 DO 260 IX = NXX,IX0+1,-1
8378 WFF1 = WGTFF1(IWADR(IX,IX0))
8379 WNS2 = WGTNS2(IWADR(IX,IX0),NF)
8380 SUM = SUM + (ALFAS*WFF1+ALFA2*WNS2) * FNSQCD(IX,IQ)
8381 260 CONTINUE
8382 WGT = ALFAS*WGTFF1(IWADR(IX0,IX0)) +
8383 + ALFA2*WGTNS2(IWADR(IX0,IX0),NF)
8384 FNS = ( 2.*FNS + (DNS+SUM)*DELIQ ) / ( 2. - WGT*DELIQ )
8385 DNS = WGT*FNS + SUM
8386 FNSQCD(IX0,IQ) = FNS
8387 DNSQCD(IX0,IQ) = DNS
8388 EVL = EVL+NXX-IX0+1
8389 270 CONTINUE
8390
8391C ----------
8392 300 CONTINUE !
8393C ----------
8394
8395 EVL = EVL*2./(NXX*(NXX+1)*NQ2)
8396
8397 CALL QNTRUE(LE_DONE,NXX)
8398
8399 RETURN
8400 END
8401
8402CDECK ID>, QNPGET.
8403
8404C ============================================
8405 DOUBLE PRECISION FUNCTION QNPGET(NAME,IX,IQ)
8406C ============================================
8407
8408 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8409
8410 CHARACTER*(*) NAME
8411
8412C--- Obsolete (21/05/96): use QPDFIJ instead
8413
8414 QNPGET = QPDFIJ(NAME,IX,IQ,IFL)
8415
8416 RETURN
8417 END
8418
8419CDECK ID>, QPDFIJ.
8420
8421C ================================================
8422 DOUBLE PRECISION FUNCTION QPDFIJ(UNAM,IX,IQ,IFL)
8423C ================================================
8424
8425 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8426
8427C--- Returns parton distribution 'NAME' at gridpoint IX,IQ
8428C--- Output IFL = 0 : Inside grid or cuts
8429C--- -1 : Outside grid or cuts
8430
8431 CHARACTER*(*) UNAM
8432 CHARACTER*5 NAME
8433
8434
8435 LOGICAL
8436 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8437 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8438 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8439 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8440 +LFFCAL,LASOLD
8441
8442 COMMON/QCFLAG/
8443 +IORD,IOLAST,
8444 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8445 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8446 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8447 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8448 +LFFCAL(7,30),LASOLD
8449
8450
8451 CHARACTER*5 PNAM,STFNAM
8452 LOGICAL LNFP
8453 COMMON /QCLNFP/ LNFP(0:30,3:5)
8454 COMMON /QCPNAM/ PNAM(0:30)
8455 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
8456 COMMON /QCFNAM/ STFNAM(7)
8457
8458
8459 PARAMETER ( MXX = 410 )
8460 PARAMETER ( MQ2 = 120 )
8461
8462C-- Do not set the following parameter to zero!
8463 PARAMETER ( NDFMAX = 20)
8464
8465
8466 COMMON/QCGRID/
8467 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8468 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8469 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8470 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8471
8472
8473 COMMON/QCPASS/
8474 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8475 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8476 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8477 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8478 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8479 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8480 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8481 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8482 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8483 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8484
8485 LOGICAL LEVDONE,LE_DONE
8486 COMMON/QCLEVL/
8487 +LEVDONE(MXX,10),LE_DONE(MXX)
8488
8489
8490 CALL QTRACE('QPDFIJ ',0)
8491
8492 QPDFIJ = 0.
8493 IERR = 0
8494 IFL = 0
8495
8496 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
8497 IERR = 1
8498 GOTO 500
8499 ENDIF
8500 IF(IX.LT.1.OR.IX.GT.MXX-1 .OR.
8501 + IQ.LT.1.OR.IQ.GT.MQ2-1) THEN
8502 IERR = 2
8503 IFL = -1
8504 IF(LIMCK) GOTO 500
8505 RETURN
8506 ENDIF
8507 IF(IFAILC(IX,IQ).NE.0) THEN
8508 IERR = 2
8509 IFL = -1
8510 IF(LIMCK) GOTO 500
8511 RETURN
8512 ENDIF
8513
8514 CALL QSTRIP(UNAM,NAME)
8515
8516 NF = NFMAP(IQ)
8517 ID = IDCHEK(NAME,NF,'QPDFIJ',1)
8518
8519 IF(ID.EQ.-1) RETURN
8520
8521 QPDFIJ = GET_PDFIJ(ID,IX,IQ)
8522
8523 RETURN
8524
8525 500 CONTINUE
8526
8527 WRITE(6,'(/'' ------------------------------------'')')
8528 WRITE(6,'( '' QCDNUM error in s/r QPDFIJ ---> STOP'')')
8529 WRITE(6,'( '' ------------------------------------'')')
8530 WRITE(6,'( '' Input NAME : '',A)') UNAM
8531 WRITE(6,'( '' IX : '',I5)') IX
8532 WRITE(6,'( '' IQ : '',I5)') IQ
8533 IF(IERR.EQ.1) THEN
8534 WRITE(6,'(/'' No x-Q2 grid defined'')')
8535 ELSEIF(IERR.EQ.2) THEN
8536 WRITE(6,'(/'' IX and/or IQ outside grid or cuts'')')
8537 IDUM = ICUTIJ(IX,IQ,1)
8538 ENDIF
8539
8540 CALL QTRACE('QPDFIJ ',1)
8541
8542 STOP
8543
8544 END
8545
8546CDECK ID>, PARTXQ.
8547
8548C ===================================
8549 SUBROUTINE PARTXQ(NAME,X,Q,VAL,IFL)
8550C ===================================
8551
8552 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8553
8554 CHARACTER*(*) NAME
8555
8556C--- Obsolete (21/05/96): use QPDFXQ instead
8557
8558 VAL = QPDFXQ(NAME,X,Q,IFL)
8559
8560 RETURN
8561 END
8562
8563CDECK ID>, QPDFXQ.
8564
8565C ==============================================
8566 DOUBLE PRECISION FUNCTION QPDFXQ(UNAM,X,Q,IFL)
8567C ==============================================
8568
8569 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8570
8571C--- Returns parton distribution 'NAME' at X,Q
8572C--- Output IFL = 0 : Inside grid
8573C--- -1 : Outside grid or cuts
8574
8575 CHARACTER*(*) UNAM
8576 CHARACTER*5 NAME
8577
8578
8579 LOGICAL
8580 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8581 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8582 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8583 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8584 +LFFCAL,LASOLD
8585
8586 COMMON/QCFLAG/
8587 +IORD,IOLAST,
8588 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8589 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8590 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8591 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8592 +LFFCAL(7,30),LASOLD
8593
8594
8595 CHARACTER*5 PNAM,STFNAM
8596 LOGICAL LNFP
8597 COMMON /QCLNFP/ LNFP(0:30,3:5)
8598 COMMON /QCPNAM/ PNAM(0:30)
8599 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
8600 COMMON /QCFNAM/ STFNAM(7)
8601
8602
8603 PARAMETER ( MXX = 410 )
8604 PARAMETER ( MQ2 = 120 )
8605
8606C-- Do not set the following parameter to zero!
8607 PARAMETER ( NDFMAX = 20)
8608
8609
8610 COMMON/QCGRID/
8611 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8612 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8613 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8614 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8615
8616
8617 COMMON/QCPASS/
8618 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8619 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8620 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8621 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8622 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8623 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8624 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8625 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8626 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8627 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8628
8629 LOGICAL LEVDONE,LE_DONE
8630 COMMON/QCLEVL/
8631 +LEVDONE(MXX,10),LE_DONE(MXX)
8632
8633
8634 CALL QTRACE('QPDFXQ ',0)
8635
8636 VAL = 0.
8637 IFL = 0
8638 QPDFXQ = 0.
8639
8640 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
8641 IERR = 1
8642 IFL = -1
8643 GOTO 500
8644 ENDIF
8645 JFL = ICUTXQ(X,Q,0)
8646 IF(JFL.NE.0) THEN
8647 IERR = 2
8648 IFL = -1
8649 IF(LIMCK) GOTO 500
8650 RETURN
8651 ENDIF
8652
8653 IX = ABS(IXFROMX(X))
8654 IQ = MIN(ABS(IQFROMQ(Q)),NQ2-1)
8655
8656 CALL QSTRIP(UNAM,NAME)
8657
8658 NF = NFMAP(IQ)
8659 ID = IDCHEK(NAME,NF,'QPDFXQ',1)
8660
8661 IF(.NOT.LDQ2OK) CALL QDELQ2
8662
8663 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
8664 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
8665
8666 QPDFXQ = GET_PDFXQ(ID,IX,IQ,TX,TQ)
8667
8668 RETURN
8669
8670 500 CONTINUE
8671
8672 WRITE(6,'(/'' ------------------------------------'')')
8673 WRITE(6,'( '' QCDNUM error in s/r QPDFXQ ---> STOP'')')
8674 WRITE(6,'( '' ------------------------------------'')')
8675 WRITE(6,'( '' Input NAME : '',A)') UNAM
8676 WRITE(6,'( '' X : '',E12.5)') X
8677 WRITE(6,'( '' Q2 : '',E12.5)') Q
8678 IF(IERR.EQ.1) THEN
8679 WRITE(6,'(/'' No x-Q2 grid defined'')')
8680 ELSEIF(IERR.EQ.2) THEN
8681 WRITE(6,'(/'' X and/or Q2 outside grid or cuts'')')
8682 IDUM = ICUTXQ(X,Q,1)
8683 ENDIF
8684
8685 CALL QTRACE('QPDFXQ ',1)
8686
8687 STOP
8688 END
8689
8690CDECK ID>, GET_PDFIJ.
8691
8692C =============================================
8693 DOUBLE PRECISION FUNCTION GET_PDFIJ(ID,IX,IQ)
8694C =============================================
8695
8696 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8697
8698C-- Return parton distribution ID at IX,IQ.
8699C-- IX should be in the range 1,...NXX.
8700C-- IQ should be in the range 1,...NQ2.
8701
8702
8703 CHARACTER*5 PNAM,STFNAM
8704 LOGICAL LNFP
8705 COMMON /QCLNFP/ LNFP(0:30,3:5)
8706 COMMON /QCPNAM/ PNAM(0:30)
8707 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
8708 COMMON /QCFNAM/ STFNAM(7)
8709
8710
8711 PARAMETER ( MXX = 410 )
8712 PARAMETER ( MQ2 = 120 )
8713
8714C-- Do not set the following parameter to zero!
8715 PARAMETER ( NDFMAX = 20)
8716
8717
8718 COMMON/QCGRID/
8719 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8720 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8721 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8722 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8723
8724
8725 COMMON/QCPASS/
8726 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8727 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8728 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8729 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8730 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8731 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8732 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8733 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8734 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8735 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8736
8737 LOGICAL LEVDONE,LE_DONE
8738 COMMON/QCLEVL/
8739 +LEVDONE(MXX,10),LE_DONE(MXX)
8740
8741
8742 GET_PDFIJ = 0.
8743
8744 NF = NFMAP(IQ)
8745
8746 DO I = 0,10
8747 GET_PDFIJ = GET_PDFIJ + PWGT(I,ID,NF)*PDFQCD(IX,IQ,I)
8748 ENDDO
8749
8750 RETURN
8751 END
8752
8753CDECK ID>, GET_PDFXQ.
8754
8755C ===================================================
8756 DOUBLE PRECISION FUNCTION GET_PDFXQ(ID,IX,IQ,TX,TQ)
8757C ===================================================
8758
8759 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8760
8761C-- Return parton distribution ID at X,Q.
8762C-- IX gridpoint at or below x; should be in the range 1,...NXX.
8763C-- IQ gridpoint at or below Q; should be in the range 1,...NQ2-1.
8764
8765
8766 CHARACTER*5 PNAM,STFNAM
8767 LOGICAL LNFP
8768 COMMON /QCLNFP/ LNFP(0:30,3:5)
8769 COMMON /QCPNAM/ PNAM(0:30)
8770 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
8771 COMMON /QCFNAM/ STFNAM(7)
8772
8773
8774 PARAMETER ( MXX = 410 )
8775 PARAMETER ( MQ2 = 120 )
8776
8777C-- Do not set the following parameter to zero!
8778 PARAMETER ( NDFMAX = 20)
8779
8780
8781 COMMON/QCGRID/
8782 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8783 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8784 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8785 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8786
8787
8788 COMMON/QCPASS/
8789 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8790 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8791 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8792 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8793 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8794 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8795 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8796 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8797 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8798 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8799
8800 LOGICAL LEVDONE,LE_DONE
8801 COMMON/QCLEVL/
8802 +LEVDONE(MXX,10),LE_DONE(MXX)
8803
8804
8805 F11 = GET_PDFIJ(ID,IX,IQ)
8806 F12 = GET_PDFIJ(ID,IX,IQ+1)
8807 F21 = GET_PDFIJ(ID,IX+1,IQ)
8808 F22 = GET_PDFIJ(ID,IX+1,IQ+1)
8809 F1 = (1.-TQ)*F11 + TQ*F12
8810 F2 = (1.-TQ)*F21 + TQ*F22
8811
8812 GET_PDFXQ = (1.-TX)*F1 + TX*F2
8813
8814 RETURN
8815 END
8816
8817CDECK ID>, BKFAST.
8818
8819C ==============================
8820 SUBROUTINE BKFAST(IDF,ID,IERR)
8821C ==============================
8822
8823C--- Book the NDFMAX arrays available for STFAST storage.
8824C--- Called by STFAST.
8825C--- Input : IDF = structure function identifier;
8826C--- 1 2 3 4 5 6 7
8827C--- F2 FL xF3 F2c Flc F2b Flb
8828C--- ID = parton dist identifier (1-30).
8829C--- Output : set IDFAST(IDF,ID) = j; the results of
8830C--- STFAST for the combination IDF,ID are
8831C--- stored in FSTORE(ix,iq,j).
8832C--- If j.gt.NDFMAX (no more space) then BKFAST
8833C--- acts as a do-nothing & sets ierr .ne. 0.
8834
8835 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8836
8837
8838 PARAMETER ( MXX = 410 )
8839 PARAMETER ( MQ2 = 120 )
8840
8841C-- Do not set the following parameter to zero!
8842 PARAMETER ( NDFMAX = 20)
8843
8844
8845 COMMON/QCPASS/
8846 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8847 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8848 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8849 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8850 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8851 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8852 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8853 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8854 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8855 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8856
8857 LOGICAL LEVDONE,LE_DONE
8858 COMMON/QCLEVL/
8859 +LEVDONE(MXX,10),LE_DONE(MXX)
8860
8861
8862 IERR = 0
8863 IF(IDFAST(IDF,ID).EQ.0) THEN
8864 IF(NDFAST.EQ.30+NDFMAX) THEN
8865 IERR = 1
8866 RETURN
8867 ENDIF
8868 NDFAST = NDFAST + 1
8869 IDFAST(IDF,ID) = NDFAST
8870 ISTFID(NDFAST) = IDF
8871 IPDFID(NDFAST) = ID
8872 ENDIF
8873
8874 RETURN
8875 END
8876
8877CDECK ID>, STFAST.
8878
8879C ===========================
8880 SUBROUTINE STFAST(OPT,UNAM)
8881C ===========================
8882
8883 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
8884
8885 CHARACTER*(*) OPT,UNAM
8886 CHARACTER*5 NAME
8887 CHARACTER*5 OPT5
8888
8889
8890 LOGICAL LTIME
8891 REAL T_START,T_END,T_SPENT
8892 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
8893 +E_CALLS(10),LTIME
8894 COMMON/QCFCNT/IFCNT(-1:1,5)
8895
8896
8897 LOGICAL
8898 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8899 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8900 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8901 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8902 +LFFCAL,LASOLD
8903
8904 COMMON/QCFLAG/
8905 +IORD,IOLAST,
8906 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
8907 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
8908 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
8909 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
8910 +LFFCAL(7,30),LASOLD
8911
8912
8913 PARAMETER ( MXX = 410 )
8914 PARAMETER ( MQ2 = 120 )
8915
8916C-- Do not set the following parameter to zero!
8917 PARAMETER ( NDFMAX = 20)
8918
8919
8920 COMMON/QCGRID/
8921 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
8922 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
8923 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
8924 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
8925
8926
8927 COMMON/QCPASS/
8928 +ALPHA0, Q0ALFA, ASLAST, QALAST,
8929 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
8930 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
8931 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
8932 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
8933 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
8934 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
8935 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
8936 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
8937 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
8938
8939 LOGICAL LEVDONE,LE_DONE
8940 COMMON/QCLEVL/
8941 +LEVDONE(MXX,10),LE_DONE(MXX)
8942
8943
8944 IF(LTIME) CALL TIMEX_LHA(T_START(6))
8945
8946 CALL QTRACE('STFAST ',0)
8947
8948 IERR = 0
8949 IF(.NOT.LMARK) THEN
8950 IERR = 1
8951 GOTO 500
8952 ENDIF
8953
8954 CALL QSTRIP(UNAM,NAME)
8955 CALL QSTRIP(OPT ,OPT5)
8956
8957 JX = 0
8958 JQ = 0
8959 XX = 0.
8960 QQ = 0.
8961 IDF = IFCHEK(OPT5,NAME,JX,JQ,XX,QQ,'STFAST',1,ID)
8962
8963 IF(.NOT.LALFOK) CALL QFILAS('STFAST')
8964 IF(.NOT.LDQ2OK) CALL QDELQ2
8965
8966 IF(IDF.GE.1.AND.IDF.LE.7) THEN
8967 CALL BKFAST(IDF,ID,IERR)
8968 IF(IERR.NE.0) THEN
8969 LFFCAL(IDF,ID) = .FALSE.
8970 RETURN
8971 ENDIF
8972 ELSE
8973 IERR = 10
8974 GOTO 500
8975 ENDIF
8976
8977 IF (IDF.EQ.1) THEN
8978 CALL FASTF2(ID)
8979 ELSEIF(IDF.EQ.2) THEN
8980 CALL FASTFL(ID)
8981 ELSEIF(IDF.EQ.3) THEN
8982 CALL FASTF3(ID)
8983 ELSE
8984 CALL FASTFKH(IDF,ID)
8985 ENDIF
8986
8987 IF(LTIME) THEN
8988 CALL TIMEX_LHA(T_END(6))
8989 T_SPENT(6) = T_SPENT(6)+T_END(6)-T_START(6)
8990 N_CALLS(6) = N_CALLS(6)+1
8991 ENDIF
8992
8993 RETURN
8994
8995 500 CONTINUE
8996
8997 WRITE(6,'(/'' ------------------------------------'')')
8998 WRITE(6,'( '' QCDNUM error in s/r STFAST ---> STOP'')')
8999 WRITE(6,'( '' ------------------------------------'')')
9000 WRITE(6,'( '' Input OPT : '',A)') OPT
9001 WRITE(6,'( '' Input NAME : '',A)') UNAM
9002 IF(IERR.EQ.1) THEN
9003 WRITE(6,
9004 + '(/'' No gridpoints marked for fast calculation''/
9005 + '' Please call s/r QFMARK before STFAST'')')
9006 ELSEIF(IERR.EQ.10) THEN
9007 WRITE(6,'(/'' Unknown input option OPT'')')
9008 ENDIF
9009
9010 CALL QTRACE('STFAST ',1)
9011
9012 STOP
9013
9014 END
9015
9016CDECK ID>, FASTF2.
9017
9018C =====================
9019 SUBROUTINE FASTF2(ID)
9020C =====================
9021
9022 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9023
9024
9025 COMMON/QCCONS/
9026 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
9027 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
9028 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
9029 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
9030 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
9031 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
9032
9033
9034
9035 LOGICAL
9036 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9037 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9038 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9039 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9040 +LFFCAL,LASOLD
9041
9042 COMMON/QCFLAG/
9043 +IORD,IOLAST,
9044 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9045 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9046 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9047 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9048 +LFFCAL(7,30),LASOLD
9049
9050
9051 CHARACTER*5 PNAM,STFNAM
9052 LOGICAL LNFP
9053 COMMON /QCLNFP/ LNFP(0:30,3:5)
9054 COMMON /QCPNAM/ PNAM(0:30)
9055 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
9056 COMMON /QCFNAM/ STFNAM(7)
9057
9058
9059 PARAMETER ( MXX = 410 )
9060 PARAMETER ( MQ2 = 120 )
9061
9062C-- Do not set the following parameter to zero!
9063 PARAMETER ( NDFMAX = 20)
9064
9065
9066 COMMON/QCGRID/
9067 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9068 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9069 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9070 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9071
9072
9073 REAL
9074 +WGTFF1,WGTFG1,
9075 +WGTGF1,WGTGG1,
9076 +WGTPP2,WGTPM2,WGTNS2,
9077 +WGTFF2,WGTFG2,
9078 +WGTGF2,WGTGG2,
9079 +WGTC2Q,WGTC2G,YNTC2Q,
9080 +WGTCLQ,WGTCLG,WGTC3Q
9081
9082 COMMON/QCWEIT/
9083 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
9084 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
9085 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
9086 +WGTNS2(MXX*(MXX+1)/2,3:5),
9087 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
9088 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
9089 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
9090 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
9091 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
9092
9093 COMMON/QCWADR/ IWADR(MXX,MXX)
9094
9095
9096 COMMON/QCPASS/
9097 +ALPHA0, Q0ALFA, ASLAST, QALAST,
9098 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
9099 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
9100 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
9101 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
9102 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
9103 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
9104 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
9105 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
9106 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
9107
9108 LOGICAL LEVDONE,LE_DONE
9109 COMMON/QCLEVL/
9110 +LEVDONE(MXX,10),LE_DONE(MXX)
9111
9112
9113 DIMENSION QUARKS(MXX),GLUONS(MXX)
9114
9115C-- Get adress where to store F2
9116 JD = IDFAST(1,ID)
9117
9118C-- Loop over all Q2 gridpoints
9119 DO 100 IQ = 1,NQ2
9120
9121C-- Initialise FSTORE and get minimum value of x
9122 IXMIN = 999999
9123 DO IX = 1,NXX
9124 FSTORE(IX,IQ,JD) = -401.
9125 IF(MARKFF(IX,IQ).EQ.1) IXMIN = MIN(IXMIN,IX)
9126 ENDDO
9127
9128C-- Is this Q2 gridpoint marked?
9129 IF(MARKQQ(IQ).NE.1) GOTO 100
9130
9131C-- Get scale and check if inside Q2 gridboundaries
9132 QMU = Q2TAB(IQ)*AAM2L + BBM2L
9133 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
9134 IF(IMU.EQ.0) GOTO 100
9135 QR2 = QMU*AAAR2 + BBBR2
9136 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
9137 IF(IR2.EQ.0) GOTO 100
9138
9139C-- Calculate F2 for all marked gridpoints
9140 FACT = LOG(Q2TAB(IQ)/QMU)
9141 NF = NFMAP(IMU)
9142 TX = 0.
9143 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
9144 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
9145 AS = GET_AS(IR2,TR)
9146 DO IX0 = NXX,IXMIN,-1
9147 GLUONS(IX0) = GET_PDFXQ( 0,IX0,IMU,TX,TQ)
9148 QUARKS(IX0) = GET_PDFXQ(ID,IX0,IMU,TX,TQ)
9149 IF(MARKFF(IX0,IQ).EQ.1) THEN
9150 FFF0 = QUARKS(IX0)
9151 IF(IORD.EQ.1) THEN
9152 FSTORE(IX0,IQ,JD) = FFF0
9153 ELSE
9154 FF = 0.
9155 DO IX = IX0,NXX
9156 FF = FF +
9157 + (WGTC2Q(IWADR(IX,IX0))+
9158 + WGTFF1(IWADR(IX,IX0))*FACT)*QUARKS(IX) +
9159 + (WGTC2G(IWADR(IX,IX0),NF)+
9160 + WGTFG1(IWADR(IX,IX0),NF)*FACT)*
9161 + GLUONS(IX)*PWGT(1,ID,NF)
9162 ENDDO
9163 FSTORE(IX0,IQ,JD) = FFF0 + AS*FF
9164 ENDIF
9165 ENDIF
9166 ENDDO
9167 FSTORE(NXX+1,IQ,JD) = 0.
9168
9169 100 CONTINUE
9170
9171C-- Mark F2 calculated for pdf ID
9172 LFFCAL(1,ID) = .TRUE.
9173
9174 RETURN
9175 END
9176
9177CDECK ID>, FASTFL.
9178
9179C =====================
9180 SUBROUTINE FASTFL(ID)
9181C =====================
9182
9183 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9184
9185
9186 COMMON/QCCONS/
9187 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
9188 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
9189 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
9190 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
9191 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
9192 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
9193
9194
9195
9196 LOGICAL
9197 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9198 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9199 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9200 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9201 +LFFCAL,LASOLD
9202
9203 COMMON/QCFLAG/
9204 +IORD,IOLAST,
9205 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9206 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9207 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9208 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9209 +LFFCAL(7,30),LASOLD
9210
9211
9212 CHARACTER*5 PNAM,STFNAM
9213 LOGICAL LNFP
9214 COMMON /QCLNFP/ LNFP(0:30,3:5)
9215 COMMON /QCPNAM/ PNAM(0:30)
9216 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
9217 COMMON /QCFNAM/ STFNAM(7)
9218
9219
9220 PARAMETER ( MXX = 410 )
9221 PARAMETER ( MQ2 = 120 )
9222
9223C-- Do not set the following parameter to zero!
9224 PARAMETER ( NDFMAX = 20)
9225
9226
9227 COMMON/QCGRID/
9228 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9229 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9230 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9231 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9232
9233
9234 REAL
9235 +WGTFF1,WGTFG1,
9236 +WGTGF1,WGTGG1,
9237 +WGTPP2,WGTPM2,WGTNS2,
9238 +WGTFF2,WGTFG2,
9239 +WGTGF2,WGTGG2,
9240 +WGTC2Q,WGTC2G,YNTC2Q,
9241 +WGTCLQ,WGTCLG,WGTC3Q
9242
9243 COMMON/QCWEIT/
9244 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
9245 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
9246 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
9247 +WGTNS2(MXX*(MXX+1)/2,3:5),
9248 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
9249 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
9250 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
9251 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
9252 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
9253
9254 COMMON/QCWADR/ IWADR(MXX,MXX)
9255
9256
9257 COMMON/QCPASS/
9258 +ALPHA0, Q0ALFA, ASLAST, QALAST,
9259 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
9260 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
9261 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
9262 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
9263 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
9264 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
9265 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
9266 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
9267 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
9268
9269 LOGICAL LEVDONE,LE_DONE
9270 COMMON/QCLEVL/
9271 +LEVDONE(MXX,10),LE_DONE(MXX)
9272
9273
9274 DIMENSION QUARKS(MXX),GLUONS(MXX)
9275
9276C-- Get adress where to store FL
9277 JD = IDFAST(2,ID)
9278
9279C-- Loop over all Q2 gridpoints
9280 DO 100 IQ = 1,NQ2
9281
9282C-- Initialise FSTORE and get minimum value of x
9283 IXMIN = 999999
9284 DO IX = 1,NXX
9285 FSTORE(IX,IQ,JD) = -401.
9286 IF(MARKFF(IX,IQ).EQ.1) IXMIN = MIN(IXMIN,IX)
9287 ENDDO
9288
9289C-- Is this Q2 gridpoint marked?
9290 IF(MARKQQ(IQ).NE.1) GOTO 100
9291
9292C-- Get scale and check if inside Q2 gridboundaries
9293 QMU = Q2TAB(IQ)*AAM2L + BBM2L
9294 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
9295 IF(IMU.EQ.0) GOTO 100
9296 QR2 = QMU*AAAR2 + BBBR2
9297 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
9298 IF(IR2.EQ.0) GOTO 100
9299
9300C-- Calculate FL for all marked gridpoints
9301 FACT = LOG(Q2TAB(IQ)/QMU)*FL_FAC
9302 NF = NFMAP(IMU)
9303 TX = 0.
9304 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
9305 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
9306 AS = GET_AS(IR2,TR)
9307 DO IX0 = NXX,IXMIN,-1
9308 GLUONS(IX0) = GET_PDFXQ( 0,IX0,IMU,TX,TQ)
9309 QUARKS(IX0) = GET_PDFXQ(ID,IX0,IMU,TX,TQ)
9310 IF(MARKFF(IX0,IQ).EQ.1) THEN
9311 FFF0 = 0.
9312 IF(IORD.EQ.1) THEN
9313 FSTORE(IX0,IQ,JD) = 0.
9314 ELSE
9315 FF = 0.
9316 DO IX = IX0,NXX
9317 FF = FF +
9318 + (WGTCLQ(IWADR(IX,IX0))+
9319 + WGTFF1(IWADR(IX,IX0))*FACT)*QUARKS(IX) +
9320 + (WGTCLG(IWADR(IX,IX0),NF)+
9321 + WGTFG1(IWADR(IX,IX0),NF)*FACT)*
9322 + GLUONS(IX)*PWGT(1,ID,NF)
9323 ENDDO
9324 FSTORE(IX0,IQ,JD) = FFF0 + AS*FF
9325 ENDIF
9326 ENDIF
9327 ENDDO
9328 FSTORE(NXX+1,IQ,JD) = 0.
9329
9330 100 CONTINUE
9331
9332C-- Mark FL calculated for pdf ID
9333 LFFCAL(2,ID) = .TRUE.
9334
9335 RETURN
9336 END
9337
9338CDECK ID>, FASTF3.
9339
9340C =====================
9341 SUBROUTINE FASTF3(ID)
9342C =====================
9343
9344 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9345
9346
9347 COMMON/QCCONS/
9348 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
9349 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
9350 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
9351 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
9352 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
9353 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
9354
9355
9356
9357 LOGICAL
9358 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9359 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9360 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9361 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9362 +LFFCAL,LASOLD
9363
9364 COMMON/QCFLAG/
9365 +IORD,IOLAST,
9366 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9367 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9368 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9369 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9370 +LFFCAL(7,30),LASOLD
9371
9372
9373 CHARACTER*5 PNAM,STFNAM
9374 LOGICAL LNFP
9375 COMMON /QCLNFP/ LNFP(0:30,3:5)
9376 COMMON /QCPNAM/ PNAM(0:30)
9377 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
9378 COMMON /QCFNAM/ STFNAM(7)
9379
9380
9381 PARAMETER ( MXX = 410 )
9382 PARAMETER ( MQ2 = 120 )
9383
9384C-- Do not set the following parameter to zero!
9385 PARAMETER ( NDFMAX = 20)
9386
9387
9388 COMMON/QCGRID/
9389 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9390 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9391 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9392 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9393
9394
9395 REAL
9396 +WGTFF1,WGTFG1,
9397 +WGTGF1,WGTGG1,
9398 +WGTPP2,WGTPM2,WGTNS2,
9399 +WGTFF2,WGTFG2,
9400 +WGTGF2,WGTGG2,
9401 +WGTC2Q,WGTC2G,YNTC2Q,
9402 +WGTCLQ,WGTCLG,WGTC3Q
9403
9404 COMMON/QCWEIT/
9405 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
9406 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
9407 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
9408 +WGTNS2(MXX*(MXX+1)/2,3:5),
9409 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
9410 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
9411 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
9412 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
9413 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
9414
9415 COMMON/QCWADR/ IWADR(MXX,MXX)
9416
9417
9418 COMMON/QCPASS/
9419 +ALPHA0, Q0ALFA, ASLAST, QALAST,
9420 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
9421 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
9422 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
9423 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
9424 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
9425 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
9426 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
9427 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
9428 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
9429
9430 LOGICAL LEVDONE,LE_DONE
9431 COMMON/QCLEVL/
9432 +LEVDONE(MXX,10),LE_DONE(MXX)
9433
9434
9435 DIMENSION QUARKS(MXX)
9436
9437C-- Get adress where to store F3
9438 JD = IDFAST(3,ID)
9439
9440C-- Loop over all Q2 gridpoints
9441 DO 100 IQ = 1,NQ2
9442
9443C-- Initialise FSTORE and get minimum value of x
9444 IXMIN = 999999
9445 DO IX = 1,NXX
9446 FSTORE(IX,IQ,JD) = -401.
9447 IF(MARKFF(IX,IQ).EQ.1) IXMIN = MIN(IXMIN,IX)
9448 ENDDO
9449
9450C-- Is this Q2 gridpoint marked?
9451 IF(MARKQQ(IQ).NE.1) GOTO 100
9452
9453C-- Get scale and check if inside Q2 gridboundaries
9454 QMU = Q2TAB(IQ)*AAM2L + BBM2L
9455 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
9456 IF(IMU.EQ.0) GOTO 100
9457 QR2 = QMU*AAAR2 + BBBR2
9458 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
9459 IF(IR2.EQ.0) GOTO 100
9460
9461C-- Calculate F3 for all marked gridpoints
9462 FACT = LOG(Q2TAB(IQ)/QMU)
9463 TX = 0.
9464 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
9465 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
9466 AS = GET_AS(IR2,TR)
9467 DO IX0 = NXX,IXMIN,-1
9468 QUARKS(IX0) = GET_PDFXQ(ID,IX0,IMU,TX,TQ)
9469 IF(MARKFF(IX0,IQ).EQ.1) THEN
9470 FFF0 = QUARKS(IX0)
9471 IF(IORD.EQ.1) THEN
9472 FSTORE(IX0,IQ,JD) = FFF0
9473 ELSE
9474 FF = 0.
9475 DO IX = IX0,NXX
9476 FF = FF +
9477 + (WGTC3Q(IWADR(IX,IX0))+
9478 + WGTFF1(IWADR(IX,IX0))*FACT)*QUARKS(IX)
9479 ENDDO
9480 FSTORE(IX0,IQ,JD) = FFF0 + AS*FF
9481 ENDIF
9482 ENDIF
9483 ENDDO
9484 FSTORE(NXX+1,IQ,JD) = 0.
9485
9486 100 CONTINUE
9487
9488C-- Mark F3 calculated for pdf ID
9489 LFFCAL(3,ID) = .TRUE.
9490
9491 RETURN
9492 END
9493
9494CDECK ID>, FASTFKH.
9495
9496C ==========================
9497 SUBROUTINE FASTFKH(IDF,ID)
9498C ==========================
9499
9500C-- IDF = 4,5,6,7 for F2c,FLc,F2b,FLb
9501
9502 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9503
9504
9505
9506 COMMON/QCCONS/
9507 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
9508 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
9509 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
9510 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
9511 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
9512 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
9513
9514
9515
9516 LOGICAL
9517 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9518 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9519 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9520 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9521 +LFFCAL,LASOLD
9522
9523 COMMON/QCFLAG/
9524 +IORD,IOLAST,
9525 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9526 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9527 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9528 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9529 +LFFCAL(7,30),LASOLD
9530
9531
9532 CHARACTER*5 PNAM,STFNAM
9533 LOGICAL LNFP
9534 COMMON /QCLNFP/ LNFP(0:30,3:5)
9535 COMMON /QCPNAM/ PNAM(0:30)
9536 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
9537 COMMON /QCFNAM/ STFNAM(7)
9538
9539
9540 PARAMETER ( MXX = 410 )
9541 PARAMETER ( MQ2 = 120 )
9542
9543C-- Do not set the following parameter to zero!
9544 PARAMETER ( NDFMAX = 20)
9545
9546
9547 COMMON/QCGRID/
9548 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9549 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9550 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9551 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9552
9553
9554 REAL
9555 +WH_C0KG,WH_C1KG,WH_C1BKG,
9556 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
9557
9558 COMMON/QCHWGT/
9559 +WH_C0KG(0:MXX,MQ2,4:7),
9560 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
9561 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
9562 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
9563
9564
9565 COMMON/QCPASS/
9566 +ALPHA0, Q0ALFA, ASLAST, QALAST,
9567 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
9568 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
9569 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
9570 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
9571 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
9572 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
9573 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
9574 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
9575 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
9576
9577 LOGICAL LEVDONE,LE_DONE
9578 COMMON/QCLEVL/
9579 +LEVDONE(MXX,10),LE_DONE(MXX)
9580
9581
9582 DIMENSION QU(MXX),GL(MXX),SI(MXX)
9583
9584C-- Correct quark mass
9585 QMASS = CBMSTF(IDF)
9586 CCCC = CHARGE(IDF)
9587
9588C-- Get adress where to store FKH
9589 JD = IDFAST(IDF,ID)
9590
9591C-- FKH in LO
9592 IF(IORD.EQ.1) THEN
9593
9594 DO 100 IQ = 1,NQ2
9595 IXMIN = 999999
9596 DO IX = 1,NXX
9597 FSTORE(IX,IQ,JD) = -401.
9598 IF(MARKFH(IX,IQ).EQ.1) IXMIN = MIN(IXMIN,IX)
9599 ENDDO
9600 IF(MARKQQ(IQ).NE.1) GOTO 100
9601 QMU = Q2TAB(IQ)*AAM2H + BBM2H
9602 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
9603 IF(IMU.EQ.0) GOTO 100
9604 QR2 = QMU*AAAR2 + BBBR2
9605 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
9606 IF(IR2.EQ.0) GOTO 100
9607 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
9608 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
9609 AS = GET_AS(IR2,TR)
9610 DO IX0 = NXX,IXMIN,-1
9611 IXL = IHTAB(IX0)
9612 X = XHTAB(IX0)
9613 TX = (X-XXTAB(IXL))/(XXTAB(IXL+1)-XXTAB(IXL))
9614 GL(IX0) = GET_PDFXQ( 0,IXL,IMU,TX,TQ)
9615 IF(MARKFH(IX0,IQ).EQ.1) THEN
9616 FF = 0.
9617 DO IX = IX0,NXX
9618 FF = FF +
9619 + WH_C0KG(IX-IX0,IQ,IDF)*GL(IX)
9620 ENDDO
9621 FSTORE(IX0,IQ,JD) = CCCC*AS*FF
9622 ENDIF
9623 ENDDO
9624 FSTORE(NXX+1,IQ,JD) = 0.
9625 100 CONTINUE
9626
9627
9628C-- FKH in NLO
9629 ELSE
9630
9631 DO 200 IQ = 1,NQ2
9632 IXMIN = 999999
9633 DO IX = 1,NXX
9634 FSTORE(IX,IQ,JD) = -401.
9635 IF(MARKFH(IX,IQ).EQ.1) IXMIN = MIN(IXMIN,IX)
9636 ENDDO
9637 IF(MARKQQ(IQ).NE.1) GOTO 200
9638 QMU = Q2TAB(IQ)*AAM2H + BBM2H
9639 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
9640 IF(IMU.EQ.0) GOTO 200
9641 QR2 = QMU*AAAR2 + BBBR2
9642 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
9643 IF(IR2.EQ.0) GOTO 200
9644 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
9645 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
9646 AS = GET_AS(IR2,TR)
9647 FACT = LOG(QMU/(QMASS*QMASS))
9648 DO IX0 = NXX,IXMIN,-1
9649 IXL = IHTAB(IX0)
9650 X = XHTAB(IX0)
9651 TX = (X-XXTAB(IXL))/(XXTAB(IXL+1)-XXTAB(IXL))
9652 GL(IX0) = GET_PDFXQ( 0,IXL,IMU,TX,TQ)
9653 SI(IX0) = GET_PDFXQ( 1,IXL,IMU,TX,TQ)
9654 QU(IX0) = GET_PDFXQ(ID,IXL,IMU,TX,TQ)
9655 IF(MARKFH(IX0,IQ).EQ.1) THEN
9656 F1 = 0.
9657 F2 = 0.
9658 F3 = 0.
9659 F4 = 0.
9660 DO IX = IX0,NXX
9661 I = IX-IX0
9662 F1 = F1 +
9663 + WH_C0KG(I,IQ,IDF)*GL(IX)
9664 F2 = F2 +
9665 + (WH_C1KG(I,IQ,IDF)+WH_C1BKG(I,IQ,IDF)*FACT)*GL(IX)
9666 F3 = F3 +
9667 + (WH_C1KQ(I,IQ,IDF)+WH_C1BKQ(I,IQ,IDF)*FACT)*SI(IX)
9668 F4 = F4 +
9669 + (WH_D1KQ(I,IQ,IDF)+WH_D1BKQ(I,IQ,IDF)*FACT)*QU(IX)
9670 ENDDO
9671 FSTORE(IX0,IQ,JD) = CCCC *
9672 + (AS*F1+AS*AS*(F2+F3)) + AS*AS*F4
9673 ENDIF
9674 ENDDO
9675 FSTORE(NXX+1,IQ,JD) = 0.
9676 200 CONTINUE
9677
9678 ENDIF
9679
9680 LFFCAL(IDF,ID) = .TRUE.
9681
9682
9683 RETURN
9684 END
9685
9686CDECK ID>, QNFGET.
9687
9688C ================================================
9689 DOUBLE PRECISION FUNCTION QNFGET(OPT,NAME,IX,IQ)
9690C ================================================
9691
9692 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9693
9694 CHARACTER*(*) OPT,NAME
9695
9696C--- Obsolete (16/07/96): use QSTFIJ instead
9697
9698 QNFGET = QSTFIJ(OPT,NAME,IX,IQ,IFL)
9699
9700 RETURN
9701 END
9702
9703CDECK ID>, QSTFIJ.
9704
9705C ====================================================
9706 DOUBLE PRECISION FUNCTION QSTFIJ(OPT,UNAM,IX,IQ,IFL)
9707C ====================================================
9708
9709 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9710
9711C--- Returns stf 'OPT' from pdf 'NAME' at gridpoint IX,IQ
9712C--- IFL = 0 : F2 sucessfully calculated
9713C--- 1 : Fast calculation
9714C--- -1 : Scale mu outside grid
9715
9716 CHARACTER*(*) OPT,UNAM
9717 CHARACTER*5 NAME
9718 CHARACTER*5 OPT5
9719
9720
9721 LOGICAL LTIME
9722 REAL T_START,T_END,T_SPENT
9723 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
9724 +E_CALLS(10),LTIME
9725 COMMON/QCFCNT/IFCNT(-1:1,5)
9726
9727
9728 LOGICAL
9729 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9730 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9731 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9732 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9733 +LFFCAL,LASOLD
9734
9735 COMMON/QCFLAG/
9736 +IORD,IOLAST,
9737 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9738 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9739 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9740 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9741 +LFFCAL(7,30),LASOLD
9742
9743
9744 CHARACTER*5 PNAM,STFNAM
9745 LOGICAL LNFP
9746 COMMON /QCLNFP/ LNFP(0:30,3:5)
9747 COMMON /QCPNAM/ PNAM(0:30)
9748 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
9749 COMMON /QCFNAM/ STFNAM(7)
9750
9751
9752 PARAMETER ( MXX = 410 )
9753 PARAMETER ( MQ2 = 120 )
9754
9755C-- Do not set the following parameter to zero!
9756 PARAMETER ( NDFMAX = 20)
9757
9758
9759 COMMON/QCGRID/
9760 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9761 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9762 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9763 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9764
9765
9766 CALL QTRACE('QSTFIJ ',0)
9767
9768 CALL QSTRIP(UNAM,NAME)
9769 CALL QSTRIP(OPT ,OPT5)
9770
9771 QSTFIJ = 0.
9772 IFL = 0
9773 X = 0.
9774 Q = 0.
9775 IERR = IFCHEK(OPT5,NAME,IX,IQ,X,Q,'QSTFIJ',1,ID)
9776
9777C-- Outside grid or cuts?
9778 IF(IERR.EQ.-2) THEN
9779 IFL = -1
9780 RETURN
9781 ENDIF
9782
9783 IF(.NOT.LALFOK) CALL QFILAS('QSTFIJ')
9784 IF(.NOT.LDQ2OK) CALL QDELQ2
9785
9786 IF(IERR.EQ.1) THEN
9787 QSTFIJ = GET_F2(ID,IX,IQ,IFL)
9788 IFCNT(IFL,1) = IFCNT(IFL,1)+1
9789 ELSEIF(IERR.EQ.2) THEN
9790 QSTFIJ = GET_FL(ID,IX,IQ,IFL)
9791 IFCNT(IFL,2) = IFCNT(IFL,2)+1
9792 ELSEIF(IERR.EQ.3) THEN
9793 QSTFIJ = GET_F3(ID,IX,IQ,IFL)
9794 IFCNT(IFL,3) = IFCNT(IFL,3)+1
9795C--- Use GETFKH instead of GET_FKH for the heavy quarks since
9796C--- we have to interpolate on the heavy quark grid.
9797 ELSEIF(IERR.EQ.4) THEN
9798 CALL GETFKH(4,ID,XXTAB(IX),Q2TAB(IQ),QSTFIJ,IFL)
9799 IFCNT(IFL,4) = IFCNT(IFL,4)+1
9800 ELSEIF(IERR.EQ.5) THEN
9801 CALL GETFKH(5,ID,XXTAB(IX),Q2TAB(IQ),QSTFIJ,IFL)
9802 IFCNT(IFL,5) = IFCNT(IFL,5)+1
9803 ELSEIF(IERR.EQ.6) THEN
9804 CALL GETFKH(6,ID,XXTAB(IX),Q2TAB(IQ),QSTFIJ,IFL)
9805 IFCNT(IFL,4) = IFCNT(IFL,4)+1
9806 ELSEIF(IERR.EQ.7) THEN
9807 CALL GETFKH(7,ID,XXTAB(IX),Q2TAB(IQ),QSTFIJ,IFL)
9808 IFCNT(IFL,5) = IFCNT(IFL,5)+1
9809 ENDIF
9810
9811 RETURN
9812
9813 END
9814
9815CDECK ID>, STRFXQ.
9816
9817C =======================================
9818 SUBROUTINE STRFXQ(OPT,NAME,X,Q,VAL,IFL)
9819C =======================================
9820
9821 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9822
9823 CHARACTER*(*) OPT,NAME
9824
9825C--- Obsolete (16/07/96): use QSTFXQ instead
9826
9827 VAL = QSTFXQ(OPT,NAME,X,Q,IFL)
9828
9829 RETURN
9830 END
9831
9832CDECK ID>, QSTFXQ.
9833
9834C ==================================================
9835 DOUBLE PRECISION FUNCTION QSTFXQ(OPT,UNAM,X,Q,IFL)
9836C ==================================================
9837
9838 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9839
9840
9841C--- IFL = 0 : F2 sucessfully calculated
9842C--- 1 : Fast calculation
9843C--- -1 : Scale mu outside grid
9844
9845 CHARACTER*(*) OPT,UNAM
9846 CHARACTER*5 NAME
9847 CHARACTER*5 OPT5
9848
9849
9850 LOGICAL LTIME
9851 REAL T_START,T_END,T_SPENT
9852 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
9853 +E_CALLS(10),LTIME
9854 COMMON/QCFCNT/IFCNT(-1:1,5)
9855
9856
9857 LOGICAL
9858 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9859 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9860 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9861 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9862 +LFFCAL,LASOLD
9863
9864 COMMON/QCFLAG/
9865 +IORD,IOLAST,
9866 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9867 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9868 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9869 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9870 +LFFCAL(7,30),LASOLD
9871
9872
9873 PARAMETER ( MXX = 410 )
9874 PARAMETER ( MQ2 = 120 )
9875
9876C-- Do not set the following parameter to zero!
9877 PARAMETER ( NDFMAX = 20)
9878
9879
9880 COMMON/QCGRID/
9881 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9882 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
9883 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
9884 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
9885
9886
9887 CALL QTRACE('QSTFXQ ',0)
9888
9889 CALL QSTRIP(UNAM,NAME)
9890 CALL QSTRIP(OPT ,OPT5)
9891
9892 QSTFXQ = 0.
9893 IFL = 0
9894 IERR = IFCHEK(OPT5,NAME,0,0,X,Q,'QSTFXQ',1,ID)
9895
9896C-- Outside grid or cuts?
9897 IF(IERR.EQ.-2) THEN
9898 IFL = -1
9899 RETURN
9900 ENDIF
9901
9902 IF(.NOT.LALFOK) CALL QFILAS('QSTFXQ')
9903 IF(.NOT.LDQ2OK) CALL QDELQ2
9904
9905 IF (IERR.EQ.1) THEN
9906 CALL GETF2(ID,X,Q,STRF,IFL)
9907 IFCNT(IFL,1) = IFCNT(IFL,1)+1
9908 ELSEIF(IERR.EQ.2) THEN
9909 CALL GETFL(ID,X,Q,STRF,IFL)
9910 IFCNT(IFL,2) = IFCNT(IFL,2)+1
9911 ELSEIF(IERR.EQ.3) THEN
9912 CALL GETF3(ID,X,Q,STRF,IFL)
9913 IFCNT(IFL,3) = IFCNT(IFL,3)+1
9914 ELSEIF(IERR.EQ.4) THEN
9915 CALL GETFKH(4,ID,X,Q,STRF,IFL)
9916 IFCNT(IFL,4) = IFCNT(IFL,4)+1
9917 ELSEIF(IERR.EQ.5) THEN
9918 CALL GETFKH(5,ID,X,Q,STRF,IFL)
9919 IFCNT(IFL,5) = IFCNT(IFL,5)+1
9920 ELSEIF(IERR.EQ.6) THEN
9921 CALL GETFKH(6,ID,X,Q,STRF,IFL)
9922 IFCNT(IFL,4) = IFCNT(IFL,4)+1
9923 ELSEIF(IERR.EQ.7) THEN
9924 CALL GETFKH(7,ID,X,Q,STRF,IFL)
9925 IFCNT(IFL,5) = IFCNT(IFL,5)+1
9926 ENDIF
9927
9928 QSTFXQ = STRF
9929
9930 RETURN
9931
9932 END
9933
9934CDECK ID>, IFCHEK.
9935
9936C ============================================================
9937 INTEGER FUNCTION IFCHEK(OPT,NAME,JX,JQ,XX,QQ,SRNAM,ISTOP,ID)
9938C ============================================================
9939
9940C--- Check for structure function calculation
9941
9942C--- IFCHEK = -5: Q2 < 1.5 GeV2 for heavy quark stfs
9943C--- -4: No weight tables
9944C--- -3: Input NAME corresponds to gluon
9945C--- -2: x,Q2,M2,R2 outside grid or cuts
9946C--- -1: No x,Q2 grid available
9947C--- 0: Unknown option
9948C--- 1-7: F2, FL, xF3, F2c, FLc, F2b, FLb
9949
9950 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
9951
9952 CHARACTER*5 OPT
9953 CHARACTER*5 NAME
9954 CHARACTER*6 SRNAM
9955
9956
9957 COMMON/QCCONS/
9958 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
9959 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
9960 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
9961 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
9962 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
9963 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
9964
9965
9966
9967 LOGICAL LTIME
9968 REAL T_START,T_END,T_SPENT
9969 COMMON/QCTIME/T_START(10),T_END(10),T_SPENT(10),N_CALLS(10),
9970 +E_CALLS(10),LTIME
9971 COMMON/QCFCNT/IFCNT(-1:1,5)
9972
9973
9974 LOGICAL
9975 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9976 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9977 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9978 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9979 +LFFCAL,LASOLD
9980
9981 COMMON/QCFLAG/
9982 +IORD,IOLAST,
9983 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
9984 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
9985 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
9986 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
9987 +LFFCAL(7,30),LASOLD
9988
9989
9990 PARAMETER ( MXX = 410 )
9991 PARAMETER ( MQ2 = 120 )
9992
9993C-- Do not set the following parameter to zero!
9994 PARAMETER ( NDFMAX = 20)
9995
9996
9997 COMMON/QCGRID/
9998 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
9999 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10000 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10001 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10002
10003
10004
10005C-- Check if valid option
10006 IERR = IDFCHK(OPT)
10007 IF(IERR.EQ.0) GOTO 500
10008 JJ = IERR
10009 IF(IERR.EQ.6) JJ = 4
10010 IF(IERR.EQ.7) JJ = 5
10011
10012C-- Check x,Q2 grid available
10013 IF(NXX.EQ.0.OR.NQ2.EQ.0) THEN
10014 IERR = -1
10015 GOTO 500
10016 ENDIF
10017
10018 IF(SRNAM.NE.'STFAST') THEN
10019C-- --------------------------
10020
10021C-- Get x, Q2
10022 IF(SRNAM.EQ.'QSTFIJ') THEN
10023 X = XFROMIX(JX)
10024 Q = QFROMIQ(JQ)
10025 ELSE
10026 X = XX
10027 Q = QQ
10028 ENDIF
10029
10030C-- Check x,Q2 inside grid
10031 QP = Q
10032 IX = ABS(IXFROMX(X))
10033 IQ = MIN(ABS(IQFROMQ(Q)),NQ2-1)
10034 IF(IX.EQ.0.OR.IQ.EQ.0) THEN
10035 IFCNT(-1,JJ) = IFCNT(-1,JJ)+1
10036 IERR = -2
10037 GOTO 500
10038 ENDIF
10039
10040C-- Check factorisation scale inside grid or cuts
10041 IF(IERR.LE.3) THEN
10042 QM = AAM2L*Q + BBM2L
10043 ELSE
10044 QM = AAM2H*Q + BBM2H
10045 ENDIF
10046 QP = QM
10047 IFLG = ICUTXQ(X,QP,0)
10048 IF(IFLG.NE.0) THEN
10049 IFCNT(-1,JJ) = IFCNT(-1,JJ)+1
10050 IERR = -2
10051 GOTO 500
10052 ENDIF
10053 IM2 = MIN(ABS(IQFROMQ(QM)),NQ2-1)
10054
10055C-- Check renormalisation scale inside grid and above Lamba2
10056 QR = AAAR2*QM + BBBR2
10057 QP = QR
10058 IR2 = MIN(ABS(IQFROMQ(QR)),NQ2-1)
10059 IF(IR2.EQ.0 .OR. IFLG.GE.10000) THEN
10060 IFCNT(-1,JJ) = IFCNT(-1,JJ)+1
10061 IERR = -2
10062 GOTO 500
10063 ENDIF
10064
10065C-- Check if the parton distribution is booked
10066 ID = IDCHEK(NAME,NFMAP(IQ) ,SRNAM,1)
10067 ID = IDCHEK(NAME,NFMAP(IQ+1) ,SRNAM,1)
10068 ID = IDCHEK(NAME,NFMAP(IM2) ,SRNAM,1)
10069 ID = IDCHEK(NAME,NFMAP(IM2+1),SRNAM,1)
10070 ID = IDCHEK(NAME,NFMAP(IR2) ,SRNAM,1)
10071 ID = IDCHEK(NAME,NFMAP(IR2+1),SRNAM,1)
10072
10073 ELSE
10074C-- ----
10075
10076C-- Check if the parton distribution is booked
10077 NFMIN = NFMAP(1)
10078 NFMAX = NFMAP(NQ2)
10079 DO NF = NFMIN,NFMAX
10080 ID = IDCHEK(NAME,NF,'STFAST',1)
10081 ENDDO
10082
10083 ENDIF
10084C-- -----
10085
10086C-- No structure functions from the gluon
10087 IF(ID.EQ.0) THEN
10088 IERR = -3
10089 GOTO 500
10090 ENDIF
10091
10092C-- Check if the weight tables are available
10093 IF(IERR.LE.3) THEN
10094 IF(IORD.EQ.2.AND..NOT.LWTFOK) THEN
10095 IERR = -4
10096 GOTO 500
10097 ENDIF
10098 ELSEIF(IERR.EQ.4) THEN
10099 IF(.NOT.LWFCOK) THEN
10100 IERR = -4
10101 GOTO 500
10102 ENDIF
10103 ELSEIF(IERR.EQ.5) THEN
10104 IF(.NOT.LWLCOK) THEN
10105 IERR = -4
10106 GOTO 500
10107 ENDIF
10108 ELSEIF(IERR.EQ.6) THEN
10109 IF(.NOT.LWFBOK) THEN
10110 IERR = -4
10111 GOTO 500
10112 ENDIF
10113 ELSEIF(IERR.EQ.7) THEN
10114 IF(.NOT.LWLBOK) THEN
10115 IERR = -4
10116 GOTO 500
10117 ENDIF
10118 ENDIF
10119
10120C-- Check low Q2 for heavy quarks
10121 IF(SRNAM.NE.'STFAST') THEN
10122 IF(IERR.GE.4) THEN
10123 IF(LCLOWQ.AND.Q.LE.1.5) THEN
10124 IERR = -5
10125 GOTO 500
10126 ENDIF
10127 ENDIF
10128 ENDIF
10129
10130 IFCHEK = IERR
10131
10132 RETURN
10133
10134 500 CONTINUE
10135
10136 IFCHEK = IERR
10137
10138C-- Stop?
10139 IF(ISTOP.EQ.0) RETURN
10140 IF(.NOT.LIMCK.AND.IERR.EQ.-2) RETURN
10141
10142 WRITE(6,'(/'' ------------------------------------'')')
10143 WRITE(6,'( '' QCDNUM error in s/r '',A6,'' ---> STOP'')')
10144 + SRNAM
10145 WRITE(6,'( '' ------------------------------------'')')
10146 WRITE(6,'( '' Input Opt : '',A)') OPT
10147 WRITE(6,'( '' Name : '',A)') NAME
10148 IF(SRNAM.NE.'STFAST') THEN
10149 IF(SRNAM.EQ.'QSTFIJ') THEN
10150 WRITE(6,'( '' IX : '',I10 )') JX
10151 WRITE(6,'( '' IQ : '',I10 )') JQ
10152 ELSE
10153 WRITE(6,'( '' x : '',E12.5)') XX
10154 WRITE(6,'( '' Q2 : '',E12.5)') QQ
10155 ENDIF
10156 ENDIF
10157 IF(IERR.EQ.0) THEN
10158 WRITE(6,'(/'' Unknown option'')')
10159 ELSEIF(IERR.EQ.-1) THEN
10160 WRITE(6,'(/'' No x-Q2 grid available'')')
10161 ELSEIF(IERR.EQ.-2) THEN
10162 WRITE(6,'(/'' X, Q2 or mu2 outside grid or cuts'')')
10163 IDUM = ICUTXQ(X,QP,1)
10164 ELSEIF(IERR.EQ.-3) THEN
10165 WRITE(6,'(/'' Strf from the gluon, no thank you'')')
10166 ELSEIF(IERR.EQ.-4) THEN
10167 WRITE(6,'(/'' No weight tables available'')')
10168 ELSEIF(IERR.EQ.-5) THEN
10169 WRITE(6,'(/'' Cannot calculate F2h, FLh for Q2 < 1.5 GeV2'')')
10170 ENDIF
10171
10172 CALL QTRACE('IFCHEK ',1)
10173
10174 STOP
10175
10176 END
10177
10178CDECK ID>, IDFCHK.
10179
10180C =============================
10181 INTEGER FUNCTION IDFCHK(OPT5)
10182C =============================
10183
10184C-- Returns 1,2,3,4,5,6,7 for F2,Fl,xF3,F2c,FLc,F2b,FLb.
10185C-- Returns 0 if no valid OPT is given on input.
10186
10187 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10188
10189 CHARACTER*5 OPT5
10190
10191 IDFCHK = 0
10192
10193 IF (OPT5(1:3).EQ.'F2 ') THEN
10194 IDFCHK = 1
10195 ELSEIF(OPT5(1:3).EQ.'FL ') THEN
10196 IDFCHK = 2
10197 ELSEIF(OPT5(1:3).EQ.'XF3') THEN
10198 IDFCHK = 3
10199 ELSEIF(OPT5(1:3).EQ.'F2C') THEN
10200 IDFCHK = 4
10201 ELSEIF(OPT5(1:3).EQ.'FLC') THEN
10202 IDFCHK = 5
10203 ELSEIF(OPT5(1:3).EQ.'F2B') THEN
10204 IDFCHK = 6
10205 ELSEIF(OPT5(1:3).EQ.'FLB') THEN
10206 IDFCHK = 7
10207 ENDIF
10208
10209 RETURN
10210 END
10211
10212CDECK ID>, GETF2.
10213
10214C ================================
10215 SUBROUTINE GETF2(ID,X,Q,VAL,IFL)
10216C ================================
10217
10218C--- IFL = 0 : F2 sucessfully calculated
10219C--- 1 : Fast calculation
10220C--- -1 : Scale mu outside grid
10221
10222 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10223
10224
10225 COMMON/QCCONS/
10226 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10227 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10228 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
10229 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
10230 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
10231 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
10232
10233
10234
10235 LOGICAL
10236 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10237 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10238 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10239 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10240 +LFFCAL,LASOLD
10241
10242 COMMON/QCFLAG/
10243 +IORD,IOLAST,
10244 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10245 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10246 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10247 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10248 +LFFCAL(7,30),LASOLD
10249
10250
10251 CHARACTER*5 PNAM,STFNAM
10252 LOGICAL LNFP
10253 COMMON /QCLNFP/ LNFP(0:30,3:5)
10254 COMMON /QCPNAM/ PNAM(0:30)
10255 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
10256 COMMON /QCFNAM/ STFNAM(7)
10257
10258
10259 PARAMETER ( MXX = 410 )
10260 PARAMETER ( MQ2 = 120 )
10261
10262C-- Do not set the following parameter to zero!
10263 PARAMETER ( NDFMAX = 20)
10264
10265
10266 COMMON/QCGRID/
10267 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
10268 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10269 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10270 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10271
10272
10273 REAL
10274 +WGTFF1,WGTFG1,
10275 +WGTGF1,WGTGG1,
10276 +WGTPP2,WGTPM2,WGTNS2,
10277 +WGTFF2,WGTFG2,
10278 +WGTGF2,WGTGG2,
10279 +WGTC2Q,WGTC2G,YNTC2Q,
10280 +WGTCLQ,WGTCLG,WGTC3Q
10281
10282 COMMON/QCWEIT/
10283 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
10284 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
10285 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
10286 +WGTNS2(MXX*(MXX+1)/2,3:5),
10287 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
10288 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
10289 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
10290 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
10291 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
10292
10293 COMMON/QCWADR/ IWADR(MXX,MXX)
10294
10295
10296 COMMON/QCPASS/
10297 +ALPHA0, Q0ALFA, ASLAST, QALAST,
10298 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
10299 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
10300 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
10301 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
10302 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
10303 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
10304 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
10305 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
10306 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
10307
10308 LOGICAL LEVDONE,LE_DONE
10309 COMMON/QCLEVL/
10310 +LEVDONE(MXX,10),LE_DONE(MXX)
10311
10312
10313 VAL = 0.
10314 JER = 1
10315 IFL = -1
10316 IX = IXFROMX(X)
10317 IQ = IQFROMQ(Q)
10318
10319 IF(IX.GT.0.AND.IQ.GT.0) THEN
10320 VAL = GET_F2(ID,IX,IQ,IERR)
10321 JER = MIN(JER,IERR)
10322 ELSEIF(IX.GT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10323 IQ = -IQ
10324 VAL1 = GET_F2(ID,IX,IQ,IERR)
10325 JER = MIN(JER,IERR)
10326 VAL2 = GET_F2(ID,IX,IQ+1,IERR)
10327 JER = MIN(JER,IERR)
10328 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10329 VAL = (1.-TQ)*VAL1 + TQ*VAL2
10330 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
10331 IX = -IX
10332 VAL1 = GET_F2(ID,IX,IQ,IERR)
10333 JER = MIN(JER,IERR)
10334 VAL2 = GET_F2(ID,IX+1,IQ,IERR)
10335 JER = MIN(JER,IERR)
10336 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10337 VAL = (1.-TX)*VAL1 + TX*VAL2
10338 ELSEIF(IX.LT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10339 IX = -IX
10340 IQ = -IQ
10341 VAL1 = GET_F2(ID,IX,IQ,IERR)
10342 JER = MIN(JER,IERR)
10343 VAL2 = GET_F2(ID,IX,IQ+1,IERR)
10344 JER = MIN(JER,IERR)
10345 VAL3 = GET_F2(ID,IX+1,IQ,IERR)
10346 JER = MIN(JER,IERR)
10347 VAL4 = GET_F2(ID,IX+1,IQ+1,IERR)
10348 JER = MIN(JER,IERR)
10349 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10350 VAL1 = (1.-TQ)*VAL1 + TQ*VAL2
10351 VAL2 = (1.-TQ)*VAL3 + TQ*VAL4
10352 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10353 VAL = (1.-TX)*VAL1 + TX*VAL2
10354 ELSE
10355 VAL = 0.
10356 JER = -1
10357 ENDIF
10358
10359 IFL = JER
10360
10361 RETURN
10362 END
10363
10364CDECK ID>, GET_F2.
10365
10366C ================================================
10367 DOUBLE PRECISION FUNCTION GET_F2(ID,IX0,IQ,IERR)
10368C ================================================
10369
10370 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10371
10372C-- Input: ID parton distribution identifier
10373C-- IX0 x gridpoint
10374C-- Q Q2 value
10375C-- Output: IERR = 0 F2 successfully calculated
10376C-- = 1 Fast calculation
10377C-- = -1 Scale mu outside grid
10378
10379
10380 COMMON/QCCONS/
10381 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10382 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10383 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
10384 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
10385 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
10386 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
10387
10388
10389
10390 LOGICAL
10391 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10392 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10393 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10394 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10395 +LFFCAL,LASOLD
10396
10397 COMMON/QCFLAG/
10398 +IORD,IOLAST,
10399 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10400 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10401 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10402 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10403 +LFFCAL(7,30),LASOLD
10404
10405
10406 CHARACTER*5 PNAM,STFNAM
10407 LOGICAL LNFP
10408 COMMON /QCLNFP/ LNFP(0:30,3:5)
10409 COMMON /QCPNAM/ PNAM(0:30)
10410 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
10411 COMMON /QCFNAM/ STFNAM(7)
10412
10413
10414 PARAMETER ( MXX = 410 )
10415 PARAMETER ( MQ2 = 120 )
10416
10417C-- Do not set the following parameter to zero!
10418 PARAMETER ( NDFMAX = 20)
10419
10420
10421 COMMON/QCGRID/
10422 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
10423 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10424 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10425 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10426
10427
10428 REAL
10429 +WGTFF1,WGTFG1,
10430 +WGTGF1,WGTGG1,
10431 +WGTPP2,WGTPM2,WGTNS2,
10432 +WGTFF2,WGTFG2,
10433 +WGTGF2,WGTGG2,
10434 +WGTC2Q,WGTC2G,YNTC2Q,
10435 +WGTCLQ,WGTCLG,WGTC3Q
10436
10437 COMMON/QCWEIT/
10438 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
10439 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
10440 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
10441 +WGTNS2(MXX*(MXX+1)/2,3:5),
10442 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
10443 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
10444 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
10445 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
10446 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
10447
10448 COMMON/QCWADR/ IWADR(MXX,MXX)
10449
10450
10451 COMMON/QCPASS/
10452 +ALPHA0, Q0ALFA, ASLAST, QALAST,
10453 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
10454 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
10455 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
10456 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
10457 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
10458 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
10459 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
10460 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
10461 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
10462
10463 LOGICAL LEVDONE,LE_DONE
10464 COMMON/QCLEVL/
10465 +LEVDONE(MXX,10),LE_DONE(MXX)
10466
10467
10468 GET_F2 = 0.
10469
10470 IF(LFFCAL(1,ID)) THEN
10471 IERR = 1
10472 JD = IDFAST(1,ID)
10473 GET_F2 = FSTORE(IX0,IQ,JD)
10474 IF(GET_F2.GE.-99.) RETURN
10475 ENDIF
10476
10477 IERR = 0
10478 QMU = AAM2L*Q2TAB(IQ) + BBM2L
10479 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
10480 IF(IMU.EQ.0) THEN
10481 IERR = -1
10482 RETURN
10483 ENDIF
10484
10485 TX = 0.
10486 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
10487 FFF0 = GET_PDFXQ(ID,IX0,IMU,TX,TQ)
10488
10489 IF(IORD.EQ.1) THEN
10490 GET_F2 = FFF0
10491 RETURN
10492 ENDIF
10493
10494 QR2 = QMU*AAAR2 + BBBR2
10495 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
10496 IF(IR2.EQ.0) THEN
10497 IERR = -1
10498 RETURN
10499 ENDIF
10500 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
10501
10502 NF = NFMAP(IMU)
10503 FACT = LOG(Q2TAB(IQ)/QMU)
10504 F2 = 0.
10505 DO IX = IX0,NXX
10506 QU = GET_PDFXQ(ID,IX,IMU,TX,TQ)
10507 GL = GET_PDFXQ( 0,IX,IMU,TX,TQ)
10508 F2 = F2 +
10509 + (WGTC2Q(IWADR(IX,IX0))+
10510 + WGTFF1(IWADR(IX,IX0))*FACT)*QU +
10511 + (WGTC2G(IWADR(IX,IX0),NF)+
10512 + WGTFG1(IWADR(IX,IX0),NF)*FACT)*GL*PWGT(1,ID,NF)
10513 ENDDO
10514 GET_F2 = FFF0 + GET_AS(IR2,TR)*F2
10515
10516 RETURN
10517 END
10518
10519CDECK ID>, GETFL.
10520
10521C ================================
10522 SUBROUTINE GETFL(ID,X,Q,VAL,IFL)
10523C ================================
10524
10525
10526C--- IFL = 0 : F2 sucessfully calculated
10527C--- 1 : Fast calculation
10528C--- -1 : Scale mu outside grid
10529
10530 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10531
10532
10533 COMMON/QCCONS/
10534 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10535 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10536 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
10537 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
10538 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
10539 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
10540
10541
10542
10543 LOGICAL
10544 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10545 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10546 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10547 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10548 +LFFCAL,LASOLD
10549
10550 COMMON/QCFLAG/
10551 +IORD,IOLAST,
10552 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10553 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10554 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10555 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10556 +LFFCAL(7,30),LASOLD
10557
10558
10559 CHARACTER*5 PNAM,STFNAM
10560 LOGICAL LNFP
10561 COMMON /QCLNFP/ LNFP(0:30,3:5)
10562 COMMON /QCPNAM/ PNAM(0:30)
10563 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
10564 COMMON /QCFNAM/ STFNAM(7)
10565
10566
10567 PARAMETER ( MXX = 410 )
10568 PARAMETER ( MQ2 = 120 )
10569
10570C-- Do not set the following parameter to zero!
10571 PARAMETER ( NDFMAX = 20)
10572
10573
10574 COMMON/QCGRID/
10575 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
10576 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10577 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10578 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10579
10580
10581 REAL
10582 +WGTFF1,WGTFG1,
10583 +WGTGF1,WGTGG1,
10584 +WGTPP2,WGTPM2,WGTNS2,
10585 +WGTFF2,WGTFG2,
10586 +WGTGF2,WGTGG2,
10587 +WGTC2Q,WGTC2G,YNTC2Q,
10588 +WGTCLQ,WGTCLG,WGTC3Q
10589
10590 COMMON/QCWEIT/
10591 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
10592 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
10593 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
10594 +WGTNS2(MXX*(MXX+1)/2,3:5),
10595 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
10596 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
10597 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
10598 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
10599 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
10600
10601 COMMON/QCWADR/ IWADR(MXX,MXX)
10602
10603
10604 COMMON/QCPASS/
10605 +ALPHA0, Q0ALFA, ASLAST, QALAST,
10606 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
10607 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
10608 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
10609 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
10610 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
10611 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
10612 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
10613 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
10614 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
10615
10616 LOGICAL LEVDONE,LE_DONE
10617 COMMON/QCLEVL/
10618 +LEVDONE(MXX,10),LE_DONE(MXX)
10619
10620
10621 VAL = 0.
10622 JER = 1
10623 IFL = -1
10624 IX = IXFROMX(X)
10625 IQ = IQFROMQ(Q)
10626
10627 IF(IX.GT.0.AND.IQ.GT.0) THEN
10628 VAL = GET_FL(ID,IX,IQ,IERR)
10629 JER = MIN(JER,IERR)
10630 ELSEIF(IX.GT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10631 IQ = -IQ
10632 VAL1 = GET_FL(ID,IX,IQ,IERR)
10633 JER = MIN(JER,IERR)
10634 VAL2 = GET_FL(ID,IX,IQ+1,IERR)
10635 JER = MIN(JER,IERR)
10636 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10637 VAL = (1.-TQ)*VAL1 + TQ*VAL2
10638 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
10639 IX = -IX
10640 VAL1 = GET_FL(ID,IX,IQ,IERR)
10641 JER = MIN(JER,IERR)
10642 VAL2 = GET_FL(ID,IX+1,IQ,IERR)
10643 JER = MIN(JER,IERR)
10644 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10645 VAL = (1.-TX)*VAL1 + TX*VAL2
10646 ELSEIF(IX.LT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10647 IX = -IX
10648 IQ = -IQ
10649 VAL1 = GET_FL(ID,IX,IQ,IERR)
10650 JER = MIN(JER,IERR)
10651 VAL2 = GET_FL(ID,IX,IQ+1,IERR)
10652 JER = MIN(JER,IERR)
10653 VAL3 = GET_FL(ID,IX+1,IQ,IERR)
10654 JER = MIN(JER,IERR)
10655 VAL4 = GET_FL(ID,IX+1,IQ+1,IERR)
10656 JER = MIN(JER,IERR)
10657 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10658 VAL1 = (1.-TQ)*VAL1 + TQ*VAL2
10659 VAL2 = (1.-TQ)*VAL3 + TQ*VAL4
10660 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10661 VAL = (1.-TX)*VAL1 + TX*VAL2
10662 ELSE
10663 VAL = 0.
10664 JER = -1
10665 ENDIF
10666
10667 IFL = JER
10668
10669 RETURN
10670 END
10671
10672CDECK ID>, GET_FL.
10673
10674C ================================================
10675 DOUBLE PRECISION FUNCTION GET_FL(ID,IX0,IQ,IERR)
10676C ================================================
10677
10678 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10679
10680C-- Input: ID parton distribution identifier
10681C-- IX0 x gridpoint
10682C-- Q Q2 value
10683C-- Output: IERR = 0 FL successfully calculated
10684C-- = 1 Fast calculation
10685C-- = -1 Scale mu outside grid
10686
10687
10688 COMMON/QCCONS/
10689 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10690 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10691 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
10692 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
10693 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
10694 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
10695
10696
10697
10698 LOGICAL
10699 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10700 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10701 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10702 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10703 +LFFCAL,LASOLD
10704
10705 COMMON/QCFLAG/
10706 +IORD,IOLAST,
10707 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10708 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10709 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10710 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10711 +LFFCAL(7,30),LASOLD
10712
10713
10714 CHARACTER*5 PNAM,STFNAM
10715 LOGICAL LNFP
10716 COMMON /QCLNFP/ LNFP(0:30,3:5)
10717 COMMON /QCPNAM/ PNAM(0:30)
10718 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
10719 COMMON /QCFNAM/ STFNAM(7)
10720
10721
10722 PARAMETER ( MXX = 410 )
10723 PARAMETER ( MQ2 = 120 )
10724
10725C-- Do not set the following parameter to zero!
10726 PARAMETER ( NDFMAX = 20)
10727
10728
10729 COMMON/QCGRID/
10730 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
10731 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10732 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10733 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10734
10735
10736 REAL
10737 +WGTFF1,WGTFG1,
10738 +WGTGF1,WGTGG1,
10739 +WGTPP2,WGTPM2,WGTNS2,
10740 +WGTFF2,WGTFG2,
10741 +WGTGF2,WGTGG2,
10742 +WGTC2Q,WGTC2G,YNTC2Q,
10743 +WGTCLQ,WGTCLG,WGTC3Q
10744
10745 COMMON/QCWEIT/
10746 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
10747 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
10748 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
10749 +WGTNS2(MXX*(MXX+1)/2,3:5),
10750 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
10751 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
10752 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
10753 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
10754 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
10755
10756 COMMON/QCWADR/ IWADR(MXX,MXX)
10757
10758
10759 COMMON/QCPASS/
10760 +ALPHA0, Q0ALFA, ASLAST, QALAST,
10761 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
10762 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
10763 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
10764 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
10765 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
10766 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
10767 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
10768 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
10769 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
10770
10771 LOGICAL LEVDONE,LE_DONE
10772 COMMON/QCLEVL/
10773 +LEVDONE(MXX,10),LE_DONE(MXX)
10774
10775
10776 GET_FL = 0.
10777
10778 IF(LFFCAL(2,ID)) THEN
10779 IERR = 1
10780 JD = IDFAST(2,ID)
10781 GET_FL = FSTORE(IX0,IQ,JD)
10782 IF(GET_FL.GE.-99.) RETURN
10783 ENDIF
10784
10785 IERR = 0
10786
10787 IF(IORD.EQ.1) THEN
10788 GET_FL = 0.
10789 RETURN
10790 ENDIF
10791
10792 QMU = AAM2L*Q2TAB(IQ) + BBM2L
10793 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
10794 IF(IMU.EQ.0) THEN
10795 IERR = -1
10796 RETURN
10797 ENDIF
10798
10799 QR2 = QMU*AAAR2 + BBBR2
10800 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
10801 IF(IR2.EQ.0) THEN
10802 IERR = -1
10803 RETURN
10804 ENDIF
10805
10806 TX = 0.
10807 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
10808 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
10809
10810 NF = NFMAP(IMU)
10811 FACT = LOG(Q2TAB(IQ)/QMU)*FL_FAC
10812 FL = 0.
10813 DO IX = IX0,NXX
10814 QU = GET_PDFXQ(ID,IX,IMU,TX,TQ)
10815 GL = GET_PDFXQ( 0,IX,IMU,TX,TQ)
10816 FL = FL +
10817 + (WGTCLQ(IWADR(IX,IX0))+
10818 + WGTFF1(IWADR(IX,IX0))*FACT)*QU +
10819 + (WGTCLG(IWADR(IX,IX0),NF)+
10820 + WGTFG1(IWADR(IX,IX0),NF)*FACT)*GL*PWGT(1,ID,NF)
10821 ENDDO
10822 GET_FL = GET_AS(IR2,TR)*FL
10823
10824 RETURN
10825 END
10826
10827CDECK ID>, GETF3.
10828
10829C ================================
10830 SUBROUTINE GETF3(ID,X,Q,VAL,IFL)
10831C ================================
10832
10833
10834C--- IFL = 0 : F2 sucessfully calculated
10835C--- 1 : Fast calculation
10836C--- -1 : Scale mu outside grid
10837
10838 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10839
10840
10841 COMMON/QCCONS/
10842 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10843 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10844 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
10845 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
10846 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
10847 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
10848
10849
10850
10851 LOGICAL
10852 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10853 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10854 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10855 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10856 +LFFCAL,LASOLD
10857
10858 COMMON/QCFLAG/
10859 +IORD,IOLAST,
10860 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
10861 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
10862 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
10863 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
10864 +LFFCAL(7,30),LASOLD
10865
10866
10867 CHARACTER*5 PNAM,STFNAM
10868 LOGICAL LNFP
10869 COMMON /QCLNFP/ LNFP(0:30,3:5)
10870 COMMON /QCPNAM/ PNAM(0:30)
10871 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
10872 COMMON /QCFNAM/ STFNAM(7)
10873
10874
10875 PARAMETER ( MXX = 410 )
10876 PARAMETER ( MQ2 = 120 )
10877
10878C-- Do not set the following parameter to zero!
10879 PARAMETER ( NDFMAX = 20)
10880
10881
10882 COMMON/QCGRID/
10883 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
10884 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
10885 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
10886 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
10887
10888
10889 REAL
10890 +WGTFF1,WGTFG1,
10891 +WGTGF1,WGTGG1,
10892 +WGTPP2,WGTPM2,WGTNS2,
10893 +WGTFF2,WGTFG2,
10894 +WGTGF2,WGTGG2,
10895 +WGTC2Q,WGTC2G,YNTC2Q,
10896 +WGTCLQ,WGTCLG,WGTC3Q
10897
10898 COMMON/QCWEIT/
10899 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
10900 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
10901 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
10902 +WGTNS2(MXX*(MXX+1)/2,3:5),
10903 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
10904 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
10905 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
10906 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
10907 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
10908
10909 COMMON/QCWADR/ IWADR(MXX,MXX)
10910
10911
10912 COMMON/QCPASS/
10913 +ALPHA0, Q0ALFA, ASLAST, QALAST,
10914 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
10915 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
10916 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
10917 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
10918 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
10919 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
10920 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
10921 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
10922 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
10923
10924 LOGICAL LEVDONE,LE_DONE
10925 COMMON/QCLEVL/
10926 +LEVDONE(MXX,10),LE_DONE(MXX)
10927
10928
10929 VAL = 0.
10930 JER = 1
10931 IFL = -1
10932 IX = IXFROMX(X)
10933 IQ = IQFROMQ(Q)
10934
10935 IF(IX.GT.0.AND.IQ.GT.0) THEN
10936 VAL = GET_F3(ID,IX,IQ,IERR)
10937 JER = MIN(JER,IERR)
10938 ELSEIF(IX.GT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10939 IQ = -IQ
10940 VAL1 = GET_F3(ID,IX,IQ,IERR)
10941 JER = MIN(JER,IERR)
10942 VAL2 = GET_F3(ID,IX,IQ+1,IERR)
10943 JER = MIN(JER,IERR)
10944 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10945 VAL = (1.-TQ)*VAL1 + TQ*VAL2
10946 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
10947 IX = -IX
10948 VAL1 = GET_F3(ID,IX,IQ,IERR)
10949 JER = MIN(JER,IERR)
10950 VAL2 = GET_F3(ID,IX+1,IQ,IERR)
10951 JER = MIN(JER,IERR)
10952 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10953 VAL = (1.-TX)*VAL1 + TX*VAL2
10954 ELSEIF(IX.LT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
10955 IX = -IX
10956 IQ = -IQ
10957 VAL1 = GET_F3(ID,IX,IQ,IERR)
10958 JER = MIN(JER,IERR)
10959 VAL2 = GET_F3(ID,IX,IQ+1,IERR)
10960 JER = MIN(JER,IERR)
10961 VAL3 = GET_F3(ID,IX+1,IQ,IERR)
10962 JER = MIN(JER,IERR)
10963 VAL4 = GET_F3(ID,IX+1,IQ+1,IERR)
10964 JER = MIN(JER,IERR)
10965 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
10966 VAL1 = (1.-TQ)*VAL1 + TQ*VAL2
10967 VAL2 = (1.-TQ)*VAL3 + TQ*VAL4
10968 TX = (X-XXTAB(IX))/(XXTAB(IX+1)-XXTAB(IX))
10969 VAL = (1.-TX)*VAL1 + TX*VAL2
10970 ELSE
10971 VAL = 0.
10972 JER = -1
10973 ENDIF
10974
10975 IFL = JER
10976
10977 RETURN
10978 END
10979
10980CDECK ID>, GET_F3.
10981
10982C ================================================
10983 DOUBLE PRECISION FUNCTION GET_F3(ID,IX0,IQ,IERR)
10984C ================================================
10985
10986 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
10987
10988C-- Input: ID parton distribution identifier
10989C-- IX0 x gridpoint
10990C-- Q Q2 value
10991C-- Output: IERR = 0 F3 successfully calculated
10992C-- = 1 Fast calculation
10993C-- = -1 Scale mu outside grid
10994
10995
10996 COMMON/QCCONS/
10997 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
10998 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
10999 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11000 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11001 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11002 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11003
11004
11005
11006 LOGICAL
11007 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11008 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11009 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11010 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11011 +LFFCAL,LASOLD
11012
11013 COMMON/QCFLAG/
11014 +IORD,IOLAST,
11015 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11016 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11017 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11018 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11019 +LFFCAL(7,30),LASOLD
11020
11021
11022 CHARACTER*5 PNAM,STFNAM
11023 LOGICAL LNFP
11024 COMMON /QCLNFP/ LNFP(0:30,3:5)
11025 COMMON /QCPNAM/ PNAM(0:30)
11026 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
11027 COMMON /QCFNAM/ STFNAM(7)
11028
11029
11030 PARAMETER ( MXX = 410 )
11031 PARAMETER ( MQ2 = 120 )
11032
11033C-- Do not set the following parameter to zero!
11034 PARAMETER ( NDFMAX = 20)
11035
11036
11037 COMMON/QCGRID/
11038 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
11039 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
11040 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
11041 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
11042
11043
11044 REAL
11045 +WGTFF1,WGTFG1,
11046 +WGTGF1,WGTGG1,
11047 +WGTPP2,WGTPM2,WGTNS2,
11048 +WGTFF2,WGTFG2,
11049 +WGTGF2,WGTGG2,
11050 +WGTC2Q,WGTC2G,YNTC2Q,
11051 +WGTCLQ,WGTCLG,WGTC3Q
11052
11053 COMMON/QCWEIT/
11054 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
11055 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
11056 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
11057 +WGTNS2(MXX*(MXX+1)/2,3:5),
11058 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
11059 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
11060 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
11061 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
11062 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
11063
11064 COMMON/QCWADR/ IWADR(MXX,MXX)
11065
11066
11067 COMMON/QCPASS/
11068 +ALPHA0, Q0ALFA, ASLAST, QALAST,
11069 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
11070 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
11071 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
11072 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
11073 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
11074 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
11075 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
11076 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
11077 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
11078
11079 LOGICAL LEVDONE,LE_DONE
11080 COMMON/QCLEVL/
11081 +LEVDONE(MXX,10),LE_DONE(MXX)
11082
11083
11084 GET_F3 = 0.
11085
11086 IF(LFFCAL(3,ID)) THEN
11087 IERR = 1
11088 JD = IDFAST(3,ID)
11089 GET_F3 = FSTORE(IX0,IQ,JD)
11090 IF(GET_F3.GE.-99.) RETURN
11091 ENDIF
11092
11093 IERR = 0
11094
11095 QMU = AAM2L*Q2TAB(IQ) + BBM2L
11096 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
11097 IF(IMU.EQ.0) THEN
11098 IERR = -1
11099 RETURN
11100 ENDIF
11101
11102 TX = 0.
11103 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
11104 FFF0 = GET_PDFXQ(ID,IX0,IMU,TX,TQ)
11105
11106 IF(IORD.EQ.1) THEN
11107 GET_F3 = FFF0
11108 RETURN
11109 ENDIF
11110
11111 QR2 = QMU*AAAR2 + BBBR2
11112 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
11113 IF(IR2.EQ.0) THEN
11114 IERR = -1
11115 RETURN
11116 ENDIF
11117 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
11118
11119 F3 = 0.
11120 FACT = LOG(Q2TAB(IQ)/QMU)
11121 DO IX = IX0,NXX
11122 QU = GET_PDFXQ(ID,IX,IMU,TX,TQ)
11123 F3 = F3 +
11124 + (WGTC3Q(IWADR(IX,IX0))+
11125 + WGTFF1(IWADR(IX,IX0))*FACT)*QU
11126 ENDDO
11127 GET_F3 = FFF0 + GET_AS(IR2,TR)*F3
11128
11129 RETURN
11130 END
11131
11132CDECK ID>, GETFKH.
11133
11134C =====================================
11135 SUBROUTINE GETFKH(IDF,ID,X,Q,VAL,IFL)
11136C =====================================
11137
11138C--- Input : IDF = 4,5,6,7 for F2c,FLc,F2b,Flb
11139C--- ID = parton distribution identifier
11140C--- X = x value
11141C--- Q = Q2 value
11142
11143C--- Output: VAL = heavy quark structure function
11144C--- IFL = 0 : F2 sucessfully calculated
11145C--- 1 : Fast calculation
11146C--- -1 : Scale mu outside grid
11147
11148 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11149
11150
11151 COMMON/QCCONS/
11152 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
11153 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
11154 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11155 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11156 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11157 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11158
11159
11160
11161 LOGICAL
11162 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11163 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11164 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11165 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11166 +LFFCAL,LASOLD
11167
11168 COMMON/QCFLAG/
11169 +IORD,IOLAST,
11170 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11171 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11172 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11173 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11174 +LFFCAL(7,30),LASOLD
11175
11176
11177 CHARACTER*5 PNAM,STFNAM
11178 LOGICAL LNFP
11179 COMMON /QCLNFP/ LNFP(0:30,3:5)
11180 COMMON /QCPNAM/ PNAM(0:30)
11181 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
11182 COMMON /QCFNAM/ STFNAM(7)
11183
11184
11185 PARAMETER ( MXX = 410 )
11186 PARAMETER ( MQ2 = 120 )
11187
11188C-- Do not set the following parameter to zero!
11189 PARAMETER ( NDFMAX = 20)
11190
11191
11192 COMMON/QCGRID/
11193 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
11194 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
11195 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
11196 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
11197
11198
11199 REAL
11200 +WGTFF1,WGTFG1,
11201 +WGTGF1,WGTGG1,
11202 +WGTPP2,WGTPM2,WGTNS2,
11203 +WGTFF2,WGTFG2,
11204 +WGTGF2,WGTGG2,
11205 +WGTC2Q,WGTC2G,YNTC2Q,
11206 +WGTCLQ,WGTCLG,WGTC3Q
11207
11208 COMMON/QCWEIT/
11209 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
11210 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
11211 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
11212 +WGTNS2(MXX*(MXX+1)/2,3:5),
11213 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
11214 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
11215 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
11216 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
11217 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
11218
11219 COMMON/QCWADR/ IWADR(MXX,MXX)
11220
11221
11222 COMMON/QCPASS/
11223 +ALPHA0, Q0ALFA, ASLAST, QALAST,
11224 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
11225 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
11226 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
11227 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
11228 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
11229 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
11230 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
11231 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
11232 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
11233
11234 LOGICAL LEVDONE,LE_DONE
11235 COMMON/QCLEVL/
11236 +LEVDONE(MXX,10),LE_DONE(MXX)
11237
11238
11239 VAL = 0.
11240 IFL = -1
11241
11242 JER = 1
11243 IX = IHFROMH(X)
11244 IQ = IQFROMQ(Q)
11245
11246 IF(IX.GT.0.AND.IQ.GT.0) THEN
11247 VAL = GET_FKH(IDF,ID,IX,IQ,IERR)
11248 JER = MIN(JER,IERR)
11249 ELSEIF(IX.GT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
11250 IQ = -IQ
11251 VAL1 = GET_FKH(IDF,ID,IX,IQ,IERR)
11252 JER = MIN(JER,IERR)
11253 VAL2 = GET_FKH(IDF,ID,IX,IQ+1,IERR)
11254 JER = MIN(JER,IERR)
11255 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
11256 VAL = (1.-TQ)*VAL1 + TQ*VAL2
11257 ELSEIF(IX.LT.0.AND.IQ.GT.0) THEN
11258 IX = -IX
11259 VAL1 = GET_FKH(IDF,ID,IX,IQ,IERR)
11260 JER = MIN(JER,IERR)
11261 VAL2 = GET_FKH(IDF,ID,IX+1,IQ,IERR)
11262 JER = MIN(JER,IERR)
11263 TX = (X-XHTAB(IX))/(XHTAB(IX+1)-XHTAB(IX))
11264 VAL = (1.-TX)*VAL1 + TX*VAL2
11265 ELSEIF(IX.LT.0.AND.IQ.LT.0.AND.IQ.NE.-NQ2) THEN
11266 IX = -IX
11267 IQ = -IQ
11268 VAL1 = GET_FKH(IDF,ID,IX,IQ,IERR)
11269 JER = MIN(JER,IERR)
11270 VAL2 = GET_FKH(IDF,ID,IX,IQ+1,IERR)
11271 JER = MIN(JER,IERR)
11272 VAL3 = GET_FKH(IDF,ID,IX+1,IQ,IERR)
11273 JER = MIN(JER,IERR)
11274 VAL4 = GET_FKH(IDF,ID,IX+1,IQ+1,IERR)
11275 JER = MIN(JER,IERR)
11276 TQ = LOG(Q/Q2TAB(IQ))/LOG(Q2TAB(IQ+1)/Q2TAB(IQ))
11277 VAL1 = (1.-TQ)*VAL1 + TQ*VAL2
11278 VAL2 = (1.-TQ)*VAL3 + TQ*VAL4
11279 TX = (X-XHTAB(IX))/(XHTAB(IX+1)-XHTAB(IX))
11280 VAL = (1.-TX)*VAL1 + TX*VAL2
11281 ELSE
11282 VAL = 0.
11283 JER = -1
11284 ENDIF
11285
11286 IFL = JER
11287
11288
11289 RETURN
11290 END
11291
11292CDECK ID>, FILLWF.
11293
11294C ====================================
11295 SUBROUTINE FILLWF(IO1,IO2,IF2,NFLAV)
11296C ====================================
11297
11298 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11299
11300 COMMON/QCCONS/
11301 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
11302 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
11303 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11304 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11305 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11306 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11307
11308
11309
11310 LOGICAL
11311 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11312 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11313 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11314 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11315 +LFFCAL,LASOLD
11316
11317 COMMON/QCFLAG/
11318 +IORD,IOLAST,
11319 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
11320 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
11321 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
11322 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
11323 +LFFCAL(7,30),LASOLD
11324
11325
11326 PARAMETER ( MXX = 410 )
11327 PARAMETER ( MQ2 = 120 )
11328
11329C-- Do not set the following parameter to zero!
11330 PARAMETER ( NDFMAX = 20)
11331
11332
11333 COMMON/QCGRID/
11334 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
11335 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
11336 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
11337 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
11338
11339
11340 REAL
11341 +WGTFF1,WGTFG1,
11342 +WGTGF1,WGTGG1,
11343 +WGTPP2,WGTPM2,WGTNS2,
11344 +WGTFF2,WGTFG2,
11345 +WGTGF2,WGTGG2,
11346 +WGTC2Q,WGTC2G,YNTC2Q,
11347 +WGTCLQ,WGTCLG,WGTC3Q
11348
11349 COMMON/QCWEIT/
11350 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
11351 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
11352 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
11353 +WGTNS2(MXX*(MXX+1)/2,3:5),
11354 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
11355 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
11356 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
11357 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
11358 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
11359
11360 COMMON/QCWADR/ IWADR(MXX,MXX)
11361
11362
11363 EXTERNAL C2Q, C2QX0, C2G, CLQ, CLG, D3Q
11364 EXTERNAL PQGLO, PGQLO, PQQLO, PQQX0, PGGLO, PGGX0
11365 EXTERNAL PP1SFUN, PP1SX0, PM1SFUN, PM1SX0
11366 EXTERNAL FF1SFUN, FF1SX0, GF1SFUN, XP1TFUN
11367 EXTERNAL GG1SFUN, GG1SX0, FG1SFUN, XG1TFUN
11368
11369 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
11370
11371 EGAUSS = 0.0001
11372 NF = NFLAV
11373
11374 CWFGG = 6.*(11./12.-NF/18.) - 6.
11375
11376 DO 90 IX0 = 1,NXX
11377
11378 X0 = XXTAB(IX0)
11379
11380 YNTC2Q(IX0) = DGAUSS_LHA(C2Q,0.D0,X0,EGAUSS)
11381
11382 SI = X0/XXTAB(IX0)
11383 SP = X0/XXTAB(IX0+1)
11384
11385 IF(IO1.NE.0) THEN
11386 CALL S1FUNC(PQGLO ,SP,SI,S1PQG)
11387 WGTFG1(IWADR(IX0,IX0),NF) = S1PQG
11388 CALL S1FUNC(PGQLO ,SP,SI,S1PGQ)
11389 WGTGF1(IWADR(IX0,IX0)) = S1PGQ
11390 CALL S1FUNC(PQQX0 ,SP,SI,S1PQQ)
11391 WGTFF1(IWADR(IX0,IX0)) = S1PQQ+2.+(8./3.)*LOG(1.-SP)
11392 CALL S1FUNC(PGGX0 ,SP,SI,S1PGG)
11393 WGTGG1(IWADR(IX0,IX0),NF) = S1PGG+6.*LOG(1.-SP)+CWFGG
11394 ENDIF
11395
11396 IF(IO2.NE.0) THEN
11397 TERM1 = DGAUSS_LHA(PM1SFUN,0.D0,SP,EGAUSS)
11398 TERM2 = DGAUSS_LHA(XP1TFUN,0.D0,SP,EGAUSS)
11399 TERM3 = DGAUSS_LHA(XG1TFUN,0.D0,SP,EGAUSS)
11400 CALL S1FUNC(PP1SX0 ,SP,SI,S1NS2)
11401 WGTPP2(IWADR(IX0,IX0),NF) = S1NS2 - TERM1
11402 WGTNS2(IWADR(IX0,IX0),NF) = S1NS2 - TERM1
11403 LPLUS = .TRUE.
11404 CALL S1FUNC(PM1SX0 ,SP,SI,S1F32)
11405 WGTPM2(IWADR(IX0,IX0),NF) = S1F32 - TERM1
11406 CALL S1FUNC(FF1SX0 ,SP,SI,S1FF2)
11407 WGTFF2(IWADR(IX0,IX0),NF) = S1FF2 - TERM2
11408 CALL S1FUNC(GF1SFUN,SP,SI,S1FG2)
11409 WGTFG2(IWADR(IX0,IX0),NF) = S1FG2
11410 CALL S1FUNC(GG1SX0 ,SP,SI,S1GG2)
11411 WGTGG2(IWADR(IX0,IX0),NF) = S1GG2 - TERM3
11412 CALL S1FUNC(FG1SFUN,SP,SI,S1GF2)
11413 WGTGF2(IWADR(IX0,IX0),NF) = S1GF2
11414 ENDIF
11415
11416 IF(IF2.NE.0) THEN
11417 TERM = DGAUSS_LHA(C2Q,0.D0,SP,EGAUSS)
11418 CALL S1FUNC(C2QX0 ,SP,SI,S1C2Q)
11419 WGTC2Q(IWADR(IX0,IX0)) = S1C2Q - TERM
11420 CALL S1FUNC(C2G ,SP,SI,S1C2G)
11421 WGTC2G(IWADR(IX0,IX0),NF) = S1C2G
11422 CALL S1FUNC(CLQ ,SP,SI,S1CLQ)
11423 WGTCLQ(IWADR(IX0,IX0)) = S1CLQ
11424 CALL S1FUNC(CLG ,SP,SI,S1CLG)
11425 WGTCLG(IWADR(IX0,IX0),NF) = S1CLG
11426 CALL S1FUNC(D3Q ,SP,SI,S1D3Q)
11427 WGTC3Q(IWADR(IX0,IX0)) = S1C2Q - TERM - S1D3Q
11428 ENDIF
11429
11430 DO 80 IX = IX0+1,NXX
11431
11432 SI = X0/XXTAB(IX)
11433 SP = X0/XXTAB(IX+1)
11434 SM = X0/XXTAB(IX-1)
11435
11436 IF(IO1.NE.0) THEN
11437 CALL S1FUNC(PQGLO ,SP,SI,S1PQG)
11438 CALL S2FUNC(PQGLO ,SI,SM,S2PQG)
11439 WGTFG1(IWADR(IX,IX0),NF) = (S1PQG-S2PQG)
11440 CALL S1FUNC(PGQLO ,SP,SI,S1PGQ)
11441 CALL S2FUNC(PGQLO ,SI,SM,S2PGQ)
11442 WGTGF1(IWADR(IX,IX0)) = S1PGQ-S2PGQ
11443 CALL S1FUNC(PQQLO ,SP,SI,S1PQQ)
11444 CALL S2FUNC(PQQLO ,SI,SM,S2PQQ)
11445 WGTFF1(IWADR(IX,IX0)) = S1PQQ-S2PQQ
11446 CALL S1FUNC(PGGLO ,SP,SI,S1PGG)
11447 CALL S2FUNC(PGGLO ,SI,SM,S2PGG)
11448 WGTGG1(IWADR(IX,IX0),NF) = S1PGG-S2PGG
11449 ENDIF
11450
11451 IF(IO2.NE.0) THEN
11452 CALL S1FUNC(PP1SFUN,SP,SI,S1NS2)
11453 CALL S2FUNC(PP1SFUN,SI,SM,S2NS2)
11454 WGTPP2(IWADR(IX,IX0),NF) = S1NS2-S2NS2
11455 WGTNS2(IWADR(IX,IX0),NF) = S1NS2-S2NS2
11456 CALL S1FUNC(PM1SFUN,SP,SI,S1F32)
11457 CALL S2FUNC(PM1SFUN,SI,SM,S2F32)
11458 WGTPM2(IWADR(IX,IX0),NF) = S1F32-S2F32
11459 CALL S1FUNC(FF1SFUN,SP,SI,S1FF2)
11460 CALL S2FUNC(FF1SFUN,SI,SM,S2FF2)
11461 WGTFF2(IWADR(IX,IX0),NF) = S1FF2-S2FF2
11462 CALL S1FUNC(GF1SFUN,SP,SI,S1FG2)
11463 CALL S2FUNC(GF1SFUN,SI,SM,S2FG2)
11464 WGTFG2(IWADR(IX,IX0),NF) = S1FG2-S2FG2
11465 CALL S1FUNC(GG1SFUN,SP,SI,S1GG2)
11466 CALL S2FUNC(GG1SFUN,SI,SM,S2GG2)
11467 WGTGG2(IWADR(IX,IX0),NF) = S1GG2-S2GG2
11468 CALL S1FUNC(FG1SFUN,SP,SI,S1GF2)
11469 CALL S2FUNC(FG1SFUN,SI,SM,S2GF2)
11470 WGTGF2(IWADR(IX,IX0),NF) = S1GF2-S2GF2
11471 ENDIF
11472
11473 IF(IF2.NE.0) THEN
11474 CALL S1FUNC(C2Q ,SP,SI,S1C2Q)
11475 CALL S2FUNC(C2Q ,SI,SM,S2C2Q)
11476 WGTC2Q(IWADR(IX,IX0)) = S1C2Q-S2C2Q
11477 CALL S1FUNC(C2G ,SP,SI,S1C2G)
11478 CALL S2FUNC(C2G ,SI,SM,S2C2G)
11479 WGTC2G(IWADR(IX,IX0),NF) = S1C2G-S2C2G
11480 CALL S1FUNC(CLQ ,SP,SI,S1CLQ)
11481 CALL S2FUNC(CLQ ,SI,SM,S2CLQ)
11482 WGTCLQ(IWADR(IX,IX0)) = S1CLQ-S2CLQ
11483 CALL S1FUNC(CLG ,SP,SI,S1CLG)
11484 CALL S2FUNC(CLG ,SI,SM,S2CLG)
11485 WGTCLG(IWADR(IX,IX0),NF) = S1CLG-S2CLG
11486 CALL S1FUNC(D3Q ,SP,SI,S1D3Q)
11487 CALL S2FUNC(D3Q ,SI,SM,S2D3Q)
11488 WGTC3Q(IWADR(IX,IX0)) = S1C2Q-S2C2Q-S1D3Q+S2D3Q
11489 ENDIF
11490
11491 80 CONTINUE
11492
11493 90 CONTINUE
11494
11495 YWGT = 0.
11496
11497 RETURN
11498 END
11499
11500CDECK ID>, IWTADR.
11501
11502 INTEGER FUNCTION IWTADR(I,J,K)
11503
11504C--- Upper diagonal storage: I .ge. J (!)
11505
11506
11507 PARAMETER ( MXX = 410 )
11508 PARAMETER ( MQ2 = 120 )
11509
11510C-- Do not set the following parameter to zero!
11511 PARAMETER ( NDFMAX = 20)
11512
11513
11514 IWTADR = 1 + (J-1)*(MXX+1) -
11515 + (J*(J-1))/2 + (I-J) + (K-1)*(MXX*(MXX+1))/2
11516
11517 RETURN
11518 END
11519
11520CDECK ID>, IWTAD.
11521
11522 INTEGER FUNCTION IWTAD(I,J)
11523
11524C--- Upper diagonal storage: I .ge. J (!)
11525
11526
11527 PARAMETER ( MXX = 410 )
11528 PARAMETER ( MQ2 = 120 )
11529
11530C-- Do not set the following parameter to zero!
11531 PARAMETER ( NDFMAX = 20)
11532
11533
11534 IWTAD = 1 + (J-1)*(MXX+1) - (J*(J-1))/2 + (I-J)
11535
11536 RETURN
11537 END
11538
11539CDECK ID>, S1FUNC.
11540
11541C ================================
11542 SUBROUTINE S1FUNC(FUN,U,V,S1FUN)
11543C ================================
11544
11545 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11546
11547 EXTERNAL FUN
11548
11549 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
11550
11551 YWGT = U
11552 S1FUN = DGAUSS_LHA(FUN,U,V,EGAUSS)*V/(V-U)
11553
11554 YWGT = 0.
11555
11556 RETURN
11557 END
11558
11559CDECK ID>, S2FUNC.
11560
11561C ================================
11562 SUBROUTINE S2FUNC(FUN,U,V,S2FUN)
11563C ================================
11564
11565 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11566
11567 EXTERNAL FUN
11568
11569 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
11570
11571 YWGT = V
11572 S2FUN = DGAUSS_LHA(FUN,U,V,EGAUSS)*U/(V-U)
11573
11574 YWGT = 0.
11575
11576 RETURN
11577 END
11578
11579CDECK ID>, FILLO1.
11580
11581C =====================
11582 SUBROUTINE FILLO1(NF)
11583C =====================
11584
11585 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11586
11587C----- | F | | WGTFF WGTFG | | F |
11588C----- d/dLnQ2 | | = | | | |
11589C----- | G | | WGTGF WGTGG | | G |
11590
11591
11592 COMMON/QCCONS/
11593 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
11594 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
11595 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11596 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11597 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11598 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11599
11600
11601
11602 PARAMETER ( MXX = 410 )
11603 PARAMETER ( MQ2 = 120 )
11604
11605C-- Do not set the following parameter to zero!
11606 PARAMETER ( NDFMAX = 20)
11607
11608
11609 COMMON/QCGRID/
11610 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
11611 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
11612 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
11613 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
11614
11615
11616 REAL
11617 +WGTFF1,WGTFG1,
11618 +WGTGF1,WGTGG1,
11619 +WGTPP2,WGTPM2,WGTNS2,
11620 +WGTFF2,WGTFG2,
11621 +WGTGF2,WGTGG2,
11622 +WGTC2Q,WGTC2G,YNTC2Q,
11623 +WGTCLQ,WGTCLG,WGTC3Q
11624
11625 COMMON/QCWEIT/
11626 +WGTFF1(MXX*(MXX+1)/2) ,WGTFG1(MXX*(MXX+1)/2,3:5),
11627 +WGTGF1(MXX*(MXX+1)/2) ,WGTGG1(MXX*(MXX+1)/2,3:5),
11628 +WGTPP2(MXX*(MXX+1)/2,3:5),WGTPM2(MXX*(MXX+1)/2,3:5),
11629 +WGTNS2(MXX*(MXX+1)/2,3:5),
11630 +WGTFF2(MXX*(MXX+1)/2,3:5),WGTFG2(MXX*(MXX+1)/2,3:5),
11631 +WGTGF2(MXX*(MXX+1)/2,3:5),WGTGG2(MXX*(MXX+1)/2,3:5),
11632 +WGTC2Q(MXX*(MXX+1)/2) ,WGTC2G(MXX*(MXX+1)/2,3:5),
11633 +WGTCLQ(MXX*(MXX+1)/2) ,WGTCLG(MXX*(MXX+1)/2,3:5),
11634 +WGTC3Q(MXX*(MXX+1)/2) ,YNTC2Q(MXX)
11635
11636 COMMON/QCWADR/ IWADR(MXX,MXX)
11637
11638
11639 DO 100 IX0=1,NXX
11640 X0 = XXTAB(IX0)
11641
11642 DO 100 IXI=IX0,NXX
11643 SI = X0 / XXTAB(IXI)
11644 SP = X0 / XXTAB(IXI+1)
11645 IF(IXI.EQ.IX0) THEN
11646 SSP = LOG(SP) / (1.-SP)
11647 WPQQV = SP + 4.*LOG(1.-SP)+ 2.*SP*SSP
11648 WPQGV = 3. - (1.-SP)**2 + 3.*SP*SSP
11649 WPGQV = - 7. - SP - 4.*(1.+SP)*SSP
11650 WPGGV = - 12.5 - NF/3. + 6.*LOG(1.-SP) + (1.-SP)**2
11651 + - 6.*(1.+SP)*SSP
11652 ELSEIF(IXI.EQ.IX0+1) THEN
11653 SSI = LOG(SI) / (1.-SI)
11654 WPQQV = SP-1. + SQQ(SI,SP) - 2.*SSI
11655 WPQGV = (SP-1.)*(2.-SI-SP) - 3.*SP*LOG(SP/SI)/(SP-SI) - 3.*SSI
11656 WPGQV = 1.-SP + 4.*(SP+1.)*LOG(SP/SI)/(SP-SI) + 8.*SSI
11657 WPGGV = (1.-SP)*(2.-SI-SP) + 6.*SGG(SI,SP) + 12.*SSI
11658 ELSE
11659 SM = X0 / XXTAB(IXI-1)
11660 WPQQV = SP-SM + SQQ(SI,SP) - SQQ(SI,SM)
11661 WPQGV = (SP-SM)*(3.-SM-SI-SP) - 3.*SP*LOG(SP/SI)/(SP-SI)
11662 + + 3.*SM*LOG(SM/SI)/(SM-SI)
11663 WPGQV = SM-SP + 4.*(SP+1.)*LOG(SP/SI)/(SP-SI)
11664 + - 4.*(SM+1.)*LOG(SM/SI)/(SM-SI)
11665 WPGGV = (SM-SP)*(3.-SM-SI-SP) + 6.*( SGG(SI,SP) - SGG(SI,SM) )
11666 ENDIF
11667
11668 WGTFF1(IWADR(IXI,IX0)) = 2./3. * SI * WPQQV
11669
11670 WGTFG1(IWADR(IXI,IX0),NF) = 1./6. * SI * WPQGV * 2.*NF
11671
11672 WGTGF1(IWADR(IXI,IX0)) = 2./3. * SI * WPGQV
11673
11674 WGTGG1(IWADR(IXI,IX0),NF) = SI * WPGGV
11675
11676100 CONTINUE
11677
11678 RETURN
11679 END
11680
11681CDECK ID>, SQQ.
11682
11683C ==================================
11684 DOUBLE PRECISION FUNCTION SQQ(X,Y)
11685C ==================================
11686 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11687
11688 SQQ = 2./(Y-X) * ( 2.*(Y-1.)*LOG((1.-Y)/(1.-X)) - Y*LOG(Y/X) )
11689
11690 RETURN
11691 END
11692
11693CDECK ID>, SGG.
11694
11695C ==================================
11696 DOUBLE PRECISION FUNCTION SGG(X,Y)
11697C ==================================
11698 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11699
11700 SGG = ( (1.+Y)*LOG(Y/X) - (1.-Y)*LOG((1.-Y)/(1.-X)) ) / (Y-X)
11701
11702 RETURN
11703 END
11704
11705CDECK ID>, QNSPLF.
11706
11707C ===============================================
11708 DOUBLE PRECISION FUNCTION QNSPLF(OPT,X,Q,NFLAV)
11709C ===============================================
11710 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11711
11712 CHARACTER*(*) OPT
11713 CHARACTER*10 OPT1
11714
11715 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11716
11717 DATA OPT1 /' '/
11718
11719 YWGT = 0.
11720 NF = NFLAV
11721 QNSPLF = 0.
11722 QPCG = Q
11723 CALL QNRGET('CMASS',QMASS)
11724
11725 LEN = LENOCC_LHA(OPT)
11726 IF(LEN.GT.10 .OR. LEN.LE.0) GOTO 550
11727C-- Avoid changing input parameter
11728 OPT1(1:LEN) = OPT(1:LEN)
11729 CALL CLTOU_LHA(OPT1)
11730
11731 IF (LEN.GE.4.AND.OPT1(1:4).EQ.'PFF1') THEN
11732 IF(X.GE.1..OR.X.LT.0.) RETURN
11733 QNSPLF = PQQLO(X)
11734 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PFG1') THEN
11735 IF(NF.LE.0) GOTO 500
11736 IF(X.GT.1..OR.X.LT.0.) RETURN
11737 QNSPLF = PQGLO(X)
11738 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PGF1') THEN
11739 IF(X.GT.1..OR.X.LT.0.) RETURN
11740 QNSPLF = PGQLO(X)
11741 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PGG1') THEN
11742 IF(X.GE.1..OR.X.LT.0.) RETURN
11743 QNSPLF = PGGLO(X)
11744 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PPL2') THEN
11745 IF(NF.LE.0) GOTO 500
11746 IF(X.GE.1..OR.X.LT.0.) RETURN
11747 QNSPLF = PP1SFUN(X)
11748 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PMI2') THEN
11749 IF(NF.LE.0) GOTO 500
11750 IF(X.GE.1..OR.X.LT.0.) RETURN
11751 QNSPLF = PM1SFUN(X)
11752 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PFF2') THEN
11753 IF(NF.LE.0) GOTO 500
11754 IF(X.GE.1..OR.X.LT.0.) RETURN
11755 QNSPLF = FF1SFUN(X)
11756 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PFG2') THEN
11757 IF(NF.LE.0) GOTO 500
11758 IF(X.GE.1..OR.X.LT.0.) RETURN
11759 QNSPLF = FG1SFUN(X)
11760 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PGF2') THEN
11761 IF(NF.LE.0) GOTO 500
11762 IF(X.GE.1..OR.X.LT.0.) RETURN
11763 QNSPLF = GF1SFUN(X)
11764 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'PGG2') THEN
11765 IF(NF.LE.0) GOTO 500
11766 IF(X.GE.1..OR.X.LT.0.) RETURN
11767 QNSPLF = GG1SFUN(X)
11768 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'C1Q') THEN
11769 IF(X.GE.1..OR.X.LT.0.) RETURN
11770 QNSPLF = C2Q(X)-CLQ(X)
11771 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'C1G') THEN
11772 IF(NF.LE.0) GOTO 500
11773 IF(X.GE.1..OR.X.LT.0.) RETURN
11774 QNSPLF = C2G(X)-CLG(X)
11775 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'C2Q') THEN
11776 IF(X.GE.1..OR.X.LT.0.) RETURN
11777 QNSPLF = C2Q(X)
11778 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'C2G') THEN
11779 IF(NF.LE.0) GOTO 500
11780 IF(X.GE.1..OR.X.LT.0.) RETURN
11781 QNSPLF = C2G(X)
11782 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'CLQ') THEN
11783 IF(X.GE.1..OR.X.LT.0.) RETURN
11784 QNSPLF = CLQ(X)
11785 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'CLG') THEN
11786 IF(NF.LE.0) GOTO 500
11787 IF(X.GE.1..OR.X.LT.0.) RETURN
11788 QNSPLF = CLG(X)
11789 ELSEIF(LEN.GE.3.AND.OPT1(1:3).EQ.'C3Q') THEN
11790 IF(X.GE.1..OR.X.LT.0.) RETURN
11791 QNSPLF = C2Q(X)-D3Q(X)
11792 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'C02G') THEN
11793 IF(X.GE.1..OR.X.LT.0.) RETURN
11794 QNSPLF = X*C02G_FUN(X)
11795 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'C12G') THEN
11796 IF(X.GE.1..OR.X.LT.0.) RETURN
11797 QNSPLF = X*C12G_FUN(X)
11798 ELSEIF(LEN.GE.5.AND.OPT1(1:5).EQ.'C1B2G') THEN
11799 IF(X.GE.1..OR.X.LT.0.) RETURN
11800 QNSPLF = X*C1B2G_FUN(X)
11801 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'C12Q') THEN
11802 IF(X.GE.1..OR.X.LT.0.) RETURN
11803 QNSPLF = X*C12Q_FUN(X)
11804 ELSEIF(LEN.GE.5.AND.OPT1(1:5).EQ.'C1B2Q') THEN
11805 IF(X.GE.1..OR.X.LT.0.) RETURN
11806 QNSPLF = X*C1B2Q_FUN(X)
11807 ELSEIF(LEN.GE.4.AND.OPT1(1:4).EQ.'D12Q') THEN
11808 IF(X.GE.1..OR.X.LT.0.) RETURN
11809 QNSPLF = X*D12Q_FUN(X)
11810 ELSEIF(LEN.GE.5.AND.OPT1(1:5).EQ.'D1B2Q') THEN
11811 IF(X.GE.1..OR.X.LT.0.) RETURN
11812 QNSPLF = X*D1B2Q_FUN(X)
11813 ELSE
11814 GOTO 550
11815 ENDIF
11816
11817 RETURN
11818
11819 500 CONTINUE
11820 WRITE(6,'('' QNSPLF: NF not allowed'',I10,
11821 + '' ---> STOP'')') NF
11822 STOP
11823
11824 550 CONTINUE
11825 WRITE(6,'('' QNSPLF: undefined option '',A,
11826 + '' ---> STOP'')') OPT
11827 STOP
11828
11829 END
11830
11831CDECK ID>, PQGLO.
11832
11833C ==================================
11834 DOUBLE PRECISION FUNCTION PQGLO(X)
11835C ==================================
11836 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11837
11838
11839 COMMON/QCCONS/
11840 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
11841 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
11842 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11843 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11844 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11845 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11846
11847
11848
11849 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11850
11851 PQG = NF * ( X*X + (1.-X)*(1.-X) )
11852
11853 PQGLO = (X-YWGT)*PQG/X
11854
11855 RETURN
11856 END
11857
11858CDECK ID>, PGQLO.
11859
11860C ==================================
11861 DOUBLE PRECISION FUNCTION PGQLO(X)
11862C ==================================
11863 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11864
11865 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11866
11867 PGQ = 4. * ( 1. + (1.-X)*(1.-X) ) / ( 3.*X )
11868
11869 PGQLO = (X-YWGT)*PGQ/X
11870
11871 RETURN
11872 END
11873
11874CDECK ID>, PQQLO.
11875C
11876C ==================================
11877 DOUBLE PRECISION FUNCTION PQQLO(X)
11878C ==================================
11879 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11880C
11881 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11882C
11883 PQQ = (4./3.) * ( 1. + X*X ) / (1.-X)
11884C
11885 PQQLO = (X-YWGT)*PQQ/X
11886C
11887 RETURN
11888 END
11889
11890CDECK ID>, PQQX0.
11891C
11892C ==================================
11893 DOUBLE PRECISION FUNCTION PQQX0(X)
11894C ==================================
11895 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11896C
11897 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11898C
11899 PQQX0 = (4./3.) * ( (X-YWGT)*(1.+X*X)/X - 2.*(1.-YWGT) ) / (1.-X)
11900C
11901 RETURN
11902 END
11903
11904CDECK ID>, PGGLO.
11905C
11906C ==================================
11907 DOUBLE PRECISION FUNCTION PGGLO(X)
11908C ==================================
11909 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11910C
11911 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11912C
11913 PGG = 6. * ( X/(1.-X) + (1.-X)/X + X*(1.-X) )
11914C
11915 PGGLO = (X-YWGT)*PGG/X
11916C
11917 RETURN
11918 END
11919
11920CDECK ID>, PGGX0.
11921C
11922C ==================================
11923 DOUBLE PRECISION FUNCTION PGGX0(X)
11924C ==================================
11925 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11926C
11927 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11928C
11929 PGGX0 = 6. * (X-YWGT) * ( (1.-X)/(X*X) + 1. - X )
11930C
11931 RETURN
11932 END
11933
11934CDECK ID>, PP1SFUN.
11935C
11936C ====================================
11937 DOUBLE PRECISION FUNCTION PP1SFUN(X)
11938C ====================================
11939 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11940C
11941
11942 COMMON/QCCONS/
11943 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
11944 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
11945 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
11946 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
11947 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
11948 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
11949
11950
11951C
11952 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11953C
11954 CX2 = X**2
11955 C1PX = 1.+X
11956 C1MX = 1.-X
11957 CLX = LOG(X)
11958 CLX2 = CLX**2
11959 CL1MX = LOG(C1MX)
11960 CL1PX = LOG(C1PX)
11961 CPFFX = (1.+CX2) / C1MX
11962 CPFFMX = (1.+CX2) / C1PX
11963 CS3X = -DDILOG_LHA(-X)
11964 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
11965C
11966 AAA = - CPFFX*2.*CLX*CL1MX - (2.*X+3./C1MX)*CLX - .5*C1PX*CLX2
11967 + - 5.*C1MX
11968 BBB = CPFFX*(.5*CLX2+C11S6*CLX+CPIA) + C1PX*CLX + C20S3*C1MX
11969 CCC = - CPFFX*C2S3*(C5S3+CLX) - C4S3*C1MX
11970C
11971 PQQ = C16S9*AAA + 4.*BBB + C2S3*NF*CCC
11972 PQQB = - C4S9 * ( CPFFMX*CS2X + C1PX*CLX + 2.*C1MX )
11973C
11974 PP1S = PQQ + PQQB
11975 PP1SFUN = (X-YWGT)*PP1S/X
11976C
11977 RETURN
11978 END
11979
11980CDECK ID>, PP1SX0.
11981C
11982C ===================================
11983 DOUBLE PRECISION FUNCTION PP1SX0(X)
11984C ===================================
11985 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
11986C
11987 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
11988C
11989 YREM = YWGT
11990 YWGT = 0.
11991 PPLUS = PP1SFUN(X)
11992 PMINU = PM1SFUN(X)
11993 YWGT = YREM
11994 PP1SX0 = (X-YWGT)*PPLUS/X - (1.-YWGT)*PMINU
11995C
11996 RETURN
11997 END
11998
11999CDECK ID>, PM1SFUN.
12000C
12001C ====================================
12002 DOUBLE PRECISION FUNCTION PM1SFUN(X)
12003C ====================================
12004 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12005C
12006
12007 COMMON/QCCONS/
12008 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12009 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12010 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12011 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12012 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12013 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12014
12015
12016C
12017 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12018C
12019 CX2 = X**2
12020 C1PX = 1.+X
12021 C1MX = 1.-X
12022 CLX = LOG(X)
12023 CLX2 = CLX**2
12024 CL1MX = LOG(C1MX)
12025 CL1PX = LOG(C1PX)
12026 CPFFX = (1.+CX2) / C1MX
12027 CPFFMX = (1.+CX2) / C1PX
12028 CS3X = -DDILOG_LHA(-X)
12029 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12030C
12031 AAA = - CPFFX*2.*CLX*CL1MX - (2.*X+3./C1MX)*CLX - .5*C1PX*CLX2
12032 + - 5.*C1MX
12033 BBB = CPFFX*(.5*CLX2+C11S6*CLX+CPIA) + C1PX*CLX + C20S3*C1MX
12034 CCC = - CPFFX*C2S3*(C5S3+CLX) - C4S3*C1MX
12035C
12036 PQQ = C16S9*AAA + 4.*BBB + C2S3*NF*CCC
12037 PQQB = - C4S9 * ( CPFFMX*CS2X + C1PX*CLX + 2.*C1MX )
12038C
12039 PM1S = PQQ - PQQB
12040 PM1SFUN = (X-YWGT)*PM1S/X
12041C
12042 RETURN
12043 END
12044
12045CDECK ID>, PM1SX0.
12046C
12047C ===================================
12048 DOUBLE PRECISION FUNCTION PM1SX0(X)
12049C ===================================
12050 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12051C
12052 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12053C
12054 YREM = YWGT
12055 YWGT = 0.
12056 PMINU = PM1SFUN(X)
12057 YWGT = YREM
12058 PM1SX0 = (X-YWGT)*PMINU/X - (1.-YWGT)*PMINU
12059C
12060 RETURN
12061 END
12062
12063CDECK ID>, FF1SFUN.
12064C
12065C ====================================
12066 DOUBLE PRECISION FUNCTION FF1SFUN(X)
12067C ====================================
12068 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12069C
12070
12071 COMMON/QCCONS/
12072 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12073 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12074 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12075 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12076 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12077 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12078
12079
12080C
12081 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12082C
12083 CX2 = X**2
12084 C1PX = 1.+X
12085 C1MX = 1.-X
12086 CLX = LOG(X)
12087 CLX2 = CLX**2
12088 CL1MX = LOG(C1MX)
12089 CL1PX = LOG(C1PX)
12090 CPFFX = (1.+CX2) / C1MX
12091 CPFFMX = (1.+CX2) / C1PX
12092 CS3X = -DDILOG_LHA(-X)
12093 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12094C
12095 AAA = - CPFFX*CLX*(1.5+2.*CL1MX) + 2.*CPFFMX*CS2X
12096 + - 1. + X + (.5-1.5*X)*CLX - .5*C1PX*CLX2
12097 BBB = CPFFX*(C11S6*CLX+.5*CLX2+CPIA) - CPFFMX*CS2X
12098 + + C14S3*C1MX
12099 CCC = - CPFFX*(C10S9+C2S3*CLX) + C40S9/X - 2.*C1PX*CLX2
12100 + - C16S3 + C40S3*X + (10.*X+C16S3*CX2+2.)*CLX
12101 + - C112S9*CX2
12102C
12103 FF1S = C16S9*AAA + 4.*BBB + C2S3*NF*CCC
12104 FF1SFUN = (X-YWGT)*FF1S/X
12105C
12106 RETURN
12107 END
12108
12109CDECK ID>, FF1SX0.
12110C
12111C ===================================
12112 DOUBLE PRECISION FUNCTION FF1SX0(X)
12113C ===================================
12114 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12115C
12116 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12117C
12118 YREM = YWGT
12119 YWGT = 0.
12120 FF1S = FF1SFUN(X)
12121 XP1T = XP1TFUN(X)
12122 YWGT = YREM
12123 FF1SX0 = (X-YWGT)*FF1S/X - (1.-YWGT)*XP1T
12124C
12125 RETURN
12126 END
12127
12128CDECK ID>, GF1SFUN.
12129C
12130C ====================================
12131 DOUBLE PRECISION FUNCTION GF1SFUN(X)
12132C ====================================
12133 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12134C
12135
12136 COMMON/QCCONS/
12137 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12138 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12139 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12140 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12141 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12142 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12143
12144
12145C
12146 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12147C
12148 CX2 = X**2
12149 C1PX = 1.+X
12150 C1MX = 1.-X
12151 CLX = LOG(X)
12152 CLX2 = CLX**2
12153 CL1MX = LOG(C1MX)
12154 CL1PX = LOG(C1PX)
12155 CL1MX2 = CL1MX**2
12156 CPGFX = CX2 + C1MX**2
12157 CPGFMX = CX2 + C1PX**2
12158 CS3X = -DDILOG_LHA(-X)
12159 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12160C
12161 AAA = 4. - 9.*X + (4.*X-1.)*CLX + (2.*X-1.)*CLX2
12162 + + 4.*CL1MX
12163 + + (2.*CLX-2.*CLX*CL1MX+CLX2-2.*CL1MX+CL1MX2+CPIE)
12164 + * 2. * CPGFX
12165 DDD = C182S9 + C14S9*X + C40S9/X + (C136S3*X-C38S3)*CLX
12166 + - 4.*CL1MX - (2.+8.*X)*CLX2 + 2.*CS2X*CPGFMX
12167 + + (C44S3*CLX-CLX2-2.*CL1MX2+4.*CL1MX+CPIF) * CPGFX
12168C
12169 GF1S = C2S3*NF*AAA + 1.5*NF*DDD
12170 GF1SFUN = (X-YWGT)*GF1S/X
12171C
12172 RETURN
12173 END
12174
12175CDECK ID>, XP1TFUN.
12176C
12177C ====================================
12178 DOUBLE PRECISION FUNCTION XP1TFUN(X)
12179C ====================================
12180 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12181C
12182
12183 COMMON/QCCONS/
12184 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12185 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12186 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12187 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12188 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12189 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12190
12191
12192C
12193 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12194C
12195 CX2 = X**2
12196 C1PX = 1.+X
12197 C1MX = 1.-X
12198 CLX = LOG(X)
12199 CLX2 = CLX**2
12200 CL1MX = LOG(C1MX)
12201 CL1PX = LOG(C1PX)
12202 CL1MX2 = CL1MX**2
12203 CPFFX = (1.+CX2) / C1MX
12204 CPFFMX = (1.+CX2) / C1PX
12205 CPFGX = (1.+C1MX**2) / X
12206 CPFGMX = - (1.+C1PX**2) / X
12207 CS1X = -DDILOG_LHA(1.D0-X)
12208 CS3X = -DDILOG_LHA(-X)
12209 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12210C
12211 AAA = CPFFX*(1.5*CLX-2.*CLX2+2.*CLX*CL1MX) + 2.*CPFFMX*CS2X
12212 + - 1. + X + (-1.5+.5*X)*CLX + .5*C1PX*CLX2
12213 BBB = CPFFX*(C11S6*CLX+.5*CLX2+CPIA) - CPFFMX*CS2X
12214 + + C14S3*C1MX
12215 CCC = - CPFFX*(C2S3*CLX+C10S9)
12216 + - C52S3 + C28S3*X + C112S9*CX2 - C40S9/X
12217 + - (10.+18.*X+C16S3*CX2)*CLX + 2.*C1PX*CLX2
12218 PFF1T = C16S9*AAA + 4.*BBB + C2S3*NF*CCC
12219C
12220 AAA = -.5 + 4.5*X + (-8.+.5*X)*CLX + 2.*X*CL1MX
12221 + + (1.-.5*X)*CLX2
12222 + + (CL1MX2+4.*CLX*CL1MX-8.*CS1X-CPIB) * CPFGX
12223 BBB = C62S9 - C35S18*X - C44S9*CX2
12224 + + (2.+12.*X+C8S3*CX2) * CLX
12225 + - 2.*X*CL1MX - (4.+X)*CLX2 + CPFGMX*CS2X
12226 + + ( - 2.*CLX*CL1MX - 3.*CLX - 1.5*CLX2
12227 + - CL1MX2 + 8.*CS1X + CPIC ) * CPFGX
12228 PFG1T = C16S9*AAA + 4.*BBB
12229C
12230 XP1T = X * ( PFF1T + PFG1T )
12231 XP1TFUN = (X-YWGT)*XP1T/X
12232C
12233 RETURN
12234 END
12235
12236CDECK ID>, GG1SFUN.
12237C
12238C ====================================
12239 DOUBLE PRECISION FUNCTION GG1SFUN(X)
12240C ====================================
12241 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12242C
12243
12244 COMMON/QCCONS/
12245 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12246 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12247 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12248 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12249 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12250 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12251
12252
12253C
12254 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12255C
12256 CX2 = X**2
12257 C1PX = 1.+X
12258 C1MX = 1.-X
12259 CLX = LOG(X)
12260 CLX2 = CLX**2
12261 CL1MX = LOG(C1MX)
12262 CL1PX = LOG(C1PX)
12263 CL1MX2 = CL1MX**2
12264 CS3X = -DDILOG_LHA(-X)
12265 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12266C
12267 CPGG = 1./C1MX + 1./X -2. + X - CX2
12268 CMPGG = 1./C1PX - 1./X -2. - X - CX2
12269C
12270c AAA = -16.+ 8.*X+ C20S3*CX2 + C4S3/X + (-6.-10.*X)*CLX +
12271 AAA = -16.+ 8.*X+ C20S3*CX2 + C4S3/X + (-6.-10.*X)*CLX
12272 + -2.*C1PX*CLX2
12273 BBB = 2.* C1MX + 26./9.*(CX2-1./X) - C4S3*C1PX*CLX -
12274 + 20./9.*CPGG
12275 CCC = 27./2.*C1MX + 67./9.*(CX2-1./X)+(-25./3.+11./3.*x-
12276 + 44./3.*CX2)*CLX+4.*C1PX*CLX2+(67./9.-4.*CLX*CL1MX +
12277 + CLX2-CPI2S3)*CPGG + 2.*CMPGG*CS2X
12278C
12279 GG1S = C2S3*NF*AAA + 1.5*NF*BBB + 9.* CCC
12280 GG1SFUN = (X-YWGT)*GG1S/X
12281C
12282 RETURN
12283 END
12284
12285CDECK ID>, GG1SX0.
12286C
12287C ===================================
12288 DOUBLE PRECISION FUNCTION GG1SX0(X)
12289C ===================================
12290 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12291C
12292 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12293C
12294 YREM = YWGT
12295 YWGT = 0.
12296 GG1S = GG1SFUN(X)
12297 XG1T = XG1TFUN(X)
12298 YWGT = YREM
12299 GG1SX0 = (X-YWGT)*GG1S/X - (1.-YWGT)*XG1T
12300C
12301 RETURN
12302 END
12303
12304CDECK ID>, FG1SFUN.
12305C
12306C ====================================
12307 DOUBLE PRECISION FUNCTION FG1SFUN(X)
12308C ====================================
12309 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12310C
12311
12312 COMMON/QCCONS/
12313 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12314 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12315 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12316 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12317 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12318 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12319
12320
12321C
12322 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12323C
12324 CX2 = X**2
12325 C1PX = 1.+X
12326 C1MX = 1.-X
12327 CLX = LOG(X)
12328 CLX2 = CLX**2
12329 CL1MX = LOG(C1MX)
12330 CL1PX = LOG(C1PX)
12331 CL1MX2 = CL1MX**2
12332 CPFGX = (1.+C1MX**2) / X
12333 CPFGMX = - (1.+C1PX**2) / X
12334 CS3X = -DDILOG_LHA(-X)
12335 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12336C
12337 AAA = -5./2.- 7./2.*X+(2.+7./2.*X)*CLX+(-1.+0.5*X)*CLX2
12338 + -2.*X*CL1MX+ (-3.*CL1MX-CL1MX2)*CPFGX
12339 BBB = 28./9.+65./18.*X+44./9.*CX2+(-12.-5.*X-8./3.*CX2)*CLX+
12340 + (4.+X)*CLX2+2.*X*CL1MX+ (-2.*CLX*CL1MX+0.5*CLX2+
12341 + 11./3.*CL1MX+CL1MX2-0.5*CPI2S3+0.5)*CPFGX+CPFGMX*CS2X
12342 CCC = -C4S3*X- (20./9.+C4S3*CL1MX)*CPFGX
12343C
12344 FG1S = C16S9*AAA+4.*BBB+2./3.*NF*CCC
12345 FG1SFUN = (X-YWGT)*FG1S/X
12346C
12347 RETURN
12348 END
12349
12350CDECK ID>, XG1TFUN.
12351C
12352C ====================================
12353 DOUBLE PRECISION FUNCTION XG1TFUN(X)
12354C ====================================
12355 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12356C
12357
12358 COMMON/QCCONS/
12359 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12360 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12361 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12362 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12363 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12364 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12365
12366
12367C
12368 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12369C
12370 CX2 = X**2
12371 C1PX = 1.+X
12372 C1MX = 1.-X
12373 CLX = LOG(X)
12374 CLX2 = CLX**2
12375 CL1MX = LOG(C1MX)
12376 CL1PX = LOG(C1PX)
12377 CL1MX2 = CL1MX**2
12378 CPGFX = CX2 + C1MX**2
12379 CPGFMX = CX2 + C1PX**2
12380 CS1X = -DDILOG_LHA(1.D0-X)
12381 CS3X = -DDILOG_LHA(-X)
12382 CS2X = .5*(CLX2-CPI2S3) + 2.*(CS3X-CLX*CL1PX)
12383C
12384 CPGG = 1./C1MX + 1./X -2. + X - CX2
12385 CMPGG = 1./C1PX - 1./X -2. - X - CX2
12386C
12387 AAA = -4.+12.*x-164./9.*CX2+92./9./X+(10.+14.*X+C16S3*CX2+
12388 + C16S3/X)*CLX + 2.*C1PX*CLX2
12389 BBB = 2.-2.*X+26./9.*(CX2-1./X)-C4S3*C1PX*CLX-
12390 + (20./9.+8./3.*CLX)*CPGG
12391 CCC = 27./2.*(C1MX)+67./9.*(CX2-1./X)+(11./3.-25./3.*X-
12392 + 44./3./X)*CLX -4.*(C1PX) * CLX2 + (4.*CLX*CL1MX -
12393 + 3.*CLX2+22./3.*CLX-CPI2S3+67./9.)*CPGG+
12394 + 2.*CMPGG*CS2X
12395 PGG1T = 2./3.*NF*AAA+3./2.*NF*BBB+9.*CCC
12396C
12397 AAA = -8./3.-(16./9.+8./3.*CLX+8./3.*CL1MX)*CPGFX
12398 BBB = -2.+3.*X+(-7.+8.*X)*CLX-4.*CL1MX + (1.-2.*X)*CLX2
12399 + +(-4.*CLX*CL1MX-2.*CLX2-2.*CL1MX+2.*CLX-2.*CL1MX2
12400 + +16.*CS1X+ 2.*PI*PI - 10.)*CPGFX
12401 CCC = -152./9.+166./9.*X-40./9./X+ (-C4S3-76./3.*X)*CLX+
12402 + 4.*CL1MX + (2.+8.*X)*CLX2+ (8.*CLX*CL1MX-CLX2-
12403 + C4S3*CLX+10./3.*CL1MX+2.*CL1MX2-16.*CS1X-7.*CPI2S3+
12404 + 178./9.)*CPGFX+2.*CPGFMX*CS2X
12405 PGF1T = (0.5*NF)**2*AAA+2./3.*NF*BBB+3./2.*NF*CCC
12406C
12407 XG1T = X * ( PGG1T + PGF1T )
12408 XG1TFUN = (X-YWGT)*XG1T/X
12409C
12410 RETURN
12411 END
12412
12413CDECK ID>, C2Q.
12414
12415C ================================
12416 DOUBLE PRECISION FUNCTION C2Q(X)
12417C ================================
12418 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12419
12420 COMMON/QCCONS/
12421 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12422 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12423 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12424 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12425 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12426 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12427
12428
12429
12430 LOGICAL
12431 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12432 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12433 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12434 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12435 +LFFCAL,LASOLD
12436
12437 COMMON/QCFLAG/
12438 +IORD,IOLAST,
12439 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12440 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12441 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12442 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12443 +LFFCAL(7,30),LASOLD
12444
12445
12446 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12447
12448 C1MX = 1.-X
12449 C2Q = 3. + C5S3*X + (C4S3*LOG(C1MX/X)-1.) * (1.+X**2) / C1MX
12450 C2Q = (X-YWGT)*C2Q/X
12451
12452 RETURN
12453 END
12454
12455CDECK ID>, C2QX0.
12456
12457
12458C ==================================
12459 DOUBLE PRECISION FUNCTION C2QX0(X)
12460C ==================================
12461 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12462
12463 COMMON/QCCONS/
12464 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12465 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12466 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12467 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12468 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12469 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12470
12471
12472
12473 LOGICAL
12474 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12475 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12476 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12477 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12478 +LFFCAL,LASOLD
12479
12480 COMMON/QCFLAG/
12481 +IORD,IOLAST,
12482 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12483 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12484 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12485 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12486 +LFFCAL(7,30),LASOLD
12487
12488
12489 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12490
12491 C1MX = 1.-X
12492 C2Q = 3. + C5S3*X + (C4S3*LOG(C1MX/X)-1.) * (1.+X**2) / C1MX
12493
12494 C2QX0 = ((X-YWGT)/X+YWGT-1.)*C2Q
12495
12496 RETURN
12497 END
12498
12499CDECK ID>, C2G.
12500
12501C ================================
12502 DOUBLE PRECISION FUNCTION C2G(X)
12503C ================================
12504 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12505
12506
12507 COMMON/QCCONS/
12508 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12509 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12510 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12511 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12512 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12513 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12514
12515
12516
12517 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12518
12519 C1MX = 1. - X
12520 C2G = -.5 + 4.*X*C1MX + .5 * (X**2+C1MX**2) * LOG(C1MX/X)
12521 C2G = 2.*NF*(X-YWGT)*C2G/X
12522
12523 RETURN
12524 END
12525
12526CDECK ID>, CLQ.
12527
12528C ================================
12529 DOUBLE PRECISION FUNCTION CLQ(X)
12530C ================================
12531 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12532
12533 COMMON/QCCONS/
12534 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12535 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12536 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12537 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12538 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12539 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12540
12541
12542
12543 LOGICAL
12544 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12545 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12546 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12547 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12548 +LFFCAL,LASOLD
12549
12550 COMMON/QCFLAG/
12551 +IORD,IOLAST,
12552 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12553 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12554 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12555 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12556 +LFFCAL(7,30),LASOLD
12557
12558
12559 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12560
12561 CLQ = C8S3*X
12562 CLQ = (X-YWGT)*CLQ/X
12563
12564 RETURN
12565 END
12566
12567CDECK ID>, CLG.
12568
12569C ================================
12570 DOUBLE PRECISION FUNCTION CLG(X)
12571C ================================
12572 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12573
12574 COMMON/QCCONS/
12575 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12576 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12577 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12578 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12579 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12580 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12581
12582
12583
12584 LOGICAL
12585 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12586 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12587 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12588 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12589 +LFFCAL,LASOLD
12590
12591 COMMON/QCFLAG/
12592 +IORD,IOLAST,
12593 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12594 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12595 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12596 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12597 +LFFCAL(7,30),LASOLD
12598
12599
12600 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12601
12602 CLG = NF*4.*X*(1.-X)
12603 CLG = (X-YWGT)*CLG/X
12604
12605 RETURN
12606 END
12607
12608CDECK ID>, D3Q.
12609
12610C ================================
12611 DOUBLE PRECISION FUNCTION D3Q(X)
12612C ================================
12613 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12614
12615 COMMON/QCCONS/
12616 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12617 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12618 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12619 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12620 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12621 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12622
12623
12624
12625 LOGICAL
12626 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12627 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12628 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12629 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12630 +LFFCAL,LASOLD
12631
12632 COMMON/QCFLAG/
12633 +IORD,IOLAST,
12634 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12635 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12636 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12637 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12638 +LFFCAL(7,30),LASOLD
12639
12640
12641C-- C3Q = C2Q - D3Q
12642
12643 COMMON /QCWGTC/ YWGT,QPGC,QMASS,EGAUSS,NF
12644
12645 D3Q = C4S3*(1.+X)
12646C-- Fixed this bug in QCDNUM16.11 17-01-98
12647C D3Q = (X-YWGT)*C3Q/X
12648 D3Q = (X-YWGT)*D3Q/X
12649
12650 RETURN
12651 END
12652
12653CDECK ID>, PCGFUN.
12654
12655C ===================================
12656 DOUBLE PRECISION FUNCTION PCGFUN(X)
12657C ===================================
12658 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12659
12660C-- Pcg (heavy quark) splitting function taken from
12661C-- Glueck, Hoffmann and Reya, Z. Phys. C13(1982)119 eq. (2.6).
12662C-- Notice that if YWGT is set to zero, PCGFUN(X) returns Pcg(x).
12663C-- Q2 and the quark mass are passed through the common block
12664C-- /QCWGTC/ as QPCG and QMASS respectively.
12665
12666 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
12667
12668 FACTOR = QMASS*QMASS/QPCG
12669 PCG = 0.
12670 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
12671 U = 1.-X
12672 V = SQRT(1.-4.*FACTOR*X/(1.-X))
12673 PCG = (1./V)*(0.5-X*U+FACTOR*X*(3.-4.*X)/U
12674 + -16.*FACTOR*FACTOR*X*X) -
12675 + (2.*FACTOR*X*(1.-3.*X)-8.*FACTOR*FACTOR*X*X)
12676 + *LOG((1.+V)/(1.-V))
12677 ENDIF
12678 PCGFUN = (X-YWGT)*PCG/X
12679
12680 RETURN
12681 END
12682
12683CDECK ID>, QASTOL.
12684
12685C ==============================
12686 SUBROUTINE LFROMA(AS,Q2,QL,NF)
12687C ==============================
12688
12689C--- Calculate Lambda^(nf) given alpha_s(Q^2)
12690
12691 WRITE(6,'(/'' ------------------------------------'')')
12692 WRITE(6,'( '' QCDNUM error in s/r LFROMA ---> STOP'')')
12693 WRITE(6,'( '' ------------------------------------'')')
12694 WRITE(6,'(/'' This s/r is not available...... '')')
12695
12696 STOP
12697 END
12698
12699
12700CDECK ID>, AFROML.
12701
12702C ==============================
12703 SUBROUTINE AFROML(QL,NF,AS,Q2)
12704C ==============================
12705
12706C--- Calculate alpha_s(Q^2) given Lambda^(nf)
12707
12708 WRITE(6,'(/'' ------------------------------------'')')
12709 WRITE(6,'( '' QCDNUM error in s/r AFROML ---> STOP'')')
12710 WRITE(6,'( '' ------------------------------------'')')
12711 WRITE(6,'(/'' This s/r is not available...... '')')
12712
12713 STOP
12714 END
12715
12716CDECK ID>, QNALFA.
12717
12718C =====================================
12719 DOUBLE PRECISION FUNCTION QNALFA(QQ2)
12720C =====================================
12721
12722 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12723
12724
12725 PARAMETER ( MXX = 410 )
12726 PARAMETER ( MQ2 = 120 )
12727
12728C-- Do not set the following parameter to zero!
12729 PARAMETER ( NDFMAX = 20)
12730
12731
12732 LOGICAL
12733 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12734 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12735 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12736 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12737 +LFFCAL,LASOLD
12738
12739 COMMON/QCFLAG/
12740 +IORD,IOLAST,
12741 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12742 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12743 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12744 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12745 +LFFCAL(7,30),LASOLD
12746
12747
12748 COMMON/QCPASS/
12749 +ALPHA0, Q0ALFA, ASLAST, QALAST,
12750 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
12751 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
12752 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
12753 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
12754 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
12755 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
12756 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
12757 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
12758 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
12759
12760 LOGICAL LEVDONE,LE_DONE
12761 COMMON/QCLEVL/
12762 +LEVDONE(MXX,10),LE_DONE(MXX)
12763
12764
12765 IF(LBMARK) THEN
12766c fix for rgr
12767 call rgras(qnalfa,qq2)
12768c print *,' 1 rgras called and NF is ',nf
12769c F = 4.
12770c QCDL = 0.250
12771c QNALFA = QNALAM(F,QQ2,QCDL,IORD)
12772 ELSEIF(LASOLD) THEN
12773 QNALFA = A0TOA1_OLD(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
12774 ELSE
12775 QNALFA = A0TOA1(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
12776 ENDIF
12777
12778 RETURN
12779 END
12780
12781CDECK ID>, QALFAS.
12782
12783C ===================================================
12784 DOUBLE PRECISION FUNCTION QALFAS(QQ2,QLAMB,NF,IERR)
12785C ===================================================
12786
12787 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12788
12789
12790 PARAMETER ( MXX = 410 )
12791 PARAMETER ( MQ2 = 120 )
12792
12793C-- Do not set the following parameter to zero!
12794 PARAMETER ( NDFMAX = 20)
12795
12796
12797 LOGICAL
12798 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12799 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12800 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12801 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12802 +LFFCAL,LASOLD
12803
12804 COMMON/QCFLAG/
12805 +IORD,IOLAST,
12806 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12807 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12808 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12809 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12810 +LFFCAL(7,30),LASOLD
12811
12812
12813 COMMON/QCPASS/
12814 +ALPHA0, Q0ALFA, ASLAST, QALAST,
12815 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
12816 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
12817 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
12818 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
12819 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
12820 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
12821 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
12822 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
12823 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
12824
12825 LOGICAL LEVDONE,LE_DONE
12826 COMMON/QCLEVL/
12827 +LEVDONE(MXX,10),LE_DONE(MXX)
12828
12829
12830 IF(LBMARK) THEN
12831c fix for rgr alphas
12832c print *,' 2 rgras called and NF is '
12833 call rgras(qalfas,qq2)
12834 QLAMB = SQRT(Q_LAMB2(QQ2,QALFAS,NF,IORD))
12835c F = 4.
12836c QCDL = 0.250
12837c QALFAS = QNALAM(F,QQ2,QCDL,IORD)
12838c NF = F
12839c QLAMB = 0.
12840 ELSEIF(LASOLD) THEN
12841 QALFAS = A0TOA1_OLD(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
12842 QLAMB = SQRT(Q_LAMB2(QQ2,QALFAS,NF,IORD))
12843 IF(IERR.NE.0) QLAMB = 0.
12844 ELSE
12845 QALFAS = A0TOA1(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
12846 QLAMB = SQRT(Q_LAMB2(QQ2,QALFAS,NF,IORD))
12847 IF(IERR.NE.0) QLAMB = 0.
12848 ENDIF
12849
12850 RETURN
12851 END
12852
12853CDECK ID>, QFILAS.
12854
12855C ========================
12856 SUBROUTINE QFILAS(SRNAM)
12857C ========================
12858
12859 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
12860
12861
12862 COMMON/QCCONS/
12863 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
12864 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
12865 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
12866 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
12867 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
12868 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
12869
12870
12871
12872 LOGICAL
12873 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12874 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12875 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12876 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12877 +LFFCAL,LASOLD
12878
12879 COMMON/QCFLAG/
12880 +IORD,IOLAST,
12881 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
12882 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
12883 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
12884 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
12885 +LFFCAL(7,30),LASOLD
12886
12887
12888 PARAMETER ( MXX = 410 )
12889 PARAMETER ( MQ2 = 120 )
12890
12891C-- Do not set the following parameter to zero!
12892 PARAMETER ( NDFMAX = 20)
12893
12894
12895 COMMON/QCGRID/
12896 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
12897 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
12898 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
12899 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
12900
12901
12902 COMMON/QCPASS/
12903 +ALPHA0, Q0ALFA, ASLAST, QALAST,
12904 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
12905 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
12906 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
12907 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
12908 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
12909 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
12910 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
12911 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
12912 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
12913
12914 LOGICAL LEVDONE,LE_DONE
12915 COMMON/QCLEVL/
12916 +LEVDONE(MXX,10),LE_DONE(MXX)
12917
12918
12919 CHARACTER*6 SRNAM
12920
12921C-- Check quark masses
12922 IF(.NOT.(0.LE.UDSCBT(1) .AND. UDSCBT(1).LE.UDSCBT(2) .AND.
12923 + UDSCBT(2).LE.UDSCBT(3) .AND. UDSCBT(3).LT.UDSCBT(4) .AND.
12924 + UDSCBT(4).LT.UDSCBT(5) .AND. UDSCBT(5).LT.UDSCBT(6))) THEN
12925 IERR = 1
12926 GOTO 500
12927 ENDIF
12928
12929 IF(LBMARK) THEN
12930c-- This is a fix to put in the RGR alphas
12931 DO IQ = 1,NQ2
12932
12933C-- Alphas at the renormalistion scale
12934 QQ2 = Q2TAB(IQ)*AAAR2 + BBBR2
12935c print *,' 3 rgras called and iord is ',iord
12936 call rgras(ALF,QQ2)
12937c print *,nf,iord,alf,qq2
12938 BET0 = 11.-2*NF/3.
12939 ALFASQ(IQ) = ALF
12940 ALFAPQ(IQ) = ALF/(2.*PI)
12941 ALFA2Q(IQ) = 0.
12942 IF(IORD.GE.2) THEN
12943 ALFA2Q(IQ) = ALFAPQ(IQ)*ALFAPQ(IQ)
12944 FACT = LOG(QQ2/Q2TAB(IQ))*BET0*0.5
12945 ALFAPQ(IQ) = ALFAPQ(IQ)*(1.+FACT*ALFAPQ(IQ))
12946 ENDIF
12947
12948 ENDDO
12949
12950
12951cC-- Alphas for benchmark tests (HERA workshop)
12952c
12953c F = 4.
12954c QCDL = 0.250
12955c
12956c DO IQ = 1,NQ2
12957c
12958cC-- Alphas at the renormalistion scale
12959c QQ2 = Q2TAB(IQ)*AAAR2 + BBBR2
12960c ALFASQ(IQ) = QNALAM(F,QQ2,QCDL,IORD)
12961c BET0 = 11.-2.*F/3.
12962c ALFAPQ(IQ) = ALFASQ(IQ) /(2.*PI)
12963c ALFA2Q(IQ) = 0.
12964c IEALFA(IQ) = 0
12965c IF(IORD.GE.2) THEN
12966c ALFA2Q(IQ) = ALFAPQ(IQ)*ALFAPQ(IQ)
12967c FACT = LOG(QQ2/Q2TAB(IQ))*BET0*0.5
12968c ALFAPQ(IQ) = ALFAPQ(IQ)*(1.+FACT*ALFAPQ(IQ))
12969c ENDIF
12970c
12971c ENDDO
12972
12973 ELSEIF(LASOLD) THEN
12974
12975C-- Alphas from old routine (for backwards compatibility)
12976
12977 DO IQ = 1,NQ2
12978
12979C-- Alphas at the renormalistion scale
12980 QQ2 = Q2TAB(IQ)*AAAR2 + BBBR2
12981 ALFASQ(IQ) = A0TOA1_OLD(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
12982 BET0 = 11.-2*NF/3.
12983 IEALFA(IQ) = IERR
12984 ALFAPQ(IQ) = ALFASQ(IQ) /(2.*PI)
12985 ALFA2Q(IQ) = 0.
12986 IF(IORD.GE.2) THEN
12987 ALFA2Q(IQ) = ALFAPQ(IQ)*ALFAPQ(IQ)
12988 FACT = LOG(QQ2/Q2TAB(IQ))*BET0*0.5
12989 ALFAPQ(IQ) = ALFAPQ(IQ)*(1.+FACT*ALFAPQ(IQ))
12990 ENDIF
12991
12992 ENDDO
12993
12994 ELSE
12995
12996C-- This is the alphas to be used
12997
12998 DO IQ = 1,NQ2
12999
13000C-- Alphas at the renormalistion scale
13001 QQ2 = Q2TAB(IQ)*AAAR2 + BBBR2
13002 ALF = A0TOA1(QQ2,Q0ALFA,ALPHA0,IORD,NF,IERR)
13003c print *,iord,nf,qq2,alf
13004 BET0 = 11.-2*NF/3.
13005 IEALFA(IQ) = IERR
13006 ALFASQ(IQ) = ALF
13007 ALFAPQ(IQ) = ALF/(2.*PI)
13008 ALFA2Q(IQ) = 0.
13009 IF(IORD.GE.2) THEN
13010 ALFA2Q(IQ) = ALFAPQ(IQ)*ALFAPQ(IQ)
13011 FACT = LOG(QQ2/Q2TAB(IQ))*BET0*0.5
13012 ALFAPQ(IQ) = ALFAPQ(IQ)*(1.+FACT*ALFAPQ(IQ))
13013 ENDIF
13014
13015 ENDDO
13016
13017 ENDIF
13018
13019 LALFOK = .TRUE.
13020C-- Invalidate all evolutions
13021 CALL QNFALS(LEVDONE,MXX*10)
13022
13023C-- Find lowest Q2 for which alpha_s is calculated
13024 QMINAS = Q2TAB(NQ2)
13025 DO IQ = NQ2,1,-1
13026 IF(IEALFA(IQ).EQ.0) QMINAS = Q2TAB(IQ)
13027 ENDDO
13028
13029 RETURN
13030
13031 500 CONTINUE
13032 WRITE(6,'(/'' ------------------------------------'')')
13033 WRITE(6,'( '' QCDNUM error in s/r '',A,'' ---> STOP'')')
13034 + SRNAM
13035 WRITE(6,'( '' ------------------------------------'')')
13036 WRITE(6,'( '' Umass :'',E12.5)') UDSCBT(1)
13037 WRITE(6,'( '' Dmass :'',E12.5)') UDSCBT(2)
13038 WRITE(6,'( '' Smass :'',E12.5)') UDSCBT(3)
13039 WRITE(6,'( '' Cmass :'',E12.5)') UDSCBT(4)
13040 WRITE(6,'( '' Bmass :'',E12.5)') UDSCBT(5)
13041 WRITE(6,'( '' Tmass :'',E12.5)') UDSCBT(6)
13042 IF(IERR.EQ.1) THEN
13043 WRITE(6,'(/'' Quark masses not in ascending order'')')
13044 ENDIF
13045
13046 CALL QTRACE('QFILAS ',1)
13047
13048 STOP
13049
13050 END
13051
13052CDECK ID>, GET_AS.
13053
13054C =======================================
13055 DOUBLE PRECISION FUNCTION GET_AS(IQ,TQ)
13056C =======================================
13057
13058 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13059
13060C-- Interpolation of alpha_s table: returns alpha_s/(2pi)
13061C-- Input IQ must be in the range 1,...,NQ2-1
13062
13063
13064 COMMON/QCCONS/
13065 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13066 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13067 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13068 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13069 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13070 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13071
13072
13073
13074 PARAMETER ( MXX = 410 )
13075 PARAMETER ( MQ2 = 120 )
13076
13077C-- Do not set the following parameter to zero!
13078 PARAMETER ( NDFMAX = 20)
13079
13080
13081 COMMON/QCPASS/
13082 +ALPHA0, Q0ALFA, ASLAST, QALAST,
13083 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
13084 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
13085 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
13086 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
13087 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
13088 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
13089 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
13090 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
13091 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
13092
13093 LOGICAL LEVDONE,LE_DONE
13094 COMMON/QCLEVL/
13095 +LEVDONE(MXX,10),LE_DONE(MXX)
13096
13097
13098 GET_AS = ((1.-TQ)*ALFASQ(IQ)+TQ*ALFASQ(IQ+1))/(2.*PI)
13099
13100 RETURN
13101 END
13102
13103CDECK ID>, QNALAM.
13104
13105C =================================================
13106 DOUBLE PRECISION FUNCTION QNALAM (F,Q2,QCDL,IORD)
13107C =================================================
13108
13109 IMPLICIT DOUBLE PRECISION (A - Z)
13110 INTEGER IORD
13111
13112 DATA PI / 3.14159265359 /
13113
13114C--- Calculation of alpha strong (Q**2) in NLO :
13115C--- F = number of flavours
13116C--- Q2 = Q**2 in GeV**2
13117C--- QCDL = Lambda(MSbar) in GeV
13118
13119 B0 = 11.D0 - 2.D0/3.D0 * F
13120 B0S = B0 * B0
13121 B1 = 102.D0 - 38.D0/3.D0 * F
13122 LAM2 = QCDL * QCDL
13123 LQ2 = DLOG (Q2/LAM2)
13124 QNALAM = 1.D0/(B0 * LQ2)
13125 IF(IORD.GE.2) QNALAM = QNALAM - 1.D0/(B0 * LQ2) *
13126 + (B1/B0S * DLOG(LQ2)/LQ2)
13127 QNALAM = QNALAM*4.D0*PI
13128
13129 RETURN
13130 END
13131
13132CDECK ID>, A0TOA1.
13133
13134C ===========================================================
13135 DOUBLE PRECISION FUNCTION A0TOA1(QSU,QS0,AS0,IORD,NFF,IERR)
13136C ===========================================================
13137
13138 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13139
13140
13141 COMMON/QCCONS/
13142 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13143 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13144 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13145 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13146 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13147 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13148
13149
13150
13151 QS1 = QSU
13152
13153 QMU0 = SQRT(QS0)
13154 QMU1 = SQRT(QS1)
13155
13156 DO 10 I=1,6
13157 IF(QMU0.GE.UDSCBT(I)) NF0 = I
13158 IF(QMU1.GE.UDSCBT(I)) NF1 = I
13159 10 CONTINUE
13160
13161 IF(NF1.LT.NF0) THEN
13162 IST = -1
13163 JST = 0
13164 ELSE
13165 IST = 1
13166 JST = 1
13167 ENDIF
13168
13169 ALFA0 = AS0
13170 Q00 = QS0
13171
13172 DO 50 NF = NF0,NF1,IST
13173
13174 IF(NF.NE.NF1) THEN
13175 Q21 = UDSCBT(NF+JST)*UDSCBT(NF+JST)
13176 ELSE
13177 Q21 = QS1
13178 ENDIF
13179 ALFA1 = ALPHAR(Q21,Q00,ALFA0,NF,IORD,JERR)
13180 ALFA0 = ALFA1
13181 Q00 = Q21
13182
13183 50 CONTINUE
13184
13185 A0TOA1 = ALFA0
13186 NFF = NF1
13187 IERR = JERR
13188
13189 RETURN
13190 END
13191
13192C ===============================================================
13193 DOUBLE PRECISION FUNCTION A0TOA1_OLD(QSU,QS0,AS0,IORD,NFF,IERR)
13194C ===============================================================
13195
13196 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13197
13198
13199 COMMON/QCCONS/
13200 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13201 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13202 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13203 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13204 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13205 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13206
13207
13208
13209 QS1 = QSU
13210
13211 QMU0 = SQRT(QS0)
13212 QMU1 = SQRT(QS1)
13213
13214 DO 10 I=1,6
13215 IF(QMU0.GE.UDSCBT(I)) NF0 = I
13216 IF(QMU1.GE.UDSCBT(I)) NF1 = I
13217 10 CONTINUE
13218
13219 IF(NF1.LT.NF0) THEN
13220 IST = -1
13221 JST = 0
13222 ELSE
13223 IST = 1
13224 JST = 1
13225 ENDIF
13226
13227 ALFA0 = AS0
13228 Q00 = QS0
13229
13230 DO 50 NF = NF0,NF1,IST
13231
13232 IF(NF.NE.NF1) THEN
13233 Q21 = UDSCBT(NF+JST)*UDSCBT(NF+JST)
13234 ELSE
13235 Q21 = QS1
13236 ENDIF
13237 ALFA0 = ALPHAR_OLD(Q21,Q00,ALFA0,NF,IORD,JERR)
13238 Q00 = Q21
13239
13240 50 CONTINUE
13241
13242 A0TOA1_OLD = ALFA0
13243 NFF = NF1
13244 IERR = JERR
13245
13246 RETURN
13247 END
13248
13249CDECK ID>, ALPHAR.
13250
13251C ==========================================================
13252 DOUBLE PRECISION FUNCTION ALPHAR(QSQ,QS0,AS0,NF,IORD,IERR)
13253C ==========================================================
13254
13255 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13256
13257C-- ALPHAS FROM RGE GIVEN AS0 AT QS0
13258
13259 DATA PI / 3.14159265359 /
13260
13261 BET0 = 11.-2*NF/3.
13262 BET1 = 102.-38*NF/3.
13263 B0 = BET0/(4.*PI)
13264 B1 = BET1/(4.*PI*BET0)
13265 IERR = 0
13266
13267 TERM0 = 1./AS0+B0*LOG(QSQ/QS0)
13268 IF(TERM0.LE.0.) THEN
13269 ALPHAR = 100.
13270 IERR = 1
13271 RETURN
13272 ENDIF
13273 ALFA0 = 1./TERM0
13274 IF(IORD.EQ.1) THEN
13275 ALPHAR = ALFA0
13276 RETURN
13277 ENDIF
13278 20 CONTINUE
13279 ARG = (1./ALFA0+B1)/(1./AS0+B1)
13280 IF(ARG.LE.0.) THEN
13281 ALPHAR = 100.
13282 IERR = 1
13283 RETURN
13284 ELSE
13285 TERM = TERM0+B1*LOG(ARG)
13286 IF(TERM.LE.0) THEN
13287 ALPHAR = 100.
13288 IERR = 1
13289 RETURN
13290 ELSE
13291 ALFA1 = 1./TERM
13292 ENDIF
13293 ENDIF
13294 IF(ABS(ALFA1-ALFA0).GT.1.E-6) THEN
13295 ALFA0 = ALFA1
13296 GOTO 20
13297 ENDIF
13298
13299 ALPHAR = ALFA1
13300
13301 RETURN
13302 END
13303
13304C ==============================================================
13305 DOUBLE PRECISION FUNCTION ALPHAR_OLD(QSQ,QS0,AS0,NF,IORD,IERR)
13306C ==============================================================
13307
13308 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13309
13310C-----MARCHIANO: ALPHAS FROM RGE GIVEN AS0 AT QS0
13311C-----This routine uses an incorrect truncation -->
13312C-----alpha_s is about 0.4% too low.
13313
13314 DATA PI / 3.1415927 /
13315
13316 QMU = SQRT(QSQ)
13317 QM0 = SQRT(QS0)
13318
13319 B3 = -(11.-2.*NF/3.)/(2.*PI)
13320 B33 = -(51.-19.*NF/3.)/(4.*PI*PI)
13321 B333 = -(2857.-5033.*NF/9.+325.*NF*NF/27.)/(64.*PI*PI*PI)
13322 IERR = 0
13323
13324 TERM0 = 1./AS0-B3*LOG(QMU/QM0)
13325 ALFA0 = 1./TERM0
13326 IF(IORD.EQ.1) THEN
13327 ALPHAR_OLD = ALFA0
13328 RETURN
13329 ENDIF
13330 20 CONTINUE
13331 TERM = TERM0-B33*LOG(ALFA0/AS0)/B3
13332 IF(IORD.EQ.3) TERM = TERM-(B333*B3-B33*B33)*(ALFA0-AS0)/(B3*B3)
13333 ALFA1 = 1./TERM
13334 IF(ABS(ALFA1-ALFA0).GT.1.E-6) THEN
13335 ALFA0 = ALFA1
13336 GOTO 20
13337 ENDIF
13338
13339 ALPHAR_OLD = ALFA1
13340
13341 RETURN
13342 END
13343
13344CDECK ID>, Q_LAMB2.
13345
13346C ==================================================
13347 DOUBLE PRECISION FUNCTION Q_LAMB2(QS0,AS0,NF,IORD)
13348C ==================================================
13349
13350 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13351
13352C-- Calculate lambda**2 given AS0 at QS0
13353
13354 DATA PI / 3.14159265359 /
13355
13356 BET0 = 11.-2*NF/3.
13357 BET1 = 102.-38*NF/3.
13358 AS = AS0/(4.*PI)
13359
13360 Q_LAMB2 = QS0*EXP(-1./(BET0*AS))
13361
13362 IF(IORD.EQ.1) RETURN
13363
13364 ARG = 1. + BET0/(BET1*AS)
13365 POW = BET1/(BET0*BET0)
13366 Q_LAMB2 = Q_LAMB2*ARG**POW
13367
13368 RETURN
13369 END
13370
13371CDECK ID>, QHEAVY.
13372
13373c Heavy quark structure functions.
13374c Heavy quark coefficient functions up to NLO are taken from the code
13375c of S. Riemersma. For reference, see S. Riemersma, J. Smith and
13376c W.L. van Neerven, Phys. Lett. B347(1995)143.
13377
13378CDECK ID>, GET_FKH.
13379
13380C =====================================================
13381 DOUBLE PRECISION FUNCTION GET_FKH(IDF,ID,IX0,IQ,IERR)
13382C =====================================================
13383 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13384
13385C-- Input: IDF = 4,5,6,7 for F2c,Flc,F2b,Flb
13386C-- Input: ID parton distribution identifier
13387C-- IX0 x gridpoint of heavy quark grid
13388C-- IQ Q2 gridpoint
13389C-- Output: IERR = 0 FKH successfully calculated
13390C-- = 1 Fast calculation
13391C-- = -1 Scale mu outside grid
13392
13393
13394 COMMON/QCCONS/
13395 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13396 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13397 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13398 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13399 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13400 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13401
13402
13403
13404 LOGICAL
13405 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
13406 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
13407 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
13408 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
13409 +LFFCAL,LASOLD
13410
13411 COMMON/QCFLAG/
13412 +IORD,IOLAST,
13413 +LDOUBL,LBMARK,LWF2C,LWF2B,LWFLC,LWFLB,
13414 +LW1ANA,LW1NUM,LW2NUM,LW2STF,LIMCK,LPLUS,
13415 +LALFOK,LDQ2OK,LWT1OK,LWT2OK,
13416 +LWTFOK,LWFCOK,LWLCOK,LWFBOK,LWLBOK,LMARK,LCLOWQ,
13417 +LFFCAL(7,30),LASOLD
13418
13419
13420 CHARACTER*5 PNAM,STFNAM
13421 LOGICAL LNFP
13422 COMMON /QCLNFP/ LNFP(0:30,3:5)
13423 COMMON /QCPNAM/ PNAM(0:30)
13424 COMMON /QCPWGT/ PWGT(0:10,0:30,3:5)
13425 COMMON /QCFNAM/ STFNAM(7)
13426
13427
13428 PARAMETER ( MXX = 410 )
13429 PARAMETER ( MQ2 = 120 )
13430
13431C-- Do not set the following parameter to zero!
13432 PARAMETER ( NDFMAX = 20)
13433
13434
13435 COMMON/QCGRID/
13436 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
13437 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
13438 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
13439 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
13440
13441
13442 REAL
13443 +WH_C0KG,WH_C1KG,WH_C1BKG,
13444 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
13445
13446 COMMON/QCHWGT/
13447 +WH_C0KG(0:MXX,MQ2,4:7),
13448 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
13449 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
13450 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
13451
13452
13453 COMMON/QCPASS/
13454 +ALPHA0, Q0ALFA, ASLAST, QALAST,
13455 +ALFASQ(MQ2), ALFAPQ(MQ2), ALFA2Q(MQ2),
13456 +DELUP(MQ2), DELDN(MQ2), PDFQCD(MXX,MQ2,0:10),
13457 +FNSQCD(MXX,MQ2),DNSQCD(MXX,MQ2),
13458 +FSIQCD(MXX,MQ2),DSIQCD(MXX,MQ2),
13459 +FGLQCD(MXX,MQ2),DGGQCD(MXX,MQ2),
13460 +FSTORE(MXX,MQ2,31:30+NDFMAX),IDFAST(7,30),NDFAST,
13461 +MARKFF(MXX,MQ2),MARKFH(MXX,MQ2),MARKQQ(MQ2),
13462 +ISTFID(31:30+NDFMAX),IPDFID(31:30+NDFMAX),IEALFA(MQ2),
13463 +IQL_LAST(10),IQ0_LAST(10),IQH_LAST(10)
13464
13465 LOGICAL LEVDONE,LE_DONE
13466 COMMON/QCLEVL/
13467 +LEVDONE(MXX,10),LE_DONE(MXX)
13468
13469
13470C-- Correct quark mass
13471 QMASS = CBMSTF(IDF)
13472 CCCC = CHARGE(IDF)
13473
13474 GET_FKH = 0.
13475
13476 IF(LFFCAL(IDF,ID)) THEN
13477 IERR = 1
13478 JD = IDFAST(IDF,ID)
13479 GET_FKH = FSTORE(IX0,IQ,JD)
13480 IF(GET_FKH.GE.-99.) RETURN
13481 ENDIF
13482
13483 QMU = Q2TAB(IQ)*AAM2H + BBM2H
13484 IMU = MIN(ABS(IQFROMQ(QMU)),NQ2-1)
13485 IF(IMU.EQ.0) THEN
13486 IERR = -1
13487 RETURN
13488 ENDIF
13489 QR2 = QMU*AAAR2 + BBBR2
13490 IR2 = MIN(ABS(IQFROMQ(QR2)),NQ2-1)
13491 IF(IR2.EQ.0) THEN
13492 IERR = -1
13493 RETURN
13494 ENDIF
13495
13496 IERR = 0
13497 TQ = LOG(QMU/Q2TAB(IMU))/LOG(Q2TAB(IMU+1)/Q2TAB(IMU))
13498 TR = LOG(QR2/Q2TAB(IR2))/LOG(Q2TAB(IR2+1)/Q2TAB(IR2))
13499
13500 IF(IORD.EQ.1) THEN
13501
13502 FF = 0.
13503 DO IX = IX0,NXX
13504 IXL = IHTAB(IX)
13505 X = XHTAB(IX)
13506 TX = (X-XXTAB(IXL))/(XXTAB(IXL+1)-XXTAB(IXL))
13507 GL = GET_PDFXQ(0,IXL,IMU,TX,TQ)
13508 FF = FF + WH_C0KG(IX-IX0,IQ,IDF)*GL
13509 ENDDO
13510 GET_FKH = CCCC * GET_AS(IR2,TR) * FF
13511
13512 ELSE
13513
13514 AS = GET_AS(IR2,TR)
13515 F1 = 0.
13516 F2 = 0.
13517 F3 = 0.
13518 F4 = 0.
13519 FACT = LOG(QMU/(QMASS*QMASS))
13520 DO IX = IX0,NXX
13521 IXL = IHTAB(IX)
13522 X = XHTAB(IX)
13523 TX = (X-XXTAB(IXL))/(XXTAB(IXL+1)-XXTAB(IXL))
13524 GL = GET_PDFXQ( 0,IXL,IMU,TX,TQ)
13525 SI = GET_PDFXQ( 1,IXL,IMU,TX,TQ)
13526 QU = GET_PDFXQ(ID,IXL,IMU,TX,TQ)
13527 I = IX-IX0
13528 F1 = F1 + WH_C0KG(I,IQ,IDF)*GL
13529 F2 = F2 + (WH_C1KG(I,IQ,IDF)+WH_C1BKG(I,IQ,IDF)*FACT)*GL
13530 F3 = F3 + (WH_C1KQ(I,IQ,IDF)+WH_C1BKQ(I,IQ,IDF)*FACT)*SI
13531 F4 = F4 + (WH_D1KQ(I,IQ,IDF)+WH_D1BKQ(I,IQ,IDF)*FACT)*QU
13532 ENDDO
13533 GET_FKH = CCCC * (AS*F1+AS*AS*(F2+F3)) + AS*AS*F4
13534 ENDIF
13535
13536 RETURN
13537 END
13538
13539CDECK ID>, FIL_F2H.
13540
13541C =======================
13542 SUBROUTINE FIL_F2H(IDF)
13543C =======================
13544
13545 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13546
13547 EXTERNAL C02G_FUN, C12G_FUN, C1B2G_FUN
13548 EXTERNAL C12Q_FUN, C1B2Q_FUN
13549 EXTERNAL D12Q_FUN, D1B2Q_FUN
13550
13551 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13552
13553
13554 COMMON/QCCONS/
13555 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13556 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13557 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13558 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13559 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13560 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13561
13562
13563
13564 PARAMETER ( MXX = 410 )
13565 PARAMETER ( MQ2 = 120 )
13566
13567C-- Do not set the following parameter to zero!
13568 PARAMETER ( NDFMAX = 20)
13569
13570
13571 COMMON/QCGRID/
13572 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
13573 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
13574 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
13575 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
13576
13577
13578 REAL
13579 +WH_C0KG,WH_C1KG,WH_C1BKG,
13580 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
13581
13582 COMMON/QCHWGT/
13583 +WH_C0KG(0:MXX,MQ2,4:7),
13584 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
13585 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
13586 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
13587
13588
13589 QMASS = CBMSTF(IDF)
13590
13591 EGAUSS = 0.001
13592
13593 DO 400 IQ = 1,NQ2
13594
13595 QPCG = Q2TAB(IQ)
13596 APCG = 1.+4.*QMASS*QMASS/QPCG
13597
13598 IX0 = 1
13599 X0 = XHTAB(IX0)
13600
13601* WRITE(6,'('' Calculate F2H weights for IX ='',I4)') IX0
13602
13603 DO 200 IX = IX0,NXX
13604
13605 XI = XHTAB(IX)
13606 XIP1 = XHTAB(IX+1)
13607 IF(IX.GT.IX0) XIM1 = XHTAB(IX-1)
13608 IF(XIP1.LE.X0*APCG) GOTO 200
13609 XI = MAX(XI,X0*APCG)
13610 SIP1 = X0/XIP1
13611 SI = X0/XI
13612
13613 CALL S1FUNC(C02G_FUN,SIP1,SI,S1FUN)
13614 IF(IX.EQ.IX0) THEN
13615 WH_C0KG(IX-IX0,IQ,IDF) = S1FUN
13616 ELSE
13617 SIM1 = X0/XIM1
13618 CALL S2FUNC(C02G_FUN,SI,SIM1,S2FUN)
13619 WH_C0KG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13620 ENDIF
13621
13622 CALL S1FUNC(C12G_FUN,SIP1,SI,S1FUN)
13623 IF(IX.EQ.IX0) THEN
13624 WH_C1KG(IX-IX0,IQ,IDF) = S1FUN
13625 ELSE
13626 SIM1 = X0/XIM1
13627 CALL S2FUNC(C12G_FUN,SI,SIM1,S2FUN)
13628 WH_C1KG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13629 ENDIF
13630
13631 CALL S1FUNC(C1B2G_FUN,SIP1,SI,S1FUN)
13632 IF(IX.EQ.IX0) THEN
13633 WH_C1BKG(IX-IX0,IQ,IDF) = S1FUN
13634 ELSE
13635 SIM1 = X0/XIM1
13636 CALL S2FUNC(C1B2G_FUN,SI,SIM1,S2FUN)
13637 WH_C1BKG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13638 ENDIF
13639
13640 CALL S1FUNC(C12Q_FUN,SIP1,SI,S1FUN)
13641 IF(IX.EQ.IX0) THEN
13642 WH_C1KQ(IX-IX0,IQ,IDF) = S1FUN
13643 ELSE
13644 SIM1 = X0/XIM1
13645 CALL S2FUNC(C12Q_FUN,SI,SIM1,S2FUN)
13646 WH_C1KQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13647 ENDIF
13648
13649 CALL S1FUNC(C1B2Q_FUN,SIP1,SI,S1FUN)
13650 IF(IX.EQ.IX0) THEN
13651 WH_C1BKQ(IX-IX0,IQ,IDF) = S1FUN
13652 ELSE
13653 SIM1 = X0/XIM1
13654 CALL S2FUNC(C1B2Q_FUN,SI,SIM1,S2FUN)
13655 WH_C1BKQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13656 ENDIF
13657
13658 CALL S1FUNC(D12Q_FUN,SIP1,SI,S1FUN)
13659 IF(IX.EQ.IX0) THEN
13660 WH_D1KQ(IX-IX0,IQ,IDF) = S1FUN
13661 ELSE
13662 SIM1 = X0/XIM1
13663 CALL S2FUNC(D12Q_FUN,SI,SIM1,S2FUN)
13664 WH_D1KQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13665 ENDIF
13666
13667 CALL S1FUNC(D1B2Q_FUN,SIP1,SI,S1FUN)
13668 IF(IX.EQ.IX0) THEN
13669 WH_D1BKQ(IX-IX0,IQ,IDF) = S1FUN
13670 ELSE
13671 SIM1 = X0/XIM1
13672 CALL S2FUNC(D1B2Q_FUN,SI,SIM1,S2FUN)
13673 WH_D1BKQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
13674 ENDIF
13675
13676 200 CONTINUE
13677
13678 400 CONTINUE
13679
13680 RETURN
13681 END
13682
13683CDECK ID>, C02G_FUN.
13684
13685C =====================================
13686 DOUBLE PRECISION FUNCTION C02G_FUN(X)
13687C =====================================
13688 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13689
13690 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13691
13692 DATA PI /3.14159265359/
13693
13694 FACTOR = QMASS*QMASS/QPCG
13695 C02G = 0.
13696 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13697 XI = 1./FACTOR
13698 ETA = XI * (1.-X)/(4.*X) - 1.
13699 C02G = (C0_LG(ETA,XI)+C0_TG(ETA,XI)) * XI / (2.*PI)
13700 ENDIF
13701 C02G_FUN = (X-YWGT)*C02G/(X*X)
13702
13703 RETURN
13704 END
13705
13706CDECK ID>, C12G_FUN.
13707
13708C =====================================
13709 DOUBLE PRECISION FUNCTION C12G_FUN(X)
13710C =====================================
13711 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13712
13713
13714 COMMON/QCCONS/
13715 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13716 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13717 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13718 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13719 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13720 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13721
13722
13723
13724 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13725
13726 FACTOR = QMASS*QMASS/QPCG
13727 C12G = 0.
13728 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13729 XI = 1./FACTOR
13730 ETA = XI * (1.-X)/(4.*X) - 1.
13731 BET = SQRT(ETA/(1.+ETA))
13732 RHO = 1./(1.+ETA)
13733 C12G = CATF * (H1_ALG(ETA,XI)+H1_ATG(ETA,XI)) +
13734 + CFTF * (H1_FLG(ETA,XI)+H1_FTG(ETA,XI)) +
13735 + CATF * BET * (GFUN_L(ETA,XI)+GFUN_T(ETA,XI)) +
13736 + CATF * RHO * (EFUN_LA(ETA,XI)+EFUN_TA(ETA,XI)) +
13737 + CFTF * RHO * (EFUN_LF(ETA,XI)+EFUN_TF(ETA,XI))
13738 C12G = C12G*4.*PI/FACTOR
13739 ENDIF
13740 C12G_FUN = (X-YWGT)*C12G/(X*X)
13741
13742 RETURN
13743 END
13744
13745CDECK ID>, C1B2G_FUN.
13746
13747C ======================================
13748 DOUBLE PRECISION FUNCTION C1B2G_FUN(X)
13749C ======================================
13750 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13751
13752
13753 COMMON/QCCONS/
13754 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13755 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13756 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13757 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13758 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13759 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13760
13761
13762
13763 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13764
13765 FACTOR = QMASS*QMASS/QPCG
13766 C1B2G = 0.
13767 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13768 XI = 1./FACTOR
13769 ETA = XI * (1.-X)/(4.*X) - 1.
13770 BET = SQRT(ETA/(1.+ETA))
13771 RHO = 1./(1.+ETA)
13772 C1B2G = CATF * (H1BAR_LG(ETA,XI)+H1BAR_TG(ETA,XI)) +
13773 + CATF * BET * (GBAR_L(ETA,XI)+GBAR_T(ETA,XI)) +
13774 + CATF * RHO * (EBAR_LA(ETA,XI)+EBAR_TA(ETA,XI))
13775 C1B2G = C1B2G*4.*PI/FACTOR
13776 ENDIF
13777 C1B2G_FUN = (X-YWGT)*C1B2G/(X*X)
13778
13779 RETURN
13780 END
13781
13782CDECK ID>, C12Q_FUN.
13783
13784C =====================================
13785 DOUBLE PRECISION FUNCTION C12Q_FUN(X)
13786C =====================================
13787 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13788
13789
13790 COMMON/QCCONS/
13791 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13792 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13793 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13794 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13795 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13796 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13797
13798
13799
13800 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13801
13802 FACTOR = QMASS*QMASS/QPCG
13803 C12Q = 0.
13804 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13805 XI = 1./FACTOR
13806 ETA = XI * (1.-X)/(4.*X) - 1.
13807 BET = SQRT(ETA/(1.+ETA))
13808 BET3 = BET*BET*BET
13809 RHO = 1./(1.+ETA)
13810 C12Q = CFTF * (H1_HLQ(ETA,XI)+H1_HTQ(ETA,XI)) +
13811 + CFTF * BET3 * (GFUN_L(ETA,XI)+GFUN_T(ETA,XI))
13812 C12Q = C12Q*4.*PI/FACTOR
13813 ENDIF
13814 C12Q_FUN = (X-YWGT)*C12Q/(X*X)
13815
13816 RETURN
13817 END
13818
13819CDECK ID>, C1B2Q_FUN.
13820
13821C ======================================
13822 DOUBLE PRECISION FUNCTION C1B2Q_FUN(X)
13823C ======================================
13824 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13825
13826
13827 COMMON/QCCONS/
13828 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13829 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13830 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13831 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13832 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13833 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13834
13835
13836
13837 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13838
13839 FACTOR = QMASS*QMASS/QPCG
13840 C1B2Q = 0.
13841 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13842 XI = 1./FACTOR
13843 ETA = XI * (1.-X)/(4.*X) - 1.
13844 BET = SQRT(ETA/(1.+ETA))
13845 BET3 = BET*BET*BET
13846 RHO = 1./(1.+ETA)
13847 C1B2Q = CFTF * (H1BAR_HLQ(ETA,XI)+H1BAR_HTQ(ETA,XI)) +
13848 + CFTF * BET3 * (GBAR_L(ETA,XI)+GBAR_T(ETA,XI))
13849 C1B2Q = C1B2Q*4.*PI/FACTOR
13850 ENDIF
13851 C1B2Q_FUN = (X-YWGT)*C1B2Q/(X*X)
13852
13853 RETURN
13854 END
13855
13856CDECK ID>, D12Q_FUN.
13857
13858C =====================================
13859 DOUBLE PRECISION FUNCTION D12Q_FUN(X)
13860C =====================================
13861 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13862
13863
13864 COMMON/QCCONS/
13865 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13866 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13867 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13868 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13869 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13870 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13871
13872
13873
13874 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13875
13876 FACTOR = QMASS*QMASS/QPCG
13877 D12Q = 0.
13878 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13879 XI = 1./FACTOR
13880 ETA = XI * (1.-X)/(4.*X) - 1.
13881 IF(QPCG.LE.1.5) THEN
13882 D12Q = CFTF * (H1F_LLQ(ETA,XI)+H1F_LTQ(ETA,XI))
13883 ELSE
13884 D12Q = CFTF * (H1_LLQ(ETA,XI)+H1_LTQ(ETA,XI))
13885 ENDIF
13886 D12Q = D12Q*4.*PI/FACTOR
13887 ENDIF
13888 D12Q_FUN = (X-YWGT)*D12Q/(X*X)
13889
13890 RETURN
13891 END
13892
13893CDECK ID>, D1B2Q_FUN.
13894
13895C ======================================
13896 DOUBLE PRECISION FUNCTION D1B2Q_FUN(X)
13897C ======================================
13898 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13899
13900
13901 COMMON/QCCONS/
13902 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13903 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13904 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13905 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13906 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13907 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13908
13909
13910
13911 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13912
13913 FACTOR = QMASS*QMASS/QPCG
13914 D1B2Q = 0.
13915 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
13916 XI = 1./FACTOR
13917 ETA = XI * (1.-X)/(4.*X) - 1.
13918 IF(QPCG.LE.1.5) THEN
13919 D1B2Q = CFTF * H1BAR_LTQ(ETA,XI)
13920 ELSE
13921 D1B2Q = 0.
13922 ENDIF
13923 D1B2Q = D1B2Q*4.*PI/FACTOR
13924 ENDIF
13925 D1B2Q_FUN = (X-YWGT)*D1B2Q/(X*X)
13926
13927 RETURN
13928 END
13929
13930CDECK ID>, FIL_FLH.
13931
13932C =======================
13933 SUBROUTINE FIL_FLH(IDF)
13934C =======================
13935
13936 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
13937
13938 EXTERNAL C0LG_FUN, C1LG_FUN, C1BLG_FUN
13939 EXTERNAL C1LQ_FUN, C1BLQ_FUN
13940 EXTERNAL D1LQ_FUN, D1BLQ_FUN
13941
13942 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
13943
13944
13945 COMMON/QCCONS/
13946 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
13947 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
13948 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
13949 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
13950 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
13951 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
13952
13953
13954
13955 PARAMETER ( MXX = 410 )
13956 PARAMETER ( MQ2 = 120 )
13957
13958C-- Do not set the following parameter to zero!
13959 PARAMETER ( NDFMAX = 20)
13960
13961
13962 COMMON/QCGRID/
13963 +SCAX0,SCAQ0,XMICUT,QMICUT,QMACUT,RS2CUT,QMINAS,
13964 +XXTAB(MXX),Q2TAB(MQ2),XHTAB(MXX),THRS34,THRS45,
13965 +NXX,NQ2,NGRVER,IHTAB(MXX),NFMAP(MQ2),IQF2C(MQ2),
13966 +IQF2B(MQ2),IQFLC(MQ2),IQFLB(MQ2),IFAILC(MXX,MQ2)
13967
13968
13969 REAL
13970 +WH_C0KG,WH_C1KG,WH_C1BKG,
13971 +WH_C1KQ,WH_C1BKQ,WH_D1KQ,WH_D1BKQ
13972
13973 COMMON/QCHWGT/
13974 +WH_C0KG(0:MXX,MQ2,4:7),
13975 +WH_C1KG(0:MXX,MQ2,4:7),WH_C1BKG(0:MXX,MQ2,4:7),
13976 +WH_C1KQ(0:MXX,MQ2,4:7),WH_C1BKQ(0:MXX,MQ2,4:7),
13977 +WH_D1KQ(0:MXX,MQ2,4:7),WH_D1BKQ(0:MXX,MQ2,4:7)
13978
13979
13980 QMASS = CBMSTF(IDF)
13981
13982 EGAUSS = 0.001
13983
13984 DO 400 IQ = 1,NQ2
13985
13986 QPCG = Q2TAB(IQ)
13987 APCG = 1.+4.*QMASS*QMASS/QPCG
13988
13989 IX0 = 1
13990 X0 = XHTAB(IX0)
13991
13992* WRITE(6,'('' Calculate FLH weights for IX ='',I4)') IX0
13993
13994 DO 200 IX = IX0,NXX
13995
13996 XI = XHTAB(IX)
13997 XIP1 = XHTAB(IX+1)
13998 IF(IX.GT.IX0) XIM1 = XHTAB(IX-1)
13999 IF(XIP1.LE.X0*APCG) GOTO 200
14000 XI = MAX(XI,X0*APCG)
14001 SIP1 = X0/XIP1
14002 SI = X0/XI
14003
14004 CALL S1FUNC(C0LG_FUN,SIP1,SI,S1FUN)
14005 IF(IX.EQ.IX0) THEN
14006 WH_C0KG(IX-IX0,IQ,IDF) = S1FUN
14007 ELSE
14008 SIM1 = X0/XIM1
14009 CALL S2FUNC(C0LG_FUN,SI,SIM1,S2FUN)
14010 WH_C0KG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14011 ENDIF
14012
14013 CALL S1FUNC(C1LG_FUN,SIP1,SI,S1FUN)
14014 IF(IX.EQ.IX0) THEN
14015 WH_C1KG(IX-IX0,IQ,IDF) = S1FUN
14016 ELSE
14017 SIM1 = X0/XIM1
14018 CALL S2FUNC(C1LG_FUN,SI,SIM1,S2FUN)
14019 WH_C1KG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14020 ENDIF
14021
14022 CALL S1FUNC(C1BLG_FUN,SIP1,SI,S1FUN)
14023 IF(IX.EQ.IX0) THEN
14024 WH_C1BKG(IX-IX0,IQ,IDF) = S1FUN
14025 ELSE
14026 SIM1 = X0/XIM1
14027 CALL S2FUNC(C1BLG_FUN,SI,SIM1,S2FUN)
14028 WH_C1BKG(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14029 ENDIF
14030
14031 CALL S1FUNC(C1LQ_FUN,SIP1,SI,S1FUN)
14032 IF(IX.EQ.IX0) THEN
14033 WH_C1KQ(IX-IX0,IQ,IDF) = S1FUN
14034 ELSE
14035 SIM1 = X0/XIM1
14036 CALL S2FUNC(C1LQ_FUN,SI,SIM1,S2FUN)
14037 WH_C1KQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14038 ENDIF
14039
14040 CALL S1FUNC(C1BLQ_FUN,SIP1,SI,S1FUN)
14041 IF(IX.EQ.IX0) THEN
14042 WH_C1BKQ(IX-IX0,IQ,IDF) = S1FUN
14043 ELSE
14044 SIM1 = X0/XIM1
14045 CALL S2FUNC(C1BLQ_FUN,SI,SIM1,S2FUN)
14046 WH_C1BKQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14047 ENDIF
14048
14049 CALL S1FUNC(D1LQ_FUN,SIP1,SI,S1FUN)
14050 IF(IX.EQ.IX0) THEN
14051 WH_D1KQ(IX-IX0,IQ,IDF) = S1FUN
14052 ELSE
14053 SIM1 = X0/XIM1
14054 CALL S2FUNC(D1LQ_FUN,SI,SIM1,S2FUN)
14055 WH_D1KQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14056 ENDIF
14057
14058* CALL S1FUNC(D1BLQ_FUN,SIP1,SI,S1FUN)
14059* IF(IX.EQ.IX0) THEN
14060* WH_D1BKQ(IX-IX0,IQ,IDF) = S1FUN
14061* ELSE
14062* SIM1 = X0/XIM1
14063* CALL S2FUNC(D1BLQ_FUN,SI,SIM1,S2FUN)
14064* WH_D1BKQ(IX-IX0,IQ,IDF) = S1FUN-S2FUN
14065* ENDIF
14066 WH_D1BKQ(IX-IX0,IQ,IDF) = 0.
14067
14068 200 CONTINUE
14069
14070 400 CONTINUE
14071
14072 RETURN
14073 END
14074
14075CDECK ID>, C0LG_FUN.
14076
14077C =====================================
14078 DOUBLE PRECISION FUNCTION C0LG_FUN(X)
14079C =====================================
14080 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14081
14082 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14083
14084 DATA PI /3.14159265359/
14085
14086 FACTOR = QMASS*QMASS/QPCG
14087 C0LG = 0.
14088 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14089 XI = 1./FACTOR
14090 ETA = XI * (1.-X)/(4.*X) - 1.
14091 C0LG = C0_LG(ETA,XI) * XI / (2.*PI)
14092 ENDIF
14093 C0LG_FUN = (X-YWGT)*C0LG/(X*X)
14094
14095 RETURN
14096 END
14097
14098CDECK ID>, C1LG_FUN.
14099
14100C =====================================
14101 DOUBLE PRECISION FUNCTION C1LG_FUN(X)
14102C =====================================
14103 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14104
14105
14106 COMMON/QCCONS/
14107 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14108 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14109 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14110 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14111 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14112 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14113
14114
14115
14116 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14117
14118 FACTOR = QMASS*QMASS/QPCG
14119 C1LG = 0.
14120 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14121 XI = 1./FACTOR
14122 ETA = XI * (1.-X)/(4.*X) - 1.
14123 BET = SQRT(ETA/(1.+ETA))
14124 RHO = 1./(1.+ETA)
14125 C1LG = CATF * H1_ALG(ETA,XI) +
14126 + CFTF * H1_FLG(ETA,XI) +
14127 + CATF * BET * GFUN_L(ETA,XI) +
14128 + CATF * RHO * EFUN_LA(ETA,XI) +
14129 + CFTF * RHO * EFUN_LF(ETA,XI)
14130 C1LG = C1LG*4.*PI/FACTOR
14131 ENDIF
14132 C1LG_FUN = (X-YWGT)*C1LG/(X*X)
14133
14134 RETURN
14135 END
14136
14137CDECK ID>, C1BLG_FUN.
14138
14139C ======================================
14140 DOUBLE PRECISION FUNCTION C1BLG_FUN(X)
14141C ======================================
14142 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14143
14144
14145 COMMON/QCCONS/
14146 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14147 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14148 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14149 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14150 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14151 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14152
14153
14154
14155 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14156
14157 FACTOR = QMASS*QMASS/QPCG
14158 C1BLG = 0.
14159 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14160 XI = 1./FACTOR
14161 ETA = XI * (1.-X)/(4.*X) - 1.
14162 BET = SQRT(ETA/(1.+ETA))
14163 RHO = 1./(1.+ETA)
14164 C1BLG = CATF * H1BAR_LG(ETA,XI) +
14165 + CATF * BET * GBAR_L(ETA,XI) +
14166 + CATF * RHO * EBAR_LA(ETA,XI)
14167 C1BLG = C1BLG*4.*PI/FACTOR
14168 ENDIF
14169 C1BLG_FUN = (X-YWGT)*C1BLG/(X*X)
14170
14171 RETURN
14172 END
14173
14174CDECK ID>, C1LQ_FUN.
14175
14176C =====================================
14177 DOUBLE PRECISION FUNCTION C1LQ_FUN(X)
14178C =====================================
14179 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14180
14181
14182 COMMON/QCCONS/
14183 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14184 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14185 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14186 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14187 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14188 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14189
14190
14191
14192 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14193
14194 FACTOR = QMASS*QMASS/QPCG
14195 C1LQ = 0.
14196 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14197 XI = 1./FACTOR
14198 ETA = XI * (1.-X)/(4.*X) - 1.
14199 BET = SQRT(ETA/(1.+ETA))
14200 BET3 = BET*BET*BET
14201 RHO = 1./(1.+ETA)
14202 C1LQ = CFTF * H1_HLQ(ETA,XI) +
14203 + CFTF * BET3 * GFUN_L(ETA,XI)
14204 C1LQ = C1LQ*4.*PI/FACTOR
14205 ENDIF
14206 C1LQ_FUN = (X-YWGT)*C1LQ/(X*X)
14207
14208 RETURN
14209 END
14210
14211CDECK ID>, C1BLQ_FUN.
14212
14213C ======================================
14214 DOUBLE PRECISION FUNCTION C1BLQ_FUN(X)
14215C ======================================
14216 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14217
14218
14219 COMMON/QCCONS/
14220 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14221 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14222 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14223 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14224 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14225 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14226
14227
14228
14229 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14230
14231 FACTOR = QMASS*QMASS/QPCG
14232 C1BLQ = 0.
14233 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14234 XI = 1./FACTOR
14235 ETA = XI * (1.-X)/(4.*X) - 1.
14236 BET = SQRT(ETA/(1.+ETA))
14237 BET3 = BET*BET*BET
14238 RHO = 1./(1.+ETA)
14239 C1BLQ = CFTF * H1BAR_HLQ(ETA,XI) +
14240 + CFTF * BET3 * GBAR_L(ETA,XI)
14241 C1BLQ = C1BLQ*4.*PI/FACTOR
14242 ENDIF
14243 C1BLQ_FUN = (X-YWGT)*C1BLQ/(X*X)
14244
14245 RETURN
14246 END
14247
14248CDECK ID>, D1LQ_FUN.
14249
14250C =====================================
14251 DOUBLE PRECISION FUNCTION D1LQ_FUN(X)
14252C =====================================
14253 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14254
14255
14256 COMMON/QCCONS/
14257 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14258 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14259 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14260 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14261 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14262 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14263
14264
14265
14266 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14267
14268 FACTOR = QMASS*QMASS/QPCG
14269 D1LQ = 0.
14270 IF(X.LT.(1./(1.+4.*FACTOR))) THEN
14271 XI = 1./FACTOR
14272 ETA = XI * (1.-X)/(4.*X) - 1.
14273 IF(QPCG.LE.1.5) THEN
14274 D1LQ = CFTF * H1F_LLQ(ETA,XI)
14275 ELSE
14276 D1LQ = CFTF * H1_LLQ(ETA,XI)
14277 ENDIF
14278 D1LQ = D1LQ*4.*PI/FACTOR
14279 ENDIF
14280 D1LQ_FUN = (X-YWGT)*D1LQ/(X*X)
14281
14282 RETURN
14283 END
14284
14285CDECK ID>, D1BLQ_FUN.
14286
14287C ======================================
14288 DOUBLE PRECISION FUNCTION D1BLQ_FUN(X)
14289C ======================================
14290 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
14291
14292
14293 COMMON/QCCONS/
14294 +PI,PROTON,EUTRON,UCLEON,UDSCBT(6),AAM2H,BBM2H,AAM2L,BBM2L,
14295 +AAAR2,BBBR2,FL_FAC,CBMSTF(4:7),CHARGE(4:7),
14296 +C1S3,C2S3,C4S3,C5S3,C8S3,C11S3,C14S3,C16S3,C20S3,C22S3,C28S3,
14297 +C38S3,C40S3,C44S3,C52S3,C136S3,C11S6,C2S9,C4S9,C10S9,C14S9,C16S9,
14298 +C40S9,C44S9,C62S9,C112S9,C182S9,C11S12,C35S18,C61S12,C215S1,
14299 +C29S12,CPI2S3,CPIA,CPIB,CPIC,CPID,CPIE,CPIF,CCA,CCF,CTF,CATF,CFTF
14300
14301
14302
14303 COMMON /QCWGTC/ YWGT,QPCG,QMASS,EGAUSS,NF
14304
14305 D1BLQ_FUN = 0.
14306
14307 RETURN
14308 END
14309
14310CDECK ID>, BORN.
14311
14312c This gives the Born coefficients
14313c For QCD take tf = 1d0/2d0, for QED take tf = 1d0.
14314c eta = (s - 4d0*m2)/4d0/m2, s is the gamma* gluon (gamma) CM Energy
14315c xi = Q^2/m2
14316
14317c =======================================
14318 double precision function C0_Lg(eta,xi)
14319c =======================================
14320
14321c Longitudinal coefficient function: PL B347(1995)143 eq. (7).
14322c This function is called born_l in the original code.
14323
14324 implicit none
14325 double precision eta, xi, pi, tf
14326* common/group/ca, cf, tf
14327 parameter(tf = 0.5d0)
14328 parameter(pi = 3.14159265359d0)
14329
14330 C0_Lg = 0.5d0*pi*tf*xi*(1.d0 + eta + 0.25d0*xi)**(-3.d0)*
14331 # (2.d0*dsqrt(eta*(1.d0 + eta)) -
14332 # dlog((dsqrt(1.d0 + eta) + dsqrt(eta))/
14333 # (dsqrt(1.d0 + eta) - dsqrt(eta))))
14334
14335 return
14336 end
14337
14338c =======================================
14339 double precision function C0_Tg(eta,xi)
14340c =======================================
14341
14342c Transverse coefficient function: PL B347(1995)143 eq. (8).
14343c This function is called born_t in the original code.
14344
14345 implicit none
14346 double precision eta, xi, pi, tf
14347* common/group/ca, cf, tf
14348 parameter(tf = 0.5d0)
14349 parameter(pi = 3.14159265359d0)
14350
14351 C0_Tg = 0.5d0*pi*tf*(1.d0 + eta + 0.25d0*xi)**(-3)*
14352 # (-2.d0*((1.d0 + eta - 0.25d0*xi)**2 + eta + 1.d0)*
14353 # dsqrt(eta/(1.d0 + eta)) + (2.d0*(1.d0 + eta)**2 +
14354 # 0.125d0*xi**2 + 2.d0*eta + 1.d0)*
14355 # dlog((dsqrt(1.d0 + eta) + dsqrt(eta))/
14356 # (dsqrt(1.d0 + eta) - dsqrt(eta))))
14357
14358 return
14359 end
14360
14361CDECK ID>, ASYMP.
14362
14363c These are the functions that give the asymptotic dependence of the
14364c coefficient functions with the appropriate factors. xi = mq2/m2 (Q^2/m2)
14365c If xi is small, the regular routines have convergence
14366c problems and we take the limit. (not anymore after code update 03/06/96).
14367
14368c ==========================================
14369 double precision function Gfun_L(dummy,xi)
14370c ==========================================
14371
14372c Longitudinal: equation (19) in PLB347 (1995) 143 - 151
14373c This function is called asymp_l in the original code.
14374
14375 implicit none
14376 double precision xilast, store
14377 double precision dummy
14378 double precision xi, pi, term1
14379 double precision fii, fjj
14380* double precision fii_lim, fjj_lim
14381 parameter (pi = 3.14159265359d0)
14382
14383 save xilast, store
14384
14385 data xilast, store /0.D0, 0.D0/
14386
14387 if(xi.eq.xilast) then
14388 Gfun_L = store
14389 return
14390 endif
14391
14392* term1 = 1.d0/(1.d0 + 0.25d0*xi)
14393
14394* if (xi .le. 1.d-1) then
14395* Gfun_L = 1.d0/6.d0/pi*(-4.d0/3.d0*term1 +
14396* # (1.d0 - 1.d0/6.d0*term1)*fjj_lim(xi) -
14397* # 2.d0* (-1.d0/3.d0 + xi/15.d0 - xi**2/70.d0) +
14398* # 0.25d0*term1*fii_lim(xi) -
14399* # 3.d0* (1.d0/3.d0 - xi/10.d0 + 11.d0*xi**2/420.d0))
14400* else
14401* Gfun_L = 1.d0/6.d0/pi*(4.d0/xi - 4.d0/3.d0*term1
14402* # + (1.d0 - 2.d0/xi - 1.d0/6.d0*term1)*fjj(xi)
14403* # - (3.d0/xi + 0.25d0*term1)*fii(xi))
14404* endif
14405
14406 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14407
14408 Gfun_L = 1.d0/6.d0/pi*(4.d0/xi - 4.d0/3.d0*term1
14409 # + (1.d0 - 2.d0/xi - 1.d0/6.d0*term1)*fjj(xi)
14410 # - (3.d0/xi + 0.25d0*term1)*fii(xi))
14411
14412 xilast = xi
14413 store = Gfun_L
14414
14415 return
14416 end
14417
14418c ==========================================
14419 double precision function Gfun_T(dummy,xi)
14420c ==========================================
14421
14422c Transverse: equation (20) in PLB347 (1995) 143 - 151
14423c This function is called asymp_t in the original code.
14424
14425 implicit none
14426 double precision xilast, store
14427 double precision dummy
14428 double precision xi, pi, term1
14429 double precision fii, fjj
14430* double precision fii_lim, fjj_lim
14431 parameter (pi = 3.14159265359d0)
14432
14433 save xilast, store
14434
14435 data xilast, store /0.D0, 0.D0/
14436
14437 if(xi.eq.xilast) then
14438 Gfun_T = store
14439 return
14440 endif
14441
14442* term1 = 1.d0/(1.d0 + 0.25d0*xi)
14443
14444* if (xi .le. 1.d-1) then
14445* Gfun_T = 1.d0/6.d0/pi*(4.d0/3.d0*term1 + (7.d0/6.d0 +
14446* # 1.d0/6.d0*term1)*fjj_lim(xi) + 1/3.d0*
14447* # (-1.d0/3.d0 + xi/15.d0 - xi**2/70.d0) +
14448* # (1.d0 + 0.25d0*term1)*fii_lim(xi) + 2.d0*
14449* # (1.d0/3.d0 - xi/10.d0 + 11.d0*xi**2/420.d0))
14450* else
14451* Gfun_T = 1.d0/6.d0/pi*(-2.d0/3.d0/xi + 4.d0/3.d0*term1
14452* # + (7.d0/6.d0 + 1.d0/3.d0/xi + 1.d0/6.d0*term1)*fjj(xi)
14453* # + (1.d0 + 2.d0/xi + 0.25d0*term1)*fii(xi))
14454* endif
14455
14456 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14457
14458 Gfun_t = 1.d0/6.d0/pi*(-2.d0/3.d0/xi + 4.d0/3.d0*term1
14459 # + (7.d0/6.d0 + 1.d0/3.d0/xi + 1.d0/6.d0*term1)*fjj(xi)
14460 # + (1.d0 + 2.d0/xi + 0.25d0*term1)*fii(xi))
14461
14462 xilast = xi
14463 store = Gfun_T
14464
14465 return
14466 end
14467
14468c ==========================================
14469 double precision function Gbar_L(dummy,xi)
14470c ==========================================
14471
14472c Longitudinal mass factorization: (21) in PLB347 (1995) 143 - 151
14473c This function is called asympbar_l in the original code.
14474
14475 implicit none
14476 double precision xilast, store
14477 double precision dummy
14478 double precision xi, pi, term1
14479 double precision fjj
14480* double precision fjj_lim
14481 parameter (pi = 3.14159265359d0)
14482
14483 save xilast, store
14484
14485 data xilast, store /0.D0, 0.D0/
14486
14487 if(xi.eq.xilast) then
14488 Gbar_L = store
14489 return
14490 endif
14491
14492* term1 = 1.d0/(1.d0 + 0.25d0*xi)
14493
14494* if (xi .le. 1.d-1) then
14495* Gbar_L = 1.d0/6.d0/pi*(0.5d0*term1 +
14496* # 0.25d0*term1*fjj_lim(xi) +
14497* # 3.d0* (-1.d0/3.d0 + xi/15.d0 - xi**2/70.d0))
14498* else
14499* Gbar_L = 1.d0/6.d0/pi*(-6.d0/xi + 0.5d0*term1
14500* # + (3.d0/xi + 0.25d0*term1)*fjj(xi))
14501* endif
14502
14503 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14504
14505 Gbar_L = 1.d0/6.d0/pi*(-6.d0/xi + 0.5d0*term1
14506 # + (3.d0/xi + 0.25d0*term1)*fjj(xi))
14507
14508 xilast = xi
14509 store = Gbar_L
14510
14511 return
14512 end
14513
14514c ==========================================
14515 double precision function Gbar_T(dummy,xi)
14516c ==========================================
14517
14518c transverse mass factorization: (22) in PLB347 (1995) 143 - 151
14519c This function is called asympbar_t in the original code.
14520
14521 implicit none
14522 double precision xilast, store
14523 double precision dummy
14524 double precision xi, pi, term1
14525 double precision fjj
14526* double precision fjj_lim
14527 parameter (pi = 3.14159265359d0)
14528
14529 save xilast, store
14530
14531 data xilast, store /0.D0, 0.D0/
14532
14533 if(xi.eq.xilast) then
14534 Gbar_T = store
14535 return
14536 endif
14537
14538* term1 = 1.d0/(1.d0 + 0.25d0*xi)
14539
14540* if (xi .le. 1.d-1) then
14541* Gbar_T = 1.d0/6.d0/pi*(-.5d0*term1 -
14542* # (1.d0 + 0.25d0*term1)*fjj_lim(xi) -
14543* # 2.d0* (-1.d0/3.d0 + xi/15.d0 - xi**2/70.d0))
14544* else
14545* Gbar_T = 1.d0/6.d0/pi*(4.d0/xi - 0.5d0*term1
14546* # - (1.d0 + 2.d0/xi + 0.25d0*term1)*fjj(xi))
14547* endif
14548
14549 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14550
14551 Gbar_T = 1.d0/6.d0/pi*(4.d0/xi - 0.5d0*term1
14552 # - (1.d0 + 2.d0/xi + 0.25d0*term1)*fjj(xi))
14553
14554 xilast = xi
14555 store = Gbar_T
14556
14557 return
14558 end
14559
14560c =================================
14561 double precision function fii(xi)
14562c =================================
14563
14564c Equation (24) in PLB347 (1995) 143 - 151
14565
14566 implicit none
14567 double precision pi, term1, term2, xi, di_log
14568 parameter (pi = 3.14159265359d0)
14569
14570 term1 = dsqrt(xi)
14571 term2 = dsqrt(4.d0 + xi)
14572 fii = 4.d0/term1/term2*(-pi*pi/6.d0
14573 # - 0.5d0*(dlog((term2 + term1)/(term2 - term1)))**2
14574 # + (dlog(0.5d0*(1.d0 - term1/term2)))**2
14575 # + 2.d0*di_log(0.5d0*(1.d0 - term1/term2)))
14576
14577 return
14578 end
14579
14580c =================================
14581 double precision function fjj(xi)
14582c =================================
14583
14584c Equation (23) in PLB347 (1995) 143 - 151
14585
14586 implicit none
14587 double precision pi, xi, term1, term2
14588 parameter (pi = 3.14159265359d0)
14589
14590 term1 = dsqrt(xi)
14591 term2 = dsqrt(4.d0 + xi)
14592 fjj = 4.d0/term1/term2*dlog((term2 + term1)/(term2 - term1))
14593
14594 return
14595 end
14596
14597c =====================================
14598 double precision function fii_lim(xi)
14599c =====================================
14600
14601c this gives fii(xi) in the limit that xi -> 0 up to xi**2
14602
14603 implicit none
14604 double precision xi
14605
14606 fii_lim = xi/3.d0 - xi**2/10.d0
14607
14608 return
14609 end
14610
14611c =====================================
14612 double precision function fjj_lim(xi)
14613c =====================================
14614
14615c this gives fjj(xi) in the limit that xi -> 0 up to xi**2
14616
14617 implicit none
14618 double precision xi
14619
14620 fjj_lim = 2.d0 - xi/3.d0 + xi**2/15.d0
14621
14622 return
14623 end
14624
14625c ===================================
14626 double precision function di_log(x)
14627c ===================================
14628
14629c Equation (25) in PLB347 (1995) 143 - 151
14630
14631 implicit double precision (a-z)
14632 dimension b(8)
14633 integer ncall
14634 data ncall/0/,pi6/1.644934066848226d+00/,een,vier/1.d+00,.25d+00/
14635
14636 ncall = 0
14637 if(ncall.eq.0)go to 2
146381 if(x.lt.0)go to 3
14639 if(x.gt.0.5)go to 4
14640 z=-dlog(1.-x)
146417 z2=z*z
14642 di_log=z*(z2*(z2*(z2*(z2*(z2*(z2*(z2*b(8)+b(7))+b(6))
14643 1 +b(5))+b(4))+b(3))+b(2))+een)-z2*vier
14644 if(x.gt.een)di_log=-di_log-.5*u*u+2.*pi6
14645 return
146462 b(1)=een
14647 b(2)=een/36.
14648 b(3)=-een/3600.
14649 b(4)=een/211680.
14650 b(5)=-een/(30.*362880.d+00)
14651 b(6)=5./(66.*39916800.d+00)
14652 b(7)=-691./(2730.*39916800.d+00*156.)
14653 b(8)=een/(39916800.d+00*28080.)
14654 ncall=1
14655 go to 1
146563 if(x.gt.-een)go to 5
14657 y=een/(een-x)
14658 z=-dlog(een-y)
14659 z2=z*z
14660 u=dlog(y)
14661 di_log=z*(z2*(z2*(z2*(z2*(z2*(z2*(z2*b(8)+b(7))+b(6))
14662 1 +b(5))+b(4))+b(3))+b(2))+een)-z2*vier-u*(z+.5*u)-pi6
14663 return
146644 if(x.ge.een)go to 10
14665 y=een-x
14666 z=-dlog(x)
146676 u=dlog(y)
14668 z2=z*z
14669 di_log=-z*(z2*(z2*(z2*(z2*(z2*(z2*(z2*b(8)+b(7))+b(6))
14670 1 +b(5))+b(4))+b(3))+b(2))+een-u)+z2*vier+pi6
14671 if(x.gt.een)di_log=-di_log-.5*z*z+pi6*2.
14672 return
146735 y=een/(een-x)
14674 z=-dlog(y)
14675 z2=z*z
14676 di_log=-z*(z2*(z2*(z2*(z2*(z2*(z2*(z2*b(8)+b(7))+b(6))
14677 1 +b(5))+b(4))+b(3))+b(2))+een)-z2*vier
14678 return
1467910 if(x.eq.een)go to 20
14680 xx=1./x
14681 if(x.gt.2.)go to 11
14682 z=dlog(x)
14683 y=1.-xx
14684 go to 6
1468511 u=dlog(x)
14686 z=-dlog(1.-xx)
14687 go to 7
1468820 di_log=pi6
14689
14690 return
14691 end
14692
14693CDECK ID>, THRESH.
14694
14695c These are the functions that give the threshold dependence of the
14696c coefficient functions with the appropriate factors.
14697c eta = (W^2 - 4d0*m2)/4d0/m2 where W is the CM energy of the
14698c gamma* parton system. xi = mq2/m2 (Q^2/m2)
14699
14700c =========================================
14701 double precision function Efun_LF(eta,xi)
14702c =========================================
14703
14704c Longitudinal CF group structure: eq (13) in PLB347 (195) 143 - 151
14705c This function is called threshf_l in the original code.
14706
14707 implicit none
14708 double precision pi, eta, xi, beta, term1
14709 parameter (pi = 3.14159265359d0)
14710
14711 beta = dsqrt(eta/(1.d0 + eta))
14712 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14713 Efun_LF = 1.d0/6.d0/pi*xi*term1**3*beta*beta*pi*pi/2.d0
14714
14715 return
14716 end
14717
14718c =========================================
14719 double precision function Efun_TF(eta,xi)
14720c =========================================
14721
14722c Transverse CF group structure: eq (14) in PLB347 (195) 143 - 151
14723c This function is called threshf_t in the original code.
14724
14725 implicit none
14726 double precision pi, eta, xi, beta, term1
14727 parameter (pi = 3.14159265359d0)
14728
14729 beta = dsqrt(eta/(1.d0 + eta))
14730 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14731 Efun_TF = 0.25d0/pi*term1*pi*pi/2.d0
14732
14733 return
14734 end
14735
14736c =========================================
14737 double precision function Efun_LA(eta,xi)
14738c =========================================
14739
14740c Longitudinal CA group structure: eq (15) in PLB347 (195) 143 - 151
14741c This function is called thresha_l in the original code.
14742
14743 implicit none
14744 double precision pi, eta, xi, beta, term1
14745 parameter (pi = 3.14159265359d0)
14746
14747 beta = dsqrt(eta/(1.d0 + eta))
14748 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14749 Efun_LA = 1.d0/6.d0/pi*xi*term1**3*beta**2*
14750 # (beta*(dlog(8.d0*beta*beta))**2
14751 # - 5.d0*beta*dlog(8.d0*beta*beta) - 0.25d0*pi*pi)
14752
14753 return
14754 end
14755
14756c =========================================
14757 double precision function Efun_TA(eta,xi)
14758c =========================================
14759
14760c Transverse CA group structure: eq (16) in PLB347 (195) 143 - 151
14761c This function is called thresha_t in the original code.
14762 implicit none
14763 double precision pi, eta, xi, beta, term1
14764 parameter (pi = 3.14159265359d0)
14765
14766 beta = dsqrt(eta/(1.d0 + eta))
14767 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14768 Efun_TA = 0.25d0/pi*term1*(beta*(dlog(8.d0*beta*beta))**2
14769 # - 5.d0*beta*dlog(8.d0*beta*beta) - 0.25d0*pi*pi)
14770
14771 return
14772 end
14773
14774c =========================================
14775 double precision function Ebar_LA(eta,xi)
14776c =========================================
14777
14778c Longitudinal CA group structure for the mass factorization piece:
14779c equation (17) in PLB347 (195) 143 - 151
14780c This function is called threshbar_l in the original code.
14781
14782 implicit none
14783 double precision pi, eta, xi, beta, term1
14784 parameter (pi = 3.14159265359d0)
14785
14786 beta = dsqrt(eta/(1.d0 + eta))
14787 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14788 Ebar_LA = 1.d0/6.d0/pi*xi*term1**3*beta**3*
14789 # (-dlog(4.d0*beta*beta))
14790
14791 return
14792 end
14793
14794c =========================================
14795 double precision function Ebar_TA(eta,xi)
14796c =========================================
14797
14798c Transverse CA group structure for the mass factorization piece:
14799c equation (18) in PLB347 (195) 143 - 151
14800c This function is called threshbar_t in the original code.
14801
14802 implicit none
14803 double precision pi, eta, xi, beta, term1
14804 parameter (pi = 3.14159265359d0)
14805
14806 beta = dsqrt(eta/(1.d0 + eta))
14807 term1 = 1.d0/(1.d0 + 0.25d0*xi)
14808 Ebar_TA = 0.25d0/pi*term1*beta*(-dlog(4.d0*beta*beta))
14809
14810 return
14811 end
14812
14813CDECK ID>, LOCATE.
14814
14815c ===========================
14816 Subroutine Locate(xx,n,x,j)
14817c ===========================
14818c routine taken out of Numerical Recipes
14819
14820 Integer j,n
14821 Double Precision x,xx(n)
14822 Integer jl,ju,jm
14823
14824 jl = 0
14825 ju = n+1
14826 10 If (ju - jl .gt. 1) then
14827 jm = (ju + jl)/2
14828 If ((xx(n) .gt. xx(1)) .eqv. (x .gt. xx(jm))) then
14829 jl = jm
14830 else
14831 ju = jm
14832 endif
14833 goto 10
14834 endif
14835 j = jl
14836
14837 return
14838 End
14839
14840CDECK ID>, GCORRT.
14841
14842c ========================================
14843 double precision function h1_ATg(eta,xi)
14844c ========================================
14845
14846c eq (9) in PLB347 (1995) 143 - 151 for the transverse piece
14847c MSbar scheme
14848c This routine is called subctca in the original code.
14849c Called sctca in updated code (03/06/96).
14850
14851 implicit none
14852 integer neta, nxi
14853 parameter (neta = 73, nxi = 49)
14854 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
14855 double precision eta, xi, dleta, dlxi
14856 double precision pxi, peta, f(-1:1), delxi, deleta
14857 integer j, ieta, ixi
14858
14859 data (calcpts(j, 1), j = 1,neta) /0.4323D-03, 0.5138D-03,
14860 # 0.6270D-03, 0.7996D-03, 0.9331D-03, 0.1128D-02, 0.1413D-02,
14861 # 0.1683D-02, 0.2046D-02, 0.2457D-02, 0.2961D-02, 0.3609D-02,
14862 # 0.4386D-02, 0.5294D-02, 0.6434D-02, 0.7763D-02, 0.9365D-02,
14863 # 0.1136D-01, 0.1370D-01, 0.1657D-01, 0.2004D-01, 0.2424D-01,
14864 # 0.2932D-01, 0.3548D-01, 0.4293D-01, 0.5192D-01, 0.6267D-01,
14865 # 0.7534D-01, 0.8988D-01, 0.1058D+00, 0.1217D+00, 0.1351D+00,
14866 # 0.1421D+00, 0.1379D+00, 0.1184D+00, 0.8306D-01, 0.3588D-01,
14867 # -.1530D-01, -.6227D-01, -.9944D-01, -.1244D+00, -.1372D+00,
14868 # -.1396D+00, -.1341D+00, -.1233D+00, -.1096D+00, -.9476D-01,
14869 # -.8013D-01, -.6655D-01, -.5451D-01, -.4402D-01, -.3519D-01,
14870 # -.2786D-01, -.2194D-01, -.1711D-01, -.1324D-01, -.1021D-01,
14871 # -.7860D-02, -.6008D-02, -.4529D-02, -.3433D-02, -.2592D-02,
14872 # -.1943D-02, -.1488D-02, -.1096D-02, -.8350D-03, -.6387D-03,
14873 # -.4413D-03, -.3097D-03, -.2442D-03, -.1783D-03, -.1122D-03,
14874 # -.1126D-03/
14875
14876 data (calcpts(j, 2), j = 1,neta) /0.4112D-03, 0.5596D-03,
14877 # 0.6731D-03, 0.7794D-03, 0.9800D-03, 0.1176D-02, 0.1394D-02,
14878 # 0.1665D-02, 0.2028D-02, 0.2507D-02, 0.3011D-02, 0.3593D-02,
14879 # 0.4371D-02, 0.5280D-02, 0.6421D-02, 0.7751D-02, 0.9354D-02,
14880 # 0.1135D-01, 0.1370D-01, 0.1656D-01, 0.2004D-01, 0.2424D-01,
14881 # 0.2932D-01, 0.3547D-01, 0.4293D-01, 0.5191D-01, 0.6265D-01,
14882 # 0.7532D-01, 0.8986D-01, 0.1057D+00, 0.1217D+00, 0.1351D+00,
14883 # 0.1421D+00, 0.1379D+00, 0.1184D+00, 0.8304D-01, 0.3587D-01,
14884 # -.1531D-01, -.6227D-01, -.9945D-01, -.1244D+00, -.1372D+00,
14885 # -.1396D+00, -.1341D+00, -.1233D+00, -.1096D+00, -.9475D-01,
14886 # -.8011D-01, -.6660D-01, -.5450D-01, -.4401D-01, -.3518D-01,
14887 # -.2791D-01, -.2193D-01, -.1710D-01, -.1329D-01, -.1019D-01,
14888 # -.7845D-02, -.5992D-02, -.4581D-02, -.3485D-02, -.2577D-02,
14889 # -.1927D-02, -.1473D-02, -.1081D-02, -.8195D-03, -.6233D-03,
14890 # -.4258D-03, -.3609D-03, -.2288D-03, -.1629D-03, -.1634D-03,
14891 # -.9715D-04/
14892
14893 data (calcpts(j, 3), j = 1,neta) /0.4469D-03, 0.5291D-03,
14894 # 0.6430D-03, 0.8165D-03, 0.9509D-03, 0.1147D-02, 0.1366D-02,
14895 # 0.1705D-02, 0.2069D-02, 0.2482D-02, 0.2987D-02, 0.3637D-02,
14896 # 0.4350D-02, 0.5326D-02, 0.6402D-02, 0.7734D-02, 0.9338D-02,
14897 # 0.1133D-01, 0.1370D-01, 0.1656D-01, 0.2003D-01, 0.2423D-01,
14898 # 0.2931D-01, 0.3547D-01, 0.4292D-01, 0.5190D-01, 0.6264D-01,
14899 # 0.7531D-01, 0.8984D-01, 0.1057D+00, 0.1216D+00, 0.1351D+00,
14900 # 0.1420D+00, 0.1378D+00, 0.1184D+00, 0.8300D-01, 0.3585D-01,
14901 # -.1532D-01, -.6227D-01, -.9944D-01, -.1244D+00, -.1372D+00,
14902 # -.1396D+00, -.1341D+00, -.1233D+00, -.1095D+00, -.9473D-01,
14903 # -.8016D-01, -.6658D-01, -.5447D-01, -.4405D-01, -.3522D-01,
14904 # -.2789D-01, -.2190D-01, -.1708D-01, -.1326D-01, -.1024D-01,
14905 # -.7822D-02, -.5970D-02, -.4558D-02, -.3462D-02, -.2621D-02,
14906 # -.1972D-02, -.1450D-02, -.1125D-02, -.7969D-03, -.6007D-03,
14907 # -.4699D-03, -.3383D-03, -.2728D-03, -.2069D-03, -.1408D-03,
14908 # -.7452D-04/
14909
14910 data (calcpts(j, 4), j = 1,neta) /0.4681D-03, 0.5509D-03,
14911 # 0.6654D-03, 0.7730D-03, 0.9749D-03, 0.1172D-02, 0.1392D-02,
14912 # 0.1665D-02, 0.2031D-02, 0.2445D-02, 0.3018D-02, 0.3603D-02,
14913 # 0.4384D-02, 0.5296D-02, 0.6441D-02, 0.7775D-02, 0.9382D-02,
14914 # 0.1131D-01, 0.1370D-01, 0.1656D-01, 0.2003D-01, 0.2422D-01,
14915 # 0.2930D-01, 0.3546D-01, 0.4290D-01, 0.5188D-01, 0.6262D-01,
14916 # 0.7528D-01, 0.8980D-01, 0.1057D+00, 0.1216D+00, 0.1350D+00,
14917 # 0.1420D+00, 0.1378D+00, 0.1183D+00, 0.8296D-01, 0.3582D-01,
14918 # -.1534D-01, -.6228D-01, -.9945D-01, -.1244D+00, -.1372D+00,
14919 # -.1396D+00, -.1341D+00, -.1233D+00, -.1096D+00, -.9477D-01,
14920 # -.8013D-01, -.6655D-01, -.5451D-01, -.4402D-01, -.3519D-01,
14921 # -.2786D-01, -.2194D-01, -.1711D-01, -.1323D-01, -.1020D-01,
14922 # -.7856D-02, -.6003D-02, -.4525D-02, -.3429D-02, -.2588D-02,
14923 # -.1938D-02, -.1483D-02, -.1092D-02, -.8303D-03, -.6341D-03,
14924 # -.4366D-03, -.3050D-03, -.2395D-03, -.1737D-03, -.1076D-03,
14925 # -.1079D-03/
14926
14927 data (calcpts(j, 5), j = 1,neta) /0.4681D-03, 0.5517D-03,
14928 # 0.6672D-03, 0.7759D-03, 0.9790D-03, 0.1178D-02, 0.1399D-02,
14929 # 0.1674D-02, 0.2041D-02, 0.2457D-02, 0.2967D-02, 0.3621D-02,
14930 # 0.4405D-02, 0.5319D-02, 0.6400D-02, 0.7738D-02, 0.9348D-02,
14931 # 0.1135D-01, 0.1369D-01, 0.1655D-01, 0.2002D-01, 0.2421D-01,
14932 # 0.2928D-01, 0.3544D-01, 0.4288D-01, 0.5185D-01, 0.6259D-01,
14933 # 0.7523D-01, 0.8975D-01, 0.1056D+00, 0.1215D+00, 0.1349D+00,
14934 # 0.1419D+00, 0.1377D+00, 0.1182D+00, 0.8289D-01, 0.3577D-01,
14935 # -.1536D-01, -.6229D-01, -.9945D-01, -.1244D+00, -.1371D+00,
14936 # -.1396D+00, -.1341D+00, -.1233D+00, -.1095D+00, -.9472D-01,
14937 # -.8015D-01, -.6657D-01, -.5446D-01, -.4404D-01, -.3521D-01,
14938 # -.2788D-01, -.2189D-01, -.1713D-01, -.1325D-01, -.1022D-01,
14939 # -.7874D-02, -.6021D-02, -.4543D-02, -.3447D-02, -.2605D-02,
14940 # -.1956D-02, -.1501D-02, -.1109D-02, -.8482D-03, -.5853D-03,
14941 # -.4545D-03, -.3229D-03, -.2574D-03, -.1916D-03, -.1254D-03,
14942 # -.1258D-03/
14943
14944 data (calcpts(j, 6), j = 1,neta) /0.4370D-03, 0.5219D-03,
14945 # 0.6388D-03, 0.8157D-03, 0.9540D-03, 0.1155D-02, 0.1379D-02,
14946 # 0.1656D-02, 0.2026D-02, 0.2445D-02, 0.2957D-02, 0.3615D-02,
14947 # 0.4403D-02, 0.5255D-02, 0.6408D-02, 0.7750D-02, 0.9365D-02,
14948 # 0.1130D-01, 0.1368D-01, 0.1653D-01, 0.2000D-01, 0.2419D-01,
14949 # 0.2926D-01, 0.3541D-01, 0.4285D-01, 0.5181D-01, 0.6253D-01,
14950 # 0.7518D-01, 0.8967D-01, 0.1055D+00, 0.1214D+00, 0.1348D+00,
14951 # 0.1418D+00, 0.1375D+00, 0.1181D+00, 0.8279D-01, 0.3571D-01,
14952 # -.1540D-01, -.6231D-01, -.9945D-01, -.1244D+00, -.1371D+00,
14953 # -.1396D+00, -.1341D+00, -.1233D+00, -.1096D+00, -.9473D-01,
14954 # -.8015D-01, -.6657D-01, -.5446D-01, -.4403D-01, -.3520D-01,
14955 # -.2787D-01, -.2188D-01, -.1712D-01, -.1324D-01, -.1022D-01,
14956 # -.7869D-02, -.6016D-02, -.4538D-02, -.3442D-02, -.2601D-02,
14957 # -.1951D-02, -.1496D-02, -.1105D-02, -.8434D-03, -.5804D-03,
14958 # -.4497D-03, -.3181D-03, -.2526D-03, -.1867D-03, -.1206D-03,
14959 # -.1210D-03/
14960
14961 data (calcpts(j, 7), j = 1,neta) /0.4271D-03, 0.5137D-03,
14962 # 0.6327D-03, 0.8119D-03, 0.9528D-03, 0.1156D-02, 0.1384D-02,
14963 # 0.1664D-02, 0.2038D-02, 0.2462D-02, 0.2979D-02, 0.3643D-02,
14964 # 0.4369D-02, 0.5295D-02, 0.6387D-02, 0.7736D-02, 0.9359D-02,
14965 # 0.1131D-01, 0.1367D-01, 0.1652D-01, 0.1998D-01, 0.2417D-01,
14966 # 0.2923D-01, 0.3537D-01, 0.4280D-01, 0.5175D-01, 0.6246D-01,
14967 # 0.7509D-01, 0.8956D-01, 0.1054D+00, 0.1212D+00, 0.1346D+00,
14968 # 0.1415D+00, 0.1373D+00, 0.1179D+00, 0.8265D-01, 0.3561D-01,
14969 # -.1546D-01, -.6233D-01, -.9945D-01, -.1243D+00, -.1371D+00,
14970 # -.1395D+00, -.1341D+00, -.1233D+00, -.1095D+00, -.9470D-01,
14971 # -.8012D-01, -.6654D-01, -.5449D-01, -.4400D-01, -.3517D-01,
14972 # -.2790D-01, -.2191D-01, -.1709D-01, -.1327D-01, -.1025D-01,
14973 # -.7831D-02, -.5978D-02, -.4566D-02, -.3470D-02, -.2629D-02,
14974 # -.1980D-02, -.1458D-02, -.1066D-02, -.8051D-03, -.6089D-03,
14975 # -.4781D-03, -.3465D-03, -.6143D-03, -.1485D-03, -.1490D-03,
14976 # -.8274D-04/
14977
14978 data (calcpts(j, 8), j = 1,neta) /0.4171D-03, 0.5064D-03,
14979 # 0.6284D-03, 0.8110D-03, 0.9558D-03, 0.1164D-02, 0.1396D-02,
14980 # 0.1682D-02, 0.2062D-02, 0.2492D-02, 0.2950D-02, 0.3621D-02,
14981 # 0.4356D-02, 0.5291D-02, 0.6392D-02, 0.7752D-02, 0.9319D-02,
14982 # 0.1128D-01, 0.1365D-01, 0.1650D-01, 0.1995D-01, 0.2413D-01,
14983 # 0.2919D-01, 0.3531D-01, 0.4273D-01, 0.5167D-01, 0.6235D-01,
14984 # 0.7495D-01, 0.8940D-01, 0.1052D+00, 0.1210D+00, 0.1343D+00,
14985 # 0.1413D+00, 0.1370D+00, 0.1177D+00, 0.8245D-01, 0.3546D-01,
14986 # -.1554D-01, -.6236D-01, -.9945D-01, -.1243D+00, -.1371D+00,
14987 # -.1395D+00, -.1340D+00, -.1232D+00, -.1095D+00, -.9470D-01,
14988 # -.8011D-01, -.6653D-01, -.5448D-01, -.4398D-01, -.3522D-01,
14989 # -.2788D-01, -.2189D-01, -.1707D-01, -.1325D-01, -.1023D-01,
14990 # -.7811D-02, -.6025D-02, -.4546D-02, -.3450D-02, -.2609D-02,
14991 # -.1959D-02, -.1438D-02, -.1113D-02, -.7847D-03, -.5884D-03,
14992 # -.4576D-03, -.3260D-03, -.2605D-03, -.1947D-03, -.1285D-03,
14993 # -.1289D-03/
14994
14995 data (calcpts(j, 9), j = 1,neta) /0.4435D-03, 0.5367D-03,
14996 # 0.6631D-03, 0.7841D-03, 0.9344D-03, 0.1148D-02, 0.1388D-02,
14997 # 0.1681D-02, 0.2003D-02, 0.2443D-02, 0.2978D-02, 0.3594D-02,
14998 # 0.4342D-02, 0.5289D-02, 0.6406D-02, 0.7714D-02, 0.9296D-02,
14999 # 0.1127D-01, 0.1362D-01, 0.1646D-01, 0.1991D-01, 0.2407D-01,
15000 # 0.2912D-01, 0.3524D-01, 0.4263D-01, 0.5155D-01, 0.6220D-01,
15001 # 0.7476D-01, 0.8916D-01, 0.1049D+00, 0.1206D+00, 0.1339D+00,
15002 # 0.1408D+00, 0.1366D+00, 0.1173D+00, 0.8214D-01, 0.3525D-01,
15003 # -.1566D-01, -.6242D-01, -.9946D-01, -.1243D+00, -.1371D+00,
15004 # -.1395D+00, -.1340D+00, -.1232D+00, -.1095D+00, -.9470D-01,
15005 # -.8011D-01, -.6651D-01, -.5446D-01, -.4403D-01, -.3520D-01,
15006 # -.2786D-01, -.2194D-01, -.1711D-01, -.1323D-01, -.1020D-01,
15007 # -.7853D-02, -.6000D-02, -.4521D-02, -.3425D-02, -.2584D-02,
15008 # -.1934D-02, -.1480D-02, -.1088D-02, -.8263D-03, -.6301D-03,
15009 # -.4326D-03, -.3010D-03, -.2355D-03, -.1696D-03, -.1035D-03,
15010 # -.1039D-03/
15011
15012 data (calcpts(j,10), j = 1,neta) /0.4611D-03, 0.4933D-03,
15013 # 0.6262D-03, 0.7544D-03, 0.9129D-03, 0.1136D-02, 0.1386D-02,
15014 # 0.1691D-02, 0.2025D-02, 0.2479D-02, 0.2963D-02, 0.3595D-02,
15015 # 0.4361D-02, 0.5262D-02, 0.6332D-02, 0.7662D-02, 0.9268D-02,
15016 # 0.1120D-01, 0.1357D-01, 0.1641D-01, 0.1984D-01, 0.2399D-01,
15017 # 0.2902D-01, 0.3512D-01, 0.4249D-01, 0.5136D-01, 0.6198D-01,
15018 # 0.7448D-01, 0.8881D-01, 0.1045D+00, 0.1201D+00, 0.1333D+00,
15019 # 0.1402D+00, 0.1360D+00, 0.1167D+00, 0.8169D-01, 0.3495D-01,
15020 # -.1584D-01, -.6249D-01, -.9946D-01, -.1243D+00, -.1370D+00,
15021 # -.1394D+00, -.1339D+00, -.1231D+00, -.1095D+00, -.9468D-01,
15022 # -.8007D-01, -.6653D-01, -.5441D-01, -.4398D-01, -.3521D-01,
15023 # -.2787D-01, -.2188D-01, -.1711D-01, -.1323D-01, -.1021D-01,
15024 # -.7857D-02, -.6004D-02, -.4525D-02, -.3429D-02, -.2588D-02,
15025 # -.1938D-02, -.1483D-02, -.1091D-02, -.8300D-03, -.6337D-03,
15026 # -.4363D-03, -.3047D-03, -.2392D-03, -.1733D-03, -.1072D-03,
15027 # -.1076D-03/
15028
15029 data (calcpts(j,11), j = 1,neta) /0.4058D-03, 0.5130D-03,
15030 # 0.6553D-03, 0.7941D-03, 0.9646D-03, 0.1135D-02, 0.1399D-02,
15031 # 0.1654D-02, 0.2007D-02, 0.2415D-02, 0.2921D-02, 0.3578D-02,
15032 # 0.4303D-02, 0.5233D-02, 0.6333D-02, 0.7629D-02, 0.9268D-02,
15033 # 0.1117D-01, 0.1351D-01, 0.1632D-01, 0.1975D-01, 0.2388D-01,
15034 # 0.2888D-01, 0.3494D-01, 0.4227D-01, 0.5110D-01, 0.6164D-01,
15035 # 0.7406D-01, 0.8831D-01, 0.1038D+00, 0.1194D+00, 0.1325D+00,
15036 # 0.1393D+00, 0.1350D+00, 0.1159D+00, 0.8103D-01, 0.3450D-01,
15037 # -.1609D-01, -.6259D-01, -.9947D-01, -.1242D+00, -.1369D+00,
15038 # -.1393D+00, -.1339D+00, -.1231D+00, -.1094D+00, -.9458D-01,
15039 # -.8003D-01, -.6648D-01, -.5441D-01, -.4397D-01, -.3513D-01,
15040 # -.2786D-01, -.2187D-01, -.1710D-01, -.1322D-01, -.1019D-01,
15041 # -.7843D-02, -.5989D-02, -.4577D-02, -.3481D-02, -.2572D-02,
15042 # -.1990D-02, -.1468D-02, -.1076D-02, -.8148D-03, -.6185D-03,
15043 # -.4210D-03, -.3561D-03, -.2239D-03, -.1580D-03, -.1586D-03,
15044 # -.9227D-04/
15045
15046 data (calcpts(j,12), j = 1,neta) /0.4531D-03, 0.5058D-03,
15047 # 0.6618D-03, 0.7494D-03, 0.9372D-03, 0.1127D-02, 0.1346D-02,
15048 # 0.1625D-02, 0.2005D-02, 0.2442D-02, 0.2914D-02, 0.3540D-02,
15049 # 0.4304D-02, 0.5208D-02, 0.6287D-02, 0.7563D-02, 0.9184D-02,
15050 # 0.1107D-01, 0.1341D-01, 0.1621D-01, 0.1961D-01, 0.2371D-01,
15051 # 0.2867D-01, 0.3469D-01, 0.4195D-01, 0.5071D-01, 0.6116D-01,
15052 # 0.7347D-01, 0.8757D-01, 0.1029D+00, 0.1183D+00, 0.1313D+00,
15053 # 0.1379D+00, 0.1337D+00, 0.1147D+00, 0.8008D-01, 0.3385D-01,
15054 # -.1646D-01, -.6275D-01, -.9949D-01, -.1242D+00, -.1368D+00,
15055 # -.1392D+00, -.1337D+00, -.1230D+00, -.1093D+00, -.9456D-01,
15056 # -.7998D-01, -.6642D-01, -.5441D-01, -.4396D-01, -.3518D-01,
15057 # -.2783D-01, -.2190D-01, -.1707D-01, -.1325D-01, -.1022D-01,
15058 # -.7808D-02, -.5954D-02, -.4542D-02, -.3445D-02, -.2604D-02,
15059 # -.1954D-02, -.1499D-02, -.1107D-02, -.8456D-03, -.5826D-03,
15060 # -.4518D-03, -.3202D-03, -.2547D-03, -.1888D-03, -.1227D-03,
15061 # -.1231D-03/
15062
15063 data (calcpts(j,13), j = 1,neta) /0.4062D-03, 0.5431D-03,
15064 # 0.6522D-03, 0.7622D-03, 0.9086D-03, 0.1126D-02, 0.1377D-02,
15065 # 0.1625D-02, 0.1977D-02, 0.2390D-02, 0.2910D-02, 0.3520D-02,
15066 # 0.4273D-02, 0.5104D-02, 0.6247D-02, 0.7524D-02, 0.9082D-02,
15067 # 0.1098D-01, 0.1327D-01, 0.1605D-01, 0.1941D-01, 0.2347D-01,
15068 # 0.2837D-01, 0.3432D-01, 0.4151D-01, 0.5015D-01, 0.6047D-01,
15069 # 0.7261D-01, 0.8651D-01, 0.1017D+00, 0.1168D+00, 0.1295D+00,
15070 # 0.1360D+00, 0.1318D+00, 0.1130D+00, 0.7871D-01, 0.3290D-01,
15071 # -.1700D-01, -.6298D-01, -.9950D-01, -.1241D+00, -.1367D+00,
15072 # -.1390D+00, -.1336D+00, -.1228D+00, -.1092D+00, -.9446D-01,
15073 # -.7991D-01, -.6638D-01, -.5436D-01, -.4389D-01, -.3511D-01,
15074 # -.2782D-01, -.2189D-01, -.1705D-01, -.1324D-01, -.1021D-01,
15075 # -.7855D-02, -.6000D-02, -.4521D-02, -.3424D-02, -.2582D-02,
15076 # -.1932D-02, -.1477D-02, -.1085D-02, -.8239D-03, -.6275D-03,
15077 # -.4300D-03, -.3650D-03, -.2329D-03, -.1670D-03, -.1009D-03,
15078 # -.1012D-03/
15079
15080 data (calcpts(j,14), j = 1,neta) /0.4179D-03, 0.5134D-03,
15081 # 0.5844D-03, 0.7266D-03, 0.9092D-03, 0.1101D-02, 0.1331D-02,
15082 # 0.1629D-02, 0.1970D-02, 0.2379D-02, 0.2833D-02, 0.3451D-02,
15083 # 0.4151D-02, 0.5069D-02, 0.6103D-02, 0.7411D-02, 0.8938D-02,
15084 # 0.1082D-01, 0.1308D-01, 0.1581D-01, 0.1912D-01, 0.2311D-01,
15085 # 0.2795D-01, 0.3380D-01, 0.4086D-01, 0.4935D-01, 0.5947D-01,
15086 # 0.7138D-01, 0.8499D-01, 0.9979D-01, 0.1146D+00, 0.1270D+00,
15087 # 0.1333D+00, 0.1290D+00, 0.1105D+00, 0.7672D-01, 0.3154D-01,
15088 # -.1778D-01, -.6329D-01, -.9952D-01, -.1239D+00, -.1364D+00,
15089 # -.1388D+00, -.1333D+00, -.1226D+00, -.1090D+00, -.9429D-01,
15090 # -.7975D-01, -.6632D-01, -.5426D-01, -.4385D-01, -.3505D-01,
15091 # -.2783D-01, -.2182D-01, -.1705D-01, -.1323D-01, -.1020D-01,
15092 # -.7844D-02, -.5988D-02, -.4575D-02, -.3478D-02, -.2569D-02,
15093 # -.1986D-02, -.1464D-02, -.1072D-02, -.8103D-03, -.6139D-03,
15094 # -.4831D-03, -.3514D-03, -.2192D-03, -.1533D-03, -.1539D-03,
15095 # -.8758D-04/
15096
15097 data (calcpts(j,15), j = 1,neta) /0.3832D-03, 0.5148D-03,
15098 # 0.6265D-03, 0.7480D-03, 0.9156D-03, 0.1099D-02, 0.1326D-02,
15099 # 0.1563D-02, 0.1918D-02, 0.2281D-02, 0.2765D-02, 0.3356D-02,
15100 # 0.4104D-02, 0.4945D-02, 0.5978D-02, 0.7226D-02, 0.8765D-02,
15101 # 0.1059D-01, 0.1280D-01, 0.1547D-01, 0.1871D-01, 0.2261D-01,
15102 # 0.2733D-01, 0.3305D-01, 0.3994D-01, 0.4821D-01, 0.5807D-01,
15103 # 0.6963D-01, 0.8283D-01, 0.9717D-01, 0.1114D+00, 0.1234D+00,
15104 # 0.1294D+00, 0.1251D+00, 0.1069D+00, 0.7389D-01, 0.2959D-01,
15105 # -.1888D-01, -.6375D-01, -.9952D-01, -.1236D+00, -.1361D+00,
15106 # -.1384D+00, -.1330D+00, -.1223D+00, -.1087D+00, -.9407D-01,
15107 # -.7959D-01, -.6617D-01, -.5415D-01, -.4378D-01, -.3503D-01,
15108 # -.2772D-01, -.2184D-01, -.1700D-01, -.1317D-01, -.1021D-01,
15109 # -.7786D-02, -.5996D-02, -.4515D-02, -.3418D-02, -.2575D-02,
15110 # -.1925D-02, -.1470D-02, -.1077D-02, -.8160D-03, -.6195D-03,
15111 # -.4219D-03, -.3569D-03, -.2247D-03, -.1588D-03, -.1594D-03,
15112 # -.9305D-04/
15113
15114 data (calcpts(j,16), j = 1,neta) /0.3814D-03, 0.4972D-03,
15115 # 0.5997D-03, 0.7195D-03, 0.8268D-03, 0.1025D-02, 0.1277D-02,
15116 # 0.1550D-02, 0.1884D-02, 0.2238D-02, 0.2726D-02, 0.3265D-02,
15117 # 0.3976D-02, 0.4791D-02, 0.5810D-02, 0.7055D-02, 0.8466D-02,
15118 # 0.1027D-01, 0.1241D-01, 0.1500D-01, 0.1813D-01, 0.2191D-01,
15119 # 0.2647D-01, 0.3199D-01, 0.3864D-01, 0.4661D-01, 0.5610D-01,
15120 # 0.6719D-01, 0.7983D-01, 0.9351D-01, 0.1071D+00, 0.1184D+00,
15121 # 0.1239D+00, 0.1197D+00, 0.1020D+00, 0.6990D-01, 0.2683D-01,
15122 # -.2045D-01, -.6437D-01, -.9952D-01, -.1233D+00, -.1355D+00,
15123 # -.1378D+00, -.1324D+00, -.1218D+00, -.1083D+00, -.9371D-01,
15124 # -.7932D-01, -.6596D-01, -.5402D-01, -.4368D-01, -.3491D-01,
15125 # -.2772D-01, -.2176D-01, -.1698D-01, -.1321D-01, -.1018D-01,
15126 # -.7819D-02, -.5961D-02, -.4545D-02, -.3447D-02, -.2604D-02,
15127 # -.1953D-02, -.1431D-02, -.1105D-02, -.8437D-03, -.5805D-03,
15128 # -.4495D-03, -.3178D-03, -.2523D-03, -.1863D-03, -.1202D-03,
15129 # -.1205D-03/
15130
15131 data (calcpts(j,17), j = 1,neta) /0.3666D-03, 0.4863D-03,
15132 # 0.5352D-03, 0.6784D-03, 0.8203D-03, 0.9984D-03, 0.1178D-02,
15133 # 0.1458D-02, 0.1748D-02, 0.2142D-02, 0.2619D-02, 0.3166D-02,
15134 # 0.3768D-02, 0.4559D-02, 0.5569D-02, 0.6687D-02, 0.8117D-02,
15135 # 0.9818D-02, 0.1186D-01, 0.1434D-01, 0.1733D-01, 0.2093D-01,
15136 # 0.2528D-01, 0.3053D-01, 0.3685D-01, 0.4441D-01, 0.5339D-01,
15137 # 0.6385D-01, 0.7572D-01, 0.8853D-01, 0.1012D+00, 0.1116D+00,
15138 # 0.1165D+00, 0.1122D+00, 0.9512D-01, 0.6438D-01, 0.2300D-01,
15139 # -.2262D-01, -.6522D-01, -.9947D-01, -.1227D+00, -.1347D+00,
15140 # -.1370D+00, -.1316D+00, -.1211D+00, -.1077D+00, -.9331D-01,
15141 # -.7897D-01, -.6564D-01, -.5376D-01, -.4350D-01, -.3483D-01,
15142 # -.2762D-01, -.2171D-01, -.1692D-01, -.1315D-01, -.1017D-01,
15143 # -.7809D-02, -.5949D-02, -.4532D-02, -.3432D-02, -.2588D-02,
15144 # -.1938D-02, -.1482D-02, -.1089D-02, -.8271D-03, -.6305D-03,
15145 # -.4328D-03, -.3010D-03, -.2354D-03, -.1695D-03, -.1033D-03,
15146 # -.1037D-03/
15147
15148 data (calcpts(j,18), j = 1,neta) /0.3296D-03, 0.4115D-03,
15149 # 0.5016D-03, 0.6332D-03, 0.7788D-03, 0.9104D-03, 0.1128D-02,
15150 # 0.1399D-02, 0.1634D-02, 0.1996D-02, 0.2463D-02, 0.2957D-02,
15151 # 0.3596D-02, 0.4314D-02, 0.5208D-02, 0.6295D-02, 0.7644D-02,
15152 # 0.9209D-02, 0.1113D-01, 0.1344D-01, 0.1625D-01, 0.1962D-01,
15153 # 0.2368D-01, 0.2858D-01, 0.3446D-01, 0.4148D-01, 0.4977D-01,
15154 # 0.5941D-01, 0.7029D-01, 0.8195D-01, 0.9335D-01, 0.1026D+00,
15155 # 0.1068D+00, 0.1023D+00, 0.8599D-01, 0.5694D-01, 0.1780D-01,
15156 # -.2557D-01, -.6633D-01, -.9933D-01, -.1218D+00, -.1335D+00,
15157 # -.1357D+00, -.1305D+00, -.1201D+00, -.1069D+00, -.9263D-01,
15158 # -.7842D-01, -.6529D-01, -.5351D-01, -.4325D-01, -.3460D-01,
15159 # -.2749D-01, -.2163D-01, -.1689D-01, -.1311D-01, -.1012D-01,
15160 # -.7758D-02, -.5895D-02, -.4542D-02, -.3441D-02, -.2596D-02,
15161 # -.1945D-02, -.1488D-02, -.1095D-02, -.8333D-03, -.6366D-03,
15162 # -.4388D-03, -.3069D-03, -.2413D-03, -.1753D-03, -.1091D-03,
15163 # -.1095D-03/
15164
15165 data (calcpts(j,19), j = 1,neta) /0.2951D-03, 0.3689D-03,
15166 # 0.4670D-03, 0.5583D-03, 0.6835D-03, 0.8831D-03, 0.1059D-02,
15167 # 0.1247D-02, 0.1494D-02, 0.1828D-02, 0.2232D-02, 0.2694D-02,
15168 # 0.3265D-02, 0.3947D-02, 0.4766D-02, 0.5738D-02, 0.6961D-02,
15169 # 0.8415D-02, 0.1017D-01, 0.1228D-01, 0.1484D-01, 0.1791D-01,
15170 # 0.2160D-01, 0.2605D-01, 0.3136D-01, 0.3769D-01, 0.4513D-01,
15171 # 0.5373D-01, 0.6336D-01, 0.7359D-01, 0.8345D-01, 0.9125D-01,
15172 # 0.9436D-01, 0.8964D-01, 0.7425D-01, 0.4728D-01, 0.1099D-01,
15173 # -.2944D-01, -.6772D-01, -.9898D-01, -.1205D+00, -.1318D+00,
15174 # -.1339D+00, -.1288D+00, -.1187D+00, -.1057D+00, -.9161D-01,
15175 # -.7767D-01, -.6468D-01, -.5304D-01, -.4296D-01, -.3438D-01,
15176 # -.2730D-01, -.2148D-01, -.1678D-01, -.1305D-01, -.1006D-01,
15177 # -.7689D-02, -.5888D-02, -.4466D-02, -.3430D-02, -.2584D-02,
15178 # -.1931D-02, -.1474D-02, -.1081D-02, -.8188D-03, -.6218D-03,
15179 # -.4239D-03, -.3586D-03, -.2263D-03, -.1602D-03, -.1607D-03,
15180 # -.9433D-04/
15181
15182 data (calcpts(j,20), j = 1,neta) /0.2649D-03, 0.3628D-03,
15183 # 0.4389D-03, 0.5311D-03, 0.6156D-03, 0.7351D-03, 0.9273D-03,
15184 # 0.1098D-02, 0.1360D-02, 0.1614D-02, 0.1975D-02, 0.2366D-02,
15185 # 0.2840D-02, 0.3463D-02, 0.4193D-02, 0.5110D-02, 0.6146D-02,
15186 # 0.7424D-02, 0.8974D-02, 0.1083D-01, 0.1308D-01, 0.1578D-01,
15187 # 0.1902D-01, 0.2290D-01, 0.2754D-01, 0.3302D-01, 0.3944D-01,
15188 # 0.4679D-01, 0.5495D-01, 0.6349D-01, 0.7155D-01, 0.7762D-01,
15189 # 0.7945D-01, 0.7436D-01, 0.5992D-01, 0.3533D-01, 0.2460D-02,
15190 # -.3427D-01, -.6935D-01, -.9831D-01, -.1185D+00, -.1292D+00,
15191 # -.1312D+00, -.1263D+00, -.1166D+00, -.1040D+00, -.9026D-01,
15192 # -.7664D-01, -.6388D-01, -.5242D-01, -.4250D-01, -.3404D-01,
15193 # -.2704D-01, -.2125D-01, -.1666D-01, -.1292D-01, -.9981D-02,
15194 # -.7669D-02, -.5863D-02, -.4437D-02, -.3399D-02, -.2551D-02,
15195 # -.1897D-02, -.1440D-02, -.1046D-02, -.7831D-03, -.5859D-03,
15196 # -.4545D-03, -.3224D-03, -.2566D-03, -.1906D-03, -.1243D-03,
15197 # -.1246D-03/
15198
15199 data (calcpts(j,21), j = 1,neta) /0.2746D-03, 0.2937D-03,
15200 # 0.3818D-03, 0.4467D-03, 0.5340D-03, 0.6221D-03, 0.7518D-03,
15201 # 0.9649D-03, 0.1110D-02, 0.1358D-02, 0.1692D-02, 0.2035D-02,
15202 # 0.2442D-02, 0.2911D-02, 0.3557D-02, 0.4292D-02, 0.5185D-02,
15203 # 0.6263D-02, 0.7562D-02, 0.9125D-02, 0.1101D-01, 0.1327D-01,
15204 # 0.1598D-01, 0.1921D-01, 0.2306D-01, 0.2759D-01, 0.3285D-01,
15205 # 0.3881D-01, 0.4535D-01, 0.5204D-01, 0.5812D-01, 0.6231D-01,
15206 # 0.6271D-01, 0.5712D-01, 0.4360D-01, 0.2153D-01, -.7528D-02,
15207 # -.3993D-01, -.7107D-01, -.9708D-01, -.1155D+00, -.1254D+00,
15208 # -.1274D+00, -.1229D+00, -.1137D+00, -.1016D+00, -.8842D-01,
15209 # -.7514D-01, -.6277D-01, -.5157D-01, -.4185D-01, -.3357D-01,
15210 # -.2671D-01, -.2101D-01, -.1646D-01, -.1276D-01, -.9880D-02,
15211 # -.7626D-02, -.5813D-02, -.4450D-02, -.3342D-02, -.2559D-02,
15212 # -.1904D-02, -.1445D-02, -.1051D-02, -.7878D-03, -.5903D-03,
15213 # -.4587D-03, -.3265D-03, -.2606D-03, -.1945D-03, -.1282D-03,
15214 # -.1284D-03/
15215
15216 data (calcpts(j,22), j = 1,neta) /0.2248D-03, 0.2547D-03,
15217 # 0.3143D-03, 0.3815D-03, 0.4381D-03, 0.5321D-03, 0.6410D-03,
15218 # 0.7432D-03, 0.8898D-03, 0.1121D-02, 0.1291D-02, 0.1588D-02,
15219 # 0.1936D-02, 0.2333D-02, 0.2822D-02, 0.3406D-02, 0.4113D-02,
15220 # 0.4971D-02, 0.5996D-02, 0.7237D-02, 0.8724D-02, 0.1050D-01,
15221 # 0.1263D-01, 0.1517D-01, 0.1817D-01, 0.2168D-01, 0.2572D-01,
15222 # 0.3025D-01, 0.3511D-01, 0.3993D-01, 0.4403D-01, 0.4633D-01,
15223 # 0.4529D-01, 0.3915D-01, 0.2645D-01, 0.6839D-02, -.1830D-01,
15224 # -.4602D-01, -.7264D-01, -.9510D-01, -.1113D+00, -.1203D+00,
15225 # -.1222D+00, -.1182D+00, -.1097D+00, -.9839D-01, -.8586D-01,
15226 # -.7318D-01, -.6123D-01, -.5042D-01, -.4101D-01, -.3296D-01,
15227 # -.2623D-01, -.2068D-01, -.1623D-01, -.1258D-01, -.9749D-02,
15228 # -.7485D-02, -.5732D-02, -.4364D-02, -.3319D-02, -.2534D-02,
15229 # -.1877D-02, -.1418D-02, -.1089D-02, -.8255D-03, -.6277D-03,
15230 # -.4292D-03, -.2969D-03, -.2309D-03, -.1647D-03, -.1650D-03,
15231 # -.9859D-04/
15232
15233 data (calcpts(j,23), j = 1,neta) /0.1575D-03, 0.1414D-03,
15234 # 0.1837D-03, 0.2659D-03, 0.3061D-03, 0.3553D-03, 0.4615D-03,
15235 # 0.5397D-03, 0.6435D-03, 0.7975D-03, 0.9631D-03, 0.1172D-02,
15236 # 0.1414D-02, 0.1714D-02, 0.2071D-02, 0.2500D-02, 0.3019D-02,
15237 # 0.3651D-02, 0.4404D-02, 0.5304D-02, 0.6396D-02, 0.7693D-02,
15238 # 0.9237D-02, 0.1107D-01, 0.1323D-01, 0.1573D-01, 0.1859D-01,
15239 # 0.2172D-01, 0.2499D-01, 0.2807D-01, 0.3035D-01, 0.3096D-01,
15240 # 0.2865D-01, 0.2205D-01, 0.1012D-01, -.7229D-02, -.2869D-01,
15241 # -.5179D-01, -.7370D-01, -.9219D-01, -.1057D+00, -.1135D+00,
15242 # -.1154D+00, -.1120D+00, -.1044D+00, -.9415D-01, -.8249D-01,
15243 # -.7063D-01, -.5927D-01, -.4896D-01, -.3987D-01, -.3211D-01,
15244 # -.2564D-01, -.2024D-01, -.1589D-01, -.1234D-01, -.9563D-02,
15245 # -.7355D-02, -.5661D-02, -.4288D-02, -.3306D-02, -.2452D-02,
15246 # -.1861D-02, -.1400D-02, -.1070D-02, -.8064D-03, -.6082D-03,
15247 # -.4095D-03, -.3437D-03, -.2109D-03, -.1447D-03, -.1449D-03,
15248 # -.7844D-04/
15249
15250 data (calcpts(j,24), j = 1,neta) /0.9565D-04, 0.1144D-03,
15251 # 0.1394D-03, 0.1691D-03, 0.2046D-03, 0.2465D-03, 0.2996D-03,
15252 # 0.3624D-03, 0.4374D-03, 0.5335D-03, 0.6405D-03, 0.7778D-03,
15253 # 0.9370D-03, 0.1136D-02, 0.1376D-02, 0.1657D-02, 0.2002D-02,
15254 # 0.2416D-02, 0.2906D-02, 0.3499D-02, 0.4216D-02, 0.5063D-02,
15255 # 0.6065D-02, 0.7252D-02, 0.8636D-02, 0.1023D-01, 0.1200D-01,
15256 # 0.1390D-01, 0.1578D-01, 0.1735D-01, 0.1812D-01, 0.1736D-01,
15257 # 0.1409D-01, 0.7257D-02, -.3859D-02, -.1916D-01, -.3737D-01,
15258 # -.5634D-01, -.7382D-01, -.8828D-01, -.9890D-01, -.1052D+00,
15259 # -.1070D+00, -.1043D+00, -.9787D-01, -.8882D-01, -.7832D-01,
15260 # -.6740D-01, -.5686D-01, -.4712D-01, -.3854D-01, -.3114D-01,
15261 # -.2486D-01, -.1968D-01, -.1550D-01, -.1206D-01, -.9400D-02,
15262 # -.7247D-02, -.5546D-02, -.4235D-02, -.3250D-02, -.2460D-02,
15263 # -.1867D-02, -.1405D-02, -.1008D-02, -.8105D-03, -.6120D-03,
15264 # -.4130D-03, -.3470D-03, -.2141D-03, -.1478D-03, -.1480D-03,
15265 # -.8150D-04/
15266
15267 data (calcpts(j,25), j = 1,neta) /0.4989D-04, 0.6372D-04,
15268 # 0.7586D-04, 0.9470D-04, 0.1172D-03, 0.1402D-03, 0.1717D-03,
15269 # 0.2067D-03, 0.2498D-03, 0.3003D-03, 0.3632D-03, 0.4391D-03,
15270 # 0.5342D-03, 0.6391D-03, 0.7736D-03, 0.9330D-03, 0.1122D-02,
15271 # 0.1355D-02, 0.1626D-02, 0.1957D-02, 0.2347D-02, 0.2812D-02,
15272 # 0.3356D-02, 0.3994D-02, 0.4725D-02, 0.5546D-02, 0.6430D-02,
15273 # 0.7312D-02, 0.8061D-02, 0.8431D-02, 0.8039D-02, 0.6292D-02,
15274 # 0.2426D-02, -.4343D-02, -.1454D-01, -.2794D-01, -.4336D-01,
15275 # -.5888D-01, -.7259D-01, -.8343D-01, -.9112D-01, -.9571D-01,
15276 # -.9709D-01, -.9512D-01, -.9001D-01, -.8241D-01, -.7327D-01,
15277 # -.6351D-01, -.5389D-01, -.4489D-01, -.3690D-01, -.2994D-01,
15278 # -.2399D-01, -.1903D-01, -.1502D-01, -.1176D-01, -.9151D-02,
15279 # -.7055D-02, -.5414D-02, -.4165D-02, -.3177D-02, -.2385D-02,
15280 # -.1790D-02, -.1394D-02, -.9966D-03, -.7984D-03, -.5996D-03,
15281 # -.4004D-03, -.3342D-03, -.2013D-03, -.2015D-03, -.1350D-03,
15282 # -.6850D-04/
15283
15284 data (calcpts(j,26), j = 1,neta) /0.1907D-04, 0.1918D-04,
15285 # 0.2593D-04, 0.3718D-04, 0.4555D-04, 0.5013D-04, 0.6176D-04,
15286 # 0.7818D-04, 0.9929D-04, 0.1208D-03, 0.1428D-03, 0.1736D-03,
15287 # 0.2073D-03, 0.2545D-03, 0.3059D-03, 0.3685D-03, 0.4413D-03,
15288 # 0.5237D-03, 0.6323D-03, 0.7488D-03, 0.8974D-03, 0.1060D-02,
15289 # 0.1249D-02, 0.1461D-02, 0.1691D-02, 0.1922D-02, 0.2125D-02,
15290 # 0.2235D-02, 0.2139D-02, 0.1643D-02, 0.4357D-03, -.1939D-02,
15291 # -.6063D-02, -.1252D-01, -.2168D-01, -.3329D-01, -.4632D-01,
15292 # -.5906D-01, -.6983D-01, -.7774D-01, -.8286D-01, -.8565D-01,
15293 # -.8639D-01, -.8491D-01, -.8106D-01, -.7502D-01, -.6742D-01,
15294 # -.5900D-01, -.5047D-01, -.4236D-01, -.3498D-01, -.2847D-01,
15295 # -.2293D-01, -.1833D-01, -.1449D-01, -.1135D-01, -.8859D-02,
15296 # -.6821D-02, -.5307D-02, -.4054D-02, -.3063D-02, -.2336D-02,
15297 # -.1740D-02, -.1343D-02, -.1012D-02, -.7464D-03, -.5473D-03,
15298 # -.4146D-03, -.2817D-03, -.2153D-03, -.1489D-03, -.1490D-03,
15299 # -.8244D-04/
15300
15301 data (calcpts(j,27), j = 1,neta) /0.2006D-05, 0.2856D-05,
15302 # 0.1167D-05, 0.3743D-05, 0.5087D-05, -.4811D-06, 0.1882D-06,
15303 # 0.3604D-06, 0.1543D-05, -.4601D-05, -.3152D-05, -.4930D-05,
15304 # -.8063D-05, -.1520D-04, -.1737D-04, -.2860D-04, -.4090D-04,
15305 # -.5485D-04, -.6813D-04, -.9724D-04, -.1257D-03, -.1702D-03,
15306 # -.2322D-03, -.3168D-03, -.4380D-03, -.6165D-03, -.8839D-03,
15307 # -.1301D-02, -.1962D-02, -.3024D-02, -.4730D-02, -.7424D-02,
15308 # -.1154D-01, -.1752D-01, -.2560D-01, -.3554D-01, -.4649D-01,
15309 # -.5701D-01, -.6561D-01, -.7144D-01, -.7456D-01, -.7573D-01,
15310 # -.7560D-01, -.7426D-01, -.7142D-01, -.6691D-01, -.6092D-01,
15311 # -.5396D-01, -.4665D-01, -.3949D-01, -.3285D-01, -.2693D-01,
15312 # -.2181D-01, -.1747D-01, -.1388D-01, -.1092D-01, -.8556D-02,
15313 # -.6645D-02, -.5126D-02, -.3936D-02, -.3010D-02, -.2281D-02,
15314 # -.1751D-02, -.1286D-02, -.1021D-02, -.7556D-03, -.5563D-03,
15315 # -.4235D-03, -.2904D-03, -.2240D-03, -.1575D-03, -.1576D-03,
15316 # -.9097D-04/
15317
15318 data (calcpts(j,28), j = 1,neta) /-.1237D-04, -.1446D-04,
15319 # -.1884D-04, -.2362D-04, -.3282D-04, -.3729D-04, -.4875D-04,
15320 # -.5886D-04, -.7149D-04, -.8621D-04, -.1070D-03, -.1237D-03,
15321 # -.1536D-03, -.1859D-03, -.2326D-03, -.2819D-03, -.3422D-03,
15322 # -.4187D-03, -.5150D-03, -.6270D-03, -.7669D-03, -.9413D-03,
15323 # -.1158D-02, -.1426D-02, -.1763D-02, -.2192D-02, -.2745D-02,
15324 # -.3476D-02, -.4466D-02, -.5839D-02, -.7781D-02, -.1055D-01,
15325 # -.1448D-01, -.1986D-01, -.2687D-01, -.3531D-01, -.4447D-01,
15326 # -.5320D-01, -.6021D-01, -.6468D-01, -.6654D-01, -.6648D-01,
15327 # -.6542D-01, -.6384D-01, -.6161D-01, -.5836D-01, -.5391D-01,
15328 # -.4846D-01, -.4244D-01, -.3633D-01, -.3050D-01, -.2519D-01,
15329 # -.2053D-01, -.1653D-01, -.1318D-01, -.1042D-01, -.8179D-02,
15330 # -.6375D-02, -.4933D-02, -.3800D-02, -.2919D-02, -.2222D-02,
15331 # -.1691D-02, -.1279D-02, -.9605D-03, -.7213D-03, -.5418D-03,
15332 # -.4088D-03, -.3024D-03, -.2292D-03, -.1693D-03, -.1227D-03,
15333 # -.9611D-04/
15334
15335 data (calcpts(j,29), j = 1,neta) /-.2297D-04, -.2752D-04,
15336 # -.3754D-04, -.4311D-04, -.5382D-04, -.5937D-04, -.7678D-04,
15337 # -.8971D-04, -.1077D-03, -.1287D-03, -.1558D-03, -.1915D-03,
15338 # -.2322D-03, -.2801D-03, -.3415D-03, -.4181D-03, -.5071D-03,
15339 # -.6130D-03, -.7460D-03, -.9078D-03, -.1104D-02, -.1346D-02,
15340 # -.1642D-02, -.2004D-02, -.2451D-02, -.3006D-02, -.3698D-02,
15341 # -.4577D-02, -.5709D-02, -.7193D-02, -.9172D-02, -.1184D-01,
15342 # -.1544D-01, -.2018D-01, -.2618D-01, -.3327D-01, -.4091D-01,
15343 # -.4818D-01, -.5404D-01, -.5768D-01, -.5890D-01, -.5817D-01,
15344 # -.5640D-01, -.5434D-01, -.5225D-01, -.4982D-01, -.4667D-01,
15345 # -.4265D-01, -.3795D-01, -.3293D-01, -.2797D-01, -.2331D-01,
15346 # -.1914D-01, -.1551D-01, -.1244D-01, -.9882D-02, -.7787D-02,
15347 # -.6085D-02, -.4727D-02, -.3652D-02, -.2803D-02, -.2145D-02,
15348 # -.1627D-02, -.1235D-02, -.9289D-03, -.6028D-03, -.5232D-03,
15349 # -.3901D-03, -.2903D-03, -.2171D-03, -.1572D-03, -.1172D-03,
15350 # -.8393D-04/
15351
15352 data (calcpts(j,30), j = 1,neta) /-.2720D-04, -.2861D-04,
15353 # -.3471D-04, -.4794D-04, -.5707D-04, -.6429D-04, -.7893D-04,
15354 # -.9699D-04, -.1206D-03, -.1465D-03, -.1769D-03, -.2139D-03,
15355 # -.2600D-03, -.3148D-03, -.3814D-03, -.4633D-03, -.5624D-03,
15356 # -.6828D-03, -.8292D-03, -.1008D-02, -.1224D-02, -.1489D-02,
15357 # -.1811D-02, -.2204D-02, -.2684D-02, -.3275D-02, -.4004D-02,
15358 # -.4911D-02, -.6053D-02, -.7509D-02, -.9389D-02, -.1184D-01,
15359 # -.1503D-01, -.1911D-01, -.2418D-01, -.3008D-01, -.3642D-01,
15360 # -.4249D-01, -.4745D-01, -.5062D-01, -.5165D-01, -.5077D-01,
15361 # -.4867D-01, -.4620D-01, -.4390D-01, -.4181D-01, -.3953D-01,
15362 # -.3672D-01, -.3327D-01, -.2936D-01, -.2529D-01, -.2133D-01,
15363 # -.1768D-01, -.1444D-01, -.1165D-01, -.9313D-02, -.7372D-02,
15364 # -.5788D-02, -.4514D-02, -.3498D-02, -.2694D-02, -.2069D-02,
15365 # -.1577D-02, -.1198D-02, -.9051D-03, -.6122D-03, -.5125D-03,
15366 # -.3860D-03, -.2861D-03, -.2129D-03, -.1596D-03, -.1197D-03,
15367 # -.8635D-04/
15368
15369 data (calcpts(j,31), j = 1,neta) /-.2258D-04, -.3019D-04,
15370 # -.3714D-04, -.4516D-04, -.5510D-04, -.6652D-04, -.8066D-04,
15371 # -.9812D-04, -.1185D-03, -.1435D-03, -.1744D-03, -.2112D-03,
15372 # -.2566D-03, -.3107D-03, -.3767D-03, -.4573D-03, -.5548D-03,
15373 # -.6731D-03, -.8174D-03, -.9925D-03, -.1204D-02, -.1462D-02,
15374 # -.1777D-02, -.2159D-02, -.2625D-02, -.3194D-02, -.3891D-02,
15375 # -.4753D-02, -.5822D-02, -.7163D-02, -.8859D-02, -.1102D-01,
15376 # -.1377D-01, -.1723D-01, -.2144D-01, -.2631D-01, -.3153D-01,
15377 # -.3657D-01, -.4081D-01, -.4365D-01, -.4473D-01, -.4408D-01,
15378 # -.4210D-01, -.3948D-01, -.3692D-01, -.3476D-01, -.3289D-01,
15379 # -.3091D-01, -.2852D-01, -.2566D-01, -.2249D-01, -.1924D-01,
15380 # -.1614D-01, -.1332D-01, -.1083D-01, -.8710D-02, -.6933D-02,
15381 # -.5472D-02, -.4283D-02, -.3333D-02, -.2582D-02, -.1983D-02,
15382 # -.1517D-02, -.1158D-02, -.8784D-03, -.6120D-03, -.4989D-03,
15383 # -.3724D-03, -.2791D-03, -.2059D-03, -.1526D-03, -.1126D-03,
15384 # -.8596D-04/
15385
15386 data (calcpts(j,32), j = 1,neta) /-.2433D-04, -.2931D-04,
15387 # -.3516D-04, -.4244D-04, -.5156D-04, -.6163D-04, -.7470D-04,
15388 # -.9082D-04, -.1098D-03, -.1328D-03, -.1611D-03, -.1946D-03,
15389 # -.2361D-03, -.2861D-03, -.3465D-03, -.4206D-03, -.5098D-03,
15390 # -.6182D-03, -.7499D-03, -.9101D-03, -.1103D-02, -.1340D-02,
15391 # -.1626D-02, -.1974D-02, -.2397D-02, -.2912D-02, -.3542D-02,
15392 # -.4314D-02, -.5266D-02, -.6446D-02, -.7921D-02, -.9772D-02,
15393 # -.1209D-01, -.1496D-01, -.1841D-01, -.2238D-01, -.2663D-01,
15394 # -.3079D-01, -.3438D-01, -.3695D-01, -.3815D-01, -.3789D-01,
15395 # -.3633D-01, -.3394D-01, -.3131D-01, -.2897D-01, -.2711D-01,
15396 # -.2553D-01, -.2389D-01, -.2192D-01, -.1961D-01, -.1709D-01,
15397 # -.1455D-01, -.1214D-01, -.9967D-02, -.8077D-02, -.6471D-02,
15398 # -.5135D-02, -.4045D-02, -.3161D-02, -.2449D-02, -.1896D-02,
15399 # -.1457D-02, -.1111D-02, -.8444D-03, -.6046D-03, -.4781D-03,
15400 # -.3582D-03, -.2716D-03, -.1983D-03, -.1450D-03, -.1117D-03,
15401 # -.7837D-04/
15402
15403 data (calcpts(j,33), j = 1,neta) /-.1992D-04, -.2417D-04,
15404 # -.2929D-04, -.3614D-04, -.4347D-04, -.5343D-04, -.6432D-04,
15405 # -.7849D-04, -.9477D-04, -.1151D-03, -.1399D-03, -.1700D-03,
15406 # -.2059D-03, -.2498D-03, -.3031D-03, -.3675D-03, -.4459D-03,
15407 # -.5409D-03, -.6558D-03, -.7954D-03, -.9646D-03, -.1171D-02,
15408 # -.1420D-02, -.1723D-02, -.2091D-02, -.2539D-02, -.3083D-02,
15409 # -.3749D-02, -.4566D-02, -.5572D-02, -.6817D-02, -.8362D-02,
15410 # -.1027D-01, -.1262D-01, -.1541D-01, -.1860D-01, -.2204D-01,
15411 # -.2544D-01, -.2845D-01, -.3073D-01, -.3201D-01, -.3213D-01,
15412 # -.3112D-01, -.2920D-01, -.2681D-01, -.2443D-01, -.2244D-01,
15413 # -.2090D-01, -.1963D-01, -.1830D-01, -.1671D-01, -.1488D-01,
15414 # -.1290D-01, -.1093D-01, -.9078D-02, -.7432D-02, -.6003D-02,
15415 # -.4793D-02, -.3795D-02, -.2984D-02, -.2325D-02, -.1805D-02,
15416 # -.1393D-02, -.1066D-02, -.8131D-03, -.5933D-03, -.4667D-03,
15417 # -.3535D-03, -.2668D-03, -.2002D-03, -.1469D-03, -.1136D-03,
15418 # -.8026D-04/
15419
15420 data (calcpts(j,34), j = 1,neta) /-.1712D-04, -.2071D-04,
15421 # -.2527D-04, -.3077D-04, -.3773D-04, -.4540D-04, -.5514D-04,
15422 # -.6700D-04, -.8094D-04, -.9790D-04, -.1186D-03, -.1438D-03,
15423 # -.1749D-03, -.2115D-03, -.2566D-03, -.3113D-03, -.3772D-03,
15424 # -.4571D-03, -.5546D-03, -.6724D-03, -.8150D-03, -.9890D-03,
15425 # -.1199D-02, -.1454D-02, -.1765D-02, -.2141D-02, -.2598D-02,
15426 # -.3156D-02, -.3838D-02, -.4672D-02, -.5699D-02, -.6963D-02,
15427 # -.8515D-02, -.1040D-01, -.1263D-01, -.1518D-01, -.1792D-01,
15428 # -.2066D-01, -.2314D-01, -.2513D-01, -.2639D-01, -.2679D-01,
15429 # -.2629D-01, -.2496D-01, -.2303D-01, -.2086D-01, -.1882D-01,
15430 # -.1719D-01, -.1597D-01, -.1496D-01, -.1390D-01, -.1265D-01,
15431 # -.1121D-01, -.9674D-02, -.8164D-02, -.6756D-02, -.5513D-02,
15432 # -.4435D-02, -.3537D-02, -.2791D-02, -.2192D-02, -.1706D-02,
15433 # -.1319D-02, -.1013D-02, -.7732D-03, -.5733D-03, -.4467D-03,
15434 # -.3401D-03, -.2535D-03, -.1935D-03, -.1402D-03, -.1068D-03,
15435 # -.8018D-04/
15436
15437 data (calcpts(j,35), j = 1,neta) /-.1442D-04, -.1761D-04,
15438 # -.2114D-04, -.2543D-04, -.3088D-04, -.3788D-04, -.4561D-04,
15439 # -.5524D-04, -.6656D-04, -.8093D-04, -.9821D-04, -.1189D-03,
15440 # -.1444D-03, -.1747D-03, -.2120D-03, -.2566D-03, -.3108D-03,
15441 # -.3768D-03, -.4572D-03, -.5540D-03, -.6717D-03, -.8145D-03,
15442 # -.9876D-03, -.1197D-02, -.1452D-02, -.1761D-02, -.2136D-02,
15443 # -.2592D-02, -.3149D-02, -.3828D-02, -.4659D-02, -.5676D-02,
15444 # -.6916D-02, -.8412D-02, -.1018D-01, -.1218D-01, -.1435D-01,
15445 # -.1653D-01, -.1855D-01, -.2023D-01, -.2142D-01, -.2198D-01,
15446 # -.2186D-01, -.2106D-01, -.1968D-01, -.1791D-01, -.1604D-01,
15447 # -.1436D-01, -.1306D-01, -.1210D-01, -.1132D-01, -.1049D-01,
15448 # -.9515D-02, -.8398D-02, -.7220D-02, -.6068D-02, -.5007D-02,
15449 # -.4069D-02, -.3270D-02, -.2598D-02, -.2052D-02, -.1605D-02,
15450 # -.1246D-02, -.9591D-03, -.7326D-03, -.5526D-03, -.4260D-03,
15451 # -.3261D-03, -.2461D-03, -.1861D-03, -.1395D-03, -.1061D-03,
15452 # -.7946D-04/
15453
15454 data (calcpts(j,36), j = 1,neta) /-.1137D-04, -.1382D-04,
15455 # -.1702D-04, -.2062D-04, -.2489D-04, -.3011D-04, -.3664D-04,
15456 # -.4486D-04, -.5375D-04, -.6514D-04, -.7944D-04, -.9638D-04,
15457 # -.1165D-03, -.1415D-03, -.1711D-03, -.2073D-03, -.2513D-03,
15458 # -.3046D-03, -.3692D-03, -.4476D-03, -.5425D-03, -.6577D-03,
15459 # -.7973D-03, -.9666D-03, -.1172D-02, -.1421D-02, -.1723D-02,
15460 # -.2090D-02, -.2536D-02, -.3079D-02, -.3741D-02, -.4548D-02,
15461 # -.5527D-02, -.6701D-02, -.8081D-02, -.9647D-02, -.1134D-01,
15462 # -.1306D-01, -.1468D-01, -.1608D-01, -.1713D-01, -.1775D-01,
15463 # -.1788D-01, -.1748D-01, -.1660D-01, -.1530D-01, -.1377D-01,
15464 # -.1222D-01, -.1087D-01, -.9851D-02, -.9116D-02, -.8513D-02,
15465 # -.7875D-02, -.7120D-02, -.6263D-02, -.5366D-02, -.4494D-02,
15466 # -.3697D-02, -.2997D-02, -.2401D-02, -.1913D-02, -.1499D-02,
15467 # -.1166D-02, -.9065D-03, -.6999D-03, -.5266D-03, -.4067D-03,
15468 # -.3067D-03, -.2334D-03, -.1734D-03, -.1334D-03, -.1001D-03,
15469 # -.7340D-04/
15470
15471 data (calcpts(j,37), j = 1,neta) /-.9350D-05, -.1113D-04,
15472 # -.1370D-04, -.1661D-04, -.2005D-04, -.2421D-04, -.2924D-04,
15473 # -.3544D-04, -.4294D-04, -.5203D-04, -.6306D-04, -.7640D-04,
15474 # -.9263D-04, -.1122D-03, -.1360D-03, -.1649D-03, -.1998D-03,
15475 # -.2422D-03, -.2935D-03, -.3558D-03, -.4312D-03, -.5227D-03,
15476 # -.6336D-03, -.7680D-03, -.9309D-03, -.1128D-02, -.1368D-02,
15477 # -.1658D-02, -.2011D-02, -.2439D-02, -.2961D-02, -.3593D-02,
15478 # -.4358D-02, -.5271D-02, -.6341D-02, -.7553D-02, -.8865D-02,
15479 # -.1021D-01, -.1149D-01, -.1263D-01, -.1353D-01, -.1413D-01,
15480 # -.1439D-01, -.1427D-01, -.1377D-01, -.1291D-01, -.1178D-01,
15481 # -.1050D-01, -.9244D-02, -.8180D-02, -.7389D-02, -.6829D-02,
15482 # -.6369D-02, -.5881D-02, -.5303D-02, -.4651D-02, -.3971D-02,
15483 # -.3316D-02, -.2720D-02, -.2199D-02, -.1758D-02, -.1392D-02,
15484 # -.1095D-02, -.8512D-03, -.6606D-03, -.5066D-03, -.3886D-03,
15485 # -.2953D-03, -.2240D-03, -.1693D-03, -.1273D-03, -.9535D-04,
15486 # -.7135D-04/
15487
15488 data (calcpts(j,38), j = 1,neta) /-.7323D-05, -.8879D-05,
15489 # -.1071D-04, -.1298D-04, -.1574D-04, -.1902D-04, -.2306D-04,
15490 # -.2791D-04, -.3375D-04, -.4091D-04, -.4954D-04, -.6005D-04,
15491 # -.7274D-04, -.8814D-04, -.1067D-03, -.1294D-03, -.1568D-03,
15492 # -.1900D-03, -.2303D-03, -.2792D-03, -.3383D-03, -.4100D-03,
15493 # -.4970D-03, -.6023D-03, -.7300D-03, -.8847D-03, -.1072D-02,
15494 # -.1299D-02, -.1575D-02, -.1909D-02, -.2315D-02, -.2806D-02,
15495 # -.3397D-02, -.4101D-02, -.4924D-02, -.5855D-02, -.6865D-02,
15496 # -.7905D-02, -.8912D-02, -.9819D-02, -.1057D-01, -.1111D-01,
15497 # -.1141D-01, -.1146D-01, -.1122D-01, -.1071D-01, -.9941D-02,
15498 # -.8985D-02, -.7943D-02, -.6946D-02, -.6119D-02, -.5514D-02,
15499 # -.5091D-02, -.4743D-02, -.4372D-02, -.3933D-02, -.3439D-02,
15500 # -.2928D-02, -.2438D-02, -.1994D-02, -.1609D-02, -.1283D-02,
15501 # -.1016D-02, -.7942D-03, -.6176D-03, -.4770D-03, -.3677D-03,
15502 # -.2804D-03, -.2130D-03, -.1610D-03, -.1217D-03, -.9104D-04,
15503 # -.6771D-04/
15504
15505 data (calcpts(j,39), j = 1,neta) /-.5564D-05, -.6759D-05,
15506 # -.8192D-05, -.9970D-05, -.1212D-04, -.1469D-04, -.1779D-04,
15507 # -.2157D-04, -.2609D-04, -.3166D-04, -.3838D-04, -.4656D-04,
15508 # -.5639D-04, -.6835D-04, -.8283D-04, -.1004D-03, -.1217D-03,
15509 # -.1475D-03, -.1787D-03, -.2167D-03, -.2625D-03, -.3182D-03,
15510 # -.3856D-03, -.4674D-03, -.5663D-03, -.6863D-03, -.8314D-03,
15511 # -.1007D-02, -.1221D-02, -.1479D-02, -.1792D-02, -.2170D-02,
15512 # -.2623D-02, -.3162D-02, -.3790D-02, -.4501D-02, -.5273D-02,
15513 # -.6072D-02, -.6852D-02, -.7568D-02, -.8177D-02, -.8646D-02,
15514 # -.8952D-02, -.9074D-02, -.9000D-02, -.8723D-02, -.8246D-02,
15515 # -.7592D-02, -.6807D-02, -.5974D-02, -.5194D-02, -.4557D-02,
15516 # -.4098D-02, -.3780D-02, -.3519D-02, -.3239D-02, -.2907D-02,
15517 # -.2535D-02, -.2153D-02, -.1788D-02, -.1457D-02, -.1175D-02,
15518 # -.9354D-03, -.7381D-03, -.5775D-03, -.4488D-03, -.3468D-03,
15519 # -.2662D-03, -.2035D-03, -.1549D-03, -.1169D-03, -.8820D-04,
15520 # -.6620D-04/
15521
15522 data (calcpts(j,40), j = 1,neta) /-.4321D-05, -.5241D-05,
15523 # -.6319D-05, -.7696D-05, -.9306D-05, -.1129D-04, -.1367D-04,
15524 # -.1662D-04, -.2009D-04, -.2435D-04, -.2952D-04, -.3579D-04,
15525 # -.4337D-04, -.5257D-04, -.6371D-04, -.7722D-04, -.9360D-04,
15526 # -.1134D-03, -.1374D-03, -.1666D-03, -.2019D-03, -.2446D-03,
15527 # -.2965D-03, -.3593D-03, -.4353D-03, -.5274D-03, -.6389D-03,
15528 # -.7739D-03, -.9375D-03, -.1135D-02, -.1374D-02, -.1663D-02,
15529 # -.2009D-02, -.2418D-02, -.2895D-02, -.3434D-02, -.4020D-02,
15530 # -.4630D-02, -.5230D-02, -.5788D-02, -.6274D-02, -.6666D-02,
15531 # -.6944D-02, -.7097D-02, -.7115D-02, -.6989D-02, -.6715D-02,
15532 # -.6298D-02, -.5755D-02, -.5125D-02, -.4469D-02, -.3865D-02,
15533 # -.3379D-02, -.3033D-02, -.2795D-02, -.2600D-02, -.2389D-02,
15534 # -.2140D-02, -.1862D-02, -.1578D-02, -.1307D-02, -.1065D-02,
15535 # -.8552D-03, -.6799D-03, -.5353D-03, -.4180D-03, -.3246D-03,
15536 # -.2506D-03, -.1920D-03, -.1466D-03, -.1113D-03, -.8399D-04,
15537 # -.6332D-04/
15538
15539 data (calcpts(j,41), j = 1,neta) /-.3334D-05, -.4055D-05,
15540 # -.4852D-05, -.5910D-05, -.7143D-05, -.8672D-05, -.1049D-04,
15541 # -.1268D-04, -.1537D-04, -.1864D-04, -.2260D-04, -.2733D-04,
15542 # -.3314D-04, -.4016D-04, -.4862D-04, -.5896D-04, -.7144D-04,
15543 # -.8655D-04, -.1049D-03, -.1271D-03, -.1540D-03, -.1866D-03,
15544 # -.2261D-03, -.2740D-03, -.3319D-03, -.4022D-03, -.4871D-03,
15545 # -.5900D-03, -.7145D-03, -.8649D-03, -.1047D-02, -.1265D-02,
15546 # -.1527D-02, -.1837D-02, -.2196D-02, -.2603D-02, -.3046D-02,
15547 # -.3508D-02, -.3966D-02, -.4397D-02, -.4780D-02, -.5098D-02,
15548 # -.5339D-02, -.5494D-02, -.5555D-02, -.5518D-02, -.5376D-02,
15549 # -.5128D-02, -.4777D-02, -.4337D-02, -.3838D-02, -.3328D-02,
15550 # -.2864D-02, -.2496D-02, -.2236D-02, -.2060D-02, -.1915D-02,
15551 # -.1757D-02, -.1571D-02, -.1364D-02, -.1157D-02, -.9529D-03,
15552 # -.7742D-03, -.6209D-03, -.4923D-03, -.3869D-03, -.3023D-03,
15553 # -.2343D-03, -.1803D-03, -.1383D-03, -.1050D-03, -.7963D-04,
15554 # -.6029D-04/
15555
15556 data (calcpts(j,42), j = 1,neta) /-.2479D-05, -.3065D-05,
15557 # -.3689D-05, -.4454D-05, -.5396D-05, -.6551D-05, -.7966D-05,
15558 # -.9624D-05, -.1164D-04, -.1409D-04, -.1709D-04, -.2071D-04,
15559 # -.2511D-04, -.3044D-04, -.3685D-04, -.4467D-04, -.5412D-04,
15560 # -.6560D-04, -.7945D-04, -.9630D-04, -.1166D-03, -.1413D-03,
15561 # -.1713D-03, -.2076D-03, -.2514D-03, -.3046D-03, -.3689D-03,
15562 # -.4468D-03, -.5409D-03, -.6546D-03, -.7917D-03, -.9566D-03,
15563 # -.1154D-02, -.1386D-02, -.1657D-02, -.1962D-02, -.2295D-02,
15564 # -.2644D-02, -.2991D-02, -.3321D-02, -.3618D-02, -.3872D-02,
15565 # -.4073D-02, -.4215D-02, -.4293D-02, -.4303D-02, -.4241D-02,
15566 # -.4104D-02, -.3890D-02, -.3602D-02, -.3251D-02, -.2861D-02,
15567 # -.2468D-02, -.2115D-02, -.1837D-02, -.1644D-02, -.1513D-02,
15568 # -.1406D-02, -.1289D-02, -.1150D-02, -.9963D-03, -.8400D-03,
15569 # -.6934D-03, -.5621D-03, -.4501D-03, -.3568D-03, -.2801D-03,
15570 # -.2181D-03, -.1688D-03, -.1301D-03, -.9944D-04, -.7544D-04,
15571 # -.5744D-04/
15572
15573 data (calcpts(j,43), j = 1,neta) /-.1859D-05, -.2269D-05,
15574 # -.2779D-05, -.3347D-05, -.4064D-05, -.4958D-05, -.5995D-05,
15575 # -.7236D-05, -.8771D-05, -.1062D-04, -.1288D-04, -.1560D-04,
15576 # -.1890D-04, -.2290D-04, -.2775D-04, -.3363D-04, -.4075D-04,
15577 # -.4937D-04, -.5983D-04, -.7250D-04, -.8785D-04, -.1064D-03,
15578 # -.1290D-03, -.1563D-03, -.1893D-03, -.2293D-03, -.2777D-03,
15579 # -.3363D-03, -.4070D-03, -.4925D-03, -.5955D-03, -.7191D-03,
15580 # -.8667D-03, -.1041D-02, -.1243D-02, -.1471D-02, -.1720D-02,
15581 # -.1982D-02, -.2244D-02, -.2495D-02, -.2724D-02, -.2923D-02,
15582 # -.3086D-02, -.3209D-02, -.3288D-02, -.3321D-02, -.3304D-02,
15583 # -.3235D-02, -.3111D-02, -.2932D-02, -.2702D-02, -.2426D-02,
15584 # -.2125D-02, -.1824D-02, -.1557D-02, -.1349D-02, -.1205D-02,
15585 # -.1109D-02, -.1029D-02, -.9423D-03, -.8397D-03, -.7260D-03,
15586 # -.6111D-03, -.5032D-03, -.4074D-03, -.3254D-03, -.2574D-03,
15587 # -.2021D-03, -.1574D-03, -.1214D-03, -.9342D-04, -.7142D-04,
15588 # -.5409D-04/
15589
15590 data (calcpts(j,44), j = 1,neta) /-.1425D-05, -.1723D-05,
15591 # -.2083D-05, -.2524D-05, -.3056D-05, -.3699D-05, -.4481D-05,
15592 # -.5430D-05, -.6576D-05, -.7963D-05, -.9650D-05, -.1169D-04,
15593 # -.1416D-04, -.1716D-04, -.2079D-04, -.2519D-04, -.3052D-04,
15594 # -.3698D-04, -.4482D-04, -.5431D-04, -.6579D-04, -.7972D-04,
15595 # -.9660D-04, -.1170D-03, -.1417D-03, -.1717D-03, -.2079D-03,
15596 # -.2518D-03, -.3047D-03, -.3686D-03, -.4455D-03, -.5378D-03,
15597 # -.6479D-03, -.7776D-03, -.9280D-03, -.1098D-02, -.1284D-02,
15598 # -.1479D-02, -.1676D-02, -.1865D-02, -.2041D-02, -.2195D-02,
15599 # -.2325D-02, -.2428D-02, -.2499D-02, -.2539D-02, -.2546D-02,
15600 # -.2517D-02, -.2450D-02, -.2345D-02, -.2200D-02, -.2016D-02,
15601 # -.1803D-02, -.1571D-02, -.1344D-02, -.1143D-02, -.9871D-03,
15602 # -.8809D-03, -.8099D-03, -.7514D-03, -.6872D-03, -.6114D-03,
15603 # -.5277D-03, -.4433D-03, -.3645D-03, -.2946D-03, -.2351D-03,
15604 # -.1856D-03, -.1456D-03, -.1129D-03, -.8693D-04, -.6693D-04,
15605 # -.5093D-04/
15606
15607 data (calcpts(j,45), j = 1,neta) /-.1047D-05, -.1275D-05,
15608 # -.1544D-05, -.1873D-05, -.2268D-05, -.2748D-05, -.3332D-05,
15609 # -.4036D-05, -.4893D-05, -.5928D-05, -.7185D-05, -.8710D-05,
15610 # -.1055D-04, -.1279D-04, -.1549D-04, -.1877D-04, -.2276D-04,
15611 # -.2757D-04, -.3341D-04, -.4049D-04, -.4905D-04, -.5944D-04,
15612 # -.7201D-04, -.8724D-04, -.1057D-03, -.1280D-03, -.1550D-03,
15613 # -.1876D-03, -.2271D-03, -.2746D-03, -.3319D-03, -.4005D-03,
15614 # -.4822D-03, -.5785D-03, -.6900D-03, -.8160D-03, -.9539D-03,
15615 # -.1099D-02, -.1246D-02, -.1389D-02, -.1522D-02, -.1641D-02,
15616 # -.1743D-02, -.1826D-02, -.1887D-02, -.1928D-02, -.1945D-02,
15617 # -.1938D-02, -.1906D-02, -.1846D-02, -.1758D-02, -.1642D-02,
15618 # -.1499D-02, -.1335D-02, -.1159D-02, -.9869D-03, -.8364D-03,
15619 # -.7209D-03, -.6425D-03, -.5904D-03, -.5475D-03, -.5002D-03,
15620 # -.4444D-03, -.3830D-03, -.3212D-03, -.2637D-03, -.2128D-03,
15621 # -.1696D-03, -.1338D-03, -.1049D-03, -.8132D-04, -.6279D-04,
15622 # -.4812D-04/
15623
15624 data (calcpts(j,46), j = 1,neta) /-.7797D-06, -.9460D-06,
15625 # -.1149D-05, -.1390D-05, -.1685D-05, -.2043D-05, -.2478D-05,
15626 # -.3000D-05, -.3631D-05, -.4402D-05, -.5337D-05, -.6469D-05,
15627 # -.7835D-05, -.9494D-05, -.1150D-04, -.1394D-04, -.1689D-04,
15628 # -.2047D-04, -.2480D-04, -.3005D-04, -.3641D-04, -.4411D-04,
15629 # -.5345D-04, -.6475D-04, -.7843D-04, -.9499D-04, -.1150D-03,
15630 # -.1392D-03, -.1685D-03, -.2037D-03, -.2461D-03, -.2970D-03,
15631 # -.3574D-03, -.4286D-03, -.5110D-03, -.6042D-03, -.7062D-03,
15632 # -.8140D-03, -.9235D-03, -.1030D-02, -.1131D-02, -.1222D-02,
15633 # -.1300D-02, -.1366D-02, -.1417D-02, -.1454D-02, -.1474D-02,
15634 # -.1479D-02, -.1466D-02, -.1434D-02, -.1383D-02, -.1313D-02,
15635 # -.1221D-02, -.1110D-02, -.9850D-03, -.8519D-03, -.7227D-03,
15636 # -.6105D-03, -.5250D-03, -.4674D-03, -.4293D-03, -.3978D-03,
15637 # -.3632D-03, -.3223D-03, -.2773D-03, -.2321D-03, -.1902D-03,
15638 # -.1533D-03, -.1220D-03, -.9633D-04, -.7513D-04, -.5833D-04,
15639 # -.4486D-04/
15640
15641 data (calcpts(j,47), j = 1,neta) /-.5812D-06, -.7041D-06,
15642 # -.8530D-06, -.1034D-05, -.1247D-05, -.1512D-05, -.1830D-05,
15643 # -.2218D-05, -.2692D-05, -.3258D-05, -.3949D-05, -.4785D-05,
15644 # -.5798D-05, -.7020D-05, -.8509D-05, -.1031D-04, -.1249D-04,
15645 # -.1514D-04, -.1834D-04, -.2222D-04, -.2692D-04, -.3261D-04,
15646 # -.3952D-04, -.4787D-04, -.5798D-04, -.7023D-04, -.8502D-04,
15647 # -.1029D-03, -.1245D-03, -.1505D-03, -.1819D-03, -.2193D-03,
15648 # -.2639D-03, -.3164D-03, -.3771D-03, -.4458D-03, -.5210D-03,
15649 # -.6007D-03, -.6818D-03, -.7614D-03, -.8367D-03, -.9054D-03,
15650 # -.9658D-03, -.1018D-02, -.1059D-02, -.1090D-02, -.1111D-02,
15651 # -.1120D-02, -.1118D-02, -.1102D-02, -.1074D-02, -.1032D-02,
15652 # -.9757D-03, -.9045D-03, -.8198D-03, -.7246D-03, -.6244D-03,
15653 # -.5279D-03, -.4446D-03, -.3815D-03, -.3393D-03, -.3115D-03,
15654 # -.2885D-03, -.2631D-03, -.2332D-03, -.2003D-03, -.1675D-03,
15655 # -.1370D-03, -.1103D-03, -.8765D-04, -.6899D-04, -.5385D-04,
15656 # -.4165D-04/
15657
15658 data (calcpts(j,48), j = 1,neta) /-.4289D-06, -.5178D-06,
15659 # -.6274D-06, -.7621D-06, -.9198D-06, -.1112D-05, -.1351D-05,
15660 # -.1637D-05, -.1984D-05, -.2400D-05, -.2909D-05, -.3527D-05,
15661 # -.4273D-05, -.5175D-05, -.6268D-05, -.7597D-05, -.9203D-05,
15662 # -.1115D-04, -.1351D-04, -.1637D-04, -.1983D-04, -.2403D-04,
15663 # -.2912D-04, -.3527D-04, -.4272D-04, -.5174D-04, -.6264D-04,
15664 # -.7582D-04, -.9172D-04, -.1109D-03, -.1339D-03, -.1615D-03,
15665 # -.1943D-03, -.2329D-03, -.2775D-03, -.3278D-03, -.3832D-03,
15666 # -.4419D-03, -.5019D-03, -.5609D-03, -.6172D-03, -.6690D-03,
15667 # -.7152D-03, -.7550D-03, -.7880D-03, -.8138D-03, -.8322D-03,
15668 # -.8427D-03, -.8453D-03, -.8395D-03, -.8249D-03, -.8008D-03,
15669 # -.7669D-03, -.7226D-03, -.6678D-03, -.6033D-03, -.5315D-03,
15670 # -.4565D-03, -.3860D-03, -.3231D-03, -.2767D-03, -.2458D-03,
15671 # -.2256D-03, -.2088D-03, -.1903D-03, -.1684D-03, -.1445D-03,
15672 # -.1206D-03, -.9858D-04, -.7925D-04, -.6292D-04, -.4952D-04,
15673 # -.3852D-04/
15674
15675 data (calcpts(j,49), j = 1,neta) /-.3130D-06, -.3793D-06,
15676 # -.4580D-06, -.5590D-06, -.6787D-06, -.8204D-06, -.9885D-06,
15677 # -.1201D-05, -.1456D-05, -.1761D-05, -.2137D-05, -.2588D-05,
15678 # -.3137D-05, -.3800D-05, -.4604D-05, -.5579D-05, -.6762D-05,
15679 # -.8190D-05, -.9926D-05, -.1203D-04, -.1457D-04, -.1765D-04,
15680 # -.2138D-04, -.2590D-04, -.3137D-04, -.3800D-04, -.4600D-04,
15681 # -.5567D-04, -.6735D-04, -.8141D-04, -.9832D-04, -.1185D-03,
15682 # -.1426D-03, -.1708D-03, -.2035D-03, -.2405D-03, -.2811D-03,
15683 # -.3241D-03, -.3683D-03, -.4121D-03, -.4539D-03, -.4927D-03,
15684 # -.5276D-03, -.5582D-03, -.5840D-03, -.6048D-03, -.6204D-03,
15685 # -.6307D-03, -.6355D-03, -.6346D-03, -.6277D-03, -.6146D-03,
15686 # -.5947D-03, -.5677D-03, -.5333D-03, -.4915D-03, -.4427D-03,
15687 # -.3888D-03, -.3330D-03, -.2798D-03, -.2343D-03, -.2003D-03,
15688 # -.1778D-03, -.1630D-03, -.1509D-03, -.1374D-03, -.1215D-03,
15689 # -.1041D-03, -.8673D-04, -.7079D-04, -.5686D-04, -.4513D-04,
15690 # -.3539D-04/
15691
15692 data (dlaeta(j), j = 1,neta) /
15693 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
15694 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
15695 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
15696 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
15697 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
15698 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
15699 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
15700 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
15701 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
15702 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
15703 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
15704 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
15705 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
15706 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
15707 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
15708
15709 data (dlaxi(j), j = 1,nxi) /
15710 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
15711 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
15712 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
15713 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
15714 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
15715 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
15716 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
15717 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
15718 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
15719 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
15720
15721 dleta = dlog10(eta)
15722 dlxi = dlog10(xi)
15723 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
15724 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
15725 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
15726 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
15727 call locate(dlaeta,neta, dleta, ieta)
15728 call locate(dlaxi, nxi, dlxi, ixi)
15729c interpolating between the appropriate points
15730 delxi = 1d0/6d0
15731 deleta = 1d0/6d0
15732c lagrange 3-pt.
15733 if (ixi .le. 2) ixi = 2
15734 if (ixi .ge. 48) ixi = 48
15735 if (ieta .le. 2) ieta = 2
15736 if (ieta .ge. 72) ieta = 72
15737 pxi = (dlxi - dlaxi(ixi))/delxi
15738 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
15739 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
15740 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
15741 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
15742 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
15743 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
15744 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
15745 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
15746 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
15747 peta = (dleta - dlaeta(ieta))/deleta
15748 h1_ATg = peta*(peta-1d0)/2d0*f(-1) +
15749 # (1d0 - peta**2)*f(0) +
15750CMB # + peta*(peta+1d0)/2d0*f(1)
15751 # peta*(peta+1d0)/2d0*f(1)
15752 return
15753 end
15754
15755c ========================================
15756 double precision function h1_FTg(eta,xi)
15757c ========================================
15758
15759c eq (10) in PLB347 (1995) 143 - 151 for the transverse piece
15760c MSbar scheme
15761c This routine is called subctcf in the original code.
15762c Called sctcf in updated code (03/06/96).
15763
15764 implicit none
15765 integer neta, nxi
15766 parameter (neta = 73, nxi = 49)
15767 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
15768 double precision eta, xi, dleta, dlxi
15769 double precision pxi, peta, f(-1:1), delxi, deleta
15770 integer j, ieta, ixi
15771 data (calcpts(j, 1), j = 1,neta) /-.2005D-03, -.2004D-03,
15772 # -.3501D-03, -.3497D-03, -.4991D-03, -.4983D-03, -.6470D-03,
15773 # -.7952D-03, -.9425D-03, -.1089D-02, -.1383D-02, -.1524D-02,
15774 # -.1962D-02, -.2243D-02, -.2666D-02, -.3227D-02, -.3769D-02,
15775 # -.4434D-02, -.5209D-02, -.6075D-02, -.7007D-02, -.7963D-02,
15776 # -.8887D-02, -.9694D-02, -.1011D-01, -.1027D-01, -.9623D-02,
15777 # -.7967D-02, -.4835D-02, -.5091D-03, 0.5340D-02, 0.1151D-01,
15778 # 0.1643D-01, 0.1747D-01, 0.1237D-01, 0.7897D-03, -.1390D-01,
15779 # -.2616D-01, -.3083D-01, -.2674D-01, -.1655D-01, -.4410D-02,
15780 # 0.6429D-02, 0.1431D-01, 0.1894D-01, 0.2087D-01, 0.2082D-01,
15781 # 0.1952D-01, 0.1755D-01, 0.1527D-01, 0.1299D-01, 0.1083D-01,
15782 # 0.8899D-02, 0.7217D-02, 0.5789D-02, 0.4600D-02, 0.3625D-02,
15783 # 0.2837D-02, 0.2204D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15784 # 0.7622D-03, 0.5780D-03, 0.4364D-03, 0.3286D-03, 0.2464D-03,
15785 # 0.1844D-03, 0.1375D-03, 0.1022D-03, 0.7583D-04, 0.5611D-04,
15786 # 0.4143D-04/
15787
15788 data (calcpts(j, 2), j = 1,neta) /-.1546D-03, -.3044D-03,
15789 # -.3042D-03, -.3038D-03, -.4532D-03, -.4523D-03, -.6011D-03,
15790 # -.7493D-03, -.8966D-03, -.1043D-02, -.1337D-02, -.1628D-02,
15791 # -.1916D-02, -.2347D-02, -.2770D-02, -.3181D-02, -.3873D-02,
15792 # -.4538D-02, -.5313D-02, -.6180D-02, -.6961D-02, -.7918D-02,
15793 # -.8841D-02, -.9649D-02, -.1022D-01, -.1023D-01, -.9578D-02,
15794 # -.7923D-02, -.4941D-02, -.4661D-03, 0.5382D-02, 0.1155D-01,
15795 # 0.1647D-01, 0.1750D-01, 0.1240D-01, 0.8170D-03, -.1388D-01,
15796 # -.2616D-01, -.3083D-01, -.2673D-01, -.1655D-01, -.4404D-02,
15797 # 0.6433D-02, 0.1429D-01, 0.1894D-01, 0.2086D-01, 0.2082D-01,
15798 # 0.1952D-01, 0.1755D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15799 # 0.8899D-02, 0.7217D-02, 0.5789D-02, 0.4600D-02, 0.3625D-02,
15800 # 0.2837D-02, 0.2204D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15801 # 0.7622D-03, 0.5780D-03, 0.4364D-03, 0.3286D-03, 0.2464D-03,
15802 # 0.1844D-03, 0.1375D-03, 0.1022D-03, 0.7583D-04, 0.5611D-04,
15803 # 0.4143D-04/
15804
15805 data (calcpts(j, 3), j = 1,neta) /-.2373D-03, -.2372D-03,
15806 # -.2369D-03, -.3865D-03, -.3859D-03, -.5351D-03, -.6838D-03,
15807 # -.6820D-03, -.9793D-03, -.1125D-02, -.1270D-02, -.1561D-02,
15808 # -.1848D-02, -.2280D-02, -.2703D-02, -.3264D-02, -.3806D-02,
15809 # -.4471D-02, -.5246D-02, -.6112D-02, -.7044D-02, -.8001D-02,
15810 # -.8924D-02, -.9582D-02, -.1015D-01, -.1016D-01, -.9512D-02,
15811 # -.7858D-02, -.4877D-02, -.4031D-03, 0.5293D-02, 0.1145D-01,
15812 # 0.1637D-01, 0.1755D-01, 0.1244D-01, 0.8570D-03, -.1399D-01,
15813 # -.2615D-01, -.3083D-01, -.2673D-01, -.1656D-01, -.4395D-02,
15814 # 0.6424D-02, 0.1430D-01, 0.1893D-01, 0.2086D-01, 0.2082D-01,
15815 # 0.1952D-01, 0.1755D-01, 0.1527D-01, 0.1299D-01, 0.1083D-01,
15816 # 0.8899D-02, 0.7217D-02, 0.5789D-02, 0.4600D-02, 0.3625D-02,
15817 # 0.2837D-02, 0.2204D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15818 # 0.7622D-03, 0.5778D-03, 0.4364D-03, 0.3286D-03, 0.2464D-03,
15819 # 0.1844D-03, 0.1375D-03, 0.1022D-03, 0.7583D-04, 0.5611D-04,
15820 # 0.4143D-04/
15821
15822 data (calcpts(j, 4), j = 1,neta) /-.1385D-03, -.2883D-03,
15823 # -.2881D-03, -.2877D-03, -.4371D-03, -.5862D-03, -.5850D-03,
15824 # -.7331D-03, -.8804D-03, -.1026D-02, -.1321D-02, -.1612D-02,
15825 # -.1900D-02, -.2331D-02, -.2754D-02, -.3165D-02, -.3857D-02,
15826 # -.4522D-02, -.5297D-02, -.6164D-02, -.6946D-02, -.7902D-02,
15827 # -.8826D-02, -.9634D-02, -.1020D-01, -.1021D-01, -.9565D-02,
15828 # -.7912D-02, -.4932D-02, -.4606D-03, 0.5233D-02, 0.1154D-01,
15829 # 0.1645D-01, 0.1748D-01, 0.1236D-01, 0.7658D-03, -.1394D-01,
15830 # -.2615D-01, -.3082D-01, -.2673D-01, -.1655D-01, -.4398D-02,
15831 # 0.6433D-02, 0.1429D-01, 0.1894D-01, 0.2087D-01, 0.2083D-01,
15832 # 0.1952D-01, 0.1753D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15833 # 0.8899D-02, 0.7216D-02, 0.5790D-02, 0.4600D-02, 0.3625D-02,
15834 # 0.2837D-02, 0.2204D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15835 # 0.7622D-03, 0.5778D-03, 0.4364D-03, 0.3286D-03, 0.2464D-03,
15836 # 0.1844D-03, 0.1375D-03, 0.1022D-03, 0.7582D-04, 0.5611D-04,
15837 # 0.4143D-04/
15838
15839 data (calcpts(j, 5), j = 1,neta) /-.1435D-03, -.2933D-03,
15840 # -.2930D-03, -.2926D-03, -.4421D-03, -.5912D-03, -.5900D-03,
15841 # -.7381D-03, -.8854D-03, -.1031D-02, -.1326D-02, -.1617D-02,
15842 # -.1905D-02, -.2336D-02, -.2759D-02, -.3170D-02, -.3862D-02,
15843 # -.4527D-02, -.5302D-02, -.6169D-02, -.6951D-02, -.7908D-02,
15844 # -.8831D-02, -.9640D-02, -.1021D-01, -.1022D-01, -.9573D-02,
15845 # -.7921D-02, -.4944D-02, -.4749D-03, 0.5215D-02, 0.1152D-01,
15846 # 0.1642D-01, 0.1744D-01, 0.1231D-01, 0.8520D-03, -.1402D-01,
15847 # -.2614D-01, -.3081D-01, -.2671D-01, -.1654D-01, -.4394D-02,
15848 # 0.6431D-02, 0.1430D-01, 0.1893D-01, 0.2087D-01, 0.2083D-01,
15849 # 0.1953D-01, 0.1754D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15850 # 0.8898D-02, 0.7216D-02, 0.5788D-02, 0.4600D-02, 0.3625D-02,
15851 # 0.2835D-02, 0.2205D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15852 # 0.7621D-03, 0.5778D-03, 0.4365D-03, 0.3286D-03, 0.2464D-03,
15853 # 0.1844D-03, 0.1374D-03, 0.1022D-03, 0.7582D-04, 0.5611D-04,
15854 # 0.4143D-04/
15855
15856 data (calcpts(j, 6), j = 1,neta) /-.2310D-03, -.2308D-03,
15857 # -.2305D-03, -.3801D-03, -.3795D-03, -.5287D-03, -.6774D-03,
15858 # -.8256D-03, -.9729D-03, -.1119D-02, -.1263D-02, -.1555D-02,
15859 # -.1842D-02, -.2274D-02, -.2697D-02, -.3257D-02, -.3799D-02,
15860 # -.4464D-02, -.5240D-02, -.6107D-02, -.7039D-02, -.7996D-02,
15861 # -.8920D-02, -.9579D-02, -.1015D-01, -.1016D-01, -.9515D-02,
15862 # -.7865D-02, -.4891D-02, -.5759D-03, 0.5258D-02, 0.1140D-01,
15863 # 0.1630D-01, 0.1745D-01, 0.1231D-01, 0.8284D-03, -.1392D-01,
15864 # -.2614D-01, -.3080D-01, -.2671D-01, -.1653D-01, -.4397D-02,
15865 # 0.6421D-02, 0.1430D-01, 0.1894D-01, 0.2086D-01, 0.2082D-01,
15866 # 0.1953D-01, 0.1754D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15867 # 0.8897D-02, 0.7216D-02, 0.5788D-02, 0.4599D-02, 0.3625D-02,
15868 # 0.2836D-02, 0.2205D-02, 0.1703D-02, 0.1309D-02, 0.1001D-02,
15869 # 0.7621D-03, 0.5779D-03, 0.4365D-03, 0.3284D-03, 0.2464D-03,
15870 # 0.1844D-03, 0.1374D-03, 0.1022D-03, 0.7582D-04, 0.5611D-04,
15871 # 0.4143D-04/
15872
15873 data (calcpts(j, 7), j = 1,neta) /-.2194D-03, -.2192D-03,
15874 # -.2189D-03, -.3685D-03, -.3680D-03, -.5171D-03, -.6659D-03,
15875 # -.8140D-03, -.9613D-03, -.1107D-02, -.1252D-02, -.1543D-02,
15876 # -.1831D-02, -.2262D-02, -.2685D-02, -.3246D-02, -.3788D-02,
15877 # -.4453D-02, -.5228D-02, -.6096D-02, -.7028D-02, -.7985D-02,
15878 # -.8910D-02, -.9569D-02, -.1014D-01, -.1030D-01, -.9660D-02,
15879 # -.7863D-02, -.5043D-02, -.5842D-03, 0.5241D-02, 0.1137D-01,
15880 # 0.1625D-01, 0.1739D-01, 0.1222D-01, 0.7137D-03, -.1391D-01,
15881 # -.2612D-01, -.3079D-01, -.2669D-01, -.1652D-01, -.4402D-02,
15882 # 0.6419D-02, 0.1429D-01, 0.1892D-01, 0.2086D-01, 0.2081D-01,
15883 # 0.1952D-01, 0.1754D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15884 # 0.8896D-02, 0.7215D-02, 0.5787D-02, 0.4599D-02, 0.3625D-02,
15885 # 0.2836D-02, 0.2205D-02, 0.1704D-02, 0.1309D-02, 0.1001D-02,
15886 # 0.7621D-03, 0.5779D-03, 0.4365D-03, 0.3285D-03, 0.2464D-03,
15887 # 0.1842D-03, 0.1374D-03, 0.1022D-03, 0.7582D-04, 0.5611D-04,
15888 # 0.4143D-04/
15889
15890 data (calcpts(j, 8), j = 1,neta) /-.2128D-03, -.2126D-03,
15891 # -.3623D-03, -.3619D-03, -.3613D-03, -.5105D-03, -.6592D-03,
15892 # -.8074D-03, -.9547D-03, -.1101D-02, -.1245D-02, -.1536D-02,
15893 # -.1824D-02, -.2256D-02, -.2679D-02, -.3239D-02, -.3782D-02,
15894 # -.4447D-02, -.5222D-02, -.6090D-02, -.7022D-02, -.7980D-02,
15895 # -.8905D-02, -.9566D-02, -.1014D-01, -.1030D-01, -.9663D-02,
15896 # -.8021D-02, -.5056D-02, -.6067D-03, 0.5056D-02, 0.1132D-01,
15897 # 0.1618D-01, 0.1713D-01, 0.1223D-01, 0.6853D-03, -.1398D-01,
15898 # -.2611D-01, -.3077D-01, -.2667D-01, -.1652D-01, -.4388D-02,
15899 # 0.6431D-02, 0.1429D-01, 0.1893D-01, 0.2086D-01, 0.2082D-01,
15900 # 0.1951D-01, 0.1753D-01, 0.1526D-01, 0.1298D-01, 0.1083D-01,
15901 # 0.8895D-02, 0.7215D-02, 0.5788D-02, 0.4598D-02, 0.3624D-02,
15902 # 0.2836D-02, 0.2203D-02, 0.1704D-02, 0.1309D-02, 0.1001D-02,
15903 # 0.7620D-03, 0.5779D-03, 0.4365D-03, 0.3285D-03, 0.2464D-03,
15904 # 0.1842D-03, 0.1374D-03, 0.1022D-03, 0.7582D-04, 0.5611D-04,
15905 # 0.4143D-04/
15906
15907 data (calcpts(j, 9), j = 1,neta) /-.1453D-03, -.2952D-03,
15908 # -.2949D-03, -.2945D-03, -.4439D-03, -.4431D-03, -.5918D-03,
15909 # -.7400D-03, -.8873D-03, -.1033D-02, -.1328D-02, -.1619D-02,
15910 # -.1907D-02, -.2188D-02, -.2762D-02, -.3172D-02, -.3864D-02,
15911 # -.4530D-02, -.5306D-02, -.6023D-02, -.6956D-02, -.7915D-02,
15912 # -.8841D-02, -.9653D-02, -.1023D-01, -.1024D-01, -.9610D-02,
15913 # -.7974D-02, -.5019D-02, -.7318D-03, 0.4913D-02, 0.1115D-01,
15914 # 0.1598D-01, 0.1704D-01, 0.1209D-01, 0.6323D-03, -.1395D-01,
15915 # -.2608D-01, -.3072D-01, -.2665D-01, -.1649D-01, -.4378D-02,
15916 # 0.6416D-02, 0.1428D-01, 0.1891D-01, 0.2085D-01, 0.2080D-01,
15917 # 0.1950D-01, 0.1752D-01, 0.1527D-01, 0.1298D-01, 0.1083D-01,
15918 # 0.8894D-02, 0.7213D-02, 0.5787D-02, 0.4599D-02, 0.3624D-02,
15919 # 0.2835D-02, 0.2203D-02, 0.1702D-02, 0.1309D-02, 0.1001D-02,
15920 # 0.7620D-03, 0.5777D-03, 0.4363D-03, 0.3285D-03, 0.2464D-03,
15921 # 0.1842D-03, 0.1374D-03, 0.1022D-03, 0.7581D-04, 0.5611D-04,
15922 # 0.4143D-04/
15923
15924 data (calcpts(j,10), j = 1,neta) /-.2188D-03, -.2186D-03,
15925 # -.2183D-03, -.3679D-03, -.3673D-03, -.5165D-03, -.6652D-03,
15926 # -.8134D-03, -.9608D-03, -.1107D-02, -.1251D-02, -.1543D-02,
15927 # -.1830D-02, -.2262D-02, -.2685D-02, -.3246D-02, -.3788D-02,
15928 # -.4454D-02, -.5230D-02, -.6098D-02, -.7032D-02, -.7841D-02,
15929 # -.8769D-02, -.9583D-02, -.1016D-01, -.1018D-01, -.9704D-02,
15930 # -.8077D-02, -.5135D-02, -.8675D-03, 0.4751D-02, 0.1096D-01,
15931 # 0.1573D-01, 0.1673D-01, 0.1185D-01, 0.4632D-03, -.1406D-01,
15932 # -.2606D-01, -.3067D-01, -.2659D-01, -.1647D-01, -.4373D-02,
15933 # 0.6415D-02, 0.1427D-01, 0.1891D-01, 0.2083D-01, 0.2079D-01,
15934 # 0.1950D-01, 0.1752D-01, 0.1526D-01, 0.1297D-01, 0.1082D-01,
15935 # 0.8891D-02, 0.7211D-02, 0.5785D-02, 0.4598D-02, 0.3623D-02,
15936 # 0.2835D-02, 0.2204D-02, 0.1702D-02, 0.1308D-02, 0.1001D-02,
15937 # 0.7619D-03, 0.5776D-03, 0.4364D-03, 0.3285D-03, 0.2463D-03,
15938 # 0.1842D-03, 0.1374D-03, 0.1022D-03, 0.7581D-04, 0.5610D-04,
15939 # 0.4142D-04/
15940
15941 data (calcpts(j,11), j = 1,neta) /-.1437D-03, -.2935D-03,
15942 # -.2933D-03, -.2929D-03, -.4423D-03, -.4414D-03, -.5902D-03,
15943 # -.7384D-03, -.8857D-03, -.1032D-02, -.1326D-02, -.1618D-02,
15944 # -.1905D-02, -.2187D-02, -.2610D-02, -.3171D-02, -.3714D-02,
15945 # -.4380D-02, -.5156D-02, -.6025D-02, -.6960D-02, -.7920D-02,
15946 # -.8850D-02, -.9667D-02, -.1010D-01, -.1028D-01, -.9659D-02,
15947 # -.8046D-02, -.5273D-02, -.1033D-02, 0.4546D-02, 0.1055D-01,
15948 # 0.1540D-01, 0.1646D-01, 0.1163D-01, 0.4108D-03, -.1410D-01,
15949 # -.2601D-01, -.3059D-01, -.2652D-01, -.1642D-01, -.4356D-02,
15950 # 0.6410D-02, 0.1426D-01, 0.1888D-01, 0.2081D-01, 0.2078D-01,
15951 # 0.1949D-01, 0.1752D-01, 0.1525D-01, 0.1297D-01, 0.1082D-01,
15952 # 0.8887D-02, 0.7209D-02, 0.5783D-02, 0.4596D-02, 0.3622D-02,
15953 # 0.2834D-02, 0.2202D-02, 0.1703D-02, 0.1308D-02, 0.1000D-02,
15954 # 0.7617D-03, 0.5775D-03, 0.4362D-03, 0.3284D-03, 0.2463D-03,
15955 # 0.1843D-03, 0.1374D-03, 0.1022D-03, 0.7580D-04, 0.5609D-04,
15956 # 0.4142D-04/
15957
15958 data (calcpts(j,12), j = 1,neta) /-.1721D-03, -.1719D-03,
15959 # -.3216D-03, -.3212D-03, -.4707D-03, -.4698D-03, -.6186D-03,
15960 # -.7668D-03, -.9141D-03, -.1060D-02, -.1355D-02, -.1496D-02,
15961 # -.1934D-02, -.2216D-02, -.2639D-02, -.3200D-02, -.3743D-02,
15962 # -.4410D-02, -.5187D-02, -.6056D-02, -.6993D-02, -.7805D-02,
15963 # -.8738D-02, -.9560D-02, -.1015D-01, -.1019D-01, -.9731D-02,
15964 # -.8137D-02, -.5394D-02, -.1194D-02, 0.4180D-02, 0.1010D-01,
15965 # 0.1486D-01, 0.1594D-01, 0.1109D-01, 0.1429D-03, -.1411D-01,
15966 # -.2595D-01, -.3047D-01, -.2643D-01, -.1637D-01, -.4346D-02,
15967 # 0.6403D-02, 0.1424D-01, 0.1885D-01, 0.2079D-01, 0.2076D-01,
15968 # 0.1946D-01, 0.1749D-01, 0.1524D-01, 0.1296D-01, 0.1081D-01,
15969 # 0.8882D-02, 0.7204D-02, 0.5779D-02, 0.4593D-02, 0.3620D-02,
15970 # 0.2833D-02, 0.2201D-02, 0.1701D-02, 0.1308D-02, 0.1000D-02,
15971 # 0.7615D-03, 0.5774D-03, 0.4361D-03, 0.3282D-03, 0.2463D-03,
15972 # 0.1841D-03, 0.1373D-03, 0.1021D-03, 0.7577D-04, 0.5607D-04,
15973 # 0.4140D-04/
15974
15975 data (calcpts(j,13), j = 1,neta) /-.1707D-03, -.1705D-03,
15976 # -.3202D-03, -.3198D-03, -.4693D-03, -.4684D-03, -.6172D-03,
15977 # -.7654D-03, -.9128D-03, -.1059D-02, -.1353D-02, -.1495D-02,
15978 # -.1783D-02, -.2215D-02, -.2639D-02, -.3200D-02, -.3743D-02,
15979 # -.4410D-02, -.5188D-02, -.5909D-02, -.6848D-02, -.7813D-02,
15980 # -.8751D-02, -.9579D-02, -.1018D-01, -.1023D-01, -.9793D-02,
15981 # -.8378D-02, -.5676D-02, -.1534D-02, 0.3758D-02, 0.9572D-02,
15982 # 0.1418D-01, 0.1522D-01, 0.1059D-01, -.1719D-03, -.1426D-01,
15983 # -.2585D-01, -.3032D-01, -.2629D-01, -.1629D-01, -.4321D-02,
15984 # 0.6391D-02, 0.1421D-01, 0.1882D-01, 0.2075D-01, 0.2072D-01,
15985 # 0.1943D-01, 0.1748D-01, 0.1521D-01, 0.1294D-01, 0.1080D-01,
15986 # 0.8874D-02, 0.7198D-02, 0.5775D-02, 0.4590D-02, 0.3617D-02,
15987 # 0.2831D-02, 0.2200D-02, 0.1700D-02, 0.1307D-02, 0.9996D-03,
15988 # 0.7612D-03, 0.5771D-03, 0.4359D-03, 0.3281D-03, 0.2462D-03,
15989 # 0.1841D-03, 0.1373D-03, 0.1021D-03, 0.7575D-04, 0.5606D-04,
15990 # 0.4139D-04/
15991
15992 data (calcpts(j,14), j = 1,neta) /-.1968D-03, -.1967D-03,
15993 # -.3464D-03, -.3460D-03, -.3455D-03, -.4946D-03, -.6434D-03,
15994 # -.7917D-03, -.9391D-03, -.1085D-02, -.1230D-02, -.1521D-02,
15995 # -.1809D-02, -.2242D-02, -.2666D-02, -.3077D-02, -.3621D-02,
15996 # -.4289D-02, -.5069D-02, -.5942D-02, -.6883D-02, -.7703D-02,
15997 # -.8647D-02, -.9484D-02, -.1010D-01, -.1032D-01, -.9760D-02,
15998 # -.8537D-02, -.5893D-02, -.1986D-02, 0.3039D-02, 0.8692D-02,
15999 # 0.1309D-01, 0.1430D-01, 0.9794D-02, -.7502D-03, -.1435D-01,
16000 # -.2570D-01, -.3009D-01, -.2609D-01, -.1617D-01, -.4278D-02,
16001 # 0.6379D-02, 0.1415D-01, 0.1876D-01, 0.2070D-01, 0.2068D-01,
16002 # 0.1941D-01, 0.1744D-01, 0.1520D-01, 0.1292D-01, 0.1078D-01,
16003 # 0.8862D-02, 0.7189D-02, 0.5769D-02, 0.4586D-02, 0.3615D-02,
16004 # 0.2828D-02, 0.2198D-02, 0.1699D-02, 0.1306D-02, 0.9988D-03,
16005 # 0.7606D-03, 0.5768D-03, 0.4357D-03, 0.3279D-03, 0.2461D-03,
16006 # 0.1840D-03, 0.1372D-03, 0.1021D-03, 0.7573D-04, 0.5604D-04,
16007 # 0.4138D-04/
16008
16009 data (calcpts(j,15), j = 1,neta) /-.1824D-03, -.1823D-03,
16010 # -.3320D-03, -.3316D-03, -.4811D-03, -.4803D-03, -.6291D-03,
16011 # -.7773D-03, -.9248D-03, -.1071D-02, -.1216D-02, -.1507D-02,
16012 # -.1796D-02, -.2228D-02, -.2503D-02, -.3065D-02, -.3610D-02,
16013 # -.4279D-02, -.5061D-02, -.5787D-02, -.6732D-02, -.7708D-02,
16014 # -.8511D-02, -.9361D-02, -.9993D-02, -.1024D-01, -.9876D-02,
16015 # -.8711D-02, -.6303D-02, -.2665D-02, 0.2193D-02, 0.7467D-02,
16016 # 0.1186D-01, 0.1284D-01, 0.8604D-02, -.1434D-02, -.1442D-01,
16017 # -.2550D-01, -.2975D-01, -.2580D-01, -.1602D-01, -.4239D-02,
16018 # 0.6339D-02, 0.1408D-01, 0.1867D-01, 0.2062D-01, 0.2060D-01,
16019 # 0.1933D-01, 0.1739D-01, 0.1515D-01, 0.1289D-01, 0.1076D-01,
16020 # 0.8844D-02, 0.7176D-02, 0.5758D-02, 0.4578D-02, 0.3609D-02,
16021 # 0.2824D-02, 0.2195D-02, 0.1697D-02, 0.1304D-02, 0.9978D-03,
16022 # 0.7599D-03, 0.5762D-03, 0.4354D-03, 0.3277D-03, 0.2459D-03,
16023 # 0.1839D-03, 0.1371D-03, 0.1020D-03, 0.7567D-04, 0.5600D-04,
16024 # 0.4136D-04/
16025
16026 data (calcpts(j,16), j = 1,neta) /-.1800D-03, -.1799D-03,
16027 # -.3296D-03, -.3292D-03, -.3287D-03, -.4779D-03, -.6267D-03,
16028 # -.6250D-03, -.7725D-03, -.1069D-02, -.1213D-02, -.1506D-02,
16029 # -.1794D-02, -.2077D-02, -.2502D-02, -.2915D-02, -.3612D-02,
16030 # -.4133D-02, -.4917D-02, -.5647D-02, -.6598D-02, -.7583D-02,
16031 # -.8399D-02, -.9268D-02, -.9927D-02, -.1022D-01, -.1006D-01,
16032 # -.8976D-02, -.6836D-02, -.3517D-02, 0.9542D-03, 0.5906D-02,
16033 # 0.1002D-01, 0.1105D-01, 0.7198D-02, -.2258D-02, -.1472D-01,
16034 # -.2521D-01, -.2927D-01, -.2542D-01, -.1580D-01, -.4190D-02,
16035 # 0.6275D-02, 0.1396D-01, 0.1855D-01, 0.2048D-01, 0.2050D-01,
16036 # 0.1925D-01, 0.1732D-01, 0.1510D-01, 0.1285D-01, 0.1073D-01,
16037 # 0.8819D-02, 0.7157D-02, 0.5744D-02, 0.4567D-02, 0.3601D-02,
16038 # 0.2819D-02, 0.2191D-02, 0.1694D-02, 0.1302D-02, 0.9963D-03,
16039 # 0.7588D-03, 0.5754D-03, 0.4348D-03, 0.3272D-03, 0.2455D-03,
16040 # 0.1837D-03, 0.1370D-03, 0.1019D-03, 0.7560D-04, 0.5596D-04,
16041 # 0.4132D-04/
16042
16043 data (calcpts(j,17), j = 1,neta) /-.1148D-03, -.2646D-03,
16044 # -.2644D-03, -.2640D-03, -.4135D-03, -.4127D-03, -.5616D-03,
16045 # -.7100D-03, -.8576D-03, -.1004D-02, -.1149D-02, -.1441D-02,
16046 # -.1730D-02, -.2013D-02, -.2439D-02, -.2854D-02, -.3402D-02,
16047 # -.4076D-02, -.4714D-02, -.5599D-02, -.6409D-02, -.7256D-02,
16048 # -.8239D-02, -.9134D-02, -.9831D-02, -.1017D-01, -.1010D-01,
16049 # -.9280D-02, -.7456D-02, -.4522D-02, -.5274D-03, 0.3977D-02,
16050 # 0.7644D-02, 0.8816D-02, 0.5388D-02, -.3332D-02, -.1483D-01,
16051 # -.2478D-01, -.2863D-01, -.2489D-01, -.1552D-01, -.4146D-02,
16052 # 0.6172D-02, 0.1378D-01, 0.1835D-01, 0.2029D-01, 0.2033D-01,
16053 # 0.1912D-01, 0.1722D-01, 0.1502D-01, 0.1278D-01, 0.1068D-01,
16054 # 0.8782D-02, 0.7130D-02, 0.5725D-02, 0.4553D-02, 0.3590D-02,
16055 # 0.2811D-02, 0.2186D-02, 0.1690D-02, 0.1299D-02, 0.9941D-03,
16056 # 0.7572D-03, 0.5743D-03, 0.4340D-03, 0.3268D-03, 0.2452D-03,
16057 # 0.1835D-03, 0.1368D-03, 0.1018D-03, 0.7550D-04, 0.5588D-04,
16058 # 0.4127D-04/
16059
16060 data (calcpts(j,18), j = 1,neta) /-.1467D-03, -.1465D-03,
16061 # -.2963D-03, -.2960D-03, -.2955D-03, -.4447D-03, -.5937D-03,
16062 # -.5921D-03, -.7398D-03, -.8864D-03, -.1181D-02, -.1324D-02,
16063 # -.1613D-02, -.1898D-02, -.2325D-02, -.2741D-02, -.3291D-02,
16064 # -.3819D-02, -.4462D-02, -.5205D-02, -.6176D-02, -.7039D-02,
16065 # -.7897D-02, -.8826D-02, -.9575D-02, -.9992D-02, -.1002D-01,
16066 # -.9512D-02, -.8062D-02, -.5594D-02, -.2193D-02, 0.1706D-02,
16067 # 0.5020D-02, 0.6064D-02, 0.3033D-02, -.4576D-02, -.1507D-01,
16068 # -.2416D-01, -.2776D-01, -.2419D-01, -.1519D-01, -.4142D-02,
16069 # 0.5976D-02, 0.1351D-01, 0.1805D-01, 0.2003D-01, 0.2009D-01,
16070 # 0.1892D-01, 0.1705D-01, 0.1489D-01, 0.1269D-01, 0.1061D-01,
16071 # 0.8730D-02, 0.7091D-02, 0.5696D-02, 0.4531D-02, 0.3575D-02,
16072 # 0.2799D-02, 0.2178D-02, 0.1683D-02, 0.1295D-02, 0.9910D-03,
16073 # 0.7550D-03, 0.5727D-03, 0.4329D-03, 0.3260D-03, 0.2446D-03,
16074 # 0.1830D-03, 0.1365D-03, 0.1016D-03, 0.7536D-04, 0.5579D-04,
16075 # 0.4120D-04/
16076
16077 data (calcpts(j,19), j = 1,neta) /-.2090D-03, -.2088D-03,
16078 # -.2086D-03, -.2083D-03, -.3578D-03, -.3571D-03, -.5061D-03,
16079 # -.6547D-03, -.6525D-03, -.7993D-03, -.1095D-02, -.1238D-02,
16080 # -.1528D-02, -.1813D-02, -.2092D-02, -.2510D-02, -.3064D-02,
16081 # -.3595D-02, -.4245D-02, -.4999D-02, -.5684D-02, -.6569D-02,
16082 # -.7458D-02, -.8283D-02, -.9099D-02, -.9764D-02, -.9935D-02,
16083 # -.9630D-02, -.8473D-02, -.6571D-02, -.3899D-02, -.6442D-03,
16084 # 0.2218D-02, 0.3113D-02, 0.6896D-03, -.5955D-02, -.1509D-01,
16085 # -.2328D-01, -.2662D-01, -.2333D-01, -.1482D-01, -.4195D-02,
16086 # 0.5655D-02, 0.1305D-01, 0.1759D-01, 0.1960D-01, 0.1974D-01,
16087 # 0.1863D-01, 0.1682D-01, 0.1472D-01, 0.1256D-01, 0.1051D-01,
16088 # 0.8655D-02, 0.7035D-02, 0.5655D-02, 0.4501D-02, 0.3553D-02,
16089 # 0.2784D-02, 0.2166D-02, 0.1676D-02, 0.1289D-02, 0.9868D-03,
16090 # 0.7519D-03, 0.5706D-03, 0.4312D-03, 0.3248D-03, 0.2438D-03,
16091 # 0.1824D-03, 0.1361D-03, 0.1013D-03, 0.7515D-04, 0.5564D-04,
16092 # 0.4110D-04/
16093
16094 data (calcpts(j,20), j = 1,neta) /-.1704D-03, -.1703D-03,
16095 # -.1701D-03, -.1698D-03, -.3194D-03, -.3188D-03, -.4679D-03,
16096 # -.4665D-03, -.6145D-03, -.7616D-03, -.9074D-03, -.1051D-02,
16097 # -.1342D-02, -.1629D-02, -.1909D-02, -.2330D-02, -.2737D-02,
16098 # -.3275D-02, -.3784D-02, -.4550D-02, -.5253D-02, -.6015D-02,
16099 # -.6793D-02, -.7677D-02, -.8426D-02, -.9065D-02, -.9413D-02,
16100 # -.9366D-02, -.8727D-02, -.7347D-02, -.5105D-02, -.2548D-02,
16101 # -.2590D-03, 0.4423D-03, -.1496D-02, -.6912D-02, -.1477D-01,
16102 # -.2202D-01, -.2513D-01, -.2227D-01, -.1444D-01, -.4398D-02,
16103 # 0.5099D-02, 0.1237D-01, 0.1690D-01, 0.1899D-01, 0.1922D-01,
16104 # 0.1822D-01, 0.1651D-01, 0.1447D-01, 0.1237D-01, 0.1037D-01,
16105 # 0.8549D-02, 0.6956D-02, 0.5596D-02, 0.4459D-02, 0.3522D-02,
16106 # 0.2761D-02, 0.2149D-02, 0.1663D-02, 0.1280D-02, 0.9806D-03,
16107 # 0.7475D-03, 0.5674D-03, 0.4290D-03, 0.3232D-03, 0.2427D-03,
16108 # 0.1816D-03, 0.1355D-03, 0.1009D-03, 0.7488D-04, 0.5544D-04,
16109 # 0.4096D-04/
16110
16111 data (calcpts(j,21), j = 1,neta) /-.9777D-04, -.9765D-04,
16112 # -.2475D-03, -.2472D-03, -.2468D-03, -.3963D-03, -.3955D-03,
16113 # -.5443D-03, -.5425D-03, -.6900D-03, -.8362D-03, -.9806D-03,
16114 # -.1272D-02, -.1411D-02, -.1693D-02, -.2117D-02, -.2380D-02,
16115 # -.2924D-02, -.3443D-02, -.3924D-02, -.4649D-02, -.5293D-02,
16116 # -.6119D-02, -.6921D-02, -.7621D-02, -.8255D-02, -.8666D-02,
16117 # -.8774D-02, -.8275D-02, -.7367D-02, -.5844D-02, -.3874D-02,
16118 # -.1962D-02, -.1328D-02, -.2876D-02, -.7216D-02, -.1382D-01,
16119 # -.2019D-01, -.2324D-01, -.2102D-01, -.1410D-01, -.4830D-02,
16120 # 0.4201D-02, 0.1132D-01, 0.1589D-01, 0.1810D-01, 0.1848D-01,
16121 # 0.1764D-01, 0.1604D-01, 0.1411D-01, 0.1210D-01, 0.1017D-01,
16122 # 0.8402D-02, 0.6848D-02, 0.5517D-02, 0.4401D-02, 0.3480D-02,
16123 # 0.2730D-02, 0.2128D-02, 0.1649D-02, 0.1269D-02, 0.9725D-03,
16124 # 0.7418D-03, 0.5633D-03, 0.4261D-03, 0.3212D-03, 0.2412D-03,
16125 # 0.1805D-03, 0.1348D-03, 0.1003D-03, 0.7450D-04, 0.5519D-04,
16126 # 0.4077D-04/
16127
16128 data (calcpts(j,22), j = 1,neta) /-.1735D-03, -.1734D-03,
16129 # -.1732D-03, -.1730D-03, -.1727D-03, -.3222D-03, -.3215D-03,
16130 # -.4705D-03, -.4690D-03, -.6168D-03, -.7635D-03, -.9088D-03,
16131 # -.1052D-02, -.1192D-02, -.1476D-02, -.1754D-02, -.2022D-02,
16132 # -.2424D-02, -.2805D-02, -.3302D-02, -.3902D-02, -.4582D-02,
16133 # -.5160D-02, -.5890D-02, -.6402D-02, -.7051D-02, -.7399D-02,
16134 # -.7551D-02, -.7244D-02, -.6584D-02, -.5435D-02, -.3748D-02,
16135 # -.2404D-02, -.1634D-02, -.2806D-02, -.6324D-02, -.1186D-01,
16136 # -.1759D-01, -.2080D-01, -.1952D-01, -.1382D-01, -.5557D-02,
16137 # 0.2891D-02, 0.9818D-02, 0.1445D-01, 0.1684D-01, 0.1745D-01,
16138 # 0.1682D-01, 0.1542D-01, 0.1364D-01, 0.1175D-01, 0.9902D-02,
16139 # 0.8205D-02, 0.6703D-02, 0.5412D-02, 0.4324D-02, 0.3423D-02,
16140 # 0.2689D-02, 0.2099D-02, 0.1627D-02, 0.1254D-02, 0.9617D-03,
16141 # 0.7340D-03, 0.5578D-03, 0.4222D-03, 0.3184D-03, 0.2392D-03,
16142 # 0.1791D-03, 0.1338D-03, 0.9964D-04, 0.7402D-04, 0.5483D-04,
16143 # 0.4054D-04/
16144
16145 data (calcpts(j,23), j = 1,neta) /-.1129D-03, -.1128D-03,
16146 # -.1127D-03, -.1125D-03, -.1122D-03, -.2618D-03, -.2612D-03,
16147 # -.2604D-03, -.4091D-03, -.4073D-03, -.5546D-03, -.7007D-03,
16148 # -.8449D-03, -.9864D-03, -.1124D-02, -.1406D-02, -.1679D-02,
16149 # -.1939D-02, -.2331D-02, -.2697D-02, -.3172D-02, -.3590D-02,
16150 # -.4073D-02, -.4583D-02, -.5063D-02, -.5583D-02, -.5880D-02,
16151 # -.5942D-02, -.5700D-02, -.5019D-02, -.3989D-02, -.2646D-02,
16152 # -.1380D-02, -.6668D-03, -.1348D-02, -.4099D-02, -.8787D-02,
16153 # -.1408D-01, -.1771D-01, -.1766D-01, -.1350D-01, -.6539D-02,
16154 # 0.1131D-02, 0.7788D-02, 0.1250D-01, 0.1516D-01, 0.1607D-01,
16155 # 0.1573D-01, 0.1458D-01, 0.1301D-01, 0.1127D-01, 0.9550D-02,
16156 # 0.7946D-02, 0.6514D-02, 0.5274D-02, 0.4223D-02, 0.3352D-02,
16157 # 0.2638D-02, 0.2061D-02, 0.1599D-02, 0.1235D-02, 0.9479D-03,
16158 # 0.7242D-03, 0.5508D-03, 0.4171D-03, 0.3147D-03, 0.2367D-03,
16159 # 0.1774D-03, 0.1326D-03, 0.9877D-04, 0.7339D-04, 0.5439D-04,
16160 # 0.4023D-04/
16161
16162 data (calcpts(j,24), j = 1,neta) /-.6910D-04, -.6903D-04,
16163 # -.9893D-04, -.1138D-03, -.1286D-03, -.1583D-03, -.2028D-03,
16164 # -.2471D-03, -.2911D-03, -.3496D-03, -.4225D-03, -.5093D-03,
16165 # -.6097D-03, -.7229D-03, -.8780D-03, -.1043D-02, -.1247D-02,
16166 # -.1470D-02, -.1739D-02, -.2031D-02, -.2367D-02, -.2716D-02,
16167 # -.3103D-02, -.3481D-02, -.3821D-02, -.4103D-02, -.4266D-02,
16168 # -.4227D-02, -.3915D-02, -.3268D-02, -.2253D-02, -.9436D-03,
16169 # 0.4012D-03, 0.1290D-02, 0.1046D-02, -.9929D-03, -.4925D-02,
16170 # -.9856D-02, -.1397D-01, -.1528D-01, -.1294D-01, -.7601D-02,
16171 # -.9618D-03, 0.5278D-02, 0.1004D-01, 0.1299D-01, 0.1429D-01,
16172 # 0.1432D-01, 0.1350D-01, 0.1220D-01, 0.1067D-01, 0.9105D-02,
16173 # 0.7620D-02, 0.6276D-02, 0.5100D-02, 0.4098D-02, 0.3261D-02,
16174 # 0.2573D-02, 0.2015D-02, 0.1566D-02, 0.1211D-02, 0.9308D-03,
16175 # 0.7119D-03, 0.5422D-03, 0.4110D-03, 0.3105D-03, 0.2336D-03,
16176 # 0.1753D-03, 0.1310D-03, 0.9769D-04, 0.7262D-04, 0.5386D-04,
16177 # 0.3984D-04/
16178
16179 data (calcpts(j,25), j = 1,neta) /-.4463D-04, -.5957D-04,
16180 # -.7450D-04, -.8938D-04, -.1042D-03, -.1190D-03, -.1486D-03,
16181 # -.1781D-03, -.2073D-03, -.2512D-03, -.3095D-03, -.3671D-03,
16182 # -.4385D-03, -.5383D-03, -.6356D-03, -.7593D-03, -.8927D-03,
16183 # -.1063D-02, -.1253D-02, -.1455D-02, -.1694D-02, -.1941D-02,
16184 # -.2196D-02, -.2435D-02, -.2639D-02, -.2786D-02, -.2809D-02,
16185 # -.2651D-02, -.2252D-02, -.1543D-02, -.5098D-03, 0.8178D-03,
16186 # 0.2215D-02, 0.3330D-02, 0.3531D-02, 0.2191D-02, -.9599D-03,
16187 # -.5427D-02, -.9834D-02, -.1238D-01, -.1187D-01, -.8389D-02,
16188 # -.3088D-02, 0.2501D-02, 0.7192D-02, 0.1042D-01, 0.1214D-01,
16189 # 0.1261D-01, 0.1219D-01, 0.1120D-01, 0.9929D-02, 0.8561D-02,
16190 # 0.7221D-02, 0.5986D-02, 0.4890D-02, 0.3947D-02, 0.3152D-02,
16191 # 0.2494D-02, 0.1957D-02, 0.1526D-02, 0.1182D-02, 0.9102D-03,
16192 # 0.6974D-03, 0.5317D-03, 0.4036D-03, 0.3053D-03, 0.2299D-03,
16193 # 0.1726D-03, 0.1292D-03, 0.9638D-04, 0.7171D-04, 0.5322D-04,
16194 # 0.3940D-04/
16195
16196 data (calcpts(j,26), j = 1,neta) /-.2966D-04, -.2962D-04,
16197 # -.4456D-04, -.4447D-04, -.5935D-04, -.7417D-04, -.8890D-04,
16198 # -.1185D-03, -.1329D-03, -.1621D-03, -.2058D-03, -.2490D-03,
16199 # -.3063D-03, -.3624D-03, -.4316D-03, -.5132D-03, -.6057D-03,
16200 # -.7225D-03, -.8457D-03, -.9865D-03, -.1139D-02, -.1295D-02,
16201 # -.1441D-02, -.1591D-02, -.1687D-02, -.1708D-02, -.1632D-02,
16202 # -.1397D-02, -.9495D-03, -.2161D-03, 0.8048D-03, 0.2109D-02,
16203 # 0.3533D-02, 0.4767D-02, 0.5314D-02, 0.4615D-02, 0.2265D-02,
16204 # -.1537D-02, -.5856D-02, -.9181D-02, -.1023D-01, -.8583D-02,
16205 # -.4844D-02, -.1984D-03, 0.4188D-02, 0.7570D-02, 0.9685D-02,
16206 # 0.1062D-01, 0.1064D-01, 0.1003D-01, 0.9054D-02, 0.7917D-02,
16207 # 0.6752D-02, 0.5644D-02, 0.4644D-02, 0.3768D-02, 0.3024D-02,
16208 # 0.2402D-02, 0.1891D-02, 0.1479D-02, 0.1148D-02, 0.8863D-03,
16209 # 0.6802D-03, 0.5196D-03, 0.3951D-03, 0.2992D-03, 0.2257D-03,
16210 # 0.1695D-03, 0.1270D-03, 0.9488D-04, 0.7065D-04, 0.5247D-04,
16211 # 0.3887D-04/
16212
16213 data (calcpts(j,27), j = 1,neta) /-.3332D-04, -.3329D-04,
16214 # -.4825D-04, -.4819D-04, -.6309D-04, -.6296D-04, -.7777D-04,
16215 # -.9248D-04, -.1071D-03, -.1364D-03, -.1505D-03, -.1792D-03,
16216 # -.2222D-03, -.2494D-03, -.3051D-03, -.3589D-03, -.4248D-03,
16217 # -.4865D-03, -.5719D-03, -.6482D-03, -.7412D-03, -.8295D-03,
16218 # -.9192D-03, -.9822D-03, -.9994D-03, -.9586D-03, -.8365D-03,
16219 # -.5633D-03, -.9504D-04, 0.5896D-03, 0.1553D-02, 0.2755D-02,
16220 # 0.4087D-02, 0.5337D-02, 0.6085D-02, 0.5854D-02, 0.4228D-02,
16221 # 0.1195D-02, -.2655D-02, -.6188D-02, -.8228D-02, -.8095D-02,
16222 # -.5908D-02, -.2429D-02, 0.1368D-02, 0.4683D-02, 0.7072D-02,
16223 # 0.8434D-02, 0.8900D-02, 0.8695D-02, 0.8056D-02, 0.7179D-02,
16224 # 0.6213D-02, 0.5253D-02, 0.4361D-02, 0.3564D-02, 0.2877D-02,
16225 # 0.2297D-02, 0.1817D-02, 0.1425D-02, 0.1110D-02, 0.8591D-03,
16226 # 0.6609D-03, 0.5058D-03, 0.3854D-03, 0.2922D-03, 0.2208D-03,
16227 # 0.1661D-03, 0.1246D-03, 0.9317D-04, 0.6945D-04, 0.5163D-04,
16228 # 0.3828D-04/
16229
16230 data (calcpts(j,28), j = 1,neta) /-.1367D-04, -.1365D-04,
16231 # -.2862D-04, -.2858D-04, -.2851D-04, -.4342D-04, -.4328D-04,
16232 # -.5807D-04, -.7277D-04, -.7232D-04, -.1017D-03, -.1157D-03,
16233 # -.1293D-03, -.1572D-03, -.1842D-03, -.2248D-03, -.2633D-03,
16234 # -.2987D-03, -.3447D-03, -.3991D-03, -.4439D-03, -.4897D-03,
16235 # -.5300D-03, -.5403D-03, -.5221D-03, -.4407D-03, -.2989D-03,
16236 # -.2706D-04, 0.3975D-03, 0.1014D-02, 0.1850D-02, 0.2886D-02,
16237 # 0.4067D-02, 0.5210D-02, 0.6002D-02, 0.6036D-02, 0.4981D-02,
16238 # 0.2682D-02, -.5298D-03, -.3840D-02, -.6280D-02, -.7128D-02,
16239 # -.6212D-02, -.3917D-02, -.9303D-03, 0.2049D-02, 0.4500D-02,
16240 # 0.6172D-02, 0.7042D-02, 0.7241D-02, 0.6951D-02, 0.6357D-02,
16241 # 0.5610D-02, 0.4815D-02, 0.4043D-02, 0.3336D-02, 0.2713D-02,
16242 # 0.2179D-02, 0.1734D-02, 0.1365D-02, 0.1067D-02, 0.8287D-03,
16243 # 0.6394D-03, 0.4906D-03, 0.3745D-03, 0.2845D-03, 0.2153D-03,
16244 # 0.1623D-03, 0.1219D-03, 0.9126D-04, 0.6811D-04, 0.5068D-04,
16245 # 0.3761D-04/
16246
16247 data (calcpts(j,29), j = 1,neta) /0.8002D-06, -.1419D-04,
16248 # -.1416D-04, -.1413D-04, -.1409D-04, -.1402D-04, -.2892D-04,
16249 # -.2877D-04, -.2856D-04, -.4325D-04, -.5778D-04, -.5711D-04,
16250 # -.7112D-04, -.8466D-04, -.1125D-03, -.1244D-03, -.1498D-03,
16251 # -.1730D-03, -.1931D-03, -.2236D-03, -.2473D-03, -.2610D-03,
16252 # -.2753D-03, -.2534D-03, -.2158D-03, -.1335D-03, 0.2768D-04,
16253 # 0.2657D-03, 0.6328D-03, 0.1148D-02, 0.1843D-02, 0.2699D-02,
16254 # 0.3677D-02, 0.4635D-02, 0.5363D-02, 0.5530D-02, 0.4838D-02,
16255 # 0.3127D-02, 0.5668D-03, -.2303D-02, -.4731D-02, -.6054D-02,
16256 # -.5981D-02, -.4655D-02, -.2514D-02, -.7367D-04, 0.2202D-02,
16257 # 0.3995D-02, 0.5164D-02, 0.5717D-02, 0.5769D-02, 0.5467D-02,
16258 # 0.4952D-02, 0.4334D-02, 0.3695D-02, 0.3085D-02, 0.2533D-02,
16259 # 0.2051D-02, 0.1640D-02, 0.1300D-02, 0.1021D-02, 0.7954D-03,
16260 # 0.6157D-03, 0.4738D-03, 0.3626D-03, 0.2761D-03, 0.2094D-03,
16261 # 0.1580D-03, 0.1189D-03, 0.8917D-04, 0.6664D-04, 0.4965D-04,
16262 # 0.3688D-04/
16263
16264 data (calcpts(j,30), j = 1,neta) /0.2726D-05, -.1226D-04,
16265 # -.1225D-04, -.1223D-04, -.1219D-04, -.1215D-04, -.1208D-04,
16266 # -.1198D-04, -.2683D-04, -.2661D-04, -.2628D-04, -.4081D-04,
16267 # -.4012D-04, -.5410D-04, -.6761D-04, -.6541D-04, -.7719D-04,
16268 # -.1025D-03, -.1105D-03, -.1154D-03, -.1305D-03, -.1237D-03,
16269 # -.1217D-03, -.8993D-04, -.5168D-04, 0.3277D-04, 0.1769D-03,
16270 # 0.3852D-03, 0.6838D-03, 0.1107D-02, 0.1652D-02, 0.2325D-02,
16271 # 0.3112D-02, 0.3884D-02, 0.4477D-02, 0.4672D-02, 0.4216D-02,
16272 # 0.2951D-02, 0.9433D-03, -.1449D-02, -.3665D-02, -.5139D-02,
16273 # -.5535D-02, -.4866D-02, -.3416D-02, -.1555D-02, 0.3704D-03,
16274 # 0.2080D-02, 0.3384D-02, 0.4200D-02, 0.4549D-02, 0.4527D-02,
16275 # 0.4248D-02, 0.3816D-02, 0.3319D-02, 0.2814D-02, 0.2337D-02,
16276 # 0.1910D-02, 0.1540D-02, 0.1228D-02, 0.9698D-03, 0.7593D-03,
16277 # 0.5900D-03, 0.4556D-03, 0.3496D-03, 0.2670D-03, 0.2029D-03,
16278 # 0.1536D-03, 0.1157D-03, 0.8690D-04, 0.6504D-04, 0.4852D-04,
16279 # 0.3610D-04/
16280
16281 data (calcpts(j,31), j = 1,neta) /0.1204D-05, 0.1211D-05,
16282 # 0.1222D-05, 0.1237D-05, 0.1259D-05, -.1371D-04, -.1366D-04,
16283 # -.1359D-04, -.1349D-04, -.1333D-04, -.1311D-04, -.1278D-04,
16284 # -.2730D-04, -.2659D-04, -.2556D-04, -.3904D-04, -.3680D-04,
16285 # -.4853D-04, -.4372D-04, -.5167D-04, -.5635D-04, -.4120D-04,
16286 # -.3402D-04, -.1605D-05, 0.4573D-04, 0.1297D-03, 0.2447D-03,
16287 # 0.4041D-03, 0.6562D-03, 0.9796D-03, 0.1404D-02, 0.1920D-02,
16288 # 0.2519D-02, 0.3115D-02, 0.3590D-02, 0.3764D-02, 0.3443D-02,
16289 # 0.2495D-02, 0.9307D-03, -.1023D-02, -.2965D-02, -.4429D-02,
16290 # -.5075D-02, -.4820D-02, -.3847D-02, -.2457D-02, -.9175D-03,
16291 # 0.5657D-03, 0.1835D-02, 0.2778D-02, 0.3347D-02, 0.3567D-02,
16292 # 0.3512D-02, 0.3267D-02, 0.2916D-02, 0.2522D-02, 0.2127D-02,
16293 # 0.1761D-02, 0.1433D-02, 0.1152D-02, 0.9153D-03, 0.7205D-03,
16294 # 0.5625D-03, 0.4360D-03, 0.3358D-03, 0.2572D-03, 0.1960D-03,
16295 # 0.1486D-03, 0.1123D-03, 0.8446D-04, 0.6331D-04, 0.4732D-04,
16296 # 0.3525D-04/
16297
16298 data (calcpts(j,32), j = 1,neta) /-.4108D-06, -.4060D-06,
16299 # -.3988D-06, -.3883D-06, -.1873D-05, -.1850D-05, -.3317D-05,
16300 # -.3268D-05, -.4697D-05, -.6092D-05, -.7438D-05, -.8712D-05,
16301 # -.9880D-05, -.1089D-04, -.1318D-04, -.1513D-04, -.1659D-04,
16302 # -.1733D-04, -.1702D-04, -.1515D-04, -.9533D-05, 0.9116D-06,
16303 # 0.1771D-04, 0.4607D-04, 0.8921D-04, 0.1533D-03, 0.2492D-03,
16304 # 0.3834D-03, 0.5712D-03, 0.8215D-03, 0.1145D-02, 0.1540D-02,
16305 # 0.1985D-02, 0.2433D-02, 0.2792D-02, 0.2929D-02, 0.2695D-02,
16306 # 0.1979D-02, 0.7654D-03, -.8107D-03, -.2468D-02, -.3849D-02,
16307 # -.4632D-02, -.4666D-02, -.4031D-02, -.2965D-02, -.1732D-02,
16308 # -.5033D-03, 0.6184D-03, 0.1553D-02, 0.2232D-02, 0.2630D-02,
16309 # 0.2766D-02, 0.2698D-02, 0.2493D-02, 0.2213D-02, 0.1905D-02,
16310 # 0.1600D-02, 0.1319D-02, 0.1070D-02, 0.8571D-03, 0.6791D-03,
16311 # 0.5331D-03, 0.4152D-03, 0.3211D-03, 0.2467D-03, 0.1886D-03,
16312 # 0.1434D-03, 0.1086D-03, 0.8187D-04, 0.6149D-04, 0.4602D-04,
16313 # 0.3434D-04/
16314
16315 data (calcpts(j,33), j = 1,neta) /-.1502D-05, -.1499D-05,
16316 # -.1494D-05, -.2987D-05, -.2976D-05, -.2960D-05, -.2938D-05,
16317 # -.2904D-05, -.2855D-05, -.4283D-05, -.4177D-05, -.4021D-05,
16318 # -.5293D-05, -.4958D-05, -.5967D-05, -.5246D-05, -.5687D-05,
16319 # -.4135D-05, -.1857D-05, 0.2986D-05, 0.9379D-05, 0.1956D-04,
16320 # 0.3607D-04, 0.6194D-04, 0.9788D-04, 0.1516D-03, 0.2260D-03,
16321 # 0.3319D-03, 0.4751D-03, 0.6637D-03, 0.9059D-03, 0.1200D-02,
16322 # 0.1530D-02, 0.1861D-02, 0.2124D-02, 0.2225D-02, 0.2050D-02,
16323 # 0.1508D-02, 0.5710D-03, -.6807D-03, -.2063D-02, -.3315D-02,
16324 # -.4162D-02, -.4421D-02, -.4069D-02, -.3260D-02, -.2236D-02,
16325 # -.1198D-02, -.2422D-03, 0.5943D-03, 0.1277D-02, 0.1765D-02,
16326 # 0.2043D-02, 0.2126D-02, 0.2058D-02, 0.1891D-02, 0.1669D-02,
16327 # 0.1431D-02, 0.1198D-02, 0.9835D-03, 0.7955D-03, 0.6352D-03,
16328 # 0.5020D-03, 0.3931D-03, 0.3054D-03, 0.2357D-03, 0.1807D-03,
16329 # 0.1379D-03, 0.1047D-03, 0.7910D-04, 0.5955D-04, 0.4466D-04,
16330 # 0.3338D-04/
16331
16332 data (calcpts(j,34), j = 1,neta) /-.6676D-06, -.6653D-06,
16333 # -.6619D-06, -.6570D-06, -.6497D-06, -.6391D-06, -.6234D-06,
16334 # -.6005D-06, -.5668D-06, -.5174D-06, -.4448D-06, -.3383D-06,
16335 # -.1820D-06, 0.4757D-07, 0.3840D-06, 0.8782D-06, 0.3104D-05,
16336 # 0.5667D-05, 0.8728D-05, 0.1252D-04, 0.2037D-04, 0.2979D-04,
16337 # 0.4449D-04, 0.6552D-04, 0.9590D-04, 0.1378D-03, 0.1958D-03,
16338 # 0.2772D-03, 0.3849D-03, 0.5267D-03, 0.7048D-03, 0.9213D-03,
16339 # 0.1163D-02, 0.1404D-02, 0.1595D-02, 0.1666D-02, 0.1531D-02,
16340 # 0.1122D-02, 0.4051D-03, -.5752D-03, -.1702D-02, -.2792D-02,
16341 # -.3638D-02, -.4057D-02, -.3963D-02, -.3408D-02, -.2568D-02,
16342 # -.1655D-02, -.8125D-03, -.8359D-04, 0.5332D-03, 0.1029D-02,
16343 # 0.1379D-02, 0.1572D-02, 0.1621D-02, 0.1560D-02, 0.1425D-02,
16344 # 0.1253D-02, 0.1070D-02, 0.8921D-03, 0.7305D-03, 0.5890D-03,
16345 # 0.4691D-03, 0.3697D-03, 0.2889D-03, 0.2240D-03, 0.1725D-03,
16346 # 0.1320D-03, 0.1005D-03, 0.7618D-04, 0.5748D-04, 0.4321D-04,
16347 # 0.3237D-04/
16348
16349 data (calcpts(j,35), j = 1,neta) /0.5347D-06, 0.5363D-06,
16350 # 0.5386D-06, 0.5419D-06, 0.5469D-06, 0.5542D-06, 0.5649D-06,
16351 # 0.5806D-06, 0.6036D-06, 0.6374D-06, 0.2187D-05, 0.2260D-05,
16352 # 0.2367D-05, 0.2524D-05, 0.4254D-05, 0.4592D-05, 0.6588D-05,
16353 # 0.8816D-05, 0.1288D-04, 0.1745D-04, 0.2274D-04, 0.3211D-04,
16354 # 0.4453D-04, 0.6073D-04, 0.8475D-04, 0.1181D-03, 0.1628D-03,
16355 # 0.2234D-03, 0.3054D-03, 0.4095D-03, 0.5410D-03, 0.6985D-03,
16356 # 0.8741D-03, 0.1048D-02, 0.1186D-02, 0.1233D-02, 0.1131D-02,
16357 # 0.8216D-03, 0.2791D-03, -.4777D-03, -.1375D-02, -.2291D-02,
16358 # -.3077D-02, -.3580D-02, -.3695D-02, -.3395D-02, -.2766D-02,
16359 # -.1979D-02, -.1205D-02, -.5397D-03, 0.7416D-05, 0.4582D-03,
16360 # 0.8161D-03, 0.1067D-02, 0.1201D-02, 0.1229D-02, 0.1175D-02,
16361 # 0.1069D-02, 0.9362D-03, 0.7963D-03, 0.6621D-03, 0.5404D-03,
16362 # 0.4347D-03, 0.3453D-03, 0.2716D-03, 0.2118D-03, 0.1638D-03,
16363 # 0.1259D-03, 0.9621D-04, 0.7313D-04, 0.5534D-04, 0.4170D-04,
16364 # 0.3129D-04/
16365
16366 data (calcpts(j,36), j = 1,neta) /-.1272D-06, -.1261D-06,
16367 # -.1245D-06, -.1222D-06, -.1188D-06, -.1139D-06, 0.1393D-05,
16368 # 0.1404D-05, 0.1420D-05, 0.1443D-05, 0.1477D-05, 0.1527D-05,
16369 # 0.3100D-05, 0.3207D-05, 0.4864D-05, 0.5095D-05, 0.6934D-05,
16370 # 0.8931D-05, 0.1266D-04, 0.1673D-04, 0.2130D-04, 0.2960D-04,
16371 # 0.3896D-04, 0.5288D-04, 0.7206D-04, 0.9603D-04, 0.1307D-03,
16372 # 0.1766D-03, 0.2366D-03, 0.3126D-03, 0.4092D-03, 0.5243D-03,
16373 # 0.6506D-03, 0.7755D-03, 0.8721D-03, 0.9047D-03, 0.8264D-03,
16374 # 0.5968D-03, 0.1887D-03, -.3877D-03, -.1088D-02, -.1834D-02,
16375 # -.2521D-02, -.3038D-02, -.3286D-02, -.3207D-02, -.2811D-02,
16376 # -.2193D-02, -.1499D-02, -.8651D-03, -.3506D-03, 0.5516D-04,
16377 # 0.3822D-03, 0.6395D-03, 0.8182D-03, 0.9113D-03, 0.9262D-03,
16378 # 0.8813D-03, 0.7983D-03, 0.6966D-03, 0.5905D-03, 0.4894D-03,
16379 # 0.3984D-03, 0.3197D-03, 0.2535D-03, 0.1989D-03, 0.1548D-03,
16380 # 0.1195D-03, 0.9167D-04, 0.6994D-04, 0.5308D-04, 0.4011D-04,
16381 # 0.3018D-04/
16382
16383 data (calcpts(j,37), j = 1,neta) /-.3661D-07, -.3588D-07,
16384 # -.3480D-07, -.3323D-07, -.3091D-07, -.2751D-07, 0.1477D-05,
16385 # 0.1485D-05, 0.1496D-05, 0.1511D-05, 0.1534D-05, 0.1568D-05,
16386 # 0.3118D-05, 0.3191D-05, 0.4799D-05, 0.4956D-05, 0.6688D-05,
16387 # 0.8527D-05, 0.1202D-04, 0.1426D-04, 0.1982D-04, 0.2589D-04,
16388 # 0.3269D-04, 0.4355D-04, 0.5745D-04, 0.7660D-04, 0.1035D-03,
16389 # 0.1364D-03, 0.1804D-03, 0.2378D-03, 0.3072D-03, 0.3892D-03,
16390 # 0.4797D-03, 0.5693D-03, 0.6385D-03, 0.6609D-03, 0.6013D-03,
16391 # 0.4300D-03, 0.1266D-03, -.3072D-03, -.8445D-03, -.1435D-02,
16392 # -.2010D-02, -.2491D-02, -.2801D-02, -.2875D-02, -.2689D-02,
16393 # -.2270D-02, -.1706D-02, -.1120D-02, -.6135D-03, -.2218D-03,
16394 # 0.7605D-04, 0.3118D-03, 0.4963D-03, 0.6232D-03, 0.6876D-03,
16395 # 0.6946D-03, 0.6579D-03, 0.5936D-03, 0.5163D-03, 0.4364D-03,
16396 # 0.3607D-03, 0.2929D-03, 0.2344D-03, 0.1855D-03, 0.1452D-03,
16397 # 0.1128D-03, 0.8695D-04, 0.6660D-04, 0.5073D-04, 0.3844D-04,
16398 # 0.2901D-04/
16399
16400 data (calcpts(j,38), j = 1,neta) /0.4340D-06, 0.4345D-06,
16401 # 0.4352D-06, 0.5863D-06, 0.5879D-06, 0.7402D-06, 0.8936D-06,
16402 # 0.1049D-05, 0.1206D-05, 0.1517D-05, 0.1832D-05, 0.2156D-05,
16403 # 0.2640D-05, 0.3290D-05, 0.4113D-05, 0.5120D-05, 0.6328D-05,
16404 # 0.7909D-05, 0.1005D-04, 0.1265D-04, 0.1623D-04, 0.2090D-04,
16405 # 0.2711D-04, 0.3525D-04, 0.4610D-04, 0.6057D-04, 0.7963D-04,
16406 # 0.1045D-03, 0.1369D-03, 0.1778D-03, 0.2282D-03, 0.2876D-03,
16407 # 0.3529D-03, 0.4165D-03, 0.4653D-03, 0.4797D-03, 0.4353D-03,
16408 # 0.3089D-03, 0.8466D-04, -.2385D-03, -.6450D-03, -.1103D-02,
16409 # -.1567D-02, -.1985D-02, -.2300D-02, -.2460D-02, -.2429D-02,
16410 # -.2195D-02, -.1796D-02, -.1306D-02, -.8268D-03, -.4301D-03,
16411 # -.1358D-03, 0.8103D-04, 0.2500D-03, 0.3818D-03, 0.4719D-03,
16412 # 0.5163D-03, 0.5186D-03, 0.4891D-03, 0.4398D-03, 0.3814D-03,
16413 # 0.3214D-03, 0.2650D-03, 0.2148D-03, 0.1714D-03, 0.1354D-03,
16414 # 0.1058D-03, 0.8203D-04, 0.6313D-04, 0.4828D-04, 0.3672D-04,
16415 # 0.2779D-04/
16416
16417 data (calcpts(j,39), j = 1,neta) /0.5623D-07, 0.5657D-07,
16418 # 0.2071D-06, 0.2078D-06, 0.3589D-06, 0.3605D-06, 0.5128D-06,
16419 # 0.6662D-06, 0.8212D-06, 0.9785D-06, 0.1289D-05, 0.1605D-05,
16420 # 0.2078D-05, 0.2562D-05, 0.3212D-05, 0.4036D-05, 0.5043D-05,
16421 # 0.6251D-05, 0.7983D-05, 0.1012D-04, 0.1287D-04, 0.1645D-04,
16422 # 0.2127D-04, 0.2748D-04, 0.3561D-04, 0.4644D-04, 0.6040D-04,
16423 # 0.7877D-04, 0.1022D-03, 0.1320D-03, 0.1684D-03, 0.2110D-03,
16424 # 0.2576D-03, 0.3029D-03, 0.3373D-03, 0.3468D-03, 0.3138D-03,
16425 # 0.2211D-03, 0.5647D-04, -.1822D-03, -.4860D-03, -.8348D-03,
16426 # -.1199D-02, -.1545D-02, -.1832D-02, -.2025D-02, -.2087D-02,
16427 # -.1997D-02, -.1755D-02, -.1398D-02, -.9886D-03, -.6044D-03,
16428 # -.2986D-03, -.7958D-04, 0.7717D-04, 0.1978D-03, 0.2916D-03,
16429 # 0.3554D-03, 0.3859D-03, 0.3857D-03, 0.3623D-03, 0.3247D-03,
16430 # 0.2808D-03, 0.2361D-03, 0.1942D-03, 0.1570D-03, 0.1251D-03,
16431 # 0.9858D-04, 0.7692D-04, 0.5953D-04, 0.4575D-04, 0.3493D-04,
16432 # 0.2653D-04/
16433
16434 data (calcpts(j,40), j = 1,neta) /0.5510D-07, 0.2053D-06,
16435 # 0.2057D-06, 0.2062D-06, 0.3569D-06, 0.3580D-06, 0.5096D-06,
16436 # 0.6619D-06, 0.8153D-06, 0.9703D-06, 0.1128D-05, 0.1438D-05,
16437 # 0.1754D-05, 0.2227D-05, 0.2711D-05, 0.3361D-05, 0.4185D-05,
16438 # 0.5192D-05, 0.6400D-05, 0.8132D-05, 0.1027D-04, 0.1302D-04,
16439 # 0.1660D-04, 0.2126D-04, 0.2732D-04, 0.3528D-04, 0.4562D-04,
16440 # 0.5906D-04, 0.7606D-04, 0.9755D-04, 0.1236D-03, 0.1542D-03,
16441 # 0.1874D-03, 0.2196D-03, 0.2437D-03, 0.2500D-03, 0.2255D-03,
16442 # 0.1579D-03, 0.3784D-04, -.1373D-03, -.3623D-03, -.6244D-03,
16443 # -.9049D-03, -.1181D-02, -.1427D-02, -.1616D-02, -.1722D-02,
16444 # -.1723D-02, -.1607D-02, -.1381D-02, -.1074D-02, -.7406D-03,
16445 # -.4383D-03, -.2052D-03, -.4368D-04, 0.6896D-04, 0.1547D-03,
16446 # 0.2212D-03, 0.2663D-03, 0.2872D-03, 0.2859D-03, 0.2676D-03,
16447 # 0.2391D-03, 0.2061D-03, 0.1729D-03, 0.1419D-03, 0.1145D-03,
16448 # 0.9106D-04, 0.7162D-04, 0.5580D-04, 0.4311D-04, 0.3307D-04,
16449 # 0.2523D-04/
16450
16451 data (calcpts(j,41), j = 1,neta) /0.1538D-06, 0.1540D-06,
16452 # 0.1542D-06, 0.3046D-06, 0.3051D-06, 0.4558D-06, 0.4569D-06,
16453 # 0.6085D-06, 0.6108D-06, 0.7642D-06, 0.9192D-06, 0.1227D-05,
16454 # 0.1387D-05, 0.1853D-05, 0.2176D-05, 0.2660D-05, 0.3310D-05,
16455 # 0.4134D-05, 0.5141D-05, 0.6349D-05, 0.8080D-05, 0.1007D-04,
16456 # 0.1282D-04, 0.1624D-04, 0.2075D-04, 0.2664D-04, 0.3413D-04,
16457 # 0.4397D-04, 0.5625D-04, 0.7167D-04, 0.9044D-04, 0.1121D-03,
16458 # 0.1358D-03, 0.1586D-03, 0.1756D-03, 0.1796D-03, 0.1617D-03,
16459 # 0.1126D-03, 0.2545D-04, -.1023D-03, -.2677D-03, -.4625D-03,
16460 # -.6750D-03, -.8898D-03, -.1090D-02, -.1259D-02, -.1376D-02,
16461 # -.1426D-02, -.1393D-02, -.1273D-02, -.1072D-02, -.8171D-03,
16462 # -.5502D-03, -.3156D-03, -.1398D-03, -.2141D-04, 0.5911D-04,
16463 # 0.1198D-03, 0.1670D-03, 0.1987D-03, 0.2130D-03, 0.2110D-03,
16464 # 0.1969D-03, 0.1755D-03, 0.1509D-03, 0.1263D-03, 0.1034D-03,
16465 # 0.8329D-04, 0.6615D-04, 0.5193D-04, 0.4039D-04, 0.3117D-04,
16466 # 0.2388D-04/
16467
16468 data (calcpts(j,42), j = 1,neta) /0.1268D-06, 0.1269D-06,
16469 # 0.1271D-06, 0.1273D-06, 0.2777D-06, 0.2782D-06, 0.2789D-06,
16470 # 0.4300D-06, 0.5816D-06, 0.5839D-06, 0.7373D-06, 0.8923D-06,
16471 # 0.1050D-05, 0.1360D-05, 0.1676D-05, 0.1999D-05, 0.2484D-05,
16472 # 0.3133D-05, 0.3957D-05, 0.4814D-05, 0.6172D-05, 0.7603D-05,
16473 # 0.9741D-05, 0.1219D-04, 0.1561D-04, 0.1981D-04, 0.2539D-04,
16474 # 0.3239D-04, 0.4125D-04, 0.5232D-04, 0.6577D-04, 0.8122D-04,
16475 # 0.9796D-04, 0.1141D-03, 0.1261D-03, 0.1287D-03, 0.1156D-03,
16476 # 0.8019D-04, 0.1712D-04, -.7555D-04, -.1962D-03, -.3400D-03,
16477 # -.4988D-03, -.6630D-03, -.8216D-03, -.9624D-03, -.1073D-02,
16478 # -.1142D-02, -.1157D-02, -.1108D-02, -.9944D-03, -.8232D-03,
16479 # -.6161D-03, -.4059D-03, -.2258D-03, -.9430D-04, -.8106D-05,
16480 # 0.4920D-04, 0.9207D-04, 0.1254D-03, 0.1477D-03, 0.1575D-03,
16481 # 0.1554D-03, 0.1445D-03, 0.1285D-03, 0.1102D-03, 0.9204D-04,
16482 # 0.7524D-04, 0.6046D-04, 0.4794D-04, 0.3757D-04, 0.2919D-04,
16483 # 0.2248D-04/
16484
16485 data (calcpts(j,43), j = 1,neta) /0.3333D-07, 0.3340D-07,
16486 # 0.1835D-06, 0.1837D-06, 0.1839D-06, 0.1842D-06, 0.3347D-06,
16487 # 0.3355D-06, 0.3366D-06, 0.4881D-06, 0.6405D-06, 0.6439D-06,
16488 # 0.7989D-06, 0.1106D-05, 0.1267D-05, 0.1583D-05, 0.1906D-05,
16489 # 0.2390D-05, 0.3040D-05, 0.3713D-05, 0.4571D-05, 0.5778D-05,
16490 # 0.7209D-05, 0.9196D-05, 0.1164D-04, 0.1475D-04, 0.1864D-04,
16491 # 0.2375D-04, 0.3010D-04, 0.3810D-04, 0.4761D-04, 0.5868D-04,
16492 # 0.7061D-04, 0.8200D-04, 0.9031D-04, 0.9201D-04, 0.8259D-04,
16493 # 0.5698D-04, 0.1157D-04, -.5540D-04, -.1431D-03, -.2484D-03,
16494 # -.3660D-03, -.4896D-03, -.6121D-03, -.7254D-03, -.8216D-03,
16495 # -.8921D-03, -.9283D-03, -.9227D-03, -.8695D-03, -.7683D-03,
16496 # -.6264D-03, -.4612D-03, -.2978D-03, -.1608D-03, -.6301D-04,
16497 # -.5616D-06, 0.4006D-04, 0.7022D-04, 0.9372D-04, 0.1094D-03,
16498 # 0.1160D-03, 0.1141D-03, 0.1058D-03, 0.9379D-04, 0.8031D-04,
16499 # 0.6693D-04, 0.5461D-04, 0.4381D-04, 0.3468D-04, 0.2715D-04,
16500 # 0.2104D-04/
16501
16502 data (calcpts(j,44), j = 1,neta) /0.8178D-07, 0.9683D-07,
16503 # 0.1119D-06, 0.1270D-06, 0.1572D-06, 0.1724D-06, 0.2177D-06,
16504 # 0.2632D-06, 0.3090D-06, 0.3701D-06, 0.4466D-06, 0.5540D-06,
16505 # 0.6624D-06, 0.8174D-06, 0.9897D-06, 0.1210D-05, 0.1481D-05,
16506 # 0.1835D-05, 0.2259D-05, 0.2788D-05, 0.3462D-05, 0.4319D-05,
16507 # 0.5406D-05, 0.6791D-05, 0.8566D-05, 0.1082D-04, 0.1369D-04,
16508 # 0.1736D-04, 0.2194D-04, 0.2760D-04, 0.3441D-04, 0.4223D-04,
16509 # 0.5065D-04, 0.5868D-04, 0.6457D-04, 0.6569D-04, 0.5879D-04,
16510 # 0.4045D-04, 0.7843D-05, -.4037D-04, -.1038D-03, -.1805D-03,
16511 # -.2670D-03, -.3590D-03, -.4519D-03, -.5404D-03, -.6195D-03,
16512 # -.6833D-03, -.7262D-03, -.7420D-03, -.7260D-03, -.6746D-03,
16513 # -.5881D-03, -.4730D-03, -.3430D-03, -.2173D-03, -.1139D-03,
16514 # -.4169D-04, 0.3367D-05, 0.3205D-04, 0.5322D-04, 0.6976D-04,
16515 # 0.8076D-04, 0.8520D-04, 0.8352D-04, 0.7725D-04, 0.6834D-04,
16516 # 0.5838D-04, 0.4857D-04, 0.3955D-04, 0.3168D-04, 0.2505D-04,
16517 # 0.1957D-04/
16518
16519 data (calcpts(j,45), j = 1,neta) /0.3399D-07, 0.4903D-07,
16520 # 0.4908D-07, 0.6415D-07, 0.9426D-07, 0.1094D-06, 0.1396D-06,
16521 # 0.1700D-06, 0.2155D-06, 0.2612D-06, 0.3223D-06, 0.3839D-06,
16522 # 0.4762D-06, 0.5846D-06, 0.7246D-06, 0.8820D-06, 0.1088D-05,
16523 # 0.1344D-05, 0.1652D-05, 0.2046D-05, 0.2546D-05, 0.3174D-05,
16524 # 0.3971D-05, 0.4982D-05, 0.6261D-05, 0.7899D-05, 0.9971D-05,
16525 # 0.1259D-04, 0.1587D-04, 0.1989D-04, 0.2474D-04, 0.3029D-04,
16526 # 0.3624D-04, 0.4189D-04, 0.4602D-04, 0.4677D-04, 0.4180D-04,
16527 # 0.2866D-04, 0.5308D-05, -.2928D-04, -.7499D-04, -.1305D-03,
16528 # -.1937D-03, -.2616D-03, -.3313D-03, -.3991D-03, -.4619D-03,
16529 # -.5157D-03, -.5569D-03, -.5813D-03, -.5850D-03, -.5648D-03,
16530 # -.5184D-03, -.4467D-03, -.3548D-03, -.2537D-03, -.1578D-03,
16531 # -.8039D-04, -.2727D-04, 0.5103D-05, 0.2530D-04, 0.4012D-04,
16532 # 0.5173D-04, 0.5943D-04, 0.6243D-04, 0.6099D-04, 0.5628D-04,
16533 # 0.4968D-04, 0.4236D-04, 0.3517D-04, 0.2860D-04, 0.2287D-04,
16534 # 0.1806D-04/
16535
16536 data (calcpts(j,46), j = 1,neta) /0.2403D-07, 0.3905D-07,
16537 # 0.5409D-07, 0.5414D-07, 0.6921D-07, 0.8432D-07, 0.1145D-06,
16538 # 0.1297D-06, 0.1601D-06, 0.1906D-06, 0.2363D-06, 0.2974D-06,
16539 # 0.3589D-06, 0.4363D-06, 0.5447D-06, 0.6547D-06, 0.8120D-06,
16540 # 0.1003D-05, 0.1229D-05, 0.1522D-05, 0.1886D-05, 0.2341D-05,
16541 # 0.2923D-05, 0.3645D-05, 0.4581D-05, 0.5753D-05, 0.7236D-05,
16542 # 0.9121D-05, 0.1145D-04, 0.1432D-04, 0.1775D-04, 0.2168D-04,
16543 # 0.2590D-04, 0.2987D-04, 0.3277D-04, 0.3325D-04, 0.2967D-04,
16544 # 0.2028D-04, 0.3616D-05, -.2114D-04, -.5397D-04, -.9405D-04,
16545 # -.1399D-03, -.1898D-03, -.2413D-03, -.2927D-03, -.3412D-03,
16546 # -.3847D-03, -.4206D-03, -.4463D-03, -.4591D-03, -.4560D-03,
16547 # -.4351D-03, -.3952D-03, -.3368D-03, -.2646D-03, -.1869D-03,
16548 # -.1142D-03, -.5652D-04, -.1763D-04, 0.5553D-05, 0.1974D-04,
16549 # 0.3009D-04, 0.3822D-04, 0.4360D-04, 0.4561D-04, 0.4443D-04,
16550 # 0.4090D-04, 0.3603D-04, 0.3067D-04, 0.2542D-04, 0.2064D-04,
16551 # 0.1816D-04/
16552
16553 data (calcpts(j,47), j = 1,neta) /0.3417D-07, 0.3418D-07,
16554 # 0.3421D-07, 0.4924D-07, 0.6429D-07, 0.6436D-07, 0.7947D-07,
16555 # 0.1096D-06, 0.1249D-06, 0.1552D-06, 0.1857D-06, 0.2314D-06,
16556 # 0.2775D-06, 0.3391D-06, 0.4014D-06, 0.4948D-06, 0.6048D-06,
16557 # 0.7472D-06, 0.9079D-06, 0.1119D-05, 0.1382D-05, 0.1716D-05,
16558 # 0.2140D-05, 0.2663D-05, 0.3339D-05, 0.4184D-05, 0.5248D-05,
16559 # 0.6591D-05, 0.8255D-05, 0.1029D-04, 0.1273D-04, 0.1550D-04,
16560 # 0.1847D-04, 0.2126D-04, 0.2327D-04, 0.2360D-04, 0.2103D-04,
16561 # 0.1434D-04, 0.2465D-05, -.1521D-04, -.3871D-04, -.6754D-04,
16562 # -.1007D-03, -.1370D-03, -.1751D-03, -.2133D-03, -.2503D-03,
16563 # -.2844D-03, -.3140D-03, -.3374D-03, -.3528D-03, -.3583D-03,
16564 # -.3521D-03, -.3326D-03, -.2990D-03, -.2525D-03, -.1964D-03,
16565 # -.1370D-03, -.8239D-04, -.3957D-04, -.1122D-04, 0.5333D-05,
16566 # 0.1525D-04, 0.2350D-04, 0.2827D-04, 0.3192D-04, 0.3325D-04,
16567 # 0.3231D-04, 0.3967D-04, 0.2610D-04, 0.2217D-04, 0.2139D-04,
16568 # 0.1488D-04/
16569
16570 data (calcpts(j,48), j = 1,neta) /0.1551D-07, 0.3052D-07,
16571 # 0.3053D-07, 0.3056D-07, 0.4559D-07, 0.4564D-07, 0.6072D-07,
16572 # 0.7582D-07, 0.9098D-07, 0.1062D-06, 0.1366D-06, 0.1671D-06,
16573 # 0.1978D-06, 0.2439D-06, 0.2904D-06, 0.3678D-06, 0.4462D-06,
16574 # 0.5412D-06, 0.6685D-06, 0.8143D-06, 0.1010D-05, 0.1258D-05,
16575 # 0.1547D-05, 0.1926D-05, 0.2419D-05, 0.3019D-05, 0.3787D-05,
16576 # 0.4727D-05, 0.5913D-05, 0.7366D-05, 0.9086D-05, 0.1104D-04,
16577 # 0.1313D-04, 0.1509D-04, 0.1650D-04, 0.1671D-04, 0.1489D-04,
16578 # 0.1013D-04, 0.1680D-05, -.1091D-04, -.2770D-04, -.4837D-04,
16579 # -.7228D-04, -.9860D-04, -.1264D-03, -.1548D-03, -.1824D-03,
16580 # -.2087D-03, -.2323D-03, -.2522D-03, -.2670D-03, -.2758D-03,
16581 # -.2771D-03, -.2696D-03, -.2523D-03, -.2250D-03, -.1884D-03,
16582 # -.1451D-03, -.1001D-03, -.5924D-04, -.2765D-04, -.7038D-05,
16583 # 0.4754D-05, 0.1169D-04, 0.1671D-04, 0.2068D-04, 0.2329D-04,
16584 # 0.2419D-04, 0.2344D-04, 0.2149D-04, 0.1885D-04, 0.1600D-04,
16585 # 0.1322D-04/
16586
16587 data (calcpts(j,49), j = 1,neta) /0.1268D-07, 0.1269D-07,
16588 # 0.2770D-07, 0.2771D-07, 0.2774D-07, 0.4277D-07, 0.4282D-07,
16589 # 0.5790D-07, 0.7300D-07, 0.7316D-07, 0.1034D-06, 0.1187D-06,
16590 # 0.1492D-06, 0.1800D-06, 0.2110D-06, 0.2576D-06, 0.3200D-06,
16591 # 0.3984D-06, 0.4784D-06, 0.5907D-06, 0.7364D-06, 0.9022D-06,
16592 # 0.1120D-05, 0.1394D-05, 0.1743D-05, 0.2175D-05, 0.2714D-05,
16593 # 0.3389D-05, 0.4234D-05, 0.5260D-05, 0.6466D-05, 0.7858D-05,
16594 # 0.9321D-05, 0.1070D-04, 0.1170D-04, 0.1182D-04, 0.1052D-04,
16595 # 0.7142D-05, 0.1146D-05, -.7803D-05, -.1976D-04, -.3455D-04,
16596 # -.5172D-04, -.7074D-04, -.9095D-04, -.1117D-03, -.1324D-03,
16597 # -.1522D-03, -.1706D-03, -.1866D-03, -.1996D-03, -.2088D-03,
16598 # -.2135D-03, -.2124D-03, -.2049D-03, -.1902D-03, -.1683D-03,
16599 # -.1398D-03, -.1068D-03, -.7290D-04, -.4251D-04, -.1928D-04,
16600 # -.4354D-05, 0.4011D-05, 0.8844D-05, 0.1234D-04, 0.1510D-04,
16601 # 0.1693D-04, 0.1753D-04, 0.1695D-04, 0.1551D-04, 0.1360D-04,
16602 # 0.1152D-04/
16603
16604 data (dlaeta(j), j = 1,neta) /
16605 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
16606 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
16607 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
16608 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
16609 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
16610 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
16611 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
16612 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
16613 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
16614 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
16615 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
16616 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
16617 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
16618 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
16619 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
16620
16621 data (dlaxi(j), j = 1,nxi) /
16622 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
16623 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
16624 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
16625 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
16626 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
16627 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
16628 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
16629 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
16630 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
16631 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
16632
16633 dleta = dlog10(eta)
16634 dlxi = dlog10(xi)
16635 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
16636 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
16637 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
16638 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
16639 call locate(dlaeta,neta, dleta, ieta)
16640 call locate(dlaxi, nxi, dlxi, ixi)
16641c interpolating between the appropriate points
16642 delxi = 1d0/6d0
16643 deleta = 1d0/6d0
16644c lagrange 3-pt.
16645 if (ixi .le. 2) ixi = 2
16646 if (ixi .ge. 48) ixi = 48
16647 if (ieta .le. 2) ieta = 2
16648 if (ieta .ge. 72) ieta = 72
16649 pxi = (dlxi - dlaxi(ixi))/delxi
16650 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
16651 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
16652 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
16653 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
16654 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
16655 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
16656 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
16657 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
16658 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
16659 peta = (dleta - dlaeta(ieta))/deleta
16660 h1_FTg = peta*(peta-1d0)/2d0*f(-1) +
16661 # (1d0 - peta**2)*f(0) +
16662CMB # + peta*(peta+1d0)/2d0*f(1)
16663 # peta*(peta+1d0)/2d0*f(1)
16664 return
16665 end
16666
16667c ==========================================
16668 double precision function h1bar_Tg(eta,xi)
16669c ==========================================
16670
16671c eq (12) in PLB347 (1995) 143 - 151 for the transverse piece
16672c MSbar scheme
16673c This routine is called subctbar in the original code.
16674c Called sctbar in updated code (03/06/96).
16675
16676 implicit none
16677 integer neta, nxi
16678 parameter (neta = 73, nxi = 49)
16679 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
16680 double precision eta, xi, dleta, dlxi
16681 double precision pxi, peta, f(-1:1), delxi, deleta
16682 integer j, ieta, ixi
16683
16684 data (calcpts(j, 1), j = 1,neta) /0.2829D-03, 0.3429D-03,
16685 # 0.4153D-03, 0.5032D-03, 0.6093D-03, 0.7385D-03, 0.8944D-03,
16686 # 0.1084D-02, 0.1313D-02, 0.1591D-02, 0.1928D-02, 0.2339D-02,
16687 # 0.2827D-02, 0.3429D-02, 0.4159D-02, 0.5038D-02, 0.6106D-02,
16688 # 0.7404D-02, 0.8979D-02, 0.1089D-01, 0.1322D-01, 0.1605D-01,
16689 # 0.1950D-01, 0.2372D-01, 0.2888D-01, 0.3520D-01, 0.4295D-01,
16690 # 0.5243D-01, 0.6398D-01, 0.7789D-01, 0.9419D-01, 0.1127D+00,
16691 # 0.1321D+00, 0.1504D+00, 0.1646D+00, 0.1713D+00, 0.1691D+00,
16692 # 0.1584D+00, 0.1416D+00, 0.1221D+00, 0.1025D+00, 0.8429D-01,
16693 # 0.6827D-01, 0.5456D-01, 0.4314D-01, 0.3383D-01, 0.2625D-01,
16694 # 0.2023D-01, 0.1549D-01, 0.1175D-01, 0.8913D-02, 0.6710D-02,
16695 # 0.4996D-02, 0.3763D-02, 0.2807D-02, 0.2058D-02, 0.1515D-02,
16696 # 0.1108D-02, 0.8360D-03, 0.6327D-03, 0.4304D-03, 0.2955D-03,
16697 # 0.2278D-03, 0.1604D-03, 0.9327D-04, 0.9293D-04, 0.9271D-04,
16698 # 0.2589D-04, 0.2578D-04, 0.2571D-04, 0.2566D-04, 0.2563D-04,
16699 # 0.2561D-04/
16700
16701 data (calcpts(j, 2), j = 1,neta) /0.2830D-03, 0.3423D-03,
16702 # 0.4154D-03, 0.5027D-03, 0.6095D-03, 0.7380D-03, 0.8946D-03,
16703 # 0.1083D-02, 0.1313D-02, 0.1591D-02, 0.1928D-02, 0.2333D-02,
16704 # 0.2828D-02, 0.3430D-02, 0.4153D-02, 0.5039D-02, 0.6107D-02,
16705 # 0.7399D-02, 0.8973D-02, 0.1089D-01, 0.1321D-01, 0.1604D-01,
16706 # 0.1950D-01, 0.2371D-01, 0.2888D-01, 0.3519D-01, 0.4294D-01,
16707 # 0.5242D-01, 0.6398D-01, 0.7789D-01, 0.9419D-01, 0.1127D+00,
16708 # 0.1321D+00, 0.1504D+00, 0.1645D+00, 0.1713D+00, 0.1691D+00,
16709 # 0.1584D+00, 0.1416D+00, 0.1221D+00, 0.1025D+00, 0.8429D-01,
16710 # 0.6827D-01, 0.5462D-01, 0.4320D-01, 0.3382D-01, 0.2623D-01,
16711 # 0.2021D-01, 0.1548D-01, 0.1173D-01, 0.8899D-02, 0.6697D-02,
16712 # 0.5049D-02, 0.3750D-02, 0.2794D-02, 0.2045D-02, 0.1501D-02,
16713 # 0.1094D-02, 0.8227D-03, 0.6194D-03, 0.4172D-03, 0.3490D-03,
16714 # 0.2146D-03, 0.1472D-03, 0.1467D-03, 0.7970D-04, 0.7948D-04,
16715 # 0.7932D-04, 0.1255D-04, 0.1248D-04, 0.1243D-04, 0.1240D-04,
16716 # 0.1237D-04/
16717
16718 data (calcpts(j, 3), j = 1,neta) /0.2825D-03, 0.3425D-03,
16719 # 0.4150D-03, 0.5030D-03, 0.6091D-03, 0.7384D-03, 0.8943D-03,
16720 # 0.1084D-02, 0.1313D-02, 0.1591D-02, 0.1927D-02, 0.2333D-02,
16721 # 0.2829D-02, 0.3431D-02, 0.4154D-02, 0.5033D-02, 0.6102D-02,
16722 # 0.7400D-02, 0.8975D-02, 0.1088D-01, 0.1322D-01, 0.1605D-01,
16723 # 0.1950D-01, 0.2372D-01, 0.2887D-01, 0.3519D-01, 0.4294D-01,
16724 # 0.5242D-01, 0.6397D-01, 0.7783D-01, 0.9418D-01, 0.1127D+00,
16725 # 0.1321D+00, 0.1503D+00, 0.1645D+00, 0.1713D+00, 0.1691D+00,
16726 # 0.1583D+00, 0.1416D+00, 0.1221D+00, 0.1025D+00, 0.8428D-01,
16727 # 0.6826D-01, 0.5460D-01, 0.4318D-01, 0.3380D-01, 0.2621D-01,
16728 # 0.2019D-01, 0.1546D-01, 0.1178D-01, 0.8880D-02, 0.6677D-02,
16729 # 0.5030D-02, 0.3730D-02, 0.2774D-02, 0.2092D-02, 0.1549D-02,
16730 # 0.1142D-02, 0.8033D-03, 0.6000D-03, 0.4644D-03, 0.3296D-03,
16731 # 0.2618D-03, 0.1945D-03, 0.1273D-03, 0.6031D-04, 0.6008D-04,
16732 # 0.5993D-04, 0.5982D-04, -.6914D-05, -.6963D-05, -.6996D-05,
16733 # -.7019D-05/
16734
16735 data (calcpts(j, 4), j = 1,neta) /0.2827D-03, 0.3428D-03,
16736 # 0.4153D-03, 0.5027D-03, 0.6089D-03, 0.7382D-03, 0.8942D-03,
16737 # 0.1083D-02, 0.1313D-02, 0.1591D-02, 0.1927D-02, 0.2335D-02,
16738 # 0.2830D-02, 0.3426D-02, 0.4156D-02, 0.5035D-02, 0.6104D-02,
16739 # 0.7403D-02, 0.8971D-02, 0.1089D-01, 0.1321D-01, 0.1604D-01,
16740 # 0.1949D-01, 0.2371D-01, 0.2887D-01, 0.3519D-01, 0.4293D-01,
16741 # 0.5241D-01, 0.6395D-01, 0.7783D-01, 0.9418D-01, 0.1126D+00,
16742 # 0.1320D+00, 0.1503D+00, 0.1644D+00, 0.1713D+00, 0.1691D+00,
16743 # 0.1583D+00, 0.1416D+00, 0.1221D+00, 0.1024D+00, 0.8428D-01,
16744 # 0.6826D-01, 0.5457D-01, 0.4315D-01, 0.3377D-01, 0.2625D-01,
16745 # 0.2023D-01, 0.1550D-01, 0.1175D-01, 0.8918D-02, 0.6715D-02,
16746 # 0.5001D-02, 0.3768D-02, 0.2813D-02, 0.2064D-02, 0.1520D-02,
16747 # 0.1113D-02, 0.8415D-03, 0.6382D-03, 0.4360D-03, 0.3011D-03,
16748 # 0.2334D-03, 0.1660D-03, 0.9883D-04, 0.9849D-04, 0.3160D-04,
16749 # 0.3145D-04, 0.3134D-04, 0.3127D-04, 0.3122D-04, 0.3119D-04,
16750 # 0.3117D-04/
16751
16752 data (calcpts(j, 5), j = 1,neta) /0.2824D-03, 0.3425D-03,
16753 # 0.4151D-03, 0.5025D-03, 0.6088D-03, 0.7382D-03, 0.8944D-03,
16754 # 0.1083D-02, 0.1313D-02, 0.1591D-02, 0.1927D-02, 0.2336D-02,
16755 # 0.2832D-02, 0.3428D-02, 0.4152D-02, 0.5031D-02, 0.6100D-02,
16756 # 0.7399D-02, 0.8968D-02, 0.1088D-01, 0.1321D-01, 0.1604D-01,
16757 # 0.1949D-01, 0.2370D-01, 0.2886D-01, 0.3518D-01, 0.4292D-01,
16758 # 0.5239D-01, 0.6393D-01, 0.7782D-01, 0.9411D-01, 0.1126D+00,
16759 # 0.1320D+00, 0.1503D+00, 0.1644D+00, 0.1713D+00, 0.1690D+00,
16760 # 0.1583D+00, 0.1415D+00, 0.1221D+00, 0.1024D+00, 0.8427D-01,
16761 # 0.6825D-01, 0.5459D-01, 0.4317D-01, 0.3380D-01, 0.2621D-01,
16762 # 0.2019D-01, 0.1545D-01, 0.1178D-01, 0.8876D-02, 0.6674D-02,
16763 # 0.5026D-02, 0.3727D-02, 0.2771D-02, 0.2089D-02, 0.1545D-02,
16764 # 0.1138D-02, 0.7997D-03, 0.5964D-03, 0.4608D-03, 0.3260D-03,
16765 # 0.2582D-03, 0.1909D-03, 0.1237D-03, 0.5670D-04, 0.5648D-04,
16766 # 0.5632D-04, 0.5622D-04, 0.5615D-04, -.1057D-04, -.1060D-04,
16767 # -.1062D-04/
16768
16769 data (calcpts(j, 6), j = 1,neta) /0.2829D-03, 0.3424D-03,
16770 # 0.4150D-03, 0.5026D-03, 0.6090D-03, 0.7379D-03, 0.8935D-03,
16771 # 0.1083D-02, 0.1312D-02, 0.1590D-02, 0.1925D-02, 0.2332D-02,
16772 # 0.2828D-02, 0.3424D-02, 0.4155D-02, 0.5035D-02, 0.6098D-02,
16773 # 0.7398D-02, 0.8967D-02, 0.1088D-01, 0.1320D-01, 0.1603D-01,
16774 # 0.1948D-01, 0.2369D-01, 0.2885D-01, 0.3516D-01, 0.4290D-01,
16775 # 0.5237D-01, 0.6390D-01, 0.7776D-01, 0.9410D-01, 0.1125D+00,
16776 # 0.1319D+00, 0.1502D+00, 0.1643D+00, 0.1711D+00, 0.1690D+00,
16777 # 0.1582D+00, 0.1415D+00, 0.1220D+00, 0.1024D+00, 0.8425D-01,
16778 # 0.6824D-01, 0.5459D-01, 0.4318D-01, 0.3380D-01, 0.2621D-01,
16779 # 0.2020D-01, 0.1546D-01, 0.1178D-01, 0.8882D-02, 0.6679D-02,
16780 # 0.5031D-02, 0.3732D-02, 0.2776D-02, 0.2094D-02, 0.1550D-02,
16781 # 0.1143D-02, 0.8052D-03, 0.6018D-03, 0.4662D-03, 0.3314D-03,
16782 # 0.2637D-03, 0.1963D-03, 0.1291D-03, 0.6213D-04, 0.6190D-04,
16783 # 0.6175D-04, 0.6164D-04, -.5098D-05, -.5147D-05, -.5180D-05,
16784 # -.5203D-05/
16785
16786 data (calcpts(j, 7), j = 1,neta) /0.2822D-03, 0.3418D-03,
16787 # 0.4146D-03, 0.5024D-03, 0.6083D-03, 0.7374D-03, 0.8933D-03,
16788 # 0.1082D-02, 0.1311D-02, 0.1589D-02, 0.1925D-02, 0.2335D-02,
16789 # 0.2825D-02, 0.3422D-02, 0.4147D-02, 0.5028D-02, 0.6098D-02,
16790 # 0.7392D-02, 0.8962D-02, 0.1087D-01, 0.1319D-01, 0.1602D-01,
16791 # 0.1947D-01, 0.2368D-01, 0.2883D-01, 0.3514D-01, 0.4287D-01,
16792 # 0.5234D-01, 0.6386D-01, 0.7775D-01, 0.9403D-01, 0.1124D+00,
16793 # 0.1318D+00, 0.1501D+00, 0.1642D+00, 0.1711D+00, 0.1689D+00,
16794 # 0.1581D+00, 0.1414D+00, 0.1220D+00, 0.1024D+00, 0.8422D-01,
16795 # 0.6822D-01, 0.5457D-01, 0.4315D-01, 0.3378D-01, 0.2626D-01,
16796 # 0.2024D-01, 0.1544D-01, 0.1176D-01, 0.8925D-02, 0.6722D-02,
16797 # 0.5008D-02, 0.3775D-02, 0.2820D-02, 0.2071D-02, 0.1527D-02,
16798 # 0.1120D-02, 0.8487D-03, 0.5787D-03, 0.4431D-03, 0.3083D-03,
16799 # 0.2405D-03, 0.1732D-03, 0.1060D-03, 0.1057D-03, 0.3878D-04,
16800 # 0.3863D-04, 0.3852D-04, 0.3845D-04, 0.3840D-04, 0.3837D-04,
16801 # 0.3835D-04/
16802
16803 data (calcpts(j, 8), j = 1,neta) /0.2819D-03, 0.3417D-03,
16804 # 0.4140D-03, 0.5020D-03, 0.6082D-03, 0.7369D-03, 0.8925D-03,
16805 # 0.1081D-02, 0.1311D-02, 0.1588D-02, 0.1923D-02, 0.2327D-02,
16806 # 0.2824D-02, 0.3422D-02, 0.4148D-02, 0.5023D-02, 0.6094D-02,
16807 # 0.7383D-02, 0.8954D-02, 0.1087D-01, 0.1319D-01, 0.1601D-01,
16808 # 0.1946D-01, 0.2366D-01, 0.2880D-01, 0.3511D-01, 0.4283D-01,
16809 # 0.5229D-01, 0.6380D-01, 0.7762D-01, 0.9395D-01, 0.1123D+00,
16810 # 0.1317D+00, 0.1500D+00, 0.1640D+00, 0.1709D+00, 0.1687D+00,
16811 # 0.1580D+00, 0.1414D+00, 0.1219D+00, 0.1023D+00, 0.8419D-01,
16812 # 0.6819D-01, 0.5450D-01, 0.4315D-01, 0.3378D-01, 0.2626D-01,
16813 # 0.2017D-01, 0.1544D-01, 0.1176D-01, 0.8926D-02, 0.6724D-02,
16814 # 0.5010D-02, 0.3777D-02, 0.2755D-02, 0.2073D-02, 0.1529D-02,
16815 # 0.1122D-02, 0.8504D-03, 0.5805D-03, 0.4449D-03, 0.3100D-03,
16816 # 0.2423D-03, 0.1749D-03, 0.1078D-03, 0.1074D-03, 0.4054D-04,
16817 # 0.4039D-04, 0.4028D-04, 0.4021D-04, 0.4016D-04, 0.4013D-04,
16818 # 0.4011D-04/
16819
16820 data (calcpts(j, 9), j = 1,neta) /0.2821D-03, 0.3414D-03,
16821 # 0.4141D-03, 0.5010D-03, 0.6076D-03, 0.7361D-03, 0.8916D-03,
16822 # 0.1080D-02, 0.1309D-02, 0.1585D-02, 0.1921D-02, 0.2328D-02,
16823 # 0.2820D-02, 0.3419D-02, 0.4139D-02, 0.5022D-02, 0.6082D-02,
16824 # 0.7378D-02, 0.8945D-02, 0.1085D-01, 0.1317D-01, 0.1599D-01,
16825 # 0.1943D-01, 0.2363D-01, 0.2877D-01, 0.3506D-01, 0.4277D-01,
16826 # 0.5221D-01, 0.6370D-01, 0.7755D-01, 0.9379D-01, 0.1121D+00,
16827 # 0.1315D+00, 0.1497D+00, 0.1638D+00, 0.1707D+00, 0.1685D+00,
16828 # 0.1579D+00, 0.1412D+00, 0.1218D+00, 0.1023D+00, 0.8414D-01,
16829 # 0.6816D-01, 0.5450D-01, 0.4309D-01, 0.3378D-01, 0.2620D-01,
16830 # 0.2018D-01, 0.1544D-01, 0.1177D-01, 0.8867D-02, 0.6665D-02,
16831 # 0.5017D-02, 0.3718D-02, 0.2762D-02, 0.2080D-02, 0.1537D-02,
16832 # 0.1130D-02, 0.7915D-03, 0.5882D-03, 0.4526D-03, 0.3177D-03,
16833 # 0.2500D-03, 0.1826D-03, 0.1155D-03, 0.1151D-03, 0.4825D-04,
16834 # 0.4810D-04, 0.4800D-04, 0.4793D-04, 0.4788D-04, -.1882D-04,
16835 # -.1885D-04/
16836
16837 data (calcpts(j,10), j = 1,neta) /0.2816D-03, 0.3406D-03,
16838 # 0.4130D-03, 0.5005D-03, 0.6063D-03, 0.7348D-03, 0.8897D-03,
16839 # 0.1078D-02, 0.1307D-02, 0.1583D-02, 0.1917D-02, 0.2324D-02,
16840 # 0.2812D-02, 0.3413D-02, 0.4136D-02, 0.5014D-02, 0.6076D-02,
16841 # 0.7362D-02, 0.8930D-02, 0.1083D-01, 0.1315D-01, 0.1596D-01,
16842 # 0.1939D-01, 0.2359D-01, 0.2871D-01, 0.3500D-01, 0.4269D-01,
16843 # 0.5211D-01, 0.6357D-01, 0.7734D-01, 0.9356D-01, 0.1119D+00,
16844 # 0.1311D+00, 0.1493D+00, 0.1634D+00, 0.1703D+00, 0.1682D+00,
16845 # 0.1576D+00, 0.1410D+00, 0.1217D+00, 0.1022D+00, 0.8406D-01,
16846 # 0.6810D-01, 0.5448D-01, 0.4307D-01, 0.3376D-01, 0.2618D-01,
16847 # 0.2016D-01, 0.1543D-01, 0.1175D-01, 0.8918D-02, 0.6716D-02,
16848 # 0.5002D-02, 0.3770D-02, 0.2814D-02, 0.2066D-02, 0.1522D-02,
16849 # 0.1115D-02, 0.8435D-03, 0.5735D-03, 0.4379D-03, 0.3031D-03,
16850 # 0.2354D-03, 0.1680D-03, 0.1008D-03, 0.1005D-03, 0.3361D-04,
16851 # 0.3346D-04, 0.3335D-04, 0.3328D-04, 0.3324D-04, 0.3320D-04,
16852 # 0.3318D-04/
16853
16854 data (calcpts(j,11), j = 1,neta) /0.2808D-03, 0.3397D-03,
16855 # 0.4121D-03, 0.4989D-03, 0.6049D-03, 0.7330D-03, 0.8876D-03,
16856 # 0.1076D-02, 0.1304D-02, 0.1579D-02, 0.1913D-02, 0.2318D-02,
16857 # 0.2811D-02, 0.3401D-02, 0.4126D-02, 0.5001D-02, 0.6060D-02,
16858 # 0.7342D-02, 0.8908D-02, 0.1080D-01, 0.1311D-01, 0.1592D-01,
16859 # 0.1934D-01, 0.2352D-01, 0.2864D-01, 0.3490D-01, 0.4257D-01,
16860 # 0.5195D-01, 0.6338D-01, 0.7713D-01, 0.9325D-01, 0.1115D+00,
16861 # 0.1307D+00, 0.1489D+00, 0.1630D+00, 0.1698D+00, 0.1678D+00,
16862 # 0.1573D+00, 0.1408D+00, 0.1215D+00, 0.1020D+00, 0.8395D-01,
16863 # 0.6802D-01, 0.5440D-01, 0.4305D-01, 0.3368D-01, 0.2616D-01,
16864 # 0.2015D-01, 0.1541D-01, 0.1174D-01, 0.8907D-02, 0.6705D-02,
16865 # 0.4991D-02, 0.3759D-02, 0.2804D-02, 0.2055D-02, 0.1512D-02,
16866 # 0.1105D-02, 0.8330D-03, 0.6298D-03, 0.4275D-03, 0.2927D-03,
16867 # 0.2250D-03, 0.1576D-03, 0.9045D-04, 0.9012D-04, 0.8989D-04,
16868 # 0.2308D-04, 0.2297D-04, 0.2290D-04, 0.2285D-04, 0.2282D-04,
16869 # 0.2280D-04/
16870
16871 data (calcpts(j,12), j = 1,neta) /0.2794D-03, 0.3384D-03,
16872 # 0.4104D-03, 0.4976D-03, 0.6028D-03, 0.7303D-03, 0.8845D-03,
16873 # 0.1072D-02, 0.1298D-02, 0.1573D-02, 0.1906D-02, 0.2310D-02,
16874 # 0.2798D-02, 0.3391D-02, 0.4107D-02, 0.4980D-02, 0.6037D-02,
16875 # 0.7318D-02, 0.8875D-02, 0.1076D-01, 0.1306D-01, 0.1586D-01,
16876 # 0.1927D-01, 0.2343D-01, 0.2853D-01, 0.3476D-01, 0.4239D-01,
16877 # 0.5173D-01, 0.6310D-01, 0.7678D-01, 0.9279D-01, 0.1109D+00,
16878 # 0.1301D+00, 0.1481D+00, 0.1622D+00, 0.1691D+00, 0.1672D+00,
16879 # 0.1568D+00, 0.1404D+00, 0.1212D+00, 0.1018D+00, 0.8379D-01,
16880 # 0.6790D-01, 0.5432D-01, 0.4298D-01, 0.3368D-01, 0.2616D-01,
16881 # 0.2015D-01, 0.1542D-01, 0.1174D-01, 0.8843D-02, 0.6708D-02,
16882 # 0.4995D-02, 0.3762D-02, 0.2807D-02, 0.2059D-02, 0.1515D-02,
16883 # 0.1108D-02, 0.8366D-03, 0.6334D-03, 0.4312D-03, 0.2963D-03,
16884 # 0.2286D-03, 0.1613D-03, 0.9411D-04, 0.9378D-04, 0.9356D-04,
16885 # 0.2674D-04, 0.2664D-04, 0.2657D-04, 0.2652D-04, 0.2649D-04,
16886 # 0.2647D-04/
16887
16888 data (calcpts(j,13), j = 1,neta) /0.2781D-03, 0.3369D-03,
16889 # 0.4082D-03, 0.4949D-03, 0.5992D-03, 0.7261D-03, 0.8799D-03,
16890 # 0.1066D-02, 0.1291D-02, 0.1565D-02, 0.1896D-02, 0.2297D-02,
16891 # 0.2783D-02, 0.3376D-02, 0.4084D-02, 0.4957D-02, 0.6001D-02,
16892 # 0.7282D-02, 0.8828D-02, 0.1071D-01, 0.1300D-01, 0.1577D-01,
16893 # 0.1916D-01, 0.2330D-01, 0.2836D-01, 0.3455D-01, 0.4214D-01,
16894 # 0.5141D-01, 0.6268D-01, 0.7623D-01, 0.9216D-01, 0.1102D+00,
16895 # 0.1291D+00, 0.1471D+00, 0.1611D+00, 0.1681D+00, 0.1663D+00,
16896 # 0.1560D+00, 0.1398D+00, 0.1208D+00, 0.1015D+00, 0.8356D-01,
16897 # 0.6773D-01, 0.5417D-01, 0.4290D-01, 0.3360D-01, 0.2609D-01,
16898 # 0.2015D-01, 0.1542D-01, 0.1174D-01, 0.8844D-02, 0.6643D-02,
16899 # 0.4997D-02, 0.3765D-02, 0.2810D-02, 0.2062D-02, 0.1518D-02,
16900 # 0.1111D-02, 0.8399D-03, 0.6366D-03, 0.4344D-03, 0.2996D-03,
16901 # 0.2319D-03, 0.1645D-03, 0.9741D-04, 0.9708D-04, 0.9686D-04,
16902 # 0.3005D-04, 0.2994D-04, 0.2987D-04, 0.2983D-04, 0.2979D-04,
16903 # 0.2977D-04/
16904
16905 data (calcpts(j,14), j = 1,neta) /0.2757D-03, 0.3342D-03,
16906 # 0.4053D-03, 0.4909D-03, 0.5944D-03, 0.7208D-03, 0.8734D-03,
16907 # 0.1058D-02, 0.1282D-02, 0.1553D-02, 0.1881D-02, 0.2279D-02,
16908 # 0.2760D-02, 0.3346D-02, 0.4057D-02, 0.4912D-02, 0.5959D-02,
16909 # 0.7225D-02, 0.8761D-02, 0.1063D-01, 0.1289D-01, 0.1565D-01,
16910 # 0.1901D-01, 0.2312D-01, 0.2813D-01, 0.3426D-01, 0.4177D-01,
16911 # 0.5094D-01, 0.6209D-01, 0.7546D-01, 0.9123D-01, 0.1090D+00,
16912 # 0.1277D+00, 0.1456D+00, 0.1595D+00, 0.1666D+00, 0.1649D+00,
16913 # 0.1550D+00, 0.1390D+00, 0.1201D+00, 0.1010D+00, 0.8322D-01,
16914 # 0.6748D-01, 0.5402D-01, 0.4276D-01, 0.3354D-01, 0.2604D-01,
16915 # 0.2009D-01, 0.1537D-01, 0.1169D-01, 0.8864D-02, 0.6664D-02,
16916 # 0.5018D-02, 0.3720D-02, 0.2765D-02, 0.2084D-02, 0.1540D-02,
16917 # 0.1134D-02, 0.7956D-03, 0.5924D-03, 0.4569D-03, 0.3221D-03,
16918 # 0.2544D-03, 0.1870D-03, 0.1199D-03, 0.1196D-03, 0.5270D-04,
16919 # 0.5255D-04, 0.5245D-04, 0.5238D-04, -.1433D-04, -.1436D-04,
16920 # -.1438D-04/
16921
16922 data (calcpts(j,15), j = 1,neta) /0.2728D-03, 0.3303D-03,
16923 # 0.4008D-03, 0.4855D-03, 0.5879D-03, 0.7125D-03, 0.8631D-03,
16924 # 0.1045D-02, 0.1267D-02, 0.1535D-02, 0.1860D-02, 0.2254D-02,
16925 # 0.2733D-02, 0.3311D-02, 0.4014D-02, 0.4862D-02, 0.5890D-02,
16926 # 0.7144D-02, 0.8656D-02, 0.1050D-01, 0.1274D-01, 0.1547D-01,
16927 # 0.1879D-01, 0.2284D-01, 0.2779D-01, 0.3384D-01, 0.4124D-01,
16928 # 0.5028D-01, 0.6126D-01, 0.7442D-01, 0.8991D-01, 0.1074D+00,
16929 # 0.1259D+00, 0.1435D+00, 0.1573D+00, 0.1644D+00, 0.1630D+00,
16930 # 0.1534D+00, 0.1378D+00, 0.1192D+00, 0.1004D+00, 0.8273D-01,
16931 # 0.6712D-01, 0.5375D-01, 0.4256D-01, 0.3335D-01, 0.2591D-01,
16932 # 0.1998D-01, 0.1532D-01, 0.1165D-01, 0.8822D-02, 0.6623D-02,
16933 # 0.4978D-02, 0.3748D-02, 0.2793D-02, 0.2045D-02, 0.1502D-02,
16934 # 0.1095D-02, 0.8240D-03, 0.6209D-03, 0.4188D-03, 0.3507D-03,
16935 # 0.2163D-03, 0.1490D-03, 0.1485D-03, 0.8154D-04, 0.8133D-04,
16936 # 0.1452D-04, 0.1442D-04, 0.1435D-04, 0.1431D-04, 0.1427D-04,
16937 # 0.1425D-04/
16938
16939 data (calcpts(j,16), j = 1,neta) /0.2682D-03, 0.3250D-03,
16940 # 0.3946D-03, 0.4778D-03, 0.5786D-03, 0.7010D-03, 0.8497D-03,
16941 # 0.1029D-02, 0.1247D-02, 0.1511D-02, 0.1830D-02, 0.2218D-02,
16942 # 0.2686D-02, 0.3253D-02, 0.3946D-02, 0.4780D-02, 0.5795D-02,
16943 # 0.7024D-02, 0.8518D-02, 0.1033D-01, 0.1254D-01, 0.1521D-01,
16944 # 0.1848D-01, 0.2246D-01, 0.2732D-01, 0.3325D-01, 0.4050D-01,
16945 # 0.4935D-01, 0.6008D-01, 0.7296D-01, 0.8805D-01, 0.1051D+00,
16946 # 0.1232D+00, 0.1404D+00, 0.1541D+00, 0.1614D+00, 0.1603D+00,
16947 # 0.1512D+00, 0.1361D+00, 0.1180D+00, 0.9940D-01, 0.8202D-01,
16948 # 0.6661D-01, 0.5338D-01, 0.4228D-01, 0.3315D-01, 0.2579D-01,
16949 # 0.1993D-01, 0.1528D-01, 0.1161D-01, 0.8786D-02, 0.6655D-02,
16950 # 0.4945D-02, 0.3715D-02, 0.2761D-02, 0.2080D-02, 0.1537D-02,
16951 # 0.1131D-02, 0.7928D-03, 0.5897D-03, 0.4543D-03, 0.3196D-03,
16952 # 0.2519D-03, 0.1846D-03, 0.1175D-03, 0.1172D-03, 0.5032D-04,
16953 # 0.5017D-04, 0.5008D-04, 0.5001D-04, 0.4997D-04, -.1673D-04,
16954 # -.1675D-04/
16955
16956 data (calcpts(j,17), j = 1,neta) /0.2625D-03, 0.3178D-03,
16957 # 0.3854D-03, 0.4667D-03, 0.5652D-03, 0.6851D-03, 0.8304D-03,
16958 # 0.1006D-02, 0.1219D-02, 0.1476D-02, 0.1789D-02, 0.2167D-02,
16959 # 0.2629D-02, 0.3185D-02, 0.3855D-02, 0.4675D-02, 0.5665D-02,
16960 # 0.6864D-02, 0.8322D-02, 0.1010D-01, 0.1225D-01, 0.1486D-01,
16961 # 0.1804D-01, 0.2192D-01, 0.2666D-01, 0.3243D-01, 0.3947D-01,
16962 # 0.4806D-01, 0.5845D-01, 0.7091D-01, 0.8548D-01, 0.1020D+00,
16963 # 0.1195D+00, 0.1363D+00, 0.1497D+00, 0.1571D+00, 0.1566D+00,
16964 # 0.1481D+00, 0.1336D+00, 0.1161D+00, 0.9804D-01, 0.8102D-01,
16965 # 0.6588D-01, 0.5284D-01, 0.4189D-01, 0.3291D-01, 0.2564D-01,
16966 # 0.1978D-01, 0.1514D-01, 0.1154D-01, 0.8721D-02, 0.6593D-02,
16967 # 0.4951D-02, 0.3722D-02, 0.2768D-02, 0.2022D-02, 0.1479D-02,
16968 # 0.1139D-02, 0.8017D-03, 0.5988D-03, 0.4634D-03, 0.3287D-03,
16969 # 0.2611D-03, 0.1938D-03, 0.1267D-03, 0.5977D-04, 0.5957D-04,
16970 # 0.5944D-04, 0.5934D-04, -.7387D-05, -.7430D-05, -.7460D-05,
16971 # -.7480D-05/
16972
16973 data (calcpts(j,18), j = 1,neta) /0.2543D-03, 0.3078D-03,
16974 # 0.3732D-03, 0.4520D-03, 0.5474D-03, 0.6629D-03, 0.8035D-03,
16975 # 0.9733D-03, 0.1180D-02, 0.1429D-02, 0.1731D-02, 0.2098D-02,
16976 # 0.2541D-02, 0.3079D-02, 0.3729D-02, 0.4525D-02, 0.5479D-02,
16977 # 0.6644D-02, 0.8051D-02, 0.9766D-02, 0.1184D-01, 0.1437D-01,
16978 # 0.1745D-01, 0.2119D-01, 0.2575D-01, 0.3131D-01, 0.3808D-01,
16979 # 0.4632D-01, 0.5627D-01, 0.6816D-01, 0.8206D-01, 0.9782D-01,
16980 # 0.1145D+00, 0.1306D+00, 0.1438D+00, 0.1513D+00, 0.1513D+00,
16981 # 0.1437D+00, 0.1302D+00, 0.1135D+00, 0.9614D-01, 0.7963D-01,
16982 # 0.6486D-01, 0.5210D-01, 0.4140D-01, 0.3251D-01, 0.2532D-01,
16983 # 0.1955D-01, 0.1505D-01, 0.1146D-01, 0.8710D-02, 0.6519D-02,
16984 # 0.4945D-02, 0.3651D-02, 0.2766D-02, 0.2020D-02, 0.1478D-02,
16985 # 0.1138D-02, 0.8008D-03, 0.5980D-03, 0.4628D-03, 0.3282D-03,
16986 # 0.2606D-03, 0.1934D-03, 0.1263D-03, 0.5934D-04, 0.5915D-04,
16987 # 0.5902D-04, 0.5893D-04, -.7793D-05, -.7834D-05, -.7862D-05,
16988 # -.7881D-05/
16989
16990 data (calcpts(j,19), j = 1,neta) /0.2427D-03, 0.2943D-03,
16991 # 0.3564D-03, 0.4321D-03, 0.5233D-03, 0.6339D-03, 0.7677D-03,
16992 # 0.9304D-03, 0.1128D-02, 0.1366D-02, 0.1654D-02, 0.2005D-02,
16993 # 0.2429D-02, 0.2943D-02, 0.3568D-02, 0.4323D-02, 0.5235D-02,
16994 # 0.6346D-02, 0.7694D-02, 0.9331D-02, 0.1131D-01, 0.1372D-01,
16995 # 0.1665D-01, 0.2022D-01, 0.2455D-01, 0.2983D-01, 0.3625D-01,
16996 # 0.4403D-01, 0.5342D-01, 0.6460D-01, 0.7767D-01, 0.9241D-01,
16997 # 0.1081D+00, 0.1234D+00, 0.1360D+00, 0.1437D+00, 0.1443D+00,
16998 # 0.1378D+00, 0.1256D+00, 0.1100D+00, 0.9352D-01, 0.7771D-01,
16999 # 0.6346D-01, 0.5109D-01, 0.4065D-01, 0.3199D-01, 0.2496D-01,
17000 # 0.1934D-01, 0.1485D-01, 0.1134D-01, 0.8593D-02, 0.6472D-02,
17001 # 0.4902D-02, 0.3676D-02, 0.2725D-02, 0.2047D-02, 0.1505D-02,
17002 # 0.1100D-02, 0.8295D-03, 0.6269D-03, 0.4251D-03, 0.2906D-03,
17003 # 0.2231D-03, 0.1559D-03, 0.8884D-04, 0.8859D-04, 0.8841D-04,
17004 # 0.2162D-04, 0.2154D-04, 0.2149D-04, 0.2145D-04, 0.2142D-04,
17005 # 0.2140D-04/
17006
17007 data (calcpts(j,20), j = 1,neta) /0.2281D-03, 0.2765D-03,
17008 # 0.3351D-03, 0.4057D-03, 0.4920D-03, 0.5961D-03, 0.7219D-03,
17009 # 0.8744D-03, 0.1060D-02, 0.1284D-02, 0.1555D-02, 0.1885D-02,
17010 # 0.2284D-02, 0.2768D-02, 0.3353D-02, 0.4060D-02, 0.4921D-02,
17011 # 0.5965D-02, 0.7228D-02, 0.8768D-02, 0.1063D-01, 0.1289D-01,
17012 # 0.1564D-01, 0.1897D-01, 0.2303D-01, 0.2795D-01, 0.3393D-01,
17013 # 0.4116D-01, 0.4985D-01, 0.6017D-01, 0.7220D-01, 0.8575D-01,
17014 # 0.1002D+00, 0.1144D+00, 0.1263D+00, 0.1338D+00, 0.1352D+00,
17015 # 0.1300D+00, 0.1193D+00, 0.1053D+00, 0.8999D-01, 0.7513D-01,
17016 # 0.6159D-01, 0.4974D-01, 0.3967D-01, 0.3130D-01, 0.2449D-01,
17017 # 0.1896D-01, 0.1462D-01, 0.1112D-01, 0.8449D-02, 0.6401D-02,
17018 # 0.4834D-02, 0.3611D-02, 0.2662D-02, 0.1985D-02, 0.1511D-02,
17019 # 0.1106D-02, 0.7688D-03, 0.5665D-03, 0.4316D-03, 0.2972D-03,
17020 # 0.2298D-03, 0.1626D-03, 0.9560D-04, 0.9537D-04, 0.2855D-04,
17021 # 0.2844D-04, 0.2836D-04, 0.2831D-04, 0.2828D-04, 0.2826D-04,
17022 # 0.2824D-04/
17023
17024 data (calcpts(j,21), j = 1,neta) /0.2103D-03, 0.2549D-03,
17025 # 0.3087D-03, 0.3736D-03, 0.4527D-03, 0.5489D-03, 0.6649D-03,
17026 # 0.8050D-03, 0.9762D-03, 0.1182D-02, 0.1432D-02, 0.1735D-02,
17027 # 0.2103D-02, 0.2547D-02, 0.3085D-02, 0.3741D-02, 0.4530D-02,
17028 # 0.5493D-02, 0.6658D-02, 0.8067D-02, 0.9784D-02, 0.1186D-01,
17029 # 0.1438D-01, 0.1744D-01, 0.2116D-01, 0.2566D-01, 0.3112D-01,
17030 # 0.3769D-01, 0.4558D-01, 0.5491D-01, 0.6575D-01, 0.7794D-01,
17031 # 0.9094D-01, 0.1037D+00, 0.1147D+00, 0.1220D+00, 0.1241D+00,
17032 # 0.1202D+00, 0.1113D+00, 0.9908D-01, 0.8539D-01, 0.7177D-01,
17033 # 0.5916D-01, 0.4799D-01, 0.3842D-01, 0.3041D-01, 0.2384D-01,
17034 # 0.1852D-01, 0.1426D-01, 0.1091D-01, 0.8312D-02, 0.6336D-02,
17035 # 0.4774D-02, 0.3554D-02, 0.2674D-02, 0.1998D-02, 0.1458D-02,
17036 # 0.1120D-02, 0.7841D-03, 0.5821D-03, 0.4474D-03, 0.3131D-03,
17037 # 0.2458D-03, 0.1787D-03, 0.1117D-03, 0.1115D-03, 0.4471D-04,
17038 # 0.4462D-04, 0.4455D-04, 0.4451D-04, 0.4448D-04, 0.4446D-04,
17039 # 0.4445D-04/
17040
17041 data (calcpts(j,22), j = 1,neta) /0.1892D-03, 0.2287D-03,
17042 # 0.2776D-03, 0.3361D-03, 0.4075D-03, 0.4932D-03, 0.5976D-03,
17043 # 0.7242D-03, 0.8775D-03, 0.1063D-02, 0.1288D-02, 0.1560D-02,
17044 # 0.1890D-02, 0.2291D-02, 0.2775D-02, 0.3362D-02, 0.4075D-02,
17045 # 0.4940D-02, 0.5984D-02, 0.7251D-02, 0.8790D-02, 0.1066D-01,
17046 # 0.1292D-01, 0.1566D-01, 0.1898D-01, 0.2301D-01, 0.2788D-01,
17047 # 0.3373D-01, 0.4073D-01, 0.4899D-01, 0.5855D-01, 0.6927D-01,
17048 # 0.8071D-01, 0.9201D-01, 0.1019D+00, 0.1087D+00, 0.1111D+00,
17049 # 0.1086D+00, 0.1016D+00, 0.9138D-01, 0.7959D-01, 0.6752D-01,
17050 # 0.5609D-01, 0.4579D-01, 0.3685D-01, 0.2929D-01, 0.2304D-01,
17051 # 0.1796D-01, 0.1389D-01, 0.1066D-01, 0.8130D-02, 0.6135D-02,
17052 # 0.4644D-02, 0.3495D-02, 0.2617D-02, 0.1942D-02, 0.1470D-02,
17053 # 0.1067D-02, 0.7975D-03, 0.5958D-03, 0.3947D-03, 0.3272D-03,
17054 # 0.2600D-03, 0.1930D-03, 0.1261D-03, 0.5924D-04, 0.5913D-04,
17055 # 0.5905D-04, 0.5900D-04, 0.5896D-04, -.7732D-05, -.7749D-05,
17056 # -.7760D-05/
17057
17058 data (calcpts(j,23), j = 1,neta) /0.1655D-03, 0.2005D-03,
17059 # 0.2427D-03, 0.2942D-03, 0.3569D-03, 0.4318D-03, 0.5232D-03,
17060 # 0.6342D-03, 0.7686D-03, 0.9306D-03, 0.1128D-02, 0.1366D-02,
17061 # 0.1655D-02, 0.2006D-02, 0.2430D-02, 0.2944D-02, 0.3566D-02,
17062 # 0.4324D-02, 0.5236D-02, 0.6346D-02, 0.7697D-02, 0.9327D-02,
17063 # 0.1130D-01, 0.1370D-01, 0.1660D-01, 0.2012D-01, 0.2435D-01,
17064 # 0.2944D-01, 0.3551D-01, 0.4267D-01, 0.5093D-01, 0.6019D-01,
17065 # 0.7004D-01, 0.7982D-01, 0.8841D-01, 0.9454D-01, 0.9712D-01,
17066 # 0.9561D-01, 0.9035D-01, 0.8227D-01, 0.7258D-01, 0.6234D-01,
17067 # 0.5234D-01, 0.4311D-01, 0.3494D-01, 0.2794D-01, 0.2208D-01,
17068 # 0.1727D-01, 0.1340D-01, 0.1032D-01, 0.7891D-02, 0.6003D-02,
17069 # 0.4538D-02, 0.3418D-02, 0.2556D-02, 0.1909D-02, 0.1419D-02,
17070 # 0.1049D-02, 0.7738D-03, 0.5724D-03, 0.4115D-03, 0.3043D-03,
17071 # 0.2172D-03, 0.1635D-03, 0.1167D-03, 0.8322D-04, 0.5646D-04,
17072 # 0.4307D-04, 0.2969D-04, 0.2300D-04, 0.1631D-04, 0.9633D-05,
17073 # 0.2957D-05/
17074
17075 data (calcpts(j,24), j = 1,neta) /0.1409D-03, 0.1707D-03,
17076 # 0.2069D-03, 0.2508D-03, 0.3035D-03, 0.3675D-03, 0.4456D-03,
17077 # 0.5401D-03, 0.6543D-03, 0.7925D-03, 0.9600D-03, 0.1164D-02,
17078 # 0.1410D-02, 0.1708D-02, 0.2069D-02, 0.2507D-02, 0.3038D-02,
17079 # 0.3684D-02, 0.4462D-02, 0.5404D-02, 0.6550D-02, 0.7939D-02,
17080 # 0.9619D-02, 0.1166D-01, 0.1413D-01, 0.1711D-01, 0.2072D-01,
17081 # 0.2504D-01, 0.3019D-01, 0.3626D-01, 0.4327D-01, 0.5112D-01,
17082 # 0.5950D-01, 0.6782D-01, 0.7521D-01, 0.8060D-01, 0.8310D-01,
17083 # 0.8228D-01, 0.7840D-01, 0.7221D-01, 0.6458D-01, 0.5629D-01,
17084 # 0.4793D-01, 0.3996D-01, 0.3271D-01, 0.2636D-01, 0.2096D-01,
17085 # 0.1649D-01, 0.1285D-01, 0.9932D-02, 0.7623D-02, 0.5816D-02,
17086 # 0.4408D-02, 0.3325D-02, 0.2498D-02, 0.1867D-02, 0.1391D-02,
17087 # 0.1029D-02, 0.7605D-03, 0.5595D-03, 0.4122D-03, 0.3051D-03,
17088 # 0.2181D-03, 0.1579D-03, 0.1177D-03, 0.8429D-04, 0.6423D-04,
17089 # 0.4418D-04, 0.3082D-04, 0.2413D-04, 0.1745D-04, 0.1077D-04,
17090 # 0.1076D-04/
17091
17092 data (calcpts(j,25), j = 1,neta) /0.1168D-03, 0.1415D-03,
17093 # 0.1715D-03, 0.2077D-03, 0.2514D-03, 0.3048D-03, 0.3695D-03,
17094 # 0.4475D-03, 0.5420D-03, 0.6569D-03, 0.7959D-03, 0.9642D-03,
17095 # 0.1169D-02, 0.1415D-02, 0.1715D-02, 0.2078D-02, 0.2518D-02,
17096 # 0.3051D-02, 0.3697D-02, 0.4481D-02, 0.5431D-02, 0.6581D-02,
17097 # 0.7974D-02, 0.9667D-02, 0.1171D-01, 0.1419D-01, 0.1717D-01,
17098 # 0.2076D-01, 0.2503D-01, 0.3008D-01, 0.3591D-01, 0.4247D-01,
17099 # 0.4949D-01, 0.5653D-01, 0.6285D-01, 0.6757D-01, 0.6993D-01,
17100 # 0.6954D-01, 0.6664D-01, 0.6189D-01, 0.5601D-01, 0.4956D-01,
17101 # 0.4291D-01, 0.3634D-01, 0.3015D-01, 0.2456D-01, 0.1970D-01,
17102 # 0.1560D-01, 0.1222D-01, 0.9487D-02, 0.7313D-02, 0.5599D-02,
17103 # 0.4256D-02, 0.3222D-02, 0.2424D-02, 0.1814D-02, 0.1359D-02,
17104 # 0.1011D-02, 0.7496D-03, 0.5489D-03, 0.4018D-03, 0.2948D-03,
17105 # 0.2146D-03, 0.1611D-03, 0.1143D-03, 0.8092D-04, 0.6087D-04,
17106 # 0.4084D-04, 0.3415D-04, 0.2080D-04, 0.1413D-04, 0.1412D-04,
17107 # 0.7449D-05/
17108
17109 data (calcpts(j,26), j = 1,neta) /0.9441D-04, 0.1144D-03,
17110 # 0.1386D-03, 0.1679D-03, 0.2035D-03, 0.2465D-03, 0.2988D-03,
17111 # 0.3618D-03, 0.4387D-03, 0.5310D-03, 0.6434D-03, 0.7796D-03,
17112 # 0.9444D-03, 0.1144D-02, 0.1386D-02, 0.1680D-02, 0.2035D-02,
17113 # 0.2466D-02, 0.2989D-02, 0.3622D-02, 0.4389D-02, 0.5322D-02,
17114 # 0.6448D-02, 0.7811D-02, 0.9470D-02, 0.1148D-01, 0.1389D-01,
17115 # 0.1680D-01, 0.2027D-01, 0.2438D-01, 0.2914D-01, 0.3452D-01,
17116 # 0.4033D-01, 0.4624D-01, 0.5164D-01, 0.5581D-01, 0.5808D-01,
17117 # 0.5806D-01, 0.5589D-01, 0.5214D-01, 0.4753D-01, 0.4257D-01,
17118 # 0.3746D-01, 0.3231D-01, 0.2728D-01, 0.2255D-01, 0.1829D-01,
17119 # 0.1461D-01, 0.1153D-01, 0.8999D-02, 0.6966D-02, 0.5350D-02,
17120 # 0.4084D-02, 0.3099D-02, 0.2343D-02, 0.1761D-02, 0.1313D-02,
17121 # 0.9785D-03, 0.7245D-03, 0.5374D-03, 0.3904D-03, 0.2902D-03,
17122 # 0.2101D-03, 0.1567D-03, 0.1099D-03, 0.7655D-04, 0.5652D-04,
17123 # 0.4316D-04, 0.2982D-04, 0.1647D-04, 0.1647D-04, 0.9795D-05,
17124 # 0.3125D-05/
17125
17126 data (calcpts(j,27), j = 1,neta) /0.7459D-04, 0.9038D-04,
17127 # 0.1096D-03, 0.1328D-03, 0.1608D-03, 0.1948D-03, 0.2361D-03,
17128 # 0.2860D-03, 0.3463D-03, 0.4201D-03, 0.5086D-03, 0.6162D-03,
17129 # 0.7467D-03, 0.9047D-03, 0.1096D-02, 0.1328D-02, 0.1609D-02,
17130 # 0.1950D-02, 0.2363D-02, 0.2863D-02, 0.3470D-02, 0.4206D-02,
17131 # 0.5098D-02, 0.6182D-02, 0.7492D-02, 0.9074D-02, 0.1099D-01,
17132 # 0.1330D-01, 0.1607D-01, 0.1933D-01, 0.2315D-01, 0.2749D-01,
17133 # 0.3223D-01, 0.3712D-01, 0.4171D-01, 0.4543D-01, 0.4767D-01,
17134 # 0.4805D-01, 0.4654D-01, 0.4356D-01, 0.3980D-01, 0.3583D-01,
17135 # 0.3191D-01, 0.2802D-01, 0.2413D-01, 0.2032D-01, 0.1674D-01,
17136 # 0.1353D-01, 0.1078D-01, 0.8474D-02, 0.6599D-02, 0.5100D-02,
17137 # 0.3910D-02, 0.2980D-02, 0.2259D-02, 0.1704D-02, 0.1277D-02,
17138 # 0.9560D-03, 0.7089D-03, 0.5286D-03, 0.3884D-03, 0.2883D-03,
17139 # 0.2149D-03, 0.1548D-03, 0.1148D-03, 0.8145D-04, 0.6143D-04,
17140 # 0.4808D-04, 0.3474D-04, 0.2807D-04, 0.2140D-04, 0.1473D-04,
17141 # 0.1472D-04/
17142
17143 data (calcpts(j,28), j = 1,neta) /0.5791D-04, 0.7018D-04,
17144 # 0.8503D-04, 0.1030D-03, 0.1248D-03, 0.1512D-03, 0.1832D-03,
17145 # 0.2219D-03, 0.2689D-03, 0.3258D-03, 0.3947D-03, 0.4780D-03,
17146 # 0.5794D-03, 0.7018D-03, 0.8505D-03, 0.1030D-02, 0.1249D-02,
17147 # 0.1513D-02, 0.1834D-02, 0.2222D-02, 0.2693D-02, 0.3264D-02,
17148 # 0.3956D-02, 0.4796D-02, 0.5814D-02, 0.7043D-02, 0.8538D-02,
17149 # 0.1034D-01, 0.1248D-01, 0.1505D-01, 0.1805D-01, 0.2148D-01,
17150 # 0.2527D-01, 0.2925D-01, 0.3310D-01, 0.3637D-01, 0.3858D-01,
17151 # 0.3935D-01, 0.3852D-01, 0.3628D-01, 0.3320D-01, 0.2986D-01,
17152 # 0.2667D-01, 0.2369D-01, 0.2079D-01, 0.1789D-01, 0.1503D-01,
17153 # 0.1235D-01, 0.9957D-02, 0.7905D-02, 0.6194D-02, 0.4811D-02,
17154 # 0.3709D-02, 0.2841D-02, 0.2160D-02, 0.1633D-02, 0.1232D-02,
17155 # 0.9185D-03, 0.6850D-03, 0.5115D-03, 0.3781D-03, 0.2780D-03,
17156 # 0.2046D-03, 0.1512D-03, 0.1112D-03, 0.7787D-04, 0.5786D-04,
17157 # 0.4452D-04, 0.3119D-04, 0.2452D-04, 0.1785D-04, 0.1118D-04,
17158 # 0.1118D-04/
17159
17160 data (calcpts(j,29), j = 1,neta) /0.4422D-04, 0.5359D-04,
17161 # 0.6494D-04, 0.7870D-04, 0.9534D-04, 0.1155D-03, 0.1400D-03,
17162 # 0.1695D-03, 0.2054D-03, 0.2489D-03, 0.3015D-03, 0.3653D-03,
17163 # 0.4423D-03, 0.5363D-03, 0.6496D-03, 0.7869D-03, 0.9536D-03,
17164 # 0.1156D-02, 0.1400D-02, 0.1697D-02, 0.2057D-02, 0.2493D-02,
17165 # 0.3022D-02, 0.3664D-02, 0.4441D-02, 0.5384D-02, 0.6524D-02,
17166 # 0.7899D-02, 0.9553D-02, 0.1153D-01, 0.1384D-01, 0.1651D-01,
17167 # 0.1948D-01, 0.2266D-01, 0.2581D-01, 0.2862D-01, 0.3073D-01,
17168 # 0.3179D-01, 0.3158D-01, 0.3012D-01, 0.2772D-01, 0.2490D-01,
17169 # 0.2214D-01, 0.1968D-01, 0.1747D-01, 0.1533D-01, 0.1318D-01,
17170 # 0.1106D-01, 0.9063D-02, 0.7286D-02, 0.5765D-02, 0.4510D-02,
17171 # 0.3496D-02, 0.2688D-02, 0.2055D-02, 0.1561D-02, 0.1174D-02,
17172 # 0.8874D-03, 0.6607D-03, 0.4939D-03, 0.3672D-03, 0.2672D-03,
17173 # 0.2005D-03, 0.1472D-03, 0.1071D-03, 0.7381D-04, 0.5380D-04,
17174 # 0.4047D-04, 0.2713D-04, 0.2046D-04, 0.1379D-04, 0.7127D-05,
17175 # 0.7127D-05/
17176
17177 data (calcpts(j,30), j = 1,neta) /0.3339D-04, 0.4040D-04,
17178 # 0.4896D-04, 0.5931D-04, 0.7186D-04, 0.8708D-04, 0.1055D-03,
17179 # 0.1279D-03, 0.1549D-03, 0.1876D-03, 0.2273D-03, 0.2755D-03,
17180 # 0.3337D-03, 0.4043D-03, 0.4899D-03, 0.5933D-03, 0.7195D-03,
17181 # 0.8717D-03, 0.1056D-02, 0.1280D-02, 0.1551D-02, 0.1880D-02,
17182 # 0.2279D-02, 0.2763D-02, 0.3350D-02, 0.4061D-02, 0.4922D-02,
17183 # 0.5962D-02, 0.7212D-02, 0.8703D-02, 0.1047D-01, 0.1251D-01,
17184 # 0.1481D-01, 0.1729D-01, 0.1981D-01, 0.2216D-01, 0.2408D-01,
17185 # 0.2527D-01, 0.2553D-01, 0.2477D-01, 0.2311D-01, 0.2086D-01,
17186 # 0.1846D-01, 0.1628D-01, 0.1443D-01, 0.1281D-01, 0.1125D-01,
17187 # 0.9669D-02, 0.8097D-02, 0.6622D-02, 0.5310D-02, 0.4192D-02,
17188 # 0.3272D-02, 0.2532D-02, 0.1945D-02, 0.1485D-02, 0.1125D-02,
17189 # 0.8448D-03, 0.6381D-03, 0.4781D-03, 0.3514D-03, 0.2648D-03,
17190 # 0.1914D-03, 0.1448D-03, 0.1048D-03, 0.7809D-04, 0.5809D-04,
17191 # 0.3809D-04, 0.3142D-04, 0.1809D-04, 0.1809D-04, 0.1142D-04,
17192 # 0.4756D-05/
17193
17194 data (calcpts(j,31), j = 1,neta) /0.2490D-04, 0.3016D-04,
17195 # 0.3654D-04, 0.4428D-04, 0.5367D-04, 0.6502D-04, 0.7877D-04,
17196 # 0.9543D-04, 0.1156D-03, 0.1401D-03, 0.1697D-03, 0.2056D-03,
17197 # 0.2490D-03, 0.3017D-03, 0.3656D-03, 0.4430D-03, 0.5366D-03,
17198 # 0.6505D-03, 0.7880D-03, 0.9552D-03, 0.1158D-02, 0.1403D-02,
17199 # 0.1701D-02, 0.2062D-02, 0.2499D-02, 0.3031D-02, 0.3673D-02,
17200 # 0.4450D-02, 0.5386D-02, 0.6504D-02, 0.7828D-02, 0.9372D-02,
17201 # 0.1112D-01, 0.1302D-01, 0.1501D-01, 0.1691D-01, 0.1855D-01,
17202 # 0.1974D-01, 0.2028D-01, 0.2007D-01, 0.1909D-01, 0.1747D-01,
17203 # 0.1552D-01, 0.1357D-01, 0.1189D-01, 0.1053D-01, 0.9356D-02,
17204 # 0.8220D-02, 0.7059D-02, 0.5903D-02, 0.4817D-02, 0.3855D-02,
17205 # 0.3039D-02, 0.2368D-02, 0.1827D-02, 0.1400D-02, 0.1067D-02,
17206 # 0.8068D-03, 0.6068D-03, 0.4535D-03, 0.3402D-03, 0.2535D-03,
17207 # 0.1869D-03, 0.1402D-03, 0.1002D-03, 0.7354D-04, 0.5354D-04,
17208 # 0.4021D-04, 0.2687D-04, 0.2021D-04, 0.1354D-04, 0.1354D-04,
17209 # 0.6874D-05/
17210
17211 data (calcpts(j,32), j = 1,neta) /0.1842D-04, 0.2232D-04,
17212 # 0.2705D-04, 0.3277D-04, 0.3967D-04, 0.4809D-04, 0.5828D-04,
17213 # 0.7059D-04, 0.8552D-04, 0.1036D-03, 0.1255D-03, 0.1521D-03,
17214 # 0.1842D-03, 0.2232D-03, 0.2705D-03, 0.3277D-03, 0.3971D-03,
17215 # 0.4812D-03, 0.5832D-03, 0.7063D-03, 0.8566D-03, 0.1038D-02,
17216 # 0.1258D-02, 0.1525D-02, 0.1849D-02, 0.2242D-02, 0.2717D-02,
17217 # 0.3293D-02, 0.3986D-02, 0.4815D-02, 0.5799D-02, 0.6949D-02,
17218 # 0.8259D-02, 0.9705D-02, 0.1123D-01, 0.1273D-01, 0.1409D-01,
17219 # 0.1517D-01, 0.1583D-01, 0.1597D-01, 0.1551D-01, 0.1450D-01,
17220 # 0.1306D-01, 0.1144D-01, 0.9914D-02, 0.8646D-02, 0.7648D-02,
17221 # 0.6802D-02, 0.5979D-02, 0.5131D-02, 0.4284D-02, 0.3490D-02,
17222 # 0.2787D-02, 0.2193D-02, 0.1706D-02, 0.1315D-02, 0.1007D-02,
17223 # 0.7654D-03, 0.5787D-03, 0.4354D-03, 0.3261D-03, 0.2428D-03,
17224 # 0.1801D-03, 0.1328D-03, 0.9812D-04, 0.7146D-04, 0.5213D-04,
17225 # 0.3813D-04, 0.2746D-04, 0.1946D-04, 0.1413D-04, 0.1013D-04,
17226 # 0.6796D-05/
17227
17228 data (calcpts(j,33), j = 1,neta) /0.1353D-04, 0.1639D-04,
17229 # 0.1986D-04, 0.2406D-04, 0.2915D-04, 0.3532D-04, 0.4280D-04,
17230 # 0.5186D-04, 0.6284D-04, 0.7611D-04, 0.9222D-04, 0.1117D-03,
17231 # 0.1353D-03, 0.1640D-03, 0.1987D-03, 0.2407D-03, 0.2917D-03,
17232 # 0.3535D-03, 0.4283D-03, 0.5190D-03, 0.6291D-03, 0.7624D-03,
17233 # 0.9242D-03, 0.1120D-02, 0.1359D-02, 0.1647D-02, 0.1996D-02,
17234 # 0.2419D-02, 0.2929D-02, 0.3539D-02, 0.4264D-02, 0.5114D-02,
17235 # 0.6087D-02, 0.7170D-02, 0.8324D-02, 0.9486D-02, 0.1058D-01,
17236 # 0.1150D-01, 0.1216D-01, 0.1247D-01, 0.1237D-01, 0.1182D-01,
17237 # 0.1089D-01, 0.9674D-02, 0.8381D-02, 0.7203D-02, 0.6260D-02,
17238 # 0.5537D-02, 0.4928D-02, 0.4334D-02, 0.3718D-02, 0.3101D-02,
17239 # 0.2522D-02, 0.2011D-02, 0.1580D-02, 0.1228D-02, 0.9457D-03,
17240 # 0.7231D-03, 0.5498D-03, 0.4151D-03, 0.3125D-03, 0.2338D-03,
17241 # 0.1745D-03, 0.1299D-03, 0.9586D-04, 0.7119D-04, 0.5253D-04,
17242 # 0.3853D-04, 0.2853D-04, 0.2053D-04, 0.1520D-04, 0.1120D-04,
17243 # 0.8532D-05/
17244
17245 data (calcpts(j,34), j = 1,neta) /0.9884D-05, 0.1197D-04,
17246 # 0.1451D-04, 0.1758D-04, 0.2129D-04, 0.2579D-04, 0.3125D-04,
17247 # 0.3787D-04, 0.4585D-04, 0.5560D-04, 0.6733D-04, 0.8161D-04,
17248 # 0.9883D-04, 0.1198D-03, 0.1451D-03, 0.1758D-03, 0.2130D-03,
17249 # 0.2581D-03, 0.3128D-03, 0.3790D-03, 0.4594D-03, 0.5567D-03,
17250 # 0.6748D-03, 0.8180D-03, 0.9920D-03, 0.1203D-02, 0.1457D-02,
17251 # 0.1766D-02, 0.2138D-02, 0.2585D-02, 0.3116D-02, 0.3739D-02,
17252 # 0.4456D-02, 0.5258D-02, 0.6121D-02, 0.7005D-02, 0.7857D-02,
17253 # 0.8612D-02, 0.9205D-02, 0.9575D-02, 0.9668D-02, 0.9447D-02,
17254 # 0.8908D-02, 0.8095D-02, 0.7109D-02, 0.6099D-02, 0.5209D-02,
17255 # 0.4514D-02, 0.3993D-02, 0.3557D-02, 0.3130D-02, 0.2683D-02,
17256 # 0.2236D-02, 0.1816D-02, 0.1445D-02, 0.1134D-02, 0.8796D-03,
17257 # 0.6770D-03, 0.5170D-03, 0.3924D-03, 0.2930D-03, 0.2224D-03,
17258 # 0.1664D-03, 0.1237D-03, 0.9174D-04, 0.6774D-04, 0.4974D-04,
17259 # 0.3641D-04, 0.2708D-04, 0.1974D-04, 0.1441D-04, 0.1041D-04,
17260 # 0.7744D-05/
17261
17262 data (calcpts(j,35), j = 1,neta) /0.7181D-05, 0.8703D-05,
17263 # 0.1054D-04, 0.1277D-04, 0.1548D-04, 0.1875D-04, 0.2272D-04,
17264 # 0.2752D-04, 0.3334D-04, 0.4039D-04, 0.4895D-04, 0.5928D-04,
17265 # 0.7186D-04, 0.8704D-04, 0.1055D-03, 0.1278D-03, 0.1548D-03,
17266 # 0.1876D-03, 0.2273D-03, 0.2754D-03, 0.3338D-03, 0.4046D-03,
17267 # 0.4904D-03, 0.5944D-03, 0.7209D-03, 0.8739D-03, 0.1059D-02,
17268 # 0.1283D-02, 0.1554D-02, 0.1878D-02, 0.2265D-02, 0.2719D-02,
17269 # 0.3243D-02, 0.3833D-02, 0.4472D-02, 0.5136D-02, 0.5787D-02,
17270 # 0.6385D-02, 0.6885D-02, 0.7246D-02, 0.7428D-02, 0.7396D-02,
17271 # 0.7134D-02, 0.6646D-02, 0.5971D-02, 0.5191D-02, 0.4417D-02,
17272 # 0.3752D-02, 0.3245D-02, 0.2871D-02, 0.2560D-02, 0.2253D-02,
17273 # 0.1931D-02, 0.1607D-02, 0.1303D-02, 0.1036D-02, 0.8116D-03,
17274 # 0.6290D-03, 0.4830D-03, 0.3684D-03, 0.2791D-03, 0.2104D-03,
17275 # 0.1578D-03, 0.1178D-03, 0.8778D-04, 0.6511D-04, 0.4778D-04,
17276 # 0.3512D-04, 0.2578D-04, 0.1845D-04, 0.1378D-04, 0.9784D-05,
17277 # 0.7117D-05/
17278
17279 data (calcpts(j,36), j = 1,neta) /0.5199D-05, 0.6298D-05,
17280 # 0.7628D-05, 0.9240D-05, 0.1120D-04, 0.1356D-04, 0.1644D-04,
17281 # 0.1991D-04, 0.2413D-04, 0.2923D-04, 0.3541D-04, 0.4290D-04,
17282 # 0.5199D-04, 0.6297D-04, 0.7629D-04, 0.9246D-04, 0.1120D-03,
17283 # 0.1357D-03, 0.1645D-03, 0.1993D-03, 0.2415D-03, 0.2927D-03,
17284 # 0.3548D-03, 0.4301D-03, 0.5213D-03, 0.6320D-03, 0.7660D-03,
17285 # 0.9282D-03, 0.1124D-02, 0.1359D-02, 0.1639D-02, 0.1969D-02,
17286 # 0.2350D-02, 0.2780D-02, 0.3250D-02, 0.3743D-02, 0.4234D-02,
17287 # 0.4697D-02, 0.5101D-02, 0.5419D-02, 0.5623D-02, 0.5688D-02,
17288 # 0.5595D-02, 0.5336D-02, 0.4918D-02, 0.4375D-02, 0.3771D-02,
17289 # 0.3185D-02, 0.2694D-02, 0.2326D-02, 0.2059D-02, 0.1837D-02,
17290 # 0.1617D-02, 0.1386D-02, 0.1152D-02, 0.9331D-03, 0.7411D-03,
17291 # 0.5799D-03, 0.4492D-03, 0.3446D-03, 0.2626D-03, 0.1993D-03,
17292 # 0.1499D-03, 0.1126D-03, 0.8394D-04, 0.6261D-04, 0.4595D-04,
17293 # 0.3395D-04, 0.2528D-04, 0.1795D-04, 0.1328D-04, 0.9951D-05,
17294 # 0.7284D-05/
17295
17296 data (calcpts(j,37), j = 1,neta) /0.3747D-05, 0.4542D-05,
17297 # 0.5498D-05, 0.6662D-05, 0.8071D-05, 0.9782D-05, 0.1185D-04,
17298 # 0.1435D-04, 0.1739D-04, 0.2107D-04, 0.2553D-04, 0.3093D-04,
17299 # 0.3748D-04, 0.4540D-04, 0.5502D-04, 0.6667D-04, 0.8072D-04,
17300 # 0.9783D-04, 0.1185D-03, 0.1437D-03, 0.1741D-03, 0.2110D-03,
17301 # 0.2558D-03, 0.3100D-03, 0.3758D-03, 0.4556D-03, 0.5522D-03,
17302 # 0.6690D-03, 0.8100D-03, 0.9794D-03, 0.1181D-02, 0.1419D-02,
17303 # 0.1695D-02, 0.2008D-02, 0.2351D-02, 0.2714D-02, 0.3080D-02,
17304 # 0.3432D-02, 0.3749D-02, 0.4013D-02, 0.4205D-02, 0.4308D-02,
17305 # 0.4308D-02, 0.4192D-02, 0.3958D-02, 0.3614D-02, 0.3188D-02,
17306 # 0.2726D-02, 0.2289D-02, 0.1928D-02, 0.1663D-02, 0.1473D-02,
17307 # 0.1315D-02, 0.1158D-02, 0.9917D-03, 0.8239D-03, 0.6665D-03,
17308 # 0.5292D-03, 0.4132D-03, 0.3199D-03, 0.2452D-03, 0.1865D-03,
17309 # 0.1412D-03, 0.1066D-03, 0.7989D-04, 0.5923D-04, 0.4389D-04,
17310 # 0.3256D-04, 0.2389D-04, 0.1723D-04, 0.1323D-04, 0.9229D-05,
17311 # 0.6563D-05/
17312
17313 data (calcpts(j,38), j = 1,neta) /0.2693D-05, 0.3262D-05,
17314 # 0.3953D-05, 0.4790D-05, 0.5801D-05, 0.7032D-05, 0.8515D-05,
17315 # 0.1032D-04, 0.1250D-04, 0.1514D-04, 0.1835D-04, 0.2223D-04,
17316 # 0.2693D-04, 0.3263D-04, 0.3954D-04, 0.4790D-04, 0.5803D-04,
17317 # 0.7034D-04, 0.8521D-04, 0.1033D-03, 0.1251D-03, 0.1516D-03,
17318 # 0.1838D-03, 0.2228D-03, 0.2700D-03, 0.3273D-03, 0.3967D-03,
17319 # 0.4807D-03, 0.5819D-03, 0.7036D-03, 0.8488D-03, 0.1020D-02,
17320 # 0.1219D-02, 0.1445D-02, 0.1694D-02, 0.1960D-02, 0.2230D-02,
17321 # 0.2494D-02, 0.2738D-02, 0.2949D-02, 0.3115D-02, 0.3224D-02,
17322 # 0.3266D-02, 0.3231D-02, 0.3114D-02, 0.2915D-02, 0.2640D-02,
17323 # 0.2311D-02, 0.1963D-02, 0.1640D-02, 0.1377D-02, 0.1186D-02,
17324 # 0.1051D-02, 0.9394D-03, 0.8273D-03, 0.7081D-03, 0.5877D-03,
17325 # 0.4752D-03, 0.3766D-03, 0.2938D-03, 0.2271D-03, 0.1738D-03,
17326 # 0.1325D-03, 0.9981D-04, 0.7515D-04, 0.5648D-04, 0.4182D-04,
17327 # 0.3115D-04, 0.2315D-04, 0.1648D-04, 0.1248D-04, 0.9150D-05,
17328 # 0.6484D-05/
17329
17330 data (calcpts(j,39), j = 1,neta) /0.1929D-05, 0.2338D-05,
17331 # 0.2832D-05, 0.3431D-05, 0.4157D-05, 0.5039D-05, 0.6100D-05,
17332 # 0.7390D-05, 0.8955D-05, 0.1085D-04, 0.1314D-04, 0.1593D-04,
17333 # 0.1930D-04, 0.2338D-04, 0.2833D-04, 0.3433D-04, 0.4159D-04,
17334 # 0.5039D-04, 0.6106D-04, 0.7396D-04, 0.8967D-04, 0.1087D-03,
17335 # 0.1317D-03, 0.1596D-03, 0.1935D-03, 0.2345D-03, 0.2842D-03,
17336 # 0.3443D-03, 0.4170D-03, 0.5041D-03, 0.6082D-03, 0.7312D-03,
17337 # 0.8742D-03, 0.1037D-02, 0.1217D-02, 0.1410D-02, 0.1608D-02,
17338 # 0.1804D-02, 0.1989D-02, 0.2153D-02, 0.2288D-02, 0.2388D-02,
17339 # 0.2445D-02, 0.2452D-02, 0.2404D-02, 0.2298D-02, 0.2134D-02,
17340 # 0.1919D-02, 0.1669D-02, 0.1410D-02, 0.1172D-02, 0.9811D-03,
17341 # 0.8447D-03, 0.7488D-03, 0.6697D-03, 0.5899D-03, 0.5048D-03,
17342 # 0.4188D-03, 0.3383D-03, 0.2679D-03, 0.2091D-03, 0.1614D-03,
17343 # 0.1236D-03, 0.9402D-04, 0.7108D-04, 0.5349D-04, 0.3989D-04,
17344 # 0.2989D-04, 0.2189D-04, 0.1655D-04, 0.1189D-04, 0.9221D-05,
17345 # 0.6554D-05/
17346
17347 data (calcpts(j,40), j = 1,neta) /0.1379D-05, 0.1671D-05,
17348 # 0.2025D-05, 0.2453D-05, 0.2972D-05, 0.3600D-05, 0.4362D-05,
17349 # 0.5285D-05, 0.6401D-05, 0.7759D-05, 0.9399D-05, 0.1138D-04,
17350 # 0.1380D-04, 0.1671D-04, 0.2025D-04, 0.2454D-04, 0.2973D-04,
17351 # 0.3602D-04, 0.4364D-04, 0.5288D-04, 0.6408D-04, 0.7768D-04,
17352 # 0.9415D-04, 0.1141D-03, 0.1382D-03, 0.1676D-03, 0.2031D-03,
17353 # 0.2461D-03, 0.2980D-03, 0.3602D-03, 0.4347D-03, 0.5226D-03,
17354 # 0.6251D-03, 0.7419D-03, 0.8716D-03, 0.1011D-02, 0.1155D-02,
17355 # 0.1300D-02, 0.1438D-02, 0.1563D-02, 0.1670D-02, 0.1755D-02,
17356 # 0.1812D-02, 0.1837D-02, 0.1825D-02, 0.1775D-02, 0.1685D-02,
17357 # 0.1554D-02, 0.1389D-02, 0.1201D-02, 0.1009D-02, 0.8352D-03,
17358 # 0.6976D-03, 0.6001D-03, 0.5322D-03, 0.4763D-03, 0.4197D-03,
17359 # 0.3590D-03, 0.2976D-03, 0.2402D-03, 0.1901D-03, 0.1482D-03,
17360 # 0.1143D-03, 0.8746D-04, 0.6646D-04, 0.5026D-04, 0.3773D-04,
17361 # 0.2826D-04, 0.2106D-04, 0.1546D-04, 0.1153D-04, 0.8464D-05,
17362 # 0.6264D-05/
17363
17364 data (calcpts(j,41), j = 1,neta) /0.9836D-06, 0.1192D-05,
17365 # 0.1444D-05, 0.1750D-05, 0.2120D-05, 0.2568D-05, 0.3111D-05,
17366 # 0.3769D-05, 0.4567D-05, 0.5531D-05, 0.6704D-05, 0.8123D-05,
17367 # 0.9839D-05, 0.1192D-04, 0.1444D-04, 0.1750D-04, 0.2120D-04,
17368 # 0.2569D-04, 0.3113D-04, 0.3772D-04, 0.4570D-04, 0.5539D-04,
17369 # 0.6713D-04, 0.8134D-04, 0.9861D-04, 0.1195D-03, 0.1449D-03,
17370 # 0.1754D-03, 0.2125D-03, 0.2569D-03, 0.3099D-03, 0.3727D-03,
17371 # 0.4459D-03, 0.5295D-03, 0.6227D-03, 0.7233D-03, 0.8281D-03,
17372 # 0.9335D-03, 0.1036D-02, 0.1130D-02, 0.1213D-02, 0.1281D-02,
17373 # 0.1331D-02, 0.1362D-02, 0.1368D-02, 0.1349D-02, 0.1303D-02,
17374 # 0.1229D-02, 0.1126D-02, 0.1001D-02, 0.8613D-03, 0.7202D-03,
17375 # 0.5940D-03, 0.4950D-03, 0.4256D-03, 0.3776D-03, 0.3382D-03,
17376 # 0.2980D-03, 0.2548D-03, 0.2111D-03, 0.1702D-03, 0.1346D-03,
17377 # 0.1049D-03, 0.8085D-04, 0.6179D-04, 0.4692D-04, 0.3539D-04,
17378 # 0.2659D-04, 0.1985D-04, 0.1466D-04, 0.1092D-04, 0.8055D-05,
17379 # 0.5922D-05/
17380
17381 data (calcpts(j,42), j = 1,neta) /0.7004D-06, 0.8482D-06,
17382 # 0.1028D-05, 0.1246D-05, 0.1509D-05, 0.1827D-05, 0.2214D-05,
17383 # 0.2683D-05, 0.3250D-05, 0.3938D-05, 0.4771D-05, 0.5778D-05,
17384 # 0.7001D-05, 0.8488D-05, 0.1028D-04, 0.1245D-04, 0.1509D-04,
17385 # 0.1828D-04, 0.2216D-04, 0.2684D-04, 0.3252D-04, 0.3942D-04,
17386 # 0.4777D-04, 0.5790D-04, 0.7017D-04, 0.8503D-04, 0.1031D-03,
17387 # 0.1248D-03, 0.1512D-03, 0.1828D-03, 0.2205D-03, 0.2653D-03,
17388 # 0.3174D-03, 0.3772D-03, 0.4439D-03, 0.5161D-03, 0.5919D-03,
17389 # 0.6686D-03, 0.7434D-03, 0.8136D-03, 0.8767D-03, 0.9305D-03,
17390 # 0.9725D-03, 0.1001D-02, 0.1015D-02, 0.1012D-02, 0.9913D-03,
17391 # 0.9518D-03, 0.8919D-03, 0.8136D-03, 0.7195D-03, 0.6161D-03,
17392 # 0.5131D-03, 0.4218D-03, 0.3507D-03, 0.3014D-03, 0.2676D-03,
17393 # 0.2398D-03, 0.2113D-03, 0.1806D-03, 0.1496D-03, 0.1206D-03,
17394 # 0.9525D-04, 0.7412D-04, 0.5712D-04, 0.4366D-04, 0.3312D-04,
17395 # 0.2499D-04, 0.1879D-04, 0.1392D-04, 0.1039D-04, 0.7724D-05,
17396 # 0.5658D-05/
17397
17398 data (calcpts(j,43), j = 1,neta) /0.4974D-06, 0.6029D-06,
17399 # 0.7301D-06, 0.8846D-06, 0.1071D-05, 0.1298D-05, 0.1573D-05,
17400 # 0.1906D-05, 0.2309D-05, 0.2798D-05, 0.3389D-05, 0.4106D-05,
17401 # 0.4975D-05, 0.6027D-05, 0.7305D-05, 0.8846D-05, 0.1072D-04,
17402 # 0.1299D-04, 0.1574D-04, 0.1907D-04, 0.2311D-04, 0.2800D-04,
17403 # 0.3393D-04, 0.4113D-04, 0.4985D-04, 0.6041D-04, 0.7320D-04,
17404 # 0.8870D-04, 0.1073D-03, 0.1298D-03, 0.1566D-03, 0.1884D-03,
17405 # 0.2256D-03, 0.2681D-03, 0.3157D-03, 0.3675D-03, 0.4220D-03,
17406 # 0.4776D-03, 0.5321D-03, 0.5840D-03, 0.6313D-03, 0.6725D-03,
17407 # 0.7062D-03, 0.7312D-03, 0.7465D-03, 0.7510D-03, 0.7440D-03,
17408 # 0.7243D-03, 0.6914D-03, 0.6450D-03, 0.5856D-03, 0.5156D-03,
17409 # 0.4396D-03, 0.3647D-03, 0.2989D-03, 0.2481D-03, 0.2132D-03,
17410 # 0.1893D-03, 0.1697D-03, 0.1496D-03, 0.1278D-03, 0.1058D-03,
17411 # 0.8526D-04, 0.6726D-04, 0.5232D-04, 0.4032D-04, 0.3079D-04,
17412 # 0.2333D-04, 0.1759D-04, 0.1319D-04, 0.9859D-05, 0.7325D-05,
17413 # 0.5459D-05/
17414
17415 data (calcpts(j,44), j = 1,neta) /0.3528D-06, 0.4274D-06,
17416 # 0.5179D-06, 0.6277D-06, 0.7598D-06, 0.9211D-06, 0.1116D-05,
17417 # 0.1352D-05, 0.1638D-05, 0.1984D-05, 0.2404D-05, 0.2912D-05,
17418 # 0.3528D-05, 0.4275D-05, 0.5179D-05, 0.6275D-05, 0.7603D-05,
17419 # 0.9212D-05, 0.1116D-04, 0.1352D-04, 0.1639D-04, 0.1986D-04,
17420 # 0.2406D-04, 0.2916D-04, 0.3535D-04, 0.4284D-04, 0.5190D-04,
17421 # 0.6288D-04, 0.7611D-04, 0.9204D-04, 0.1111D-03, 0.1336D-03,
17422 # 0.1600D-03, 0.1903D-03, 0.2242D-03, 0.2612D-03, 0.3003D-03,
17423 # 0.3403D-03, 0.3800D-03, 0.4180D-03, 0.4531D-03, 0.4843D-03,
17424 # 0.5106D-03, 0.5312D-03, 0.5454D-03, 0.5527D-03, 0.5524D-03,
17425 # 0.5439D-03, 0.5268D-03, 0.5004D-03, 0.4648D-03, 0.4202D-03,
17426 # 0.3685D-03, 0.3130D-03, 0.2588D-03, 0.2115D-03, 0.1753D-03,
17427 # 0.1505D-03, 0.1337D-03, 0.1199D-03, 0.1057D-03, 0.9034D-04,
17428 # 0.7472D-04, 0.6014D-04, 0.4747D-04, 0.3687D-04, 0.2840D-04,
17429 # 0.2167D-04, 0.1640D-04, 0.1240D-04, 0.9271D-05, 0.6938D-05,
17430 # 0.5138D-05/
17431
17432 data (calcpts(j,45), j = 1,neta) /0.2498D-06, 0.3026D-06,
17433 # 0.3666D-06, 0.4442D-06, 0.5384D-06, 0.6517D-06, 0.7901D-06,
17434 # 0.9569D-06, 0.1160D-05, 0.1405D-05, 0.1702D-05, 0.2062D-05,
17435 # 0.2499D-05, 0.3027D-05, 0.3667D-05, 0.4443D-05, 0.5383D-05,
17436 # 0.6523D-05, 0.7902D-05, 0.9579D-05, 0.1160D-04, 0.1406D-04,
17437 # 0.1704D-04, 0.2065D-04, 0.2502D-04, 0.3033D-04, 0.3675D-04,
17438 # 0.4452D-04, 0.5389D-04, 0.6516D-04, 0.7864D-04, 0.9462D-04,
17439 # 0.1133D-03, 0.1348D-03, 0.1589D-03, 0.1853D-03, 0.2133D-03,
17440 # 0.2421D-03, 0.2708D-03, 0.2985D-03, 0.3243D-03, 0.3477D-03,
17441 # 0.3678D-03, 0.3841D-03, 0.3963D-03, 0.4039D-03, 0.4067D-03,
17442 # 0.4041D-03, 0.3958D-03, 0.3816D-03, 0.3610D-03, 0.3339D-03,
17443 # 0.3007D-03, 0.2628D-03, 0.2225D-03, 0.1834D-03, 0.1495D-03,
17444 # 0.1237D-03, 0.1062D-03, 0.9438D-04, 0.8469D-04, 0.7467D-04,
17445 # 0.6379D-04, 0.5275D-04, 0.4245D-04, 0.3348D-04, 0.2604D-04,
17446 # 0.2004D-04, 0.1524D-04, 0.1158D-04, 0.8709D-05, 0.6576D-05,
17447 # 0.4909D-05/
17448
17449 data (calcpts(j,46), j = 1,neta) /0.1766D-06, 0.2140D-06,
17450 # 0.2593D-06, 0.3141D-06, 0.3805D-06, 0.4610D-06, 0.5583D-06,
17451 # 0.6765D-06, 0.8200D-06, 0.9935D-06, 0.1204D-05, 0.1458D-05,
17452 # 0.1766D-05, 0.2140D-05, 0.2593D-05, 0.3142D-05, 0.3807D-05,
17453 # 0.4612D-05, 0.5588D-05, 0.6771D-05, 0.8207D-05, 0.9939D-05,
17454 # 0.1205D-04, 0.1460D-04, 0.1770D-04, 0.2144D-04, 0.2598D-04,
17455 # 0.3147D-04, 0.3810D-04, 0.4606D-04, 0.5559D-04, 0.6689D-04,
17456 # 0.8012D-04, 0.9534D-04, 0.1125D-03, 0.1312D-03, 0.1512D-03,
17457 # 0.1719D-03, 0.1925D-03, 0.2126D-03, 0.2316D-03, 0.2488D-03,
17458 # 0.2640D-03, 0.2767D-03, 0.2866D-03, 0.2936D-03, 0.2972D-03,
17459 # 0.2976D-03, 0.2942D-03, 0.2869D-03, 0.2754D-03, 0.2595D-03,
17460 # 0.2392D-03, 0.2147D-03, 0.1870D-03, 0.1578D-03, 0.1297D-03,
17461 # 0.1055D-03, 0.8715D-04, 0.7480D-04, 0.6651D-04, 0.5970D-04,
17462 # 0.5264D-04, 0.4496D-04, 0.3716D-04, 0.2989D-04, 0.2356D-04,
17463 # 0.1830D-04, 0.1407D-04, 0.1073D-04, 0.8131D-05, 0.6124D-05,
17464 # 0.4591D-05/
17465
17466 data (calcpts(j,47), j = 1,neta) /0.1247D-06, 0.1511D-06,
17467 # 0.1831D-06, 0.2218D-06, 0.2687D-06, 0.3256D-06, 0.3945D-06,
17468 # 0.4779D-06, 0.5790D-06, 0.7013D-06, 0.8498D-06, 0.1029D-05,
17469 # 0.1247D-05, 0.1511D-05, 0.1831D-05, 0.2218D-05, 0.2688D-05,
17470 # 0.3257D-05, 0.3946D-05, 0.4781D-05, 0.5793D-05, 0.7020D-05,
17471 # 0.8506D-05, 0.1031D-04, 0.1249D-04, 0.1514D-04, 0.1834D-04,
17472 # 0.2222D-04, 0.2689D-04, 0.3252D-04, 0.3925D-04, 0.4723D-04,
17473 # 0.5657D-04, 0.6735D-04, 0.7949D-04, 0.9282D-04, 0.1071D-03,
17474 # 0.1218D-03, 0.1366D-03, 0.1512D-03, 0.1650D-03, 0.1777D-03,
17475 # 0.1890D-03, 0.1986D-03, 0.2065D-03, 0.2123D-03, 0.2161D-03,
17476 # 0.2176D-03, 0.2167D-03, 0.2133D-03, 0.2071D-03, 0.1981D-03,
17477 # 0.1860D-03, 0.1709D-03, 0.1530D-03, 0.1328D-03, 0.1118D-03,
17478 # 0.9159D-04, 0.7433D-04, 0.6134D-04, 0.5263D-04, 0.4681D-04,
17479 # 0.4204D-04, 0.3707D-04, 0.3166D-04, 0.2615D-04, 0.2102D-04,
17480 # 0.1656D-04, 0.1286D-04, 0.9878D-05, 0.7524D-05, 0.5698D-05,
17481 # 0.4291D-05/
17482
17483 data (calcpts(j,48), j = 1,neta) /0.8797D-07, 0.1066D-06,
17484 # 0.1291D-06, 0.1564D-06, 0.1895D-06, 0.2296D-06, 0.2782D-06,
17485 # 0.3371D-06, 0.4083D-06, 0.4947D-06, 0.5994D-06, 0.7261D-06,
17486 # 0.8796D-06, 0.1066D-05, 0.1291D-05, 0.1565D-05, 0.1896D-05,
17487 # 0.2296D-05, 0.2783D-05, 0.3372D-05, 0.4086D-05, 0.4951D-05,
17488 # 0.6000D-05, 0.7270D-05, 0.8808D-05, 0.1068D-04, 0.1293D-04,
17489 # 0.1567D-04, 0.1897D-04, 0.2293D-04, 0.2767D-04, 0.3331D-04,
17490 # 0.3991D-04, 0.4752D-04, 0.5611D-04, 0.6556D-04, 0.7568D-04,
17491 # 0.8621D-04, 0.9686D-04, 0.1073D-03, 0.1173D-03, 0.1265D-03,
17492 # 0.1350D-03, 0.1422D-03, 0.1482D-03, 0.1530D-03, 0.1564D-03,
17493 # 0.1582D-03, 0.1585D-03, 0.1572D-03, 0.1541D-03, 0.1491D-03,
17494 # 0.1421D-03, 0.1330D-03, 0.1219D-03, 0.1088D-03, 0.9418D-04,
17495 # 0.7904D-04, 0.6462D-04, 0.5233D-04, 0.4313D-04, 0.3700D-04,
17496 # 0.3292D-04, 0.2958D-04, 0.2609D-04, 0.2227D-04, 0.1839D-04,
17497 # 0.1478D-04, 0.1163D-04, 0.9027D-05, 0.6934D-05, 0.5281D-05,
17498 # 0.4001D-05/
17499
17500 data (calcpts(j,49), j = 1,neta) /0.6194D-07, 0.7506D-07,
17501 # 0.9095D-07, 0.1102D-06, 0.1335D-06, 0.1617D-06, 0.1960D-06,
17502 # 0.2374D-06, 0.2876D-06, 0.3485D-06, 0.4222D-06, 0.5115D-06,
17503 # 0.6198D-06, 0.7509D-06, 0.9094D-06, 0.1102D-05, 0.1335D-05,
17504 # 0.1618D-05, 0.1960D-05, 0.2375D-05, 0.2878D-05, 0.3488D-05,
17505 # 0.4226D-05, 0.5121D-05, 0.6206D-05, 0.7520D-05, 0.9108D-05,
17506 # 0.1104D-04, 0.1335D-04, 0.1615D-04, 0.1949D-04, 0.2346D-04,
17507 # 0.2811D-04, 0.3348D-04, 0.3956D-04, 0.4625D-04, 0.5343D-04,
17508 # 0.6092D-04, 0.6852D-04, 0.7603D-04, 0.8325D-04, 0.8997D-04,
17509 # 0.9617D-04, 0.1015D-03, 0.1062D-03, 0.1099D-03, 0.1127D-03,
17510 # 0.1145D-03, 0.1153D-03, 0.1150D-03, 0.1135D-03, 0.1109D-03,
17511 # 0.1070D-03, 0.1017D-03, 0.9490D-04, 0.8672D-04, 0.7719D-04,
17512 # 0.6667D-04, 0.5582D-04, 0.4553D-04, 0.3680D-04, 0.3030D-04,
17513 # 0.2599D-04, 0.2313D-04, 0.2079D-04, 0.1833D-04, 0.1565D-04,
17514 # 0.1292D-04, 0.1038D-04, 0.8170D-05, 0.6337D-05, 0.4864D-05,
17515 # 0.3704D-05/
17516
17517 data (dlaeta(j), j = 1,neta) /
17518 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
17519 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
17520 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
17521 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
17522 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
17523 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
17524 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
17525 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
17526 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
17527 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
17528 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
17529 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
17530 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
17531 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
17532 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
17533
17534 data (dlaxi(j), j = 1,nxi) /
17535 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
17536 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
17537 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
17538 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
17539 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
17540 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
17541 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
17542 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
17543 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
17544 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
17545
17546 dleta = dlog10(eta)
17547 dlxi = dlog10(xi)
17548 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
17549 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
17550 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
17551 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
17552 call locate(dlaeta,neta, dleta, ieta)
17553 call locate(dlaxi, nxi, dlxi, ixi)
17554c interpolating between the appropriate points
17555 delxi = 1d0/6d0
17556 deleta = 1d0/6d0
17557c lagrange 3-pt.
17558 if (ixi .le. 2) ixi = 2
17559 if (ixi .ge. 48) ixi = 48
17560 if (ieta .le. 2) ieta = 2
17561 if (ixi .ge. 72) ieta = 72
17562 pxi = (dlxi - dlaxi(ixi))/delxi
17563 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
17564 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
17565 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
17566 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
17567 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
17568 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
17569 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
17570 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
17571 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
17572 peta = (dleta - dlaeta(ieta))/deleta
17573 h1bar_Tg = peta*(peta-1d0)/2d0*f(-1) +
17574 # (1d0 - peta**2)*f(0) +
17575CMB # + peta*(peta+1d0)/2d0*f(1)
17576 # peta*(peta+1d0)/2d0*f(1)
17577 return
17578 end
17579
17580CDECK ID>, GCORRL.
17581
17582c ========================================
17583 double precision function h1_ALg(eta,xi)
17584c ========================================
17585
17586c eq (9) in PLB347 (1995) 143 - 151 for the longitudinal piece
17587c MSbar scheme
17588c This routine is called subclca in the original code.
17589c Called sclca in updated code (03/06/96).
17590
17591 implicit none
17592 integer neta, nxi
17593 parameter (neta = 73, nxi = 49)
17594 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
17595 double precision eta, xi, dleta, dlxi
17596 double precision pxi, peta, f(-1:1), delxi, deleta
17597 integer j, ieta, ixi
17598
17599 data (calcpts(j, 1), j = 1,neta) /-.1179D-07, -.1428D-07,
17600 # -.1730D-07, -.2095D-07, -.2538D-07, -.3074D-07, -.3723D-07,
17601 # -.4509D-07, -.5457D-07, -.6604D-07, -.7989D-07, -.9657D-07,
17602 # -.1166D-06, -.1406D-06, -.1691D-06, -.2029D-06, -.2423D-06,
17603 # -.2875D-06, -.3377D-06, -.3910D-06, -.4424D-06, -.4824D-06,
17604 # -.4929D-06, -.4417D-06, -.2734D-06, 0.1048D-06, 0.8410D-06,
17605 # 0.2167D-05, 0.4413D-05, 0.8018D-05, 0.1347D-04, 0.2118D-04,
17606 # 0.3115D-04, 0.4274D-04, 0.5440D-04, 0.6402D-04, 0.6968D-04,
17607 # 0.7031D-04, 0.6605D-04, 0.5802D-04, 0.4795D-04, 0.3757D-04,
17608 # 0.2814D-04, 0.2032D-04, 0.1427D-04, 0.9805D-05, 0.6626D-05,
17609 # 0.4430D-05, 0.2942D-05, 0.1939D-05, 0.1271D-05, 0.8315D-06,
17610 # 0.5416D-06, 0.3496D-06, 0.2296D-06, 0.1507D-06, 0.9812D-07,
17611 # 0.6371D-07, 0.3752D-07, 0.2606D-07, 0.1129D-07, 0.1001D-07,
17612 # 0.6726D-08, -.6033D-10, 0.1982D-08, -.1166D-08, -.3311D-08,
17613 # -.4773D-08, 0.8985D-09, 0.2197D-09, -.2427D-09, -.5576D-09,
17614 # -.7721D-09/
17615
17616 data (calcpts(j, 2), j = 1,neta) /-.1730D-07, -.2096D-07,
17617 # -.2538D-07, -.3075D-07, -.3725D-07, -.4512D-07, -.5464D-07,
17618 # -.6617D-07, -.8009D-07, -.9693D-07, -.1173D-06, -.1417D-06,
17619 # -.1711D-06, -.2063D-06, -.2482D-06, -.2978D-06, -.3556D-06,
17620 # -.4219D-06, -.4957D-06, -.5739D-06, -.6493D-06, -.7080D-06,
17621 # -.7235D-06, -.6485D-06, -.4017D-06, 0.1531D-06, 0.1234D-05,
17622 # 0.3179D-05, 0.6475D-05, 0.1177D-04, 0.1977D-04, 0.3108D-04,
17623 # 0.4572D-04, 0.6272D-04, 0.7983D-04, 0.9395D-04, 0.1023D-03,
17624 # 0.1032D-03, 0.9692D-04, 0.8514D-04, 0.7037D-04, 0.5514D-04,
17625 # 0.4130D-04, 0.2982D-04, 0.2094D-04, 0.1439D-04, 0.9726D-05,
17626 # 0.6501D-05, 0.4316D-05, 0.2843D-05, 0.1869D-05, 0.1219D-05,
17627 # 0.7955D-06, 0.5175D-06, 0.3379D-06, 0.2175D-06, 0.1385D-06,
17628 # 0.8579D-07, 0.5801D-07, 0.3185D-07, 0.2039D-07, 0.1227D-07,
17629 # 0.4342D-08, 0.1049D-08, 0.9303D-09, -.3690D-08, -.1711D-09,
17630 # -.2317D-08, -.3777D-08, -.4773D-08, -.5452D-08, -.5914D-08,
17631 # -.6228D-08/
17632
17633 data (calcpts(j, 3), j = 1,neta) /-.2537D-07, -.3074D-07,
17634 # -.3724D-07, -.4511D-07, -.5465D-07, -.6619D-07, -.8016D-07,
17635 # -.9707D-07, -.1175D-06, -.1422D-06, -.1720D-06, -.2079D-06,
17636 # -.2510D-06, -.3027D-06, -.3642D-06, -.4368D-06, -.5217D-06,
17637 # -.6189D-06, -.7272D-06, -.8419D-06, -.9525D-06, -.1039D-05,
17638 # -.1061D-05, -.9512D-06, -.5895D-06, 0.2244D-06, 0.1810D-05,
17639 # 0.4663D-05, 0.9499D-05, 0.1726D-04, 0.2900D-04, 0.4559D-04,
17640 # 0.6706D-04, 0.9199D-04, 0.1171D-03, 0.1378D-03, 0.1500D-03,
17641 # 0.1513D-03, 0.1421D-03, 0.1249D-03, 0.1032D-03, 0.8086D-04,
17642 # 0.6056D-04, 0.4373D-04, 0.3071D-04, 0.2110D-04, 0.1427D-04,
17643 # 0.9545D-05, 0.6330D-05, 0.4175D-05, 0.2746D-05, 0.1799D-05,
17644 # 0.1177D-05, 0.7653D-06, 0.4997D-06, 0.3263D-06, 0.2127D-06,
17645 # 0.1402D-06, 0.9418D-07, 0.5982D-07, 0.4034D-07, 0.2889D-07,
17646 # 0.2081D-07, 0.1287D-07, 0.9587D-08, 0.9478D-08, 0.4861D-08,
17647 # 0.8381D-08, 0.6240D-08, 0.4779D-08, 0.3784D-08, 0.3106D-08,
17648 # 0.2644D-08/
17649
17650 data (calcpts(j, 4), j = 1,neta) /-.3724D-07, -.4511D-07,
17651 # -.5464D-07, -.6620D-07, -.8019D-07, -.9713D-07, -.1176D-06,
17652 # -.1424D-06, -.1724D-06, -.2087D-06, -.2524D-06, -.3051D-06,
17653 # -.3684D-06, -.4442D-06, -.5344D-06, -.6411D-06, -.7656D-06,
17654 # -.9083D-06, -.1067D-05, -.1236D-05, -.1398D-05, -.1524D-05,
17655 # -.1558D-05, -.1397D-05, -.8658D-06, 0.3268D-06, 0.2652D-05,
17656 # 0.6837D-05, 0.1393D-04, 0.2531D-04, 0.4253D-04, 0.6687D-04,
17657 # 0.9836D-04, 0.1349D-03, 0.1717D-03, 0.2021D-03, 0.2200D-03,
17658 # 0.2219D-03, 0.2085D-03, 0.1831D-03, 0.1514D-03, 0.1186D-03,
17659 # 0.8883D-04, 0.6414D-04, 0.4504D-04, 0.3095D-04, 0.2093D-04,
17660 # 0.1400D-04, 0.9283D-05, 0.6119D-05, 0.4024D-05, 0.2635D-05,
17661 # 0.1720D-05, 0.1122D-05, 0.7284D-06, 0.4753D-06, 0.3088D-06,
17662 # 0.2015D-06, 0.1291D-06, 0.8310D-07, 0.5541D-07, 0.3594D-07,
17663 # 0.2453D-07, 0.1644D-07, 0.8512D-08, 0.5240D-08, 0.5134D-08,
17664 # 0.7185D-08, 0.4044D-08, 0.1901D-08, 0.4413D-09, 0.6114D-08,
17665 # 0.5437D-08/
17666
17667 data (calcpts(j, 5), j = 1,neta) /-.5464D-07, -.6620D-07,
17668 # -.8018D-07, -.9714D-07, -.1177D-06, -.1425D-06, -.1726D-06,
17669 # -.2090D-06, -.2530D-06, -.3062D-06, -.3704D-06, -.4477D-06,
17670 # -.5406D-06, -.6519D-06, -.7842D-06, -.9407D-06, -.1123D-05,
17671 # -.1333D-05, -.1566D-05, -.1813D-05, -.2052D-05, -.2229D-05,
17672 # -.2287D-05, -.2051D-05, -.1274D-05, 0.4740D-06, 0.3881D-05,
17673 # 0.1002D-04, 0.2042D-04, 0.3710D-04, 0.6236D-04, 0.9805D-04,
17674 # 0.1442D-03, 0.1979D-03, 0.2518D-03, 0.2964D-03, 0.3225D-03,
17675 # 0.3254D-03, 0.3056D-03, 0.2685D-03, 0.2219D-03, 0.1739D-03,
17676 # 0.1302D-03, 0.9403D-04, 0.6603D-04, 0.4537D-04, 0.3067D-04,
17677 # 0.2051D-04, 0.1360D-04, 0.8964D-05, 0.5884D-05, 0.3854D-05,
17678 # 0.2514D-05, 0.1636D-05, 0.1062D-05, 0.6875D-06, 0.4415D-06,
17679 # 0.2878D-06, 0.1807D-06, 0.1151D-06, 0.6913D-07, 0.4147D-07,
17680 # 0.2875D-07, 0.1733D-07, 0.9258D-08, 0.1351D-08, -.1914D-08,
17681 # -.2016D-08, 0.4406D-10, -.3098D-08, -.5239D-08, -.6697D-08,
17682 # -.7690D-08/
17683
17684 data (calcpts(j, 6), j = 1,neta) /-.8015D-07, -.9710D-07,
17685 # -.1176D-06, -.1425D-06, -.1726D-06, -.2090D-06, -.2532D-06,
17686 # -.3066D-06, -.3711D-06, -.4491D-06, -.5433D-06, -.6566D-06,
17687 # -.7929D-06, -.9561D-06, -.1150D-05, -.1380D-05, -.1648D-05,
17688 # -.1955D-05, -.2297D-05, -.2660D-05, -.3010D-05, -.3283D-05,
17689 # -.3357D-05, -.3012D-05, -.1874D-05, 0.6859D-06, 0.5677D-05,
17690 # 0.1467D-04, 0.2990D-04, 0.5435D-04, 0.9137D-04, 0.1437D-03,
17691 # 0.2113D-03, 0.2900D-03, 0.3690D-03, 0.4343D-03, 0.4726D-03,
17692 # 0.4768D-03, 0.4478D-03, 0.3933D-03, 0.3251D-03, 0.2547D-03,
17693 # 0.1908D-03, 0.1377D-03, 0.9673D-04, 0.6645D-04, 0.4493D-04,
17694 # 0.3004D-04, 0.1995D-04, 0.1316D-04, 0.8593D-05, 0.5674D-05,
17695 # 0.3711D-05, 0.2394D-05, 0.1547D-05, 0.1026D-05, 0.6864D-06,
17696 # 0.4268D-06, 0.2468D-06, 0.1668D-06, 0.8797D-07, 0.5549D-07,
17697 # 0.5467D-07, 0.8638D-08, 0.4394D-07, 0.2258D-07, 0.8028D-08,
17698 # -.1890D-08, -.8640D-08, -.1324D-07, -.1638D-07, -.1852D-07,
17699 # -.1997D-07/
17700
17701 data (calcpts(j, 7), j = 1,neta) /-.1175D-06, -.1424D-06,
17702 # -.1725D-06, -.2089D-06, -.2531D-06, -.3065D-06, -.3712D-06,
17703 # -.4496D-06, -.5441D-06, -.6585D-06, -.7966D-06, -.9629D-06,
17704 # -.1163D-05, -.1402D-05, -.1687D-05, -.2023D-05, -.2417D-05,
17705 # -.2867D-05, -.3369D-05, -.3901D-05, -.4415D-05, -.4817D-05,
17706 # -.4927D-05, -.4425D-05, -.2761D-05, 0.9843D-06, 0.8293D-05,
17707 # 0.2145D-04, 0.4376D-04, 0.7956D-04, 0.1338D-03, 0.2103D-03,
17708 # 0.3094D-03, 0.4245D-03, 0.5403D-03, 0.6358D-03, 0.6919D-03,
17709 # 0.6980D-03, 0.6555D-03, 0.5757D-03, 0.4758D-03, 0.3728D-03,
17710 # 0.2792D-03, 0.2016D-03, 0.1416D-03, 0.9723D-04, 0.6578D-04,
17711 # 0.4393D-04, 0.2913D-04, 0.1919D-04, 0.1264D-04, 0.8225D-05,
17712 # 0.5357D-05, 0.3523D-05, 0.2272D-05, 0.1492D-05, 0.9729D-06,
17713 # 0.6333D-06, 0.3745D-06, 0.2620D-06, 0.1824D-06, 0.1038D-06,
17714 # 0.7170D-07, 0.7095D-07, 0.2502D-07, -.6248D-08, 0.3911D-07,
17715 # 0.2459D-07, 0.1470D-07, 0.7959D-08, 0.3366D-08, 0.2383D-09,
17716 # -.1893D-08/
17717
17718 data (calcpts(j, 8), j = 1,neta) /-.1723D-06, -.2087D-06,
17719 # -.2528D-06, -.3063D-06, -.3710D-06, -.4494D-06, -.5442D-06,
17720 # -.6590D-06, -.7977D-06, -.9654D-06, -.1168D-05, -.1412D-05,
17721 # -.1705D-05, -.2055D-05, -.2473D-05, -.2966D-05, -.3543D-05,
17722 # -.4204D-05, -.4940D-05, -.5721D-05, -.6476D-05, -.7067D-05,
17723 # -.7232D-05, -.6503D-05, -.4077D-05, 0.1394D-05, 0.1208D-04,
17724 # 0.3131D-04, 0.6393D-04, 0.1163D-03, 0.1956D-03, 0.3076D-03,
17725 # 0.4526D-03, 0.6210D-03, 0.7904D-03, 0.9301D-03, 0.1012D-02,
17726 # 0.1021D-02, 0.9584D-03, 0.8418D-03, 0.6956D-03, 0.5450D-03,
17727 # 0.4082D-03, 0.2947D-03, 0.2069D-03, 0.1421D-03, 0.9608D-04,
17728 # 0.6424D-04, 0.4255D-04, 0.2802D-04, 0.1842D-04, 0.1201D-04,
17729 # 0.7843D-05, 0.5108D-05, 0.3342D-05, 0.2159D-05, 0.1384D-05,
17730 # 0.8661D-06, 0.5282D-06, 0.3378D-06, 0.2262D-06, 0.1472D-06,
17731 # 0.6927D-07, 0.3732D-07, 0.3679D-07, -.8953D-08, -.4013D-07,
17732 # 0.5292D-08, -.9167D-08, -.1903D-07, -.2575D-07, -.3033D-07,
17733 # -.3344D-07/
17734
17735 data (calcpts(j, 9), j = 1,neta) /-.2523D-06, -.3056D-06,
17736 # -.3702D-06, -.4485D-06, -.5433D-06, -.6580D-06, -.7969D-06,
17737 # -.9650D-06, -.1168D-05, -.1414D-05, -.1710D-05, -.2067D-05,
17738 # -.2496D-05, -.3010D-05, -.3621D-05, -.4344D-05, -.5189D-05,
17739 # -.6157D-05, -.7236D-05, -.8381D-05, -.9489D-05, -.1036D-04,
17740 # -.1061D-04, -.9553D-05, -.6026D-05, 0.1952D-05, 0.1753D-04,
17741 # 0.4560D-04, 0.9323D-04, 0.1697D-03, 0.2854D-03, 0.4491D-03,
17742 # 0.6608D-03, 0.9066D-03, 0.1154D-02, 0.1358D-02, 0.1477D-02,
17743 # 0.1489D-02, 0.1398D-02, 0.1228D-02, 0.1015D-02, 0.7949D-03,
17744 # 0.5953D-03, 0.4298D-03, 0.3017D-03, 0.2073D-03, 0.1401D-03,
17745 # 0.9366D-04, 0.6213D-04, 0.4095D-04, 0.2689D-04, 0.1763D-04,
17746 # 0.1148D-04, 0.7522D-05, 0.4865D-05, 0.3176D-05, 0.2071D-05,
17747 # 0.1367D-05, 0.9203D-06, 0.5863D-06, 0.3981D-06, 0.2880D-06,
17748 # 0.2103D-06, 0.1330D-06, 0.1016D-06, 0.1015D-06, 0.5597D-07,
17749 # 0.9162D-07, 0.7051D-07, 0.5611D-07, 0.4630D-07, 0.3963D-07,
17750 # 0.3507D-07/
17751
17752 data (calcpts(j,10), j = 1,neta) /-.3692D-06, -.4473D-06,
17753 # -.5418D-06, -.6564D-06, -.7951D-06, -.9630D-06, -.1166D-05,
17754 # -.1412D-05, -.1710D-05, -.2069D-05, -.2503D-05, -.3025D-05,
17755 # -.3653D-05, -.4405D-05, -.5300D-05, -.6359D-05, -.7596D-05,
17756 # -.9014D-05, -.1059D-04, -.1228D-04, -.1390D-04, -.1519D-04,
17757 # -.1557D-04, -.1406D-04, -.8939D-05, 0.2642D-05, 0.2530D-04,
17758 # 0.6612D-04, 0.1355D-03, 0.2468D-03, 0.4155D-03, 0.6540D-03,
17759 # 0.9626D-03, 0.1321D-02, 0.1681D-02, 0.1977D-02, 0.2151D-02,
17760 # 0.2168D-02, 0.2035D-02, 0.1787D-02, 0.1476D-02, 0.1157D-02,
17761 # 0.8661D-03, 0.6252D-03, 0.4389D-03, 0.3014D-03, 0.2036D-03,
17762 # 0.1361D-03, 0.9018D-04, 0.5939D-04, 0.3901D-04, 0.2549D-04,
17763 # 0.1665D-04, 0.1087D-04, 0.7076D-05, 0.4575D-05, 0.2974D-05,
17764 # 0.1947D-05, 0.1253D-05, 0.8136D-06, 0.5508D-06, 0.3657D-06,
17765 # 0.2582D-06, 0.1818D-06, 0.1055D-06, 0.7487D-07, 0.7522D-07,
17766 # 0.3003D-07, 0.6594D-07, 0.4496D-07, 0.3066D-07, 0.2093D-07,
17767 # 0.1430D-07/
17768
17769 data (calcpts(j,11), j = 1,neta) /-.5396D-06, -.6538D-06,
17770 # -.7919D-06, -.9593D-06, -.1162D-05, -.1408D-05, -.1705D-05,
17771 # -.2064D-05, -.2499D-05, -.3024D-05, -.3658D-05, -.4422D-05,
17772 # -.5340D-05, -.6440D-05, -.7748D-05, -.9296D-05, -.1111D-04,
17773 # -.1318D-04, -.1550D-04, -.1796D-04, -.2035D-04, -.2225D-04,
17774 # -.2285D-04, -.2070D-04, -.1334D-04, 0.3407D-05, 0.3622D-04,
17775 # 0.9542D-04, 0.1961D-03, 0.3577D-03, 0.6026D-03, 0.9490D-03,
17776 # 0.1397D-02, 0.1918D-02, 0.2441D-02, 0.2870D-02, 0.3121D-02,
17777 # 0.3145D-02, 0.2951D-02, 0.2590D-02, 0.2140D-02, 0.1676D-02,
17778 # 0.1255D-02, 0.9058D-03, 0.6357D-03, 0.4364D-03, 0.2948D-03,
17779 # 0.1969D-03, 0.1304D-03, 0.8575D-04, 0.5625D-04, 0.3676D-04,
17780 # 0.2393D-04, 0.1552D-04, 0.1008D-04, 0.6481D-05, 0.4160D-05,
17781 # 0.2653D-05, 0.1713D-05, 0.1101D-05, 0.6720D-06, 0.4159D-06,
17782 # 0.2361D-06, 0.1315D-06, 0.5727D-07, 0.4929D-07, 0.1966D-07,
17783 # -.4596D-07, -.2396D-07, -.5443D-07, -.8516D-08, -.2265D-07,
17784 # -.3228D-07/
17785
17786 data (calcpts(j,12), j = 1,neta) /-.7869D-06, -.9534D-06,
17787 # -.1155D-05, -.1399D-05, -.1695D-05, -.2053D-05, -.2486D-05,
17788 # -.3010D-05, -.3644D-05, -.4410D-05, -.5335D-05, -.6449D-05,
17789 # -.7788D-05, -.9392D-05, -.1130D-04, -.1356D-04, -.1620D-04,
17790 # -.1923D-04, -.2262D-04, -.2623D-04, -.2974D-04, -.3256D-04,
17791 # -.3352D-04, -.3053D-04, -.2001D-04, 0.4009D-05, 0.5124D-04,
17792 # 0.1366D-03, 0.2818D-03, 0.5152D-03, 0.8691D-03, 0.1370D-02,
17793 # 0.2017D-02, 0.2770D-02, 0.3525D-02, 0.4144D-02, 0.4503D-02,
17794 # 0.4535D-02, 0.4252D-02, 0.3731D-02, 0.3082D-02, 0.2414D-02,
17795 # 0.1807D-02, 0.1304D-02, 0.9149D-03, 0.6277D-03, 0.4238D-03,
17796 # 0.2828D-03, 0.1872D-03, 0.1229D-03, 0.8080D-04, 0.5295D-04,
17797 # 0.3401D-04, 0.2244D-04, 0.1462D-04, 0.9176D-05, 0.6076D-05,
17798 # 0.3683D-05, 0.2688D-05, 0.1315D-05, 0.1259D-05, 0.3109D-06,
17799 # 0.3326D-06, 0.5592D-06, 0.2594D-06, 0.5532D-07, -.8377D-07,
17800 # -.1786D-06, -.2431D-06, -.2871D-06, -.3171D-06, -.3375D-06,
17801 # 0.3153D-06/
17802
17803 data (calcpts(j,13), j = 1,neta) /-.1144D-05, -.1386D-05,
17804 # -.1679D-05, -.2034D-05, -.2464D-05, -.2985D-05, -.3615D-05,
17805 # -.4377D-05, -.5298D-05, -.6413D-05, -.7758D-05, -.9378D-05,
17806 # -.1133D-04, -.1366D-04, -.1644D-04, -.1973D-04, -.2357D-04,
17807 # -.2799D-04, -.3293D-04, -.3821D-04, -.4338D-04, -.4758D-04,
17808 # -.4914D-04, -.4507D-04, -.3027D-04, 0.3885D-05, 0.7130D-04,
17809 # 0.1933D-03, 0.4011D-03, 0.7355D-03, 0.1243D-02, 0.1961D-02,
17810 # 0.2891D-02, 0.3971D-02, 0.5053D-02, 0.5938D-02, 0.6447D-02,
17811 # 0.6486D-02, 0.6077D-02, 0.5330D-02, 0.4401D-02, 0.3446D-02,
17812 # 0.2579D-02, 0.1861D-02, 0.1304D-02, 0.8946D-03, 0.6032D-03,
17813 # 0.4024D-03, 0.2659D-03, 0.1747D-03, 0.1141D-03, 0.7479D-04,
17814 # 0.4834D-04, 0.3132D-04, 0.2016D-04, 0.1329D-04, 0.8727D-05,
17815 # 0.5761D-05, 0.3467D-05, 0.2542D-05, 0.1215D-05, 0.1189D-05,
17816 # 0.2640D-06, 0.2996D-06, 0.5363D-06, 0.2436D-06, 0.4415D-07,
17817 # -.9180D-07, -.1843D-06, -.2474D-06, -.2904D-06, -.3197D-06,
17818 # 0.3270D-06/
17819
17820 data (calcpts(j,14), j = 1,neta) /-.1657D-05, -.2007D-05,
17821 # -.2431D-05, -.2945D-05, -.3568D-05, -.4322D-05, -.5234D-05,
17822 # -.6338D-05, -.7672D-05, -.9286D-05, -.1123D-04, -.1358D-04,
17823 # -.1640D-04, -.1978D-04, -.2381D-04, -.2858D-04, -.3416D-04,
17824 # -.4059D-04, -.4778D-04, -.5550D-04, -.6310D-04, -.6938D-04,
17825 # -.7199D-04, -.6670D-04, -.4629D-04, 0.1539D-05, 0.9639D-04,
17826 # 0.2687D-03, 0.5627D-03, 0.1037D-02, 0.1757D-02, 0.2777D-02,
17827 # 0.4099D-02, 0.5632D-02, 0.7167D-02, 0.8417D-02, 0.9127D-02,
17828 # 0.9171D-02, 0.8582D-02, 0.7520D-02, 0.6206D-02, 0.4858D-02,
17829 # 0.3635D-02, 0.2621D-02, 0.1836D-02, 0.1258D-02, 0.8476D-03,
17830 # 0.5644D-03, 0.3724D-03, 0.2439D-03, 0.1595D-03, 0.1036D-03,
17831 # 0.6734D-04, 0.4349D-04, 0.2802D-04, 0.1813D-04, 0.1171D-04,
17832 # 0.7432D-05, 0.4671D-05, 0.2520D-05, 0.1690D-05, 0.1095D-05,
17833 # 0.4487D-06, 0.2198D-06, 0.2762D-06, -.1392D-06, -.4223D-06,
17834 # 0.5138D-07, -.7992D-07, -.1695D-06, -.2305D-06, -.2721D-06,
17835 # -.3004D-06/
17836
17837 data (calcpts(j,15), j = 1,neta) /-.2383D-05, -.2887D-05,
17838 # -.3497D-05, -.4237D-05, -.5132D-05, -.6216D-05, -.7528D-05,
17839 # -.9117D-05, -.1104D-04, -.1336D-04, -.1616D-04, -.1954D-04,
17840 # -.2360D-04, -.2847D-04, -.3427D-04, -.4115D-04, -.4920D-04,
17841 # -.5849D-04, -.6892D-04, -.8016D-04, -.9134D-04, -.1008D-03,
17842 # -.1052D-03, -.9882D-04, -.7144D-04, -.5986D-05, 0.1249D-03,
17843 # 0.3641D-03, 0.7735D-03, 0.1435D-02, 0.2441D-02, 0.3868D-02,
17844 # 0.5719D-02, 0.7864D-02, 0.1001D-01, 0.1174D-01, 0.1271D-01,
17845 # 0.1274D-01, 0.1190D-01, 0.1042D-01, 0.8590D-02, 0.6721D-02,
17846 # 0.5026D-02, 0.3621D-02, 0.2535D-02, 0.1734D-02, 0.1166D-02,
17847 # 0.7749D-03, 0.5102D-03, 0.3340D-03, 0.2176D-03, 0.1414D-03,
17848 # 0.9123D-04, 0.5901D-04, 0.3835D-04, 0.2483D-04, 0.1587D-04,
17849 # 0.1004D-04, 0.6855D-05, 0.4387D-05, 0.3100D-05, 0.1738D-05,
17850 # 0.1237D-05, 0.1319D-05, 0.4663D-06, 0.5524D-06, 0.8235D-06,
17851 # 0.5539D-06, 0.3704D-06, 0.2452D-06, 0.1599D-06, 0.7685D-06,
17852 # 0.7290D-06/
17853
17854 data (calcpts(j,16), j = 1,neta) /-.3399D-05, -.4118D-05,
17855 # -.4987D-05, -.6042D-05, -.7320D-05, -.8866D-05, -.1074D-04,
17856 # -.1300D-04, -.1574D-04, -.1905D-04, -.2305D-04, -.2787D-04,
17857 # -.3367D-04, -.4062D-04, -.4892D-04, -.5875D-04, -.7030D-04,
17858 # -.8363D-04, -.9867D-04, -.1150D-03, -.1314D-03, -.1457D-03,
17859 # -.1534D-03, -.1467D-03, -.1116D-03, -.2496D-04, 0.1510D-03,
17860 # 0.4744D-03, 0.1031D-02, 0.1933D-02, 0.3310D-02, 0.5266D-02,
17861 # 0.7804D-02, 0.1074D-01, 0.1367D-01, 0.1602D-01, 0.1729D-01,
17862 # 0.1729D-01, 0.1611D-01, 0.1407D-01, 0.1159D-01, 0.9058D-02,
17863 # 0.6768D-02, 0.4871D-02, 0.3403D-02, 0.2322D-02, 0.1558D-02,
17864 # 0.1031D-02, 0.6766D-03, 0.4404D-03, 0.2855D-03, 0.1841D-03,
17865 # 0.1183D-03, 0.7551D-04, 0.4836D-04, 0.3095D-04, 0.1992D-04,
17866 # 0.1215D-04, 0.7833D-05, 0.5229D-05, 0.3152D-05, 0.2130D-05,
17867 # 0.1620D-05, 0.5744D-06, 0.7410D-06, 0.6133D-06, 0.7196D-07,
17868 # 0.3697D-06, 0.1186D-06, -.5265D-07, 0.4973D-06, 0.4179D-06,
17869 # 0.3637D-06/
17870
17871 data (calcpts(j,17), j = 1,neta) /-.4787D-05, -.5799D-05,
17872 # -.7024D-05, -.8510D-05, -.1031D-04, -.1249D-04, -.1512D-04,
17873 # -.1831D-04, -.2217D-04, -.2684D-04, -.3247D-04, -.3927D-04,
17874 # -.4744D-04, -.5726D-04, -.6897D-04, -.8288D-04, -.9925D-04,
17875 # -.1182D-03, -.1397D-03, -.1632D-03, -.1872D-03, -.2089D-03,
17876 # -.2225D-03, -.2175D-03, -.1756D-03, -.6628D-04, 0.1608D-03,
17877 # 0.5829D-03, 0.1315D-02, 0.2507D-02, 0.4333D-02, 0.6934D-02,
17878 # 0.1031D-01, 0.1423D-01, 0.1811D-01, 0.2118D-01, 0.2278D-01,
17879 # 0.2267D-01, 0.2103D-01, 0.1831D-01, 0.1505D-01, 0.1175D-01,
17880 # 0.8769D-02, 0.6299D-02, 0.4389D-02, 0.2984D-02, 0.1991D-02,
17881 # 0.1311D-02, 0.8538D-03, 0.5514D-03, 0.3545D-03, 0.2259D-03,
17882 # 0.1436D-03, 0.9038D-04, 0.5691D-04, 0.3544D-04, 0.2219D-04,
17883 # 0.1349D-04, 0.8014D-05, 0.4806D-05, 0.2954D-05, 0.1390D-05,
17884 # 0.7233D-06, 0.4491D-06, -.4337D-06, -.1554D-06, -.2076D-06,
17885 # -.6975D-06, -.3643D-06, -.5918D-06, -.8006D-07, -.1856D-06,
17886 # -.2575D-06/
17887
17888 data (calcpts(j,18), j = 1,neta) /-.6622D-05, -.8023D-05,
17889 # -.9718D-05, -.1177D-04, -.1426D-04, -.1728D-04, -.2092D-04,
17890 # -.2534D-04, -.3068D-04, -.3714D-04, -.4494D-04, -.5435D-04,
17891 # -.6568D-04, -.7930D-04, -.9556D-04, -.1149D-03, -.1377D-03,
17892 # -.1643D-03, -.1945D-03, -.2280D-03, -.2629D-03, -.2957D-03,
17893 # -.3192D-03, -.3204D-03, -.2763D-03, -.1477D-03, 0.1293D-03,
17894 # 0.6528D-03, 0.1571D-02, 0.3078D-02, 0.5398D-02, 0.8718D-02,
17895 # 0.1304D-01, 0.1805D-01, 0.2298D-01, 0.2680D-01, 0.2868D-01,
17896 # 0.2835D-01, 0.2612D-01, 0.2263D-01, 0.1854D-01, 0.1444D-01,
17897 # 0.1075D-01, 0.7700D-02, 0.5341D-02, 0.3610D-02, 0.2390D-02,
17898 # 0.1559D-02, 0.1004D-02, 0.6399D-03, 0.4053D-03, 0.2541D-03,
17899 # 0.1585D-03, 0.9786D-04, 0.6010D-04, 0.3658D-04, 0.2153D-04,
17900 # 0.1259D-04, 0.7535D-05, 0.4100D-05, 0.2275D-05, 0.6996D-06,
17901 # 0.4511D-06, 0.2193D-06, -.4223D-06, -.4336D-06, -.1650D-07,
17902 # 0.2570D-07, -.3993D-06, -.2249D-07, -.2200D-06, -.3545D-06,
17903 # -.4461D-06/
17904
17905 data (calcpts(j,19), j = 1,neta) /-.8944D-05, -.1084D-04,
17906 # -.1313D-04, -.1590D-04, -.1926D-04, -.2333D-04, -.2826D-04,
17907 # -.3423D-04, -.4144D-04, -.5018D-04, -.6073D-04, -.7346D-04,
17908 # -.8880D-04, -.1072D-03, -.1293D-03, -.1556D-03, -.1868D-03,
17909 # -.2231D-03, -.2649D-03, -.3117D-03, -.3616D-03, -.4106D-03,
17910 # -.4504D-03, -.4657D-03, -.4291D-03, -.2940D-03, 0.1615D-04,
17911 # 0.6224D-03, 0.1702D-02, 0.3494D-02, 0.6278D-02, 0.1028D-01,
17912 # 0.1552D-01, 0.2159D-01, 0.2751D-01, 0.3198D-01, 0.3397D-01,
17913 # 0.3323D-01, 0.3029D-01, 0.2600D-01, 0.2118D-01, 0.1643D-01,
17914 # 0.1219D-01, 0.8681D-02, 0.5976D-02, 0.3995D-02, 0.2606D-02,
17915 # 0.1672D-02, 0.1050D-02, 0.6528D-03, 0.4005D-03, 0.2438D-03,
17916 # 0.1417D-03, 0.8085D-04, 0.5090D-04, 0.2916D-04, 0.1133D-04,
17917 # 0.9738D-05, -.7403D-06, 0.3042D-05, -.1345D-05, -.2214D-05,
17918 # -.6755D-06, -.4174D-05, 0.1085D-06, -.1515D-05, -.2621D-05,
17919 # -.3374D-05, 0.2779D-05, 0.2429D-05, 0.2191D-05, 0.2029D-05,
17920 # 0.1918D-05/
17921
17922 data (calcpts(j,20), j = 1,neta) /-.1170D-04, -.1418D-04,
17923 # -.1718D-04, -.2081D-04, -.2521D-04, -.3054D-04, -.3699D-04,
17924 # -.4480D-04, -.5424D-04, -.6568D-04, -.7950D-04, -.9619D-04,
17925 # -.1163D-03, -.1405D-03, -.1696D-03, -.2043D-03, -.2455D-03,
17926 # -.2939D-03, -.3500D-03, -.4137D-03, -.4831D-03, -.5545D-03,
17927 # -.6190D-03, -.6600D-03, -.6477D-03, -.5303D-03, -.2221D-03,
17928 # 0.4126D-03, 0.1576D-02, 0.3543D-02, 0.6635D-02, 0.1113D-01,
17929 # 0.1703D-01, 0.2388D-01, 0.3049D-01, 0.3532D-01, 0.3712D-01,
17930 # 0.3572D-01, 0.3197D-01, 0.2701D-01, 0.2174D-01, 0.1674D-01,
17931 # 0.1232D-01, 0.8686D-02, 0.5892D-02, 0.3851D-02, 0.2443D-02,
17932 # 0.1508D-02, 0.9013D-03, 0.5197D-03, 0.2912D-03, 0.1579D-03,
17933 # 0.7953D-04, 0.3170D-04, 0.7900D-05, -.3297D-05, -.7561D-05,
17934 # -.6888D-05, -.7032D-05, -.1196D-04, -.4404D-05, -.6222D-05,
17935 # -.5329D-05, -.2602D-05, -.5286D-05, -.4467D-06, -.1692D-05,
17936 # -.2541D-05, -.3118D-05, -.3512D-05, -.3781D-05, -.3963D-05,
17937 # -.4088D-05/
17938
17939 data (calcpts(j,21), j = 1,neta) /-.1470D-04, -.1781D-04,
17940 # -.2158D-04, -.2614D-04, -.3167D-04, -.3836D-04, -.4647D-04,
17941 # -.5628D-04, -.6815D-04, -.8253D-04, -.9992D-04, -.1209D-03,
17942 # -.1463D-03, -.1768D-03, -.2135D-03, -.2575D-03, -.3099D-03,
17943 # -.3718D-03, -.4443D-03, -.5276D-03, -.6206D-03, -.7201D-03,
17944 # -.8181D-03, -.8986D-03, -.9318D-03, -.8660D-03, -.6136D-03,
17945 # -.3460D-04, 0.1080D-02, 0.3021D-02, 0.6132D-02, 0.1071D-01,
17946 # 0.1680D-01, 0.2386D-01, 0.3062D-01, 0.3531D-01, 0.3655D-01,
17947 # 0.3428D-01, 0.2968D-01, 0.2428D-01, 0.1905D-01, 0.1439D-01,
17948 # 0.1041D-01, 0.7176D-02, 0.4703D-02, 0.2916D-02, 0.1706D-02,
17949 # 0.9332D-03, 0.4593D-03, 0.1896D-03, 0.4181D-04, -.3145D-04,
17950 # -.5890D-04, -.6627D-04, -.6098D-04, -.5508D-04, -.4132D-04,
17951 # -.3532D-04, -.2972D-04, -.2194D-04, -.1481D-04, -.1025D-04,
17952 # -.9558D-05, -.6966D-05, -.3075D-05, -.4965D-05, 0.4133D-06,
17953 # -.4645D-06, -.1062D-05, -.1469D-05, -.1747D-05, -.1936D-05,
17954 # -.2065D-05/
17955
17956 data (calcpts(j,22), j = 1,neta) /-.1759D-04, -.2131D-04,
17957 # -.2581D-04, -.3127D-04, -.3788D-04, -.4589D-04, -.5559D-04,
17958 # -.6734D-04, -.8155D-04, -.9876D-04, -.1196D-03, -.1448D-03,
17959 # -.1752D-03, -.2119D-03, -.2560D-03, -.3091D-03, -.3725D-03,
17960 # -.4480D-03, -.5370D-03, -.6406D-03, -.7588D-03, -.8898D-03,
17961 # -.1027D-02, -.1158D-02, -.1257D-02, -.1277D-02, -.1139D-02,
17962 # -.7134D-03, 0.1963D-03, 0.1866D-02, 0.4629D-02, 0.8781D-02,
17963 # 0.1438D-01, 0.2091D-01, 0.2711D-01, 0.3112D-01, 0.3152D-01,
17964 # 0.2827D-01, 0.2292D-01, 0.1735D-01, 0.1266D-01, 0.9007D-02,
17965 # 0.6154D-02, 0.3926D-02, 0.2252D-02, 0.1077D-02, 0.3285D-03,
17966 # -.1048D-03, -.3108D-03, -.3821D-03, -.3808D-03, -.3361D-03,
17967 # -.2800D-03, -.2292D-03, -.1760D-03, -.1380D-03, -.1006D-03,
17968 # -.7878D-04, -.5814D-04, -.4252D-04, -.2794D-04, -.2284D-04,
17969 # -.1511D-04, -.1227D-04, -.8204D-05, -.3311D-05, -.4519D-05,
17970 # -.5343D-05, 0.7633D-06, 0.3809D-06, 0.1204D-06, -.5698D-07,
17971 # -.1778D-06/
17972
17973 data (calcpts(j,23), j = 1,neta) /-.1989D-04, -.2409D-04,
17974 # -.2918D-04, -.3536D-04, -.4284D-04, -.5190D-04, -.6287D-04,
17975 # -.7616D-04, -.9223D-04, -.1117D-03, -.1353D-03, -.1638D-03,
17976 # -.1983D-03, -.2399D-03, -.2901D-03, -.3506D-03, -.4231D-03,
17977 # -.5098D-03, -.6129D-03, -.7342D-03, -.8750D-03, -.1036D-02,
17978 # -.1212D-02, -.1397D-02, -.1569D-02, -.1695D-02, -.1710D-02,
17979 # -.1509D-02, -.9289D-03, 0.2640D-03, 0.2358D-02, 0.5620D-02,
17980 # 0.1011D-01, 0.1541D-01, 0.2038D-01, 0.2331D-01, 0.2276D-01,
17981 # 0.1873D-01, 0.1286D-01, 0.7356D-02, 0.3497D-02, 0.1266D-02,
17982 # 0.3697D-04, -.7100D-03, -.1187D-02, -.1463D-02, -.1552D-02,
17983 # -.1489D-02, -.1333D-02, -.1135D-02, -.9232D-03, -.7340D-03,
17984 # -.5716D-03, -.4336D-03, -.3286D-03, -.2446D-03, -.1785D-03,
17985 # -.1308D-03, -.9282D-04, -.6781D-04, -.5136D-04, -.3832D-04,
17986 # -.2306D-04, -.1963D-04, -.1516D-04, -.9997D-05, -.4353D-05,
17987 # -.5049D-05, -.5523D-05, -.5847D-05, 0.5996D-06, 0.4496D-06,
17988 # 0.3474D-06/
17989
17990 data (calcpts(j,24), j = 1,neta) /-.2117D-04, -.2564D-04,
17991 # -.3106D-04, -.3763D-04, -.4560D-04, -.5524D-04, -.6692D-04,
17992 # -.8107D-04, -.9819D-04, -.1189D-03, -.1441D-03, -.1745D-03,
17993 # -.2112D-03, -.2557D-03, -.3093D-03, -.3741D-03, -.4520D-03,
17994 # -.5456D-03, -.6574D-03, -.7902D-03, -.9465D-03, -.1128D-02,
17995 # -.1335D-02, -.1564D-02, -.1803D-02, -.2029D-02, -.2199D-02,
17996 # -.2238D-02, -.2028D-02, -.1394D-02, -.1156D-03, 0.2017D-02,
17997 # 0.5066D-02, 0.8726D-02, 0.1210D-01, 0.1376D-01, 0.1244D-01,
17998 # 0.8023D-02, 0.2015D-02, -.3294D-02, -.6393D-02, -.7245D-02,
17999 # -.6777D-02, -.5883D-02, -.5009D-02, -.4254D-02, -.3594D-02,
18000 # -.2993D-02, -.2443D-02, -.1947D-02, -.1520D-02, -.1169D-02,
18001 # -.8818D-03, -.6554D-03, -.4863D-03, -.3526D-03, -.2554D-03,
18002 # -.1867D-03, -.1368D-03, -.9494D-04, -.6941D-04, -.4806D-04,
18003 # -.3168D-04, -.2748D-04, -.1583D-04, -.1031D-04, -.1109D-04,
18004 # -.4956D-05, -.5318D-05, -.5565D-05, 0.9334D-06, 0.8188D-06,
18005 # 0.7408D-06/
18006
18007 data (calcpts(j,25), j = 1,neta) /-.2120D-04, -.2568D-04,
18008 # -.3111D-04, -.3769D-04, -.4567D-04, -.5532D-04, -.6702D-04,
18009 # -.8120D-04, -.9835D-04, -.1191D-03, -.1443D-03, -.1748D-03,
18010 # -.2117D-03, -.2563D-03, -.3102D-03, -.3754D-03, -.4540D-03,
18011 # -.5486D-03, -.6623D-03, -.7982D-03, -.9596D-03, -.1150D-02,
18012 # -.1372D-02, -.1626D-02, -.1907D-02, -.2205D-02, -.2495D-02,
18013 # -.2732D-02, -.2841D-02, -.2708D-02, -.2186D-02, -.1130D-02,
18014 # 0.5125D-03, 0.2538D-02, 0.4317D-02, 0.4811D-02, 0.2999D-02,
18015 # -.1337D-02, -.7059D-02, -.1210D-01, -.1476D-01, -.1475D-01,
18016 # -.1299D-01, -.1067D-01, -.8534D-02, -.6815D-02, -.5453D-02,
18017 # -.4354D-02, -.3441D-02, -.2691D-02, -.2071D-02, -.1573D-02,
18018 # -.1175D-02, -.8679D-03, -.6419D-03, -.4655D-03, -.3374D-03,
18019 # -.2412D-03, -.1729D-03, -.1209D-03, -.8633D-04, -.6337D-04,
18020 # -.4589D-04, -.3428D-04, -.2211D-04, -.1625D-04, -.1012D-04,
18021 # -.1049D-04, -.4079D-05, -.4251D-05, -.4369D-05, -.4448D-05,
18022 # -.4503D-05/
18023
18024 data (calcpts(j,26), j = 1,neta) /-.2004D-04, -.2428D-04,
18025 # -.2941D-04, -.3563D-04, -.4317D-04, -.5230D-04, -.6336D-04,
18026 # -.7677D-04, -.9298D-04, -.1126D-03, -.1365D-03, -.1653D-03,
18027 # -.2002D-03, -.2425D-03, -.2936D-03, -.3554D-03, -.4301D-03,
18028 # -.5202D-03, -.6287D-03, -.7591D-03, -.9150D-03, -.1101D-02,
18029 # -.1321D-02, -.1577D-02, -.1872D-02, -.2202D-02, -.2558D-02,
18030 # -.2917D-02, -.3239D-02, -.3459D-02, -.3493D-02, -.3253D-02,
18031 # -.2705D-02, -.1976D-02, -.1463D-02, -.1853D-02, -.3876D-02,
18032 # -.7789D-02, -.1288D-01, -.1756D-01, -.2015D-01, -.1998D-01,
18033 # -.1766D-01, -.1444D-01, -.1135D-01, -.8830D-02, -.6891D-02,
18034 # -.5395D-02, -.4216D-02, -.3267D-02, -.2506D-02, -.1896D-02,
18035 # -.1418D-02, -.1049D-02, -.7705D-03, -.5611D-03, -.4041D-03,
18036 # -.2886D-03, -.2095D-03, -.1480D-03, -.1048D-03, -.7391D-04,
18037 # -.5554D-04, -.3665D-04, -.2408D-04, -.1793D-04, -.1162D-04,
18038 # -.1186D-04, -.5353D-05, -.5465D-05, -.5541D-05, 0.1074D-05,
18039 # 0.1039D-05/
18040
18041 data (calcpts(j,27), j = 1,neta) /-.1799D-04, -.2179D-04,
18042 # -.2640D-04, -.3199D-04, -.3875D-04, -.4695D-04, -.5688D-04,
18043 # -.6891D-04, -.8347D-04, -.1011D-03, -.1225D-03, -.1484D-03,
18044 # -.1798D-03, -.2178D-03, -.2637D-03, -.3193D-03, -.3866D-03,
18045 # -.4678D-03, -.5659D-03, -.6842D-03, -.8261D-03, -.9964D-03,
18046 # -.1200D-02, -.1440D-02, -.1722D-02, -.2048D-02, -.2416D-02,
18047 # -.2821D-02, -.3243D-02, -.3654D-02, -.4010D-02, -.4266D-02,
18048 # -.4407D-02, -.4507D-02, -.4803D-02, -.5710D-02, -.7709D-02,
18049 # -.1103D-01, -.1532D-01, -.1951D-01, -.2220D-01, -.2245D-01,
18050 # -.2037D-01, -.1695D-01, -.1334D-01, -.1025D-01, -.7864D-02,
18051 # -.6080D-02, -.4713D-02, -.3649D-02, -.2801D-02, -.2129D-02,
18052 # -.1595D-02, -.1187D-02, -.8684D-03, -.6365D-03, -.4599D-03,
18053 # -.3334D-03, -.2381D-03, -.1680D-03, -.1235D-03, -.8495D-04,
18054 # -.5929D-04, -.4665D-04, -.3378D-04, -.2077D-04, -.1432D-04,
18055 # -.1447D-04, -.7903D-05, -.7972D-05, -.8019D-05, -.1384D-05,
18056 # -.1406D-05/
18057
18058 data (calcpts(j,28), j = 1,neta) /-.1544D-04, -.1871D-04,
18059 # -.2266D-04, -.2745D-04, -.3326D-04, -.4030D-04, -.4882D-04,
18060 # -.5915D-04, -.7165D-04, -.8681D-04, -.1052D-03, -.1274D-03,
18061 # -.1543D-03, -.1870D-03, -.2264D-03, -.2742D-03, -.3321D-03,
18062 # -.4021D-03, -.4866D-03, -.5888D-03, -.7117D-03, -.8598D-03,
18063 # -.1037D-02, -.1249D-02, -.1501D-02, -.1797D-02, -.2141D-02,
18064 # -.2533D-02, -.2970D-02, -.3441D-02, -.3929D-02, -.4414D-02,
18065 # -.4893D-02, -.5410D-02, -.6097D-02, -.7195D-02, -.8996D-02,
18066 # -.1169D-01, -.1512D-01, -.1871D-01, -.2144D-01, -.2235D-01,
18067 # -.2108D-01, -.1813D-01, -.1453D-01, -.1116D-01, -.8466D-02,
18068 # -.6453D-02, -.4965D-02, -.3831D-02, -.2950D-02, -.2251D-02,
18069 # -.1699D-02, -.1272D-02, -.9380D-03, -.6869D-03, -.4997D-03,
18070 # -.3571D-03, -.2600D-03, -.1819D-03, -.1299D-03, -.9075D-04,
18071 # -.6469D-04, -.4510D-04, -.3205D-04, -.2558D-04, -.1904D-04,
18072 # -.1246D-04, -.5857D-05, -.5898D-05, -.5926D-05, -.5946D-05,
18073 # 0.7080D-06/
18074
18075 data (calcpts(j,29), j = 1,neta) /-.1277D-04, -.1547D-04,
18076 # -.1874D-04, -.2270D-04, -.2750D-04, -.3332D-04, -.4037D-04,
18077 # -.4891D-04, -.5924D-04, -.7178D-04, -.8697D-04, -.1054D-03,
18078 # -.1276D-03, -.1546D-03, -.1873D-03, -.2268D-03, -.2748D-03,
18079 # -.3327D-03, -.4028D-03, -.4876D-03, -.5898D-03, -.7133D-03,
18080 # -.8618D-03, -.1040D-02, -.1253D-02, -.1506D-02, -.1804D-02,
18081 # -.2152D-02, -.2552D-02, -.3002D-02, -.3499D-02, -.4038D-02,
18082 # -.4618D-02, -.5268D-02, -.6058D-02, -.7120D-02, -.8624D-02,
18083 # -.1070D-01, -.1334D-01, -.1624D-01, -.1880D-01, -.2025D-01,
18084 # -.1999D-01, -.1802D-01, -.1495D-01, -.1167D-01, -.8823D-02,
18085 # -.6636D-02, -.5040D-02, -.3866D-02, -.2982D-02, -.2286D-02,
18086 # -.1743D-02, -.1308D-02, -.9757D-03, -.7144D-03, -.5247D-03,
18087 # -.3806D-03, -.2689D-03, -.1968D-03, -.1376D-03, -.9809D-04,
18088 # -.7179D-04, -.5204D-04, -.3221D-04, -.2566D-04, -.1907D-04,
18089 # -.1246D-04, -.5827D-05, -.5852D-05, -.5869D-05, 0.7861D-06,
18090 # 0.7782D-06/
18091
18092 data (calcpts(j,30), j = 1,neta) /-.1024D-04, -.1241D-04,
18093 # -.1503D-04, -.1821D-04, -.2206D-04, -.2673D-04, -.3238D-04,
18094 # -.3923D-04, -.4753D-04, -.5758D-04, -.6977D-04, -.8452D-04,
18095 # -.1024D-03, -.1240D-03, -.1502D-03, -.1820D-03, -.2205D-03,
18096 # -.2670D-03, -.3233D-03, -.3915D-03, -.4738D-03, -.5733D-03,
18097 # -.6933D-03, -.8376D-03, -.1011D-02, -.1218D-02, -.1464D-02,
18098 # -.1754D-02, -.2094D-02, -.2485D-02, -.2929D-02, -.3427D-02,
18099 # -.3981D-02, -.4606D-02, -.5340D-02, -.6249D-02, -.7431D-02,
18100 # -.8975D-02, -.1091D-01, -.1312D-01, -.1531D-01, -.1698D-01,
18101 # -.1754D-01, -.1668D-01, -.1456D-01, -.1177D-01, -.9012D-02,
18102 # -.6734D-02, -.5036D-02, -.3817D-02, -.2926D-02, -.2254D-02,
18103 # -.1725D-02, -.1312D-02, -.9835D-03, -.7334D-03, -.5357D-03,
18104 # -.3905D-03, -.2849D-03, -.2056D-03, -.1461D-03, -.9979D-04,
18105 # -.7335D-04, -.5350D-04, -.3361D-04, -.2701D-04, -.2039D-04,
18106 # -.1376D-04, -.7115D-05, -.7130D-05, -.7141D-05, -.4813D-06,
18107 # -.4861D-06/
18108
18109 data (calcpts(j,31), j = 1,neta) /-.8016D-05, -.9712D-05,
18110 # -.1176D-04, -.1425D-04, -.1727D-04, -.2092D-04, -.2535D-04,
18111 # -.3071D-04, -.3720D-04, -.4507D-04, -.5461D-04, -.6616D-04,
18112 # -.8015D-04, -.9711D-04, -.1176D-03, -.1425D-03, -.1726D-03,
18113 # -.2091D-03, -.2532D-03, -.3066D-03, -.3712D-03, -.4493D-03,
18114 # -.5436D-03, -.6573D-03, -.7940D-03, -.9580D-03, -.1154D-02,
18115 # -.1386D-02, -.1661D-02, -.1980D-02, -.2349D-02, -.2769D-02,
18116 # -.3242D-02, -.3776D-02, -.4389D-02, -.5113D-02, -.6000D-02,
18117 # -.7105D-02, -.8465D-02, -.1006D-01, -.1178D-01, -.1334D-01,
18118 # -.1435D-01, -.1440D-01, -.1333D-01, -.1135D-01, -.8994D-02,
18119 # -.6786D-02, -.5024D-02, -.3742D-02, -.2832D-02, -.2172D-02,
18120 # -.1671D-02, -.1280D-02, -.9694D-03, -.7248D-03, -.5396D-03,
18121 # -.3939D-03, -.2879D-03, -.2083D-03, -.1486D-03, -.1088D-03,
18122 # -.7564D-04, -.5574D-04, -.3580D-04, -.2918D-04, -.1588D-04,
18123 # -.1590D-04, -.9249D-05, -.9259D-05, -.2599D-05, -.2604D-05,
18124 # -.2607D-05/
18125
18126 data (calcpts(j,32), j = 1,neta) /-.6153D-05, -.7455D-05,
18127 # -.9030D-05, -.1094D-04, -.1326D-04, -.1606D-04, -.1946D-04,
18128 # -.2357D-04, -.2856D-04, -.3460D-04, -.4192D-04, -.5078D-04,
18129 # -.6152D-04, -.7454D-04, -.9028D-04, -.1094D-03, -.1325D-03,
18130 # -.1605D-03, -.1944D-03, -.2355D-03, -.2851D-03, -.3451D-03,
18131 # -.4177D-03, -.5052D-03, -.6106D-03, -.7374D-03, -.8890D-03,
18132 # -.1070D-02, -.1284D-02, -.1536D-02, -.1828D-02, -.2163D-02,
18133 # -.2543D-02, -.2970D-02, -.3452D-02, -.4003D-02, -.4647D-02,
18134 # -.5416D-02, -.6342D-02, -.7441D-02, -.8684D-02, -.9956D-02,
18135 # -.1104D-01, -.1161D-01, -.1141D-01, -.1034D-01, -.8643D-02,
18136 # -.6739D-02, -.5023D-02, -.3691D-02, -.2739D-02, -.2071D-02,
18137 # -.1588D-02, -.1222D-02, -.9344D-03, -.7078D-03, -.5294D-03,
18138 # -.3914D-03, -.2865D-03, -.2075D-03, -.1497D-03, -.1065D-03,
18139 # -.7590D-04, -.5396D-04, -.3800D-04, -.2670D-04, -.1872D-04,
18140 # -.1273D-04, -.8742D-05, -.6082D-05, -.4086D-05, -.2756D-05,
18141 # -.1425D-05/
18142
18143 data (calcpts(j,33), j = 1,neta) /-.4652D-05, -.5636D-05,
18144 # -.6827D-05, -.8271D-05, -.1002D-04, -.1214D-04, -.1471D-04,
18145 # -.1782D-04, -.2159D-04, -.2616D-04, -.3169D-04, -.3839D-04,
18146 # -.4651D-04, -.5635D-04, -.6826D-04, -.8269D-04, -.1002D-03,
18147 # -.1214D-03, -.1470D-03, -.1780D-03, -.2156D-03, -.2610D-03,
18148 # -.3160D-03, -.3822D-03, -.4622D-03, -.5584D-03, -.6736D-03,
18149 # -.8114D-03, -.9751D-03, -.1168D-02, -.1392D-02, -.1651D-02,
18150 # -.1944D-02, -.2273D-02, -.2639D-02, -.3046D-02, -.3505D-02,
18151 # -.4031D-02, -.4646D-02, -.5373D-02, -.6219D-02, -.7152D-02,
18152 # -.8076D-02, -.8811D-02, -.9122D-02, -.8814D-02, -.7864D-02,
18153 # -.6474D-02, -.4981D-02, -.3676D-02, -.2685D-02, -.1986D-02,
18154 # -.1501D-02, -.1151D-02, -.8859D-03, -.6775D-03, -.5128D-03,
18155 # -.3839D-03, -.2835D-03, -.2077D-03, -.1505D-03, -.1086D-03,
18156 # -.7804D-04, -.5541D-04, -.3944D-04, -.2813D-04, -.2014D-04,
18157 # -.1415D-04, -.1016D-04, -.7497D-05, -.5500D-05, -.4169D-05,
18158 # -.2837D-05/
18159
18160 data (calcpts(j,34), j = 1,neta) /-.3472D-05, -.4207D-05,
18161 # -.5096D-05, -.6174D-05, -.7481D-05, -.9063D-05, -.1098D-04,
18162 # -.1330D-04, -.1611D-04, -.1952D-04, -.2366D-04, -.2866D-04,
18163 # -.3472D-04, -.4207D-04, -.5095D-04, -.6173D-04, -.7479D-04,
18164 # -.9059D-04, -.1097D-03, -.1329D-03, -.1609D-03, -.1949D-03,
18165 # -.2359D-03, -.2855D-03, -.3452D-03, -.4172D-03, -.5035D-03,
18166 # -.6068D-03, -.7296D-03, -.8745D-03, -.1044D-02, -.1239D-02,
18167 # -.1460D-02, -.1707D-02, -.1978D-02, -.2274D-02, -.2596D-02,
18168 # -.2953D-02, -.3356D-02, -.3824D-02, -.4374D-02, -.5007D-02,
18169 # -.5697D-02, -.6361D-02, -.6858D-02, -.7012D-02, -.6688D-02,
18170 # -.5890D-02, -.4790D-02, -.3645D-02, -.2667D-02, -.1936D-02,
18171 # -.1429D-02, -.1079D-02, -.8275D-03, -.6368D-03, -.4866D-03,
18172 # -.3682D-03, -.2751D-03, -.2032D-03, -.1480D-03, -.1074D-03,
18173 # -.7742D-04, -.5545D-04, -.3947D-04, -.2815D-04, -.1949D-04,
18174 # -.1416D-04, -.1017D-04, -.6839D-05, -.4841D-05, -.3509D-05,
18175 # -.2843D-05/
18176
18177 data (calcpts(j,35), j = 1,neta) /-.2566D-05, -.3109D-05,
18178 # -.3766D-05, -.4563D-05, -.5529D-05, -.6698D-05, -.8115D-05,
18179 # -.9832D-05, -.1191D-04, -.1443D-04, -.1748D-04, -.2118D-04,
18180 # -.2566D-04, -.3109D-04, -.3766D-04, -.4562D-04, -.5527D-04,
18181 # -.6696D-04, -.8110D-04, -.9824D-04, -.1190D-03, -.1441D-03,
18182 # -.1744D-03, -.2110D-03, -.2552D-03, -.3085D-03, -.3724D-03,
18183 # -.4489D-03, -.5400D-03, -.6474D-03, -.7730D-03, -.9178D-03,
18184 # -.1082D-02, -.1264D-02, -.1463D-02, -.1676D-02, -.1901D-02,
18185 # -.2142D-02, -.2405D-02, -.2702D-02, -.3048D-02, -.3455D-02,
18186 # -.3924D-02, -.4429D-02, -.4904D-02, -.5239D-02, -.5304D-02,
18187 # -.5007D-02, -.4363D-02, -.3511D-02, -.2647D-02, -.1922D-02,
18188 # -.1388D-02, -.1022D-02, -.7714D-03, -.5912D-03, -.4549D-03,
18189 # -.3477D-03, -.2625D-03, -.1960D-03, -.1440D-03, -.1054D-03,
18190 # -.7611D-04, -.5480D-04, -.3881D-04, -.2749D-04, -.1949D-04,
18191 # -.1350D-04, -.9501D-05, -.6836D-05, -.4838D-05, -.3505D-05,
18192 # -.2173D-05/
18193
18194 data (calcpts(j,36), j = 1,neta) /-.1882D-05, -.2280D-05,
18195 # -.2762D-05, -.3346D-05, -.4055D-05, -.4912D-05, -.5951D-05,
18196 # -.7210D-05, -.8734D-05, -.1058D-04, -.1282D-04, -.1553D-04,
18197 # -.1882D-04, -.2280D-04, -.2762D-04, -.3346D-04, -.4054D-04,
18198 # -.4910D-04, -.5948D-04, -.7205D-04, -.8724D-04, -.1056D-03,
18199 # -.1279D-03, -.1548D-03, -.1872D-03, -.2263D-03, -.2732D-03,
18200 # -.3294D-03, -.3962D-03, -.4752D-03, -.5675D-03, -.6739D-03,
18201 # -.7942D-03, -.9276D-03, -.1072D-02, -.1224D-02, -.1382D-02,
18202 # -.1545D-02, -.1717D-02, -.1904D-02, -.2118D-02, -.2370D-02,
18203 # -.2669D-02, -.3013D-02, -.3381D-02, -.3720D-02, -.3946D-02,
18204 # -.3963D-02, -.3711D-02, -.3205D-02, -.2557D-02, -.1912D-02,
18205 # -.1379D-02, -.9917D-03, -.7282D-03, -.5492D-03, -.4207D-03,
18206 # -.3236D-03, -.2470D-03, -.1871D-03, -.1391D-03, -.1025D-03,
18207 # -.7449D-04, -.5384D-04, -.3852D-04, -.2786D-04, -.1986D-04,
18208 # -.1387D-04, -.9868D-05, -.6536D-05, -.4537D-05, -.3204D-05,
18209 # -.2538D-05/
18210
18211 data (calcpts(j,37), j = 1,neta) /-.1371D-05, -.1661D-05,
18212 # -.2012D-05, -.2438D-05, -.2954D-05, -.3579D-05, -.4336D-05,
18213 # -.5253D-05, -.6363D-05, -.7709D-05, -.9341D-05, -.1132D-04,
18214 # -.1371D-04, -.1661D-04, -.2012D-04, -.2438D-04, -.2953D-04,
18215 # -.3577D-04, -.4333D-04, -.5249D-04, -.6356D-04, -.7697D-04,
18216 # -.9319D-04, -.1128D-03, -.1364D-03, -.1649D-03, -.1991D-03,
18217 # -.2400D-03, -.2888D-03, -.3463D-03, -.4136D-03, -.4912D-03,
18218 # -.5787D-03, -.6755D-03, -.7795D-03, -.8880D-03, -.9986D-03,
18219 # -.1110D-02, -.1223D-02, -.1341D-02, -.1472D-02, -.1625D-02,
18220 # -.1808D-02, -.2026D-02, -.2278D-02, -.2546D-02, -.2787D-02,
18221 # -.2939D-02, -.2933D-02, -.2727D-02, -.2338D-02, -.1851D-02,
18222 # -.1374D-02, -.9852D-03, -.7055D-03, -.5172D-03, -.3894D-03,
18223 # -.2988D-03, -.2296D-03, -.1756D-03, -.1323D-03, -.9832D-04,
18224 # -.7234D-04, -.5302D-04, -.3836D-04, -.2703D-04, -.1970D-04,
18225 # -.1370D-04, -.9704D-05, -.7038D-05, -.5039D-05, -.3706D-05,
18226 # -.2373D-05/
18227
18228 data (calcpts(j,38), j = 1,neta) /-.9934D-06, -.1204D-05,
18229 # -.1458D-05, -.1767D-05, -.2140D-05, -.2593D-05, -.3141D-05,
18230 # -.3806D-05, -.4611D-05, -.5586D-05, -.6768D-05, -.8200D-05,
18231 # -.9934D-05, -.1204D-04, -.1458D-04, -.1766D-04, -.2140D-04,
18232 # -.2592D-04, -.3140D-04, -.3803D-04, -.4606D-04, -.5577D-04,
18233 # -.6753D-04, -.8172D-04, -.9885D-04, -.1195D-03, -.1443D-03,
18234 # -.1739D-03, -.2093D-03, -.2510D-03, -.2997D-03, -.3559D-03,
18235 # -.4192D-03, -.4891D-03, -.5638D-03, -.6411D-03, -.7187D-03,
18236 # -.7950D-03, -.8699D-03, -.9455D-03, -.1026D-02, -.1117D-02,
18237 # -.1226D-02, -.1358D-02, -.1518D-02, -.1702D-02, -.1895D-02,
18238 # -.2067D-02, -.2170D-02, -.2155D-02, -.1991D-02, -.1696D-02,
18239 # -.1334D-02, -.9843D-03, -.7016D-03, -.5005D-03, -.3659D-03,
18240 # -.2753D-03, -.2113D-03, -.1620D-03, -.1240D-03, -.9339D-04,
18241 # -.6940D-04, -.5141D-04, -.3741D-04, -.2675D-04, -.1942D-04,
18242 # -.1342D-04, -.9422D-05, -.6756D-05, -.4756D-05, -.3423D-05,
18243 # -.2090D-05/
18244
18245 data (calcpts(j,39), j = 1,neta) /-.7169D-06, -.8686D-06,
18246 # -.1052D-05, -.1275D-05, -.1545D-05, -.1871D-05, -.2267D-05,
18247 # -.2747D-05, -.3327D-05, -.4031D-05, -.4884D-05, -.5917D-05,
18248 # -.7169D-05, -.8685D-05, -.1052D-04, -.1275D-04, -.1544D-04,
18249 # -.1871D-04, -.2266D-04, -.2745D-04, -.3324D-04, -.4025D-04,
18250 # -.4873D-04, -.5897D-04, -.7134D-04, -.8623D-04, -.1041D-03,
18251 # -.1255D-03, -.1510D-03, -.1811D-03, -.2163D-03, -.2568D-03,
18252 # -.3024D-03, -.3527D-03, -.4062D-03, -.4612D-03, -.5158D-03,
18253 # -.5685D-03, -.6187D-03, -.6676D-03, -.7174D-03, -.7719D-03,
18254 # -.8355D-03, -.9132D-03, -.1009D-02, -.1126D-02, -.1259D-02,
18255 # -.1399D-02, -.1521D-02, -.1591D-02, -.1573D-02, -.1446D-02,
18256 # -.1226D-02, -.9584D-03, -.7031D-03, -.4988D-03, -.3545D-03,
18257 # -.2587D-03, -.1947D-03, -.1492D-03, -.1147D-03, -.8761D-04,
18258 # -.6616D-04, -.4956D-04, -.3623D-04, -.2623D-04, -.1890D-04,
18259 # -.1357D-04, -.9571D-05, -.6905D-05, -.4905D-05, -.3572D-05,
18260 # -.2239D-05/
18261
18262 data (calcpts(j,40), j = 1,neta) /-.5152D-06, -.6243D-06,
18263 # -.7562D-06, -.9162D-06, -.1110D-05, -.1345D-05, -.1629D-05,
18264 # -.1974D-05, -.2391D-05, -.2897D-05, -.3510D-05, -.4253D-05,
18265 # -.5152D-05, -.6242D-05, -.7561D-05, -.9160D-05, -.1110D-04,
18266 # -.1344D-04, -.1628D-04, -.1973D-04, -.2389D-04, -.2893D-04,
18267 # -.3502D-04, -.4238D-04, -.5127D-04, -.6197D-04, -.7482D-04,
18268 # -.9021D-04, -.1085D-03, -.1302D-03, -.1554D-03, -.1845D-03,
18269 # -.2173D-03, -.2533D-03, -.2915D-03, -.3306D-03, -.3691D-03,
18270 # -.4057D-03, -.4398D-03, -.4717D-03, -.5030D-03, -.5357D-03,
18271 # -.5727D-03, -.6176D-03, -.6733D-03, -.7430D-03, -.8276D-03,
18272 # -.9246D-03, -.1025D-02, -.1112D-02, -.1159D-02, -.1142D-02,
18273 # -.1046D-02, -.8819D-03, -.6861D-03, -.5007D-03, -.3536D-03,
18274 # -.2504D-03, -.1824D-03, -.1371D-03, -.1051D-03, -.8080D-04,
18275 # -.6168D-04, -.4655D-04, -.3462D-04, -.2542D-04, -.1848D-04,
18276 # -.1335D-04, -.9553D-05, -.6820D-05, -.4820D-05, -.3420D-05,
18277 # -.2420D-05/
18278
18279 data (calcpts(j,41), j = 1,neta) /-.3691D-06, -.4472D-06,
18280 # -.5416D-06, -.6563D-06, -.7952D-06, -.9633D-06, -.1167D-05,
18281 # -.1414D-05, -.1713D-05, -.2075D-05, -.2514D-05, -.3046D-05,
18282 # -.3691D-05, -.4471D-05, -.5416D-05, -.6562D-05, -.7950D-05,
18283 # -.9630D-05, -.1167D-04, -.1413D-04, -.1711D-04, -.2072D-04,
18284 # -.2509D-04, -.3036D-04, -.3672D-04, -.4439D-04, -.5360D-04,
18285 # -.6462D-04, -.7775D-04, -.9324D-04, -.1113D-03, -.1322D-03,
18286 # -.1556D-03, -.1813D-03, -.2086D-03, -.2364D-03, -.2635D-03,
18287 # -.2890D-03, -.3124D-03, -.3336D-03, -.3535D-03, -.3734D-03,
18288 # -.3951D-03, -.4206D-03, -.4523D-03, -.4925D-03, -.5429D-03,
18289 # -.6043D-03, -.6745D-03, -.7467D-03, -.8083D-03, -.8408D-03,
18290 # -.8255D-03, -.7532D-03, -.6325D-03, -.4898D-03, -.3558D-03,
18291 # -.2501D-03, -.1766D-03, -.1284D-03, -.9645D-04, -.7386D-04,
18292 # -.5680D-04, -.4333D-04, -.3267D-04, -.2427D-04, -.1780D-04,
18293 # -.1294D-04, -.9270D-05, -.6670D-05, -.4737D-05, -.3337D-05,
18294 # -.2337D-05/
18295
18296 data (calcpts(j,42), j = 1,neta) /-.2638D-06, -.3195D-06,
18297 # -.3871D-06, -.4689D-06, -.5682D-06, -.6883D-06, -.8339D-06,
18298 # -.1010D-05, -.1224D-05, -.1483D-05, -.1797D-05, -.2177D-05,
18299 # -.2637D-05, -.3195D-05, -.3870D-05, -.4688D-05, -.5680D-05,
18300 # -.6881D-05, -.8335D-05, -.1010D-04, -.1223D-04, -.1481D-04,
18301 # -.1793D-04, -.2169D-04, -.2624D-04, -.3172D-04, -.3830D-04,
18302 # -.4617D-04, -.5555D-04, -.6662D-04, -.7954D-04, -.9441D-04,
18303 # -.1111D-03, -.1295D-03, -.1489D-03, -.1686D-03, -.1878D-03,
18304 # -.2057D-03, -.2218D-03, -.2361D-03, -.2490D-03, -.2613D-03,
18305 # -.2741D-03, -.2886D-03, -.3064D-03, -.3289D-03, -.3579D-03,
18306 # -.3944D-03, -.4389D-03, -.4895D-03, -.5414D-03, -.5851D-03,
18307 # -.6073D-03, -.5946D-03, -.5408D-03, -.4524D-03, -.3489D-03,
18308 # -.2524D-03, -.1767D-03, -.1244D-03, -.9029D-04, -.6776D-04,
18309 # -.5190D-04, -.3990D-04, -.3044D-04, -.2297D-04, -.1704D-04,
18310 # -.1250D-04, -.9105D-05, -.6505D-05, -.4638D-05, -.3305D-05,
18311 # -.2372D-05/
18312
18313 data (calcpts(j,43), j = 1,neta) /-.1880D-06, -.2277D-06,
18314 # -.2758D-06, -.3342D-06, -.4049D-06, -.4906D-06, -.5944D-06,
18315 # -.7201D-06, -.8723D-06, -.1057D-05, -.1281D-05, -.1551D-05,
18316 # -.1879D-05, -.2277D-05, -.2758D-05, -.3342D-05, -.4049D-05,
18317 # -.4904D-05, -.5941D-05, -.7196D-05, -.8714D-05, -.1055D-04,
18318 # -.1278D-04, -.1546D-04, -.1870D-04, -.2261D-04, -.2729D-04,
18319 # -.3291D-04, -.3959D-04, -.4748D-04, -.5669D-04, -.6728D-04,
18320 # -.7919D-04, -.9224D-04, -.1060D-03, -.1200D-03, -.1336D-03,
18321 # -.1462D-03, -.1573D-03, -.1670D-03, -.1755D-03, -.1833D-03,
18322 # -.1910D-03, -.1993D-03, -.2093D-03, -.2217D-03, -.2379D-03,
18323 # -.2588D-03, -.2852D-03, -.3172D-03, -.3537D-03, -.3909D-03,
18324 # -.4218D-03, -.4371D-03, -.4269D-03, -.3872D-03, -.3228D-03,
18325 # -.2480D-03, -.1787D-03, -.1247D-03, -.8754D-04, -.6341D-04,
18326 # -.4755D-04, -.3642D-04, -.2802D-04, -.2135D-04, -.1609D-04,
18327 # -.1195D-04, -.8754D-05, -.6354D-05, -.4554D-05, -.3288D-05,
18328 # -.2288D-05/
18329
18330 data (calcpts(j,44), j = 1,neta) /-.1338D-06, -.1621D-06,
18331 # -.1963D-06, -.2378D-06, -.2880D-06, -.3489D-06, -.4227D-06,
18332 # -.5121D-06, -.6204D-06, -.7516D-06, -.9106D-06, -.1103D-05,
18333 # -.1337D-05, -.1619D-05, -.1961D-05, -.2376D-05, -.2879D-05,
18334 # -.3488D-05, -.4225D-05, -.5117D-05, -.6197D-05, -.7504D-05,
18335 # -.9086D-05, -.1100D-04, -.1330D-04, -.1608D-04, -.1941D-04,
18336 # -.2340D-04, -.2815D-04, -.3376D-04, -.4031D-04, -.4784D-04,
18337 # -.5630D-04, -.6557D-04, -.7537D-04, -.8529D-04, -.9487D-04,
18338 # -.1037D-03, -.1115D-03, -.1182D-03, -.1238D-03, -.1288D-03,
18339 # -.1335D-03, -.1384D-03, -.1439D-03, -.1508D-03, -.1596D-03,
18340 # -.1712D-03, -.1863D-03, -.2053D-03, -.2284D-03, -.2546D-03,
18341 # -.2812D-03, -.3031D-03, -.3135D-03, -.3057D-03, -.2764D-03,
18342 # -.2298D-03, -.1760D-03, -.1263D-03, -.8785D-04, -.6152D-04,
18343 # -.4446D-04, -.3332D-04, -.2552D-04, -.1959D-04, -.1499D-04,
18344 # -.1126D-04, -.8392D-05, -.6126D-05, -.4459D-05, -.3193D-05,
18345 # -.2259D-05/
18346
18347 data (calcpts(j,45), j = 1,neta) /-.9473D-07, -.1149D-06,
18348 # -.1392D-06, -.1688D-06, -.2045D-06, -.2477D-06, -.3001D-06,
18349 # -.3636D-06, -.4404D-06, -.5337D-06, -.6466D-06, -.7833D-06,
18350 # -.9490D-06, -.1150D-05, -.1393D-05, -.1687D-05, -.2044D-05,
18351 # -.2476D-05, -.3000D-05, -.3634D-05, -.4400D-05, -.5328D-05,
18352 # -.6451D-05, -.7807D-05, -.9444D-05, -.1142D-04, -.1378D-04,
18353 # -.1662D-04, -.1999D-04, -.2397D-04, -.2862D-04, -.3397D-04,
18354 # -.3997D-04, -.4655D-04, -.5350D-04, -.6052D-04, -.6730D-04,
18355 # -.7351D-04, -.7896D-04, -.8357D-04, -.8742D-04, -.9068D-04,
18356 # -.9360D-04, -.9648D-04, -.9962D-04, -.1034D-03, -.1082D-03,
18357 # -.1145D-03, -.1228D-03, -.1336D-03, -.1473D-03, -.1640D-03,
18358 # -.1827D-03, -.2017D-03, -.2172D-03, -.2243D-03, -.2184D-03,
18359 # -.1970D-03, -.1634D-03, -.1247D-03, -.8922D-04, -.6185D-04,
18360 # -.4319D-04, -.3121D-04, -.2337D-04, -.1791D-04, -.1377D-04,
18361 # -.1051D-04, -.7907D-05, -.5907D-05, -.4307D-05, -.3107D-05,
18362 # -.2241D-05/
18363
18364 data (calcpts(j,46), j = 1,neta) /-.6701D-07, -.8119D-07,
18365 # -.9870D-07, -.1195D-06, -.1447D-06, -.1754D-06, -.2127D-06,
18366 # -.2576D-06, -.3120D-06, -.3781D-06, -.4581D-06, -.5551D-06,
18367 # -.6724D-06, -.8147D-06, -.9868D-06, -.1196D-05, -.1449D-05,
18368 # -.1755D-05, -.2125D-05, -.2575D-05, -.3118D-05, -.3776D-05,
18369 # -.4571D-05, -.5532D-05, -.6691D-05, -.8089D-05, -.9765D-05,
18370 # -.1177D-04, -.1416D-04, -.1699D-04, -.2028D-04, -.2407D-04,
18371 # -.2832D-04, -.3298D-04, -.3790D-04, -.4286D-04, -.4765D-04,
18372 # -.5203D-04, -.5584D-04, -.5904D-04, -.6167D-04, -.6384D-04,
18373 # -.6570D-04, -.6744D-04, -.6924D-04, -.7133D-04, -.7392D-04,
18374 # -.7731D-04, -.8181D-04, -.8777D-04, -.9555D-04, -.1054D-03,
18375 # -.1173D-03, -.1308D-03, -.1443D-03, -.1552D-03, -.1602D-03,
18376 # -.1556D-03, -.1401D-03, -.1158D-03, -.8818D-04, -.6290D-04,
18377 # -.4347D-04, -.3029D-04, -.2185D-04, -.1636D-04, -.1252D-04,
18378 # -.9628D-05, -.7341D-05, -.5528D-05, -.4108D-05, -.3008D-05,
18379 # -.2181D-05/
18380
18381 data (calcpts(j,47), j = 1,neta) /-.4757D-07, -.5758D-07,
18382 # -.6968D-07, -.8450D-07, -.1024D-06, -.1242D-06, -.1503D-06,
18383 # -.1822D-06, -.2207D-06, -.2675D-06, -.3240D-06, -.3926D-06,
18384 # -.4757D-06, -.5763D-06, -.6981D-06, -.8458D-06, -.1025D-05,
18385 # -.1241D-05, -.1504D-05, -.1821D-05, -.2206D-05, -.2671D-05,
18386 # -.3234D-05, -.3913D-05, -.4734D-05, -.5722D-05, -.6908D-05,
18387 # -.8329D-05, -.1002D-04, -.1202D-04, -.1435D-04, -.1702D-04,
18388 # -.2003D-04, -.2333D-04, -.2680D-04, -.3031D-04, -.3369D-04,
18389 # -.3677D-04, -.3945D-04, -.4168D-04, -.4349D-04, -.4495D-04,
18390 # -.4616D-04, -.4724D-04, -.4829D-04, -.4945D-04, -.5086D-04,
18391 # -.5267D-04, -.5507D-04, -.5828D-04, -.6256D-04, -.6814D-04,
18392 # -.7521D-04, -.8374D-04, -.9332D-04, -.1029D-03, -.1107D-03,
18393 # -.1141D-03, -.1106D-03, -.9943D-04, -.8204D-04, -.6228D-04,
18394 # -.4429D-04, -.3052D-04, -.2122D-04, -.1528D-04, -.1143D-04,
18395 # -.8745D-05, -.6726D-05, -.5126D-05, -.3859D-05, -.2859D-05,
18396 # -.2092D-05/
18397
18398 data (calcpts(j,48), j = 1,neta) /-.3318D-07, -.4036D-07,
18399 # -.4933D-07, -.5977D-07, -.7242D-07, -.8763D-07, -.1062D-06,
18400 # -.1288D-06, -.1559D-06, -.1890D-06, -.2290D-06, -.2774D-06,
18401 # -.3361D-06, -.4072D-06, -.4933D-06, -.5976D-06, -.7240D-06,
18402 # -.8771D-06, -.1062D-05, -.1287D-05, -.1558D-05, -.1887D-05,
18403 # -.2285D-05, -.2765D-05, -.3345D-05, -.4043D-05, -.4881D-05,
18404 # -.5885D-05, -.7080D-05, -.8490D-05, -.1014D-04, -.1203D-04,
18405 # -.1415D-04, -.1648D-04, -.1893D-04, -.2141D-04, -.2379D-04,
18406 # -.2597D-04, -.2785D-04, -.2941D-04, -.3066D-04, -.3166D-04,
18407 # -.3246D-04, -.3313D-04, -.3376D-04, -.3442D-04, -.3519D-04,
18408 # -.3615D-04, -.3743D-04, -.3914D-04, -.4144D-04, -.4450D-04,
18409 # -.4849D-04, -.5354D-04, -.5964D-04, -.6647D-04, -.7329D-04,
18410 # -.7875D-04, -.8108D-04, -.7854D-04, -.7046D-04, -.5801D-04,
18411 # -.4393D-04, -.3116D-04, -.2142D-04, -.1486D-04, -.1069D-04,
18412 # -.7993D-05, -.6113D-05, -.4700D-05, -.3586D-05, -.2700D-05,
18413 # -.2000D-05/
18414
18415 data (calcpts(j,49), j = 1,neta) /-.2387D-07, -.2858D-07,
18416 # -.3511D-07, -.4218D-07, -.5120D-07, -.6191D-07, -.7500D-07,
18417 # -.9087D-07, -.1101D-06, -.1334D-06, -.1616D-06, -.1957D-06,
18418 # -.2372D-06, -.2873D-06, -.3480D-06, -.4217D-06, -.5109D-06,
18419 # -.6189D-06, -.7496D-06, -.9081D-06, -.1100D-05, -.1332D-05,
18420 # -.1612D-05, -.1951D-05, -.2360D-05, -.2853D-05, -.3444D-05,
18421 # -.4152D-05, -.4995D-05, -.5990D-05, -.7151D-05, -.8486D-05,
18422 # -.9986D-05, -.1163D-04, -.1336D-04, -.1510D-04, -.1678D-04,
18423 # -.1831D-04, -.1963D-04, -.2073D-04, -.2160D-04, -.2228D-04,
18424 # -.2282D-04, -.2326D-04, -.2364D-04, -.2402D-04, -.2445D-04,
18425 # -.2496D-04, -.2563D-04, -.2653D-04, -.2775D-04, -.2939D-04,
18426 # -.3159D-04, -.3444D-04, -.3805D-04, -.4239D-04, -.4725D-04,
18427 # -.5208D-04, -.5593D-04, -.5753D-04, -.5566D-04, -.4986D-04,
18428 # -.4097D-04, -.3095D-04, -.2190D-04, -.1502D-04, -.1040D-04,
18429 # -.7471D-05, -.5584D-05, -.4271D-05, -.3284D-05, -.2504D-05,
18430 # -.1884D-05/
18431
18432 data (dlaeta(j), j = 1,neta) /
18433 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
18434 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
18435 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
18436 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
18437 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
18438 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
18439 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
18440 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
18441 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
18442 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
18443 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
18444 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
18445 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
18446 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
18447 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
18448
18449 data (dlaxi(j), j = 1,nxi) /
18450 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
18451 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
18452 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
18453 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
18454 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
18455 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
18456 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
18457 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
18458 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
18459 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
18460
18461 dleta = dlog10(eta)
18462 dlxi = dlog10(xi)
18463 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
18464 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
18465 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
18466 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
18467 call locate(dlaeta,neta, dleta, ieta)
18468 call locate(dlaxi, nxi, dlxi, ixi)
18469c interpolating between the appropriate points
18470 delxi = 1d0/6d0
18471 deleta = 1d0/6d0
18472c lagrange 3-pt.
18473 if (ixi .le. 2) ixi = 2
18474 if (ixi .ge. 48) ixi = 48
18475 if (ieta .le. 2) ieta = 2
18476 if (ieta .ge. 72) ieta = 72
18477 pxi = (dlxi - dlaxi(ixi))/delxi
18478 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
18479 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
18480 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
18481 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
18482 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
18483 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
18484 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
18485 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
18486 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
18487 peta = (dleta - dlaeta(ieta))/deleta
18488 h1_ALg = peta*(peta-1d0)/2d0*f(-1) +
18489 # (1d0 - peta**2)*f(0) +
18490CMB # + peta*(peta+1d0)/2d0*f(1)
18491 # peta*(peta+1d0)/2d0*f(1)
18492 return
18493 end
18494
18495c ========================================
18496 double precision function h1_FLg(eta,xi)
18497c ========================================
18498
18499c eq (10) in PLB347 (1995) 143 - 151 for the longitudinal piece
18500c MSbar scheme
18501c This routine is called subclcf in the original code.
18502c Called sclcf in updated code (03/06/96).
18503
18504 implicit none
18505 integer neta, nxi
18506 parameter (neta = 73, nxi = 49)
18507 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
18508 double precision eta, xi, dleta, dlxi
18509 double precision pxi, peta, f(-1:1), delxi, deleta
18510 integer j, ieta, ixi
18511
18512 data (calcpts(j, 1), j = 1,neta) /-.1526D-12, -.3323D-12,
18513 # -.3907D-12, -.6839D-12, -.1600D-11, -.3278D-11, -.4479D-11,
18514 # -.9221D-11, -.1419D-10, -.2587D-10, -.4799D-10, -.7559D-10,
18515 # -.1451D-09, -.2621D-09, -.4500D-09, -.8116D-09, -.1474D-08,
18516 # -.2638D-08, -.4581D-08, -.8208D-08, -.1447D-07, -.2578D-07,
18517 # -.4622D-07, -.8126D-07, -.1450D-06, -.2590D-06, -.4588D-06,
18518 # -.8141D-06, -.1438D-05, -.2515D-05, -.4340D-05, -.7316D-05,
18519 # -.1190D-04, -.1839D-04, -.2652D-04, -.3509D-04, -.4205D-04,
18520 # -.4536D-04, -.4420D-04, -.3927D-04, -.3230D-04, -.2498D-04,
18521 # -.1844D-04, -.1315D-04, -.9162D-05, -.6272D-05, -.4243D-05,
18522 # -.2849D-05, -.1902D-05, -.1265D-05, -.8396D-06, -.5559D-06,
18523 # -.3675D-06, -.2427D-06, -.1601D-06, -.1055D-06, -.6950D-07,
18524 # -.4569D-07, -.3001D-07, -.1968D-07, -.1290D-07, -.8435D-08,
18525 # -.5514D-08, -.3594D-08, -.4557D-08, -.3116D-08, -.2128D-08,
18526 # -.1452D-08, -.9914D-09, -.6763D-09, -.4610D-09, -.3142D-09,
18527 # -.2142D-09/
18528
18529 data (calcpts(j, 2), j = 1,neta) /-.1979D-12, -.6116D-12,
18530 # -.5642D-12, -.1280D-11, -.3041D-11, -.3966D-11, -.7910D-11,
18531 # -.1347D-10, -.2032D-10, -.3911D-10, -.7392D-10, -.1265D-09,
18532 # -.2222D-09, -.4048D-09, -.6812D-09, -.1207D-08, -.2240D-08,
18533 # -.3794D-08, -.6782D-08, -.1216D-07, -.2132D-07, -.3805D-07,
18534 # -.6763D-07, -.1202D-06, -.2143D-06, -.3812D-06, -.6731D-06,
18535 # -.1196D-05, -.2112D-05, -.3695D-05, -.6377D-05, -.1074D-04,
18536 # -.1746D-04, -.2699D-04, -.3893D-04, -.5150D-04, -.6170D-04,
18537 # -.6657D-04, -.6486D-04, -.5763D-04, -.4739D-04, -.3665D-04,
18538 # -.2706D-04, -.1930D-04, -.1345D-04, -.9205D-05, -.6227D-05,
18539 # -.4180D-05, -.2791D-05, -.1856D-05, -.1232D-05, -.8156D-06,
18540 # -.5392D-06, -.3562D-06, -.2349D-06, -.1548D-06, -.1020D-06,
18541 # -.6705D-07, -.4403D-07, -.2888D-07, -.1893D-07, -.1238D-07,
18542 # -.8090D-08, -.5273D-08, -.3429D-08, -.4572D-08, -.3123D-08,
18543 # -.2131D-08, -.1455D-08, -.9921D-09, -.6764D-09, -.4611D-09,
18544 # -.3143D-09/
18545
18546 data (calcpts(j, 3), j = 1,neta) /-.2047D-12, -.4402D-12,
18547 # -.5594D-12, -.1213D-11, -.3449D-11, -.4707D-11, -.9446D-11,
18548 # -.1768D-10, -.2612D-10, -.5612D-10, -.9231D-10, -.1774D-09,
18549 # -.3093D-09, -.5600D-09, -.9492D-09, -.1660D-08, -.3105D-08,
18550 # -.5504D-08, -.9882D-08, -.1767D-07, -.3091D-07, -.5602D-07,
18551 # -.9938D-07, -.1750D-06, -.3126D-06, -.5560D-06, -.9846D-06,
18552 # -.1747D-05, -.3092D-05, -.5405D-05, -.9329D-05, -.1574D-04,
18553 # -.2559D-04, -.3955D-04, -.5706D-04, -.7550D-04, -.9047D-04,
18554 # -.9761D-04, -.9510D-04, -.8452D-04, -.6949D-04, -.5375D-04,
18555 # -.3968D-04, -.2830D-04, -.1972D-04, -.1350D-04, -.9131D-05,
18556 # -.6129D-05, -.4092D-05, -.2721D-05, -.1806D-05, -.1196D-05,
18557 # -.7903D-06, -.5220D-06, -.3444D-06, -.2268D-06, -.1495D-06,
18558 # -.9828D-07, -.6453D-07, -.4234D-07, -.2774D-07, -.1814D-07,
18559 # -.1186D-07, -.7726D-08, -.5024D-08, -.3262D-08, -.4580D-08,
18560 # -.3126D-08, -.2133D-08, -.1455D-08, -.9916D-09, -.6762D-09,
18561 # -.4608D-09/
18562
18563 data (calcpts(j, 4), j = 1,neta) /-.3980D-12, -.9437D-12,
18564 # -.1372D-11, -.2820D-11, -.4058D-11, -.7437D-11, -.1433D-10,
18565 # -.2712D-10, -.4303D-10, -.7171D-10, -.1424D-09, -.2625D-09,
18566 # -.4584D-09, -.8241D-09, -.1411D-08, -.2519D-08, -.4554D-08,
18567 # -.8235D-08, -.1450D-07, -.2605D-07, -.4624D-07, -.8090D-07,
18568 # -.1457D-06, -.2586D-06, -.4593D-06, -.8177D-06, -.1447D-05,
18569 # -.2562D-05, -.4530D-05, -.7931D-05, -.1368D-04, -.2309D-04,
18570 # -.3753D-04, -.5802D-04, -.8370D-04, -.1107D-03, -.1327D-03,
18571 # -.1432D-03, -.1395D-03, -.1240D-03, -.1019D-03, -.7884D-04,
18572 # -.5820D-04, -.4152D-04, -.2892D-04, -.1980D-04, -.1339D-04,
18573 # -.8990D-05, -.6002D-05, -.3991D-05, -.2649D-05, -.1754D-05,
18574 # -.1159D-05, -.7655D-06, -.5050D-06, -.3328D-06, -.2192D-06,
18575 # -.1441D-06, -.9463D-07, -.6208D-07, -.4067D-07, -.2659D-07,
18576 # -.1738D-07, -.1133D-07, -.7365D-08, -.4782D-08, -.3097D-08,
18577 # -.4585D-08, -.3129D-08, -.2134D-08, -.1454D-08, -.9915D-09,
18578 # -.6759D-09/
18579
18580 data (calcpts(j, 5), j = 1,neta) /-.8492D-12, -.1819D-11,
18581 # -.1594D-11, -.4321D-11, -.7149D-11, -.1278D-10, -.2327D-10,
18582 # -.4772D-10, -.5993D-10, -.1160D-09, -.2318D-09, -.3877D-09,
18583 # -.6909D-09, -.1180D-08, -.2148D-08, -.3792D-08, -.6799D-08,
18584 # -.1217D-07, -.2153D-07, -.3862D-07, -.6690D-07, -.1197D-06,
18585 # -.2149D-06, -.3801D-06, -.6744D-06, -.1203D-05, -.2123D-05,
18586 # -.3762D-05, -.6655D-05, -.1164D-04, -.2008D-04, -.3386D-04,
18587 # -.5505D-04, -.8509D-04, -.1227D-03, -.1624D-03, -.1945D-03,
18588 # -.2099D-03, -.2045D-03, -.1818D-03, -.1495D-03, -.1156D-03,
18589 # -.8534D-04, -.6087D-04, -.4240D-04, -.2902D-04, -.1963D-04,
18590 # -.1318D-04, -.8800D-05, -.5851D-05, -.3883D-05, -.2571D-05,
18591 # -.1699D-05, -.1122D-05, -.7403D-06, -.4877D-06, -.3213D-06,
18592 # -.2112D-06, -.1387D-06, -.9099D-07, -.5960D-07, -.3897D-07,
18593 # -.2547D-07, -.1659D-07, -.1079D-07, -.7007D-08, -.4537D-08,
18594 # -.2929D-08, -.4588D-08, -.3128D-08, -.2132D-08, -.1454D-08,
18595 # -.9910D-09/
18596
18597 data (calcpts(j, 6), j = 1,neta) /-.1553D-11, -.2541D-11,
18598 # -.1878D-11, -.5611D-11, -.1141D-10, -.1789D-10, -.3021D-10,
18599 # -.5472D-10, -.9229D-10, -.1729D-09, -.3173D-09, -.5690D-09,
18600 # -.1020D-08, -.1828D-08, -.3025D-08, -.5610D-08, -.9985D-08,
18601 # -.1771D-07, -.3101D-07, -.5642D-07, -.9798D-07, -.1758D-06,
18602 # -.3135D-06, -.5555D-06, -.9859D-06, -.1752D-05, -.3104D-05,
18603 # -.5519D-05, -.9739D-05, -.1703D-04, -.2940D-04, -.4958D-04,
18604 # -.8056D-04, -.1245D-03, -.1798D-03, -.2378D-03, -.2849D-03,
18605 # -.3075D-03, -.2996D-03, -.2663D-03, -.2190D-03, -.1694D-03,
18606 # -.1250D-03, -.8919D-04, -.6212D-04, -.4252D-04, -.2876D-04,
18607 # -.1931D-04, -.1289D-04, -.8570D-05, -.5687D-05, -.3765D-05,
18608 # -.2488D-05, -.1643D-05, -.1084D-05, -.7140D-06, -.4703D-06,
18609 # -.3092D-06, -.2030D-06, -.1332D-06, -.8723D-07, -.5703D-07,
18610 # -.3726D-07, -.2427D-07, -.1579D-07, -.1025D-07, -.6635D-08,
18611 # -.4282D-08, -.2759D-08, -.4583D-08, -.3124D-08, -.2130D-08,
18612 # -.1452D-08/
18613
18614 data (calcpts(j, 7), j = 1,neta) /-.1951D-11, -.3023D-11,
18615 # -.3552D-11, -.6768D-11, -.1542D-10, -.3304D-10, -.4905D-10,
18616 # -.8922D-10, -.1383D-09, -.2580D-09, -.4742D-09, -.7587D-09,
18617 # -.1494D-08, -.2591D-08, -.4467D-08, -.8113D-08, -.1468D-07,
18618 # -.2642D-07, -.4627D-07, -.8186D-07, -.1445D-06, -.2566D-06,
18619 # -.4593D-06, -.8145D-06, -.1443D-05, -.2580D-05, -.4555D-05,
18620 # -.8069D-05, -.1426D-04, -.2494D-04, -.4300D-04, -.7255D-04,
18621 # -.1179D-03, -.1822D-03, -.2629D-03, -.3479D-03, -.4170D-03,
18622 # -.4500D-03, -.4386D-03, -.3898D-03, -.3205D-03, -.2479D-03,
18623 # -.1830D-03, -.1305D-03, -.9092D-04, -.6223D-04, -.4210D-04,
18624 # -.2826D-04, -.1886D-04, -.1254D-04, -.8322D-05, -.5508D-05,
18625 # -.3640D-05, -.2404D-05, -.1585D-05, -.1044D-05, -.6877D-06,
18626 # -.4521D-06, -.2967D-06, -.1947D-06, -.1275D-06, -.8334D-07,
18627 # -.5444D-07, -.3546D-07, -.2305D-07, -.1496D-07, -.9679D-08,
18628 # -.6249D-08, -.4026D-08, -.2581D-08, -.4573D-08, -.3117D-08,
18629 # -.2125D-08/
18630
18631 data (calcpts(j, 8), j = 1,neta) /-.3202D-11, -.4660D-11,
18632 # -.6771D-11, -.1185D-10, -.2005D-10, -.3729D-10, -.7634D-10,
18633 # -.1351D-09, -.2145D-09, -.3817D-09, -.7858D-09, -.1241D-08,
18634 # -.2195D-08, -.3904D-08, -.6628D-08, -.1198D-07, -.2138D-07,
18635 # -.3774D-07, -.6762D-07, -.1203D-06, -.2116D-06, -.3773D-06,
18636 # -.6675D-06, -.1188D-05, -.2118D-05, -.3769D-05, -.6672D-05,
18637 # -.1182D-04, -.2086D-04, -.3649D-04, -.6290D-04, -.1060D-03,
18638 # -.1724D-03, -.2665D-03, -.3843D-03, -.5086D-03, -.6095D-03,
18639 # -.6578D-03, -.6413D-03, -.5699D-03, -.4687D-03, -.3625D-03,
18640 # -.2676D-03, -.1909D-03, -.1329D-03, -.9100D-04, -.6154D-04,
18641 # -.4130D-04, -.2757D-04, -.1833D-04, -.1216D-04, -.8049D-05,
18642 # -.5319D-05, -.3511D-05, -.2316D-05, -.1525D-05, -.1004D-05,
18643 # -.6600D-06, -.4332D-06, -.2840D-06, -.1861D-06, -.1216D-06,
18644 # -.7942D-07, -.5172D-07, -.3361D-07, -.2180D-07, -.1412D-07,
18645 # -.9108D-08, -.5862D-08, -.3756D-08, -.2397D-08, -.4558D-08,
18646 # -.3106D-08/
18647
18648 data (calcpts(j, 9), j = 1,neta) /-.2020D-11, -.5453D-11,
18649 # -.5060D-11, -.1092D-10, -.3336D-10, -.5003D-10, -.9420D-10,
18650 # -.1724D-09, -.2710D-09, -.5493D-09, -.9121D-09, -.1654D-08,
18651 # -.2942D-08, -.5559D-08, -.9296D-08, -.1649D-07, -.3097D-07,
18652 # -.5391D-07, -.9745D-07, -.1736D-06, -.3048D-06, -.5456D-06,
18653 # -.9811D-06, -.1731D-05, -.3082D-05, -.5485D-05, -.9689D-05,
18654 # -.1719D-04, -.3034D-04, -.5312D-04, -.9155D-04, -.1544D-03,
18655 # -.2510D-03, -.3881D-03, -.5599D-03, -.7412D-03, -.8885D-03,
18656 # -.9592D-03, -.9351D-03, -.8313D-03, -.6838D-03, -.5289D-03,
18657 # -.3904D-03, -.2785D-03, -.1939D-03, -.1327D-03, -.8974D-04,
18658 # -.6022D-04, -.4019D-04, -.2671D-04, -.1772D-04, -.1173D-04,
18659 # -.7748D-05, -.5113D-05, -.3372D-05, -.2221D-05, -.1462D-05,
18660 # -.9603D-06, -.6301D-06, -.4131D-06, -.2704D-06, -.1766D-06,
18661 # -.1153D-06, -.7510D-07, -.4878D-07, -.3163D-07, -.2046D-07,
18662 # -.1318D-07, -.8481D-08, -.5434D-08, -.3464D-08, -.2200D-08,
18663 # -.4531D-08/
18664
18665 data (calcpts(j,10), j = 1,neta) /-.4329D-11, -.8017D-11,
18666 # -.1468D-10, -.1912D-10, -.4450D-10, -.7630D-10, -.1318D-09,
18667 # -.2570D-09, -.4401D-09, -.7766D-09, -.1464D-08, -.2495D-08,
18668 # -.4473D-08, -.8107D-08, -.1423D-07, -.2431D-07, -.4600D-07,
18669 # -.7971D-07, -.1427D-06, -.2553D-06, -.4500D-06, -.8034D-06,
18670 # -.1424D-05, -.2529D-05, -.4495D-05, -.7996D-05, -.1418D-04,
18671 # -.2511D-04, -.4424D-04, -.7734D-04, -.1333D-03, -.2246D-03,
18672 # -.3650D-03, -.5643D-03, -.8141D-03, -.1078D-02, -.1292D-02,
18673 # -.1396D-02, -.1361D-02, -.1210D-02, -.9954D-03, -.7700D-03,
18674 # -.5684D-03, -.4053D-03, -.2823D-03, -.1931D-03, -.1306D-03,
18675 # -.8760D-04, -.5845D-04, -.3884D-04, -.2576D-04, -.1704D-04,
18676 # -.1125D-04, -.7428D-05, -.4896D-05, -.3223D-05, -.2121D-05,
18677 # -.1393D-05, -.9137D-06, -.5988D-06, -.3918D-06, -.2558D-06,
18678 # -.1670D-06, -.1086D-06, -.7052D-07, -.4570D-07, -.2953D-07,
18679 # -.1901D-07, -.1223D-07, -.7824D-08, -.4982D-08, -.3159D-08,
18680 # -.1992D-08/
18681
18682 data (calcpts(j,11), j = 1,neta) /-.7740D-11, -.1319D-10,
18683 # -.1127D-10, -.3932D-10, -.7316D-10, -.1185D-09, -.2253D-09,
18684 # -.4273D-09, -.7028D-09, -.1122D-08, -.2186D-08, -.3787D-08,
18685 # -.6692D-08, -.1282D-07, -.2105D-07, -.3761D-07, -.6681D-07,
18686 # -.1181D-06, -.2093D-06, -.3678D-06, -.6528D-06, -.1171D-05,
18687 # -.2076D-05, -.3676D-05, -.6540D-05, -.1168D-04, -.2046D-04,
18688 # -.3634D-04, -.6416D-04, -.1120D-03, -.1930D-03, -.3253D-03,
18689 # -.5284D-03, -.8167D-03, -.1178D-02, -.1560D-02, -.1872D-02,
18690 # -.2022D-02, -.1973D-02, -.1755D-02, -.1444D-02, -.1117D-02,
18691 # -.8243D-03, -.5878D-03, -.4092D-03, -.2799D-03, -.1892D-03,
18692 # -.1269D-03, -.8463D-04, -.5622D-04, -.3727D-04, -.2465D-04,
18693 # -.1627D-04, -.1073D-04, -.7072D-05, -.4653D-05, -.3060D-05,
18694 # -.2009D-05, -.1317D-05, -.8626D-06, -.5641D-06, -.3682D-06,
18695 # -.2400D-06, -.1560D-06, -.1012D-06, -.6552D-07, -.4230D-07,
18696 # -.2721D-07, -.1746D-07, -.1116D-07, -.7094D-08, -.4488D-08,
18697 # -.2823D-08/
18698
18699 data (calcpts(j,12), j = 1,neta) /-.5151D-11, -.2014D-10,
18700 # -.2631D-10, -.4695D-10, -.1052D-09, -.1791D-09, -.3485D-09,
18701 # -.6448D-09, -.8489D-09, -.1639D-08, -.3087D-08, -.5399D-08,
18702 # -.9179D-08, -.1779D-07, -.2957D-07, -.5384D-07, -.9629D-07,
18703 # -.1688D-06, -.3013D-06, -.5323D-06, -.9346D-06, -.1675D-05,
18704 # -.2995D-05, -.5313D-05, -.9461D-05, -.1675D-04, -.2958D-04,
18705 # -.5241D-04, -.9238D-04, -.1612D-03, -.2776D-03, -.4674D-03,
18706 # -.7593D-03, -.1173D-02, -.1694D-02, -.2243D-02, -.2692D-02,
18707 # -.2911D-02, -.2842D-02, -.2528D-02, -.2081D-02, -.1610D-02,
18708 # -.1188D-02, -.8472D-03, -.5896D-03, -.4031D-03, -.2724D-03,
18709 # -.1826D-03, -.1217D-03, -.8082D-04, -.5355D-04, -.3539D-04,
18710 # -.2335D-04, -.1540D-04, -.1014D-04, -.6664D-05, -.4380D-05,
18711 # -.2873D-05, -.1881D-05, -.1231D-05, -.8042D-06, -.5242D-06,
18712 # -.3414D-06, -.2216D-06, -.1435D-06, -.9286D-07, -.5979D-07,
18713 # -.3840D-07, -.2459D-07, -.1567D-07, -.9930D-08, -.6256D-08,
18714 # -.3925D-08/
18715
18716 data (calcpts(j,13), j = 1,neta) /-.1063D-10, -.3297D-10,
18717 # -.2997D-10, -.6987D-10, -.1541D-09, -.1764D-09, -.4019D-09,
18718 # -.7702D-09, -.1329D-08, -.2305D-08, -.4447D-08, -.7561D-08,
18719 # -.1408D-07, -.2476D-07, -.4276D-07, -.7568D-07, -.1385D-06,
18720 # -.2503D-06, -.4271D-06, -.7685D-06, -.1350D-05, -.2407D-05,
18721 # -.4305D-05, -.7545D-05, -.1347D-04, -.2398D-04, -.4235D-04,
18722 # -.7490D-04, -.1318D-03, -.2300D-03, -.3951D-03, -.6661D-03,
18723 # -.1080D-02, -.1670D-02, -.2411D-02, -.3195D-02, -.3840D-02,
18724 # -.4154D-02, -.4059D-02, -.3614D-02, -.2975D-02, -.2302D-02,
18725 # -.1699D-02, -.1211D-02, -.8425D-03, -.5757D-03, -.3887D-03,
18726 # -.2604D-03, -.1735D-03, -.1151D-03, -.7620D-04, -.5031D-04,
18727 # -.3317D-04, -.2184D-04, -.1437D-04, -.9435D-05, -.6194D-05,
18728 # -.4058D-05, -.2655D-05, -.1734D-05, -.1131D-05, -.7362D-06,
18729 # -.4786D-06, -.3101D-06, -.2004D-06, -.1293D-06, -.8305D-07,
18730 # -.5313D-07, -.3392D-07, -.2152D-07, -.1358D-07, -.8518D-08,
18731 # -.5306D-08/
18732
18733 data (calcpts(j,14), j = 1,neta) /-.2328D-10, -.4109D-10,
18734 # -.6336D-10, -.1073D-09, -.2166D-09, -.4000D-09, -.6766D-09,
18735 # -.1298D-08, -.1955D-08, -.3561D-08, -.6533D-08, -.1121D-07,
18736 # -.1965D-07, -.3564D-07, -.6167D-07, -.1104D-06, -.2020D-06,
18737 # -.3533D-06, -.6145D-06, -.1108D-05, -.1935D-05, -.3441D-05,
18738 # -.6092D-05, -.1088D-04, -.1924D-04, -.3402D-04, -.5993D-04,
18739 # -.1058D-03, -.1861D-03, -.3243D-03, -.5572D-03, -.9357D-03,
18740 # -.1517D-02, -.2345D-02, -.3386D-02, -.4491D-02, -.5401D-02,
18741 # -.5853D-02, -.5726D-02, -.5103D-02, -.4204D-02, -.3254D-02,
18742 # -.2401D-02, -.1710D-02, -.1189D-02, -.8120D-03, -.5478D-03,
18743 # -.3666D-03, -.2439D-03, -.1616D-03, -.1069D-03, -.7047D-04,
18744 # -.4639D-04, -.3050D-04, -.2003D-04, -.1314D-04, -.8608D-05,
18745 # -.5629D-05, -.3675D-05, -.2396D-05, -.1559D-05, -.1012D-05,
18746 # -.6559D-06, -.4238D-06, -.2728D-06, -.1752D-06, -.1121D-06,
18747 # -.7147D-07, -.4532D-07, -.2857D-07, -.1789D-07, -.1112D-07,
18748 # -.6848D-08/
18749
18750 data (calcpts(j,15), j = 1,neta) /-.1614D-10, -.4985D-10,
18751 # -.4193D-10, -.9810D-10, -.3052D-09, -.5043D-09, -.7527D-09,
18752 # -.1530D-08, -.2329D-08, -.3894D-08, -.8865D-08, -.1514D-07,
18753 # -.2616D-07, -.4793D-07, -.8227D-07, -.1503D-06, -.2650D-06,
18754 # -.4862D-06, -.8500D-06, -.1523D-05, -.2672D-05, -.4765D-05,
18755 # -.8445D-05, -.1498D-04, -.2667D-04, -.4723D-04, -.8297D-04,
18756 # -.1465D-03, -.2575D-03, -.4472D-03, -.7674D-03, -.1288D-02,
18757 # -.2085D-02, -.3222D-02, -.4654D-02, -.6183D-02, -.7451D-02,
18758 # -.8090D-02, -.7929D-02, -.7077D-02, -.5836D-02, -.4518D-02,
18759 # -.3333D-02, -.2373D-02, -.1648D-02, -.1124D-02, -.7570D-03,
18760 # -.5058D-03, -.3360D-03, -.2222D-03, -.1467D-03, -.9650D-04,
18761 # -.6339D-04, -.4159D-04, -.2725D-04, -.1782D-04, -.1165D-04,
18762 # -.7591D-05, -.4940D-05, -.3209D-05, -.2080D-05, -.1345D-05,
18763 # -.8676D-06, -.5575D-06, -.3569D-06, -.2278D-06, -.1446D-06,
18764 # -.9136D-07, -.5733D-07, -.3575D-07, -.2207D-07, -.1349D-07,
18765 # -.8146D-08/
18766
18767 data (calcpts(j,16), j = 1,neta) /-.3779D-10, -.7818D-10,
18768 # -.8196D-10, -.1363D-09, -.4489D-09, -.6883D-09, -.1116D-08,
18769 # -.2256D-08, -.3465D-08, -.5744D-08, -.1173D-07, -.2133D-07,
18770 # -.3697D-07, -.6801D-07, -.1161D-06, -.2106D-06, -.3768D-06,
18771 # -.6683D-06, -.1181D-05, -.2105D-05, -.3688D-05, -.6626D-05,
18772 # -.1173D-04, -.2059D-04, -.3645D-04, -.6435D-04, -.1129D-03,
18773 # -.1981D-03, -.3482D-03, -.6031D-03, -.1029D-02, -.1724D-02,
18774 # -.2789D-02, -.4304D-02, -.6223D-02, -.8281D-02, -.1000D-01,
18775 # -.1089D-01, -.1071D-01, -.9576D-02, -.7907D-02, -.6124D-02,
18776 # -.4516D-02, -.3212D-02, -.2228D-02, -.1516D-02, -.1019D-02,
18777 # -.6792D-03, -.4498D-03, -.2967D-03, -.1952D-03, -.1281D-03,
18778 # -.8383D-04, -.5480D-04, -.3576D-04, -.2330D-04, -.1516D-04,
18779 # -.9831D-05, -.6362D-05, -.4111D-05, -.2647D-05, -.1699D-05,
18780 # -.1088D-05, -.6925D-06, -.4388D-06, -.2768D-06, -.1733D-06,
18781 # -.1077D-06, -.6648D-07, -.4052D-07, -.2428D-07, -.1431D-07,
18782 # -.8243D-08/
18783
18784 data (calcpts(j,17), j = 1,neta) /-.6224D-10, -.1157D-09,
18785 # -.2071D-09, -.2779D-09, -.5111D-09, -.1001D-08, -.1657D-08,
18786 # -.3073D-08, -.4998D-08, -.8622D-08, -.1677D-07, -.2878D-07,
18787 # -.5099D-07, -.9334D-07, -.1627D-06, -.2805D-06, -.5088D-06,
18788 # -.9048D-06, -.1583D-05, -.2830D-05, -.4949D-05, -.8740D-05,
18789 # -.1552D-04, -.2748D-04, -.4835D-04, -.8505D-04, -.1485D-03,
18790 # -.2604D-03, -.4541D-03, -.7820D-03, -.1333D-02, -.2222D-02,
18791 # -.3583D-02, -.5523D-02, -.7988D-02, -.1065D-01, -.1292D-01,
18792 # -.1413D-01, -.1394D-01, -.1251D-01, -.1035D-01, -.8017D-02,
18793 # -.5909D-02, -.4197D-02, -.2903D-02, -.1970D-02, -.1319D-02,
18794 # -.8760D-03, -.5778D-03, -.3793D-03, -.2484D-03, -.1620D-03,
18795 # -.1055D-03, -.6854D-04, -.4444D-04, -.2874D-04, -.1856D-04,
18796 # -.1194D-04, -.7653D-05, -.4891D-05, -.3114D-05, -.1972D-05,
18797 # -.1244D-05, -.7786D-06, -.4830D-06, -.2973D-06, -.1809D-06,
18798 # -.1085D-06, -.6401D-07, -.3663D-07, -.2033D-07, -.1066D-07,
18799 # -.5102D-08/
18800
18801 data (calcpts(j,18), j = 1,neta) /-.6221D-10, -.1474D-09,
18802 # -.1298D-09, -.3912D-09, -.6718D-09, -.1189D-08, -.2102D-08,
18803 # -.4431D-08, -.5705D-08, -.1121D-07, -.2129D-07, -.3646D-07,
18804 # -.6552D-07, -.1150D-06, -.1978D-06, -.3621D-06, -.6497D-06,
18805 # -.1157D-05, -.2045D-05, -.3569D-05, -.6302D-05, -.1123D-04,
18806 # -.1991D-04, -.3492D-04, -.6120D-04, -.1076D-03, -.1863D-03,
18807 # -.3256D-03, -.5637D-03, -.9672D-03, -.1635D-02, -.2711D-02,
18808 # -.4353D-02, -.6694D-02, -.9686D-02, -.1295D-01, -.1579D-01,
18809 # -.1736D-01, -.1723D-01, -.1553D-01, -.1289D-01, -.9997D-02,
18810 # -.7362D-02, -.5214D-02, -.3594D-02, -.2427D-02, -.1616D-02,
18811 # -.1066D-02, -.6979D-03, -.4545D-03, -.2951D-03, -.1908D-03,
18812 # -.1230D-03, -.7906D-04, -.5065D-04, -.3233D-04, -.2058D-04,
18813 # -.1301D-04, -.8195D-05, -.5126D-05, -.3183D-05, -.1957D-05,
18814 # -.1192D-05, -.7138D-06, -.4200D-06, -.2413D-06, -.1338D-06,
18815 # -.7023D-07, -.3388D-07, -.1335D-07, -.2407D-08, 0.2877D-08,
18816 # 0.4963D-08/
18817
18818 data (calcpts(j,19), j = 1,neta) /-.7602D-10, -.1220D-09,
18819 # -.2737D-09, -.3859D-09, -.9139D-09, -.1511D-08, -.2536D-08,
18820 # -.4168D-08, -.7125D-08, -.1412D-07, -.2662D-07, -.4549D-07,
18821 # -.8145D-07, -.1415D-06, -.2551D-06, -.4471D-06, -.7992D-06,
18822 # -.1408D-05, -.2494D-05, -.4496D-05, -.7735D-05, -.1362D-04,
18823 # -.2398D-04, -.4201D-04, -.7350D-04, -.1277D-03, -.2213D-03,
18824 # -.3840D-03, -.6589D-03, -.1119D-02, -.1875D-02, -.3080D-02,
18825 # -.4910D-02, -.7516D-02, -.1087D-01, -.1458D-01, -.1788D-01,
18826 # -.1984D-01, -.1985D-01, -.1801D-01, -.1501D-01, -.1166D-01,
18827 # -.8571D-02, -.6046D-02, -.4139D-02, -.2772D-02, -.1828D-02,
18828 # -.1192D-02, -.7704D-03, -.4946D-03, -.3161D-03, -.2009D-03,
18829 # -.1269D-03, -.7981D-04, -.4988D-04, -.3093D-04, -.1903D-04,
18830 # -.1158D-04, -.6948D-05, -.4099D-05, -.2360D-05, -.1313D-05,
18831 # -.6978D-06, -.3404D-06, -.1395D-06, -.3238D-07, 0.2071D-07,
18832 # 0.4317D-07, 0.4897D-07, 0.4694D-07, 0.4109D-07, 0.3426D-07,
18833 # 0.2766D-07/
18834
18835 data (calcpts(j,20), j = 1,neta) /-.1486D-09, -.2084D-09,
18836 # -.2156D-09, -.5165D-09, -.1028D-08, -.1695D-08, -.2959D-08,
18837 # -.5026D-08, -.9531D-08, -.1689D-07, -.3069D-07, -.5319D-07,
18838 # -.9289D-07, -.1644D-06, -.2927D-06, -.5169D-06, -.9236D-06,
18839 # -.1621D-05, -.2863D-05, -.5112D-05, -.8725D-05, -.1553D-04,
18840 # -.2730D-04, -.4743D-04, -.8240D-04, -.1426D-03, -.2449D-03,
18841 # -.4185D-03, -.7110D-03, -.1193D-02, -.1971D-02, -.3194D-02,
18842 # -.5033D-02, -.7630D-02, -.1101D-01, -.1480D-01, -.1829D-01,
18843 # -.2051D-01, -.2077D-01, -.1904D-01, -.1596D-01, -.1242D-01,
18844 # -.9104D-02, -.6373D-02, -.4315D-02, -.2845D-02, -.1840D-02,
18845 # -.1173D-02, -.7391D-03, -.4604D-03, -.2842D-03, -.1733D-03,
18846 # -.1043D-03, -.6193D-04, -.3594D-04, -.2030D-04, -.1104D-04,
18847 # -.5610D-05, -.2531D-05, -.8511D-06, 0.3114D-08, 0.4043D-06,
18848 # 0.5460D-06, 0.5568D-06, 0.5061D-06, 0.4303D-06, 0.3510D-06,
18849 # 0.2788D-06, 0.2167D-06, 0.1660D-06, 0.1256D-06, 0.9417D-07,
18850 # 0.6990D-07/
18851
18852 data (calcpts(j,21), j = 1,neta) /-.5347D-10, -.2247D-09,
18853 # -.2536D-09, -.4946D-09, -.1075D-08, -.1854D-08, -.3507D-08,
18854 # -.6687D-08, -.9907D-08, -.1667D-07, -.3265D-07, -.5625D-07,
18855 # -.9228D-07, -.1809D-06, -.3111D-06, -.5438D-06, -.9714D-06,
18856 # -.1708D-05, -.3045D-05, -.5259D-05, -.9173D-05, -.1617D-04,
18857 # -.2835D-04, -.4914D-04, -.8478D-04, -.1455D-03, -.2474D-03,
18858 # -.4174D-03, -.6997D-03, -.1152D-02, -.1866D-02, -.2962D-02,
18859 # -.4565D-02, -.6829D-02, -.9739D-02, -.1308D-01, -.1630D-01,
18860 # -.1854D-01, -.1909D-01, -.1776D-01, -.1503D-01, -.1172D-01,
18861 # -.8532D-02, -.5885D-02, -.3892D-02, -.2485D-02, -.1542D-02,
18862 # -.9325D-03, -.5493D-03, -.3140D-03, -.1730D-03, -.9005D-04,
18863 # -.4266D-04, -.1663D-04, -.2895D-05, 0.3602D-05, 0.6205D-05,
18864 # 0.6783D-05, 0.6345D-05, 0.5478D-05, 0.4528D-05, 0.3614D-05,
18865 # 0.2823D-05, 0.2169D-05, 0.1646D-05, 0.1236D-05, 0.9190D-06,
18866 # 0.6792D-06, 0.4982D-06, 0.3639D-06, 0.2646D-06, 0.1917D-06,
18867 # 0.1382D-06/
18868
18869 data (calcpts(j,22), j = 1,neta) /-.1087D-09, -.2056D-09,
18870 # -.2857D-09, -.4519D-09, -.1035D-08, -.1817D-08, -.3161D-08,
18871 # -.6500D-08, -.8736D-08, -.1626D-07, -.3079D-07, -.5446D-07,
18872 # -.9652D-07, -.1794D-06, -.3003D-06, -.5267D-06, -.9420D-06,
18873 # -.1654D-05, -.2896D-05, -.5136D-05, -.8853D-05, -.1543D-04,
18874 # -.2682D-04, -.4618D-04, -.7917D-04, -.1347D-03, -.2258D-03,
18875 # -.3773D-03, -.6192D-03, -.9964D-03, -.1572D-02, -.2419D-02,
18876 # -.3614D-02, -.5217D-02, -.7271D-02, -.9648D-02, -.1207D-01,
18877 # -.1397D-01, -.1470D-01, -.1397D-01, -.1198D-01, -.9338D-02,
18878 # -.6697D-02, -.4463D-02, -.2789D-02, -.1633D-02, -.8906D-03,
18879 # -.4390D-03, -.1801D-03, -.4064D-04, 0.2741D-04, 0.5574D-04,
18880 # 0.6281D-04, 0.5925D-04, 0.5137D-04, 0.4233D-04, 0.3375D-04,
18881 # 0.2630D-04, 0.2016D-04, 0.1524D-04, 0.1141D-04, 0.8462D-05,
18882 # 0.6232D-05, 0.4565D-05, 0.3327D-05, 0.2415D-05, 0.1745D-05,
18883 # 0.1257D-05, 0.9025D-06, 0.6467D-06, 0.4621D-06, 0.3295D-06,
18884 # 0.2345D-06/
18885
18886 data (calcpts(j,23), j = 1,neta) /-.7139D-10, -.2032D-09,
18887 # -.2202D-09, -.4896D-09, -.9366D-09, -.1551D-08, -.2642D-08,
18888 # -.4985D-08, -.8101D-08, -.1518D-07, -.2690D-07, -.4750D-07,
18889 # -.8275D-07, -.1502D-06, -.2509D-06, -.4601D-06, -.8073D-06,
18890 # -.1424D-05, -.2501D-05, -.4335D-05, -.7507D-05, -.1324D-04,
18891 # -.2278D-04, -.3909D-04, -.6652D-04, -.1117D-03, -.1864D-03,
18892 # -.3059D-03, -.4916D-03, -.7702D-03, -.1172D-02, -.1726D-02,
18893 # -.2437D-02, -.3320D-02, -.4357D-02, -.5539D-02, -.6817D-02,
18894 # -.7998D-02, -.8679D-02, -.8506D-02, -.7418D-02, -.5731D-02,
18895 # -.3914D-02, -.2337D-02, -.1169D-02, -.4055D-03, 0.3533D-04,
18896 # 0.2515D-03, 0.3307D-03, 0.3336D-03, 0.2995D-03, 0.2522D-03,
18897 # 0.2037D-03, 0.1599D-03, 0.1229D-03, 0.9307D-04, 0.6966D-04,
18898 # 0.5164D-04, 0.3801D-04, 0.2780D-04, 0.2022D-04, 0.1464D-04,
18899 # 0.1056D-04, 0.7597D-05, 0.5449D-05, 0.3897D-05, 0.2780D-05,
18900 # 0.1980D-05, 0.1407D-05, 0.9980D-06, 0.7070D-06, 0.5001D-06,
18901 # 0.3532D-06/
18902
18903 data (calcpts(j,24), j = 1,neta) /-.6663D-10, -.1430D-09,
18904 # -.2377D-09, -.3509D-09, -.6307D-09, -.1200D-08, -.2150D-08,
18905 # -.3945D-08, -.6802D-08, -.1085D-07, -.2096D-07, -.3674D-07,
18906 # -.6488D-07, -.1169D-06, -.1955D-06, -.3622D-06, -.6396D-06,
18907 # -.1117D-05, -.1942D-05, -.3415D-05, -.5853D-05, -.1026D-04,
18908 # -.1762D-04, -.2996D-04, -.5068D-04, -.8471D-04, -.1387D-03,
18909 # -.2242D-03, -.3522D-03, -.5364D-03, -.7826D-03, -.1086D-02,
18910 # -.1409D-02, -.1705D-02, -.1925D-02, -.2067D-02, -.2263D-02,
18911 # -.2561D-02, -.2916D-02, -.3021D-02, -.2667D-02, -.1883D-02,
18912 # -.9116D-03, -.3166D-04, 0.5909D-03, 0.9319D-03, 0.1045D-02,
18913 # 0.1008D-02, 0.8924D-03, 0.7462D-03, 0.6003D-03, 0.4697D-03,
18914 # 0.3600D-03, 0.2715D-03, 0.2024D-03, 0.1493D-03, 0.1095D-03,
18915 # 0.7967D-04, 0.5773D-04, 0.4164D-04, 0.2993D-04, 0.2145D-04,
18916 # 0.1532D-04, 0.1093D-04, 0.7775D-05, 0.5521D-05, 0.3914D-05,
18917 # 0.2770D-05, 0.1958D-05, 0.1382D-05, 0.9741D-06, 0.6859D-06,
18918 # 0.4824D-06/
18919
18920 data (calcpts(j,25), j = 1,neta) /-.4096D-10, -.1024D-09,
18921 # -.1250D-09, -.3239D-09, -.5429D-09, -.8035D-09, -.1449D-08,
18922 # -.2800D-08, -.4499D-08, -.7629D-08, -.1569D-07, -.2552D-07,
18923 # -.4639D-07, -.8264D-07, -.1419D-06, -.2453D-06, -.4483D-06,
18924 # -.7893D-06, -.1374D-05, -.2390D-05, -.4106D-05, -.7060D-05,
18925 # -.1218D-04, -.2085D-04, -.3488D-04, -.5793D-04, -.9397D-04,
18926 # -.1492D-03, -.2306D-03, -.3418D-03, -.4774D-03, -.6178D-03,
18927 # -.7062D-03, -.6706D-03, -.4351D-03, 0.5732D-05, 0.5147D-03,
18928 # 0.8986D-03, 0.1007D-02, 0.9469D-03, 0.9506D-03, 0.1159D-02,
18929 # 0.1518D-02, 0.1865D-02, 0.2064D-02, 0.2073D-02, 0.1925D-02,
18930 # 0.1681D-02, 0.1401D-02, 0.1126D-02, 0.8806D-03, 0.6745D-03,
18931 # 0.5082D-03, 0.3782D-03, 0.2785D-03, 0.2036D-03, 0.1479D-03,
18932 # 0.1069D-03, 0.7687D-04, 0.5511D-04, 0.3939D-04, 0.2808D-04,
18933 # 0.1997D-04, 0.1418D-04, 0.1005D-04, 0.7106D-05, 0.5020D-05,
18934 # 0.3543D-05, 0.2496D-05, 0.1757D-05, 0.1235D-05, 0.8675D-06,
18935 # 0.6088D-06/
18936
18937 data (calcpts(j,26), j = 1,neta) /-.2490D-10, -.4478D-10,
18938 # -.7078D-10, -.1422D-09, -.2641D-09, -.4349D-09, -.8422D-09,
18939 # -.1633D-08, -.2776D-08, -.5104D-08, -.9995D-08, -.1603D-07,
18940 # -.2874D-07, -.5237D-07, -.8911D-07, -.1598D-06, -.2803D-06,
18941 # -.5038D-06, -.8796D-06, -.1533D-05, -.2617D-05, -.4537D-05,
18942 # -.7801D-05, -.1317D-04, -.2206D-04, -.3644D-04, -.5860D-04,
18943 # -.9246D-04, -.1406D-03, -.2029D-03, -.2731D-03, -.3271D-03,
18944 # -.3154D-03, -.1690D-03, 0.1905D-03, 0.7872D-03, 0.1531D-02,
18945 # 0.2217D-02, 0.2644D-02, 0.2781D-02, 0.2773D-02, 0.2790D-02,
18946 # 0.2883D-02, 0.2974D-02, 0.2965D-02, 0.2807D-02, 0.2523D-02,
18947 # 0.2162D-02, 0.1780D-02, 0.1420D-02, 0.1104D-02, 0.8416D-03,
18948 # 0.6316D-03, 0.4681D-03, 0.3436D-03, 0.2503D-03, 0.1812D-03,
18949 # 0.1305D-03, 0.9363D-04, 0.6694D-04, 0.4772D-04, 0.3394D-04,
18950 # 0.2408D-04, 0.1706D-04, 0.1206D-04, 0.8518D-05, 0.6007D-05,
18951 # 0.4231D-05, 0.2976D-05, 0.2092D-05, 0.1468D-05, 0.1030D-05,
18952 # 0.7222D-06/
18953
18954 data (calcpts(j,27), j = 1,neta) /-.1861D-10, -.4714D-10,
18955 # -.5830D-10, -.1150D-09, -.2267D-09, -.3674D-09, -.6322D-09,
18956 # -.1213D-08, -.1915D-08, -.3361D-08, -.6083D-08, -.1054D-07,
18957 # -.1793D-07, -.3229D-07, -.5634D-07, -.9872D-07, -.1754D-06,
18958 # -.3049D-06, -.5304D-06, -.9291D-06, -.1583D-05, -.2729D-05,
18959 # -.4670D-05, -.7874D-05, -.1317D-04, -.2164D-04, -.3451D-04,
18960 # -.5416D-04, -.8138D-04, -.1156D-03, -.1509D-03, -.1696D-03,
18961 # -.1364D-03, 0.1381D-05, 0.3043D-03, 0.8057D-03, 0.1457D-02,
18962 # 0.2117D-02, 0.2619D-02, 0.2886D-02, 0.2985D-02, 0.3045D-02,
18963 # 0.3136D-02, 0.3219D-02, 0.3210D-02, 0.3060D-02, 0.2775D-02,
18964 # 0.2400D-02, 0.1996D-02, 0.1603D-02, 0.1254D-02, 0.9594D-03,
18965 # 0.7220D-03, 0.5360D-03, 0.3939D-03, 0.2869D-03, 0.2078D-03,
18966 # 0.1496D-03, 0.1072D-03, 0.7659D-04, 0.5455D-04, 0.3875D-04,
18967 # 0.2748D-04, 0.1944D-04, 0.1374D-04, 0.9692D-05, 0.6829D-05,
18968 # 0.4805D-05, 0.3378D-05, 0.2372D-05, 0.1665D-05, 0.1167D-05,
18969 # 0.8173D-06/
18970
18971 data (calcpts(j,28), j = 1,neta) /-.1221D-10, -.1892D-10,
18972 # -.3565D-10, -.6203D-10, -.1164D-09, -.2009D-09, -.3449D-09,
18973 # -.6346D-09, -.9467D-09, -.1799D-08, -.3369D-08, -.5811D-08,
18974 # -.1014D-07, -.1789D-07, -.3099D-07, -.5488D-07, -.9664D-07,
18975 # -.1698D-06, -.2948D-06, -.5086D-06, -.8873D-06, -.1524D-05,
18976 # -.2600D-05, -.4375D-05, -.7292D-05, -.1205D-04, -.1922D-04,
18977 # -.2985D-04, -.4471D-04, -.6283D-04, -.8037D-04, -.8662D-04,
18978 # -.5937D-04, 0.3383D-04, 0.2353D-03, 0.5676D-03, 0.1014D-02,
18979 # 0.1492D-02, 0.1891D-02, 0.2147D-02, 0.2293D-02, 0.2421D-02,
18980 # 0.2591D-02, 0.2779D-02, 0.2896D-02, 0.2874D-02, 0.2698D-02,
18981 # 0.2404D-02, 0.2044D-02, 0.1673D-02, 0.1327D-02, 0.1026D-02,
18982 # 0.7784D-03, 0.5813D-03, 0.4289D-03, 0.3133D-03, 0.2274D-03,
18983 # 0.1638D-03, 0.1176D-03, 0.8402D-04, 0.5985D-04, 0.4252D-04,
18984 # 0.3015D-04, 0.2132D-04, 0.1506D-04, 0.1062D-04, 0.7483D-05,
18985 # 0.5265D-05, 0.3700D-05, 0.2597D-05, 0.1821D-05, 0.1277D-05,
18986 # 0.8940D-06/
18987
18988 data (calcpts(j,29), j = 1,neta) /-.4983D-11, -.9790D-11,
18989 # -.1290D-10, -.3188D-10, -.5737D-10, -.9069D-10, -.1687D-09,
18990 # -.3056D-09, -.4990D-09, -.9079D-09, -.1750D-08, -.2956D-08,
18991 # -.5178D-08, -.9420D-08, -.1603D-07, -.2899D-07, -.5115D-07,
18992 # -.8900D-07, -.1549D-06, -.2717D-06, -.4668D-06, -.8112D-06,
18993 # -.1373D-05, -.2324D-05, -.3879D-05, -.6359D-05, -.1017D-04,
18994 # -.1589D-04, -.2369D-04, -.3311D-04, -.4219D-04, -.4462D-04,
18995 # -.2846D-04, 0.2510D-04, 0.1398D-03, 0.3315D-03, 0.5920D-03,
18996 # 0.8776D-03, 0.1124D-02, 0.1291D-02, 0.1397D-02, 0.1514D-02,
18997 # 0.1710D-02, 0.1973D-02, 0.2224D-02, 0.2368D-02, 0.2357D-02,
18998 # 0.2201D-02, 0.1943D-02, 0.1636D-02, 0.1327D-02, 0.1045D-02,
18999 # 0.8027D-03, 0.6054D-03, 0.4498D-03, 0.3305D-03, 0.2406D-03,
19000 # 0.1739D-03, 0.1250D-03, 0.8948D-04, 0.6380D-04, 0.4535D-04,
19001 # 0.3216D-04, 0.2276D-04, 0.1608D-04, 0.1134D-04, 0.7988D-05,
19002 # 0.5620D-05, 0.3948D-05, 0.2772D-05, 0.1944D-05, 0.1362D-05,
19003 # 0.9538D-06/
19004
19005 data (calcpts(j,30), j = 1,neta) /-.2854D-11, -.4437D-11,
19006 # -.7638D-11, -.1380D-10, -.2918D-10, -.5391D-10, -.8799D-10,
19007 # -.1632D-09, -.2688D-09, -.4775D-09, -.8800D-09, -.1564D-08,
19008 # -.2775D-08, -.4964D-08, -.8434D-08, -.1488D-07, -.2652D-07,
19009 # -.4610D-07, -.8079D-07, -.1414D-06, -.2420D-06, -.4168D-06,
19010 # -.7136D-06, -.1200D-05, -.2009D-05, -.3292D-05, -.5263D-05,
19011 # -.8193D-05, -.1227D-04, -.1725D-04, -.2189D-04, -.2334D-04,
19012 # -.1515D-04, 0.1224D-04, 0.7142D-04, 0.1709D-03, 0.3063D-03,
19013 # 0.4543D-03, 0.5785D-03, 0.6537D-03, 0.6912D-03, 0.7457D-03,
19014 # 0.8840D-03, 0.1130D-02, 0.1433D-02, 0.1699D-02, 0.1847D-02,
19015 # 0.1847D-02, 0.1719D-02, 0.1508D-02, 0.1263D-02, 0.1019D-02,
19016 # 0.7975D-03, 0.6098D-03, 0.4581D-03, 0.3392D-03, 0.2483D-03,
19017 # 0.1804D-03, 0.1300D-03, 0.9327D-04, 0.6661D-04, 0.4742D-04,
19018 # 0.3365D-04, 0.2383D-04, 0.1684D-04, 0.1188D-04, 0.8370D-05,
19019 # 0.5889D-05, 0.4138D-05, 0.2905D-05, 0.2038D-05, 0.1428D-05,
19020 # 0.9997D-06/
19021
19022 data (calcpts(j,31), j = 1,neta) /-.9247D-12, -.2620D-11,
19023 # -.4429D-11, -.7357D-11, -.1432D-10, -.2601D-10, -.4498D-10,
19024 # -.8562D-10, -.1330D-09, -.2509D-09, -.4525D-09, -.7727D-09,
19025 # -.1383D-08, -.2448D-08, -.4206D-08, -.7491D-08, -.1325D-07,
19026 # -.2328D-07, -.4055D-07, -.7122D-07, -.1212D-06, -.2087D-06,
19027 # -.3586D-06, -.6048D-06, -.1010D-05, -.1663D-05, -.2651D-05,
19028 # -.4146D-05, -.6220D-05, -.8759D-05, -.1125D-04, -.1221D-04,
19029 # -.8548D-05, 0.4577D-05, 0.3298D-04, 0.8095D-04, 0.1456D-03,
19030 # 0.2140D-03, 0.2653D-03, 0.2830D-03, 0.2709D-03, 0.2637D-03,
19031 # 0.3173D-03, 0.4761D-03, 0.7347D-03, 0.1029D-02, 0.1273D-02,
19032 # 0.1403D-02, 0.1407D-02, 0.1307D-02, 0.1142D-02, 0.9523D-03,
19033 # 0.7647D-03, 0.5962D-03, 0.4544D-03, 0.3402D-03, 0.2512D-03,
19034 # 0.1834D-03, 0.1329D-03, 0.9566D-04, 0.6849D-04, 0.4883D-04,
19035 # 0.3470D-04, 0.2460D-04, 0.1740D-04, 0.1228D-04, 0.8652D-05,
19036 # 0.6089D-05, 0.4280D-05, 0.3004D-05, 0.2107D-05, 0.1477D-05,
19037 # 0.1034D-05/
19038
19039 data (calcpts(j,32), j = 1,neta) /0.2151D-11, 0.8299D-12,
19040 # 0.1550D-11, -.1431D-11, -.5444D-11, -.1006D-10, -.1886D-10,
19041 # -.3642D-10, -.5890D-10, -.1180D-09, -.2167D-09, -.3646D-09,
19042 # -.6557D-09, -.1191D-08, -.2029D-08, -.3601D-08, -.6539D-08,
19043 # -.1130D-07, -.1982D-07, -.3464D-07, -.5947D-07, -.1027D-06,
19044 # -.1758D-06, -.2982D-06, -.4972D-06, -.8188D-06, -.1314D-05,
19045 # -.2050D-05, -.3091D-05, -.4386D-05, -.5697D-05, -.6336D-05,
19046 # -.4837D-05, 0.1010D-05, 0.1405D-04, 0.3593D-04, 0.6474D-04,
19047 # 0.9324D-04, 0.1093D-03, 0.1019D-03, 0.7001D-04, 0.3092D-04,
19048 # 0.2157D-04, 0.8568D-04, 0.2472D-03, 0.4866D-03, 0.7427D-03,
19049 # 0.9454D-03, 0.1051D-02, 0.1053D-02, 0.9759D-03, 0.8503D-03,
19050 # 0.7063D-03, 0.5654D-03, 0.4394D-03, 0.3339D-03, 0.2494D-03,
19051 # 0.1837D-03, 0.1339D-03, 0.9681D-04, 0.6956D-04, 0.4972D-04,
19052 # 0.3540D-04, 0.2512D-04, 0.1779D-04, 0.1256D-04, 0.8858D-05,
19053 # 0.6235D-05, 0.4384D-05, 0.3079D-05, 0.2160D-05, 0.1514D-05,
19054 # 0.1060D-05/
19055
19056 data (calcpts(j,33), j = 1,neta) /-.4830D-11, -.3510D-11,
19057 # -.2885D-11, -.2197D-11, -.5301D-11, -.7682D-11, -.1224D-10,
19058 # -.2146D-10, -.3607D-10, -.6335D-10, -.1117D-09, -.1940D-09,
19059 # -.3413D-09, -.6064D-09, -.1037D-08, -.1847D-08, -.3234D-08,
19060 # -.5704D-08, -.9849D-08, -.1719D-07, -.2943D-07, -.5075D-07,
19061 # -.8699D-07, -.1473D-06, -.2450D-06, -.4040D-06, -.6487D-06,
19062 # -.1017D-05, -.1536D-05, -.2197D-05, -.2877D-05, -.3300D-05,
19063 # -.2760D-05, -.2738D-06, 0.5417D-05, 0.1496D-04, 0.2710D-04,
19064 # 0.3770D-04, 0.3981D-04, 0.2627D-04, -.5854D-05, -.5007D-04,
19065 # -.8679D-04, -.8547D-04, -.1608D-04, 0.1319D-03, 0.3348D-03,
19066 # 0.5416D-03, 0.6997D-03, 0.7792D-03, 0.7796D-03, 0.7201D-03,
19067 # 0.6254D-03, 0.5179D-03, 0.4134D-03, 0.3205D-03, 0.2430D-03,
19068 # 0.1811D-03, 0.1331D-03, 0.9683D-04, 0.6990D-04, 0.5014D-04,
19069 # 0.3579D-04, 0.2544D-04, 0.1804D-04, 0.1276D-04, 0.9000D-05,
19070 # 0.6340D-05, 0.4459D-05, 0.3132D-05, 0.2198D-05, 0.1540D-05,
19071 # 0.1079D-05/
19072
19073 data (calcpts(j,34), j = 1,neta) /-.4478D-11, -.5153D-11,
19074 # -.5308D-11, -.4177D-11, -.4213D-11, -.4759D-11, -.5756D-11,
19075 # -.1097D-10, -.1695D-10, -.2947D-10, -.5351D-10, -.9124D-10,
19076 # -.1597D-09, -.2835D-09, -.5010D-09, -.8807D-09, -.1553D-08,
19077 # -.2698D-08, -.4757D-08, -.8210D-08, -.1417D-07, -.2437D-07,
19078 # -.4186D-07, -.7064D-07, -.1181D-06, -.1950D-06, -.3131D-06,
19079 # -.4943D-06, -.7498D-06, -.1078D-05, -.1435D-05, -.1678D-05,
19080 # -.1527D-05, -.5054D-06, 0.1898D-05, 0.5895D-05, 0.1073D-04,
19081 # 0.1406D-04, 0.1199D-04, 0.9194D-07, -.2455D-04, -.6061D-04,
19082 # -.9966D-04, -.1249D-03, -.1138D-03, -.4696D-04, 0.7833D-04,
19083 # 0.2402D-03, 0.3989D-03, 0.5166D-03, 0.5738D-03, 0.5720D-03,
19084 # 0.5266D-03, 0.4559D-03, 0.3765D-03, 0.2997D-03, 0.2318D-03,
19085 # 0.1754D-03, 0.1305D-03, 0.9577D-04, 0.6957D-04, 0.5013D-04,
19086 # 0.3592D-04, 0.2560D-04, 0.1818D-04, 0.1287D-04, 0.9093D-05,
19087 # 0.6410D-05, 0.4511D-05, 0.3170D-05, 0.2224D-05, 0.1560D-05,
19088 # 0.1093D-05/
19089
19090 data (calcpts(j,35), j = 1,neta) /-.1445D-10, -.1011D-11,
19091 # 0.7187D-12, -.4568D-11, -.1821D-11, -.4338D-11, -.3443D-11,
19092 # -.5130D-11, -.7749D-11, -.1404D-10, -.2392D-10, -.4275D-10,
19093 # -.7507D-10, -.1339D-09, -.2362D-09, -.4118D-09, -.7348D-09,
19094 # -.1279D-08, -.2235D-08, -.3895D-08, -.6681D-08, -.1161D-07,
19095 # -.1988D-07, -.3368D-07, -.5648D-07, -.9351D-07, -.1508D-06,
19096 # -.2386D-06, -.3626D-06, -.5248D-06, -.7084D-06, -.8508D-06,
19097 # -.8231D-06, -.4278D-06, 0.5567D-06, 0.2181D-05, 0.3960D-05,
19098 # 0.4671D-05, 0.2131D-05, -.6248D-05, -.2267D-04, -.4762D-04,
19099 # -.7831D-04, -.1071D-03, -.1211D-03, -.1046D-03, -.4569D-04,
19100 # 0.5467D-04, 0.1784D-03, 0.2957D-03, 0.3805D-03, 0.4201D-03,
19101 # 0.4170D-03, 0.3824D-03, 0.3301D-03, 0.2720D-03, 0.2161D-03,
19102 # 0.1668D-03, 0.1260D-03, 0.9353D-04, 0.6854D-04, 0.4972D-04,
19103 # 0.3579D-04, 0.2560D-04, 0.1822D-04, 0.1293D-04, 0.9145D-05,
19104 # 0.6452D-05, 0.4545D-05, 0.3195D-05, 0.2244D-05, 0.1573D-05,
19105 # 0.1102D-05/
19106
19107 data (calcpts(j,36), j = 1,neta) /0.6876D-11, -.4528D-12,
19108 # 0.3776D-11, 0.3938D-12, -.4144D-11, 0.7553D-12, -.3980D-11,
19109 # -.1515D-11, -.4962D-11, -.7698D-11, -.1130D-10, -.2065D-10,
19110 # -.3616D-10, -.6477D-10, -.1112D-09, -.1966D-09, -.3543D-09,
19111 # -.6119D-09, -.1063D-08, -.1860D-08, -.3216D-08, -.5546D-08,
19112 # -.9528D-08, -.1609D-07, -.2715D-07, -.4477D-07, -.7242D-07,
19113 # -.1148D-06, -.1757D-06, -.2565D-06, -.3483D-06, -.4296D-06,
19114 # -.4394D-06, -.2954D-06, 0.9171D-07, 0.7169D-06, 0.1319D-05,
19115 # 0.1220D-05, -.7291D-06, -.6002D-05, -.1603D-04, -.3165D-04,
19116 # -.5234D-04, -.7523D-04, -.9426D-04, -.1001D-03, -.8223D-04,
19117 # -.3349D-04, 0.4377D-04, 0.1353D-03, 0.2199D-03, 0.2796D-03,
19118 # 0.3062D-03, 0.3022D-03, 0.2761D-03, 0.2377D-03, 0.1954D-03,
19119 # 0.1549D-03, 0.1194D-03, 0.9004D-04, 0.6675D-04, 0.4884D-04,
19120 # 0.3538D-04, 0.2544D-04, 0.1818D-04, 0.1293D-04, 0.9162D-05,
19121 # 0.6474D-05, 0.4563D-05, 0.3211D-05, 0.2256D-05, 0.1582D-05,
19122 # 0.1109D-05/
19123
19124 data (calcpts(j,37), j = 1,neta) /0.3214D-11, 0.2471D-11,
19125 # 0.1989D-11, 0.4786D-11, 0.2349D-11, -.4747D-11, 0.3463D-12,
19126 # 0.2695D-12, -.4435D-13, -.1458D-11, -.6294D-11, -.9686D-11,
19127 # -.1874D-10, -.2966D-10, -.5306D-10, -.9410D-10, -.1660D-09,
19128 # -.2915D-09, -.5026D-09, -.8926D-09, -.1533D-08, -.2640D-08,
19129 # -.4533D-08, -.7698D-08, -.1291D-07, -.2141D-07, -.3468D-07,
19130 # -.5509D-07, -.8459D-07, -.1242D-06, -.1711D-06, -.2145D-06,
19131 # -.2301D-06, -.1838D-06, -.3719D-07, 0.1903D-06, 0.3566D-06,
19132 # 0.1064D-06, -.1167D-05, -.4265D-05, -.1005D-04, -.1920D-04,
19133 # -.3191D-04, -.4735D-04, -.6312D-04, -.7473D-04, -.7563D-04,
19134 # -.5884D-04, -.2025D-04, 0.3754D-04, 0.1038D-03, 0.1636D-03,
19135 # 0.2047D-03, 0.2223D-03, 0.2181D-03, 0.1986D-03, 0.1705D-03,
19136 # 0.1398D-03, 0.1107D-03, 0.8517D-04, 0.6412D-04, 0.4747D-04,
19137 # 0.3469D-04, 0.2511D-04, 0.1803D-04, 0.1287D-04, 0.9141D-05,
19138 # 0.6472D-05, 0.4569D-05, 0.3217D-05, 0.2262D-05, 0.1588D-05,
19139 # 0.1113D-05/
19140
19141 data (calcpts(j,38), j = 1,neta) /0.2265D-10, -.4611D-11,
19142 # 0.1382D-10, 0.1316D-10, -.3562D-11, -.2469D-11, -.3007D-12,
19143 # -.6720D-11, 0.3697D-11, -.9792D-12, -.1845D-11, -.3928D-11,
19144 # -.8268D-11, -.1260D-10, -.2389D-10, -.4290D-10, -.7696D-10,
19145 # -.1363D-09, -.2383D-09, -.4171D-09, -.7147D-09, -.1251D-08,
19146 # -.2138D-08, -.3636D-08, -.6118D-08, -.1016D-07, -.1648D-07,
19147 # -.2633D-07, -.4057D-07, -.5986D-07, -.8323D-07, -.1064D-06,
19148 # -.1190D-06, -.1063D-06, -.5577D-07, 0.2084D-07, 0.4457D-07,
19149 # -.1681D-06, -.9323D-06, -.2673D-05, -.5877D-05, -.1100D-04,
19150 # -.1834D-04, -.2781D-04, -.3861D-04, -.4890D-04, -.5543D-04,
19151 # -.5375D-04, -.3926D-04, -.9647D-05, 0.3266D-04, 0.7984D-04,
19152 # 0.1215D-03, 0.1495D-03, 0.1608D-03, 0.1569D-03, 0.1422D-03,
19153 # 0.1218D-03, 0.9973D-04, 0.7881D-04, 0.6055D-04, 0.4554D-04,
19154 # 0.3367D-04, 0.2458D-04, 0.1776D-04, 0.1274D-04, 0.9085D-05,
19155 # 0.6448D-05, 0.4561D-05, 0.3217D-05, 0.2265D-05, 0.1590D-05,
19156 # 0.1116D-05/
19157
19158 data (calcpts(j,39), j = 1,neta) /0.8899D-11, 0.2293D-10,
19159 # 0.1677D-11, -.1608D-10, 0.2425D-11, -.1380D-10, 0.4994D-11,
19160 # 0.2777D-12, 0.8584D-11, 0.6138D-11, 0.2812D-11, 0.1515D-11,
19161 # -.1299D-11, -.8634D-11, -.1286D-10, -.2092D-10, -.3649D-10,
19162 # -.6586D-10, -.1145D-09, -.2014D-09, -.3462D-09, -.5964D-09,
19163 # -.1022D-08, -.1742D-08, -.2924D-08, -.4869D-08, -.7902D-08,
19164 # -.1260D-07, -.1952D-07, -.2905D-07, -.4074D-07, -.5301D-07,
19165 # -.6136D-07, -.5983D-07, -.4423D-07, -.2299D-07, -.3755D-07,
19166 # -.1818D-06, -.6164D-06, -.1563D-05, -.3287D-05, -.6063D-05,
19167 # -.1012D-04, -.1557D-04, -.2225D-04, -.2948D-04, -.3591D-04,
19168 # -.3926D-04, -.3647D-04, -.2462D-04, -.2424D-05, 0.2807D-04,
19169 # 0.6125D-04, 0.8998D-04, 0.1088D-03, 0.1158D-03, 0.1124D-03,
19170 # 0.1016D-03, 0.8679D-04, 0.7093D-04, 0.5596D-04, 0.4296D-04,
19171 # 0.3226D-04, 0.2383D-04, 0.1737D-04, 0.1254D-04, 0.8988D-05,
19172 # 0.6403D-05, 0.4540D-05, 0.3208D-05, 0.2262D-05, 0.1590D-05,
19173 # 0.1116D-05/
19174
19175 data (calcpts(j,40), j = 1,neta) /0.3289D-10, 0.2708D-10,
19176 # 0.3539D-10, -.6742D-11, 0.5593D-11, 0.7691D-11, 0.2261D-10,
19177 # 0.8058D-11, -.1388D-12, 0.9135D-11, 0.1398D-10, -.2515D-11,
19178 # 0.1087D-11, -.2156D-11, -.3048D-11, -.1035D-10, -.1705D-10,
19179 # -.3096D-10, -.5363D-10, -.9460D-10, -.1621D-09, -.2806D-09,
19180 # -.4827D-09, -.8212D-09, -.1382D-08, -.2294D-08, -.3755D-08,
19181 # -.5997D-08, -.9319D-08, -.1391D-07, -.1973D-07, -.2600D-07,
19182 # -.3104D-07, -.3247D-07, -.2878D-07, -.2572D-07, -.4432D-07,
19183 # -.1324D-06, -.3711D-06, -.8743D-06, -.1782D-05, -.3251D-05,
19184 # -.5431D-05, -.8440D-05, -.1229D-04, -.1682D-04, -.2151D-04,
19185 # -.2537D-04, -.2682D-04, -.2382D-04, -.1447D-04, 0.1894D-05,
19186 # 0.2362D-04, 0.4674D-04, 0.6637D-04, 0.7893D-04, 0.8326D-04,
19187 # 0.8034D-04, 0.7236D-04, 0.6169D-04, 0.5034D-04, 0.3966D-04,
19188 # 0.3040D-04, 0.2281D-04, 0.1683D-04, 0.1226D-04, 0.8842D-05,
19189 # 0.6330D-05, 0.4506D-05, 0.3192D-05, 0.2254D-05, 0.1587D-05,
19190 # 0.1116D-05/
19191
19192 data (calcpts(j,41), j = 1,neta) /0.8070D-10, 0.7208D-10,
19193 # -.9969D-11, 0.4621D-10, 0.3142D-10, 0.1773D-10, 0.2619D-10,
19194 # 0.5520D-11, 0.1387D-10, -.2577D-11, 0.4067D-11, -.4187D-11,
19195 # 0.1809D-11, 0.1111D-11, 0.3716D-11, -.1177D-11, -.5532D-11,
19196 # -.9871D-11, -.2146D-10, -.4289D-10, -.7489D-10, -.1314D-09,
19197 # -.2265D-09, -.3856D-09, -.6518D-09, -.1086D-08, -.1774D-08,
19198 # -.2838D-08, -.4438D-08, -.6668D-08, -.9526D-08, -.1275D-07,
19199 # -.1562D-07, -.1721D-07, -.1718D-07, -.1892D-07, -.3309D-07,
19200 # -.8376D-07, -.2116D-06, -.4746D-06, -.9454D-06, -.1708D-05,
19201 # -.2854D-05, -.4465D-05, -.6595D-05, -.9230D-05, -.1222D-04,
19202 # -.1518D-04, -.1741D-04, -.1781D-04, -.1502D-04, -.7817D-05,
19203 # 0.4090D-05, 0.1945D-04, 0.3544D-04, 0.4878D-04, 0.5709D-04,
19204 # 0.5967D-04, 0.5728D-04, 0.5143D-04, 0.4375D-04, 0.3564D-04,
19205 # 0.2805D-04, 0.2148D-04, 0.1609D-04, 0.1187D-04, 0.8635D-05,
19206 # 0.6223D-05, 0.4450D-05, 0.3165D-05, 0.2241D-05, 0.1581D-05,
19207 # 0.1113D-05/
19208
19209 data (calcpts(j,42), j = 1,neta) /-.5846D-10, -.7014D-10,
19210 # -.5778D-10, -.1180D-09, -.2375D-10, -.5015D-10, -.7008D-11,
19211 # 0.8792D-11, -.1201D-10, -.3614D-10, -.1938D-10, -.1763D-10,
19212 # 0.7249D-11, -.6352D-11, -.4248D-11, -.9391D-11, -.7513D-11,
19213 # -.1266D-10, -.1417D-10, -.2237D-10, -.3978D-10, -.6331D-10,
19214 # -.1093D-09, -.1839D-09, -.3089D-09, -.5148D-09, -.8423D-09,
19215 # -.1355D-08, -.2121D-08, -.3203D-08, -.4610D-08, -.6246D-08,
19216 # -.7828D-08, -.9010D-08, -.9846D-08, -.1204D-07, -.2119D-07,
19217 # -.4927D-07, -.1165D-06, -.2519D-06, -.4931D-06, -.8844D-06,
19218 # -.1476D-05, -.2321D-05, -.3462D-05, -.4926D-05, -.6685D-05,
19219 # -.8617D-05, -.1044D-04, -.1166D-04, -.1152D-04, -.9118D-05,
19220 # -.3686D-05, 0.4897D-05, 0.1567D-04, 0.2668D-04, 0.3570D-04,
19221 # 0.4116D-04, 0.4267D-04, 0.4075D-04, 0.3648D-04, 0.3097D-04,
19222 # 0.2520D-04, 0.1981D-04, 0.1515D-04, 0.1134D-04, 0.8355D-05,
19223 # 0.6075D-05, 0.4374D-05, 0.3126D-05, 0.2221D-05, 0.1572D-05,
19224 # 0.1108D-05/
19225
19226 data (calcpts(j,43), j = 1,neta) /0.1136D-10, -.8782D-10,
19227 # 0.6688D-10, -.2130D-10, 0.8003D-10, 0.2656D-10, -.1288D-10,
19228 # -.8851D-11, -.1165D-10, -.1624D-11, 0.1652D-11, 0.3481D-11,
19229 # -.9166D-11, -.8690D-11, -.1727D-11, 0.2107D-11, 0.7933D-11,
19230 # -.2786D-11, -.5017D-11, -.1410D-10, -.1768D-10, -.3233D-10,
19231 # -.4968D-10, -.8618D-10, -.1465D-09, -.2441D-09, -.3988D-09,
19232 # -.6432D-09, -.1010D-08, -.1531D-08, -.2219D-08, -.3050D-08,
19233 # -.3898D-08, -.4655D-08, -.5410D-08, -.7109D-08, -.1256D-07,
19234 # -.2769D-07, -.6255D-07, -.1316D-06, -.2538D-06, -.4523D-06,
19235 # -.7542D-06, -.1189D-05, -.1789D-05, -.2576D-05, -.3560D-05,
19236 # -.4712D-05, -.5939D-05, -.7035D-05, -.7651D-05, -.7277D-05,
19237 # -.5307D-05, -.1264D-05, 0.4879D-05, 0.1241D-04, 0.1996D-04,
19238 # 0.2602D-04, 0.2959D-04, 0.3043D-04, 0.2893D-04, 0.2583D-04,
19239 # 0.2188D-04, 0.1779D-04, 0.1397D-04, 0.1067D-04, 0.7984D-05,
19240 # 0.5875D-05, 0.4269D-05, 0.3070D-05, 0.2193D-05, 0.1557D-05,
19241 # 0.1101D-05/
19242
19243 data (calcpts(j,44), j = 1,neta) /0.2906D-09, -.1005D-09,
19244 # -.3852D-10, -.4085D-10, 0.4381D-10, 0.4428D-10, 0.1203D-11,
19245 # -.1534D-10, -.7004D-11, 0.1085D-10, 0.1420D-10, -.1206D-10,
19246 # 0.4450D-11, 0.9734D-11, -.1428D-10, 0.5013D-12, -.3193D-11,
19247 # 0.5180D-11, 0.8894D-12, -.6236D-12, -.1257D-10, -.1550D-10,
19248 # -.2144D-10, -.4033D-10, -.6840D-10, -.1162D-09, -.1881D-09,
19249 # -.3056D-09, -.4808D-09, -.7301D-09, -.1067D-08, -.1479D-08,
19250 # -.1927D-08, -.2374D-08, -.2901D-08, -.3997D-08, -.7078D-08,
19251 # -.1508D-07, -.3295D-07, -.6784D-07, -.1293D-06, -.2292D-06,
19252 # -.3817D-06, -.6034D-06, -.9124D-06, -.1326D-05, -.1859D-05,
19253 # -.2509D-05, -.3253D-05, -.4018D-05, -.4658D-05, -.4929D-05,
19254 # -.4484D-05, -.2922D-05, 0.5770D-07, 0.4431D-05, 0.9675D-05,
19255 # 0.1484D-04, 0.1891D-04, 0.2124D-04, 0.2167D-04, 0.2052D-04,
19256 # 0.1825D-04, 0.1545D-04, 0.1254D-04, 0.9835D-05, 0.7509D-05,
19257 # 0.5613D-05, 0.4126D-05, 0.2995D-05, 0.2154D-05, 0.1537D-05,
19258 # 0.1091D-05/
19259
19260 data (calcpts(j,45), j = 1,neta) /0.6116D-10, 0.3562D-09,
19261 # 0.3791D-09, 0.2375D-09, 0.1795D-09, 0.2456D-09, 0.2054D-09,
19262 # 0.3163D-09, 0.1831D-09, 0.1081D-09, 0.5660D-10, 0.8214D-10,
19263 # 0.7798D-10, 0.1560D-10, 0.1258D-10, 0.2074D-10, 0.3867D-10,
19264 # 0.6209D-11, 0.2225D-10, 0.1446D-10, 0.1357D-10, 0.4389D-11,
19265 # -.7446D-11, -.1488D-10, -.2801D-10, -.5172D-10, -.8844D-10,
19266 # -.1439D-09, -.2279D-09, -.3493D-09, -.5138D-09, -.7197D-09,
19267 # -.9534D-09, -.1207D-08, -.1533D-08, -.2187D-08, -.3875D-08,
19268 # -.8040D-08, -.1711D-07, -.3462D-07, -.6532D-07, -.1152D-06,
19269 # -.1917D-06, -.3035D-06, -.4610D-06, -.6749D-06, -.9555D-06,
19270 # -.1309D-05, -.1734D-05, -.2207D-05, -.2676D-05, -.3038D-05,
19271 # -.3120D-05, -.2687D-05, -.1476D-05, 0.7008D-06, 0.3801D-05,
19272 # 0.7441D-05, 0.1096D-04, 0.1369D-04, 0.1519D-04, 0.1540D-04,
19273 # 0.1452D-04, 0.1289D-04, 0.1089D-04, 0.8827D-05, 0.6918D-05,
19274 # 0.5277D-05, 0.3942D-05, 0.2896D-05, 0.2101D-05, 0.1509D-05,
19275 # 0.1076D-05/
19276
19277 data (calcpts(j,46), j = 1,neta) /0.1917D-09, -.1535D-09,
19278 # 0.4083D-09, 0.2116D-09, 0.9985D-10, -.3683D-11, 0.6403D-10,
19279 # 0.2144D-10, 0.7432D-11, 0.7975D-10, -.1710D-10, 0.2668D-10,
19280 # -.1262D-10, 0.4799D-11, 0.3884D-11, -.4044D-11, 0.4642D-11,
19281 # -.6977D-11, 0.6772D-11, 0.2195D-10, 0.1218D-10, 0.8504D-11,
19282 # -.4265D-11, -.5370D-11, -.1092D-10, -.2660D-10, -.4248D-10,
19283 # -.7007D-10, -.1082D-09, -.1669D-09, -.2471D-09, -.3489D-09,
19284 # -.4687D-09, -.6066D-09, -.7951D-09, -.1165D-08, -.2068D-08,
19285 # -.4211D-08, -.8778D-08, -.1752D-07, -.3277D-07, -.5755D-07,
19286 # -.9563D-07, -.1516D-06, -.2311D-06, -.3402D-06, -.4856D-06,
19287 # -.6733D-06, -.9060D-06, -.1180D-05, -.1478D-05, -.1760D-05,
19288 # -.1953D-05, -.1940D-05, -.1557D-05, -.6336D-06, 0.9465D-06,
19289 # 0.3136D-05, 0.5659D-05, 0.8059D-05, 0.9882D-05, 0.1085D-04,
19290 # 0.1093D-04, 0.1026D-04, 0.9090D-05, 0.7666D-05, 0.6207D-05,
19291 # 0.4860D-05, 0.3705D-05, 0.2766D-05, 0.2031D-05, 0.1472D-05,
19292 # 0.1057D-05/
19293
19294 data (calcpts(j,47), j = 1,neta) /0.2895D-09, -.2610D-09,
19295 # -.3456D-09, -.1412D-09, -.3047D-10, -.2021D-10, -.2062D-09,
19296 # -.9289D-10, 0.4744D-10, -.9101D-10, -.2432D-10, -.1832D-10,
19297 # 0.5847D-10, -.2453D-10, -.3673D-10, -.2271D-10, 0.1469D-10,
19298 # -.5788D-11, -.7590D-11, -.1979D-10, 0.1805D-10, -.6081D-11,
19299 # -.2603D-11, -.8448D-11, -.6680D-11, -.1677D-10, -.2327D-10,
19300 # -.3327D-10, -.5595D-10, -.7616D-10, -.1179D-09, -.1698D-09,
19301 # -.2286D-09, -.3027D-09, -.4085D-09, -.6112D-09, -.1086D-08,
19302 # -.2176D-08, -.4463D-08, -.8801D-08, -.1634D-07, -.2859D-07,
19303 # -.4746D-07, -.7531D-07, -.1151D-06, -.1702D-06, -.2447D-06,
19304 # -.3423D-06, -.4663D-06, -.6178D-06, -.7926D-06, -.9777D-06,
19305 # -.1144D-05, -.1239D-05, -.1182D-05, -.8625D-06, -.1674D-06,
19306 # 0.9738D-06, 0.2517D-05, 0.4263D-05, 0.5896D-05, 0.7111D-05,
19307 # 0.7731D-05, 0.7740D-05, 0.7242D-05, 0.6402D-05, 0.5391D-05,
19308 # 0.4360D-05, 0.3411D-05, 0.2599D-05, 0.1938D-05, 0.1422D-05,
19309 # 0.1030D-05/
19310
19311 data (calcpts(j,48), j = 1,neta) /-.1464D-09, 0.1705D-10,
19312 # 0.2130D-09, -.6478D-10, 0.5286D-09, 0.1417D-09, 0.3096D-09,
19313 # 0.1552D-09, -.5639D-10, 0.1330D-09, 0.1519D-09, 0.5894D-10,
19314 # 0.5478D-10, 0.4993D-10, 0.4679D-10, -.7341D-10, 0.3779D-10,
19315 # 0.4836D-10, 0.5389D-10, 0.6009D-11, -.5886D-12, 0.1044D-10,
19316 # -.2832D-11, 0.1719D-10, 0.4355D-11, -.2739D-11, -.1025D-10,
19317 # -.1470D-10, -.1767D-10, -.3432D-10, -.5392D-10, -.7840D-10,
19318 # -.1105D-09, -.1499D-09, -.2074D-09, -.3156D-09, -.5618D-09,
19319 # -.1113D-08, -.2252D-08, -.4395D-08, -.8110D-08, -.1414D-07,
19320 # -.2344D-07, -.3724D-07, -.5702D-07, -.8466D-07, -.1223D-06,
19321 # -.1724D-06, -.2372D-06, -.3185D-06, -.4163D-06, -.5270D-06,
19322 # -.6404D-06, -.7353D-06, -.7752D-06, -.7035D-06, -.4463D-06,
19323 # 0.7188D-07, 0.8923D-06, 0.1977D-05, 0.3184D-05, 0.4294D-05,
19324 # 0.5103D-05, 0.5499D-05, 0.5475D-05, 0.5106D-05, 0.4503D-05,
19325 # 0.3787D-05, 0.3060D-05, 0.2392D-05, 0.1821D-05, 0.1357D-05,
19326 # 0.9954D-06/
19327
19328 data (calcpts(j,49), j = 1,neta) /0.5682D-09, 0.1002D-08,
19329 # -.8636D-09, 0.3879D-09, -.6704D-09, -.1877D-09, 0.6433D-10,
19330 # 0.4983D-09, 0.2832D-09, 0.1430D-09, -.1107D-09, -.2155D-09,
19331 # -.7760D-10, 0.9064D-10, 0.5010D-10, 0.5425D-10, -.2434D-10,
19332 # 0.2420D-11, -.3557D-10, -.2176D-10, 0.2093D-10, 0.3055D-11,
19333 # -.5441D-12, 0.2863D-11, 0.5720D-12, -.4297D-11, -.8496D-11,
19334 # 0.8641D-12, -.1555D-10, -.1598D-10, -.2747D-10, -.3948D-10,
19335 # -.5439D-10, -.7508D-10, -.1040D-09, -.1614D-09, -.2881D-09,
19336 # -.5647D-09, -.1129D-08, -.2184D-08, -.4008D-08, -.6967D-08,
19337 # -.1154D-07, -.1834D-07, -.2814D-07, -.4188D-07, -.6078D-07,
19338 # -.8618D-07, -.1195D-06, -.1623D-06, -.2151D-06, -.2778D-06,
19339 # -.3471D-06, -.4155D-06, -.4677D-06, -.4778D-06, -.4068D-06,
19340 # -.2046D-06, 0.1783D-06, 0.7663D-06, 0.1528D-05, 0.2361D-05,
19341 # 0.3115D-05, 0.3654D-05, 0.3904D-05, 0.3867D-05, 0.3595D-05,
19342 # 0.3165D-05, 0.2658D-05, 0.2146D-05, 0.1677D-05, 0.1275D-05,
19343 # 0.9499D-06/
19344
19345 data (dlaeta(j), j = 1,neta) /
19346 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
19347 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
19348 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
19349 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
19350 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
19351 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
19352 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
19353 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
19354 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
19355 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
19356 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
19357 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
19358 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
19359 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
19360 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
19361
19362 data (dlaxi(j), j = 1,nxi) /
19363 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
19364 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
19365 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
19366 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
19367 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
19368 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
19369 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
19370 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
19371 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
19372 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
19373
19374 dleta = dlog10(eta)
19375 dlxi = dlog10(xi)
19376 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
19377 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
19378 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
19379 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
19380 call locate(dlaeta,neta, dleta, ieta)
19381 call locate(dlaxi, nxi, dlxi, ixi)
19382c interpolating between the appropriate points
19383 delxi = 1d0/6d0
19384 deleta = 1d0/6d0
19385c lagrange 3-pt.
19386 if (ixi .le. 2) ixi = 2
19387 if (ixi .ge. 48) ixi = 48
19388 if (ieta .le. 2) ieta = 2
19389 if (ieta .ge. 72) ieta = 72
19390 pxi = (dlxi - dlaxi(ixi))/delxi
19391 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
19392 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
19393 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
19394 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
19395 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
19396 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
19397 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
19398 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
19399 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
19400 peta = (dleta - dlaeta(ieta))/deleta
19401 h1_FLg = peta*(peta-1d0)/2d0*f(-1) +
19402 # (1d0 - peta**2)*f(0) +
19403CMB # + peta*(peta+1d0)/2d0*f(1)
19404 # peta*(peta+1d0)/2d0*f(1)
19405 return
19406 end
19407
19408c ==========================================
19409 double precision function h1bar_Lg(eta,xi)
19410c ==========================================
19411
19412c eq (12) in PLB347 (1995) 143 - 151 for the longitudinal piece
19413c MSbar scheme
19414c This routine is called subclbar in the original code.
19415c Called sclbar in updated code (03/06/96).
19416
19417 implicit none
19418 integer neta, nxi
19419 parameter (neta = 73, nxi = 49)
19420 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
19421 double precision eta, xi, dleta, dlxi
19422 double precision pxi, peta, f(-1:1), delxi, deleta
19423 integer j, ieta, ixi
19424
19425 data (calcpts(j, 1), j = 1,neta) /0.7071D-08, 0.8567D-08,
19426 # 0.1038D-07, 0.1257D-07, 0.1524D-07, 0.1846D-07, 0.2236D-07,
19427 # 0.2710D-07, 0.3283D-07, 0.3978D-07, 0.4822D-07, 0.5844D-07,
19428 # 0.7084D-07, 0.8591D-07, 0.1042D-06, 0.1265D-06, 0.1537D-06,
19429 # 0.1870D-06, 0.2279D-06, 0.2786D-06, 0.3418D-06, 0.4217D-06,
19430 # 0.5243D-06, 0.6586D-06, 0.8386D-06, 0.1086D-05, 0.1434D-05,
19431 # 0.1933D-05, 0.2658D-05, 0.3705D-05, 0.5187D-05, 0.7191D-05,
19432 # 0.9704D-05, 0.1252D-04, 0.1518D-04, 0.1707D-04, 0.1771D-04,
19433 # 0.1701D-04, 0.1527D-04, 0.1299D-04, 0.1059D-04, 0.8349D-05,
19434 # 0.6403D-05, 0.4797D-05, 0.3525D-05, 0.2546D-05, 0.1816D-05,
19435 # 0.1282D-05, 0.8938D-06, 0.6230D-06, 0.4303D-06, 0.2961D-06,
19436 # 0.2068D-06, 0.1394D-06, 0.9358D-07, 0.6473D-07, 0.4295D-07,
19437 # 0.3262D-07, 0.1892D-07, 0.1412D-07, 0.1085D-07, 0.8620D-08,
19438 # 0.7103D-08, 0.6068D-08, 0.5363D-08, -.1784D-08, -.2111D-08,
19439 # -.2334D-08, -.2486D-08, -.2589D-08, -.2660D-08, -.2708D-08,
19440 # -.2741D-08/
19441
19442 data (calcpts(j, 2), j = 1,neta) /0.1038D-07, 0.1257D-07,
19443 # 0.1523D-07, 0.1845D-07, 0.2236D-07, 0.2709D-07, 0.3282D-07,
19444 # 0.3977D-07, 0.4818D-07, 0.5839D-07, 0.7077D-07, 0.8577D-07,
19445 # 0.1040D-06, 0.1261D-06, 0.1529D-06, 0.1857D-06, 0.2256D-06,
19446 # 0.2745D-06, 0.3345D-06, 0.4089D-06, 0.5016D-06, 0.6189D-06,
19447 # 0.7695D-06, 0.9666D-06, 0.1231D-05, 0.1593D-05, 0.2104D-05,
19448 # 0.2837D-05, 0.3901D-05, 0.5438D-05, 0.7612D-05, 0.1055D-04,
19449 # 0.1424D-04, 0.1838D-04, 0.2228D-04, 0.2506D-04, 0.2600D-04,
19450 # 0.2497D-04, 0.2241D-04, 0.1906D-04, 0.1554D-04, 0.1225D-04,
19451 # 0.9395D-05, 0.7042D-05, 0.5175D-05, 0.3742D-05, 0.2663D-05,
19452 # 0.1879D-05, 0.1317D-05, 0.9144D-06, 0.6334D-06, 0.4387D-06,
19453 # 0.2970D-06, 0.2074D-06, 0.1398D-06, 0.9388D-07, 0.6503D-07,
19454 # 0.4321D-07, 0.3288D-07, 0.1917D-07, 0.1438D-07, 0.1111D-07,
19455 # 0.8879D-08, 0.7360D-08, 0.6325D-08, 0.5620D-08, 0.5140D-08,
19456 # 0.4813D-08, 0.4590D-08, 0.4438D-08, 0.4335D-08, 0.4264D-08,
19457 # 0.4216D-08/
19458
19459 data (calcpts(j, 3), j = 1,neta) /0.1522D-07, 0.1844D-07,
19460 # 0.2234D-07, 0.2707D-07, 0.3280D-07, 0.3974D-07, 0.4815D-07,
19461 # 0.5834D-07, 0.7068D-07, 0.8565D-07, 0.1038D-06, 0.1258D-06,
19462 # 0.1525D-06, 0.1850D-06, 0.2244D-06, 0.2724D-06, 0.3309D-06,
19463 # 0.4026D-06, 0.4907D-06, 0.5998D-06, 0.7358D-06, 0.9079D-06,
19464 # 0.1129D-05, 0.1418D-05, 0.1805D-05, 0.2338D-05, 0.3087D-05,
19465 # 0.4163D-05, 0.5723D-05, 0.7978D-05, 0.1117D-04, 0.1548D-04,
19466 # 0.2090D-04, 0.2696D-04, 0.3269D-04, 0.3676D-04, 0.3814D-04,
19467 # 0.3662D-04, 0.3287D-04, 0.2796D-04, 0.2279D-04, 0.1796D-04,
19468 # 0.1378D-04, 0.1033D-04, 0.7581D-05, 0.5477D-05, 0.3902D-05,
19469 # 0.2753D-05, 0.1925D-05, 0.1338D-05, 0.9239D-06, 0.6335D-06,
19470 # 0.4377D-06, 0.2956D-06, 0.1991D-06, 0.1380D-06, 0.9217D-07,
19471 # 0.6328D-07, 0.4146D-07, 0.2447D-07, 0.1743D-07, 0.1263D-07,
19472 # 0.9369D-08, 0.4751D-09, -.1043D-08, -.2076D-08, -.2780D-08,
19473 # -.3260D-08, -.3587D-08, -.3809D-08, -.3961D-08, -.4065D-08,
19474 # -.4135D-08/
19475
19476 data (calcpts(j, 4), j = 1,neta) /0.2234D-07, 0.2706D-07,
19477 # 0.3278D-07, 0.3972D-07, 0.4813D-07, 0.5831D-07, 0.7065D-07,
19478 # 0.8560D-07, 0.1037D-06, 0.1257D-06, 0.1523D-06, 0.1846D-06,
19479 # 0.2238D-06, 0.2714D-06, 0.3292D-06, 0.3996D-06, 0.4856D-06,
19480 # 0.5907D-06, 0.7200D-06, 0.8801D-06, 0.1080D-05, 0.1332D-05,
19481 # 0.1656D-05, 0.2081D-05, 0.2649D-05, 0.3430D-05, 0.4529D-05,
19482 # 0.6107D-05, 0.8395D-05, 0.1171D-04, 0.1638D-04, 0.2272D-04,
19483 # 0.3066D-04, 0.3956D-04, 0.4796D-04, 0.5393D-04, 0.5596D-04,
19484 # 0.5373D-04, 0.4823D-04, 0.4102D-04, 0.3344D-04, 0.2636D-04,
19485 # 0.2021D-04, 0.1515D-04, 0.1113D-04, 0.8040D-05, 0.5732D-05,
19486 # 0.4043D-05, 0.2826D-05, 0.1960D-05, 0.1359D-05, 0.9340D-06,
19487 # 0.6419D-06, 0.4389D-06, 0.2964D-06, 0.2064D-06, 0.1387D-06,
19488 # 0.9274D-07, 0.6384D-07, 0.4204D-07, 0.3172D-07, 0.1801D-07,
19489 # 0.1322D-07, 0.9956D-08, 0.7730D-08, -.4522D-09, -.1485D-08,
19490 # -.2189D-08, -.2668D-08, -.2995D-08, -.3218D-08, -.3369D-08,
19491 # -.3473D-08/
19492
19493 data (calcpts(j, 5), j = 1,neta) /0.3277D-07, 0.3971D-07,
19494 # 0.4810D-07, 0.5828D-07, 0.7061D-07, 0.8555D-07, 0.1036D-06,
19495 # 0.1256D-06, 0.1522D-06, 0.1844D-06, 0.2235D-06, 0.2708D-06,
19496 # 0.3283D-06, 0.3982D-06, 0.4830D-06, 0.5863D-06, 0.7124D-06,
19497 # 0.8667D-06, 0.1056D-05, 0.1291D-05, 0.1584D-05, 0.1954D-05,
19498 # 0.2430D-05, 0.3052D-05, 0.3886D-05, 0.5032D-05, 0.6644D-05,
19499 # 0.8958D-05, 0.1231D-04, 0.1717D-04, 0.2403D-04, 0.3332D-04,
19500 # 0.4497D-04, 0.5803D-04, 0.7035D-04, 0.7913D-04, 0.8209D-04,
19501 # 0.7883D-04, 0.7075D-04, 0.6016D-04, 0.4905D-04, 0.3866D-04,
19502 # 0.2965D-04, 0.2222D-04, 0.1633D-04, 0.1179D-04, 0.8411D-05,
19503 # 0.5937D-05, 0.4149D-05, 0.2887D-05, 0.1997D-05, 0.1377D-05,
19504 # 0.9428D-06, 0.6499D-06, 0.4463D-06, 0.3037D-06, 0.2070D-06,
19505 # 0.1459D-06, 0.9995D-07, 0.7108D-07, 0.4928D-07, 0.3230D-07,
19506 # 0.2527D-07, 0.2048D-07, 0.1055D-07, 0.8328D-08, 0.6813D-08,
19507 # 0.5781D-08, 0.5079D-08, 0.4599D-08, 0.4273D-08, 0.4051D-08,
19508 # 0.3899D-08/
19509
19510 data (calcpts(j, 6), j = 1,neta) /0.4805D-07, 0.5822D-07,
19511 # 0.7053D-07, 0.8545D-07, 0.1035D-06, 0.1254D-06, 0.1520D-06,
19512 # 0.1842D-06, 0.2231D-06, 0.2704D-06, 0.3277D-06, 0.3971D-06,
19513 # 0.4815D-06, 0.5839D-06, 0.7082D-06, 0.8597D-06, 0.1045D-05,
19514 # 0.1271D-05, 0.1549D-05, 0.1893D-05, 0.2323D-05, 0.2866D-05,
19515 # 0.3563D-05, 0.4475D-05, 0.5698D-05, 0.7377D-05, 0.9741D-05,
19516 # 0.1313D-04, 0.1806D-04, 0.2517D-04, 0.3524D-04, 0.4885D-04,
19517 # 0.6594D-04, 0.8508D-04, 0.1032D-03, 0.1160D-03, 0.1204D-03,
19518 # 0.1156D-03, 0.1037D-03, 0.8819D-04, 0.7189D-04, 0.5667D-04,
19519 # 0.4346D-04, 0.3256D-04, 0.2392D-04, 0.1729D-04, 0.1232D-04,
19520 # 0.8691D-05, 0.6081D-05, 0.4225D-05, 0.2921D-05, 0.2010D-05,
19521 # 0.1380D-05, 0.9449D-06, 0.6514D-06, 0.4410D-06, 0.3051D-06,
19522 # 0.2084D-06, 0.1406D-06, 0.9476D-07, 0.6592D-07, 0.4414D-07,
19523 # 0.3385D-07, 0.2016D-07, 0.1538D-07, 0.1212D-07, 0.9899D-08,
19524 # 0.8387D-08, 0.6908D-09, -.1138D-10, -.4898D-09, -.8155D-09,
19525 # -.1037D-08/
19526
19527 data (calcpts(j, 7), j = 1,neta) /0.7044D-07, 0.8534D-07,
19528 # 0.1034D-06, 0.1253D-06, 0.1518D-06, 0.1839D-06, 0.2228D-06,
19529 # 0.2699D-06, 0.3270D-06, 0.3963D-06, 0.4803D-06, 0.5821D-06,
19530 # 0.7057D-06, 0.8558D-06, 0.1038D-05, 0.1260D-05, 0.1531D-05,
19531 # 0.1863D-05, 0.2270D-05, 0.2775D-05, 0.3405D-05, 0.4200D-05,
19532 # 0.5222D-05, 0.6559D-05, 0.8351D-05, 0.1081D-04, 0.1428D-04,
19533 # 0.1925D-04, 0.2646D-04, 0.3688D-04, 0.5164D-04, 0.7160D-04,
19534 # 0.9666D-04, 0.1247D-03, 0.1512D-03, 0.1701D-03, 0.1764D-03,
19535 # 0.1694D-03, 0.1520D-03, 0.1292D-03, 0.1053D-03, 0.8300D-04,
19536 # 0.6365D-04, 0.4768D-04, 0.3504D-04, 0.2532D-04, 0.1805D-04,
19537 # 0.1274D-04, 0.8887D-05, 0.6193D-05, 0.4276D-05, 0.2941D-05,
19538 # 0.2053D-05, 0.1382D-05, 0.9261D-06, 0.6392D-06, 0.4224D-06,
19539 # 0.3199D-06, 0.1833D-06, 0.1356D-06, 0.1032D-06, 0.8102D-07,
19540 # 0.6595D-07, 0.5567D-07, 0.4867D-07, 0.4390D-07, 0.4065D-07,
19541 # 0.3843D-07, 0.3693D-07, 0.3590D-07, 0.3520D-07, 0.3472D-07,
19542 # 0.3440D-07/
19543
19544 data (calcpts(j, 8), j = 1,neta) /0.1032D-06, 0.1250D-06,
19545 # 0.1515D-06, 0.1835D-06, 0.2223D-06, 0.2694D-06, 0.3264D-06,
19546 # 0.3955D-06, 0.4791D-06, 0.5806D-06, 0.7037D-06, 0.8529D-06,
19547 # 0.1034D-05, 0.1254D-05, 0.1521D-05, 0.1846D-05, 0.2243D-05,
19548 # 0.2729D-05, 0.3326D-05, 0.4065D-05, 0.4988D-05, 0.6154D-05,
19549 # 0.7650D-05, 0.9609D-05, 0.1223D-04, 0.1583D-04, 0.2091D-04,
19550 # 0.2819D-04, 0.3875D-04, 0.5401D-04, 0.7562D-04, 0.1049D-03,
19551 # 0.1415D-03, 0.1826D-03, 0.2215D-03, 0.2492D-03, 0.2585D-03,
19552 # 0.2481D-03, 0.2226D-03, 0.1892D-03, 0.1542D-03, 0.1215D-03,
19553 # 0.9315D-04, 0.6981D-04, 0.5128D-04, 0.3707D-04, 0.2644D-04,
19554 # 0.1866D-04, 0.1302D-04, 0.9091D-05, 0.6303D-05, 0.4304D-05,
19555 # 0.2964D-05, 0.2075D-05, 0.1403D-05, 0.9480D-06, 0.6617D-06,
19556 # 0.4450D-06, 0.3427D-06, 0.2064D-06, 0.1589D-06, 0.1265D-06,
19557 # 0.1045D-06, 0.8944D-07, 0.1253D-07, 0.5554D-08, 0.8006D-09,
19558 # -.2439D-08, -.4644D-08, -.6148D-08, -.7172D-08, -.7870D-08,
19559 # -.8345D-08/
19560
19561 data (calcpts(j, 9), j = 1,neta) /0.1510D-06, 0.1829D-06,
19562 # 0.2216D-06, 0.2685D-06, 0.3253D-06, 0.3941D-06, 0.4775D-06,
19563 # 0.5786D-06, 0.7010D-06, 0.8495D-06, 0.1030D-05, 0.1248D-05,
19564 # 0.1513D-05, 0.1834D-05, 0.2225D-05, 0.2701D-05, 0.3282D-05,
19565 # 0.3992D-05, 0.4866D-05, 0.5948D-05, 0.7297D-05, 0.9002D-05,
19566 # 0.1119D-04, 0.1406D-04, 0.1789D-04, 0.2316D-04, 0.3058D-04,
19567 # 0.4123D-04, 0.5667D-04, 0.7900D-04, 0.1106D-03, 0.1534D-03,
19568 # 0.2071D-03, 0.2673D-03, 0.3241D-03, 0.3646D-03, 0.3781D-03,
19569 # 0.3629D-03, 0.3255D-03, 0.2765D-03, 0.2252D-03, 0.1775D-03,
19570 # 0.1361D-03, 0.1019D-03, 0.7488D-04, 0.5409D-04, 0.3859D-04,
19571 # 0.2717D-04, 0.1898D-04, 0.1318D-04, 0.9152D-05, 0.6280D-05,
19572 # 0.4277D-05, 0.2938D-05, 0.1983D-05, 0.1379D-05, 0.9252D-06,
19573 # 0.6396D-06, 0.4236D-06, 0.2553D-06, 0.1859D-06, 0.1387D-06,
19574 # 0.3983D-07, 0.1788D-07, 0.2928D-08, -.7253D-08, -.1419D-07,
19575 # -.1892D-07, -.2214D-07, -.2433D-07, -.2583D-07, -.2685D-07,
19576 # -.2754D-07/
19577
19578 data (calcpts(j,10), j = 1,neta) /0.2207D-06, 0.2674D-06,
19579 # 0.3239D-06, 0.3924D-06, 0.4755D-06, 0.5761D-06, 0.6980D-06,
19580 # 0.8458D-06, 0.1025D-05, 0.1242D-05, 0.1505D-05, 0.1824D-05,
19581 # 0.2211D-05, 0.2681D-05, 0.3252D-05, 0.3948D-05, 0.4797D-05,
19582 # 0.5836D-05, 0.7113D-05, 0.8694D-05, 0.1066D-04, 0.1316D-04,
19583 # 0.1636D-04, 0.2054D-04, 0.2614D-04, 0.3384D-04, 0.4467D-04,
19584 # 0.6022D-04, 0.8277D-04, 0.1154D-03, 0.1615D-03, 0.2240D-03,
19585 # 0.3025D-03, 0.3905D-03, 0.4737D-03, 0.5328D-03, 0.5527D-03,
19586 # 0.5302D-03, 0.4753D-03, 0.4036D-03, 0.3286D-03, 0.2589D-03,
19587 # 0.1984D-03, 0.1486D-03, 0.1092D-03, 0.7896D-04, 0.5628D-04,
19588 # 0.3968D-04, 0.2778D-04, 0.1927D-04, 0.1335D-04, 0.9172D-05,
19589 # 0.6298D-05, 0.4299D-05, 0.2963D-05, 0.2012D-05, 0.1345D-05,
19590 # 0.9590D-06, 0.6082D-06, 0.4600D-06, 0.2924D-06, 0.2235D-06,
19591 # 0.1100D-06, 0.7802D-07, 0.5624D-07, 0.4141D-07, 0.3130D-07,
19592 # 0.2441D-07, 0.1972D-07, 0.1652D-07, 0.1435D-07, 0.1286D-07,
19593 # 0.1185D-07/
19594
19595 data (calcpts(j,11), j = 1,neta) /0.3220D-06, 0.3901D-06,
19596 # 0.4725D-06, 0.5725D-06, 0.6937D-06, 0.8405D-06, 0.1018D-05,
19597 # 0.1234D-05, 0.1495D-05, 0.1811D-05, 0.2195D-05, 0.2661D-05,
19598 # 0.3226D-05, 0.3912D-05, 0.4745D-05, 0.5760D-05, 0.6999D-05,
19599 # 0.8514D-05, 0.1038D-04, 0.1268D-04, 0.1556D-04, 0.1919D-04,
19600 # 0.2385D-04, 0.2996D-04, 0.3812D-04, 0.4934D-04, 0.6512D-04,
19601 # 0.8776D-04, 0.1206D-03, 0.1681D-03, 0.2354D-03, 0.3265D-03,
19602 # 0.4410D-03, 0.5695D-03, 0.6909D-03, 0.7773D-03, 0.8061D-03,
19603 # 0.7730D-03, 0.6925D-03, 0.5877D-03, 0.4781D-03, 0.3765D-03,
19604 # 0.2886D-03, 0.2162D-03, 0.1589D-03, 0.1148D-03, 0.8193D-04,
19605 # 0.5780D-04, 0.4049D-04, 0.2811D-04, 0.1949D-04, 0.1344D-04,
19606 # 0.9262D-05, 0.6335D-05, 0.4346D-05, 0.3018D-05, 0.2074D-05,
19607 # 0.1411D-05, 0.1028D-05, 0.6800D-06, 0.4667D-06, 0.3667D-06,
19608 # 0.2320D-06, 0.1856D-06, 0.1540D-06, 0.1325D-06, 0.1178D-06,
19609 # 0.1078D-06, 0.1010D-06, 0.9635D-07, 0.9319D-07, 0.9104D-07,
19610 # 0.8957D-07/
19611
19612 data (calcpts(j,12), j = 1,neta) /0.4683D-06, 0.5674D-06,
19613 # 0.6873D-06, 0.8327D-06, 0.1009D-05, 0.1222D-05, 0.1481D-05,
19614 # 0.1795D-05, 0.2174D-05, 0.2635D-05, 0.3193D-05, 0.3870D-05,
19615 # 0.4692D-05, 0.5689D-05, 0.6901D-05, 0.8377D-05, 0.1018D-04,
19616 # 0.1238D-04, 0.1509D-04, 0.1844D-04, 0.2262D-04, 0.2790D-04,
19617 # 0.3468D-04, 0.4354D-04, 0.5541D-04, 0.7170D-04, 0.9460D-04,
19618 # 0.1275D-03, 0.1751D-03, 0.2441D-03, 0.3418D-03, 0.4742D-03,
19619 # 0.6407D-03, 0.8277D-03, 0.1005D-02, 0.1130D-02, 0.1172D-02,
19620 # 0.1123D-02, 0.1005D-02, 0.8521D-03, 0.6927D-03, 0.5450D-03,
19621 # 0.4176D-03, 0.3128D-03, 0.2299D-03, 0.1662D-03, 0.1186D-03,
19622 # 0.8370D-04, 0.5860D-04, 0.4075D-04, 0.2823D-04, 0.1950D-04,
19623 # 0.1342D-04, 0.9210D-05, 0.6376D-05, 0.4340D-05, 0.3028D-05,
19624 # 0.2093D-05, 0.1437D-05, 0.1060D-05, 0.7149D-06, 0.5039D-06,
19625 # 0.4057D-06, 0.2720D-06, 0.2264D-06, 0.1953D-06, 0.1741D-06,
19626 # 0.1597D-06, 0.1499D-06, 0.1431D-06, 0.1386D-06, 0.1355D-06,
19627 # 0.1334D-06/
19628
19629 data (calcpts(j,13), j = 1,neta) /0.6783D-06, 0.8219D-06,
19630 # 0.9956D-06, 0.1206D-05, 0.1462D-05, 0.1771D-05, 0.2145D-05,
19631 # 0.2600D-05, 0.3150D-05, 0.3817D-05, 0.4626D-05, 0.5606D-05,
19632 # 0.6796D-05, 0.8242D-05, 0.9996D-05, 0.1213D-04, 0.1474D-04,
19633 # 0.1793D-04, 0.2186D-04, 0.2671D-04, 0.3276D-04, 0.4041D-04,
19634 # 0.5021D-04, 0.6303D-04, 0.8018D-04, 0.1037D-03, 0.1368D-03,
19635 # 0.1842D-03, 0.2531D-03, 0.3527D-03, 0.4939D-03, 0.6854D-03,
19636 # 0.9269D-03, 0.1198D-02, 0.1455D-02, 0.1638D-02, 0.1697D-02,
19637 # 0.1625D-02, 0.1452D-02, 0.1229D-02, 0.9978D-03, 0.7844D-03,
19638 # 0.6007D-03, 0.4499D-03, 0.3307D-03, 0.2392D-03, 0.1708D-03,
19639 # 0.1206D-03, 0.8451D-04, 0.5882D-04, 0.4067D-04, 0.2798D-04,
19640 # 0.1955D-04, 0.1315D-04, 0.9469D-05, 0.6745D-05, 0.4676D-05,
19641 # 0.3051D-05, 0.2398D-05, 0.1953D-05, 0.9828D-06, 0.7760D-06,
19642 # 0.6353D-06, 0.5393D-06, 0.4738D-06, 0.4293D-06, 0.3989D-06,
19643 # 0.3782D-06, 0.3641D-06, 0.3545D-06, 0.3480D-06, 0.3435D-06,
19644 # 0.3405D-06/
19645
19646 data (calcpts(j,14), j = 1,neta) /0.9761D-06, 0.1183D-05,
19647 # 0.1433D-05, 0.1736D-05, 0.2103D-05, 0.2548D-05, 0.3087D-05,
19648 # 0.3741D-05, 0.4532D-05, 0.5492D-05, 0.6656D-05, 0.8067D-05,
19649 # 0.9780D-05, 0.1186D-04, 0.1438D-04, 0.1746D-04, 0.2121D-04,
19650 # 0.2580D-04, 0.3145D-04, 0.3843D-04, 0.4712D-04, 0.5811D-04,
19651 # 0.7220D-04, 0.9060D-04, 0.1152D-03, 0.1490D-03, 0.1964D-03,
19652 # 0.2644D-03, 0.3630D-03, 0.5058D-03, 0.7084D-03, 0.9837D-03,
19653 # 0.1331D-02, 0.1722D-02, 0.2093D-02, 0.2357D-02, 0.2442D-02,
19654 # 0.2335D-02, 0.2083D-02, 0.1759D-02, 0.1425D-02, 0.1118D-02,
19655 # 0.8558D-03, 0.6404D-03, 0.4707D-03, 0.3408D-03, 0.2433D-03,
19656 # 0.1714D-03, 0.1205D-03, 0.8340D-04, 0.5819D-04, 0.4026D-04,
19657 # 0.2781D-04, 0.1890D-04, 0.1263D-04, 0.9049D-05, 0.6393D-05,
19658 # 0.4368D-05, 0.2775D-05, 0.2145D-05, 0.1714D-05, 0.7546D-06,
19659 # 0.5551D-06, 0.4189D-06, 0.3261D-06, 0.2630D-06, 0.2199D-06,
19660 # 0.1906D-06, 0.1707D-06, 0.1570D-06, 0.1478D-06, 0.1414D-06,
19661 # 0.1371D-06/
19662
19663 data (calcpts(j,15), j = 1,neta) /0.1392D-05, 0.1687D-05,
19664 # 0.2044D-05, 0.2476D-05, 0.3000D-05, 0.3635D-05, 0.4404D-05,
19665 # 0.5337D-05, 0.6465D-05, 0.7835D-05, 0.9495D-05, 0.1151D-04,
19666 # 0.1395D-04, 0.1692D-04, 0.2052D-04, 0.2491D-04, 0.3026D-04,
19667 # 0.3680D-04, 0.4485D-04, 0.5480D-04, 0.6719D-04, 0.8283D-04,
19668 # 0.1029D-03, 0.1290D-03, 0.1640D-03, 0.2119D-03, 0.2792D-03,
19669 # 0.3756D-03, 0.5155D-03, 0.7180D-03, 0.1006D-02, 0.1397D-02,
19670 # 0.1893D-02, 0.2452D-02, 0.2984D-02, 0.3362D-02, 0.3482D-02,
19671 # 0.3324D-02, 0.2956D-02, 0.2488D-02, 0.2009D-02, 0.1574D-02,
19672 # 0.1203D-02, 0.9001D-03, 0.6612D-03, 0.4787D-03, 0.3412D-03,
19673 # 0.2412D-03, 0.1686D-03, 0.1173D-03, 0.8115D-04, 0.5598D-04,
19674 # 0.3859D-04, 0.2589D-04, 0.1793D-04, 0.1186D-04, 0.8419D-05,
19675 # 0.5190D-05, 0.3898D-05, 0.2351D-05, 0.1751D-05, 0.6754D-06,
19676 # 0.3970D-06, 0.2070D-06, 0.7757D-07, -.1055D-07, -.7060D-07,
19677 # -.1115D-06, -.1394D-06, -.1584D-06, -.1713D-06, -.1801D-06,
19678 # -.1862D-06/
19679
19680 data (calcpts(j,16), j = 1,neta) /0.1963D-05, 0.2378D-05,
19681 # 0.2881D-05, 0.3490D-05, 0.4229D-05, 0.5124D-05, 0.6208D-05,
19682 # 0.7522D-05, 0.9113D-05, 0.1104D-04, 0.1338D-04, 0.1622D-04,
19683 # 0.1966D-04, 0.2384D-04, 0.2892D-04, 0.3510D-04, 0.4264D-04,
19684 # 0.5186D-04, 0.6319D-04, 0.7719D-04, 0.9463D-04, 0.1166D-03,
19685 # 0.1448D-03, 0.1815D-03, 0.2304D-03, 0.2975D-03, 0.3914D-03,
19686 # 0.5261D-03, 0.7214D-03, 0.1005D-02, 0.1407D-02, 0.1957D-02,
19687 # 0.2654D-02, 0.3445D-02, 0.4200D-02, 0.4737D-02, 0.4905D-02,
19688 # 0.4672D-02, 0.4139D-02, 0.3467D-02, 0.2788D-02, 0.2177D-02,
19689 # 0.1661D-02, 0.1242D-02, 0.9134D-03, 0.6611D-03, 0.4721D-03,
19690 # 0.3337D-03, 0.2342D-03, 0.1627D-03, 0.1128D-03, 0.7755D-04,
19691 # 0.5352D-04, 0.3630D-04, 0.2484D-04, 0.1728D-04, 0.1149D-04,
19692 # 0.7571D-05, 0.5140D-05, 0.3272D-05, 0.2453D-05, 0.1894D-05,
19693 # 0.8474D-06, 0.5881D-06, 0.4114D-06, 0.2911D-06, 0.2091D-06,
19694 # 0.1532D-06, 0.1152D-06, 0.8923D-07, 0.7155D-07, 0.5952D-07,
19695 # 0.5132D-07/
19696
19697 data (calcpts(j,17), j = 1,neta) /0.2719D-05, 0.3294D-05,
19698 # 0.3990D-05, 0.4835D-05, 0.5858D-05, 0.7098D-05, 0.8599D-05,
19699 # 0.1042D-04, 0.1262D-04, 0.1530D-04, 0.1854D-04, 0.2247D-04,
19700 # 0.2724D-04, 0.3303D-04, 0.4005D-04, 0.4862D-04, 0.5906D-04,
19701 # 0.7181D-04, 0.8748D-04, 0.1068D-03, 0.1309D-03, 0.1613D-03,
19702 # 0.2001D-03, 0.2506D-03, 0.3179D-03, 0.4097D-03, 0.5383D-03,
19703 # 0.7223D-03, 0.9891D-03, 0.1376D-02, 0.1929D-02, 0.2685D-02,
19704 # 0.3648D-02, 0.4749D-02, 0.5806D-02, 0.6560D-02, 0.6792D-02,
19705 # 0.6451D-02, 0.5686D-02, 0.4731D-02, 0.3782D-02, 0.2938D-02,
19706 # 0.2236D-02, 0.1671D-02, 0.1228D-02, 0.8906D-03, 0.6366D-03,
19707 # 0.4510D-03, 0.3165D-03, 0.2206D-03, 0.1529D-03, 0.1054D-03,
19708 # 0.7247D-04, 0.5007D-04, 0.3397D-04, 0.2328D-04, 0.1627D-04,
19709 # 0.1085D-04, 0.7844D-05, 0.4920D-05, 0.3835D-05, 0.2430D-05,
19710 # 0.1926D-05, 0.1583D-05, 0.6827D-06, 0.5235D-06, 0.4149D-06,
19711 # 0.3410D-06, 0.2907D-06, 0.2563D-06, 0.2329D-06, 0.2170D-06,
19712 # 0.2062D-06/
19713
19714 data (calcpts(j,18), j = 1,neta) /0.3677D-05, 0.4455D-05,
19715 # 0.5396D-05, 0.6538D-05, 0.7922D-05, 0.9598D-05, 0.1163D-04,
19716 # 0.1409D-04, 0.1707D-04, 0.2068D-04, 0.2507D-04, 0.3038D-04,
19717 # 0.3683D-04, 0.4466D-04, 0.5415D-04, 0.6572D-04, 0.7983D-04,
19718 # 0.9706D-04, 0.1182D-03, 0.1443D-03, 0.1768D-03, 0.2176D-03,
19719 # 0.2697D-03, 0.3374D-03, 0.4273D-03, 0.5497D-03, 0.7207D-03,
19720 # 0.9649D-03, 0.1319D-02, 0.1833D-02, 0.2568D-02, 0.3579D-02,
19721 # 0.4879D-02, 0.6374D-02, 0.7823D-02, 0.8865D-02, 0.9184D-02,
19722 # 0.8698D-02, 0.7616D-02, 0.6282D-02, 0.4975D-02, 0.3839D-02,
19723 # 0.2909D-02, 0.2170D-02, 0.1597D-02, 0.1158D-02, 0.8295D-03,
19724 # 0.5883D-03, 0.4137D-03, 0.2884D-03, 0.2003D-03, 0.1379D-03,
19725 # 0.9479D-04, 0.6551D-04, 0.4453D-04, 0.3054D-04, 0.2084D-04,
19726 # 0.1450D-04, 0.9540D-05, 0.6857D-05, 0.4815D-05, 0.3211D-05,
19727 # 0.1906D-05, 0.1471D-05, 0.1174D-05, 0.9723D-06, 0.1680D-06,
19728 # 0.7420D-07, 0.1038D-07, -.3316D-07, -.6282D-07, -.8302D-07,
19729 # -.9678D-07/
19730
19731 data (calcpts(j,19), j = 1,neta) /0.4815D-05, 0.5834D-05,
19732 # 0.7067D-05, 0.8563D-05, 0.1038D-04, 0.1257D-04, 0.1523D-04,
19733 # 0.1845D-04, 0.2236D-04, 0.2709D-04, 0.3283D-04, 0.3979D-04,
19734 # 0.4823D-04, 0.5848D-04, 0.7091D-04, 0.8605D-04, 0.1045D-03,
19735 # 0.1270D-03, 0.1547D-03, 0.1887D-03, 0.2310D-03, 0.2842D-03,
19736 # 0.3518D-03, 0.4393D-03, 0.5551D-03, 0.7123D-03, 0.9310D-03,
19737 # 0.1242D-02, 0.1694D-02, 0.2349D-02, 0.3290D-02, 0.4593D-02,
19738 # 0.6281D-02, 0.8248D-02, 0.1018D-01, 0.1159D-01, 0.1204D-01,
19739 # 0.1138D-01, 0.9887D-02, 0.8062D-02, 0.6306D-02, 0.4815D-02,
19740 # 0.3625D-02, 0.2697D-02, 0.1984D-02, 0.1442D-02, 0.1035D-02,
19741 # 0.7363D-03, 0.5187D-03, 0.3626D-03, 0.2517D-03, 0.1742D-03,
19742 # 0.1200D-03, 0.8207D-04, 0.5639D-04, 0.3855D-04, 0.2627D-04,
19743 # 0.1773D-04, 0.1218D-04, 0.8433D-05, 0.5453D-05, 0.3663D-05,
19744 # 0.2898D-05, 0.1710D-05, 0.1355D-05, 0.1113D-05, 0.2814D-06,
19745 # 0.1690D-06, 0.9258D-07, 0.4042D-07, 0.4880D-08, -.1932D-07,
19746 # -.3580D-07/
19747
19748 data (calcpts(j,20), j = 1,neta) /0.6052D-05, 0.7332D-05,
19749 # 0.8882D-05, 0.1076D-04, 0.1304D-04, 0.1580D-04, 0.1914D-04,
19750 # 0.2319D-04, 0.2810D-04, 0.3405D-04, 0.4126D-04, 0.5000D-04,
19751 # 0.6060D-04, 0.7348D-04, 0.8909D-04, 0.1081D-03, 0.1313D-03,
19752 # 0.1595D-03, 0.1941D-03, 0.2368D-03, 0.2896D-03, 0.3558D-03,
19753 # 0.4397D-03, 0.5479D-03, 0.6905D-03, 0.8828D-03, 0.1149D-02,
19754 # 0.1527D-02, 0.2073D-02, 0.2866D-02, 0.4009D-02, 0.5604D-02,
19755 # 0.7695D-02, 0.1017D-01, 0.1265D-01, 0.1452D-01, 0.1516D-01,
19756 # 0.1433D-01, 0.1237D-01, 0.9951D-02, 0.7656D-02, 0.5758D-02,
19757 # 0.4289D-02, 0.3177D-02, 0.2336D-02, 0.1702D-02, 0.1227D-02,
19758 # 0.8756D-03, 0.6190D-03, 0.4342D-03, 0.3023D-03, 0.2098D-03,
19759 # 0.1449D-03, 0.9966D-04, 0.6879D-04, 0.4702D-04, 0.3254D-04,
19760 # 0.2208D-04, 0.1546D-04, 0.1077D-04, 0.7606D-05, 0.5022D-05,
19761 # 0.3505D-05, 0.2924D-05, 0.1862D-05, 0.1593D-05, 0.1409D-05,
19762 # 0.6174D-06, 0.5323D-06, 0.4742D-06, 0.4347D-06, 0.4077D-06,
19763 # 0.3894D-06/
19764
19765 data (calcpts(j,21), j = 1,neta) /0.7225D-05, 0.8754D-05,
19766 # 0.1060D-04, 0.1285D-04, 0.1557D-04, 0.1886D-04, 0.2285D-04,
19767 # 0.2769D-04, 0.3354D-04, 0.4064D-04, 0.4925D-04, 0.5969D-04,
19768 # 0.7234D-04, 0.8770D-04, 0.1063D-03, 0.1290D-03, 0.1566D-03,
19769 # 0.1902D-03, 0.2314D-03, 0.2821D-03, 0.3446D-03, 0.4228D-03,
19770 # 0.5215D-03, 0.6482D-03, 0.8139D-03, 0.1036D-02, 0.1341D-02,
19771 # 0.1772D-02, 0.2391D-02, 0.3291D-02, 0.4591D-02, 0.6420D-02,
19772 # 0.8852D-02, 0.1179D-01, 0.1482D-01, 0.1722D-01, 0.1815D-01,
19773 # 0.1725D-01, 0.1484D-01, 0.1179D-01, 0.8890D-02, 0.6547D-02,
19774 # 0.4798D-02, 0.3523D-02, 0.2586D-02, 0.1889D-02, 0.1369D-02,
19775 # 0.9817D-03, 0.6970D-03, 0.4904D-03, 0.3405D-03, 0.2364D-03,
19776 # 0.1636D-03, 0.1165D-03, 0.7802D-04, 0.5204D-04, 0.3676D-04,
19777 # 0.2420D-04, 0.1352D-04, 0.1079D-04, 0.8921D-05, 0.7650D-05,
19778 # 0.1180D-06, -.4722D-06, -.8743D-06, -.1148D-05, -.1335D-05,
19779 # -.1462D-05, -.1548D-05, -.1607D-05, -.1648D-05, -.1675D-05,
19780 # -.1694D-05/
19781
19782 data (calcpts(j,22), j = 1,neta) /0.8126D-05, 0.9846D-05,
19783 # 0.1193D-04, 0.1445D-04, 0.1751D-04, 0.2121D-04, 0.2570D-04,
19784 # 0.3114D-04, 0.3772D-04, 0.4571D-04, 0.5539D-04, 0.6712D-04,
19785 # 0.8135D-04, 0.9862D-04, 0.1195D-03, 0.1450D-03, 0.1760D-03,
19786 # 0.2137D-03, 0.2598D-03, 0.3164D-03, 0.3862D-03, 0.4730D-03,
19787 # 0.5821D-03, 0.7212D-03, 0.9018D-03, 0.1142D-02, 0.1468D-02,
19788 # 0.1925D-02, 0.2577D-02, 0.3522D-02, 0.4889D-02, 0.6829D-02,
19789 # 0.9448D-02, 0.1269D-01, 0.1617D-01, 0.1908D-01, 0.2047D-01,
19790 # 0.1972D-01, 0.1705D-01, 0.1345D-01, 0.9946D-02, 0.7133D-02,
19791 # 0.5103D-02, 0.3690D-02, 0.2694D-02, 0.1972D-02, 0.1441D-02,
19792 # 0.1041D-02, 0.7446D-03, 0.5284D-03, 0.3724D-03, 0.2599D-03,
19793 # 0.1772D-03, 0.1258D-03, 0.8889D-04, 0.5733D-04, 0.4279D-04,
19794 # 0.3074D-04, 0.2041D-04, 0.1124D-04, 0.9540D-05, 0.8379D-05,
19795 # 0.9215D-06, 0.3822D-06, 0.1478D-07, -.2354D-06, -.4059D-06,
19796 # -.5221D-06, -.6012D-06, -.6551D-06, -.6919D-06, -.7169D-06,
19797 # -.7339D-06/
19798
19799 data (calcpts(j,23), j = 1,neta) /0.8555D-05, 0.1037D-04,
19800 # 0.1256D-04, 0.1521D-04, 0.1843D-04, 0.2233D-04, 0.2706D-04,
19801 # 0.3278D-04, 0.3971D-04, 0.4812D-04, 0.5831D-04, 0.7066D-04,
19802 # 0.8563D-04, 0.1038D-03, 0.1258D-03, 0.1526D-03, 0.1851D-03,
19803 # 0.2247D-03, 0.2731D-03, 0.3323D-03, 0.4050D-03, 0.4952D-03,
19804 # 0.6079D-03, 0.7506D-03, 0.9342D-03, 0.1175D-02, 0.1500D-02,
19805 # 0.1948D-02, 0.2582D-02, 0.3494D-02, 0.4813D-02, 0.6696D-02,
19806 # 0.9276D-02, 0.1255D-01, 0.1623D-01, 0.1956D-01, 0.2150D-01,
19807 # 0.2122D-01, 0.1870D-01, 0.1484D-01, 0.1085D-01, 0.7583D-02,
19808 # 0.5254D-02, 0.3705D-02, 0.2674D-02, 0.1958D-02, 0.1439D-02,
19809 # 0.1054D-02, 0.7605D-03, 0.5451D-03, 0.3902D-03, 0.2743D-03,
19810 # 0.1917D-03, 0.1316D-03, 0.9125D-04, 0.6188D-04, 0.4216D-04,
19811 # 0.3112D-04, 0.2148D-04, 0.1279D-04, 0.1140D-04, 0.3796D-05,
19812 # 0.3154D-05, 0.2717D-05, 0.2418D-05, 0.2215D-05, 0.2077D-05,
19813 # 0.1983D-05, 0.1919D-05, 0.1875D-05, 0.1845D-05, 0.1825D-05,
19814 # 0.1811D-05/
19815
19816 data (calcpts(j,24), j = 1,neta) /0.8413D-05, 0.1019D-04,
19817 # 0.1235D-04, 0.1496D-04, 0.1813D-04, 0.2196D-04, 0.2661D-04,
19818 # 0.3224D-04, 0.3905D-04, 0.4732D-04, 0.5734D-04, 0.6948D-04,
19819 # 0.8420D-04, 0.1020D-03, 0.1237D-03, 0.1500D-03, 0.1819D-03,
19820 # 0.2207D-03, 0.2680D-03, 0.3259D-03, 0.3968D-03, 0.4842D-03,
19821 # 0.5930D-03, 0.7296D-03, 0.9037D-03, 0.1130D-02, 0.1429D-02,
19822 # 0.1837D-02, 0.2406D-02, 0.3215D-02, 0.4381D-02, 0.6047D-02,
19823 # 0.8359D-02, 0.1138D-01, 0.1491D-01, 0.1838D-01, 0.2084D-01,
19824 # 0.2132D-01, 0.1945D-01, 0.1584D-01, 0.1168D-01, 0.8046D-02,
19825 # 0.5399D-02, 0.3674D-02, 0.2589D-02, 0.1882D-02, 0.1394D-02,
19826 # 0.1027D-02, 0.7572D-03, 0.5472D-03, 0.3965D-03, 0.2795D-03,
19827 # 0.1985D-03, 0.1375D-03, 0.9440D-04, 0.6770D-04, 0.4313D-04,
19828 # 0.3334D-04, 0.2454D-04, 0.1643D-04, 0.8770D-05, 0.8095D-05,
19829 # 0.7637D-05, 0.6570D-06, 0.4437D-06, 0.2984D-06, 0.1995D-06,
19830 # 0.1320D-06, 0.8611D-07, 0.5480D-07, 0.3347D-07, 0.1894D-07,
19831 # 0.9044D-08/
19832
19833 data (calcpts(j,25), j = 1,neta) /0.7746D-05, 0.9385D-05,
19834 # 0.1137D-04, 0.1377D-04, 0.1669D-04, 0.2022D-04, 0.2450D-04,
19835 # 0.2968D-04, 0.3595D-04, 0.4356D-04, 0.5279D-04, 0.6396D-04,
19836 # 0.7750D-04, 0.9393D-04, 0.1138D-03, 0.1380D-03, 0.1673D-03,
19837 # 0.2030D-03, 0.2464D-03, 0.2993D-03, 0.3640D-03, 0.4435D-03,
19838 # 0.5418D-03, 0.6644D-03, 0.8191D-03, 0.1017D-02, 0.1276D-02,
19839 # 0.1623D-02, 0.2097D-02, 0.2763D-02, 0.3711D-02, 0.5062D-02,
19840 # 0.6951D-02, 0.9470D-02, 0.1255D-01, 0.1582D-01, 0.1854D-01,
19841 # 0.1980D-01, 0.1897D-01, 0.1619D-01, 0.1236D-01, 0.8615D-02,
19842 # 0.5685D-02, 0.3727D-02, 0.2527D-02, 0.1798D-02, 0.1322D-02,
19843 # 0.9898D-03, 0.7401D-03, 0.5472D-03, 0.3930D-03, 0.2873D-03,
19844 # 0.2008D-03, 0.1385D-03, 0.9903D-04, 0.6815D-04, 0.4528D-04,
19845 # 0.2999D-04, 0.2199D-04, 0.1441D-04, 0.1379D-04, 0.6702D-05,
19846 # 0.6414D-05, 0.6217D-05, -.5833D-06, -.6745D-06, -.7366D-06,
19847 # -.7790D-06, -.8078D-06, -.8274D-06, -.8408D-06, -.8499D-06,
19848 # -.8561D-06/
19849
19850 data (calcpts(j,26), j = 1,neta) /0.6715D-05, 0.8136D-05,
19851 # 0.9855D-05, 0.1194D-04, 0.1447D-04, 0.1753D-04, 0.2123D-04,
19852 # 0.2573D-04, 0.3117D-04, 0.3776D-04, 0.4576D-04, 0.5544D-04,
19853 # 0.6718D-04, 0.8141D-04, 0.9864D-04, 0.1196D-03, 0.1450D-03,
19854 # 0.1758D-03, 0.2132D-03, 0.2589D-03, 0.3145D-03, 0.3827D-03,
19855 # 0.4666D-03, 0.5705D-03, 0.7003D-03, 0.8648D-03, 0.1076D-02,
19856 # 0.1354D-02, 0.1727D-02, 0.2241D-02, 0.2960D-02, 0.3976D-02,
19857 # 0.5397D-02, 0.7320D-02, 0.9753D-02, 0.1251D-01, 0.1514D-01,
19858 # 0.1691D-01, 0.1715D-01, 0.1558D-01, 0.1263D-01, 0.9184D-02,
19859 # 0.6147D-02, 0.3950D-02, 0.2568D-02, 0.1754D-02, 0.1266D-02,
19860 # 0.9457D-03, 0.7134D-03, 0.5339D-03, 0.3943D-03, 0.2873D-03,
19861 # 0.2062D-03, 0.1459D-03, 0.1026D-03, 0.7161D-04, 0.5138D-04,
19862 # 0.3698D-04, 0.2292D-04, 0.1576D-04, 0.8751D-05, 0.8521D-05,
19863 # 0.1697D-05, 0.1590D-05, 0.1517D-05, 0.1467D-05, 0.1433D-05,
19864 # 0.1410D-05, 0.1394D-05, 0.1384D-05, 0.1376D-05, 0.1371D-05,
19865 # 0.1368D-05/
19866
19867 data (calcpts(j,27), j = 1,neta) /0.5527D-05, 0.6697D-05,
19868 # 0.8112D-05, 0.9828D-05, 0.1191D-04, 0.1443D-04, 0.1748D-04,
19869 # 0.2118D-04, 0.2565D-04, 0.3108D-04, 0.3766D-04, 0.4563D-04,
19870 # 0.5529D-04, 0.6700D-04, 0.8117D-04, 0.9838D-04, 0.1193D-03,
19871 # 0.1446D-03, 0.1753D-03, 0.2127D-03, 0.2582D-03, 0.3138D-03,
19872 # 0.3820D-03, 0.4658D-03, 0.5698D-03, 0.7001D-03, 0.8652D-03,
19873 # 0.1078D-02, 0.1359D-02, 0.1736D-02, 0.2254D-02, 0.2975D-02,
19874 # 0.3975D-02, 0.5336D-02, 0.7100D-02, 0.9208D-02, 0.1142D-01,
19875 # 0.1330D-01, 0.1427D-01, 0.1389D-01, 0.1213D-01, 0.9453D-02,
19876 # 0.6646D-02, 0.4334D-02, 0.2749D-02, 0.1791D-02, 0.1239D-02,
19877 # 0.9080D-03, 0.6858D-03, 0.5201D-03, 0.3907D-03, 0.2893D-03,
19878 # 0.2107D-03, 0.1511D-03, 0.1076D-03, 0.7520D-04, 0.5248D-04,
19879 # 0.3666D-04, 0.2566D-04, 0.1810D-04, 0.1261D-04, 0.8501D-05,
19880 # 0.6429D-05, 0.4380D-05, 0.3013D-05, 0.2324D-05, 0.1642D-05,
19881 # 0.1631D-05, 0.9573D-06, 0.9524D-06, 0.9491D-06, 0.9468D-06,
19882 # 0.9452D-06/
19883
19884 data (calcpts(j,28), j = 1,neta) /0.4356D-05, 0.5278D-05,
19885 # 0.6393D-05, 0.7746D-05, 0.9385D-05, 0.1137D-04, 0.1377D-04,
19886 # 0.1669D-04, 0.2022D-04, 0.2450D-04, 0.2968D-04, 0.3596D-04,
19887 # 0.4357D-04, 0.5279D-04, 0.6396D-04, 0.7751D-04, 0.9394D-04,
19888 # 0.1139D-03, 0.1380D-03, 0.1674D-03, 0.2031D-03, 0.2466D-03,
19889 # 0.2997D-03, 0.3648D-03, 0.4450D-03, 0.5445D-03, 0.6690D-03,
19890 # 0.8273D-03, 0.1031D-02, 0.1300D-02, 0.1660D-02, 0.2150D-02,
19891 # 0.2822D-02, 0.3731D-02, 0.4925D-02, 0.6402D-02, 0.8068D-02,
19892 # 0.9700D-02, 0.1093D-01, 0.1138D-01, 0.1074D-01, 0.9100D-02,
19893 # 0.6902D-02, 0.4741D-02, 0.3044D-02, 0.1922D-02, 0.1261D-02,
19894 # 0.8844D-03, 0.6548D-03, 0.4977D-03, 0.3789D-03, 0.2847D-03,
19895 # 0.2103D-03, 0.1528D-03, 0.1097D-03, 0.7798D-04, 0.5441D-04,
19896 # 0.3824D-04, 0.2613D-04, 0.1806D-04, 0.1267D-04, 0.8635D-05,
19897 # 0.5944D-05, 0.3927D-05, 0.3250D-05, 0.1909D-05, 0.1237D-05,
19898 # 0.1233D-05, 0.5641D-06, 0.5624D-06, 0.5613D-06, 0.5605D-06,
19899 # 0.5600D-06/
19900
19901 data (calcpts(j,29), j = 1,neta) /0.3316D-05, 0.4017D-05,
19902 # 0.4866D-05, 0.5896D-05, 0.7143D-05, 0.8654D-05, 0.1048D-04,
19903 # 0.1270D-04, 0.1539D-04, 0.1864D-04, 0.2259D-04, 0.2737D-04,
19904 # 0.3316D-04, 0.4018D-04, 0.4868D-04, 0.5898D-04, 0.7148D-04,
19905 # 0.8663D-04, 0.1050D-03, 0.1273D-03, 0.1544D-03, 0.1873D-03,
19906 # 0.2274D-03, 0.2764D-03, 0.3363D-03, 0.4102D-03, 0.5017D-03,
19907 # 0.6164D-03, 0.7619D-03, 0.9490D-03, 0.1194D-02, 0.1520D-02,
19908 # 0.1957D-02, 0.2541D-02, 0.3310D-02, 0.4278D-02, 0.5426D-02,
19909 # 0.6659D-02, 0.7797D-02, 0.8574D-02, 0.8706D-02, 0.8034D-02,
19910 # 0.6662D-02, 0.4955D-02, 0.3351D-02, 0.2133D-02, 0.1347D-02,
19911 # 0.8913D-03, 0.6316D-03, 0.4717D-03, 0.3603D-03, 0.2743D-03,
19912 # 0.2056D-03, 0.1516D-03, 0.1102D-03, 0.7889D-04, 0.5555D-04,
19913 # 0.3887D-04, 0.2687D-04, 0.1887D-04, 0.1287D-04, 0.8864D-05,
19914 # 0.6196D-05, 0.4195D-05, 0.2861D-05, 0.1528D-05, 0.8609D-06,
19915 # 0.8608D-06, 0.1940D-06, 0.1939D-06, 0.1939D-06, 0.1938D-06,
19916 # 0.1938D-06/
19917
19918 data (calcpts(j,30), j = 1,neta) /0.2456D-05, 0.2976D-05,
19919 # 0.3605D-05, 0.4368D-05, 0.5292D-05, 0.6411D-05, 0.7767D-05,
19920 # 0.9411D-05, 0.1140D-04, 0.1381D-04, 0.1674D-04, 0.2027D-04,
19921 # 0.2456D-04, 0.2976D-04, 0.3606D-04, 0.4369D-04, 0.5294D-04,
19922 # 0.6415D-04, 0.7774D-04, 0.9423D-04, 0.1142D-03, 0.1385D-03,
19923 # 0.1680D-03, 0.2040D-03, 0.2478D-03, 0.3016D-03, 0.3675D-03,
19924 # 0.4493D-03, 0.5515D-03, 0.6804D-03, 0.8454D-03, 0.1060D-02,
19925 # 0.1340D-02, 0.1708D-02, 0.2186D-02, 0.2794D-02, 0.3532D-02,
19926 # 0.4376D-02, 0.5249D-02, 0.6019D-02, 0.6490D-02, 0.6471D-02,
19927 # 0.5869D-02, 0.4789D-02, 0.3513D-02, 0.2351D-02, 0.1490D-02,
19928 # 0.9437D-03, 0.6290D-03, 0.4496D-03, 0.3378D-03, 0.2583D-03,
19929 # 0.1967D-03, 0.1476D-03, 0.1085D-03, 0.7861D-04, 0.5603D-04,
19930 # 0.3942D-04, 0.2812D-04, 0.1948D-04, 0.1350D-04, 0.9509D-05,
19931 # 0.6184D-05, 0.4190D-05, 0.2860D-05, 0.2196D-05, 0.1531D-05,
19932 # 0.8655D-06, 0.8663D-06, 0.2002D-06, 0.2006D-06, 0.2009D-06,
19933 # 0.2010D-06/
19934
19935 data (calcpts(j,31), j = 1,neta) /0.1782D-05, 0.2159D-05,
19936 # 0.2615D-05, 0.3168D-05, 0.3839D-05, 0.4650D-05, 0.5634D-05,
19937 # 0.6826D-05, 0.8269D-05, 0.1002D-04, 0.1214D-04, 0.1471D-04,
19938 # 0.1782D-04, 0.2159D-04, 0.2615D-04, 0.3169D-04, 0.3839D-04,
19939 # 0.4652D-04, 0.5637D-04, 0.6831D-04, 0.8278D-04, 0.1003D-03,
19940 # 0.1217D-03, 0.1476D-03, 0.1791D-03, 0.2175D-03, 0.2644D-03,
19941 # 0.3220D-03, 0.3931D-03, 0.4814D-03, 0.5922D-03, 0.7325D-03,
19942 # 0.9115D-03, 0.1141D-02, 0.1435D-02, 0.1805D-02, 0.2259D-02,
19943 # 0.2796D-02, 0.3394D-02, 0.3997D-02, 0.4507D-02, 0.4786D-02,
19944 # 0.4704D-02, 0.4211D-02, 0.3395D-02, 0.2465D-02, 0.1639D-02,
19945 # 0.1036D-02, 0.6582D-03, 0.4417D-03, 0.3174D-03, 0.2395D-03,
19946 # 0.1833D-03, 0.1396D-03, 0.1045D-03, 0.7664D-04, 0.5541D-04,
19947 # 0.3948D-04, 0.2819D-04, 0.1956D-04, 0.1358D-04, 0.9596D-05,
19948 # 0.6273D-05, 0.4280D-05, 0.2951D-05, 0.2288D-05, 0.1623D-05,
19949 # 0.9582D-06, 0.9592D-06, 0.2932D-06, 0.2937D-06, 0.2940D-06,
19950 # 0.2942D-06/
19951
19952 data (calcpts(j,32), j = 1,neta) /0.1272D-05, 0.1541D-05,
19953 # 0.1866D-05, 0.2261D-05, 0.2740D-05, 0.3319D-05, 0.4021D-05,
19954 # 0.4872D-05, 0.5902D-05, 0.7150D-05, 0.8664D-05, 0.1050D-04,
19955 # 0.1272D-04, 0.1541D-04, 0.1866D-04, 0.2261D-04, 0.2740D-04,
19956 # 0.3320D-04, 0.4022D-04, 0.4874D-04, 0.5904D-04, 0.7155D-04,
19957 # 0.8673D-04, 0.1051D-03, 0.1274D-03, 0.1546D-03, 0.1876D-03,
19958 # 0.2278D-03, 0.2770D-03, 0.3373D-03, 0.4117D-03, 0.5039D-03,
19959 # 0.6187D-03, 0.7624D-03, 0.9419D-03, 0.1164D-02, 0.1437D-02,
19960 # 0.1763D-02, 0.2141D-02, 0.2555D-02, 0.2964D-02, 0.3298D-02,
19961 # 0.3459D-02, 0.3363D-02, 0.2980D-02, 0.2382D-02, 0.1717D-02,
19962 # 0.1136D-02, 0.7172D-03, 0.4566D-03, 0.3082D-03, 0.2229D-03,
19963 # 0.1680D-03, 0.1290D-03, 0.9783D-04, 0.7330D-04, 0.5406D-04,
19964 # 0.3879D-04, 0.2751D-04, 0.1953D-04, 0.1356D-04, 0.9569D-05,
19965 # 0.6245D-05, 0.4252D-05, 0.2923D-05, 0.2259D-05, 0.1594D-05,
19966 # 0.9291D-06, 0.2634D-06, 0.2640D-06, 0.2645D-06, 0.2648D-06,
19967 # 0.2650D-06/
19968
19969 data (calcpts(j,33), j = 1,neta) /0.8970D-06, 0.1087D-05,
19970 # 0.1317D-05, 0.1595D-05, 0.1933D-05, 0.2341D-05, 0.2837D-05,
19971 # 0.3437D-05, 0.4163D-05, 0.5044D-05, 0.6112D-05, 0.7404D-05,
19972 # 0.8970D-05, 0.1087D-04, 0.1317D-04, 0.1595D-04, 0.1933D-04,
19973 # 0.2341D-04, 0.2837D-04, 0.3437D-04, 0.4163D-04, 0.5045D-04,
19974 # 0.6112D-04, 0.7405D-04, 0.8972D-04, 0.1087D-03, 0.1317D-03,
19975 # 0.1597D-03, 0.1936D-03, 0.2347D-03, 0.2848D-03, 0.3457D-03,
19976 # 0.4200D-03, 0.5106D-03, 0.6210D-03, 0.7547D-03, 0.9159D-03,
19977 # 0.1109D-02, 0.1336D-02, 0.1597D-02, 0.1879D-02, 0.2154D-02,
19978 # 0.2370D-02, 0.2463D-02, 0.2373D-02, 0.2087D-02, 0.1657D-02,
19979 # 0.1189D-02, 0.7842D-03, 0.4950D-03, 0.3161D-03, 0.2139D-03,
19980 # 0.1556D-03, 0.1179D-03, 0.9002D-04, 0.6880D-04, 0.5155D-04,
19981 # 0.3760D-04, 0.2763D-04, 0.1966D-04, 0.1368D-04, 0.9687D-05,
19982 # 0.7028D-05, 0.5033D-05, 0.3036D-05, 0.2372D-05, 0.1707D-05,
19983 # 0.1042D-05, 0.1042D-05, 0.3762D-06, 0.3766D-06, 0.3768D-06,
19984 # 0.3770D-06/
19985
19986 data (calcpts(j,34), j = 1,neta) /0.6268D-06, 0.7595D-06,
19987 # 0.9200D-06, 0.1115D-05, 0.1351D-05, 0.1636D-05, 0.1982D-05,
19988 # 0.2402D-05, 0.2909D-05, 0.3525D-05, 0.4271D-05, 0.5174D-05,
19989 # 0.6268D-05, 0.7595D-05, 0.9200D-05, 0.1115D-04, 0.1350D-04,
19990 # 0.1636D-04, 0.1982D-04, 0.2401D-04, 0.2908D-04, 0.3523D-04,
19991 # 0.4268D-04, 0.5169D-04, 0.6260D-04, 0.7581D-04, 0.9176D-04,
19992 # 0.1110D-03, 0.1343D-03, 0.1624D-03, 0.1961D-03, 0.2367D-03,
19993 # 0.2851D-03, 0.3429D-03, 0.4115D-03, 0.4925D-03, 0.5880D-03,
19994 # 0.7006D-03, 0.8336D-03, 0.9893D-03, 0.1167D-02, 0.1358D-02,
19995 # 0.1540D-02, 0.1681D-02, 0.1733D-02, 0.1659D-02, 0.1450D-02,
19996 # 0.1146D-02, 0.8190D-03, 0.5392D-03, 0.3403D-03, 0.2178D-03,
19997 # 0.1480D-03, 0.1076D-03, 0.8157D-04, 0.6259D-04, 0.4758D-04,
19998 # 0.3556D-04, 0.2612D-04, 0.1887D-04, 0.1348D-04, 0.9490D-05,
19999 # 0.6696D-05, 0.4633D-05, 0.3236D-05, 0.2238D-05, 0.1572D-05,
20000 # 0.1106D-05, 0.7737D-06, 0.5075D-06, 0.3744D-06, 0.3079D-06,
20001 # 0.1747D-06/
20002
20003 data (calcpts(j,35), j = 1,neta) /0.4350D-06, 0.5271D-06,
20004 # 0.6385D-06, 0.7736D-06, 0.9373D-06, 0.1136D-05, 0.1376D-05,
20005 # 0.1667D-05, 0.2019D-05, 0.2446D-05, 0.2964D-05, 0.3591D-05,
20006 # 0.4350D-05, 0.5271D-05, 0.6385D-05, 0.7735D-05, 0.9372D-05,
20007 # 0.1135D-04, 0.1375D-04, 0.1666D-04, 0.2018D-04, 0.2445D-04,
20008 # 0.2961D-04, 0.3585D-04, 0.4340D-04, 0.5253D-04, 0.6354D-04,
20009 # 0.7681D-04, 0.9277D-04, 0.1119D-03, 0.1347D-03, 0.1618D-03,
20010 # 0.1937D-03, 0.2310D-03, 0.2742D-03, 0.3239D-03, 0.3809D-03,
20011 # 0.4467D-03, 0.5232D-03, 0.6132D-03, 0.7186D-03, 0.8385D-03,
20012 # 0.9666D-03, 0.1088D-02, 0.1179D-02, 0.1209D-02, 0.1152D-02,
20013 # 0.1002D-02, 0.7892D-03, 0.5624D-03, 0.3697D-03, 0.2333D-03,
20014 # 0.1496D-03, 0.1018D-03, 0.7418D-04, 0.5625D-04, 0.4316D-04,
20015 # 0.3279D-04, 0.2447D-04, 0.1795D-04, 0.1296D-04, 0.9234D-05,
20016 # 0.6505D-05, 0.4508D-05, 0.3110D-05, 0.2178D-05, 0.1446D-05,
20017 # 0.9797D-06, 0.6468D-06, 0.4471D-06, 0.3140D-06, 0.1808D-06,
20018 # 0.1142D-06/
20019
20020 data (calcpts(j,36), j = 1,neta) /0.3005D-06, 0.3641D-06,
20021 # 0.4410D-06, 0.5343D-06, 0.6474D-06, 0.7844D-06, 0.9503D-06,
20022 # 0.1151D-05, 0.1395D-05, 0.1690D-05, 0.2047D-05, 0.2480D-05,
20023 # 0.3005D-05, 0.3641D-05, 0.4410D-05, 0.5343D-05, 0.6473D-05,
20024 # 0.7842D-05, 0.9500D-05, 0.1151D-04, 0.1394D-04, 0.1688D-04,
20025 # 0.2044D-04, 0.2475D-04, 0.2996D-04, 0.3624D-04, 0.4381D-04,
20026 # 0.5293D-04, 0.6385D-04, 0.7688D-04, 0.9234D-04, 0.1105D-03,
20027 # 0.1317D-03, 0.1561D-03, 0.1837D-03, 0.2147D-03, 0.2492D-03,
20028 # 0.2879D-03, 0.3319D-03, 0.3831D-03, 0.4434D-03, 0.5142D-03,
20029 # 0.5948D-03, 0.6807D-03, 0.7617D-03, 0.8210D-03, 0.8378D-03,
20030 # 0.7949D-03, 0.6898D-03, 0.5417D-03, 0.3854D-03, 0.2531D-03,
20031 # 0.1597D-03, 0.1025D-03, 0.6996D-04, 0.5100D-04, 0.3870D-04,
20032 # 0.2972D-04, 0.2253D-04, 0.1688D-04, 0.1235D-04, 0.8956D-05,
20033 # 0.6359D-05, 0.4494D-05, 0.3096D-05, 0.2163D-05, 0.1497D-05,
20034 # 0.1031D-05, 0.6979D-06, 0.4981D-06, 0.2982D-06, 0.2317D-06,
20035 # 0.1651D-06/
20036
20037 data (calcpts(j,37), j = 1,neta) /0.2068D-06, 0.2505D-06,
20038 # 0.3035D-06, 0.3677D-06, 0.4455D-06, 0.5397D-06, 0.6539D-06,
20039 # 0.7923D-06, 0.9597D-06, 0.1163D-05, 0.1409D-05, 0.1707D-05,
20040 # 0.2068D-05, 0.2505D-05, 0.3035D-05, 0.3677D-05, 0.4454D-05,
20041 # 0.5396D-05, 0.6537D-05, 0.7918D-05, 0.9589D-05, 0.1161D-04,
20042 # 0.1406D-04, 0.1703D-04, 0.2060D-04, 0.2492D-04, 0.3011D-04,
20043 # 0.3636D-04, 0.4383D-04, 0.5271D-04, 0.6320D-04, 0.7547D-04,
20044 # 0.8960D-04, 0.1057D-03, 0.1236D-03, 0.1432D-03, 0.1645D-03,
20045 # 0.1875D-03, 0.2130D-03, 0.2420D-03, 0.2759D-03, 0.3161D-03,
20046 # 0.3636D-03, 0.4177D-03, 0.4753D-03, 0.5293D-03, 0.5682D-03,
20047 # 0.5779D-03, 0.5467D-03, 0.4734D-03, 0.3711D-03, 0.2636D-03,
20048 # 0.1730D-03, 0.1092D-03, 0.7015D-04, 0.4791D-04, 0.3500D-04,
20049 # 0.2655D-04, 0.2036D-04, 0.1550D-04, 0.1157D-04, 0.8508D-05,
20050 # 0.6110D-05, 0.4379D-05, 0.3046D-05, 0.2114D-05, 0.1514D-05,
20051 # 0.1048D-05, 0.7145D-06, 0.5147D-06, 0.3148D-06, 0.2482D-06,
20052 # 0.1816D-06/
20053
20054 data (calcpts(j,38), j = 1,neta) /0.1419D-06, 0.1719D-06,
20055 # 0.2082D-06, 0.2523D-06, 0.3057D-06, 0.3703D-06, 0.4487D-06,
20056 # 0.5436D-06, 0.6585D-06, 0.7978D-06, 0.9667D-06, 0.1171D-05,
20057 # 0.1419D-05, 0.1719D-05, 0.2082D-05, 0.2523D-05, 0.3056D-05,
20058 # 0.3702D-05, 0.4485D-05, 0.5433D-05, 0.6579D-05, 0.7968D-05,
20059 # 0.9649D-05, 0.1168D-04, 0.1413D-04, 0.1709D-04, 0.2065D-04,
20060 # 0.2492D-04, 0.3002D-04, 0.3607D-04, 0.4320D-04, 0.5149D-04,
20061 # 0.6098D-04, 0.7165D-04, 0.8339D-04, 0.9600D-04, 0.1093D-03,
20062 # 0.1234D-03, 0.1383D-03, 0.1548D-03, 0.1737D-03, 0.1960D-03,
20063 # 0.2228D-03, 0.2547D-03, 0.2911D-03, 0.3297D-03, 0.3658D-03,
20064 # 0.3915D-03, 0.3972D-03, 0.3750D-03, 0.3241D-03, 0.2537D-03,
20065 # 0.1801D-03, 0.1181D-03, 0.7455D-04, 0.4790D-04, 0.3279D-04,
20066 # 0.2393D-04, 0.1820D-04, 0.1394D-04, 0.1061D-04, 0.7880D-05,
20067 # 0.5815D-05, 0.4149D-05, 0.2950D-05, 0.2084D-05, 0.1417D-05,
20068 # 0.1017D-05, 0.6842D-06, 0.2843D-06, 0.2844D-06, 0.2178D-06,
20069 # 0.1512D-06/
20070
20071 data (calcpts(j,39), j = 1,neta) /0.9721D-07, 0.1178D-06,
20072 # 0.1427D-06, 0.1729D-06, 0.2094D-06, 0.2537D-06, 0.3074D-06,
20073 # 0.3724D-06, 0.4511D-06, 0.5466D-06, 0.6623D-06, 0.8023D-06,
20074 # 0.9720D-06, 0.1178D-05, 0.1427D-05, 0.1728D-05, 0.2094D-05,
20075 # 0.2537D-05, 0.3073D-05, 0.3722D-05, 0.4507D-05, 0.5459D-05,
20076 # 0.6610D-05, 0.8000D-05, 0.9679D-05, 0.1170D-04, 0.1414D-04,
20077 # 0.1705D-04, 0.2054D-04, 0.2466D-04, 0.2951D-04, 0.3513D-04,
20078 # 0.4153D-04, 0.4867D-04, 0.5644D-04, 0.6466D-04, 0.7316D-04,
20079 # 0.8184D-04, 0.9078D-04, 0.1003D-03, 0.1108D-03, 0.1231D-03,
20080 # 0.1379D-03, 0.1558D-03, 0.1771D-03, 0.2016D-03, 0.2277D-03,
20081 # 0.2518D-03, 0.2689D-03, 0.2724D-03, 0.2567D-03, 0.2216D-03,
20082 # 0.1733D-03, 0.1230D-03, 0.8063D-04, 0.5093D-04, 0.3276D-04,
20083 # 0.2239D-04, 0.1640D-04, 0.1247D-04, 0.9535D-05, 0.7270D-05,
20084 # 0.5404D-05, 0.4005D-05, 0.2872D-05, 0.2072D-05, 0.1473D-05,
20085 # 0.1006D-05, 0.7395D-06, 0.4729D-06, 0.3396D-06, 0.2730D-06,
20086 # 0.2064D-06/
20087
20088 data (calcpts(j,40), j = 1,neta) /0.6647D-07, 0.8054D-07,
20089 # 0.9756D-07, 0.1182D-06, 0.1432D-06, 0.1735D-06, 0.2102D-06,
20090 # 0.2547D-06, 0.3085D-06, 0.3738D-06, 0.4529D-06, 0.5486D-06,
20091 # 0.6647D-06, 0.8053D-06, 0.9755D-06, 0.1182D-05, 0.1432D-05,
20092 # 0.1734D-05, 0.2101D-05, 0.2545D-05, 0.3082D-05, 0.3732D-05,
20093 # 0.4519D-05, 0.5470D-05, 0.6617D-05, 0.8001D-05, 0.9662D-05,
20094 # 0.1166D-04, 0.1403D-04, 0.1684D-04, 0.2014D-04, 0.2395D-04,
20095 # 0.2828D-04, 0.3308D-04, 0.3826D-04, 0.4367D-04, 0.4917D-04,
20096 # 0.5464D-04, 0.6008D-04, 0.6564D-04, 0.7160D-04, 0.7835D-04,
20097 # 0.8637D-04, 0.9616D-04, 0.1081D-03, 0.1225D-03, 0.1390D-03,
20098 # 0.1566D-03, 0.1729D-03, 0.1843D-03, 0.1864D-03, 0.1755D-03,
20099 # 0.1513D-03, 0.1183D-03, 0.8387D-04, 0.5499D-04, 0.3474D-04,
20100 # 0.2235D-04, 0.1530D-04, 0.1119D-04, 0.8507D-05, 0.6528D-05,
20101 # 0.4955D-05, 0.3703D-05, 0.2716D-05, 0.1963D-05, 0.1397D-05,
20102 # 0.9834D-06, 0.6902D-06, 0.4835D-06, 0.3369D-06, 0.2303D-06,
20103 # 0.1636D-06/
20104
20105 data (calcpts(j,41), j = 1,neta) /0.4540D-07, 0.5501D-07,
20106 # 0.6663D-07, 0.8073D-07, 0.9782D-07, 0.1185D-06, 0.1436D-06,
20107 # 0.1740D-06, 0.2107D-06, 0.2553D-06, 0.3093D-06, 0.3747D-06,
20108 # 0.4540D-06, 0.5501D-06, 0.6663D-06, 0.8072D-06, 0.9780D-06,
20109 # 0.1185D-05, 0.1435D-05, 0.1738D-05, 0.2105D-05, 0.2549D-05,
20110 # 0.3087D-05, 0.3736D-05, 0.4519D-05, 0.5464D-05, 0.6598D-05,
20111 # 0.7957D-05, 0.9578D-05, 0.1149D-04, 0.1374D-04, 0.1633D-04,
20112 # 0.1926D-04, 0.2250D-04, 0.2597D-04, 0.2956D-04, 0.3316D-04,
20113 # 0.3667D-04, 0.4005D-04, 0.4337D-04, 0.4679D-04, 0.5052D-04,
20114 # 0.5486D-04, 0.6013D-04, 0.6665D-04, 0.7469D-04, 0.8439D-04,
20115 # 0.9556D-04, 0.1074D-03, 0.1184D-03, 0.1261D-03, 0.1274D-03,
20116 # 0.1198D-03, 0.1033D-03, 0.8069D-04, 0.5719D-04, 0.3748D-04,
20117 # 0.2367D-04, 0.1524D-04, 0.1043D-04, 0.7626D-05, 0.5800D-05,
20118 # 0.4447D-05, 0.3374D-05, 0.2521D-05, 0.1848D-05, 0.1328D-05,
20119 # 0.9483D-06, 0.6683D-06, 0.4617D-06, 0.3217D-06, 0.2217D-06,
20120 # 0.1484D-06/
20121
20122 data (calcpts(j,42), j = 1,neta) /0.3100D-07, 0.3755D-07,
20123 # 0.4549D-07, 0.5512D-07, 0.6678D-07, 0.8090D-07, 0.9801D-07,
20124 # 0.1188D-06, 0.1439D-06, 0.1743D-06, 0.2112D-06, 0.2558D-06,
20125 # 0.3099D-06, 0.3755D-06, 0.4549D-06, 0.5511D-06, 0.6677D-06,
20126 # 0.8088D-06, 0.9797D-06, 0.1187D-05, 0.1437D-05, 0.1740D-05,
20127 # 0.2107D-05, 0.2550D-05, 0.3085D-05, 0.3729D-05, 0.4503D-05,
20128 # 0.5431D-05, 0.6536D-05, 0.7841D-05, 0.9368D-05, 0.1113D-04,
20129 # 0.1312D-04, 0.1531D-04, 0.1765D-04, 0.2005D-04, 0.2243D-04,
20130 # 0.2471D-04, 0.2685D-04, 0.2888D-04, 0.3088D-04, 0.3297D-04,
20131 # 0.3533D-04, 0.3814D-04, 0.4162D-04, 0.4599D-04, 0.5141D-04,
20132 # 0.5796D-04, 0.6552D-04, 0.7356D-04, 0.8100D-04, 0.8616D-04,
20133 # 0.8698D-04, 0.8179D-04, 0.7046D-04, 0.5502D-04, 0.3899D-04,
20134 # 0.2555D-04, 0.1615D-04, 0.1039D-04, 0.7120D-05, 0.5207D-05,
20135 # 0.3961D-05, 0.3035D-05, 0.2308D-05, 0.1722D-05, 0.1262D-05,
20136 # 0.9083D-06, 0.6484D-06, 0.4550D-06, 0.3217D-06, 0.2217D-06,
20137 # 0.1551D-06/
20138
20139 data (calcpts(j,43), j = 1,neta) /0.2115D-07, 0.2562D-07,
20140 # 0.3104D-07, 0.3760D-07, 0.4556D-07, 0.5520D-07, 0.6687D-07,
20141 # 0.8102D-07, 0.9814D-07, 0.1189D-06, 0.1441D-06, 0.1745D-06,
20142 # 0.2115D-06, 0.2562D-06, 0.3103D-06, 0.3760D-06, 0.4555D-06,
20143 # 0.5518D-06, 0.6684D-06, 0.8097D-06, 0.9804D-06, 0.1187D-05,
20144 # 0.1438D-05, 0.1740D-05, 0.2105D-05, 0.2544D-05, 0.3072D-05,
20145 # 0.3704D-05, 0.4457D-05, 0.5347D-05, 0.6387D-05, 0.7585D-05,
20146 # 0.8936D-05, 0.1042D-04, 0.1200D-04, 0.1362D-04, 0.1520D-04,
20147 # 0.1670D-04, 0.1808D-04, 0.1934D-04, 0.2054D-04, 0.2173D-04,
20148 # 0.2303D-04, 0.2453D-04, 0.2637D-04, 0.2869D-04, 0.3162D-04,
20149 # 0.3529D-04, 0.3972D-04, 0.4485D-04, 0.5030D-04, 0.5534D-04,
20150 # 0.5882D-04, 0.5935D-04, 0.5579D-04, 0.4805D-04, 0.3751D-04,
20151 # 0.2657D-04, 0.1742D-04, 0.1101D-04, 0.7086D-05, 0.4853D-05,
20152 # 0.3553D-05, 0.2700D-05, 0.2073D-05, 0.1573D-05, 0.1167D-05,
20153 # 0.8600D-06, 0.6200D-06, 0.4400D-06, 0.3134D-06, 0.2201D-06,
20154 # 0.1534D-06/
20155
20156 data (calcpts(j,44), j = 1,neta) /0.1442D-07, 0.1747D-07,
20157 # 0.2116D-07, 0.2564D-07, 0.3107D-07, 0.3764D-07, 0.4560D-07,
20158 # 0.5525D-07, 0.6692D-07, 0.8108D-07, 0.9824D-07, 0.1190D-06,
20159 # 0.1442D-06, 0.1747D-06, 0.2116D-06, 0.2564D-06, 0.3106D-06,
20160 # 0.3763D-06, 0.4558D-06, 0.5521D-06, 0.6685D-06, 0.8096D-06,
20161 # 0.9802D-06, 0.1186D-05, 0.1435D-05, 0.1735D-05, 0.2094D-05,
20162 # 0.2525D-05, 0.3039D-05, 0.3645D-05, 0.4353D-05, 0.5168D-05,
20163 # 0.6086D-05, 0.7095D-05, 0.8165D-05, 0.9254D-05, 0.1032D-04,
20164 # 0.1131D-04, 0.1221D-04, 0.1301D-04, 0.1374D-04, 0.1444D-04,
20165 # 0.1516D-04, 0.1597D-04, 0.1694D-04, 0.1816D-04, 0.1971D-04,
20166 # 0.2169D-04, 0.2416D-04, 0.2718D-04, 0.3065D-04, 0.3435D-04,
20167 # 0.3778D-04, 0.4014D-04, 0.4048D-04, 0.3803D-04, 0.3275D-04,
20168 # 0.2556D-04, 0.1811D-04, 0.1187D-04, 0.7499D-05, 0.4826D-05,
20169 # 0.3306D-05, 0.2419D-05, 0.1840D-05, 0.1413D-05, 0.1073D-05,
20170 # 0.7996D-06, 0.5863D-06, 0.4197D-06, 0.2997D-06, 0.2130D-06,
20171 # 0.1463D-06/
20172
20173 data (calcpts(j,45), j = 1,neta) /0.9834D-08, 0.1192D-07,
20174 # 0.1443D-07, 0.1749D-07, 0.2119D-07, 0.2567D-07, 0.3110D-07,
20175 # 0.3768D-07, 0.4564D-07, 0.5530D-07, 0.6700D-07, 0.8117D-07,
20176 # 0.9834D-07, 0.1191D-06, 0.1443D-06, 0.1748D-06, 0.2118D-06,
20177 # 0.2566D-06, 0.3108D-06, 0.3765D-06, 0.4559D-06, 0.5521D-06,
20178 # 0.6685D-06, 0.8090D-06, 0.9786D-06, 0.1183D-05, 0.1428D-05,
20179 # 0.1722D-05, 0.2072D-05, 0.2485D-05, 0.2968D-05, 0.3523D-05,
20180 # 0.4148D-05, 0.4833D-05, 0.5559D-05, 0.6296D-05, 0.7012D-05,
20181 # 0.7676D-05, 0.8269D-05, 0.8788D-05, 0.9244D-05, 0.9661D-05,
20182 # 0.1007D-04, 0.1051D-04, 0.1102D-04, 0.1166D-04, 0.1247D-04,
20183 # 0.1351D-04, 0.1485D-04, 0.1653D-04, 0.1857D-04, 0.2094D-04,
20184 # 0.2345D-04, 0.2578D-04, 0.2738D-04, 0.2760D-04, 0.2593D-04,
20185 # 0.2233D-04, 0.1743D-04, 0.1234D-04, 0.8090D-05, 0.5112D-05,
20186 # 0.3293D-05, 0.2254D-05, 0.1654D-05, 0.1254D-05, 0.9610D-06,
20187 # 0.7277D-06, 0.5477D-06, 0.4011D-06, 0.2877D-06, 0.2077D-06,
20188 # 0.1477D-06/
20189
20190 data (calcpts(j,46), j = 1,neta) /0.6703D-08, 0.8121D-08,
20191 # 0.9837D-08, 0.1192D-07, 0.1444D-07, 0.1750D-07, 0.2120D-07,
20192 # 0.2568D-07, 0.3111D-07, 0.3769D-07, 0.4567D-07, 0.5532D-07,
20193 # 0.6702D-07, 0.8121D-07, 0.9836D-07, 0.1192D-06, 0.1444D-06,
20194 # 0.1749D-06, 0.2119D-06, 0.2566D-06, 0.3108D-06, 0.3763D-06,
20195 # 0.4556D-06, 0.5514D-06, 0.6670D-06, 0.8063D-06, 0.9734D-06,
20196 # 0.1174D-05, 0.1412D-05, 0.1694D-05, 0.2022D-05, 0.2400D-05,
20197 # 0.2825D-05, 0.3292D-05, 0.3785D-05, 0.4284D-05, 0.4768D-05,
20198 # 0.5214D-05, 0.5608D-05, 0.5947D-05, 0.6237D-05, 0.6492D-05,
20199 # 0.6730D-05, 0.6974D-05, 0.7248D-05, 0.7579D-05, 0.7998D-05,
20200 # 0.8541D-05, 0.9245D-05, 0.1015D-04, 0.1129D-04, 0.1268D-04,
20201 # 0.1429D-04, 0.1600D-04, 0.1758D-04, 0.1867D-04, 0.1881D-04,
20202 # 0.1768D-04, 0.1522D-04, 0.1187D-04, 0.8410D-05, 0.5511D-05,
20203 # 0.3483D-05, 0.2243D-05, 0.1537D-05, 0.1125D-05, 0.8554D-06,
20204 # 0.6561D-06, 0.4988D-06, 0.3721D-06, 0.2728D-06, 0.1974D-06,
20205 # 0.1408D-06/
20206
20207 data (calcpts(j,47), j = 1,neta) /0.4567D-08, 0.5534D-08,
20208 # 0.6703D-08, 0.8122D-08, 0.9841D-08, 0.1192D-07, 0.1444D-07,
20209 # 0.1750D-07, 0.2120D-07, 0.2568D-07, 0.3112D-07, 0.3770D-07,
20210 # 0.4567D-07, 0.5534D-07, 0.6703D-07, 0.8121D-07, 0.9838D-07,
20211 # 0.1192D-06, 0.1444D-06, 0.1749D-06, 0.2118D-06, 0.2564D-06,
20212 # 0.3105D-06, 0.3757D-06, 0.4545D-06, 0.5494D-06, 0.6633D-06,
20213 # 0.7997D-06, 0.9622D-06, 0.1154D-05, 0.1378D-05, 0.1635D-05,
20214 # 0.1925D-05, 0.2242D-05, 0.2577D-05, 0.2916D-05, 0.3243D-05,
20215 # 0.3544D-05, 0.3808D-05, 0.4032D-05, 0.4219D-05, 0.4378D-05,
20216 # 0.4520D-05, 0.4658D-05, 0.4807D-05, 0.4980D-05, 0.5197D-05,
20217 # 0.5476D-05, 0.5841D-05, 0.6317D-05, 0.6932D-05, 0.7708D-05,
20218 # 0.8653D-05, 0.9745D-05, 0.1091D-04, 0.1199D-04, 0.1273D-04,
20219 # 0.1283D-04, 0.1205D-04, 0.1037D-04, 0.8089D-05, 0.5729D-05,
20220 # 0.3755D-05, 0.2372D-05, 0.1527D-05, 0.1047D-05, 0.7661D-06,
20221 # 0.5821D-06, 0.4461D-06, 0.3387D-06, 0.2527D-06, 0.1854D-06,
20222 # 0.1334D-06/
20223
20224 data (calcpts(j,48), j = 1,neta) /0.3113D-08, 0.3771D-08,
20225 # 0.4568D-08, 0.5535D-08, 0.6707D-08, 0.8125D-08, 0.9843D-08,
20226 # 0.1193D-07, 0.1445D-07, 0.1750D-07, 0.2121D-07, 0.2569D-07,
20227 # 0.3113D-07, 0.3771D-07, 0.4568D-07, 0.5534D-07, 0.6705D-07,
20228 # 0.8122D-07, 0.9839D-07, 0.1192D-06, 0.1443D-06, 0.1748D-06,
20229 # 0.2116D-06, 0.2561D-06, 0.3097D-06, 0.3744D-06, 0.4520D-06,
20230 # 0.5450D-06, 0.6557D-06, 0.7863D-06, 0.9388D-06, 0.1114D-05,
20231 # 0.1311D-05, 0.1527D-05, 0.1755D-05, 0.1986D-05, 0.2208D-05,
20232 # 0.2411D-05, 0.2588D-05, 0.2738D-05, 0.2860D-05, 0.2962D-05,
20233 # 0.3048D-05, 0.3128D-05, 0.3210D-05, 0.3302D-05, 0.3414D-05,
20234 # 0.3557D-05, 0.3744D-05, 0.3991D-05, 0.4314D-05, 0.4731D-05,
20235 # 0.5259D-05, 0.5902D-05, 0.6646D-05, 0.7437D-05, 0.8169D-05,
20236 # 0.8672D-05, 0.8739D-05, 0.8207D-05, 0.7063D-05, 0.5512D-05,
20237 # 0.3904D-05, 0.2558D-05, 0.1616D-05, 0.1041D-05, 0.7134D-06,
20238 # 0.5221D-06, 0.3968D-06, 0.3048D-06, 0.2315D-06, 0.1728D-06,
20239 # 0.1261D-06/
20240
20241 data (calcpts(j,49), j = 1,neta) /0.2121D-08, 0.2570D-08,
20242 # 0.3113D-08, 0.3772D-08, 0.4570D-08, 0.5536D-08, 0.6708D-08,
20243 # 0.8127D-08, 0.9844D-08, 0.1193D-07, 0.1445D-07, 0.1751D-07,
20244 # 0.2121D-07, 0.2570D-07, 0.3113D-07, 0.3771D-07, 0.4569D-07,
20245 # 0.5535D-07, 0.6704D-07, 0.8121D-07, 0.9834D-07, 0.1191D-06,
20246 # 0.1442D-06, 0.1745D-06, 0.2111D-06, 0.2551D-06, 0.3080D-06,
20247 # 0.3714D-06, 0.4468D-06, 0.5358D-06, 0.6397D-06, 0.7591D-06,
20248 # 0.8934D-06, 0.1040D-05, 0.1195D-05, 0.1352D-05, 0.1503D-05,
20249 # 0.1641D-05, 0.1761D-05, 0.1861D-05, 0.1942D-05, 0.2007D-05,
20250 # 0.2061D-05, 0.2109D-05, 0.2155D-05, 0.2205D-05, 0.2263D-05,
20251 # 0.2336D-05, 0.2431D-05, 0.2557D-05, 0.2724D-05, 0.2944D-05,
20252 # 0.3228D-05, 0.3586D-05, 0.4024D-05, 0.4530D-05, 0.5069D-05,
20253 # 0.5567D-05, 0.5910D-05, 0.5955D-05, 0.5592D-05, 0.4813D-05,
20254 # 0.3756D-05, 0.2660D-05, 0.1743D-05, 0.1101D-05, 0.7091D-06,
20255 # 0.4858D-06, 0.3558D-06, 0.2705D-06, 0.2078D-06, 0.1578D-06,
20256 # 0.1178D-06/
20257
20258 data (dlaeta(j), j = 1,neta) /
20259 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
20260 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
20261 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
20262 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
20263 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
20264 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
20265 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
20266 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
20267 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
20268 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
20269 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
20270 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
20271 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
20272 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
20273 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
20274
20275 data (dlaxi(j), j = 1,nxi) /
20276 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
20277 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
20278 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
20279 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
20280 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
20281 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
20282 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
20283 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
20284 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
20285 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
20286
20287 dleta = dlog10(eta)
20288 dlxi = dlog10(xi)
20289 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
20290 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
20291 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
20292 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
20293 call locate(dlaeta,neta, dleta, ieta)
20294 call locate(dlaxi, nxi, dlxi, ixi)
20295c interpolating between the appropriate points
20296 delxi = 1d0/6d0
20297 deleta = 1d0/6d0
20298c lagrange 3-pt.
20299 if (ixi .le. 2) ixi = 2
20300 if (ixi .ge. 48) ixi = 48
20301 if (ieta .le. 2) ieta = 2
20302 if (ixi .ge. 72) ieta = 72
20303 pxi = (dlxi - dlaxi(ixi))/delxi
20304 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
20305 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
20306 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
20307 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
20308 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
20309 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
20310 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
20311 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
20312 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
20313 peta = (dleta - dlaeta(ieta))/deleta
20314 h1bar_Lg = peta*(peta-1d0)/2d0*f(-1) +
20315 # (1d0 - peta**2)*f(0) +
20316CMB # + peta*(peta+1d0)/2d0*f(1)
20317 # peta*(peta+1d0)/2d0*f(1)
20318 return
20319 end
20320
20321CDECK ID>, QCORRT.
20322
20323c ========================================
20324 double precision function h1_HTq(eta,xi)
20325c ========================================
20326
20327c eq (26) in PLB347 (1995) 143 - 151 for the transverse piece
20328c MSbar scheme
20329c This routine is called subcqht in the original code.
20330c Called schqt in updated code (03/06/96).
20331
20332 implicit none
20333 integer neta, nxi
20334 parameter (neta = 73, nxi = 49)
20335 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
20336 double precision eta, xi, dleta, dlxi
20337 double precision pxi, peta, f(-1:1), delxi, deleta
20338 integer j, ieta, ixi
20339
20340 data (calcpts(j, 1), j = 1,neta) /-.9757D-09, -.1701D-08,
20341 # -.2961D-08, -.5155D-08, -.8967D-08, -.1559D-07, -.2708D-07,
20342 # -.4703D-07, -.8158D-07, -.1415D-06, -.2452D-06, -.4245D-06,
20343 # -.7345D-06, -.1270D-05, -.2194D-05, -.3787D-05, -.6531D-05,
20344 # -.1125D-04, -.1936D-04, -.3327D-04, -.5709D-04, -.9784D-04,
20345 # -.1674D-03, -.2859D-03, -.4868D-03, -.8266D-03, -.1398D-02,
20346 # -.2352D-02, -.3932D-02, -.6512D-02, -.1065D-01, -.1711D-01,
20347 # -.2682D-01, -.4073D-01, -.5935D-01, -.8225D-01, -.1077D+00,
20348 # -.1325D+00, -.1534D+00, -.1673D+00, -.1729D+00, -.1704D+00,
20349 # -.1612D+00, -.1472D+00, -.1307D+00, -.1132D+00, -.9612D-01,
20350 # -.8027D-01, -.6602D-01, -.5365D-01, -.4317D-01, -.3440D-01,
20351 # -.2727D-01, -.2137D-01, -.1673D-01, -.1295D-01, -.1003D-01,
20352 # -.7682D-02, -.5769D-02, -.4444D-02, -.3410D-02, -.2522D-02,
20353 # -.1930D-02, -.1485D-02, -.1039D-02, -.7414D-03, -.5931D-03,
20354 # -.4443D-03, -.2950D-03, -.2956D-03, -.1459D-03, -.1462D-03,
20355 # -.1464D-03/
20356
20357 data (calcpts(j, 2), j = 1,neta) /-.9756D-09, -.1701D-08,
20358 # -.2961D-08, -.5155D-08, -.8966D-08, -.1559D-07, -.2708D-07,
20359 # -.4701D-07, -.8156D-07, -.1415D-06, -.2452D-06, -.4245D-06,
20360 # -.7345D-06, -.1270D-05, -.2194D-05, -.3786D-05, -.6529D-05,
20361 # -.1125D-04, -.1936D-04, -.3327D-04, -.5708D-04, -.9783D-04,
20362 # -.1674D-03, -.2857D-03, -.4866D-03, -.8264D-03, -.1397D-02,
20363 # -.2352D-02, -.3932D-02, -.6511D-02, -.1065D-01, -.1711D-01,
20364 # -.2682D-01, -.4073D-01, -.5935D-01, -.8225D-01, -.1076D+00,
20365 # -.1325D+00, -.1534D+00, -.1673D+00, -.1729D+00, -.1704D+00,
20366 # -.1612D+00, -.1472D+00, -.1307D+00, -.1132D+00, -.9610D-01,
20367 # -.8026D-01, -.6600D-01, -.5363D-01, -.4316D-01, -.3439D-01,
20368 # -.2725D-01, -.2135D-01, -.1672D-01, -.1293D-01, -.1001D-01,
20369 # -.7667D-02, -.5903D-02, -.4428D-02, -.3395D-02, -.2507D-02,
20370 # -.1914D-02, -.1470D-02, -.1023D-02, -.8760D-03, -.5777D-03,
20371 # -.4288D-03, -.2796D-03, -.2801D-03, -.1305D-03, -.1308D-03,
20372 # -.1309D-03/
20373
20374 data (calcpts(j, 3), j = 1,neta) /-.9753D-09, -.1700D-08,
20375 # -.2960D-08, -.5153D-08, -.8964D-08, -.1558D-07, -.2707D-07,
20376 # -.4701D-07, -.8154D-07, -.1414D-06, -.2450D-06, -.4243D-06,
20377 # -.7343D-06, -.1270D-05, -.2193D-05, -.3785D-05, -.6528D-05,
20378 # -.1124D-04, -.1935D-04, -.3325D-04, -.5708D-04, -.9781D-04,
20379 # -.1673D-03, -.2857D-03, -.4866D-03, -.8262D-03, -.1397D-02,
20380 # -.2351D-02, -.3931D-02, -.6510D-02, -.1064D-01, -.1710D-01,
20381 # -.2681D-01, -.4072D-01, -.5934D-01, -.8223D-01, -.1076D+00,
20382 # -.1325D+00, -.1533D+00, -.1673D+00, -.1729D+00, -.1704D+00,
20383 # -.1612D+00, -.1472D+00, -.1307D+00, -.1132D+00, -.9611D-01,
20384 # -.8024D-01, -.6598D-01, -.5376D-01, -.4314D-01, -.3437D-01,
20385 # -.2723D-01, -.2133D-01, -.1670D-01, -.1291D-01, -.9990D-02,
20386 # -.7644D-02, -.5881D-02, -.4405D-02, -.3372D-02, -.2484D-02,
20387 # -.1892D-02, -.1447D-02, -.1001D-02, -.8533D-03, -.5550D-03,
20388 # -.4062D-03, -.2570D-03, -.2575D-03, -.1079D-03, -.1081D-03,
20389 # -.1083D-03/
20390
20391 data (calcpts(j, 4), j = 1,neta) /-.9749D-09, -.1699D-08,
20392 # -.2960D-08, -.5150D-08, -.8961D-08, -.1558D-07, -.2706D-07,
20393 # -.4698D-07, -.8151D-07, -.1414D-06, -.2450D-06, -.4241D-06,
20394 # -.7340D-06, -.1269D-05, -.2192D-05, -.3785D-05, -.6526D-05,
20395 # -.1124D-04, -.1934D-04, -.3325D-04, -.5704D-04, -.9777D-04,
20396 # -.1673D-03, -.2855D-03, -.4864D-03, -.8260D-03, -.1397D-02,
20397 # -.2351D-02, -.3930D-02, -.6508D-02, -.1064D-01, -.1710D-01,
20398 # -.2680D-01, -.4071D-01, -.5932D-01, -.8222D-01, -.1076D+00,
20399 # -.1325D+00, -.1533D+00, -.1673D+00, -.1729D+00, -.1704D+00,
20400 # -.1611D+00, -.1472D+00, -.1306D+00, -.1132D+00, -.9609D-01,
20401 # -.8020D-01, -.6610D-01, -.5373D-01, -.4325D-01, -.3448D-01,
20402 # -.2720D-01, -.2144D-01, -.1666D-01, -.1288D-01, -.9957D-02,
20403 # -.7611D-02, -.5847D-02, -.4372D-02, -.3339D-02, -.2601D-02,
20404 # -.1859D-02, -.1414D-02, -.1118D-02, -.8201D-03, -.5218D-03,
20405 # -.3729D-03, -.3737D-03, -.2243D-03, -.2246D-03, -.7488D-04,
20406 # -.7505D-04/
20407
20408 data (calcpts(j, 5), j = 1,neta) /-.9743D-09, -.1698D-08,
20409 # -.2958D-08, -.5147D-08, -.8956D-08, -.1557D-07, -.2705D-07,
20410 # -.4696D-07, -.8146D-07, -.1413D-06, -.2448D-06, -.4240D-06,
20411 # -.7335D-06, -.1268D-05, -.2191D-05, -.3781D-05, -.6522D-05,
20412 # -.1124D-04, -.1933D-04, -.3323D-04, -.5702D-04, -.9773D-04,
20413 # -.1672D-03, -.2855D-03, -.4862D-03, -.8256D-03, -.1396D-02,
20414 # -.2350D-02, -.3928D-02, -.6505D-02, -.1064D-01, -.1709D-01,
20415 # -.2679D-01, -.4069D-01, -.5930D-01, -.8219D-01, -.1076D+00,
20416 # -.1324D+00, -.1533D+00, -.1672D+00, -.1729D+00, -.1703D+00,
20417 # -.1611D+00, -.1472D+00, -.1306D+00, -.1132D+00, -.9609D-01,
20418 # -.8015D-01, -.6605D-01, -.5368D-01, -.4320D-01, -.3444D-01,
20419 # -.2730D-01, -.2140D-01, -.1661D-01, -.1298D-01, -.9909D-02,
20420 # -.7712D-02, -.5799D-02, -.4473D-02, -.3440D-02, -.2552D-02,
20421 # -.1960D-02, -.1365D-02, -.1069D-02, -.7713D-03, -.6230D-03,
20422 # -.4742D-03, -.3249D-03, -.1755D-03, -.1758D-03, -.1761D-03,
20423 # -.2626D-04/
20424
20425 data (calcpts(j, 6), j = 1,neta) /-.9735D-09, -.1697D-08,
20426 # -.2955D-08, -.5144D-08, -.8947D-08, -.1555D-07, -.2702D-07,
20427 # -.4691D-07, -.8139D-07, -.1411D-06, -.2447D-06, -.4236D-06,
20428 # -.7330D-06, -.1267D-05, -.2189D-05, -.3779D-05, -.6517D-05,
20429 # -.1123D-04, -.1932D-04, -.3320D-04, -.5697D-04, -.9766D-04,
20430 # -.1671D-03, -.2853D-03, -.4858D-03, -.8250D-03, -.1395D-02,
20431 # -.2348D-02, -.3925D-02, -.6501D-02, -.1063D-01, -.1708D-01,
20432 # -.2678D-01, -.4067D-01, -.5927D-01, -.8214D-01, -.1075D+00,
20433 # -.1324D+00, -.1532D+00, -.1672D+00, -.1728D+00, -.1703D+00,
20434 # -.1611D+00, -.1472D+00, -.1306D+00, -.1132D+00, -.9608D-01,
20435 # -.8023D-01, -.6598D-01, -.5361D-01, -.4313D-01, -.3436D-01,
20436 # -.2723D-01, -.2132D-01, -.1669D-01, -.1291D-01, -.9987D-02,
20437 # -.7641D-02, -.5877D-02, -.4402D-02, -.3369D-02, -.2480D-02,
20438 # -.1888D-02, -.1444D-02, -.1147D-02, -.8498D-03, -.5515D-03,
20439 # -.4026D-03, -.2534D-03, -.2540D-03, -.1043D-03, -.1046D-03,
20440 # -.1047D-03/
20441
20442 data (calcpts(j, 7), j = 1,neta) /-.9721D-09, -.1695D-08,
20443 # -.2951D-08, -.5137D-08, -.8936D-08, -.1553D-07, -.2698D-07,
20444 # -.4686D-07, -.8129D-07, -.1410D-06, -.2443D-06, -.4231D-06,
20445 # -.7321D-06, -.1266D-05, -.2187D-05, -.3774D-05, -.6510D-05,
20446 # -.1121D-04, -.1930D-04, -.3317D-04, -.5691D-04, -.9755D-04,
20447 # -.1669D-03, -.2849D-03, -.4853D-03, -.8241D-03, -.1394D-02,
20448 # -.2346D-02, -.3921D-02, -.6495D-02, -.1062D-01, -.1707D-01,
20449 # -.2676D-01, -.4064D-01, -.5922D-01, -.8209D-01, -.1075D+00,
20450 # -.1323D+00, -.1531D+00, -.1671D+00, -.1727D+00, -.1702D+00,
20451 # -.1610D+00, -.1471D+00, -.1306D+00, -.1131D+00, -.9606D-01,
20452 # -.8013D-01, -.6602D-01, -.5365D-01, -.4318D-01, -.3441D-01,
20453 # -.2727D-01, -.2137D-01, -.1674D-01, -.1295D-01, -.1003D-01,
20454 # -.7686D-02, -.5772D-02, -.4447D-02, -.3414D-02, -.2526D-02,
20455 # -.1933D-02, -.1489D-02, -.1042D-02, -.7449D-03, -.5966D-03,
20456 # -.4477D-03, -.2985D-03, -.5991D-03, -.1494D-03, -.1497D-03,
20457 # -.1498D-03/
20458
20459 data (calcpts(j, 8), j = 1,neta) /-.9703D-09, -.1691D-08,
20460 # -.2945D-08, -.5127D-08, -.8919D-08, -.1550D-07, -.2693D-07,
20461 # -.4678D-07, -.8114D-07, -.1407D-06, -.2438D-06, -.4223D-06,
20462 # -.7308D-06, -.1264D-05, -.2183D-05, -.3768D-05, -.6498D-05,
20463 # -.1119D-04, -.1926D-04, -.3311D-04, -.5682D-04, -.9739D-04,
20464 # -.1666D-03, -.2846D-03, -.4845D-03, -.8229D-03, -.1392D-02,
20465 # -.2342D-02, -.3917D-02, -.6486D-02, -.1061D-01, -.1705D-01,
20466 # -.2672D-01, -.4059D-01, -.5917D-01, -.8200D-01, -.1074D+00,
20467 # -.1322D+00, -.1530D+00, -.1670D+00, -.1726D+00, -.1702D+00,
20468 # -.1610D+00, -.1471D+00, -.1305D+00, -.1131D+00, -.9603D-01,
20469 # -.8013D-01, -.6602D-01, -.5365D-01, -.4318D-01, -.3441D-01,
20470 # -.2727D-01, -.2137D-01, -.1674D-01, -.1295D-01, -.1003D-01,
20471 # -.7682D-02, -.5768D-02, -.4443D-02, -.3410D-02, -.2522D-02,
20472 # -.1930D-02, -.1485D-02, -.1039D-02, -.7411D-03, -.5928D-03,
20473 # -.4439D-03, -.2947D-03, -.2952D-03, -.1456D-03, -.1459D-03,
20474 # -.1460D-03/
20475
20476 data (calcpts(j, 9), j = 1,neta) /-.9676D-09, -.1687D-08,
20477 # -.2937D-08, -.5112D-08, -.8895D-08, -.1546D-07, -.2687D-07,
20478 # -.4664D-07, -.8092D-07, -.1403D-06, -.2433D-06, -.4212D-06,
20479 # -.7289D-06, -.1260D-05, -.2177D-05, -.3759D-05, -.6482D-05,
20480 # -.1117D-04, -.1922D-04, -.3304D-04, -.5668D-04, -.9717D-04,
20481 # -.1663D-03, -.2839D-03, -.4836D-03, -.8212D-03, -.1389D-02,
20482 # -.2338D-02, -.3909D-02, -.6474D-02, -.1059D-01, -.1701D-01,
20483 # -.2668D-01, -.4052D-01, -.5907D-01, -.8188D-01, -.1072D+00,
20484 # -.1320D+00, -.1528D+00, -.1668D+00, -.1725D+00, -.1700D+00,
20485 # -.1608D+00, -.1470D+00, -.1304D+00, -.1130D+00, -.9599D-01,
20486 # -.8021D-01, -.6595D-01, -.5358D-01, -.4310D-01, -.3448D-01,
20487 # -.2719D-01, -.2129D-01, -.1666D-01, -.1288D-01, -.9954D-02,
20488 # -.7607D-02, -.5844D-02, -.4518D-02, -.3335D-02, -.2597D-02,
20489 # -.1855D-02, -.1410D-02, -.1114D-02, -.8161D-03, -.6677D-03,
20490 # -.3689D-03, -.3697D-03, -.2202D-03, -.2206D-03, -.7083D-04,
20491 # -.7100D-04/
20492
20493 data (calcpts(j,10), j = 1,neta) /-.9636D-09, -.1680D-08,
20494 # -.2925D-08, -.5093D-08, -.8858D-08, -.1540D-07, -.2675D-07,
20495 # -.4646D-07, -.8061D-07, -.1398D-06, -.2423D-06, -.4196D-06,
20496 # -.7262D-06, -.1256D-05, -.2169D-05, -.3745D-05, -.6458D-05,
20497 # -.1113D-04, -.1915D-04, -.3292D-04, -.5650D-04, -.9684D-04,
20498 # -.1657D-03, -.2829D-03, -.4819D-03, -.8185D-03, -.1384D-02,
20499 # -.2331D-02, -.3897D-02, -.6455D-02, -.1056D-01, -.1697D-01,
20500 # -.2661D-01, -.4042D-01, -.5892D-01, -.8169D-01, -.1070D+00,
20501 # -.1318D+00, -.1526D+00, -.1666D+00, -.1723D+00, -.1698D+00,
20502 # -.1607D+00, -.1468D+00, -.1304D+00, -.1130D+00, -.9592D-01,
20503 # -.8004D-01, -.6593D-01, -.5355D-01, -.4308D-01, -.3445D-01,
20504 # -.2717D-01, -.2141D-01, -.1663D-01, -.1285D-01, -.9924D-02,
20505 # -.7578D-02, -.5814D-02, -.4489D-02, -.3306D-02, -.2567D-02,
20506 # -.1975D-02, -.1380D-02, -.1084D-02, -.7864D-03, -.6381D-03,
20507 # -.4892D-03, -.3400D-03, -.1905D-03, -.1909D-03, -.1912D-03,
20508 # -.4133D-04/
20509
20510 data (calcpts(j,11), j = 1,neta) /-.9579D-09, -.1670D-08,
20511 # -.2909D-08, -.5063D-08, -.8807D-08, -.1531D-07, -.2660D-07,
20512 # -.4619D-07, -.8015D-07, -.1390D-06, -.2409D-06, -.4172D-06,
20513 # -.7221D-06, -.1249D-05, -.2157D-05, -.3724D-05, -.6425D-05,
20514 # -.1107D-04, -.1905D-04, -.3275D-04, -.5621D-04, -.9635D-04,
20515 # -.1649D-03, -.2816D-03, -.4796D-03, -.8148D-03, -.1378D-02,
20516 # -.2320D-02, -.3880D-02, -.6428D-02, -.1051D-01, -.1690D-01,
20517 # -.2650D-01, -.4027D-01, -.5871D-01, -.8143D-01, -.1067D+00,
20518 # -.1314D+00, -.1522D+00, -.1662D+00, -.1719D+00, -.1695D+00,
20519 # -.1604D+00, -.1467D+00, -.1302D+00, -.1128D+00, -.9583D-01,
20520 # -.8002D-01, -.6590D-01, -.5353D-01, -.4305D-01, -.3442D-01,
20521 # -.2714D-01, -.2138D-01, -.1660D-01, -.1296D-01, -.9893D-02,
20522 # -.7696D-02, -.5782D-02, -.4457D-02, -.3424D-02, -.2535D-02,
20523 # -.1943D-02, -.1498D-02, -.1052D-02, -.7544D-03, -.6061D-03,
20524 # -.4573D-03, -.3081D-03, -.3086D-03, -.1590D-03, -.1592D-03,
20525 # -.1594D-03/
20526
20527 data (calcpts(j,12), j = 1,neta) /-.9496D-09, -.1655D-08,
20528 # -.2882D-08, -.5018D-08, -.8732D-08, -.1518D-07, -.2638D-07,
20529 # -.4581D-07, -.7948D-07, -.1379D-06, -.2389D-06, -.4138D-06,
20530 # -.7163D-06, -.1239D-05, -.2140D-05, -.3695D-05, -.6374D-05,
20531 # -.1098D-04, -.1890D-04, -.3250D-04, -.5580D-04, -.9566D-04,
20532 # -.1637D-03, -.2796D-03, -.4764D-03, -.8092D-03, -.1369D-02,
20533 # -.2305D-02, -.3856D-02, -.6388D-02, -.1045D-01, -.1680D-01,
20534 # -.2635D-01, -.4005D-01, -.5842D-01, -.8104D-01, -.1062D+00,
20535 # -.1309D+00, -.1517D+00, -.1657D+00, -.1714D+00, -.1691D+00,
20536 # -.1601D+00, -.1464D+00, -.1300D+00, -.1127D+00, -.9571D-01,
20537 # -.7993D-01, -.6581D-01, -.5358D-01, -.4310D-01, -.3433D-01,
20538 # -.2719D-01, -.2128D-01, -.1665D-01, -.1286D-01, -.9941D-02,
20539 # -.7594D-02, -.5830D-02, -.4504D-02, -.3321D-02, -.2583D-02,
20540 # -.1841D-02, -.1396D-02, -.1099D-02, -.8019D-03, -.6536D-03,
20541 # -.5047D-03, -.3555D-03, -.2061D-03, -.2064D-03, -.5667D-04,
20542 # -.5683D-04/
20543
20544 data (calcpts(j,13), j = 1,neta) /-.9376D-09, -.1635D-08,
20545 # -.2848D-08, -.4956D-08, -.8623D-08, -.1499D-07, -.2605D-07,
20546 # -.4526D-07, -.7853D-07, -.1362D-06, -.2361D-06, -.4090D-06,
20547 # -.7079D-06, -.1224D-05, -.2116D-05, -.3653D-05, -.6303D-05,
20548 # -.1086D-04, -.1870D-04, -.3215D-04, -.5520D-04, -.9465D-04,
20549 # -.1620D-03, -.2768D-03, -.4716D-03, -.8013D-03, -.1356D-02,
20550 # -.2284D-02, -.3821D-02, -.6331D-02, -.1036D-01, -.1666D-01,
20551 # -.2614D-01, -.3974D-01, -.5798D-01, -.8048D-01, -.1055D+00,
20552 # -.1301D+00, -.1509D+00, -.1649D+00, -.1707D+00, -.1685D+00,
20553 # -.1596D+00, -.1460D+00, -.1297D+00, -.1124D+00, -.9551D-01,
20554 # -.7983D-01, -.6570D-01, -.5347D-01, -.4298D-01, -.3436D-01,
20555 # -.2707D-01, -.2131D-01, -.1668D-01, -.1289D-01, -.9969D-02,
20556 # -.7622D-02, -.5858D-02, -.4383D-02, -.3350D-02, -.2611D-02,
20557 # -.1869D-02, -.1424D-02, -.1128D-02, -.8301D-03, -.5318D-03,
20558 # -.3829D-03, -.3837D-03, -.2342D-03, -.2346D-03, -.8482D-04,
20559 # -.8498D-04/
20560
20561 data (calcpts(j,14), j = 1,neta) /-.9204D-09, -.1605D-08,
20562 # -.2795D-08, -.4866D-08, -.8469D-08, -.1473D-07, -.2560D-07,
20563 # -.4445D-07, -.7715D-07, -.1338D-06, -.2320D-06, -.4019D-06,
20564 # -.6958D-06, -.1204D-05, -.2080D-05, -.3592D-05, -.6199D-05,
20565 # -.1068D-04, -.1840D-04, -.3164D-04, -.5435D-04, -.9320D-04,
20566 # -.1596D-03, -.2727D-03, -.4649D-03, -.7900D-03, -.1337D-02,
20567 # -.2253D-02, -.3769D-02, -.6250D-02, -.1023D-01, -.1646D-01,
20568 # -.2583D-01, -.3929D-01, -.5737D-01, -.7968D-01, -.1046D+00,
20569 # -.1291D+00, -.1497D+00, -.1638D+00, -.1697D+00, -.1676D+00,
20570 # -.1588D+00, -.1454D+00, -.1292D+00, -.1121D+00, -.9525D-01,
20571 # -.7958D-01, -.6559D-01, -.5335D-01, -.4286D-01, -.3424D-01,
20572 # -.2709D-01, -.2133D-01, -.1655D-01, -.1291D-01, -.9990D-02,
20573 # -.7643D-02, -.5878D-02, -.4403D-02, -.3369D-02, -.2481D-02,
20574 # -.1889D-02, -.1444D-02, -.9974D-03, -.8498D-03, -.5515D-03,
20575 # -.4026D-03, -.2534D-03, -.2539D-03, -.1043D-03, -.1045D-03,
20576 # -.1047D-03/
20577
20578 data (calcpts(j,15), j = 1,neta) /-.8962D-09, -.1563D-08,
20579 # -.2722D-08, -.4740D-08, -.8250D-08, -.1435D-07, -.2495D-07,
20580 # -.4333D-07, -.7521D-07, -.1305D-06, -.2262D-06, -.3921D-06,
20581 # -.6789D-06, -.1175D-05, -.2030D-05, -.3508D-05, -.6055D-05,
20582 # -.1044D-04, -.1798D-04, -.3094D-04, -.5313D-04, -.9118D-04,
20583 # -.1562D-03, -.2669D-03, -.4551D-03, -.7740D-03, -.1311D-02,
20584 # -.2209D-02, -.3699D-02, -.6135D-02, -.1005D-01, -.1617D-01,
20585 # -.2540D-01, -.3866D-01, -.5649D-01, -.7854D-01, -.1032D+00,
20586 # -.1275D+00, -.1481D+00, -.1622D+00, -.1683D+00, -.1663D+00,
20587 # -.1578D+00, -.1445D+00, -.1285D+00, -.1115D+00, -.9485D-01,
20588 # -.7930D-01, -.6530D-01, -.5320D-01, -.4285D-01, -.3422D-01,
20589 # -.2707D-01, -.2116D-01, -.1653D-01, -.1289D-01, -.9964D-02,
20590 # -.7616D-02, -.5851D-02, -.4375D-02, -.3342D-02, -.2603D-02,
20591 # -.1861D-02, -.1416D-02, -.1120D-02, -.8220D-03, -.5236D-03,
20592 # -.3747D-03, -.3755D-03, -.2260D-03, -.2264D-03, -.7662D-04,
20593 # -.7679D-04/
20594
20595 data (calcpts(j,16), j = 1,neta) /-.8625D-09, -.1504D-08,
20596 # -.2621D-08, -.4566D-08, -.7948D-08, -.1382D-07, -.2404D-07,
20597 # -.4176D-07, -.7252D-07, -.1259D-06, -.2183D-06, -.3784D-06,
20598 # -.6554D-06, -.1134D-05, -.1961D-05, -.3389D-05, -.5854D-05,
20599 # -.1010D-04, -.1740D-04, -.2994D-04, -.5146D-04, -.8834D-04,
20600 # -.1514D-03, -.2589D-03, -.4418D-03, -.7518D-03, -.1274D-02,
20601 # -.2149D-02, -.3600D-02, -.5975D-02, -.9793D-02, -.1577D-01,
20602 # -.2479D-01, -.3777D-01, -.5526D-01, -.7694D-01, -.1012D+00,
20603 # -.1253D+00, -.1458D+00, -.1599D+00, -.1662D+00, -.1645D+00,
20604 # -.1563D+00, -.1433D+00, -.1275D+00, -.1108D+00, -.9428D-01,
20605 # -.7886D-01, -.6500D-01, -.5289D-01, -.4268D-01, -.3404D-01,
20606 # -.2689D-01, -.2113D-01, -.1649D-01, -.1285D-01, -.9927D-02,
20607 # -.7578D-02, -.5813D-02, -.4487D-02, -.3303D-02, -.2564D-02,
20608 # -.1972D-02, -.1377D-02, -.1080D-02, -.7829D-03, -.6345D-03,
20609 # -.4856D-03, -.3363D-03, -.1869D-03, -.1872D-03, -.1874D-03,
20610 # -.3761D-04/
20611
20612 data (calcpts(j,17), j = 1,neta) /-.8172D-09, -.1426D-08,
20613 # -.2485D-08, -.4329D-08, -.7537D-08, -.1312D-07, -.2281D-07,
20614 # -.3965D-07, -.6887D-07, -.1196D-06, -.2075D-06, -.3598D-06,
20615 # -.6235D-06, -.1080D-05, -.1868D-05, -.3230D-05, -.5580D-05,
20616 # -.9629D-05, -.1660D-04, -.2859D-04, -.4918D-04, -.8450D-04,
20617 # -.1449D-03, -.2481D-03, -.4236D-03, -.7215D-03, -.1224D-02,
20618 # -.2066D-02, -.3465D-02, -.5756D-02, -.9444D-02, -.1523D-01,
20619 # -.2397D-01, -.3657D-01, -.5358D-01, -.7474D-01, -.9852D-01,
20620 # -.1222D+00, -.1426D+00, -.1568D+00, -.1633D+00, -.1619D+00,
20621 # -.1541D+00, -.1415D+00, -.1261D+00, -.1097D+00, -.9348D-01,
20622 # -.7826D-01, -.6453D-01, -.5255D-01, -.4248D-01, -.3383D-01,
20623 # -.2682D-01, -.2105D-01, -.1641D-01, -.1277D-01, -.9846D-02,
20624 # -.7497D-02, -.5731D-02, -.4404D-02, -.3370D-02, -.2481D-02,
20625 # -.1889D-02, -.1444D-02, -.9970D-03, -.8494D-03, -.5510D-03,
20626 # -.4021D-03, -.2528D-03, -.2533D-03, -.1037D-03, -.1039D-03,
20627 # -.1040D-03/
20628
20629 data (calcpts(j,18), j = 1,neta) /-.7578D-09, -.1323D-08,
20630 # -.2305D-08, -.4019D-08, -.7001D-08, -.1219D-07, -.2121D-07,
20631 # -.3688D-07, -.6411D-07, -.1114D-06, -.1933D-06, -.3355D-06,
20632 # -.5817D-06, -.1008D-05, -.1745D-05, -.3020D-05, -.5221D-05,
20633 # -.9018D-05, -.1556D-04, -.2683D-04, -.4618D-04, -.7943D-04,
20634 # -.1364D-03, -.2337D-03, -.3996D-03, -.6815D-03, -.1157D-02,
20635 # -.1957D-02, -.3286D-02, -.5468D-02, -.8983D-02, -.1451D-01,
20636 # -.2287D-01, -.3496D-01, -.5134D-01, -.7178D-01, -.9490D-01,
20637 # -.1181D+00, -.1382D+00, -.1524D+00, -.1592D+00, -.1584D+00,
20638 # -.1511D+00, -.1391D+00, -.1242D+00, -.1082D+00, -.9234D-01,
20639 # -.7741D-01, -.6394D-01, -.5208D-01, -.4199D-01, -.3363D-01,
20640 # -.2661D-01, -.2099D-01, -.1634D-01, -.1270D-01, -.9773D-02,
20641 # -.7572D-02, -.5805D-02, -.4328D-02, -.3294D-02, -.2554D-02,
20642 # -.1961D-02, -.1366D-02, -.1070D-02, -.7719D-03, -.6235D-03,
20643 # -.4745D-03, -.3253D-03, -.1758D-03, -.1761D-03, -.1763D-03,
20644 # -.2648D-04/
20645
20646 data (calcpts(j,19), j = 1,neta) /-.6837D-09, -.1194D-08,
20647 # -.2083D-08, -.3632D-08, -.6331D-08, -.1103D-07, -.1920D-07,
20648 # -.3342D-07, -.5811D-07, -.1010D-06, -.1756D-06, -.3049D-06,
20649 # -.5291D-06, -.9180D-06, -.1591D-05, -.2756D-05, -.4770D-05,
20650 # -.8247D-05, -.1425D-04, -.2460D-04, -.4242D-04, -.7304D-04,
20651 # -.1256D-03, -.2156D-03, -.3694D-03, -.6310D-03, -.1073D-02,
20652 # -.1818D-02, -.3060D-02, -.5101D-02, -.8399D-02, -.1359D-01,
20653 # -.2148D-01, -.3290D-01, -.4845D-01, -.6795D-01, -.9016D-01,
20654 # -.1126D+00, -.1323D+00, -.1466D+00, -.1537D+00, -.1536D+00,
20655 # -.1470D+00, -.1357D+00, -.1216D+00, -.1062D+00, -.9079D-01,
20656 # -.7624D-01, -.6307D-01, -.5150D-01, -.4153D-01, -.3330D-01,
20657 # -.2642D-01, -.2079D-01, -.1629D-01, -.1264D-01, -.9713D-02,
20658 # -.7510D-02, -.5743D-02, -.4415D-02, -.3380D-02, -.2490D-02,
20659 # -.1897D-02, -.1452D-02, -.1005D-02, -.8569D-03, -.5584D-03,
20660 # -.4095D-03, -.2602D-03, -.2606D-03, -.1110D-03, -.1112D-03,
20661 # -.1113D-03/
20662
20663 data (calcpts(j,20), j = 1,neta) /-.5962D-09, -.1042D-08,
20664 # -.1819D-08, -.3174D-08, -.5539D-08, -.9657D-08, -.1683D-07,
20665 # -.2932D-07, -.5105D-07, -.8884D-07, -.1546D-06, -.2687D-06,
20666 # -.4670D-06, -.8111D-06, -.1407D-05, -.2442D-05, -.4233D-05,
20667 # -.7332D-05, -.1269D-04, -.2195D-04, -.3790D-04, -.6541D-04,
20668 # -.1127D-03, -.1939D-03, -.3329D-03, -.5701D-03, -.9723D-03,
20669 # -.1651D-02, -.2786D-02, -.4658D-02, -.7690D-02, -.1248D-01,
20670 # -.1977D-01, -.3039D-01, -.4490D-01, -.6321D-01, -.8422D-01,
20671 # -.1057D+00, -.1249D+00, -.1390D+00, -.1466D+00, -.1472D+00,
20672 # -.1416D+00, -.1313D+00, -.1180D+00, -.1034D+00, -.8867D-01,
20673 # -.7465D-01, -.6189D-01, -.5070D-01, -.4100D-01, -.3275D-01,
20674 # -.2600D-01, -.2051D-01, -.1600D-01, -.1250D-01, -.9717D-02,
20675 # -.7362D-02, -.5743D-02, -.4264D-02, -.3228D-02, -.2488D-02,
20676 # -.1894D-02, -.1449D-02, -.1002D-02, -.8541D-03, -.5555D-03,
20677 # -.4065D-03, -.2571D-03, -.2576D-03, -.1079D-03, -.1081D-03,
20678 # -.1082D-03/
20679
20680 data (calcpts(j,21), j = 1,neta) /-.5001D-09, -.8748D-09,
20681 # -.1529D-08, -.2673D-08, -.4668D-08, -.8149D-08, -.1422D-07,
20682 # -.2481D-07, -.4325D-07, -.7538D-07, -.1314D-06, -.2288D-06,
20683 # -.3982D-06, -.6928D-06, -.1205D-05, -.2093D-05, -.3636D-05,
20684 # -.6313D-05, -.1095D-04, -.1898D-04, -.3286D-04, -.5686D-04,
20685 # -.9827D-04, -.1695D-03, -.2919D-03, -.5014D-03, -.8579D-03,
20686 # -.1462D-02, -.2475D-02, -.4152D-02, -.6880D-02, -.1120D-01,
20687 # -.1781D-01, -.2748D-01, -.4076D-01, -.5762D-01, -.7714D-01,
20688 # -.9737D-01, -.1157D+00, -.1297D+00, -.1376D+00, -.1391D+00,
20689 # -.1346D+00, -.1255D+00, -.1134D+00, -.9984D-01, -.8594D-01,
20690 # -.7260D-01, -.6036D-01, -.4950D-01, -.4014D-01, -.3222D-01,
20691 # -.2560D-01, -.2025D-01, -.1588D-01, -.1237D-01, -.9580D-02,
20692 # -.7372D-02, -.5601D-02, -.4271D-02, -.3234D-02, -.2493D-02,
20693 # -.1899D-02, -.1453D-02, -.1006D-02, -.8581D-03, -.5595D-03,
20694 # -.4104D-03, -.2610D-03, -.2614D-03, -.1117D-03, -.1119D-03,
20695 # -.1120D-03/
20696
20697 data (calcpts(j,22), j = 1,neta) /-.4031D-09, -.7061D-09,
20698 # -.1236D-08, -.2163D-08, -.3785D-08, -.6618D-08, -.1157D-07,
20699 # -.2022D-07, -.3532D-07, -.6168D-07, -.1077D-06, -.1879D-06,
20700 # -.3279D-06, -.5717D-06, -.9962D-06, -.1736D-05, -.3023D-05,
20701 # -.5262D-05, -.9154D-05, -.1592D-04, -.2764D-04, -.4797D-04,
20702 # -.8319D-04, -.1440D-03, -.2489D-03, -.4291D-03, -.7372D-03,
20703 # -.1261D-02, -.2144D-02, -.3612D-02, -.6008D-02, -.9826D-02,
20704 # -.1569D-01, -.2430D-01, -.3619D-01, -.5140D-01, -.6916D-01,
20705 # -.8779D-01, -.1050D+00, -.1185D+00, -.1268D+00, -.1292D+00,
20706 # -.1260D+00, -.1184D+00, -.1077D+00, -.9531D-01, -.8244D-01,
20707 # -.6995D-01, -.5838D-01, -.4804D-01, -.3906D-01, -.3142D-01,
20708 # -.2505D-01, -.1975D-01, -.1552D-01, -.1215D-01, -.9361D-02,
20709 # -.7300D-02, -.5526D-02, -.4194D-02, -.3156D-02, -.2415D-02,
20710 # -.1820D-02, -.1374D-02, -.1077D-02, -.7786D-03, -.6298D-03,
20711 # -.4806D-03, -.3312D-03, -.1816D-03, -.1818D-03, -.1820D-03,
20712 # -.3212D-04/
20713
20714 data (calcpts(j,23), j = 1,neta) /-.3134D-09, -.5500D-09,
20715 # -.9646D-09, -.1691D-08, -.2965D-08, -.5197D-08, -.9103D-08,
20716 # -.1595D-07, -.2791D-07, -.4887D-07, -.8554D-07, -.1496D-06,
20717 # -.2617D-06, -.4577D-06, -.7999D-06, -.1398D-05, -.2442D-05,
20718 # -.4264D-05, -.7442D-05, -.1298D-04, -.2263D-04, -.3942D-04,
20719 # -.6863D-04, -.1193D-03, -.2070D-03, -.3584D-03, -.6184D-03,
20720 # -.1063D-02, -.1815D-02, -.3071D-02, -.5132D-02, -.8431D-02,
20721 # -.1352D-01, -.2103D-01, -.3146D-01, -.4487D-01, -.6066D-01,
20722 # -.7742D-01, -.9319D-01, -.1060D+00, -.1144D+00, -.1176D+00,
20723 # -.1158D+00, -.1098D+00, -.1007D+00, -.8980D-01, -.7819D-01,
20724 # -.6671D-01, -.5595D-01, -.4624D-01, -.3773D-01, -.3045D-01,
20725 # -.2434D-01, -.1928D-01, -.1516D-01, -.1184D-01, -.9195D-02,
20726 # -.7100D-02, -.5428D-02, -.4094D-02, -.3205D-02, -.2463D-02,
20727 # -.1868D-02, -.1421D-02, -.9738D-03, -.8254D-03, -.5265D-03,
20728 # -.3772D-03, -.3777D-03, -.2281D-03, -.2283D-03, -.7849D-04,
20729 # -.7860D-04/
20730
20731 data (calcpts(j,24), j = 1,neta) /-.2374D-09, -.4175D-09,
20732 # -.7336D-09, -.1290D-08, -.2266D-08, -.3981D-08, -.6991D-08,
20733 # -.1228D-07, -.2155D-07, -.3782D-07, -.6639D-07, -.1165D-06,
20734 # -.2044D-06, -.3585D-06, -.6283D-06, -.1102D-05, -.1931D-05,
20735 # -.3384D-05, -.5927D-05, -.1038D-04, -.1816D-04, -.3176D-04,
20736 # -.5551D-04, -.9690D-04, -.1689D-03, -.2937D-03, -.5089D-03,
20737 # -.8786D-03, -.1507D-02, -.2562D-02, -.4301D-02, -.7096D-02,
20738 # -.1143D-01, -.1785D-01, -.2680D-01, -.3838D-01, -.5210D-01,
20739 # -.6683D-01, -.8092D-01, -.9276D-01, -.1010D+00, -.1049D+00,
20740 # -.1044D+00, -.1000D+00, -.9264D-01, -.8337D-01, -.7319D-01,
20741 # -.6290D-01, -.5307D-01, -.4410D-01, -.3615D-01, -.2930D-01,
20742 # -.2349D-01, -.1868D-01, -.1473D-01, -.1154D-01, -.8972D-02,
20743 # -.6932D-02, -.5333D-02, -.4087D-02, -.3106D-02, -.2363D-02,
20744 # -.1782D-02, -.1350D-02, -.1007D-02, -.7538D-03, -.5598D-03,
20745 # -.4254D-03, -.3059D-03, -.2312D-03, -.1714D-03, -.1265D-03,
20746 # -.9662D-04/
20747
20748 data (calcpts(j,25), j = 1,neta) /-.1774D-09, -.3127D-09,
20749 # -.5509D-09, -.9707D-09, -.1710D-08, -.3011D-08, -.5303D-08,
20750 # -.9337D-08, -.1643D-07, -.2893D-07, -.5093D-07, -.8963D-07,
20751 # -.1577D-06, -.2775D-06, -.4880D-06, -.8585D-06, -.1510D-05,
20752 # -.2655D-05, -.4667D-05, -.8202D-05, -.1440D-04, -.2529D-04,
20753 # -.4437D-04, -.7774D-04, -.1360D-03, -.2376D-03, -.4134D-03,
20754 # -.7165D-03, -.1234D-02, -.2107D-02, -.3550D-02, -.5880D-02,
20755 # -.9503D-02, -.1489D-01, -.2243D-01, -.3223D-01, -.4391D-01,
20756 # -.5654D-01, -.6882D-01, -.7940D-01, -.8719D-01, -.9148D-01,
20757 # -.9209D-01, -.8928D-01, -.8370D-01, -.7615D-01, -.6751D-01,
20758 # -.5853D-01, -.4976D-01, -.4162D-01, -.3432D-01, -.2795D-01,
20759 # -.2252D-01, -.1797D-01, -.1421D-01, -.1116D-01, -.8697D-02,
20760 # -.6743D-02, -.5201D-02, -.3983D-02, -.3046D-02, -.2317D-02,
20761 # -.1751D-02, -.1318D-02, -.9900D-03, -.7512D-03, -.5570D-03,
20762 # -.4076D-03, -.3029D-03, -.2282D-03, -.1684D-03, -.1235D-03,
20763 # -.9358D-04/
20764
20765 data (calcpts(j,26), j = 1,neta) /-.1325D-09, -.2341D-09,
20766 # -.4132D-09, -.7299D-09, -.1289D-08, -.2275D-08, -.4017D-08,
20767 # -.7092D-08, -.1251D-07, -.2209D-07, -.3899D-07, -.6881D-07,
20768 # -.1214D-06, -.2143D-06, -.3779D-06, -.6668D-06, -.1176D-05,
20769 # -.2075D-05, -.3658D-05, -.6450D-05, -.1136D-04, -.2001D-04,
20770 # -.3524D-04, -.6195D-04, -.1088D-03, -.1906D-03, -.3328D-03,
20771 # -.5788D-03, -.1000D-02, -.1713D-02, -.2896D-02, -.4811D-02,
20772 # -.7796D-02, -.1225D-01, -.1850D-01, -.2664D-01, -.3638D-01,
20773 # -.4699D-01, -.5742D-01, -.6661D-01, -.7368D-01, -.7806D-01,
20774 # -.7950D-01, -.7808D-01, -.7415D-01, -.6833D-01, -.6128D-01,
20775 # -.5369D-01, -.4608D-01, -.3885D-01, -.3225D-01, -.2642D-01,
20776 # -.2140D-01, -.1715D-01, -.1363D-01, -.1074D-01, -.8402D-02,
20777 # -.6534D-02, -.5034D-02, -.3874D-02, -.2966D-02, -.2251D-02,
20778 # -.1714D-02, -.1281D-02, -.9678D-03, -.7288D-03, -.5345D-03,
20779 # -.4000D-03, -.2953D-03, -.2205D-03, -.1606D-03, -.1157D-03,
20780 # -.8582D-04/
20781
20782 data (calcpts(j,27), j = 1,neta) /-.9971D-10, -.1765D-09,
20783 # -.3122D-09, -.5525D-09, -.9778D-09, -.1730D-08, -.3060D-08,
20784 # -.5415D-08, -.9575D-08, -.1694D-07, -.2997D-07, -.5302D-07,
20785 # -.9377D-07, -.1659D-06, -.2933D-06, -.5187D-06, -.9174D-06,
20786 # -.1622D-05, -.2867D-05, -.5068D-05, -.8950D-05, -.1581D-04,
20787 # -.2790D-04, -.4919D-04, -.8659D-04, -.1521D-03, -.2663D-03,
20788 # -.4644D-03, -.8047D-03, -.1381D-02, -.2340D-02, -.3896D-02,
20789 # -.6326D-02, -.9956D-02, -.1506D-01, -.2172D-01, -.2972D-01,
20790 # -.3847D-01, -.4714D-01, -.5491D-01, -.6110D-01, -.6527D-01,
20791 # -.6720D-01, -.6685D-01, -.6439D-01, -.6017D-01, -.5472D-01,
20792 # -.4851D-01, -.4210D-01, -.3585D-01, -.3001D-01, -.2477D-01,
20793 # -.2020D-01, -.1628D-01, -.1299D-01, -.1028D-01, -.8074D-02,
20794 # -.6307D-02, -.4880D-02, -.3763D-02, -.2884D-02, -.2213D-02,
20795 # -.1675D-02, -.1272D-02, -.9585D-03, -.7193D-03, -.5399D-03,
20796 # -.4053D-03, -.3006D-03, -.2257D-03, -.1659D-03, -.1359D-03,
20797 # -.9100D-04/
20798
20799 data (calcpts(j,28), j = 1,neta) /-.7575D-10, -.1343D-09,
20800 # -.2379D-09, -.4217D-09, -.7476D-09, -.1325D-08, -.2348D-08,
20801 # -.4161D-08, -.7371D-08, -.1306D-07, -.2316D-07, -.4103D-07,
20802 # -.7270D-07, -.1288D-06, -.2282D-06, -.4043D-06, -.7165D-06,
20803 # -.1269D-05, -.2247D-05, -.3980D-05, -.7042D-05, -.1246D-04,
20804 # -.2204D-04, -.3892D-04, -.6865D-04, -.1208D-03, -.2119D-03,
20805 # -.3702D-03, -.6426D-03, -.1105D-02, -.1875D-02, -.3125D-02,
20806 # -.5081D-02, -.8007D-02, -.1212D-01, -.1750D-01, -.2397D-01,
20807 # -.3107D-01, -.3814D-01, -.4455D-01, -.4980D-01, -.5355D-01,
20808 # -.5564D-01, -.5603D-01, -.5474D-01, -.5193D-01, -.4793D-01,
20809 # -.4311D-01, -.3787D-01, -.3262D-01, -.2758D-01, -.2296D-01,
20810 # -.1886D-01, -.1530D-01, -.1228D-01, -.9767D-02, -.7703D-02,
20811 # -.6038D-02, -.4698D-02, -.3625D-02, -.2790D-02, -.2133D-02,
20812 # -.1625D-02, -.1236D-02, -.9374D-03, -.6981D-03, -.5336D-03,
20813 # -.3989D-03, -.2941D-03, -.2192D-03, -.1593D-03, -.1294D-03,
20814 # -.8445D-04/
20815
20816 data (calcpts(j,29), j = 1,neta) /-.5802D-10, -.1030D-09,
20817 # -.1826D-09, -.3241D-09, -.5753D-09, -.1021D-08, -.1811D-08,
20818 # -.3214D-08, -.5700D-08, -.1011D-07, -.1795D-07, -.3184D-07,
20819 # -.5649D-07, -.1002D-06, -.1778D-06, -.3154D-06, -.5596D-06,
20820 # -.9924D-06, -.1760D-05, -.3121D-05, -.5529D-05, -.9797D-05,
20821 # -.1735D-04, -.3068D-04, -.5418D-04, -.9549D-04, -.1677D-03,
20822 # -.2933D-03, -.5096D-03, -.8771D-03, -.1490D-02, -.2486D-02,
20823 # -.4045D-02, -.6378D-02, -.9662D-02, -.1396D-01, -.1912D-01,
20824 # -.2480D-01, -.3048D-01, -.3568D-01, -.4000D-01, -.4322D-01,
20825 # -.4524D-01, -.4603D-01, -.4556D-01, -.4389D-01, -.4116D-01,
20826 # -.3760D-01, -.3353D-01, -.2925D-01, -.2502D-01, -.2105D-01,
20827 # -.1744D-01, -.1425D-01, -.1151D-01, -.9213D-02, -.7295D-02,
20828 # -.5747D-02, -.4480D-02, -.3481D-02, -.2674D-02, -.2047D-02,
20829 # -.1569D-02, -.1195D-02, -.8956D-03, -.6712D-03, -.5065D-03,
20830 # -.3868D-03, -.2820D-03, -.2071D-03, -.1622D-03, -.1172D-03,
20831 # -.8727D-04/
20832
20833 data (calcpts(j,30), j = 1,neta) /-.4465D-10, -.7931D-10,
20834 # -.1408D-09, -.2500D-09, -.4441D-09, -.7886D-09, -.1400D-08,
20835 # -.2487D-08, -.4415D-08, -.7840D-08, -.1393D-07, -.2473D-07,
20836 # -.4390D-07, -.7797D-07, -.1384D-06, -.2457D-06, -.4364D-06,
20837 # -.7745D-06, -.1375D-05, -.2440D-05, -.4326D-05, -.7672D-05,
20838 # -.1360D-04, -.2406D-04, -.4253D-04, -.7503D-04, -.1318D-03,
20839 # -.2308D-03, -.4013D-03, -.6912D-03, -.1175D-02, -.1961D-02,
20840 # -.3193D-02, -.5037D-02, -.7633D-02, -.1103D-01, -.1511D-01,
20841 # -.1961D-01, -.2411D-01, -.2825D-01, -.3174D-01, -.3441D-01,
20842 # -.3622D-01, -.3714D-01, -.3718D-01, -.3633D-01, -.3462D-01,
20843 # -.3216D-01, -.2915D-01, -.2581D-01, -.2237D-01, -.1905D-01,
20844 # -.1595D-01, -.1315D-01, -.1071D-01, -.8630D-02, -.6874D-02,
20845 # -.5443D-02, -.4264D-02, -.3324D-02, -.2577D-02, -.1979D-02,
20846 # -.1515D-02, -.1156D-02, -.8717D-03, -.6621D-03, -.4974D-03,
20847 # -.3776D-03, -.2728D-03, -.2129D-03, -.1529D-03, -.1080D-03,
20848 # -.7802D-04/
20849
20850 data (calcpts(j,31), j = 1,neta) /-.3440D-10, -.6113D-10,
20851 # -.1086D-09, -.1929D-09, -.3429D-09, -.6091D-09, -.1082D-08,
20852 # -.1923D-08, -.3415D-08, -.6069D-08, -.1078D-07, -.1916D-07,
20853 # -.3404D-07, -.6048D-07, -.1074D-06, -.1908D-06, -.3390D-06,
20854 # -.6021D-06, -.1069D-05, -.1899D-05, -.3368D-05, -.5977D-05,
20855 # -.1060D-04, -.1877D-04, -.3319D-04, -.5857D-04, -.1030D-03,
20856 # -.1803D-03, -.3138D-03, -.5406D-03, -.9193D-03, -.1535D-02,
20857 # -.2500D-02, -.3944D-02, -.5979D-02, -.8639D-02, -.1184D-01,
20858 # -.1536D-01, -.1890D-01, -.2216D-01, -.2492D-01, -.2709D-01,
20859 # -.2861D-01, -.2951D-01, -.2980D-01, -.2947D-01, -.2851D-01,
20860 # -.2694D-01, -.2485D-01, -.2238D-01, -.1970D-01, -.1700D-01,
20861 # -.1440D-01, -.1200D-01, -.9863D-02, -.8004D-02, -.6424D-02,
20862 # -.5112D-02, -.4037D-02, -.3155D-02, -.2453D-02, -.1899D-02,
20863 # -.1450D-02, -.1106D-02, -.8366D-03, -.6419D-03, -.4772D-03,
20864 # -.3573D-03, -.2674D-03, -.2075D-03, -.1476D-03, -.1176D-03,
20865 # -.8762D-04/
20866
20867 data (calcpts(j,32), j = 1,neta) /-.2646D-10, -.4703D-10,
20868 # -.8355D-10, -.1485D-09, -.2640D-09, -.4692D-09, -.8339D-09,
20869 # -.1482D-08, -.2633D-08, -.4681D-08, -.8322D-08, -.1479D-07,
20870 # -.2628D-07, -.4672D-07, -.8298D-07, -.1475D-06, -.2621D-06,
20871 # -.4657D-06, -.8273D-06, -.1470D-05, -.2608D-05, -.4629D-05,
20872 # -.8211D-05, -.1455D-04, -.2573D-04, -.4543D-04, -.7989D-04,
20873 # -.1399D-03, -.2436D-03, -.4197D-03, -.7140D-03, -.1193D-02,
20874 # -.1942D-02, -.3065D-02, -.4646D-02, -.6713D-02, -.9201D-02,
20875 # -.1194D-01, -.1469D-01, -.1723D-01, -.1939D-01, -.2111D-01,
20876 # -.2235D-01, -.2315D-01, -.2353D-01, -.2348D-01, -.2301D-01,
20877 # -.2209D-01, -.2074D-01, -.1901D-01, -.1703D-01, -.1492D-01,
20878 # -.1282D-01, -.1082D-01, -.8980D-02, -.7357D-02, -.5955D-02,
20879 # -.4776D-02, -.3775D-02, -.2968D-02, -.2325D-02, -.1801D-02,
20880 # -.1382D-02, -.1067D-02, -.8126D-03, -.6178D-03, -.4680D-03,
20881 # -.3481D-03, -.2582D-03, -.1983D-03, -.1383D-03, -.1083D-03,
20882 # -.7837D-04/
20883
20884 data (calcpts(j,33), j = 1,neta) /-.2028D-10, -.3607D-10,
20885 # -.6408D-10, -.1139D-09, -.2026D-09, -.3601D-09, -.6402D-09,
20886 # -.1138D-08, -.2022D-08, -.3596D-08, -.6394D-08, -.1136D-07,
20887 # -.2020D-07, -.3592D-07, -.6381D-07, -.1134D-06, -.2017D-06,
20888 # -.3583D-06, -.6367D-06, -.1131D-05, -.2008D-05, -.3565D-05,
20889 # -.6325D-05, -.1121D-04, -.1983D-04, -.3501D-04, -.6158D-04,
20890 # -.1079D-03, -.1878D-03, -.3237D-03, -.5507D-03, -.9200D-03,
20891 # -.1498D-02, -.2365D-02, -.3585D-02, -.5180D-02, -.7100D-02,
20892 # -.9213D-02, -.1133D-01, -.1330D-01, -.1497D-01, -.1631D-01,
20893 # -.1731D-01, -.1798D-01, -.1835D-01, -.1844D-01, -.1825D-01,
20894 # -.1776D-01, -.1695D-01, -.1583D-01, -.1444D-01, -.1288D-01,
20895 # -.1124D-01, -.9618D-02, -.8088D-02, -.6698D-02, -.5473D-02,
20896 # -.4416D-02, -.3534D-02, -.2801D-02, -.2187D-02, -.1708D-02,
20897 # -.1319D-02, -.1019D-02, -.7796D-03, -.5998D-03, -.4500D-03,
20898 # -.3451D-03, -.2551D-03, -.1952D-03, -.1502D-03, -.1052D-03,
20899 # -.7526D-04/
20900
20901 data (calcpts(j,34), j = 1,neta) /-.1548D-10, -.2753D-10,
20902 # -.4892D-10, -.8700D-10, -.1547D-09, -.2750D-09, -.4890D-09,
20903 # -.8695D-09, -.1545D-08, -.2748D-08, -.4886D-08, -.8686D-08,
20904 # -.1544D-07, -.2746D-07, -.4879D-07, -.8674D-07, -.1542D-06,
20905 # -.2741D-06, -.4870D-06, -.8655D-06, -.1536D-05, -.2728D-05,
20906 # -.4841D-05, -.8578D-05, -.1518D-04, -.2680D-04, -.4715D-04,
20907 # -.8263D-04, -.1438D-03, -.2480D-03, -.4219D-03, -.7048D-03,
20908 # -.1148D-02, -.1812D-02, -.2747D-02, -.3969D-02, -.5440D-02,
20909 # -.7059D-02, -.8685D-02, -.1019D-01, -.1148D-01, -.1251D-01,
20910 # -.1329D-01, -.1383D-01, -.1416D-01, -.1430D-01, -.1425D-01,
20911 # -.1401D-01, -.1356D-01, -.1289D-01, -.1198D-01, -.1089D-01,
20912 # -.9674D-02, -.8414D-02, -.7176D-02, -.6017D-02, -.4969D-02,
20913 # -.4050D-02, -.3261D-02, -.2598D-02, -.2052D-02, -.1607D-02,
20914 # -.1251D-02, -.9661D-03, -.7414D-03, -.5675D-03, -.4311D-03,
20915 # -.3217D-03, -.2468D-03, -.1868D-03, -.1418D-03, -.9683D-04,
20916 # -.8184D-04/
20917
20918 data (calcpts(j,35), j = 1,neta) /-.1176D-10, -.2091D-10,
20919 # -.3717D-10, -.6610D-10, -.1176D-09, -.2090D-09, -.3716D-09,
20920 # -.6608D-09, -.1174D-08, -.2089D-08, -.3714D-08, -.6603D-08,
20921 # -.1174D-07, -.2088D-07, -.3710D-07, -.6597D-07, -.1173D-06,
20922 # -.2085D-06, -.3705D-06, -.6584D-06, -.1169D-05, -.2076D-05,
20923 # -.3683D-05, -.6527D-05, -.1155D-04, -.2040D-04, -.3589D-04,
20924 # -.6290D-04, -.1095D-03, -.1888D-03, -.3212D-03, -.5366D-03,
20925 # -.8741D-03, -.1379D-02, -.2091D-02, -.3022D-02, -.4142D-02,
20926 # -.5375D-02, -.6612D-02, -.7758D-02, -.8741D-02, -.9532D-02,
20927 # -.1013D-01, -.1056D-01, -.1084D-01, -.1098D-01, -.1100D-01,
20928 # -.1090D-01, -.1066D-01, -.1028D-01, -.9728D-02, -.9012D-02,
20929 # -.8163D-02, -.7228D-02, -.6268D-02, -.5330D-02, -.4457D-02,
20930 # -.3671D-02, -.2984D-02, -.2398D-02, -.1906D-02, -.1503D-02,
20931 # -.1175D-02, -.9116D-03, -.7033D-03, -.5384D-03, -.4110D-03,
20932 # -.3120D-03, -.2356D-03, -.1771D-03, -.1321D-03, -.9912D-04,
20933 # -.7362D-04/
20934
20935 data (calcpts(j,36), j = 1,neta) /-.8892D-11, -.1581D-10,
20936 # -.2811D-10, -.4998D-10, -.8890D-10, -.1581D-09, -.2810D-09,
20937 # -.4998D-09, -.8883D-09, -.1580D-08, -.2810D-08, -.4996D-08,
20938 # -.8882D-08, -.1580D-07, -.2807D-07, -.4991D-07, -.8876D-07,
20939 # -.1578D-06, -.2804D-06, -.4983D-06, -.8847D-06, -.1571D-05,
20940 # -.2788D-05, -.4941D-05, -.8744D-05, -.1544D-04, -.2717D-04,
20941 # -.4762D-04, -.8290D-04, -.1429D-03, -.2432D-03, -.4063D-03,
20942 # -.6619D-03, -.1045D-02, -.1584D-02, -.2288D-02, -.3136D-02,
20943 # -.4070D-02, -.5007D-02, -.5874D-02, -.6620D-02, -.7220D-02,
20944 # -.7678D-02, -.8011D-02, -.8234D-02, -.8364D-02, -.8411D-02,
20945 # -.8378D-02, -.8261D-02, -.8053D-02, -.7736D-02, -.7299D-02,
20946 # -.6743D-02, -.6090D-02, -.5378D-02, -.4650D-02, -.3945D-02,
20947 # -.3290D-02, -.2705D-02, -.2194D-02, -.1760D-02, -.1396D-02,
20948 # -.1099D-02, -.8578D-03, -.6645D-03, -.5115D-03, -.3916D-03,
20949 # -.2986D-03, -.2267D-03, -.1712D-03, -.1277D-03, -.9622D-04,
20950 # -.7223D-04/
20951
20952 data (calcpts(j,37), j = 1,neta) /-.6692D-11, -.1190D-10,
20953 # -.2115D-10, -.3762D-10, -.6691D-10, -.1190D-09, -.2115D-09,
20954 # -.3762D-09, -.6687D-09, -.1189D-08, -.2115D-08, -.3761D-08,
20955 # -.6687D-08, -.1189D-07, -.2113D-07, -.3758D-07, -.6683D-07,
20956 # -.1188D-06, -.2111D-06, -.3752D-06, -.6662D-06, -.1183D-05,
20957 # -.2100D-05, -.3721D-05, -.6585D-05, -.1163D-04, -.2046D-04,
20958 # -.3586D-04, -.6244D-04, -.1077D-03, -.1832D-03, -.3060D-03,
20959 # -.4985D-03, -.7868D-03, -.1193D-02, -.1724D-02, -.2362D-02,
20960 # -.3065D-02, -.3771D-02, -.4425D-02, -.4986D-02, -.5439D-02,
20961 # -.5787D-02, -.6041D-02, -.6216D-02, -.6326D-02, -.6379D-02,
20962 # -.6379D-02, -.6326D-02, -.6217D-02, -.6042D-02, -.5789D-02,
20963 # -.5448D-02, -.5021D-02, -.4524D-02, -.3984D-02, -.3437D-02,
20964 # -.2909D-02, -.2421D-02, -.1985D-02, -.1608D-02, -.1287D-02,
20965 # -.1020D-02, -.8012D-03, -.6243D-03, -.4834D-03, -.3709D-03,
20966 # -.2840D-03, -.2165D-03, -.1640D-03, -.1235D-03, -.9201D-04,
20967 # -.6951D-04/
20968
20969 data (calcpts(j,38), j = 1,neta) /-.5013D-11, -.8916D-11,
20970 # -.1585D-10, -.2818D-10, -.5013D-10, -.8914D-10, -.1585D-09,
20971 # -.2819D-09, -.5010D-09, -.8911D-09, -.1585D-08, -.2818D-08,
20972 # -.5011D-08, -.8911D-08, -.1584D-07, -.2816D-07, -.5008D-07,
20973 # -.8901D-07, -.1582D-06, -.2812D-06, -.4993D-06, -.8866D-06,
20974 # -.1574D-05, -.2789D-05, -.4935D-05, -.8717D-05, -.1534D-04,
20975 # -.2688D-04, -.4680D-04, -.8069D-04, -.1373D-03, -.2294D-03,
20976 # -.3737D-03, -.5898D-03, -.8941D-03, -.1292D-02, -.1771D-02,
20977 # -.2298D-02, -.2827D-02, -.3317D-02, -.3738D-02, -.4078D-02,
20978 # -.4339D-02, -.4531D-02, -.4666D-02, -.4755D-02, -.4804D-02,
20979 # -.4819D-02, -.4799D-02, -.4744D-02, -.4650D-02, -.4508D-02,
20980 # -.4310D-02, -.4048D-02, -.3721D-02, -.3345D-02, -.2940D-02,
20981 # -.2530D-02, -.2137D-02, -.1776D-02, -.1453D-02, -.1175D-02,
20982 # -.9379D-03, -.7415D-03, -.5826D-03, -.4521D-03, -.3501D-03,
20983 # -.2677D-03, -.2047D-03, -.1552D-03, -.1177D-03, -.8770D-04,
20984 # -.6671D-04/
20985
20986 data (calcpts(j,39), j = 1,neta) /-.3741D-11, -.6654D-11,
20987 # -.1183D-10, -.2104D-10, -.3742D-10, -.6653D-10, -.1183D-09,
20988 # -.2104D-09, -.3740D-09, -.6651D-09, -.1183D-08, -.2103D-08,
20989 # -.3740D-08, -.6652D-08, -.1182D-07, -.2102D-07, -.3738D-07,
20990 # -.6644D-07, -.1181D-06, -.2099D-06, -.3727D-06, -.6618D-06,
20991 # -.1175D-05, -.2082D-05, -.3684D-05, -.6508D-05, -.1145D-04,
20992 # -.2007D-04, -.3494D-04, -.6024D-04, -.1025D-03, -.1713D-03,
20993 # -.2790D-03, -.4403D-03, -.6675D-03, -.9646D-03, -.1322D-02,
20994 # -.1715D-02, -.2110D-02, -.2476D-02, -.2791D-02, -.3045D-02,
20995 # -.3240D-02, -.3385D-02, -.3487D-02, -.3557D-02, -.3599D-02,
20996 # -.3617D-02, -.3614D-02, -.3589D-02, -.3539D-02, -.3461D-02,
20997 # -.3349D-02, -.3196D-02, -.2996D-02, -.2749D-02, -.2466D-02,
20998 # -.2164D-02, -.1858D-02, -.1568D-02, -.1299D-02, -.1062D-02,
20999 # -.8571D-03, -.6832D-03, -.5408D-03, -.4223D-03, -.3293D-03,
21000 # -.2543D-03, -.1943D-03, -.1494D-03, -.1134D-03, -.8486D-04,
21001 # -.6387D-04/
21002
21003 data (calcpts(j,40), j = 1,neta) /-.2780D-11, -.4945D-11,
21004 # -.8790D-11, -.1563D-10, -.2781D-10, -.4944D-10, -.8792D-10,
21005 # -.1564D-09, -.2779D-09, -.4943D-09, -.8792D-09, -.1563D-08,
21006 # -.2780D-08, -.4944D-08, -.8786D-08, -.1562D-07, -.2778D-07,
21007 # -.4939D-07, -.8778D-07, -.1560D-06, -.2770D-06, -.4919D-06,
21008 # -.8731D-06, -.1547D-05, -.2739D-05, -.4837D-05, -.8511D-05,
21009 # -.1492D-04, -.2597D-04, -.4478D-04, -.7619D-04, -.1273D-03,
21010 # -.2074D-03, -.3273D-03, -.4962D-03, -.7170D-03, -.9827D-03,
21011 # -.1275D-02, -.1569D-02, -.1841D-02, -.2074D-02, -.2263D-02,
21012 # -.2409D-02, -.2517D-02, -.2594D-02, -.2647D-02, -.2681D-02,
21013 # -.2699D-02, -.2703D-02, -.2693D-02, -.2668D-02, -.2626D-02,
21014 # -.2564D-02, -.2477D-02, -.2360D-02, -.2208D-02, -.2023D-02,
21015 # -.1812D-02, -.1586D-02, -.1360D-02, -.1145D-02, -.9475D-03,
21016 # -.7736D-03, -.6222D-03, -.4962D-03, -.3913D-03, -.3058D-03,
21017 # -.2368D-03, -.1828D-03, -.1408D-03, -.1063D-03, -.8082D-04,
21018 # -.6132D-04/
21019
21020 data (calcpts(j,41), j = 1,neta) /-.2059D-11, -.3662D-11,
21021 # -.6509D-11, -.1158D-10, -.2059D-10, -.3661D-10, -.6510D-10,
21022 # -.1158D-09, -.2058D-09, -.3660D-09, -.6511D-09, -.1158D-08,
21023 # -.2058D-08, -.3661D-08, -.6506D-08, -.1157D-07, -.2057D-07,
21024 # -.3657D-07, -.6500D-07, -.1155D-06, -.2051D-06, -.3643D-06,
21025 # -.6465D-06, -.1146D-05, -.2028D-05, -.3582D-05, -.6303D-05,
21026 # -.1105D-04, -.1923D-04, -.3316D-04, -.5642D-04, -.9427D-04,
21027 # -.1536D-03, -.2424D-03, -.3674D-03, -.5310D-03, -.7278D-03,
21028 # -.9443D-03, -.1162D-02, -.1363D-02, -.1536D-02, -.1676D-02,
21029 # -.1784D-02, -.1864D-02, -.1922D-02, -.1962D-02, -.1988D-02,
21030 # -.2004D-02, -.2011D-02, -.2008D-02, -.1996D-02, -.1974D-02,
21031 # -.1940D-02, -.1891D-02, -.1825D-02, -.1736D-02, -.1622D-02,
21032 # -.1484D-02, -.1327D-02, -.1160D-02, -.9928D-03, -.8341D-03,
21033 # -.6894D-03, -.5615D-03, -.4517D-03, -.3587D-03, -.2823D-03,
21034 # -.2208D-03, -.1713D-03, -.1323D-03, -.1008D-03, -.7679D-04,
21035 # -.5729D-04/
21036
21037 data (calcpts(j,42), j = 1,neta) /-.1520D-11, -.2703D-11,
21038 # -.4804D-11, -.8545D-11, -.1520D-10, -.2702D-10, -.4806D-10,
21039 # -.8547D-10, -.1519D-09, -.2702D-09, -.4806D-09, -.8545D-09,
21040 # -.1519D-08, -.2702D-08, -.4802D-08, -.8540D-08, -.1519D-07,
21041 # -.2700D-07, -.4798D-07, -.8528D-07, -.1514D-06, -.2689D-06,
21042 # -.4773D-06, -.8459D-06, -.1497D-05, -.2644D-05, -.4653D-05,
21043 # -.8154D-05, -.1420D-04, -.2448D-04, -.4165D-04, -.6959D-04,
21044 # -.1134D-03, -.1789D-03, -.2712D-03, -.3920D-03, -.5372D-03,
21045 # -.6971D-03, -.8576D-03, -.1006D-02, -.1134D-02, -.1237D-02,
21046 # -.1317D-02, -.1376D-02, -.1419D-02, -.1449D-02, -.1469D-02,
21047 # -.1482D-02, -.1489D-02, -.1490D-02, -.1485D-02, -.1474D-02,
21048 # -.1455D-02, -.1428D-02, -.1391D-02, -.1340D-02, -.1274D-02,
21049 # -.1189D-02, -.1086D-02, -.9692D-03, -.8460D-03, -.7231D-03,
21050 # -.6067D-03, -.5007D-03, -.4073D-03, -.3272D-03, -.2599D-03,
21051 # -.2045D-03, -.1595D-03, -.1234D-03, -.9489D-04, -.7254D-04,
21052 # -.5514D-04/
21053
21054 data (calcpts(j,43), j = 1,neta) /-.1118D-11, -.1989D-11,
21055 # -.3535D-11, -.6287D-11, -.1118D-10, -.1988D-10, -.3536D-10,
21056 # -.6289D-10, -.1118D-09, -.1988D-09, -.3536D-09, -.6287D-09,
21057 # -.1118D-08, -.1988D-08, -.3534D-08, -.6284D-08, -.1118D-07,
21058 # -.1986D-07, -.3531D-07, -.6275D-07, -.1114D-06, -.1979D-06,
21059 # -.3512D-06, -.6224D-06, -.1102D-05, -.1946D-05, -.3424D-05,
21060 # -.6000D-05, -.1045D-04, -.1801D-04, -.3065D-04, -.5121D-04,
21061 # -.8342D-04, -.1317D-03, -.1996D-03, -.2884D-03, -.3953D-03,
21062 # -.5129D-03, -.6310D-03, -.7404D-03, -.8344D-03, -.9105D-03,
21063 # -.9691D-03, -.1013D-02, -.1044D-02, -.1066D-02, -.1082D-02,
21064 # -.1092D-02, -.1097D-02, -.1100D-02, -.1098D-02, -.1093D-02,
21065 # -.1084D-02, -.1069D-02, -.1048D-02, -.1020D-02, -.9815D-03,
21066 # -.9317D-03, -.8684D-03, -.7922D-03, -.7063D-03, -.6156D-03,
21067 # -.5255D-03, -.4402D-03, -.3628D-03, -.2947D-03, -.2365D-03,
21068 # -.1876D-03, -.1474D-03, -.1149D-03, -.8879D-04, -.6824D-04,
21069 # -.5204D-04/
21070
21071 data (calcpts(j,44), j = 1,neta) /-.8203D-12, -.1459D-11,
21072 # -.2593D-11, -.4612D-11, -.8204D-11, -.1459D-10, -.2594D-10,
21073 # -.4614D-10, -.8200D-10, -.1458D-09, -.2594D-09, -.4613D-09,
21074 # -.8202D-09, -.1459D-08, -.2592D-08, -.4610D-08, -.8198D-08,
21075 # -.1457D-07, -.2590D-07, -.4604D-07, -.8174D-07, -.1452D-06,
21076 # -.2576D-06, -.4566D-06, -.8081D-06, -.1427D-05, -.2512D-05,
21077 # -.4402D-05, -.7664D-05, -.1321D-04, -.2248D-04, -.3757D-04,
21078 # -.6120D-04, -.9659D-04, -.1464D-03, -.2116D-03, -.2900D-03,
21079 # -.3763D-03, -.4630D-03, -.5432D-03, -.6122D-03, -.6679D-03,
21080 # -.7110D-03, -.7430D-03, -.7662D-03, -.7826D-03, -.7939D-03,
21081 # -.8015D-03, -.8062D-03, -.8086D-03, -.8088D-03, -.8068D-03,
21082 # -.8022D-03, -.7944D-03, -.7828D-03, -.7667D-03, -.7451D-03,
21083 # -.7161D-03, -.6790D-03, -.6323D-03, -.5761D-03, -.5130D-03,
21084 # -.4466D-03, -.3806D-03, -.3185D-03, -.2621D-03, -.2128D-03,
21085 # -.1705D-03, -.1351D-03, -.1060D-03, -.8242D-04, -.6367D-04,
21086 # -.4882D-04/
21087
21088 data (calcpts(j,45), j = 1,neta) /-.6004D-12, -.1068D-11,
21089 # -.1898D-11, -.3376D-11, -.6005D-11, -.1068D-10, -.1899D-10,
21090 # -.3377D-10, -.6002D-10, -.1068D-09, -.1899D-09, -.3376D-09,
21091 # -.6003D-09, -.1068D-08, -.1897D-08, -.3374D-08, -.6001D-08,
21092 # -.1067D-07, -.1896D-07, -.3370D-07, -.5983D-07, -.1062D-06,
21093 # -.1886D-06, -.3342D-06, -.5915D-06, -.1045D-05, -.1838D-05,
21094 # -.3222D-05, -.5610D-05, -.9672D-05, -.1646D-04, -.2750D-04,
21095 # -.4479D-04, -.7070D-04, -.1072D-03, -.1549D-03, -.2123D-03,
21096 # -.2754D-03, -.3389D-03, -.3976D-03, -.4481D-03, -.4889D-03,
21097 # -.5204D-03, -.5439D-03, -.5608D-03, -.5729D-03, -.5812D-03,
21098 # -.5869D-03, -.5906D-03, -.5927D-03, -.5935D-03, -.5929D-03,
21099 # -.5908D-03, -.5869D-03, -.5807D-03, -.5718D-03, -.5596D-03,
21100 # -.5434D-03, -.5222D-03, -.4948D-03, -.4602D-03, -.4188D-03,
21101 # -.3725D-03, -.3239D-03, -.2758D-03, -.2305D-03, -.1895D-03,
21102 # -.1537D-03, -.1229D-03, -.9744D-04, -.7629D-04, -.5934D-04,
21103 # -.4584D-04/
21104
21105 data (calcpts(j,46), j = 1,neta) /-.4382D-12, -.7794D-12,
21106 # -.1385D-11, -.2464D-11, -.4383D-11, -.7793D-11, -.1386D-10,
21107 # -.2465D-10, -.4381D-10, -.7791D-10, -.1386D-09, -.2464D-09,
21108 # -.4381D-09, -.7792D-09, -.1385D-08, -.2463D-08, -.4380D-08,
21109 # -.7785D-08, -.1384D-07, -.2459D-07, -.4367D-07, -.7755D-07,
21110 # -.1376D-06, -.2439D-06, -.4317D-06, -.7625D-06, -.1342D-05,
21111 # -.2351D-05, -.4094D-05, -.7059D-05, -.1201D-04, -.2007D-04,
21112 # -.3269D-04, -.5160D-04, -.7822D-04, -.1130D-03, -.1549D-03,
21113 # -.2010D-03, -.2473D-03, -.2902D-03, -.3270D-03, -.3568D-03,
21114 # -.3798D-03, -.3969D-03, -.4093D-03, -.4181D-03, -.4243D-03,
21115 # -.4285D-03, -.4313D-03, -.4330D-03, -.4338D-03, -.4339D-03,
21116 # -.4331D-03, -.4312D-03, -.4281D-03, -.4233D-03, -.4165D-03,
21117 # -.4073D-03, -.3952D-03, -.3795D-03, -.3590D-03, -.3339D-03,
21118 # -.3036D-03, -.2697D-03, -.2342D-03, -.1992D-03, -.1662D-03,
21119 # -.1365D-03, -.1106D-03, -.8839D-04, -.6994D-04, -.5479D-04,
21120 # -.4249D-04/
21121
21122 data (calcpts(j,47), j = 1,neta) /-.3191D-12, -.5675D-12,
21123 # -.1009D-11, -.1794D-11, -.3191D-11, -.5674D-11, -.1009D-10,
21124 # -.1795D-10, -.3190D-10, -.5673D-10, -.1009D-09, -.1794D-09,
21125 # -.3190D-09, -.5674D-09, -.1008D-08, -.1793D-08, -.3189D-08,
21126 # -.5668D-08, -.1007D-07, -.1791D-07, -.3179D-07, -.5646D-07,
21127 # -.1002D-06, -.1776D-06, -.3143D-06, -.5552D-06, -.9769D-06,
21128 # -.1712D-05, -.2981D-05, -.5140D-05, -.8745D-05, -.1461D-04,
21129 # -.2380D-04, -.3757D-04, -.5695D-04, -.8230D-04, -.1128D-03,
21130 # -.1464D-03, -.1801D-03, -.2113D-03, -.2381D-03, -.2598D-03,
21131 # -.2765D-03, -.2890D-03, -.2980D-03, -.3045D-03, -.3090D-03,
21132 # -.3120D-03, -.3141D-03, -.3155D-03, -.3162D-03, -.3165D-03,
21133 # -.3162D-03, -.3154D-03, -.3139D-03, -.3114D-03, -.3077D-03,
21134 # -.3026D-03, -.2957D-03, -.2868D-03, -.2752D-03, -.2603D-03,
21135 # -.2417D-03, -.2195D-03, -.1948D-03, -.1690D-03, -.1435D-03,
21136 # -.1197D-03, -.9825D-04, -.7935D-04, -.6345D-04, -.5010D-04,
21137 # -.3915D-04/
21138
21139 data (calcpts(j,48), j = 1,neta) /-.2319D-12, -.4124D-12,
21140 # -.7330D-12, -.1304D-11, -.2319D-11, -.4123D-11, -.7332D-11,
21141 # -.1304D-10, -.2318D-10, -.4122D-10, -.7332D-10, -.1304D-09,
21142 # -.2318D-09, -.4123D-09, -.7327D-09, -.1303D-08, -.2317D-08,
21143 # -.4119D-08, -.7321D-08, -.1301D-07, -.2310D-07, -.4103D-07,
21144 # -.7282D-07, -.1291D-06, -.2284D-06, -.4035D-06, -.7099D-06,
21145 # -.1244D-05, -.2166D-05, -.3735D-05, -.6355D-05, -.1062D-04,
21146 # -.1730D-04, -.2730D-04, -.4139D-04, -.5981D-04, -.8197D-04,
21147 # -.1064D-03, -.1309D-03, -.1535D-03, -.1730D-03, -.1888D-03,
21148 # -.2010D-03, -.2100D-03, -.2166D-03, -.2213D-03, -.2245D-03,
21149 # -.2268D-03, -.2283D-03, -.2293D-03, -.2300D-03, -.2303D-03,
21150 # -.2303D-03, -.2299D-03, -.2292D-03, -.2280D-03, -.2261D-03,
21151 # -.2233D-03, -.2195D-03, -.2143D-03, -.2077D-03, -.1992D-03,
21152 # -.1883D-03, -.1747D-03, -.1585D-03, -.1406D-03, -.1218D-03,
21153 # -.1034D-03, -.8612D-04, -.7060D-04, -.5695D-04, -.4555D-04,
21154 # -.3595D-04/
21155
21156 data (calcpts(j,49), j = 1,neta) /-.1681D-12, -.2990D-12,
21157 # -.5315D-12, -.9453D-12, -.1681D-11, -.2990D-11, -.5317D-11,
21158 # -.9456D-11, -.1681D-10, -.2989D-10, -.5317D-10, -.9454D-10,
21159 # -.1681D-09, -.2990D-09, -.5313D-09, -.9449D-09, -.1680D-08,
21160 # -.2987D-08, -.5309D-08, -.9436D-08, -.1675D-07, -.2975D-07,
21161 # -.5281D-07, -.9359D-07, -.1656D-06, -.2926D-06, -.5148D-06,
21162 # -.9022D-06, -.1571D-05, -.2708D-05, -.4608D-05, -.7700D-05,
21163 # -.1254D-04, -.1980D-04, -.3001D-04, -.4337D-04, -.5944D-04,
21164 # -.7713D-04, -.9489D-04, -.1113D-03, -.1255D-03, -.1369D-03,
21165 # -.1457D-03, -.1523D-03, -.1571D-03, -.1604D-03, -.1628D-03,
21166 # -.1645D-03, -.1656D-03, -.1663D-03, -.1668D-03, -.1671D-03,
21167 # -.1672D-03, -.1671D-03, -.1668D-03, -.1662D-03, -.1652D-03,
21168 # -.1638D-03, -.1617D-03, -.1588D-03, -.1550D-03, -.1502D-03,
21169 # -.1439D-03, -.1359D-03, -.1260D-03, -.1143D-03, -.1012D-03,
21170 # -.8765D-04, -.7430D-04, -.6185D-04, -.5062D-04, -.4087D-04,
21171 # -.3257D-04/
21172
21173 data (dlaeta(j), j = 1,neta) /
21174 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
21175 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
21176 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
21177 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
21178 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
21179 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
21180 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
21181 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
21182 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
21183 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
21184 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
21185 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
21186 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
21187 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
21188 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
21189
21190 data (dlaxi(j), j = 1,nxi) /
21191 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
21192 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
21193 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
21194 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
21195 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
21196 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
21197 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
21198 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
21199 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
21200 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
21201
21202 dleta = dlog10(eta)
21203 dlxi = dlog10(xi)
21204 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
21205 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
21206 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
21207 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
21208 call locate(dlaeta,neta, dleta, ieta)
21209 call locate(dlaxi, nxi, dlxi, ixi)
21210c interpolating between the appropriate points
21211 delxi = 1d0/6d0
21212 deleta = 1d0/6d0
21213c lagrange 3-pt.
21214 if (ixi .le. 2) ixi = 2
21215 if (ixi .ge. 48) ixi = 48
21216 if (ieta .le. 2) ieta = 2
21217 if (ieta .ge. 72) ieta = 72
21218 pxi = (dlxi - dlaxi(ixi))/delxi
21219 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
21220 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
21221 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
21222 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
21223 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
21224 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
21225 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
21226 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
21227 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
21228 peta = (dleta - dlaeta(ieta))/deleta
21229 h1_HTq = peta*(peta-1d0)/2d0*f(-1) +
21230 # (1d0 - peta**2)*f(0) +
21231CMB # + peta*(peta+1d0)/2d0*f(1)
21232 # peta*(peta+1d0)/2d0*f(1)
21233 return
21234 end
21235
21236c ===========================================
21237 double precision function h1bar_HTq(eta,xi)
21238c ===========================================
21239
21240c eq (27) in PLB347 (1995) 143 - 151 for the transverse piece
21241c MSbar scheme
21242c This routine is called subcqhtbar in the original code.
21243c Called sqtbar in updated code (03/06/96).
21244
21245 implicit none
21246 integer neta, nxi
21247 parameter (neta = 73, nxi = 49)
21248 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
21249 double precision eta, xi, dleta, dlxi
21250 double precision pxi, peta, f(-1:1), delxi, deleta
21251 integer j, ieta, ixi
21252
21253 data (calcpts(j, 1), j = 1,neta) /0.9803D-10, 0.1739D-09,
21254 # 0.3086D-09, 0.5482D-09, 0.9743D-09, 0.1731D-08, 0.3078D-08,
21255 # 0.5473D-08, 0.9724D-08, 0.1729D-07, 0.3076D-07, 0.5469D-07,
21256 # 0.9724D-07, 0.1729D-06, 0.3073D-06, 0.5465D-06, 0.9718D-06,
21257 # 0.1727D-05, 0.3070D-05, 0.5455D-05, 0.9683D-05, 0.1719D-04,
21258 # 0.3050D-04, 0.5401D-04, 0.9550D-04, 0.1684D-03, 0.2957D-03,
21259 # 0.5166D-03, 0.8955D-03, 0.1534D-02, 0.2586D-02, 0.4266D-02,
21260 # 0.6826D-02, 0.1052D-01, 0.1546D-01, 0.2147D-01, 0.2798D-01,
21261 # 0.3406D-01, 0.3874D-01, 0.4130D-01, 0.4150D-01, 0.3958D-01,
21262 # 0.3613D-01, 0.3180D-01, 0.2716D-01, 0.2264D-01, 0.1849D-01,
21263 # 0.1485D-01, 0.1178D-01, 0.9225D-02, 0.7162D-02, 0.5499D-02,
21264 # 0.4200D-02, 0.3187D-02, 0.2403D-02, 0.1803D-02, 0.1348D-02,
21265 # 0.1000D-02, 0.7489D-03, 0.5516D-03, 0.4103D-03, 0.2962D-03,
21266 # 0.2103D-03, 0.1530D-03, 0.1099D-03, 0.8117D-04, 0.6703D-04,
21267 # 0.3763D-04, 0.3803D-04, 0.2330D-04, 0.2349D-04, 0.8619D-05,
21268 # 0.8705D-05/
21269
21270 data (calcpts(j, 2), j = 1,neta) /0.9804D-10, 0.1739D-09,
21271 # 0.3085D-09, 0.5481D-09, 0.9742D-09, 0.1731D-08, 0.3077D-08,
21272 # 0.5472D-08, 0.9723D-08, 0.1729D-07, 0.3076D-07, 0.5468D-07,
21273 # 0.9722D-07, 0.1729D-06, 0.3073D-06, 0.5464D-06, 0.9717D-06,
21274 # 0.1727D-05, 0.3069D-05, 0.5455D-05, 0.9682D-05, 0.1719D-04,
21275 # 0.3050D-04, 0.5401D-04, 0.9548D-04, 0.1684D-03, 0.2957D-03,
21276 # 0.5165D-03, 0.8953D-03, 0.1534D-02, 0.2586D-02, 0.4265D-02,
21277 # 0.6827D-02, 0.1052D-01, 0.1546D-01, 0.2147D-01, 0.2797D-01,
21278 # 0.3407D-01, 0.3875D-01, 0.4129D-01, 0.4150D-01, 0.3958D-01,
21279 # 0.3613D-01, 0.3180D-01, 0.2716D-01, 0.2264D-01, 0.1850D-01,
21280 # 0.1486D-01, 0.1177D-01, 0.9227D-02, 0.7149D-02, 0.5501D-02,
21281 # 0.4202D-02, 0.3189D-02, 0.2405D-02, 0.1804D-02, 0.1350D-02,
21282 # 0.1002D-02, 0.7507D-03, 0.5534D-03, 0.4121D-03, 0.2980D-03,
21283 # 0.2120D-03, 0.1548D-03, 0.1117D-03, 0.8293D-04, 0.5380D-04,
21284 # 0.3939D-04, 0.2480D-04, 0.2507D-04, 0.1026D-04, 0.1039D-04,
21285 # 0.1047D-04/
21286
21287 data (calcpts(j, 3), j = 1,neta) /0.9802D-10, 0.1739D-09,
21288 # 0.3085D-09, 0.5481D-09, 0.9742D-09, 0.1731D-08, 0.3077D-08,
21289 # 0.5472D-08, 0.9722D-08, 0.1729D-07, 0.3076D-07, 0.5468D-07,
21290 # 0.9722D-07, 0.1729D-06, 0.3072D-06, 0.5464D-06, 0.9717D-06,
21291 # 0.1727D-05, 0.3069D-05, 0.5454D-05, 0.9682D-05, 0.1719D-04,
21292 # 0.3049D-04, 0.5400D-04, 0.9548D-04, 0.1684D-03, 0.2956D-03,
21293 # 0.5165D-03, 0.8953D-03, 0.1534D-02, 0.2585D-02, 0.4265D-02,
21294 # 0.6825D-02, 0.1052D-01, 0.1546D-01, 0.2147D-01, 0.2798D-01,
21295 # 0.3406D-01, 0.3873D-01, 0.4130D-01, 0.4150D-01, 0.3958D-01,
21296 # 0.3613D-01, 0.3180D-01, 0.2716D-01, 0.2264D-01, 0.1849D-01,
21297 # 0.1485D-01, 0.1178D-01, 0.9223D-02, 0.7160D-02, 0.5497D-02,
21298 # 0.4198D-02, 0.3184D-02, 0.2401D-02, 0.1800D-02, 0.1345D-02,
21299 # 0.9976D-03, 0.7463D-03, 0.5490D-03, 0.4077D-03, 0.2936D-03,
21300 # 0.2227D-03, 0.1654D-03, 0.1223D-03, 0.7854D-04, 0.6441D-04,
21301 # 0.5000D-04, 0.3540D-04, 0.2068D-04, 0.2087D-04, 0.5994D-05,
21302 # 0.6081D-05/
21303
21304 data (calcpts(j, 4), j = 1,neta) /0.9800D-10, 0.1739D-09,
21305 # 0.3085D-09, 0.5480D-09, 0.9740D-09, 0.1731D-08, 0.3077D-08,
21306 # 0.5471D-08, 0.9721D-08, 0.1729D-07, 0.3075D-07, 0.5467D-07,
21307 # 0.9720D-07, 0.1729D-06, 0.3072D-06, 0.5463D-06, 0.9715D-06,
21308 # 0.1727D-05, 0.3069D-05, 0.5454D-05, 0.9680D-05, 0.1718D-04,
21309 # 0.3049D-04, 0.5399D-04, 0.9547D-04, 0.1684D-03, 0.2956D-03,
21310 # 0.5164D-03, 0.8952D-03, 0.1533D-02, 0.2585D-02, 0.4264D-02,
21311 # 0.6824D-02, 0.1052D-01, 0.1546D-01, 0.2147D-01, 0.2797D-01,
21312 # 0.3407D-01, 0.3873D-01, 0.4129D-01, 0.4149D-01, 0.3959D-01,
21313 # 0.3613D-01, 0.3181D-01, 0.2716D-01, 0.2264D-01, 0.1850D-01,
21314 # 0.1485D-01, 0.1178D-01, 0.9225D-02, 0.7161D-02, 0.5498D-02,
21315 # 0.4199D-02, 0.3186D-02, 0.2402D-02, 0.1801D-02, 0.1347D-02,
21316 # 0.9991D-03, 0.7478D-03, 0.5506D-03, 0.4092D-03, 0.2951D-03,
21317 # 0.2242D-03, 0.1519D-03, 0.1088D-03, 0.8006D-04, 0.6593D-04,
21318 # 0.5152D-04, 0.3692D-04, 0.2220D-04, 0.2239D-04, 0.7513D-05,
21319 # 0.7599D-05/
21320
21321 data (calcpts(j, 5), j = 1,neta) /0.9798D-10, 0.1738D-09,
21322 # 0.3084D-09, 0.5479D-09, 0.9738D-09, 0.1730D-08, 0.3076D-08,
21323 # 0.5470D-08, 0.9718D-08, 0.1728D-07, 0.3074D-07, 0.5466D-07,
21324 # 0.9718D-07, 0.1728D-06, 0.3071D-06, 0.5462D-06, 0.9713D-06,
21325 # 0.1726D-05, 0.3068D-05, 0.5452D-05, 0.9678D-05, 0.1718D-04,
21326 # 0.3048D-04, 0.5398D-04, 0.9544D-04, 0.1683D-03, 0.2955D-03,
21327 # 0.5163D-03, 0.8950D-03, 0.1533D-02, 0.2584D-02, 0.4263D-02,
21328 # 0.6823D-02, 0.1052D-01, 0.1546D-01, 0.2146D-01, 0.2797D-01,
21329 # 0.3406D-01, 0.3872D-01, 0.4130D-01, 0.4149D-01, 0.3958D-01,
21330 # 0.3613D-01, 0.3180D-01, 0.2715D-01, 0.2263D-01, 0.1849D-01,
21331 # 0.1486D-01, 0.1177D-01, 0.9228D-02, 0.7150D-02, 0.5502D-02,
21332 # 0.4202D-02, 0.3189D-02, 0.2406D-02, 0.1805D-02, 0.1350D-02,
21333 # 0.1002D-02, 0.7510D-03, 0.5538D-03, 0.3974D-03, 0.2984D-03,
21334 # 0.2124D-03, 0.1551D-03, 0.1120D-03, 0.8327D-04, 0.5414D-04,
21335 # 0.3973D-04, 0.2513D-04, 0.2541D-04, 0.1059D-04, 0.1072D-04,
21336 # 0.1081D-04/
21337
21338 data (calcpts(j, 6), j = 1,neta) /0.9794D-10, 0.1738D-09,
21339 # 0.3083D-09, 0.5477D-09, 0.9735D-09, 0.1730D-08, 0.3075D-08,
21340 # 0.5468D-08, 0.9715D-08, 0.1728D-07, 0.3073D-07, 0.5464D-07,
21341 # 0.9715D-07, 0.1728D-06, 0.3070D-06, 0.5460D-06, 0.9710D-06,
21342 # 0.1726D-05, 0.3067D-05, 0.5450D-05, 0.9674D-05, 0.1718D-04,
21343 # 0.3047D-04, 0.5396D-04, 0.9541D-04, 0.1683D-03, 0.2954D-03,
21344 # 0.5161D-03, 0.8947D-03, 0.1532D-02, 0.2584D-02, 0.4262D-02,
21345 # 0.6821D-02, 0.1052D-01, 0.1546D-01, 0.2146D-01, 0.2796D-01,
21346 # 0.3405D-01, 0.3872D-01, 0.4128D-01, 0.4148D-01, 0.3958D-01,
21347 # 0.3612D-01, 0.3180D-01, 0.2716D-01, 0.2263D-01, 0.1849D-01,
21348 # 0.1486D-01, 0.1177D-01, 0.9228D-02, 0.7149D-02, 0.5501D-02,
21349 # 0.4201D-02, 0.3188D-02, 0.2405D-02, 0.1804D-02, 0.1349D-02,
21350 # 0.1001D-02, 0.7498D-03, 0.5525D-03, 0.4112D-03, 0.2971D-03,
21351 # 0.2111D-03, 0.1539D-03, 0.1108D-03, 0.8203D-04, 0.6790D-04,
21352 # 0.3849D-04, 0.3889D-04, 0.2416D-04, 0.9350D-05, 0.9477D-05,
21353 # 0.9564D-05/
21354
21355 data (calcpts(j, 7), j = 1,neta) /0.9790D-10, 0.1737D-09,
21356 # 0.3081D-09, 0.5474D-09, 0.9730D-09, 0.1729D-08, 0.3073D-08,
21357 # 0.5465D-08, 0.9711D-08, 0.1727D-07, 0.3072D-07, 0.5461D-07,
21358 # 0.9710D-07, 0.1727D-06, 0.3069D-06, 0.5457D-06, 0.9705D-06,
21359 # 0.1725D-05, 0.3065D-05, 0.5448D-05, 0.9670D-05, 0.1717D-04,
21360 # 0.3046D-04, 0.5394D-04, 0.9537D-04, 0.1682D-03, 0.2953D-03,
21361 # 0.5159D-03, 0.8943D-03, 0.1532D-02, 0.2582D-02, 0.4260D-02,
21362 # 0.6819D-02, 0.1051D-01, 0.1545D-01, 0.2145D-01, 0.2795D-01,
21363 # 0.3404D-01, 0.3871D-01, 0.4127D-01, 0.4147D-01, 0.3956D-01,
21364 # 0.3612D-01, 0.3180D-01, 0.2715D-01, 0.2263D-01, 0.1849D-01,
21365 # 0.1486D-01, 0.1177D-01, 0.9229D-02, 0.7150D-02, 0.5501D-02,
21366 # 0.4202D-02, 0.3189D-02, 0.2405D-02, 0.1804D-02, 0.1349D-02,
21367 # 0.1001D-02, 0.7501D-03, 0.5528D-03, 0.4114D-03, 0.2973D-03,
21368 # 0.2114D-03, 0.1541D-03, 0.1110D-03, 0.8225D-04, 0.6811D-04,
21369 # 0.3871D-04, 0.3911D-04, 0.2438D-04, 0.9568D-05, 0.9695D-05,
21370 # 0.9782D-05/
21371
21372 data (calcpts(j, 8), j = 1,neta) /0.9783D-10, 0.1736D-09,
21373 # 0.3079D-09, 0.5470D-09, 0.9723D-09, 0.1728D-08, 0.3071D-08,
21374 # 0.5461D-08, 0.9704D-08, 0.1726D-07, 0.3069D-07, 0.5457D-07,
21375 # 0.9703D-07, 0.1726D-06, 0.3066D-06, 0.5453D-06, 0.9698D-06,
21376 # 0.1724D-05, 0.3063D-05, 0.5444D-05, 0.9663D-05, 0.1715D-04,
21377 # 0.3043D-04, 0.5390D-04, 0.9530D-04, 0.1681D-03, 0.2951D-03,
21378 # 0.5155D-03, 0.8937D-03, 0.1531D-02, 0.2581D-02, 0.4258D-02,
21379 # 0.6815D-02, 0.1051D-01, 0.1544D-01, 0.2144D-01, 0.2794D-01,
21380 # 0.3404D-01, 0.3870D-01, 0.4126D-01, 0.4146D-01, 0.3956D-01,
21381 # 0.3611D-01, 0.3178D-01, 0.2714D-01, 0.2263D-01, 0.1848D-01,
21382 # 0.1485D-01, 0.1178D-01, 0.9218D-02, 0.7154D-02, 0.5505D-02,
21383 # 0.4206D-02, 0.3192D-02, 0.2409D-02, 0.1807D-02, 0.1353D-02,
21384 # 0.1005D-02, 0.7385D-03, 0.5562D-03, 0.3999D-03, 0.3008D-03,
21385 # 0.2148D-03, 0.1575D-03, 0.1144D-03, 0.8568D-04, 0.5654D-04,
21386 # 0.4213D-04, 0.2753D-04, 0.2781D-04, 0.1299D-04, 0.1312D-04,
21387 # 0.1321D-04/
21388
21389 data (calcpts(j, 9), j = 1,neta) /0.9773D-10, 0.1734D-09,
21390 # 0.3076D-09, 0.5464D-09, 0.9713D-09, 0.1726D-08, 0.3068D-08,
21391 # 0.5455D-08, 0.9693D-08, 0.1724D-07, 0.3066D-07, 0.5451D-07,
21392 # 0.9693D-07, 0.1724D-06, 0.3063D-06, 0.5447D-06, 0.9688D-06,
21393 # 0.1722D-05, 0.3060D-05, 0.5438D-05, 0.9653D-05, 0.1714D-04,
21394 # 0.3040D-04, 0.5384D-04, 0.9520D-04, 0.1679D-03, 0.2948D-03,
21395 # 0.5150D-03, 0.8928D-03, 0.1529D-02, 0.2578D-02, 0.4254D-02,
21396 # 0.6808D-02, 0.1050D-01, 0.1543D-01, 0.2143D-01, 0.2792D-01,
21397 # 0.3401D-01, 0.3868D-01, 0.4125D-01, 0.4145D-01, 0.3954D-01,
21398 # 0.3611D-01, 0.3177D-01, 0.2715D-01, 0.2263D-01, 0.1848D-01,
21399 # 0.1486D-01, 0.1177D-01, 0.9223D-02, 0.7158D-02, 0.5509D-02,
21400 # 0.4209D-02, 0.3195D-02, 0.2412D-02, 0.1810D-02, 0.1355D-02,
21401 # 0.1008D-02, 0.7413D-03, 0.5440D-03, 0.4026D-03, 0.3035D-03,
21402 # 0.2175D-03, 0.1603D-03, 0.1171D-03, 0.8839D-04, 0.5926D-04,
21403 # 0.4485D-04, 0.3025D-04, 0.3052D-04, 0.1571D-04, 0.1584D-04,
21404 # 0.1592D-04/
21405
21406 data (calcpts(j,10), j = 1,neta) /0.9756D-10, 0.1731D-09,
21407 # 0.3071D-09, 0.5456D-09, 0.9697D-09, 0.1723D-08, 0.3063D-08,
21408 # 0.5447D-08, 0.9679D-08, 0.1721D-07, 0.3062D-07, 0.5443D-07,
21409 # 0.9678D-07, 0.1721D-06, 0.3058D-06, 0.5439D-06, 0.9673D-06,
21410 # 0.1719D-05, 0.3055D-05, 0.5430D-05, 0.9637D-05, 0.1711D-04,
21411 # 0.3035D-04, 0.5376D-04, 0.9505D-04, 0.1677D-03, 0.2943D-03,
21412 # 0.5142D-03, 0.8915D-03, 0.1527D-02, 0.2575D-02, 0.4248D-02,
21413 # 0.6801D-02, 0.1048D-01, 0.1541D-01, 0.2141D-01, 0.2790D-01,
21414 # 0.3398D-01, 0.3866D-01, 0.4121D-01, 0.4142D-01, 0.3952D-01,
21415 # 0.3609D-01, 0.3177D-01, 0.2714D-01, 0.2261D-01, 0.1847D-01,
21416 # 0.1485D-01, 0.1177D-01, 0.9215D-02, 0.7149D-02, 0.5499D-02,
21417 # 0.4199D-02, 0.3185D-02, 0.2401D-02, 0.1799D-02, 0.1344D-02,
21418 # 0.9965D-03, 0.7451D-03, 0.5477D-03, 0.4064D-03, 0.2922D-03,
21419 # 0.2212D-03, 0.1640D-03, 0.1208D-03, 0.9209D-04, 0.6295D-04,
21420 # 0.4854D-04, 0.3394D-04, 0.1922D-04, 0.1940D-04, 0.1953D-04,
21421 # 0.4614D-05/
21422
21423 data (calcpts(j,11), j = 1,neta) /0.9733D-10, 0.1727D-09,
21424 # 0.3064D-09, 0.5443D-09, 0.9675D-09, 0.1719D-08, 0.3056D-08,
21425 # 0.5434D-08, 0.9656D-08, 0.1717D-07, 0.3055D-07, 0.5431D-07,
21426 # 0.9657D-07, 0.1717D-06, 0.3052D-06, 0.5427D-06, 0.9650D-06,
21427 # 0.1715D-05, 0.3048D-05, 0.5417D-05, 0.9615D-05, 0.1707D-04,
21428 # 0.3029D-04, 0.5364D-04, 0.9484D-04, 0.1673D-03, 0.2937D-03,
21429 # 0.5131D-03, 0.8895D-03, 0.1524D-02, 0.2570D-02, 0.4240D-02,
21430 # 0.6788D-02, 0.1047D-01, 0.1539D-01, 0.2138D-01, 0.2786D-01,
21431 # 0.3395D-01, 0.3862D-01, 0.4118D-01, 0.4139D-01, 0.3949D-01,
21432 # 0.3606D-01, 0.3175D-01, 0.2711D-01, 0.2261D-01, 0.1847D-01,
21433 # 0.1484D-01, 0.1176D-01, 0.9213D-02, 0.7146D-02, 0.5496D-02,
21434 # 0.4195D-02, 0.3180D-02, 0.2411D-02, 0.1809D-02, 0.1354D-02,
21435 # 0.1006D-02, 0.7398D-03, 0.5425D-03, 0.4010D-03, 0.3019D-03,
21436 # 0.2159D-03, 0.1586D-03, 0.1155D-03, 0.8672D-04, 0.5758D-04,
21437 # 0.4316D-04, 0.2856D-04, 0.2883D-04, 0.1402D-04, 0.1415D-04,
21438 # 0.1423D-04/
21439
21440 data (calcpts(j,12), j = 1,neta) /0.9701D-10, 0.1721D-09,
21441 # 0.3054D-09, 0.5425D-09, 0.9642D-09, 0.1714D-08, 0.3046D-08,
21442 # 0.5416D-08, 0.9625D-08, 0.1712D-07, 0.3044D-07, 0.5412D-07,
21443 # 0.9624D-07, 0.1712D-06, 0.3041D-06, 0.5409D-06, 0.9619D-06,
21444 # 0.1710D-05, 0.3038D-05, 0.5400D-05, 0.9584D-05, 0.1702D-04,
21445 # 0.3019D-04, 0.5346D-04, 0.9453D-04, 0.1667D-03, 0.2927D-03,
21446 # 0.5115D-03, 0.8867D-03, 0.1519D-02, 0.2562D-02, 0.4228D-02,
21447 # 0.6769D-02, 0.1044D-01, 0.1535D-01, 0.2133D-01, 0.2781D-01,
21448 # 0.3388D-01, 0.3855D-01, 0.4112D-01, 0.4133D-01, 0.3945D-01,
21449 # 0.3602D-01, 0.3172D-01, 0.2710D-01, 0.2260D-01, 0.1846D-01,
21450 # 0.1484D-01, 0.1176D-01, 0.9208D-02, 0.7154D-02, 0.5502D-02,
21451 # 0.4200D-02, 0.3185D-02, 0.2400D-02, 0.1799D-02, 0.1343D-02,
21452 # 0.1010D-02, 0.7437D-03, 0.5463D-03, 0.4048D-03, 0.2906D-03,
21453 # 0.2196D-03, 0.1623D-03, 0.1191D-03, 0.9040D-04, 0.6126D-04,
21454 # 0.4684D-04, 0.3224D-04, 0.1751D-04, 0.1769D-04, 0.1782D-04,
21455 # 0.2904D-05/
21456
21457 data (calcpts(j,13), j = 1,neta) /0.9653D-10, 0.1713D-09,
21458 # 0.3039D-09, 0.5399D-09, 0.9596D-09, 0.1705D-08, 0.3031D-08,
21459 # 0.5390D-08, 0.9577D-08, 0.1703D-07, 0.3030D-07, 0.5386D-07,
21460 # 0.9577D-07, 0.1703D-06, 0.3027D-06, 0.5382D-06, 0.9572D-06,
21461 # 0.1701D-05, 0.3023D-05, 0.5373D-05, 0.9537D-05, 0.1693D-04,
21462 # 0.3004D-04, 0.5321D-04, 0.9408D-04, 0.1659D-03, 0.2913D-03,
21463 # 0.5091D-03, 0.8826D-03, 0.1512D-02, 0.2551D-02, 0.4210D-02,
21464 # 0.6742D-02, 0.1040D-01, 0.1530D-01, 0.2126D-01, 0.2773D-01,
21465 # 0.3380D-01, 0.3846D-01, 0.4104D-01, 0.4126D-01, 0.3938D-01,
21466 # 0.3598D-01, 0.3168D-01, 0.2707D-01, 0.2257D-01, 0.1845D-01,
21467 # 0.1482D-01, 0.1175D-01, 0.9208D-02, 0.7152D-02, 0.5498D-02,
21468 # 0.4195D-02, 0.3179D-02, 0.2408D-02, 0.1806D-02, 0.1350D-02,
21469 # 0.1002D-02, 0.7506D-03, 0.5531D-03, 0.4116D-03, 0.2974D-03,
21470 # 0.2113D-03, 0.1540D-03, 0.1108D-03, 0.8206D-04, 0.6791D-04,
21471 # 0.3849D-04, 0.3888D-04, 0.2415D-04, 0.2433D-04, 0.9458D-05,
21472 # 0.9543D-05/
21473
21474 data (calcpts(j,14), j = 1,neta) /0.9585D-10, 0.1701D-09,
21475 # 0.3017D-09, 0.5360D-09, 0.9528D-09, 0.1693D-08, 0.3010D-08,
21476 # 0.5352D-08, 0.9510D-08, 0.1691D-07, 0.3008D-07, 0.5348D-07,
21477 # 0.9509D-07, 0.1691D-06, 0.3005D-06, 0.5344D-06, 0.9504D-06,
21478 # 0.1689D-05, 0.3002D-05, 0.5335D-05, 0.9470D-05, 0.1681D-04,
21479 # 0.2983D-04, 0.5283D-04, 0.9341D-04, 0.1648D-03, 0.2893D-03,
21480 # 0.5056D-03, 0.8766D-03, 0.1502D-02, 0.2534D-02, 0.4184D-02,
21481 # 0.6704D-02, 0.1034D-01, 0.1522D-01, 0.2116D-01, 0.2761D-01,
21482 # 0.3367D-01, 0.3833D-01, 0.4091D-01, 0.4114D-01, 0.3930D-01,
21483 # 0.3591D-01, 0.3162D-01, 0.2703D-01, 0.2253D-01, 0.1843D-01,
21484 # 0.1481D-01, 0.1174D-01, 0.9207D-02, 0.7131D-02, 0.5490D-02,
21485 # 0.4200D-02, 0.3182D-02, 0.2396D-02, 0.1808D-02, 0.1352D-02,
21486 # 0.1004D-02, 0.7369D-03, 0.5542D-03, 0.3976D-03, 0.2983D-03,
21487 # 0.2122D-03, 0.1549D-03, 0.1117D-03, 0.8293D-04, 0.5377D-04,
21488 # 0.3935D-04, 0.2474D-04, 0.2500D-04, 0.1018D-04, 0.1031D-04,
21489 # 0.1039D-04/
21490
21491 data (calcpts(j,15), j = 1,neta) /0.9484D-10, 0.1683D-09,
21492 # 0.2986D-09, 0.5305D-09, 0.9430D-09, 0.1676D-08, 0.2979D-08,
21493 # 0.5297D-08, 0.9412D-08, 0.1674D-07, 0.2977D-07, 0.5293D-07,
21494 # 0.9412D-07, 0.1674D-06, 0.2975D-06, 0.5290D-06, 0.9407D-06,
21495 # 0.1672D-05, 0.2971D-05, 0.5281D-05, 0.9373D-05, 0.1664D-04,
21496 # 0.2953D-04, 0.5229D-04, 0.9248D-04, 0.1631D-03, 0.2864D-03,
21497 # 0.5006D-03, 0.8680D-03, 0.1488D-02, 0.2511D-02, 0.4147D-02,
21498 # 0.6646D-02, 0.1026D-01, 0.1511D-01, 0.2102D-01, 0.2744D-01,
21499 # 0.3347D-01, 0.3814D-01, 0.4072D-01, 0.4099D-01, 0.3916D-01,
21500 # 0.3580D-01, 0.3155D-01, 0.2697D-01, 0.2249D-01, 0.1839D-01,
21501 # 0.1478D-01, 0.1173D-01, 0.9194D-02, 0.7127D-02, 0.5482D-02,
21502 # 0.4189D-02, 0.3185D-02, 0.2397D-02, 0.1809D-02, 0.1352D-02,
21503 # 0.1003D-02, 0.7511D-03, 0.5532D-03, 0.4115D-03, 0.2971D-03,
21504 # 0.2110D-03, 0.1536D-03, 0.1104D-03, 0.8161D-04, 0.6744D-04,
21505 # 0.3800D-04, 0.3839D-04, 0.2365D-04, 0.2383D-04, 0.8947D-05,
21506 # 0.9030D-05/
21507
21508 data (calcpts(j,16), j = 1,neta) /0.9341D-10, 0.1658D-09,
21509 # 0.2941D-09, 0.5226D-09, 0.9290D-09, 0.1651D-08, 0.2935D-08,
21510 # 0.5219D-08, 0.9272D-08, 0.1649D-07, 0.2933D-07, 0.5215D-07,
21511 # 0.9273D-07, 0.1649D-06, 0.2930D-06, 0.5211D-06, 0.9268D-06,
21512 # 0.1647D-05, 0.2927D-05, 0.5203D-05, 0.9235D-05, 0.1640D-04,
21513 # 0.2909D-04, 0.5153D-04, 0.9111D-04, 0.1607D-03, 0.2823D-03,
21514 # 0.4934D-03, 0.8558D-03, 0.1467D-02, 0.2477D-02, 0.4092D-02,
21515 # 0.6564D-02, 0.1014D-01, 0.1494D-01, 0.2081D-01, 0.2718D-01,
21516 # 0.3319D-01, 0.3784D-01, 0.4044D-01, 0.4073D-01, 0.3894D-01,
21517 # 0.3563D-01, 0.3141D-01, 0.2687D-01, 0.2244D-01, 0.1834D-01,
21518 # 0.1475D-01, 0.1170D-01, 0.9181D-02, 0.7122D-02, 0.5486D-02,
21519 # 0.4189D-02, 0.3183D-02, 0.2393D-02, 0.1804D-02, 0.1346D-02,
21520 # 0.9968D-03, 0.7442D-03, 0.5461D-03, 0.4042D-03, 0.3047D-03,
21521 # 0.2185D-03, 0.1611D-03, 0.1178D-03, 0.8900D-04, 0.5981D-04,
21522 # 0.4536D-04, 0.3073D-04, 0.3099D-04, 0.1617D-04, 0.1628D-04,
21523 # 0.1637D-04/
21524
21525 data (calcpts(j,17), j = 1,neta) /0.9140D-10, 0.1622D-09,
21526 # 0.2878D-09, 0.5114D-09, 0.9091D-09, 0.1616D-08, 0.2872D-08,
21527 # 0.5107D-08, 0.9075D-08, 0.1614D-07, 0.2871D-07, 0.5104D-07,
21528 # 0.9076D-07, 0.1614D-06, 0.2868D-06, 0.5100D-06, 0.9071D-06,
21529 # 0.1612D-05, 0.2865D-05, 0.5092D-05, 0.9038D-05, 0.1605D-04,
21530 # 0.2847D-04, 0.5044D-04, 0.8919D-04, 0.1574D-03, 0.2764D-03,
21531 # 0.4832D-03, 0.8382D-03, 0.1438D-02, 0.2428D-02, 0.4014D-02,
21532 # 0.6444D-02, 0.9965D-02, 0.1470D-01, 0.2049D-01, 0.2681D-01,
21533 # 0.3278D-01, 0.3741D-01, 0.4002D-01, 0.4037D-01, 0.3863D-01,
21534 # 0.3538D-01, 0.3122D-01, 0.2673D-01, 0.2233D-01, 0.1826D-01,
21535 # 0.1470D-01, 0.1167D-01, 0.9149D-02, 0.7108D-02, 0.5465D-02,
21536 # 0.4178D-02, 0.3168D-02, 0.2391D-02, 0.1800D-02, 0.1341D-02,
21537 # 0.1006D-02, 0.7379D-03, 0.5545D-03, 0.3973D-03, 0.2977D-03,
21538 # 0.2113D-03, 0.1538D-03, 0.1105D-03, 0.8168D-04, 0.6746D-04,
21539 # 0.3800D-04, 0.3836D-04, 0.2361D-04, 0.8782D-05, 0.8897D-05,
21540 # 0.8976D-05/
21541
21542 data (calcpts(j,18), j = 1,neta) /0.8860D-10, 0.1573D-09,
21543 # 0.2791D-09, 0.4959D-09, 0.8816D-09, 0.1567D-08, 0.2785D-08,
21544 # 0.4953D-08, 0.8802D-08, 0.1565D-07, 0.2784D-07, 0.4950D-07,
21545 # 0.8801D-07, 0.1565D-06, 0.2782D-06, 0.4947D-06, 0.8797D-06,
21546 # 0.1564D-05, 0.2779D-05, 0.4939D-05, 0.8766D-05, 0.1557D-04,
21547 # 0.2762D-04, 0.4892D-04, 0.8653D-04, 0.1527D-03, 0.2682D-03,
21548 # 0.4689D-03, 0.8138D-03, 0.1396D-02, 0.2360D-02, 0.3904D-02,
21549 # 0.6272D-02, 0.9714D-02, 0.1435D-01, 0.2004D-01, 0.2626D-01,
21550 # 0.3217D-01, 0.3678D-01, 0.3942D-01, 0.3983D-01, 0.3817D-01,
21551 # 0.3502D-01, 0.3095D-01, 0.2653D-01, 0.2218D-01, 0.1817D-01,
21552 # 0.1462D-01, 0.1162D-01, 0.9119D-02, 0.7079D-02, 0.5455D-02,
21553 # 0.4161D-02, 0.3161D-02, 0.2381D-02, 0.1787D-02, 0.1342D-02,
21554 # 0.9912D-03, 0.7374D-03, 0.5534D-03, 0.3960D-03, 0.2961D-03,
21555 # 0.2096D-03, 0.1520D-03, 0.1086D-03, 0.7971D-04, 0.6547D-04,
21556 # 0.5098D-04, 0.3633D-04, 0.2157D-04, 0.2173D-04, 0.6842D-05,
21557 # 0.6917D-05/
21558
21559 data (calcpts(j,19), j = 1,neta) /0.8482D-10, 0.1506D-09,
21560 # 0.2673D-09, 0.4749D-09, 0.8443D-09, 0.1501D-08, 0.2668D-08,
21561 # 0.4744D-08, 0.8430D-08, 0.1499D-07, 0.2667D-07, 0.4741D-07,
21562 # 0.8431D-07, 0.1499D-06, 0.2664D-06, 0.4738D-06, 0.8427D-06,
21563 # 0.1498D-05, 0.2662D-05, 0.4730D-05, 0.8397D-05, 0.1491D-04,
21564 # 0.2646D-04, 0.4687D-04, 0.8290D-04, 0.1463D-03, 0.2570D-03,
21565 # 0.4495D-03, 0.7805D-03, 0.1340D-02, 0.2266D-02, 0.3752D-02,
21566 # 0.6036D-02, 0.9363D-02, 0.1386D-01, 0.1939D-01, 0.2547D-01,
21567 # 0.3127D-01, 0.3585D-01, 0.3853D-01, 0.3902D-01, 0.3751D-01,
21568 # 0.3448D-01, 0.3054D-01, 0.2622D-01, 0.2195D-01, 0.1800D-01,
21569 # 0.1451D-01, 0.1154D-01, 0.9062D-02, 0.7047D-02, 0.5424D-02,
21570 # 0.4152D-02, 0.3145D-02, 0.2376D-02, 0.1795D-02, 0.1333D-02,
21571 # 0.9950D-03, 0.7403D-03, 0.5407D-03, 0.3978D-03, 0.2977D-03,
21572 # 0.2110D-03, 0.1532D-03, 0.1098D-03, 0.8080D-04, 0.6651D-04,
21573 # 0.3700D-04, 0.3733D-04, 0.2255D-04, 0.2271D-04, 0.7810D-05,
21574 # 0.7881D-05/
21575
21576 data (calcpts(j,20), j = 1,neta) /0.7986D-10, 0.1418D-09,
21577 # 0.2517D-09, 0.4474D-09, 0.7953D-09, 0.1414D-08, 0.2513D-08,
21578 # 0.4469D-08, 0.7942D-08, 0.1413D-07, 0.2512D-07, 0.4467D-07,
21579 # 0.7942D-07, 0.1413D-06, 0.2510D-06, 0.4464D-06, 0.7938D-06,
21580 # 0.1411D-05, 0.2508D-05, 0.4457D-05, 0.7912D-05, 0.1405D-04,
21581 # 0.2493D-04, 0.4416D-04, 0.7812D-04, 0.1379D-03, 0.2423D-03,
21582 # 0.4239D-03, 0.7362D-03, 0.1265D-02, 0.2140D-02, 0.3548D-02,
21583 # 0.5716D-02, 0.8883D-02, 0.1318D-01, 0.1849D-01, 0.2436D-01,
21584 # 0.3002D-01, 0.3454D-01, 0.3727D-01, 0.3788D-01, 0.3654D-01,
21585 # 0.3370D-01, 0.2993D-01, 0.2577D-01, 0.2163D-01, 0.1777D-01,
21586 # 0.1435D-01, 0.1142D-01, 0.8980D-02, 0.6985D-02, 0.5391D-02,
21587 # 0.4121D-02, 0.3137D-02, 0.2363D-02, 0.1778D-02, 0.1328D-02,
21588 # 0.9888D-03, 0.7330D-03, 0.5476D-03, 0.4042D-03, 0.2886D-03,
21589 # 0.2167D-03, 0.1588D-03, 0.1152D-03, 0.8615D-04, 0.5680D-04,
21590 # 0.4225D-04, 0.2756D-04, 0.1276D-04, 0.1290D-04, 0.1300D-04,
21591 # -.1933D-05/
21592
21593 data (calcpts(j,21), j = 1,neta) /0.7364D-10, 0.1308D-09,
21594 # 0.2322D-09, 0.4128D-09, 0.7339D-09, 0.1304D-08, 0.2319D-08,
21595 # 0.4124D-08, 0.7329D-08, 0.1304D-07, 0.2318D-07, 0.4122D-07,
21596 # 0.7330D-07, 0.1304D-06, 0.2317D-06, 0.4120D-06, 0.7326D-06,
21597 # 0.1302D-05, 0.2314D-05, 0.4113D-05, 0.7302D-05, 0.1297D-04,
21598 # 0.2301D-04, 0.4076D-04, 0.7211D-04, 0.1273D-03, 0.2237D-03,
21599 # 0.3915D-03, 0.6803D-03, 0.1169D-02, 0.1980D-02, 0.3287D-02,
21600 # 0.5304D-02, 0.8258D-02, 0.1229D-01, 0.1729D-01, 0.2287D-01,
21601 # 0.2830D-01, 0.3273D-01, 0.3549D-01, 0.3628D-01, 0.3517D-01,
21602 # 0.3260D-01, 0.2908D-01, 0.2514D-01, 0.2116D-01, 0.1744D-01,
21603 # 0.1412D-01, 0.1126D-01, 0.8865D-02, 0.6916D-02, 0.5332D-02,
21604 # 0.4094D-02, 0.3115D-02, 0.2349D-02, 0.1775D-02, 0.1322D-02,
21605 # 0.9960D-03, 0.7388D-03, 0.5525D-03, 0.4084D-03, 0.2924D-03,
21606 # 0.2202D-03, 0.1621D-03, 0.1184D-03, 0.8922D-04, 0.5982D-04,
21607 # 0.4522D-04, 0.3049D-04, 0.3068D-04, 0.1581D-04, 0.1590D-04,
21608 # 0.1596D-04/
21609
21610 data (calcpts(j,22), j = 1,neta) /0.6623D-10, 0.1177D-09,
21611 # 0.2090D-09, 0.3714D-09, 0.6605D-09, 0.1174D-08, 0.2087D-08,
21612 # 0.3712D-08, 0.6597D-08, 0.1173D-07, 0.2087D-07, 0.3711D-07,
21613 # 0.6598D-07, 0.1173D-06, 0.2085D-06, 0.3708D-06, 0.6595D-06,
21614 # 0.1172D-05, 0.2083D-05, 0.3703D-05, 0.6573D-05, 0.1167D-04,
21615 # 0.2071D-04, 0.3670D-04, 0.6493D-04, 0.1146D-03, 0.2015D-03,
21616 # 0.3527D-03, 0.6130D-03, 0.1054D-02, 0.1787D-02, 0.2969D-02,
21617 # 0.4798D-02, 0.7487D-02, 0.1117D-01, 0.1578D-01, 0.2096D-01,
21618 # 0.2608D-01, 0.3034D-01, 0.3312D-01, 0.3410D-01, 0.3330D-01,
21619 # 0.3108D-01, 0.2789D-01, 0.2425D-01, 0.2052D-01, 0.1698D-01,
21620 # 0.1379D-01, 0.1103D-01, 0.8707D-02, 0.6800D-02, 0.5253D-02,
21621 # 0.4030D-02, 0.3071D-02, 0.2328D-02, 0.1748D-02, 0.1307D-02,
21622 # 0.9787D-03, 0.7349D-03, 0.5475D-03, 0.4027D-03, 0.3013D-03,
21623 # 0.2137D-03, 0.1554D-03, 0.1115D-03, 0.8225D-04, 0.6777D-04,
21624 # 0.5312D-04, 0.3836D-04, 0.2353D-04, 0.2364D-04, 0.8718D-05,
21625 # 0.8771D-05/
21626
21627 data (calcpts(j,23), j = 1,neta) /0.5794D-10, 0.1030D-09,
21628 # 0.1829D-09, 0.3251D-09, 0.5782D-09, 0.1028D-08, 0.1827D-08,
21629 # 0.3250D-08, 0.5776D-08, 0.1027D-07, 0.1827D-07, 0.3249D-07,
21630 # 0.5776D-07, 0.1027D-06, 0.1826D-06, 0.3247D-06, 0.5774D-06,
21631 # 0.1026D-05, 0.1824D-05, 0.3242D-05, 0.5756D-05, 0.1022D-04,
21632 # 0.1814D-04, 0.3214D-04, 0.5686D-04, 0.1004D-03, 0.1765D-03,
21633 # 0.3090D-03, 0.5373D-03, 0.9244D-03, 0.1568D-02, 0.2608D-02,
21634 # 0.4221D-02, 0.6599D-02, 0.9870D-02, 0.1399D-01, 0.1868D-01,
21635 # 0.2338D-01, 0.2740D-01, 0.3016D-01, 0.3134D-01, 0.3088D-01,
21636 # 0.2908D-01, 0.2633D-01, 0.2306D-01, 0.1963D-01, 0.1634D-01,
21637 # 0.1333D-01, 0.1071D-01, 0.8483D-02, 0.6647D-02, 0.5151D-02,
21638 # 0.3957D-02, 0.3017D-02, 0.2296D-02, 0.1726D-02, 0.1297D-02,
21639 # 0.9662D-03, 0.7208D-03, 0.5323D-03, 0.3868D-03, 0.2848D-03,
21640 # 0.2119D-03, 0.1533D-03, 0.1092D-03, 0.7987D-04, 0.5032D-04,
21641 # 0.3562D-04, 0.3583D-04, 0.2097D-04, 0.2107D-04, 0.6131D-05,
21642 # 0.6176D-05/
21643
21644 data (calcpts(j,24), j = 1,neta) /0.4927D-10, 0.8757D-10,
21645 # 0.1556D-09, 0.2766D-09, 0.4919D-09, 0.8745D-09, 0.1555D-08,
21646 # 0.2765D-08, 0.4915D-08, 0.8741D-08, 0.1555D-07, 0.2764D-07,
21647 # 0.4915D-07, 0.8742D-07, 0.1554D-06, 0.2763D-06, 0.4913D-06,
21648 # 0.8733D-06, 0.1552D-05, 0.2759D-05, 0.4898D-05, 0.8697D-05,
21649 # 0.1543D-04, 0.2735D-04, 0.4839D-04, 0.8545D-04, 0.1503D-03,
21650 # 0.2631D-03, 0.4576D-03, 0.7877D-03, 0.1337D-02, 0.2226D-02,
21651 # 0.3607D-02, 0.5649D-02, 0.8470D-02, 0.1205D-01, 0.1616D-01,
21652 # 0.2035D-01, 0.2403D-01, 0.2670D-01, 0.2803D-01, 0.2794D-01,
21653 # 0.2662D-01, 0.2436D-01, 0.2154D-01, 0.1851D-01, 0.1552D-01,
21654 # 0.1275D-01, 0.1029D-01, 0.8201D-02, 0.6450D-02, 0.5021D-02,
21655 # 0.3871D-02, 0.2965D-02, 0.2252D-02, 0.1692D-02, 0.1274D-02,
21656 # 0.9557D-03, 0.7087D-03, 0.5191D-03, 0.3878D-03, 0.2854D-03,
21657 # 0.2121D-03, 0.1532D-03, 0.1090D-03, 0.7959D-04, 0.6496D-04,
21658 # 0.5021D-04, 0.3538D-04, 0.2050D-04, 0.2058D-04, 0.5633D-05,
21659 # 0.5670D-05/
21660
21661 data (calcpts(j,25), j = 1,neta) /0.4076D-10, 0.7246D-10,
21662 # 0.1287D-09, 0.2289D-09, 0.4072D-09, 0.7238D-09, 0.1287D-08,
21663 # 0.2289D-08, 0.4068D-08, 0.7236D-08, 0.1287D-07, 0.2288D-07,
21664 # 0.4069D-07, 0.7237D-07, 0.1286D-06, 0.2287D-06, 0.4067D-06,
21665 # 0.7229D-06, 0.1285D-05, 0.2284D-05, 0.4055D-05, 0.7200D-05,
21666 # 0.1278D-04, 0.2264D-04, 0.4007D-04, 0.7075D-04, 0.1244D-03,
21667 # 0.2180D-03, 0.3791D-03, 0.6528D-03, 0.1109D-02, 0.1847D-02,
21668 # 0.2996D-02, 0.4701D-02, 0.7065D-02, 0.1008D-01, 0.1358D-01,
21669 # 0.1719D-01, 0.2045D-01, 0.2294D-01, 0.2435D-01, 0.2459D-01,
21670 # 0.2374D-01, 0.2201D-01, 0.1972D-01, 0.1713D-01, 0.1451D-01,
21671 # 0.1202D-01, 0.9781D-02, 0.7837D-02, 0.6189D-02, 0.4843D-02,
21672 # 0.3753D-02, 0.2882D-02, 0.2192D-02, 0.1657D-02, 0.1251D-02,
21673 # 0.9304D-03, 0.6969D-03, 0.5213D-03, 0.3893D-03, 0.2864D-03,
21674 # 0.2128D-03, 0.1537D-03, 0.1094D-03, 0.7983D-04, 0.6513D-04,
21675 # 0.3533D-04, 0.3547D-04, 0.2057D-04, 0.2063D-04, 0.5677D-05,
21676 # 0.5708D-05/
21677
21678 data (calcpts(j,26), j = 1,neta) /0.3290D-10, 0.5849D-10,
21679 # 0.1039D-09, 0.1848D-09, 0.3287D-09, 0.5844D-09, 0.1039D-08,
21680 # 0.1848D-08, 0.3285D-08, 0.5843D-08, 0.1039D-07, 0.1848D-07,
21681 # 0.3285D-07, 0.5843D-07, 0.1038D-06, 0.1847D-06, 0.3284D-06,
21682 # 0.5837D-06, 0.1038D-05, 0.1844D-05, 0.3274D-05, 0.5814D-05,
21683 # 0.1032D-04, 0.1829D-04, 0.3236D-04, 0.5714D-04, 0.1005D-03,
21684 # 0.1761D-03, 0.3064D-03, 0.5277D-03, 0.8966D-03, 0.1495D-02,
21685 # 0.2427D-02, 0.3813D-02, 0.5742D-02, 0.8218D-02, 0.1111D-01,
21686 # 0.1414D-01, 0.1693D-01, 0.1915D-01, 0.2055D-01, 0.2102D-01,
21687 # 0.2059D-01, 0.1940D-01, 0.1763D-01, 0.1554D-01, 0.1332D-01,
21688 # 0.1115D-01, 0.9167D-02, 0.7406D-02, 0.5896D-02, 0.4635D-02,
21689 # 0.3607D-02, 0.2772D-02, 0.2120D-02, 0.1612D-02, 0.1218D-02,
21690 # 0.9103D-03, 0.6754D-03, 0.4990D-03, 0.3663D-03, 0.2780D-03,
21691 # 0.2041D-03, 0.1448D-03, 0.1004D-03, 0.7070D-04, 0.5594D-04,
21692 # 0.4110D-04, 0.2621D-04, 0.2629D-04, 0.1134D-04, 0.1138D-04,
21693 # 0.1140D-04/
21694
21695 data (calcpts(j,27), j = 1,neta) /0.2600D-10, 0.4624D-10,
21696 # 0.8217D-10, 0.1461D-09, 0.2599D-09, 0.4621D-09, 0.8217D-09,
21697 # 0.1462D-08, 0.2598D-08, 0.4620D-08, 0.8218D-08, 0.1461D-07,
21698 # 0.2598D-07, 0.4621D-07, 0.8212D-07, 0.1460D-06, 0.2597D-06,
21699 # 0.4616D-06, 0.8204D-06, 0.1458D-05, 0.2589D-05, 0.4598D-05,
21700 # 0.8160D-05, 0.1446D-04, 0.2559D-04, 0.4520D-04, 0.7950D-04,
21701 # 0.1393D-03, 0.2424D-03, 0.4176D-03, 0.7099D-03, 0.1184D-02,
21702 # 0.1925D-02, 0.3027D-02, 0.4566D-02, 0.6551D-02, 0.8883D-02,
21703 # 0.1135D-01, 0.1367D-01, 0.1558D-01, 0.1688D-01, 0.1748D-01,
21704 # 0.1738D-01, 0.1664D-01, 0.1539D-01, 0.1378D-01, 0.1200D-01,
21705 # 0.1019D-01, 0.8465D-02, 0.6910D-02, 0.5540D-02, 0.4384D-02,
21706 # 0.3434D-02, 0.2666D-02, 0.2040D-02, 0.1558D-02, 0.1176D-02,
21707 # 0.8971D-03, 0.6761D-03, 0.4989D-03, 0.3657D-03, 0.2770D-03,
21708 # 0.2029D-03, 0.1435D-03, 0.1139D-03, 0.8413D-04, 0.5432D-04,
21709 # 0.3945D-04, 0.3954D-04, 0.2459D-04, 0.2463D-04, 0.9662D-05,
21710 # 0.9681D-05/
21711
21712 data (calcpts(j,28), j = 1,neta) /0.2019D-10, 0.3591D-10,
21713 # 0.6382D-10, 0.1135D-09, 0.2019D-09, 0.3589D-09, 0.6383D-09,
21714 # 0.1135D-08, 0.2018D-08, 0.3589D-08, 0.6383D-08, 0.1135D-07,
21715 # 0.2018D-07, 0.3589D-07, 0.6378D-07, 0.1134D-06, 0.2017D-06,
21716 # 0.3586D-06, 0.6373D-06, 0.1133D-05, 0.2011D-05, 0.3571D-05,
21717 # 0.6339D-05, 0.1123D-04, 0.1988D-04, 0.3511D-04, 0.6177D-04,
21718 # 0.1082D-03, 0.1884D-03, 0.3246D-03, 0.5519D-03, 0.9212D-03,
21719 # 0.1498D-02, 0.2359D-02, 0.3563D-02, 0.5121D-02, 0.6964D-02,
21720 # 0.8933D-02, 0.1081D-01, 0.1240D-01, 0.1354D-01, 0.1417D-01,
21721 # 0.1427D-01, 0.1389D-01, 0.1307D-01, 0.1192D-01, 0.1056D-01,
21722 # 0.9108D-02, 0.7674D-02, 0.6336D-02, 0.5136D-02, 0.4101D-02,
21723 # 0.3232D-02, 0.2533D-02, 0.1947D-02, 0.1492D-02, 0.1139D-02,
21724 # 0.8581D-03, 0.6512D-03, 0.4883D-03, 0.3548D-03, 0.2657D-03,
21725 # 0.1914D-03, 0.1469D-03, 0.1022D-03, 0.7239D-04, 0.5754D-04,
21726 # 0.4263D-04, 0.2770D-04, 0.2775D-04, 0.1278D-04, 0.1280D-04,
21727 # 0.1281D-04/
21728
21729 data (calcpts(j,29), j = 1,neta) /0.1546D-10, 0.2749D-10,
21730 # 0.4886D-10, 0.8690D-10, 0.1546D-09, 0.2748D-09, 0.4887D-09,
21731 # 0.8692D-09, 0.1545D-08, 0.2748D-08, 0.4887D-08, 0.8689D-08,
21732 # 0.1545D-07, 0.2748D-07, 0.4884D-07, 0.8685D-07, 0.1544D-06,
21733 # 0.2745D-06, 0.4879D-06, 0.8673D-06, 0.1540D-05, 0.2735D-05,
21734 # 0.4853D-05, 0.8601D-05, 0.1522D-04, 0.2689D-04, 0.4730D-04,
21735 # 0.8288D-04, 0.1443D-03, 0.2487D-03, 0.4229D-03, 0.7061D-03,
21736 # 0.1149D-02, 0.1810D-02, 0.2737D-02, 0.3941D-02, 0.5371D-02,
21737 # 0.6910D-02, 0.8397D-02, 0.9680D-02, 0.1065D-01, 0.1124D-01,
21738 # 0.1145D-01, 0.1129D-01, 0.1081D-01, 0.1005D-01, 0.9070D-02,
21739 # 0.7967D-02, 0.6826D-02, 0.5717D-02, 0.4696D-02, 0.3793D-02,
21740 # 0.3020D-02, 0.2373D-02, 0.1845D-02, 0.1422D-02, 0.1087D-02,
21741 # 0.8231D-03, 0.6214D-03, 0.4670D-03, 0.3481D-03, 0.2589D-03,
21742 # 0.1844D-03, 0.1397D-03, 0.1100D-03, 0.8011D-04, 0.5022D-04,
21743 # 0.3530D-04, 0.3535D-04, 0.2038D-04, 0.2041D-04, 0.5425D-05,
21744 # 0.5435D-05/
21745
21746 data (calcpts(j,30), j = 1,neta) /0.1170D-10, 0.2081D-10,
21747 # 0.3698D-10, 0.6577D-10, 0.1170D-09, 0.2080D-09, 0.3699D-09,
21748 # 0.6579D-09, 0.1169D-08, 0.2080D-08, 0.3699D-08, 0.6577D-08,
21749 # 0.1169D-07, 0.2080D-07, 0.3696D-07, 0.6573D-07, 0.1169D-06,
21750 # 0.2078D-06, 0.3693D-06, 0.6564D-06, 0.1166D-05, 0.2070D-05,
21751 # 0.3673D-05, 0.6510D-05, 0.1152D-04, 0.2035D-04, 0.3581D-04,
21752 # 0.6274D-04, 0.1092D-03, 0.1883D-03, 0.3203D-03, 0.5349D-03,
21753 # 0.8706D-03, 0.1372D-02, 0.2077D-02, 0.2994D-02, 0.4087D-02,
21754 # 0.5271D-02, 0.6427D-02, 0.7443D-02, 0.8232D-02, 0.8751D-02,
21755 # 0.8997D-02, 0.8982D-02, 0.8728D-02, 0.8257D-02, 0.7602D-02,
21756 # 0.6810D-02, 0.5944D-02, 0.5065D-02, 0.4224D-02, 0.3456D-02,
21757 # 0.2782D-02, 0.2208D-02, 0.1731D-02, 0.1343D-02, 0.1033D-02,
21758 # 0.7865D-03, 0.5963D-03, 0.4490D-03, 0.3358D-03, 0.2494D-03,
21759 # 0.1853D-03, 0.1375D-03, 0.1002D-03, 0.7333D-04, 0.5391D-04,
21760 # 0.3897D-04, 0.2851D-04, 0.2103D-04, 0.1505D-04, 0.1056D-04,
21761 # 0.7572D-05/
21762
21763 data (calcpts(j,31), j = 1,neta) /0.8769D-11, 0.1560D-10,
21764 # 0.2772D-10, 0.4930D-10, 0.8769D-10, 0.1559D-09, 0.2773D-09,
21765 # 0.4931D-09, 0.8765D-09, 0.1559D-08, 0.2773D-08, 0.4930D-08,
21766 # 0.8766D-08, 0.1559D-07, 0.2771D-07, 0.4927D-07, 0.8763D-07,
21767 # 0.1558D-06, 0.2768D-06, 0.4921D-06, 0.8737D-06, 0.1552D-05,
21768 # 0.2754D-05, 0.4880D-05, 0.8637D-05, 0.1526D-04, 0.2684D-04,
21769 # 0.4704D-04, 0.8189D-04, 0.1412D-03, 0.2402D-03, 0.4011D-03,
21770 # 0.6531D-03, 0.1030D-02, 0.1560D-02, 0.2250D-02, 0.3076D-02,
21771 # 0.3974D-02, 0.4858D-02, 0.5647D-02, 0.6275D-02, 0.6712D-02,
21772 # 0.6952D-02, 0.7007D-02, 0.6892D-02, 0.6622D-02, 0.6211D-02,
21773 # 0.5678D-02, 0.5058D-02, 0.4395D-02, 0.3728D-02, 0.3098D-02,
21774 # 0.2526D-02, 0.2029D-02, 0.1606D-02, 0.1256D-02, 0.9722D-03,
21775 # 0.7462D-03, 0.5675D-03, 0.4289D-03, 0.3231D-03, 0.2410D-03,
21776 # 0.1798D-03, 0.1335D-03, 0.9759D-04, 0.7218D-04, 0.5274D-04,
21777 # 0.3928D-04, 0.2881D-04, 0.1983D-04, 0.1535D-04, 0.1085D-04,
21778 # 0.7861D-05/
21779
21780 data (calcpts(j,32), j = 1,neta) /0.6519D-11, 0.1160D-10,
21781 # 0.2061D-10, 0.3665D-10, 0.6520D-10, 0.1159D-09, 0.2061D-09,
21782 # 0.3666D-09, 0.6517D-09, 0.1159D-08, 0.2062D-08, 0.3665D-08,
21783 # 0.6518D-08, 0.1159D-07, 0.2060D-07, 0.3664D-07, 0.6515D-07,
21784 # 0.1158D-06, 0.2058D-06, 0.3658D-06, 0.6496D-06, 0.1154D-05,
21785 # 0.2047D-05, 0.3629D-05, 0.6422D-05, 0.1134D-04, 0.1996D-04,
21786 # 0.3498D-04, 0.6089D-04, 0.1050D-03, 0.1786D-03, 0.2984D-03,
21787 # 0.4859D-03, 0.7664D-03, 0.1161D-02, 0.1676D-02, 0.2293D-02,
21788 # 0.2967D-02, 0.3634D-02, 0.4235D-02, 0.4725D-02, 0.5080D-02,
21789 # 0.5296D-02, 0.5379D-02, 0.5342D-02, 0.5198D-02, 0.4954D-02,
21790 # 0.4617D-02, 0.4200D-02, 0.3725D-02, 0.3224D-02, 0.2727D-02,
21791 # 0.2258D-02, 0.1837D-02, 0.1471D-02, 0.1162D-02, 0.9064D-03,
21792 # 0.7009D-03, 0.5369D-03, 0.4070D-03, 0.3070D-03, 0.2308D-03,
21793 # 0.1725D-03, 0.1277D-03, 0.9475D-04, 0.6932D-04, 0.5137D-04,
21794 # 0.3640D-04, 0.2742D-04, 0.1993D-04, 0.1394D-04, 0.9449D-05,
21795 # 0.6453D-05/
21796
21797 data (calcpts(j,33), j = 1,neta) /0.4816D-11, 0.8566D-11,
21798 # 0.1522D-10, 0.2708D-10, 0.4816D-10, 0.8564D-10, 0.1523D-09,
21799 # 0.2709D-09, 0.4814D-09, 0.8562D-09, 0.1523D-08, 0.2708D-08,
21800 # 0.4815D-08, 0.8564D-08, 0.1522D-07, 0.2706D-07, 0.4813D-07,
21801 # 0.8555D-07, 0.1521D-06, 0.2703D-06, 0.4799D-06, 0.8522D-06,
21802 # 0.1513D-05, 0.2681D-05, 0.4744D-05, 0.8380D-05, 0.1474D-04,
21803 # 0.2584D-04, 0.4499D-04, 0.7756D-04, 0.1320D-03, 0.2205D-03,
21804 # 0.3591D-03, 0.5665D-03, 0.8584D-03, 0.1239D-02, 0.1697D-02,
21805 # 0.2198D-02, 0.2696D-02, 0.3149D-02, 0.3523D-02, 0.3804D-02,
21806 # 0.3986D-02, 0.4076D-02, 0.4081D-02, 0.4010D-02, 0.3872D-02,
21807 # 0.3668D-02, 0.3403D-02, 0.3084D-02, 0.2726D-02, 0.2352D-02,
21808 # 0.1984D-02, 0.1640D-02, 0.1331D-02, 0.1065D-02, 0.8402D-03,
21809 # 0.6552D-03, 0.5045D-03, 0.3865D-03, 0.2938D-03, 0.2220D-03,
21810 # 0.1667D-03, 0.1248D-03, 0.9188D-04, 0.6793D-04, 0.4996D-04,
21811 # 0.3798D-04, 0.2750D-04, 0.2001D-04, 0.1552D-04, 0.1102D-04,
21812 # 0.8025D-05/
21813
21814 data (calcpts(j,34), j = 1,neta) /0.3536D-11, 0.6289D-11,
21815 # 0.1118D-10, 0.1988D-10, 0.3536D-10, 0.6287D-10, 0.1118D-09,
21816 # 0.1989D-09, 0.3534D-09, 0.6286D-09, 0.1118D-08, 0.1988D-08,
21817 # 0.3535D-08, 0.6287D-08, 0.1117D-07, 0.1987D-07, 0.3534D-07,
21818 # 0.6281D-07, 0.1116D-06, 0.1984D-06, 0.3523D-06, 0.6257D-06,
21819 # 0.1110D-05, 0.1968D-05, 0.3483D-05, 0.6152D-05, 0.1083D-04,
21820 # 0.1897D-04, 0.3303D-04, 0.5695D-04, 0.9689D-04, 0.1619D-03,
21821 # 0.2637D-03, 0.4161D-03, 0.6305D-03, 0.9107D-03, 0.1247D-02,
21822 # 0.1616D-02, 0.1985D-02, 0.2322D-02, 0.2604D-02, 0.2820D-02,
21823 # 0.2968D-02, 0.3052D-02, 0.3076D-02, 0.3048D-02, 0.2973D-02,
21824 # 0.2854D-02, 0.2692D-02, 0.2489D-02, 0.2249D-02, 0.1983D-02,
21825 # 0.1707D-02, 0.1436D-02, 0.1185D-02, 0.9606D-03, 0.7668D-03,
21826 # 0.6041D-03, 0.4696D-03, 0.3620D-03, 0.2767D-03, 0.2094D-03,
21827 # 0.1585D-03, 0.1181D-03, 0.8813D-04, 0.6567D-04, 0.4769D-04,
21828 # 0.3571D-04, 0.2672D-04, 0.1923D-04, 0.1473D-04, 0.1024D-04,
21829 # 0.7239D-05/
21830
21831 data (calcpts(j,35), j = 1,neta) /0.2583D-11, 0.4593D-11,
21832 # 0.8164D-11, 0.1452D-10, 0.2583D-10, 0.4592D-10, 0.8167D-10,
21833 # 0.1453D-09, 0.2582D-09, 0.4592D-09, 0.8167D-09, 0.1452D-08,
21834 # 0.2582D-08, 0.4592D-08, 0.8162D-08, 0.1451D-07, 0.2581D-07,
21835 # 0.4588D-07, 0.8154D-07, 0.1449D-06, 0.2573D-06, 0.4570D-06,
21836 # 0.8111D-06, 0.1438D-05, 0.2544D-05, 0.4494D-05, 0.7907D-05,
21837 # 0.1386D-04, 0.2413D-04, 0.4160D-04, 0.7078D-04, 0.1183D-03,
21838 # 0.1926D-03, 0.3040D-03, 0.4607D-03, 0.6655D-03, 0.9118D-03,
21839 # 0.1182D-02, 0.1452D-02, 0.1701D-02, 0.1910D-02, 0.2074D-02,
21840 # 0.2190D-02, 0.2262D-02, 0.2293D-02, 0.2288D-02, 0.2250D-02,
21841 # 0.2183D-02, 0.2087D-02, 0.1963D-02, 0.1810D-02, 0.1631D-02,
21842 # 0.1435D-02, 0.1233D-02, 0.1036D-02, 0.8523D-03, 0.6897D-03,
21843 # 0.5492D-03, 0.4326D-03, 0.3354D-03, 0.2591D-03, 0.1977D-03,
21844 # 0.1498D-03, 0.1123D-03, 0.8387D-04, 0.6289D-04, 0.4641D-04,
21845 # 0.3442D-04, 0.2543D-04, 0.1794D-04, 0.1344D-04, 0.8945D-05,
21846 # 0.7447D-05/
21847
21848 data (calcpts(j,36), j = 1,neta) /0.1878D-11, 0.3341D-11,
21849 # 0.5938D-11, 0.1056D-10, 0.1879D-10, 0.3340D-10, 0.5940D-10,
21850 # 0.1056D-09, 0.1878D-09, 0.3340D-09, 0.5940D-09, 0.1056D-08,
21851 # 0.1878D-08, 0.3340D-08, 0.5936D-08, 0.1056D-07, 0.1877D-07,
21852 # 0.3337D-07, 0.5931D-07, 0.1054D-06, 0.1872D-06, 0.3324D-06,
21853 # 0.5900D-06, 0.1046D-05, 0.1851D-05, 0.3269D-05, 0.5751D-05,
21854 # 0.1008D-04, 0.1755D-04, 0.3026D-04, 0.5148D-04, 0.8602D-04,
21855 # 0.1401D-03, 0.2211D-03, 0.3352D-03, 0.4842D-03, 0.6635D-03,
21856 # 0.8605D-03, 0.1058D-02, 0.1239D-02, 0.1394D-02, 0.1516D-02,
21857 # 0.1604D-02, 0.1663D-02, 0.1694D-02, 0.1700D-02, 0.1684D-02,
21858 # 0.1647D-02, 0.1591D-02, 0.1517D-02, 0.1423D-02, 0.1310D-02,
21859 # 0.1178D-02, 0.1035D-02, 0.8878D-03, 0.7447D-03, 0.6124D-03,
21860 # 0.4948D-03, 0.3937D-03, 0.3099D-03, 0.2395D-03, 0.1841D-03,
21861 # 0.1407D-03, 0.1062D-03, 0.7922D-04, 0.5974D-04, 0.4476D-04,
21862 # 0.3277D-04, 0.2377D-04, 0.1778D-04, 0.1328D-04, 0.8780D-05,
21863 # 0.7282D-05/
21864
21865 data (calcpts(j,37), j = 1,neta) /0.1361D-11, 0.2420D-11,
21866 # 0.4302D-11, 0.7651D-11, 0.1361D-10, 0.2420D-10, 0.4303D-10,
21867 # 0.7654D-10, 0.1360D-09, 0.2419D-09, 0.4304D-09, 0.7652D-09,
21868 # 0.1361D-08, 0.2420D-08, 0.4301D-08, 0.7648D-08, 0.1360D-07,
21869 # 0.2417D-07, 0.4297D-07, 0.7637D-07, 0.1356D-06, 0.2408D-06,
21870 # 0.4274D-06, 0.7575D-06, 0.1341D-05, 0.2368D-05, 0.4167D-05,
21871 # 0.7302D-05, 0.1271D-04, 0.2192D-04, 0.3730D-04, 0.6232D-04,
21872 # 0.1015D-03, 0.1602D-03, 0.2429D-03, 0.3509D-03, 0.4808D-03,
21873 # 0.6237D-03, 0.7669D-03, 0.8990D-03, 0.1012D-02, 0.1101D-02,
21874 # 0.1168D-02, 0.1214D-02, 0.1241D-02, 0.1252D-02, 0.1247D-02,
21875 # 0.1229D-02, 0.1197D-02, 0.1153D-02, 0.1097D-02, 0.1027D-02,
21876 # 0.9440D-03, 0.8481D-03, 0.7439D-03, 0.6371D-03, 0.5338D-03,
21877 # 0.4384D-03, 0.3538D-03, 0.2812D-03, 0.2206D-03, 0.1710D-03,
21878 # 0.1314D-03, 0.9996D-04, 0.7554D-04, 0.5680D-04, 0.4241D-04,
21879 # 0.3147D-04, 0.2322D-04, 0.1722D-04, 0.1258D-04, 0.9276D-05,
21880 # 0.6727D-05/
21881
21882 data (calcpts(j,38), j = 1,neta) /0.9823D-12, 0.1747D-11,
21883 # 0.3105D-11, 0.5523D-11, 0.9824D-11, 0.1747D-10, 0.3106D-10,
21884 # 0.5525D-10, 0.9820D-10, 0.1746D-09, 0.3106D-09, 0.5523D-09,
21885 # 0.9821D-09, 0.1747D-08, 0.3104D-08, 0.5520D-08, 0.9817D-08,
21886 # 0.1745D-07, 0.3102D-07, 0.5513D-07, 0.9788D-07, 0.1738D-06,
21887 # 0.3085D-06, 0.5468D-06, 0.9677D-06, 0.1709D-05, 0.3008D-05,
21888 # 0.5271D-05, 0.9178D-05, 0.1582D-04, 0.2692D-04, 0.4499D-04,
21889 # 0.7328D-04, 0.1157D-03, 0.1753D-03, 0.2533D-03, 0.3472D-03,
21890 # 0.4503D-03, 0.5539D-03, 0.6495D-03, 0.7313D-03, 0.7967D-03,
21891 # 0.8460D-03, 0.8807D-03, 0.9029D-03, 0.9140D-03, 0.9153D-03,
21892 # 0.9074D-03, 0.8906D-03, 0.8654D-03, 0.8319D-03, 0.7900D-03,
21893 # 0.7389D-03, 0.6781D-03, 0.6084D-03, 0.5330D-03, 0.4559D-03,
21894 # 0.3816D-03, 0.3129D-03, 0.2522D-03, 0.2002D-03, 0.1569D-03,
21895 # 0.1216D-03, 0.9324D-04, 0.7090D-04, 0.5351D-04, 0.4017D-04,
21896 # 0.2997D-04, 0.2218D-04, 0.1633D-04, 0.1198D-04, 0.8832D-05,
21897 # 0.6432D-05/
21898
21899 data (calcpts(j,39), j = 1,neta) /0.7071D-12, 0.1258D-11,
21900 # 0.2235D-11, 0.3976D-11, 0.7072D-11, 0.1257D-10, 0.2236D-10,
21901 # 0.3977D-10, 0.7069D-10, 0.1257D-09, 0.2236D-09, 0.3976D-09,
21902 # 0.7070D-09, 0.1257D-08, 0.2235D-08, 0.3974D-08, 0.7067D-08,
21903 # 0.1256D-07, 0.2233D-07, 0.3969D-07, 0.7046D-07, 0.1251D-06,
21904 # 0.2221D-06, 0.3936D-06, 0.6967D-06, 0.1231D-05, 0.2165D-05,
21905 # 0.3795D-05, 0.6607D-05, 0.1139D-04, 0.1938D-04, 0.3238D-04,
21906 # 0.5276D-04, 0.8326D-04, 0.1262D-03, 0.1824D-03, 0.2499D-03,
21907 # 0.3243D-03, 0.3988D-03, 0.4678D-03, 0.5269D-03, 0.5743D-03,
21908 # 0.6104D-03, 0.6362D-03, 0.6535D-03, 0.6634D-03, 0.6670D-03,
21909 # 0.6646D-03, 0.6564D-03, 0.6425D-03, 0.6230D-03, 0.5980D-03,
21910 # 0.5672D-03, 0.5300D-03, 0.4858D-03, 0.4354D-03, 0.3811D-03,
21911 # 0.3257D-03, 0.2723D-03, 0.2232D-03, 0.1797D-03, 0.1427D-03,
21912 # 0.1117D-03, 0.8649D-04, 0.6640D-04, 0.5051D-04, 0.3806D-04,
21913 # 0.2861D-04, 0.2142D-04, 0.1587D-04, 0.1182D-04, 0.8670D-05,
21914 # 0.6420D-05/
21915
21916 data (calcpts(j,40), j = 1,neta) /0.5074D-12, 0.9025D-12,
21917 # 0.1604D-11, 0.2853D-11, 0.5075D-11, 0.9023D-11, 0.1605D-10,
21918 # 0.2854D-10, 0.5073D-10, 0.9022D-10, 0.1605D-09, 0.2853D-09,
21919 # 0.5073D-09, 0.9023D-09, 0.1604D-08, 0.2852D-08, 0.5071D-08,
21920 # 0.9014D-08, 0.1602D-07, 0.2848D-07, 0.5056D-07, 0.8980D-07,
21921 # 0.1594D-06, 0.2825D-06, 0.4999D-06, 0.8830D-06, 0.1554D-05,
21922 # 0.2723D-05, 0.4741D-05, 0.8174D-05, 0.1391D-04, 0.2324D-04,
21923 # 0.3786D-04, 0.5975D-04, 0.9057D-04, 0.1309D-03, 0.1794D-03,
21924 # 0.2327D-03, 0.2863D-03, 0.3358D-03, 0.3783D-03, 0.4125D-03,
21925 # 0.4386D-03, 0.4576D-03, 0.4706D-03, 0.4788D-03, 0.4827D-03,
21926 # 0.4829D-03, 0.4794D-03, 0.4723D-03, 0.4614D-03, 0.4467D-03,
21927 # 0.4283D-03, 0.4058D-03, 0.3789D-03, 0.3470D-03, 0.3108D-03,
21928 # 0.2717D-03, 0.2321D-03, 0.1939D-03, 0.1586D-03, 0.1276D-03,
21929 # 0.1012D-03, 0.7919D-04, 0.6120D-04, 0.4695D-04, 0.3571D-04,
21930 # 0.2686D-04, 0.2011D-04, 0.1501D-04, 0.1111D-04, 0.8263D-05,
21931 # 0.6013D-05/
21932
21933 data (calcpts(j,41), j = 1,neta) /0.3632D-12, 0.6459D-12,
21934 # 0.1148D-11, 0.2042D-11, 0.3632D-11, 0.6458D-11, 0.1148D-10,
21935 # 0.2043D-10, 0.3630D-10, 0.6457D-10, 0.1149D-09, 0.2042D-09,
21936 # 0.3631D-09, 0.6458D-09, 0.1148D-08, 0.2041D-08, 0.3630D-08,
21937 # 0.6452D-08, 0.1147D-07, 0.2038D-07, 0.3619D-07, 0.6427D-07,
21938 # 0.1141D-06, 0.2022D-06, 0.3578D-06, 0.6320D-06, 0.1112D-05,
21939 # 0.1949D-05, 0.3393D-05, 0.5850D-05, 0.9954D-05, 0.1663D-04,
21940 # 0.2710D-04, 0.4276D-04, 0.6483D-04, 0.9367D-04, 0.1284D-03,
21941 # 0.1666D-03, 0.2049D-03, 0.2404D-03, 0.2708D-03, 0.2954D-03,
21942 # 0.3142D-03, 0.3280D-03, 0.3377D-03, 0.3440D-03, 0.3475D-03,
21943 # 0.3487D-03, 0.3476D-03, 0.3443D-03, 0.3385D-03, 0.3302D-03,
21944 # 0.3193D-03, 0.3059D-03, 0.2896D-03, 0.2702D-03, 0.2473D-03,
21945 # 0.2213D-03, 0.1933D-03, 0.1650D-03, 0.1377D-03, 0.1127D-03,
21946 # 0.9046D-04, 0.7172D-04, 0.5598D-04, 0.4323D-04, 0.3318D-04,
21947 # 0.2508D-04, 0.1894D-04, 0.1414D-04, 0.1054D-04, 0.7838D-05,
21948 # 0.5738D-05/
21949
21950 data (calcpts(j,42), j = 1,neta) /0.2594D-12, 0.4613D-12,
21951 # 0.8200D-12, 0.1458D-11, 0.2594D-11, 0.4613D-11, 0.8202D-11,
21952 # 0.1459D-10, 0.2593D-10, 0.4612D-10, 0.8203D-10, 0.1458D-09,
21953 # 0.2593D-09, 0.4612D-09, 0.8197D-09, 0.1458D-08, 0.2592D-08,
21954 # 0.4608D-08, 0.8190D-08, 0.1456D-07, 0.2585D-07, 0.4590D-07,
21955 # 0.8147D-07, 0.1444D-06, 0.2555D-06, 0.4514D-06, 0.7942D-06,
21956 # 0.1392D-05, 0.2423D-05, 0.4178D-05, 0.7110D-05, 0.1188D-04,
21957 # 0.1935D-04, 0.3054D-04, 0.4630D-04, 0.6691D-04, 0.9170D-04,
21958 # 0.1190D-03, 0.1464D-03, 0.1717D-03, 0.1935D-03, 0.2111D-03,
21959 # 0.2246D-03, 0.2345D-03, 0.2416D-03, 0.2463D-03, 0.2492D-03,
21960 # 0.2506D-03, 0.2506D-03, 0.2492D-03, 0.2463D-03, 0.2418D-03,
21961 # 0.2356D-03, 0.2277D-03, 0.2179D-03, 0.2063D-03, 0.1923D-03,
21962 # 0.1759D-03, 0.1573D-03, 0.1373D-03, 0.1171D-03, 0.9766D-04,
21963 # 0.7982D-04, 0.6408D-04, 0.5073D-04, 0.3964D-04, 0.3064D-04,
21964 # 0.2344D-04, 0.1774D-04, 0.1339D-04, 0.1009D-04, 0.7391D-05,
21965 # 0.5591D-05/
21966
21967 data (calcpts(j,43), j = 1,neta) /0.1849D-12, 0.3288D-12,
21968 # 0.5844D-12, 0.1039D-11, 0.1849D-11, 0.3287D-11, 0.5846D-11,
21969 # 0.1040D-10, 0.1848D-10, 0.3287D-10, 0.5846D-10, 0.1039D-09,
21970 # 0.1848D-09, 0.3287D-09, 0.5842D-09, 0.1039D-08, 0.1848D-08,
21971 # 0.3284D-08, 0.5837D-08, 0.1037D-07, 0.1842D-07, 0.3271D-07,
21972 # 0.5806D-07, 0.1029D-06, 0.1821D-06, 0.3217D-06, 0.5660D-06,
21973 # 0.9920D-06, 0.1727D-05, 0.2978D-05, 0.5067D-05, 0.8466D-05,
21974 # 0.1379D-04, 0.2177D-04, 0.3300D-04, 0.4768D-04, 0.6535D-04,
21975 # 0.8480D-04, 0.1043D-03, 0.1224D-03, 0.1379D-03, 0.1505D-03,
21976 # 0.1601D-03, 0.1672D-03, 0.1723D-03, 0.1758D-03, 0.1781D-03,
21977 # 0.1793D-03, 0.1797D-03, 0.1793D-03, 0.1780D-03, 0.1757D-03,
21978 # 0.1723D-03, 0.1678D-03, 0.1620D-03, 0.1550D-03, 0.1466D-03,
21979 # 0.1366D-03, 0.1249D-03, 0.1116D-03, 0.9738D-04, 0.8296D-04,
21980 # 0.6912D-04, 0.5646D-04, 0.4534D-04, 0.3586D-04, 0.2796D-04,
21981 # 0.2166D-04, 0.1656D-04, 0.1251D-04, 0.9358D-05, 0.7108D-05,
21982 # 0.5308D-05/
21983
21984 data (calcpts(j,44), j = 1,neta) /0.1315D-12, 0.2338D-12,
21985 # 0.4156D-12, 0.7392D-12, 0.1315D-11, 0.2338D-11, 0.4157D-11,
21986 # 0.7394D-11, 0.1314D-10, 0.2337D-10, 0.4158D-10, 0.7392D-10,
21987 # 0.1314D-09, 0.2338D-09, 0.4155D-09, 0.7389D-09, 0.1314D-08,
21988 # 0.2336D-08, 0.4151D-08, 0.7378D-08, 0.1310D-07, 0.2327D-07,
21989 # 0.4129D-07, 0.7318D-07, 0.1295D-06, 0.2288D-06, 0.4025D-06,
21990 # 0.7055D-06, 0.1228D-05, 0.2118D-05, 0.3604D-05, 0.6021D-05,
21991 # 0.9809D-05, 0.1548D-04, 0.2347D-04, 0.3391D-04, 0.4648D-04,
21992 # 0.6031D-04, 0.7419D-04, 0.8705D-04, 0.9810D-04, 0.1070D-03,
21993 # 0.1139D-03, 0.1190D-03, 0.1227D-03, 0.1252D-03, 0.1269D-03,
21994 # 0.1279D-03, 0.1284D-03, 0.1284D-03, 0.1278D-03, 0.1267D-03,
21995 # 0.1250D-03, 0.1225D-03, 0.1192D-03, 0.1150D-03, 0.1100D-03,
21996 # 0.1040D-03, 0.9684D-04, 0.8850D-04, 0.7906D-04, 0.6892D-04,
21997 # 0.5868D-04, 0.4886D-04, 0.3989D-04, 0.3200D-04, 0.2530D-04,
21998 # 0.1973D-04, 0.1522D-04, 0.1162D-04, 0.8801D-05, 0.6626D-05,
21999 # 0.4946D-05/
22000
22001 data (calcpts(j,45), j = 1,neta) /0.9338D-13, 0.1661D-12,
22002 # 0.2952D-12, 0.5250D-12, 0.9339D-12, 0.1660D-11, 0.2953D-11,
22003 # 0.5252D-11, 0.9334D-11, 0.1660D-10, 0.2953D-10, 0.5250D-10,
22004 # 0.9336D-10, 0.1660D-09, 0.2951D-09, 0.5248D-09, 0.9332D-09,
22005 # 0.1659D-08, 0.2948D-08, 0.5240D-08, 0.9305D-08, 0.1652D-07,
22006 # 0.2933D-07, 0.5198D-07, 0.9199D-07, 0.1625D-06, 0.2859D-06,
22007 # 0.5011D-06, 0.8724D-06, 0.1504D-05, 0.2559D-05, 0.4276D-05,
22008 # 0.6967D-05, 0.1099D-04, 0.1667D-04, 0.2409D-04, 0.3301D-04,
22009 # 0.4283D-04, 0.5270D-04, 0.6183D-04, 0.6968D-04, 0.7602D-04,
22010 # 0.8091D-04, 0.8454D-04, 0.8715D-04, 0.8899D-04, 0.9023D-04,
22011 # 0.9102D-04, 0.9146D-04, 0.9159D-04, 0.9142D-04, 0.9093D-04,
22012 # 0.9007D-04, 0.8875D-04, 0.8693D-04, 0.8453D-04, 0.8154D-04,
22013 # 0.7794D-04, 0.7367D-04, 0.6859D-04, 0.6266D-04, 0.5594D-04,
22014 # 0.4876D-04, 0.4149D-04, 0.3453D-04, 0.2818D-04, 0.2260D-04,
22015 # 0.1785D-04, 0.1394D-04, 0.1074D-04, 0.8206D-05, 0.6226D-05,
22016 # 0.4681D-05/
22017
22018 data (calcpts(j,46), j = 1,neta) /0.6618D-13, 0.1177D-12,
22019 # 0.2092D-12, 0.3721D-12, 0.6619D-12, 0.1177D-11, 0.2093D-11,
22020 # 0.3722D-11, 0.6616D-11, 0.1177D-10, 0.2093D-10, 0.3721D-10,
22021 # 0.6617D-10, 0.1177D-09, 0.2092D-09, 0.3720D-09, 0.6615D-09,
22022 # 0.1176D-08, 0.2090D-08, 0.3714D-08, 0.6595D-08, 0.1171D-07,
22023 # 0.2079D-07, 0.3684D-07, 0.6520D-07, 0.1152D-06, 0.2026D-06,
22024 # 0.3552D-06, 0.6184D-06, 0.1066D-05, 0.1814D-05, 0.3031D-05,
22025 # 0.4938D-05, 0.7793D-05, 0.1181D-04, 0.1707D-04, 0.2340D-04,
22026 # 0.3036D-04, 0.3735D-04, 0.4382D-04, 0.4939D-04, 0.5389D-04,
22027 # 0.5735D-04, 0.5993D-04, 0.6179D-04, 0.6311D-04, 0.6400D-04,
22028 # 0.6460D-04, 0.6495D-04, 0.6512D-04, 0.6510D-04, 0.6491D-04,
22029 # 0.6451D-04, 0.6385D-04, 0.6288D-04, 0.6156D-04, 0.5983D-04,
22030 # 0.5770D-04, 0.5513D-04, 0.5209D-04, 0.4849D-04, 0.4426D-04,
22031 # 0.3951D-04, 0.3441D-04, 0.2927D-04, 0.2435D-04, 0.1985D-04,
22032 # 0.1592D-04, 0.1257D-04, 0.9799D-05, 0.7549D-05, 0.5764D-05,
22033 # 0.4369D-05/
22034
22035 data (calcpts(j,47), j = 1,neta) /0.4684D-13, 0.8331D-13,
22036 # 0.1481D-12, 0.2634D-12, 0.4684D-12, 0.8329D-12, 0.1481D-11,
22037 # 0.2634D-11, 0.4682D-11, 0.8328D-11, 0.1481D-10, 0.2634D-10,
22038 # 0.4683D-10, 0.8329D-10, 0.1480D-09, 0.2632D-09, 0.4681D-09,
22039 # 0.8321D-09, 0.1479D-08, 0.2629D-08, 0.4667D-08, 0.8289D-08,
22040 # 0.1471D-07, 0.2607D-07, 0.4614D-07, 0.8151D-07, 0.1434D-06,
22041 # 0.2513D-06, 0.4376D-06, 0.7545D-06, 0.1284D-05, 0.2145D-05,
22042 # 0.3494D-05, 0.5515D-05, 0.8361D-05, 0.1208D-04, 0.1656D-04,
22043 # 0.2149D-04, 0.2643D-04, 0.3101D-04, 0.3495D-04, 0.3814D-04,
22044 # 0.4059D-04, 0.4242D-04, 0.4374D-04, 0.4467D-04, 0.4532D-04,
22045 # 0.4575D-04, 0.4603D-04, 0.4618D-04, 0.4622D-04, 0.4616D-04,
22046 # 0.4598D-04, 0.4567D-04, 0.4518D-04, 0.4448D-04, 0.4352D-04,
22047 # 0.4229D-04, 0.4076D-04, 0.3894D-04, 0.3678D-04, 0.3422D-04,
22048 # 0.3123D-04, 0.2786D-04, 0.2426D-04, 0.2062D-04, 0.1714D-04,
22049 # 0.1397D-04, 0.1120D-04, 0.8828D-05, 0.6878D-05, 0.5303D-05,
22050 # 0.4043D-05/
22051
22052 data (calcpts(j,48), j = 1,neta) /0.3311D-13, 0.5889D-13,
22053 # 0.1047D-12, 0.1862D-12, 0.3311D-12, 0.5887D-12, 0.1047D-11,
22054 # 0.1862D-11, 0.3310D-11, 0.5886D-11, 0.1047D-10, 0.1862D-10,
22055 # 0.3310D-10, 0.5887D-10, 0.1046D-09, 0.1861D-09, 0.3309D-09,
22056 # 0.5882D-09, 0.1045D-08, 0.1858D-08, 0.3299D-08, 0.5859D-08,
22057 # 0.1040D-07, 0.1843D-07, 0.3262D-07, 0.5761D-07, 0.1014D-06,
22058 # 0.1777D-06, 0.3093D-06, 0.5333D-06, 0.9075D-06, 0.1516D-05,
22059 # 0.2470D-05, 0.3898D-05, 0.5910D-05, 0.8540D-05, 0.1171D-04,
22060 # 0.1519D-04, 0.1869D-04, 0.2192D-04, 0.2471D-04, 0.2696D-04,
22061 # 0.2869D-04, 0.2999D-04, 0.3092D-04, 0.3158D-04, 0.3204D-04,
22062 # 0.3236D-04, 0.3256D-04, 0.3268D-04, 0.3274D-04, 0.3274D-04,
22063 # 0.3267D-04, 0.3252D-04, 0.3228D-04, 0.3193D-04, 0.3142D-04,
22064 # 0.3073D-04, 0.2985D-04, 0.2877D-04, 0.2747D-04, 0.2594D-04,
22065 # 0.2413D-04, 0.2202D-04, 0.1964D-04, 0.1709D-04, 0.1452D-04,
22066 # 0.1206D-04, 0.9827D-05, 0.7877D-05, 0.6212D-05, 0.4832D-05,
22067 # 0.3722D-05/
22068
22069 data (calcpts(j,49), j = 1,neta) /0.2337D-13, 0.4157D-13,
22070 # 0.7388D-13, 0.1314D-12, 0.2337D-12, 0.4156D-12, 0.7390D-12,
22071 # 0.1314D-11, 0.2336D-11, 0.4155D-11, 0.7391D-11, 0.1314D-10,
22072 # 0.2337D-10, 0.4156D-10, 0.7386D-10, 0.1313D-09, 0.2336D-09,
22073 # 0.4152D-09, 0.7379D-09, 0.1312D-08, 0.2329D-08, 0.4136D-08,
22074 # 0.7340D-08, 0.1301D-07, 0.2302D-07, 0.4067D-07, 0.7156D-07,
22075 # 0.1254D-06, 0.2184D-06, 0.3765D-06, 0.6406D-06, 0.1070D-05,
22076 # 0.1744D-05, 0.2752D-05, 0.4172D-05, 0.6028D-05, 0.8263D-05,
22077 # 0.1072D-04, 0.1319D-04, 0.1548D-04, 0.1744D-04, 0.1903D-04,
22078 # 0.2026D-04, 0.2117D-04, 0.2183D-04, 0.2230D-04, 0.2263D-04,
22079 # 0.2285D-04, 0.2300D-04, 0.2309D-04, 0.2314D-04, 0.2316D-04,
22080 # 0.2314D-04, 0.2308D-04, 0.2296D-04, 0.2279D-04, 0.2253D-04,
22081 # 0.2216D-04, 0.2167D-04, 0.2104D-04, 0.2028D-04, 0.1936D-04,
22082 # 0.1828D-04, 0.1700D-04, 0.1550D-04, 0.1382D-04, 0.1202D-04,
22083 # 0.1021D-04, 0.8483D-05, 0.6900D-05, 0.5535D-05, 0.4365D-05,
22084 # 0.3390D-05/
22085
22086 data (dlaeta(j), j = 1,neta) /
22087 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
22088 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
22089 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
22090 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
22091 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
22092 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
22093 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
22094 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
22095 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
22096 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
22097 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
22098 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
22099 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
22100 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
22101 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
22102
22103 data (dlaxi(j), j = 1,nxi) /
22104 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
22105 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
22106 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
22107 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
22108 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
22109 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
22110 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
22111 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
22112 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
22113 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
22114
22115 dleta = dlog10(eta)
22116 dlxi = dlog10(xi)
22117 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
22118 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
22119 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
22120 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
22121 call locate(dlaeta,neta, dleta, ieta)
22122 call locate(dlaxi, nxi, dlxi, ixi)
22123c interpolating between the appropriate points
22124 delxi = 1d0/6d0
22125 deleta = 1d0/6d0
22126c lagrange 3-pt.
22127 if (ixi .le. 2) ixi = 2
22128 if (ixi .ge. 48) ixi = 48
22129 if (ieta .le. 2) ieta = 2
22130 if (ieta .ge. 72) ieta = 72
22131 pxi = (dlxi - dlaxi(ixi))/delxi
22132 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
22133 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
22134 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
22135 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
22136 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
22137 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
22138 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
22139 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
22140 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
22141 peta = (dleta - dlaeta(ieta))/deleta
22142 h1bar_HTq = peta*(peta-1d0)/2d0*f(-1) +
22143 # (1d0 - peta**2)*f(0) +
22144CMB # + peta*(peta+1d0)/2d0*f(1)
22145 # peta*(peta+1d0)/2d0*f(1)
22146 return
22147 end
22148
22149c =========================================
22150 double precision function h1f_LTq(eta,xi)
22151c =========================================
22152
22153c eq (28) in PLB347 (1995) 143 - 151 for the transverse piece
22154c This also takes into account the additional mass factorizations
22155c necessary from a low Q^2 photon coupling to the light quark.
22156c MSbar scheme
22157c This routine is called subd1tqf in the original code.
22158c Gives h1_LTq for Q2 < 1.5 GeV2 (use h1_LTq for Q2 > 1.5 GeV2)
22159
22160 implicit none
22161 integer neta, nxi
22162 parameter (neta = 45, nxi = 15)
22163 double precision calcpts(neta,nxi), aeta(neta), axi(nxi)
22164 double precision eta, xi, huge, small
22165 double precision t, u, y1, y2, y3, y4
22166 parameter (small = 1.d-8, huge = 1.d10)
22167 integer j, ieta, ixi
22168
22169 data (calcpts(j, 1), j=1,neta) /0.d0, 0.4019D-05, 0.1896D-04,
22170 # 0.3899D-04, 0.6269D-04, 0.8935D-04, 0.1037D-03, 0.4849D-03,
22171 # 0.9762D-03, 0.1525D-02, 0.2108D-02, 0.2406D-02, 0.5362D-02,
22172 # 0.7965D-02, 0.1012D-01, 0.1186D-01, 0.1328D-01, 0.1443D-01,
22173 # 0.1537D-01, 0.1616D-01, 0.1682D-01, 0.1986D-01, 0.2073D-01,
22174 # 0.2096D-01, 0.2088D-01, 0.2067D-01, 0.2037D-01, 0.2001D-01,
22175 # 0.1965D-01, 0.1929D-01, 0.1370D-01, 0.1084D-01, 0.9107D-02,
22176 # 0.7934D-02, 0.7464D-02, 0.4891D-02, 0.3756D-02, 0.2645D-02,
22177 # 0.2090D-02, 0.1746D-02, 0.1617D-02, 0.4779D-03, 0.2775D-03,
22178 # 0.4104D-04, 0.d0/
22179c
22180 data (calcpts(j, 2), j=1,neta) /0.d0, 0.2321D-05, 0.1077D-04,
22181 # 0.2190D-04, 0.3488D-04, 0.4935D-04, 0.5706D-04, 0.2585D-03,
22182 # 0.5173D-03, 0.8102D-03, 0.1125D-02, 0.1287D-02, 0.2955D-02,
22183 # 0.4511D-02, 0.5861D-02, 0.7013D-02, 0.7984D-02, 0.8813D-02,
22184 # 0.9516D-02, 0.1012D-01, 0.1065D-01, 0.1352D-01, 0.1463D-01,
22185 # 0.1512D-01, 0.1529D-01, 0.1529D-01, 0.1518D-01, 0.1502D-01,
22186 # 0.1482D-01, 0.1460D-01, 0.1073D-01, 0.8586D-02, 0.7261D-02,
22187 # 0.6349D-02, 0.5983D-02, 0.3966D-02, 0.3061D-02, 0.2178D-02,
22188 # 0.1718D-02, 0.1440D-02, 0.1337D-02, 0.3998D-03, 0.2339D-03,
22189 # 0.3529D-04, 0.d0/
22190c
22191 data (calcpts(j, 3), j=1,neta) /0.d0, 0.5064D-06, 0.2317D-05,
22192 # 0.4667D-05, 0.7383D-05, 0.1040D-04, 0.1200D-04, 0.5411D-04,
22193 # 0.1119D-03, 0.1832D-03, 0.2663D-03, 0.3119D-03, 0.8727D-03,
22194 # 0.1533D-02, 0.2214D-02, 0.2874D-02, 0.3495D-02, 0.4073D-02,
22195 # 0.4602D-02, 0.5091D-02, 0.5538D-02, 0.8424D-02, 0.9777D-02,
22196 # 0.1046D-01, 0.1080D-01, 0.1095D-01, 0.1098D-01, 0.1094D-01,
22197 # 0.1086D-01, 0.1075D-01, 0.8148D-02, 0.6592D-02, 0.5609D-02,
22198 # 0.4921D-02, 0.4650D-02, 0.3110D-02, 0.2411D-02, 0.1722D-02,
22199 # 0.1371D-02, 0.1150D-02, 0.1067D-02, 0.3261D-03, 0.1892D-03,
22200 # 0.2870D-04, 0.d0/
22201c
22202 data (calcpts(j, 4), j=1,neta) /0.d0, 0.5228D-08, 0.2381D-07,
22203 # 0.4875D-07, 0.7962D-07, 0.1172D-06, 0.1388D-06, 0.1292D-05,
22204 # 0.4892D-05, 0.1220D-04, 0.2403D-04, 0.3177D-04, 0.1790D-03,
22205 # 0.4347D-03, 0.7627D-03, 0.1131D-02, 0.1518D-02, 0.1906D-02,
22206 # 0.2291D-02, 0.2660D-02, 0.3014D-02, 0.5617D-02, 0.7014D-02,
22207 # 0.7787D-02, 0.8220D-02, 0.8455D-02, 0.8574D-02, 0.8612D-02,
22208 # 0.8603D-02, 0.8558D-02, 0.6753D-02, 0.5525D-02, 0.4737D-02,
22209 # 0.4176D-02, 0.3954D-02, 0.2678D-02, 0.2087D-02, 0.1502D-02,
22210 # 0.1196D-02, 0.1007D-02, 0.9338D-03, 0.2877D-03, 0.1692D-03,
22211 # 0.2625D-04, 0.d0/
22212c
22213 data (calcpts(j, 5), j=1,neta) /0.d0, 0.9101D-12, 0.4199D-10,
22214 # 0.2486D-09, 0.7987D-09, 0.1908D-08, 0.2745D-08, 0.1169D-06,
22215 # 0.6378D-06, 0.1896D-05, 0.4197D-05, 0.5822D-05, 0.4473D-04,
22216 # 0.1310D-03, 0.2623D-03, 0.4305D-03, 0.6257D-03, 0.8389D-03,
22217 # 0.1064D-02, 0.1294D-02, 0.1525D-02, 0.3522D-02, 0.4800D-02,
22218 # 0.5585D-02, 0.6078D-02, 0.6383D-02, 0.6571D-02, 0.6681D-02,
22219 # 0.6738D-02, 0.6764D-02, 0.5665D-02, 0.4725D-02, 0.4088D-02,
22220 # 0.3632D-02, 0.3446D-02, 0.2369D-02, 0.1861D-02, 0.1347D-02,
22221 # 0.1081D-02, 0.9132D-03, 0.8487D-03, 0.2657D-03, 0.1563D-03,
22222 # 0.2511D-04, 0.d0/
22223c
22224 data (calcpts(j, 6), j=1,neta) /0.d0, 0.2657D-12, 0.1234D-10,
22225 # 0.7333D-10, 0.2366D-09, 0.5664D-09, 0.8165D-09, 0.3585D-07,
22226 # 0.2016D-06, 0.6159D-06, 0.1399D-05, 0.1963D-05, 0.1675D-04,
22227 # 0.5327D-04, 0.1141D-03, 0.1979D-03, 0.3015D-03, 0.4212D-03,
22228 # 0.5532D-03, 0.6942D-03, 0.8411D-03, 0.2292D-02, 0.3371D-02,
22229 # 0.4096D-02, 0.4583D-02, 0.4909D-02, 0.5129D-02, 0.5277D-02,
22230 # 0.5371D-02, 0.5431D-02, 0.4823D-02, 0.4098D-02, 0.3584D-02,
22231 # 0.3204D-02, 0.3046D-02, 0.2125D-02, 0.1683D-02, 0.1229D-02,
22232 # 0.9890D-03, 0.8394D-03, 0.7798D-03, 0.2471D-03, 0.1470D-03,
22233 # 0.2343D-04, 0.d0/
22234c
22235 data (calcpts(j, 7), j=1,neta) /0.d0, 0.2199D-12, 0.1022D-10,
22236 # 0.6069D-10, 0.1959D-09, 0.4690D-09, 0.6762D-09, 0.2974D-07,
22237 # 0.1674D-06, 0.5122D-06, 0.1165D-05, 0.1637D-05, 0.1405D-04,
22238 # 0.4497D-04, 0.9692D-04, 0.1690D-03, 0.2589D-03, 0.3633D-03,
22239 # 0.4793D-03, 0.6040D-03, 0.7347D-03, 0.2058D-02, 0.3074D-02,
22240 # 0.3776D-02, 0.4248D-02, 0.4574D-02, 0.4796D-02, 0.4949D-02,
22241 # 0.5048D-02, 0.5115D-02, 0.4613D-02, 0.3939D-02, 0.3453D-02,
22242 # 0.3095D-02, 0.2944D-02, 0.2064D-02, 0.1636D-02, 0.1198D-02,
22243 # 0.9665D-03, 0.8193D-03, 0.7636D-03, 0.2445D-03, 0.1445D-03,
22244 # 0.2312D-04, 0.d0/
22245c
22246 data (calcpts(j, 8), j=1,neta) /0.d0, 0.1569D-12, 0.7293D-11,
22247 # 0.4330D-10, 0.1397D-09, 0.3345D-09, 0.4823D-09, 0.2118D-07,
22248 # 0.1189D-06, 0.3635D-06, 0.8253D-06, 0.1158D-05, 0.9902D-05,
22249 # 0.3158D-04, 0.6792D-04, 0.1184D-03, 0.1815D-03, 0.2548D-03,
22250 # 0.3369D-03, 0.4252D-03, 0.5186D-03, 0.1495D-02, 0.2288D-02,
22251 # 0.2862D-02, 0.3269D-02, 0.3558D-02, 0.3766D-02, 0.3914D-02,
22252 # 0.4020D-02, 0.4095D-02, 0.3882D-02, 0.3377D-02, 0.2991D-02,
22253 # 0.2703D-02, 0.2580D-02, 0.1839D-02, 0.1469D-02, 0.1086D-02,
22254 # 0.8801D-03, 0.7482D-03, 0.6992D-03, 0.2261D-03, 0.1353D-03,
22255 # 0.2217D-04, 0.d0/
22256c
22257 data (calcpts(j, 9), j=1,neta) /0.d0, 0.1509D-12, 0.7016D-11,
22258 # 0.4166D-10, 0.1344D-09, 0.3218D-09, 0.4636D-09, 0.2035D-07,
22259 # 0.1142D-06, 0.3489D-06, 0.7914D-06, 0.1111D-05, 0.9461D-05,
22260 # 0.3008D-04, 0.6453D-04, 0.1122D-03, 0.1716D-03, 0.2406D-03,
22261 # 0.3174D-03, 0.4000D-03, 0.4874D-03, 0.1394D-02, 0.2127D-02,
22262 # 0.2660D-02, 0.3038D-02, 0.3311D-02, 0.3506D-02, 0.3646D-02,
22263 # 0.3748D-02, 0.3820D-02, 0.3657D-02, 0.3196D-02, 0.2844D-02,
22264 # 0.2571D-02, 0.2460D-02, 0.1764D-02, 0.1415D-02, 0.1049D-02,
22265 # 0.8515D-03, 0.7264D-03, 0.6773D-03, 0.2231D-03, 0.1328D-03,
22266 # 0.2174D-04, 0.d0/
22267c
22268 data (calcpts(j,10), j=1,neta) /0.d0, 0.1441D-12, 0.6693D-11,
22269 # 0.3978D-10, 0.1282D-09, 0.3069D-09, 0.4423D-09, 0.1938D-07,
22270 # 0.1087D-06, 0.3317D-06, 0.7515D-06, 0.1054D-05, 0.8930D-05,
22271 # 0.2825D-04, 0.6027D-04, 0.1043D-03, 0.1588D-03, 0.2217D-03,
22272 # 0.2913D-03, 0.3657D-03, 0.4437D-03, 0.1233D-02, 0.1845D-02,
22273 # 0.2274D-02, 0.2570D-02, 0.2775D-02, 0.2918D-02, 0.3018D-02,
22274 # 0.3085D-02, 0.3134D-02, 0.2930D-02, 0.2574D-02, 0.2306D-02,
22275 # 0.2102D-02, 0.2018D-02, 0.1478D-02, 0.1200D-02, 0.9031D-03,
22276 # 0.7391D-03, 0.6339D-03, 0.5926D-03, 0.1992D-03, 0.1202D-03,
22277 # 0.2022D-04, 0.d0/
22278c
22279 data (calcpts(j,11), j=1,neta) /0.d0, 0.1434D-12, 0.6663D-11,
22280 # 0.3955D-10, 0.1276D-09, 0.3054D-09, 0.4402D-09, 0.1929D-07,
22281 # 0.1082D-06, 0.3299D-06, 0.7475D-06, 0.1048D-05, 0.8874D-05,
22282 # 0.2804D-04, 0.5983D-04, 0.1035D-03, 0.1574D-03, 0.2197D-03,
22283 # 0.2885D-03, 0.3621D-03, 0.4391D-03, 0.1215D-02, 0.1814D-02,
22284 # 0.2226D-02, 0.2508D-02, 0.2697D-02, 0.2825D-02, 0.2909D-02,
22285 # 0.2961D-02, 0.2994D-02, 0.2604D-02, 0.2208D-02, 0.1946D-02,
22286 # 0.1758D-02, 0.1681D-02, 0.1229D-02, 0.1005D-02, 0.7642D-03,
22287 # 0.6311D-03, 0.5433D-03, 0.5108D-03, 0.1779D-03, 0.1087D-03,
22288 # 0.1860D-04, 0.d0/
22289c
22290 data (calcpts(j,12), j=1,neta) /0.d0, 0.1433D-12, 0.6657D-11,
22291 # 0.3953D-10, 0.1275D-09, 0.3053D-09, 0.4401D-09, 0.1929D-07,
22292 # 0.1081D-06, 0.3297D-06, 0.7470D-06, 0.1048D-05, 0.8868D-05,
22293 # 0.2804D-04, 0.5979D-04, 0.1034D-03, 0.1574D-03, 0.2196D-03,
22294 # 0.2883D-03, 0.3619D-03, 0.4391D-03, 0.1216D-02, 0.1818D-02,
22295 # 0.2238D-02, 0.2525D-02, 0.2720D-02, 0.2855D-02, 0.2943D-02,
22296 # 0.3000D-02, 0.3036D-02, 0.2630D-02, 0.2171D-02, 0.1860D-02,
22297 # 0.1643D-02, 0.1555D-02, 0.1076D-02, 0.8619D-03, 0.6490D-03,
22298 # 0.5361D-03, 0.4630D-03, 0.4353D-03, 0.1560D-03, 0.9623D-04,
22299 # 0.1727D-04, 0.d0/
22300c
22301 data (calcpts(j,13), j=1,neta) /0.d0, 0.1401D-12, 0.6668D-11,
22302 # 0.3954D-10, 0.1275D-09, 0.3053D-09, 0.4398D-09, 0.1928D-07,
22303 # 0.1081D-06, 0.3296D-06, 0.7470D-06, 0.1048D-05, 0.8868D-05,
22304 # 0.2804D-04, 0.5979D-04, 0.1034D-03, 0.1574D-03, 0.2196D-03,
22305 # 0.2883D-03, 0.3621D-03, 0.4389D-03, 0.1217D-02, 0.1821D-02,
22306 # 0.2244D-02, 0.2535D-02, 0.2736D-02, 0.2876D-02, 0.2970D-02,
22307 # 0.3035D-02, 0.3074D-02, 0.2727D-02, 0.2277D-02, 0.1956D-02,
22308 # 0.1722D-02, 0.1625D-02, 0.1073D-02, 0.8265D-03, 0.5928D-03,
22309 # 0.4775D-03, 0.4067D-03, 0.3804D-03, 0.1358D-03, 0.8456D-04,
22310 # 0.1560D-04, 0.d0/
22311c
22312 data (calcpts(j,14), j=1,neta) /0.d0, 0.4279D-12, 0.7533D-11,
22313 # 0.4041D-10, 0.1273D-09, 0.3024D-09, 0.4428D-09, 0.1926D-07,
22314 # 0.1081D-06, 0.3296D-06, 0.7469D-06, 0.1048D-05, 0.8865D-05,
22315 # 0.2804D-04, 0.5978D-04, 0.1034D-03, 0.1574D-03, 0.2196D-03,
22316 # 0.2885D-03, 0.3621D-03, 0.4392D-03, 0.1218D-02, 0.1824D-02,
22317 # 0.2249D-02, 0.2541D-02, 0.2744D-02, 0.2886D-02, 0.2982D-02,
22318 # 0.3050D-02, 0.3091D-02, 0.2793D-02, 0.2369D-02, 0.2064D-02,
22319 # 0.1838D-02, 0.1744D-02, 0.1188D-02, 0.9171D-03, 0.6428D-03,
22320 # 0.5015D-03, 0.4140D-03, 0.3816D-03, 0.1146D-03, 0.7074D-04,
22321 # 0.1332D-04, 0.d0/
22322c
22323 data (calcpts(j,15), j=1,neta) /0.d0, 0.0000D+00, 0.8481D-11,
22324 # 0.1250D-10, 0.1173D-09, 0.3631D-09, 0.4731D-09, 0.1937D-07,
22325 # 0.1080D-06, 0.3296D-06, 0.7471D-06, 0.1048D-05, 0.8865D-05,
22326 # 0.2802D-04, 0.5976D-04, 0.1034D-03, 0.1574D-03, 0.2196D-03,
22327 # 0.2885D-03, 0.3619D-03, 0.4391D-03, 0.1218D-02, 0.1824D-02,
22328 # 0.2249D-02, 0.2543D-02, 0.2745D-02, 0.2888D-02, 0.2985D-02,
22329 # 0.3051D-02, 0.3095D-02, 0.2802D-02, 0.2385D-02, 0.2084D-02,
22330 # 0.1860D-02, 0.1769D-02, 0.1219D-02, 0.9522D-03, 0.6765D-03,
22331 # 0.5313D-03, 0.4398D-03, 0.4059D-03, 0.1124D-03, 0.6680D-04,
22332 # 0.1251D-04, 0.d0/
22333c
22334 data (aeta(j), j = 1,neta) /small, 0.1000d-02, 0.3000d-02,
22335 # 0.5000d-02, 0.7000d-02, 0.9000d-02, 0.1000d-01, 0.3000d-01,
22336 # 0.5000d-01, 0.7000d-01, 0.9000d-01, 0.1000d+00, 0.2000d+00,
22337 # 0.3000d+00, 0.4000d+00, 0.5000d+00, 0.6000d+00, 0.7000d+00,
22338 # 0.8000d+00, 0.9000d+00, 0.1000d+01, 0.2000d+01, 0.3000d+01,
22339 # 0.4000d+01, 0.5000d+01, 0.6000d+01, 0.7000d+01, 0.8000d+01,
22340 # 0.9000d+01, 0.1000d+02, 0.3000d+02, 0.5000d+02, 0.7000d+02,
22341 # 0.9000d+02, 0.1000d+03, 0.2000d+03, 0.3000d+03, 0.5000d+03,
22342 # 0.7000d+03, 0.9000d+03, 0.1000d+04, 0.5000d+04, 0.1000d+05,
22343 # 0.1000d+06, huge/
22344c
22345 data (axi(j), j = 1,nxi) /0.1000d-01, 0.3162d-01, 0.1000d+00,
22346 # 0.3162d+00, 0.1000d+01, 0.2500d+01, 0.3162d+01, 0.7500d+01,
22347 # 0.1000d+02, 0.3162d+02, 0.1000d+03, 0.3162d+03, 0.1000d+04,
22348 # 0.5000d+04, 0.1000d+05/
22349c
22350c here we have to choose the array elements that will go into the
22351c interpolation.
22352 call locate(aeta, neta, eta, ieta)
22353 call locate(axi, nxi, xi, ixi)
22354 if (ieta .le. 1) ieta = 1
22355 if (ieta .gt. (neta - 1)) ieta = neta - 1
22356 if (ixi .le. 1) ixi = 1
22357 if (ixi .gt. (nxi - 1)) ixi = nxi - 1
22358 y1 = calcpts(ieta,ixi)
22359 y2 = calcpts(ieta+1,ixi)
22360 y3 = calcpts(ieta+1,ixi+1)
22361 y4 = calcpts(ieta,ixi+1)
22362c interpolating between the points
22363 t = (eta - aeta(ieta))/(aeta(ieta + 1) - aeta(ieta))
22364 u = (xi - axi(ixi))/(axi(ixi + 1) - axi(ixi))
22365 h1f_LTq = (1.d0 - t)*(1.d0 - u)*y1 + t*(1.d0 - u)*y2 +
22366 # t*u*y3 + (1.d0 - t)*u*y4
22367
22368 return
22369 end
22370
22371c =========================================
22372 double precision function h1_LTq(eta,xi)
22373c =========================================
22374
22375c eq (28) in PLB347 (1995) 143 - 151 for the transverse piece
22376c MSbar scheme
22377c This routine is called subd1tq in the original code.
22378c Gives h1_LTq for Q2 > 1.5 GeV2 (use h1f_LTq for Q2 < 1.5 GeV2)
22379c Called sclqt in updated code (03/06/96).
22380
22381 implicit none
22382 integer neta, nxi
22383 parameter (neta = 73, nxi = 49)
22384 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
22385 double precision eta, xi, dleta, dlxi
22386 double precision pxi, peta, f(-1:1), delxi, deleta
22387 integer j, ieta, ixi
22388
22389 data (calcpts(j, 1), j = 1,neta) /0.2418D-16, 0.9248D-16,
22390 # 0.3534D-15, 0.1349D-14, 0.5144D-14, 0.1956D-13, 0.7412D-13,
22391 # 0.2795D-12, 0.1046D-11, 0.3876D-11, 0.1417D-10, 0.5081D-10,
22392 # 0.1778D-09, 0.6021D-09, 0.1964D-08, 0.6116D-08, 0.1817D-07,
22393 # 0.5128D-07, 0.1377D-06, 0.3524D-06, 0.8631D-06, 0.2031D-05,
22394 # 0.4617D-05, 0.1017D-04, 0.2177D-04, 0.4545D-04, 0.9263D-04,
22395 # 0.1844D-03, 0.3577D-03, 0.6750D-03, 0.1232D-02, 0.2160D-02,
22396 # 0.3605D-02, 0.5666D-02, 0.8313D-02, 0.1131D-01, 0.1428D-01,
22397 # 0.1683D-01, 0.1868D-01, 0.1970D-01, 0.1988D-01, 0.1925D-01,
22398 # 0.1794D-01, 0.1616D-01, 0.1410D-01, 0.1198D-01, 0.9952D-02,
22399 # 0.8106D-02, 0.6494D-02, 0.5132D-02, 0.4007D-02, 0.3097D-02,
22400 # 0.2373D-02, 0.1806D-02, 0.1364D-02, 0.1025D-02, 0.7660D-03,
22401 # 0.5700D-03, 0.4222D-03, 0.3117D-03, 0.2294D-03, 0.1682D-03,
22402 # 0.1230D-03, 0.8970D-04, 0.6527D-04, 0.4739D-04, 0.3434D-04,
22403 # 0.2483D-04, 0.1791D-04, 0.1291D-04, 0.9285D-05, 0.6669D-05,
22404 # 0.4784D-05/
22405
22406 data (calcpts(j, 2), j = 1,neta) /0.1123D-16, 0.4299D-16,
22407 # 0.1644D-15, 0.6287D-15, 0.2400D-14, 0.9147D-14, 0.3479D-13,
22408 # 0.1318D-12, 0.4970D-12, 0.1860D-11, 0.6894D-11, 0.2520D-10,
22409 # 0.9034D-10, 0.3161D-09, 0.1071D-08, 0.3488D-08, 0.1087D-07,
22410 # 0.3229D-07, 0.9114D-07, 0.2447D-06, 0.6258D-06, 0.1532D-05,
22411 # 0.3602D-05, 0.8169D-05, 0.1794D-04, 0.3830D-04, 0.7952D-04,
22412 # 0.1608D-03, 0.3164D-03, 0.6040D-03, 0.1114D-02, 0.1971D-02,
22413 # 0.3317D-02, 0.5253D-02, 0.7759D-02, 0.1063D-01, 0.1349D-01,
22414 # 0.1597D-01, 0.1781D-01, 0.1886D-01, 0.1908D-01, 0.1852D-01,
22415 # 0.1731D-01, 0.1561D-01, 0.1366D-01, 0.1163D-01, 0.9669D-02,
22416 # 0.7886D-02, 0.6324D-02, 0.5003D-02, 0.3910D-02, 0.3025D-02,
22417 # 0.2321D-02, 0.1767D-02, 0.1336D-02, 0.1004D-02, 0.7509D-03,
22418 # 0.5590D-03, 0.4145D-03, 0.3060D-03, 0.2253D-03, 0.1653D-03,
22419 # 0.1209D-03, 0.8825D-04, 0.6423D-04, 0.4665D-04, 0.3381D-04,
22420 # 0.2445D-04, 0.1765D-04, 0.1272D-04, 0.9156D-05, 0.6579D-05,
22421 # 0.4719D-05/
22422
22423 data (calcpts(j, 3), j = 1,neta) /0.5218D-17, 0.1998D-16,
22424 # 0.7647D-16, 0.2925D-15, 0.1118D-14, 0.4268D-14, 0.1626D-13,
22425 # 0.6185D-13, 0.2343D-12, 0.8836D-12, 0.3308D-11, 0.1226D-10,
22426 # 0.4481D-10, 0.1607D-09, 0.5619D-09, 0.1904D-08, 0.6199D-08,
22427 # 0.1932D-07, 0.5739D-07, 0.1619D-06, 0.4344D-06, 0.1110D-05,
22428 # 0.2715D-05, 0.6374D-05, 0.1442D-04, 0.3158D-04, 0.6700D-04,
22429 # 0.1381D-03, 0.2762D-03, 0.5346D-03, 0.9981D-03, 0.1785D-02,
22430 # 0.3032D-02, 0.4842D-02, 0.7208D-02, 0.9939D-02, 0.1270D-01,
22431 # 0.1512D-01, 0.1694D-01, 0.1800D-01, 0.1828D-01, 0.1781D-01,
22432 # 0.1668D-01, 0.1509D-01, 0.1322D-01, 0.1127D-01, 0.9386D-02,
22433 # 0.7664D-02, 0.6155D-02, 0.4874D-02, 0.3813D-02, 0.2953D-02,
22434 # 0.2267D-02, 0.1726D-02, 0.1307D-02, 0.9832D-03, 0.7359D-03,
22435 # 0.5481D-03, 0.4065D-03, 0.3005D-03, 0.2212D-03, 0.1624D-03,
22436 # 0.1189D-03, 0.8678D-04, 0.6320D-04, 0.4592D-04, 0.3329D-04,
22437 # 0.2409D-04, 0.1740D-04, 0.1254D-04, 0.9027D-05, 0.6488D-05,
22438 # 0.4656D-05/
22439
22440 data (calcpts(j, 4), j = 1,neta) /0.2424D-17, 0.9281D-17,
22441 # 0.3554D-16, 0.1360D-15, 0.5202D-15, 0.1988D-14, 0.7590D-14,
22442 # 0.2893D-13, 0.1100D-12, 0.4168D-12, 0.1572D-11, 0.5883D-11,
22443 # 0.2180D-10, 0.7967D-10, 0.2858D-09, 0.9992D-09, 0.3381D-08,
22444 # 0.1102D-07, 0.3435D-07, 0.1020D-06, 0.2876D-06, 0.7709D-06,
22445 # 0.1968D-05, 0.4806D-05, 0.1125D-04, 0.2538D-04, 0.5526D-04,
22446 # 0.1164D-03, 0.2373D-03, 0.4670D-03, 0.8841D-03, 0.1601D-02,
22447 # 0.2748D-02, 0.4434D-02, 0.6657D-02, 0.9254D-02, 0.1191D-01,
22448 # 0.1426D-01, 0.1607D-01, 0.1716D-01, 0.1749D-01, 0.1710D-01,
22449 # 0.1605D-01, 0.1455D-01, 0.1278D-01, 0.1091D-01, 0.9102D-02,
22450 # 0.7443D-02, 0.5985D-02, 0.4745D-02, 0.3717D-02, 0.2881D-02,
22451 # 0.2214D-02, 0.1688D-02, 0.1278D-02, 0.9624D-03, 0.7208D-03,
22452 # 0.5372D-03, 0.3987D-03, 0.2948D-03, 0.2172D-03, 0.1595D-03,
22453 # 0.1168D-03, 0.8532D-04, 0.6216D-04, 0.4518D-04, 0.3276D-04,
22454 # 0.2371D-04, 0.1713D-04, 0.1236D-04, 0.8898D-05, 0.6398D-05,
22455 # 0.4592D-05/
22456
22457 data (calcpts(j, 5), j = 1,neta) /0.1125D-17, 0.4310D-17,
22458 # 0.1650D-16, 0.6320D-16, 0.2418D-15, 0.9251D-15, 0.3535D-14,
22459 # 0.1350D-13, 0.5145D-13, 0.1956D-12, 0.7412D-12, 0.2795D-11,
22460 # 0.1046D-10, 0.3878D-10, 0.1417D-09, 0.5081D-09, 0.1776D-08,
22461 # 0.6011D-08, 0.1959D-07, 0.6104D-07, 0.1810D-06, 0.5103D-06,
22462 # 0.1367D-05, 0.3486D-05, 0.8489D-05, 0.1981D-04, 0.4444D-04,
22463 # 0.9606D-04, 0.2001D-03, 0.4016D-03, 0.7731D-03, 0.1420D-02,
22464 # 0.2469D-02, 0.4028D-02, 0.6110D-02, 0.8570D-02, 0.1111D-01,
22465 # 0.1341D-01, 0.1520D-01, 0.1631D-01, 0.1670D-01, 0.1638D-01,
22466 # 0.1544D-01, 0.1402D-01, 0.1233D-01, 0.1055D-01, 0.8818D-02,
22467 # 0.7222D-02, 0.5816D-02, 0.4617D-02, 0.3619D-02, 0.2809D-02,
22468 # 0.2160D-02, 0.1649D-02, 0.1250D-02, 0.9416D-03, 0.7056D-03,
22469 # 0.5263D-03, 0.3909D-03, 0.2892D-03, 0.2132D-03, 0.1566D-03,
22470 # 0.1148D-03, 0.8385D-04, 0.6111D-04, 0.4444D-04, 0.3225D-04,
22471 # 0.2336D-04, 0.1688D-04, 0.1217D-04, 0.8769D-05, 0.6306D-05,
22472 # 0.4528D-05/
22473
22474 data (calcpts(j, 6), j = 1,neta) /0.5224D-18, 0.2001D-17,
22475 # 0.7665D-17, 0.2936D-16, 0.1124D-15, 0.4301D-15, 0.1646D-14,
22476 # 0.6288D-14, 0.2400D-13, 0.9149D-13, 0.3479D-12, 0.1318D-11,
22477 # 0.4969D-11, 0.1860D-10, 0.6894D-10, 0.2519D-09, 0.9032D-09,
22478 # 0.3154D-08, 0.1068D-07, 0.3480D-07, 0.1084D-06, 0.3215D-06,
22479 # 0.9049D-06, 0.2420D-05, 0.6157D-05, 0.1495D-04, 0.3471D-04,
22480 # 0.7731D-04, 0.1653D-03, 0.3392D-03, 0.6657D-03, 0.1244D-02,
22481 # 0.2195D-02, 0.3627D-02, 0.5567D-02, 0.7890D-02, 0.1033D-01,
22482 # 0.1256D-01, 0.1432D-01, 0.1546D-01, 0.1592D-01, 0.1566D-01,
22483 # 0.1480D-01, 0.1348D-01, 0.1189D-01, 0.1020D-01, 0.8535D-02,
22484 # 0.7002D-02, 0.5646D-02, 0.4488D-02, 0.3524D-02, 0.2738D-02,
22485 # 0.2108D-02, 0.1610D-02, 0.1221D-02, 0.9207D-03, 0.6905D-03,
22486 # 0.5154D-03, 0.3830D-03, 0.2835D-03, 0.2091D-03, 0.1537D-03,
22487 # 0.1127D-03, 0.8240D-04, 0.6008D-04, 0.4371D-04, 0.3172D-04,
22488 # 0.2298D-04, 0.1662D-04, 0.1199D-04, 0.8640D-05, 0.6216D-05,
22489 # 0.4464D-05/
22490
22491 data (calcpts(j, 7), j = 1,neta) /0.2426D-18, 0.9293D-18,
22492 # 0.3560D-17, 0.1363D-16, 0.5220D-16, 0.1998D-15, 0.7649D-15,
22493 # 0.2925D-14, 0.1118D-13, 0.4269D-13, 0.1628D-12, 0.6186D-12,
22494 # 0.2344D-11, 0.8837D-11, 0.3308D-10, 0.1226D-09, 0.4479D-09,
22495 # 0.1605D-08, 0.5606D-08, 0.1898D-07, 0.6182D-07, 0.1925D-06,
22496 # 0.5700D-06, 0.1602D-05, 0.4277D-05, 0.1085D-04, 0.2621D-04,
22497 # 0.6041D-04, 0.1331D-03, 0.2804D-03, 0.5631D-03, 0.1073D-02,
22498 # 0.1928D-02, 0.3234D-02, 0.5030D-02, 0.7214D-02, 0.9542D-02,
22499 # 0.1171D-01, 0.1346D-01, 0.1462D-01, 0.1512D-01, 0.1494D-01,
22500 # 0.1417D-01, 0.1295D-01, 0.1145D-01, 0.9839D-02, 0.8252D-02,
22501 # 0.6782D-02, 0.5476D-02, 0.4359D-02, 0.3428D-02, 0.2665D-02,
22502 # 0.2054D-02, 0.1571D-02, 0.1193D-02, 0.8998D-03, 0.6755D-03,
22503 # 0.5045D-03, 0.3752D-03, 0.2780D-03, 0.2050D-03, 0.1509D-03,
22504 # 0.1107D-03, 0.8093D-04, 0.5904D-04, 0.4298D-04, 0.3120D-04,
22505 # 0.2261D-04, 0.1635D-04, 0.1181D-04, 0.8511D-05, 0.6124D-05,
22506 # 0.4401D-05/
22507
22508 data (calcpts(j, 8), j = 1,neta) /0.1126D-18, 0.4314D-18,
22509 # 0.1653D-17, 0.6330D-17, 0.2424D-16, 0.9284D-16, 0.3554D-15,
22510 # 0.1360D-14, 0.5202D-14, 0.1989D-13, 0.7591D-13, 0.2894D-12,
22511 # 0.1100D-11, 0.4169D-11, 0.1572D-10, 0.5882D-10, 0.2180D-09,
22512 # 0.7962D-09, 0.2850D-08, 0.9960D-08, 0.3371D-07, 0.1097D-06,
22513 # 0.3413D-06, 0.1010D-05, 0.2832D-05, 0.7536D-05, 0.1902D-04,
22514 # 0.4563D-04, 0.1041D-03, 0.2262D-03, 0.4664D-03, 0.9094D-03,
22515 # 0.1667D-02, 0.2847D-02, 0.4498D-02, 0.6543D-02, 0.8759D-02,
22516 # 0.1086D-01, 0.1259D-01, 0.1378D-01, 0.1432D-01, 0.1422D-01,
22517 # 0.1354D-01, 0.1241D-01, 0.1101D-01, 0.9482D-02, 0.7970D-02,
22518 # 0.6561D-02, 0.5307D-02, 0.4230D-02, 0.3330D-02, 0.2594D-02,
22519 # 0.2001D-02, 0.1532D-02, 0.1164D-02, 0.8790D-03, 0.6603D-03,
22520 # 0.4935D-03, 0.3674D-03, 0.2723D-03, 0.2010D-03, 0.1480D-03,
22521 # 0.1086D-03, 0.7947D-04, 0.5801D-04, 0.4224D-04, 0.3068D-04,
22522 # 0.2224D-04, 0.1610D-04, 0.1163D-04, 0.8382D-05, 0.6033D-05,
22523 # 0.4337D-05/
22524
22525 data (calcpts(j, 9), j = 1,neta) /0.5227D-19, 0.2003D-18,
22526 # 0.7671D-18, 0.2938D-17, 0.1126D-16, 0.4311D-16, 0.1652D-15,
22527 # 0.6321D-15, 0.2419D-14, 0.9252D-14, 0.3537D-13, 0.1350D-12,
22528 # 0.5145D-12, 0.1956D-11, 0.7413D-11, 0.2794D-10, 0.1046D-09,
22529 # 0.3874D-09, 0.1415D-08, 0.5064D-08, 0.1770D-07, 0.5985D-07,
22530 # 0.1946D-06, 0.6045D-06, 0.1785D-05, 0.4993D-05, 0.1322D-04,
22531 # 0.3315D-04, 0.7875D-04, 0.1771D-03, 0.3768D-03, 0.7551D-03,
22532 # 0.1417D-02, 0.2472D-02, 0.3978D-02, 0.5880D-02, 0.7983D-02,
22533 # 0.1002D-01, 0.1173D-01, 0.1293D-01, 0.1353D-01, 0.1351D-01,
22534 # 0.1291D-01, 0.1188D-01, 0.1056D-01, 0.9123D-02, 0.7686D-02,
22535 # 0.6340D-02, 0.5138D-02, 0.4103D-02, 0.3234D-02, 0.2522D-02,
22536 # 0.1947D-02, 0.1492D-02, 0.1135D-02, 0.8582D-03, 0.6452D-03,
22537 # 0.4827D-03, 0.3594D-03, 0.2666D-03, 0.1969D-03, 0.1451D-03,
22538 # 0.1065D-03, 0.7800D-04, 0.5697D-04, 0.4149D-04, 0.3017D-04,
22539 # 0.2187D-04, 0.1584D-04, 0.1144D-04, 0.8253D-05, 0.5943D-05,
22540 # 0.4273D-05/
22541
22542 data (calcpts(j,10), j = 1,neta) /0.2427D-19, 0.9297D-19,
22543 # 0.3561D-18, 0.1364D-17, 0.5227D-17, 0.2003D-16, 0.7668D-16,
22544 # 0.2937D-15, 0.1124D-14, 0.4302D-14, 0.1646D-13, 0.6290D-13,
22545 # 0.2401D-12, 0.9151D-12, 0.3479D-11, 0.1318D-10, 0.4970D-10,
22546 # 0.1860D-09, 0.6888D-09, 0.2511D-08, 0.8997D-08, 0.3141D-07,
22547 # 0.1062D-06, 0.3449D-06, 0.1069D-05, 0.3147D-05, 0.8768D-05,
22548 # 0.2307D-04, 0.5728D-04, 0.1342D-03, 0.2958D-03, 0.6119D-03,
22549 # 0.1181D-02, 0.2110D-02, 0.3471D-02, 0.5228D-02, 0.7215D-02,
22550 # 0.9179D-02, 0.1087D-01, 0.1209D-01, 0.1275D-01, 0.1279D-01,
22551 # 0.1229D-01, 0.1135D-01, 0.1012D-01, 0.8766D-02, 0.7403D-02,
22552 # 0.6120D-02, 0.4968D-02, 0.3974D-02, 0.3136D-02, 0.2449D-02,
22553 # 0.1895D-02, 0.1453D-02, 0.1107D-02, 0.8375D-03, 0.6302D-03,
22554 # 0.4718D-03, 0.3516D-03, 0.2610D-03, 0.1931D-03, 0.1422D-03,
22555 # 0.1045D-03, 0.7655D-04, 0.5592D-04, 0.4075D-04, 0.2964D-04,
22556 # 0.2151D-04, 0.1557D-04, 0.1126D-04, 0.8124D-05, 0.5852D-05,
22557 # 0.4209D-05/
22558
22559 data (calcpts(j,11), j = 1,neta) /0.1127D-19, 0.4317D-19,
22560 # 0.1653D-18, 0.6334D-18, 0.2427D-17, 0.9297D-17, 0.3561D-16,
22561 # 0.1364D-15, 0.5223D-15, 0.2000D-14, 0.7653D-14, 0.2927D-13,
22562 # 0.1119D-12, 0.4270D-12, 0.1627D-11, 0.6187D-11, 0.2344D-10,
22563 # 0.8835D-10, 0.3306D-09, 0.1224D-08, 0.4463D-08, 0.1597D-07,
22564 # 0.5574D-07, 0.1881D-06, 0.6101D-06, 0.1885D-05, 0.5529D-05,
22565 # 0.1531D-04, 0.3992D-04, 0.9777D-04, 0.2246D-03, 0.4818D-03,
22566 # 0.9605D-03, 0.1767D-02, 0.2981D-02, 0.4590D-02, 0.6457D-02,
22567 # 0.8346D-02, 0.1001D-01, 0.1125D-01, 0.1196D-01, 0.1208D-01,
22568 # 0.1166D-01, 0.1081D-01, 0.9681D-02, 0.8409D-02, 0.7119D-02,
22569 # 0.5898D-02, 0.4799D-02, 0.3844D-02, 0.3040D-02, 0.2378D-02,
22570 # 0.1841D-02, 0.1414D-02, 0.1078D-02, 0.8166D-03, 0.6150D-03,
22571 # 0.4608D-03, 0.3438D-03, 0.2553D-03, 0.1890D-03, 0.1393D-03,
22572 # 0.1024D-03, 0.7509D-04, 0.5489D-04, 0.4002D-04, 0.2911D-04,
22573 # 0.2114D-04, 0.1531D-04, 0.1108D-04, 0.7995D-05, 0.5762D-05,
22574 # 0.4146D-05/
22575
22576 data (calcpts(j,12), j = 1,neta) /0.5232D-20, 0.2004D-19,
22577 # 0.7680D-19, 0.2941D-18, 0.1127D-17, 0.4318D-17, 0.1654D-16,
22578 # 0.6336D-16, 0.2427D-15, 0.9293D-15, 0.3558D-14, 0.1361D-13,
22579 # 0.5208D-13, 0.1991D-12, 0.7597D-12, 0.2895D-11, 0.1101D-10,
22580 # 0.4170D-10, 0.1571D-09, 0.5877D-09, 0.2175D-08, 0.7928D-08,
22581 # 0.2835D-07, 0.9882D-07, 0.3330D-06, 0.1077D-05, 0.3317D-05,
22582 # 0.9666D-05, 0.2652D-04, 0.6827D-04, 0.1641D-03, 0.3672D-03,
22583 # 0.7601D-03, 0.1446D-02, 0.2514D-02, 0.3972D-02, 0.5714D-02,
22584 # 0.7524D-02, 0.9161D-02, 0.1042D-01, 0.1117D-01, 0.1137D-01,
22585 # 0.1104D-01, 0.1028D-01, 0.9240D-02, 0.8052D-02, 0.6837D-02,
22586 # 0.5678D-02, 0.4629D-02, 0.3716D-02, 0.2943D-02, 0.2306D-02,
22587 # 0.1788D-02, 0.1375D-02, 0.1049D-02, 0.7957D-03, 0.5998D-03,
22588 # 0.4500D-03, 0.3359D-03, 0.2498D-03, 0.1850D-03, 0.1365D-03,
22589 # 0.1004D-03, 0.7362D-04, 0.5385D-04, 0.3929D-04, 0.2861D-04,
22590 # 0.2078D-04, 0.1506D-04, 0.1089D-04, 0.7866D-05, 0.5670D-05,
22591 # 0.4082D-05/
22592
22593 data (calcpts(j,13), j = 1,neta) /0.2432D-20, 0.9314D-20,
22594 # 0.3569D-19, 0.1367D-18, 0.5238D-18, 0.2007D-17, 0.7688D-17,
22595 # 0.2945D-16, 0.1128D-15, 0.4320D-15, 0.1654D-14, 0.6333D-14,
22596 # 0.2424D-13, 0.9270D-13, 0.3543D-12, 0.1352D-11, 0.5153D-11,
22597 # 0.1959D-10, 0.7419D-10, 0.2795D-09, 0.1045D-08, 0.3861D-08,
22598 # 0.1408D-07, 0.5031D-07, 0.1750D-06, 0.5883D-06, 0.1896D-05,
22599 # 0.5805D-05, 0.1678D-04, 0.4548D-04, 0.1150D-03, 0.2696D-03,
22600 # 0.5826D-03, 0.1153D-02, 0.2075D-02, 0.3379D-02, 0.4991D-02,
22601 # 0.6716D-02, 0.8320D-02, 0.9593D-02, 0.1039D-01, 0.1066D-01,
22602 # 0.1041D-01, 0.9750D-02, 0.8799D-02, 0.7695D-02, 0.6554D-02,
22603 # 0.5457D-02, 0.4459D-02, 0.3588D-02, 0.2847D-02, 0.2234D-02,
22604 # 0.1734D-02, 0.1336D-02, 0.1021D-02, 0.7749D-03, 0.5849D-03,
22605 # 0.4391D-03, 0.3281D-03, 0.2441D-03, 0.1809D-03, 0.1336D-03,
22606 # 0.9832D-04, 0.7217D-04, 0.5282D-04, 0.3855D-04, 0.2808D-04,
22607 # 0.2040D-04, 0.1480D-04, 0.1071D-04, 0.7737D-05, 0.5580D-05,
22608 # 0.4019D-05/
22609
22610 data (calcpts(j,14), j = 1,neta) /0.1131D-20, 0.4332D-20,
22611 # 0.1661D-19, 0.6360D-19, 0.2436D-18, 0.9334D-18, 0.3576D-17,
22612 # 0.1370D-16, 0.5248D-16, 0.2010D-15, 0.7700D-15, 0.2948D-14,
22613 # 0.1129D-13, 0.4318D-13, 0.1652D-12, 0.6312D-12, 0.2409D-11,
22614 # 0.9181D-11, 0.3489D-10, 0.1321D-09, 0.4977D-09, 0.1860D-08,
22615 # 0.6866D-08, 0.2501D-07, 0.8922D-07, 0.3097D-06, 0.1037D-05,
22616 # 0.3326D-05, 0.1010D-04, 0.2886D-04, 0.7695D-04, 0.1899D-03,
22617 # 0.4307D-03, 0.8910D-03, 0.1670D-02, 0.2820D-02, 0.4293D-02,
22618 # 0.5926D-02, 0.7491D-02, 0.8774D-02, 0.9617D-02, 0.9952D-02,
22619 # 0.9792D-02, 0.9219D-02, 0.8360D-02, 0.7339D-02, 0.6272D-02,
22620 # 0.5238D-02, 0.4292D-02, 0.3459D-02, 0.2751D-02, 0.2162D-02,
22621 # 0.1682D-02, 0.1296D-02, 0.9921D-03, 0.7541D-03, 0.5697D-03,
22622 # 0.4281D-03, 0.3203D-03, 0.2384D-03, 0.1769D-03, 0.1307D-03,
22623 # 0.9627D-04, 0.7069D-04, 0.5178D-04, 0.3781D-04, 0.2755D-04,
22624 # 0.2004D-04, 0.1454D-04, 0.1053D-04, 0.7608D-05, 0.5489D-05,
22625 # 0.3954D-05/
22626
22627 data (calcpts(j,15), j = 1,neta) /0.5274D-21, 0.2020D-20,
22628 # 0.7740D-20, 0.2965D-19, 0.1136D-18, 0.4353D-18, 0.1668D-17,
22629 # 0.6389D-17, 0.2448D-16, 0.9377D-16, 0.3591D-15, 0.1376D-14,
22630 # 0.5267D-14, 0.2016D-13, 0.7716D-13, 0.2951D-12, 0.1128D-11,
22631 # 0.4303D-11, 0.1640D-10, 0.6230D-10, 0.2358D-09, 0.8878D-09,
22632 # 0.3311D-08, 0.1223D-07, 0.4447D-07, 0.1583D-06, 0.5478D-06,
22633 # 0.1825D-05, 0.5810D-05, 0.1746D-04, 0.4913D-04, 0.1280D-03,
22634 # 0.3062D-03, 0.6659D-03, 0.1307D-02, 0.2299D-02, 0.3630D-02,
22635 # 0.5162D-02, 0.6679D-02, 0.7965D-02, 0.8849D-02, 0.9251D-02,
22636 # 0.9173D-02, 0.8691D-02, 0.7920D-02, 0.6984D-02, 0.5990D-02,
22637 # 0.5018D-02, 0.4122D-02, 0.3330D-02, 0.2654D-02, 0.2090D-02,
22638 # 0.1628D-02, 0.1257D-02, 0.9634D-03, 0.7332D-03, 0.5546D-03,
22639 # 0.4172D-03, 0.3123D-03, 0.2328D-03, 0.1728D-03, 0.1278D-03,
22640 # 0.9422D-04, 0.6924D-04, 0.5073D-04, 0.3708D-04, 0.2703D-04,
22641 # 0.1967D-04, 0.1428D-04, 0.1034D-04, 0.7479D-05, 0.5399D-05,
22642 # 0.3889D-05/
22643
22644 data (calcpts(j,16), j = 1,neta) /0.2473D-21, 0.9471D-21,
22645 # 0.3629D-20, 0.1390D-19, 0.5327D-19, 0.2040D-18, 0.7818D-18,
22646 # 0.2995D-17, 0.1148D-16, 0.4397D-16, 0.1685D-15, 0.6450D-15,
22647 # 0.2471D-14, 0.9459D-14, 0.3621D-13, 0.1386D-12, 0.5300D-12,
22648 # 0.2025D-11, 0.7727D-11, 0.2943D-10, 0.1118D-09, 0.4230D-09,
22649 # 0.1591D-08, 0.5928D-08, 0.2187D-07, 0.7937D-07, 0.2817D-06,
22650 # 0.9701D-06, 0.3212D-05, 0.1012D-04, 0.2997D-04, 0.8255D-04,
22651 # 0.2088D-03, 0.4799D-03, 0.9918D-03, 0.1830D-02, 0.3011D-02,
22652 # 0.4431D-02, 0.5892D-02, 0.7172D-02, 0.8091D-02, 0.8556D-02,
22653 # 0.8559D-02, 0.8166D-02, 0.7484D-02, 0.6629D-02, 0.5708D-02,
22654 # 0.4797D-02, 0.3953D-02, 0.3202D-02, 0.2558D-02, 0.2018D-02,
22655 # 0.1575D-02, 0.1218D-02, 0.9348D-03, 0.7124D-03, 0.5396D-03,
22656 # 0.4063D-03, 0.3045D-03, 0.2271D-03, 0.1688D-03, 0.1249D-03,
22657 # 0.9216D-04, 0.6777D-04, 0.4969D-04, 0.3635D-04, 0.2652D-04,
22658 # 0.1931D-04, 0.1402D-04, 0.1016D-04, 0.7350D-05, 0.5307D-05,
22659 # 0.3826D-05/
22660
22661 data (calcpts(j,17), j = 1,neta) /0.1173D-21, 0.4490D-21,
22662 # 0.1721D-20, 0.6589D-20, 0.2525D-19, 0.9674D-19, 0.3706D-18,
22663 # 0.1420D-17, 0.5441D-17, 0.2084D-16, 0.7985D-16, 0.3059D-15,
22664 # 0.1172D-14, 0.4486D-14, 0.1718D-13, 0.6576D-13, 0.2515D-12,
22665 # 0.9621D-12, 0.3677D-11, 0.1403D-10, 0.5340D-10, 0.2028D-09,
22666 # 0.7668D-09, 0.2877D-08, 0.1072D-07, 0.3948D-07, 0.1429D-06,
22667 # 0.5049D-06, 0.1728D-05, 0.5670D-05, 0.1761D-04, 0.5118D-04,
22668 # 0.1370D-03, 0.3338D-03, 0.7298D-03, 0.1420D-02, 0.2446D-02,
22669 # 0.3744D-02, 0.5136D-02, 0.6400D-02, 0.7347D-02, 0.7871D-02,
22670 # 0.7950D-02, 0.7644D-02, 0.7049D-02, 0.6275D-02, 0.5426D-02,
22671 # 0.4578D-02, 0.3783D-02, 0.3074D-02, 0.2460D-02, 0.1946D-02,
22672 # 0.1521D-02, 0.1179D-02, 0.9061D-03, 0.6915D-03, 0.5244D-03,
22673 # 0.3954D-03, 0.2965D-03, 0.2215D-03, 0.1647D-03, 0.1220D-03,
22674 # 0.9011D-04, 0.6632D-04, 0.4866D-04, 0.3561D-04, 0.2600D-04,
22675 # 0.1893D-04, 0.1376D-04, 0.9977D-05, 0.7221D-05, 0.5217D-05,
22676 # 0.3762D-05/
22677
22678 data (calcpts(j,18), j = 1,neta) /0.5694D-22, 0.2178D-21,
22679 # 0.8340D-21, 0.3197D-20, 0.1224D-19, 0.4692D-19, 0.1797D-18,
22680 # 0.6886D-18, 0.2639D-17, 0.1011D-16, 0.3873D-16, 0.1484D-15,
22681 # 0.5682D-15, 0.2177D-14, 0.8335D-14, 0.3192D-13, 0.1222D-12,
22682 # 0.4674D-12, 0.1787D-11, 0.6827D-11, 0.2604D-10, 0.9911D-10,
22683 # 0.3760D-09, 0.1421D-08, 0.5325D-08, 0.1981D-07, 0.7272D-07,
22684 # 0.2622D-06, 0.9210D-06, 0.3125D-05, 0.1012D-04, 0.3086D-04,
22685 # 0.8726D-04, 0.2252D-03, 0.5222D-03, 0.1074D-02, 0.1948D-02,
22686 # 0.3114D-02, 0.4422D-02, 0.5658D-02, 0.6624D-02, 0.7197D-02,
22687 # 0.7350D-02, 0.7127D-02, 0.6615D-02, 0.5923D-02, 0.5145D-02,
22688 # 0.4359D-02, 0.3615D-02, 0.2946D-02, 0.2364D-02, 0.1873D-02,
22689 # 0.1468D-02, 0.1140D-02, 0.8775D-03, 0.6706D-03, 0.5093D-03,
22690 # 0.3844D-03, 0.2888D-03, 0.2159D-03, 0.1607D-03, 0.1192D-03,
22691 # 0.8805D-04, 0.6485D-04, 0.4762D-04, 0.3488D-04, 0.2547D-04,
22692 # 0.1857D-04, 0.1350D-04, 0.9792D-05, 0.7092D-05, 0.5126D-05,
22693 # 0.3699D-05/
22694
22695 data (calcpts(j,19), j = 1,neta) /0.2892D-22, 0.1104D-21,
22696 # 0.4228D-21, 0.1620D-20, 0.6209D-20, 0.2379D-19, 0.9114D-19,
22697 # 0.3492D-18, 0.1338D-17, 0.5126D-17, 0.1964D-16, 0.7522D-16,
22698 # 0.2882D-15, 0.1104D-14, 0.4228D-14, 0.1618D-13, 0.6200D-13,
22699 # 0.2373D-12, 0.9077D-12, 0.3470D-11, 0.1325D-10, 0.5052D-10,
22700 # 0.1922D-09, 0.7287D-09, 0.2744D-08, 0.1028D-07, 0.3815D-07,
22701 # 0.1394D-06, 0.4995D-06, 0.1739D-05, 0.5822D-05, 0.1850D-04,
22702 # 0.5489D-04, 0.1494D-03, 0.3666D-03, 0.7981D-03, 0.1525D-02,
22703 # 0.2552D-02, 0.3762D-02, 0.4955D-02, 0.5926D-02, 0.6543D-02,
22704 # 0.6762D-02, 0.6616D-02, 0.6188D-02, 0.5574D-02, 0.4866D-02,
22705 # 0.4140D-02, 0.3447D-02, 0.2817D-02, 0.2268D-02, 0.1802D-02,
22706 # 0.1415D-02, 0.1101D-02, 0.8490D-03, 0.6498D-03, 0.4941D-03,
22707 # 0.3735D-03, 0.2810D-03, 0.2103D-03, 0.1566D-03, 0.1163D-03,
22708 # 0.8600D-04, 0.6339D-04, 0.4659D-04, 0.3414D-04, 0.2496D-04,
22709 # 0.1820D-04, 0.1324D-04, 0.9609D-05, 0.6963D-05, 0.5036D-05,
22710 # 0.3635D-05/
22711
22712 data (calcpts(j,20), j = 1,neta) /0.1592D-22, 0.6060D-22,
22713 # 0.2321D-21, 0.8892D-21, 0.3408D-20, 0.1305D-19, 0.5001D-19,
22714 # 0.1916D-18, 0.7341D-18, 0.2813D-17, 0.1078D-16, 0.4128D-16,
22715 # 0.1581D-15, 0.6058D-15, 0.2321D-14, 0.8889D-14, 0.3404D-13,
22716 # 0.1303D-12, 0.4986D-12, 0.1907D-11, 0.7287D-11, 0.2781D-10,
22717 # 0.1060D-09, 0.4028D-09, 0.1524D-08, 0.5727D-08, 0.2139D-07,
22718 # 0.7892D-07, 0.2864D-06, 0.1015D-05, 0.3480D-05, 0.1140D-04,
22719 # 0.3512D-04, 0.9989D-04, 0.2573D-03, 0.5892D-03, 0.1183D-02,
22720 # 0.2070D-02, 0.3171D-02, 0.4304D-02, 0.5265D-02, 0.5913D-02,
22721 # 0.6189D-02, 0.6116D-02, 0.5766D-02, 0.5228D-02, 0.4590D-02,
22722 # 0.3923D-02, 0.3279D-02, 0.2690D-02, 0.2172D-02, 0.1729D-02,
22723 # 0.1362D-02, 0.1062D-02, 0.8204D-03, 0.6291D-03, 0.4791D-03,
22724 # 0.3627D-03, 0.2730D-03, 0.2046D-03, 0.1526D-03, 0.1134D-03,
22725 # 0.8394D-04, 0.6194D-04, 0.4556D-04, 0.3341D-04, 0.2443D-04,
22726 # 0.1782D-04, 0.1298D-04, 0.9426D-05, 0.6834D-05, 0.4944D-05,
22727 # 0.3572D-05/
22728
22729 data (calcpts(j,21), j = 1,neta) /0.9878D-23, 0.3747D-22,
22730 # 0.1434D-21, 0.5498D-21, 0.2108D-20, 0.8071D-20, 0.3093D-19,
22731 # 0.1185D-18, 0.4539D-18, 0.1740D-17, 0.6663D-17, 0.2553D-16,
22732 # 0.9780D-16, 0.3747D-15, 0.1435D-14, 0.5498D-14, 0.2105D-13,
22733 # 0.8060D-13, 0.3086D-12, 0.1180D-11, 0.4512D-11, 0.1724D-10,
22734 # 0.6569D-10, 0.2499D-09, 0.9476D-09, 0.3569D-08, 0.1337D-07,
22735 # 0.4960D-07, 0.1814D-06, 0.6490D-06, 0.2256D-05, 0.7524D-05,
22736 # 0.2373D-04, 0.6951D-04, 0.1854D-03, 0.4410D-03, 0.9218D-03,
22737 # 0.1677D-02, 0.2660D-02, 0.3717D-02, 0.4652D-02, 0.5315D-02,
22738 # 0.5637D-02, 0.5630D-02, 0.5352D-02, 0.4886D-02, 0.4316D-02,
22739 # 0.3706D-02, 0.3113D-02, 0.2562D-02, 0.2076D-02, 0.1658D-02,
22740 # 0.1309D-02, 0.1023D-02, 0.7917D-03, 0.6083D-03, 0.4640D-03,
22741 # 0.3518D-03, 0.2652D-03, 0.1989D-03, 0.1486D-03, 0.1105D-03,
22742 # 0.8189D-04, 0.6046D-04, 0.4451D-04, 0.3267D-04, 0.2391D-04,
22743 # 0.1746D-04, 0.1272D-04, 0.9243D-05, 0.6705D-05, 0.4854D-05,
22744 # 0.3507D-05/
22745
22746 data (calcpts(j,22), j = 1,neta) /0.7062D-23, 0.2674D-22,
22747 # 0.1023D-21, 0.3922D-21, 0.1503D-20, 0.5758D-20, 0.2206D-19,
22748 # 0.8454D-19, 0.3239D-18, 0.1241D-17, 0.4755D-17, 0.1821D-16,
22749 # 0.6978D-16, 0.2673D-15, 0.1024D-14, 0.3923D-14, 0.1501D-13,
22750 # 0.5751D-13, 0.2202D-12, 0.8422D-12, 0.3221D-11, 0.1230D-10,
22751 # 0.4690D-10, 0.1785D-09, 0.6773D-09, 0.2553D-08, 0.9576D-08,
22752 # 0.3558D-07, 0.1304D-06, 0.4683D-06, 0.1637D-05, 0.5496D-05,
22753 # 0.1751D-04, 0.5196D-04, 0.1410D-03, 0.3428D-03, 0.7349D-03,
22754 # 0.1374D-02, 0.2240D-02, 0.3207D-02, 0.4098D-02, 0.4761D-02,
22755 # 0.5115D-02, 0.5162D-02, 0.4949D-02, 0.4551D-02, 0.4044D-02,
22756 # 0.3494D-02, 0.2946D-02, 0.2436D-02, 0.1980D-02, 0.1587D-02,
22757 # 0.1256D-02, 0.9835D-03, 0.7632D-03, 0.5874D-03, 0.4490D-03,
22758 # 0.3408D-03, 0.2574D-03, 0.1933D-03, 0.1446D-03, 0.1076D-03,
22759 # 0.7983D-04, 0.5901D-04, 0.4347D-04, 0.3194D-04, 0.2339D-04,
22760 # 0.1708D-04, 0.1246D-04, 0.9060D-05, 0.6576D-05, 0.4763D-05,
22761 # 0.3444D-05/
22762
22763 data (calcpts(j,23), j = 1,neta) /0.5736D-23, 0.2175D-22,
22764 # 0.8327D-22, 0.3192D-21, 0.1223D-20, 0.4686D-20, 0.1796D-19,
22765 # 0.6879D-19, 0.2635D-18, 0.1010D-17, 0.3869D-17, 0.1482D-16,
22766 # 0.5678D-16, 0.2175D-15, 0.8331D-15, 0.3191D-14, 0.1222D-13,
22767 # 0.4680D-13, 0.1791D-12, 0.6852D-12, 0.2620D-11, 0.1001D-10,
22768 # 0.3816D-10, 0.1452D-09, 0.5510D-09, 0.2081D-08, 0.7790D-08,
22769 # 0.2894D-07, 0.1060D-06, 0.3809D-06, 0.1330D-05, 0.4469D-05,
22770 # 0.1424D-04, 0.4233D-04, 0.1152D-03, 0.2819D-03, 0.6101D-03,
22771 # 0.1156D-02, 0.1914D-02, 0.2787D-02, 0.3618D-02, 0.4260D-02,
22772 # 0.4631D-02, 0.4718D-02, 0.4562D-02, 0.4226D-02, 0.3779D-02,
22773 # 0.3282D-02, 0.2781D-02, 0.2310D-02, 0.1884D-02, 0.1515D-02,
22774 # 0.1203D-02, 0.9446D-03, 0.7346D-03, 0.5665D-03, 0.4338D-03,
22775 # 0.3300D-03, 0.2495D-03, 0.1876D-03, 0.1405D-03, 0.1047D-03,
22776 # 0.7777D-04, 0.5754D-04, 0.4244D-04, 0.3120D-04, 0.2288D-04,
22777 # 0.1672D-04, 0.1220D-04, 0.8877D-05, 0.6446D-05, 0.4672D-05,
22778 # 0.3380D-05/
22779
22780 data (calcpts(j,24), j = 1,neta) /0.5089D-23, 0.1944D-22,
22781 # 0.7445D-22, 0.2853D-21, 0.1093D-20, 0.4188D-20, 0.1605D-19,
22782 # 0.6147D-19, 0.2355D-18, 0.9023D-18, 0.3458D-17, 0.1325D-16,
22783 # 0.5074D-16, 0.1944D-15, 0.7446D-15, 0.2851D-14, 0.1092D-13,
22784 # 0.4182D-13, 0.1601D-12, 0.6123D-12, 0.2342D-11, 0.8940D-11,
22785 # 0.3409D-10, 0.1297D-09, 0.4920D-09, 0.1857D-08, 0.6951D-08,
22786 # 0.2581D-07, 0.9449D-07, 0.3390D-06, 0.1182D-05, 0.3962D-05,
22787 # 0.1259D-04, 0.3729D-04, 0.1011D-03, 0.2465D-03, 0.5325D-03,
22788 # 0.1010D-02, 0.1679D-02, 0.2462D-02, 0.3223D-02, 0.3828D-02,
22789 # 0.4196D-02, 0.4308D-02, 0.4196D-02, 0.3912D-02, 0.3521D-02,
22790 # 0.3075D-02, 0.2619D-02, 0.2184D-02, 0.1790D-02, 0.1444D-02,
22791 # 0.1150D-02, 0.9055D-03, 0.7061D-03, 0.5459D-03, 0.4188D-03,
22792 # 0.3191D-03, 0.2416D-03, 0.1821D-03, 0.1365D-03, 0.1019D-03,
22793 # 0.7572D-04, 0.5609D-04, 0.4140D-04, 0.3047D-04, 0.2235D-04,
22794 # 0.1635D-04, 0.1194D-04, 0.8694D-05, 0.6317D-05, 0.4581D-05,
22795 # 0.3317D-05/
22796
22797 data (calcpts(j,25), j = 1,neta) /0.4752D-23, 0.1836D-22,
22798 # 0.7038D-22, 0.2695D-21, 0.1032D-20, 0.3957D-20, 0.1516D-19,
22799 # 0.5808D-19, 0.2225D-18, 0.8525D-18, 0.3266D-17, 0.1251D-16,
22800 # 0.4794D-16, 0.1836D-15, 0.7035D-15, 0.2694D-14, 0.1032D-13,
22801 # 0.3951D-13, 0.1512D-12, 0.5784D-12, 0.2211D-11, 0.8445D-11,
22802 # 0.3221D-10, 0.1225D-09, 0.4647D-09, 0.1753D-08, 0.6560D-08,
22803 # 0.2435D-07, 0.8906D-07, 0.3190D-06, 0.1111D-05, 0.3716D-05,
22804 # 0.1177D-04, 0.3473D-04, 0.9371D-04, 0.2271D-03, 0.4874D-03,
22805 # 0.9189D-03, 0.1521D-02, 0.2228D-02, 0.2918D-02, 0.3474D-02,
22806 # 0.3820D-02, 0.3941D-02, 0.3857D-02, 0.3616D-02, 0.3271D-02,
22807 # 0.2874D-02, 0.2460D-02, 0.2061D-02, 0.1697D-02, 0.1374D-02,
22808 # 0.1098D-02, 0.8669D-03, 0.6777D-03, 0.5250D-03, 0.4036D-03,
22809 # 0.3082D-03, 0.2339D-03, 0.1764D-03, 0.1325D-03, 0.9899D-04,
22810 # 0.7366D-04, 0.5461D-04, 0.4037D-04, 0.2973D-04, 0.2183D-04,
22811 # 0.1599D-04, 0.1168D-04, 0.8510D-05, 0.6187D-05, 0.4491D-05,
22812 # 0.3252D-05/
22813
22814 data (calcpts(j,26), j = 1,neta) /0.4554D-23, 0.1785D-22,
22815 # 0.6852D-22, 0.2624D-21, 0.1004D-20, 0.3849D-20, 0.1475D-19,
22816 # 0.5651D-19, 0.2165D-18, 0.8293D-18, 0.3177D-17, 0.1217D-16,
22817 # 0.4664D-16, 0.1787D-15, 0.6843D-15, 0.2621D-14, 0.1004D-13,
22818 # 0.3843D-13, 0.1471D-12, 0.5628D-12, 0.2151D-11, 0.8216D-11,
22819 # 0.3132D-10, 0.1192D-09, 0.4520D-09, 0.1705D-08, 0.6378D-08,
22820 # 0.2366D-07, 0.8651D-07, 0.3097D-06, 0.1077D-05, 0.3598D-05,
22821 # 0.1137D-04, 0.3346D-04, 0.8996D-04, 0.2169D-03, 0.4628D-03,
22822 # 0.8664D-03, 0.1424D-02, 0.2072D-02, 0.2699D-02, 0.3202D-02,
22823 # 0.3516D-02, 0.3627D-02, 0.3555D-02, 0.3344D-02, 0.3038D-02,
22824 # 0.2681D-02, 0.2306D-02, 0.1941D-02, 0.1603D-02, 0.1304D-02,
22825 # 0.1045D-02, 0.8282D-03, 0.6494D-03, 0.5043D-03, 0.3887D-03,
22826 # 0.2973D-03, 0.2261D-03, 0.1709D-03, 0.1284D-03, 0.9611D-04,
22827 # 0.7161D-04, 0.5316D-04, 0.3932D-04, 0.2899D-04, 0.2132D-04,
22828 # 0.1562D-04, 0.1142D-04, 0.8327D-05, 0.6058D-05, 0.4400D-05,
22829 # 0.3189D-05/
22830
22831 data (calcpts(j,27), j = 1,neta) /0.4428D-23, 0.1761D-22,
22832 # 0.6771D-22, 0.2590D-21, 0.9912D-21, 0.3800D-20, 0.1455D-19,
22833 # 0.5577D-19, 0.2136D-18, 0.8187D-18, 0.3136D-17, 0.1202D-16,
22834 # 0.4603D-16, 0.1764D-15, 0.6754D-15, 0.2587D-14, 0.9908D-14,
22835 # 0.3794D-13, 0.1452D-12, 0.5555D-12, 0.2124D-11, 0.8109D-11,
22836 # 0.3092D-10, 0.1176D-09, 0.4459D-09, 0.1683D-08, 0.6292D-08,
22837 # 0.2334D-07, 0.8531D-07, 0.3054D-06, 0.1062D-05, 0.3543D-05,
22838 # 0.1119D-04, 0.3286D-04, 0.8811D-04, 0.2118D-03, 0.4500D-03,
22839 # 0.8382D-03, 0.1369D-02, 0.1977D-02, 0.2558D-02, 0.3014D-02,
22840 # 0.3288D-02, 0.3373D-02, 0.3299D-02, 0.3102D-02, 0.2821D-02,
22841 # 0.2498D-02, 0.2157D-02, 0.1822D-02, 0.1512D-02, 0.1234D-02,
22842 # 0.9936D-03, 0.7897D-03, 0.6210D-03, 0.4838D-03, 0.3737D-03,
22843 # 0.2865D-03, 0.2181D-03, 0.1652D-03, 0.1244D-03, 0.9323D-04,
22844 # 0.6956D-04, 0.5171D-04, 0.3828D-04, 0.2826D-04, 0.2079D-04,
22845 # 0.1525D-04, 0.1116D-04, 0.8144D-05, 0.5930D-05, 0.4309D-05,
22846 # 0.3125D-05/
22847
22848 data (calcpts(j,28), j = 1,neta) /0.4341D-23, 0.1749D-22,
22849 # 0.6735D-22, 0.2576D-21, 0.9849D-21, 0.3777D-20, 0.1447D-19,
22850 # 0.5542D-19, 0.2124D-18, 0.8136D-18, 0.3117D-17, 0.1194D-16,
22851 # 0.4575D-16, 0.1752D-15, 0.6714D-15, 0.2571D-14, 0.9848D-14,
22852 # 0.3771D-13, 0.1443D-12, 0.5520D-12, 0.2110D-11, 0.8059D-11,
22853 # 0.3072D-10, 0.1169D-09, 0.4432D-09, 0.1672D-08, 0.6254D-08,
22854 # 0.2319D-07, 0.8475D-07, 0.3033D-06, 0.1054D-05, 0.3516D-05,
22855 # 0.1110D-04, 0.3256D-04, 0.8724D-04, 0.2094D-03, 0.4437D-03,
22856 # 0.8241D-03, 0.1341D-02, 0.1926D-02, 0.2476D-02, 0.2895D-02,
22857 # 0.3132D-02, 0.3189D-02, 0.3096D-02, 0.2897D-02, 0.2631D-02,
22858 # 0.2329D-02, 0.2016D-02, 0.1710D-02, 0.1424D-02, 0.1167D-02,
22859 # 0.9424D-03, 0.7516D-03, 0.5929D-03, 0.4632D-03, 0.3587D-03,
22860 # 0.2756D-03, 0.2103D-03, 0.1596D-03, 0.1204D-03, 0.9035D-04,
22861 # 0.6752D-04, 0.5024D-04, 0.3725D-04, 0.2752D-04, 0.2026D-04,
22862 # 0.1488D-04, 0.1090D-04, 0.7960D-05, 0.5800D-05, 0.4218D-05,
22863 # 0.3062D-05/
22864
22865 data (calcpts(j,29), j = 1,neta) /0.4268D-23, 0.1743D-22,
22866 # 0.6717D-22, 0.2568D-21, 0.9821D-21, 0.3767D-20, 0.1443D-19,
22867 # 0.5527D-19, 0.2118D-18, 0.8114D-18, 0.3108D-17, 0.1191D-16,
22868 # 0.4561D-16, 0.1748D-15, 0.6694D-15, 0.2563D-14, 0.9819D-14,
22869 # 0.3759D-13, 0.1439D-12, 0.5505D-12, 0.2105D-11, 0.8036D-11,
22870 # 0.3065D-10, 0.1166D-09, 0.4419D-09, 0.1668D-08, 0.6236D-08,
22871 # 0.2312D-07, 0.8450D-07, 0.3024D-06, 0.1051D-05, 0.3504D-05,
22872 # 0.1106D-04, 0.3243D-04, 0.8684D-04, 0.2082D-03, 0.4409D-03,
22873 # 0.8175D-03, 0.1328D-02, 0.1902D-02, 0.2436D-02, 0.2834D-02,
22874 # 0.3042D-02, 0.3069D-02, 0.2950D-02, 0.2738D-02, 0.2472D-02,
22875 # 0.2181D-02, 0.1887D-02, 0.1603D-02, 0.1339D-02, 0.1101D-02,
22876 # 0.8922D-03, 0.7140D-03, 0.5650D-03, 0.4426D-03, 0.3436D-03,
22877 # 0.2648D-03, 0.2025D-03, 0.1539D-03, 0.1163D-03, 0.8747D-04,
22878 # 0.6546D-04, 0.4878D-04, 0.3621D-04, 0.2678D-04, 0.1974D-04,
22879 # 0.1451D-04, 0.1064D-04, 0.7777D-05, 0.5671D-05, 0.4128D-05,
22880 # 0.2997D-05/
22881
22882 data (calcpts(j,30), j = 1,neta) /0.4237D-23, 0.1740D-22,
22883 # 0.6711D-22, 0.2565D-21, 0.9807D-21, 0.3762D-20, 0.1441D-19,
22884 # 0.5520D-19, 0.2115D-18, 0.8103D-18, 0.3105D-17, 0.1189D-16,
22885 # 0.4556D-16, 0.1746D-15, 0.6686D-15, 0.2561D-14, 0.9807D-14,
22886 # 0.3755D-13, 0.1437D-12, 0.5498D-12, 0.2102D-11, 0.8025D-11,
22887 # 0.3060D-10, 0.1164D-09, 0.4413D-09, 0.1665D-08, 0.6227D-08,
22888 # 0.2309D-07, 0.8437D-07, 0.3020D-06, 0.1049D-05, 0.3498D-05,
22889 # 0.1104D-04, 0.3237D-04, 0.8664D-04, 0.2078D-03, 0.4397D-03,
22890 # 0.8148D-03, 0.1323D-02, 0.1893D-02, 0.2421D-02, 0.2808D-02,
22891 # 0.3002D-02, 0.3006D-02, 0.2862D-02, 0.2626D-02, 0.2349D-02,
22892 # 0.2058D-02, 0.1775D-02, 0.1506D-02, 0.1259D-02, 0.1037D-02,
22893 # 0.8433D-03, 0.6771D-03, 0.5374D-03, 0.4224D-03, 0.3289D-03,
22894 # 0.2540D-03, 0.1947D-03, 0.1483D-03, 0.1123D-03, 0.8458D-04,
22895 # 0.6341D-04, 0.4733D-04, 0.3518D-04, 0.2604D-04, 0.1923D-04,
22896 # 0.1414D-04, 0.1038D-04, 0.7594D-05, 0.5542D-05, 0.4037D-05,
22897 # 0.2932D-05/
22898
22899 data (calcpts(j,31), j = 1,neta) /0.4208D-23, 0.1743D-22,
22900 # 0.6705D-22, 0.2565D-21, 0.9801D-21, 0.3759D-20, 0.1440D-19,
22901 # 0.5517D-19, 0.2113D-18, 0.8097D-18, 0.3102D-17, 0.1189D-16,
22902 # 0.4554D-16, 0.1745D-15, 0.6681D-15, 0.2559D-14, 0.9801D-14,
22903 # 0.3753D-13, 0.1436D-12, 0.5495D-12, 0.2100D-11, 0.8020D-11,
22904 # 0.3059D-10, 0.1163D-09, 0.4410D-09, 0.1664D-08, 0.6222D-08,
22905 # 0.2307D-07, 0.8433D-07, 0.3018D-06, 0.1048D-05, 0.3495D-05,
22906 # 0.1103D-04, 0.3234D-04, 0.8656D-04, 0.2075D-03, 0.4392D-03,
22907 # 0.8139D-03, 0.1321D-02, 0.1891D-02, 0.2420D-02, 0.2805D-02,
22908 # 0.2994D-02, 0.2985D-02, 0.2823D-02, 0.2565D-02, 0.2267D-02,
22909 # 0.1966D-02, 0.1682D-02, 0.1420D-02, 0.1185D-02, 0.9775D-03,
22910 # 0.7964D-03, 0.6411D-03, 0.5104D-03, 0.4023D-03, 0.3143D-03,
22911 # 0.2433D-03, 0.1870D-03, 0.1427D-03, 0.1083D-03, 0.8172D-04,
22912 # 0.6135D-04, 0.4586D-04, 0.3414D-04, 0.2530D-04, 0.1871D-04,
22913 # 0.1378D-04, 0.1012D-04, 0.7412D-05, 0.5414D-05, 0.3947D-05,
22914 # 0.2870D-05/
22915
22916 data (calcpts(j,32), j = 1,neta) /0.4152D-23, 0.1735D-22,
22917 # 0.6717D-22, 0.2562D-21, 0.9799D-21, 0.3757D-20, 0.1439D-19,
22918 # 0.5514D-19, 0.2113D-18, 0.8095D-18, 0.3102D-17, 0.1188D-16,
22919 # 0.4552D-16, 0.1745D-15, 0.6679D-15, 0.2559D-14, 0.9798D-14,
22920 # 0.3751D-13, 0.1436D-12, 0.5493D-12, 0.2100D-11, 0.8017D-11,
22921 # 0.3057D-10, 0.1163D-09, 0.4410D-09, 0.1664D-08, 0.6221D-08,
22922 # 0.2307D-07, 0.8430D-07, 0.3017D-06, 0.1048D-05, 0.3495D-05,
22923 # 0.1102D-04, 0.3234D-04, 0.8652D-04, 0.2075D-03, 0.4389D-03,
22924 # 0.8138D-03, 0.1321D-02, 0.1893D-02, 0.2423D-02, 0.2812D-02,
22925 # 0.3003D-02, 0.2994D-02, 0.2821D-02, 0.2546D-02, 0.2226D-02,
22926 # 0.1906D-02, 0.1613D-02, 0.1350D-02, 0.1121D-02, 0.9229D-03,
22927 # 0.7521D-03, 0.6066D-03, 0.4842D-03, 0.3826D-03, 0.2997D-03,
22928 # 0.2326D-03, 0.1792D-03, 0.1372D-03, 0.1043D-03, 0.7885D-04,
22929 # 0.5931D-04, 0.4440D-04, 0.3311D-04, 0.2457D-04, 0.1818D-04,
22930 # 0.1341D-04, 0.9858D-05, 0.7227D-05, 0.5284D-05, 0.3855D-05,
22931 # 0.2805D-05/
22932
22933 data (calcpts(j,33), j = 1,neta) /0.4175D-23, 0.1735D-22,
22934 # 0.6707D-22, 0.2565D-21, 0.9798D-21, 0.3757D-20, 0.1439D-19,
22935 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
22936 # 0.4551D-16, 0.1743D-15, 0.6679D-15, 0.2558D-14, 0.9797D-14,
22937 # 0.3751D-13, 0.1436D-12, 0.5492D-12, 0.2100D-11, 0.8017D-11,
22938 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
22939 # 0.2307D-07, 0.8429D-07, 0.3017D-06, 0.1048D-05, 0.3494D-05,
22940 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4389D-03,
22941 # 0.8139D-03, 0.1322D-02, 0.1895D-02, 0.2428D-02, 0.2823D-02,
22942 # 0.3020D-02, 0.3015D-02, 0.2841D-02, 0.2556D-02, 0.2220D-02,
22943 # 0.1881D-02, 0.1571D-02, 0.1300D-02, 0.1070D-02, 0.8756D-03,
22944 # 0.7119D-03, 0.5740D-03, 0.4589D-03, 0.3634D-03, 0.2853D-03,
22945 # 0.2222D-03, 0.1716D-03, 0.1316D-03, 0.1003D-03, 0.7599D-04,
22946 # 0.5727D-04, 0.4295D-04, 0.3207D-04, 0.2385D-04, 0.1767D-04,
22947 # 0.1304D-04, 0.9599D-05, 0.7044D-05, 0.5156D-05, 0.3764D-05,
22948 # 0.2742D-05/
22949
22950 data (calcpts(j,34), j = 1,neta) /0.4158D-23, 0.1734D-22,
22951 # 0.6731D-22, 0.2564D-21, 0.9796D-21, 0.3757D-20, 0.1439D-19,
22952 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
22953 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9797D-14,
22954 # 0.3750D-13, 0.1436D-12, 0.5492D-12, 0.2100D-11, 0.8016D-11,
22955 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
22956 # 0.2307D-07, 0.8429D-07, 0.3017D-06, 0.1048D-05, 0.3494D-05,
22957 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
22958 # 0.8140D-03, 0.1323D-02, 0.1898D-02, 0.2433D-02, 0.2834D-02,
22959 # 0.3038D-02, 0.3039D-02, 0.2871D-02, 0.2585D-02, 0.2240D-02,
22960 # 0.1886D-02, 0.1556D-02, 0.1271D-02, 0.1033D-02, 0.8375D-03,
22961 # 0.6769D-03, 0.5445D-03, 0.4352D-03, 0.3452D-03, 0.2715D-03,
22962 # 0.2118D-03, 0.1641D-03, 0.1261D-03, 0.9634D-04, 0.7314D-04,
22963 # 0.5523D-04, 0.4149D-04, 0.3104D-04, 0.2312D-04, 0.1715D-04,
22964 # 0.1267D-04, 0.9339D-05, 0.6861D-05, 0.5027D-05, 0.3674D-05,
22965 # 0.2677D-05/
22966
22967 data (calcpts(j,35), j = 1,neta) /0.4069D-23, 0.1734D-22,
22968 # 0.6731D-22, 0.2564D-21, 0.9805D-21, 0.3757D-20, 0.1439D-19,
22969 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
22970 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
22971 # 0.3750D-13, 0.1436D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
22972 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
22973 # 0.2307D-07, 0.8427D-07, 0.3017D-06, 0.1048D-05, 0.3494D-05,
22974 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
22975 # 0.8142D-03, 0.1323D-02, 0.1899D-02, 0.2438D-02, 0.2841D-02,
22976 # 0.3053D-02, 0.3063D-02, 0.2903D-02, 0.2620D-02, 0.2272D-02,
22977 # 0.1910D-02, 0.1565D-02, 0.1264D-02, 0.1013D-02, 0.8111D-03,
22978 # 0.6492D-03, 0.5190D-03, 0.4135D-03, 0.3278D-03, 0.2582D-03,
22979 # 0.2018D-03, 0.1566D-03, 0.1207D-03, 0.9242D-04, 0.7031D-04,
22980 # 0.5321D-04, 0.4004D-04, 0.3000D-04, 0.2238D-04, 0.1662D-04,
22981 # 0.1231D-04, 0.9080D-05, 0.6678D-05, 0.4898D-05, 0.3582D-05,
22982 # 0.2615D-05/
22983
22984 data (calcpts(j,36), j = 1,neta) /0.4145D-23, 0.1776D-22,
22985 # 0.6732D-22, 0.2571D-21, 0.9791D-21, 0.3755D-20, 0.1439D-19,
22986 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
22987 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
22988 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
22989 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
22990 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
22991 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
22992 # 0.8144D-03, 0.1324D-02, 0.1901D-02, 0.2441D-02, 0.2849D-02,
22993 # 0.3065D-02, 0.3083D-02, 0.2930D-02, 0.2655D-02, 0.2311D-02,
22994 # 0.1944D-02, 0.1590D-02, 0.1275D-02, 0.1011D-02, 0.7981D-03,
22995 # 0.6305D-03, 0.4989D-03, 0.3950D-03, 0.3122D-03, 0.2456D-03,
22996 # 0.1922D-03, 0.1494D-03, 0.1154D-03, 0.8852D-04, 0.6750D-04,
22997 # 0.5118D-04, 0.3859D-04, 0.2897D-04, 0.2165D-04, 0.1611D-04,
22998 # 0.1194D-04, 0.8820D-05, 0.6495D-05, 0.4769D-05, 0.3492D-05,
22999 # 0.2550D-05/
23000
23001 data (calcpts(j,37), j = 1,neta) /0.4138D-23, 0.1734D-22,
23002 # 0.6732D-22, 0.2570D-21, 0.9789D-21, 0.3757D-20, 0.1439D-19,
23003 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23004 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23005 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23006 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23007 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23008 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
23009 # 0.8145D-03, 0.1324D-02, 0.1902D-02, 0.2443D-02, 0.2853D-02,
23010 # 0.3074D-02, 0.3097D-02, 0.2952D-02, 0.2685D-02, 0.2348D-02,
23011 # 0.1982D-02, 0.1625D-02, 0.1301D-02, 0.1024D-02, 0.7987D-03,
23012 # 0.6221D-03, 0.4856D-03, 0.3806D-03, 0.2987D-03, 0.2343D-03,
23013 # 0.1832D-03, 0.1425D-03, 0.1102D-03, 0.8471D-04, 0.6473D-04,
23014 # 0.4917D-04, 0.3716D-04, 0.2795D-04, 0.2091D-04, 0.1559D-04,
23015 # 0.1157D-04, 0.8561D-05, 0.6312D-05, 0.4640D-05, 0.3402D-05,
23016 # 0.2487D-05/
23017
23018 data (calcpts(j,38), j = 1,neta) /0.3888D-23, 0.1774D-22,
23019 # 0.6732D-22, 0.2554D-21, 0.9805D-21, 0.3757D-20, 0.1439D-19,
23020 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23021 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23022 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23023 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23024 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23025 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
23026 # 0.8145D-03, 0.1324D-02, 0.1902D-02, 0.2445D-02, 0.2858D-02,
23027 # 0.3081D-02, 0.3110D-02, 0.2970D-02, 0.2709D-02, 0.2378D-02,
23028 # 0.2016D-02, 0.1661D-02, 0.1332D-02, 0.1047D-02, 0.8111D-03,
23029 # 0.6242D-03, 0.4803D-03, 0.3712D-03, 0.2883D-03, 0.2246D-03,
23030 # 0.1749D-03, 0.1360D-03, 0.1052D-03, 0.8099D-04, 0.6200D-04,
23031 # 0.4719D-04, 0.3573D-04, 0.2693D-04, 0.2019D-04, 0.1508D-04,
23032 # 0.1121D-04, 0.8303D-05, 0.6129D-05, 0.4512D-05, 0.3311D-05,
23033 # 0.2423D-05/
23034
23035 data (calcpts(j,39), j = 1,neta) /0.3883D-23, 0.1724D-22,
23036 # 0.6732D-22, 0.2544D-21, 0.9805D-21, 0.3756D-20, 0.1439D-19,
23037 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23038 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23039 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23040 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23041 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23042 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
23043 # 0.8147D-03, 0.1325D-02, 0.1904D-02, 0.2446D-02, 0.2859D-02,
23044 # 0.3085D-02, 0.3117D-02, 0.2982D-02, 0.2729D-02, 0.2401D-02,
23045 # 0.2046D-02, 0.1694D-02, 0.1365D-02, 0.1075D-02, 0.8318D-03,
23046 # 0.6356D-03, 0.4832D-03, 0.3680D-03, 0.2819D-03, 0.2172D-03,
23047 # 0.1680D-03, 0.1301D-03, 0.1005D-03, 0.7742D-04, 0.5934D-04,
23048 # 0.4526D-04, 0.3432D-04, 0.2591D-04, 0.1947D-04, 0.1456D-04,
23049 # 0.1084D-04, 0.8043D-05, 0.5948D-05, 0.4383D-05, 0.3220D-05,
23050 # 0.2360D-05/
23051
23052 data (calcpts(j,40), j = 1,neta) /0.4569D-23, 0.1774D-22,
23053 # 0.6616D-22, 0.2544D-21, 0.9809D-21, 0.3756D-20, 0.1439D-19,
23054 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23055 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23056 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23057 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23058 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23059 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4391D-03,
23060 # 0.8147D-03, 0.1325D-02, 0.1904D-02, 0.2448D-02, 0.2862D-02,
23061 # 0.3089D-02, 0.3123D-02, 0.2993D-02, 0.2742D-02, 0.2420D-02,
23062 # 0.2069D-02, 0.1721D-02, 0.1394D-02, 0.1104D-02, 0.8562D-03,
23063 # 0.6533D-03, 0.4932D-03, 0.3709D-03, 0.2799D-03, 0.2127D-03,
23064 # 0.1627D-03, 0.1251D-03, 0.9633D-04, 0.7409D-04, 0.5679D-04,
23065 # 0.4335D-04, 0.3294D-04, 0.2491D-04, 0.1875D-04, 0.1404D-04,
23066 # 0.1048D-04, 0.7787D-05, 0.5764D-05, 0.4254D-05, 0.3129D-05,
23067 # 0.2295D-05/
23068
23069 data (calcpts(j,41), j = 1,neta) /0.4535D-23, 0.1701D-22,
23070 # 0.6738D-22, 0.2558D-21, 0.9793D-21, 0.3755D-20, 0.1439D-19,
23071 # 0.5514D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23072 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23073 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23074 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23075 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23076 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23077 # 0.8147D-03, 0.1325D-02, 0.1904D-02, 0.2448D-02, 0.2862D-02,
23078 # 0.3092D-02, 0.3128D-02, 0.2998D-02, 0.2751D-02, 0.2433D-02,
23079 # 0.2087D-02, 0.1741D-02, 0.1418D-02, 0.1129D-02, 0.8806D-03,
23080 # 0.6739D-03, 0.5081D-03, 0.3795D-03, 0.2829D-03, 0.2117D-03,
23081 # 0.1596D-03, 0.1214D-03, 0.9278D-04, 0.7107D-04, 0.5441D-04,
23082 # 0.4154D-04, 0.3159D-04, 0.2393D-04, 0.1803D-04, 0.1354D-04,
23083 # 0.1011D-04, 0.7529D-05, 0.5583D-05, 0.4125D-05, 0.3039D-05,
23084 # 0.2232D-05/
23085
23086 data (calcpts(j,42), j = 1,neta) /0.5008D-23, 0.1776D-22,
23087 # 0.6751D-22, 0.2558D-21, 0.9809D-21, 0.3755D-20, 0.1439D-19,
23088 # 0.5514D-19, 0.2112D-18, 0.8092D-18, 0.3100D-17, 0.1188D-16,
23089 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23090 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23091 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23092 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23093 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23094 # 0.8147D-03, 0.1325D-02, 0.1904D-02, 0.2448D-02, 0.2864D-02,
23095 # 0.3093D-02, 0.3131D-02, 0.3003D-02, 0.2757D-02, 0.2443D-02,
23096 # 0.2100D-02, 0.1758D-02, 0.1437D-02, 0.1151D-02, 0.9024D-03,
23097 # 0.6945D-03, 0.5253D-03, 0.3918D-03, 0.2900D-03, 0.2144D-03,
23098 # 0.1592D-03, 0.1193D-03, 0.9015D-04, 0.6855D-04, 0.5228D-04,
23099 # 0.3984D-04, 0.3030D-04, 0.2297D-04, 0.1734D-04, 0.1303D-04,
23100 # 0.9756D-05, 0.7273D-05, 0.5401D-05, 0.3998D-05, 0.2949D-05,
23101 # 0.2169D-05/
23102
23103 data (calcpts(j,43), j = 1,neta) /0.4451D-23, 0.1773D-22,
23104 # 0.6620D-22, 0.2545D-21, 0.9812D-21, 0.3755D-20, 0.1439D-19,
23105 # 0.5513D-19, 0.2112D-18, 0.8094D-18, 0.3100D-17, 0.1188D-16,
23106 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23107 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23108 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23109 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23110 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23111 # 0.8147D-03, 0.1325D-02, 0.1904D-02, 0.2448D-02, 0.2864D-02,
23112 # 0.3095D-02, 0.3132D-02, 0.3006D-02, 0.2763D-02, 0.2449D-02,
23113 # 0.2109D-02, 0.1769D-02, 0.1451D-02, 0.1167D-02, 0.9204D-03,
23114 # 0.7127D-03, 0.5421D-03, 0.4059D-03, 0.3000D-03, 0.2200D-03,
23115 # 0.1614D-03, 0.1191D-03, 0.8873D-04, 0.6671D-04, 0.5048D-04,
23116 # 0.3833D-04, 0.2910D-04, 0.2205D-04, 0.1667D-04, 0.1254D-04,
23117 # 0.9401D-05, 0.7020D-05, 0.5222D-05, 0.3870D-05, 0.2859D-05,
23118 # 0.2105D-05/
23119
23120 data (calcpts(j,44), j = 1,neta) /0.4536D-23, 0.1766D-22,
23121 # 0.6613D-22, 0.2562D-21, 0.9802D-21, 0.3755D-20, 0.1439D-19,
23122 # 0.5513D-19, 0.2112D-18, 0.8095D-18, 0.3102D-17, 0.1188D-16,
23123 # 0.4551D-16, 0.1743D-15, 0.6678D-15, 0.2558D-14, 0.9795D-14,
23124 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23125 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23126 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23127 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23128 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23129 # 0.3095D-02, 0.3134D-02, 0.3008D-02, 0.2766D-02, 0.2454D-02,
23130 # 0.2115D-02, 0.1777D-02, 0.1462D-02, 0.1179D-02, 0.9344D-03,
23131 # 0.7277D-03, 0.5571D-03, 0.4196D-03, 0.3113D-03, 0.2282D-03,
23132 # 0.1661D-03, 0.1210D-03, 0.8875D-04, 0.6575D-04, 0.4919D-04,
23133 # 0.3705D-04, 0.2802D-04, 0.2120D-04, 0.1601D-04, 0.1206D-04,
23134 # 0.9053D-05, 0.6770D-05, 0.5043D-05, 0.3742D-05, 0.2769D-05,
23135 # 0.2042D-05/
23136
23137 data (calcpts(j,45), j = 1,neta) /0.4531D-23, 0.1743D-22,
23138 # 0.6650D-22, 0.2545D-21, 0.9850D-21, 0.3771D-20, 0.1438D-19,
23139 # 0.5526D-19, 0.2116D-18, 0.8094D-18, 0.3104D-17, 0.1188D-16,
23140 # 0.4551D-16, 0.1743D-15, 0.6679D-15, 0.2558D-14, 0.9795D-14,
23141 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23142 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23143 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23144 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23145 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23146 # 0.3096D-02, 0.3135D-02, 0.3009D-02, 0.2768D-02, 0.2457D-02,
23147 # 0.2120D-02, 0.1783D-02, 0.1469D-02, 0.1188D-02, 0.9449D-03,
23148 # 0.7394D-03, 0.5694D-03, 0.4317D-03, 0.3222D-03, 0.2370D-03,
23149 # 0.1725D-03, 0.1247D-03, 0.9030D-04, 0.6587D-04, 0.4854D-04,
23150 # 0.3615D-04, 0.2712D-04, 0.2043D-04, 0.1541D-04, 0.1160D-04,
23151 # 0.8714D-05, 0.6524D-05, 0.4866D-05, 0.3617D-05, 0.2679D-05,
23152 # 0.1979D-05/
23153
23154 data (calcpts(j,46), j = 1,neta) /0.4427D-23, 0.1749D-22,
23155 # 0.6682D-22, 0.2549D-21, 0.9752D-21, 0.3768D-20, 0.1432D-19,
23156 # 0.5490D-19, 0.2113D-18, 0.8091D-18, 0.3100D-17, 0.1188D-16,
23157 # 0.4550D-16, 0.1743D-15, 0.6677D-15, 0.2558D-14, 0.9795D-14,
23158 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23159 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23160 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23161 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23162 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23163 # 0.3096D-02, 0.3135D-02, 0.3011D-02, 0.2769D-02, 0.2460D-02,
23164 # 0.2122D-02, 0.1787D-02, 0.1474D-02, 0.1195D-02, 0.9525D-03,
23165 # 0.7480D-03, 0.5790D-03, 0.4416D-03, 0.3318D-03, 0.2457D-03,
23166 # 0.1794D-03, 0.1297D-03, 0.9321D-04, 0.6711D-04, 0.4869D-04,
23167 # 0.3573D-04, 0.2649D-04, 0.1980D-04, 0.1487D-04, 0.1117D-04,
23168 # 0.8388D-05, 0.6284D-05, 0.4692D-05, 0.3492D-05, 0.2591D-05,
23169 # 0.1916D-05/
23170
23171 data (calcpts(j,47), j = 1,neta) /0.4376D-23, 0.1851D-22,
23172 # 0.6717D-22, 0.2583D-21, 0.1000D-20, 0.3750D-20, 0.1439D-19,
23173 # 0.5514D-19, 0.2121D-18, 0.8097D-18, 0.3111D-17, 0.1190D-16,
23174 # 0.4551D-16, 0.1743D-15, 0.6681D-15, 0.2559D-14, 0.9798D-14,
23175 # 0.3750D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23176 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23177 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23178 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23179 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23180 # 0.3096D-02, 0.3135D-02, 0.3012D-02, 0.2771D-02, 0.2462D-02,
23181 # 0.2124D-02, 0.1790D-02, 0.1478D-02, 0.1199D-02, 0.9579D-03,
23182 # 0.7544D-03, 0.5861D-03, 0.4492D-03, 0.3398D-03, 0.2534D-03,
23183 # 0.1863D-03, 0.1351D-03, 0.9705D-04, 0.6938D-04, 0.4968D-04,
23184 # 0.3588D-04, 0.2621D-04, 0.1937D-04, 0.1442D-04, 0.1079D-04,
23185 # 0.8087D-05, 0.6054D-05, 0.4524D-05, 0.3371D-05, 0.2504D-05,
23186 # 0.1854D-05/
23187
23188 data (calcpts(j,48), j = 1,neta) /0.5678D-23, 0.1891D-22,
23189 # 0.7606D-22, 0.2568D-21, 0.9618D-21, 0.3826D-20, 0.1455D-19,
23190 # 0.5600D-19, 0.2135D-18, 0.8070D-18, 0.3093D-17, 0.1190D-16,
23191 # 0.4561D-16, 0.1745D-15, 0.6681D-15, 0.2561D-14, 0.9801D-14,
23192 # 0.3751D-13, 0.1436D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23193 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23194 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23195 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23196 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23197 # 0.3096D-02, 0.3135D-02, 0.3012D-02, 0.2772D-02, 0.2463D-02,
23198 # 0.2125D-02, 0.1792D-02, 0.1481D-02, 0.1202D-02, 0.9617D-03,
23199 # 0.7589D-03, 0.5913D-03, 0.4551D-03, 0.3459D-03, 0.2597D-03,
23200 # 0.1923D-03, 0.1404D-03, 0.1013D-03, 0.7233D-04, 0.5142D-04,
23201 # 0.3666D-04, 0.2636D-04, 0.1919D-04, 0.1412D-04, 0.1048D-04,
23202 # 0.7817D-05, 0.5841D-05, 0.4362D-05, 0.3252D-05, 0.2418D-05,
23203 # 0.1792D-05/
23204
23205 data (calcpts(j,49), j = 1,neta) /0.3773D-23, 0.1720D-22,
23206 # 0.6603D-22, 0.2522D-21, 0.1040D-20, 0.3992D-20, 0.1503D-19,
23207 # 0.5605D-19, 0.2113D-18, 0.8140D-18, 0.3115D-17, 0.1187D-16,
23208 # 0.4551D-16, 0.1745D-15, 0.6692D-15, 0.2561D-14, 0.9800D-14,
23209 # 0.3749D-13, 0.1435D-12, 0.5492D-12, 0.2098D-11, 0.8016D-11,
23210 # 0.3057D-10, 0.1163D-09, 0.4408D-09, 0.1664D-08, 0.6219D-08,
23211 # 0.2306D-07, 0.8427D-07, 0.3015D-06, 0.1048D-05, 0.3494D-05,
23212 # 0.1102D-04, 0.3232D-04, 0.8651D-04, 0.2075D-03, 0.4392D-03,
23213 # 0.8148D-03, 0.1325D-02, 0.1904D-02, 0.2449D-02, 0.2865D-02,
23214 # 0.3096D-02, 0.3136D-02, 0.3012D-02, 0.2772D-02, 0.2463D-02,
23215 # 0.2127D-02, 0.1792D-02, 0.1482D-02, 0.1204D-02, 0.9644D-03,
23216 # 0.7620D-03, 0.5949D-03, 0.4593D-03, 0.3505D-03, 0.2645D-03,
23217 # 0.1971D-03, 0.1451D-03, 0.1054D-03, 0.7557D-04, 0.5369D-04,
23218 # 0.3800D-04, 0.2695D-04, 0.1931D-04, 0.1400D-04, 0.1027D-04,
23219 # 0.7599D-05, 0.5652D-05, 0.4212D-05, 0.3138D-05, 0.2334D-05,
23220 # 0.1731D-05/
23221
23222 data (dlaeta(j), j = 1,neta) /
23223 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
23224 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
23225 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
23226 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
23227 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
23228 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
23229 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
23230 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
23231 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
23232 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
23233 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
23234 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
23235 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
23236 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
23237 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
23238
23239 data (dlaxi(j), j = 1,nxi) /
23240 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
23241 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
23242 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
23243 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
23244 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
23245 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
23246 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
23247 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
23248 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
23249 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
23250
23251 dleta = dlog10(eta)
23252 dlxi = dlog10(xi)
23253 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
23254 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
23255 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
23256 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
23257 call locate(dlaeta,neta, dleta, ieta)
23258 call locate(dlaxi, nxi, dlxi, ixi)
23259c interpolating between the appropriate points
23260 delxi = 1d0/6d0
23261 deleta = 1d0/6d0
23262c lagrange 3-pt.
23263 if (ixi .le. 2) ixi = 2
23264 if (ixi .ge. 48) ixi = 48
23265 if (ieta .le. 2) ieta = 2
23266 if (ieta .ge. 72) ieta = 72
23267 pxi = (dlxi - dlaxi(ixi))/delxi
23268 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
23269 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
23270 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
23271 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
23272 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
23273 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
23274 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
23275 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
23276 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
23277 peta = (dleta - dlaeta(ieta))/deleta
23278 h1_LTq = peta*(peta-1d0)/2d0*f(-1) +
23279 # (1d0 - peta**2)*f(0) +
23280CMB # + peta*(peta+1d0)/2d0*f(1)
23281 # peta*(peta+1d0)/2d0*f(1)
23282 return
23283 end
23284
23285c ===========================================
23286 double precision function h1bar_LTq(eta,xi)
23287c ===========================================
23288
23289c eq (29) in PLB347 (1995) 143 - 151 only necessary for the
23290c transverse piece
23291c MSbar scheme
23292c This routine is called subd1bar in the original code.
23293c Gives h1bar_LTq for Q2 < 1.5 GeV2 ( = 0 for Q2 > 1.5 GeV2)
23294
23295 implicit none
23296 integer neta, nxi
23297 parameter (neta = 45, nxi = 15)
23298 double precision calcpts(neta,nxi), aeta(neta), axi(nxi)
23299 double precision t, u, y1, y2, y3, y4
23300 double precision eta, xi, huge, small
23301 parameter (small = 1.d-8, huge = 1.d10)
23302 integer j, ieta, ixi
23303
23304 data (calcpts(j, 1), j=1,neta) /0.d0, -.3403d-06, -.1758d-05,
23305 # -.3760d-05, -.6194d-05, -.8975d-05, -.1049d-04, -.5149d-04,
23306 # -.1049d-03, -.1646d-03, -.2276d-03, -.2598d-03, -.5753d-03,
23307 # -.8478d-03, -.1068d-02, -.1242d-02, -.1380d-02, -.1488d-02,
23308 # -.1572d-02, -.1640d-02, -.1694d-02, -.1856d-02, -.1816d-02,
23309 # -.1742d-02, -.1662d-02, -.1589d-02, -.1518d-02, -.1453d-02,
23310 # -.1395d-02, -.1342d-02, -.7865d-03, -.5766d-03, -.4622d-03,
23311 # -.3897d-03, -.3617d-03, -.2181d-03, -.1602d-03, -.1070d-03,
23312 # -.8177d-04, -.6665d-04, -.6109d-04, -.1574d-04, -.8655d-05,
23313 # -.1086d-05, 0.d0/
23314c
23315 data (calcpts(j, 2), j=1,neta) /0.d0, -.2178d-06, -.1125d-05,
23316 # -.2409d-05, -.3966d-05, -.5751d-05, -.6717d-05, -.3299d-04,
23317 # -.6719d-04, -.1055d-03, -.1459d-03, -.1665d-03, -.3694d-03,
23318 # -.5449d-03, -.6870d-03, -.8000d-03, -.8888d-03, -.9588d-03,
23319 # -.1014d-02, -.1057d-02, -.1091d-02, -.1199d-02, -.1175d-02,
23320 # -.1127d-02, -.1077d-02, -.1028d-02, -.9830d-03, -.9422d-03,
23321 # -.9041d-03, -.8688d-03, -.5103d-03, -.3741d-03, -.3000d-03,
23322 # -.2528d-03, -.2346d-03, -.1416d-03, -.1039d-03, -.6963d-04,
23323 # -.5295d-04, -.4317d-04, -.3972d-04, -.1017d-04, -.5610d-05,
23324 # -.7188d-06, 0.d0/
23325c
23326 data (calcpts(j, 3), j=1,neta) /0.d0, -.5322d-07, -.2750d-06,
23327 # -.5883d-06, -.9690d-06, -.1405d-05, -.1641d-05, -.8070d-05,
23328 # -.1646d-04, -.2586d-04, -.3580d-04, -.4088d-04, -.9104d-04,
23329 # -.1346d-03, -.1703d-03, -.1986d-03, -.2209d-03, -.2388d-03,
23330 # -.2528d-03, -.2639d-03, -.2727d-03, -.3014d-03, -.2961d-03,
23331 # -.2847d-03, -.2724d-03, -.2604d-03, -.2490d-03, -.2386d-03,
23332 # -.2292d-03, -.2205d-03, -.1297d-03, -.9522d-04, -.7638d-04,
23333 # -.6429d-04, -.5973d-04, -.3603d-04, -.2641d-04, -.1768d-04,
23334 # -.1350d-04, -.1100d-04, -.1009d-04, -.2613d-05, -.1420d-05,
23335 # -.1778d-06, 0.d0/
23336c
23337 data (calcpts(j, 4), j=1,neta) /0.d0, -.6204d-09, -.3207d-08,
23338 # -.6865d-08, -.1131d-07, -.1639d-07, -.1916d-07, -.9449d-07,
23339 # -.1932d-06, -.3045d-06, -.4228d-06, -.4833d-06, -.1088d-05,
23340 # -.1624d-05, -.2069d-05, -.2429d-05, -.2718d-05, -.2949d-05,
23341 # -.3135d-05, -.3284d-05, -.3403d-05, -.3831d-05, -.3800d-05,
23342 # -.3674d-05, -.3528d-05, -.3381d-05, -.3245d-05, -.3114d-05,
23343 # -.2995d-05, -.2883d-05, -.1710d-05, -.1256d-05, -.1010d-05,
23344 # -.8503d-06, -.7902d-06, -.4776d-06, -.3498d-06, -.2352d-06,
23345 # -.1790d-06, -.1461d-06, -.1337d-06, -.3444d-07, -.1883d-07,
23346 # -.2382d-08, 0.d0/
23347c
23348 data (calcpts(j, 5), j=1,neta) /0.d0, -.4968d-15, -.2571d-14,
23349 # -.5505d-14, -.9076d-14, -.1318d-13, -.1541d-13, -.7657d-13,
23350 # -.1578d-12, -.2505d-12, -.3500d-12, -.4016d-12, -.9316d-12,
23351 # -.1425d-11, -.1853d-11, -.2212d-11, -.2511d-11, -.2759d-11,
23352 # -.2965d-11, -.3137d-11, -.3279d-11, -.3888d-11, -.3960d-11,
23353 # -.3893d-11, -.3784d-11, -.3660d-11, -.3535d-11, -.3412d-11,
23354 # -.3296d-11, -.3187d-11, -.1940d-11, -.1433d-11, -.1153d-11,
23355 # -.9740d-12, -.9041d-12, -.5475d-12, -.4023d-12, -.2694d-12,
23356 # -.2056d-12, -.1677d-12, -.1536d-12, -.3957d-13, -.2160d-13,
23357 # -.2823d-14, 0.d0/
23358c
23359 data (calcpts(j, 6), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23360 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23361 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23362 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23363 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23364 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23365 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23366 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23367 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23368 # 0.0000d+00, 0.d0/
23369c
23370 data (calcpts(j, 7), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23371 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23372 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23373 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23374 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23375 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23376 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23377 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23378 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23379 # 0.0000d+00, 0.d0/
23380c
23381 data (calcpts(j, 8), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23382 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23383 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23384 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23385 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23386 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23387 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23388 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23389 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23390 # 0.0000d+00, 0.d0/
23391c
23392 data (calcpts(j, 9), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23393 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23394 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23395 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23396 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23397 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23398 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23399 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23400 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23401 # 0.0000d+00, 0.d0/
23402c
23403 data (calcpts(j,10), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23404 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23405 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23406 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23407 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23408 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23409 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23410 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23411 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23412 # 0.0000d+00, 0.d0/
23413c
23414 data (calcpts(j,11), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23415 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23416 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23417 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23418 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23419 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23420 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23421 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23422 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23423 # 0.0000d+00, 0.d0/
23424c
23425 data (calcpts(j,12), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23426 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23427 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23428 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23429 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23430 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23431 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23432 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23433 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23434 # 0.0000d+00, 0.d0/
23435c
23436 data (calcpts(j,13), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23437 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23438 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23439 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23440 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23441 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23442 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23443 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23444 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23445 # 0.0000d+00, 0.d0/
23446c
23447 data (calcpts(j,14), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23448 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23449 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23450 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23451 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23452 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23453 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23454 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23455 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23456 # 0.0000d+00, 0.d0/
23457c
23458 data (calcpts(j,15), j=1,neta) /0.d0, 0.0000d+00, 0.0000d+00,
23459 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23460 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23461 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23462 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23463 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23464 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23465 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23466 # 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00, 0.0000d+00,
23467 # 0.0000d+00, 0.d0/
23468c
23469 data (aeta(j), j = 1,neta) /small, 0.1000d-02, 0.3000d-02,
23470 # 0.5000d-02, 0.7000d-02, 0.9000d-02, 0.1000d-01, 0.3000d-01,
23471 # 0.5000d-01, 0.7000d-01, 0.9000d-01, 0.1000d+00, 0.2000d+00,
23472 # 0.3000d+00, 0.4000d+00, 0.5000d+00, 0.6000d+00, 0.7000d+00,
23473 # 0.8000d+00, 0.9000d+00, 0.1000d+01, 0.2000d+01, 0.3000d+01,
23474 # 0.4000d+01, 0.5000d+01, 0.6000d+01, 0.7000d+01, 0.8000d+01,
23475 # 0.9000d+01, 0.1000d+02, 0.3000d+02, 0.5000d+02, 0.7000d+02,
23476 # 0.9000d+02, 0.1000d+03, 0.2000d+03, 0.3000d+03, 0.5000d+03,
23477 # 0.7000d+03, 0.9000d+03, 0.1000d+04, 0.5000d+04, 0.1000d+05,
23478 # 0.1000d+06, huge/
23479c
23480 data (axi(j), j = 1,nxi) /0.1000d-01, 0.3162d-01, 0.1000d+00,
23481 # 0.3162d+00, 0.1000d+01, 0.2500d+01, 0.3162d+01, 0.7500d+01,
23482 # 0.1000d+02, 0.3162d+02, 0.1000d+03, 0.3162d+03, 0.1000d+04,
23483 # 0.5000d+04, 0.1000d+05/
23484c
23485c here we have to choose the array elements that will go into the
23486c interpolation.
23487 call locate(aeta, neta, eta, ieta)
23488 call locate(axi, nxi, xi, ixi)
23489 if (ieta .le. 1) ieta = 1
23490 if (ieta .gt. (neta - 1)) ieta = neta - 1
23491 if (ixi .le. 1) ixi = 1
23492 if (ixi .gt. (nxi - 1)) ixi = nxi - 1
23493 y1 = calcpts(ieta,ixi)
23494 y2 = calcpts(ieta+1,ixi)
23495 y3 = calcpts(ieta+1,ixi+1)
23496 y4 = calcpts(ieta,ixi+1)
23497c interpolating between the points
23498 t = (eta - aeta(ieta))/(aeta(ieta + 1) - aeta(ieta))
23499 u = (xi - axi(ixi))/(axi(ixi + 1) - axi(ixi))
23500 h1bar_LTq = (1.d0 - t)*(1.d0 - u)*y1 + t*(1.d0 - u)*y2 +
23501 # t*u*y3 + (1.d0 - t)*u*y4
23502
23503 return
23504 end
23505
23506CDECK ID>, QCORRL.
23507
23508c ===========================================
23509 double precision function h1_HLq(eta,xi)
23510c ===========================================
23511
23512c eq (26) in PLB347 (1995) 143 - 151 for the transverse piece
23513c MSbar scheme
23514c This routine is called subcqhl in the original code.
23515c Called schql in updated code (03/06/96).
23516
23517 implicit none
23518 integer neta, nxi
23519 parameter (neta = 73, nxi = 49)
23520 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
23521 double precision eta, xi, dleta, dlxi
23522 double precision pxi, peta, f(-1:1), delxi, deleta
23523 integer j, ieta, ixi
23524
23525 data (calcpts(j, 1), j = 1,neta) /-.2062D-13, -.3668D-13,
23526 # -.6520D-13, -.1160D-12, -.2063D-12, -.3668D-12, -.6522D-12,
23527 # -.1160D-11, -.2062D-11, -.3668D-11, -.6525D-11, -.1160D-10,
23528 # -.2064D-10, -.3672D-10, -.6530D-10, -.1162D-09, -.2069D-09,
23529 # -.3684D-09, -.6561D-09, -.1170D-08, -.2085D-08, -.3723D-08,
23530 # -.6657D-08, -.1192D-07, -.2137D-07, -.3838D-07, -.6900D-07,
23531 # -.1242D-06, -.2233D-06, -.3993D-06, -.7067D-06, -.1227D-05,
23532 # -.2066D-05, -.3329D-05, -.5057D-05, -.7154D-05, -.9369D-05,
23533 # -.1137D-04, -.1288D-04, -.1379D-04, -.1414D-04, -.1402D-04,
23534 # -.1358D-04, -.1296D-04, -.1228D-04, -.1162D-04, -.1103D-04,
23535 # -.1052D-04, -.1012D-04, -.9794D-05, -.9545D-05, -.9356D-05,
23536 # -.9215D-05, -.9111D-05, -.9034D-05, -.8980D-05, -.8938D-05,
23537 # -.8910D-05, -.8889D-05, -.8873D-05, -.8863D-05, -.8856D-05,
23538 # -.8851D-05, -.8847D-05, -.8844D-05, -.8841D-05, -.8840D-05,
23539 # -.8840D-05, -.8839D-05, -.8839D-05, -.8837D-05, -.8837D-05,
23540 # -.8837D-05/
23541
23542 data (calcpts(j, 2), j = 1,neta) /-.3027D-13, -.5384D-13,
23543 # -.9569D-13, -.1702D-12, -.3027D-12, -.5383D-12, -.9573D-12,
23544 # -.1703D-11, -.3027D-11, -.5384D-11, -.9577D-11, -.1703D-10,
23545 # -.3029D-10, -.5390D-10, -.9585D-10, -.1706D-09, -.3037D-09,
23546 # -.5406D-09, -.9630D-09, -.1717D-08, -.3060D-08, -.5465D-08,
23547 # -.9771D-08, -.1749D-07, -.3136D-07, -.5633D-07, -.1013D-06,
23548 # -.1823D-06, -.3277D-06, -.5860D-06, -.1037D-05, -.1801D-05,
23549 # -.3032D-05, -.4886D-05, -.7422D-05, -.1050D-04, -.1375D-04,
23550 # -.1668D-04, -.1890D-04, -.2024D-04, -.2075D-04, -.2058D-04,
23551 # -.1993D-04, -.1903D-04, -.1803D-04, -.1705D-04, -.1619D-04,
23552 # -.1545D-04, -.1485D-04, -.1438D-04, -.1401D-04, -.1373D-04,
23553 # -.1352D-04, -.1337D-04, -.1326D-04, -.1318D-04, -.1312D-04,
23554 # -.1308D-04, -.1305D-04, -.1303D-04, -.1301D-04, -.1300D-04,
23555 # -.1299D-04, -.1299D-04, -.1299D-04, -.1297D-04, -.1297D-04,
23556 # -.1297D-04, -.1297D-04, -.1297D-04, -.1297D-04, -.1297D-04,
23557 # -.1297D-04/
23558
23559 data (calcpts(j, 3), j = 1,neta) /-.4440D-13, -.7897D-13,
23560 # -.1404D-12, -.2497D-12, -.4441D-12, -.7896D-12, -.1404D-11,
23561 # -.2498D-11, -.4440D-11, -.7897D-11, -.1405D-10, -.2498D-10,
23562 # -.4444D-10, -.7907D-10, -.1406D-09, -.2502D-09, -.4455D-09,
23563 # -.7931D-09, -.1413D-08, -.2518D-08, -.4489D-08, -.8016D-08,
23564 # -.1433D-07, -.2565D-07, -.4600D-07, -.8263D-07, -.1486D-06,
23565 # -.2674D-06, -.4807D-06, -.8596D-06, -.1521D-05, -.2642D-05,
23566 # -.4448D-05, -.7166D-05, -.1089D-04, -.1540D-04, -.2017D-04,
23567 # -.2447D-04, -.2772D-04, -.2970D-04, -.3044D-04, -.3018D-04,
23568 # -.2924D-04, -.2791D-04, -.2643D-04, -.2500D-04, -.2373D-04,
23569 # -.2265D-04, -.2177D-04, -.2108D-04, -.2054D-04, -.2013D-04,
23570 # -.1984D-04, -.1961D-04, -.1945D-04, -.1932D-04, -.1923D-04,
23571 # -.1918D-04, -.1913D-04, -.1910D-04, -.1907D-04, -.1906D-04,
23572 # -.1905D-04, -.1903D-04, -.1903D-04, -.1903D-04, -.1902D-04,
23573 # -.1902D-04, -.1902D-04, -.1902D-04, -.1902D-04, -.1902D-04,
23574 # -.1902D-04/
23575
23576 data (calcpts(j, 4), j = 1,neta) /-.6515D-13, -.1159D-12,
23577 # -.2060D-12, -.3663D-12, -.6516D-12, -.1159D-11, -.2061D-11,
23578 # -.3665D-11, -.6515D-11, -.1159D-10, -.2061D-10, -.3666D-10,
23579 # -.6521D-10, -.1160D-09, -.2063D-09, -.3672D-09, -.6537D-09,
23580 # -.1164D-08, -.2073D-08, -.3695D-08, -.6587D-08, -.1176D-07,
23581 # -.2103D-07, -.3764D-07, -.6749D-07, -.1212D-06, -.2180D-06,
23582 # -.3924D-06, -.7053D-06, -.1261D-05, -.2232D-05, -.3876D-05,
23583 # -.6526D-05, -.1051D-04, -.1597D-04, -.2260D-04, -.2959D-04,
23584 # -.3590D-04, -.4068D-04, -.4358D-04, -.4466D-04, -.4429D-04,
23585 # -.4290D-04, -.4094D-04, -.3878D-04, -.3669D-04, -.3483D-04,
23586 # -.3323D-04, -.3195D-04, -.3094D-04, -.3014D-04, -.2955D-04,
23587 # -.2911D-04, -.2877D-04, -.2853D-04, -.2835D-04, -.2822D-04,
23588 # -.2813D-04, -.2807D-04, -.2803D-04, -.2799D-04, -.2796D-04,
23589 # -.2795D-04, -.2793D-04, -.2792D-04, -.2792D-04, -.2792D-04,
23590 # -.2791D-04, -.2791D-04, -.2791D-04, -.2791D-04, -.2791D-04,
23591 # -.2791D-04/
23592
23593 data (calcpts(j, 5), j = 1,neta) /-.9559D-13, -.1700D-12,
23594 # -.3022D-12, -.5375D-12, -.9561D-12, -.1700D-11, -.3023D-11,
23595 # -.5377D-11, -.9558D-11, -.1700D-10, -.3024D-10, -.5379D-10,
23596 # -.9567D-10, -.1702D-09, -.3027D-09, -.5387D-09, -.9591D-09,
23597 # -.1707D-08, -.3041D-08, -.5421D-08, -.9664D-08, -.1726D-07,
23598 # -.3085D-07, -.5523D-07, -.9902D-07, -.1779D-06, -.3198D-06,
23599 # -.5756D-06, -.1035D-05, -.1850D-05, -.3274D-05, -.5686D-05,
23600 # -.9572D-05, -.1542D-04, -.2343D-04, -.3315D-04, -.4341D-04,
23601 # -.5267D-04, -.5968D-04, -.6393D-04, -.6553D-04, -.6498D-04,
23602 # -.6295D-04, -.6007D-04, -.5691D-04, -.5385D-04, -.5111D-04,
23603 # -.4878D-04, -.4688D-04, -.4538D-04, -.4423D-04, -.4336D-04,
23604 # -.4271D-04, -.4222D-04, -.4187D-04, -.4160D-04, -.4142D-04,
23605 # -.4127D-04, -.4118D-04, -.4112D-04, -.4106D-04, -.4102D-04,
23606 # -.4100D-04, -.4098D-04, -.4097D-04, -.4097D-04, -.4096D-04,
23607 # -.4096D-04, -.4096D-04, -.4094D-04, -.4094D-04, -.4094D-04,
23608 # -.4094D-04/
23609
23610 data (calcpts(j, 6), j = 1,neta) /-.1402D-12, -.2493D-12,
23611 # -.4431D-12, -.7882D-12, -.1402D-11, -.2493D-11, -.4433D-11,
23612 # -.7885D-11, -.1402D-10, -.2493D-10, -.4435D-10, -.7887D-10,
23613 # -.1403D-09, -.2496D-09, -.4439D-09, -.7899D-09, -.1406D-08,
23614 # -.2504D-08, -.4459D-08, -.7949D-08, -.1417D-07, -.2530D-07,
23615 # -.4524D-07, -.8098D-07, -.1452D-06, -.2608D-06, -.4689D-06,
23616 # -.8439D-06, -.1517D-05, -.2713D-05, -.4800D-05, -.8335D-05,
23617 # -.1403D-04, -.2261D-04, -.3435D-04, -.4861D-04, -.6365D-04,
23618 # -.7724D-04, -.8752D-04, -.9375D-04, -.9609D-04, -.9529D-04,
23619 # -.9229D-04, -.8810D-04, -.8346D-04, -.7895D-04, -.7492D-04,
23620 # -.7150D-04, -.6872D-04, -.6653D-04, -.6483D-04, -.6355D-04,
23621 # -.6259D-04, -.6188D-04, -.6136D-04, -.6098D-04, -.6071D-04,
23622 # -.6051D-04, -.6037D-04, -.6027D-04, -.6020D-04, -.6015D-04,
23623 # -.6011D-04, -.6008D-04, -.6007D-04, -.6005D-04, -.6004D-04,
23624 # -.6002D-04, -.6003D-04, -.6003D-04, -.6003D-04, -.6003D-04,
23625 # -.6001D-04/
23626
23627 data (calcpts(j, 7), j = 1,neta) /-.2055D-12, -.3655D-12,
23628 # -.6496D-12, -.1155D-11, -.2055D-11, -.3654D-11, -.6498D-11,
23629 # -.1156D-10, -.2055D-10, -.3655D-10, -.6501D-10, -.1156D-09,
23630 # -.2056D-09, -.3659D-09, -.6506D-09, -.1158D-08, -.2062D-08,
23631 # -.3670D-08, -.6537D-08, -.1165D-07, -.2077D-07, -.3709D-07,
23632 # -.6632D-07, -.1187D-06, -.2128D-06, -.3823D-06, -.6872D-06,
23633 # -.1237D-05, -.2223D-05, -.3975D-05, -.7034D-05, -.1222D-04,
23634 # -.2056D-04, -.3313D-04, -.5034D-04, -.7123D-04, -.9329D-04,
23635 # -.1132D-03, -.1283D-03, -.1374D-03, -.1409D-03, -.1397D-03,
23636 # -.1353D-03, -.1291D-03, -.1223D-03, -.1157D-03, -.1098D-03,
23637 # -.1048D-03, -.1007D-03, -.9748D-04, -.9500D-04, -.9311D-04,
23638 # -.9171D-04, -.9068D-04, -.8991D-04, -.8936D-04, -.8895D-04,
23639 # -.8866D-04, -.8845D-04, -.8829D-04, -.8819D-04, -.8812D-04,
23640 # -.8807D-04, -.8803D-04, -.8800D-04, -.8797D-04, -.8796D-04,
23641 # -.8796D-04, -.8795D-04, -.8795D-04, -.8795D-04, -.8793D-04,
23642 # -.8793D-04/
23643
23644 data (calcpts(j, 8), j = 1,neta) /-.3011D-12, -.5355D-12,
23645 # -.9518D-12, -.1693D-11, -.3011D-11, -.5354D-11, -.9521D-11,
23646 # -.1694D-10, -.3010D-10, -.5355D-10, -.9526D-10, -.1694D-09,
23647 # -.3013D-09, -.5361D-09, -.9533D-09, -.1697D-08, -.3021D-08,
23648 # -.5377D-08, -.9578D-08, -.1707D-07, -.3044D-07, -.5435D-07,
23649 # -.9716D-07, -.1739D-06, -.3118D-06, -.5600D-06, -.1007D-05,
23650 # -.1812D-05, -.3256D-05, -.5822D-05, -.1030D-04, -.1789D-04,
23651 # -.3011D-04, -.4852D-04, -.7372D-04, -.1043D-03, -.1367D-03,
23652 # -.1658D-03, -.1879D-03, -.2013D-03, -.2064D-03, -.2046D-03,
23653 # -.1982D-03, -.1892D-03, -.1792D-03, -.1695D-03, -.1608D-03,
23654 # -.1535D-03, -.1475D-03, -.1428D-03, -.1391D-03, -.1364D-03,
23655 # -.1343D-03, -.1329D-03, -.1317D-03, -.1308D-03, -.1303D-03,
23656 # -.1298D-03, -.1295D-03, -.1292D-03, -.1291D-03, -.1290D-03,
23657 # -.1290D-03, -.1288D-03, -.1289D-03, -.1289D-03, -.1289D-03,
23658 # -.1289D-03, -.1289D-03, -.1289D-03, -.1289D-03, -.1289D-03,
23659 # -.1287D-03/
23660
23661 data (calcpts(j, 9), j = 1,neta) /-.4405D-12, -.7835D-12,
23662 # -.1393D-11, -.2477D-11, -.4406D-11, -.7834D-11, -.1393D-10,
23663 # -.2478D-10, -.4405D-10, -.7835D-10, -.1394D-09, -.2479D-09,
23664 # -.4409D-09, -.7844D-09, -.1395D-08, -.2483D-08, -.4420D-08,
23665 # -.7868D-08, -.1401D-07, -.2498D-07, -.4453D-07, -.7951D-07,
23666 # -.1422D-06, -.2544D-06, -.4561D-06, -.8192D-06, -.1473D-05,
23667 # -.2650D-05, -.4762D-05, -.8514D-05, -.1506D-04, -.2615D-04,
23668 # -.4403D-04, -.7095D-04, -.1078D-03, -.1526D-03, -.1999D-03,
23669 # -.2426D-03, -.2750D-03, -.2946D-03, -.3020D-03, -.2994D-03,
23670 # -.2900D-03, -.2767D-03, -.2621D-03, -.2479D-03, -.2351D-03,
23671 # -.2244D-03, -.2156D-03, -.2087D-03, -.2033D-03, -.1993D-03,
23672 # -.1963D-03, -.1940D-03, -.1924D-03, -.1912D-03, -.1903D-03,
23673 # -.1897D-03, -.1893D-03, -.1890D-03, -.1888D-03, -.1886D-03,
23674 # -.1885D-03, -.1884D-03, -.1884D-03, -.1882D-03, -.1882D-03,
23675 # -.1882D-03, -.1882D-03, -.1882D-03, -.1882D-03, -.1882D-03,
23676 # -.1882D-03/
23677
23678 data (calcpts(j,10), j = 1,neta) /-.6440D-12, -.1146D-11,
23679 # -.2036D-11, -.3621D-11, -.6442D-11, -.1145D-10, -.2037D-10,
23680 # -.3623D-10, -.6440D-10, -.1145D-09, -.2038D-09, -.3624D-09,
23681 # -.6446D-09, -.1147D-08, -.2039D-08, -.3629D-08, -.6461D-08,
23682 # -.1150D-07, -.2049D-07, -.3652D-07, -.6510D-07, -.1162D-06,
23683 # -.2078D-06, -.3719D-06, -.6666D-06, -.1197D-05, -.2152D-05,
23684 # -.3872D-05, -.6957D-05, -.1244D-04, -.2200D-04, -.3819D-04,
23685 # -.6430D-04, -.1036D-03, -.1575D-03, -.2229D-03, -.2921D-03,
23686 # -.3546D-03, -.4019D-03, -.4306D-03, -.4414D-03, -.4377D-03,
23687 # -.4239D-03, -.4045D-03, -.3831D-03, -.3622D-03, -.3436D-03,
23688 # -.3279D-03, -.3150D-03, -.3048D-03, -.2970D-03, -.2910D-03,
23689 # -.2866D-03, -.2834D-03, -.2810D-03, -.2792D-03, -.2779D-03,
23690 # -.2770D-03, -.2763D-03, -.2759D-03, -.2755D-03, -.2753D-03,
23691 # -.2751D-03, -.2750D-03, -.2750D-03, -.2749D-03, -.2749D-03,
23692 # -.2749D-03, -.2747D-03, -.2747D-03, -.2747D-03, -.2747D-03,
23693 # -.2747D-03/
23694
23695 data (calcpts(j,11), j = 1,neta) /-.9398D-12, -.1672D-11,
23696 # -.2971D-11, -.5285D-11, -.9400D-11, -.1671D-10, -.2972D-10,
23697 # -.5287D-10, -.9397D-10, -.1672D-09, -.2974D-09, -.5288D-09,
23698 # -.9406D-09, -.1674D-08, -.2976D-08, -.5296D-08, -.9429D-08,
23699 # -.1678D-07, -.2989D-07, -.5329D-07, -.9499D-07, -.1696D-06,
23700 # -.3032D-06, -.5425D-06, -.9724D-06, -.1746D-05, -.3138D-05,
23701 # -.5645D-05, -.1014D-04, -.1812D-04, -.3205D-04, -.5564D-04,
23702 # -.9365D-04, -.1509D-03, -.2294D-03, -.3249D-03, -.4258D-03,
23703 # -.5171D-03, -.5863D-03, -.6283D-03, -.6441D-03, -.6386D-03,
23704 # -.6184D-03, -.5901D-03, -.5586D-03, -.5282D-03, -.5009D-03,
23705 # -.4779D-03, -.4591D-03, -.4442D-03, -.4328D-03, -.4240D-03,
23706 # -.4177D-03, -.4128D-03, -.4092D-03, -.4067D-03, -.4049D-03,
23707 # -.4034D-03, -.4025D-03, -.4019D-03, -.4013D-03, -.4009D-03,
23708 # -.4008D-03, -.4005D-03, -.4004D-03, -.4004D-03, -.4003D-03,
23709 # -.4003D-03, -.4003D-03, -.4003D-03, -.4001D-03, -.4001D-03,
23710 # -.4001D-03/
23711
23712 data (calcpts(j,12), j = 1,neta) /-.1367D-11, -.2432D-11,
23713 # -.4323D-11, -.7688D-11, -.1368D-10, -.2432D-10, -.4324D-10,
23714 # -.7692D-10, -.1367D-09, -.2432D-09, -.4326D-09, -.7694D-09,
23715 # -.1368D-08, -.2435D-08, -.4329D-08, -.7705D-08, -.1372D-07,
23716 # -.2442D-07, -.4349D-07, -.7752D-07, -.1382D-06, -.2467D-06,
23717 # -.4409D-06, -.7889D-06, -.1414D-05, -.2539D-05, -.4561D-05,
23718 # -.8202D-05, -.1473D-04, -.2632D-04, -.4653D-04, -.8076D-04,
23719 # -.1359D-03, -.2191D-03, -.3331D-03, -.4719D-03, -.6188D-03,
23720 # -.7518D-03, -.8527D-03, -.9139D-03, -.9369D-03, -.9289D-03,
23721 # -.8994D-03, -.8579D-03, -.8121D-03, -.7676D-03, -.7278D-03,
23722 # -.6940D-03, -.6664D-03, -.6447D-03, -.6280D-03, -.6152D-03,
23723 # -.6057D-03, -.5987D-03, -.5935D-03, -.5898D-03, -.5871D-03,
23724 # -.5852D-03, -.5837D-03, -.5828D-03, -.5820D-03, -.5815D-03,
23725 # -.5812D-03, -.5810D-03, -.5807D-03, -.5806D-03, -.5806D-03,
23726 # -.5804D-03, -.5804D-03, -.5804D-03, -.5803D-03, -.5803D-03,
23727 # -.5803D-03/
23728
23729 data (calcpts(j,13), j = 1,neta) /-.1981D-11, -.3524D-11,
23730 # -.6264D-11, -.1114D-10, -.1982D-10, -.3524D-10, -.6266D-10,
23731 # -.1115D-09, -.1981D-09, -.3524D-09, -.6269D-09, -.1115D-08,
23732 # -.1983D-08, -.3528D-08, -.6273D-08, -.1116D-07, -.1988D-07,
23733 # -.3538D-07, -.6301D-07, -.1123D-06, -.2002D-06, -.3573D-06,
23734 # -.6386D-06, -.1142D-05, -.2047D-05, -.3674D-05, -.6599D-05,
23735 # -.1186D-04, -.2130D-04, -.3803D-04, -.6722D-04, -.1166D-03,
23736 # -.1963D-03, -.3164D-03, -.4812D-03, -.6821D-03, -.8951D-03,
23737 # -.1088D-02, -.1235D-02, -.1324D-02, -.1357D-02, -.1346D-02,
23738 # -.1303D-02, -.1242D-02, -.1175D-02, -.1110D-02, -.1052D-02,
23739 # -.1003D-02, -.9628D-03, -.9311D-03, -.9066D-03, -.8881D-03,
23740 # -.8742D-03, -.8640D-03, -.8564D-03, -.8509D-03, -.8471D-03,
23741 # -.8442D-03, -.8421D-03, -.8406D-03, -.8396D-03, -.8388D-03,
23742 # -.8382D-03, -.8378D-03, -.8376D-03, -.8374D-03, -.8373D-03,
23743 # -.8372D-03, -.8372D-03, -.8372D-03, -.8370D-03, -.8370D-03,
23744 # -.8370D-03/
23745
23746 data (calcpts(j,14), j = 1,neta) /-.1657D-11, -.2947D-11,
23747 # -.5239D-11, -.9317D-11, -.1657D-10, -.2947D-10, -.5241D-10,
23748 # -.9322D-10, -.1657D-09, -.2948D-09, -.5244D-09, -.9328D-09,
23749 # -.1659D-08, -.2953D-08, -.5253D-08, -.9353D-08, -.1666D-07,
23750 # -.2969D-07, -.5295D-07, -.9455D-07, -.1689D-06, -.3026D-06,
23751 # -.5433D-06, -.9779D-06, -.1766D-05, -.3201D-05, -.5821D-05,
23752 # -.1062D-04, -.1939D-04, -.3528D-04, -.6357D-04, -.1123D-03,
23753 # -.1920D-03, -.3125D-03, -.4764D-03, -.6703D-03, -.8629D-03,
23754 # -.1016D-02, -.1102D-02, -.1114D-02, -.1061D-02, -.9629D-03,
23755 # -.8376D-03, -.7028D-03, -.5715D-03, -.4530D-03, -.3513D-03,
23756 # -.2678D-03, -.2010D-03, -.1494D-03, -.1096D-03, -.8020D-04,
23757 # -.5869D-04, -.4239D-04, -.3005D-04, -.2184D-04, -.1487D-04,
23758 # -.1074D-04, -.7992D-05, -.5163D-05, -.3779D-05, -.2358D-05,
23759 # -.2412D-05, -.9490D-06, -.9740D-06, -.9911D-06, -.1003D-05,
23760 # -.1011D-05, -.1016D-05, -.1020D-05, -.1022D-05, -.1024D-05,
23761 # 0.4749D-06/
23762
23763 data (calcpts(j,15), j = 1,neta) /-.2383D-11, -.4239D-11,
23764 # -.7535D-11, -.1340D-10, -.2384D-10, -.4239D-10, -.7538D-10,
23765 # -.1341D-09, -.2383D-09, -.4240D-09, -.7543D-09, -.1342D-08,
23766 # -.2387D-08, -.4247D-08, -.7555D-08, -.1345D-07, -.2396D-07,
23767 # -.4269D-07, -.7612D-07, -.1359D-06, -.2428D-06, -.4347D-06,
23768 # -.7800D-06, -.1403D-05, -.2531D-05, -.4584D-05, -.8325D-05,
23769 # -.1517D-04, -.2765D-04, -.5023D-04, -.9038D-04, -.1595D-03,
23770 # -.2725D-03, -.4437D-03, -.6773D-03, -.9547D-03, -.1232D-02,
23771 # -.1454D-02, -.1580D-02, -.1600D-02, -.1527D-02, -.1387D-02,
23772 # -.1208D-02, -.1014D-02, -.8254D-03, -.6546D-03, -.5069D-03,
23773 # -.3863D-03, -.2900D-03, -.2157D-03, -.1589D-03, -.1161D-03,
23774 # -.8367D-04, -.6062D-04, -.4279D-04, -.3042D-04, -.2220D-04,
23775 # -.1523D-04, -.1109D-04, -.6831D-05, -.5498D-05, -.4112D-05,
23776 # -.2690D-05, -.1243D-05, -.1279D-05, 0.1969D-06, 0.1801D-06,
23777 # 0.1688D-06, 0.1610D-06, 0.1557D-06, 0.1521D-06, 0.1496D-06,
23778 # 0.1480D-06/
23779
23780 data (calcpts(j,16), j = 1,neta) /-.3399D-11, -.6046D-11,
23781 # -.1075D-10, -.1911D-10, -.3400D-10, -.6045D-10, -.1075D-09,
23782 # -.1912D-09, -.3399D-09, -.6046D-09, -.1076D-08, -.1913D-08,
23783 # -.3403D-08, -.6056D-08, -.1077D-07, -.1918D-07, -.3416D-07,
23784 # -.6085D-07, -.1085D-06, -.1936D-06, -.3457D-06, -.6187D-06,
23785 # -.1110D-05, -.1994D-05, -.3594D-05, -.6499D-05, -.1178D-04,
23786 # -.2142D-04, -.3897D-04, -.7064D-04, -.1268D-03, -.2235D-03,
23787 # -.3815D-03, -.6215D-03, -.9500D-03, -.1343D-02, -.1738D-02,
23788 # -.2058D-02, -.2244D-02, -.2278D-02, -.2180D-02, -.1984D-02,
23789 # -.1730D-02, -.1455D-02, -.1185D-02, -.9400D-03, -.7301D-03,
23790 # -.5566D-03, -.4177D-03, -.3106D-03, -.2286D-03, -.1670D-03,
23791 # -.1211D-03, -.8712D-04, -.6249D-04, -.4462D-04, -.3222D-04,
23792 # -.2247D-04, -.1549D-04, -.1134D-04, -.8576D-05, -.5738D-05,
23793 # -.4349D-05, -.2924D-05, -.1475D-05, -.1510D-05, -.3433D-07,
23794 # -.5058D-07, -.6164D-07, -.6919D-07, -.7433D-07, -.7783D-07,
23795 # -.8021D-07/
23796
23797 data (calcpts(j,17), j = 1,neta) /-.4787D-11, -.8515D-11,
23798 # -.1513D-10, -.2692D-10, -.4788D-10, -.8514D-10, -.1514D-09,
23799 # -.2693D-09, -.4787D-09, -.8515D-09, -.1515D-08, -.2694D-08,
23800 # -.4793D-08, -.8528D-08, -.1517D-07, -.2700D-07, -.4808D-07,
23801 # -.8564D-07, -.1526D-06, -.2723D-06, -.4860D-06, -.8692D-06,
23802 # -.1557D-05, -.2796D-05, -.5031D-05, -.9081D-05, -.1642D-04,
23803 # -.2978D-04, -.5401D-04, -.9761D-04, -.1747D-03, -.3072D-03,
23804 # -.5238D-03, -.8536D-03, -.1307D-02, -.1854D-02, -.2411D-02,
23805 # -.2869D-02, -.3142D-02, -.3202D-02, -.3074D-02, -.2805D-02,
23806 # -.2451D-02, -.2066D-02, -.1687D-02, -.1339D-02, -.1041D-02,
23807 # -.7941D-03, -.5972D-03, -.4441D-03, -.3274D-03, -.2390D-03,
23808 # -.1742D-03, -.1251D-03, -.8941D-04, -.6469D-04, -.4675D-04,
23809 # -.3281D-04, -.2303D-04, -.1752D-04, -.1186D-04, -.9089D-05,
23810 # -.6244D-05, -.4851D-05, -.3423D-05, -.1972D-05, -.2006D-05,
23811 # -.2029D-05, -.5445D-06, -.5551D-06, -.5624D-06, -.5673D-06,
23812 # -.5706D-06/
23813
23814 data (calcpts(j,18), j = 1,neta) /-.6623D-11, -.1178D-10,
23815 # -.2094D-10, -.3724D-10, -.6624D-10, -.1178D-09, -.2095D-09,
23816 # -.3726D-09, -.6622D-09, -.1178D-08, -.2096D-08, -.3727D-08,
23817 # -.6629D-08, -.1180D-07, -.2098D-07, -.3734D-07, -.6648D-07,
23818 # -.1184D-06, -.2109D-06, -.3761D-06, -.6709D-06, -.1199D-05,
23819 # -.2146D-05, -.3845D-05, -.6907D-05, -.1244D-04, -.2243D-04,
23820 # -.4053D-04, -.7321D-04, -.1317D-03, -.2350D-03, -.4118D-03,
23821 # -.7008D-03, -.1142D-02, -.1754D-02, -.2498D-02, -.3268D-02,
23822 # -.3914D-02, -.4313D-02, -.4420D-02, -.4261D-02, -.3903D-02,
23823 # -.3423D-02, -.2891D-02, -.2365D-02, -.1883D-02, -.1466D-02,
23824 # -.1120D-02, -.8425D-03, -.6260D-03, -.4613D-03, -.3363D-03,
23825 # -.2443D-03, -.1761D-03, -.1267D-03, -.9088D-04, -.6453D-04,
23826 # -.4650D-04, -.3250D-04, -.2268D-04, -.1715D-04, -.1147D-04,
23827 # -.8681D-05, -.5828D-05, -.4428D-05, -.2996D-05, -.1543D-05,
23828 # -.1574D-05, -.1596D-05, -.1106D-06, -.1206D-06, -.1274D-06,
23829 # -.1321D-06/
23830
23831 data (calcpts(j,19), j = 1,neta) /-.8945D-11, -.1591D-10,
23832 # -.2828D-10, -.5030D-10, -.8947D-10, -.1591D-09, -.2829D-09,
23833 # -.5032D-09, -.8944D-09, -.1591D-08, -.2830D-08, -.5033D-08,
23834 # -.8952D-08, -.1593D-07, -.2832D-07, -.5040D-07, -.8973D-07,
23835 # -.1597D-06, -.2845D-06, -.5070D-06, -.9037D-06, -.1613D-05,
23836 # -.2883D-05, -.5159D-05, -.9244D-05, -.1660D-04, -.2982D-04,
23837 # -.5365D-04, -.9645D-04, -.1727D-03, -.3063D-03, -.5346D-03,
23838 # -.9074D-03, -.1478D-02, -.2276D-02, -.3259D-02, -.4296D-02,
23839 # -.5189D-02, -.5766D-02, -.5952D-02, -.5774D-02, -.5317D-02,
23840 # -.4683D-02, -.3972D-02, -.3259D-02, -.2601D-02, -.2029D-02,
23841 # -.1552D-02, -.1170D-02, -.8699D-03, -.6406D-03, -.4682D-03,
23842 # -.3407D-03, -.2463D-03, -.1761D-03, -.1264D-03, -.9026D-04,
23843 # -.6374D-04, -.4560D-04, -.3302D-04, -.2314D-04, -.1607D-04,
23844 # -.1186D-04, -.7561D-05, -.6196D-05, -.3288D-05, -.3351D-05,
23845 # -.1894D-05, -.1923D-05, -.4426D-06, -.4561D-06, -.4653D-06,
23846 # -.4716D-06/
23847
23848 data (calcpts(j,20), j = 1,neta) /-.1170D-10, -.2082D-10,
23849 # -.3700D-10, -.6581D-10, -.1171D-09, -.2082D-09, -.3702D-09,
23850 # -.6584D-09, -.1170D-08, -.2082D-08, -.3703D-08, -.6585D-08,
23851 # -.1171D-07, -.2083D-07, -.3704D-07, -.6591D-07, -.1173D-06,
23852 # -.2088D-06, -.3717D-06, -.6620D-06, -.1179D-05, -.2102D-05,
23853 # -.3752D-05, -.6700D-05, -.1198D-04, -.2143D-04, -.3835D-04,
23854 # -.6864D-04, -.1227D-03, -.2182D-03, -.3847D-03, -.6677D-03,
23855 # -.1129D-02, -.1837D-02, -.2835D-02, -.4084D-02, -.5432D-02,
23856 # -.6633D-02, -.7450D-02, -.7765D-02, -.7596D-02, -.7044D-02,
23857 # -.6242D-02, -.5321D-02, -.4385D-02, -.3514D-02, -.2749D-02,
23858 # -.2108D-02, -.1592D-02, -.1186D-02, -.8758D-03, -.6405D-03,
23859 # -.4661D-03, -.3371D-03, -.2418D-03, -.1739D-03, -.1252D-03,
23860 # -.8880D-04, -.6357D-04, -.4528D-04, -.3260D-04, -.2266D-04,
23861 # -.1704D-04, -.1280D-04, -.8476D-05, -.7097D-05, -.4179D-05,
23862 # -.4235D-05, -.2773D-05, -.2799D-05, -.1316D-05, -.1328D-05,
23863 # -.1337D-05/
23864
23865 data (calcpts(j,21), j = 1,neta) /-.1470D-10, -.2615D-10,
23866 # -.4648D-10, -.8267D-10, -.1470D-09, -.2615D-09, -.4650D-09,
23867 # -.8270D-09, -.1470D-08, -.2615D-08, -.4651D-08, -.8270D-08,
23868 # -.1471D-07, -.2616D-07, -.4651D-07, -.8275D-07, -.1472D-06,
23869 # -.2620D-06, -.4661D-06, -.8298D-06, -.1477D-05, -.2630D-05,
23870 # -.4687D-05, -.8353D-05, -.1489D-04, -.2656D-04, -.4732D-04,
23871 # -.8427D-04, -.1497D-03, -.2644D-03, -.4628D-03, -.7976D-03,
23872 # -.1341D-02, -.2177D-02, -.3364D-02, -.4877D-02, -.6552D-02,
23873 # -.8101D-02, -.9219D-02, -.9729D-02, -.9619D-02, -.9002D-02,
23874 # -.8041D-02, -.6903D-02, -.5723D-02, -.4607D-02, -.3618D-02,
23875 # -.2783D-02, -.2107D-02, -.1572D-02, -.1161D-02, -.8494D-03,
23876 # -.6165D-03, -.4455D-03, -.3193D-03, -.2288D-03, -.1631D-03,
23877 # -.1154D-03, -.8159D-04, -.5760D-04, -.4064D-04, -.2784D-04,
23878 # -.1932D-04, -.1364D-04, -.9365D-05, -.5017D-05, -.3620D-05,
23879 # -.2190D-05, -.7378D-06, -.7705D-06, 0.7073D-06, 0.6922D-06,
23880 # 0.6819D-06/
23881
23882 data (calcpts(j,22), j = 1,neta) /-.1759D-10, -.3128D-10,
23883 # -.5560D-10, -.9889D-10, -.1759D-09, -.3128D-09, -.5562D-09,
23884 # -.9892D-09, -.1758D-08, -.3127D-08, -.5563D-08, -.9892D-08,
23885 # -.1759D-07, -.3129D-07, -.5562D-07, -.9894D-07, -.1760D-06,
23886 # -.3130D-06, -.5568D-06, -.9908D-06, -.1762D-05, -.3135D-05,
23887 # -.5579D-05, -.9925D-05, -.1765D-04, -.3139D-04, -.5570D-04,
23888 # -.9871D-04, -.1743D-03, -.3058D-03, -.5311D-03, -.9085D-03,
23889 # -.1518D-02, -.2454D-02, -.3791D-02, -.5520D-02, -.7489D-02,
23890 # -.9386D-02, -.1085D-01, -.1162D-01, -.1164D-01, -.1102D-01,
23891 # -.9949D-02, -.8618D-02, -.7203D-02, -.5839D-02, -.4611D-02,
23892 # -.3563D-02, -.2706D-02, -.2019D-02, -.1505D-02, -.1094D-02,
23893 # -.8054D-03, -.5835D-03, -.4158D-03, -.3041D-03, -.2199D-03,
23894 # -.1488D-03, -.1064D-03, -.7823D-04, -.4947D-04, -.3531D-04,
23895 # -.2088D-04, -.2127D-04, -.6535D-05, -.6716D-05, -.6839D-05,
23896 # -.6923D-05, -.6980D-05, -.7019D-05, -.7046D-05, -.7064D-05,
23897 # -.7077D-05/
23898
23899 data (calcpts(j,23), j = 1,neta) /-.1989D-10, -.3537D-10,
23900 # -.6287D-10, -.1118D-09, -.1989D-09, -.3536D-09, -.6289D-09,
23901 # -.1119D-08, -.1988D-08, -.3536D-08, -.6290D-08, -.1118D-07,
23902 # -.1989D-07, -.3537D-07, -.6287D-07, -.1118D-06, -.1989D-06,
23903 # -.3537D-06, -.6290D-06, -.1119D-05, -.1988D-05, -.3535D-05,
23904 # -.6285D-05, -.1116D-04, -.1982D-04, -.3515D-04, -.6218D-04,
23905 # -.1097D-03, -.1928D-03, -.3362D-03, -.5800D-03, -.9849D-03,
23906 # -.1634D-02, -.2628D-02, -.4050D-02, -.5913D-02, -.8084D-02,
23907 # -.1026D-01, -.1205D-01, -.1313D-01, -.1336D-01, -.1284D-01,
23908 # -.1174D-01, -.1028D-01, -.8684D-02, -.7102D-02, -.5651D-02,
23909 # -.4397D-02, -.3347D-02, -.2525D-02, -.1869D-02, -.1373D-02,
23910 # -.9974D-03, -.7178D-03, -.5217D-03, -.3812D-03, -.2677D-03,
23911 # -.1971D-03, -.1401D-03, -.9716D-04, -.6856D-04, -.5451D-04,
23912 # -.4015D-04, -.2559D-04, -.1090D-04, -.1110D-04, -.1124D-04,
23913 # -.1133D-04, -.1140D-04, 0.3557D-05, 0.3526D-05, 0.3506D-05,
23914 # 0.3492D-05/
23915
23916 data (calcpts(j,24), j = 1,neta) /-.2117D-10, -.3765D-10,
23917 # -.6691D-10, -.1190D-09, -.2117D-09, -.3764D-09, -.6693D-09,
23918 # -.1191D-08, -.2116D-08, -.3763D-08, -.6694D-08, -.1190D-07,
23919 # -.2117D-07, -.3765D-07, -.6691D-07, -.1190D-06, -.2116D-06,
23920 # -.3763D-06, -.6690D-06, -.1189D-05, -.2113D-05, -.3755D-05,
23921 # -.6671D-05, -.1184D-04, -.2099D-04, -.3716D-04, -.6559D-04,
23922 # -.1154D-03, -.2020D-03, -.3506D-03, -.6016D-03, -.1015D-02,
23923 # -.1674D-02, -.2677D-02, -.4111D-02, -.6001D-02, -.8245D-02,
23924 # -.1058D-01, -.1261D-01, -.1398D-01, -.1449D-01, -.1415D-01,
23925 # -.1313D-01, -.1167D-01, -.9981D-02, -.8257D-02, -.6636D-02,
23926 # -.5198D-02, -.3993D-02, -.3012D-02, -.2240D-02, -.1656D-02,
23927 # -.1208D-02, -.8696D-03, -.6294D-03, -.4595D-03, -.3314D-03,
23928 # -.2311D-03, -.1593D-03, -.1164D-03, -.8792D-04, -.5893D-04,
23929 # -.4462D-04, -.3009D-04, -.1541D-04, -.1563D-04, -.1578D-04,
23930 # -.8765D-06, -.9453D-06, -.9923D-06, -.1024D-05, -.1046D-05,
23931 # -.1061D-05/
23932
23933 data (calcpts(j,25), j = 1,neta) /-.2120D-10, -.3770D-10,
23934 # -.6701D-10, -.1192D-09, -.2120D-09, -.3770D-09, -.6703D-09,
23935 # -.1192D-08, -.2119D-08, -.3769D-08, -.6704D-08, -.1192D-07,
23936 # -.2120D-07, -.3770D-07, -.6700D-07, -.1192D-06, -.2119D-06,
23937 # -.3767D-06, -.6697D-06, -.1190D-05, -.2114D-05, -.3756D-05,
23938 # -.6670D-05, -.1183D-04, -.2096D-04, -.3706D-04, -.6531D-04,
23939 # -.1147D-03, -.2003D-03, -.3466D-03, -.5925D-03, -.9958D-03,
23940 # -.1634D-02, -.2600D-02, -.3976D-02, -.5792D-02, -.7973D-02,
23941 # -.1030D-01, -.1244D-01, -.1402D-01, -.1480D-01, -.1472D-01,
23942 # -.1390D-01, -.1256D-01, -.1091D-01, -.9150D-02, -.7443D-02,
23943 # -.5897D-02, -.4564D-02, -.3478D-02, -.2601D-02, -.1928D-02,
23944 # -.1405D-02, -.1021D-02, -.7362D-03, -.5363D-03, -.3782D-03,
23945 # -.2779D-03, -.1911D-03, -.1333D-03, -.8977D-04, -.7579D-04,
23946 # -.4648D-04, -.3195D-04, -.1727D-04, -.1749D-04, -.1763D-04,
23947 # -.2736D-05, -.2805D-05, -.2852D-05, -.2884D-05, -.2906D-05,
23948 # -.2921D-05/
23949
23950 data (calcpts(j,26), j = 1,neta) /-.2004D-10, -.3564D-10,
23951 # -.6335D-10, -.1127D-09, -.2004D-09, -.3564D-09, -.6337D-09,
23952 # -.1127D-08, -.2003D-08, -.3563D-08, -.6337D-08, -.1127D-07,
23953 # -.2004D-07, -.3564D-07, -.6333D-07, -.1126D-06, -.2003D-06,
23954 # -.3561D-06, -.6329D-06, -.1125D-05, -.1998D-05, -.3548D-05,
23955 # -.6299D-05, -.1117D-04, -.1978D-04, -.3495D-04, -.6155D-04,
23956 # -.1080D-03, -.1883D-03, -.3252D-03, -.5547D-03, -.9297D-03,
23957 # -.1520D-02, -.2411D-02, -.3674D-02, -.5339D-02, -.7347D-02,
23958 # -.9529D-02, -.1161D-01, -.1327D-01, -.1426D-01, -.1446D-01,
23959 # -.1392D-01, -.1280D-01, -.1132D-01, -.9654D-02, -.7973D-02,
23960 # -.6401D-02, -.5014D-02, -.3846D-02, -.2905D-02, -.2154D-02,
23961 # -.1584D-02, -.1155D-02, -.8390D-03, -.6086D-03, -.4351D-03,
23962 # -.3045D-03, -.2176D-03, -.1596D-03, -.1160D-03, -.7199D-04,
23963 # -.5764D-04, -.4309D-04, -.2839D-04, -.1359D-04, -.1374D-04,
23964 # -.1383D-04, 0.1103D-05, 0.1059D-05, 0.1029D-05, 0.1008D-05,
23965 # 0.9939D-06/
23966
23967 data (calcpts(j,27), j = 1,neta) /-.1799D-10, -.3199D-10,
23968 # -.5687D-10, -.1011D-09, -.1799D-09, -.3199D-09, -.5688D-09,
23969 # -.1012D-08, -.1798D-08, -.3198D-08, -.5689D-08, -.1011D-07,
23970 # -.1799D-07, -.3199D-07, -.5685D-07, -.1011D-06, -.1798D-06,
23971 # -.3196D-06, -.5680D-06, -.1010D-05, -.1793D-05, -.3184D-05,
23972 # -.5652D-05, -.1002D-04, -.1774D-04, -.3134D-04, -.5516D-04,
23973 # -.9672D-04, -.1685D-03, -.2908D-03, -.4954D-03, -.8290D-03,
23974 # -.1353D-02, -.2141D-02, -.3255D-02, -.4719D-02, -.6487D-02,
23975 # -.8424D-02, -.1032D-01, -.1192D-01, -.1301D-01, -.1344D-01,
23976 # -.1320D-01, -.1239D-01, -.1116D-01, -.9702D-02, -.8158D-02,
23977 # -.6655D-02, -.5287D-02, -.4105D-02, -.3126D-02, -.2348D-02,
23978 # -.1730D-02, -.1269D-02, -.9212D-03, -.6598D-03, -.4856D-03,
23979 # -.3396D-03, -.2373D-03, -.1792D-03, -.1204D-03, -.9128D-04,
23980 # -.6187D-04, -.4727D-04, -.3254D-04, -.1772D-04, -.1785D-04,
23981 # -.1794D-04, -.2994D-05, -.3034D-05, -.3061D-05, -.3079D-05,
23982 # -.3092D-05/
23983
23984 data (calcpts(j,28), j = 1,neta) /-.1544D-10, -.2746D-10,
23985 # -.4881D-10, -.8681D-10, -.1544D-09, -.2746D-09, -.4882D-09,
23986 # -.8684D-09, -.1543D-08, -.2745D-08, -.4883D-08, -.8681D-08,
23987 # -.1544D-07, -.2746D-07, -.4879D-07, -.8677D-07, -.1543D-06,
23988 # -.2743D-06, -.4875D-06, -.8665D-06, -.1539D-05, -.2733D-05,
23989 # -.4850D-05, -.8597D-05, -.1522D-04, -.2688D-04, -.4730D-04,
23990 # -.8292D-04, -.1444D-03, -.2491D-03, -.4241D-03, -.7091D-03,
23991 # -.1156D-02, -.1827D-02, -.2774D-02, -.4016D-02, -.5514D-02,
23992 # -.7162D-02, -.8795D-02, -.1023D-01, -.1131D-01, -.1188D-01,
23993 # -.1190D-01, -.1140D-01, -.1049D-01, -.9302D-02, -.7977D-02,
23994 # -.6632D-02, -.5359D-02, -.4220D-02, -.3253D-02, -.2462D-02,
23995 # -.1836D-02, -.1352D-02, -.9877D-03, -.7146D-03, -.5141D-03,
23996 # -.3720D-03, -.2693D-03, -.1809D-03, -.1370D-03, -.9274D-04,
23997 # -.6324D-04, -.4859D-04, -.3382D-04, -.1898D-04, -.1909D-04,
23998 # -.1916D-04, -.4212D-05, -.4247D-05, -.4270D-05, -.4286D-05,
23999 # -.4297D-05/
24000
24001 data (calcpts(j,29), j = 1,neta) /-.1277D-10, -.2271D-10,
24002 # -.4036D-10, -.7178D-10, -.1277D-09, -.2270D-09, -.4037D-09,
24003 # -.7180D-09, -.1276D-08, -.2270D-08, -.4037D-08, -.7178D-08,
24004 # -.1276D-07, -.2270D-07, -.4034D-07, -.7175D-07, -.1276D-06,
24005 # -.2268D-06, -.4031D-06, -.7165D-06, -.1272D-05, -.2259D-05,
24006 # -.4010D-05, -.7107D-05, -.1258D-04, -.2222D-04, -.3910D-04,
24007 # -.6853D-04, -.1193D-03, -.2058D-03, -.3503D-03, -.5854D-03,
24008 # -.9541D-03, -.1507D-02, -.2286D-02, -.3306D-02, -.4536D-02,
24009 # -.5889D-02, -.7241D-02, -.8461D-02, -.9428D-02, -.1004D-01,
24010 # -.1024D-01, -.1001D-01, -.9412D-02, -.8529D-02, -.7474D-02,
24011 # -.6343D-02, -.5227D-02, -.4190D-02, -.3279D-02, -.2512D-02,
24012 # -.1892D-02, -.1404D-02, -.1030D-02, -.7499D-03, -.5410D-03,
24013 # -.3879D-03, -.2773D-03, -.1976D-03, -.1400D-03, -.9860D-04,
24014 # -.6902D-04, -.4830D-04, -.3499D-04, -.2462D-04, -.1721D-04,
24015 # -.1127D-04, -.8316D-05, -.5345D-05, -.3864D-05, -.2377D-05,
24016 # -.8862D-06/
24017
24018 data (calcpts(j,30), j = 1,neta) /-.1024D-10, -.1821D-10,
24019 # -.3237D-10, -.5758D-10, -.1024D-09, -.1821D-09, -.3238D-09,
24020 # -.5760D-09, -.1024D-08, -.1821D-08, -.3239D-08, -.5758D-08,
24021 # -.1024D-07, -.1821D-07, -.3236D-07, -.5755D-07, -.1023D-06,
24022 # -.1819D-06, -.3234D-06, -.5747D-06, -.1020D-05, -.1812D-05,
24023 # -.3216D-05, -.5701D-05, -.1009D-04, -.1782D-04, -.3136D-04,
24024 # -.5496D-04, -.9570D-04, -.1650D-03, -.2808D-03, -.4693D-03,
24025 # -.7646D-03, -.1207D-02, -.1830D-02, -.2646D-02, -.3629D-02,
24026 # -.4710D-02, -.5794D-02, -.6785D-02, -.7601D-02, -.8176D-02,
24027 # -.8465D-02, -.8438D-02, -.8102D-02, -.7507D-02, -.6725D-02,
24028 # -.5836D-02, -.4914D-02, -.4020D-02, -.3202D-02, -.2493D-02,
24029 # -.1900D-02, -.1425D-02, -.1054D-02, -.7710D-03, -.5599D-03,
24030 # -.4031D-03, -.2892D-03, -.2062D-03, -.1470D-03, -.1040D-03,
24031 # -.7278D-04, -.5201D-04, -.3717D-04, -.2527D-04, -.1784D-04,
24032 # -.1189D-04, -.8925D-05, -.5948D-05, -.4463D-05, -.2974D-05,
24033 # -.1481D-05/
24034
24035 data (calcpts(j,31), j = 1,neta) /-.8016D-11, -.1426D-10,
24036 # -.2534D-10, -.4507D-10, -.8017D-10, -.1425D-09, -.2535D-09,
24037 # -.4509D-09, -.8013D-09, -.1425D-08, -.2535D-08, -.4507D-08,
24038 # -.8015D-08, -.1425D-07, -.2533D-07, -.4505D-07, -.8011D-07,
24039 # -.1424D-06, -.2531D-06, -.4499D-06, -.7988D-06, -.1419D-05,
24040 # -.2518D-05, -.4462D-05, -.7897D-05, -.1395D-04, -.2455D-04,
24041 # -.4302D-04, -.7490D-04, -.1291D-03, -.2198D-03, -.3672D-03,
24042 # -.5983D-03, -.9443D-03, -.1432D-02, -.2069D-02, -.2837D-02,
24043 # -.3682D-02, -.4530D-02, -.5310D-02, -.5966D-02, -.6459D-02,
24044 # -.6762D-02, -.6850D-02, -.6712D-02, -.6358D-02, -.5827D-02,
24045 # -.5174D-02, -.4456D-02, -.3729D-02, -.3033D-02, -.2404D-02,
24046 # -.1863D-02, -.1415D-02, -.1057D-02, -.7793D-03, -.5689D-03,
24047 # -.4116D-03, -.2959D-03, -.2112D-03, -.1502D-03, -.1071D-03,
24048 # -.7589D-04, -.5357D-04, -.3719D-04, -.2677D-04, -.1933D-04,
24049 # -.1336D-04, -.8891D-05, -.5909D-05, -.4421D-05, -.2929D-05,
24050 # -.2935D-05/
24051
24052 data (calcpts(j,32), j = 1,neta) /-.6153D-11, -.1094D-10,
24053 # -.1945D-10, -.3459D-10, -.6154D-10, -.1094D-09, -.1946D-09,
24054 # -.3461D-09, -.6151D-09, -.1094D-08, -.1946D-08, -.3460D-08,
24055 # -.6152D-08, -.1094D-07, -.1944D-07, -.3458D-07, -.6149D-07,
24056 # -.1093D-06, -.1943D-06, -.3453D-06, -.6131D-06, -.1089D-05,
24057 # -.1932D-05, -.3425D-05, -.6062D-05, -.1071D-04, -.1884D-04,
24058 # -.3302D-04, -.5749D-04, -.9912D-04, -.1687D-03, -.2818D-03,
24059 # -.4591D-03, -.7246D-03, -.1099D-02, -.1588D-02, -.2176D-02,
24060 # -.2824D-02, -.3475D-02, -.4075D-02, -.4586D-02, -.4984D-02,
24061 # -.5256D-02, -.5390D-02, -.5373D-02, -.5197D-02, -.4872D-02,
24062 # -.4428D-02, -.3905D-02, -.3344D-02, -.2783D-02, -.2254D-02,
24063 # -.1778D-02, -.1372D-02, -.1039D-02, -.7750D-03, -.5700D-03,
24064 # -.4138D-03, -.2993D-03, -.2144D-03, -.1533D-03, -.1086D-03,
24065 # -.7733D-04, -.5347D-04, -.3856D-04, -.2663D-04, -.1917D-04,
24066 # -.1320D-04, -.8719D-05, -.5733D-05, -.4242D-05, -.2749D-05,
24067 # -.1253D-05/
24068
24069 data (calcpts(j,33), j = 1,neta) /-.4651D-11, -.8273D-11,
24070 # -.1470D-10, -.2615D-10, -.4652D-10, -.8272D-10, -.1471D-09,
24071 # -.2616D-09, -.4650D-09, -.8270D-09, -.1471D-08, -.2616D-08,
24072 # -.4651D-08, -.8272D-08, -.1470D-07, -.2614D-07, -.4649D-07,
24073 # -.8263D-07, -.1469D-06, -.2611D-06, -.4635D-06, -.8232D-06,
24074 # -.1461D-05, -.2589D-05, -.4583D-05, -.8095D-05, -.1424D-04,
24075 # -.2496D-04, -.4346D-04, -.7493D-04, -.1275D-03, -.2130D-03,
24076 # -.3471D-03, -.5478D-03, -.8304D-03, -.1200D-02, -.1645D-02,
24077 # -.2134D-02, -.2626D-02, -.3081D-02, -.3469D-02, -.3778D-02,
24078 # -.4002D-02, -.4138D-02, -.4179D-02, -.4117D-02, -.3944D-02,
24079 # -.3669D-02, -.3314D-02, -.2906D-02, -.2477D-02, -.2054D-02,
24080 # -.1656D-02, -.1304D-02, -.1003D-02, -.7573D-03, -.5638D-03,
24081 # -.4133D-03, -.3015D-03, -.2165D-03, -.1553D-03, -.1105D-03,
24082 # -.7918D-04, -.5679D-04, -.4036D-04, -.2840D-04, -.1944D-04,
24083 # -.1496D-04, -.1047D-04, -.7485D-05, -.5992D-05, -.4496D-05,
24084 # -.3000D-05/
24085
24086 data (calcpts(j,34), j = 1,neta) /-.3472D-11, -.6176D-11,
24087 # -.1098D-10, -.1952D-10, -.3473D-10, -.6175D-10, -.1098D-09,
24088 # -.1953D-09, -.3471D-09, -.6173D-09, -.1098D-08, -.1952D-08,
24089 # -.3472D-08, -.6174D-08, -.1097D-07, -.1951D-07, -.3470D-07,
24090 # -.6168D-07, -.1096D-06, -.1949D-06, -.3460D-06, -.6145D-06,
24091 # -.1091D-05, -.1933D-05, -.3421D-05, -.6042D-05, -.1063D-04,
24092 # -.1863D-04, -.3244D-04, -.5593D-04, -.9517D-04, -.1590D-03,
24093 # -.2591D-03, -.4089D-03, -.6198D-03, -.8957D-03, -.1228D-02,
24094 # -.1593D-02, -.1960D-02, -.2299D-02, -.2591D-02, -.2824D-02,
24095 # -.2999D-02, -.3116D-02, -.3176D-02, -.3172D-02, -.3097D-02,
24096 # -.2946D-02, -.2724D-02, -.2448D-02, -.2138D-02, -.1816D-02,
24097 # -.1499D-02, -.1206D-02, -.9455D-03, -.7251D-03, -.5463D-03,
24098 # -.4060D-03, -.2971D-03, -.2164D-03, -.1552D-03, -.1118D-03,
24099 # -.7894D-04, -.5651D-04, -.4007D-04, -.2810D-04, -.2063D-04,
24100 # -.1464D-04, -.1015D-04, -.7162D-05, -.5667D-05, -.4171D-05,
24101 # -.2673D-05/
24102
24103 data (calcpts(j,35), j = 1,neta) /-.2566D-11, -.4564D-11,
24104 # -.8112D-11, -.1443D-10, -.2566D-10, -.4563D-10, -.8115D-10,
24105 # -.1443D-09, -.2565D-09, -.4563D-09, -.8115D-09, -.1443D-08,
24106 # -.2566D-08, -.4563D-08, -.8110D-08, -.1442D-07, -.2565D-07,
24107 # -.4559D-07, -.8103D-07, -.1440D-06, -.2557D-06, -.4541D-06,
24108 # -.8060D-06, -.1428D-05, -.2528D-05, -.4466D-05, -.7857D-05,
24109 # -.1377D-04, -.2398D-04, -.4134D-04, -.7034D-04, -.1175D-03,
24110 # -.1915D-03, -.3022D-03, -.4581D-03, -.6620D-03, -.9073D-03,
24111 # -.1177D-02, -.1448D-02, -.1699D-02, -.1915D-02, -.2088D-02,
24112 # -.2220D-02, -.2314D-02, -.2371D-02, -.2391D-02, -.2369D-02,
24113 # -.2298D-02, -.2174D-02, -.2002D-02, -.1791D-02, -.1559D-02,
24114 # -.1320D-02, -.1086D-02, -.8718D-03, -.6811D-03, -.5214D-03,
24115 # -.3915D-03, -.2898D-03, -.2121D-03, -.1538D-03, -.1104D-03,
24116 # -.7900D-04, -.5655D-04, -.4009D-04, -.2812D-04, -.1914D-04,
24117 # -.1315D-04, -.1016D-04, -.7162D-05, -.4166D-05, -.2669D-05,
24118 # -.2670D-05/
24119
24120 data (calcpts(j,36), j = 1,neta) /-.1882D-11, -.3347D-11,
24121 # -.5949D-11, -.1058D-10, -.1882D-10, -.3347D-10, -.5951D-10,
24122 # -.1058D-09, -.1881D-09, -.3346D-09, -.5951D-09, -.1058D-08,
24123 # -.1882D-08, -.3346D-08, -.5947D-08, -.1058D-07, -.1881D-07,
24124 # -.3343D-07, -.5942D-07, -.1056D-06, -.1875D-06, -.3330D-06,
24125 # -.5911D-06, -.1048D-05, -.1854D-05, -.3275D-05, -.5762D-05,
24126 # -.1010D-04, -.1758D-04, -.3032D-04, -.5158D-04, -.8619D-04,
24127 # -.1404D-03, -.2216D-03, -.3359D-03, -.4854D-03, -.6654D-03,
24128 # -.8633D-03, -.1062D-02, -.1246D-02, -.1404D-02, -.1532D-02,
24129 # -.1630D-02, -.1701D-02, -.1749D-02, -.1774D-02, -.1776D-02,
24130 # -.1749D-02, -.1688D-02, -.1590D-02, -.1459D-02, -.1301D-02,
24131 # -.1129D-02, -.9534D-03, -.7830D-03, -.6264D-03, -.4890D-03,
24132 # -.3735D-03, -.2808D-03, -.2075D-03, -.1506D-03, -.1102D-03,
24133 # -.7874D-04, -.5628D-04, -.3981D-04, -.2783D-04, -.2034D-04,
24134 # -.1435D-04, -.9859D-05, -.6863D-05, -.5366D-05, -.3868D-05,
24135 # -.2369D-05/
24136
24137 data (calcpts(j,37), j = 1,neta) /-.1371D-11, -.2439D-11,
24138 # -.4334D-11, -.7709D-11, -.1371D-10, -.2438D-10, -.4336D-10,
24139 # -.7711D-10, -.1371D-09, -.2438D-09, -.4336D-09, -.7709D-09,
24140 # -.1371D-08, -.2438D-08, -.4333D-08, -.7705D-08, -.1370D-07,
24141 # -.2436D-07, -.4329D-07, -.7695D-07, -.1366D-06, -.2426D-06,
24142 # -.4306D-06, -.7632D-06, -.1351D-05, -.2386D-05, -.4198D-05,
24143 # -.7357D-05, -.1281D-04, -.2209D-04, -.3758D-04, -.6279D-04,
24144 # -.1023D-03, -.1614D-03, -.2447D-03, -.3537D-03, -.4847D-03,
24145 # -.6290D-03, -.7738D-03, -.9079D-03, -.1023D-02, -.1116D-02,
24146 # -.1188D-02, -.1241D-02, -.1278D-02, -.1300D-02, -.1310D-02,
24147 # -.1304D-02, -.1279D-02, -.1230D-02, -.1155D-02, -.1056D-02,
24148 # -.9399D-03, -.8136D-03, -.6854D-03, -.5616D-03, -.4483D-03,
24149 # -.3493D-03, -.2664D-03, -.1995D-03, -.1473D-03, -.1075D-03,
24150 # -.7764D-04, -.5563D-04, -.3960D-04, -.2821D-04, -.1997D-04,
24151 # -.1398D-04, -.9931D-05, -.6934D-05, -.4836D-05, -.3337D-05,
24152 # -.2438D-05/
24153
24154 data (calcpts(j,38), j = 1,neta) /-.9934D-12, -.1767D-11,
24155 # -.3141D-11, -.5586D-11, -.9935D-11, -.1767D-10, -.3141D-10,
24156 # -.5587D-10, -.9931D-10, -.1766D-09, -.3142D-09, -.5586D-09,
24157 # -.9933D-09, -.1767D-08, -.3140D-08, -.5583D-08, -.9929D-08,
24158 # -.1765D-07, -.3137D-07, -.5575D-07, -.9899D-07, -.1758D-06,
24159 # -.3120D-06, -.5530D-06, -.9787D-06, -.1729D-05, -.3042D-05,
24160 # -.5331D-05, -.9282D-05, -.1600D-04, -.2723D-04, -.4550D-04,
24161 # -.7412D-04, -.1170D-03, -.1773D-03, -.2563D-03, -.3512D-03,
24162 # -.4557D-03, -.5607D-03, -.6578D-03, -.7414D-03, -.8089D-03,
24163 # -.8609D-03, -.8995D-03, -.9269D-03, -.9453D-03, -.9557D-03,
24164 # -.9577D-03, -.9496D-03, -.9282D-03, -.8901D-03, -.8338D-03,
24165 # -.7607D-03, -.6755D-03, -.5835D-03, -.4905D-03, -.4011D-03,
24166 # -.3196D-03, -.2487D-03, -.1892D-03, -.1416D-03, -.1043D-03,
24167 # -.7596D-04, -.5468D-04, -.3924D-04, -.2785D-04, -.1976D-04,
24168 # -.1391D-04, -.9717D-05, -.6869D-05, -.4771D-05, -.3272D-05,
24169 # -.2223D-05/
24170
24171 data (calcpts(j,39), j = 1,neta) /-.7169D-12, -.1275D-11,
24172 # -.2266D-11, -.4031D-11, -.7170D-11, -.1275D-10, -.2267D-10,
24173 # -.4032D-10, -.7167D-10, -.1275D-09, -.2267D-09, -.4031D-09,
24174 # -.7168D-09, -.1275D-08, -.2266D-08, -.4029D-08, -.7165D-08,
24175 # -.1274D-07, -.2264D-07, -.4023D-07, -.7144D-07, -.1269D-06,
24176 # -.2252D-06, -.3991D-06, -.7063D-06, -.1248D-05, -.2195D-05,
24177 # -.3847D-05, -.6698D-05, -.1155D-04, -.1965D-04, -.3283D-04,
24178 # -.5349D-04, -.8442D-04, -.1280D-03, -.1849D-03, -.2535D-03,
24179 # -.3289D-03, -.4046D-03, -.4747D-03, -.5350D-03, -.5838D-03,
24180 # -.6214D-03, -.6493D-03, -.6694D-03, -.6833D-03, -.6921D-03,
24181 # -.6963D-03, -.6953D-03, -.6874D-03, -.6703D-03, -.6414D-03,
24182 # -.5995D-03, -.5460D-03, -.4838D-03, -.4172D-03, -.3501D-03,
24183 # -.2859D-03, -.2275D-03, -.1767D-03, -.1343D-03, -.1003D-03,
24184 # -.7396D-04, -.5387D-04, -.3888D-04, -.2779D-04, -.1985D-04,
24185 # -.1415D-04, -.9951D-05, -.7103D-05, -.5004D-05, -.3504D-05,
24186 # -.2455D-05/
24187
24188 data (calcpts(j,40), j = 1,neta) /-.5152D-12, -.9164D-12,
24189 # -.1629D-11, -.2897D-11, -.5153D-11, -.9162D-11, -.1629D-10,
24190 # -.2898D-10, -.5150D-10, -.9160D-10, -.1629D-09, -.2897D-09,
24191 # -.5151D-09, -.9162D-09, -.1628D-08, -.2896D-08, -.5149D-08,
24192 # -.9153D-08, -.1627D-07, -.2892D-07, -.5134D-07, -.9118D-07,
24193 # -.1618D-06, -.2868D-06, -.5076D-06, -.8966D-06, -.1578D-05,
24194 # -.2765D-05, -.4814D-05, -.8300D-05, -.1412D-04, -.2360D-04,
24195 # -.3844D-04, -.6067D-04, -.9197D-04, -.1329D-03, -.1822D-03,
24196 # -.2364D-03, -.2908D-03, -.3412D-03, -.3845D-03, -.4195D-03,
24197 # -.4466D-03, -.4667D-03, -.4812D-03, -.4914D-03, -.4982D-03,
24198 # -.5023D-03, -.5036D-03, -.5016D-03, -.4949D-03, -.4816D-03,
24199 # -.4601D-03, -.4293D-03, -.3903D-03, -.3453D-03, -.2974D-03,
24200 # -.2490D-03, -.2031D-03, -.1614D-03, -.1251D-03, -.9502D-04,
24201 # -.7088D-04, -.5215D-04, -.3790D-04, -.2726D-04, -.1946D-04,
24202 # -.1392D-04, -.9867D-05, -.7018D-05, -.4919D-05, -.3420D-05,
24203 # -.2520D-05/
24204
24205 data (calcpts(j,41), j = 1,neta) /-.3691D-12, -.6564D-12,
24206 # -.1167D-11, -.2075D-11, -.3691D-11, -.6563D-11, -.1167D-10,
24207 # -.2076D-10, -.3689D-10, -.6562D-10, -.1167D-09, -.2075D-09,
24208 # -.3690D-09, -.6563D-09, -.1166D-08, -.2074D-08, -.3689D-08,
24209 # -.6557D-08, -.1165D-07, -.2071D-07, -.3678D-07, -.6531D-07,
24210 # -.1159D-06, -.2054D-06, -.3636D-06, -.6423D-06, -.1130D-05,
24211 # -.1980D-05, -.3448D-05, -.5945D-05, -.1012D-04, -.1690D-04,
24212 # -.2754D-04, -.4346D-04, -.6588D-04, -.9520D-04, -.1305D-03,
24213 # -.1693D-03, -.2083D-03, -.2444D-03, -.2754D-03, -.3005D-03,
24214 # -.3199D-03, -.3343D-03, -.3447D-03, -.3521D-03, -.3572D-03,
24215 # -.3605D-03, -.3622D-03, -.3623D-03, -.3602D-03, -.3548D-03,
24216 # -.3448D-03, -.3289D-03, -.3064D-03, -.2782D-03, -.2458D-03,
24217 # -.2112D-03, -.1768D-03, -.1440D-03, -.1142D-03, -.8838D-04,
24218 # -.6709D-04, -.5000D-04, -.3666D-04, -.2661D-04, -.1911D-04,
24219 # -.1372D-04, -.9668D-05, -.6819D-05, -.4869D-05, -.3370D-05,
24220 # -.2320D-05/
24221
24222 data (calcpts(j,42), j = 1,neta) /-.2637D-12, -.4690D-12,
24223 # -.8337D-12, -.1483D-11, -.2637D-11, -.4689D-11, -.8339D-11,
24224 # -.1483D-10, -.2636D-10, -.4689D-10, -.8340D-10, -.1483D-09,
24225 # -.2637D-09, -.4689D-09, -.8334D-09, -.1482D-08, -.2636D-08,
24226 # -.4685D-08, -.8327D-08, -.1480D-07, -.2628D-07, -.4667D-07,
24227 # -.8282D-07, -.1468D-06, -.2598D-06, -.4589D-06, -.8074D-06,
24228 # -.1415D-05, -.2464D-05, -.4248D-05, -.7228D-05, -.1208D-04,
24229 # -.1967D-04, -.3105D-04, -.4707D-04, -.6802D-04, -.9323D-04,
24230 # -.1210D-03, -.1488D-03, -.1746D-03, -.1968D-03, -.2147D-03,
24231 # -.2286D-03, -.2389D-03, -.2463D-03, -.2516D-03, -.2553D-03,
24232 # -.2578D-03, -.2593D-03, -.2600D-03, -.2596D-03, -.2577D-03,
24233 # -.2536D-03, -.2462D-03, -.2345D-03, -.2182D-03, -.1978D-03,
24234 # -.1746D-03, -.1499D-03, -.1253D-03, -.1018D-03, -.8068D-04,
24235 # -.6239D-04, -.4724D-04, -.3525D-04, -.2580D-04, -.1875D-04,
24236 # -.1350D-04, -.9603D-05, -.6754D-05, -.4804D-05, -.3455D-05,
24237 # -.2405D-05/
24238
24239 data (calcpts(j,43), j = 1,neta) /-.1880D-12, -.3343D-12,
24240 # -.5942D-12, -.1057D-11, -.1880D-11, -.3342D-11, -.5944D-11,
24241 # -.1057D-10, -.1879D-10, -.3342D-10, -.5944D-10, -.1057D-09,
24242 # -.1879D-09, -.3342D-09, -.5940D-09, -.1056D-08, -.1878D-08,
24243 # -.3339D-08, -.5935D-08, -.1055D-07, -.1873D-07, -.3326D-07,
24244 # -.5903D-07, -.1046D-06, -.1852D-06, -.3271D-06, -.5755D-06,
24245 # -.1009D-05, -.1756D-05, -.3028D-05, -.5152D-05, -.8608D-05,
24246 # -.1402D-04, -.2213D-04, -.3355D-04, -.4848D-04, -.6645D-04,
24247 # -.8622D-04, -.1061D-03, -.1245D-03, -.1403D-03, -.1530D-03,
24248 # -.1629D-03, -.1703D-03, -.1756D-03, -.1794D-03, -.1820D-03,
24249 # -.1838D-03, -.1850D-03, -.1857D-03, -.1859D-03, -.1854D-03,
24250 # -.1838D-03, -.1807D-03, -.1753D-03, -.1668D-03, -.1550D-03,
24251 # -.1404D-03, -.1238D-03, -.1061D-03, -.8858D-04, -.7196D-04,
24252 # -.5695D-04, -.4401D-04, -.3330D-04, -.2475D-04, -.1815D-04,
24253 # -.1320D-04, -.9453D-05, -.6753D-05, -.4804D-05, -.3304D-05,
24254 # -.2404D-05/
24255
24256 data (calcpts(j,44), j = 1,neta) /-.1337D-12, -.2377D-12,
24257 # -.4225D-12, -.7515D-12, -.1337D-11, -.2377D-11, -.4227D-11,
24258 # -.7518D-11, -.1336D-10, -.2376D-10, -.4227D-10, -.7516D-10,
24259 # -.1336D-09, -.2377D-09, -.4224D-09, -.7512D-09, -.1336D-08,
24260 # -.2374D-08, -.4220D-08, -.7501D-08, -.1332D-07, -.2365D-07,
24261 # -.4198D-07, -.7440D-07, -.1317D-06, -.2326D-06, -.4092D-06,
24262 # -.7172D-06, -.1249D-05, -.2153D-05, -.3664D-05, -.6121D-05,
24263 # -.9972D-05, -.1574D-04, -.2386D-04, -.3448D-04, -.4726D-04,
24264 # -.6132D-04, -.7544D-04, -.8851D-04, -.9975D-04, -.1088D-03,
24265 # -.1159D-03, -.1211D-03, -.1249D-03, -.1276D-03, -.1294D-03,
24266 # -.1307D-03, -.1316D-03, -.1322D-03, -.1325D-03, -.1324D-03,
24267 # -.1320D-03, -.1308D-03, -.1285D-03, -.1245D-03, -.1184D-03,
24268 # -.1099D-03, -.9945D-04, -.8755D-04, -.7500D-04, -.6253D-04,
24269 # -.5075D-04, -.4011D-04, -.3097D-04, -.2341D-04, -.1738D-04,
24270 # -.1273D-04, -.9203D-05, -.6594D-05, -.4704D-05, -.3324D-05,
24271 # -.2349D-05/
24272
24273 data (calcpts(j,45), j = 1,neta) /-.9491D-13, -.1688D-12,
24274 # -.3000D-12, -.5336D-12, -.9492D-12, -.1688D-11, -.3001D-11,
24275 # -.5338D-11, -.9488D-11, -.1687D-10, -.3001D-10, -.5337D-10,
24276 # -.9489D-10, -.1688D-09, -.2999D-09, -.5334D-09, -.9485D-09,
24277 # -.1686D-08, -.2997D-08, -.5326D-08, -.9457D-08, -.1680D-07,
24278 # -.2981D-07, -.5283D-07, -.9350D-07, -.1652D-06, -.2906D-06,
24279 # -.5093D-06, -.8867D-06, -.1529D-05, -.2601D-05, -.4347D-05,
24280 # -.7081D-05, -.1118D-04, -.1694D-04, -.2448D-04, -.3355D-04,
24281 # -.4354D-04, -.5356D-04, -.6285D-04, -.7083D-04, -.7728D-04,
24282 # -.8226D-04, -.8597D-04, -.8866D-04, -.9058D-04, -.9192D-04,
24283 # -.9285D-04, -.9349D-04, -.9391D-04, -.9416D-04, -.9426D-04,
24284 # -.9416D-04, -.9377D-04, -.9288D-04, -.9118D-04, -.8830D-04,
24285 # -.8390D-04, -.7785D-04, -.7036D-04, -.6189D-04, -.5297D-04,
24286 # -.4413D-04, -.3577D-04, -.2826D-04, -.2180D-04, -.1647D-04,
24287 # -.1223D-04, -.8957D-05, -.6482D-05, -.4652D-05, -.3317D-05,
24288 # -.2357D-05/
24289
24290 data (calcpts(j,46), j = 1,neta) /-.6725D-13, -.1196D-12,
24291 # -.2126D-12, -.3781D-12, -.6726D-12, -.1196D-11, -.2127D-11,
24292 # -.3782D-11, -.6723D-11, -.1196D-10, -.2127D-10, -.3781D-10,
24293 # -.6724D-10, -.1196D-09, -.2125D-09, -.3779D-09, -.6721D-09,
24294 # -.1195D-08, -.2123D-08, -.3774D-08, -.6701D-08, -.1190D-07,
24295 # -.2112D-07, -.3743D-07, -.6625D-07, -.1170D-06, -.2059D-06,
24296 # -.3609D-06, -.6283D-06, -.1083D-05, -.1843D-05, -.3080D-05,
24297 # -.5017D-05, -.7918D-05, -.1200D-04, -.1735D-04, -.2378D-04,
24298 # -.3085D-04, -.3795D-04, -.4453D-04, -.5019D-04, -.5476D-04,
24299 # -.5829D-04, -.6092D-04, -.6282D-04, -.6418D-04, -.6513D-04,
24300 # -.6579D-04, -.6625D-04, -.6655D-04, -.6675D-04, -.6686D-04,
24301 # -.6688D-04, -.6678D-04, -.6647D-04, -.6581D-04, -.6457D-04,
24302 # -.6250D-04, -.5934D-04, -.5502D-04, -.4969D-04, -.4366D-04,
24303 # -.3733D-04, -.3106D-04, -.2517D-04, -.1986D-04, -.1530D-04,
24304 # -.1155D-04, -.8567D-05, -.6258D-05, -.4533D-05, -.3243D-05,
24305 # -.2313D-05/
24306
24307 data (calcpts(j,47), j = 1,neta) /-.4757D-13, -.8461D-13,
24308 # -.1504D-12, -.2675D-12, -.4758D-12, -.8460D-12, -.1504D-11,
24309 # -.2676D-11, -.4756D-11, -.8458D-11, -.1504D-10, -.2675D-10,
24310 # -.4757D-10, -.8460D-10, -.1503D-09, -.2674D-09, -.4755D-09,
24311 # -.8451D-09, -.1502D-08, -.2670D-08, -.4740D-08, -.8419D-08,
24312 # -.1494D-07, -.2648D-07, -.4687D-07, -.8278D-07, -.1457D-06,
24313 # -.2553D-06, -.4445D-06, -.7663D-06, -.1304D-05, -.2179D-05,
24314 # -.3549D-05, -.5602D-05, -.8492D-05, -.1227D-04, -.1682D-04,
24315 # -.2182D-04, -.2685D-04, -.3150D-04, -.3550D-04, -.3874D-04,
24316 # -.4123D-04, -.4309D-04, -.4444D-04, -.4540D-04, -.4608D-04,
24317 # -.4654D-04, -.4687D-04, -.4709D-04, -.4723D-04, -.4733D-04,
24318 # -.4737D-04, -.4736D-04, -.4726D-04, -.4703D-04, -.4654D-04,
24319 # -.4565D-04, -.4416D-04, -.4190D-04, -.3882D-04, -.3503D-04,
24320 # -.3075D-04, -.2629D-04, -.2185D-04, -.1768D-04, -.1394D-04,
24321 # -.1073D-04, -.8092D-05, -.5992D-05, -.4372D-05, -.3157D-05,
24322 # -.2257D-05/
24323
24324 data (calcpts(j,48), j = 1,neta) /-.3361D-13, -.5979D-13,
24325 # -.1063D-12, -.1890D-12, -.3362D-12, -.5977D-12, -.1063D-11,
24326 # -.1891D-11, -.3360D-11, -.5976D-11, -.1063D-10, -.1890D-10,
24327 # -.3361D-10, -.5977D-10, -.1062D-09, -.1889D-09, -.3359D-09,
24328 # -.5971D-09, -.1061D-08, -.1886D-08, -.3349D-08, -.5948D-08,
24329 # -.1056D-07, -.1871D-07, -.3312D-07, -.5849D-07, -.1029D-06,
24330 # -.1804D-06, -.3141D-06, -.5415D-06, -.9213D-06, -.1539D-05,
24331 # -.2508D-05, -.3958D-05, -.6000D-05, -.8671D-05, -.1188D-04,
24332 # -.1542D-04, -.1897D-04, -.2226D-04, -.2509D-04, -.2737D-04,
24333 # -.2914D-04, -.3045D-04, -.3140D-04, -.3208D-04, -.3256D-04,
24334 # -.3289D-04, -.3311D-04, -.3327D-04, -.3338D-04, -.3345D-04,
24335 # -.3349D-04, -.3350D-04, -.3348D-04, -.3341D-04, -.3323D-04,
24336 # -.3288D-04, -.3224D-04, -.3117D-04, -.2956D-04, -.2737D-04,
24337 # -.2468D-04, -.2165D-04, -.1849D-04, -.1536D-04, -.1242D-04,
24338 # -.9778D-05, -.7528D-05, -.5668D-05, -.4198D-05, -.3058D-05,
24339 # -.2218D-05/
24340
24341 data (calcpts(j,49), j = 1,neta) /-.2372D-13, -.4218D-13,
24342 # -.7498D-13, -.1334D-12, -.2372D-12, -.4218D-12, -.7500D-12,
24343 # -.1334D-11, -.2371D-11, -.4217D-11, -.7501D-11, -.1334D-10,
24344 # -.2371D-10, -.4218D-10, -.7495D-10, -.1333D-09, -.2370D-09,
24345 # -.4213D-09, -.7489D-09, -.1331D-08, -.2363D-08, -.4197D-08,
24346 # -.7449D-08, -.1320D-07, -.2337D-07, -.4127D-07, -.7262D-07,
24347 # -.1273D-06, -.2216D-06, -.3821D-06, -.6501D-06, -.1086D-05,
24348 # -.1770D-05, -.2793D-05, -.4234D-05, -.6118D-05, -.8385D-05,
24349 # -.1088D-04, -.1339D-04, -.1571D-04, -.1770D-04, -.1931D-04,
24350 # -.2056D-04, -.2149D-04, -.2216D-04, -.2264D-04, -.2297D-04,
24351 # -.2320D-04, -.2337D-04, -.2348D-04, -.2355D-04, -.2360D-04,
24352 # -.2364D-04, -.2365D-04, -.2366D-04, -.2363D-04, -.2358D-04,
24353 # -.2345D-04, -.2319D-04, -.2273D-04, -.2197D-04, -.2083D-04,
24354 # -.1927D-04, -.1737D-04, -.1523D-04, -.1299D-04, -.1078D-04,
24355 # -.8717D-05, -.6857D-05, -.5267D-05, -.3962D-05, -.2942D-05,
24356 # -.2147D-05/
24357
24358 data (dlaeta(j), j = 1,neta) /
24359 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
24360 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
24361 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
24362 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
24363 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
24364 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
24365 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
24366 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
24367 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
24368 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
24369 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
24370 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
24371 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
24372 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
24373 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
24374
24375 data (dlaxi(j), j = 1,nxi) /
24376 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
24377 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
24378 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
24379 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
24380 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
24381 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
24382 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
24383 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
24384 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
24385 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
24386
24387 dleta = dlog10(eta)
24388 dlxi = dlog10(xi)
24389 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
24390 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
24391 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
24392 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
24393 call locate(dlaeta,neta, dleta, ieta)
24394 call locate(dlaxi, nxi, dlxi, ixi)
24395c interpolating between the appropriate points
24396 delxi = 1d0/6d0
24397 deleta = 1d0/6d0
24398c lagrange 3-pt.
24399 if (ixi .le. 2) ixi = 2
24400 if (ixi .ge. 48) ixi = 48
24401 if (ieta .le. 2) ieta = 2
24402 if (ieta .ge. 72) ieta = 72
24403 pxi = (dlxi - dlaxi(ixi))/delxi
24404 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
24405 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
24406 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
24407 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
24408 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
24409 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
24410 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
24411 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
24412 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
24413 peta = (dleta - dlaeta(ieta))/deleta
24414 h1_HLq = peta*(peta-1d0)/2d0*f(-1) +
24415 # (1d0 - peta**2)*f(0) +
24416CMB # + peta*(peta+1d0)/2d0*f(1)
24417 # peta*(peta+1d0)/2d0*f(1)
24418 return
24419 end
24420
24421c ===========================================
24422 double precision function h1bar_HLq(eta,xi)
24423c ===========================================
24424
24425c eq (27) in PLB347 (1995) 143 - 151 for the transverse piece
24426c MSbar scheme
24427c This routine is called subcqhlbar in the original code.
24428c Called sqlbar in updated code (03/06/96).
24429
24430 implicit none
24431 integer neta, nxi
24432 parameter (neta = 73, nxi = 49)
24433 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
24434 double precision eta, xi, dleta, dlxi
24435 double precision pxi, peta, f(-1:1), delxi, deleta
24436 integer j, ieta, ixi
24437
24438 data (calcpts(j, 1), j = 1,neta) /0.7071D-14, 0.1258D-13,
24439 # 0.2235D-13, 0.3975D-13, 0.7071D-13, 0.1257D-12, 0.2236D-12,
24440 # 0.3977D-12, 0.7068D-12, 0.1257D-11, 0.2236D-11, 0.3975D-11,
24441 # 0.7068D-11, 0.1257D-10, 0.2234D-10, 0.3972D-10, 0.7062D-10,
24442 # 0.1255D-09, 0.2229D-09, 0.3959D-09, 0.7023D-09, 0.1245D-08,
24443 # 0.2205D-08, 0.3896D-08, 0.6863D-08, 0.1204D-07, 0.2097D-07,
24444 # 0.3623D-07, 0.6178D-07, 0.1034D-06, 0.1688D-06, 0.2662D-06,
24445 # 0.4012D-06, 0.5725D-06, 0.7658D-06, 0.9555D-06, 0.1113D-05,
24446 # 0.1217D-05, 0.1255D-05, 0.1223D-05, 0.1129D-05, 0.9890D-06,
24447 # 0.8246D-06, 0.6585D-06, 0.5077D-06, 0.3804D-06, 0.2780D-06,
24448 # 0.2007D-06, 0.1423D-06, 0.1004D-06, 0.6907D-07, 0.4861D-07,
24449 # 0.3374D-07, 0.2298D-07, 0.1593D-07, 0.1030D-07, 0.8102D-08,
24450 # 0.5170D-08, 0.3239D-08, 0.2466D-08, 0.1462D-08, 0.1800D-08,
24451 # 0.5305D-09, 0.6874D-09, 0.7944D-09, 0.8672D-09, 0.9168D-09,
24452 # -.5494D-09, -.5264D-09, -.5107D-09, -.5000D-09, -.4927D-09,
24453 # -.4878D-09/
24454
24455 data (calcpts(j, 2), j = 1,neta) /0.1038D-13, 0.1846D-13,
24456 # 0.3281D-13, 0.5835D-13, 0.1038D-12, 0.1845D-12, 0.3282D-12,
24457 # 0.5837D-12, 0.1037D-11, 0.1845D-11, 0.3282D-11, 0.5835D-11,
24458 # 0.1037D-10, 0.1845D-10, 0.3279D-10, 0.5829D-10, 0.1036D-09,
24459 # 0.1842D-09, 0.3272D-09, 0.5811D-09, 0.1031D-08, 0.1828D-08,
24460 # 0.3237D-08, 0.5718D-08, 0.1007D-07, 0.1767D-07, 0.3078D-07,
24461 # 0.5317D-07, 0.9068D-07, 0.1518D-06, 0.2477D-06, 0.3907D-06,
24462 # 0.5888D-06, 0.8403D-06, 0.1124D-05, 0.1403D-05, 0.1635D-05,
24463 # 0.1788D-05, 0.1841D-05, 0.1796D-05, 0.1658D-05, 0.1451D-05,
24464 # 0.1210D-05, 0.9677D-06, 0.7471D-06, 0.5589D-06, 0.4104D-06,
24465 # 0.2951D-06, 0.2097D-06, 0.1473D-06, 0.1041D-06, 0.7141D-07,
24466 # 0.4950D-07, 0.3464D-07, 0.2390D-07, 0.1685D-07, 0.1272D-07,
24467 # 0.9026D-08, 0.6095D-08, 0.5663D-08, 0.3391D-08, 0.3887D-08,
24468 # 0.2724D-08, 0.2955D-08, 0.1612D-08, 0.1719D-08, 0.1791D-08,
24469 # 0.1841D-08, 0.1875D-08, 0.1898D-08, 0.1913D-08, 0.1924D-08,
24470 # 0.1931D-08/
24471
24472 data (calcpts(j, 3), j = 1,neta) /0.1522D-13, 0.2708D-13,
24473 # 0.4812D-13, 0.8559D-13, 0.1522D-12, 0.2707D-12, 0.4814D-12,
24474 # 0.8562D-12, 0.1522D-11, 0.2706D-11, 0.4814D-11, 0.8559D-11,
24475 # 0.1522D-10, 0.2706D-10, 0.4809D-10, 0.8551D-10, 0.1520D-09,
24476 # 0.2701D-09, 0.4799D-09, 0.8524D-09, 0.1512D-08, 0.2681D-08,
24477 # 0.4748D-08, 0.8388D-08, 0.1478D-07, 0.2592D-07, 0.4515D-07,
24478 # 0.7800D-07, 0.1330D-06, 0.2226D-06, 0.3633D-06, 0.5731D-06,
24479 # 0.8638D-06, 0.1233D-05, 0.1649D-05, 0.2058D-05, 0.2397D-05,
24480 # 0.2621D-05, 0.2701D-05, 0.2633D-05, 0.2429D-05, 0.2126D-05,
24481 # 0.1772D-05, 0.1416D-05, 0.1091D-05, 0.8163D-06, 0.5969D-06,
24482 # 0.4288D-06, 0.3029D-06, 0.2122D-06, 0.1470D-06, 0.1055D-06,
24483 # 0.6832D-07, 0.3893D-07, 0.3458D-07, 0.2684D-07, 0.1679D-07,
24484 # 0.5163D-08, 0.7463D-08, 0.9030D-08, -.4902D-08, -.4174D-08,
24485 # -.3679D-08, -.3341D-08, -.3111D-08, -.2954D-08, -.2847D-08,
24486 # -.2774D-08, -.2725D-08, -.2691D-08, -.2668D-08, -.2652D-08,
24487 # -.2642D-08/
24488
24489 data (calcpts(j, 4), j = 1,neta) /0.2234D-13, 0.3973D-13,
24490 # 0.7061D-13, 0.1256D-12, 0.2234D-12, 0.3972D-12, 0.7063D-12,
24491 # 0.1256D-11, 0.2233D-11, 0.3971D-11, 0.7063D-11, 0.1256D-10,
24492 # 0.2233D-10, 0.3971D-10, 0.7057D-10, 0.1255D-09, 0.2231D-09,
24493 # 0.3964D-09, 0.7042D-09, 0.1251D-08, 0.2219D-08, 0.3934D-08,
24494 # 0.6967D-08, 0.1231D-07, 0.2168D-07, 0.3803D-07, 0.6626D-07,
24495 # 0.1145D-06, 0.1952D-06, 0.3267D-06, 0.5332D-06, 0.8410D-06,
24496 # 0.1268D-05, 0.1809D-05, 0.2420D-05, 0.3020D-05, 0.3519D-05,
24497 # 0.3848D-05, 0.3965D-05, 0.3865D-05, 0.3568D-05, 0.3128D-05,
24498 # 0.2606D-05, 0.2084D-05, 0.1606D-05, 0.1202D-05, 0.8735D-06,
24499 # 0.6284D-06, 0.4504D-06, 0.3150D-06, 0.2217D-06, 0.1508D-06,
24500 # 0.1093D-06, 0.7222D-07, 0.4284D-07, 0.3850D-07, 0.1576D-07,
24501 # 0.2071D-07, 0.9091D-08, 0.1139D-07, -.2043D-08, -.9755D-09,
24502 # -.2487D-09, 0.2471D-09, 0.5849D-09, 0.8149D-09, 0.9716D-09,
24503 # 0.1078D-08, 0.1151D-08, 0.1201D-08, 0.1234D-08, 0.1257D-08,
24504 # 0.1273D-08/
24505
24506 data (calcpts(j, 5), j = 1,neta) /0.3277D-13, 0.5829D-13,
24507 # 0.1036D-12, 0.1843D-12, 0.3277D-12, 0.5827D-12, 0.1036D-11,
24508 # 0.1843D-11, 0.3276D-11, 0.5826D-11, 0.1036D-10, 0.1842D-10,
24509 # 0.3276D-10, 0.5826D-10, 0.1035D-09, 0.1841D-09, 0.3273D-09,
24510 # 0.5816D-09, 0.1033D-08, 0.1835D-08, 0.3255D-08, 0.5772D-08,
24511 # 0.1022D-07, 0.1806D-07, 0.3181D-07, 0.5580D-07, 0.9721D-07,
24512 # 0.1679D-06, 0.2864D-06, 0.4793D-06, 0.7823D-06, 0.1234D-05,
24513 # 0.1860D-05, 0.2655D-05, 0.3553D-05, 0.4433D-05, 0.5166D-05,
24514 # 0.5649D-05, 0.5822D-05, 0.5680D-05, 0.5241D-05, 0.4590D-05,
24515 # 0.3820D-05, 0.3061D-05, 0.2354D-05, 0.1770D-05, 0.1289D-05,
24516 # 0.9368D-06, 0.6648D-06, 0.4732D-06, 0.3234D-06, 0.2304D-06,
24517 # 0.1596D-06, 0.1032D-06, 0.8115D-07, 0.5179D-07, 0.3243D-07,
24518 # 0.2470D-07, 0.1466D-07, 0.1803D-07, 0.5327D-08, 0.6894D-08,
24519 # 0.7960D-08, 0.8687D-08, 0.9183D-08, 0.9520D-08, 0.9750D-08,
24520 # 0.9907D-08, 0.1001D-07, 0.1009D-07, 0.1014D-07, 0.1017D-07,
24521 # 0.1019D-07/
24522
24523 data (calcpts(j, 6), j = 1,neta) /0.4805D-13, 0.8547D-13,
24524 # 0.1519D-12, 0.2702D-12, 0.4806D-12, 0.8545D-12, 0.1519D-11,
24525 # 0.2703D-11, 0.4803D-11, 0.8543D-11, 0.1520D-10, 0.2702D-10,
24526 # 0.4804D-10, 0.8543D-10, 0.1518D-09, 0.2699D-09, 0.4799D-09,
24527 # 0.8528D-09, 0.1515D-08, 0.2691D-08, 0.4773D-08, 0.8463D-08,
24528 # 0.1499D-07, 0.2648D-07, 0.4664D-07, 0.8183D-07, 0.1425D-06,
24529 # 0.2462D-06, 0.4200D-06, 0.7029D-06, 0.1147D-05, 0.1810D-05,
24530 # 0.2729D-05, 0.3894D-05, 0.5212D-05, 0.6505D-05, 0.7579D-05,
24531 # 0.8289D-05, 0.8535D-05, 0.8330D-05, 0.7691D-05, 0.6728D-05,
24532 # 0.5606D-05, 0.4484D-05, 0.3460D-05, 0.2584D-05, 0.1900D-05,
24533 # 0.1368D-05, 0.9749D-06, 0.6750D-06, 0.4691D-06, 0.3348D-06,
24534 # 0.2270D-06, 0.1562D-06, 0.9983D-07, 0.7776D-07, 0.4838D-07,
24535 # 0.2904D-07, 0.2130D-07, 0.1124D-07, 0.1461D-07, 0.1912D-08,
24536 # 0.3475D-08, 0.4542D-08, 0.5269D-08, 0.5763D-08, 0.6101D-08,
24537 # 0.6330D-08, 0.6487D-08, 0.6593D-08, 0.6666D-08, 0.6716D-08,
24538 # 0.6749D-08/
24539
24540 data (calcpts(j, 7), j = 1,neta) /0.7043D-13, 0.1253D-12,
24541 # 0.2227D-12, 0.3960D-12, 0.7044D-12, 0.1253D-11, 0.2227D-11,
24542 # 0.3961D-11, 0.7041D-11, 0.1252D-10, 0.2227D-10, 0.3960D-10,
24543 # 0.7041D-10, 0.1252D-09, 0.2225D-09, 0.3957D-09, 0.7035D-09,
24544 # 0.1250D-08, 0.2221D-08, 0.3944D-08, 0.6996D-08, 0.1241D-07,
24545 # 0.2197D-07, 0.3881D-07, 0.6837D-07, 0.1199D-06, 0.2090D-06,
24546 # 0.3610D-06, 0.6156D-06, 0.1031D-05, 0.1682D-05, 0.2654D-05,
24547 # 0.4001D-05, 0.5712D-05, 0.7645D-05, 0.9542D-05, 0.1112D-04,
24548 # 0.1217D-04, 0.1253D-04, 0.1222D-04, 0.1128D-04, 0.9879D-05,
24549 # 0.8236D-05, 0.6579D-05, 0.5079D-05, 0.3800D-05, 0.2788D-05,
24550 # 0.1996D-05, 0.1425D-05, 0.1005D-05, 0.6910D-06, 0.4859D-06,
24551 # 0.3367D-06, 0.2289D-06, 0.1582D-06, 0.1018D-06, 0.7968D-07,
24552 # 0.5030D-07, 0.3095D-07, 0.2320D-07, 0.1314D-07, 0.1650D-07,
24553 # 0.3796D-08, 0.5360D-08, 0.6425D-08, 0.7150D-08, 0.7644D-08,
24554 # 0.7981D-08, 0.8210D-08, 0.8367D-08, -.6527D-08, -.6454D-08,
24555 # -.6405D-08/
24556
24557 data (calcpts(j, 8), j = 1,neta) /0.1032D-12, 0.1835D-12,
24558 # 0.3262D-12, 0.5802D-12, 0.1032D-11, 0.1835D-11, 0.3263D-11,
24559 # 0.5804D-11, 0.1032D-10, 0.1835D-10, 0.3263D-10, 0.5802D-10,
24560 # 0.1032D-09, 0.1835D-09, 0.3260D-09, 0.5797D-09, 0.1031D-08,
24561 # 0.1831D-08, 0.3253D-08, 0.5779D-08, 0.1025D-07, 0.1818D-07,
24562 # 0.3219D-07, 0.5687D-07, 0.1002D-06, 0.1757D-06, 0.3062D-06,
24563 # 0.5289D-06, 0.9021D-06, 0.1510D-05, 0.2465D-05, 0.3890D-05,
24564 # 0.5866D-05, 0.8377D-05, 0.1121D-04, 0.1400D-04, 0.1632D-04,
24565 # 0.1785D-04, 0.1840D-04, 0.1795D-04, 0.1656D-04, 0.1450D-04,
24566 # 0.1209D-04, 0.9673D-05, 0.7465D-05, 0.5587D-05, 0.4094D-05,
24567 # 0.2950D-05, 0.2092D-05, 0.1480D-05, 0.1031D-05, 0.7180D-06,
24568 # 0.4981D-06, 0.3489D-06, 0.2410D-06, 0.1703D-06, 0.1288D-06,
24569 # 0.9171D-07, 0.6230D-07, 0.4292D-07, 0.3516D-07, 0.2510D-07,
24570 # 0.2845D-07, 0.1574D-07, 0.1730D-07, 0.1837D-07, 0.1909D-07,
24571 # 0.1958D-07, 0.1992D-07, 0.2015D-07, 0.2031D-07, 0.2041D-07,
24572 # 0.2048D-07/
24573
24574 data (calcpts(j, 9), j = 1,neta) /0.1510D-12, 0.2685D-12,
24575 # 0.4773D-12, 0.8489D-12, 0.1510D-11, 0.2685D-11, 0.4774D-11,
24576 # 0.8491D-11, 0.1509D-10, 0.2684D-10, 0.4774D-10, 0.8488D-10,
24577 # 0.1509D-09, 0.2684D-09, 0.4770D-09, 0.8481D-09, 0.1508D-08,
24578 # 0.2679D-08, 0.4760D-08, 0.8454D-08, 0.1500D-07, 0.2659D-07,
24579 # 0.4709D-07, 0.8320D-07, 0.1466D-06, 0.2571D-06, 0.4480D-06,
24580 # 0.7740D-06, 0.1320D-05, 0.2210D-05, 0.3608D-05, 0.5695D-05,
24581 # 0.8591D-05, 0.1227D-04, 0.1643D-04, 0.2051D-04, 0.2392D-04,
24582 # 0.2616D-04, 0.2696D-04, 0.2628D-04, 0.2426D-04, 0.2123D-04,
24583 # 0.1770D-04, 0.1414D-04, 0.1090D-04, 0.8152D-05, 0.5971D-05,
24584 # 0.4277D-05, 0.3024D-05, 0.2126D-05, 0.1471D-05, 0.1008D-05,
24585 # 0.6944D-06, 0.4892D-06, 0.2948D-06, 0.2168D-06, 0.1159D-06,
24586 # 0.1494D-06, 0.2220D-07, 0.3774D-07, 0.4833D-07, 0.5555D-07,
24587 # 0.6046D-07, -.8619D-07, -.8390D-07, -.8235D-07, -.8129D-07,
24588 # -.8057D-07, -.8008D-07, -.7974D-07, -.7951D-07, -.7936D-07,
24589 # -.7925D-07/
24590
24591 data (calcpts(j,10), j = 1,neta) /0.2207D-12, 0.3925D-12,
24592 # 0.6976D-12, 0.1241D-11, 0.2207D-11, 0.3924D-11, 0.6978D-11,
24593 # 0.1241D-10, 0.2206D-10, 0.3923D-10, 0.6978D-10, 0.1241D-09,
24594 # 0.2206D-09, 0.3923D-09, 0.6972D-09, 0.1240D-08, 0.2204D-08,
24595 # 0.3916D-08, 0.6958D-08, 0.1236D-07, 0.2192D-07, 0.3887D-07,
24596 # 0.6884D-07, 0.1216D-06, 0.2143D-06, 0.3759D-06, 0.6549D-06,
24597 # 0.1132D-05, 0.1930D-05, 0.3232D-05, 0.5279D-05, 0.8334D-05,
24598 # 0.1257D-04, 0.1797D-04, 0.2406D-04, 0.3007D-04, 0.3508D-04,
24599 # 0.3837D-04, 0.3956D-04, 0.3857D-04, 0.3560D-04, 0.3117D-04,
24600 # 0.2598D-04, 0.2081D-04, 0.1595D-04, 0.1201D-04, 0.8833D-05,
24601 # 0.6355D-05, 0.4407D-05, 0.3191D-05, 0.2248D-05, 0.1534D-05,
24602 # 0.9652D-06, 0.7414D-06, 0.4458D-06, 0.4011D-06, 0.1728D-06,
24603 # 0.2217D-06, 0.1051D-06, 0.1278D-06, -.6740D-08, 0.3811D-08,
24604 # 0.1099D-07, 0.1589D-07, 0.1923D-07, 0.2150D-07, 0.2305D-07,
24605 # 0.2410D-07, 0.2482D-07, 0.2531D-07, 0.2564D-07, 0.2587D-07,
24606 # 0.2603D-07/
24607
24608 data (calcpts(j,11), j = 1,neta) /0.3220D-12, 0.5726D-12,
24609 # 0.1018D-11, 0.1810D-11, 0.3220D-11, 0.5725D-11, 0.1018D-10,
24610 # 0.1811D-10, 0.3218D-10, 0.5724D-10, 0.1018D-09, 0.1810D-09,
24611 # 0.3219D-09, 0.5724D-09, 0.1017D-08, 0.1809D-08, 0.3216D-08,
24612 # 0.5714D-08, 0.1015D-07, 0.1803D-07, 0.3198D-07, 0.5671D-07,
24613 # 0.1004D-06, 0.1775D-06, 0.3126D-06, 0.5485D-06, 0.9557D-06,
24614 # 0.1652D-05, 0.2818D-05, 0.4720D-05, 0.7710D-05, 0.1218D-04,
24615 # 0.1838D-04, 0.2628D-04, 0.3524D-04, 0.4405D-04, 0.5141D-04,
24616 # 0.5627D-04, 0.5802D-04, 0.5660D-04, 0.5232D-04, 0.4571D-04,
24617 # 0.3816D-04, 0.3050D-04, 0.2357D-04, 0.1761D-04, 0.1302D-04,
24618 # 0.9293D-05, 0.6683D-05, 0.4741D-05, 0.3224D-05, 0.2282D-05,
24619 # 0.1566D-05, 0.1146D-05, 0.7708D-06, 0.6244D-06, 0.4290D-06,
24620 # 0.3504D-06, 0.2491D-06, 0.1322D-06, 0.1548D-06, 0.1702D-06,
24621 # 0.3068D-07, 0.3783D-07, 0.4270D-07, 0.4601D-07, 0.4827D-07,
24622 # 0.4981D-07, 0.5086D-07, 0.5157D-07, 0.5206D-07, 0.5239D-07,
24623 # 0.5262D-07/
24624
24625 data (calcpts(j,12), j = 1,neta) /0.4683D-12, 0.8329D-12,
24626 # 0.1480D-11, 0.2633D-11, 0.4683D-11, 0.8327D-11, 0.1481D-10,
24627 # 0.2634D-10, 0.4681D-10, 0.8325D-10, 0.1481D-09, 0.2633D-09,
24628 # 0.4681D-09, 0.8325D-09, 0.1479D-08, 0.2630D-08, 0.4677D-08,
24629 # 0.8310D-08, 0.1476D-07, 0.2622D-07, 0.4652D-07, 0.8249D-07,
24630 # 0.1461D-06, 0.2581D-06, 0.4548D-06, 0.7980D-06, 0.1391D-05,
24631 # 0.2403D-05, 0.4102D-05, 0.6872D-05, 0.1123D-04, 0.1775D-04,
24632 # 0.2682D-04, 0.3838D-04, 0.5150D-04, 0.6445D-04, 0.7526D-04,
24633 # 0.8242D-04, 0.8503D-04, 0.8298D-04, 0.7661D-04, 0.6705D-04,
24634 # 0.5593D-04, 0.4469D-04, 0.3455D-04, 0.2585D-04, 0.1898D-04,
24635 # 0.1369D-04, 0.9675D-05, 0.6918D-05, 0.4820D-05, 0.3300D-05,
24636 # 0.2353D-05, 0.1633D-05, 0.1211D-05, 0.8341D-06, 0.5363D-06,
24637 # 0.4901D-06, 0.4109D-06, 0.3091D-06, 0.1919D-06, 0.2143D-06,
24638 # 0.2296D-06, 0.8995D-07, 0.9703D-07, 0.1018D-06, 0.1051D-06,
24639 # 0.1074D-06, 0.1089D-06, 0.1099D-06, 0.1106D-06, 0.1111D-06,
24640 # 0.1115D-06/
24641
24642 data (calcpts(j,13), j = 1,neta) /0.6783D-12, 0.1207D-11,
24643 # 0.2144D-11, 0.3814D-11, 0.6784D-11, 0.1206D-10, 0.2145D-10,
24644 # 0.3815D-10, 0.6781D-10, 0.1206D-09, 0.2145D-09, 0.3814D-09,
24645 # 0.6781D-09, 0.1206D-08, 0.2143D-08, 0.3811D-08, 0.6775D-08,
24646 # 0.1204D-07, 0.2139D-07, 0.3799D-07, 0.6739D-07, 0.1195D-06,
24647 # 0.2117D-06, 0.3740D-06, 0.6590D-06, 0.1156D-05, 0.2016D-05,
24648 # 0.3484D-05, 0.5948D-05, 0.9971D-05, 0.1631D-04, 0.2579D-04,
24649 # 0.3901D-04, 0.5590D-04, 0.7514D-04, 0.9416D-04, 0.1101D-03,
24650 # 0.1207D-03, 0.1245D-03, 0.1214D-03, 0.1122D-03, 0.9831D-04,
24651 # 0.8202D-04, 0.6564D-04, 0.5065D-04, 0.3808D-04, 0.2804D-04,
24652 # 0.2017D-04, 0.1443D-04, 0.1026D-04, 0.7188D-05, 0.5079D-05,
24653 # 0.3548D-05, 0.2593D-05, 0.1868D-05, 0.1441D-05, 0.1062D-05,
24654 # 0.7624D-06, 0.7149D-06, 0.4847D-06, 0.5323D-06, 0.4147D-06,
24655 # 0.4368D-06, 0.3018D-06, 0.3121D-06, 0.3191D-06, 0.3238D-06,
24656 # 0.3271D-06, 0.3293D-06, 0.3308D-06, 0.3318D-06, 0.3325D-06,
24657 # 0.3330D-06/
24658
24659 data (calcpts(j,14), j = 1,neta) /0.9761D-12, 0.1736D-11,
24660 # 0.3086D-11, 0.5488D-11, 0.9762D-11, 0.1736D-10, 0.3087D-10,
24661 # 0.5490D-10, 0.9758D-10, 0.1735D-09, 0.3087D-09, 0.5488D-09,
24662 # 0.9758D-09, 0.1735D-08, 0.3084D-08, 0.5483D-08, 0.9750D-08,
24663 # 0.1732D-07, 0.3078D-07, 0.5467D-07, 0.9698D-07, 0.1720D-06,
24664 # 0.3046D-06, 0.5383D-06, 0.9486D-06, 0.1665D-05, 0.2903D-05,
24665 # 0.5020D-05, 0.8573D-05, 0.1438D-04, 0.2354D-04, 0.3728D-04,
24666 # 0.5648D-04, 0.8107D-04, 0.1092D-03, 0.1371D-03, 0.1605D-03,
24667 # 0.1760D-03, 0.1816D-03, 0.1773D-03, 0.1637D-03, 0.1434D-03,
24668 # 0.1196D-03, 0.9570D-04, 0.7384D-04, 0.5544D-04, 0.4061D-04,
24669 # 0.2922D-04, 0.2087D-04, 0.1464D-04, 0.1027D-04, 0.7166D-05,
24670 # 0.5032D-05, 0.3483D-05, 0.2366D-05, 0.1631D-05, 0.1199D-05,
24671 # 0.8151D-06, 0.6626D-06, 0.4631D-06, 0.3815D-06, 0.2782D-06,
24672 # 0.1600D-06, 0.1816D-06, 0.1964D-06, 0.2064D-06, 0.2133D-06,
24673 # 0.6796D-07, 0.7114D-07, 0.7330D-07, 0.7478D-07, 0.7578D-07,
24674 # 0.7647D-07/
24675
24676 data (calcpts(j,15), j = 1,neta) /0.1392D-11, 0.2477D-11,
24677 # 0.4402D-11, 0.7829D-11, 0.1393D-10, 0.2476D-10, 0.4403D-10,
24678 # 0.7832D-10, 0.1392D-09, 0.2476D-09, 0.4403D-09, 0.7829D-09,
24679 # 0.1392D-08, 0.2476D-08, 0.4399D-08, 0.7822D-08, 0.1391D-07,
24680 # 0.2471D-07, 0.4391D-07, 0.7800D-07, 0.1384D-06, 0.2454D-06,
24681 # 0.4347D-06, 0.7682D-06, 0.1354D-05, 0.2377D-05, 0.4145D-05,
24682 # 0.7171D-05, 0.1226D-04, 0.2058D-04, 0.3373D-04, 0.5351D-04,
24683 # 0.8124D-04, 0.1169D-03, 0.1579D-03, 0.1988D-03, 0.2333D-03,
24684 # 0.2561D-03, 0.2645D-03, 0.2582D-03, 0.2385D-03, 0.2088D-03,
24685 # 0.1742D-03, 0.1394D-03, 0.1074D-03, 0.8048D-04, 0.5895D-04,
24686 # 0.4236D-04, 0.2994D-04, 0.2101D-04, 0.1453D-04, 0.9938D-05,
24687 # 0.6780D-05, 0.4608D-05, 0.3032D-05, 0.2046D-05, 0.1299D-05,
24688 # 0.8574D-06, 0.4678D-06, 0.3112D-06, 0.1088D-06, 0.2541D-07,
24689 # -.7929D-07, -.1984D-06, -.1773D-06, -.1630D-06, -.1532D-06,
24690 # -.2966D-06, -.2920D-06, -.2889D-06, -.2868D-06, -.2854D-06,
24691 # -.2844D-06/
24692
24693 data (calcpts(j,16), j = 1,neta) /0.1963D-11, 0.3491D-11,
24694 # 0.6205D-11, 0.1104D-10, 0.1963D-10, 0.3490D-10, 0.6206D-10,
24695 # 0.1104D-09, 0.1962D-09, 0.3489D-09, 0.6207D-09, 0.1104D-08,
24696 # 0.1962D-08, 0.3490D-08, 0.6201D-08, 0.1103D-07, 0.1960D-07,
24697 # 0.3484D-07, 0.6190D-07, 0.1099D-06, 0.1950D-06, 0.3459D-06,
24698 # 0.6129D-06, 0.1083D-05, 0.1910D-05, 0.3353D-05, 0.5851D-05,
24699 # 0.1013D-04, 0.1733D-04, 0.2913D-04, 0.4784D-04, 0.7607D-04,
24700 # 0.1158D-03, 0.1673D-03, 0.2269D-03, 0.2867D-03, 0.3375D-03,
24701 # 0.3716D-03, 0.3841D-03, 0.3753D-03, 0.3466D-03, 0.3039D-03,
24702 # 0.2537D-03, 0.2030D-03, 0.1565D-03, 0.1181D-03, 0.8594D-04,
24703 # 0.6177D-04, 0.4362D-04, 0.3032D-04, 0.2161D-04, 0.1543D-04,
24704 # 0.1088D-04, 0.6887D-05, 0.5260D-05, 0.3197D-05, 0.2334D-05,
24705 # 0.1270D-05, 0.1566D-05, 0.2684D-06, 0.4061D-06, 0.4999D-06,
24706 # 0.5638D-06, 0.6074D-06, 0.6370D-06, 0.6572D-06, -.8290D-06,
24707 # -.8196D-06, -.8132D-06, -.8089D-06, -.8059D-06, -.8039D-06,
24708 # -.8025D-06/
24709
24710 data (calcpts(j,17), j = 1,neta) /0.2719D-11, 0.4836D-11,
24711 # 0.8595D-11, 0.1529D-10, 0.2719D-10, 0.4835D-10, 0.8598D-10,
24712 # 0.1529D-09, 0.2718D-09, 0.4834D-09, 0.8598D-09, 0.1529D-08,
24713 # 0.2718D-08, 0.4834D-08, 0.8590D-08, 0.1527D-07, 0.2716D-07,
24714 # 0.4826D-07, 0.8575D-07, 0.1523D-06, 0.2702D-06, 0.4794D-06,
24715 # 0.8493D-06, 0.1502D-05, 0.2648D-05, 0.4652D-05, 0.8121D-05,
24716 # 0.1407D-04, 0.2410D-04, 0.4059D-04, 0.6682D-04, 0.1066D-03,
24717 # 0.1630D-03, 0.2366D-03, 0.3226D-03, 0.4099D-03, 0.4847D-03,
24718 # 0.5352D-03, 0.5545D-03, 0.5421D-03, 0.5006D-03, 0.4394D-03,
24719 # 0.3677D-03, 0.2939D-03, 0.2269D-03, 0.1708D-03, 0.1253D-03,
24720 # 0.9057D-04, 0.6407D-04, 0.4530D-04, 0.3153D-04, 0.2250D-04,
24721 # 0.1459D-04, 0.9875D-05, 0.7276D-05, 0.5574D-05, 0.3457D-05,
24722 # 0.2560D-05, 0.1471D-05, 0.1751D-05, 0.4418D-06, 0.5718D-06,
24723 # 0.6603D-06, 0.7206D-06, 0.7618D-06, 0.7898D-06, 0.8088D-06,
24724 # 0.8218D-06, 0.8307D-06, 0.8367D-06, 0.8408D-06, 0.8436D-06,
24725 # 0.8455D-06/
24726
24727 data (calcpts(j,18), j = 1,neta) /0.3677D-11, 0.6539D-11,
24728 # 0.1162D-10, 0.2067D-10, 0.3677D-10, 0.6538D-10, 0.1163D-09,
24729 # 0.2068D-09, 0.3675D-09, 0.6537D-09, 0.1163D-08, 0.2067D-08,
24730 # 0.3676D-08, 0.6537D-08, 0.1162D-07, 0.2066D-07, 0.3673D-07,
24731 # 0.6527D-07, 0.1160D-06, 0.2060D-06, 0.3655D-06, 0.6485D-06,
24732 # 0.1149D-05, 0.2032D-05, 0.3585D-05, 0.6301D-05, 0.1101D-04,
24733 # 0.1910D-04, 0.3277D-04, 0.5531D-04, 0.9132D-04, 0.1463D-03,
24734 # 0.2249D-03, 0.3286D-03, 0.4512D-03, 0.5776D-03, 0.6873D-03,
24735 # 0.7621D-03, 0.7917D-03, 0.7756D-03, 0.7173D-03, 0.6298D-03,
24736 # 0.5273D-03, 0.4235D-03, 0.3281D-03, 0.2463D-03, 0.1814D-03,
24737 # 0.1306D-03, 0.9257D-04, 0.6479D-04, 0.4509D-04, 0.3217D-04,
24738 # 0.2119D-04, 0.1446D-04, 0.9533D-05, 0.6787D-05, 0.4982D-05,
24739 # 0.2797D-05, 0.1853D-05, 0.2231D-05, 0.9891D-06, 0.1165D-05,
24740 # -.2155D-06, -.1339D-06, -.7834D-07, -.4048D-07, -.1468D-07,
24741 # 0.2897D-08, 0.1486D-07, 0.2302D-07, 0.2858D-07, 0.3237D-07,
24742 # 0.3495D-07/
24743
24744 data (calcpts(j,19), j = 1,neta) /0.4815D-11, 0.8565D-11,
24745 # 0.1522D-10, 0.2707D-10, 0.4816D-10, 0.8563D-10, 0.1523D-09,
24746 # 0.2708D-09, 0.4814D-09, 0.8561D-09, 0.1523D-08, 0.2707D-08,
24747 # 0.4814D-08, 0.8562D-08, 0.1521D-07, 0.2705D-07, 0.4811D-07,
24748 # 0.8549D-07, 0.1519D-06, 0.2699D-06, 0.4789D-06, 0.8497D-06,
24749 # 0.1506D-05, 0.2664D-05, 0.4702D-05, 0.8270D-05, 0.1446D-04,
24750 # 0.2512D-04, 0.4319D-04, 0.7311D-04, 0.1212D-03, 0.1951D-03,
24751 # 0.3020D-03, 0.4449D-03, 0.6166D-03, 0.7966D-03, 0.9558D-03,
24752 # 0.1067D-02, 0.1113D-02, 0.1092D-02, 0.1014D-02, 0.8925D-03,
24753 # 0.7478D-03, 0.6015D-03, 0.4664D-03, 0.3505D-03, 0.2583D-03,
24754 # 0.1857D-03, 0.1329D-03, 0.9248D-04, 0.6442D-04, 0.4501D-04,
24755 # 0.3124D-04, 0.2118D-04, 0.1405D-04, 0.1035D-04, 0.7411D-05,
24756 # 0.3979D-05, 0.3207D-05, 0.2202D-05, 0.1040D-05, 0.1270D-05,
24757 # 0.1427D-05, 0.3386D-07, 0.1067D-06, 0.1563D-06, 0.1901D-06,
24758 # 0.2131D-06, 0.2287D-06, 0.2394D-06, 0.2467D-06, 0.2517D-06,
24759 # 0.2551D-06/
24760
24761 data (calcpts(j,20), j = 1,neta) /0.6052D-11, 0.1076D-10,
24762 # 0.1913D-10, 0.3403D-10, 0.6052D-10, 0.1076D-09, 0.1914D-09,
24763 # 0.3404D-09, 0.6050D-09, 0.1076D-08, 0.1914D-08, 0.3403D-08,
24764 # 0.6050D-08, 0.1076D-07, 0.1912D-07, 0.3400D-07, 0.6046D-07,
24765 # 0.1075D-06, 0.1909D-06, 0.3393D-06, 0.6021D-06, 0.1068D-05,
24766 # 0.1894D-05, 0.3352D-05, 0.5918D-05, 0.1042D-04, 0.1824D-04,
24767 # 0.3174D-04, 0.5468D-04, 0.9285D-04, 0.1546D-03, 0.2504D-03,
24768 # 0.3906D-03, 0.5811D-03, 0.8145D-03, 0.1065D-02, 0.1291D-02,
24769 # 0.1454D-02, 0.1525D-02, 0.1504D-02, 0.1401D-02, 0.1236D-02,
24770 # 0.1041D-02, 0.8396D-03, 0.6525D-03, 0.4925D-03, 0.3638D-03,
24771 # 0.2628D-03, 0.1870D-03, 0.1314D-03, 0.9228D-04, 0.6359D-04,
24772 # 0.4418D-04, 0.3088D-04, 0.2162D-04, 0.1401D-04, 0.9972D-05,
24773 # 0.6814D-05, 0.4728D-05, 0.3851D-05, 0.2776D-05, 0.1565D-05,
24774 # 0.1762D-05, 0.3964D-06, 0.4879D-06, 0.5502D-06, 0.5927D-06,
24775 # 0.6216D-06, 0.6413D-06, 0.6548D-06, 0.6639D-06, 0.6702D-06,
24776 # 0.6744D-06/
24777
24778 data (calcpts(j,21), j = 1,neta) /0.7225D-11, 0.1285D-10,
24779 # 0.2284D-10, 0.4062D-10, 0.7226D-10, 0.1285D-09, 0.2285D-09,
24780 # 0.4064D-09, 0.7222D-09, 0.1285D-08, 0.2285D-08, 0.4062D-08,
24781 # 0.7223D-08, 0.1285D-07, 0.2283D-07, 0.4060D-07, 0.7219D-07,
24782 # 0.1283D-06, 0.2280D-06, 0.4051D-06, 0.7191D-06, 0.1276D-05,
24783 # 0.2263D-05, 0.4006D-05, 0.7078D-05, 0.1247D-04, 0.2186D-04,
24784 # 0.3809D-04, 0.6578D-04, 0.1121D-03, 0.1875D-03, 0.3057D-03,
24785 # 0.4809D-03, 0.7232D-03, 0.1027D-02, 0.1361D-02, 0.1674D-02,
24786 # 0.1907D-02, 0.2020D-02, 0.2003D-02, 0.1874D-02, 0.1664D-02,
24787 # 0.1407D-02, 0.1140D-02, 0.8905D-03, 0.6748D-03, 0.4981D-03,
24788 # 0.3607D-03, 0.2569D-03, 0.1812D-03, 0.1264D-03, 0.8829D-04,
24789 # 0.6015D-04, 0.4206D-04, 0.2761D-04, 0.1906D-04, 0.1240D-04,
24790 # 0.8007D-05, 0.6099D-05, 0.3843D-05, 0.2850D-05, 0.1695D-05,
24791 # 0.4300D-06, 0.5904D-06, 0.6997D-06, -.7260D-06, -.6753D-06,
24792 # -.6407D-06, -.6172D-06, -.6012D-06, -.5902D-06, -.5828D-06,
24793 # -.5777D-06/
24794
24795 data (calcpts(j,22), j = 1,neta) /0.8126D-11, 0.1445D-10,
24796 # 0.2569D-10, 0.4569D-10, 0.8127D-10, 0.1445D-09, 0.2570D-09,
24797 # 0.4570D-09, 0.8123D-09, 0.1445D-08, 0.2570D-08, 0.4569D-08,
24798 # 0.8124D-08, 0.1445D-07, 0.2568D-07, 0.4566D-07, 0.8120D-07,
24799 # 0.1443D-06, 0.2565D-06, 0.4558D-06, 0.8090D-06, 0.1436D-05,
24800 # 0.2547D-05, 0.4511D-05, 0.7973D-05, 0.1406D-04, 0.2467D-04,
24801 # 0.4306D-04, 0.7453D-04, 0.1274D-03, 0.2141D-03, 0.3512D-03,
24802 # 0.5574D-03, 0.8476D-03, 0.1220D-02, 0.1643D-02, 0.2054D-02,
24803 # 0.2375D-02, 0.2546D-02, 0.2550D-02, 0.2406D-02, 0.2151D-02,
24804 # 0.1834D-02, 0.1496D-02, 0.1177D-02, 0.8971D-03, 0.6657D-03,
24805 # 0.4847D-03, 0.3465D-03, 0.2451D-03, 0.1721D-03, 0.1195D-03,
24806 # 0.8221D-04, 0.5604D-04, 0.3922D-04, 0.2660D-04, 0.1874D-04,
24807 # 0.1304D-04, 0.8271D-05, 0.6108D-05, 0.3678D-05, 0.2566D-05,
24808 # 0.1330D-05, 0.1511D-05, 0.1337D-06, 0.2174D-06, 0.2744D-06,
24809 # 0.3133D-06, 0.3397D-06, 0.3577D-06, 0.3700D-06, 0.3784D-06,
24810 # 0.3841D-06/
24811
24812 data (calcpts(j,23), j = 1,neta) /0.8555D-11, 0.1522D-10,
24813 # 0.2705D-10, 0.4810D-10, 0.8556D-10, 0.1521D-09, 0.2705D-09,
24814 # 0.4812D-09, 0.8552D-09, 0.1521D-08, 0.2706D-08, 0.4810D-08,
24815 # 0.8554D-08, 0.1521D-07, 0.2704D-07, 0.4808D-07, 0.8549D-07,
24816 # 0.1520D-06, 0.2701D-06, 0.4799D-06, 0.8520D-06, 0.1513D-05,
24817 # 0.2684D-05, 0.4754D-05, 0.8406D-05, 0.1483D-04, 0.2605D-04,
24818 # 0.4552D-04, 0.7895D-04, 0.1353D-03, 0.2283D-03, 0.3768D-03,
24819 # 0.6026D-03, 0.9260D-03, 0.1351D-02, 0.1849D-02, 0.2353D-02,
24820 # 0.2770D-02, 0.3018D-02, 0.3064D-02, 0.2924D-02, 0.2640D-02,
24821 # 0.2273D-02, 0.1874D-02, 0.1488D-02, 0.1143D-02, 0.8549D-03,
24822 # 0.6257D-03, 0.4499D-03, 0.3189D-03, 0.2234D-03, 0.1552D-03,
24823 # 0.1080D-03, 0.7481D-04, 0.5080D-04, 0.3538D-04, 0.2466D-04,
24824 # 0.1606D-04, 0.1135D-04, 0.7732D-05, 0.5332D-05, 0.4241D-05,
24825 # 0.3019D-05, 0.1709D-05, 0.1838D-05, 0.4264D-06, 0.4864D-06,
24826 # 0.5273D-06, 0.5552D-06, 0.5742D-06, 0.5871D-06, 0.5959D-06,
24827 # 0.6019D-06/
24828
24829 data (calcpts(j,24), j = 1,neta) /0.8413D-11, 0.1496D-10,
24830 # 0.2660D-10, 0.4731D-10, 0.8414D-10, 0.1496D-09, 0.2660D-09,
24831 # 0.4732D-09, 0.8410D-09, 0.1496D-08, 0.2661D-08, 0.4731D-08,
24832 # 0.8412D-08, 0.1496D-07, 0.2659D-07, 0.4728D-07, 0.8408D-07,
24833 # 0.1494D-06, 0.2656D-06, 0.4721D-06, 0.8381D-06, 0.1488D-05,
24834 # 0.2640D-05, 0.4678D-05, 0.8275D-05, 0.1461D-04, 0.2567D-04,
24835 # 0.4492D-04, 0.7802D-04, 0.1340D-03, 0.2268D-03, 0.3760D-03,
24836 # 0.6052D-03, 0.9383D-03, 0.1385D-02, 0.1925D-02, 0.2495D-02,
24837 # 0.2996D-02, 0.3329D-02, 0.3440D-02, 0.3331D-02, 0.3050D-02,
24838 # 0.2661D-02, 0.2221D-02, 0.1785D-02, 0.1387D-02, 0.1048D-02,
24839 # 0.7719D-03, 0.5577D-03, 0.3976D-03, 0.2806D-03, 0.1956D-03,
24840 # 0.1362D-03, 0.9383D-04, 0.6522D-04, 0.4373D-04, 0.2997D-04,
24841 # 0.2133D-04, 0.1360D-04, 0.9969D-05, 0.6059D-05, 0.4962D-05,
24842 # 0.3735D-05, 0.2422D-05, 0.1049D-05, 0.1136D-05, 0.1195D-05,
24843 # -.2647D-06, -.2374D-06, -.2187D-06, -.2060D-06, -.1973D-06,
24844 # -.1914D-06/
24845
24846 data (calcpts(j,25), j = 1,neta) /0.7746D-11, 0.1378D-10,
24847 # 0.2449D-10, 0.4355D-10, 0.7747D-10, 0.1377D-09, 0.2449D-09,
24848 # 0.4357D-09, 0.7743D-09, 0.1377D-08, 0.2450D-08, 0.4355D-08,
24849 # 0.7745D-08, 0.1377D-07, 0.2448D-07, 0.4353D-07, 0.7741D-07,
24850 # 0.1376D-06, 0.2446D-06, 0.4347D-06, 0.7717D-06, 0.1370D-05,
24851 # 0.2432D-05, 0.4309D-05, 0.7624D-05, 0.1346D-04, 0.2367D-04,
24852 # 0.4144D-04, 0.7206D-04, 0.1240D-03, 0.2103D-03, 0.3497D-03,
24853 # 0.5656D-03, 0.8828D-03, 0.1316D-02, 0.1852D-02, 0.2441D-02,
24854 # 0.2990D-02, 0.3395D-02, 0.3583D-02, 0.3537D-02, 0.3295D-02,
24855 # 0.2920D-02, 0.2479D-02, 0.2022D-02, 0.1593D-02, 0.1219D-02,
24856 # 0.9078D-03, 0.6620D-03, 0.4748D-03, 0.3362D-03, 0.2362D-03,
24857 # 0.1638D-03, 0.1133D-03, 0.7819D-04, 0.5339D-04, 0.3641D-04,
24858 # 0.2462D-04, 0.1679D-04, 0.1159D-04, 0.7636D-05, 0.5006D-05,
24859 # 0.3758D-05, 0.2430D-05, 0.1047D-05, 0.1127D-05, 0.1181D-05,
24860 # 0.1218D-05, -.2567D-06, -.2395D-06, -.2278D-06, -.2198D-06,
24861 # -.2144D-06/
24862
24863 data (calcpts(j,26), j = 1,neta) /0.6715D-11, 0.1194D-10,
24864 # 0.2123D-10, 0.3775D-10, 0.6716D-10, 0.1194D-09, 0.2123D-09,
24865 # 0.3777D-09, 0.6712D-09, 0.1194D-08, 0.2124D-08, 0.3776D-08,
24866 # 0.6714D-08, 0.1194D-07, 0.2122D-07, 0.3774D-07, 0.6711D-07,
24867 # 0.1193D-06, 0.2120D-06, 0.3768D-06, 0.6690D-06, 0.1188D-05,
24868 # 0.2108D-05, 0.3737D-05, 0.6612D-05, 0.1168D-04, 0.2054D-04,
24869 # 0.3598D-04, 0.6259D-04, 0.1078D-03, 0.1831D-03, 0.3051D-03,
24870 # 0.4950D-03, 0.7763D-03, 0.1165D-02, 0.1656D-02, 0.2213D-02,
24871 # 0.2759D-02, 0.3201D-02, 0.3456D-02, 0.3490D-02, 0.3320D-02,
24872 # 0.3002D-02, 0.2595D-02, 0.2157D-02, 0.1730D-02, 0.1343D-02,
24873 # 0.1015D-02, 0.7487D-03, 0.5417D-03, 0.3862D-03, 0.2735D-03,
24874 # 0.1906D-03, 0.1314D-03, 0.9113D-04, 0.6284D-04, 0.4252D-04,
24875 # 0.2901D-04, 0.1952D-04, 0.1272D-04, 0.8687D-05, 0.6008D-05,
24876 # 0.4726D-05, 0.1876D-05, 0.1977D-05, 0.5462D-06, 0.5933D-06,
24877 # 0.6254D-06, 0.6473D-06, -.8378D-06, -.8277D-06, -.8207D-06,
24878 # -.8160D-06/
24879
24880 data (calcpts(j,27), j = 1,neta) /0.5527D-11, 0.9830D-11,
24881 # 0.1747D-10, 0.3108D-10, 0.5528D-10, 0.9829D-10, 0.1748D-09,
24882 # 0.3109D-09, 0.5525D-09, 0.9827D-09, 0.1748D-08, 0.3108D-08,
24883 # 0.5526D-08, 0.9828D-08, 0.1747D-07, 0.3106D-07, 0.5524D-07,
24884 # 0.9818D-07, 0.1745D-06, 0.3102D-06, 0.5507D-06, 0.9780D-06,
24885 # 0.1736D-05, 0.3076D-05, 0.5444D-05, 0.9614D-05, 0.1691D-04,
24886 # 0.2963D-04, 0.5158D-04, 0.8887D-04, 0.1511D-03, 0.2521D-03,
24887 # 0.4098D-03, 0.6445D-03, 0.9714D-03, 0.1391D-02, 0.1877D-02,
24888 # 0.2374D-02, 0.2806D-02, 0.3100D-02, 0.3208D-02, 0.3127D-02,
24889 # 0.2890D-02, 0.2554D-02, 0.2168D-02, 0.1775D-02, 0.1405D-02,
24890 # 0.1080D-02, 0.8101D-03, 0.5929D-03, 0.4277D-03, 0.3048D-03,
24891 # 0.2141D-03, 0.1493D-03, 0.1037D-03, 0.7180D-04, 0.4960D-04,
24892 # 0.3432D-04, 0.2316D-04, 0.1623D-04, 0.1211D-04, 0.7877D-05,
24893 # 0.5057D-05, 0.3680D-05, 0.2263D-05, 0.2320D-05, 0.2359D-05,
24894 # 0.8854D-06, 0.9034D-06, 0.9157D-06, 0.9240D-06, 0.9297D-06,
24895 # 0.9336D-06/
24896
24897 data (calcpts(j,28), j = 1,neta) /0.4356D-11, 0.7748D-11,
24898 # 0.1377D-10, 0.2449D-10, 0.4356D-10, 0.7746D-10, 0.1377D-09,
24899 # 0.2450D-09, 0.4354D-09, 0.7745D-09, 0.1378D-08, 0.2449D-08,
24900 # 0.4355D-08, 0.7746D-08, 0.1377D-07, 0.2448D-07, 0.4353D-07,
24901 # 0.7738D-07, 0.1375D-06, 0.2445D-06, 0.4340D-06, 0.7708D-06,
24902 # 0.1368D-05, 0.2425D-05, 0.4291D-05, 0.7579D-05, 0.1333D-04,
24903 # 0.2337D-04, 0.4067D-04, 0.7011D-04, 0.1192D-03, 0.1991D-03,
24904 # 0.3240D-03, 0.5104D-03, 0.7713D-03, 0.1109D-02, 0.1507D-02,
24905 # 0.1926D-02, 0.2310D-02, 0.2603D-02, 0.2758D-02, 0.2758D-02,
24906 # 0.2615D-02, 0.2366D-02, 0.2056D-02, 0.1721D-02, 0.1394D-02,
24907 # 0.1094D-02, 0.8339D-03, 0.6218D-03, 0.4527D-03, 0.3258D-03,
24908 # 0.2304D-03, 0.1613D-03, 0.1134D-03, 0.7795D-04, 0.5386D-04,
24909 # 0.3683D-04, 0.2549D-04, 0.1693D-04, 0.1274D-04, 0.8447D-05,
24910 # 0.5589D-05, 0.4186D-05, 0.2751D-05, 0.1296D-05, 0.1327D-05,
24911 # 0.1348D-05, 0.1362D-05, 0.1372D-05, -.1219D-06, -.1174D-06,
24912 # -.1143D-06/
24913
24914 data (calcpts(j,29), j = 1,neta) /0.3316D-11, 0.5897D-11,
24915 # 0.1048D-10, 0.1864D-10, 0.3316D-10, 0.5896D-10, 0.1048D-09,
24916 # 0.1865D-09, 0.3314D-09, 0.5895D-09, 0.1049D-08, 0.1864D-08,
24917 # 0.3315D-08, 0.5896D-08, 0.1048D-07, 0.1863D-07, 0.3314D-07,
24918 # 0.5890D-07, 0.1047D-06, 0.1861D-06, 0.3304D-06, 0.5867D-06,
24919 # 0.1041D-05, 0.1846D-05, 0.3266D-05, 0.5769D-05, 0.1015D-04,
24920 # 0.1779D-04, 0.3097D-04, 0.5339D-04, 0.9082D-04, 0.1517D-03,
24921 # 0.2470D-03, 0.3894D-03, 0.5895D-03, 0.8495D-03, 0.1159D-02,
24922 # 0.1491D-02, 0.1808D-02, 0.2068D-02, 0.2237D-02, 0.2292D-02,
24923 # 0.2232D-02, 0.2073D-02, 0.1847D-02, 0.1585D-02, 0.1314D-02,
24924 # 0.1055D-02, 0.8229D-03, 0.6239D-03, 0.4621D-03, 0.3359D-03,
24925 # 0.2403D-03, 0.1702D-03, 0.1186D-03, 0.8264D-04, 0.5672D-04,
24926 # 0.3945D-04, 0.2646D-04, 0.1780D-04, 0.1203D-04, 0.9188D-05,
24927 # 0.6296D-05, 0.3370D-05, 0.1920D-05, 0.1954D-05, 0.4774D-06,
24928 # 0.4932D-06, 0.5040D-06, 0.5114D-06, 0.5164D-06, 0.5198D-06,
24929 # 0.5221D-06/
24930
24931 data (calcpts(j,30), j = 1,neta) /0.2456D-11, 0.4369D-11,
24932 # 0.7765D-11, 0.1381D-10, 0.2457D-10, 0.4368D-10, 0.7767D-10,
24933 # 0.1381D-09, 0.2455D-09, 0.4367D-09, 0.7768D-09, 0.1381D-08,
24934 # 0.2456D-08, 0.4368D-08, 0.7762D-08, 0.1380D-07, 0.2455D-07,
24935 # 0.4363D-07, 0.7756D-07, 0.1378D-06, 0.2448D-06, 0.4347D-06,
24936 # 0.7714D-06, 0.1367D-05, 0.2420D-05, 0.4274D-05, 0.7520D-05,
24937 # 0.1318D-04, 0.2295D-04, 0.3956D-04, 0.6730D-04, 0.1124D-03,
24938 # 0.1831D-03, 0.2889D-03, 0.4376D-03, 0.6315D-03, 0.8634D-03,
24939 # 0.1115D-02, 0.1361D-02, 0.1574D-02, 0.1729D-02, 0.1809D-02,
24940 # 0.1807D-02, 0.1725D-02, 0.1579D-02, 0.1391D-02, 0.1183D-02,
24941 # 0.9743D-03, 0.7788D-03, 0.6043D-03, 0.4562D-03, 0.3371D-03,
24942 # 0.2448D-03, 0.1753D-03, 0.1230D-03, 0.8669D-04, 0.6049D-04,
24943 # 0.4154D-04, 0.2841D-04, 0.1966D-04, 0.1383D-04, 0.9450D-05,
24944 # 0.6530D-05, 0.3585D-05, 0.3622D-05, 0.2147D-05, 0.6646D-06,
24945 # 0.6763D-06, 0.6843D-06, 0.6898D-06, 0.6935D-06, 0.6960D-06,
24946 # 0.6977D-06/
24947
24948 data (calcpts(j,31), j = 1,neta) /0.1782D-11, 0.3169D-11,
24949 # 0.5632D-11, 0.1002D-10, 0.1782D-10, 0.3168D-10, 0.5634D-10,
24950 # 0.1002D-09, 0.1781D-09, 0.3168D-09, 0.5634D-09, 0.1002D-08,
24951 # 0.1781D-08, 0.3168D-08, 0.5630D-08, 0.1001D-07, 0.1781D-07,
24952 # 0.3165D-07, 0.5626D-07, 0.9999D-07, 0.1775D-06, 0.3153D-06,
24953 # 0.5596D-06, 0.9917D-06, 0.1755D-05, 0.3100D-05, 0.5455D-05,
24954 # 0.9560D-05, 0.1665D-04, 0.2870D-04, 0.4883D-04, 0.8158D-04,
24955 # 0.1329D-03, 0.2097D-03, 0.3177D-03, 0.4588D-03, 0.6281D-03,
24956 # 0.8132D-03, 0.9961D-03, 0.1159D-02, 0.1288D-02, 0.1369D-02,
24957 # 0.1397D-02, 0.1369D-02, 0.1288D-02, 0.1166D-02, 0.1019D-02,
24958 # 0.8616D-03, 0.7061D-03, 0.5616D-03, 0.4343D-03, 0.3274D-03,
24959 # 0.2414D-03, 0.1742D-03, 0.1245D-03, 0.8781D-04, 0.6139D-04,
24960 # 0.4228D-04, 0.2905D-04, 0.2024D-04, 0.1436D-04, 0.9946D-05,
24961 # 0.7004D-05, 0.4044D-05, 0.2570D-05, 0.2589D-05, 0.1101D-05,
24962 # 0.1110D-05, 0.1116D-05, 0.1120D-05, -.3777D-06, -.3759D-06,
24963 # -.3746D-06/
24964
24965 data (calcpts(j,32), j = 1,neta) /0.1272D-11, 0.2262D-11,
24966 # 0.4020D-11, 0.7150D-11, 0.1272D-10, 0.2261D-10, 0.4021D-10,
24967 # 0.7152D-10, 0.1271D-09, 0.2261D-09, 0.4021D-09, 0.7150D-09,
24968 # 0.1271D-08, 0.2261D-08, 0.4019D-08, 0.7146D-08, 0.1271D-07,
24969 # 0.2259D-07, 0.4015D-07, 0.7136D-07, 0.1267D-06, 0.2250D-06,
24970 # 0.3994D-06, 0.7078D-06, 0.1253D-05, 0.2213D-05, 0.3893D-05,
24971 # 0.6823D-05, 0.1188D-04, 0.2048D-04, 0.3485D-04, 0.5823D-04,
24972 # 0.9486D-04, 0.1497D-03, 0.2269D-03, 0.3278D-03, 0.4490D-03,
24973 # 0.5819D-03, 0.7143D-03, 0.8346D-03, 0.9331D-03, 0.1003D-02,
24974 # 0.1040D-02, 0.1042D-02, 0.1006D-02, 0.9370D-03, 0.8420D-03,
24975 # 0.7316D-03, 0.6159D-03, 0.5030D-03, 0.3989D-03, 0.3078D-03,
24976 # 0.2315D-03, 0.1704D-03, 0.1231D-03, 0.8770D-04, 0.6186D-04,
24977 # 0.4310D-04, 0.2994D-04, 0.2062D-04, 0.1411D-04, 0.9669D-05,
24978 # 0.6560D-05, 0.4488D-05, 0.3008D-05, 0.1971D-05, 0.1230D-05,
24979 # 0.7857D-06, 0.4899D-06, 0.3427D-06, 0.1946D-06, 0.4594D-07,
24980 # 0.4683D-07/
24981
24982 data (calcpts(j,33), j = 1,neta) /0.8970D-12, 0.1596D-11,
24983 # 0.2836D-11, 0.5044D-11, 0.8972D-11, 0.1595D-10, 0.2837D-10,
24984 # 0.5045D-10, 0.8967D-10, 0.1595D-09, 0.2837D-09, 0.5044D-09,
24985 # 0.8969D-09, 0.1595D-08, 0.2835D-08, 0.5041D-08, 0.8965D-08,
24986 # 0.1594D-07, 0.2832D-07, 0.5034D-07, 0.8939D-07, 0.1587D-06,
24987 # 0.2817D-06, 0.4993D-06, 0.8838D-06, 0.1561D-05, 0.2747D-05,
24988 # 0.4814D-05, 0.8381D-05, 0.1445D-04, 0.2459D-04, 0.4108D-04,
24989 # 0.6692D-04, 0.1056D-03, 0.1601D-03, 0.2313D-03, 0.3170D-03,
24990 # 0.4110D-03, 0.5051D-03, 0.5914D-03, 0.6637D-03, 0.7184D-03,
24991 # 0.7533D-03, 0.7669D-03, 0.7573D-03, 0.7242D-03, 0.6695D-03,
24992 # 0.5985D-03, 0.5181D-03, 0.4348D-03, 0.3544D-03, 0.2805D-03,
24993 # 0.2162D-03, 0.1625D-03, 0.1195D-03, 0.8643D-04, 0.6152D-04,
24994 # 0.4342D-04, 0.3035D-04, 0.2115D-04, 0.1461D-04, 0.1015D-04,
24995 # 0.7032D-05, 0.4801D-05, 0.3315D-05, 0.2424D-05, 0.1681D-05,
24996 # 0.1235D-05, 0.7878D-06, 0.6398D-06, 0.4911D-06, 0.3421D-06,
24997 # 0.3427D-06/
24998
24999 data (calcpts(j,34), j = 1,neta) /0.6268D-12, 0.1115D-11,
25000 # 0.1982D-11, 0.3525D-11, 0.6269D-11, 0.1115D-10, 0.1982D-10,
25001 # 0.3526D-10, 0.6266D-10, 0.1114D-09, 0.1982D-09, 0.3525D-09,
25002 # 0.6267D-09, 0.1115D-08, 0.1981D-08, 0.3523D-08, 0.6265D-08,
25003 # 0.1114D-07, 0.1979D-07, 0.3518D-07, 0.6246D-07, 0.1109D-06,
25004 # 0.1969D-06, 0.3489D-06, 0.6176D-06, 0.1091D-05, 0.1919D-05,
25005 # 0.3364D-05, 0.5857D-05, 0.1010D-04, 0.1718D-04, 0.2871D-04,
25006 # 0.4677D-04, 0.7381D-04, 0.1119D-03, 0.1617D-03, 0.2216D-03,
25007 # 0.2874D-03, 0.3534D-03, 0.4142D-03, 0.4658D-03, 0.5061D-03,
25008 # 0.5344D-03, 0.5501D-03, 0.5524D-03, 0.5402D-03, 0.5129D-03,
25009 # 0.4718D-03, 0.4202D-03, 0.3626D-03, 0.3038D-03, 0.2471D-03,
25010 # 0.1954D-03, 0.1503D-03, 0.1129D-03, 0.8290D-04, 0.5986D-04,
25011 # 0.4259D-04, 0.3009D-04, 0.2100D-04, 0.1460D-04, 0.1013D-04,
25012 # 0.6998D-05, 0.4762D-05, 0.3271D-05, 0.2228D-05, 0.1632D-05,
25013 # 0.1035D-05, 0.7373D-06, 0.5887D-06, 0.4396D-06, 0.2903D-06,
25014 # 0.1407D-06/
25015
25016 data (calcpts(j,35), j = 1,neta) /0.4350D-12, 0.7738D-12,
25017 # 0.1375D-11, 0.2446D-11, 0.4351D-11, 0.7736D-11, 0.1376D-10,
25018 # 0.2447D-10, 0.4349D-10, 0.7735D-10, 0.1376D-09, 0.2446D-09,
25019 # 0.4350D-09, 0.7736D-09, 0.1375D-08, 0.2445D-08, 0.4348D-08,
25020 # 0.7729D-08, 0.1374D-07, 0.2442D-07, 0.4335D-07, 0.7699D-07,
25021 # 0.1366D-06, 0.2422D-06, 0.4286D-06, 0.7571D-06, 0.1332D-05,
25022 # 0.2335D-05, 0.4065D-05, 0.7008D-05, 0.1192D-04, 0.1992D-04,
25023 # 0.3246D-04, 0.5123D-04, 0.7766D-04, 0.1122D-03, 0.1538D-03,
25024 # 0.1995D-03, 0.2454D-03, 0.2878D-03, 0.3240D-03, 0.3528D-03,
25025 # 0.3739D-03, 0.3876D-03, 0.3936D-03, 0.3915D-03, 0.3802D-03,
25026 # 0.3592D-03, 0.3292D-03, 0.2924D-03, 0.2519D-03, 0.2107D-03,
25027 # 0.1711D-03, 0.1351D-03, 0.1039D-03, 0.7790D-04, 0.5719D-04,
25028 # 0.4124D-04, 0.2931D-04, 0.2065D-04, 0.1438D-04, 0.1005D-04,
25029 # 0.6917D-05, 0.4677D-05, 0.3184D-05, 0.2138D-05, 0.1541D-05,
25030 # 0.9433D-06, 0.6447D-06, 0.4957D-06, 0.3463D-06, 0.1968D-06,
25031 # 0.4708D-07/
25032
25033 data (calcpts(j,36), j = 1,neta) /0.3005D-12, 0.5345D-12,
25034 # 0.9500D-12, 0.1690D-11, 0.3005D-11, 0.5344D-11, 0.9502D-11,
25035 # 0.1690D-10, 0.3004D-10, 0.5343D-10, 0.9503D-10, 0.1690D-09,
25036 # 0.3005D-09, 0.5344D-09, 0.9497D-09, 0.1689D-08, 0.3003D-08,
25037 # 0.5338D-08, 0.9488D-08, 0.1686D-07, 0.2994D-07, 0.5318D-07,
25038 # 0.9438D-07, 0.1673D-06, 0.2960D-06, 0.5229D-06, 0.9201D-06,
25039 # 0.1613D-05, 0.2808D-05, 0.4841D-05, 0.8237D-05, 0.1376D-04,
25040 # 0.2242D-04, 0.3538D-04, 0.5364D-04, 0.7751D-04, 0.1062D-03,
25041 # 0.1378D-03, 0.1696D-03, 0.1989D-03, 0.2240D-03, 0.2442D-03,
25042 # 0.2594D-03, 0.2699D-03, 0.2761D-03, 0.2777D-03, 0.2743D-03,
25043 # 0.2651D-03, 0.2496D-03, 0.2282D-03, 0.2023D-03, 0.1741D-03,
25044 # 0.1455D-03, 0.1180D-03, 0.9320D-04, 0.7159D-04, 0.5369D-04,
25045 # 0.3936D-04, 0.2845D-04, 0.2023D-04, 0.1425D-04, 0.9918D-05,
25046 # 0.6928D-05, 0.4684D-05, 0.3339D-05, 0.2292D-05, 0.1544D-05,
25047 # 0.1095D-05, 0.6464D-06, 0.4971D-06, 0.3476D-06, 0.1979D-06,
25048 # 0.1981D-06/
25049
25050 data (calcpts(j,37), j = 1,neta) /0.2068D-12, 0.3678D-12,
25051 # 0.6537D-12, 0.1163D-11, 0.2068D-11, 0.3677D-11, 0.6539D-11,
25052 # 0.1163D-10, 0.2067D-10, 0.3676D-10, 0.6539D-10, 0.1163D-09,
25053 # 0.2068D-09, 0.3677D-09, 0.6535D-09, 0.1162D-08, 0.2067D-08,
25054 # 0.3673D-08, 0.6529D-08, 0.1161D-07, 0.2061D-07, 0.3659D-07,
25055 # 0.6495D-07, 0.1151D-06, 0.2037D-06, 0.3598D-06, 0.6331D-06,
25056 # 0.1110D-05, 0.1932D-05, 0.3331D-05, 0.5668D-05, 0.9470D-05,
25057 # 0.1543D-04, 0.2435D-04, 0.3691D-04, 0.5334D-04, 0.7311D-04,
25058 # 0.9485D-04, 0.1167D-03, 0.1369D-03, 0.1542D-03, 0.1682D-03,
25059 # 0.1789D-03, 0.1865D-03, 0.1915D-03, 0.1940D-03, 0.1939D-03,
25060 # 0.1906D-03, 0.1836D-03, 0.1724D-03, 0.1573D-03, 0.1393D-03,
25061 # 0.1198D-03, 0.1000D-03, 0.8116D-04, 0.6403D-04, 0.4914D-04,
25062 # 0.3688D-04, 0.2701D-04, 0.1954D-04, 0.1385D-04, 0.9811D-05,
25063 # 0.6817D-05, 0.4722D-05, 0.3225D-05, 0.2177D-05, 0.1579D-05,
25064 # 0.9795D-06, 0.6802D-06, 0.5307D-06, 0.3810D-06, 0.2312D-06,
25065 # 0.8135D-07/
25066
25067 data (calcpts(j,38), j = 1,neta) /0.1419D-12, 0.2524D-12,
25068 # 0.4485D-12, 0.7978D-12, 0.1419D-11, 0.2523D-11, 0.4487D-11,
25069 # 0.7980D-11, 0.1418D-10, 0.2523D-10, 0.4487D-10, 0.7978D-10,
25070 # 0.1419D-09, 0.2523D-09, 0.4484D-09, 0.7974D-09, 0.1418D-08,
25071 # 0.2521D-08, 0.4480D-08, 0.7963D-08, 0.1414D-07, 0.2511D-07,
25072 # 0.4456D-07, 0.7898D-07, 0.1398D-06, 0.2469D-06, 0.4344D-06,
25073 # 0.7614D-06, 0.1326D-05, 0.2286D-05, 0.3889D-05, 0.6498D-05,
25074 # 0.1059D-04, 0.1671D-04, 0.2533D-04, 0.3660D-04, 0.5016D-04,
25075 # 0.6509D-04, 0.8007D-04, 0.9395D-04, 0.1059D-03, 0.1155D-03,
25076 # 0.1229D-03, 0.1283D-03, 0.1320D-03, 0.1343D-03, 0.1351D-03,
25077 # 0.1344D-03, 0.1316D-03, 0.1265D-03, 0.1186D-03, 0.1081D-03,
25078 # 0.9565D-04, 0.8217D-04, 0.6858D-04, 0.5562D-04, 0.4385D-04,
25079 # 0.3367D-04, 0.2521D-04, 0.1849D-04, 0.1333D-04, 0.9480D-05,
25080 # 0.6665D-05, 0.4643D-05, 0.3220D-05, 0.2216D-05, 0.1512D-05,
25081 # 0.1033D-05, 0.7036D-06, 0.2689D-06, 0.3141D-06, 0.2093D-06,
25082 # 0.1344D-06/
25083
25084 data (calcpts(j,39), j = 1,neta) /0.9721D-13, 0.1729D-12,
25085 # 0.3073D-12, 0.5466D-12, 0.9722D-12, 0.1729D-11, 0.3074D-11,
25086 # 0.5467D-11, 0.9717D-11, 0.1728D-10, 0.3074D-10, 0.5466D-10,
25087 # 0.9719D-10, 0.1729D-09, 0.3072D-09, 0.5463D-09, 0.9715D-09,
25088 # 0.1727D-08, 0.3069D-08, 0.5455D-08, 0.9686D-08, 0.1720D-07,
25089 # 0.3053D-07, 0.5411D-07, 0.9577D-07, 0.1692D-06, 0.2976D-06,
25090 # 0.5216D-06, 0.9082D-06, 0.1566D-05, 0.2664D-05, 0.4452D-05,
25091 # 0.7252D-05, 0.1145D-04, 0.1735D-04, 0.2507D-04, 0.3437D-04,
25092 # 0.4459D-04, 0.5486D-04, 0.6437D-04, 0.7254D-04, 0.7914D-04,
25093 # 0.8422D-04, 0.8797D-04, 0.9062D-04, 0.9238D-04, 0.9334D-04,
25094 # 0.9349D-04, 0.9267D-04, 0.9059D-04, 0.8691D-04, 0.8140D-04,
25095 # 0.7414D-04, 0.6557D-04, 0.5631D-04, 0.4698D-04, 0.3810D-04,
25096 # 0.3004D-04, 0.2306D-04, 0.1728D-04, 0.1268D-04, 0.9146D-05,
25097 # 0.6510D-05, 0.4592D-05, 0.3213D-05, 0.2224D-05, 0.1550D-05,
25098 # 0.1070D-05, 0.7407D-06, 0.5159D-06, 0.3511D-06, 0.2462D-06,
25099 # 0.1713D-06/
25100
25101 data (calcpts(j,40), j = 1,neta) /0.6647D-13, 0.1182D-12,
25102 # 0.2101D-12, 0.3737D-12, 0.6648D-12, 0.1182D-11, 0.2102D-11,
25103 # 0.3739D-11, 0.6645D-11, 0.1182D-10, 0.2102D-10, 0.3738D-10,
25104 # 0.6646D-10, 0.1182D-09, 0.2101D-09, 0.3736D-09, 0.6643D-09,
25105 # 0.1181D-08, 0.2099D-08, 0.3730D-08, 0.6624D-08, 0.1176D-07,
25106 # 0.2088D-07, 0.3700D-07, 0.6549D-07, 0.1157D-06, 0.2035D-06,
25107 # 0.3567D-06, 0.6210D-06, 0.1071D-05, 0.1822D-05, 0.3044D-05,
25108 # 0.4959D-05, 0.7827D-05, 0.1187D-04, 0.1715D-04, 0.2350D-04,
25109 # 0.3049D-04, 0.3751D-04, 0.4402D-04, 0.4960D-04, 0.5412D-04,
25110 # 0.5760D-04, 0.6019D-04, 0.6204D-04, 0.6331D-04, 0.6410D-04,
25111 # 0.6447D-04, 0.6436D-04, 0.6366D-04, 0.6213D-04, 0.5954D-04,
25112 # 0.5572D-04, 0.5072D-04, 0.4483D-04, 0.3849D-04, 0.3210D-04,
25113 # 0.2603D-04, 0.2052D-04, 0.1576D-04, 0.1180D-04, 0.8654D-05,
25114 # 0.6241D-05, 0.4442D-05, 0.3123D-05, 0.2179D-05, 0.1519D-05,
25115 # 0.1055D-05, 0.7248D-06, 0.5000D-06, 0.3351D-06, 0.2302D-06,
25116 # 0.1702D-06/
25117
25118 data (calcpts(j,41), j = 1,neta) /0.4540D-13, 0.8075D-13,
25119 # 0.1435D-12, 0.2553D-12, 0.4541D-12, 0.8074D-12, 0.1436D-11,
25120 # 0.2554D-11, 0.4539D-11, 0.8072D-11, 0.1436D-10, 0.2553D-10,
25121 # 0.4539D-10, 0.8074D-10, 0.1435D-09, 0.2552D-09, 0.4538D-09,
25122 # 0.8066D-09, 0.1434D-08, 0.2548D-08, 0.4524D-08, 0.8035D-08,
25123 # 0.1426D-07, 0.2527D-07, 0.4473D-07, 0.7901D-07, 0.1390D-06,
25124 # 0.2436D-06, 0.4242D-06, 0.7314D-06, 0.1244D-05, 0.2079D-05,
25125 # 0.3387D-05, 0.5346D-05, 0.8105D-05, 0.1171D-04, 0.1605D-04,
25126 # 0.2083D-04, 0.2562D-04, 0.3006D-04, 0.3388D-04, 0.3697D-04,
25127 # 0.3935D-04, 0.4112D-04, 0.4239D-04, 0.4329D-04, 0.4388D-04,
25128 # 0.4423D-04, 0.4434D-04, 0.4417D-04, 0.4362D-04, 0.4252D-04,
25129 # 0.4072D-04, 0.3808D-04, 0.3465D-04, 0.3062D-04, 0.2628D-04,
25130 # 0.2192D-04, 0.1777D-04, 0.1400D-04, 0.1074D-04, 0.8047D-05,
25131 # 0.5904D-05, 0.4255D-05, 0.3025D-05, 0.2126D-05, 0.1481D-05,
25132 # 0.1031D-05, 0.7015D-06, 0.4916D-06, 0.3266D-06, 0.2217D-06,
25133 # 0.1467D-06/
25134
25135 data (calcpts(j,42), j = 1,neta) /0.3100D-13, 0.5513D-13,
25136 # 0.9799D-13, 0.1743D-12, 0.3100D-12, 0.5512D-12, 0.9801D-12,
25137 # 0.1743D-11, 0.3098D-11, 0.5511D-11, 0.9802D-11, 0.1743D-10,
25138 # 0.3099D-10, 0.5512D-10, 0.9795D-10, 0.1742D-09, 0.3098D-09,
25139 # 0.5506D-09, 0.9787D-09, 0.1740D-08, 0.3089D-08, 0.5485D-08,
25140 # 0.9735D-08, 0.1725D-07, 0.3054D-07, 0.5394D-07, 0.9490D-07,
25141 # 0.1663D-06, 0.2896D-06, 0.4993D-06, 0.8496D-06, 0.1420D-05,
25142 # 0.2313D-05, 0.3650D-05, 0.5533D-05, 0.7995D-05, 0.1096D-04,
25143 # 0.1422D-04, 0.1749D-04, 0.2052D-04, 0.2313D-04, 0.2524D-04,
25144 # 0.2686D-04, 0.2807D-04, 0.2895D-04, 0.2957D-04, 0.2999D-04,
25145 # 0.3026D-04, 0.3040D-04, 0.3041D-04, 0.3025D-04, 0.2984D-04,
25146 # 0.2907D-04, 0.2782D-04, 0.2601D-04, 0.2366D-04, 0.2091D-04,
25147 # 0.1794D-04, 0.1497D-04, 0.1213D-04, 0.9555D-05, 0.7337D-05,
25148 # 0.5493D-05, 0.4024D-05, 0.2899D-05, 0.2059D-05, 0.1460D-05,
25149 # 0.1010D-05, 0.7099D-06, 0.4850D-06, 0.3350D-06, 0.2300D-06,
25150 # 0.1551D-06/
25151
25152 data (calcpts(j,43), j = 1,neta) /0.2115D-13, 0.3761D-13,
25153 # 0.6685D-13, 0.1189D-12, 0.2115D-12, 0.3761D-12, 0.6687D-12,
25154 # 0.1189D-11, 0.2114D-11, 0.3760D-11, 0.6688D-11, 0.1189D-10,
25155 # 0.2114D-10, 0.3760D-10, 0.6683D-10, 0.1188D-09, 0.2113D-09,
25156 # 0.3757D-09, 0.6677D-09, 0.1187D-08, 0.2107D-08, 0.3742D-08,
25157 # 0.6642D-08, 0.1177D-07, 0.2083D-07, 0.3680D-07, 0.6475D-07,
25158 # 0.1135D-06, 0.1976D-06, 0.3407D-06, 0.5796D-06, 0.9685D-06,
25159 # 0.1578D-05, 0.2490D-05, 0.3775D-05, 0.5455D-05, 0.7477D-05,
25160 # 0.9701D-05, 0.1193D-04, 0.1400D-04, 0.1578D-04, 0.1722D-04,
25161 # 0.1833D-04, 0.1916D-04, 0.1975D-04, 0.2018D-04, 0.2047D-04,
25162 # 0.2067D-04, 0.2079D-04, 0.2084D-04, 0.2082D-04, 0.2068D-04,
25163 # 0.2039D-04, 0.1985D-04, 0.1899D-04, 0.1775D-04, 0.1614D-04,
25164 # 0.1426D-04, 0.1224D-04, 0.1021D-04, 0.8272D-05, 0.6518D-05,
25165 # 0.5005D-05, 0.3746D-05, 0.2741D-05, 0.1976D-05, 0.1406D-05,
25166 # 0.9865D-06, 0.6866D-06, 0.4766D-06, 0.3267D-06, 0.2217D-06,
25167 # 0.1617D-06/
25168
25169 data (calcpts(j,44), j = 1,neta) /0.1442D-13, 0.2565D-13,
25170 # 0.4559D-13, 0.8108D-13, 0.1442D-12, 0.2564D-12, 0.4560D-12,
25171 # 0.8110D-12, 0.1441D-11, 0.2564D-11, 0.4560D-11, 0.8108D-11,
25172 # 0.1442D-10, 0.2564D-10, 0.4557D-10, 0.8104D-10, 0.1441D-09,
25173 # 0.2562D-09, 0.4553D-09, 0.8093D-09, 0.1437D-08, 0.2552D-08,
25174 # 0.4529D-08, 0.8027D-08, 0.1421D-07, 0.2509D-07, 0.4415D-07,
25175 # 0.7738D-07, 0.1347D-06, 0.2323D-06, 0.3952D-06, 0.6604D-06,
25176 # 0.1076D-05, 0.1698D-05, 0.2574D-05, 0.3720D-05, 0.5098D-05,
25177 # 0.6615D-05, 0.8138D-05, 0.9549D-05, 0.1076D-04, 0.1174D-04,
25178 # 0.1250D-04, 0.1306D-04, 0.1347D-04, 0.1376D-04, 0.1396D-04,
25179 # 0.1410D-04, 0.1419D-04, 0.1424D-04, 0.1426D-04, 0.1422D-04,
25180 # 0.1412D-04, 0.1391D-04, 0.1354D-04, 0.1295D-04, 0.1211D-04,
25181 # 0.1101D-04, 0.9725D-05, 0.8345D-05, 0.6957D-05, 0.5636D-05,
25182 # 0.4442D-05, 0.3407D-05, 0.2551D-05, 0.1870D-05, 0.1348D-05,
25183 # 0.9585D-06, 0.6736D-06, 0.4696D-06, 0.3241D-06, 0.2236D-06,
25184 # 0.1532D-06/
25185
25186 data (calcpts(j,45), j = 1,neta) /0.9834D-14, 0.1749D-13,
25187 # 0.3109D-13, 0.5530D-13, 0.9836D-13, 0.1749D-12, 0.3110D-12,
25188 # 0.5531D-12, 0.9831D-12, 0.1749D-11, 0.3110D-11, 0.5530D-11,
25189 # 0.9833D-11, 0.1749D-10, 0.3108D-10, 0.5527D-10, 0.9829D-10,
25190 # 0.1747D-09, 0.3105D-09, 0.5519D-09, 0.9800D-09, 0.1740D-08,
25191 # 0.3089D-08, 0.5474D-08, 0.9689D-08, 0.1711D-07, 0.3011D-07,
25192 # 0.5277D-07, 0.9189D-07, 0.1584D-06, 0.2696D-06, 0.4504D-06,
25193 # 0.7337D-06, 0.1158D-05, 0.1756D-05, 0.2537D-05, 0.3477D-05,
25194 # 0.4511D-05, 0.5550D-05, 0.6512D-05, 0.7339D-05, 0.8008D-05,
25195 # 0.8524D-05, 0.8909D-05, 0.9187D-05, 0.9385D-05, 0.9524D-05,
25196 # 0.9620D-05, 0.9684D-05, 0.9725D-05, 0.9746D-05, 0.9745D-05,
25197 # 0.9716D-05, 0.9642D-05, 0.9496D-05, 0.9241D-05, 0.8837D-05,
25198 # 0.8258D-05, 0.7509D-05, 0.6633D-05, 0.5691D-05, 0.4745D-05,
25199 # 0.3847D-05, 0.3031D-05, 0.2327D-05, 0.1743D-05, 0.1278D-05,
25200 # 0.9198D-06, 0.6558D-06, 0.4624D-06, 0.3229D-06, 0.2254D-06,
25201 # 0.1564D-06/
25202
25203 data (calcpts(j,46), j = 1,neta) /0.6703D-14, 0.1192D-13,
25204 # 0.2119D-13, 0.3769D-13, 0.6704D-13, 0.1192D-12, 0.2120D-12,
25205 # 0.3770D-12, 0.6701D-12, 0.1192D-11, 0.2120D-11, 0.3769D-11,
25206 # 0.6702D-11, 0.1192D-10, 0.2118D-10, 0.3767D-10, 0.6699D-10,
25207 # 0.1191D-09, 0.2116D-09, 0.3762D-09, 0.6679D-09, 0.1186D-08,
25208 # 0.2105D-08, 0.3731D-08, 0.6603D-08, 0.1166D-07, 0.2052D-07,
25209 # 0.3597D-07, 0.6263D-07, 0.1080D-06, 0.1837D-06, 0.3070D-06,
25210 # 0.5001D-06, 0.7893D-06, 0.1196D-05, 0.1729D-05, 0.2370D-05,
25211 # 0.3075D-05, 0.3783D-05, 0.4439D-05, 0.5002D-05, 0.5458D-05,
25212 # 0.5810D-05, 0.6072D-05, 0.6262D-05, 0.6397D-05, 0.6492D-05,
25213 # 0.6557D-05, 0.6602D-05, 0.6632D-05, 0.6650D-05, 0.6657D-05,
25214 # 0.6652D-05, 0.6629D-05, 0.6576D-05, 0.6475D-05, 0.6300D-05,
25215 # 0.6024D-05, 0.5629D-05, 0.5117D-05, 0.4519D-05, 0.3879D-05,
25216 # 0.3234D-05, 0.2621D-05, 0.2066D-05, 0.1585D-05, 0.1187D-05,
25217 # 0.8707D-06, 0.6277D-06, 0.4462D-06, 0.3143D-06, 0.2198D-06,
25218 # 0.1523D-06/
25219
25220 data (calcpts(j,47), j = 1,neta) /0.4567D-14, 0.8124D-14,
25221 # 0.1444D-13, 0.2568D-13, 0.4568D-13, 0.8122D-13, 0.1444D-12,
25222 # 0.2569D-12, 0.4566D-12, 0.8121D-12, 0.1444D-11, 0.2568D-11,
25223 # 0.4567D-11, 0.8122D-11, 0.1443D-10, 0.2567D-10, 0.4565D-10,
25224 # 0.8114D-10, 0.1442D-09, 0.2563D-09, 0.4551D-09, 0.8083D-09,
25225 # 0.1435D-08, 0.2542D-08, 0.4500D-08, 0.7948D-08, 0.1398D-07,
25226 # 0.2451D-07, 0.4267D-07, 0.7358D-07, 0.1252D-06, 0.2092D-06,
25227 # 0.3408D-06, 0.5378D-06, 0.8153D-06, 0.1178D-05, 0.1615D-05,
25228 # 0.2095D-05, 0.2578D-05, 0.3025D-05, 0.3409D-05, 0.3719D-05,
25229 # 0.3959D-05, 0.4138D-05, 0.4267D-05, 0.4359D-05, 0.4424D-05,
25230 # 0.4468D-05, 0.4499D-05, 0.4520D-05, 0.4534D-05, 0.4541D-05,
25231 # 0.4543D-05, 0.4537D-05, 0.4520D-05, 0.4483D-05, 0.4413D-05,
25232 # 0.4294D-05, 0.4105D-05, 0.3835D-05, 0.3487D-05, 0.3080D-05,
25233 # 0.2643D-05, 0.2203D-05, 0.1785D-05, 0.1407D-05, 0.1078D-05,
25234 # 0.8084D-06, 0.5924D-06, 0.4274D-06, 0.3029D-06, 0.2129D-06,
25235 # 0.1484D-06/
25236
25237 data (calcpts(j,48), j = 1,neta) /0.3113D-14, 0.5537D-14,
25238 # 0.9840D-14, 0.1750D-13, 0.3113D-13, 0.5535D-13, 0.9843D-13,
25239 # 0.1751D-12, 0.3112D-12, 0.5534D-12, 0.9844D-12, 0.1750D-11,
25240 # 0.3112D-11, 0.5535D-11, 0.9837D-11, 0.1749D-10, 0.3111D-10,
25241 # 0.5530D-10, 0.9829D-10, 0.1747D-09, 0.3102D-09, 0.5509D-09,
25242 # 0.9777D-09, 0.1733D-08, 0.3067D-08, 0.5417D-08, 0.9531D-08,
25243 # 0.1670D-07, 0.2908D-07, 0.5014D-07, 0.8532D-07, 0.1426D-06,
25244 # 0.2322D-06, 0.3665D-06, 0.5557D-06, 0.8030D-06, 0.1101D-05,
25245 # 0.1428D-05, 0.1757D-05, 0.2061D-05, 0.2323D-05, 0.2535D-05,
25246 # 0.2698D-05, 0.2820D-05, 0.2908D-05, 0.2971D-05, 0.3015D-05,
25247 # 0.3045D-05, 0.3067D-05, 0.3081D-05, 0.3091D-05, 0.3097D-05,
25248 # 0.3100D-05, 0.3099D-05, 0.3094D-05, 0.3082D-05, 0.3056D-05,
25249 # 0.3009D-05, 0.2927D-05, 0.2798D-05, 0.2614D-05, 0.2377D-05,
25250 # 0.2099D-05, 0.1801D-05, 0.1502D-05, 0.1217D-05, 0.9587D-06,
25251 # 0.7353D-06, 0.5508D-06, 0.4038D-06, 0.2913D-06, 0.2073D-06,
25252 # 0.1458D-06/
25253
25254 data (calcpts(j,49), j = 1,neta) /0.2121D-14, 0.3773D-14,
25255 # 0.6706D-14, 0.1193D-13, 0.2121D-13, 0.3772D-13, 0.6708D-13,
25256 # 0.1193D-12, 0.2120D-12, 0.3771D-12, 0.6708D-12, 0.1193D-11,
25257 # 0.2121D-11, 0.3772D-11, 0.6703D-11, 0.1192D-10, 0.2120D-10,
25258 # 0.3768D-10, 0.6698D-10, 0.1190D-09, 0.2114D-09, 0.3754D-09,
25259 # 0.6662D-09, 0.1181D-08, 0.2090D-08, 0.3691D-08, 0.6495D-08,
25260 # 0.1138D-07, 0.1982D-07, 0.3417D-07, 0.5814D-07, 0.9715D-07,
25261 # 0.1583D-06, 0.2498D-06, 0.3786D-06, 0.5472D-06, 0.7499D-06,
25262 # 0.9731D-06, 0.1197D-05, 0.1405D-05, 0.1583D-05, 0.1727D-05,
25263 # 0.1839D-05, 0.1921D-05, 0.1982D-05, 0.2024D-05, 0.2054D-05,
25264 # 0.2075D-05, 0.2090D-05, 0.2100D-05, 0.2106D-05, 0.2111D-05,
25265 # 0.2113D-05, 0.2114D-05, 0.2113D-05, 0.2110D-05, 0.2101D-05,
25266 # 0.2083D-05, 0.2050D-05, 0.1994D-05, 0.1907D-05, 0.1781D-05,
25267 # 0.1620D-05, 0.1430D-05, 0.1227D-05, 0.1023D-05, 0.8291D-06,
25268 # 0.6532D-06, 0.5011D-06, 0.3751D-06, 0.2746D-06, 0.1981D-06,
25269 # 0.1411D-06/
25270
25271 data (dlaeta(j), j = 1,neta) /
25272 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
25273 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
25274 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
25275 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
25276 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
25277 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
25278 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
25279 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
25280 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
25281 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
25282 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
25283 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
25284 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
25285 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
25286 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
25287
25288 data (dlaxi(j), j = 1,nxi) /
25289 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
25290 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
25291 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
25292 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
25293 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
25294 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
25295 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
25296 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
25297 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
25298 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
25299
25300 dleta = dlog10(eta)
25301 dlxi = dlog10(xi)
25302 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
25303 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
25304 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
25305 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
25306 call locate(dlaeta,neta, dleta, ieta)
25307 call locate(dlaxi, nxi, dlxi, ixi)
25308c interpolating between the appropriate points
25309 delxi = 1d0/6d0
25310 deleta = 1d0/6d0
25311c lagrange 3-pt.
25312 if (ixi .le. 2) ixi = 2
25313 if (ixi .ge. 48) ixi = 48
25314 if (ieta .le. 2) ieta = 2
25315 if (ieta .ge. 72) ieta = 72
25316 pxi = (dlxi - dlaxi(ixi))/delxi
25317 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
25318 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
25319 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
25320 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
25321 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
25322 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
25323 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
25324 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
25325 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
25326 peta = (dleta - dlaeta(ieta))/deleta
25327 h1bar_HLq = peta*(peta-1d0)/2d0*f(-1) +
25328 # (1d0 - peta**2)*f(0) +
25329CMB # + peta*(peta+1d0)/2d0*f(1)
25330 # peta*(peta+1d0)/2d0*f(1)
25331 return
25332 end
25333
25334c =========================================
25335 double precision function h1f_LLq(eta,xi)
25336c =========================================
25337
25338c eq (28) in PLB347 (1995) 143 - 151 for the longitudinal piece
25339c This also takes into account the additional mass factorizations
25340c necessary from a low Q^2 photon coupling to the light quark.
25341c MSbar scheme
25342c This routine is called subd1lqf in the original code.
25343c Gives h1_LLq for Q2 < 1.5 GeV2 (use h1_LLq for Q2 > 1.5 GeV2).
25344
25345 implicit none
25346 integer neta, nxi
25347 parameter (neta = 45, nxi = 15)
25348 double precision calcpts(neta,nxi), aeta(neta), axi(nxi)
25349 double precision eta, xi, huge, small
25350 double precision t, u, y1, y2, y3, y4
25351 parameter (small = 1.d-8, huge = 1.d10)
25352 integer j, ieta, ixi
25353
25354 data (calcpts(j, 1), j=1,neta) /0.d0, -.4776D-09, -.6020D-08,
25355 # -.1815D-07, -.3618D-07, -.5922D-07, -.7236D-07, -.4052D-06,
25356 # -.5175D-06, -.9498D-07, 0.1024D-05, 0.1868D-05, 0.2083D-04,
25357 # 0.5522D-04, 0.9831D-04, 0.1448D-03, 0.1913D-03, 0.2357D-03,
25358 # 0.2769D-03, 0.3144D-03, 0.3480D-03, 0.5190D-03, 0.5396D-03,
25359 # 0.5166D-03, 0.4819D-03, 0.4467D-03, 0.4138D-03, 0.3843D-03,
25360 # 0.3581D-03, 0.3348D-03, 0.1415D-03, 0.8921D-04, 0.6507D-04,
25361 # 0.5126D-04, 0.4629D-04, 0.2359D-04, 0.1582D-04, 0.9541D-05,
25362 # 0.6834D-05, 0.5321D-05, 0.4785D-05, 0.9609D-06, 0.4809D-06,
25363 # 0.4800D-07, 0.d0/
25364c
25365 data (calcpts(j, 2), j=1,neta) /0.d0, -.3228D-09, -.4385D-08,
25366 # -.1380D-07, -.2816D-07, -.4656D-07, -.5691D-07, -.1957D-06,
25367 # 0.4271D-06, 0.2429D-05, 0.6145D-05, 0.8706D-05, 0.5987D-04,
25368 # 0.1485D-03, 0.2585D-03, 0.3771D-03, 0.4953D-03, 0.6087D-03,
25369 # 0.7136D-03, 0.8094D-03, 0.8954D-03, 0.1336D-02, 0.1391D-02,
25370 # 0.1332D-02, 0.1244D-02, 0.1153D-02, 0.1069D-02, 0.9933D-03,
25371 # 0.9254D-03, 0.8649D-03, 0.3657D-03, 0.2305D-03, 0.1682D-03,
25372 # 0.1325D-03, 0.1197D-03, 0.6099D-04, 0.4089D-04, 0.2469D-04,
25373 # 0.1765D-04, 0.1375D-04, 0.1239D-04, 0.2480D-05, 0.1242D-05,
25374 # 0.1244D-06, 0.d0/
25375c
25376 data (calcpts(j, 3), j=1,neta) /0.d0, -.7553D-10, -.9480D-09,
25377 # -.2635D-08, -.4464D-08, -.5487D-08, -.5352D-08, 0.3277D-06,
25378 # 0.2037D-05, 0.5960D-05, 0.1261D-04, 0.1707D-04, 0.1039D-03,
25379 # 0.2553D-03, 0.4464D-03, 0.6548D-03, 0.8652D-03, 0.1068D-02,
25380 # 0.1259D-02, 0.1434D-02, 0.1592D-02, 0.2423D-02, 0.2543D-02,
25381 # 0.2445D-02, 0.2289D-02, 0.2125D-02, 0.1971D-02, 0.1832D-02,
25382 # 0.1707D-02, 0.1598D-02, 0.6758D-03, 0.4258D-03, 0.3108D-03,
25383 # 0.2446D-03, 0.2209D-03, 0.1126D-03, 0.7551D-04, 0.4554D-04,
25384 # 0.3260D-04, 0.2538D-04, 0.2284D-04, 0.4588D-05, 0.2292D-05,
25385 # 0.2292D-06, 0.d0/
25386c
25387 data (calcpts(j, 4), j=1,neta) /0.d0, 0.1486D-11, 0.9642D-10,
25388 # 0.6003D-09, 0.1963D-08, 0.4715D-08, 0.6797D-08, 0.2807D-06,
25389 # 0.1468D-05, 0.4193D-05, 0.8945D-05, 0.1219D-04, 0.8137D-04,
25390 # 0.2145D-03, 0.3941D-03, 0.6006D-03, 0.8178D-03, 0.1034D-02,
25391 # 0.1243D-02, 0.1439D-02, 0.1620D-02, 0.2652D-02, 0.2861D-02,
25392 # 0.2787D-02, 0.2627D-02, 0.2448D-02, 0.2279D-02, 0.2121D-02,
25393 # 0.1980D-02, 0.1854D-02, 0.7854D-03, 0.4940D-03, 0.3602D-03,
25394 # 0.2834D-03, 0.2559D-03, 0.1302D-03, 0.8738D-04, 0.5263D-04,
25395 # 0.3765D-04, 0.2933D-04, 0.2638D-04, 0.5286D-05, 0.2649D-05,
25396 # 0.2645D-06, 0.d0/
25397c
25398 data (calcpts(j, 5), j=1,neta) /0.d0, 0.7637D-12, 0.3540D-10,
25399 # 0.2097D-09, 0.6749D-09, 0.1613D-08, 0.2322D-08, 0.9969D-07,
25400 # 0.5478D-06, 0.1638D-05, 0.3644D-05, 0.5064D-05, 0.3938D-04,
25401 # 0.1154D-03, 0.2295D-03, 0.3726D-03, 0.5337D-03, 0.7044D-03,
25402 # 0.8778D-03, 0.1048D-02, 0.1212D-02, 0.2309D-02, 0.2654D-02,
25403 # 0.2671D-02, 0.2570D-02, 0.2426D-02, 0.2276D-02, 0.2130D-02,
25404 # 0.1998D-02, 0.1876D-02, 0.8007D-03, 0.5025D-03, 0.3653D-03,
25405 # 0.2870D-03, 0.2591D-03, 0.1314D-03, 0.8796D-04, 0.5287D-04,
25406 # 0.3783D-04, 0.2940D-04, 0.2647D-04, 0.5306D-05, 0.2651D-05,
25407 # 0.2651D-06, 0.d0/
25408c
25409 data (calcpts(j, 6), j=1,neta) /0.d0, 0.3057D-12, 0.1420D-10,
25410 # 0.8435D-10, 0.2719D-09, 0.6511D-09, 0.9384D-09, 0.4110D-07,
25411 # 0.2302D-06, 0.7017D-06, 0.1588D-05, 0.2228D-05, 0.1869D-04,
25412 # 0.5837D-04, 0.1227D-03, 0.2088D-03, 0.3120D-03, 0.4274D-03,
25413 # 0.5504D-03, 0.6773D-03, 0.8046D-03, 0.1824D-02, 0.2286D-02,
25414 # 0.2424D-02, 0.2408D-02, 0.2325D-02, 0.2216D-02, 0.2100D-02,
25415 # 0.1985D-02, 0.1876D-02, 0.8223D-03, 0.5151D-03, 0.3734D-03,
25416 # 0.2925D-03, 0.2639D-03, 0.1329D-03, 0.8870D-04, 0.5322D-04,
25417 # 0.3800D-04, 0.2958D-04, 0.2661D-04, 0.5309D-05, 0.2655D-05,
25418 # 0.2652D-06, 0.d0/
25419c
25420 data (calcpts(j, 7), j=1,neta) /0.d0, 0.2418D-12, 0.1123D-10,
25421 # 0.6674D-10, 0.2154D-09, 0.5155D-09, 0.7433D-09, 0.3266D-07,
25422 # 0.1835D-06, 0.5605D-06, 0.1272D-05, 0.1787D-05, 0.1518D-04,
25423 # 0.4799D-04, 0.1020D-03, 0.1754D-03, 0.2644D-03, 0.3654D-03,
25424 # 0.4742D-03, 0.5879D-03, 0.7031D-03, 0.1673D-02, 0.2155D-02,
25425 # 0.2326D-02, 0.2337D-02, 0.2276D-02, 0.2183D-02, 0.2078D-02,
25426 # 0.1971D-02, 0.1869D-02, 0.8293D-03, 0.5196D-03, 0.3765D-03,
25427 # 0.2948D-03, 0.2657D-03, 0.1336D-03, 0.8898D-04, 0.5337D-04,
25428 # 0.3807D-04, 0.2961D-04, 0.2664D-04, 0.5312D-05, 0.2655D-05,
25429 # 0.2654D-06, 0.d0/
25430c
25431 data (calcpts(j, 8), j=1,neta) /0.d0, 0.1019D-12, 0.4742D-11,
25432 # 0.2817D-10, 0.9098D-10, 0.2179D-09, 0.3144D-09, 0.1390D-07,
25433 # 0.7859D-07, 0.2416D-06, 0.5520D-06, 0.7771D-06, 0.6819D-05,
25434 # 0.2222D-04, 0.4859D-04, 0.8589D-04, 0.1330D-03, 0.1882D-03,
25435 # 0.2503D-03, 0.3175D-03, 0.3882D-03, 0.1095D-02, 0.1577D-02,
25436 # 0.1835D-02, 0.1947D-02, 0.1976D-02, 0.1955D-02, 0.1908D-02,
25437 # 0.1847D-02, 0.1779D-02, 0.8622D-03, 0.5429D-03, 0.3925D-03,
25438 # 0.3067D-03, 0.2760D-03, 0.1374D-03, 0.9090D-04, 0.5416D-04,
25439 # 0.3855D-04, 0.2988D-04, 0.2687D-04, 0.5327D-05, 0.2658D-05,
25440 # 0.2655D-06, 0.d0/
25441c
25442 data (calcpts(j, 9), j=1,neta) /0.d0, 0.7647D-13, 0.3556D-11,
25443 # 0.2113D-10, 0.6827D-10, 0.1635D-09, 0.2358D-09, 0.1045D-07,
25444 # 0.5912D-07, 0.1821D-06, 0.4163D-06, 0.5868D-06, 0.5177D-05,
25445 # 0.1697D-04, 0.3735D-04, 0.6637D-04, 0.1034D-03, 0.1474D-03,
25446 # 0.1971D-03, 0.2514D-03, 0.3091D-03, 0.9150D-03, 0.1365D-02,
25447 # 0.1635D-02, 0.1773D-02, 0.1829D-02, 0.1836D-02, 0.1811D-02,
25448 # 0.1769D-02, 0.1716D-02, 0.8732D-03, 0.5532D-03, 0.4004D-03,
25449 # 0.3122D-03, 0.2813D-03, 0.1392D-03, 0.9206D-04, 0.5460D-04,
25450 # 0.3876D-04, 0.3009D-04, 0.2702D-04, 0.5337D-05, 0.2666D-05,
25451 # 0.2654D-06, 0.d0/
25452c
25453 data (calcpts(j,10), j=1,neta) /0.d0, 0.2420D-13, 0.1125D-11,
25454 # 0.6694D-11, 0.2160D-10, 0.5178D-10, 0.7469D-10, 0.3315D-08,
25455 # 0.1881D-07, 0.5808D-07, 0.1332D-06, 0.1879D-06, 0.1680D-05,
25456 # 0.5582D-05, 0.1245D-04, 0.2245D-04, 0.3549D-04, 0.5128D-04,
25457 # 0.6956D-04, 0.8996D-04, 0.1122D-03, 0.3801D-03, 0.6375D-03,
25458 # 0.8418D-03, 0.9927D-03, 0.1100D-02, 0.1172D-02, 0.1219D-02,
25459 # 0.1246D-02, 0.1259D-02, 0.8760D-03, 0.5937D-03, 0.4388D-03,
25460 # 0.3447D-03, 0.3107D-03, 0.1521D-03, 0.9921D-04, 0.5789D-04,
25461 # 0.4068D-04, 0.3131D-04, 0.2807D-04, 0.5393D-05, 0.2676D-05,
25462 # 0.2657D-06, 0.d0/
25463c
25464 data (calcpts(j,11), j=1,neta) /0.d0, 0.7649D-14, 0.3559D-12,
25465 # 0.2115D-11, 0.6834D-11, 0.1638D-10, 0.2363D-10, 0.1050D-08,
25466 # 0.5961D-08, 0.1842D-07, 0.4226D-07, 0.5963D-07, 0.5356D-06,
25467 # 0.1787D-05, 0.4008D-05, 0.7258D-05, 0.1153D-04, 0.1675D-04,
25468 # 0.2284D-04, 0.2971D-04, 0.3726D-04, 0.1337D-03, 0.2379D-03,
25469 # 0.3324D-03, 0.4140D-03, 0.4825D-03, 0.5399D-03, 0.5868D-03,
25470 # 0.6257D-03, 0.6576D-03, 0.7086D-03, 0.5671D-03, 0.4546D-03,
25471 # 0.3732D-03, 0.3411D-03, 0.1752D-03, 0.1142D-03, 0.6549D-04,
25472 # 0.4530D-04, 0.3443D-04, 0.3069D-04, 0.5568D-05, 0.2727D-05,
25473 # 0.2662D-06, 0.d0/
25474c
25475 data (calcpts(j,12), j=1,neta) /0.d0, 0.2418D-14, 0.1125D-12,
25476 # 0.6692D-12, 0.2161D-11, 0.5181D-11, 0.7473D-11, 0.3320D-09,
25477 # 0.1887D-08, 0.5829D-08, 0.1338D-07, 0.1889D-07, 0.1698D-06,
25478 # 0.5675D-06, 0.1274D-05, 0.2312D-05, 0.3679D-05, 0.5354D-05,
25479 # 0.7313D-05, 0.9531D-05, 0.1198D-04, 0.4386D-04, 0.7982D-04,
25480 # 0.1143D-03, 0.1456D-03, 0.1738D-03, 0.1991D-03, 0.2216D-03,
25481 # 0.2415D-03, 0.2595D-03, 0.3963D-03, 0.3921D-03, 0.3609D-03,
25482 # 0.3261D-03, 0.3095D-03, 0.1923D-03, 0.1333D-03, 0.7890D-04,
25483 # 0.5455D-04, 0.4114D-04, 0.3653D-04, 0.6024D-05, 0.2865D-05,
25484 # 0.2682D-06, 0.d0/
25485c
25486 data (calcpts(j,13), j=1,neta) /0.d0, 0.7684D-15, 0.3558D-13,
25487 # 0.2117D-12, 0.6833D-12, 0.1638D-11, 0.2362D-11, 0.1050D-09,
25488 # 0.5965D-09, 0.1844D-08, 0.4233D-08, 0.5975D-08, 0.5375D-07,
25489 # 0.1797D-06, 0.4038D-06, 0.7329D-06, 0.1166D-05, 0.1700D-05,
25490 # 0.2322D-05, 0.3029D-05, 0.3806D-05, 0.1403D-04, 0.2573D-04,
25491 # 0.3713D-04, 0.4772D-04, 0.5745D-04, 0.6639D-04, 0.7458D-04,
25492 # 0.8210D-04, 0.8896D-04, 0.1616D-03, 0.1850D-03, 0.1919D-03,
25493 # 0.1917D-03, 0.1901D-03, 0.1583D-03, 0.1280D-03, 0.8802D-04,
25494 # 0.6498D-04, 0.5058D-04, 0.4533D-04, 0.7158D-05, 0.3225D-05,
25495 # 0.2742D-06, 0.d0/
25496c
25497 data (calcpts(j,14), j=1,neta) /0.d0, 0.1468D-15, 0.7101D-14,
25498 # 0.4230D-13, 0.1367D-12, 0.3276D-12, 0.4727D-12, 0.2100D-10,
25499 # 0.1194D-09, 0.3687D-09, 0.8462D-09, 0.1195D-08, 0.1075D-07,
25500 # 0.3596D-07, 0.8079D-07, 0.1467D-06, 0.2335D-06, 0.3402D-06,
25501 # 0.4652D-06, 0.6066D-06, 0.7628D-06, 0.2819D-05, 0.5184D-05,
25502 # 0.7505D-05, 0.9676D-05, 0.1169D-04, 0.1356D-04, 0.1527D-04,
25503 # 0.1688D-04, 0.1836D-04, 0.3604D-04, 0.4455D-04, 0.4976D-04,
25504 # 0.5326D-04, 0.5457D-04, 0.6029D-04, 0.6027D-04, 0.5579D-04,
25505 # 0.5019D-04, 0.4495D-04, 0.4254D-04, 0.1047D-04, 0.4619D-05,
25506 # 0.3043D-06, 0.d0/
25507c
25508 data (calcpts(j,15), j=1,neta) /0.d0, 0.8083D-16, 0.3549D-14,
25509 # 0.2130D-13, 0.6840D-13, 0.1637D-12, 0.2361D-12, 0.1050D-10,
25510 # 0.5967D-10, 0.1844D-09, 0.4233D-09, 0.5976D-09, 0.5376D-08,
25511 # 0.1799D-07, 0.4040D-07, 0.7337D-07, 0.1168D-06, 0.1701D-06,
25512 # 0.2325D-06, 0.3033D-06, 0.3815D-06, 0.1410D-05, 0.2595D-05,
25513 # 0.3756D-05, 0.4847D-05, 0.5861D-05, 0.6792D-05, 0.7664D-05,
25514 # 0.8469D-05, 0.9219D-05, 0.1827D-04, 0.2285D-04, 0.2580D-04,
25515 # 0.2793D-04, 0.2877D-04, 0.3348D-04, 0.3515D-04, 0.3546D-04,
25516 # 0.3425D-04, 0.3258D-04, 0.3168D-04, 0.1158D-04, 0.5529D-05,
25517 # 0.3374D-06, 0.d0/
25518c
25519 data (aeta(j), j = 1,neta) /small, 0.1000d-02, 0.3000d-02,
25520 # 0.5000d-02, 0.7000d-02, 0.9000d-02, 0.1000d-01, 0.3000d-01,
25521 # 0.5000d-01, 0.7000d-01, 0.9000d-01, 0.1000d+00, 0.2000d+00,
25522 # 0.3000d+00, 0.4000d+00, 0.5000d+00, 0.6000d+00, 0.7000d+00,
25523 # 0.8000d+00, 0.9000d+00, 0.1000d+01, 0.2000d+01, 0.3000d+01,
25524 # 0.4000d+01, 0.5000d+01, 0.6000d+01, 0.7000d+01, 0.8000d+01,
25525 # 0.9000d+01, 0.1000d+02, 0.3000d+02, 0.5000d+02, 0.7000d+02,
25526 # 0.9000d+02, 0.1000d+03, 0.2000d+03, 0.3000d+03, 0.5000d+03,
25527 # 0.7000d+03, 0.9000d+03, 0.1000d+04, 0.5000d+04, 0.1000d+05,
25528 # 0.1000d+06, huge/
25529c
25530 data (axi(j), j = 1,nxi) /0.1000d-01, 0.3162d-01, 0.1000d+00,
25531 # 0.3162d+00, 0.1000d+01, 0.2500d+01, 0.3162d+01, 0.7500d+01,
25532 # 0.1000d+02, 0.3162d+02, 0.1000d+03, 0.3162d+03, 0.1000d+04,
25533 # 0.5000d+04, 0.1000d+05/
25534c
25535c here we have to choose the array elements that will go into the
25536c interpolation.
25537 call locate(aeta, neta, eta, ieta)
25538 call locate(axi, nxi, xi, ixi)
25539 if (ieta .le. 1) ieta = 1
25540 if (ieta .gt. (neta - 1)) ieta = neta - 1
25541 if (ixi .le. 1) ixi = 1
25542 if (ixi .gt. (nxi - 1)) ixi = nxi - 1
25543 y1 = calcpts(ieta,ixi)
25544 y2 = calcpts(ieta+1,ixi)
25545 y3 = calcpts(ieta+1,ixi+1)
25546 y4 = calcpts(ieta,ixi+1)
25547c interpolating between the points
25548 t = (eta - aeta(ieta))/(aeta(ieta + 1) - aeta(ieta))
25549 u = (xi - axi(ixi))/(axi(ixi + 1) - axi(ixi))
25550 h1f_LLq = (1.d0 - t)*(1.d0 - u)*y1 + t*(1.d0 - u)*y2 +
25551 # t*u*y3 + (1.d0 - t)*u*y4
25552
25553 return
25554 end
25555
25556c ========================================
25557 double precision function h1_LLq(eta,xi)
25558c ========================================
25559
25560c eq (28) in PLB347 (1995) 143 - 151 for the longitudinal piece
25561c MSbar scheme
25562c This routine is called subd1lq in the original code.
25563c Gives h1_LLq for Q2 > 1.5 GeV2 (use h1f_LLq for Q2 < 1.5 GeV2).
25564c Called sclql in updated code (03/06/96).
25565
25566 implicit none
25567 integer neta, nxi
25568 parameter (neta = 73, nxi = 49)
25569 double precision calcpts(neta, nxi), dlaeta(neta), dlaxi(nxi)
25570 double precision eta, xi, dleta, dlxi
25571 double precision pxi, peta, f(-1:1), delxi, deleta
25572 integer j, ieta, ixi
25573
25574 data (calcpts(j, 1), j = 1,neta) /0.2423D-19, 0.9273D-19,
25575 # 0.3548D-18, 0.1357D-17, 0.5186D-17, 0.1980D-16, 0.7542D-16,
25576 # 0.2866D-15, 0.1085D-14, 0.4089D-14, 0.1530D-13, 0.5665D-13,
25577 # 0.2072D-12, 0.7446D-12, 0.2620D-11, 0.8998D-11, 0.3005D-10,
25578 # 0.9740D-10, 0.3063D-09, 0.9353D-09, 0.2775D-08, 0.8042D-08,
25579 # 0.2279D-07, 0.6327D-07, 0.1727D-06, 0.4629D-06, 0.1221D-05,
25580 # 0.3162D-05, 0.8022D-05, 0.1983D-04, 0.4740D-04, 0.1084D-03,
25581 # 0.2341D-03, 0.4692D-03, 0.8571D-03, 0.1404D-02, 0.2035D-02,
25582 # 0.2598D-02, 0.2933D-02, 0.2958D-02, 0.2711D-02, 0.2297D-02,
25583 # 0.1833D-02, 0.1397D-02, 0.1031D-02, 0.7420D-03, 0.5253D-03,
25584 # 0.3675D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8283D-04,
25585 # 0.5665D-04, 0.3870D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25586 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25587 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25588 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25589 # 0.2652D-07/
25590
25591 data (calcpts(j, 2), j = 1,neta) /0.1652D-19, 0.6323D-19,
25592 # 0.2421D-18, 0.9263D-18, 0.3541D-17, 0.1354D-16, 0.5166D-16,
25593 # 0.1968D-15, 0.7482D-15, 0.2834D-14, 0.1067D-13, 0.3993D-13,
25594 # 0.1479D-12, 0.5406D-12, 0.1944D-11, 0.6840D-11, 0.2347D-10,
25595 # 0.7839D-10, 0.2540D-09, 0.7985D-09, 0.2433D-08, 0.7222D-08,
25596 # 0.2090D-07, 0.5907D-07, 0.1635D-06, 0.4438D-06, 0.1182D-05,
25597 # 0.3085D-05, 0.7875D-05, 0.1956D-04, 0.4694D-04, 0.1077D-03,
25598 # 0.2329D-03, 0.4676D-03, 0.8553D-03, 0.1402D-02, 0.2034D-02,
25599 # 0.2598D-02, 0.2933D-02, 0.2958D-02, 0.2711D-02, 0.2297D-02,
25600 # 0.1833D-02, 0.1397D-02, 0.1031D-02, 0.7420D-03, 0.5253D-03,
25601 # 0.3675D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8283D-04,
25602 # 0.5665D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25603 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25604 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25605 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25606 # 0.2652D-07/
25607
25608 data (calcpts(j, 3), j = 1,neta) /0.1125D-19, 0.4310D-19,
25609 # 0.1650D-18, 0.6318D-18, 0.2418D-17, 0.9246D-17, 0.3534D-16,
25610 # 0.1349D-15, 0.5139D-15, 0.1953D-14, 0.7395D-14, 0.2786D-13,
25611 # 0.1042D-12, 0.3859D-12, 0.1411D-11, 0.5072D-11, 0.1785D-10,
25612 # 0.6126D-10, 0.2045D-09, 0.6621D-09, 0.2081D-08, 0.6333D-08,
25613 # 0.1876D-07, 0.5418D-07, 0.1527D-06, 0.4206D-06, 0.1134D-05,
25614 # 0.2988D-05, 0.7687D-05, 0.1922D-04, 0.4632D-04, 0.1066D-03,
25615 # 0.2314D-03, 0.4655D-03, 0.8527D-03, 0.1399D-02, 0.2031D-02,
25616 # 0.2597D-02, 0.2931D-02, 0.2958D-02, 0.2711D-02, 0.2298D-02,
25617 # 0.1833D-02, 0.1398D-02, 0.1031D-02, 0.7420D-03, 0.5253D-03,
25618 # 0.3675D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8283D-04,
25619 # 0.5665D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25620 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25621 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25622 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25623 # 0.2652D-07/
25624
25625 data (calcpts(j, 4), j = 1,neta) /0.7668D-20, 0.2937D-19,
25626 # 0.1125D-18, 0.4308D-18, 0.1648D-17, 0.6311D-17, 0.2413D-16,
25627 # 0.9224D-16, 0.3521D-15, 0.1341D-14, 0.5097D-14, 0.1931D-13,
25628 # 0.7272D-13, 0.2720D-12, 0.1007D-11, 0.3683D-11, 0.1323D-10,
25629 # 0.4656D-10, 0.1597D-09, 0.5330D-09, 0.1725D-08, 0.5406D-08,
25630 # 0.1646D-07, 0.4866D-07, 0.1400D-06, 0.3927D-06, 0.1074D-05,
25631 # 0.2866D-05, 0.7448D-05, 0.1877D-04, 0.4551D-04, 0.1053D-03,
25632 # 0.2294D-03, 0.4626D-03, 0.8493D-03, 0.1396D-02, 0.2028D-02,
25633 # 0.2595D-02, 0.2931D-02, 0.2957D-02, 0.2711D-02, 0.2298D-02,
25634 # 0.1833D-02, 0.1398D-02, 0.1031D-02, 0.7422D-03, 0.5255D-03,
25635 # 0.3675D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8283D-04,
25636 # 0.5665D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25637 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25638 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25639 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25640 # 0.2652D-07/
25641
25642 data (calcpts(j, 5), j = 1,neta) /0.5226D-20, 0.2001D-19,
25643 # 0.7668D-19, 0.2937D-18, 0.1124D-17, 0.4305D-17, 0.1647D-16,
25644 # 0.6300D-16, 0.2408D-15, 0.9189D-15, 0.3501D-14, 0.1330D-13,
25645 # 0.5038D-13, 0.1897D-12, 0.7098D-12, 0.2630D-11, 0.9607D-11,
25646 # 0.3452D-10, 0.1214D-09, 0.4164D-09, 0.1388D-08, 0.4484D-08,
25647 # 0.1405D-07, 0.4267D-07, 0.1258D-06, 0.3603D-06, 0.1004D-05,
25648 # 0.2718D-05, 0.7148D-05, 0.1818D-04, 0.4446D-04, 0.1035D-03,
25649 # 0.2265D-03, 0.4587D-03, 0.8447D-03, 0.1391D-02, 0.2025D-02,
25650 # 0.2592D-02, 0.2930D-02, 0.2957D-02, 0.2711D-02, 0.2298D-02,
25651 # 0.1833D-02, 0.1398D-02, 0.1031D-02, 0.7422D-03, 0.5255D-03,
25652 # 0.3675D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8283D-04,
25653 # 0.5665D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25654 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25655 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25656 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25657 # 0.2652D-07/
25658
25659 data (calcpts(j, 6), j = 1,neta) /0.3561D-20, 0.1364D-19,
25660 # 0.5224D-19, 0.2001D-18, 0.7665D-18, 0.2936D-17, 0.1124D-16,
25661 # 0.4299D-16, 0.1644D-15, 0.6284D-15, 0.2399D-14, 0.9138D-14,
25662 # 0.3473D-13, 0.1315D-12, 0.4953D-12, 0.1853D-11, 0.6860D-11,
25663 # 0.2506D-10, 0.9003D-10, 0.3165D-09, 0.1085D-08, 0.3609D-08,
25664 # 0.1165D-07, 0.3644D-07, 0.1103D-06, 0.3237D-06, 0.9210D-06,
25665 # 0.2540D-05, 0.6779D-05, 0.1746D-04, 0.4312D-04, 0.1012D-03,
25666 # 0.2229D-03, 0.4536D-03, 0.8383D-03, 0.1385D-02, 0.2019D-02,
25667 # 0.2587D-02, 0.2927D-02, 0.2957D-02, 0.2711D-02, 0.2298D-02,
25668 # 0.1835D-02, 0.1398D-02, 0.1031D-02, 0.7424D-03, 0.5255D-03,
25669 # 0.3677D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8284D-04,
25670 # 0.5665D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25671 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25672 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25673 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25674 # 0.2652D-07/
25675
25676 data (calcpts(j, 7), j = 1,neta) /0.2426D-20, 0.9294D-20,
25677 # 0.3561D-19, 0.1364D-18, 0.5224D-18, 0.2001D-17, 0.7662D-17,
25678 # 0.2933D-16, 0.1122D-15, 0.4293D-15, 0.1640D-14, 0.6260D-14,
25679 # 0.2385D-13, 0.9065D-13, 0.3432D-12, 0.1293D-11, 0.4833D-11,
25680 # 0.1790D-10, 0.6537D-10, 0.2348D-09, 0.8247D-09, 0.2820D-08,
25681 # 0.9381D-08, 0.3023D-07, 0.9423D-07, 0.2841D-06, 0.8278D-06,
25682 # 0.2331D-05, 0.6338D-05, 0.1658D-04, 0.4145D-04, 0.9827D-04,
25683 # 0.2182D-03, 0.4468D-03, 0.8298D-03, 0.1376D-02, 0.2012D-02,
25684 # 0.2583D-02, 0.2925D-02, 0.2955D-02, 0.2711D-02, 0.2298D-02,
25685 # 0.1835D-02, 0.1398D-02, 0.1031D-02, 0.7425D-03, 0.5256D-03,
25686 # 0.3677D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8284D-04,
25687 # 0.5667D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25688 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25689 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25690 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25691 # 0.2652D-07/
25692
25693 data (calcpts(j, 8), j = 1,neta) /0.1653D-20, 0.6333D-20,
25694 # 0.2425D-19, 0.9294D-19, 0.3559D-18, 0.1364D-17, 0.5223D-17,
25695 # 0.2000D-16, 0.7656D-16, 0.2930D-15, 0.1120D-14, 0.4281D-14,
25696 # 0.1634D-13, 0.6225D-13, 0.2366D-12, 0.8955D-12, 0.3373D-11,
25697 # 0.1261D-10, 0.4666D-10, 0.1704D-09, 0.6116D-09, 0.2147D-08,
25698 # 0.7331D-08, 0.2433D-07, 0.7818D-07, 0.2427D-06, 0.7266D-06,
25699 # 0.2097D-05, 0.5823D-05, 0.1551D-04, 0.3938D-04, 0.9454D-04,
25700 # 0.2121D-03, 0.4378D-03, 0.8186D-03, 0.1363D-02, 0.2001D-02,
25701 # 0.2576D-02, 0.2921D-02, 0.2953D-02, 0.2711D-02, 0.2299D-02,
25702 # 0.1835D-02, 0.1399D-02, 0.1032D-02, 0.7426D-03, 0.5256D-03,
25703 # 0.3677D-03, 0.2550D-03, 0.1760D-03, 0.1209D-03, 0.8284D-04,
25704 # 0.5667D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25705 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25706 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25707 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25708 # 0.2652D-07/
25709
25710 data (calcpts(j, 9), j = 1,neta) /0.1126D-20, 0.4314D-20,
25711 # 0.1653D-19, 0.6333D-19, 0.2426D-18, 0.9293D-18, 0.3560D-17,
25712 # 0.1363D-16, 0.5220D-16, 0.1998D-15, 0.7647D-15, 0.2925D-14,
25713 # 0.1117D-13, 0.4264D-13, 0.1625D-12, 0.6173D-12, 0.2337D-11,
25714 # 0.8799D-11, 0.3289D-10, 0.1217D-09, 0.4440D-09, 0.1591D-08,
25715 # 0.5573D-08, 0.1902D-07, 0.6296D-07, 0.2013D-06, 0.6208D-06,
25716 # 0.1842D-05, 0.5241D-05, 0.1426D-04, 0.3689D-04, 0.8996D-04,
25717 # 0.2045D-03, 0.4264D-03, 0.8037D-03, 0.1347D-02, 0.1986D-02,
25718 # 0.2565D-02, 0.2915D-02, 0.2952D-02, 0.2711D-02, 0.2301D-02,
25719 # 0.1836D-02, 0.1400D-02, 0.1032D-02, 0.7430D-03, 0.5257D-03,
25720 # 0.3678D-03, 0.2552D-03, 0.1760D-03, 0.1209D-03, 0.8284D-04,
25721 # 0.5667D-04, 0.3871D-04, 0.2642D-04, 0.1803D-04, 0.1229D-04,
25722 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25723 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25724 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25725 # 0.2652D-07/
25726
25727 data (calcpts(j,10), j = 1,neta) /0.7672D-21, 0.2940D-20,
25728 # 0.1126D-19, 0.4314D-19, 0.1653D-18, 0.6333D-18, 0.2425D-17,
25729 # 0.9291D-17, 0.3558D-16, 0.1363D-15, 0.5216D-15, 0.1996D-14,
25730 # 0.7634D-14, 0.2916D-13, 0.1113D-12, 0.4239D-12, 0.1611D-11,
25731 # 0.6096D-11, 0.2295D-10, 0.8574D-10, 0.3171D-09, 0.1156D-08,
25732 # 0.4133D-08, 0.1446D-07, 0.4922D-07, 0.1622D-06, 0.5154D-06,
25733 # 0.1575D-05, 0.4605D-05, 0.1285D-04, 0.3396D-04, 0.8439D-04,
25734 # 0.1948D-03, 0.4119D-03, 0.7844D-03, 0.1326D-02, 0.1966D-02,
25735 # 0.2550D-02, 0.2907D-02, 0.2949D-02, 0.2712D-02, 0.2301D-02,
25736 # 0.1837D-02, 0.1401D-02, 0.1033D-02, 0.7432D-03, 0.5261D-03,
25737 # 0.3678D-03, 0.2552D-03, 0.1760D-03, 0.1209D-03, 0.8286D-04,
25738 # 0.5667D-04, 0.3871D-04, 0.2643D-04, 0.1803D-04, 0.1229D-04,
25739 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25740 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25741 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25742 # 0.2652D-07/
25743
25744 data (calcpts(j,11), j = 1,neta) /0.5227D-21, 0.2003D-20,
25745 # 0.7672D-20, 0.2940D-19, 0.1126D-18, 0.4314D-18, 0.1653D-17,
25746 # 0.6332D-17, 0.2426D-16, 0.9288D-16, 0.3557D-15, 0.1362D-14,
25747 # 0.5209D-14, 0.1992D-13, 0.7612D-13, 0.2904D-12, 0.1106D-11,
25748 # 0.4202D-11, 0.1590D-10, 0.5984D-10, 0.2234D-09, 0.8253D-09,
25749 # 0.3000D-08, 0.1072D-07, 0.3741D-07, 0.1268D-06, 0.4154D-06,
25750 # 0.1308D-05, 0.3941D-05, 0.1130D-04, 0.3065D-04, 0.7785D-04,
25751 # 0.1832D-03, 0.3936D-03, 0.7596D-03, 0.1297D-02, 0.1939D-02,
25752 # 0.2531D-02, 0.2897D-02, 0.2946D-02, 0.2711D-02, 0.2302D-02,
25753 # 0.1839D-02, 0.1402D-02, 0.1033D-02, 0.7437D-03, 0.5263D-03,
25754 # 0.3680D-03, 0.2553D-03, 0.1761D-03, 0.1209D-03, 0.8288D-04,
25755 # 0.5669D-04, 0.3871D-04, 0.2643D-04, 0.1803D-04, 0.1229D-04,
25756 # 0.8378D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25757 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3893D-06, 0.2652D-06,
25758 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25759 # 0.2652D-07/
25760
25761 data (calcpts(j,12), j = 1,neta) /0.3561D-21, 0.1365D-20,
25762 # 0.5227D-20, 0.2003D-19, 0.7674D-19, 0.2940D-18, 0.1126D-17,
25763 # 0.4314D-17, 0.1653D-16, 0.6330D-16, 0.2424D-15, 0.9283D-15,
25764 # 0.3554D-14, 0.1360D-13, 0.5199D-13, 0.1986D-12, 0.7580D-12,
25765 # 0.2886D-11, 0.1096D-10, 0.4146D-10, 0.1559D-09, 0.5817D-09,
25766 # 0.2145D-08, 0.7786D-08, 0.2775D-07, 0.9642D-07, 0.3247D-06,
25767 # 0.1054D-05, 0.3276D-05, 0.9683D-05, 0.2700D-04, 0.7040D-04,
25768 # 0.1695D-03, 0.3712D-03, 0.7283D-03, 0.1260D-02, 0.1905D-02,
25769 # 0.2504D-02, 0.2880D-02, 0.2938D-02, 0.2711D-02, 0.2306D-02,
25770 # 0.1841D-02, 0.1404D-02, 0.1035D-02, 0.7445D-03, 0.5267D-03,
25771 # 0.3683D-03, 0.2553D-03, 0.1761D-03, 0.1210D-03, 0.8289D-04,
25772 # 0.5669D-04, 0.3871D-04, 0.2643D-04, 0.1803D-04, 0.1229D-04,
25773 # 0.8379D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1806D-05,
25774 # 0.1231D-05, 0.8387D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25775 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25776 # 0.2652D-07/
25777
25778 data (calcpts(j,13), j = 1,neta) /0.2427D-21, 0.9296D-21,
25779 # 0.3561D-20, 0.1365D-19, 0.5227D-19, 0.2003D-18, 0.7674D-18,
25780 # 0.2940D-17, 0.1126D-16, 0.4314D-16, 0.1653D-15, 0.6329D-15,
25781 # 0.2423D-14, 0.9275D-14, 0.3549D-13, 0.1357D-12, 0.5183D-12,
25782 # 0.1977D-11, 0.7527D-11, 0.2858D-10, 0.1080D-09, 0.4059D-09,
25783 # 0.1512D-08, 0.5560D-08, 0.2016D-07, 0.7152D-07, 0.2471D-06,
25784 # 0.8250D-06, 0.2643D-05, 0.8058D-05, 0.2318D-04, 0.6216D-04,
25785 # 0.1536D-03, 0.3445D-03, 0.6896D-03, 0.1214D-02, 0.1858D-02,
25786 # 0.2466D-02, 0.2858D-02, 0.2930D-02, 0.2709D-02, 0.2307D-02,
25787 # 0.1844D-02, 0.1406D-02, 0.1036D-02, 0.7453D-03, 0.5273D-03,
25788 # 0.3686D-03, 0.2556D-03, 0.1763D-03, 0.1210D-03, 0.8291D-04,
25789 # 0.5670D-04, 0.3873D-04, 0.2643D-04, 0.1803D-04, 0.1229D-04,
25790 # 0.8379D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1807D-05,
25791 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25792 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25793 # 0.2652D-07/
25794
25795 data (calcpts(j,14), j = 1,neta) /0.1653D-21, 0.6333D-21,
25796 # 0.2427D-20, 0.9297D-20, 0.3562D-19, 0.1365D-18, 0.5229D-18,
25797 # 0.2003D-17, 0.7674D-17, 0.2940D-16, 0.1126D-15, 0.4313D-15,
25798 # 0.1651D-14, 0.6324D-14, 0.2421D-13, 0.9261D-13, 0.3540D-12,
25799 # 0.1352D-11, 0.5157D-11, 0.1962D-10, 0.7446D-10, 0.2813D-09,
25800 # 0.1055D-08, 0.3918D-08, 0.1439D-07, 0.5196D-07, 0.1833D-06,
25801 # 0.6278D-06, 0.2070D-05, 0.6507D-05, 0.1932D-04, 0.5346D-04,
25802 # 0.1361D-03, 0.3135D-03, 0.6428D-03, 0.1155D-02, 0.1797D-02,
25803 # 0.2417D-02, 0.2826D-02, 0.2916D-02, 0.2706D-02, 0.2309D-02,
25804 # 0.1847D-02, 0.1409D-02, 0.1038D-02, 0.7467D-03, 0.5280D-03,
25805 # 0.3690D-03, 0.2558D-03, 0.1763D-03, 0.1211D-03, 0.8293D-04,
25806 # 0.5672D-04, 0.3873D-04, 0.2643D-04, 0.1803D-04, 0.1229D-04,
25807 # 0.8379D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1807D-05,
25808 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25809 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25810 # 0.2652D-07/
25811
25812 data (calcpts(j,15), j = 1,neta) /0.1127D-21, 0.4316D-21,
25813 # 0.1653D-20, 0.6334D-20, 0.2427D-19, 0.9297D-19, 0.3562D-18,
25814 # 0.1365D-17, 0.5229D-17, 0.2003D-16, 0.7673D-16, 0.2938D-15,
25815 # 0.1126D-14, 0.4311D-14, 0.1650D-13, 0.6317D-13, 0.2416D-12,
25816 # 0.9237D-12, 0.3526D-11, 0.1344D-10, 0.5113D-10, 0.1938D-09,
25817 # 0.7313D-09, 0.2735D-08, 0.1014D-07, 0.3710D-07, 0.1332D-06,
25818 # 0.4659D-06, 0.1575D-05, 0.5100D-05, 0.1562D-04, 0.4467D-04,
25819 # 0.1174D-03, 0.2789D-03, 0.5880D-03, 0.1083D-02, 0.1721D-02,
25820 # 0.2352D-02, 0.2782D-02, 0.2895D-02, 0.2702D-02, 0.2311D-02,
25821 # 0.1851D-02, 0.1413D-02, 0.1041D-02, 0.7485D-03, 0.5291D-03,
25822 # 0.3696D-03, 0.2561D-03, 0.1764D-03, 0.1212D-03, 0.8298D-04,
25823 # 0.5673D-04, 0.3875D-04, 0.2645D-04, 0.1803D-04, 0.1229D-04,
25824 # 0.8381D-05, 0.5710D-05, 0.3891D-05, 0.2652D-05, 0.1807D-05,
25825 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25826 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25827 # 0.2652D-07/
25828
25829 data (calcpts(j,16), j = 1,neta) /0.7679D-22, 0.2940D-21,
25830 # 0.1126D-20, 0.4316D-20, 0.1653D-19, 0.6334D-19, 0.2427D-18,
25831 # 0.9299D-18, 0.3563D-17, 0.1365D-16, 0.5229D-16, 0.2002D-15,
25832 # 0.7671D-15, 0.2939D-14, 0.1125D-13, 0.4307D-13, 0.1649D-12,
25833 # 0.6305D-12, 0.2409D-11, 0.9195D-11, 0.3504D-10, 0.1331D-09,
25834 # 0.5040D-09, 0.1898D-08, 0.7077D-08, 0.2615D-07, 0.9512D-07,
25835 # 0.3386D-06, 0.1170D-05, 0.3886D-05, 0.1226D-04, 0.3621D-04,
25836 # 0.9842D-04, 0.2416D-03, 0.5259D-03, 0.9966D-03, 0.1623D-02,
25837 # 0.2265D-02, 0.2724D-02, 0.2865D-02, 0.2693D-02, 0.2313D-02,
25838 # 0.1857D-02, 0.1418D-02, 0.1045D-02, 0.7509D-03, 0.5304D-03,
25839 # 0.3703D-03, 0.2565D-03, 0.1767D-03, 0.1213D-03, 0.8304D-04,
25840 # 0.5676D-04, 0.3876D-04, 0.2645D-04, 0.1803D-04, 0.1230D-04,
25841 # 0.8381D-05, 0.5712D-05, 0.3893D-05, 0.2652D-05, 0.1807D-05,
25842 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25843 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25844 # 0.2652D-07/
25845
25846 data (calcpts(j,17), j = 1,neta) /0.5235D-22, 0.2003D-21,
25847 # 0.7672D-21, 0.2940D-20, 0.1127D-19, 0.4316D-19, 0.1653D-18,
25848 # 0.6334D-18, 0.2427D-17, 0.9299D-17, 0.3562D-16, 0.1365D-15,
25849 # 0.5228D-15, 0.2003D-14, 0.7668D-14, 0.2936D-13, 0.1124D-12,
25850 # 0.4301D-12, 0.1644D-11, 0.6281D-11, 0.2396D-10, 0.9120D-10,
25851 # 0.3462D-09, 0.1308D-08, 0.4904D-08, 0.1826D-07, 0.6705D-07,
25852 # 0.2418D-06, 0.8505D-06, 0.2888D-05, 0.9354D-05, 0.2847D-04,
25853 # 0.8001D-04, 0.2034D-03, 0.4584D-03, 0.8976D-03, 0.1506D-02,
25854 # 0.2155D-02, 0.2643D-02, 0.2820D-02, 0.2678D-02, 0.2315D-02,
25855 # 0.1863D-02, 0.1424D-02, 0.1050D-02, 0.7542D-03, 0.5324D-03,
25856 # 0.3714D-03, 0.2571D-03, 0.1770D-03, 0.1215D-03, 0.8313D-04,
25857 # 0.5680D-04, 0.3878D-04, 0.2646D-04, 0.1805D-04, 0.1230D-04,
25858 # 0.8382D-05, 0.5712D-05, 0.3893D-05, 0.2652D-05, 0.1807D-05,
25859 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25860 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25861 # 0.2652D-07/
25862
25863 data (calcpts(j,18), j = 1,neta) /0.3573D-22, 0.1365D-21,
25864 # 0.5227D-21, 0.2003D-20, 0.7674D-20, 0.2940D-19, 0.1127D-18,
25865 # 0.4316D-18, 0.1653D-17, 0.6334D-17, 0.2427D-16, 0.9298D-16,
25866 # 0.3563D-15, 0.1364D-14, 0.5226D-14, 0.2001D-13, 0.7662D-13,
25867 # 0.2933D-12, 0.1122D-11, 0.4287D-11, 0.1637D-10, 0.6237D-10,
25868 # 0.2372D-09, 0.8985D-09, 0.3381D-08, 0.1265D-07, 0.4680D-07,
25869 # 0.1706D-06, 0.6078D-06, 0.2100D-05, 0.6957D-05, 0.2177D-04,
25870 # 0.6311D-04, 0.1661D-03, 0.3881D-03, 0.7881D-03, 0.1368D-02,
25871 # 0.2018D-02, 0.2537D-02, 0.2759D-02, 0.2652D-02, 0.2311D-02,
25872 # 0.1869D-02, 0.1432D-02, 0.1056D-02, 0.7584D-03, 0.5351D-03,
25873 # 0.3729D-03, 0.2580D-03, 0.1775D-03, 0.1217D-03, 0.8325D-04,
25874 # 0.5687D-04, 0.3882D-04, 0.2647D-04, 0.1805D-04, 0.1230D-04,
25875 # 0.8384D-05, 0.5714D-05, 0.3893D-05, 0.2652D-05, 0.1807D-05,
25876 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25877 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25878 # 0.2652D-07/
25879
25880 data (calcpts(j,19), j = 1,neta) /0.2443D-22, 0.9299D-22,
25881 # 0.3561D-21, 0.1365D-20, 0.5229D-20, 0.2003D-19, 0.7675D-19,
25882 # 0.2940D-18, 0.1127D-17, 0.4317D-17, 0.1653D-16, 0.6334D-16,
25883 # 0.2427D-15, 0.9297D-15, 0.3561D-14, 0.1364D-13, 0.5222D-13,
25884 # 0.1998D-12, 0.7647D-12, 0.2923D-11, 0.1117D-10, 0.4260D-10,
25885 # 0.1622D-09, 0.6156D-09, 0.2322D-08, 0.8717D-08, 0.3243D-07,
25886 # 0.1190D-06, 0.4286D-06, 0.1502D-05, 0.5064D-05, 0.1621D-04,
25887 # 0.4834D-04, 0.1315D-03, 0.3186D-03, 0.6722D-03, 0.1212D-02,
25888 # 0.1851D-02, 0.2399D-02, 0.2670D-02, 0.2613D-02, 0.2304D-02,
25889 # 0.1875D-02, 0.1442D-02, 0.1064D-02, 0.7641D-03, 0.5385D-03,
25890 # 0.3750D-03, 0.2591D-03, 0.1781D-03, 0.1220D-03, 0.8342D-04,
25891 # 0.5695D-04, 0.3885D-04, 0.2649D-04, 0.1806D-04, 0.1231D-04,
25892 # 0.8387D-05, 0.5715D-05, 0.3894D-05, 0.2652D-05, 0.1807D-05,
25893 # 0.1231D-05, 0.8388D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25894 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25895 # 0.2652D-07/
25896
25897 data (calcpts(j,20), j = 1,neta) /0.1677D-22, 0.6337D-22,
25898 # 0.2424D-21, 0.9296D-21, 0.3563D-20, 0.1365D-19, 0.5229D-19,
25899 # 0.2004D-18, 0.7676D-18, 0.2940D-17, 0.1127D-16, 0.4316D-16,
25900 # 0.1653D-15, 0.6335D-15, 0.2427D-14, 0.9293D-14, 0.3558D-13,
25901 # 0.1362D-12, 0.5213D-12, 0.1993D-11, 0.7619D-11, 0.2909D-10,
25902 # 0.1108D-09, 0.4211D-09, 0.1593D-08, 0.5987D-08, 0.2235D-07,
25903 # 0.8247D-07, 0.2991D-06, 0.1059D-05, 0.3622D-05, 0.1181D-04,
25904 # 0.3608D-04, 0.1011D-03, 0.2535D-03, 0.5559D-03, 0.1044D-02,
25905 # 0.1658D-02, 0.2224D-02, 0.2552D-02, 0.2553D-02, 0.2286D-02,
25906 # 0.1880D-02, 0.1452D-02, 0.1074D-02, 0.7713D-03, 0.5433D-03,
25907 # 0.3778D-03, 0.2607D-03, 0.1790D-03, 0.1225D-03, 0.8365D-04,
25908 # 0.5708D-04, 0.3893D-04, 0.2652D-04, 0.1808D-04, 0.1231D-04,
25909 # 0.8391D-05, 0.5717D-05, 0.3894D-05, 0.2654D-05, 0.1807D-05,
25910 # 0.1231D-05, 0.8390D-06, 0.5715D-06, 0.3894D-06, 0.2652D-06,
25911 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25912 # 0.2652D-07/
25913
25914 data (calcpts(j,21), j = 1,neta) /0.1158D-22, 0.4320D-22,
25915 # 0.1650D-21, 0.6332D-21, 0.2427D-20, 0.9297D-20, 0.3562D-19,
25916 # 0.1365D-18, 0.5229D-18, 0.2004D-17, 0.7676D-17, 0.2940D-16,
25917 # 0.1127D-15, 0.4316D-15, 0.1653D-14, 0.6331D-14, 0.2424D-13,
25918 # 0.9284D-13, 0.3553D-12, 0.1359D-11, 0.5195D-11, 0.1983D-10,
25919 # 0.7562D-10, 0.2876D-09, 0.1090D-08, 0.4103D-08, 0.1536D-07,
25920 # 0.5686D-07, 0.2073D-06, 0.7396D-06, 0.2556D-05, 0.8457D-05,
25921 # 0.2634D-04, 0.7564D-04, 0.1958D-03, 0.4452D-03, 0.8708D-03,
25922 # 0.1443D-02, 0.2016D-02, 0.2396D-02, 0.2466D-02, 0.2254D-02,
25923 # 0.1880D-02, 0.1463D-02, 0.1086D-02, 0.7806D-03, 0.5493D-03,
25924 # 0.3816D-03, 0.2628D-03, 0.1801D-03, 0.1231D-03, 0.8399D-04,
25925 # 0.5725D-04, 0.3900D-04, 0.2657D-04, 0.1811D-04, 0.1233D-04,
25926 # 0.8396D-05, 0.5720D-05, 0.3896D-05, 0.2654D-05, 0.1807D-05,
25927 # 0.1231D-05, 0.8390D-06, 0.5715D-06, 0.3894D-06, 0.2654D-06,
25928 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25929 # 0.2652D-07/
25930
25931 data (calcpts(j,22), j = 1,neta) /0.8067D-23, 0.2946D-22,
25932 # 0.1123D-21, 0.4311D-21, 0.1654D-20, 0.6333D-20, 0.2427D-19,
25933 # 0.9298D-19, 0.3562D-18, 0.1365D-17, 0.5229D-17, 0.2004D-16,
25934 # 0.7676D-16, 0.2940D-15, 0.1126D-14, 0.4314D-14, 0.1652D-13,
25935 # 0.6326D-13, 0.2421D-12, 0.9263D-12, 0.3542D-11, 0.1353D-10,
25936 # 0.5158D-10, 0.1962D-09, 0.7445D-09, 0.2805D-08, 0.1052D-07,
25937 # 0.3906D-07, 0.1430D-06, 0.5127D-06, 0.1785D-05, 0.5972D-05,
25938 # 0.1887D-04, 0.5534D-04, 0.1470D-03, 0.3458D-03, 0.7032D-03,
25939 # 0.1217D-02, 0.1777D-02, 0.2201D-02, 0.2345D-02, 0.2201D-02,
25940 # 0.1869D-02, 0.1472D-02, 0.1099D-02, 0.7918D-03, 0.5573D-03,
25941 # 0.3864D-03, 0.2657D-03, 0.1818D-03, 0.1240D-03, 0.8445D-04,
25942 # 0.5750D-04, 0.3914D-04, 0.2664D-04, 0.1814D-04, 0.1234D-04,
25943 # 0.8405D-05, 0.5722D-05, 0.3897D-05, 0.2655D-05, 0.1807D-05,
25944 # 0.1232D-05, 0.8391D-06, 0.5717D-06, 0.3894D-06, 0.2654D-06,
25945 # 0.1808D-06, 0.1231D-06, 0.8388D-07, 0.5715D-07, 0.3894D-07,
25946 # 0.2652D-07/
25947
25948 data (calcpts(j,23), j = 1,neta) /0.5685D-23, 0.2010D-22,
25949 # 0.7636D-22, 0.2936D-21, 0.1128D-20, 0.4314D-20, 0.1654D-19,
25950 # 0.6336D-19, 0.2427D-18, 0.9300D-18, 0.3563D-17, 0.1365D-16,
25951 # 0.5229D-16, 0.2004D-15, 0.7674D-15, 0.2940D-14, 0.1126D-13,
25952 # 0.4310D-13, 0.1650D-12, 0.6312D-12, 0.2414D-11, 0.9221D-11,
25953 # 0.3517D-10, 0.1339D-09, 0.5081D-09, 0.1920D-08, 0.7194D-08,
25954 # 0.2676D-07, 0.9820D-07, 0.3536D-06, 0.1238D-05, 0.4173D-05,
25955 # 0.1334D-04, 0.3972D-04, 0.1079D-03, 0.2610D-03, 0.5501D-03,
25956 # 0.9924D-03, 0.1517D-02, 0.1965D-02, 0.2182D-02, 0.2118D-02,
25957 # 0.1844D-02, 0.1476D-02, 0.1113D-02, 0.8052D-03, 0.5671D-03,
25958 # 0.3929D-03, 0.2696D-03, 0.1839D-03, 0.1252D-03, 0.8508D-04,
25959 # 0.5783D-04, 0.3930D-04, 0.2672D-04, 0.1818D-04, 0.1236D-04,
25960 # 0.8415D-05, 0.5729D-05, 0.3900D-05, 0.2657D-05, 0.1809D-05,
25961 # 0.1232D-05, 0.8393D-06, 0.5717D-06, 0.3894D-06, 0.2654D-06,
25962 # 0.1808D-06, 0.1231D-06, 0.8390D-07, 0.5715D-07, 0.3894D-07,
25963 # 0.2652D-07/
25964
25965 data (calcpts(j,24), j = 1,neta) /0.4040D-23, 0.1371D-22,
25966 # 0.5190D-22, 0.1998D-21, 0.7686D-21, 0.2938D-20, 0.1127D-19,
25967 # 0.4317D-19, 0.1655D-18, 0.6336D-18, 0.2427D-17, 0.9300D-17,
25968 # 0.3562D-16, 0.1365D-15, 0.5229D-15, 0.2003D-14, 0.7670D-14,
25969 # 0.2937D-13, 0.1124D-12, 0.4302D-12, 0.1646D-11, 0.6284D-11,
25970 # 0.2397D-10, 0.9129D-10, 0.3467D-09, 0.1310D-08, 0.4914D-08,
25971 # 0.1830D-07, 0.6728D-07, 0.2428D-06, 0.8538D-06, 0.2894D-05,
25972 # 0.9329D-05, 0.2811D-04, 0.7761D-04, 0.1922D-03, 0.4178D-03,
25973 # 0.7832D-03, 0.1251D-02, 0.1699D-02, 0.1977D-02, 0.1998D-02,
25974 # 0.1796D-02, 0.1471D-02, 0.1125D-02, 0.8201D-03, 0.5792D-03,
25975 # 0.4010D-03, 0.2745D-03, 0.1869D-03, 0.1268D-03, 0.8597D-04,
25976 # 0.5829D-04, 0.3954D-04, 0.2685D-04, 0.1824D-04, 0.1240D-04,
25977 # 0.8430D-05, 0.5736D-05, 0.3905D-05, 0.2658D-05, 0.1811D-05,
25978 # 0.1233D-05, 0.8394D-06, 0.5718D-06, 0.3895D-06, 0.2654D-06,
25979 # 0.1808D-06, 0.1231D-06, 0.8390D-07, 0.5715D-07, 0.3894D-07,
25980 # 0.2652D-07/
25981
25982 data (calcpts(j,25), j = 1,neta) /0.2879D-23, 0.9354D-23,
25983 # 0.3524D-22, 0.1360D-21, 0.5241D-21, 0.2003D-20, 0.7677D-20,
25984 # 0.2942D-19, 0.1127D-18, 0.4317D-18, 0.1653D-17, 0.6336D-17,
25985 # 0.2427D-16, 0.9298D-16, 0.3563D-15, 0.1364D-14, 0.5226D-14,
25986 # 0.2001D-13, 0.7659D-13, 0.2931D-12, 0.1121D-11, 0.4282D-11,
25987 # 0.1634D-10, 0.6224D-10, 0.2364D-09, 0.8938D-09, 0.3354D-08,
25988 # 0.1250D-07, 0.4602D-07, 0.1664D-06, 0.5867D-06, 0.1997D-05,
25989 # 0.6473D-05, 0.1968D-04, 0.5502D-04, 0.1387D-03, 0.3092D-03,
25990 # 0.5991D-03, 0.9977D-03, 0.1421D-02, 0.1734D-02, 0.1836D-02,
25991 # 0.1718D-02, 0.1449D-02, 0.1132D-02, 0.8349D-03, 0.5929D-03,
25992 # 0.4111D-03, 0.2811D-03, 0.1906D-03, 0.1290D-03, 0.8716D-04,
25993 # 0.5892D-04, 0.3987D-04, 0.2702D-04, 0.1833D-04, 0.1244D-04,
25994 # 0.8453D-05, 0.5748D-05, 0.3909D-05, 0.2661D-05, 0.1811D-05,
25995 # 0.1233D-05, 0.8398D-06, 0.5719D-06, 0.3895D-06, 0.2654D-06,
25996 # 0.1808D-06, 0.1232D-06, 0.8390D-07, 0.5715D-07, 0.3894D-07,
25997 # 0.2652D-07/
25998
25999 data (calcpts(j,26), j = 1,neta) /0.2059D-23, 0.6393D-23,
26000 # 0.2394D-22, 0.9253D-22, 0.3573D-21, 0.1364D-20, 0.5231D-20,
26001 # 0.2004D-19, 0.7677D-19, 0.2940D-18, 0.1127D-17, 0.4317D-17,
26002 # 0.1653D-16, 0.6336D-16, 0.2427D-15, 0.9296D-15, 0.3560D-14,
26003 # 0.1363D-13, 0.5218D-13, 0.1997D-12, 0.7637D-12, 0.2918D-11,
26004 # 0.1114D-10, 0.4242D-10, 0.1611D-09, 0.6094D-09, 0.2289D-08,
26005 # 0.8532D-08, 0.3144D-07, 0.1138D-06, 0.4020D-06, 0.1372D-05,
26006 # 0.4467D-05, 0.1366D-04, 0.3855D-04, 0.9854D-04, 0.2239D-03,
26007 # 0.4461D-03, 0.7699D-03, 0.1146D-02, 0.1469D-02, 0.1635D-02,
26008 # 0.1601D-02, 0.1404D-02, 0.1127D-02, 0.8472D-03, 0.6080D-03,
26009 # 0.4232D-03, 0.2892D-03, 0.1958D-03, 0.1319D-03, 0.8879D-04,
26010 # 0.5981D-04, 0.4033D-04, 0.2726D-04, 0.1845D-04, 0.1250D-04,
26011 # 0.8484D-05, 0.5763D-05, 0.3918D-05, 0.2664D-05, 0.1814D-05,
26012 # 0.1234D-05, 0.8403D-06, 0.5721D-06, 0.3897D-06, 0.2654D-06,
26013 # 0.1808D-06, 0.1232D-06, 0.8390D-07, 0.5715D-07, 0.3894D-07,
26014 # 0.2654D-07/
26015
26016 data (calcpts(j,27), j = 1,neta) /0.1454D-23, 0.4358D-23,
26017 # 0.1624D-22, 0.6296D-22, 0.2436D-21, 0.9289D-21, 0.3564D-20,
26018 # 0.1365D-19, 0.5230D-19, 0.2004D-18, 0.7676D-18, 0.2941D-17,
26019 # 0.1127D-16, 0.4316D-16, 0.1653D-15, 0.6333D-15, 0.2426D-14,
26020 # 0.9288D-14, 0.3555D-13, 0.1361D-12, 0.5203D-12, 0.1989D-11,
26021 # 0.7587D-11, 0.2891D-10, 0.1098D-09, 0.4155D-09, 0.1563D-08,
26022 # 0.5820D-08, 0.2145D-07, 0.7775D-07, 0.2750D-06, 0.9402D-06,
26023 # 0.3071D-05, 0.9431D-05, 0.2679D-04, 0.6917D-04, 0.1596D-03,
26024 # 0.3246D-03, 0.5772D-03, 0.8927D-03, 0.1199D-02, 0.1404D-02,
26025 # 0.1446D-02, 0.1327D-02, 0.1105D-02, 0.8527D-03, 0.6221D-03,
26026 # 0.4365D-03, 0.2991D-03, 0.2022D-03, 0.1357D-03, 0.9096D-04,
26027 # 0.6099D-04, 0.4098D-04, 0.2759D-04, 0.1862D-04, 0.1259D-04,
26028 # 0.8529D-05, 0.5785D-05, 0.3929D-05, 0.2670D-05, 0.1816D-05,
26029 # 0.1235D-05, 0.8409D-06, 0.5726D-06, 0.3899D-06, 0.2655D-06,
26030 # 0.1809D-06, 0.1232D-06, 0.8391D-07, 0.5717D-07, 0.3894D-07,
26031 # 0.2654D-07/
26032
26033 data (calcpts(j,28), j = 1,neta) /0.1025D-23, 0.2973D-23,
26034 # 0.1104D-22, 0.4286D-22, 0.1661D-21, 0.6328D-21, 0.2428D-20,
26035 # 0.9300D-20, 0.3564D-19, 0.1365D-18, 0.5229D-18, 0.2004D-17,
26036 # 0.7676D-17, 0.2940D-16, 0.1127D-15, 0.4316D-15, 0.1653D-14,
26037 # 0.6329D-14, 0.2422D-13, 0.9270D-13, 0.3545D-12, 0.1355D-11,
26038 # 0.5171D-11, 0.1970D-10, 0.7482D-10, 0.2832D-09, 0.1066D-08,
26039 # 0.3969D-08, 0.1464D-07, 0.5307D-07, 0.1878D-06, 0.6432D-06,
26040 # 0.2105D-05, 0.6485D-05, 0.1851D-04, 0.4812D-04, 0.1122D-03,
26041 # 0.2321D-03, 0.4224D-03, 0.6744D-03, 0.9441D-03, 0.1161D-02,
26042 # 0.1259D-02, 0.1215D-02, 0.1058D-02, 0.8457D-03, 0.6321D-03,
26043 # 0.4501D-03, 0.3105D-03, 0.2100D-03, 0.1406D-03, 0.9384D-04,
26044 # 0.6260D-04, 0.4185D-04, 0.2805D-04, 0.1886D-04, 0.1271D-04,
26045 # 0.8592D-05, 0.5817D-05, 0.3945D-05, 0.2677D-05, 0.1820D-05,
26046 # 0.1237D-05, 0.8418D-06, 0.5730D-06, 0.3900D-06, 0.2657D-06,
26047 # 0.1809D-06, 0.1232D-06, 0.8393D-07, 0.5717D-07, 0.3894D-07,
26048 # 0.2654D-07/
26049
26050 data (calcpts(j,29), j = 1,neta) /0.7223D-24, 0.2028D-23,
26051 # 0.7517D-23, 0.2915D-22, 0.1131D-21, 0.4311D-21, 0.1654D-20,
26052 # 0.6336D-20, 0.2427D-19, 0.9300D-19, 0.3562D-18, 0.1365D-17,
26053 # 0.5229D-17, 0.2004D-16, 0.7674D-16, 0.2940D-15, 0.1126D-14,
26054 # 0.4311D-14, 0.1650D-13, 0.6315D-13, 0.2415D-12, 0.9230D-12,
26055 # 0.3522D-11, 0.1342D-10, 0.5098D-10, 0.1931D-09, 0.7263D-09,
26056 # 0.2706D-08, 0.9980D-08, 0.3620D-07, 0.1282D-06, 0.4393D-06,
26057 # 0.1440D-05, 0.4445D-05, 0.1273D-04, 0.3327D-04, 0.7820D-04,
26058 # 0.1637D-03, 0.3032D-03, 0.4965D-03, 0.7194D-03, 0.9237D-03,
26059 # 0.1054D-02, 0.1073D-02, 0.9827D-03, 0.8201D-03, 0.6337D-03,
26060 # 0.4617D-03, 0.3225D-03, 0.2193D-03, 0.1468D-03, 0.9754D-04,
26061 # 0.6474D-04, 0.4302D-04, 0.2868D-04, 0.1919D-04, 0.1288D-04,
26062 # 0.8679D-05, 0.5861D-05, 0.3966D-05, 0.2689D-05, 0.1825D-05,
26063 # 0.1240D-05, 0.8432D-06, 0.5736D-06, 0.3904D-06, 0.2658D-06,
26064 # 0.1809D-06, 0.1232D-06, 0.8394D-07, 0.5718D-07, 0.3896D-07,
26065 # 0.2654D-07/
26066
26067 data (calcpts(j,30), j = 1,neta) /0.4949D-24, 0.1383D-23,
26068 # 0.5113D-23, 0.1989D-22, 0.7709D-22, 0.2936D-21, 0.1127D-20,
26069 # 0.4317D-20, 0.1654D-19, 0.6336D-19, 0.2427D-18, 0.9300D-18,
26070 # 0.3563D-17, 0.1365D-16, 0.5229D-16, 0.2002D-15, 0.7671D-15,
26071 # 0.2937D-14, 0.1124D-13, 0.4304D-13, 0.1646D-12, 0.6288D-12,
26072 # 0.2400D-11, 0.9144D-11, 0.3474D-10, 0.1315D-09, 0.4950D-09,
26073 # 0.1848D-08, 0.6803D-08, 0.2469D-07, 0.8746D-07, 0.2998D-06,
26074 # 0.9835D-06, 0.3042D-05, 0.8730D-05, 0.2289D-04, 0.5411D-04,
26075 # 0.1142D-03, 0.2144D-03, 0.3581D-03, 0.5332D-03, 0.7101D-03,
26076 # 0.8477D-03, 0.9087D-03, 0.8783D-03, 0.7709D-03, 0.6216D-03,
26077 # 0.4676D-03, 0.3336D-03, 0.2294D-03, 0.1541D-03, 0.1022D-03,
26078 # 0.6752D-04, 0.4460D-04, 0.2954D-04, 0.1965D-04, 0.1312D-04,
26079 # 0.8800D-05, 0.5924D-05, 0.3998D-05, 0.2705D-05, 0.1833D-05,
26080 # 0.1244D-05, 0.8451D-06, 0.5745D-06, 0.3909D-06, 0.2660D-06,
26081 # 0.1810D-06, 0.1233D-06, 0.8397D-07, 0.5719D-07, 0.3896D-07,
26082 # 0.2654D-07/
26083
26084 data (calcpts(j,31), j = 1,neta) /0.3417D-24, 0.9340D-24,
26085 # 0.3495D-23, 0.1351D-22, 0.5253D-22, 0.2000D-21, 0.7671D-21,
26086 # 0.2941D-20, 0.1127D-19, 0.4317D-19, 0.1653D-18, 0.6336D-18,
26087 # 0.2427D-17, 0.9299D-17, 0.3562D-16, 0.1365D-15, 0.5226D-15,
26088 # 0.2001D-14, 0.7661D-14, 0.2931D-13, 0.1121D-12, 0.4284D-12,
26089 # 0.1635D-11, 0.6229D-11, 0.2367D-10, 0.8960D-10, 0.3372D-09,
26090 # 0.1259D-08, 0.4636D-08, 0.1683D-07, 0.5964D-07, 0.2046D-06,
26091 # 0.6714D-06, 0.2079D-05, 0.5975D-05, 0.1570D-04, 0.3726D-04,
26092 # 0.7914D-04, 0.1500D-03, 0.2541D-03, 0.3864D-03, 0.5300D-03,
26093 # 0.6575D-03, 0.7388D-03, 0.7529D-03, 0.6975D-03, 0.5913D-03,
26094 # 0.4636D-03, 0.3410D-03, 0.2391D-03, 0.1622D-03, 0.1079D-03,
26095 # 0.7103D-04, 0.4665D-04, 0.3069D-04, 0.2026D-04, 0.1345D-04,
26096 # 0.8972D-05, 0.6011D-05, 0.4043D-05, 0.2727D-05, 0.1844D-05,
26097 # 0.1250D-05, 0.8478D-06, 0.5759D-06, 0.3915D-06, 0.2662D-06,
26098 # 0.1812D-06, 0.1234D-06, 0.8400D-07, 0.5721D-07, 0.3897D-07,
26099 # 0.2654D-07/
26100
26101 data (calcpts(j,32), j = 1,neta) /0.2423D-24, 0.6489D-24,
26102 # 0.2356D-23, 0.9243D-23, 0.3575D-22, 0.1364D-21, 0.5237D-21,
26103 # 0.2004D-20, 0.7677D-20, 0.2942D-19, 0.1127D-18, 0.4317D-18,
26104 # 0.1653D-17, 0.6336D-17, 0.2427D-16, 0.9295D-16, 0.3561D-15,
26105 # 0.1363D-14, 0.5218D-14, 0.1998D-13, 0.7638D-13, 0.2919D-12,
26106 # 0.1114D-11, 0.4245D-11, 0.1613D-10, 0.6105D-10, 0.2298D-09,
26107 # 0.8580D-09, 0.3159D-08, 0.1147D-07, 0.4065D-07, 0.1395D-06,
26108 # 0.4581D-06, 0.1419D-05, 0.4083D-05, 0.1075D-04, 0.2558D-04,
26109 # 0.5456D-04, 0.1041D-03, 0.1782D-03, 0.2751D-03, 0.3859D-03,
26110 # 0.4940D-03, 0.5780D-03, 0.6183D-03, 0.6045D-03, 0.5411D-03,
26111 # 0.4456D-03, 0.3414D-03, 0.2466D-03, 0.1704D-03, 0.1143D-03,
26112 # 0.7532D-04, 0.4927D-04, 0.3219D-04, 0.2110D-04, 0.1390D-04,
26113 # 0.9206D-05, 0.6132D-05, 0.4104D-05, 0.2759D-05, 0.1860D-05,
26114 # 0.1257D-05, 0.8517D-06, 0.5778D-06, 0.3924D-06, 0.2667D-06,
26115 # 0.1815D-06, 0.1235D-06, 0.8406D-07, 0.5723D-07, 0.3897D-07,
26116 # 0.2655D-07/
26117
26118 data (calcpts(j,33), j = 1,neta) /0.1613D-24, 0.4423D-24,
26119 # 0.1620D-23, 0.6268D-23, 0.2436D-22, 0.9282D-22, 0.3569D-21,
26120 # 0.1365D-20, 0.5231D-20, 0.2004D-19, 0.7675D-19, 0.2941D-18,
26121 # 0.1127D-17, 0.4316D-17, 0.1653D-16, 0.6333D-16, 0.2426D-15,
26122 # 0.9288D-15, 0.3557D-14, 0.1361D-13, 0.5204D-13, 0.1989D-12,
26123 # 0.7590D-12, 0.2892D-11, 0.1099D-10, 0.4159D-10, 0.1566D-09,
26124 # 0.5847D-09, 0.2155D-08, 0.7815D-08, 0.2770D-07, 0.9510D-07,
26125 # 0.3123D-06, 0.9679D-06, 0.2787D-05, 0.7349D-05, 0.1752D-04,
26126 # 0.3747D-04, 0.7182D-04, 0.1238D-03, 0.1935D-03, 0.2760D-03,
26127 # 0.3617D-03, 0.4372D-03, 0.4877D-03, 0.5012D-03, 0.4735D-03,
26128 # 0.4121D-03, 0.3317D-03, 0.2492D-03, 0.1771D-03, 0.1208D-03,
26129 # 0.8025D-04, 0.5250D-04, 0.3414D-04, 0.2220D-04, 0.1450D-04,
26130 # 0.9528D-05, 0.6300D-05, 0.4191D-05, 0.2802D-05, 0.1883D-05,
26131 # 0.1268D-05, 0.8571D-06, 0.5805D-06, 0.3938D-06, 0.2674D-06,
26132 # 0.1818D-06, 0.1236D-06, 0.8413D-07, 0.5727D-07, 0.3900D-07,
26133 # 0.2655D-07/
26134
26135 data (calcpts(j,34), j = 1,neta) /0.1105D-24, 0.3016D-24,
26136 # 0.1082D-23, 0.4271D-23, 0.1659D-22, 0.6324D-22, 0.2432D-21,
26137 # 0.9297D-21, 0.3563D-20, 0.1365D-19, 0.5229D-19, 0.2004D-18,
26138 # 0.7676D-18, 0.2940D-17, 0.1127D-16, 0.4316D-16, 0.1653D-15,
26139 # 0.6329D-15, 0.2423D-14, 0.9270D-14, 0.3546D-13, 0.1355D-12,
26140 # 0.5172D-12, 0.1970D-11, 0.7487D-11, 0.2834D-10, 0.1067D-09,
26141 # 0.3984D-09, 0.1470D-08, 0.5325D-08, 0.1889D-07, 0.6482D-07,
26142 # 0.2130D-06, 0.6602D-06, 0.1902D-05, 0.5018D-05, 0.1198D-04,
26143 # 0.2567D-04, 0.4937D-04, 0.8555D-04, 0.1347D-03, 0.1946D-03,
26144 # 0.2595D-03, 0.3218D-03, 0.3714D-03, 0.3984D-03, 0.3962D-03,
26145 # 0.3642D-03, 0.3095D-03, 0.2442D-03, 0.1805D-03, 0.1266D-03,
26146 # 0.8544D-04, 0.5625D-04, 0.3654D-04, 0.2363D-04, 0.1530D-04,
26147 # 0.9963D-05, 0.6531D-05, 0.4309D-05, 0.2863D-05, 0.1913D-05,
26148 # 0.1284D-05, 0.8649D-06, 0.5844D-06, 0.3957D-06, 0.2683D-06,
26149 # 0.1823D-06, 0.1239D-06, 0.8424D-07, 0.5732D-07, 0.3902D-07,
26150 # 0.2657D-07/
26151
26152 data (calcpts(j,35), j = 1,neta) /0.8031D-25, 0.2055D-24,
26153 # 0.7368D-24, 0.2908D-23, 0.1125D-22, 0.4308D-22, 0.1656D-21,
26154 # 0.6338D-21, 0.2427D-20, 0.9300D-20, 0.3562D-19, 0.1365D-18,
26155 # 0.5229D-18, 0.2004D-17, 0.7674D-17, 0.2940D-16, 0.1126D-15,
26156 # 0.4311D-15, 0.1650D-14, 0.6316D-14, 0.2415D-13, 0.9231D-13,
26157 # 0.3524D-12, 0.1342D-11, 0.5100D-11, 0.1931D-10, 0.7267D-10,
26158 # 0.2714D-09, 0.1002D-08, 0.3629D-08, 0.1287D-07, 0.4418D-07,
26159 # 0.1451D-06, 0.4500D-06, 0.1297D-05, 0.3424D-05, 0.8178D-05,
26160 # 0.1755D-04, 0.3384D-04, 0.5884D-04, 0.9319D-04, 0.1357D-03,
26161 # 0.1835D-03, 0.2317D-03, 0.2747D-03, 0.3053D-03, 0.3172D-03,
26162 # 0.3071D-03, 0.2759D-03, 0.2299D-03, 0.1784D-03, 0.1301D-03,
26163 # 0.9017D-04, 0.6026D-04, 0.3936D-04, 0.2540D-04, 0.1635D-04,
26164 # 0.1054D-04, 0.6843D-05, 0.4475D-05, 0.2949D-05, 0.1956D-05,
26165 # 0.1306D-05, 0.8760D-06, 0.5898D-06, 0.3984D-06, 0.2697D-06,
26166 # 0.1828D-06, 0.1242D-06, 0.8441D-07, 0.5740D-07, 0.3906D-07,
26167 # 0.2658D-07/
26168
26169 data (calcpts(j,36), j = 1,neta) /0.5171D-25, 0.1239D-24,
26170 # 0.5018D-24, 0.1958D-23, 0.7728D-23, 0.2945D-22, 0.1128D-21,
26171 # 0.4314D-21, 0.1654D-20, 0.6336D-20, 0.2427D-19, 0.9300D-19,
26172 # 0.3562D-18, 0.1365D-17, 0.5229D-17, 0.2003D-16, 0.7671D-16,
26173 # 0.2937D-15, 0.1124D-14, 0.4303D-14, 0.1646D-13, 0.6290D-13,
26174 # 0.2400D-12, 0.9146D-12, 0.3475D-11, 0.1316D-10, 0.4951D-10,
26175 # 0.1850D-09, 0.6825D-09, 0.2474D-08, 0.8768D-08, 0.3011D-07,
26176 # 0.9891D-07, 0.3068D-06, 0.8843D-06, 0.2336D-05, 0.5582D-05,
26177 # 0.1199D-04, 0.2314D-04, 0.4037D-04, 0.6416D-04, 0.9402D-04,
26178 # 0.1283D-03, 0.1643D-03, 0.1986D-03, 0.2268D-03, 0.2444D-03,
26179 # 0.2475D-03, 0.2343D-03, 0.2065D-03, 0.1694D-03, 0.1295D-03,
26180 # 0.9328D-04, 0.6401D-04, 0.4241D-04, 0.2750D-04, 0.1764D-04,
26181 # 0.1130D-04, 0.7261D-05, 0.4700D-05, 0.3066D-05, 0.2018D-05,
26182 # 0.1337D-05, 0.8915D-06, 0.5976D-06, 0.4023D-06, 0.2717D-06,
26183 # 0.1839D-06, 0.1246D-06, 0.8462D-07, 0.5751D-07, 0.3910D-07,
26184 # 0.2661D-07/
26185
26186 data (calcpts(j,37), j = 1,neta) /0.3531D-25, 0.9543D-25,
26187 # 0.3418D-24, 0.1334D-23, 0.5265D-23, 0.1999D-22, 0.7687D-22,
26188 # 0.2940D-21, 0.1127D-20, 0.4317D-20, 0.1654D-19, 0.6336D-19,
26189 # 0.2427D-18, 0.9299D-18, 0.3563D-17, 0.1365D-16, 0.5226D-16,
26190 # 0.2001D-15, 0.7660D-15, 0.2931D-14, 0.1121D-13, 0.4284D-13,
26191 # 0.1635D-12, 0.6231D-12, 0.2367D-11, 0.8963D-11, 0.3374D-10,
26192 # 0.1260D-09, 0.4650D-09, 0.1688D-08, 0.5974D-08, 0.2051D-07,
26193 # 0.6740D-07, 0.2090D-06, 0.6027D-06, 0.1592D-05, 0.3807D-05,
26194 # 0.8184D-05, 0.1581D-04, 0.2762D-04, 0.4402D-04, 0.6478D-04,
26195 # 0.8898D-04, 0.1151D-03, 0.1411D-03, 0.1646D-03, 0.1824D-03,
26196 # 0.1917D-03, 0.1901D-03, 0.1766D-03, 0.1532D-03, 0.1238D-03,
26197 # 0.9359D-04, 0.6668D-04, 0.4533D-04, 0.2980D-04, 0.1920D-04,
26198 # 0.1225D-04, 0.7807D-05, 0.5000D-05, 0.3227D-05, 0.2100D-05,
26199 # 0.1380D-05, 0.9132D-06, 0.6085D-06, 0.4077D-06, 0.2744D-06,
26200 # 0.1851D-06, 0.1253D-06, 0.8495D-07, 0.5766D-07, 0.3918D-07,
26201 # 0.2664D-07/
26202
26203 data (calcpts(j,38), j = 1,neta) /0.2861D-25, 0.5749D-25,
26204 # 0.2328D-24, 0.9369D-24, 0.3558D-23, 0.1362D-22, 0.5230D-22,
26205 # 0.2003D-21, 0.7674D-21, 0.2940D-20, 0.1127D-19, 0.4317D-19,
26206 # 0.1653D-18, 0.6336D-18, 0.2427D-17, 0.9296D-17, 0.3561D-16,
26207 # 0.1363D-15, 0.5220D-15, 0.1998D-14, 0.7639D-14, 0.2919D-13,
26208 # 0.1114D-12, 0.4245D-12, 0.1613D-11, 0.6107D-11, 0.2298D-10,
26209 # 0.8583D-10, 0.3168D-09, 0.1150D-08, 0.4071D-08, 0.1398D-07,
26210 # 0.4592D-07, 0.1424D-06, 0.4107D-06, 0.1085D-05, 0.2595D-05,
26211 # 0.5583D-05, 0.1080D-04, 0.1887D-04, 0.3015D-04, 0.4449D-04,
26212 # 0.6138D-04, 0.7995D-04, 0.9905D-04, 0.1172D-03, 0.1327D-03,
26213 # 0.1436D-03, 0.1479D-03, 0.1440D-03, 0.1318D-03, 0.1127D-03,
26214 # 0.9003D-04, 0.6732D-04, 0.4752D-04, 0.3204D-04, 0.2091D-04,
26215 # 0.1339D-04, 0.8498D-05, 0.5394D-05, 0.3443D-05, 0.2216D-05,
26216 # 0.1439D-05, 0.9437D-06, 0.6239D-06, 0.4154D-06, 0.2781D-06,
26217 # 0.1870D-06, 0.1262D-06, 0.8540D-07, 0.5789D-07, 0.3930D-07,
26218 # 0.2670D-07/
26219
26220 data (calcpts(j,39), j = 1,neta) /0.1952D-25, 0.4561D-25,
26221 # 0.1587D-24, 0.6522D-24, 0.2424D-23, 0.9308D-23, 0.3564D-22,
26222 # 0.1364D-21, 0.5231D-21, 0.2004D-20, 0.7676D-20, 0.2942D-19,
26223 # 0.1127D-18, 0.4316D-18, 0.1653D-17, 0.6333D-17, 0.2426D-16,
26224 # 0.9288D-16, 0.3557D-15, 0.1361D-14, 0.5205D-14, 0.1989D-13,
26225 # 0.7590D-13, 0.2892D-12, 0.1099D-11, 0.4160D-11, 0.1566D-10,
26226 # 0.5849D-10, 0.2158D-09, 0.7836D-09, 0.2774D-08, 0.9522D-08,
26227 # 0.3129D-07, 0.9705D-07, 0.2799D-06, 0.7395D-06, 0.1769D-05,
26228 # 0.3807D-05, 0.7365D-05, 0.1289D-04, 0.2061D-04, 0.3048D-04,
26229 # 0.4218D-04, 0.5520D-04, 0.6888D-04, 0.8240D-04, 0.9478D-04,
26230 # 0.1048D-03, 0.1112D-03, 0.1125D-03, 0.1080D-03, 0.9752D-04,
26231 # 0.8245D-04, 0.6516D-04, 0.4827D-04, 0.3378D-04, 0.2261D-04,
26232 # 0.1466D-04, 0.9330D-05, 0.5894D-05, 0.3724D-05, 0.2369D-05,
26233 # 0.1521D-05, 0.9858D-06, 0.6455D-06, 0.4263D-06, 0.2835D-06,
26234 # 0.1898D-06, 0.1276D-06, 0.8605D-07, 0.5822D-07, 0.3945D-07,
26235 # 0.2677D-07/
26236
26237 data (calcpts(j,40), j = 1,neta) /0.7491D-26, 0.2667D-25,
26238 # 0.1178D-24, 0.4443D-24, 0.1649D-23, 0.6341D-23, 0.2426D-22,
26239 # 0.9296D-22, 0.3564D-21, 0.1365D-20, 0.5229D-20, 0.2004D-19,
26240 # 0.7675D-19, 0.2940D-18, 0.1127D-17, 0.4316D-17, 0.1653D-16,
26241 # 0.6329D-16, 0.2423D-15, 0.9270D-15, 0.3546D-14, 0.1355D-13,
26242 # 0.5172D-13, 0.1971D-12, 0.7486D-12, 0.2834D-11, 0.1067D-10,
26243 # 0.3984D-10, 0.1471D-09, 0.5338D-09, 0.1893D-08, 0.6488D-08,
26244 # 0.2132D-07, 0.6614D-07, 0.1907D-06, 0.5040D-06, 0.1206D-05,
26245 # 0.2595D-05, 0.5022D-05, 0.8793D-05, 0.1407D-04, 0.2083D-04,
26246 # 0.2891D-04, 0.3795D-04, 0.4760D-04, 0.5738D-04, 0.6674D-04,
26247 # 0.7500D-04, 0.8136D-04, 0.8488D-04, 0.8471D-04, 0.8025D-04,
26248 # 0.7167D-04, 0.6000D-04, 0.4698D-04, 0.3450D-04, 0.2397D-04,
26249 # 0.1593D-04, 0.1026D-04, 0.6498D-05, 0.4085D-05, 0.2571D-05,
26250 # 0.1631D-05, 0.1044D-05, 0.6753D-06, 0.4414D-06, 0.2912D-06,
26251 # 0.1935D-06, 0.1295D-06, 0.8699D-07, 0.5866D-07, 0.3968D-07,
26252 # 0.2688D-07/
26253
26254 data (calcpts(j,41), j = 1,neta) /0.5321D-26, 0.2247D-25,
26255 # 0.7351D-25, 0.2945D-24, 0.1133D-23, 0.4324D-23, 0.1653D-22,
26256 # 0.6333D-22, 0.2427D-21, 0.9299D-21, 0.3563D-20, 0.1365D-19,
26257 # 0.5229D-19, 0.2004D-18, 0.7674D-18, 0.2940D-17, 0.1126D-16,
26258 # 0.4311D-16, 0.1650D-15, 0.6317D-15, 0.2415D-14, 0.9231D-14,
26259 # 0.3524D-13, 0.1342D-12, 0.5102D-12, 0.1931D-11, 0.7269D-11,
26260 # 0.2715D-10, 0.1002D-09, 0.3638D-09, 0.1290D-08, 0.4421D-08,
26261 # 0.1452D-07, 0.4506D-07, 0.1299D-06, 0.3434D-06, 0.8217D-06,
26262 # 0.1769D-05, 0.3423D-05, 0.5997D-05, 0.9603D-05, 0.1423D-04,
26263 # 0.1977D-04, 0.2602D-04, 0.3274D-04, 0.3969D-04, 0.4653D-04,
26264 # 0.5289D-04, 0.5832D-04, 0.6227D-04, 0.6408D-04, 0.6318D-04,
26265 # 0.5922D-04, 0.5238D-04, 0.4346D-04, 0.3375D-04, 0.2460D-04,
26266 # 0.1697D-04, 0.1121D-04, 0.7182D-05, 0.4523D-05, 0.2831D-05,
26267 # 0.1774D-05, 0.1122D-05, 0.7163D-06, 0.4626D-06, 0.3020D-06,
26268 # 0.1989D-06, 0.1321D-06, 0.8830D-07, 0.5931D-07, 0.3999D-07,
26269 # 0.2705D-07/
26270
26271 data (calcpts(j,42), j = 1,neta) /0.1749D-26, 0.1238D-25,
26272 # 0.4942D-25, 0.1999D-24, 0.7656D-24, 0.2949D-23, 0.1128D-22,
26273 # 0.4317D-22, 0.1655D-21, 0.6336D-21, 0.2427D-20, 0.9300D-20,
26274 # 0.3562D-19, 0.1365D-18, 0.5229D-18, 0.2003D-17, 0.7671D-17,
26275 # 0.2937D-16, 0.1124D-15, 0.4303D-15, 0.1646D-14, 0.6290D-14,
26276 # 0.2400D-13, 0.9146D-13, 0.3476D-12, 0.1315D-11, 0.4952D-11,
26277 # 0.1850D-10, 0.6827D-10, 0.2478D-09, 0.8790D-09, 0.3012D-08,
26278 # 0.9895D-08, 0.3069D-07, 0.8855D-07, 0.2340D-06, 0.5598D-06,
26279 # 0.1205D-05, 0.2334D-05, 0.4088D-05, 0.6549D-05, 0.9714D-05,
26280 # 0.1351D-04, 0.1780D-04, 0.2246D-04, 0.2732D-04, 0.3221D-04,
26281 # 0.3692D-04, 0.4119D-04, 0.4472D-04, 0.4710D-04, 0.4792D-04,
26282 # 0.4677D-04, 0.4344D-04, 0.3810D-04, 0.3135D-04, 0.2418D-04,
26283 # 0.1751D-04, 0.1200D-04, 0.7878D-05, 0.5021D-05, 0.3147D-05,
26284 # 0.1961D-05, 0.1225D-05, 0.7718D-06, 0.4916D-06, 0.3168D-06,
26285 # 0.2066D-06, 0.1359D-06, 0.9018D-07, 0.6024D-07, 0.4046D-07,
26286 # 0.2727D-07/
26287
26288 data (calcpts(j,43), j = 1,neta) /0.2703D-26, 0.8444D-26,
26289 # 0.3725D-25, 0.1405D-24, 0.5220D-24, 0.2006D-23, 0.7684D-23,
26290 # 0.2938D-22, 0.1127D-21, 0.4316D-21, 0.1654D-20, 0.6336D-20,
26291 # 0.2427D-19, 0.9298D-19, 0.3562D-18, 0.1365D-17, 0.5226D-17,
26292 # 0.2001D-16, 0.7661D-16, 0.2931D-15, 0.1121D-14, 0.4284D-14,
26293 # 0.1635D-13, 0.6231D-13, 0.2367D-12, 0.8963D-12, 0.3373D-11,
26294 # 0.1260D-10, 0.4650D-10, 0.1689D-09, 0.5988D-09, 0.2055D-08,
26295 # 0.6742D-08, 0.2091D-07, 0.6033D-07, 0.1595D-06, 0.3815D-06,
26296 # 0.8212D-06, 0.1590D-05, 0.2787D-05, 0.4466D-05, 0.6626D-05,
26297 # 0.9219D-05, 0.1217D-04, 0.1538D-04, 0.1875D-04, 0.2219D-04,
26298 # 0.2556D-04, 0.2877D-04, 0.3160D-04, 0.3387D-04, 0.3530D-04,
26299 # 0.3555D-04, 0.3439D-04, 0.3168D-04, 0.2759D-04, 0.2254D-04,
26300 # 0.1727D-04, 0.1243D-04, 0.8470D-05, 0.5531D-05, 0.3507D-05,
26301 # 0.2188D-05, 0.1358D-05, 0.8454D-06, 0.5310D-06, 0.3373D-06,
26302 # 0.2171D-06, 0.1412D-06, 0.9284D-07, 0.6156D-07, 0.4110D-07,
26303 # 0.2759D-07/
26304
26305 data (calcpts(j,44), j = 1,neta) /0.1634D-26, 0.5751D-26,
26306 # 0.2562D-25, 0.9281D-25, 0.3562D-24, 0.1366D-23, 0.5227D-23,
26307 # 0.2003D-22, 0.7679D-22, 0.2940D-21, 0.1127D-20, 0.4317D-20,
26308 # 0.1654D-19, 0.6336D-19, 0.2427D-18, 0.9295D-18, 0.3561D-17,
26309 # 0.1363D-16, 0.5220D-16, 0.1998D-15, 0.7640D-15, 0.2919D-14,
26310 # 0.1114D-13, 0.4245D-13, 0.1612D-12, 0.6107D-12, 0.2298D-11,
26311 # 0.8583D-11, 0.3168D-10, 0.1150D-09, 0.4080D-09, 0.1401D-08,
26312 # 0.4593D-08, 0.1425D-07, 0.4110D-07, 0.1086D-06, 0.2599D-06,
26313 # 0.5595D-06, 0.1084D-05, 0.1899D-05, 0.3044D-05, 0.4518D-05,
26314 # 0.6290D-05, 0.8306D-05, 0.1051D-04, 0.1283D-04, 0.1523D-04,
26315 # 0.1763D-04, 0.1994D-04, 0.2209D-04, 0.2397D-04, 0.2541D-04,
26316 # 0.2622D-04, 0.2621D-04, 0.2516D-04, 0.2301D-04, 0.1991D-04,
26317 # 0.1617D-04, 0.1231D-04, 0.8811D-05, 0.5972D-05, 0.3881D-05,
26318 # 0.2448D-05, 0.1521D-05, 0.9401D-06, 0.5832D-06, 0.3652D-06,
26319 # 0.2314D-06, 0.1486D-06, 0.9657D-07, 0.6342D-07, 0.4202D-07,
26320 # 0.2804D-07/
26321
26322 data (calcpts(j,45), j = 1,neta) /0.1110D-26, 0.4410D-26,
26323 # 0.1734D-25, 0.6595D-25, 0.2443D-24, 0.9300D-24, 0.3569D-23,
26324 # 0.1366D-22, 0.5229D-22, 0.2005D-21, 0.7677D-21, 0.2941D-20,
26325 # 0.1127D-19, 0.4317D-19, 0.1653D-18, 0.6333D-18, 0.2425D-17,
26326 # 0.9288D-17, 0.3557D-16, 0.1361D-15, 0.5205D-15, 0.1989D-14,
26327 # 0.7590D-14, 0.2892D-13, 0.1099D-12, 0.4160D-12, 0.1566D-11,
26328 # 0.5849D-11, 0.2159D-10, 0.7838D-10, 0.2780D-09, 0.9544D-09,
26329 # 0.3129D-08, 0.9708D-08, 0.2801D-07, 0.7400D-07, 0.1771D-06,
26330 # 0.3813D-06, 0.7383D-06, 0.1294D-05, 0.2075D-05, 0.3080D-05,
26331 # 0.4289D-05, 0.5666D-05, 0.7174D-05, 0.8773D-05, 0.1043D-04,
26332 # 0.1210D-04, 0.1375D-04, 0.1533D-04, 0.1677D-04, 0.1800D-04,
26333 # 0.1892D-04, 0.1935D-04, 0.1920D-04, 0.1831D-04, 0.1665D-04,
26334 # 0.1431D-04, 0.1157D-04, 0.8758D-05, 0.6236D-05, 0.4206D-05,
26335 # 0.2719D-05, 0.1709D-05, 0.1056D-05, 0.6505D-06, 0.4023D-06,
26336 # 0.2513D-06, 0.1588D-06, 0.1018D-06, 0.6605D-07, 0.4332D-07,
26337 # 0.2868D-07/
26338
26339 data (calcpts(j,46), j = 1,neta) /0.9015D-27, 0.2622D-26,
26340 # 0.1135D-25, 0.4299D-25, 0.1673D-24, 0.6300D-24, 0.2432D-23,
26341 # 0.9301D-23, 0.3562D-22, 0.1364D-21, 0.5229D-21, 0.2004D-20,
26342 # 0.7676D-20, 0.2940D-19, 0.1127D-18, 0.4316D-18, 0.1653D-17,
26343 # 0.6329D-17, 0.2423D-16, 0.9270D-16, 0.3546D-15, 0.1355D-14,
26344 # 0.5172D-14, 0.1971D-13, 0.7487D-13, 0.2834D-12, 0.1067D-11,
26345 # 0.3984D-11, 0.1471D-10, 0.5340D-10, 0.1893D-09, 0.6503D-09,
26346 # 0.2135D-08, 0.6613D-08, 0.1908D-07, 0.5042D-07, 0.1207D-06,
26347 # 0.2598D-06, 0.5031D-06, 0.8817D-06, 0.1414D-05, 0.2098D-05,
26348 # 0.2924D-05, 0.3864D-05, 0.4895D-05, 0.5991D-05, 0.7128D-05,
26349 # 0.8286D-05, 0.9442D-05, 0.1057D-04, 0.1164D-04, 0.1260D-04,
26350 # 0.1341D-04, 0.1397D-04, 0.1420D-04, 0.1400D-04, 0.1327D-04,
26351 # 0.1200D-04, 0.1027D-04, 0.8253D-05, 0.6219D-05, 0.4407D-05,
26352 # 0.2958D-05, 0.1904D-05, 0.1191D-05, 0.7338D-06, 0.4501D-06,
26353 # 0.2775D-06, 0.1728D-06, 0.1090D-06, 0.6971D-07, 0.4516D-07,
26354 # 0.2959D-07/
26355
26356 data (calcpts(j,47), j = 1,neta) /0.6257D-27, 0.1967D-26,
26357 # 0.7812D-26, 0.2892D-25, 0.1132D-24, 0.4352D-24, 0.1650D-23,
26358 # 0.6303D-23, 0.2431D-22, 0.9296D-22, 0.3559D-21, 0.1364D-20,
26359 # 0.5231D-20, 0.2004D-19, 0.7675D-19, 0.2940D-18, 0.1126D-17,
26360 # 0.4311D-17, 0.1650D-16, 0.6316D-16, 0.2415D-15, 0.9231D-15,
26361 # 0.3524D-14, 0.1342D-13, 0.5101D-13, 0.1930D-12, 0.7269D-12,
26362 # 0.2715D-11, 0.1002D-10, 0.3638D-10, 0.1290D-09, 0.4430D-09,
26363 # 0.1456D-08, 0.4506D-08, 0.1300D-07, 0.3435D-07, 0.8220D-07,
26364 # 0.1770D-06, 0.3428D-06, 0.6008D-06, 0.9632D-06, 0.1430D-05,
26365 # 0.1992D-05, 0.2634D-05, 0.3337D-05, 0.4088D-05, 0.4869D-05,
26366 # 0.5667D-05, 0.6470D-05, 0.7263D-05, 0.8031D-05, 0.8751D-05,
26367 # 0.9393D-05, 0.9915D-05, 0.1026D-04, 0.1037D-04, 0.1016D-04,
26368 # 0.9585D-05, 0.8626D-05, 0.7344D-05, 0.5877D-05, 0.4409D-05,
26369 # 0.3110D-05, 0.2079D-05, 0.1332D-05, 0.8301D-06, 0.5094D-06,
26370 # 0.3114D-06, 0.1912D-06, 0.1188D-06, 0.7476D-07, 0.4773D-07,
26371 # 0.3089D-07/
26372
26373 data (calcpts(j,48), j = 1,neta) /0.1929D-27, 0.1065D-26,
26374 # 0.5550D-26, 0.2037D-25, 0.7890D-25, 0.2965D-24, 0.1121D-23,
26375 # 0.4320D-23, 0.1657D-22, 0.6348D-22, 0.2428D-21, 0.9311D-21,
26376 # 0.3563D-20, 0.1364D-19, 0.5229D-19, 0.2003D-18, 0.7671D-18,
26377 # 0.2937D-17, 0.1124D-16, 0.4303D-16, 0.1646D-15, 0.6290D-15,
26378 # 0.2400D-14, 0.9146D-14, 0.3475D-13, 0.1316D-12, 0.4952D-12,
26379 # 0.1850D-11, 0.6827D-11, 0.2478D-10, 0.8790D-10, 0.3018D-09,
26380 # 0.9918D-09, 0.3071D-08, 0.8855D-08, 0.2340D-07, 0.5601D-07,
26381 # 0.1206D-06, 0.2335D-06, 0.4093D-06, 0.6563D-06, 0.9747D-06,
26382 # 0.1358D-05, 0.1796D-05, 0.2276D-05, 0.2789D-05, 0.3322D-05,
26383 # 0.3870D-05, 0.4424D-05, 0.4977D-05, 0.5518D-05, 0.6041D-05,
26384 # 0.6524D-05, 0.6949D-05, 0.7287D-05, 0.7499D-05, 0.7535D-05,
26385 # 0.7349D-05, 0.6900D-05, 0.6183D-05, 0.5241D-05, 0.4176D-05,
26386 # 0.3120D-05, 0.2192D-05, 0.1459D-05, 0.9318D-06, 0.5783D-06,
26387 # 0.3536D-06, 0.2154D-06, 0.1319D-06, 0.8168D-07, 0.5130D-07,
26388 # 0.3269D-07/
26389
26390 data (calcpts(j,49), j = 1,neta) /0.1342D-27, 0.7954D-27,
26391 # 0.3825D-26, 0.1374D-25, 0.5324D-25, 0.2004D-24, 0.7458D-24,
26392 # 0.2908D-23, 0.1111D-22, 0.4303D-22, 0.1656D-21, 0.6326D-21,
26393 # 0.2435D-20, 0.9320D-20, 0.3557D-19, 0.1364D-18, 0.5224D-18,
26394 # 0.2001D-17, 0.7657D-17, 0.2933D-16, 0.1121D-15, 0.4284D-15,
26395 # 0.1635D-14, 0.6231D-14, 0.2367D-13, 0.8962D-13, 0.3373D-12,
26396 # 0.1260D-11, 0.4650D-11, 0.1689D-10, 0.5988D-10, 0.2057D-09,
26397 # 0.6758D-09, 0.2094D-08, 0.6033D-08, 0.1595D-07, 0.3816D-07,
26398 # 0.8215D-07, 0.1592D-06, 0.2789D-06, 0.4472D-06, 0.6641D-06,
26399 # 0.9252D-06, 0.1224D-05, 0.1551D-05, 0.1901D-05, 0.2267D-05,
26400 # 0.2642D-05, 0.3023D-05, 0.3403D-05, 0.3783D-05, 0.4152D-05,
26401 # 0.4505D-05, 0.4829D-05, 0.5111D-05, 0.5328D-05, 0.5454D-05,
26402 # 0.5454D-05, 0.5297D-05, 0.4953D-05, 0.4421D-05, 0.3732D-05,
26403 # 0.2963D-05, 0.2205D-05, 0.1544D-05, 0.1024D-05, 0.6512D-06,
26404 # 0.4026D-06, 0.2453D-06, 0.1489D-06, 0.9093D-07, 0.5616D-07,
26405 # 0.3519D-07/
26406
26407 data (dlaeta(j), j = 1,neta) /
26408 # -6d0, -5.83333333d0, -5.66666667d0, -5.5d0, -5.33333333d0,
26409 # -5.16666667d0, -5d0, -4.83333333d0, -4.66666667d0, -4.5d0,
26410 # -4.33333333d0, -4.16666667d0, -4d0, -3.83333333d0,
26411 # -3.66666667d0, -3.5d0, -3.33333333d0, -3.16666667d0, -3d0,
26412 # -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
26413 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
26414 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
26415 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
26416 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
26417 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
26418 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
26419 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
26420 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
26421 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0, 5.16666667d0,
26422 # 5.33333333d0, 5.5d0, 5.66666667d0, 5.83333333d0, 6d0/
26423
26424 data (dlaxi(j), j = 1,nxi) /
26425 # -3d0, -2.83333333d0, -2.66666667d0, -2.5d0, -2.33333333d0,
26426 # -2.16666667d0, -2d0, -1.83333333d0, -1.66666667d0, -1.5d0,
26427 # -1.33333333d0, -1.16666667d0, -1d0, -0.83333333d0, -0.66666667d0,
26428 # -0.5d0, -0.33333333d0, -0.16666667d0, 0d0, 0.16666667d0,
26429 # 0.33333333d0, 0.5d0, 0.66666667d0, 0.83333333d0, 1d0,
26430 # 1.16666667d0, 1.33333333d0, 1.5d0, 1.66666667d0, 1.83333333d0,
26431 # 2d0, 2.16666667d0, 2.33333333d0, 2.5d0, 2.66666667d0,
26432 # 2.83333333d0, 3d0, 3.16666667d0, 3.33333333d0, 3.5d0,
26433 # 3.66666667d0, 3.83333333d0, 4d0, 4.16666667d0, 4.33333333d0,
26434 # 4.5d0, 4.66666667d0, 4.83333333d0, 5d0/
26435
26436 dleta = dlog10(eta)
26437 dlxi = dlog10(xi)
26438 if (dlxi .le. dlaxi(1)) dlxi = dlaxi(1)
26439 if (dlxi .ge. dlaxi(nxi)) dlxi = dlaxi(nxi)
26440 if (dleta .ge. dlaeta(neta)) dleta = dlaeta(neta)
26441 if (dleta .le. dlaeta(1)) dleta = dlaeta(1)
26442 call locate(dlaeta,neta, dleta, ieta)
26443 call locate(dlaxi, nxi, dlxi, ixi)
26444c interpolating between the appropriate points
26445 delxi = 1d0/6d0
26446 deleta = 1d0/6d0
26447c lagrange 3-pt.
26448 if (ixi .le. 2) ixi = 2
26449 if (ixi .ge. 48) ixi = 48
26450 if (ieta .le. 2) ieta = 2
26451 if (ieta .ge. 72) ieta = 72
26452 pxi = (dlxi - dlaxi(ixi))/delxi
26453 f(-1) = pxi*(pxi-1d0)/2d0*calcpts(ieta-1,ixi-1) +
26454 # (1d0 - pxi**2)*calcpts(ieta-1,ixi) +
26455 # pxi*(pxi+1d0)/2d0*calcpts(ieta-1,ixi+1)
26456 f(0) = pxi*(pxi-1d0)/2d0*calcpts(ieta,ixi-1) +
26457 # (1d0 - pxi**2)*calcpts(ieta,ixi) +
26458 # pxi*(pxi+1d0)/2d0*calcpts(ieta,ixi+1)
26459 f(1) = pxi*(pxi-1d0)/2d0*calcpts(ieta+1,ixi-1) +
26460 # (1d0 - pxi**2)*calcpts(ieta+1,ixi) +
26461 # pxi*(pxi+1d0)/2d0*calcpts(ieta+1,ixi+1)
26462 peta = (dleta - dlaeta(ieta))/deleta
26463 h1_LLq = peta*(peta-1d0)/2d0*f(-1) +
26464 # (1d0 - peta**2)*f(0) +
26465CMB # + peta*(peta+1d0)/2d0*f(1)
26466 # peta*(peta+1d0)/2d0*f(1)
26467 return
26468 end
26469
26470
26471CDECK ID>, QCUTIL.
26472
26473CDECK ID>, QNMACRO.
26474
26475C ==================================================
26476 SUBROUTINE QNMACRO(lun,name,isym,xx,yy,ee,np,text)
26477C ==================================================
26478
26479 implicit double precision (A-H,O-Z)
26480
26481 character*(*) name
26482 character*(*) text
26483 dimension xx(*), yy(*), ee(*)
26484 dimension luns(50)
26485
26486 data nluns,luns /0,50*0/
26487
26488 nn = max(np,0)
26489 lseen = 0
26490 do i = 1,nluns
26491 if(luns(i).eq.lun) lseen = 1
26492 enddo
26493
26494 if(lseen.eq.0) then
26495
26496 nluns = min(nluns+1,50)
26497 luns(nluns) = lun
26498
26499 write(lun,*) ' '
26500 write(lun,'(''*'',60(''-''))')
26501 write(lun,*) ' macro qnplot'
26502 write(lun,'(''*'',60(''-''))')
26503 write(lun,'(''* 1=opt 2=sym 3=xmin 4=xmax'',
26504 + '' 5=ymin 6=ymax 7=size 8=npt'')')
26505 write(lun,'(''*'',60(''-''))')
26506 write(lun,*) ' '
26507 write(lun,*) ' if [1].eq.h then'
26508 write(lun,'('' mess 1=opt 2=sym 3=xmin 4=xmax'',
26509 + '' 5=ymin 6=ymax 7=size 8=npt'')')
26510 write(lun,*) ' goto klaar'
26511 write(lun,*) ' elseif [1].eq.s then'
26512 write(lun,*) ' if [8].le.0 goto klaar'
26513 write(lun,*) ' elseif [8].eq.0 then'
26514 write(lun,*) ' goto klaar'
26515 write(lun,*) ' else'
26516 write(lun,*) ' null [3] [4] [5] [6]'
26517 write(lun,*) ' if [8].lt.0 goto klaar'
26518 write(lun,*) ' endif'
26519 write(lun,*) ' if [2].lt.20 then'
26520 write(lun,*) ' set dmod abs([2])'
26521 write(lun,*) ' if [2].gt.0 then'
26522 write(lun,*) ' graph [8] xx yy C'
26523 write(lun,*) ' endif'
26524 write(lun,*) ' if [2].lt.0 then'
26525 write(lun,*) ' sigma up=yy+ey'
26526 write(lun,*) ' sigma dn=yy-ey'
26527 write(lun,*) ' graph [8] xx up C'
26528 write(lun,*) ' graph [8] xx dn C'
26529 write(lun,*) ' endif'
26530 write(lun,*) ' else'
26531 write(lun,*) ' set dmod 1'
26532 write(lun,*) ' hplot/errors xx yy ex ey [8] [2] [7]'
26533 write(lun,*) ' endif'
26534 write(lun,*) ' '
26535 write(lun,*) ' klaar:'
26536 write(lun,*) ' '
26537 write(lun,*) ' return'
26538
26539 endif
26540
26541 if(nn.le.0) then
26542
26543 xmin = 0.
26544 xmax = 0.
26545 ymin = 0.
26546 ymax = 0.
26547
26548 else
26549
26550 xmin = xx(1)
26551 xmax = xx(1)
26552 ymin = yy(1)
26553 ymax = yy(1)
26554 do i = 2,nn
26555 xmin = min(xmin,xx(i))
26556 xmax = max(xmax,xx(i))
26557 ymin = min(ymin,yy(i))
26558 ymax = max(ymax,yy(i))
26559 enddo
26560
26561 dx = xmax-xmin
26562 xmin = xmin-0.1*dx
26563 xmax = xmax+0.1*dx
26564
26565 dy = ymax-ymin
26566 ymin = ymin-0.1*dy
26567 ymax = ymax+0.1*dy
26568
26569 endif
26570
26571 write(lun,*) ' '
26572 write(lun,'(''*'',60(''-''))')
26573 if(isym.lt.10) then
26574 write(lun,'('' macro '',A,'' 1=n 2='',I1,'' _'')') name,isym
26575 elseif(isym.lt.100) then
26576 write(lun,'('' macro '',A,'' 1=n 2='',I2,'' _'')') name,isym
26577 else
26578 write(lun,'('' macro '',A,'' 1=n 2='',I3,'' _'')') name,isym
26579 endif
26580 if(nn.lt.10) then
26581 write(lun,'('' 3='',E9.3,'' 4='',E9.3,
26582 + '' 5='',E9.3,'' 6='',E9.3,'' 7=0.28 8='',I1)')
26583 + xmin,xmax,ymin,ymax,nn
26584 elseif(nn.lt.100) then
26585 write(lun,'('' 3='',E9.3,'' 4='',E9.3,
26586 + '' 5='',E9.3,'' 6='',E9.3,'' 7=0.28 8='',I2)')
26587 + xmin,xmax,ymin,ymax,nn
26588 elseif(nn.lt.1000) then
26589 write(lun,'('' 3='',E9.3,'' 4='',E9.3,
26590 + '' 5='',E9.3,'' 6='',E9.3,'' 7=0.28 8='',I3)')
26591 + xmin,xmax,ymin,ymax,nn
26592 else
26593 write(lun,'('' 3='',E9.3,'' 4='',E9.3,
26594 + '' 5='',E9.3,'' 6='',E9.3,'' 7=0.28 8='',I4)')
26595 + xmin,xmax,ymin,ymax,nn
26596 endif
26597 write(lun,'(''*'',60(''-''))')
26598* write(lun,*) ' '
26599 write(lun,'(''* '',A)') text
26600
26601 if(nn.le.0) goto 500
26602
26603 write(lun,*) ' '
26604 if(nn.le.9) then
26605 write(lun,'('' ve/cr xx('',I1,'') r _'')') nn
26606 elseif(nn.le.99) then
26607 write(lun,'('' ve/cr xx('',I2,'') r _'')') nn
26608 elseif(nn.le.999) then
26609 write(lun,'('' ve/cr xx('',I3,'') r _'')') nn
26610 elseif(nn.le.9999) then
26611 write(lun,'('' ve/cr xx('',I4,'') r _'')') nn
26612 endif
26613 do i1 = 1,nn,6
26614 i2 = i1+5
26615 if(i2.lt.nn) then
26616 write(lun,'(6E12.4,'' _'')') (xx(i),i=i1,i2)
26617 else
26618 write(lun,'(6E12.4 )') (xx(i),i=i1,nn)
26619 endif
26620 enddo
26621
26622* write(lun,*) ' '
26623 if(nn.le.9) then
26624 write(lun,'('' ve/cr ex('',I1,'') r '',I1,
26625 + ''*0'')') nn,nn
26626 elseif(nn.le.99) then
26627 write(lun,'('' ve/cr ex('',I2,'') r '',I2,
26628 + ''*0'')') nn,nn
26629 elseif(nn.le.999) then
26630 write(lun,'('' ve/cr ex('',I3,'') r '',I3,
26631 + ''*0'')') nn,nn
26632 elseif(nn.le.9999) then
26633 write(lun,'('' ve/cr ex('',I4,'') r '',I4,
26634 + ''*0'')') nn,nn
26635 endif
26636
26637* write(lun,*) ' '
26638 if(nn.le.9) then
26639 write(lun,'('' ve/cr yy('',I1,'') r _'')') nn
26640 elseif(nn.le.99) then
26641 write(lun,'('' ve/cr yy('',I2,'') r _'')') nn
26642 elseif(nn.le.999) then
26643 write(lun,'('' ve/cr yy('',I3,'') r _'')') nn
26644 elseif(nn.le.9999) then
26645 write(lun,'('' ve/cr yy('',I4,'') r _'')') nn
26646 endif
26647 do i1 = 1,nn,6
26648 i2 = i1+5
26649 if(i2.lt.nn) then
26650 write(lun,'(6E12.4,'' _'')') (yy(i),i=i1,i2)
26651 else
26652 write(lun,'(6E12.4 )') (yy(i),i=i1,nn)
26653 endif
26654 enddo
26655
26656* write(lun,*) ' '
26657 if(nn.le.9) then
26658 write(lun,'('' ve/cr ey('',I1,'') r _'')') nn
26659 elseif(nn.le.99) then
26660 write(lun,'('' ve/cr ey('',I2,'') r _'')') nn
26661 elseif(nn.le.999) then
26662 write(lun,'('' ve/cr ey('',I3,'') r _'')') nn
26663 elseif(nn.le.9999) then
26664 write(lun,'('' ve/cr ey('',I4,'') r _'')') nn
26665 endif
26666 do i1 = 1,nn,6
26667 i2 = i1+5
26668 if(i2.lt.nn) then
26669 write(lun,'(6E12.4,'' _'')') (ee(i),i=i1,i2)
26670 else
26671 write(lun,'(6E12.4 )') (ee(i),i=i1,nn)
26672 endif
26673 enddo
26674
26675 500 continue
26676
26677 write(lun,*) ' '
26678 write(lun,*) ' exec qnplot [1] [2] [3] [4] [5] [6] [7] [8]'
26679 write(lun,*) ' '
26680 write(lun,*) 'return'
26681
26682
26683 return
26684 end
26685
26686CDECK ID>, QNSORT.
26687
26688C =================================
26689 SUBROUTINE QNSORT(ARRAY,NIN,NOUT)
26690C =================================
26691
26692C-- Interface routine to CERN library FLPSOR.
26693C-- Sorts NIN (< 5000) elements of ARRAY in ascending
26694C-- order into itself. Identical elements are removed
26695C-- so that NOUT might be < NIN. In this case the elements
26696C-- NOUT+1, ..., NIN are set to zero on output.
26697C-- Note: ARRAY is internally copied to the single precision
26698C-- array XXX which is copied back again to ARRAY on output.
26699C-- The double precision thus gets lost.
26700
26701 IMPLICIT DOUBLE PRECISION (A-H,O-Z)
26702
26703 REAL XXX
26704
26705 DIMENSION ARRAY(*)
26706 DIMENSION XXX(5000)
26707
26708 IF(NIN.LE.1) THEN
26709 NOUT = MAX(NIN,0)
26710 RETURN
26711 ENDIF
26712 IF(NIN.GT.5000) THEN
26713 IERR = 1
26714 GOTO 500
26715 ENDIF
26716
26717 DO I = 1,NIN
26718 XXX(I) = ARRAY(I)
26719 ENDDO
26720
26721 CALL FLPSOR_LHA(XXX,NIN)
26722
26723 NOUT = 1
26724 DO I = 2,NIN
26725 IF(XXX(I).GT.XXX(I-1)) THEN
26726 NOUT = NOUT + 1
26727 XXX(NOUT) = XXX(I)
26728 ENDIF
26729 ENDDO
26730
26731 DO I = 1,NOUT
26732 ARRAY(I) = XXX(I)
26733 ENDDO
26734
26735 DO I = NOUT+1,NIN
26736 ARRAY(I) = 0.
26737 ENDDO
26738
26739 RETURN
26740
26741 500 CONTINUE
26742
26743 WRITE(6,'(/'' ------------------------------------'')')
26744 WRITE(6,'( '' QCDNUM error in s/r QNSORT ---> STOP'')')
26745 WRITE(6,'( '' ------------------------------------'')')
26746 WRITE(6,'( '' Input ARRAY(1) :'',E12.5)') ARRAY(1)
26747 WRITE(6,'( '' NN :'',I12 )') NIN
26748 WRITE(6,'(/'' NN should be .le. 5000'')')
26749 STOP
26750
26751 END
26752
26753CDECK ID>, QNUCPY.
26754
26755C ========================
26756 SUBROUTINE QNUCPY(A,B,N)
26757C ========================
26758
26759 DOUBLE PRECISION A,B
26760 DIMENSION A(*),B(*)
26761
26762 DO 10 I=1,N
26763 B(I) = A(I)
26764 10 CONTINUE
26765
26766 RETURN
26767 END
26768
26769CDECK ID>, QNVFIL.
26770
26771C ========================
26772 SUBROUTINE QNVFIL(A,N,V)
26773C ========================
26774
26775 DOUBLE PRECISION A,V
26776 DIMENSION A(*)
26777
26778 DO 10 I=1,N
26779 A(I) = V
26780 10 CONTINUE
26781
26782 RETURN
26783 END
26784C
26785CDECK ID>, QNVNUL.
26786
26787C ======================
26788 SUBROUTINE QNVNUL(A,N)
26789C ======================
26790
26791 DOUBLE PRECISION A
26792 DIMENSION A(*)
26793
26794 DO 10 I=1,N
26795 A(I) = 0.
26796 10 CONTINUE
26797
26798 RETURN
26799 END
26800
26801CDECK ID>, QNINUL.
26802
26803C =======================
26804 SUBROUTINE QNINUL(IA,N)
26805C =======================
26806
26807 DIMENSION IA(*)
26808
26809 DO 10 I=1,N
26810 IA(I) = 0
26811 10 CONTINUE
26812
26813 RETURN
26814 END
26815
26816CDECK ID>, QNTRUE.
26817
26818C =======================
26819 SUBROUTINE QNTRUE(LA,N)
26820C =======================
26821
26822 LOGICAL LA
26823 DIMENSION LA(*)
26824
26825 DO 10 I=1,N
26826 LA(I) = .TRUE.
26827 10 CONTINUE
26828
26829 RETURN
26830 END
26831
26832CDECK ID>, QNFALS.
26833
26834C =======================
26835 SUBROUTINE QNFALS(LA,N)
26836C =======================
26837
26838 LOGICAL LA
26839 DIMENSION LA(*)
26840
26841 DO 10 I=1,N
26842 LA(I) = .FALSE.
26843 10 CONTINUE
26844
26845 RETURN
26846 END
26847
26848CDECK ID>, QNVMAX.
26849
26850C ====================================
26851 DOUBLE PRECISION FUNCTION QNVMAX(A,N)
26852C ====================================
26853 DOUBLE PRECISION A
26854 DIMENSION A(*)
26855
26856 QNVMAX = A(1)
26857 IF(N.LE.1) RETURN
26858 DO 10 I=2,N
26859 QNVMAX = MAX(A(I),QNVMAX)
26860 10 CONTINUE
26861
26862 RETURN
26863 END
26864
26865CDECK ID>, MXDFZE.
26866
26867C ====================
26868 FUNCTION MXDFZE(A,N)
26869C ====================
26870
26871 DOUBLE PRECISION A,V
26872 DIMENSION A(*)
26873
26874 IF(N.LE.1) THEN
26875 MXDFZE = 1
26876 ELSE
26877 V = A(1)
26878 DO 10 I=2,N
26879 V = MAX(A(I),V)
26880 10 CONTINUE
26881 DO 20 I=1,N
26882 IF(A(I).EQ.V) MXDFZE = I
26883 20 CONTINUE
26884 ENDIF
26885
26886 RETURN
26887 END
26888
26889CDECK ID>, CURRENT_TIME.
26890
26891C ===============================
26892 INTEGER FUNCTION CURRENT_TIME()
26893C ===============================
26894
26895 COMMON/QCSHIT/T1,T2
26896 CHARACTER*8 T1,T2
26897 INTEGER ITIME,D(2),T(2)
26898
26899 EQUIVALENCE (T1,D)
26900 EQUIVALENCE (T2,T)
26901
26902 CALL DATIMH_LHA(D,T)
26903 CALL CONV_TIME(T2,ITIME)
26904
26905 CURRENT_TIME = ITIME
26906 RETURN
26907 END
26908
26909CDECK ID>, ELAPSED_TIME.
26910
26911C =================================
26912 INTEGER FUNCTION ELAPSED_TIME(OT)
26913C =================================
26914
26915 EXTERNAL CURRENT_TIME
26916 INTEGER OT,CT,CURRENT_TIME,IHRO,IMINO,ISECO
26917 INTEGER IHRP,IMINP,ISECP,EHR,EMI,ESE
26918
26919 CT = CURRENT_TIME()
26920
26921 IHRO = OT/10000
26922 IMINO = (OT-(IHRO*10000))/100
26923 ISECO = (OT-(IHRO*10000)-(IMINO*100))
26924
26925 IHRP = CT/10000
26926 IMINP = (CT-(IHRP*10000))/100
26927 ISECP = (CT-(IHRP*10000)-(IMINP*100))
26928
26929 EHR = IHRP-IHRO
26930 IF (EHR.LT.0) EHR = EHR + 24
26931 EMI = IMINP - IMINO
26932 ESE = ISECP - ISECO
26933
26934 ELAPSED_TIME = 60*60*EHR + 60*EMI + ESE
26935 RETURN
26936 END
26937
26938CDECK ID>, CONV_TIME.
26939
26940C ================================
26941 SUBROUTINE CONV_TIME(TIME,ITIME)
26942C ================================
26943
26944 CHARACTER*8 TIME
26945 INTEGER ITIME,IHRS,IMINS,ISECS
26946
26947 CALL CONV_LHA(TIME(1:2),IHRS)
26948 CALL CONV_LHA(TIME(4:5),IMINS)
26949 CALL CONV_LHA(TIME(7:8),ISECS)
26950
26951 ITIME = 10000*IHRS+100*IMINS+ISECS
26952 RETURN
26953 END
26954
26955CDECK ID>, CONV.
26956
26957C ============================
26958 SUBROUTINE CONV_LHA(ICHAR,ITIME)
26959C ============================
26960C
26961 CHARACTER*2 ICHAR
26962 CHARACTER*1 IT(0:9)
26963 INTEGER ITIME,I,ITEN,IUNI
26964C
26965 DATA IT /'0','1','2','3','4','5','6','7','8','9' /
26966 ITEN = 0
26967 IUNI = 0
26968 DO I = 0,9
26969 IF (ICHAR(1:1).EQ.IT(I)) ITEN = I
26970 IF (ICHAR(2:2).EQ.IT(I)) IUNI = I
26971 ENDDO
26972 ITIME = 10*ITEN + IUNI
26973 RETURN
26974 END
26975C
26976