--- /dev/null
+C...This file contains a complete listing of all PYTHIA
+C...commonblocks, and additionally some recommended other
+C...declarations. You may copy this to the top of your
+C...mina program and then eliminate unnecessary parts.
+C Jun 19 1998 P.Murat(CDF): add implicit for integers
+C Mar 18 1998 P.Murat: remove implicits, add explicit type definition
+c for all the variables
+C-----------------------------------------------------------------
+
+C...All real arithmetic in double precision.
+c IMPLICIT DOUBLE PRECISION(A-H, O-Z)
+c implicit integer (i-n)
+C...Three Pythia functions return integers, so need declaring.
+ INTEGER PYK,PYCHGE,PYCOMP
+C...Parameter statement to help give large particle numbers
+C...(left- and righthanded SUSY, excited fermions).
+ integer KSUSY1, KSUSY2, KEXCIT
+ PARAMETER (KSUSY1=1000000,KSUSY2=2000000,KEXCIT=4000000)
+
+C...Commonblocks.
+C...The event record.
+ COMMON/PYJETS/N,NPAD,K(4000,5),P(4000,5),V(4000,5)
+ integer N,NPAD,K
+ real*8 P,V
+C...Parameters.
+ COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
+ integer MSTU, MSTJ
+ real*8 PARU, PARJ
+C...Particle properties + some flavour parameters.
+ COMMON/PYDAT2/KCHG(500,4),PMAS(500,4),PARF(2000),VCKM(4,4)
+ integer KCHG
+ real*8 PMAS, PARF, VCKM
+C...Decay information.
+ COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
+ integer MDCY, MDME, KFDP
+ real*8 BRAT
+C...Particle names
+ COMMON/PYDAT4/CHAF(500,2)
+ CHARACTER CHAF*16
+C...Random number generator information.
+ COMMON/PYDATR/MRPY(6),RRPY(100)
+ integer MRPY
+ real*8 RRPY
+C...Selection of hard scattering subprocesses.
+ COMMON/PYSUBS/MSEL,MSELPD,MSUB(500),KFIN(2,-40:40),CKIN(200)
+ integer MSEL, MSELPD, MSUB, KFIN
+ real*8 CKIN
+C...Parameters.
+ COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
+ integer MSTP, MSTI
+ real*8 PARP, PARI
+C...Internal variables.
+ COMMON/PYINT1/MINT(400),VINT(400)
+ integer mint
+ real*8 vint
+C...Process information.
+ COMMON/PYINT2/ISET(500),KFPR(500,2),COEF(500,20),ICOL(40,4,2)
+ integer ISET, KFPR, ICOL
+ real*8 COEF
+C...Parton distributions and cross sections.
+ COMMON/PYINT3/XSFX(2,-40:40),ISIG(1000,3),SIGH(1000)
+ integer ISIG
+ real*8 XSFX, SIGH
+C...Resonance width and secondary decay treatment.
+ COMMON/PYINT4/MWID(500),WIDS(500,5)
+ integer MWID
+ real*8 WIDS
+C...Generation and cross section statistics.
+ COMMON/PYINT5/NGENPD,NGEN(0:500,3),XSEC(0:500,3)
+ integer NGENPD, NGEN
+ real*8 XSEC
+C...Process names.
+ COMMON/PYINT6/PROC(0:500)
+ CHARACTER PROC*28
+C...Total cross sections.
+ COMMON/PYINT7/SIGT(0:6,0:6,0:5)
+ real*8 SIGT
+C...Photon parton distributions: total and valence only.
+ COMMON/PYINT8/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6),
+ &XPDIR(-6:6)
+ real*8 XPVMD, XPANL, XPANH, XPBEH, XPDIR
+ COMMON/PYINT9/VXPVMD(-6:6),VXPANL(-6:6),VXPANH(-6:6),VXPDGM(-6:6)
+ real*8 VXPVMD, VXPANL, VXPANH, VXPDGM
+C...Setting up user-defined processes.
+ COMMON/PYUPPR/NUP,KUP(20,7),NFUP,IFUP(10,2),PUP(20,5),Q2UP(0:10)
+ integer NUP, KUP, NFUP, IFUP
+ real*8 PUP, Q2UP
+C...Supersymmetry parameters.
+ COMMON/PYMSSM/IMSS(0:99),RMSS(0:99)
+ integer IMSS
+ real*8 RMSS
+C...Supersymmetry mixing matrices.
+ COMMON/PYSSMT/ZMIX(4,4),UMIX(2,2),VMIX(2,2),SMZ(4),SMW(2),
+ &SFMIX(16,4)
+ real*8 ZMIX, UMIX, VMIX, SMZ, SMW, SFMIX
+C...Parameters for Gauss integration of supersymmetric widths.
+ COMMON/PYINTS/XXM(20)
+ real*8 XXM
+C...Histogram information.
+ COMMON/PYBINS/IHIST(4),INDX(1000),BIN(20000)
+ integer IHIST, INDX
+ real*8 BIN