ISAJET/isasusy/sshibf.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE SSHIBF
   3 C-----------------------------------------------------------------------
   4 C
   5 C     This subroutine calculates the decay widths for decays of the
   6 C     Higgs scalars present in the minimal SUSY model.
   7 C
   8 C     NOTE: Decays into sfermions are not yet incorporated.
   9 C
  10 C     Standard model parameters are hard wired in  SSMSSM. To get
  11 C     the 1987-8 values corresponding to the Gunion et al. papers
  12 C     (Intl. J. Mod. Phys. 2(4):1035; Nucl. Phys. B307:445) you must
  13 C     change
  14 C          ALFA3 = 0.12  --> 0.136
  15 C          AMW   = 80.0  --> 81.3
  16 C          AMZ   = 91.17 --> 92.7
  17 C
  18 C     2/9/91:
  19 C     I've modified the program slightly.  The ALPHA3 = 0.12 value
  20 C     above is the recent empirical value from LEP. Using the equation
  21 C     from page 220 in Barger and Phillips yields ALPHA3 = 0.136.
  22 C
  23 C     10/1/92:
  24 C     Now includes vertex corrections for triple Higgs couplings.
  25 C     (See Kunszt and Zwirner, CERN-TH.6150/91 for all but HH-HC-HC
  26 C     correction which is in our Higgs --> SUSY paper: Baer et al.
  27 C     FSU-HEP-920630 or UH-511-749-92)
  28 C
  29 C     Bisset's HIGSBF
  30 C-----------------------------------------------------------------------
  31 #if defined(CERNLIB_IMPNONE)
  32       IMPLICIT NONE
  33 #endif
  34 #include "isajet/sstype.inc"
  35 C
  36 C          Decays into fermions
  37       CALL SSHFF
  38 C          Loop decays into photons and gluons
  39       CALL SSHGM
  40       CALL SSHGL
  41 C          Decays into WW(*), ZZ(*)
  42       CALL SSHWW
  43 C          Decays into neutralinos and charginos
  44       CALL SSHNN
  45       CALL SSHCC
  46 C          Decays into other Higgs bosons
  47       CALL SSHHX
  48 C          Decays to sfermions
  49       CALL SSHSF
  50 C          Normalize branching ratios
  51 C
  52       CALL SSNORM(ISHL)
  53       CALL SSNORM(ISHH)
  54       CALL SSNORM(ISHA)
  55       CALL SSNORM(ISHC)
  56 C
  57       RETURN
  58       END