ltpth/HDECAY
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

initial

Browse Source 
Signed-off-by: Basil Bruhn <basil.bruhn@psi.ch>
This commit is contained in:
bruhn_b
2025-11-17 10:04:29 +01:00
parent 94bb6793c8
commit 4884213286
28 changed files with 131022 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

602
CHANGES Normal file
View File

@@ -0,0 +1,602 @@
This is a list of changes to hdecay.f since April 1997:
July 24 2025: - extension of the grids for the NLO quark mass effects
in H -> gg to 3 TeV (for BSM studies)
February 21 2025: - removed link to FeynHiggsFast due to compilation
problems (thanks to M. Vos)
April 04 2022: - bug fix (lines to be commented out) in calculation of
MSSM Higgs decays to bb for the genuine SUSY-QCD
corrections
(thanks to E. Bagnaschi)
July 23 2021: - bug fix in off-shell H -> hh* decays for the 2HDM
(thanks to L. Friedrich)
July 12 2021: - bug fix in hsqsq.f (thanks to E. Bagnaschi)
March 12 2021: Version 6.61:
- additional option to input the scale choice mu=kappa*M_H
for Higgs decays into quarks for studies of QCD scale
dependence
- additional option to input alpha_s(kappa*M_H),
m_s(kappa*M_H), m_c(kappa*M_H) and m_b(kappa*M_H) at the
scale kappa*M_H at which Higgs decays into quarks are
calculated
- refinements in the treatment of Higgs decays into quarks
(impact small)
- for details of the new input lines see comment lines at
beginning of hdecay.f
February 18 2021: Version 6.60:
- extension of MSSM Delta_b effects to elw. 2-loop
corrections proportional to alpha_1 and alpha_2
according to arXiv:1711.02555
- inclusion of top-stop-induced corrections to H -> hh
within the MSSM and hMSSM in the full EFT approach
according to arXiv:1810.10979
- additional option to input the running MSbar quark masses
m_s(M_H), m_c(M_H) and m_b(M_H) instead of the default
input m_s(2 GeV), mc(3 GeV), m_b(m_b) (only for SM!)
April 3 2020: Version 6.53:
- modification of SUSY-QCD corrections to h/H/A -> bb for
proper Delta_b terms
October 1 2018: - removal of incomplete NNLO mass terms in scalar Higgs
decays into massive quarks (thanks to W. Kotlarski)
May 7 2018: - instability in scalar 2-point functions removed
January 12 2018: Version 6.52:
- extension of Delta_b terms by A_b at NNLO implemented
- extension to Delta_s terms at NNLO implemented
- corrections of inconsistencies in the interface for
the 2HDM
- small refinements in MSSM Higgs decays into gluons
October 11 2016: Version 6.511:
- typos corrected in the off-shell decays H -> AZ*,
A -> hZ* (thanks to J. Romao)
(numerical impact below thresholds in MSSM for these decays)
January 13 2016: Version 6.51:
- bug fixes of SLHA interface
- removal of superfluous flag NNLO(M) from input file
December 1 2015: - Version 6.50: Input for bottom and charm masses
changed to the MSbar masses mb(mb) and mc(3 GeV). The
impact on the partial decay widths and branching
ratios is far below 1%. (The charm and bottom pole
masses are calculated internally.)
November 27 2015: - Version 6.43: Flag for exclusion of elw. corrections
for SM Higgs (and for COUPVAR = 1) decays included
July 27 2015: - Initialization of variables for H -> gg, gamma gamma
completed (thanks to M. Sampaio)
June 15 2015: - Instability for mass degenerate neutralinos removed
(thanks to H. Prosper)
June 13 2015: - Bug in interpolation for H -> gg corrected causing stability
problems for Higgs masses beyond 1 TeV
(thanks to M. Rodriguez-Vazquez)
April 10 2015: - Version 6.41 -> 6.42: removing an instability for the
hMSSM at low tan(beta) values (thanks to N. Rompotis)
January 5 2015: - Version 6.40 -> 6.41: addition of radiative
corrections to Higgs self-interactions within the hMSSM?
December 24 2014: - Version 6.31 -> 6.40: addition of hMSSM? to the MSSM
part (see description at top of fortran file)
- implementation of rescaled couplings for the SM4
December 15 2014: - Version 6.30 -> 6.31: stabilization of two-loop
corrections to Delta_b terms
(thanks to F. Frensch and S. Heinemeyer)
December 10 2014: - Version 6.20 -> 6.30: corrections of instabilities
in the MSSM Higgs self-interactions
- correction of inconsistent scheme choices in SLHA
input with implementation of h/H/A -> bb
(thanks to S. Heinemeyer)
November 9 2014: - Version 6.12 -> 6.20: extension to full NLO elw.
corrections for SM Higgs decays into fermion pairs
October 23 2014: - Version 6.11 -> 6.12: inaccuracy corrected for
SUSY-QCD corrections to h/H/A -> bb within the MSSM.
Numerical impact sizeable for scenarios with large
Delta_b corrections.
July 31 2014: - Version 6.10 -> 6.11: removal of instabilities for 2HDM
runs. No effect on results (thanks to Travis Martin)
January 17 2014: - update of HDECAY: Version 6.00 -> 6.10
- extension of 2HDM to lambda input
- signs in Delta_tau/mu corrected, elw. corrections
extended
- elw. corrections to Delta_b/s added
December 16 2013: - Typo in calculation of top width for the 2HDM case
corrected. (thanks to R. Santos)
- Improvement of Delta_b corrections. Numerical impact
small.
December 9 2013: - Syntax corrected in HDECAY output. No effect.
December 6 2013: - Small typos in charged Higgs decays corrected.
Numerical impact small.
November 27 2013: - small bug in charged Higgs decays for the 2HDM
corrected. Numerical impact small.
(thanks to J. Rathsman)
November 24 2013: - Major update of HDECAY: Version 5.11 -> 6.00
- Extension to general 2HDM:
added flag 2HDM and the 2HDM input parameters to
input file
added many additional 2HDM decay modes including
off-shell contributions
- several typos corrected in the off-shell decays
H -> AZ*, H -> H+W*, A -> hZ*, H+ -> t*b and H -> t*t
(numerical impact below thresholds in MSSM)
- added MSSM charged Higgs decays H+ -> cd, ts, td
(including off-shell top quark contributions)
- modified the interpolation between threshold and
large charged Higgs range (running mass effects,
Delta_b/s corrections)
- implementation of full CKM mixings in charged Higgs
and top decays with extended input file
September 4 2013: - Typo corrected in H -> squark squark decays.
Numerical impact small.
August 22 2013: - Typo corrected in off-shell decays H -> hh. No
numerical impact.
August 2 2013: - Typo corrected in SUSY-QCD corrections to Higgs -> gg
within the MSSM. Numerical effect negligible.
May 23 2013: - Version 5.11: improvement of calculating input parameters
for subroutine SUBH1 by resumming SUSY-QCD effects (small
numerical impact)
April 2 2013: - SLHA interface extended to cover the case of vanishing
SUSY scale in SLHA input file
March 8 2013: - bug corrected in link to FeynHiggsFast
(thanks to D. Chowdhury)
February 27 2013: - bug corrected in H -> Z gamma for different top and
charm coupling factors
February 21 2013: - Version 5.10: Implemented the Delta_mu corrections to
the muon Yukawa couplings within the MSSM
- sneutrino masses of the first two generations are
properly split from those of the third generation
February 11 2013: - Version 5.09: 2-loop QCD corrections to top decay width
added
February 8 2013: - Version 5.08: Even further refinements of the treatment
of scaling factors of the Higgs couplings in the
NNLO QCD corrections to Higgs boson decays into quarks
January 17 2013: - Version 5.07: Further refinements of the treatment of
scaling factors of the Higgs couplings in the NNLO QCD
corrections to Higgs boson decays into quarks
December 3 2012: - Version 5.06: Treatments of novel point-like
couplings for H -> gg corrected for the case ELWK = 1
November 12 2012: - Version 5.05: Charged Higgs decay into tau nu
corrected (thanks to S. Lehti)
November 9 2012: - Version 5.04: Treatment of novel point-like couplings
for H -> Z gamma corrected
- sign mistake in pseudoscalar Higgs couplings to
charginos and neutralinos corrected (thanks to G.
Belanger and A. Pukhov)
November 7 2012: - Version 5.03: Treatments of novel point-like couplings for
H -> gg, gamma gamma corrected
November 5 2012: - Version 5.02: Bug in statement function DHGGQCD2
corrected. Numerical effect for a pointlike Hgg coupling
negligible.
November 2 2012: - Version 5.01: Bug in implemention of SLHA interface
corrected (thanks to G. Belanger and A. Pukhov)
October 31 2012: - Bug in feynhiggs.f corrected (not our fault)
October 16 2012: - Major update of HDECAY: Version 4.45 -> 5.00
- Added electroweak corrections to H -> gg in the SM4
for m_t' = 500 GeV, m_b' = 450 GeV, m_nu'=375 GeV,
m_l' = 450 GeV in addition to the previous scenario.
Added a flag for the choice of the scenario.
- Corrected a flag in the SLHA output for the light scalar h
- Implemented NLO quark mass effects to H -> gg within
the SM
- Implemented charm quark loops in H -> gg
- Implemented scaling factors for the Higgs couplings to
fermions and gauge bosons as well as point-like
couplings to gluons, photon and Z+photon along with an
extension of the input file (see comment card). The
rescaling can be switched on and off by the flag COUPVAR.
The treatment of elw. corrections can be controlled
by the flag ELWK.
- Implemented the Delta_tau corrections to the tau
Yukawa couplings within the MSSM
March 13 2012: - Update of HDECAY: Version 4.44 -> 4.45
- Improvement of the approximate NLO elw. corrections to
H -> gamma gamma within the SM4
February 27 2012: - Update of HDECAY: Version 4.43 -> 4.44
- Bug corrected in subroutine RUNM_HDEC for SM4 Higgs
bosons which affected the running masses for M_b' >
M_t'. (thanks to A. Mueck)
November 14 2011: - Update of HDECAY: Version 4.42 -> 4.43
- inclusion of block VCKMIN in SLHA input/output
according to SLHA2
November 11 2011: - Update of HDECAY: Version 4.41 -> 4.42
- corrections in SLHA input
(thanks to A. Pukhov)
November 10 2011: - Update of HDECAY: Version 4.40 -> 4.41
- inclusion of top decays in SLHA output
- inclusion of new blocks in SLHA input according to
SLHA2
- inclusion of approximate NLO elw. corrections to
H -> gamma gamma in the SM4
- small update of elw. corrections to H -> gg in the SM4
- small corrections in SLHA input and output
(thanks to G. Belanger)
October 11 2011: - Update of HDECAY: Version 4.31 -> 4.40
- inclusion of approximate NLO and NNLO elw. and
elw.+QCD corrections to H -> ff, WW, ZZ in the SM4
August 29 2011: - Update of HDECAY: Version 4.30 -> 4.31
- inclusion of refinements in the QCD corrections of top
decays
August 26 2011: - Update of HDECAY: Version 4.20 -> 4.30
- inclusion of running bottom Yukawa coupling effects
and finite bottom mass effects in top decays. The
running bottom Yukawa coupling effects are sizeable,
the finite bottom mass effects small.
August 18 2011: - Update of HDECAY: Version 4.11 -> 4.20
- small inconsistencies corrected in SLHA output (thanks
to M. Hauru)
- Delta_b corrections added to t -> bH+ decays
August 17 2011: - Update of HDECAY: Version 4.10 -> 4.11
- Bug corrected in new Delta_s corrections
August 16 2011: - Update of HDECAY: Version 4.01 -> 4.10
- Inclusion of Delta_s corrections to strange Yukawa
couplings within the MSSM
- Added Output of top quark branching ratios and total
width in file br.top within the MSSM.
- Added electroweak corrections to H -> gg in the SM4
for m_t' = m_b' + 50*(1+1/5*log(M_H/M_ref)) GeV with
M_ref=115 GeV and m_b'=m_l'=m_nu'=600 GeV using the
grid of the paper
%\cite{Passarino:2011kv}
\bibitem{Passarino:2011kv}
G.~Passarino, C.~Sturm and S.~Uccirati,
%``Complete Electroweak Corrections to Higgs production in a Standard
%Model
%with four generations at the LHC,''
arXiv:1108.2025 [hep-ph].
%%CITATION = ARXIV:1108.2025;%%
June 20 2011: - Update of HDECAY: Version 4.00 -> 4.01
- Adjustment of the renormalization of A_t in the NNLO
SUSY-elw. corrections to Delta_b for consistency with the
input parameter
- Addition of (tiny) mass effects to H -> qq at NNLO QCD
June 4 2011: - Update of HDECAY: Version 3.80 -> 4.00
- Inclusion of a SM 4th generation; output file br.sm3
added for decays into 4th generation fermions
- Inclusion of dominant elw. corrections to H -> WW,ZZ in
the fermiophobic and 4th generation SM
- Added 4-loop QCD corrections to H -> gg decays
- Added 3-loop QCD corrections to A -> gg decay
- Implementation of the NNLO running of alpha_s for
consistency with HO corrections beyond NLO. The input
value of alpha_s(M_Z) is now the value for the NNLO
alpha_s.
May 27 2011: - Update of HDECAY: Version 3.71 -> 3.80
- Several modifications of write and read statements to
make them compatile with the gfortran compiler
(thanks to N. Mahmoudi).
- Inclusion of double off-shell contributions of MSSM Higgs
decays into WW and ZZ above threshold
- Defining the MSbar strange quark mass at the scale 2 GeV
instead of 1 GeV as input
- Added 4-loop QCD corrections to H -> qq (q.ne.t) decays
May 13 2011: - Several corrections to allow for negative gluino masses
April 23 2011: - Update of HDECAY: Version 3.60 -> 3.70
- Implementation of fermiophobic Higgs model with SM
Higgs couplings to gauge and Higgs bosons
April 14 2011: - Update of HDECAY: Version 3.53 -> 3.60
- Implementation of SUSY-QCD corrections to Higgs decays
into squarks
- Implementation of NLO-improved squark sector (SUSY-QCD)
- Inclusion of QCD corrections to the top width
- Inclusion of subleading terms in the two-loop SUSY-QCD
corrections to the MSSM bottom Yukawa couplings related
to the stop mixing (thanks to L. Mihaila for comparison)
- Extension of elw. corrections to H -> gamma gamma to
M_H = 1 TeV (thanks to G. Passarino et al.)
- Adjustments of SLHA interface
November 5 2010: - Corrections of the interface to the SLHA (thanks to
M. Warsinski)
June 16 2010: - Changes to declarations of complex functions and reading
the SLHA (thanks to N. Mahmoudi).
June 8 2010: - Reordering variables in Common block DAVID.
May 18 2010: - Missing lines in subroutine SFERMION_HDEC added to define
all variables in the common block SQNLO_HDEC (thanks to J.
Zurita).
April 7 2010: - Update of HDECAY: Version 3.52 -> 3.53
- NNLO QCD corrections to H -> gg implemented according
to Chetyrkin et al., PRL79 (1997) 353
- Electroweak corrections to H -> gamma gamma implemented up
to MH=170 GeV (thanks to G. Passarino et al.).
Please, cite the following papers for these corrections:
%\cite{Passarino:2007fp}
\bibitem{Passarino:2007fp}
G.~Passarino, C.~Sturm and S.~Uccirati,
%``Complete Two-Loop Corrections to H -> gamma gamma,''
Phys.\ Lett.\ B {\bf 655} (2007) 298
[arXiv:0707.1401 [hep-ph]].
%%CITATION = PHLTA,B655,298;%%
%\cite{Actis:2008ts}
\bibitem{Actis:2008ts}
S.~Actis, G.~Passarino, C.~Sturm and S.~Uccirati,
%``NNLO Computational Techniques: the Cases H -> gamma gamma and H ->
%g g,''
Nucl.\ Phys.\ B {\bf 811} (2009) 182
[arXiv:0809.3667 [hep-ph]].
%%CITATION = NUPHA,B811,182;%%
April 1 2010: - Update of HDECAY: Version 3.51 -> 3.52
Electroweak corrections to H -> gg implemented in
factorized form (thanks to G. Passarino et al.).
Please, cite the following papers for these corrections:
%\cite{Actis:2008ts}
\bibitem{Actis:2008ts}
S.~Actis, G.~Passarino, C.~Sturm and S.~Uccirati,
%``NNLO Computational Techniques: the Cases H -> gamma gamma and H ->
%g g,''
Nucl.\ Phys.\ B {\bf 811} (2009) 182
[arXiv:0809.3667 [hep-ph]].
%%CITATION = NUPHA,B811,182;%%
%\cite{Actis:2008ug}
\bibitem{Actis:2008ug}
S.~Actis, G.~Passarino, C.~Sturm and S.~Uccirati,
%``NLO Electroweak Corrections to Higgs Boson Production at Hadron
%Colliders,''
Phys.\ Lett.\ B {\bf 670} (2008) 12
[arXiv:0809.1301 [hep-ph]].
%\cite{Actis:2008uh}
\bibitem{Actis:2008uh}
S.~Actis, G.~Passarino, C.~Sturm and S.~Uccirati,
%``Two-Loop Threshold Singularities, Unstable Particles and Complex
%Masses,''
Phys.\ Lett.\ B {\bf 669} (2008) 62
[arXiv:0809.1302 [hep-ph]].
%%CITATION = PHLTA,B669,62;%%
July 8 2009: - Update of HDECAY: Version 3.5 -> 3.51
Further refinements included in off-shell decays
H -> W*W*, Z*Z*. Now agreement within 1% with the elw.
corrected results of A. Bredenstein et al.,
PRD74 (2006) 013004 and JHEP 0702 (2007) 080.
(thanks to A. Bredenstein for providing numbers for
comparison)
Please, cite the following papers for these corrections:
%\cite{Bredenstein:2006rh}
\bibitem{Bredenstein:2006rh}
A.~Bredenstein, A.~Denner, S.~Dittmaier and M.~M.~Weber,
%``Precise predictions for the Higgs-boson decay H ---> WW/ZZ ---> 4
eptons,''
Phys.\ Rev.\ D {\bf 74} (2006) 013004
[hep-ph/0604011].
%%CITATION = HEP-PH/0604011;%%
%\cite{Bredenstein:2006ha}
\bibitem{Bredenstein:2006ha}
A.~Bredenstein, A.~Denner, S.~Dittmaier and M.~M.~Weber,
%``Radiative corrections to the semileptonic and hadronic Higgs-boson
ecays H ---> W W / Z Z ---> 4 fermions,''
JHEP {\bf 0702} (2007) 080
[hep-ph/0611234].
%%CITATION = HEP-PH/0611234;%%
June 25 2009: - Update of HDECAY: Version 3.4 -> 3.5
Inclusion of off-shell decays H -> W*W*, Z*Z* above
threshold and approximations for their electroweak
corrections according to A. Bredenstein et al.,
PRD74 (2006) 013004
November 24 2008: - Bugs in interpolation of off-shell decays
H -> hh,AA,AZ,H+W- for SLHA interface corrected
(thanks to J. Rathsman, T. Rizzo, C.F. Berger,
J. Hewett and J.S. Gainer)
- Minor improvements in SLHA interface
(neutralino/chargino masses and mixing)
- 2-Loop corrections to MSSM bottom Yukawa couplings
included (according to PRL 101 (2008) 181801)
- Squarkmasses calculated from quark pole masses
instead of running MSbar masses.
January 31 2008: - Bug in routine FINT1_HDEC corrected (thanks to K. Moenig)
October 10 2007: - Minor corrections in the SLHA in and output
September 13 2007: - Minor corrections in the SLHA output
September 12 2007: - Inclusion of delta_mb effects in charged Higgs
decays
June 14 2007: - Update of HDECAY: Version 3.200 -> 3.300
Inclusion of fully massive (SUSY-)QCD corrections to
Higgs -> gamma gamma
September 1 2006: - Update of HDECAY: Version 3.103 -> 3.200
Link to SUSY Les Houches Accord implemented.
M. Muehlleitner added to the authors.
February 15 2006: - Correcting typos in charged Higgs couplings to
sfermions (thanks to U. Ellwanger)
August 15 2005: - Correcting a typo in function QCDMI(X,Y) for charged
Higgs decays (thanks to A. Ferrari).
May 3 2005: - Uncommenting top Yukawa corrections to delta_mb (thanks to
S. Mrenna)
October 20 2003: - Removal of 'dreal' in feynhiggs.f at places causing
problems with alpha (OSF1) workstations (thanks to
A. Pukhov)
September 19 2003: - Small change of analytical structure of SUSY-QCD
corrections to Higgs -> bb (thanks to G. Weiglein).
The numerical effect is tiny.
- Addition of subroutines for loop integrals
- Addition of scale choice to subroutine SFERMION
February 24 2003: - Addition of COMMON block COMMON/FLAGS_HDEC/INDIDEC
to subroutine READ_HDEC for individual SUSY decays
October 16 2002: - Correction of typo in line 344 (thanks to T. Farris).
This does not affect the results at all.
September 27 2002: - Corrections in the link to FeynHiggsFast (thanks to
M. Schumacher and S. Heinemeyer)
September 24 2002: - Corrections in the link to FeynHiggsFast to make
the renormalization schemes consistent
September 20 2002: - Corrections in the link to FeynHiggsFast
- Shortening of line 1103 in hdecay.f
- Passing flag INDIDEC to read and write routines
September 19 2002: - Major update of HDECAY: version 2.0 -> 3.0.
The following things have been added:
1.) SUSY-QCD corrections to h,H,A -> bb including
resummation (thanks to J. Guasch and P.
Haefliger for checking)
2.) Links to more routines for MSSM Higgs masses:
subh, subhpole, Haber et al., FeynHiggsFast
3.) Extension of 2-loop RGE approach to Higgs
selfinteractions
4.) Addition of decays into gravitino + gaugino
5.) Reorganization of subroutines and main program
6.) Renaming of subroutines, functions and common blocks
in order to allow for simpler links to other programs
(all names have the extension _HDEC now)
The new input parameters are described at the
beginning of hdecay.f.
November 30 2001: - If branch in subroutine SUSYCP added to prevent a
program crash. This does not change any results
(thanks to Elena Accomando).
July 20 2001: - Typos in pseudoscalar decays into fermions corrected.
The numerical differences are small.
July 11 2001: - Instability for small pseudoscalar masses corrected in
subroutine SUBH and H -> hh decays. Numerical results
are unchanged (thanks to Vladimir Rykov).
March 10 2001: - Typos corrected in lines 1363-1364,1375-1377,1387-1389,
2268-2270,2280-2282,2292-2294. The typos affect the
branching ratios for h,H -> gg in the MSSM, but are
numerically small for conventional MSSM scenarios
(thanks to Tao Han).
December 12 2000: - Typos corrected in lines 1345,1509,2248 and 2468. The
numerical effect is small (thanks to S. Heinemeyer).
August 23 2000: - Typos corrected in lines 536 and 1284, which do not
cause any changes of the numerical results
(thanks to F. von der Pahlen and G. Polesello)
- If cases added to subroutine SFERMION, which do not
cause any changes of the numerical results.
June 22 2000: - Addition of lines 2254-2258, the omission of which caused
problems for HIGGS=2 and OFF-SUSY=1 (thanks to A. Freitas)
December 20 1999 : - Typos corrected in first generation squark-loops of
h,H -> gg, gamma gamma (thanks to M. Muehlleitner)
- Typos corrected in pseudoscalar Higgs decays into
squarks (thanks to J.-B. de Vivie)
December 1 1998 : - Typos corrected in off-shell decays H+ -> W*h, W*A
in lines 2000,2001,2010,2018,2020,2051 (thanks to
Abdeslam Arhrib).
- Evaluation of top quark decay width (GAMT1) shifted
into subroutine HDEC.
October 30 1998 : - Typos corrected in QCD corrections to charged Higgs
decays into quarks in lines 882,883,886,887 (thanks
to Hong-Jian He)
August 20 1998 : - Typo corrected in WRITE statement in line 418
June 18 1998 : - Modifications in subroutine HDEC for the SUSY decays
in order to allow for loops switching on and off the
SUSY decays (thanks to E. Richter-Was)
May 16 1998 : - Bug in paper of Carena et al. fixed. Subroutine SUSYCP
corrected for Higgs pole masses (bottom quark loops for large
tan(beta)).
April 22 1998 : - Removing an instability in H -> Z*A for large tan(beta) at
large Higgs masses M_H (thanks to W. Kilian).
April 15 1998 : - Change of variable names in line 634:
BHQSLQDL,BHQSLQDR -> BHLSQDL,BHLSQDR (Sorry!)
January 13 1998 : - Change of variable names in line 634:
BHQSLDL,BHQSLDR -> BHQSLQDL,BHQSLQDR
August 29 1997 : - Interchange of Fortran lines in subroutines HDECAY and RUNM
(thanks to T. Schoerner)
July 21 1997 : - Interpolation in H -> hh, AA modified in subroutine HDEC
(thanks to T. Schoerner)
- Sfermion mixing angles modified in subroutines SFERMION and
SUSYCP (thanks to F. Borzumati)

