Reading QA thresholds from external file II
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.3.1 / commons.f
CommitLineData
4e9e3152 1 BLOCK DATA LHAPDFSET
2c... additions for multiset use
3 include 'parmsetup.inc'
4 include 'pathsetup.inc'
5c 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
10c...
11c 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