C--include file for Black Hole generator
      IMPLICIT NONE
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,IPRINT,MSSDEC
      DOUBLE PRECISION MPLNCK,MINMSS,MAXMSS,INTMPL
      LOGICAL TIMVAR,GTSCA,GRYBDY,KINCUT
      COMMON /BHPARM/MPLNCK,MINMSS,MAXMSS,INTMPL,MSSDEF,NBODY,IPRINT,
     &     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