BIN
hdecay.tar.gz Normal file
View File

Binary file not shown.

BIN
manual1.pdf Normal file
View File

Binary file not shown.

BIN
manual2.pdf Normal file
View File

Binary file not shown.

100
zzz/br.input Normal file
View File

@@ -0,0 +1,100 @@
SLHAIN = 0
SLHAOUT = 1
COUPVAR = 0
HIGGS = 5
OMIT ELW = 0
SM4 = 0
FERMPHOB = 0
2HDM = 0
MODEL = 1
TGBET = 20.000000
MABEG = 1400.0000
MAEND = 1400.0000
NMA = 1
ALS(MZ) = 0.11800000
MSBAR(2) = 0.93500000E-01
MCBAR(3) = 0.98600000
MBBAR(MB)= 4.1800000
MT = 172.50000
MTAU = 1.7768200
MMUON = 0.10565837
ALPH = 132.34890
GF = 0.11643600E-04
GAMW = 2.0850000
GAMZ = 2.4952000
MZ = 91.187600
MW = 80.379000
VTB = 0.99910000
VTS = 0.40400000E-01
VTD = 0.86700000E-02
VCB = 0.41200000E-01
VCS = 0.97344000
VCD = 0.22520000
VUB = 0.35100000E-02
VUS = 0.22534000
VUD = 0.97427000
********************* 4TH GENERATION *************************************
SCENARIO FOR ELW. CORRECTIONS TO H -> GG (EVERYTHING IN GEV):
GG_ELW = 1: MTP = 500 MBP = 450 MNUP = 375 MEP = 450
GG_ELW = 2: MBP = MNUP = MEP = 600 MTP = MBP+50*(1+LOG(M_H/115)/5)
GG_ELW = 1
MTP = 500.00000
MBP = 450.00000
MNUP = 375.00000
MEP = 450.00000
************************** 2HDM ******************************************
TYPE: 1 (I), 2 (II), 3 (Lepton-specific), 4 (flipped)
2HDM TYPE= 2
TANBETA = 20.000000
ALPHA_H = -0.14000000
M_h = 125.00000
M_H = 210.00000
M_A = 130.00000
M_H+ = 130.00000
M_12^2 = 25600.000
**************************************************************************
SUSYSCALE= 2000.0000
MU = 1000.0000
M2 = 1000.0000
MGLUINO = 2500.0000
MSL1 = 2000.0000
MER1 = 2000.0000
MQL1 = 1500.0000
MUR1 = 1500.0000
MDR1 = 1500.0000
MSL = 2000.0000
MER = 2000.0000
MSQ = 1500.0000
MUR = 1500.0000
MDR = 1500.0000
AL = 2850.0000
AU = 2850.0000
AD = 2850.0000
ON-SHELL = 0
ON-SH-WZ = 0
IPOLE = 0
OFF-SUSY = 0
INDIDEC = 0
NF-GG = 5
IGOLD = 0
MPLANCK = 0.24000000E+19
MGOLD = 0.10000000E-12
******************* VARIATION OF HIGGS COUPLINGS * ***********************
ELWK = 0
CW = 1.0000000
CZ = 1.0000000
Ctau = 1.0000000
Cmu = 1.0000000
Ct = 1.0000000
Cb = 1.0000000
Cc = 1.0000000
Cs = 1.0000000
Cgaga = 0.0000000
Cgg = 0.0000000
CZga = 0.0000000
********************* 4TH GENERATION *************************************
Ctp = 0.0000000
Cbp = 0.0000000
Cnup = 0.0000000
Cep = 0.0000000

6359
zzz/dmb.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/dmb.o Normal file
View File

Binary file not shown.

2224
zzz/elw.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/elw.o Normal file
View File

Binary file not shown.

284
zzz/h2hh.f Normal file
View File

