058c6a03d27e07cac58592fffc4b50e227b794a7
[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.2.2 / commons.f
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 C...Interface to PDFLIB.
24       COMMON/W50511/ NPTYPEPDFL,NGROUPPDFL,NSETPDFL,MODEPDFL,
25      >               NFLPDFL,LOPDFL,TMASPDFL
26       SAVE /W50511/
27       DOUBLE PRECISION TMASPDFL
28 C...Interface to PDFLIB.
29 *      COMMON/W50512/QCDL4,QCDL5
30 *      SAVE /W50512/
31 *      DOUBLE PRECISION QCDL4,QCDL5
32 C...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/
40 c... 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