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