@@ -0,0 +1,284 @@
double precision function h2hh_hdec(imssm)
implicit double precision (a-h,o-z)
complex*16 c03_hdec,cc0
double precision lamb_hdec,mij,mij0
double precision mst12,mst22,mt,lt,lst1,lst2
dimension xglbb(2,2),xghbb(2,2),xgctb(2,2)
common/param_hdec/gf,alph,amtau,ammuon,amz,amw
common/hmass_hdec/amsm,ama,amhl,amhh,amch,amar
common/gluino_hdec/amg,amsb1,amsb2,sth,cth,
. glbb(2,2),ghbb(2,2),gabb(2,2),
. amst1,amst2,stht,ctht,
. gltt(2,2),ghtt(2,2),gatt(2,2)
c common/sqnlo_hdec/amsb(2),sthb,cthb,glbb(2,2),ghbb(2,2),gabb,
c . amst(2),stht,ctht,gltt(2,2),ghtt(2,2),gatt
common/coup_hdec/gat,gab,glt,glb,ght,ghb,gzah,gzal,
. ghhh,glll,ghll,glhh,ghaa,glaa,glvv,ghvv,
. glpm,ghpm,b,a
common/masses_hdec/ams,amc,amb,amt0
common/break_hdec/amel,amer,amsq,amur,amdr,al,au,ad,amu,am20
c common/squarkhiggs_hdec/theb,amg,ionsh,idth
common/trilinear_hdec/au00,ad00,au1,ad1
common/hhss_hdec/flltt(2,2),fhhtt(2,2),flhtt(2,2)
a0(am,xmu2)=am**2*(1+dlog(xmu2/am**2))
cc0(q12,q22,q32,am1,am2,am3) = c03_hdec(q12,q32,q22,am1,am2,am3)
nc = 3
pi = 4*datan(1.d0)
v=1.d0/dsqrt(dsqrt(2.d0)*gf)
tgb = dtan(b)
sb = dsin(b)
cb = dcos(b)
sa = dsin(a)
ca = dcos(a)
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
auu = au1
c auu = au
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
fac = 1
c amt = fac*amt0
amt = amt0
xmu = amt
ep = 1.d-0
amh = amhh*ep
aml = amhl*ep
cof = nc/(4*pi)**2/v**3
xx1 = 0
xx2 = 0
xm0 = ghll*amz**2/v
c--2HDM
dghll = -8*cof*amt**4*sa*ca**2/sb**3*(-2+3*dlog(xmu**2/amt**2))
sigh = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
. +(4*amt**2-amh**2)*b02_hdec(amh**2,amt,amt,xmu**2))
sigl = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
. +(4*amt**2-aml**2)*b02_hdec(aml**2,amt,amt,xmu**2))
sig0 = 2*cof*v*amt**2*ght*glt*(2*a0(amt,xmu**2)
. +4*amt**2*b02_hdec(0.d0,amt,amt,xmu**2))
dzh = 2*cof*v*amt**2*ght*ght*(-b02_hdec(amh**2,amt,amt,xmu**2)
. +(4*amt**2-amh**2)*bp02_hdec(amh**2,amt,amt,xmu**2))
dzl = 2*cof*v*amt**2*glt*glt*(-b02_hdec(aml**2,amt,amt,xmu**2)
. +(4*amt**2-aml**2)*bp02_hdec(aml**2,amt,amt,xmu**2))
dad = -sig0/(amh**2-aml**2)
dzheff = 2*cof*v*amt**2*ght*ght*(-b02_hdec(0.d0,amt,amt,xmu**2)
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
dzleff = 2*cof*v*amt**2*glt*glt*(-b02_hdec(0.d0,amt,amt,xmu**2)
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
dzeff = 2*cof*v*amt**2*ght*glt*(-b02_hdec(0.d0,amt,amt,xmu**2)
. +4*amt**2*bp02_hdec(0.d0,amt,amt,xmu**2))
xm1 = 8*cof*amt**4*sa*ca**2/sb**3*(b02_hdec(amh**2,amt,amt,xmu**2)
. + 2*b02_hdec(aml**2,amt,amt,xmu**2)
. + (4*amt**2-amh**2/2-aml**2)*dreal(
. cc0(amh**2,aml**2,aml**2,amt,amt,amt)))
xm2 = ghll*(dzh/2+dzl) + glll*(sigh/(amh**2-aml**2)+dad)
. - 2*glhh*(sigl/(amh**2-aml**2)+dad)
xm3 = dghll
xm4 = ghll*(-dzheff/2-dzleff) - glll*amh**2*dzeff/(amh**2-aml**2)
. + 2*glhh*aml**2*dzeff/(amh**2-aml**2)
xx1 = xm1+xm2+xm3+xm4
c write(6,*)'hh1: ',2*xm1/xm0,2*xm2/xm0,2*xm3/xm0,2*xm4/xm0
if(imssm.ne.0)then
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c am1 = fac*dsqrt((amsq**2+amur**2+2*amt**2
c . -dsqrt((amsq**2-amur**2)**2+4*amt**2*(au-amu*cb/sb)**2))/2)
c am2 = fac*dsqrt((amsq**2+amur**2+2*amt**2
c . +dsqrt((amsq**2-amur**2)**2+4*amt**2*(au-amu*cb/sb)**2))/2)
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
am1 = fac*amst1
am2 = fac*amst2
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
qt = (am1+am2)/2
rmt = runm_hdec(qt,6,1)
ct = (auu-amu*cb/sb)/(am1**2-am2**2)
dt = (auu+amu*sb/cb)/(am1**2-am2**2)
et = (auu-amu*ca/sa)/(am1**2-am2**2)
ft = (auu+amu*sa/ca)/(am1**2-am2**2)
gt = 2 + (am1**2+am2**2)/(am1**2-am2**2)*dlog(am2**2/am1**2)
c sth = stht
c cth = ctht
c s2t = 2*sth*cth
c c2t = cth**2-sth**2
s2t = 2*rmt*ct
c2t = dsqrt(1-s2t**2)
if((amsq**2-amur**2)/(am1**2-am2**2).lt.0.d0) c2t = -c2t
xlim = 1.d-10
if(dabs(1-s2t**2).le.xlim) c2t = 0
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
glrl = rmt/2*(auu*glt+amu*ght)
glrh = rmt/2*(auu*ght-amu*glt)
g11l = rmt**2*glt + glrl*s2t
g22l = rmt**2*glt - glrl*s2t
g12l = glrl*c2t
g11h = rmt**2*ght + glrh*s2t
g22h = rmt**2*ght - glrh*s2t
g12h = glrh*c2t
f11ll = rmt**2*glt*glt
f12ll = 0
f22ll = rmt**2*glt*glt
f11hh = rmt**2*ght*ght
f12hh = 0
f22hh = rmt**2*ght*ght
f11lh = rmt**2*glt*ght
f12lh = 0
f22lh = rmt**2*glt*ght
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c g11l = amz**2*gltt(1,1)
c g22l = amz**2*gltt(2,2)
c g12l = amz**2*gltt(1,2)
c g11h = amz**2*ghtt(1,1)
c g22h = amz**2*ghtt(2,2)
c g12h = amz**2*ghtt(1,2)
c f11ll = amz**2*flltt(1,1)
c f22ll = amz**2*flltt(2,2)
c f12ll = amz**2*flltt(1,2)
c f11hh = amz**2*fhhtt(1,1)
c f22hh = amz**2*fhhtt(2,2)
c f12hh = amz**2*fhhtt(1,2)
c f11lh = amz**2*flhtt(1,1)
c f22lh = amz**2*flhtt(2,2)
c f12lh = amz**2*flhtt(1,2)
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
tl1 = dlog(am1**2/xmu**2)
tl2 = dlog(am2**2/xmu**2)
delta = 1 - 4*amt**2*(auu-amu*cb/sb)**2/(am2**2-am1**2)**2
d_hlhlhh = delta*((am1**2-am2**2)*ft*(2*et+ft)*(tl1-tl2)
. +3*(am1**2-am2**2)**2*ct*et*ft**2*gt)
dtghll =-4*cof*rmt**4*sa*ca**2/sb**3
. * (3*(tl1+tl2)+(am1**2-am2**2)*ct*(et+2*ft)*(tl1-tl2)
. +d_hlhlhh + 2*(amt**2/am1**2*(1+(am1**2-am2**2)*ct*et)
. *(1+(am1**2-am2**2)*ct*ft)**2
. +amt**2/am2**2*(1-(am1**2-am2**2)*ct*et)
. *(1-(am1**2-am2**2)*ct*ft)**2))
tsigh =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
. +2*g11l*g11h*b02_hdec(amh**2,am1,am1,xmu**2)
. +2*g22l*g22h*b02_hdec(amh**2,am2,am2,xmu**2)
. +4*g12l*g12h*b02_hdec(amh**2,am1,am2,xmu**2))
tsigl =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
. +2*g11l*g11h*b02_hdec(aml**2,am1,am1,xmu**2)
. +2*g22l*g22h*b02_hdec(aml**2,am2,am2,xmu**2)
. +4*g12l*g12h*b02_hdec(aml**2,am1,am2,xmu**2))
tsig0 =-2*cof*v*(f11lh*a0(am1,xmu**2)+f22lh*a0(am2,xmu**2)
. +2*g11l*g11h*b02_hdec(0.d0,am1,am1,xmu**2)
. +2*g22l*g22h*b02_hdec(0.d0,am2,am2,xmu**2)
. +4*g12l*g12h*b02_hdec(0.d0,am1,am2,xmu**2))
dtzh =-4*cof*v*(g11h*g11h*bp02_hdec(amh**2,am1,am1,xmu**2)
. +g22h*g22h*bp02_hdec(amh**2,am2,am2,xmu**2)
. +2*g12h*g12h*bp02_hdec(amh**2,am1,am2,xmu**2))
dtzl =-4*cof*v*(g11l*g11l*bp02_hdec(aml**2,am1,am1,xmu**2)
. +g22l*g22l*bp02_hdec(aml**2,am2,am2,xmu**2)
. +2*g12l*g12l*bp02_hdec(aml**2,am1,am2,xmu**2))
dtad = -tsig0/(amh**2-aml**2)
dtzheff =-4*cof*v*(g11h*g11h*bp02_hdec(0.d0,am1,am1,xmu**2)
. +g22h*g22h*bp02_hdec(0.d0,am2,am2,xmu**2)
. +2*g12h*g12h*bp02_hdec(0.d0,am1,am2,xmu**2))
dtzleff =-4*cof*v*(g11l*g11l*bp02_hdec(0.d0,am1,am1,xmu**2)
. +g22l*g22l*bp02_hdec(0.d0,am2,am2,xmu**2)
. +2*g12l*g12l*bp02_hdec(0.d0,am1,am2,xmu**2))
dtzeff =-4*cof*v*(g11l*g11h*bp02_hdec(0.d0,am1,am1,xmu**2)
. +g22l*g22h*bp02_hdec(0.d0,am2,am2,xmu**2)
. +2*g12l*g12h*bp02_hdec(0.d0,am1,am2,xmu**2))
ym1 =-16*cof*(
. g11h*g11l*g11l*dreal(cc0(amh**2,aml**2,aml**2,am1,am1,am1))
. +g11h*g12l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am1,am1,am2))
. +g12h*g11l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am1,am2,am1))
. +g12h*g12l*g11l*dreal(cc0(amh**2,aml**2,aml**2,am2,am1,am1))
. +g22h*g12l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am2,am2,am1))
. +g12h*g22l*g12l*dreal(cc0(amh**2,aml**2,aml**2,am2,am1,am2))
. +g12h*g12l*g22l*dreal(cc0(amh**2,aml**2,aml**2,am1,am2,am2))
. +g22h*g22l*g22l*dreal(cc0(amh**2,aml**2,aml**2,am2,am2,am2))
. )
ym2 =-4*cof*(g11h*f11ll*b02_hdec(amh**2,am1,am1,xmu**2)
. +2*g12h*f12ll*b02_hdec(amh**2,am1,am2,xmu**2)
. +g22h*f22ll*b02_hdec(amh**2,am2,am2,xmu**2)
. +2*g11l*f11lh*b02_hdec(aml**2,am1,am1,xmu**2)
. +4*g12l*f12lh*b02_hdec(aml**2,am1,am2,xmu**2)
. +2*g22l*f22lh*b02_hdec(aml**2,am2,am2,xmu**2))
ym3 = dtghll
ym4 = ghll*(dtzh/2+dtzl) + glll*(tsigh/(amh**2-aml**2)+dtad)
. - 2*glhh*(tsigl/(amh**2-aml**2)+dtad)
ym5 = ghll*(-dtzheff/2-dtzleff)
. - glll*amh**2*dtzeff/(amh**2-aml**2)
. + 2*glhh*aml**2*dtzeff/(amh**2-aml**2)
xx2 = ym1+ym2+ym3+ym4+ym5
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c mst12 = am1**2
c mst22 = am2**2
c mt = amt
c lt = dlog(amt**2/xmu**2)
c lst1 = dlog(am1**2/xmu**2)
c lst2 = dlog(am2**2/xmu**2)
c at = au
c t1_s1s1s1=(-8*(2*((mst12-mst22)**2+6*gt*mst12*mst22)*ct**2*mt**
c . 2-3*gt*mst12*mst22)*(at-ct*mst12+ct*mst22)**3*ct*mt**4)/((
c . mst12-mst22)*(sb+1)*(sb-1)*cb*mst12*mst22*v**3)
c t1_s1s1s2=(8*(12*at*ct**3*gt*mst12**2*mst22*mt**2+12*at*ct**3*
c . gt*mst12*mst22**2*mt**2+2*at*ct**3*mst12**3*mt**2-2*at*ct**3*
c . mst12**2*mst22*mt**2-2*at*ct**3*mst12*mst22**2*mt**2+2*at*ct**
c . 3*mst22**3*mt**2-3*at*ct*gt*mst12**2*mst22-3*at*ct*gt*mst12*
c . mst22**2-4*ct**2*gt*mst12**2*mst22*mt**2+4*ct**2*gt*mst12*
c . mst22**2*mt**2-2*ct**2*mst12**3*mt**2+6*ct**2*mst12**2*mst22*
c . mt**2-6*ct**2*mst12*mst22**2*mt**2+2*ct**2*mst22**3*mt**2+gt*
c . mst12**2*mst22-gt*mst12*mst22**2-2*mst12**2*mst22+2*mst12*
c . mst22**2)*(at-ct*mst12+ct*mst22)**2*mt**4)/((mst12+mst22)*(
c . mst12-mst22)*(sb+1)*(sb-1)*mst12*mst22*sb*v**3)
c t1_s1s2s2=(8*(12*at**2*ct**3*gt*mst12**2*mst22*mt**2+12*at**2*
c . ct**3*gt*mst12*mst22**2*mt**2+2*at**2*ct**3*mst12**3*mt**2-2*
c . at**2*ct**3*mst12**2*mst22*mt**2-2*at**2*ct**3*mst12*mst22**2*
c . mt**2+2*at**2*ct**3*mst22**3*mt**2-3*at**2*ct*gt*mst12**2*
c . mst22-3*at**2*ct*gt*mst12*mst22**2-8*at*ct**2*gt*mst12**2*
c . mst22*mt**2+8*at*ct**2*gt*mst12*mst22**2*mt**2-4*at*ct**2*
c . mst12**3*mt**2+12*at*ct**2*mst12**2*mst22*mt**2-12*at*ct**2*
c . mst12*mst22**2*mt**2+4*at*ct**2*mst22**3*mt**2+2*at*gt*mst12**
c . 2*mst22-2*at*gt*mst12*mst22**2-4*at*mst12**2*mst22+4*at*mst12*
c . mst22**2+ct*gt*mst12**3*mst22-2*ct*gt*mst12**2*mst22**2+ct*gt*
c . mst12*mst22**3-2*ct*mst12**3*mst22+2*ct*mst12**3*mt**2+4*ct*
c . mst12**2*mst22**2-2*ct*mst12**2*mst22*mt**2-2*ct*mst12*mst22**
c . 3-2*ct*mst12*mst22**2*mt**2+2*ct*mst22**3*mt**2)*(at-ct*mst12+
c . ct*mst22)*mt**4)/((mst12+mst22)*(mst12-mst22)*cb*mst12*mst22*
c . sb**2*v**3)
c t1_s2s2s2=(8*((2*(mst12**2*mst22+mst12**2*mt**2-5*mst12*mst22**
c . 2+2*mst12*mst22*mt**2+mst22**2*mt**2)-3*(mst12-mst22)*gt*mst12
c . *mst22+6*(lst2-lt)*(mst12+mst22)*mst12*mst22+3*(2*(mst12*mst22
c . -mst12*mt**2-mst22*mt**2)-gt*mst12*mst22)*(mst12-mst22)*at*ct+
c . 3*(2*((mst12-mst22)**2+2*gt*mst12*mst22)*ct**2*mt**2-(gt-2)*
c . mst12*mst22)*at**2)*(mst12-mst22)-(2*((mst12-mst22)**2+6*gt*
c . mst12*mst22)*ct**2*mt**2-3*gt*mst12*mst22)*(mst12+mst22)*at**3
c . *ct)*mt**4)/((mst12+mst22)*(mst12-mst22)*mst12*mst22*sb**3*v**
c . 3)
c t2_s2s2s2 =-16*mt**4/v**3/sb**3*(3*lt+2)
c t1_s2s2s2=t1_s2s2s2-t2_s2s2s2
c t1_hlhlhh = -sa*ca**2*t1_s2s2s2 - ca*(ca**2-2*sa**2)*t1_s1s2s2
c . +sa*(2*ca**2-sa**2)*t1_s1s1s2 - sa**2*ca*t1_s1s1s1
c t1_hlhlhh = t1_hlhlhh*v**3/2*cof
c write(6,*)t1_hlhlhh
c write(6,*)dtghll
c write(6,*)
c>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
c write(6,*)'hh2: ',2*(ym1+ym2)/xm0,2*ym3/xm0,2*ym4/xm0,2*ym5/xm0
c write(6,*)'hh: ',ym1,ym2,ym3,ym4,ym5
c write(6,*)
c write(6,*)ym1+ym2,ym4
c write(6,*)ym3,ym5
c write(6,*)
c write(6,*)dtzh,dtzl
c write(6,*)dtzheff,dtzleff
c write(6,*)
c write(6,*)tsigh/(amh**2-aml**2),tsigl/(amh**2-aml**2)
c write(6,*)dtad,dtad
c write(6,*)dtad-dtzeff/(amh**2-aml**2),dtad-dtzeff/(amh**2-aml**2)
c write(6,*)
c write(6,*)am1,am2
c write(6,*)
endif
dummy = 2*(xx1+xx2)/xm0
h2hh_hdec = dummy
c hlo=gf/16/dsqrt(2d0)/pi*amz**4/amh*beta_hdec(aml**2/amh**2)
c . *ghll**2
c write(6,*)hlo,hlo*(1+dummy),1+dummy
return
end

