PYTHIA6/pythia6.inc

   1 C...This file contains a complete listing of all PYTHIA
   2 C...commonblocks, and additionally some recommended other
   3 C...declarations. You may copy this to the top of your
   4 C...mina program and then eliminate unnecessary parts.
   5 C  Jun 19 1998 P.Murat(CDF): add implicit for integers
   6 C  Mar 18 1998 P.Murat: remove implicits, add explicit type definition
   7 c                       for all the variables
   8 C-----------------------------------------------------------------
   9
  10 C...All real arithmetic in double precision.
  11 c      IMPLICIT DOUBLE  PRECISION(A-H, O-Z)
  12 c      implicit integer (i-n)
  13 C...Three Pythia functions return integers, so need declaring.
  14       INTEGER PYK,PYCHGE,PYCOMP
  15 C...Parameter statement to help give large particle numbers
  16 C...(left- and righthanded SUSY, excited fermions).
  17       integer  KSUSY1, KSUSY2, KEXCIT
  18       PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000)
  19
  20 C...Commonblocks.
  21 C...The event record.
  22       COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
  23       integer       N,NPAD,K
  24       real*8        P,V
  25 C...Parameters.
  26       COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
  27       integer       MSTU, MSTJ
  28       real*8        PARU, PARJ
  29 C...Particle properties + some flavour parameters.
  30       COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
  31       integer       KCHG
  32       real*8        PMAS, PARF, VCKM
  33 C...Decay information.
  34       COMMON/PYDAT3/MDCY(500,3),MDME(8000,2),BRAT(8000),KFDP(8000,5)
  35       integer       MDCY, MDME, KFDP
  36       real*8        BRAT
  37 C...Particle names
  38       COMMON/PYDAT4/CHAF(500,2)
  39       CHARACTER CHAF*16
  40 C...Random number generator information.
  41       COMMON/PYDATR/MRPY(6),RRPY(100)
  42       integer       MRPY
  43       real*8        RRPY
  44 C...Selection of hard scattering subprocesses.
  45       COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200)
  46       integer       MSEL, MSELPD, MSUB, KFIN
  47       real*8        CKIN
  48 C...Parameters.
  49       COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
  50       integer       MSTP, MSTI
  51       real*8        PARP, PARI
  52 C...Internal variables.
  53       COMMON/PYINT1/MINT(400),VINT(400)
  54       integer       mint
  55       real*8        vint
  56 C...Process information.
  57       COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
  58       integer       ISET, KFPR, ICOL
  59       real*8        COEF
  60 C...Parton distributions and cross sections.
  61       COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000)
  62       integer       ISIG
  63       real*8        XSFX, SIGH
  64 C...Resonance width and secondary decay treatment.
  65       COMMON/PYINT4/MWID(500),WIDS(500,5)
  66       integer       MWID
  67       real*8        WIDS
  68 C...Generation and cross section statistics.
  69       COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3)
  70       integer       NGENPD, NGEN
  71       real*8        XSEC
  72 C...Process names.
  73       COMMON/PYINT6/PROC(0:500)
  74       CHARACTER PROC*28
  75 C...Total cross sections.
  76       COMMON/PYINT7/SIGT(0:6,0:6,0:5)
  77       real*8        SIGT
  78 C...Photon parton distributions: total and valence only.
  79       COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6),
  80      &XPDIR(-6:6)
  81       real*8        XPVMD, XPANL, XPANH, XPBEH, XPDIR
  82       COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6)
  83       real*8        VXPVMD, VXPANL, VXPANH, VXPDGM
  84 C...Setting up user-defined processes.
  85       COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10)
  86       integer       NUP, KUP, NFUP, IFUP
  87       real*8        PUP, Q2UP
  88 C...Supersymmetry parameters.
  89       COMMON/PYMSSM/IMSS(0:99),RMSS(0:99)
  90       integer       IMSS
  91       real*8        RMSS
  92 C...Supersymmetry mixing matrices.
  93       COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2),
  94      &SFMIX(16,4),ZMIXI(4,4),UMIXI(2,2),VMIXI(2,2)
  95       real*8        ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX, ZMIXI,UMIXI,VMIXI
  96 C...Parameters for Gauss integration of supersymmetric widths.
  97       COMMON/PYINTS/XXM(20)
  98       real*8        XXM
  99 C...Histogram information.
 100       COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000)
 101       integer       IHIST, INDX
 102       real*8        BIN