1 #include "isajet/pilot.h"
3 C-----------------------------------------------------------------------
5 C This subroutine calculates the decay widths for decays of the
6 C Higgs scalars present in the minimal SUSY model.
8 C NOTE: Decays into sfermions are not yet incorporated.
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
14 C ALFA3 = 0.12 --> 0.136
16 C AMZ = 91.17 --> 92.7
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.
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)
30 C-----------------------------------------------------------------------
31 #if defined(CERNLIB_IMPNONE)
34 #include "isajet/sstype.inc"
36 C Decays into fermions
38 C Loop decays into photons and gluons
41 C Decays into WW(*), ZZ(*)
43 C Decays into neutralinos and charginos
46 C Decays into other Higgs bosons
50 C Normalize branching ratios