BIN
zzz/h2hh.o Normal file
View File

Binary file not shown.

989
zzz/haber.f Normal file
View File

@@ -0,0 +1,989 @@
SUBROUTINE HABER(TANB,SA,CA)
C PROGRAM HMSUSY
C WRITTEN BY HOWARD E. HABER
C LATEST REVISION: AUGUST 28, 1995
C COMMENTS OR QUESTIONS: SEND E-MAIL TO HABER@SCIPP.UCSC.EDU
C BASED ON WORK IN COLLABORATION WITH R. HEMPFLING AND A. HOANG
C
IMPLICIT REAL*8 (A-H,O-Z)
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
1 HHHPHM,HLHPHM
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
COMMON/QMASS/ TMPOLE
DIMENSION H(4)
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
COMMON/HMASS_HDEC/AMSM,AMA,AML,AMH,AMCH,AMAR
COMMON/BREAK_HDEC/AMEL,AMER,AMSQ,AMUR,AMDR,AL,AU,AD,AMU,AM2
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
C
C IRC=0 TREE LEVEL ONLY
C IRC=-1 RADIATIVE CORRECTIONS INCLUDED WITHOUT RGE IMPROVEMENT
C IRC=1 RADIATIVE CORRECTIONS INCLUDED WITH RGE IMPROVEMENT
C IRC=2 SLIGHT IMPROVEMENT OF TREATMENT OF STOP-SBOTTOM SECTOR
C WITH (IRC=-2: WITHOUT) RGE IMPROVEMENT
C IRC=3 ELLIS, RIDOLFI, AND ZWIRNER LEADING MT**4 AND MB**4
C CORRECTIONS WITH (IRC=-3: WITHOUT) RGE IMPROVEMENT
C
C DO 838 IRC= -1,1,2
C
C INPUT THE MASS OF THE CP-ODD SCALAR
C
C DO 838 IH=2,2
C IF (IH .EQ. 1) AM= 50.D0
C IF (IH .EQ. 2) AM= 1000.D0
C
C INPUT THE IMPORTANT PARAMETER TANB
C
C DO 838 ITB= 1,1
C IF (ITB .EQ. 1) TANB= 1.5D0
C IF (ITB .EQ. 2) TANB= 20.D0
C TANB= 10.D0*DFLOAT(ITB)
C
C INPUT THE SQUARK MIXING A-PARAMETERS (B AND T SECTORS ONLY)
C IN UNITS OF THE SUPERSYMMETRY BREAKING SCALE PARAMETER (SUSY)
C
C DO 838 IAT= 0,0
C AA= 0.4*DFLOAT(IAT)
C DO 838 ISQ=0,9
C SUSY= 200.D0+100.D0*DFLOAT(ISQ)
C IF (ISQ .EQ. 9) SUSY= 2000.D0
C AT= AA*SUSY
C AB= AT
C
C MU PARAMETER SET TO SIGNMU*SUSY
C IN PRINCIPLE, CAN CHOOSE ANY MU, ALTHOUGH IF DABS(SIGNMU) IS
C NOT 1, THEN CONTRIBUTIONS OF GAUGINOS AND HIGGSINOS
C TO THE RADIATIVE CORRECTIONS MUST BE MODIFIED (SLIGHTLY)
C
C DO 838 IMU= 1,1
C SIGNMU= -1.D0*DFLOAT(IMU)
C
C SQUARK MASS PARAMETERS SET IN SETUP SUBROUTINE
C PARAMETERS DEPOSITED IN COMMON/SQPARM/
C SQM= COMMON SQUARK/SLEPTON MASS (APART FROM B AND T SECTORS)
C SQK= SQUARK SU(2)-DOUBLET SOFT-SUSY-BREAKING MASS
C SQU= TOP-SQUARK SU(2)-SINGLET SOFT-SUSY-BREAKING MASS
C SQD= BOTTOM-SQUARK SU(2)-SINGLET SOFT-SUSY-BREAKING MASS
C SUSY= COMMON GAUGINO/HIGGSINO MASS SCALE
C
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
IRC= 2
AM = AMA
SUSY = AMSQ
AT = SUSY
AB = SUSY
SIGNMU = 1
IF(AMU.LT.0.D0)SIGNMU = -1
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CALL SETUP(IRC,TANB,TM,SIGNMU,SUSY)
C
C INITIALLY, ALL FIVE SUSY-BREAKING MASSES SET EQUAL.
C THIS CAN BE CHANGED EITHER RIGHT HERE OR DIRECTLY IN THE
C SETUP SUBROUTINE.
C
C SUBROUTINE HSUSY COMPUTES HIGGS MASSES AND COUPLINGS
C IT COMPUTES STOP AND SBOTTOM SPECTRUM FIRST, AND DEPOSITS THE
C RESULTS IN COMMON/SQPARM/. OUTPUT IS:
C STA2,STB2= TOP-SQUARK SQUARED-MASSES
C SBA2,SBB2= BOTTOM-SQUARK SQUARED-MASSES
C NEXT IT COMPUTES THE HIGGS MASSES AND PUTS THEM IN THE ARRAY H()
C H(1)= HEAVY CP-EVEN MASS
C H(2)= LIGHT CP-EVEN MASS
C H(3)= CP-ODD MASS (INPUT AS "AM" ABOVE)
C H(4)= CHARGED HIGGS MASS
C MIXING ANGLE FACTORS THAT APPEAR IN HIGGS FEYNMAN RULES
C DEPOSITED IN COMMON/ANG/. TANB IS INPUT, WHILE OUTPUT INCLUDES:
C SINA= SIN(ALPHA) [ALPHA: CP-EVEN HIGGS MIXING ANGLE]
C COSA= COS(ALPHA)
C SIN2A= SIN(2*ALPHA)
C COS2A= COS(2*ALPHA)
C SINBPA= SIN(BETA+ALPHA)
C COSBPA= COS(BETA+ALPHA)
C SINBMA= SIN(BETA-ALPHA)
C COSBMA= COS(BETA-ALPHA)
C THREE-HIGGS COUPLING DEPOSITED IN COMMON/HINT3/. NOTATION:
C HL= LIGHT CP-EVEN HIGGS
C HH= HEAVY CP-EVEN HIGGS
C A= CP-ODD HIGGS
C HPHM= CHARGED HIGGS PAIR
C FOR EXAMPLE, HLHPHM IS THE FEYNMAN RULE FOR THE INTERACTION OF
C THE LIGHT CP-EVEN HIGGS WITH A CHARGED HIGGS PAIR (WITHOUT A
C FACTOR OF I), HLHLHL IS THE THREE LIGHT CP-HIGGS COUPLING, ETC.
C
C IERR=0 IF THE PROGRAM SUCCEEDS. IF ONE FINDS A NEGATIVE
C SQUARED MASS FOR ANY SCALAR (USUALLY, SCALAR-TOP, SCALAR-BOTTOM,
C THE LIGHT CP-EVEN HIGGS OR THE CHARGED HIGGS), THE PROGRAM
C RETURNS IERR>0.
C
CALL HMSUSY(IRC,AM,TM,TANB,SUSY,AT,AB,H,ALF,IERR)
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
AML = H(2)
AMH = H(1)
C AMA = H(3)
AMCH = H(4)
AMAR = H(3)
SA = SINA
CA = COSA
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
C
C SLIGHT INACCURACIES OF THE PROGRAM:
C 1. IRC=2 SLIGHTLY IMPROVES NEUTRAL SCALAR MASSES, BUT
C NO IMPROVEMENT YET FOR CHARGED SCALAR MASSES.
C 2. LEADING LOGS FOR CHARGED SCALAR MASS CORRECT ONLY
C IF M(A)=O(ZMASS).
C 3. LEADING LOGS FOR HEAVY CP-EVEN SCALAR MASS CORRECT ONLY
C IF M(A)=O(ZMASS).
C IN CASES 2 AND 3, THE RELATIVE ERROR MADE IS RATHER MINOR,
C SINCE HEAVY SCALARS ARE ROUGHLY DEGENERATE WITH THE CP-ODD SCALAR.
C 4. NO DETAILED STUDY YET OF ACCURACY OF RGE-IMPROVEMENT VIA
C THE USE OF MT(Q) FOR WIDELY SPLIT SQK, SQU, AND SQD
C
IF (STB2 .LT. 0.D0) GO TO 838
IF (SBB2 .LT. 0.D0) GO TO 838
STOP1= DSQRT(STA2)
STOP2= DSQRT(STB2)
SBOT1= DSQRT(SBA2)
SBOT2= DSQRT(SBB2)
IF (IERR .GT. 0) GO TO 838
C 500 WRITE(6,565) H(2),H(1),H(3),H(4),TANB,AA,SUSY,XMU
C 500 WRITE(6,565) H(2),H(3),TANB,AA,SUSY,XMU,H(4),STOPB
C 500 WRITE(6,564) IRC,H(2),H(3),TANB,TM,AT,SUSY,XMU
C 500 WRITE(6,565) XMU,H(3),H(2) ,H(4),TANB,AT,AB,SUSY
C WRITE(6,565) SQK,SQU,SQD,XMU,STOP1,STOP2,SBOT1,SBOT2
564 FORMAT(I2,7(F9.3,1X))
565 FORMAT(8(F9.3,1X))
838 CONTINUE
C STOP
RETURN
END
SUBROUTINE SETUP(IRC,TANB,TMASS,SIGNMU,SUSY)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
COMMON/QMASS/ TMPOLE
DATA PI/3.1415926535D0/
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
COMMON/PARAM_HDEC/GF0,ALPH0,AMTAU0,AMMUON0,AMZ0,AMW0
COMMON/MASSES_HDEC/AMS0,AMC0,AMB0,AMT0
COMMON/BREAK_HDEC/AMEL,AMER,AMSQ,AMUR,AMDR,AL,AU,AD,AMU,AM2
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
TMPOLE= AMT0
BMASS= AMB0
ALS=ALPHAS_HDEC(TMPOLE,3)
SINW2 = 1-AMW0**2/AMZ0**2
ALPHA = DSQRT(2.D0)*GF0/PI*AMW0**2*SINW2
ZMASS= AMZ0
WMASS= AMW0
SQM= AMEL
SQK= AMSQ
SQU= AMUR
SQD= AMDR
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
C TMPOLE= 175.D0
C ALS=ALFS(TMPOLE)
ASCORR= 1.D0+4.D0*ALS/(3.D0*PI)
TMASS= TMPOLE/ASCORR
C TMASST= TMPOLE/ASCORR
C TMASS= TMPOLE
C IF (IRC .GT. 0.D0) TMASS= TMASST
C BMASS= 4.7D0
C ALPHA= 1.D0/128.D0
C SINW2= 0.23D0
COSW2= 1.D0-SINW2
COSW= DSQRT(COSW2)
C ZMASS= 91.1888D0
C WMASS= ZMASS*COSW
W2= WMASS**2
E2= 4.D0*PI*ALPHA
G2= E2/SINW2
GP2= E2/COSW2
SINB= TANB/DSQRT(1.D0+TANB**2)
COSB= 1.D0/DSQRT(1.D0+TANB**2)
COTB= 1.D0/TANB
C SQM= SUSY
C SQK= SUSY
C SQU= SUSY
C SQD= SUSY
XMU= SIGNMU*SUSY
RETURN
END
C
C IF CHARGED HIGGS MASS SQUARED IS NEGATIVE, PROGRAM RETURNS ZERO
C
SUBROUTINE HMSUSY(IRC,AMASS,TMASS,TANB,SUSY,AT,AB,H,ALF,IERR)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
1 HHHPHM,HLHPHM
COMMON/QMASS/ TMPOLE
COMMON/TEST/ D11,D12,D22,DP
DIMENSION H(4),DL(7)
DATA PI/3.1415926535D0/, ZERO/0.D0/
IERR= 0
STEP= 0.D0
IF (AMASS .GE. ZMASS) STEP= 1.D0
Z2= ZMASS**2
W2= WMASS**2
A2= AMASS**2
B2= BMASS**2
COSW2= 1.D0-SINW2
COS2W= COSW2-SINW2
SINW= DSQRT(SINW2)
COSW= DSQRT(COSW2)
EU= 2.D0/3.D0
ED= -1.D0/3.D0
SINB2= SINB**2
COSB2= COSB**2
COS2B= COSB**2-SINB**2
COS2B2= COS2B**2
SIN2B= 2.D0*SINB*COSB
TANB2= TANB**2
COTB2= COTB**2
S11= A2*SINB2+Z2*COSB2
S22= A2*COSB2+Z2*SINB2
S12= -(A2+Z2)*SINB*COSB
SPM= A2+W2
IF (IRC .NE. 0) GO TO 25
CALL CPEVEN(S11,S22,S12,H1R,H2R,SIN2A,COS2A)
DPM= SPM
GO TO 50
C
C HERE WE ALLOW FOR
C MIXING OF Q(L) AND Q(R) ONLY FOR THE S-TOP AND S-BOTTOM
C OTHERWISE, THERE IS NO MIXING.
C
25 SUSY2= SUSY**2
SQM2= SQM*SQM
SQBL2= SQK**2+BMASS**2-Z2*COS2B*(0.5D0+ED*SINW2)
SQBR2= SQD**2+BMASS**2+Z2*COS2B*ED*SINW2
SQTL2= SQK**2+TMPOLE**2+Z2*COS2B*(0.5D0-EU*SINW2)
SQTR2= SQU**2+TMPOLE**2+Z2*COS2B*EU*SINW2
XB= AB-XMU*TANB
XT= AT-XMU*COTB
AB3= -XB*BMASS/(2.D0*WMASS)
AT3= -XT*TMPOLE/(2.D0*WMASS)
DIFFT= SQTL2-SQTR2
DIFFB= SQBL2-SQBR2
TMIX= -4.D0*AT3*WMASS
BMIX= -4.D0*AB3*WMASS
STA2= 0.5D0*(SQTL2+SQTR2+DSQRT(DIFFT**2+TMIX**2))
STB2= 0.5D0*(SQTL2+SQTR2-DSQRT(DIFFT**2+TMIX**2))
SBA2= 0.5D0*(SQBL2+SQBR2+DSQRT(DIFFB**2+BMIX**2))
SBB2= 0.5D0*(SQBL2+SQBR2-DSQRT(DIFFB**2+BMIX**2))
IF (SBB2 .LT. ZERO) GO TO 291
IF (STB2 .LT. ZERO) GO TO 292
SQT1= DSQRT(STA2)
SQT2= DSQRT(STB2)
SQB1= DSQRT(SBA2)
SQB2= DSQRT(SBB2)
SQTM2= SQT1*SQT2
SQBM2= SQB1*SQB2
SQTBM2= DSQRT(SQTM2*SQBM2)
SMT2= 0.5D0*(SQK**2+SQU**2)
SMT= DSQRT(SMT2)
QP= DSQRT(SMT*TMPOLE)
TMASS1= TMASSR(QP,TMASS)
IF (IRC .LE. 0) TMASS1= TMASS
T2= TMASS1**2
TMASS2= TMASSR(SMT,TMASS)
IF (IRC .LE. 0) TMASS2= TMASS
COLOR= 3.D0
GENS= 3.D0
PT= COLOR*(1.D0-4.D0*EU*SINW2+8.D0*EU**2*SINW2**2)
PB= COLOR*(1.D0+4.D0*ED*SINW2+8.D0*ED**2*SINW2**2)
PF= (GENS-1.D0)*(PT+PB)+2.D0*GENS*(1.D0-2.D0*SINW2+4.D0*SINW2**2)
P22= -2.D0*(32.D0*SINW2**2-54.D0*SINW2+27.D0)
P12= -2.D0*(8.D0*SINW2**2-6.D0*SINW2-9.D0)
P2H= -10.D0+2.D0*SINW2-2*SINW2**2
P2HP= 8.D0-22.D0*SINW2+10.D0*SINW2**2
P1H= -9.D0*COS2B2**2+(1.D0-2.D0*SINW2+2.D0*SINW2**2)*COS2B2
PH12= (P1H-P2H)*STEP
PH12P= (P1H+P2HP)*STEP
FACT= COLOR*G2/(16.D0*PI**2*W2)
FACT1= COLOR*G2*T2/(32.D0*PI**2*COSW2*SINB2)
FACT2= COLOR*G2*B2/(32.D0*PI**2*COSW2*COSB2)
FACTT= G2*Z2*SINB2/(96.D0*PI**2*COSW2)
FACBB= G2*Z2*COSB2/(96.D0*PI**2*COSW2)
FACTBT= G2*Z2/(96.D0*PI**2*COSW2)
DLOGW= DLOG(SUSY2/W2)
DLOGZ= DLOG(SUSY2/Z2)
DLOGF= DLOG(SQM2/Z2)
DLOGFW= DLOG(SQM2/W2)
C DLOGT= DLOG(SUSY2/T2)
C DLOGTB= DLOG(SUSY2/T2)
C DLOGB= DLOG(SUSY2/Z2)
DLOGT= DLOG(SQTM2/T2)
DLOGTB= DLOG(SQTBM2/T2)
DLOGB= DLOG(SQBM2/Z2)
DLOGA= DLOG(A2/Z2)
IF (IABS(IRC) .NE. 3) GO TO 30
XB2= XB**2
XT2= XT**2
AB2= AB**2
AT2= AT**2
XMU2= XMU**2
DLBF= FH(SBA2,SBB2)
DLTF= FH(STA2,STB2)
DLBG= FG(SBA2,SBB2)
DLTG= FG(STA2,STB2)
T4= TMASS2**4/SINB2
B4= BMASS**4/COSB2
DH11= FACT*(B4*(AB2*XB2*DLBG+2.D0*AB*XB*DLBF)+T4*XMU2*XT2*DLTG)
DH22= FACT*(T4*(AT2*XT2*DLTG+2.D0*AT*XT*DLTF)+B4*XMU2*XB2*DLBG)
DH12= -XMU*FACT*(B4*XB*(DLBF+AB*XB*DLBG)+T4*XT*(DLTF+AT*XT*DLTG))
DM11= S11+DH11+2.D0*FACT*B4*DLOGB
DM22= S22+DH22+2.D0*FACT*T2**2*DLOGT/SINB2
DM12= S12+DH12
GO TO 40
30 DNL22= 0.D0
C
C DNL22: MT**2 NON-LEADING LOG PIECE
C
DNL22= FACT*T2*Z2/(3.D0*SINB2)
CALL DELUD(IRC,TANB,TMASS1,AT,AB,DUD11,DUD22,DUD12,DUDPM)
CALL DELHM(IRC,TANB,TMASS2,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
DM11= S11+DHZ11+DUD11
1 +(FACT*(2.D0*B2**2/COSB2-Z2*B2)+FACBB*PB)*DLOGB
2 +FACBB*(PT*DLOGT+PF*DLOGF+P22*DLOGZ+PH12*DLOGA)
DM22= S22+DHZ22+DUD22+DNL22
1 +(FACT*(2.D0*T2**2/SINB2-Z2*T2)+FACTT*PT)*DLOGT
2 +FACTT*(PB*DLOGB+PF*DLOGF+P22*DLOGZ+PH12*DLOGA)
DM12= S12+DHZ12+DUD12
1 +SINB*COSB*((FACT1-FACTBT*PT)*DLOGT
2 +(FACT2-FACTBT*PB)*DLOGB-FACTBT*(PF*DLOGF+P12*DLOGZ)
3 +FACTBT*PH12P*DLOGA)
40 CALL CPEVEN(DM11,DM22,DM12,H1R,H2R,SIN2A,COS2A)
FACTG= COLOR*G2/(32.D0*PI**2)
FACTG2= G2/(48.D0*PI**2)
FACTGP= 5.D0*GP2*W2/(16.D0*PI**2)
XCG= COLOR*(GENS-1.D0)+GENS
DPML= SPM+FACTG*(2.D0*T2*B2/(W2*SINB2*COSB2)-T2/SINB2-B2/COSB2
1 +2.D0*W2/3.D0)*DLOGTB + FACTGP*DLOGW
2 +FACTG2*(XCG*DLOGFW-9.D0*DLOGW)
C CORRQ=-0.5D0*T2*(W2+A2*COSB2-4.D0*B2/COSB2)/(W2*SINB2)
C 1 -(W2*(3.D0-5.D0*SINB2)/9.D0+2.D0*A2*COSB2/3.D0
C 2 -0.5D0*B2*(4.D0-5.D0*SINB2)/COSB2)/SINB2
C 3 -0.5D0*A2*(A2*COSB2/3.D0
C 4 -B2*(4.D0*COSB2+3.D0*SINB2**2)/(2.D0*COSB2))/(W2*SINB2)
C 5 +B2*(A2*SINB2*DLOG(T2/A2)-2.D0*B2*DLOG(T2/B2)/SINB2)
C 6 /(W2*COSB2)
C CORRSQ=T2**3/(2.D0*W2*SINB2*SMT2)
C 1 +T2**2*(W2*(8.D0-5.D0*SINB2)-Z2*COS2B+A2*COSB2
C 2 -3.D0*B2*(2.D0+SINB2)/COSB2)/(6.D0*W2*SINB2*SMT2)
C DPMNL= FACTG*(CORRQ+CORRSQ)
C DPM= DPML+DPMNL+DHZPM
DPM= DPML+DHZPM
50 SIGN= 1.D0
IF (SIN2A .LT. 0.D0) SIGN= -1.D0
C COSA= DSQRT((1.D0+COS2A)/2.D0)
C SINA= SIGN*DSQRT((1.D0-COS2A)/2.D0)
C ALF= SIGN*DACOS(COSA)
ALF= 0.5D0*ATAN2(SIN2A,COS2A)
COSA= COS(ALF)
SINA= SIN(ALF)
BET= DATAN(TANB)
SINBPA= DSIN(BET+ALF)
SINBMA= DSIN(BET-ALF)
COSBPA= DCOS(BET+ALF)
COSBMA= DCOS(BET-ALF)
H(1)= DSQRT(H1R)
IF (H2R .LT. ZERO) GO TO 293
H(2)= DSQRT(H2R)
H(3)= AMASS
H(4)= 0.D0
IF (DPM .LT. ZERO) GO TO 294
H(4)= DSQRT(DPM)
CALL HLAMBG(IRC,TANB,AMASS,TMASS1,TMASS2,SUSY,AT,AB,DL)
CALL HIGGS3(IRC,H,DL)
RETURN
291 IERR=1
WRITE(6,991)
RETURN
292 IERR=2
WRITE(6,992)
RETURN
293 IERR= 3
WRITE(6,993)
RETURN
294 IERR= 4
WRITE(6,994)
991 FORMAT(1X,'ERROR: S-BOTTOM MASS SQUARED EIGENVALUE IS NEGATIVE')
992 FORMAT(1X,'ERROR: S-TOP MASS SQUARED EIGENVALUE IS NEGATIVE')
993 FORMAT(1X,'ERROR: LIGHT CP-EVEN SCALAR SQUARED-MASS IS NEGATIVE')
994 FORMAT(1X,'ERROR: CHARGED HIGGS SQUARED MASS IS NEGATIVE')
RETURN
END
SUBROUTINE CPEVEN(S11,S22,S12,H1,H2,SIN2A,COS2A)
IMPLICIT REAL*8(A-H,O-Z)
DISCR= DSQRT((S11-S22)**2+4.D0*S12**2)
H1= 0.5D0*(S11+S22+DISCR)
H2= 0.5D0*(S11+S22-DISCR)
SIN2A= 2.D0*S12/DISCR
COS2A= (S11-S22)/DISCR
RETURN
END
SUBROUTINE DELHM(IRC,TANB,TMASS,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
IMPLICIT REAL*8(A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
DATA PI/3.1415926535D0/
W2= WMASS*WMASS
Z2= ZMASS*ZMASS
AT2= AT*AT
AB2= AB*AB
XMU2= XMU*XMU
GSQ= G2+GP2
EU= 2.D0/3.D0
ED= -1.D0/3.D0
COLOR= 3.D0
CB2= COSB**2
SB2= SINB**2
T2= TMASS**2
B2= BMASS**2
T4= TMASS**4/SB2
B4= BMASS**4/CB2
T2D= TMASS**2/SB2
B2D= BMASS**2/CB2
XB= AB-XMU*TANB
XT= AT-XMU*COTB
YB= AB+XMU*COTB
YT= AT+XMU*TANB
XB2= XB**2
XT2= XT**2
Q2= SQK**2
U2= SQU**2
D2= SQD**2
UF= FF_HABER(U2,Q2)
DF= FF_HABER(D2,Q2)
UG= FG(Q2,U2)
DG= FG(Q2,D2)
UKP= UF+2.D0*EU*SINW2*(Q2-U2)*UG
DKP= DF-2.D0*ED*SINW2*(Q2-D2)*DG
UH= FH(Q2,U2)
DH= FH(Q2,D2)
UB= BP(Q2,U2)
DB= BP(Q2,D2)
FPBPU= UF+UB
FPBPD= DF+DB
FMBPU= UF-UB
FMBPD= DF-DB
HUD= HP(Q2,U2,D2)
FUD= FP(Q2,U2,D2)
FACT= COLOR*G2/(16.D0*PI**2*W2)
DHZPM= 0.5D0*FACT*(XMU2*(T4*UF+B4*DF+2.D0*T2D*B2D*HUD)
1 -T2D*B2D*(AB2*DF+AT2*UF+2.D0*AT*AB*HUD+FUD*(XMU2-AT*AB)**2)
2 -W2*B2D*(XMU2*FPBPD-AB2*FMBPD)
3 -W2*T2D*(XMU2*FPBPU-AT2*FMBPU))
IF (IABS(IRC) .NE. 2) GO TO 10
TQ2= STA2
BQ2= SBA2
U2= STB2
D2= SBB2
UF= FF_HABER(U2,TQ2)
DF= FF_HABER(D2,BQ2)
UG= FG(TQ2,U2)
DG= FG(BQ2,D2)
UKP= UF+2.D0*EU*SINW2*(TQ2-U2)*UG
DKP= DF-2.D0*ED*SINW2*(BQ2-D2)*DG
UH= FH(TQ2,U2)
DH= FH(BQ2,D2)
UB= BP(TQ2,U2)
DB= BP(BQ2,D2)
10 DHZ11= FACT*(B4*AB*XB*(2.D0*DH+AB*XB*DG)+T4*XMU2*XT2*UG
1 +Z2*(B2*AB*(XB*DKP-AB*DB)+T2*XMU*COTB*(XT*UKP-XMU*COTB*UB)))
DHZ22= FACT*(T4*AT*XT*(2.D0*UH+AT*XT*UG)+B4*XMU2*XB2*DG
1 +Z2*(T2*AT*(XT*UKP-AT*UB)+B2*XMU*TANB*(XB*DKP-XMU*TANB*DB)))
DHZ12= -FACT*(B4*XMU*XB*(DH+AB*XB*DG)+T4*XMU*XT*(UH+AT*XT*UG)
1 -0.5D0*Z2*(T2*COTB*((XMU2+AT2)*UB-XT*YT*UKP)
2 +B2*TANB*((XMU2+AB2)*DB-XB*YB*DKP)))
RETURN
END
SUBROUTINE DELUD(IRC,TANB,TMASS,AT,AB,DHZ11,DHZ22,DHZ12,DHZPM)
IMPLICIT REAL*8(A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
DATA PI/3.1415926535D0/
SINB2= SINB**2
COSB2= COSB**2
W2= WMASS*WMASS
Z2= ZMASS*ZMASS
T2= TMASS**2
B2= BMASS**2
Q2= SQK**2
U2= SQU**2
D2= SQD**2
EU= 2.D0/3.D0
ED= -1.D0/3.D0
COLOR= 3.D0
FACT= COLOR*G2*Z2/(16.D0*PI**2*W2)
FACTG= COLOR*G2/(64.D0*PI**2)
DHZPM= FACTG*(T2/SINB2+B2/COSB2-2.D0*W2/3.D0)*DLOG(Q2**2/(U2*D2))
IF (IABS(IRC) .EQ. 2) GO TO 50
DHZ11= -FACT*(B2*(0.5D0+2.D0*ED*SINW2)*DLOG(Q2/D2))
DHZ22= -FACT*(T2*(0.5D0-2.D0*EU*SINW2)*DLOG(Q2/U2))
DHZ12= 0.5D0*FACT*(B2*TANB*(0.5D0+2.D0*ED*SINW2)*DLOG(Q2/D2)
1 +T2*COTB*(0.5D0-2.D0*EU*SINW2)*DLOG(Q2/U2))
RETURN
50 DHZ11= -FACT*(B2*(0.5D0+2.D0*ED*SINW2)*DLOG(SBA2/SBB2))
DHZ22= -FACT*(T2*(0.5D0-2.D0*EU*SINW2)*DLOG(STA2/STB2))
DHZ12= 0.5D0*FACT*(B2*TANB*(0.5D0+2.D0*ED*SINW2)*DLOG(SBA2/SBB2)
1 +T2*COTB*(0.5D0-2.D0*EU*SINW2)*DLOG(STA2/STB2))
END
SUBROUTINE HLAMBG(IRC,TANB,AMASS,TM1,TM2,SUSY,AT,AB,DLT)
IMPLICIT REAL*8(A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/SQPARM/ SQM,SQK,SQU,SQD,XMU,STA2,STB2,SBA2,SBB2
COMMON/TEST/ D11,D12,D22,DP
DIMENSION DL1(7),DL2(7),DL3(7),DL4(7),DLT(7)
DATA PI/3.1415926535D0/
C
C DLN(3)= LAMBDA(3)+LAMBDA(4), N=1,...,4
C DLN(4)= LAMBDA(5)-LAMBDA(4), N=1,...,4
C
GSQ= G2+GP2
DLT(1)= 0.25D0*GSQ
DLT(2)= 0.25D0*GSQ
DLT(3)= -0.25D0*GSQ
DLT(4)= 0.5D0*G2
DLT(5)=0
DLT(6)=0
DLT(7)=0
IF (IRC .EQ. 0) RETURN
STEP= 0.D0
IF (AMASS .GE. ZMASS) STEP= 1.D0
A2= AMASS**2
COSW2= 1.D0-SINW2
T2= TM1**2
B2= BMASS**2
SUSY2= SUSY*SUSY
SQM2= SQM*SQM
SQTM2= DSQRT(STA2*STB2)
SQBM2= DSQRT(SBA2*SBB2)
W2= WMASS*WMASS
Z2= ZMASS**2
AT2= AT*AT
AB2= AB*AB
XMU2= XMU*XMU
V2= 4.D0*W2/G2
CB2= COSB**2
SB2= SINB**2
COS2B= COSB**2-SINB**2
COS2B2= COS2B**2
EU= 2.D0/3.D0
ED= -1.D0/3.D0
COLOR= 3.D0
GENS= 3.D0
PT= COLOR*(1.D0-4.D0*EU*SINW2+8.D0*EU**2*SINW2**2)
PB= COLOR*(1.D0+4.D0*ED*SINW2+8.D0*ED**2*SINW2**2)
PF= (GENS-1.D0)*(PT+PB)+2.D0*GENS*(1.D0-2.D0*SINW2+4.D0*SINW2**2)
P22= -2.D0*(32.D0*SINW2**2-54.D0*SINW2+27.D0)
P12= -2.D0*(8.D0*SINW2**2-6.D0*SINW2-9.D0)
P2H= -10.D0+2.D0*SINW2-2*SINW2**2
P2HP= 8.D0-22.D0*SINW2+10.D0*SINW2**2
P1H= -9.D0*COS2B2**2+(1.D0-2.D0*SINW2+2.D0*SINW2**2)*COS2B2
PH12= (P1H-P2H)*STEP
PH12P= (P1H+P2HP)*STEP
FACT= COLOR*G2/(16.D0*PI**2*W2*Z2)
FACT1= COLOR*G2*T2/(32.D0*PI**2*COSW2*SB2*Z2)
FACT2= COLOR*G2*B2/(32.D0*PI**2*COSW2*CB2*Z2)
FACT3= G2/(96.D0*PI**2*COSW2)
FACTC= COLOR*G2/(32.D0*PI**2)
FACTC2= G2/(48.D0*PI**2)
FACTPC= 5.D0*GP2/(16.D0*PI**2)
DLOGW= DLOG(SUSY2/W2)
DLOGZ= DLOG(SUSY2/Z2)
DLOGF= DLOG(SQM2/Z2)
DLOGFW= DLOG(SQM2/W2)
DLOGT= DLOG(SQTM2/T2)
DLOGB= DLOG(SQBM2/Z2)
DLOGA= DLOG(A2/Z2)
XCG= COLOR*(GENS-1.D0)+GENS
DL1(1)= 0.25D0*GSQ*(1.D0
1 +(FACT*(2.D0*B2**2/CB2-Z2*B2)/CB2+FACT3*PB)*DLOGB
2 +FACT3*(PF*DLOGF+P22*DLOGZ+PT*DLOGT+PH12*DLOGA))
DL1(2)= 0.25D0*GSQ*(1.D0
1 +(FACT*(2.D0*T2**2/SB2-Z2*T2)/SB2+FACT3*PT)*DLOGT
2 +FACT3*(PF*DLOGF+P22*DLOGZ+PB*DLOGB+PH12*DLOGA))
DL1(3)= -0.25D0*GSQ*(1.D0
1 -(FACT1-FACT3*PT)*DLOGT-(FACT2-FACT3*PB)*DLOGB
2 +FACT3*(PF*DLOGF+P12*DLOGZ-PH12P*DLOGA))
DL1(4)= 0.5D0*G2*(1.D0
1 +FACTC*(2.D0*T2*B2/(W2**2*SB2*CB2)+2.D0/3.D0
2 -(T2/SB2+B2/CB2)/W2)*DLOGT+FACTPC*DLOGW
3 +FACTC2*(XCG*DLOGFW-9.D0*DLOGW))
DL1(5)=0
DL1(6)=0
DL1(7)=0
AFACT= COLOR/(16.D0*PI**2)
HB2= 0.5D0*G2*B2/(W2*CB2)
HT2= 0.5D0*G2*TM2**2/(W2*SB2)
HB4= HB2*HB2
HT4= HT2*HT2
Q2= SQK**2
U2= SQU**2
D2= SQD**2
UF= FF_HABER(U2,Q2)
DF= FF_HABER(D2,Q2)
UG= FG(Q2,U2)
DG= FG(Q2,D2)
UK= 0.25D0*(GSQ*UF+2.D0*EU*GP2*(Q2-U2)*UG)
DK= 0.25D0*(GSQ*DF-2.D0*ED*GP2*(Q2-D2)*DG)
UH= FH(Q2,U2)
DH= FH(Q2,D2)
UB= BP(Q2,U2)
DB= BP(Q2,D2)
A11= -AFACT*(HT2*XMU2*UB+HB2*AB2*DB)
A22= -AFACT*(HT2*AT2*UB+HB2*XMU2*DB)
DL2(1)= 0.5D0*GSQ*A11
DL2(2)= 0.5D0*GSQ*A22
DL2(3)= -0.25D0*GSQ*(A11+A22)
DL2(4)= 0.5D0*G2*(A11+A22)
DL2(5)= 0.D0
DL2(6)= 0.D0
DL2(7)= 0.D0
DL3(1)= 2.D0*AFACT*(AB2*HB4*DH-HT2*XMU2*UK+HB2*AB2*DK)
DL3(2)= 2.D0*AFACT*(AT2*HT4*UH-HB2*XMU2*DK+HT2*AT2*UK)
DL3(3)= AFACT*(XMU2*(HB4*DH+HT4*UH)+HB2*(XMU2-AB2)*DK
1 +HT2*(XMU2-AT2)*UK)
DL3(4)= -0.5D0*AFACT*(4.D0*HB2*HT2*(AT*AB-XMU2)*HP(Q2,U2,D2)
1 +HB2*DF*(2.D0*(HT2*AB2-HB2*XMU2)+G2*(XMU2-AB2))
2 +HT2*UF*(2.D0*(HB2*AT2-HT2*XMU2)+G2*(XMU2-AT2)))
DL3(5)= 0.D0
DL3(6)= -AFACT*XMU*(HB4*AB*DH+HB2*AB*DK-HT2*AT*UK)
DL3(7)= -AFACT*XMU*(HT4*AT*UH+HT2*AT*UK-HB2*AB*DK)
DL4(1)= AFACT*(DG*(AB2*HB2)**2+UG*(XMU2*HT2)**2)
DL4(2)= AFACT*(UG*(AT2*HT2)**2+DG*(XMU2*HB2)**2)
DL4(3)= 2.D0*AFACT*XMU2*(AT2*HT4*UG+AB2*HB4*DG)
DL4(4)= -AFACT*(HT2*HB2*(XMU2-AT*AB)**2*FP(Q2,U2,D2))
DL4(5)= AFACT*XMU2*(AT2*HT4*UG+AB2*HB4*DG)
DL4(6)= -AFACT*XMU*(AT*XMU2*HT4*UG+AB*AB2*HB4*DG)
DL4(7)= -AFACT*XMU*(AB*XMU2*HB4*DG+AT*AT2*HT4*UG)
DO 10 I=1,7
10 DLT(I)= DL1(I)+DL2(I)+DL3(I)+DL4(I)
D11= A2*SB2+V2*(DLT(1)*CB2+DLT(5)*SB2+2.D0*SINB*COSB*DLT(6))
D22= A2*CB2+V2*(DLT(2)*SB2+DLT(5)*CB2+2.D0*SINB*COSB*DLT(7))
D12= -A2*SINB*COSB+V2*(DLT(3)*SINB*COSB+DLT(6)*CB2+DLT(7)*SB2)
DP= A2+0.5D0*V2*DLT(4)
RETURN
END
C
FUNCTION FF_HABER(X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
FF_HABER= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
FF_HABER= 1.D0/(X2-Y2)-X2*DLOG(X2/Y2)/(X2-Y2)**2
RETURN
50 FF_HABER= (-1.D0/2.D0+XYD/6.D0-XYD**2/12.D0+XYD**3/20.D0)/Y2
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF FF-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION FFD(X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
FFD= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
FFD= 1.D0-X2*DLOG(X2/Y2)/(X2-Y2)
RETURN
50 FFD= -XYD/2.D0+XYD**2/6.D0-XYD**3/12.D0+XYD**4/20.D0
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF FFD-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION FG(X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
FG= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
FG= 2.D0/(X2-Y2)**2-(X2+Y2)*DLOG(X2/Y2)/(X2-Y2)**3
RETURN
50 FG= (-1.D0/6.D0+XYD/6.D0-3.D0*XYD**2/20.D0
1 +2.D0*XYD**3/15.D0)/Y2**2
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF FG-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION FH(X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
FH= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
FH= DLOG(X2/Y2)/(X2-Y2)
RETURN
50 FH= (1.D0-XYD/2.D0+XYD**2/3.D0-XYD**3/4.D0+XYD**4/5.D0)/Y2
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF FH-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION BP(X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
BP= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
BP= 0.5D0*(X2+Y2-2.D0*X2*Y2*DLOG(X2/Y2)/(X2-Y2))/(X2-Y2)**2
RETURN
50 BP= (1.D0/6.D0-XYD/12.D0+XYD**2/20.D0-XYD**3/30.D0)/Y2
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF BP-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION FP(Z2,X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
FP= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
FP= (FF_HABER(X2,Z2)-FF_HABER(Y2,Z2))/(X2-Y2)
RETURN
50 FP= -FG(Y2,Z2)+XYD*FP1(Y2,Z2)+XYD**2*FP2(Y2,Z2)+XYD**3*FP3(Y2,Z2)
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF FP-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION HP(Z2,X2,Y2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
HP= 0.D0
IF (X2 .LE. 0.D0) GO TO 100
IF (Y2 .LE. 0.D0) GO TO 100
XYD= (X2-Y2)/Y2
DXYD= DABS(XYD)
IF (DXYD .LT. SMALL) GO TO 50
HP= (FFD(X2,Z2)-FFD(Y2,Z2))/(X2-Y2)
RETURN
50 HP= FF_HABER(Z2,Y2)+XYD*BP(Y2,Z2)+XYD**2*HP2(Y2,Z2)
. +XYD**3*HP3(Y2,Z2)
RETURN
100 WRITE(6,200)
200 FORMAT(1X,'ERROR: ARGUMENTS OF HP-FUNCTION MUST BE POSITIVE')
END
C
FUNCTION FP1(Y2,Z2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
YZD= (Y2-Z2)/Z2
DYZD= DABS(YZD)
IF (DYZD .LT. SMALL) GO TO 50
FP1= 0.5D0*(5.D0*Y2+Z2)/(Y2-Z2)**3
1 -Y2*(2.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**4
RETURN
50 FP1=(-1.D0/12.D0+YZD/15.D0-YZD**2/20.D0+4.D0*YZD**3/105.D0)/Z2**2
RETURN
END
C
FUNCTION FP2(Y2,Z2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
YZD= (Y2-Z2)/Z2
DYZD= DABS(YZD)
IF (DYZD .LT. SMALL) GO TO 50
FP2= (Z2**2-8.D0*Z2*Y2-17.D0*Y2**2)/(6.D0*(Y2-Z2)**4)
1 +Y2**2*(3.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**5
RETURN
50 FP2=(1.D0/20.D0-YZD/30.D0+3.D0*YZD**2/140.D0+YZD**3/70.D0)/Z2**2
RETURN
END
FUNCTION FP3(Y2,Z2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
YZD= (Y2-Z2)/Z2
DYZD= DABS(YZD)
IF (DYZD .LT. SMALL) GO TO 50
POLY= Z2**3-7.D0*Z2**2*Y2+29.D0*Z2*Y2**2+37.D0*Y2**3
FP3= POLY/(12.D0*(Y2-Z2)**5)
1 -Y2**3*(4.D0*Z2+Y2)*DLOG(Y2/Z2)/(Y2-Z2)**6
RETURN
50 FP3=(-1.D0/30.D0+2.D0*YZD/105.D0-3.D0*YZD**2/280.D0
1 +2.D0*YZD**3/315.D0)/Z2**2
RETURN
END
C
FUNCTION HP2(Y2,Z2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
YZD= (Y2-Z2)/Z2
DYZD= DABS(YZD)
IF (DYZD .LT. SMALL) GO TO 50
HP2= (Z2**2-5.D0*Z2*Y2-2.D0*Y2**2)/(6.D0*(Y2-Z2)**3)
1 +Y2**2*Z2*DLOG(Y2/Z2)/(Y2-Z2)**4
RETURN
50 HP2=(-1.D0/12.D0+YZD/30.D0-YZD**2/60.D0+YZD**3/105.D0)/Z2
RETURN
END
C
FUNCTION HP3(Y2,Z2)
IMPLICIT REAL*8(A-H,O-Z)
DATA SMALL/1.D-4/
YZD= (Y2-Z2)/Z2
DYZD= DABS(YZD)
IF (DYZD .LT. SMALL) GO TO 50
POLY= Z2**3-5.D0*Z2**2*Y2+13.D0*Z2*Y2**2+3.D0*Y2**3
HP3= POLY/(12.D0*(Y2-Z2)**4)
1 -Y2**3*Z2*DLOG(Y2/Z2)/(Y2-Z2)**5
RETURN
50 HP3=(1.D0/20.D0-YZD/60.D0+YZD**2/140.D0-YZD**3/280.D0)/Z2
RETURN
END
FUNCTION ALFS(QK)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON/QMASS/ TMPOLE
DATA PI/3.1415926535D0/
C
C ONE-LOOP STRONG COUPLING FOR QK>BMASS
C
AST= 0.11D0
ALFS= AST
IF (QK .GE. TMPOLE) F= 6.D0
IF (QK .LT. TMPOLE) F= 5.D0
IF (QK .LT. 5.D0) GO TO 10
DEN= 1.D0+AST*(11.D0-2.D0*F/3.D0)*DLOG(QK/TMPOLE)/(2.D0*PI)
ALFS= AST/DEN
RETURN
10 WRITE (6,100)
100 FORMAT(1X,'ERROR: STRONG COUPLING CONSTANT EVALUATED BELOW M(B)')
RETURN
END
FUNCTION TMASSR(Q,TMASS)
IMPLICIT REAL*8 (A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/QMASS/ TMPOLE
DATA PI/3.1415926535/
QP= TMPOLE
HB2= 0.5D0*G2*BMASS**2/(WMASS*COSB)**2
HT2= 0.5D0*G2*TMASS**2/(WMASS*SINB)**2
ALS= ALFS(QP)
ALST= ALS-3.D0*HT2/(64.D0*PI)
1 +GP2/(48.D0*PI)
2 -HB2/(64.D0*PI)
TMASSR= TMASS*(1.D0-ALST*DLOG(Q**2/TMASS**2)/PI)
RETURN
END
SUBROUTINE HIGGS3(IRC,H,DL)
IMPLICIT REAL*8(A-H,O-Z)
COMMON ZMASS,WMASS,SINW2,ALPHA,BMASS,G2,GP2,SINB,COSB,COTB
COMMON/ANG/ SINA,COSA,SIN2A,COS2A,SINBPA,COSBPA,SINBMA,COSBMA
COMMON/HINT3/HLAA,HHAA,HLHLHL,HHHLHL,HHHHHL,HHHHHH,
1 HHHPHM,HLHPHM
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DOUBLE PRECISION LA1,LA2,LA3,LA4,LA5,LA6,LA7
COMMON/HSELF_HDEC/LA1,LA2,LA3,LA4,LA5,LA6,LA7
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DIMENSION H(4),DL(7)
DATA PI/3.1415926535D0/
C
C DL(3)= LAMBDA(3)+LAMBDA(4)
C DL(4)= LAMBDA(5)-LAMBDA(4)
C
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
LA1 = DL(1)
LA2 = DL(2)
LA4 = DL(5)-DL(4)
LA3 = DL(3)-LA4
LA5 = DL(5)
LA6 = DL(6)
LA7 = DL(7)
C%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
V2= 4.D0*WMASS**2/G2
DL4NL= 2.D0*(H(4)**2-H(3)**2)/V2
COSW= DSQRT(1.D0-SINW2)
G= DSQRT(G2)
SINB2= SINB**2
COSB2= COSB**2
SINA2= SINA**2
COSA2= COSA**2
SINA3= SINA**3
COSA3= COSA**3
COS2B= COSB2-SINB2
IF (IRC .EQ. 0) GO TO 50
FACN= 2.D0*WMASS/G
HLAA= FACN*(DL(1)*SINA*COSB*SINB2-DL(2)*COSA*SINB*COSB2
1 -(DL(3)+DL(5))*(COSA*SINB**3-SINA*COSB**3)
2 +2.D0*DL(5)*SINBMA-DL(6)*SINB*(COSB*SINBPA+SINA*COS2B)
3 -DL(7)*COSB*(COSA*COS2B-SINB*SINBPA))
HHAA= -FACN*(DL(1)*COSA*COSB*SINB2+DL(2)*SINA*SINB*COSB2
1 +(DL(3)+DL(5))*(SINA*SINB**3+COSA*COSB**3)
2 -2.D0*DL(5)*COSBMA-DL(6)*SINB*(COSB*COSBPA+COSA*COS2B)
3 +DL(7)*COSB*(SINB*COSBPA+SINA*COS2B))
HHHLHL= -3.D0*FACN*(DL(1)*COSA*SINA2*COSB+DL(2)*SINA*COSA2*SINB
1 +(DL(3)+DL(5))*(SINA3*SINB+COSA3*COSB-2.D0*COSBMA/3.D0)
2 -DL(6)*SINA*(COSB*COS2A+COSA*COSBPA)
3 +DL(7)*COSA*(SINB*COS2A+SINA*COSBPA))
HHHHHL= 3.D0*FACN*(DL(1)*SINA*COSB*COSA2-DL(2)*COSA*SINB*SINA2
1 +(DL(3)+DL(5))*(SINA3*COSB-COSA3*SINB+2.D0*SINBMA/3.D0)
2 -DL(6)*COSA*(COSB*COS2A-SINA*SINBPA)
3 -DL(7)*SINA*(SINB*COS2A+COSA*SINBPA))
HHHHHH= -3.D0*FACN*(DL(1)*COSB*COSA3+DL(2)*SINB*SINA3
1 +(DL(3)+DL(5))*SINA*COSA*SINBPA
2 +DL(6)*COSA2*(3.D0*SINA*COSB+COSA*SINB)
3 +DL(7)*SINA2*(3.D0*COSA*SINB+SINA*COSB))
HLHLHL= 3.D0*FACN*(DL(1)*COSB*SINA3-DL(2)*SINB*COSA3
1 +(DL(3)+DL(5))*SINA*COSA*COSBPA
2 -DL(6)*SINA2*(3.D0*COSA*COSB-SINA*SINB)
3 +DL(7)*COSA2*(3.D0*SINA*SINB-COSA*COSB))
HHHPHM= HHAA-FACN*COSBMA*DL(4)
HLHPHM= HLAA-FACN*SINBMA*DL(4)
C
C THESE COUPLINGS INCLUDE NON-LEADING LOG CONTRIBUTIONS
C WHICH ARE TAKEN TO BE THE SAME AS IN THE CORRECTIONS
C TO THE CHARGED HIGGS MASS SQUARED.
C
C HHHPM= HHAA-FACN*COSBMA*DL4NL
C HLHPM= HLAA-FACN*SINBMA*DL4NL
RETURN
50 FAC= -G*WMASS
FAN= -0.5D0*G*ZMASS/COSW
HHHPHM= FAC*COSBMA-FAN*COS2B*COSBPA
HLHPHM= FAC*SINBMA+FAN*COS2B*SINBPA
HHHHHH= 3.D0*FAN*COS2A*COSBPA
HLHLHL= 3.D0*FAN*COS2A*SINBPA
HHHHHL= -FAN*(2.D0*SIN2A*COSBPA+COS2A*SINBPA)
HHHLHL= FAN*(2.D0*SIN2A*SINBPA-COS2A*COSBPA)
HHAA= -FAN*COS2B*COSBPA
HLAA= FAN*COS2B*SINBPA
RETURN
END

BIN
zzz/haber.o Normal file
View File

Binary file not shown.

18801
zzz/hdecay.f Normal file
View File

File diff suppressed because it is too large Load Diff

125
zzz/hdecay.in Normal file
View File

@@ -0,0 +1,125 @@
SLHAIN = 0
SLHAOUT = 1
COUPVAR = 0
HIGGS = 5
OMIT ELW = 0
SM4 = 0
FERMPHOB = 0
2HDM = 0
MODEL = 1
INPUT_SC = 0
TGBET = 20.0D0
MABEG = 1400.D0
MAEND = 1400.D0
NMA = 1
********************* hMSSM (MODEL = 10) *********************************
MHL = 125.D0
**************************************************************************
ALS(MZ) = 0.1180D0
MSBAR(2) = 0.0935D0
MCBAR(3) = 0.986D0
MBBAR(MB)= 4.180D0
******** scale KAPPA*M_H used in H -> qq for SM **************************
KAPPA = 1.0D0
******** input values at scale KAPPA*M_H for SM (INPUT_SC = 1) ***********
ALS(K*MH)= 0.112633399716595D0
MS(K*MH) = 0.05781871905029032D0
MC(K*MH) = 0.636152217701909D0
MB(K*MH) = 2.78715048261491D0
**************************************************************************
MT = 172.5D0
MTAU = 1.77682D0
MMUON = 0.1056583715D0
1/ALPHA = 132.3489045D0
GF = 1.16436D-5
GAMW = 2.085D0
GAMZ = 2.4952D0
MZ = 91.1876D0
MW = 80.379D0
VTB = 0.9991D0
VTS = 0.0404D0
VTD = 0.00867D0
VCB = 0.0412D0
VCS = 0.97344D0
VCD = 0.22520D0
VUB = 0.00351D0
VUS = 0.22534D0
VUD = 0.97427D0
********************* 4TH GENERATION *************************************
SCENARIO FOR ELW. CORRECTIONS TO H -> GG (EVERYTHING IN GEV):
GG_ELW = 1: MTP = 500 MBP = 450 MNUP = 375 MEP = 450
GG_ELW = 2: MBP = MNUP = MEP = 600 MTP = MBP+50*(1+LOG(M_H/115)/5)
GG_ELW = 1
MTP = 500.D0
MBP = 450.D0
MNUP = 375.D0
MEP = 450.D0
************************** 2 Higgs Doublet Model *************************
TYPE: 1 (I), 2 (II), 3 (lepton-specific), 4 (flipped)
PARAM: 1 (masses), 2 (lambda_i)
PARAM = 1
TYPE = 2
********************
TGBET2HDM= 20.0D0
M_12^2 = 25600.D0
******************** PARAM=1:
ALPHA_H = -0.14D0
MHL = 125.D0
MHH = 210.D0
MHA = 130.D0
MH+- = 130.D0
******************** PARAM=2:
LAMBDA1 = 2.6885665050462264D0
LAMBDA2 = 0.000156876030254505681D0
LAMBDA3 = 0.46295674052962260D0
LAMBDA4 = 0.96605498373771792D0
LAMBDA5 = -0.88138084173680198D0
**************************************************************************
GUT M1 = 0
SUSYSCALE= 2000.D0
MU = 1000.D0
M1 = 1000.D0
M2 = 1000.D0
MGLUINO = 2500.D0
MSL1 = 2000.D0
MER1 = 2000.D0
MQL1 = 1500.D0
MUR1 = 1500.D0
MDR1 = 1500.D0
MSL = 2000.D0
MER = 2000.D0
MSQ = 1500.D0
MUR = 1500.D0
MDR = 1500.D0
AL = 2850.D0
AU = 2850.D0
AD = 2850.D0
ON-SHELL = 0
ON-SH-WZ = 0
IPOLE = 0
OFF-SUSY = 0
INDIDEC = 0
NF-GG = 5
IGOLD = 0
MPLANCK = 2.4D18
MGOLD = 1.D-13
******************* VARIATION OF HIGGS COUPLINGS *************************
ELWK = 0
CW = 1.D0
CZ = 1.D0
Ctau = 1.D0
Cmu = 1.D0
Ct = 1.D0
Cb = 1.D0
Cc = 1.D0
Cs = 1.D0
Cgaga = 0.D0
Cgg = 0.D0
CZga = 0.D0
********************* 4TH GENERATION *************************************
Ctp = 0.D0
Cbp = 0.D0
Cnup = 0.D0
Cep = 0.D0

BIN
zzz/hdecay.o Normal file
View File

Binary file not shown.

1380
zzz/hgaga.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/hgaga.o Normal file
View File

Binary file not shown.

95310
zzz/hgg.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/hgg.o Normal file
View File

Binary file not shown.

2346
zzz/hsqsq.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/hsqsq.o Normal file
View File

Binary file not shown.

35
zzz/makefile Normal file
View File

@@ -0,0 +1,35 @@
OBJS = hdecay.o haber.o hsqsq.o susylha.o hgaga.o dmb.o \
elw.o hgg.o h2hh.o
#OBJS = hdecay.o haber.o hsqsq.o
FFLAGS =
#FFLAGS = -std=gnu
#FFLAGS = -ffpe-trap=invalid,overflow,zero
FC=gfortran
#FFLAGS = -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -Wall -fno-silent
#FC=g77
#FFLAGS = -fno-emulate-complex -fno-automatic -ffixed-line-length-none -ffast-math -march=pentiumpro -malign-double -Wall -fno-silent
#FFLAGS = -Wall -fno-silent
#FC=f77
#FFLAGS= -pc 64 -g77libs
#FC=pgf77
.f.o:
$(FC) -c $(FFLAGS) $*.f
hdecay: $(OBJS)
$(FC) $(FFLAGS) $(OBJS) -o run
clean:
rm -f $(OBJS)

BIN
zzz/run Normal file
View File

Binary file not shown.

205
zzz/slha.in Normal file
View File

@@ -0,0 +1,205 @@
#
BLOCK DCINFO # Decay Program information
1 HDECAY # decay calculator
2 4.41 # version number
#
BLOCK MODSEL # Model selection
1 0 # General MSSM
#
BLOCK SMINPUTS # Standard Model inputs
2 1.16637000E-05 # G_F [GeV^-2]
3 1.19000000E-01 # alpha_S(M_Z)^MSbar
4 9.11534900E+01 # M_Z pole mass
5 4.16159779E+00 # mb(mb)^MSbar
6 1.72500000E+02 # mt pole mass
7 1.77684000E+00 # mtau pole mass
#
BLOCK MASS # Mass Spectrum
# PDG code mass particle
24 8.03695100E+01 # W+
25 1.10151996E+02 # h
35 1.19951749E+02 # H
36 1.15000000E+02 # A
37 1.38017169E+02 # H+
5 4.49000000E+00 # b-quark pole mass calculated from mb(mb)_Msbar
1000001 1.03810708E+03 # ~d_L
2000001 1.03670286E+03 # ~d_R
1000002 1.03499846E+03 # ~u_L
2000002 1.03581228E+03 # ~u_R
1000003 1.03810708E+03 # ~s_L
2000003 1.03670286E+03 # ~s_R
1000004 1.03499846E+03 # ~c_L
2000004 1.03581228E+03 # ~c_R
1000005 1.01091038E+03 # ~b_1
2000005 1.06308067E+03 # ~b_2
1000006 9.76923458E+02 # ~t_1
2000006 1.11056069E+03 # ~t_2
1000011 1.00114917E+03 # ~e_L
2000011 1.00092237E+03 # ~e_R
1000012 9.97925219E+02 # ~nu_eL
1000013 1.00114917E+03 # ~mu_L
2000013 1.00092237E+03 # ~mu_R
1000014 9.97925219E+02 # ~nu_muL
1000015 9.74959961E+02 # ~tau_1
2000015 1.02645246E+03 # ~tau_2
1000016 9.97925219E+02 # ~nu_tauL
1000021 1.00000000E+03 # ~g
1000022 4.75964920E+02 # ~chi_10
1000023 9.43088027E+02 # ~chi_20
1000025 -1.00209173E+03 # ~chi_30
1000035 1.06031253E+03 # ~chi_40
1000024 9.42814590E+02 # ~chi_1+
1000037 1.06019770E+03 # ~chi_2+
#
BLOCK NMIX # Neutralino Mixing Matrix
1 1 9.97966204E-01 # N_11
1 2 -4.66726555E-03 # N_12
1 3 5.69483013E-02 # N_13
1 4 -2.85506993E-02 # N_14
2 1 4.62842694E-02 # N_21
2 2 1.52950098E+01 # N_22
2 3 -1.10580686E+01 # N_23
2 4 1.04682517E+01 # N_24
3 1 1.98730411E-02 # N_31
3 2 -1.38080423E+00 # N_32
3 3 -3.55210408E+01 # N_33
3 4 -3.56004713E+01 # N_34
4 1 3.90676900E-02 # N_41
4 2 -1.80646883E+01 # N_42
4 3 -1.24480914E+01 # N_43
4 4 1.31490664E+01 # N_44
#
BLOCK UMIX # Chargino Mixing Matrix U
1 1 -6.87450932E-01 # U_11
1 2 7.26230829E-01 # U_12
2 1 7.26230829E-01 # U_21
2 2 6.87450932E-01 # U_22
#
BLOCK VMIX # Chargino Mixing Matrix V
1 1 -7.26230829E-01 # V_11
1 2 6.87450932E-01 # V_12
2 1 6.87450932E-01 # V_21
2 2 7.26230829E-01 # V_22
#
BLOCK STOPMIX # Stop Mixing Matrix
1 1 7.03221471E-01 # cos(theta_t)
1 2 -7.10970860E-01 # sin(theta_t)
2 1 7.10970860E-01 # -sin(theta_t)
2 2 7.03221471E-01 # cos(theta_t)
#
BLOCK SBOTMIX # Sbottom Mixing Matrix
1 1 6.17260639E-01 # cos(theta_b)
1 2 7.86758733E-01 # sin(theta_b)
2 1 -7.86758733E-01 # -sin(theta_b)
2 2 6.17260639E-01 # cos(theta_b)
#
BLOCK STAUMIX # Stau Mixing Matrix
1 1 7.05547320E-01 # cos(theta_tau)
1 2 7.08662811E-01 # sin(theta_tau)
2 1 -7.08662811E-01 # -sin(theta_tau)
2 2 7.05547320E-01 # cos(theta_tau)
#
BLOCK ALPHA # Higgs mixing
-8.46891780E-01 # Mixing angle in the neutral Higgs boson sector
#
BLOCK HMIX Q= 1.00000000E+03 # DRbar Higgs Parameters
1 9.97518350E+02 # mu(Q)
2 3.00000000E+01 # tanbeta(Q)
#
BLOCK VCKMIN # CKM mixing
1 2.25300000E-01 # lambda
2 8.07721184E-01 # A
3 1.35553045E-01 # rhobar
4 3.50178700E-01 # etabar
#
BLOCK AU Q= 1.00000000E+03 # The trilinear couplings
1 1 1.00000000E+03 # A_u(Q) DRbar
2 2 1.00000000E+03 # A_c(Q) DRbar
3 3 1.00000000E+03 # A_t(Q) DRbar
#
BLOCK AD Q= 1.00000000E+03 # The trilinear couplings
1 1 1.00000000E+03 # A_d(Q) DRbar
2 2 1.00000000E+03 # A_s(Q) DRbar
3 3 1.00000000E+03 # A_b(Q) DRbar
#
BLOCK AE Q= 1.00000000E+03 # The trilinear couplings
1 1 1.00000000E+03 # A_e(Q) DRbar
2 2 1.00000000E+03 # A_mu(Q) DRbar
3 3 1.00000000E+03 # A_tau(Q) DRbar
#
BLOCK MSOFT Q= 1.00000000E+03 # The soft SUSY breaking masses at the scale Q
1 4.77273747E+02 # M_1(Q)
2 9.94631334E+02 # M_2(Q)
31 1.00000000E+03 # AMEL1
33 1.00000000E+03 # AMEL
34 1.00000000E+03 # AMER1
36 1.00000000E+03 # AMER
41 1.00000000E+03 # AMQL1
43 1.00000000E+03 # AMSQ
44 1.00000000E+03 # AMUR1
46 1.00000000E+03 # AMUR
47 1.00000000E+03 # AMDR1
49 1.00000000E+03 # AMDR
#
# PDG Width
DECAY 25 9.48341651E-01 # h decays
# BR NDA ID1 ID2
8.76108956E-01 2 5 -5 # BR(h -> b bb )
1.21536597E-01 2 -15 15 # BR(h -> tau+ tau- )
4.30421740E-04 2 -13 13 # BR(h -> mu+ mu- )
2.93874954E-04 2 3 -3 # BR(h -> s sb )
4.93821194E-05 2 4 -4 # BR(h -> c cb )
1.50205007E-03 2 21 21 # BR(h -> g g )
4.75927719E-06 2 22 22 # BR(h -> gam gam )
6.26715520E-07 2 22 23 # BR(h -> Z gam )
6.71255816E-05 2 24 -24 # BR(h -> W+ W- )
6.20668162E-06 2 23 23 # BR(h -> Z Z )
#
# PDG Width
DECAY 35 7.74246095E-01 # H decays
# BR NDA ID1 ID2
8.69351424E-01 2 5 -5 # BR(H -> b bb )
1.26712007E-01 2 -15 15 # BR(H -> tau+ tau- )
4.48640947E-04 2 -13 13 # BR(H -> mu+ mu- )
2.89953079E-04 2 3 -3 # BR(H -> s sb )
8.28568366E-05 2 4 -4 # BR(H -> c cb )
2.74646096E-03 2 21 21 # BR(H -> g g )
3.46084748E-06 2 22 22 # BR(H -> gam gam )
2.40010881E-06 2 23 22 # BR(H -> Z gam )
3.25706553E-04 2 24 -24 # BR(H -> W+ W- )
3.70715592E-05 2 23 23 # BR(H -> Z Z )
1.64655456E-08 2 25 25 # BR(H -> h h )
3.68139015E-10 2 36 36 # BR(H -> A A )
1.83954996E-09 2 23 36 # BR(H -> Z A )
#
# PDG Width
DECAY 36 1.72365381E+00 # A decays
# BR NDA ID1 ID2
8.72868395E-01 2 5 -5 # BR(A -> b bb )
1.24362939E-01 2 -15 15 # BR(A -> tau+ tau- )
4.39955591E-04 2 -13 13 # BR(A -> mu+ mu- )
2.92757844E-04 2 3 -3 # BR(A -> s sb )
7.18029685E-08 2 4 -4 # BR(A -> c cb )
2.03547069E-03 2 21 21 # BR(A -> g g )
4.05508136E-07 2 22 22 # BR(A -> gam gam )
4.35653932E-09 2 23 22 # BR(A -> Z gam )
8.30830844E-10 2 23 25 # BR(A -> Z h )
#
# PDG Width
DECAY 37 2.60841310E-01 # H+ decays
# BR NDA ID1 ID2
7.68732277E-03 2 4 -5 # BR(H+ -> c bb )
9.86423482E-01 2 -15 16 # BR(H+ -> tau+ nu_tau )
3.48913690E-03 2 -13 14 # BR(H+ -> mu+ nu_mu )
5.50052917E-05 2 2 -5 # BR(H+ -> u bb )
1.10244759E-04 2 2 -3 # BR(H+ -> u sb )
2.17210561E-03 2 4 -3 # BR(H+ -> c sb )
1.67366428E-06 2 6 -5 # BR(H+ -> t bb )
3.47733878E-05 2 24 25 # BR(H+ -> W+ h )
2.62558523E-05 2 24 36 # BR(H+ -> W+ A )
#
# PDG Width
DECAY 6 1.37656261E+00 # top decays
# BR NDA ID1 ID2
9.80297410E-01 2 5 24 # BR(t -> b W+ )
1.97025899E-02 2 5 37 # BR(t -> b H+ )

207
zzz/slha.out Normal file
View File

@@ -0,0 +1,207 @@
#
BLOCK DCINFO # Decay Program information
1 HDECAY # decay calculator
2 6.61 # version number
#
BLOCK MODSEL # Model selection
1 0 # General MSSM
#
BLOCK SMINPUTS # Standard Model inputs
2 1.16436000E-05 # G_F [GeV^-2]
3 1.18000000E-01 # alpha_S(M_Z)^MSbar
4 9.11876000E+01 # M_Z pole mass
5 4.18000000E+00 # mb(mb)^MSbar
6 1.72500000E+02 # mt pole mass
7 1.77682000E+00 # mtau pole mass
#
BLOCK MASS # Mass Spectrum
# PDG code mass particle
24 8.03790000E+01 # W+
25 1.22091417E+02 # h
35 1.39999281E+03 # H
36 1.40000000E+03 # A
37 1.40206311E+03 # H+
5 4.83187528E+00 # b-quark pole mass calculated from mb(mb)_Msbar
1000001 1.58199636E+03 # ~d_L
2000001 1.58104214E+03 # ~d_R
1000002 1.57988521E+03 # ~u_L
2000002 1.58043611E+03 # ~u_R
1000003 1.58199636E+03 # ~s_L
2000003 1.58104214E+03 # ~s_R
1000004 1.57988521E+03 # ~c_L
2000004 1.58043611E+03 # ~c_R
1000005 1.56976807E+03 # ~b_1
2000005 1.59318328E+03 # ~b_2
1000006 1.45653519E+03 # ~t_1
2000006 1.70597225E+03 # ~t_2
1000011 2.00057284E+03 # ~e_L
2000011 2.00046123E+03 # ~e_R
1000012 1.99896552E+03 # ~nu_eL
1000013 2.00057284E+03 # ~mu_L
2000013 2.00046123E+03 # ~mu_R
1000014 1.99896552E+03 # ~nu_muL
1000015 1.99288693E+03 # ~tau_1
2000015 2.00811973E+03 # ~tau_2
1000016 1.99896552E+03 # ~nu_tauL
1000021 2.50000000E+03 # ~g
1000022 9.33342182E+02 # ~chi_10
1000023 1.00000000E+03 # ~chi_20
1000025 -1.00187182E+03 # ~chi_30
1000035 1.06852964E+03 # ~chi_40
1000024 9.41849119E+02 # ~chi_1+
1000037 1.06105693E+03 # ~chi_2+
#
BLOCK NMIX # Neutralino Mixing Matrix
1 1 3.31445803E-01 # N_11
1 2 -1.86655806E+00 # N_12
1 3 1.56630756E+00 # N_13
1 4 -1.47154361E+00 # N_14
2 1 4.72238309E-01 # N_21
2 2 -1.86655806E+00 # N_22
2 3 -9.18351611E-03 # N_23
2 4 -4.59175777E-04 # N_24
3 1 1.44418764E-02 # N_31
3 2 -1.86655806E+00 # N_32
3 3 -4.88887475E+01 # N_33
3 4 -4.89899011E+01 # N_34
4 1 3.36077874E-01 # N_41
4 2 -1.86655806E+00 # N_42
4 3 -1.43315228E+00 # N_43
4 4 1.52172299E+00 # N_44
#
BLOCK UMIX # Chargino Mixing Matrix U
1 1 -6.87804806E-01 # U_11
1 2 7.25895687E-01 # U_12
2 1 7.25895687E-01 # U_21
2 2 6.87804806E-01 # U_22
#
BLOCK VMIX # Chargino Mixing Matrix V
1 1 -7.25895687E-01 # V_11
1 2 6.87804806E-01 # V_12
2 1 6.87804806E-01 # V_21
2 2 7.25895687E-01 # V_22
#
BLOCK STOPMIX # Stop Mixing Matrix
1 1 8.85268849E-01 # cos(theta_t)
1 2 -4.65079632E-01 # sin(theta_t)
2 1 4.65079632E-01 # -sin(theta_t)
2 2 8.85268849E-01 # cos(theta_t)
#
BLOCK SBOTMIX # Sbottom Mixing Matrix
1 1 9.99331773E-01 # cos(theta_b)
1 2 3.65514406E-02 # sin(theta_b)
2 1 -3.65514406E-02 # -sin(theta_b)
2 2 9.99331773E-01 # cos(theta_b)
#
BLOCK STAUMIX # Stau Mixing Matrix
1 1 7.04511499E-01 # cos(theta_tau)
1 2 7.09692573E-01 # sin(theta_tau)
2 1 -7.09692573E-01 # -sin(theta_tau)
2 2 7.04511499E-01 # cos(theta_tau)
#
BLOCK ALPHA # Higgs mixing
-5.06526633E-02 # Mixing angle in the neutral Higgs boson sector
#
BLOCK HMIX Q= 2.00000000E+03 # DRbar Higgs Parameters
1 9.97520972E+02 # mu(Q)
2 2.00000000E+01 # tanbeta(Q)
#
BLOCK VCKMIN # CKM mixing
1 2.25340000E-01 # lambda
2 8.11373158E-01 # A
3 1.36480850E-01 # rhobar
4 3.52575528E-01 # etabar
#
BLOCK AU Q= 2.00000000E+03 # The trilinear couplings
1 1 2.85000000E+03 # A_u(Q) DRbar
2 2 2.85000000E+03 # A_c(Q) DRbar
3 3 2.85000000E+03 # A_t(Q) DRbar
#
BLOCK AD Q= 2.00000000E+03 # The trilinear couplings
1 1 2.85000000E+03 # A_d(Q) DRbar
2 2 2.85000000E+03 # A_s(Q) DRbar
3 3 2.85000000E+03 # A_b(Q) DRbar
#
BLOCK AE Q= 2.00000000E+03 # The trilinear couplings
1 1 2.85000000E+03 # A_e(Q) DRbar
2 2 2.85000000E+03 # A_mu(Q) DRbar
3 3 2.85000000E+03 # A_tau(Q) DRbar
#
BLOCK MSOFT Q= 2.00000000E+03 # The soft SUSY breaking masses at the scale Q
1 1.00000000E+03 # M_1(Q)
2 9.94639277E+02 # M_2(Q)
31 2.00000000E+03 # AMEL1
33 2.00000000E+03 # AMEL
34 2.00000000E+03 # AMER1
36 2.00000000E+03 # AMER
41 1.50000000E+03 # AMQL1
43 1.50000000E+03 # AMSQ
44 1.50000000E+03 # AMUR1
46 1.50000000E+03 # AMUR
47 1.50000000E+03 # AMDR1
49 1.50000000E+03 # AMDR
#
# PDG Width
DECAY 25 3.27677855E-03 # h decays
# BR NDA ID1 ID2
5.84439891E-01 2 5 -5 # BR(h -> b bb )
7.91536893E-02 2 -15 15 # BR(h -> tau+ tau- )
2.80247850E-04 2 -13 13 # BR(h -> mu+ mu- )
2.61623593E-04 2 3 -3 # BR(h -> s sb )
3.47700269E-02 2 4 -4 # BR(h -> c cb )
8.92189090E-02 2 21 21 # BR(h -> g g )
2.79721166E-03 2 22 22 # BR(h -> gam gam )
1.50120393E-03 2 22 23 # BR(h -> Z gam )
1.85594271E-01 2 24 -24 # BR(h -> W+ W- )
2.19829253E-02 2 23 23 # BR(h -> Z Z )
#
# PDG Width
DECAY 35 6.02245566E+00 # H decays
# BR NDA ID1 ID2
7.76031197E-01 2 5 -5 # BR(H -> b bb )
1.97479964E-01 2 -15 15 # BR(H -> tau+ tau- )
6.98309748E-04 2 -13 13 # BR(H -> mu+ mu- )
3.19696226E-04 2 3 -3 # BR(H -> s sb )
3.66153289E-07 2 4 -4 # BR(H -> c cb )
2.50195866E-02 2 6 -6 # BR(H -> t tb )
4.80070857E-05 2 21 21 # BR(H -> g g )
8.96816036E-08 2 22 22 # BR(H -> gam gam )
3.84151982E-08 2 23 22 # BR(H -> Z gam )
6.93198861E-05 2 24 -24 # BR(H -> W+ W- )
3.44233620E-05 2 23 23 # BR(H -> Z Z )
2.99002702E-04 2 25 25 # BR(H -> h h )
#
# PDG Width
DECAY 36 6.02484744E+00 # A decays
# BR NDA ID1 ID2
7.75857898E-01 2 5 -5 # BR(A -> b bb )
1.97417474E-01 2 -15 15 # BR(A -> tau+ tau- )
6.98084296E-04 2 -13 13 # BR(A -> mu+ mu- )
3.19641102E-04 2 3 -3 # BR(A -> s sb )
3.58866758E-07 2 4 -4 # BR(A -> c cb )
2.54209822E-02 2 6 -6 # BR(A -> t tb )
2.15904440E-04 2 21 21 # BR(A -> g g )
1.38798804E-07 2 22 22 # BR(A -> gam gam )
1.42204869E-07 2 23 22 # BR(A -> Z gam )
6.93760810E-05 2 23 25 # BR(A -> Z h )
#
# PDG Width
DECAY 37 6.23841285E+00 # H+ decays
# BR NDA ID1 ID2
1.35729786E-03 2 4 -5 # BR(H+ -> c bb )
1.90940064E-01 2 -15 16 # BR(H+ -> tau+ nu_tau )
6.75179639E-04 2 -13 14 # BR(H+ -> mu+ nu_mu )
9.85133070E-06 2 2 -5 # BR(H+ -> u bb )
1.57229933E-05 2 2 -3 # BR(H+ -> u sb )
3.73414326E-08 2 4 -1 # BR(H+ -> c db )
2.93730208E-04 2 4 -3 # BR(H+ -> c sb )
8.06598987E-01 2 6 -5 # BR(H+ -> t bb )
3.98182643E-05 2 6 -3 # BR(H+ -> t sb )
1.81100458E-06 2 6 -1 # BR(H+ -> t db )
6.75008298E-05 2 24 25 # BR(H+ -> W+ h )
7.84494259E-12 2 24 36 # BR(H+ -> W+ A )
#
# PDG Width
DECAY 6 1.31459883E+00 # top decays
# BR NDA ID1 ID2
1.00000000E+00 2 5 24 # BR(t -> b W+ )

2055
zzz/susylha.f Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
zzz/susylha.o Normal file
View File

Binary file not shown.