]>
Commit | Line | Data |
---|---|---|
0795afa3 | 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 |