Comment useless common in data block
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.2.2 / commons.f
CommitLineData
1200579f 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/
23C...Interface to PDFLIB.
24 COMMON/W50511/ NPTYPEPDFL,NGROUPPDFL,NSETPDFL,MODEPDFL,
25 > NFLPDFL,LOPDFL,TMASPDFL
26 SAVE /W50511/
27 DOUBLE PRECISION TMASPDFL
28C...Interface to PDFLIB.
a46cd336 29* COMMON/W50512/QCDL4,QCDL5
30* SAVE /W50512/
31* DOUBLE PRECISION QCDL4,QCDL5
1200579f 32C...Interface to PDFLIB.
33 COMMON/W50513/XMIN,XMAX,Q2MIN,Q2MAX
34 SAVE /W50513/
35 DOUBLE PRECISION XMIN,XMAX,Q2MIN,Q2MAX
36 COMMON/LHAPDFE/LHAEXTRP
37 SAVE /LHAPDFE/
38 COMMON/LHAPDFR/QCDLHA4, QCDLHA5, NFLLHA
39 SAVE /LHAPDFR/
40c... following 2 for earlier Pythia versions
41 COMMON/LUDAT1/MSTU5(200),PARU5(200),MSTJ5(200),PARJ5(200)
42 SAVE /LUDAT1/
43
44 data nsets/0/
45 DATA LHAPATH/'PDFsets'/ ! Default = PDFsets (below current dir)
46 DATA LHAPARM /20*' '/
47 DATA LHAVALUE /20*0.0D0/
48 DATA XMINNUM,XMAXNUM,Q2MINNUM,Q2MAXNUM,TOTNUM/5*0.D0/
49 DATA XMINNUP,XMAXNUP,Q2MINNUP,Q2MAXNUP,TOTNUP/5*0.D0/
50 END