HERWIG/jimmy.inc

   1
   2 *     Include file for JIMMY
   3
   4       DOUBLE PRECISION YGAMMA, JMZMIN, JMRAD, PTJIM
   5       DOUBLE PRECISION PHAD, JMU2, JMV2, SMALL, JMARRY
   6 c     JMARRY is the array storing gamma-p xsec at various z, &
   7 c       max weight for each z
   8       DOUBLE PRECISION TOTSCAT, NLOST
   9       INTEGER MAXMS, NPSIMP, MSFLAG, JMPTYP, JCMVAR, NPROC
  10       LOGICAL ANOMOFF
  11       PARAMETER( NPROC = 117 )
  12       PARAMETER( MAXMS  = 100  )  ! Maximum multiple scatters
  13       PARAMETER( NPSIMP = 16 )  ! No. of Simpson rule (YBJ)
  14 C                                 intervals (must be even)
  15       PARAMETER( SMALL  = 1.0D-20  )
  16       INTEGER JMOUT, JMBUG, FN_TYPE, NSCAT, JMUEO, MAXMSTRY
  17       PARAMETER(JMOUT = 6)
  18       COMMON / JMPARM /  PTJIM, YGAMMA, JMZMIN, JMRAD(264)
  19      &     ,PHAD, JMU2, JMV2, JMARRY( 6+MAXMS,0:NPSIMP )
  20      &     ,NLOST, TOTSCAT, ANOMOFF, JCMVAR, JMUEO
  21      &     ,JMPTYP(NPROC), JMBUG, FN_TYPE, MSFLAG, MAXMSTRY
  22       DOUBLE PRECISION JMPROC, JMVETO
  23       COMMON / JMEVNT/ JMPROC(NPROC)
  24      &,        JMVETO(2,13), NSCAT
  25
  26
  27
  28
  29