]>
Commit | Line | Data |
---|---|---|
4e9e3152 | 1 | BLOCK DATA LHAPDFSET |
2 | c... additions for multiset use | |
3 | include 'parmsetup.inc' | |
4 | include 'pathsetup.inc' | |
5 | c character*172 LHANAMES(nmxset) | |
6 | integer LHASET, LHAMEMB | |
7 | common/LHAPDF/LHANAME, LHASET, LHAMEMB | |
8 | integer LHAMEMBERS(nmxset),LHANUMBERS(nmxset) | |
9 | common/LHASETS/LHANAMES,LHANUMBERS,LHAMEMBERS,nsets | |
10 | c... | |
11 | c CHARACTER*132 LHAPATH | |
12 | COMMON/LHAPDFC/LHAPATH | |
13 | SAVE /LHAPDFC/ | |
14 | CHARACTER*20 LHAPARM(20) | |
15 | DOUBLE PRECISION LHAVALUE(20) | |
16 | COMMON/LHACONTROL/LHAPARM,LHAVALUE | |
17 | SAVE/LHACONTROL/ | |
18 | DOUBLE PRECISION XMINNUM,XMAXNUM,Q2MINNUM,Q2MAXNUM,TOTNUM, | |
19 | > XMINNUP,XMAXNUP,Q2MINNUP,Q2MAXNUP,TOTNUP | |
20 | COMMON/LHAGLSTA/ XMINNUM,XMAXNUM,Q2MINNUM,Q2MAXNUM,TOTNUM, | |
21 | > XMINNUP,XMAXNUP,Q2MINNUP,Q2MAXNUP,TOTNUP | |
22 | SAVE/LHAGLSTA/ | |
23 | COMMON/LHAPDFE/LHAEXTRP | |
24 | SAVE /LHAPDFE/ | |
25 | COMMON/LHAPDFR/QCDLHA4, QCDLHA5, NFLLHA | |
26 | SAVE /LHAPDFR/ | |
27 | ||
28 | data nsets/0/ | |
29 | DATA LHAPATH/'PDFsets'/ ! Default = PDFsets (below current dir) | |
30 | DATA LHAPARM /20*' '/ | |
31 | DATA LHAVALUE /20*0.0D0/ | |
32 | DATA XMINNUM,XMAXNUM,Q2MINNUM,Q2MAXNUM,TOTNUM/5*0.D0/ | |
33 | DATA XMINNUP,XMAXNUP,Q2MINNUP,Q2MAXNUP,TOTNUP/5*0.D0/ | |
34 | END |