C--include file for Black Hole generator
C--common block for the probabilities of SM particles
      DOUBLE PRECISION PQUARK,PLEPT,PNEUT,PGLUON,PGAMMA,PWBOSN,
     & PZBOSN,PHIGGS,PFERM(3),PBOSON(5)
      COMMON /BHPROB/PQUARK,PLEPT,PNEUT,PGLUON,PGAMMA,PWBOSN,
     & PZBOSN,PHIGGS,PFERM,PBOSON
C--common block for the main parameters
      INTEGER MSSDEF,NBODY,IBHPRN,MSSDEC
      DOUBLE PRECISION MPLNCK,MINMSS,MAXMSS,INTMPL
      LOGICAL TIMVAR,GTSCA,GRYBDY,KINCUT
C--BW mod 16/08/06: changed IPRINT to IBHPRN (conflict with HERWIG)
      COMMON /BHPARM/MPLNCK,MINMSS,MAXMSS,INTMPL,MSSDEF,NBODY,IBHPRN,
     &     MSSDEC,TIMVAR,GTSCA,GRYBDY,KINCUT
C--common block for decay of the black hole
      DOUBLE PRECISION RHFACT,BHMASS
      INTEGER TOTDIM
      COMMON /BLACKH/RHFACT,BHMASS,TOTDIM
C--BW mod 16/08/06: new common for version 1.003
      DOUBLE PRECISION THWMAX,RMMINM
      LOGICAL YRCSEC,RMBOIL
      COMMON /BH1003/THWMAX,RMMINM,RMBOIL,YRCSEC
      
