C     Declare PYTHIA variables. Good guys use IMPLICIT NONE!
      INTEGER MSTU, MSTJ, KCHG, MDCY, MDME, KFDP, MRLU
      INTEGER N, K, M, ISET, KFPR, ICOL, ISIG, NGEN, MSTP, MSTI
      INTEGER MSEL, MSUB, KFIN
      REAL    PARU, PARJ, PMAS, PARF, VCKM, BRAT
      REAL    RRLU, P, V, VINT, COEF, XSFX, SIGH, WIDP
      REAL    WIDE, WIDS, XSEC, PARP, PARI, CKIN, RKQM
      REAL    RKMZ, RKGZ, RKVQ, RKAQ, RKVL, RKAL, ANSS
      REAL    DONS, ANSF, DONF
      COMMON/LUDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
      SAVE /LUDAT1/
      COMMON/LUDAT2/KCHG(500,3),PMAS(500,4),PARF(2000),VCKM(4,4)
      SAVE /LUDAT2/
      COMMON/LUDAT3/MDCY(500,3),MDME(2000,2),BRAT(2000),KFDP(2000,5)
      SAVE /LUDAT3/
      COMMON/LUDAT4/CHAF(500)
      CHARACTER CHAF*8
      SAVE /LUDAT4/
      COMMON/LUDATR/MRLU(6),RRLU(100)
      SAVE /LUDATR/
      COMMON/LUJETS/N,K(4000,5),P(4000,5),V(4000,5)
      SAVE /LUJETS/
      COMMON/PYPARS/MSTP(200),PARP(200),MSTI(200),PARI(200)
      SAVE /PYPARS/
      COMMON/PYSUBS/MSEL,MSUB(200),KFIN(2,-40:40),CKIN(200)
      SAVE /PYSUBS/