@@ -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)
|
||||
|
||||
Binary file not shown.
BIN
Binary file not shown.
BIN
Binary file not shown.
+100
@@ -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
|
||||
+284
@@ -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
Binary file not shown.
+989
@@ -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
Binary file not shown.
+18801
File diff suppressed because it is too large
Load Diff
+125
@@ -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
|
||||
Binary file not shown.
+1380
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
+2346
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
@@ -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)
|
||||
+205
@@ -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
@@ -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
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Reference in New Issue
Block a user