LHAPDF/lhapdf5.3.1/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       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