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-----------------------------------------------------------------
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)
22 COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
26 COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
29 C...Particle properties + some flavour parameters.
30 COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
32 real*8 PMAS, PARF, VCKM
33 C...Decay information.
34 COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
35 integer MDCY, MDME, KFDP
38 COMMON/PYDAT4/CHAF(500,2)
40 C...Random number generator information.
41 COMMON/PYDATR/MRPY(6),RRPY(100)
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
49 COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
52 C...Internal variables.
53 COMMON/PYINT1/MINT(400),VINT(400)
56 C...Process information.
57 COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
58 integer ISET, KFPR, ICOL
60 C...Parton distributions and cross sections.
61 COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000)
64 C...Resonance width and secondary decay treatment.
65 COMMON/PYINT4/MWID(500),WIDS(500,5)
68 C...Generation and cross section statistics.
69 COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3)
73 COMMON/PYINT6/PROC(0:500)
75 C...Total cross sections.
76 COMMON/PYINT7/SIGT(0:6,0:6,0:5)
78 C...Photon parton distributions: total and valence only.
79 COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-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
88 C...Supersymmetry parameters.
89 COMMON/PYMSSM/IMSS(0:99),RMSS(0:99)
92 C...Supersymmetry mixing matrices.
93 COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2),
95 real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX
96 C...Parameters for Gauss integration of supersymmetric widths.
99 C...Histogram information.
100 COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000)