Index: trunk/src/models/parameters.MSSM_Hgg.f90 =================================================================== --- trunk/src/models/parameters.MSSM_Hgg.f90 (revision 8231) +++ trunk/src/models/parameters.MSSM_Hgg.f90 (revision 8232) @@ -1,4177 +1,4177 @@ ! parameters.MSSM_Hgg.omega.f90 ! ! Copyright (C) 1999-2019 by ! Wolfgang Kilian ! Thorsten Ohl ! Juergen Reuter ! with contributions from ! cf. main AUTHORS file ! ! WHIZARD is free software; you can redistribute it and/or modify it ! under the terms of the GNU General Public License as published by ! the Free Software Foundation; either version 2, or (at your option) ! any later version. ! ! WHIZARD is distributed in the hope that it will be useful, but ! WITHOUT ANY WARRANTY; without even the implied warranty of ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ! GNU General Public License for more details. ! ! You should have received a copy of the GNU General Public License ! along with this program; if not, write to the Free Software ! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! module parameters_mssm_hgg use kinds use constants implicit none private public :: import_from_whizard, model_update_alpha_s real(kind=default), dimension(70), save, public :: mass = 0, width = 0 real(kind=default), parameter, public :: GeV = 1.0_default real(kind=default), parameter, public :: MeV = GeV / 1000 real(kind=default), parameter, public :: keV = MeV / 1000 real(kind=default), parameter, public :: TeV = GeV * 1000 real(kind=default), save, public :: & alpha = 1.0_default / 137.0359895_default, & sin2thw = 0.23124_default integer, save, public :: & sign1 = +1, sign2 = +1, sign3 = +1, sign4 = +1 real(kind=default), save, public :: & sigch1 = +1, sigch2 = +1 complex(kind=default), save, private :: vev real(kind=default), public, save :: sind = 0._default, & cosd = 1._default, sinckm12 = 0.223_default, & sinckm13 = 0.004_default, sinckm23 = 0.04_default, & tana = 30._default, tanb = 30._default, as = 0._default real(kind=default), public, save :: cos2am2b, sin2am2b, sinamb, & sinapb, cosamb, cosapb, cos4be, sin4be, sin4al, sin2al, sin2be, cos2al, & cos2be, cosbe, sinbe, cosal, sinal, costhw, sinthw real(kind=default), public, save :: q_lep, q_up, q_down complex(kind=default), public, save :: gcc, qchar, qdwn, qup, qlep, & gz, g, e, gs complex(kind=default), save, public :: xia = 1, xi0 = 1, xipm = 1 complex(kind=default), dimension(2), public, save :: gncdwn complex(kind=default), dimension(2), public, save :: gncup complex(kind=default), dimension(2), public, save :: gnclep complex(kind=default), dimension(2), public, save :: gncneu complex(kind=default), public, save :: g_yuk_ch1_sn1_2_c, & g_yuk_ch1_sn1_2, g_yuk_ch1_sn1_1_c, g_yuk_ch1_sn1_1, g_yuk_ch2_sn1_2_c, & g_yuk_ch2_sn1_2, g_yuk_ch2_sn1_1_c, g_yuk_ch2_sn1_1 complex(kind=default), public, save :: g_yuk_ch2_su1_1_2_c, & g_yuk_ch2_su1_1_2, g_yuk_ch2_sd1_1_2_c, g_yuk_ch2_sd1_1_2, & g_yuk_ch1_su1_1_2_c, g_yuk_ch1_su1_1_2, g_yuk_ch1_sd1_1_2_c, & g_yuk_ch1_sd1_1_2, g_yuk_ch2_su1_1_1_c, g_yuk_ch2_su1_1_1, & g_yuk_ch2_sd1_1_1_c, g_yuk_ch2_sd1_1_1, g_yuk_ch1_su1_1_1_c, & g_yuk_ch1_su1_1_1, g_yuk_ch1_sd1_1_1_c, g_yuk_ch1_sd1_1_1, & g_yuk_ch2_su1_2_2_c, g_yuk_ch2_su1_2_2, g_yuk_ch2_sd1_2_2_c, & g_yuk_ch2_sd1_2_2, g_yuk_ch1_su1_2_2_c, g_yuk_ch1_su1_2_2, & g_yuk_ch1_sd1_2_2_c, g_yuk_ch1_sd1_2_2, g_yuk_ch2_su1_2_1_c, & g_yuk_ch2_su1_2_1, g_yuk_ch2_sd1_2_1_c, g_yuk_ch2_sd1_2_1, & g_yuk_ch1_su1_2_1_c, g_yuk_ch1_su1_2_1, g_yuk_ch1_sd1_2_1_c, & g_yuk_ch1_sd1_2_1 complex(kind=default), public, save :: g_yuk_n4_sn1_3_c, g_yuk_n4_sn1_3, & g_yuk_n4_sn1_2_c, g_yuk_n4_sn1_2, g_yuk_n4_sn1_1_c, g_yuk_n4_sn1_1, & g_yuk_n3_sn1_3_c, g_yuk_n3_sn1_3, g_yuk_n3_sn1_2_c, g_yuk_n3_sn1_2, & g_yuk_n3_sn1_1_c, g_yuk_n3_sn1_1, g_yuk_n2_sn1_3_c, g_yuk_n2_sn1_3, & g_yuk_n2_sn1_2_c, g_yuk_n2_sn1_2, g_yuk_n2_sn1_1_c, g_yuk_n2_sn1_1, & g_yuk_n1_sn1_3_c, g_yuk_n1_sn1_3, g_yuk_n1_sn1_2_c, g_yuk_n1_sn1_2, & g_yuk_n1_sn1_1_c, g_yuk_n1_sn1_1, g_yuk_ch2_sl2_3_c, g_yuk_ch2_sl2_3, & g_yuk_ch2_sl1_3_c, g_yuk_ch2_sl1_3, g_yuk_ch2_sl1_2_c, g_yuk_ch2_sl1_2, & g_yuk_ch2_sl1_1_c, g_yuk_ch2_sl1_1, g_yuk_ch1_sl2_3_c, g_yuk_ch1_sl2_3, & g_yuk_ch1_sl1_3_c, g_yuk_ch1_sl1_3, g_yuk_ch1_sl1_2_c, g_yuk_ch1_sl1_2, & g_yuk_ch1_sl1_1_c, g_yuk_ch1_sl1_1, ghsu2sd2_3_3_c, ghsu2sd2_3_3, & ghsu2sd1_3_3_c, ghsu2sd1_3_3, ghsu1sd2_3_3_c, ghsu1sd2_3_3, ghsu1sd1_3_3_c, & ghsu1sd1_3_3, ghsu2sd2_3_2_c, ghsu2sd2_3_2, ghsu2sd1_3_2_c, ghsu2sd1_3_2, & ghsu1sd2_3_2_c, ghsu1sd2_3_2, ghsu1sd1_3_2_c, ghsu1sd1_3_2, ghsu2sd2_3_1_c, & ghsu2sd2_3_1, ghsu2sd1_3_1_c, ghsu2sd1_3_1, ghsu1sd2_3_1_c complex(kind=default), public, save :: ghsu1sd2_3_1, ghsu1sd1_3_1_c, & ghsu1sd1_3_1, ghsu2sd2_2_3_c, ghsu2sd2_2_3, ghsu2sd1_2_3_c, ghsu2sd1_2_3, & ghsu1sd2_2_3_c, ghsu1sd2_2_3, ghsu1sd1_2_3_c, ghsu1sd1_2_3, ghsu1sd1_2_2_c, & ghsu1sd1_2_2, ghsu1sd1_2_1_c, ghsu1sd1_2_1, ghsu2sd2_1_3_c, ghsu2sd2_1_3, & ghsu2sd1_1_3_c, ghsu2sd1_1_3, ghsu1sd2_1_3_c, ghsu1sd2_1_3, ghsu1sd1_1_3_c, & ghsu1sd1_1_3, ghsu1sd1_1_2_c, ghsu1sd1_1_2, ghsu1sd1_1_1_c, ghsu1sd1_1_1, & gh2sn1sn1_3, gh1sn1sn1_3, ghsnsl2_3_c, ghsnsl2_3, ghsnsl1_3_c, ghsnsl1_3, & gh2sd2sd2_3, gh2su2su2_3, gh2sl2sl2_3, gh1sd2sd2_3, gh1su2su2_3, gh1sl2sl2_3 complex(kind=default), public, save :: g_yuk_n4_sd2_2_c, g_yuk_n4_sd2_2, & g_yuk_n4_su2_2_c, g_yuk_n4_su2_2, g_yuk_n4_sl2_2_c, g_yuk_n4_sl2_2, & g_yuk_n3_sd2_2_c, g_yuk_n3_sd2_2, g_yuk_n3_su2_2_c, g_yuk_n3_su2_2, & g_yuk_n3_sl2_2_c, g_yuk_n3_sl2_2, g_yuk_n2_sd2_2_c, g_yuk_n2_sd2_2, & g_yuk_n2_su2_2_c, g_yuk_n2_su2_2, g_yuk_n2_sl2_2_c, g_yuk_n2_sl2_2, & g_yuk_n1_sd2_2_c, g_yuk_n1_sd2_2, g_yuk_n1_su2_2_c, g_yuk_n1_su2_2, & g_yuk_n1_sl2_2_c, g_yuk_n1_sl2_2, g_yuk_n4_sd1_2_c, g_yuk_n4_sd1_2, & g_yuk_n4_su1_2_c, g_yuk_n4_su1_2, g_yuk_n4_sl1_2_c, g_yuk_n4_sl1_2, & g_yuk_n3_sd1_2_c, g_yuk_n3_sd1_2, g_yuk_n3_su1_2_c, g_yuk_n3_su1_2, & g_yuk_n3_sl1_2_c, g_yuk_n3_sl1_2, g_yuk_n2_sd1_2_c, g_yuk_n2_sd1_2, & g_yuk_n2_su1_2_c, g_yuk_n2_su1_2, g_yuk_n2_sl1_2_c, g_yuk_n2_sl1_2, & g_yuk_n1_sd1_2_c, g_yuk_n1_sd1_2, g_yuk_n1_su1_2_c, g_yuk_n1_su1_2, & g_yuk_n1_sl1_2_c, g_yuk_n1_sl1_2, g_yuk_n4_sd2_1_c, g_yuk_n4_sd2_1, & g_yuk_n4_su2_1_c, g_yuk_n4_su2_1, g_yuk_n4_sl2_1_c, g_yuk_n4_sl2_1, & g_yuk_n3_sd2_1_c, g_yuk_n3_sd2_1, g_yuk_n3_su2_1_c, g_yuk_n3_su2_1, & g_yuk_n3_sl2_1_c, g_yuk_n3_sl2_1, g_yuk_n2_sd2_1_c, g_yuk_n2_sd2_1, & g_yuk_n2_su2_1_c, g_yuk_n2_su2_1, g_yuk_n2_sl2_1_c, g_yuk_n2_sl2_1, & g_yuk_n1_sd2_1_c, g_yuk_n1_sd2_1, g_yuk_n1_su2_1_c, g_yuk_n1_su2_1, & g_yuk_n1_sl2_1_c, g_yuk_n1_sl2_1, g_yuk_n4_sd1_1_c, g_yuk_n4_sd1_1, & g_yuk_n4_su1_1_c, g_yuk_n4_su1_1, g_yuk_n4_sl1_1_c, g_yuk_n4_sl1_1, & g_yuk_n3_sd1_1_c, g_yuk_n3_sd1_1, g_yuk_n3_su1_1_c, g_yuk_n3_su1_1, & g_yuk_n3_sl1_1_c, g_yuk_n3_sl1_1, g_yuk_n2_sd1_1_c, g_yuk_n2_sd1_1, & g_yuk_n2_su1_1_c, g_yuk_n2_su1_1, g_yuk_n2_sl1_1_c, g_yuk_n2_sl1_1, & g_yuk_n1_sd1_1_c, g_yuk_n1_sd1_1, g_yuk_n1_su1_1_c, g_yuk_n1_su1_1, & g_yuk_n1_sl1_1_c, g_yuk_n1_sl1_1 complex(kind=default), public, save :: gh2sd2sd1_3, gh2su2su1_3, & gh2sl2sl1_3, gh1sd2sd1_3, gh1su2su1_3, gh1sl2sl1_3, & gh2sd1sd2_3, gh2su1su2_3, gh2sl1sl2_3, gh1sd1sd2_3, & gh1su1su2_3, gh1sl1sl2_3, gh2sd1sd1_3, & gh2su1su1_3, gh2sl1sl1_3, gh1sd1sd1_3, gh1su1su1_3, gh1sl1sl1_3, & gh2sn1sn1_2, gh1sn1sn1_2, ghsnsl1_2_c, ghsnsl1_2, & gh2sd2sd2_2, gh2su2su2_2, gh2sl2sl2_2, & gh1sd2sd2_2, gh1su2su2_2, gh1sl2sl2_2, & gh2sd1sd1_2, gh2su1su1_2, gh2sl1sl1_2, gh1sd1sd1_2, & gh1su1su1_2, gh1sl1sl1_2, gh2sn1sn1_1, gh1sn1sn1_1 !!! complex(kind=default), public, save :: ghsnsl2_1, ghsnsl2_1_c & !!! ghsnsl2_2_c, ghsnsl2_2, complex(kind=default), public, save :: ghsnsl1_1_c, ghsnsl1_1, & gh2sd2sd2_1, gh2su2su2_1, gh2sl2sl2_1, & gh1sd2sd2_1, gh1su2su2_1, gh1sl2sl2_1, & gh2sd1sd1_1, gh2su1su1_1, gh2sl1sl1_1, gh1sd1sd1_1, & gh1su1su1_1, gh1sl1sl1_1 complex(kind=default), public, save :: gasl2sl2_3, gasl2sl1_3, & gasl1sl2_3, gasl1sl1_3 !!! , gasl2sl2_2, gasl2sl1_2, gasl1sl2_2, & !!! gasl1sl1_2, gasl2sl2_1, gasl2sl1_1, gasl1sl2_1, gasl1sl1_1 complex(kind=default), public, save :: gasu2su2_3, gasu2su1_3, & gasu1su2_3, gasu1su1_3 !!! , gasu2su2_2, gasu2su1_2, gasu1su2_2, & !!! gasu1su1_2, gasu2su2_1, gasu2su1_1, gasu1su2_1, gasu1su1_1 complex(kind=default), public, save :: gasd2sd2_3, gasd2sd1_3, & gasd1sd2_3, gasd1sd1_3 !!! , gasd2sd2_2, gasd2sd1_2, gasd1sd2_2, & !!! gasd1sd1_2, gasd2sd2_1, gasd2sd1_1, gasd1sd2_1, gasd1sd1_1 complex(kind=default), public, save :: g_h43_321susd, g_h43_312susd, & g_h43_322susd, g_h43_311susd, g_h43_221susd, g_h43_212susd, g_h43_222susd, & g_h43_211susd, g_h43_121susd complex(kind=default), public, save :: g_h43_112susd, g_h43_122susd, & g_h43_111susd, g_h42_321susd, g_h42_312susd, g_h42_322susd, g_h42_311susd, & g_h42_211susd, g_h42_111susd, g_h41_321susd, g_h41_312susd, g_h41_322susd, & g_h41_311susd, g_h41_211susd, g_h41_111susd, & g_h4312slsn, g_h4311slsn, g_h3321slsl, g_h3312slsl, g_h2321slsl, & g_h2312slsl, g_h2322slsl, g_h2311slsl, g_h2311snsn, g_h1321slsl, & g_h1312slsl, g_h1322slsl, g_h1311slsl, g_h1311snsn, g_h3321sdsd, & g_h3312sdsd, g_h3321susu, g_h3312susu, g_h2321sdsd, g_h2312sdsd, & g_h2322sdsd, g_h2311sdsd, g_h2321susu, g_h2312susu, g_h2322susu, & g_h2311susu, g_h1321sdsd, g_h1312sdsd, g_h1322sdsd, g_h1311sdsd, & g_h1321susu, g_h1312susu, g_h1322susu, g_h1311susu, g_h4211slsn, & g_h2222slsl, g_h2211slsl complex(kind=default), public, save :: g_h2211snsn, & g_h1222slsl, g_h1211slsl, g_h1211snsn, g_h2222sdsd, g_h2211sdsd, & g_h2222susu, g_h2211susu, g_h1222sdsd, g_h1211sdsd, g_h1222susu, & g_h1211susu, g_h4111slsn, g_h2122slsl, g_h2111slsl, g_h2111snsn, & g_h1122slsl, g_h1111slsl, g_h1111snsn, g_h2122sdsd, g_h2111sdsd, & g_h2122susu, g_h2111susu, g_h1122sdsd, g_h1111sdsd, & g_h1122susu, g_h1111susu, gnzn_4_4, gnzn_3_3, gnzn_2_2, & gnzn_1_1, rnch_42, lnch_42, rnc_42 complex(kind=default), public, save :: gcicih1_1_1, gcicih1_2_2, & gcicih1_3_3, gcicih1_4_4, gcicih2_1_1, gcicih2_2_2, gcicih2_3_3, & gcicih2_4_4, gcicia_1_1, gcicia_2_2, gcicia_3_3, gcicia_4_4 !!! complex(kind=default), public, save :: g_h3112susu, g_h3121susu, & !!! g_h3112sdsd, g_h3121sdsd, g_h3112slsl, g_h3121slsl, g_h3212susu, & !!! g_h3221susu, g_h3212sdsd, g_h3221sdsd, g_h3212slsl, g_h3221slsl, & !!! complex(kind=default), public, save :: g_h4112slsn, g_h4212slsn, & complex(kind=default), public, save :: lnc_42, rnch_41, & lnch_41, rnc_41, lnc_41, rnch_32, lnch_32, rnc_32, lnc_32, rnch_31, & lnch_31, rnc_31, lnc_31, rnch_22, lnch_22, rnc_22, lnc_22, rnch_21, & lnch_21, rnc_21, lnc_21, rnch_12, lnch_12, rnc_12, lnc_12, rnch_11, & lnch_11, rnc_11, lnc_11, rcn_24, lcn_24, rcn_23, lcn_23, rcn_22, & lcn_22, rcn_21, lcn_21 complex(kind=default), public, save :: gch1c_1_1, gch1c_2_2, & gch2c_1_1, gch2c_2_2, gcac_1_1, gcac_2_2 complex(kind=default), public, save :: rcn_14, lcn_14, & rcn_13, lcn_13, rcn_12, lcn_12, rcn_11, lcn_11, ap_22, vp_22, & ap_21, vp_21, ap_12, vp_12, ap_11, vp_11, pnna_44, snna_44, & pnnh2_44, snnh2_44, pnnh1_44 complex(kind=default), public, save :: snnh1_44, axial0_44, vector0_44, & pnna_34, snna_34, pnnh2_34, snnh2_34, pnnh1_34, & snnh1_34, axial0_34, vector0_34, pnna_33, snna_33, & pnnh2_33, snnh2_33, pnnh1_33, snnh1_33, axial0_33, vector0_33 complex(kind=default), public, save :: pnna_24, & snna_24, pnnh2_24, snnh2_24, pnnh1_24, snnh1_24, & axial0_24, vector0_24, pnna_23, snna_23, pnnh2_23, snnh2_23, & pnnh1_23, snnh1_23, axial0_23, vector0_23, pnna_22, snna_22, & pnnh2_22, snnh2_22, pnnh1_22, snnh1_22, axial0_22, vector0_22, & pnna_14, snna_14, pnnh2_14, snnh2_14, pnnh1_14, snnh1_14, & axial0_14, vector0_14, pnna_13, snna_13, pnnh2_13, snnh2_13, & pnnh1_13, snnh1_13, axial0_13, vector0_13, pnna_12, snna_12, & pnnh2_12 complex(kind=default), public, save :: snnh2_12, pnnh1_12, snnh1_12, & axial0_12, vector0_12, pnna_11, snna_11, pnnh2_11, snnh2_11, & pnnh1_11, snnh1_11, axial0_11, vector0_11, gglwsu2sd1_3_3_c, gglwsu1sd2_3_3_c, & gglwsu2sd2_3_3_c, gglwsu1sd1_3_3_c, gglwsu2sd1_3_3, gglwsu1sd2_3_3, & gglwsu2sd2_3_3, gglwsu1sd1_3_3, gglwsu2sd1_3_2_c, gglwsu1sd2_3_2_c, & gglwsu2sd2_3_2_c, gglwsu1sd1_3_2_c, gglwsu2sd1_3_2, gglwsu1sd2_3_2, & gglwsu2sd2_3_2, gglwsu1sd1_3_2, gglwsu2sd1_3_1_c, gglwsu1sd2_3_1_c, & gglwsu2sd2_3_1_c, gglwsu1sd1_3_1_c, gglwsu2sd1_3_1, gglwsu1sd2_3_1, & gglwsu2sd2_3_1, gglwsu1sd1_3_1, gglwsu2sd1_2_3_c, gglwsu1sd2_2_3_c, & gglwsu2sd2_2_3_c, gglwsu1sd1_2_3_c, gglwsu2sd1_2_3, gglwsu1sd2_2_3, & gglwsu2sd2_2_3, gglwsu1sd1_2_3, gglwsu2sd1_2_2_c, gglwsu1sd2_2_2_c, & gglwsu2sd2_2_2_c, gglwsu1sd1_2_2_c, gglwsu2sd1_2_2, gglwsu1sd2_2_2, & gglwsu2sd2_2_2, gglwsu1sd1_2_2, gglwsu2sd1_2_1_c, gglwsu1sd2_2_1_c, & gglwsu2sd2_2_1_c, gglwsu1sd1_2_1_c, gglwsu2sd1_2_1, gglwsu1sd2_2_1, & gglwsu2sd2_2_1, gglwsu1sd1_2_1, gglwsu2sd1_1_3_c, gglwsu1sd2_1_3_c, & gglwsu2sd2_1_3_c, gglwsu1sd1_1_3_c, gglwsu2sd1_1_3, gglwsu1sd2_1_3 complex(kind=default), public, save :: gglwsu2sd2_1_3, gglwsu1sd1_1_3, & gglwsu2sd1_1_2_c, gglwsu1sd2_1_2_c, gglwsu2sd2_1_2_c, gglwsu1sd1_1_2_c, & gglwsu2sd1_1_2, gglwsu1sd2_1_2, gglwsu2sd2_1_2, gglwsu1sd1_1_2, & gglwsu2sd1_1_1_c, gglwsu1sd2_1_1_c, gglwsu2sd2_1_1_c, gglwsu1sd1_1_1_c, & gglwsu2sd1_1_1, gglwsu1sd2_1_1, gglwsu2sd2_1_1, gglwsu1sd1_1_1, mix_sd322, & mix_sd321, mix_sd312, mix_sd311, mix_sd222, mix_sd221, mix_sd212, & mix_sd211, mix_sd122, mix_sd121, mix_sd112, mix_sd111, mix_su322, & mix_su321, mix_su312, mix_su311, mix_su222, mix_su221, mix_su212, & mix_su211, mix_su122, mix_su121, mix_su112, mix_su111, mix_sl322, & mix_sl321, mix_sl312, mix_sl311, mix_sl222, mix_sl221, mix_sl212, & mix_sl211, mix_sl122, mix_sl121, mix_sl112, mix_sl111, gglsd2sd1_3, & gglsd1sd2_3, gglsd2sd2_3, gglsd1sd1_3, gglsu2su1_3, gglsu1su2_3, & gglsu2su2_3, gglsu1su1_3, gglsd2sd1_2, gglsd1sd2_2, gglsd2sd2_2, & gglsd1sd1_2, gglsu2su1_2, gglsu1su2_2, gglsu2su2_2 complex(kind=default), public, save :: gglsu1su1_2, gglsd2sd1_1, & gglsd1sd2_1, gglsd2sd2_1, gglsd1sd1_1, gglsu2su1_1, gglsu1su2_1, & gglsu2su2_1, gglsu1su1_1, gglpsqsq, gglglsqsq, gzwpsu2sd1_3_3_c, & gzwpsu1sd2_3_3_c, gzwpsu2sd2_3_3_c, gzwpsu1sd1_3_3_c, gzwpsu2sd1_3_3, & gzwpsu1sd2_3_3, gzwpsu2sd2_3_3, gzwpsu1sd1_3_3, gpwpsu2sd1_3_3_c, & gpwpsu1sd2_3_3_c, gpwpsu2sd2_3_3_c, gpwpsu1sd1_3_3_c, gpwpsu2sd1_3_3, & gpwpsu1sd2_3_3, gpwpsu2sd2_3_3, gpwpsu1sd1_3_3, gzwpsu2sd1_3_2_c, & gzwpsu1sd2_3_2_c, gzwpsu2sd2_3_2_c, gzwpsu1sd1_3_2_c, gzwpsu2sd1_3_2, & gzwpsu1sd2_3_2, gzwpsu2sd2_3_2, gzwpsu1sd1_3_2, gpwpsu2sd1_3_2_c, & gpwpsu1sd2_3_2_c, gpwpsu2sd2_3_2_c, gpwpsu1sd1_3_2_c, gpwpsu2sd1_3_2, & gpwpsu1sd2_3_2, gpwpsu2sd2_3_2, gpwpsu1sd1_3_2, gzwpsu2sd1_3_1_c, & gzwpsu1sd2_3_1_c, gzwpsu2sd2_3_1_c, gzwpsu1sd1_3_1_c, gzwpsu2sd1_3_1, & gzwpsu1sd2_3_1, gzwpsu2sd2_3_1, gzwpsu1sd1_3_1, gpwpsu2sd1_3_1_c, & gpwpsu1sd2_3_1_c, gpwpsu2sd2_3_1_c, gpwpsu1sd1_3_1_c, gpwpsu2sd1_3_1, & gpwpsu1sd2_3_1, gpwpsu2sd2_3_1, gpwpsu1sd1_3_1, gzwpsu2sd1_2_3_c, & gzwpsu1sd2_2_3_c, gzwpsu2sd2_2_3_c, gzwpsu1sd1_2_3_c, gzwpsu2sd1_2_3, & gzwpsu1sd2_2_3, gzwpsu2sd2_2_3, gzwpsu1sd1_2_3, gpwpsu2sd1_2_3_c, & gpwpsu1sd2_2_3_c complex(kind=default), public, save :: gpwpsu2sd2_2_3_c, gpwpsu1sd1_2_3_c, & gpwpsu2sd1_2_3, gpwpsu1sd2_2_3, gpwpsu2sd2_2_3, gpwpsu1sd1_2_3, & gzwpsu2sd1_2_2_c, gzwpsu1sd2_2_2_c, gzwpsu2sd2_2_2_c, gzwpsu1sd1_2_2_c, & gzwpsu2sd1_2_2, gzwpsu1sd2_2_2, gzwpsu2sd2_2_2, gzwpsu1sd1_2_2, & gpwpsu2sd1_2_2_c, gpwpsu1sd2_2_2_c, gpwpsu2sd2_2_2_c, gpwpsu1sd1_2_2_c, & gpwpsu2sd1_2_2, gpwpsu1sd2_2_2, gpwpsu2sd2_2_2, gpwpsu1sd1_2_2, & gzwpsu2sd1_2_1_c, gzwpsu1sd2_2_1_c, gzwpsu2sd2_2_1_c, gzwpsu1sd1_2_1_c, & gzwpsu2sd1_2_1, gzwpsu1sd2_2_1, gzwpsu2sd2_2_1, gzwpsu1sd1_2_1, & gpwpsu2sd1_2_1_c, gpwpsu1sd2_2_1_c, gpwpsu2sd2_2_1_c, gpwpsu1sd1_2_1_c, & gpwpsu2sd1_2_1, gpwpsu1sd2_2_1, gpwpsu2sd2_2_1, gpwpsu1sd1_2_1, & gzwpsu2sd1_1_3_c, gzwpsu1sd2_1_3_c, gzwpsu2sd2_1_3_c, gzwpsu1sd1_1_3_c, & gzwpsu2sd1_1_3, gzwpsu1sd2_1_3, gzwpsu2sd2_1_3, gzwpsu1sd1_1_3, & gpwpsu2sd1_1_3_c, gpwpsu1sd2_1_3_c, gpwpsu2sd2_1_3_c, gpwpsu1sd1_1_3_c, & gpwpsu2sd1_1_3, gpwpsu1sd2_1_3, gpwpsu2sd2_1_3, gpwpsu1sd1_1_3, & gzwpsu2sd1_1_2_c, gzwpsu1sd2_1_2_c, gzwpsu2sd2_1_2_c, gzwpsu1sd1_1_2_c, & gzwpsu2sd1_1_2, gzwpsu1sd2_1_2, gzwpsu2sd2_1_2, gzwpsu1sd1_1_2, & gpwpsu2sd1_1_2_c, gpwpsu1sd2_1_2_c, gpwpsu2sd2_1_2_c, gpwpsu1sd1_1_2_c, & gpwpsu2sd1_1_2, gpwpsu1sd2_1_2, gpwpsu2sd2_1_2 complex(kind=default), public, save :: gpwpsu1sd1_1_2, gzwpsu2sd1_1_1_c, & gzwpsu1sd2_1_1_c, gzwpsu2sd2_1_1_c, gzwpsu1sd1_1_1_c, gzwpsu2sd1_1_1, & gzwpsu1sd2_1_1, gzwpsu2sd2_1_1, gzwpsu1sd1_1_1, gpwpsu2sd1_1_1_c, & gpwpsu1sd2_1_1_c, gpwpsu2sd2_1_1_c, gpwpsu1sd1_1_1_c, gpwpsu2sd1_1_1, & gpwpsu1sd2_1_1, gpwpsu2sd2_1_1, gpwpsu1sd1_1_1, gwzsl2sn_3_c, gwzsl1sn_3_c, & gwzsl2sn_3, gwzsl1sn_3, gpwsl2sn_3_c, gpwsl1sn_3_c, gpwsl2sn_3, gpwsl1sn_3, & gwwsd2sd1_3, gwwsd1sd2_3, gwwsd2sd2_3, gwwsd1sd1_3, gwwsu2su1_3, & gwwsu1su2_3, gwwsu2su2_3, gwwsu1su1_3, gwwsn1sn1_3, gwwsl2sl1_3, & gwwsl1sl2_3, gwwsl2sl2_3, gwwsl1sl1_3, gzpsd2sd1_3, gzpsd1sd2_3, & gzpsd2sd2_3, gzpsd1sd1_3, gzpsu2su1_3, gzpsu1su2_3, gzpsu2su2_3, & gzpsu1su1_3, gzpsl2sl1_3, gzpsl1sl2_3, gzpsl2sl2_3, gzpsl1sl1_3, & gzzsd2sd1_3, gzzsd1sd2_3, gzzsd2sd2_3, gzzsd1sd1_3, gzzsu2su1_3, & gzzsu1su2_3, gzzsu2su2_3, gzzsu1su1_3, gzzsn1sn1_3, gzzsl2sl1_3, & gzzsl1sl2_3, gzzsl2sl2_3, gzzsl1sl1_3, gwzsl2sn_2_c, gwzsl1sn_2_c, & gwzsl2sn_2, gwzsl1sn_2, gpwsl2sn_2_c, gpwsl1sn_2_c complex(kind=default), public, save :: gpwsl2sn_2, gpwsl1sn_2, & gwwsd2sd1_2, gwwsd1sd2_2, gwwsd2sd2_2, gwwsd1sd1_2, gwwsu2su1_2, & gwwsu1su2_2, gwwsu2su2_2, gwwsu1su1_2, gwwsn1sn1_2, gwwsl2sl1_2, & gwwsl1sl2_2, gwwsl2sl2_2, gwwsl1sl1_2, gzpsd2sd1_2, gzpsd1sd2_2, & gzpsd2sd2_2, gzpsd1sd1_2, gzpsu2su1_2, gzpsu1su2_2, gzpsu2su2_2, & gzpsu1su1_2, gzpsl2sl1_2, gzpsl1sl2_2, gzpsl2sl2_2, gzpsl1sl1_2, & gzzsd2sd1_2, gzzsd1sd2_2, gzzsd2sd2_2, gzzsd1sd1_2, gzzsu2su1_2, & gzzsu1su2_2, gzzsu2su2_2, gzzsu1su1_2, gzzsn1sn1_2, gzzsl2sl1_2, & gzzsl1sl2_2, gzzsl2sl2_2, gzzsl1sl1_2, gwzsl2sn_1_c, gwzsl1sn_1_c, & gwzsl2sn_1, gwzsl1sn_1, gpwsl2sn_1_c, gpwsl1sn_1_c, gpwsl2sn_1, gpwsl1sn_1, & gwwsd2sd1_1, gwwsd1sd2_1, gwwsd2sd2_1, gwwsd1sd1_1, gwwsu2su1_1, & gwwsu1su2_1, gwwsu2su2_1, gwwsu1su1_1, gwwsn1sn1_1, gwwsl2sl1_1, & gwwsl1sl2_1, gwwsl2sl2_1, gwwsl1sl1_1, gzpsd2sd1_1, gzpsd1sd2_1, & gzpsd2sd2_1, gzpsd1sd1_1, gzpsu2su1_1, gzpsu1su2_1, gzpsu2su2_1, & gzpsu1su1_1 complex(kind=default), public, save :: gzpsl2sl1_1, gzpsl1sl2_1, & gzpsl2sl2_1, gzpsl1sl1_1, gzzsd2sd1_1, gzzsd1sd2_1, gzzsd2sd2_1, & gzzsd1sd1_1, gzzsu2su1_1, gzzsu1su2_1, gzzsu2su2_1, gzzsu1su1_1, & gzzsn1sn1_1, gzzsl2sl1_1, gzzsl1sl2_1, gzzsl2sl2_1, gzzsl1sl1_1, gppsdsd, & gppsusu, gppslsl, gsl2_3snw_c, gsl1_3snw_c, gsl2_3snw, gsl1_3snw, & gsd2zsd1_3, gsd1zsd2_3, gsd2zsd2_3, gsd1zsd1_3, gsu2zsu1_3, gsu1zsu2_3, & gsu2zsu2_3, gsu1zsu1_3, gsn1zsn1_3, gsl2zsl1_3, gsl1zsl2_3, gsl2zsl2_3, & gsl1zsl1_3, gsl2_2snw_c, gsl1_2snw_c, gsl2_2snw, gsl1_2snw, gsd2zsd1_2, & gsd1zsd2_2, gsd2zsd2_2, gsd1zsd1_2, gsu2zsu1_2, gsu1zsu2_2, gsu2zsu2_2, & gsu1zsu1_2, gsn1zsn1_2, gsl2zsl1_2, gsl1zsl2_2, gsl2zsl2_2, gsl1zsl1_2, & gsl2_1snw_c, gsl1_1snw_c, gsl2_1snw, gsl1_1snw, gsd2zsd1_1, gsd1zsd2_1, & gsd2zsd2_1, gsd1zsd1_1, gsu2zsu1_1, gsu1zsu2_1, gsu2zsu2_1, gsu1zsu1_1, & gsn1zsn1_1, gsl2zsl1_1, gsl1zsl2_1 complex(kind=default), public, save :: gsl2zsl2_1, gsl1zsl1_1, & gs2ws1_3_3_c, gs1ws2_3_3_c, gs2ws2_3_3_c, gs1ws1_3_3_c, gs2ws1_3_3, & gs1ws2_3_3, gs2ws2_3_3, gs1ws1_3_3, gs2ws1_3_2_c, gs1ws2_3_2_c, & gs2ws2_3_2_c, gs1ws1_3_2_c, gs2ws1_3_2, gs1ws2_3_2, gs2ws2_3_2, & gs1ws1_3_2, gs2ws1_3_1_c, gs1ws2_3_1_c, gs2ws2_3_1_c, gs1ws1_3_1_c, & gs2ws1_3_1, gs1ws2_3_1, gs2ws2_3_1, gs1ws1_3_1, gs2ws1_2_3_c, & gs1ws2_2_3_c, gs2ws2_2_3_c, gs1ws1_2_3_c, gs2ws1_2_3, gs1ws2_2_3, & gs2ws2_2_3, gs1ws1_2_3, gs2ws1_2_2_c, gs1ws2_2_2_c, gs2ws2_2_2_c, & gs1ws1_2_2_c, gs2ws1_2_2, gs1ws2_2_2, gs2ws2_2_2, gs1ws1_2_2, & gs2ws1_2_1_c, gs1ws2_2_1_c, gs2ws2_2_1_c, gs1ws1_2_1_c, gs2ws1_2_1, & gs1ws2_2_1, gs2ws2_2_1, gs1ws1_2_1, gs2ws1_1_3_c, gs1ws2_1_3_c, & gs2ws2_1_3_c, gs1ws1_1_3_c, gs2ws1_1_3, gs1ws2_1_3, gs2ws2_1_3, & gs1ws1_1_3, gs2ws1_1_2_c, gs1ws2_1_2_c, gs2ws2_1_2_c, gs1ws1_1_2_c, & gs2ws1_1_2, gs1ws2_1_2, gs2ws2_1_2, gs1ws1_1_2, gs2ws1_1_1_c, & gs1ws2_1_1_c complex(kind=default), public, save :: gs2ws2_1_1_c, gs1ws1_1_1_c, & gs2ws1_1_1, gs1ws2_1_1, gs2ws2_1_1, gs1ws1_1_1, g_yuk15_3, g_yuk14_3, & g_yuk13_3, g_yuk12_3, g_yuk11_3, g_yuk10_3, g_yuk9_3, g_yuk8_3, & g_yuk7_3, g_yuk6_3, g_yuk15_2, g_yuk14_2, g_yuk13_2, g_yuk12_2, & g_yuk11_2, g_yuk10_2, g_yuk9_2, g_yuk8_2, g_yuk7_2, g_yuk6_2, g_yuk15_1, & g_yuk14_1, g_yuk13_1, g_yuk12_1, g_yuk11_1, g_yuk10_1, g_yuk9_1, & g_yuk8_1, g_yuk7_1, g_yuk6_1, ghhww, gh2h2ww, gh1h1ww, gaaww, ghh2wp, & ghawp, ghawz, gh2az, gh1az, ghaw, ghh1wp, ghh2wz, ghh1wz, ghphmpz, & ghphmpp, ghphmzz, gh2h2zz, gh1h1zz, gaazz, ghhp, ghhz, gh2zz, gh1zz, & ghh2w, ghh1w, gh2ww, gh1ww, gh4_11, gh4_10, gh4_9, gh4_8, gh4_7, gh4_6, & gh4_5, gh4_4 complex(kind=default), public, save :: gh4_3, gh4_2, gh4_1, gh3_8, & gh3_7, gh3_6, gh3_5, gh3_4, gh3_3, gh3_2, gh3_1, mu, ad_3, au_3, al_3, & ad_2, au_2, al_2, ad_1, au_1, al_1, mv_22, mv_21, mv_12, mv_11, mu_22, & mu_21, mu_12, mu_11, mn_44, mn_43, mn_42, mn_41, mn_34, mn_33, mn_32, & mn_31, mn_24, mn_23, mn_22, mn_21, mn_14, mn_13, mn_12, mn_11 !!! complex(kind=default), public, save :: sinthsu3, & !!! sinthsu2, sinthsu1, sinthsd3, sinthsd2, sinthsd1, sinthsl3, sinthsl2, & !!! sinthsl1, costhsu3, costhsu2, costhsu1, costhsd3, costhsd2, costhsd1, & !!! costhsl3, costhsl2, costhsl1 complex(kind=default), public, save :: eta1, eta2, eta3, eta4 complex(kind=default), public, save :: eidelta, cosckm23, cosckm13, & cosckm12, vckm_33, vckm_32, vckm_31, vckm_23, vckm_22, vckm_21, vckm_13, & vckm_12, vckm_11, gpzww, gppww, gzzww, gw4, igwww, igzww, iqw, igs, & gssq complex(kind=default), public, save :: gccq_3_3_c, gccq_3_3, & gccq_3_2_c, gccq_3_2, gccq_3_1_c, gccq_3_1, gccq_2_3_c, gccq_2_3, & gccq_2_2_c, gccq_2_2, gccq_2_1_c, gccq_2_1, gccq_1_3_c, gccq_1_3, & gccq_1_2_c, gccq_1_2, gccq_1_1_c, gccq_1_1 complex(kind=default), dimension(2), public, save :: g_yuk_gsd2_3_c, & g_yuk_gsd2_3, g_yuk_gsu2_3_c, g_yuk_gsu2_3, g_yuk_gsd1_3_c, & g_yuk_gsd1_3, g_yuk_gsu1_3_c, g_yuk_gsu1_3, g_yuk_n4_sd2_3_c, & g_yuk_n4_sd2_3, g_yuk_n4_su2_3_c, g_yuk_n4_su2_3, g_yuk_n4_sl2_3_c, & g_yuk_n4_sl2_3, g_yuk_n3_sd2_3_c, g_yuk_n3_sd2_3, g_yuk_n3_su2_3_c, & g_yuk_n3_su2_3, g_yuk_n3_sl2_3_c, g_yuk_n3_sl2_3, g_yuk_n2_sd2_3_c, & g_yuk_n2_sd2_3, g_yuk_n2_su2_3_c, g_yuk_n2_su2_3, g_yuk_n2_sl2_3_c, & g_yuk_n2_sl2_3, g_yuk_n1_sd2_3_c, g_yuk_n1_sd2_3, g_yuk_n1_su2_3_c, & g_yuk_n1_su2_3, g_yuk_n1_sl2_3_c, g_yuk_n1_sl2_3, g_yuk_n4_sd1_3_c, & g_yuk_n4_sd1_3, g_yuk_n4_su1_3_c, g_yuk_n4_su1_3, g_yuk_n4_sl1_3_c, & g_yuk_n4_sl1_3, g_yuk_n3_sd1_3_c, g_yuk_n3_sd1_3, g_yuk_n3_su1_3_c, & g_yuk_n3_su1_3, g_yuk_n3_sl1_3_c, g_yuk_n3_sl1_3, g_yuk_n2_sd1_3_c, & g_yuk_n2_sd1_3, g_yuk_n2_su1_3_c, g_yuk_n2_su1_3, g_yuk_n2_sl1_3_c, & g_yuk_n2_sl1_3, g_yuk_n1_sd1_3_c, g_yuk_n1_sd1_3, g_yuk_n1_su1_3_c, & g_yuk_n1_su1_3, g_yuk_n1_sl1_3_c, g_yuk_n1_sl1_3 complex(kind=default), dimension(2), public, save :: g_yuk_ch2_su2_3_3_c, & g_yuk_ch2_su2_3_3, g_yuk_ch2_sd2_3_3_c, g_yuk_ch2_sd2_3_3, & g_yuk_ch2_su1_3_3_c, g_yuk_ch2_su1_3_3, g_yuk_ch2_sd1_3_3_c, & g_yuk_ch2_sd1_3_3, g_yuk_ch1_su2_3_3_c, g_yuk_ch1_su2_3_3, & g_yuk_ch1_sd2_3_3_c, g_yuk_ch1_sd2_3_3, g_yuk_ch1_su1_3_3_c, & g_yuk_ch1_su1_3_3, g_yuk_ch1_sd1_3_3_c, g_yuk_ch1_sd1_3_3, & g_yuk_ch2_su2_3_2_c, g_yuk_ch2_su2_3_2, g_yuk_ch2_sd2_3_2_c, & g_yuk_ch2_sd2_3_2, g_yuk_ch2_su1_3_2_c, g_yuk_ch2_su1_3_2, & g_yuk_ch2_sd1_3_2_c, g_yuk_ch2_sd1_3_2, g_yuk_ch1_su2_3_2_c, & g_yuk_ch1_su2_3_2, g_yuk_ch1_sd2_3_2_c, g_yuk_ch1_sd2_3_2, & g_yuk_ch1_su1_3_2_c, g_yuk_ch1_su1_3_2, g_yuk_ch1_sd1_3_2_c, & g_yuk_ch1_sd1_3_2, g_yuk_ch2_su2_3_1_c, g_yuk_ch2_su2_3_1, & g_yuk_ch2_sd2_3_1_c, g_yuk_ch2_sd2_3_1, g_yuk_ch2_su1_3_1_c, & g_yuk_ch2_su1_3_1, g_yuk_ch2_sd1_3_1_c, g_yuk_ch2_sd1_3_1, & g_yuk_ch1_su2_3_1_c, g_yuk_ch1_su2_3_1, g_yuk_ch1_sd2_3_1_c, & g_yuk_ch1_sd2_3_1, g_yuk_ch1_su1_3_1_c, g_yuk_ch1_su1_3_1, & g_yuk_ch1_sd1_3_1_c, g_yuk_ch1_sd1_3_1, g_yuk_ch2_su2_2_3_c, & g_yuk_ch2_su2_2_3, g_yuk_ch2_sd2_2_3_c, g_yuk_ch2_sd2_2_3, & g_yuk_ch2_su1_2_3_c, g_yuk_ch2_su1_2_3, g_yuk_ch2_sd1_2_3_c, & g_yuk_ch2_sd1_2_3, g_yuk_ch1_su2_2_3_c, g_yuk_ch1_su2_2_3, & g_yuk_ch1_sd2_2_3_c, g_yuk_ch1_sd2_2_3, g_yuk_ch1_su1_2_3_c, & g_yuk_ch1_su1_2_3, g_yuk_ch1_sd1_2_3_c, g_yuk_ch1_sd1_2_3, & g_yuk_ch2_su2_1_3_c, g_yuk_ch2_su2_1_3, g_yuk_ch2_sd2_1_3_c, & g_yuk_ch2_sd2_1_3, g_yuk_ch2_su1_1_3_c, g_yuk_ch2_su1_1_3, & g_yuk_ch2_sd1_1_3_c, g_yuk_ch2_sd1_1_3, g_yuk_ch1_su2_1_3_c, & g_yuk_ch1_su2_1_3, g_yuk_ch1_sd2_1_3_c, g_yuk_ch1_sd2_1_3, & g_yuk_ch1_su1_1_3_c, g_yuk_ch1_su1_1_3, g_yuk_ch1_sd1_1_3_c, & g_yuk_ch1_sd1_1_3, g_yuk_ch2_sn1_3_c, g_yuk_ch2_sn1_3, & g_yuk_ch1_sn1_3_c, g_yuk_ch1_sn1_3 complex(kind=default), dimension(2), public, save :: gcac_2_1, & gch2c_2_1, gch1c_2_1, gcac_1_2, gch2c_1_2, gch1c_1_2, gcicia_3_4, & gcicih2_3_4, gcicih1_3_4, gcicia_2_4, gcicih2_2_4, gcicih1_2_4, & gcicia_2_3, gcicih2_2_3, gcicih1_2_3, gcicia_1_4, gcicih2_1_4, & gcicih1_1_4, gcicia_1_3, gcicih2_1_3, gcicih1_1_3, gcicia_1_2, & gcicih2_1_2, gcicih1_1_2, g_chn_4_2, gcwn_2_4, g_chn_3_2, gcwn_2_3, & g_chn_2_2, gcwn_2_2, g_chn_1_2, gcwn_2_1, g_chn_4_1, gcwn_1_4, g_chn_3_1, & gcwn_1_3, g_chn_2_1, gcwn_1_2, g_chn_1_1, gcwn_1_1, g_nhc_4_2, gnwc_4_2, & g_nhc_4_1, gnwc_4_1, g_nhc_3_2, gnwc_3_2, g_nhc_3_1, gnwc_3_1, g_nhc_2_2, & gnwc_2_2, g_nhc_2_1, gnwc_2_1, g_nhc_1_2, gnwc_1_2, g_nhc_1_1, gnwc_1_1, & gczc_2_2, gczc_2_1, gczc_1_2, gczc_1_1, gnzn_3_4, gnzn_2_4, gnzn_2_3, & gnzn_1_4, gnzn_1_3, gnzn_1_2, g_yuk2_3_3, g_yuk2_3_2, g_yuk2_3_1, & g_yuk2_2_3, g_yuk2_1_3, g_yuk1_3_3, g_yuk1_3_2, g_yuk1_3_1, g_yuk1_2_3, & g_yuk1_1_3 complex(kind=default), public, save :: gglglh, gglglhh, gglgla, gpph, & gpphh, gppa complex(kind=default), dimension(2), public, save :: gnna real(kind=default) :: neu2_dec contains subroutine import_from_whizard (par_array, scheme) real(default), dimension(142), intent(in) :: par_array integer, intent(in) :: scheme type :: parameter_set !!! DON'T EVEN THINK OF CHANGING THE ORDER real(default) :: gf real(default) :: mZ real(default) :: wZ real(default) :: mW real(default) :: wW real(default) :: me real(default) :: mmu real(default) :: mtau real(default) :: ms real(default) :: mc real(default) :: mb real(default) :: mtop real(default) :: wtop real(default) :: alphas real(default) :: mtype real(default) :: m_zero real(default) :: m_half real(default) :: A0 real(default) :: tanb real(default) :: sgn_mu real(default) :: lambda real(default) :: m_mes real(default) :: n5 real(default) :: c_grav real(default) :: m_grav real(default) :: ae_33 real(default) :: au_33 real(default) :: ad_33 real(default) :: mh real(default) :: wh real(default) :: mhh real(default) :: mha real(default) :: mhpm real(default) :: whh real(default) :: whpm real(default) :: wha real(default) :: al_h real(default) :: mu_h real(default) :: tanb_h real(default) :: msu1 real(default) :: msd1 real(default) :: msc1 real(default) :: mss1 real(default) :: mstop1 real(default) :: msb1 real(default) :: msu2 real(default) :: msd2 real(default) :: msc2 real(default) :: mss2 real(default) :: mstop2 real(default) :: msb2 real(default) :: mse1 real(default) :: msne real(default) :: msmu1 real(default) :: msnmu real(default) :: mstau1 real(default) :: msntau real(default) :: mse2 real(default) :: msmu2 real(default) :: mstau2 real(default) :: mgg real(default) :: mch1 real(default) :: mch2 real(default) :: mneu1 real(default) :: mneu2 real(default) :: mneu3 real(default) :: mneu4 real(default) :: wsu1 real(default) :: wsd1 real(default) :: wsc1 real(default) :: wss1 real(default) :: wstop1 real(default) :: wsb1 real(default) :: wsu2 real(default) :: wsd2 real(default) :: wsc2 real(default) :: wss2 real(default) :: wstop2 real(default) :: wsb2 real(default) :: wse1 real(default) :: wsne real(default) :: wsmu1 real(default) :: wsnmu real(default) :: wstau1 real(default) :: wsntau real(default) :: wse2 real(default) :: wsmu2 real(default) :: wstau2 real(default) :: wgg real(default) :: wch1 real(default) :: wch2 real(default) :: wneu1 real(default) :: wneu2 real(default) :: wneu3 real(default) :: wneu4 real(default) :: mt_11 real(default) :: mt_12 real(default) :: mt_21 real(default) :: mt_22 real(default) :: mb_11 real(default) :: mb_12 real(default) :: mb_21 real(default) :: mb_22 real(default) :: ml_11 real(default) :: ml_12 real(default) :: ml_21 real(default) :: ml_22 real(default) :: mn_11 real(default) :: mn_12 real(default) :: mn_13 real(default) :: mn_14 real(default) :: mn_21 real(default) :: mn_22 real(default) :: mn_23 real(default) :: mn_24 real(default) :: mn_31 real(default) :: mn_32 real(default) :: mn_33 real(default) :: mn_34 real(default) :: mn_41 real(default) :: mn_42 real(default) :: mn_43 real(default) :: mn_44 real(default) :: mu_11 real(default) :: mu_12 real(default) :: mu_21 real(default) :: mu_22 real(default) :: mv_11 real(default) :: mv_12 real(default) :: mv_21 real(default) :: mv_22 real(default) :: hgg_fac real(default) :: hgg_sq real(default) :: haa_fac real(default) :: nna_v_fac real(default) :: nna_a_fac real(default) :: nna_v real(default) :: nna_a real(default) :: v real(default) :: cw real(default) :: sw real(default) :: ee end type parameter_set type(parameter_set) :: par real(kind=default) :: qelep, qeup, qedwn, v par%gf = par_array(1) par%mZ = par_array(2) par%wZ = par_array(3) par%mW = par_array(4) par%wW = par_array(5) par%me = par_array(6) par%mmu = par_array(7) par%mtau = par_array(8) par%ms = par_array(9) par%mc = par_array(10) par%mb = par_array(11) par%mtop = par_array(12) par%wtop = par_array(13) par%alphas = par_array(14) par%mtype = par_array(15) par%m_zero = par_array(16) par%m_half = par_array(17) par%A0 = par_array(18) par%tanb = par_array(19) par%sgn_mu = par_array(20) par%lambda = par_array(21) par%m_mes = par_array(22) par%n5 = par_array(23) par%c_grav = par_array(24) par%m_grav = par_array(25) par%ae_33 = par_array(26) par%au_33 = par_array(27) par%ad_33 = par_array(28) par%mh = par_array(29) par%wh = par_array(30) par%mhh = par_array(31) par%mha = par_array(32) par%mhpm = par_array(33) par%whh = par_array(34) par%whpm = par_array(35) par%wha = par_array(36) par%al_h = par_array(37) par%mu_h = par_array(38) par%tanb_h = par_array(39) par%msu1 = par_array(40) par%msd1 = par_array(41) par%msc1 = par_array(42) par%mss1 = par_array(43) par%mstop1 = par_array(44) par%msb1 = par_array(45) par%msu2 = par_array(46) par%msd2 = par_array(47) par%msc2 = par_array(48) par%mss2 = par_array(49) par%mstop2 = par_array(50) par%msb2 = par_array(51) par%mse1 = par_array(52) par%msne = par_array(53) par%msmu1 = par_array(54) par%msnmu = par_array(55) par%mstau1 = par_array(56) par%msntau = par_array(57) par%mse2 = par_array(58) par%msmu2 = par_array(59) par%mstau2 = par_array(60) par%mgg = par_array(61) par%mch1 = par_array(62) par%mch2 = par_array(63) par%mneu1 = par_array(64) par%mneu2 = par_array(65) par%mneu3 = par_array(66) par%mneu4 = par_array(67) par%wsu1 = par_array(68) par%wsd1 = par_array(69) par%wsc1 = par_array(70) par%wss1 = par_array(71) par%wstop1 = par_array(72) par%wsb1 = par_array(73) par%wsu2 = par_array(74) par%wsd2 = par_array(75) par%wsc2 = par_array(76) par%wss2 = par_array(77) par%wstop2 = par_array(78) par%wsb2 = par_array(79) par%wse1 = par_array(80) par%wsne = par_array(81) par%wsmu1 = par_array(82) par%wsnmu = par_array(83) par%wstau1 = par_array(84) par%wsntau = par_array(85) par%wse2 = par_array(86) par%wsmu2 = par_array(87) par%wstau2 = par_array(88) par%wgg = par_array(89) par%wch1 = par_array(90) par%wch2 = par_array(91) par%wneu1 = par_array(92) par%wneu2 = par_array(93) par%wneu3 = par_array(94) par%wneu4 = par_array(95) par%mt_11 = par_array(96) par%mt_12 = par_array(97) par%mt_21 = par_array(98) par%mt_22 = par_array(99) par%mb_11 = par_array(100) par%mb_12 = par_array(101) par%mb_21 = par_array(102) par%mb_22 = par_array(103) par%ml_11 = par_array(104) par%ml_12 = par_array(105) par%ml_21 = par_array(106) par%ml_22 = par_array(107) par%mn_11 = par_array(108) par%mn_12 = par_array(109) par%mn_13 = par_array(110) par%mn_14 = par_array(111) par%mn_21 = par_array(112) par%mn_22 = par_array(113) par%mn_23 = par_array(114) par%mn_24 = par_array(115) par%mn_31 = par_array(116) par%mn_32 = par_array(117) par%mn_33 = par_array(118) par%mn_34 = par_array(119) par%mn_41 = par_array(120) par%mn_42 = par_array(121) par%mn_43 = par_array(122) par%mn_44 = par_array(123) par%mu_11 = par_array(124) par%mu_12 = par_array(125) par%mu_21 = par_array(126) par%mu_22 = par_array(127) par%mv_11 = par_array(128) par%mv_12 = par_array(129) par%mv_21 = par_array(130) par%mv_22 = par_array(131) par%hgg_fac= par_array(132) par%hgg_sq = par_array(133) par%haa_fac= par_array(134) par%nna_v_fac = par_array(135) par%nna_a_fac = par_array(136) par%nna_v = par_array(137) par%nna_a = par_array(138) par%v = par_array(139) par%cw = par_array(140) par%sw = par_array(141) par%ee = par_array(142) mass(1:70) = 0 width(1:70) = 0 mass(3) = par%ms mass(4) = par%mc mass(5) = par%mb mass(6) = par%mtop width(6) = par%wtop mass(11) = par%me mass(13) = par%mmu mass(15) = par%mtau mass(23) = par%mZ width(23) = par%wZ mass(24) = par%mW width(24) = par%wW mass(25) = par%mh width(25) = par%wh mass(26) = xi0 * mass(23) width(26) = 0 mass(27) = xipm * mass(24) width(27) = 0 mass(35) = par%mHH width(35) = par%wHH mass(36) = par%mHA width(36) = par%wHA mass(37) = par%mHpm width(37) = par%wHpm mass(41) = par%msd1 width(41) = par%wsd1 mass(42) = par%msu1 width(42) = par%wsu1 mass(43) = par%mss1 width(43) = par%wss1 mass(44) = par%msc1 width(44) = par%wsc1 mass(45) = par%msb1 width(45) = par%wsb1 mass(46) = par%mstop1 width(46) = par%wstop1 mass(47) = par%msd2 width(47) = par%wsd2 mass(48) = par%msu2 width(48) = par%wsu2 mass(49) = par%mss2 width(49) = par%wss2 mass(50) = par%msc2 width(50) = par%wsc2 mass(51) = par%msb2 width(51) = par%wsb2 mass(52) = par%mstop2 width(52) = par%wstop2 mass(53) = par%mse1 width(53) = par%wse1 mass(54) = par%msne width(54) = par%wsne mass(55) = par%msmu1 width(55) = par%wsmu1 mass(56) = par%msnmu width(56) = par%wsnmu mass(57) = par%mstau1 width(57) = par%wstau1 mass(58) = par%msntau width(58) = par%wsntau mass(59) = par%mse2 width(59) = par%wse2 mass(61) = par%msmu2 width(61) = par%wsmu2 mass(63) = par%mstau2 width(63) = par%wstau2 mass(64) = par%mgg width(64) = par%wgg mass(65) = abs(par%mneu1) width(65) = par%wneu1 mass(66) = abs(par%mneu2) width(66) = par%wneu2 mass(67) = abs(par%mneu3) width(67) = par%wneu3 mass(68) = abs(par%mneu4) width(68) = par%wneu4 mass(69) = abs(par%mch1) width(69) = par%wch1 mass(70) = abs(par%mch2) width(70) = par%wch2 sigch1 = sign (1._default, par%mch1) sigch2 = sign (1._default, par%mch2) sign1 = sign (1, int(par%mneu1)) sign2 = sign (1, int(par%mneu2)) sign3 = sign (1, int(par%mneu3)) sign4 = sign (1, int(par%mneu4)) vckm_11 = 1 vckm_12 = 0 vckm_13 = 0 vckm_21 = 0 vckm_22 = 1 vckm_23 = 0 vckm_31 = 0 vckm_32 = 0 vckm_33 = 1 v = 2 * par%mW * par%sw / par%ee e = par%ee !!! This should not be in the color flow basis !!! as = par%alphas tanb = par%tanb_h tana = tan(par%al_h) select case (sign1) case (1) eta1 = (1.0_default,0.0_default) case (-1) eta1 = (0.0_default,1.0_default) case default print *, 'sign1', sign1 stop "parameters_MSSM: No definite sign neutralino1" end select select case (sign2) case (1) eta2 = (1.0_default,0.0_default) case (-1) eta2 = (0.0_default,1.0_default) case default print *, 'sign2', sign2 stop "parameters_MSSM: No definite sign neutralino2" end select select case (sign3) case (1) eta3 = (1.0_default,0.0_default) case (-1) eta3 = (0.0_default,1.0_default) case default print *, 'sign3', sign3 stop "parameters_MSSM: No definite sign neutralino3" end select select case (sign4) case (1) eta4 = (1.0_default,0.0_default) case (-1) eta4 = (0.0_default,1.0_default) case default print *, 'sign4', sign4 stop "parameters_MSSM: No definite sign neutralino4" end select sinthw = par%sw sin2thw = sinthw**2 costhw = par%cw qelep = - 1.0_default qeup = 2.0_default / 3.0_default qedwn = - 1.0_default / 3.0_default call setup_parameters1 call setup_parameters2 call setup_parameters3 call setup_parameters4 call setup_parameters5 call setup_parameters6 call setup_parameters7 call setup_parameters8 call setup_parameters9 call setup_parameters10 call setup_parameters11 call setup_parameters12 call setup_parameters13 call setup_parameters14 call setup_parameters15 call setup_parameters16 call setup_parameters17 contains subroutine setup_parameters1 () g = (e / sinthw) gz = (g / costhw) !!! Color flow basis, divide by sqrt(2) gs = sqrt(2.0_default * PI * par%alphas) igs = (imago * gs) vev = ((2.0_default * mass(24)) / g) q_lep = (- 1.0_default) q_up = (2.0_default / 3.0_default) q_down = (- 1.0_default / 3.0_default) qlep = - e * qelep !!! This is the negative particle charge !!! qup = - e * qeup !!! This is the negative particle charge !!! qdwn = - e * qedwn !!! This is the negative particle charge !!! qchar = ( - e) !!! This is the negative particle charge !!! ! qlep = ((-1.0_default) * e) ! qup = ((2.0_default / 3.0_default) * e) ! qdwn = (((-1.0_default) / 3.0_default) * e) gcc = (g / (2.0_default * sqrt (2.0_default))) gssq = (gs / sqrt (2.0_default)) iqw = imago * e igzww = imago * g * costhw gw4 = (g**2) gzzww = ((g**2) * (costhw**2)) gppww = (e**2) gpzww = (e * g * costhw) sinal = sin (par%al_h) cosal = cos (par%al_h) sinbe = (tanb / sqrt ((1.0_default + (tanb**2)))) cosbe = (1.0_default / sqrt ((1.0_default + (tanb**2)))) eidelta = (cosd + (imago * sind)) cos2be = ((cosbe**2) - (sinbe**2)) cos2al = ((cosal**2) - (sinal**2)) sin2be = (2.0_default * cosbe * sinbe) sin2al = (2.0_default * cosal * sinal) sin4al = (2.0_default * cos2al * sin2al) sin4be = (2.0_default * cos2be * sin2be) cos4be = ((cos2be**2) - (sin2be**2)) cosapb = ((cosal * cosbe) - (sinal * sinbe)) cosamb = ((cosal * cosbe) + (sinal * sinbe)) sinapb = ((cosal * sinbe) + (sinal * cosbe)) sinamb = ((sinal * cosbe) - (sinbe * cosal)) sin2am2b = (2.0_default * sinamb * cosamb) cos2am2b = ((cosamb**2) - (sinamb**2)) mn_11 = eta1 * par%mn_11 mn_12 = eta1 * par%mn_12 mn_13 = eta1 * par%mn_13 mn_14 = eta1 * par%mn_14 mn_21 = eta2 * par%mn_21 mn_22 = eta2 * par%mn_22 mn_23 = eta2 * par%mn_23 mn_24 = eta2 * par%mn_24 mn_31 = eta3 * par%mn_31 mn_32 = eta3 * par%mn_32 mn_33 = eta3 * par%mn_33 mn_34 = eta3 * par%mn_34 mn_41 = eta4 * par%mn_41 mn_42 = eta4 * par%mn_42 mn_43 = eta4 * par%mn_43 mn_44 = eta4 * par%mn_44 !!! Checked by JR !!! mu_11 = par%mu_11 !!! Rotat. matrix containing phi_R mu_12 = par%mu_12 !!! Rotat. matrix containing phi_R mu_21 = par%mu_21 !!! Rotat. matrix containing phi_R mu_22 = par%mu_22 !!! Rotat. matrix containing phi_R mv_11 = sigch1 * par%mv_11 !!! Rotat. matrix containing phi_L mv_12 = sigch1 * par%mv_12 !!! Rotat. matrix containing phi_L mv_21 = sigch2 * par%mv_21 !!! Rotat. matrix containing phi_L mv_22 = sigch2 * par%mv_22 !!! Rotat. matrix containing phi_L al_1 = 0 au_1 = 0 ad_1 = 0 al_2 = 0 au_2 = 0 ad_2 = 0 al_3 = par%Ae_33 au_3 = par%Au_33 ad_3 = par%Ad_33 mu = par%mu_h mix_sl111 = 1.0_default mix_sl112 = 0.0_default mix_sl122 = 1.0_default mix_sl121 = 0.0_default mix_sl211 = 1.0_default mix_sl212 = 0.0_default mix_sl222 = 1.0_default mix_sl221 = 0.0_default mix_su111 = 1.0_default mix_su112 = 0.0_default mix_su122 = 1.0_default mix_su121 = 0.0_default mix_su211 = 1.0_default mix_su212 = 0.0_default mix_su222 = 1.0_default mix_su221 = 0.0_default mix_sd111 = 1.0_default mix_sd112 = 0.0_default mix_sd122 = 1.0_default mix_sd121 = 0.0_default mix_sd211 = 1.0_default mix_sd212 = 0.0_default mix_sd222 = 1.0_default mix_sd221 = 0.0_default !!! Checked by JR !!! mix_sl311 = par%ml_11 mix_sl312 = par%ml_12 mix_sl321 = par%ml_21 mix_sl322 = par%ml_22 mix_su311 = par%mt_11 mix_su312 = par%mt_12 mix_su321 = par%mt_21 mix_su322 = par%mt_22 mix_sd311 = par%mb_11 mix_sd312 = par%mb_12 mix_sd321 = par%mb_21 mix_sd322 = par%mb_22 gh3_1 = ((mass(23) * (gz / 2.0_default) * cos2be * cosapb) - & (mass(24) * g * cosamb)) gh3_2 = ((mass(24) * g * sinamb) - ( & (gz / 2.0_default) * mass(23) * cos2be * sinapb)) gh3_3 = ((gz / 2.0_default) * mass(23) * ( & (2.0_default * sin2al * cosapb) + (cos2al * sinapb))) gh3_4 = ( - ( & (3.0_default / 2.0_default) * gz * mass(23) * cos2al * cosapb)) gh3_5 = ( - ( & (3.0_default / 2.0_default) * gz * mass(23) * cos2al * sinapb)) gh3_6 = ((gz / 2.0_default) * mass(23) * ((cos2al * cosapb) - & (2.0_default * sin2al * sinapb))) gh3_7 = ((gz / 2.0_default) * mass(23) * cos2be * cosapb) gh3_8 = ( - ((gz / 2.0_default) * mass(23) * cos2be * sinapb)) gh4_1 = ( - (((gz**2) / 2.0_default) * (cos2be**2))) end subroutine setup_parameters1 subroutine setup_parameters2 () gh4_2 = ((((gz**2) / 4.0_default) * cos2al * cos2be) - (( & (g**2) / 2.0_default) * (cosamb**2))) gh4_3 = ( - ((((gz**2) / 4.0_default) * cos2al * cos2be) + (( & (g**2) / 2.0_default) * (sinamb**2)))) gh4_4 = ((((g**2) / 2.0_default) * cosamb * sinamb) - (( & (gz**2) / 4.0_default) * sin2al * cos2be)) gh4_5 = ( - (((gz**2) / 4.0_default) * (cos2be**2))) gh4_6 = ( - ((3.0_default / 4.0_default) * (gz**2) * (cos2al**2))) gh4_7 = (((gz**2) / 4.0_default) * (1.0_default - (3.0_default * & (sin2al**2)))) gh4_8 = ( - ((3.0_default / 8.0_default) * (gz**2) * sin4al)) gh4_9 = (((gz**2) / 4.0_default) * cos2al * cos2be) gh4_10 = ( - (((gz**2) / 4.0_default) * sin2al * cos2be)) gh4_11 = ( - ((3.0_default / 4.0_default) * (gz**2) * (cos2be**2))) ghaw = ( - (imago * (g / 2.0_default))) gh1az = (imago * & (gz / 2.0_default) * cosamb) gh2az = (imago * & (gz / 2.0_default) * sinamb) gh1ww = ( - (g * mass(24) * sinamb)) gh2ww = (g * mass(24) * cosamb) ghh1w = ((g / 2.0_default) * cosamb) ghh2w = ((g / 2.0_default) * sinamb) gh1zz = ( - (gz * mass(23) * sinamb)) gh2zz = (gz * mass(23) * cosamb) ghhz = ((gz / 2.0_default) * (1.0_default - & (2.0_default * sin2thw))) ghhp = e gaazz = ((gz**2) / 2.0_default) gh1h1zz = gaazz gh2h2zz = gaazz ghphmzz = (gaazz * (((2.0_default * (costhw**2)) - 1.0_default)**2)) ghphmpp = (2.0_default * (e**2)) ghphmpz = (e * gz * ((2.0_default * (costhw**2)) - 1.0_default)) ghh1wz = ( - ( & (1.0_default / 2.0_default) * g * gz * sin2thw * cosamb)) ghh2wz = ( - ( & (1.0_default / 2.0_default) * g * gz * sin2thw * sinamb)) ghh1wp = (e * (g / 2.0_default) * cosamb) ghh2wp = (e * (g / 2.0_default) * sinamb) gaaww = ((g**2) / 2.0_default) gh1h1ww = gaaww gh2h2ww = gaaww ghhww = gaaww ghawz = (imago * g * gz * & (1.0_default / 2.0_default) * sin2thw) ghawp = ( - (imago * e * g * & (1.0_default / 2.0_default))) g_yuk6_1 = (gcc * (mass(11) / mass(24)) * tanb) g_yuk7_1 = ( - ((g / 2.0_default) * (mass(11) / mass(24)) * & (cosal / cosbe))) g_yuk8_1 = ((g / 2.0_default) * (mass(11) / mass(24)) * (sinal / cosbe)) g_yuk9_1 = (imago * & (g / 2.0_default) * (mass(11) / mass(24)) * tanb) g_yuk10_1 = ( - ((g / 2.0_default) * (mass(2) / mass(24)) * & (sinal / sinbe))) g_yuk11_1 = ( - ((g / 2.0_default) * (mass(2) / mass(24)) * & (cosal / sinbe))) g_yuk12_1 = (imago * & (g / 2.0_default) * (mass(2) / mass(24)) * (1.0_default / tanb)) g_yuk13_1 = ( - ((g / 2.0_default) * (mass(1) / mass(24)) * & (cosal / cosbe))) g_yuk14_1 = ((g / 2.0_default) * (mass(1) / mass(24)) * (sinal / cosbe)) g_yuk15_1 = (imago * & (g / 2.0_default) * (mass(1) / mass(24)) * tanb) g_yuk6_2 = (gcc * (mass(13) / mass(24)) * tanb) g_yuk7_2 = ( - ((g / 2.0_default) * (mass(13) / mass(24)) * & (cosal / cosbe))) g_yuk8_2 = ((g / 2.0_default) * (mass(13) / mass(24)) * (sinal / cosbe)) g_yuk9_2 = (imago * & (g / 2.0_default) * (mass(13) / mass(24)) * tanb) g_yuk10_2 = ( - ((g / 2.0_default) * (mass(4) / mass(24)) * & (sinal / sinbe))) g_yuk11_2 = ( - ((g / 2.0_default) * (mass(4) / mass(24)) * & (cosal / sinbe))) g_yuk12_2 = (imago * & (g / 2.0_default) * (mass(4) / mass(24)) * (1.0_default / tanb)) g_yuk13_2 = ( - ((g / 2.0_default) * (mass(3) / mass(24)) * & (cosal / cosbe))) g_yuk14_2 = ((g / 2.0_default) * (mass(3) / mass(24)) * (sinal / cosbe)) g_yuk15_2 = (imago * & (g / 2.0_default) * (mass(3) / mass(24)) * tanb) g_yuk6_3 = (gcc * (mass(15) / mass(24)) * tanb) g_yuk7_3 = ( - ((g / 2.0_default) * (mass(15) / mass(24)) * & (cosal / cosbe))) g_yuk8_3 = ((g / 2.0_default) * (mass(15) / mass(24)) * (sinal / cosbe)) g_yuk9_3 = (imago * & (g / 2.0_default) * (mass(15) / mass(24)) * tanb) g_yuk10_3 = ( - ((g / 2.0_default) * (mass(6) / mass(24)) * & (sinal / sinbe))) g_yuk11_3 = ( - ((g / 2.0_default) * (mass(6) / mass(24)) * & (cosal / sinbe))) g_yuk12_3 = (imago * & (g / 2.0_default) * (mass(6) / mass(24)) * (1.0_default / tanb)) g_yuk13_3 = ( - ((g / 2.0_default) * (mass(5) / mass(24)) * & (cosal / cosbe))) g_yuk14_3 = ((g / 2.0_default) * (mass(5) / mass(24)) * (sinal / cosbe)) g_yuk15_3 = (imago * & (g / 2.0_default) * (mass(5) / mass(24)) * tanb) gccq_1_1 = (gcc * vckm_11) gccq_1_1_c = (gcc * conjg (vckm_11)) gccq_1_2 = (gcc * vckm_12) gccq_1_2_c = (gcc * conjg (vckm_12)) gccq_1_3 = (gcc * vckm_13) gccq_1_3_c = (gcc * conjg (vckm_13)) gccq_2_1 = (gcc * vckm_21) gccq_2_1_c = (gcc * conjg (vckm_21)) gccq_2_2 = (gcc * vckm_22) gccq_2_2_c = (gcc * conjg (vckm_22)) gccq_2_3 = (gcc * vckm_23) gccq_2_3_c = (gcc * conjg (vckm_23)) gccq_3_1 = (gcc * vckm_31) gccq_3_1_c = (gcc * conjg (vckm_31)) gccq_3_2 = (gcc * vckm_32) gccq_3_2_c = (gcc * conjg (vckm_32)) gccq_3_3 = (gcc * vckm_33) gccq_3_3_c = (gcc * conjg (vckm_33)) gs1ws1_1_1 = ( - (gcc * 2.0_default * vckm_11 * & conjg (mix_su111) * mix_sd111)) gs2ws2_1_1 = ( - (gcc * 2.0_default * vckm_11 * & conjg (mix_su121) * mix_sd121)) gs1ws2_1_1 = ( - (gcc * 2.0_default * vckm_11 * & conjg (mix_su111) * mix_sd121)) gs2ws1_1_1 = ( - (gcc * 2.0_default * vckm_11 * & conjg (mix_su121) * mix_sd111)) gs1ws1_1_1_c = conjg (gs1ws1_1_1) gs2ws2_1_1_c = conjg (gs2ws2_1_1) gs1ws2_1_1_c = conjg (gs1ws2_1_1) gs2ws1_1_1_c = conjg (gs2ws1_1_1) gs1ws1_1_2 = ( - (gcc * 2.0_default * vckm_12 * & conjg (mix_su111) * mix_sd211)) gs2ws2_1_2 = ( - (gcc * 2.0_default * vckm_12 * & conjg (mix_su121) * mix_sd221)) gs1ws2_1_2 = ( - (gcc * 2.0_default * vckm_12 * & conjg (mix_su111) * mix_sd221)) gs2ws1_1_2 = ( - (gcc * 2.0_default * vckm_12 * & conjg (mix_su121) * mix_sd211)) gs1ws1_1_2_c = conjg (gs1ws1_1_2) gs2ws2_1_2_c = conjg (gs2ws2_1_2) gs1ws2_1_2_c = conjg (gs1ws2_1_2) gs2ws1_1_2_c = conjg (gs2ws1_1_2) gs1ws1_1_3 = ( - (gcc * 2.0_default * vckm_13 * & conjg (mix_su111) * mix_sd311)) gs2ws2_1_3 = ( - (gcc * 2.0_default * vckm_13 * & conjg (mix_su121) * mix_sd321)) gs1ws2_1_3 = ( - (gcc * 2.0_default * vckm_13 * & conjg (mix_su111) * mix_sd321)) gs2ws1_1_3 = ( - (gcc * 2.0_default * vckm_13 * & conjg (mix_su121) * mix_sd311)) gs1ws1_1_3_c = conjg (gs1ws1_1_3) gs2ws2_1_3_c = conjg (gs2ws2_1_3) gs1ws2_1_3_c = conjg (gs1ws2_1_3) gs2ws1_1_3_c = conjg (gs2ws1_1_3) gs1ws1_2_1 = ( - (gcc * 2.0_default * vckm_21 * & conjg (mix_su211) * mix_sd111)) gs2ws2_2_1 = ( - (gcc * 2.0_default * vckm_21 * & conjg (mix_su221) * mix_sd121)) gs1ws2_2_1 = ( - (gcc * 2.0_default * vckm_21 * & conjg (mix_su211) * mix_sd121)) gs2ws1_2_1 = ( - (gcc * 2.0_default * vckm_21 * & conjg (mix_su221) * mix_sd111)) gs1ws1_2_1_c = conjg (gs1ws1_2_1) gs2ws2_2_1_c = conjg (gs2ws2_2_1) gs1ws2_2_1_c = conjg (gs1ws2_2_1) gs2ws1_2_1_c = conjg (gs2ws1_2_1) gs1ws1_2_2 = ( - (gcc * 2.0_default * vckm_22 * & conjg (mix_su211) * mix_sd211)) gs2ws2_2_2 = ( - (gcc * 2.0_default * vckm_22 * & conjg (mix_su221) * mix_sd221)) gs1ws2_2_2 = ( - (gcc * 2.0_default * vckm_22 * & conjg (mix_su211) * mix_sd221)) gs2ws1_2_2 = ( - (gcc * 2.0_default * vckm_22 * & conjg (mix_su221) * mix_sd211)) gs1ws1_2_2_c = conjg (gs1ws1_2_2) gs2ws2_2_2_c = conjg (gs2ws2_2_2) gs1ws2_2_2_c = conjg (gs1ws2_2_2) gs2ws1_2_2_c = conjg (gs2ws1_2_2) gs1ws1_2_3 = ( - (gcc * 2.0_default * vckm_23 * & conjg (mix_su211) * mix_sd311)) gs2ws2_2_3 = ( - (gcc * 2.0_default * vckm_23 * & conjg (mix_su221) * mix_sd321)) gs1ws2_2_3 = ( - (gcc * 2.0_default * vckm_23 * & conjg (mix_su211) * mix_sd321)) gs2ws1_2_3 = ( - (gcc * 2.0_default * vckm_23 * & conjg (mix_su221) * mix_sd311)) gs1ws1_2_3_c = conjg (gs1ws1_2_3) gs2ws2_2_3_c = conjg (gs2ws2_2_3) gs1ws2_2_3_c = conjg (gs1ws2_2_3) gs2ws1_2_3_c = conjg (gs2ws1_2_3) gs1ws1_3_1 = ( - (gcc * 2.0_default * vckm_31 * & conjg (mix_su311) * mix_sd111)) gs2ws2_3_1 = ( - (gcc * 2.0_default * vckm_31 * & conjg (mix_su321) * mix_sd121)) end subroutine setup_parameters2 subroutine setup_parameters3 () gs1ws2_3_1 = ( - (gcc * 2.0_default * vckm_31 * & conjg (mix_su311) * mix_sd121)) gs2ws1_3_1 = ( - (gcc * 2.0_default * vckm_31 * & conjg (mix_su321) * mix_sd111)) gs1ws1_3_1_c = conjg (gs1ws1_3_1) gs2ws2_3_1_c = conjg (gs2ws2_3_1) gs1ws2_3_1_c = conjg (gs1ws2_3_1) gs2ws1_3_1_c = conjg (gs2ws1_3_1) gs1ws1_3_2 = ( - (gcc * 2.0_default * vckm_32 * & conjg (mix_su311) * mix_sd211)) gs2ws2_3_2 = ( - (gcc * 2.0_default * vckm_32 * & conjg (mix_su321) * mix_sd221)) gs1ws2_3_2 = ( - (gcc * 2.0_default * vckm_32 * & conjg (mix_su311) * mix_sd221)) gs2ws1_3_2 = ( - (gcc * 2.0_default * vckm_32 * & conjg (mix_su321) * mix_sd211)) gs1ws1_3_2_c = conjg (gs1ws1_3_2) gs2ws2_3_2_c = conjg (gs2ws2_3_2) gs1ws2_3_2_c = conjg (gs1ws2_3_2) gs2ws1_3_2_c = conjg (gs2ws1_3_2) gs1ws1_3_3 = ( - (gcc * 2.0_default * vckm_33 * & conjg (mix_su311) * mix_sd311)) gs2ws2_3_3 = ( - (gcc * 2.0_default * vckm_33 * & conjg (mix_su321) * mix_sd321)) gs1ws2_3_3 = ( - (gcc * 2.0_default * vckm_33 * & conjg (mix_su311) * mix_sd321)) gs2ws1_3_3 = ( - (gcc * 2.0_default * vckm_33 * & conjg (mix_su321) * mix_sd311)) gs1ws1_3_3_c = conjg (gs1ws1_3_3) gs2ws2_3_3_c = conjg (gs2ws2_3_3) gs1ws2_3_3_c = conjg (gs1ws2_3_3) gs2ws1_3_3_c = conjg (gs2ws1_3_3) gsl1zsl1_1 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl111 * conjg (mix_sl111)))) gsl2zsl2_1 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl121 * conjg (mix_sl121)))) gsl1zsl2_1 = ((( - gz) / 2.0_default) * conjg (mix_sl111) * mix_sl121) gsl2zsl1_1 = conjg (gsl1zsl2_1) gsn1zsn1_1 = (gz / 2.0_default) gsu1zsu1_1 = ((gz / 2.0_default) * ((mix_su111 * conjg (mix_su111)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu2zsu2_1 = ((gz / 2.0_default) * ((mix_su121 * conjg (mix_su121)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu1zsu2_1 = ((gz / 2.0_default) * conjg (mix_su111) * mix_su121) gsu2zsu1_1 = conjg (gsu1zsu2_1) gsd1zsd1_1 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd111 * & conjg (mix_sd111)))) gsd2zsd2_1 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd121 * & conjg (mix_sd121)))) gsd1zsd2_1 = ((( - gz) / 2.0_default) * conjg (mix_sd111) * mix_sd121) gsd2zsd1_1 = conjg (gsd1zsd2_1) gsl1_1snw = (gcc * 2.0_default * mix_sl111) gsl2_1snw = (gcc * 2.0_default * mix_sl121) gsl1_1snw_c = (gcc * 2.0_default * conjg (mix_sl111)) gsl2_1snw_c = (gcc * 2.0_default * conjg (mix_sl121)) gsl1zsl1_2 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl211 * conjg (mix_sl211)))) gsl2zsl2_2 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl221 * conjg (mix_sl221)))) gsl1zsl2_2 = ((( - gz) / 2.0_default) * conjg (mix_sl211) * mix_sl221) gsl2zsl1_2 = conjg (gsl1zsl2_2) gsn1zsn1_2 = (gz / 2.0_default) gsu1zsu1_2 = ((gz / 2.0_default) * ((mix_su211 * conjg (mix_su211)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu2zsu2_2 = ((gz / 2.0_default) * ((mix_su221 * conjg (mix_su221)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu1zsu2_2 = ((gz / 2.0_default) * conjg (mix_su211) * mix_su221) gsu2zsu1_2 = conjg (gsu1zsu2_2) gsd1zsd1_2 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd211 * & conjg (mix_sd211)))) gsd2zsd2_2 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd221 * & conjg (mix_sd221)))) gsd1zsd2_2 = ((( - gz) / 2.0_default) * conjg (mix_sd211) * mix_sd221) gsd2zsd1_2 = conjg (gsd1zsd2_2) gsl1_2snw = (gcc * 2.0_default * mix_sl211) gsl2_2snw = (gcc * 2.0_default * mix_sl221) gsl1_2snw_c = (gcc * 2.0_default * conjg (mix_sl211)) gsl2_2snw_c = (gcc * 2.0_default * conjg (mix_sl221)) gsl1zsl1_3 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl311 * conjg (mix_sl311)))) gsl2zsl2_3 = ((gz / 2.0_default) * ((2.0_default * sin2thw) - & (mix_sl321 * conjg (mix_sl321)))) gsl1zsl2_3 = ((( - gz) / 2.0_default) * conjg (mix_sl311) * mix_sl321) gsl2zsl1_3 = conjg (gsl1zsl2_3) gsn1zsn1_3 = (gz / 2.0_default) gsu1zsu1_3 = ((gz / 2.0_default) * ((mix_su311 * conjg (mix_su311)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu2zsu2_3 = ((gz / 2.0_default) * ((mix_su321 * conjg (mix_su321)) - ( & (4.0_default / 3.0_default) * sin2thw))) gsu1zsu2_3 = ((gz / 2.0_default) * conjg (mix_su311) * mix_su321) gsu2zsu1_3 = conjg (gsu1zsu2_3) gsd1zsd1_3 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd311 * & conjg (mix_sd311)))) gsd2zsd2_3 = ((gz / 2.0_default) * (( & (2.0_default / 3.0_default) * sin2thw) - (mix_sd321 * & conjg (mix_sd321)))) gsd1zsd2_3 = ((( - gz) / 2.0_default) * conjg (mix_sd311) * mix_sd321) gsd2zsd1_3 = conjg (gsd1zsd2_3) gsl1_3snw = (gcc * 2.0_default * mix_sl311) gsl2_3snw = (gcc * 2.0_default * mix_sl321) gsl1_3snw_c = (gcc * 2.0_default * conjg (mix_sl311)) gsl2_3snw_c = (gcc * 2.0_default * conjg (mix_sl321)) gppslsl = (2.0_default * (e**2)) gppsusu = ((8.0_default / 9.0_default) * (e**2)) gppsdsd = ((2.0_default / 9.0_default) * (e**2)) gzzsl1sl1_1 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl111 * conjg (mix_sl111))) + & (4.0_default * (sin2thw**2)))) gzzsl2sl2_1 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl121 * conjg (mix_sl121))) + & (4.0_default * (sin2thw**2)))) gzzsl1sl2_1 = (((gz**2) / 2.0_default) * (1.0_default - & (4.0_default * sin2thw)) * mix_sl111 * conjg (mix_sl121)) gzzsl2sl1_1 = conjg(gzzsl1sl2_1) gzzsn1sn1_1 = ((gz**2) / 2.0_default) gzzsu1su1_1 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su111 * & conjg (mix_su111))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu2su2_1 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su121 * & conjg (mix_su121))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu1su2_1 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (8.0_default / 3.0_default))) * mix_su111 * conjg (mix_su121)) gzzsu2su1_1 = conjg(gzzsu1su2_1) gzzsd1sd1_1 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd111 * conjg (mix_sd111))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd2sd2_1 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd121 * conjg (mix_sd121))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd1sd2_1 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * mix_sd111 * conjg (mix_sd121)) gzzsd2sd1_1 = conjg(gzzsd1sd2_1) gzpsl1sl1_1 = (e * gz * ((mix_sl111 * conjg (mix_sl111)) - & (2.0_default * sin2thw))) gzpsl2sl2_1 = (e * gz * ((mix_sl121 * conjg (mix_sl121)) - & (2.0_default * sin2thw))) gzpsl1sl2_1 = (e * gz * mix_sl111 * conjg (mix_sl121)) gzpsl2sl1_1 = (e * gz * mix_sl121 * conjg (mix_sl111)) gzpsu1su1_1 = (e * gz * (2.0_default / 3.0_default) * ((mix_su111 * & conjg (mix_su111)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu2su2_1 = (e * gz * (2.0_default / 3.0_default) * ((mix_su121 * & conjg (mix_su121)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu1su2_1 = (e * gz * (2.0_default / 3.0_default) * mix_su111 * & conjg (mix_su121)) gzpsu2su1_1 = (e * gz * (2.0_default / 3.0_default) * mix_su121 * & conjg (mix_su111)) gzpsd1sd1_1 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd111 * & conjg (mix_sd111)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd2sd2_1 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd121 * & conjg (mix_sd121)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd1sd2_1 = (e * gz * (1.0_default / 3.0_default) * mix_sd111 * & conjg (mix_sd121)) gzpsd2sd1_1 = (e * gz * (1.0_default / 3.0_default) * mix_sd121 * & conjg (mix_sd111)) gwwsl1sl1_1 = (((g**2) / 2.0_default) * (mix_sl111 * conjg (mix_sl111))) gwwsl2sl2_1 = (((g**2) / 2.0_default) * (mix_sl121 * conjg (mix_sl121))) gwwsl1sl2_1 = (((g**2) / 2.0_default) * mix_sl111 * conjg (mix_sl121)) gwwsl2sl1_1 = (((g**2) / 2.0_default) * mix_sl121 * conjg (mix_sl111)) gwwsn1sn1_1 = ((g**2) / 2.0_default) gwwsu1su1_1 = (((g**2) / 2.0_default) * (mix_su111 * conjg (mix_su111))) gwwsu2su2_1 = (((g**2) / 2.0_default) * (mix_su121 * conjg (mix_su121))) gwwsu1su2_1 = (((g**2) / 2.0_default) * mix_su111 * conjg (mix_su121)) gwwsu2su1_1 = (((g**2) / 2.0_default) * mix_su121 * conjg (mix_su111)) gwwsd1sd1_1 = (((g**2) / 2.0_default) * (mix_sd111 * conjg (mix_sd111))) gwwsd2sd2_1 = (((g**2) / 2.0_default) * (mix_sd121 * conjg (mix_sd121))) gwwsd1sd2_1 = (((g**2) / 2.0_default) * mix_sd111 * conjg (mix_sd121)) gwwsd2sd1_1 = (((g**2) / 2.0_default) * mix_sd121 * conjg (mix_sd111)) gpwsl1sn_1 = ( - (e * 2.0_default * gcc * mix_sl111)) gpwsl2sn_1 = ( - (e * 2.0_default * gcc * mix_sl121)) gpwsl1sn_1_c = ( - (e * 2.0_default * gcc * conjg (mix_sl111))) gpwsl2sn_1_c = ( - (e * 2.0_default * gcc * conjg (mix_sl121))) gwzsl1sn_1 = (gcc * gz * 2.0_default * sin2thw * mix_sl111) end subroutine setup_parameters3 subroutine setup_parameters4 () gwzsl2sn_1 = (gcc * gz * 2.0_default * sin2thw * mix_sl121) gwzsl1sn_1_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl111)) gwzsl2sn_1_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl121)) gzzsl1sl1_2 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl211 * conjg (mix_sl211))) + & (4.0_default * (sin2thw**2)))) gzzsl2sl2_2 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl221 * conjg (mix_sl221))) + & (4.0_default * (sin2thw**2)))) gzzsl1sl2_2 = (((gz**2) / 2.0_default) * (1.0_default - & (4.0_default * sin2thw)) * mix_sl211 * conjg (mix_sl221)) gzzsl2sl1_2 = conjg(gzzsl1sl2_2) gzzsn1sn1_2 = ((gz**2) / 2.0_default) gzzsu1su1_2 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su211 * & conjg (mix_su211))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu2su2_2 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su221 * & conjg (mix_su221))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu1su2_2 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (8.0_default / 3.0_default))) * mix_su211 * conjg (mix_su221)) gzzsu2su1_2 = conjg(gzzsu1su2_2) gzzsd1sd1_2 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd211 * conjg (mix_sd211))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd2sd2_2 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd221 * conjg (mix_sd221))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd1sd2_2 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * mix_sd211 * conjg (mix_sd221)) gzzsd2sd1_2 = conjg(gzzsd1sd2_2) gzpsl1sl1_2 = (e * gz * ((mix_sl211 * conjg (mix_sl211)) - & (2.0_default * sin2thw))) gzpsl2sl2_2 = (e * gz * ((mix_sl221 * conjg (mix_sl221)) - & (2.0_default * sin2thw))) gzpsl1sl2_2 = (e * gz * mix_sl211 * conjg (mix_sl221)) gzpsl2sl1_2 = (e * gz * mix_sl221 * conjg (mix_sl211)) gzpsu1su1_2 = (e * gz * (2.0_default / 3.0_default) * ((mix_su211 * & conjg (mix_su211)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu2su2_2 = (e * gz * (2.0_default / 3.0_default) * ((mix_su221 * & conjg (mix_su221)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu1su2_2 = (e * gz * (2.0_default / 3.0_default) * mix_su211 * & conjg (mix_su221)) gzpsu2su1_2 = (e * gz * (2.0_default / 3.0_default) * mix_su221 * & conjg (mix_su211)) gzpsd1sd1_2 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd211 * & conjg (mix_sd211)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd2sd2_2 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd221 * & conjg (mix_sd221)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd1sd2_2 = (e * gz * (1.0_default / 3.0_default) * mix_sd211 * & conjg (mix_sd221)) gzpsd2sd1_2 = (e * gz * (1.0_default / 3.0_default) * mix_sd221 * & conjg (mix_sd211)) gwwsl1sl1_2 = (((g**2) / 2.0_default) * (mix_sl211 * conjg (mix_sl211))) gwwsl2sl2_2 = (((g**2) / 2.0_default) * (mix_sl221 * conjg (mix_sl221))) gwwsl1sl2_2 = (((g**2) / 2.0_default) * mix_sl211 * conjg (mix_sl221)) gwwsl2sl1_2 = (((g**2) / 2.0_default) * mix_sl221 * conjg (mix_sl211)) gwwsn1sn1_2 = ((g**2) / 2.0_default) gwwsu1su1_2 = (((g**2) / 2.0_default) * (mix_su211 * conjg (mix_su211))) gwwsu2su2_2 = (((g**2) / 2.0_default) * (mix_su221 * conjg (mix_su221))) gwwsu1su2_2 = (((g**2) / 2.0_default) * mix_su211 * conjg (mix_su221)) gwwsu2su1_2 = (((g**2) / 2.0_default) * mix_su221 * conjg (mix_su211)) gwwsd1sd1_2 = (((g**2) / 2.0_default) * (mix_sd211 * conjg (mix_sd211))) gwwsd2sd2_2 = (((g**2) / 2.0_default) * (mix_sd221 * conjg (mix_sd221))) gwwsd1sd2_2 = (((g**2) / 2.0_default) * mix_sd211 * conjg (mix_sd221)) gwwsd2sd1_2 = (((g**2) / 2.0_default) * mix_sd221 * conjg (mix_sd211)) gpwsl1sn_2 = ( - (e * 2.0_default * gcc * mix_sl211)) gpwsl2sn_2 = ( - (e * 2.0_default * gcc * mix_sl221)) gpwsl1sn_2_c = ( - (e * 2.0_default * gcc * conjg (mix_sl211))) gpwsl2sn_2_c = ( - (e * 2.0_default * gcc * conjg (mix_sl221))) gwzsl1sn_2 = (gcc * gz * 2.0_default * sin2thw * mix_sl211) gwzsl2sn_2 = (gcc * gz * 2.0_default * sin2thw * mix_sl221) gwzsl1sn_2_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl211)) gwzsl2sn_2_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl221)) gzzsl1sl1_3 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl311 * conjg (mix_sl311))) + & (4.0_default * (sin2thw**2)))) gzzsl2sl2_3 = (((gz**2) / 2.0_default) * (((1.0_default - & (4.0_default * sin2thw)) * (mix_sl321 * conjg (mix_sl321))) + & (4.0_default * (sin2thw**2)))) gzzsl1sl2_3 = (((gz**2) / 2.0_default) * (1.0_default - & (4.0_default * sin2thw)) * mix_sl311 * conjg (mix_sl321)) gzzsl2sl1_3 = conjg(gzzsl1sl2_3) gzzsn1sn1_3 = ((gz**2) / 2.0_default) gzzsu1su1_3 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su311 * & conjg (mix_su311))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu2su2_3 = (((gz**2) / 2.0_default) * (((1.0_default - ( & (8.0_default / 3.0_default) * sin2thw)) * (mix_su321 * & conjg (mix_su321))) + ((sin2thw**2) * & (16.0_default / 9.0_default)))) gzzsu1su2_3 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (8.0_default / 3.0_default))) * mix_su311 * conjg (mix_su321)) gzzsu2su1_3 = conjg(gzzsu1su2_3) gzzsd1sd1_3 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd311 * conjg (mix_sd311))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd2sd2_3 = (((gz**2) / 2.0_default) * (((1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * (mix_sd321 * conjg (mix_sd321))) + & ((sin2thw**2) * (4.0_default / 9.0_default)))) gzzsd1sd2_3 = (((gz**2) / 2.0_default) * (1.0_default - (sin2thw * & (4.0_default / 3.0_default))) * mix_sd311 * conjg (mix_sd321)) gzzsd2sd1_3 = conjg(gzzsd1sd2_3) gzpsl1sl1_3 = (e * gz * ((mix_sl311 * conjg (mix_sl311)) - & (2.0_default * sin2thw))) gzpsl2sl2_3 = (e * gz * ((mix_sl321 * conjg (mix_sl321)) - & (2.0_default * sin2thw))) gzpsl1sl2_3 = (e * gz * mix_sl311 * conjg (mix_sl321)) gzpsl2sl1_3 = (e * gz * mix_sl321 * conjg (mix_sl311)) gzpsu1su1_3 = (e * gz * (2.0_default / 3.0_default) * ((mix_su311 * & conjg (mix_su311)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu2su2_3 = (e * gz * (2.0_default / 3.0_default) * ((mix_su321 * & conjg (mix_su321)) - (sin2thw * (4.0_default / 3.0_default)))) gzpsu1su2_3 = (e * gz * (2.0_default / 3.0_default) * mix_su311 * & conjg (mix_su321)) gzpsu2su1_3 = (e * gz * (2.0_default / 3.0_default) * mix_su321 * & conjg (mix_su311)) gzpsd1sd1_3 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd311 * & conjg (mix_sd311)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd2sd2_3 = (e * gz * (1.0_default / 3.0_default) * ((mix_sd321 * & conjg (mix_sd321)) - (sin2thw * (2.0_default / 3.0_default)))) gzpsd1sd2_3 = (e * gz * (1.0_default / 3.0_default) * mix_sd311 * & conjg (mix_sd321)) gzpsd2sd1_3 = (e * gz * (1.0_default / 3.0_default) * mix_sd321 * & conjg (mix_sd311)) gwwsl1sl1_3 = (((g**2) / 2.0_default) * (mix_sl311 * conjg (mix_sl311))) gwwsl2sl2_3 = (((g**2) / 2.0_default) * (mix_sl321 * conjg (mix_sl321))) gwwsl1sl2_3 = (((g**2) / 2.0_default) * mix_sl311 * conjg (mix_sl321)) gwwsl2sl1_3 = (((g**2) / 2.0_default) * mix_sl321 * conjg (mix_sl311)) gwwsn1sn1_3 = ((g**2) / 2.0_default) gwwsu1su1_3 = (((g**2) / 2.0_default) * (mix_su311 * conjg (mix_su311))) gwwsu2su2_3 = (((g**2) / 2.0_default) * (mix_su321 * conjg (mix_su321))) gwwsu1su2_3 = (((g**2) / 2.0_default) * mix_su311 * conjg (mix_su321)) gwwsu2su1_3 = (((g**2) / 2.0_default) * mix_su321 * conjg (mix_su311)) gwwsd1sd1_3 = (((g**2) / 2.0_default) * (mix_sd311 * conjg (mix_sd311))) gwwsd2sd2_3 = (((g**2) / 2.0_default) * (mix_sd321 * conjg (mix_sd321))) gwwsd1sd2_3 = (((g**2) / 2.0_default) * mix_sd311 * conjg (mix_sd321)) gwwsd2sd1_3 = (((g**2) / 2.0_default) * mix_sd321 * conjg (mix_sd311)) gpwsl1sn_3 = ( - (e * 2.0_default * gcc * mix_sl311)) gpwsl2sn_3 = ( - (e * 2.0_default * gcc * mix_sl321)) gpwsl1sn_3_c = ( - (e * 2.0_default * gcc * conjg (mix_sl311))) gpwsl2sn_3_c = ( - (e * 2.0_default * gcc * conjg (mix_sl321))) gwzsl1sn_3 = (gcc * gz * 2.0_default * sin2thw * mix_sl311) gwzsl2sn_3 = (gcc * gz * 2.0_default * sin2thw * mix_sl321) gwzsl1sn_3_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl311)) gwzsl2sn_3_c = (gcc * gz * 2.0_default * sin2thw * conjg (mix_sl321)) gpwpsu1sd1_1_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd111) gpwpsu2sd2_1_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd121) gpwpsu1sd2_1_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd121) gpwpsu2sd1_1_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd111) gpwpsu1sd1_1_1_c = conjg (gpwpsu1sd1_1_1) gpwpsu2sd2_1_1_c = conjg (gpwpsu2sd2_1_1) gpwpsu1sd2_1_1_c = conjg (gpwpsu1sd2_1_1) gpwpsu2sd1_1_1_c = conjg (gpwpsu2sd1_1_1) gzwpsu1sd1_1_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_11 * & conjg (mix_su111) * mix_sd111)) gzwpsu2sd2_1_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_11 * & conjg (mix_su121) * mix_sd121)) gzwpsu1sd2_1_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_11 * & conjg (mix_su111) * mix_sd121)) gzwpsu2sd1_1_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_11 * & conjg (mix_su121) * mix_sd111)) gzwpsu1sd1_1_1_c = conjg (gzwpsu1sd1_1_1) gzwpsu2sd2_1_1_c = conjg (gzwpsu2sd2_1_1) gzwpsu1sd2_1_1_c = conjg (gzwpsu1sd2_1_1) gzwpsu2sd1_1_1_c = conjg (gzwpsu2sd1_1_1) gpwpsu1sd1_1_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd211) gpwpsu2sd2_1_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd221) gpwpsu1sd2_1_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd221) gpwpsu2sd1_1_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd211) gpwpsu1sd1_1_2_c = conjg (gpwpsu1sd1_1_2) gpwpsu2sd2_1_2_c = conjg (gpwpsu2sd2_1_2) gpwpsu1sd2_1_2_c = conjg (gpwpsu1sd2_1_2) gpwpsu2sd1_1_2_c = conjg (gpwpsu2sd1_1_2) gzwpsu1sd1_1_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_12 * & conjg (mix_su111) * mix_sd211)) end subroutine setup_parameters4 subroutine setup_parameters5 () gzwpsu2sd2_1_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_12 * & conjg (mix_su121) * mix_sd221)) gzwpsu1sd2_1_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_12 * & conjg (mix_su111) * mix_sd221)) gzwpsu2sd1_1_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_12 * & conjg (mix_su121) * mix_sd211)) gzwpsu1sd1_1_2_c = conjg (gzwpsu1sd1_1_2) gzwpsu2sd2_1_2_c = conjg (gzwpsu2sd2_1_2) gzwpsu1sd2_1_2_c = conjg (gzwpsu1sd2_1_2) gzwpsu2sd1_1_2_c = conjg (gzwpsu2sd1_1_2) gpwpsu1sd1_1_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd311) gpwpsu2sd2_1_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd321) gpwpsu1sd2_1_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd321) gpwpsu2sd1_1_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd311) gpwpsu1sd1_1_3_c = conjg (gpwpsu1sd1_1_3) gpwpsu2sd2_1_3_c = conjg (gpwpsu2sd2_1_3) gpwpsu1sd2_1_3_c = conjg (gpwpsu1sd2_1_3) gpwpsu2sd1_1_3_c = conjg (gpwpsu2sd1_1_3) gzwpsu1sd1_1_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_13 * & conjg (mix_su111) * mix_sd311)) gzwpsu2sd2_1_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_13 * & conjg (mix_su121) * mix_sd321)) gzwpsu1sd2_1_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_13 * & conjg (mix_su111) * mix_sd321)) gzwpsu2sd1_1_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_13 * & conjg (mix_su121) * mix_sd311)) gzwpsu1sd1_1_3_c = conjg (gzwpsu1sd1_1_3) gzwpsu2sd2_1_3_c = conjg (gzwpsu2sd2_1_3) gzwpsu1sd2_1_3_c = conjg (gzwpsu1sd2_1_3) gzwpsu2sd1_1_3_c = conjg (gzwpsu2sd1_1_3) gpwpsu1sd1_2_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd111) gpwpsu2sd2_2_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd121) gpwpsu1sd2_2_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd121) gpwpsu2sd1_2_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd111) gpwpsu1sd1_2_1_c = conjg (gpwpsu1sd1_2_1) gpwpsu2sd2_2_1_c = conjg (gpwpsu2sd2_2_1) gpwpsu1sd2_2_1_c = conjg (gpwpsu1sd2_2_1) gpwpsu2sd1_2_1_c = conjg (gpwpsu2sd1_2_1) gzwpsu1sd1_2_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_21 * & conjg (mix_su211) * mix_sd111)) gzwpsu2sd2_2_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_21 * & conjg (mix_su221) * mix_sd121)) gzwpsu1sd2_2_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_21 * & conjg (mix_su211) * mix_sd121)) gzwpsu2sd1_2_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_21 * & conjg (mix_su221) * mix_sd111)) gzwpsu1sd1_2_1_c = conjg (gzwpsu1sd1_2_1) gzwpsu2sd2_2_1_c = conjg (gzwpsu2sd2_2_1) gzwpsu1sd2_2_1_c = conjg (gzwpsu1sd2_2_1) gzwpsu2sd1_2_1_c = conjg (gzwpsu2sd1_2_1) gpwpsu1sd1_2_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd211) gpwpsu2sd2_2_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd221) gpwpsu1sd2_2_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd221) gpwpsu2sd1_2_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd211) gpwpsu1sd1_2_2_c = conjg (gpwpsu1sd1_2_2) gpwpsu2sd2_2_2_c = conjg (gpwpsu2sd2_2_2) gpwpsu1sd2_2_2_c = conjg (gpwpsu1sd2_2_2) gpwpsu2sd1_2_2_c = conjg (gpwpsu2sd1_2_2) gzwpsu1sd1_2_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_22 * & conjg (mix_su211) * mix_sd211)) gzwpsu2sd2_2_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_22 * & conjg (mix_su221) * mix_sd221)) gzwpsu1sd2_2_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_22 * & conjg (mix_su211) * mix_sd221)) gzwpsu2sd1_2_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_22 * & conjg (mix_su221) * mix_sd211)) gzwpsu1sd1_2_2_c = conjg (gzwpsu1sd1_2_2) gzwpsu2sd2_2_2_c = conjg (gzwpsu2sd2_2_2) gzwpsu1sd2_2_2_c = conjg (gzwpsu1sd2_2_2) gzwpsu2sd1_2_2_c = conjg (gzwpsu2sd1_2_2) gpwpsu1sd1_2_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd311) gpwpsu2sd2_2_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd321) gpwpsu1sd2_2_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd321) gpwpsu2sd1_2_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd311) gpwpsu1sd1_2_3_c = conjg (gpwpsu1sd1_2_3) gpwpsu2sd2_2_3_c = conjg (gpwpsu2sd2_2_3) gpwpsu1sd2_2_3_c = conjg (gpwpsu1sd2_2_3) gpwpsu2sd1_2_3_c = conjg (gpwpsu2sd1_2_3) gzwpsu1sd1_2_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_23 * & conjg (mix_su211) * mix_sd311)) gzwpsu2sd2_2_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_23 * & conjg (mix_su221) * mix_sd321)) gzwpsu1sd2_2_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_23 * & conjg (mix_su211) * mix_sd321)) gzwpsu2sd1_2_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_23 * & conjg (mix_su221) * mix_sd311)) gzwpsu1sd1_2_3_c = conjg (gzwpsu1sd1_2_3) gzwpsu2sd2_2_3_c = conjg (gzwpsu2sd2_2_3) gzwpsu1sd2_2_3_c = conjg (gzwpsu1sd2_2_3) gzwpsu2sd1_2_3_c = conjg (gzwpsu2sd1_2_3) gpwpsu1sd1_3_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd111) gpwpsu2sd2_3_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd121) gpwpsu1sd2_3_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd121) gpwpsu2sd1_3_1 = (e * gcc * (2.0_default / 3.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd111) gpwpsu1sd1_3_1_c = conjg (gpwpsu1sd1_3_1) gpwpsu2sd2_3_1_c = conjg (gpwpsu2sd2_3_1) gpwpsu1sd2_3_1_c = conjg (gpwpsu1sd2_3_1) gpwpsu2sd1_3_1_c = conjg (gpwpsu2sd1_3_1) gzwpsu1sd1_3_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_31 * & conjg (mix_su311) * mix_sd111)) gzwpsu2sd2_3_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_31 * & conjg (mix_su321) * mix_sd121)) gzwpsu1sd2_3_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_31 * & conjg (mix_su311) * mix_sd121)) gzwpsu2sd1_3_1 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_31 * & conjg (mix_su321) * mix_sd111)) gzwpsu1sd1_3_1_c = conjg (gzwpsu1sd1_3_1) gzwpsu2sd2_3_1_c = conjg (gzwpsu2sd2_3_1) gzwpsu1sd2_3_1_c = conjg (gzwpsu1sd2_3_1) gzwpsu2sd1_3_1_c = conjg (gzwpsu2sd1_3_1) gpwpsu1sd1_3_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd211) gpwpsu2sd2_3_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd221) gpwpsu1sd2_3_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd221) gpwpsu2sd1_3_2 = (e * gcc * (2.0_default / 3.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd211) gpwpsu1sd1_3_2_c = conjg (gpwpsu1sd1_3_2) gpwpsu2sd2_3_2_c = conjg (gpwpsu2sd2_3_2) gpwpsu1sd2_3_2_c = conjg (gpwpsu1sd2_3_2) gpwpsu2sd1_3_2_c = conjg (gpwpsu2sd1_3_2) gzwpsu1sd1_3_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_32 * & conjg (mix_su311) * mix_sd211)) gzwpsu2sd2_3_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_32 * & conjg (mix_su321) * mix_sd221)) gzwpsu1sd2_3_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_32 * & conjg (mix_su311) * mix_sd221)) gzwpsu2sd1_3_2 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_32 * & conjg (mix_su321) * mix_sd211)) gzwpsu1sd1_3_2_c = conjg (gzwpsu1sd1_3_2) gzwpsu2sd2_3_2_c = conjg (gzwpsu2sd2_3_2) gzwpsu1sd2_3_2_c = conjg (gzwpsu1sd2_3_2) gzwpsu2sd1_3_2_c = conjg (gzwpsu2sd1_3_2) gpwpsu1sd1_3_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd311) gpwpsu2sd2_3_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd321) gpwpsu1sd2_3_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd321) gpwpsu2sd1_3_3 = (e * gcc * (2.0_default / 3.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd311) gpwpsu1sd1_3_3_c = conjg (gpwpsu1sd1_3_3) gpwpsu2sd2_3_3_c = conjg (gpwpsu2sd2_3_3) gpwpsu1sd2_3_3_c = conjg (gpwpsu1sd2_3_3) gpwpsu2sd1_3_3_c = conjg (gpwpsu2sd1_3_3) gzwpsu1sd1_3_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_33 * & conjg (mix_su311) * mix_sd311)) gzwpsu2sd2_3_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_33 * & conjg (mix_su321) * mix_sd321)) gzwpsu1sd2_3_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_33 * & conjg (mix_su311) * mix_sd321)) gzwpsu2sd1_3_3 = ( - (gcc * gz * & (2.0_default / 3.0_default) * sin2thw * vckm_33 * & conjg (mix_su321) * mix_sd311)) gzwpsu1sd1_3_3_c = conjg (gzwpsu1sd1_3_3) gzwpsu2sd2_3_3_c = conjg (gzwpsu2sd2_3_3) gzwpsu1sd2_3_3_c = conjg (gzwpsu1sd2_3_3) gzwpsu2sd1_3_3_c = conjg (gzwpsu2sd1_3_3) gglglsqsq = (gs**2) end subroutine setup_parameters5 subroutine setup_parameters6 () gglpsqsq = 2.0_default * e * gs / 3.0_default gglsu1su1_1 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su111 * conjg (mix_su111))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_1 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su121 * conjg (mix_su121))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_1 = (gz * gs * (1.0_default / 2.0_default) * mix_su111 * & conjg (mix_su121)) gglsu2su1_1 = (gz * gs * (1.0_default / 2.0_default) * mix_su121 * & conjg (mix_su111)) gglsd1sd1_1 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd111 * conjg (mix_sd111))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_1 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd121 * conjg (mix_sd121))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_1 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd111 * conjg (mix_sd121))) gglsd2sd1_1 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd121 * conjg (mix_sd111))) gglsu1su1_2 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su211 * conjg (mix_su211))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_2 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su221 * conjg (mix_su221))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_2 = (gz * gs * (1.0_default / 2.0_default) * mix_su211 * & conjg (mix_su221)) gglsu2su1_2 = (gz * gs * (1.0_default / 2.0_default) * mix_su221 * & conjg (mix_su211)) gglsd1sd1_2 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd211 * conjg (mix_sd211))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_2 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd221 * conjg (mix_sd221))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_2 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd211 * conjg (mix_sd221))) gglsd2sd1_2 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd221 * conjg (mix_sd211))) gglsu1su1_3 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su311 * conjg (mix_su311))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_3 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su321 * conjg (mix_su321))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_3 = (gz * gs * (1.0_default / 2.0_default) * mix_su311 * & conjg (mix_su321)) gglsu2su1_3 = (gz * gs * (1.0_default / 2.0_default) * mix_su321 * & conjg (mix_su311)) gglsd1sd1_3 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd311 * conjg (mix_sd311))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_3 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd321 * conjg (mix_sd321))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_3 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd311 * conjg (mix_sd321))) gglsd2sd1_3 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd321 * conjg (mix_sd311))) gglwsu1sd1_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd111) gglwsu2sd2_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd121) gglwsu1sd2_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd121) gglwsu2sd1_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd111) gglwsu1sd1_1_1_c = conjg (gglwsu1sd1_1_1) gglwsu2sd2_1_1_c = conjg (gglwsu2sd2_1_1) gglwsu1sd2_1_1_c = conjg (gglwsu1sd2_1_1) gglwsu2sd1_1_1_c = conjg (gglwsu2sd1_1_1) gglwsu1sd1_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd211) gglwsu2sd2_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd221) gglwsu1sd2_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd221) gglwsu2sd1_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd211) gglwsu1sd1_1_2_c = conjg (gglwsu1sd1_1_2) gglwsu2sd2_1_2_c = conjg (gglwsu2sd2_1_2) gglwsu1sd2_1_2_c = conjg (gglwsu1sd2_1_2) gglwsu2sd1_1_2_c = conjg (gglwsu2sd1_1_2) gglwsu1sd1_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd311) gglwsu2sd2_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd321) gglwsu1sd2_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd321) gglwsu2sd1_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd311) gglwsu1sd1_1_3_c = conjg (gglwsu1sd1_1_3) gglwsu2sd2_1_3_c = conjg (gglwsu2sd2_1_3) gglwsu1sd2_1_3_c = conjg (gglwsu1sd2_1_3) gglwsu2sd1_1_3_c = conjg (gglwsu2sd1_1_3) gglwsu1sd1_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd111) gglwsu2sd2_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd121) gglwsu1sd2_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd121) gglwsu2sd1_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd111) gglwsu1sd1_2_1_c = conjg (gglwsu1sd1_2_1) gglwsu2sd2_2_1_c = conjg (gglwsu2sd2_2_1) gglwsu1sd2_2_1_c = conjg (gglwsu1sd2_2_1) gglwsu2sd1_2_1_c = conjg (gglwsu2sd1_2_1) gglwsu1sd1_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd211) gglwsu2sd2_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd221) gglwsu1sd2_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd221) gglwsu2sd1_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd211) gglwsu1sd1_2_2_c = conjg (gglwsu1sd1_2_2) gglwsu2sd2_2_2_c = conjg (gglwsu2sd2_2_2) gglwsu1sd2_2_2_c = conjg (gglwsu1sd2_2_2) gglwsu2sd1_2_2_c = conjg (gglwsu2sd1_2_2) gglwsu1sd1_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd311) gglwsu2sd2_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd321) gglwsu1sd2_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd321) gglwsu2sd1_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd311) gglwsu1sd1_2_3_c = conjg (gglwsu1sd1_2_3) gglwsu2sd2_2_3_c = conjg (gglwsu2sd2_2_3) gglwsu1sd2_2_3_c = conjg (gglwsu1sd2_2_3) gglwsu2sd1_2_3_c = conjg (gglwsu2sd1_2_3) gglwsu1sd1_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd111) gglwsu2sd2_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd121) gglwsu1sd2_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd121) gglwsu2sd1_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd111) gglwsu1sd1_3_1_c = conjg (gglwsu1sd1_3_1) gglwsu2sd2_3_1_c = conjg (gglwsu2sd2_3_1) gglwsu1sd2_3_1_c = conjg (gglwsu1sd2_3_1) gglwsu2sd1_3_1_c = conjg (gglwsu2sd1_3_1) gglwsu1sd1_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd211) gglwsu2sd2_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd221) gglwsu1sd2_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd221) end subroutine setup_parameters6 subroutine setup_parameters7 () gglwsu2sd1_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd211) gglwsu1sd1_3_2_c = conjg (gglwsu1sd1_3_2) gglwsu2sd2_3_2_c = conjg (gglwsu2sd2_3_2) gglwsu1sd2_3_2_c = conjg (gglwsu1sd2_3_2) gglwsu2sd1_3_2_c = conjg (gglwsu2sd1_3_2) gglwsu1sd1_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd311) gglwsu2sd2_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd321) gglwsu1sd2_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd321) gglwsu2sd1_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd311) gglwsu1sd1_3_3_c = conjg (gglwsu1sd1_3_3) gglwsu2sd2_3_3_c = conjg (gglwsu2sd2_3_3) gglwsu1sd2_3_3_c = conjg (gglwsu1sd2_3_3) gglwsu2sd1_3_3_c = conjg (gglwsu2sd1_3_3) axial0_11 = real ((mn_14 * conjg (mn_14)) - (mn_13 * conjg (mn_13))) & / 2.0_default snnh1_11 = 2.0_default * ( - real ((mn_12 - ( & (sinthw / costhw) * mn_11)) * ((sinal * mn_13) + (cosal * mn_14)))) snnh2_11 = 2.0_default * real ((mn_12 - ((sinthw / costhw) * mn_11)) * & ((cosal * mn_13) - (sinal * mn_14))) pnna_11 = 2.0_default * cmplx (0.0_default, real ((mn_12 - (mn_11 * (sinthw / costhw))) * ( & (mn_13 * sinbe) - (mn_14 * cosbe))),kind=default) vector0_12 = cmplx (0.0_default, aimag ((mn_14 * conjg (mn_24)) - & (mn_13 * conjg (mn_23))), kind=default) / 2.0_default axial0_12 = real ((mn_14 * conjg (mn_24)) - (mn_13 * conjg (mn_23))) & / 2.0_default snnh1_12 = ( - real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((sinal & * mn_23) + (cosal * mn_24))) + ((mn_22 - ((sinthw / costhw) * mn_21)) & * ((sinal * mn_13) + (cosal * mn_14))))) pnnh1_12 = ( - cmplx (0.0_default, aimag (((mn_12 - ( & (sinthw / costhw) * mn_11)) * ((sinal * mn_23) + (cosal * mn_24))) + ( & (mn_22 - ((sinthw / costhw) * mn_21)) * ((sinal * mn_13) + & (cosal * mn_14)))), kind=default)) snnh2_12 = real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((cosal * & mn_23) - (sinal * mn_24))) + ((mn_22 - ((sinthw / costhw) * mn_21)) * ( & (cosal * mn_13) - (sinal * mn_14)))) pnnh2_12 = cmplx (0.0_default, aimag (((mn_12 - ((sinthw / costhw) & * mn_11)) * ((cosal * mn_23) - (sinal * mn_24))) + ((mn_22 - ( & (sinthw / costhw) * mn_21)) * ((cosal * mn_13) - & (sinal * mn_14)))), kind=default) snna_12 = - aimag (((mn_12 - (mn_11 * & (sinthw / costhw))) * ((mn_23 * sinbe) - (mn_24 * cosbe))) + ((mn_22 - & (mn_21 * (sinthw / costhw))) * ((mn_13 * sinbe) - & (mn_14 * cosbe)))) pnna_12 = cmplx (0.0_default, real (((mn_12 - (mn_11 * (sinthw / costhw))) * ((mn_23 * sinbe) & - (mn_24 * cosbe))) + ((mn_22 - (mn_21 * (sinthw / costhw))) * ( & (mn_13 * sinbe) - (mn_14 * cosbe)))),kind=default) vector0_13 = cmplx (0.0_default, aimag ((mn_14 * conjg (mn_34)) - (mn_13 * & conjg (mn_33))), kind=default) / 2.0_default axial0_13 = real ((mn_14 * conjg (mn_34)) - (mn_13 * conjg (mn_33))) & / 2.0_default snnh1_13 = ( - real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((sinal * & mn_33) + (cosal * mn_34))) + ((mn_32 - ((sinthw / costhw) * mn_31)) * ( & (sinal * mn_13) + (cosal * mn_14))))) pnnh1_13 = ( - cmplx (0.0_default, aimag (((mn_12 - ( & (sinthw / costhw) * mn_11)) * ((sinal * mn_33) + (cosal * mn_34))) + ( & (mn_32 - ((sinthw / costhw) * mn_31)) * ((sinal * mn_13) + & (cosal * mn_14)))), kind=default)) snnh2_13 = real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((cosal * & mn_33) - (sinal * mn_34))) + ((mn_32 - ((sinthw / costhw) * mn_31)) * ( & (cosal * mn_13) - (sinal * mn_14)))) pnnh2_13 = cmplx (0.0_default, aimag (((mn_12 - ((sinthw / costhw) * & mn_11)) * ((cosal * mn_33) - (sinal * mn_34))) + ((mn_32 - ( & (sinthw / costhw) * mn_31)) * ((cosal * mn_13) - & (sinal * mn_14)))), kind=default) snna_13 = - aimag (((mn_12 - (mn_11 * & (sinthw / costhw))) * ((mn_33 * sinbe) - (mn_34 * cosbe))) + ((mn_32 - & (mn_31 * (sinthw / costhw))) * ((mn_13 * sinbe) - & (mn_14 * cosbe)))) pnna_13 = cmplx (0.0_default, real (((mn_12 - (mn_11 * (sinthw / costhw))) * ((mn_33 * sinbe) & - (mn_34 * cosbe))) + ((mn_32 - (mn_31 * (sinthw / costhw))) * ( & (mn_13 * sinbe) - (mn_14 * cosbe)))),kind=default) vector0_14 = cmplx (0.0_default, aimag ((mn_14 * conjg (mn_44)) - (mn_13 * & conjg (mn_43))), kind=default) / 2.0_default axial0_14 = real ((mn_14 * conjg (mn_44)) - (mn_13 * conjg (mn_43))) & / 2.0_default snnh1_14 = ( - real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((sinal * & mn_43) + (cosal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (sinal * mn_13) + (cosal * mn_14))))) pnnh1_14 = ( - cmplx (0.0_default, aimag (((mn_12 - ( & (sinthw / costhw) * mn_11)) * ((sinal * mn_43) + (cosal * mn_44))) + ( & (mn_42 - ((sinthw / costhw) * mn_41)) * ((sinal * mn_13) + & (cosal * mn_14)))), kind=default)) snnh2_14 = real (((mn_12 - ((sinthw / costhw) * mn_11)) * ((cosal * & mn_43) - (sinal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (cosal * mn_13) - (sinal * mn_14)))) pnnh2_14 = cmplx (0.0_default, aimag (((mn_12 - ((sinthw / costhw) * & mn_11)) * ((cosal * mn_43) - (sinal * mn_44))) + ((mn_42 - ( & (sinthw / costhw) * mn_41)) * ((cosal * mn_13) - & (sinal * mn_14)))), kind=default) snna_14 = - aimag (((mn_12 - (mn_11 * & (sinthw / costhw))) * ((mn_43 * sinbe) - (mn_44 * cosbe))) + ((mn_42 - & (mn_41 * (sinthw / costhw))) * ((mn_13 * sinbe) - & (mn_14 * cosbe)))) pnna_14 = cmplx (0.0_default, real (((mn_12 - (mn_11 * (sinthw / costhw))) * ((mn_43 * sinbe) & - (mn_44 * cosbe))) + ((mn_42 - (mn_41 * (sinthw / costhw))) * ( & (mn_13 * sinbe) - (mn_14 * cosbe)))),kind=default) axial0_22 = real ((mn_24 * conjg (mn_24)) - (mn_23 * conjg (mn_23))) & / 2.0_default snnh1_22 = 2.0_default * ( - real ((mn_22 - ( & (sinthw / costhw) * mn_21)) * ((sinal * mn_23) + (cosal * mn_24)))) snnh2_22 = 2.0_default * real ((mn_22 - ((sinthw / costhw) * mn_21)) & * ((cosal * mn_23) - (sinal * mn_24))) pnna_22 = 2.0_default * cmplx (0.0_default, real ((mn_22 - (mn_21 * (sinthw / costhw))) * ( & (mn_23 * sinbe) - (mn_24 * cosbe))),kind=default) vector0_23 = cmplx (0.0_default, aimag ((mn_24 * conjg (mn_34)) - (mn_23 * & conjg (mn_33))), kind=default) / 2.0_default axial0_23 = real ((mn_24 * conjg (mn_34)) - (mn_23 * conjg (mn_33))) & / 2.0_default snnh1_23 = ( - real (((mn_22 - ((sinthw / costhw) * mn_21)) * ((sinal * & mn_33) + (cosal * mn_34))) + ((mn_32 - ((sinthw / costhw) * mn_31)) * ( & (sinal * mn_23) + (cosal * mn_24))))) pnnh1_23 = ( - cmplx (0.0_default, aimag (((mn_22 - ( & (sinthw / costhw) * mn_21)) * ((sinal * mn_33) + (cosal * mn_34))) + ( & (mn_32 - ((sinthw / costhw) * mn_31)) * ((sinal * mn_23) + & (cosal * mn_24)))), kind=default)) snnh2_23 = real (((mn_22 - ((sinthw / costhw) * mn_21)) * ((cosal * & mn_33) - (sinal * mn_34))) + ((mn_32 - ((sinthw / costhw) * mn_31)) * ( & (cosal * mn_23) - (sinal * mn_24)))) pnnh2_23 = cmplx (0.0_default, aimag (((mn_22 - ((sinthw / costhw) * & mn_21)) * ((cosal * mn_33) - (sinal * mn_34))) + ((mn_32 - ( & (sinthw / costhw) * mn_31)) * ((cosal * mn_23) - & (sinal * mn_24)))), kind=default) snna_23 = - aimag (((mn_22 - (mn_21 * & (sinthw / costhw))) * ((mn_33 * sinbe) - (mn_34 * cosbe))) + ((mn_32 - & (mn_31 * (sinthw / costhw))) * ((mn_23 * sinbe) - & (mn_24 * cosbe)))) pnna_23 = cmplx (0.0_default, real (((mn_22 - (mn_21 * (sinthw / costhw))) * ((mn_33 * sinbe) & - (mn_34 * cosbe))) + ((mn_32 - (mn_31 * (sinthw / costhw))) * ( & (mn_23 * sinbe) - (mn_24 * cosbe)))),kind=default) vector0_24 = cmplx (0.0_default, aimag ((mn_24 * conjg (mn_44)) - (mn_23 * & conjg (mn_43))), kind=default) / 2.0_default axial0_24 = real ((mn_24 * conjg (mn_44)) - (mn_23 * conjg (mn_43))) & / 2.0_default snnh1_24 = - real (((mn_22 - ((sinthw / costhw) * mn_21)) * ((sinal * & mn_43) + (cosal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (sinal * mn_23) + (cosal * mn_24)))) pnnh1_24 = ( - cmplx (0.0_default, aimag (((mn_22 - ( & (sinthw / costhw) * mn_21)) * ((sinal * mn_43) + (cosal * mn_44))) + ( & (mn_42 - ((sinthw / costhw) * mn_41)) * ((sinal * mn_23) + & (cosal * mn_24)))), kind=default)) snnh2_24 = real (((mn_22 - ((sinthw / costhw) * mn_21)) * ((cosal * & mn_43) - (sinal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (cosal * mn_23) - (sinal * mn_24)))) pnnh2_24 = cmplx (0.0_default, aimag (((mn_22 - ((sinthw / costhw) * & mn_21)) * ((cosal * mn_43) - (sinal * mn_44))) + ((mn_42 - ( & (sinthw / costhw) * mn_41)) * ((cosal * mn_23) - & (sinal * mn_24)))), kind=default) snna_24 = - aimag (((mn_22 - (mn_21 * & (sinthw / costhw))) * ((mn_43 * sinbe) - (mn_44 * cosbe))) + ((mn_42 - & (mn_41 * (sinthw / costhw))) * ((mn_23 * sinbe) - & (mn_24 * cosbe)))) pnna_24 = cmplx (0.0_default, real (((mn_22 - (mn_21 * (sinthw / costhw))) * ((mn_43 * sinbe) & - (mn_44 * cosbe))) + ((mn_42 - (mn_41 * (sinthw / costhw))) * ( & (mn_23 * sinbe) - (mn_24 * cosbe)))),kind=default) axial0_33 = real ((mn_34 * conjg (mn_34)) - (mn_33 * conjg (mn_33))) & / 2.0_default snnh1_33 = 2.0_default * ( - real ((mn_32 - ( & (sinthw / costhw) * mn_31)) * ((sinal * mn_33) + (cosal * mn_34)))) snnh2_33 = 2.0_default * real ((mn_32 - ((sinthw / costhw) * mn_31)) & * ((cosal * mn_33) - (sinal * mn_34))) pnna_33 = 2.0_default * cmplx (0.0_default, real ((mn_32 - (mn_31 * (sinthw / costhw))) * ( & (mn_33 * sinbe) - (mn_34 * cosbe))),kind=default) end subroutine setup_parameters7 subroutine setup_parameters8 () vector0_34 = cmplx (0.0_default, aimag ((mn_34 * conjg (mn_44)) - (mn_33 * & conjg (mn_43))), kind=default) / 2.0_default axial0_34 = real ((mn_34 * conjg (mn_44)) - (mn_33 * conjg (mn_43))) & / 2.0_default snnh1_34 = ( - real (((mn_32 - ((sinthw / costhw) * mn_31)) * ((sinal * & mn_43) + (cosal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (sinal * mn_33) + (cosal * mn_34))))) pnnh1_34 = ( - cmplx (0.0_default, aimag (((mn_32 - ( & (sinthw / costhw) * mn_31)) * ((sinal * mn_43) + (cosal * mn_44))) + ( & (mn_42 - ((sinthw / costhw) * mn_41)) * ((sinal * mn_33) + & (cosal * mn_34)))), kind=default)) snnh2_34 = real (((mn_32 - ((sinthw / costhw) * mn_31)) * ((cosal * & mn_43) - (sinal * mn_44))) + ((mn_42 - ((sinthw / costhw) * mn_41)) * ( & (cosal * mn_33) - (sinal * mn_34)))) pnnh2_34 = cmplx (0.0_default, aimag (((mn_32 - ((sinthw / costhw) * & mn_31)) * ((cosal * mn_43) - (sinal * mn_44))) + ((mn_42 - ( & (sinthw / costhw) * mn_41)) * ((cosal * mn_33) - & (sinal * mn_34)))), kind=default) snna_34 = - aimag (((mn_32 - (mn_31 * & (sinthw / costhw))) * ((mn_43 * sinbe) - (mn_44 * cosbe))) + ((mn_42 - & (mn_41 * (sinthw / costhw))) * ((mn_33 * sinbe) - & (mn_34 * cosbe)))) pnna_34 = cmplx (0.0_default, real (((mn_32 - (mn_31 * (sinthw / costhw))) * ((mn_43 * sinbe) & - (mn_44 * cosbe))) + ((mn_42 - (mn_41 * (sinthw / costhw))) * ( & (mn_33 * sinbe) - (mn_34 * cosbe)))),kind=default) axial0_44 = real ((mn_44 * conjg (mn_44)) - (mn_43 * conjg (mn_43))) & / 2.0_default snnh1_44 = 2.0_default * ( - real ((mn_42 - ( & (sinthw / costhw) * mn_41)) * ((sinal * mn_43) + (cosal * mn_44)))) snnh2_44 = 2.0_default * real ((mn_42 - ((sinthw / costhw) * mn_41)) & * ((cosal * mn_43) - (sinal * mn_44))) pnna_44 = 2.0_default * cmplx (0.0_default, real ((mn_42 - (mn_41 * (sinthw / costhw))) * ( & (mn_43 * sinbe) - (mn_44 * cosbe))),kind=default) vp_11 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_12 * conjg (mv_12)) & + (conjg (mu_12) * mu_12))) + (((costhw**2) / 2.0_default) * ( & (mv_11 * conjg (mv_11)) + (conjg (mu_11) * mu_11)))) ap_11 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_12 * & conjg (mv_12)) - (conjg (mu_12) * mu_12))) + (( & (costhw**2) / 2.0_default) * ((mv_11 * conjg (mv_11)) - ( & conjg (mu_11) * mu_11)))) vp_12 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_12 * conjg (mv_22)) & + (conjg (mu_12) * mu_22))) + (((costhw**2) / 2.0_default) * ( & (mv_11 * conjg (mv_21)) + (conjg (mu_11) * mu_21)))) ap_12 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_12 * & conjg (mv_22)) - (conjg (mu_12) * mu_22))) + (( & (costhw**2) / 2.0_default) * ((mv_11 * conjg (mv_21)) - ( & conjg (mu_11) * mu_21)))) vp_21 = conjg (vp_12) ap_21 = conjg (ap_12) vp_22 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_22 * conjg (mv_22)) & + (conjg (mu_22) * mu_22))) + (((costhw**2) / 2.0_default) * ( & (mv_21 * conjg (mv_21)) + (conjg (mu_21) * mu_21)))) ap_22 = ((((1.0_default - & (2.0_default * sin2thw)) / 4.0_default) * ((mv_22 * & conjg (mv_22)) - (conjg (mu_22) * mu_22))) + (( & (costhw**2) / 2.0_default) * ((mv_21 * conjg (mv_21)) - ( & conjg (mu_21) * mu_21)))) lcn_11 = ((conjg (mn_12) * mv_11 * sqrt (2.0_default)) - ( & conjg (mn_14) * mv_12)) rcn_11 = ((mn_12 * conjg (mu_11) * sqrt (2.0_default)) + (mn_13 * & conjg (mu_12))) lnch_11 = (cosbe * ((conjg (mn_14) * conjg (mv_11)) + ((conjg (mv_12) / & sqrt (2.0_default)) * (conjg (mn_12) + ((sinthw / costhw) * & conjg (mn_11)))))) rnch_11 = (sinbe * ((mn_13 * mu_11) - ((mu_12 / sqrt (2.0_default)) * & (mn_12 + ((sinthw / costhw) * mn_11))))) lcn_12 = ((conjg (mn_22) * mv_11 * sqrt (2.0_default)) - ( & conjg (mn_24) * mv_12)) rcn_12 = ((mn_22 * conjg (mu_11) * sqrt (2.0_default)) + (mn_23 * & conjg (mu_12))) lnch_21 = (cosbe * ((conjg (mn_24) * conjg (mv_11)) + ((conjg (mv_12) / & sqrt (2.0_default)) * (conjg (mn_22) + ((sinthw / costhw) * & conjg (mn_21)))))) rnch_21 = (sinbe * ((mn_23 * mu_11) - ((mu_12 / sqrt (2.0_default)) * & (mn_22 + ((sinthw / costhw) * mn_21))))) lcn_13 = ((conjg (mn_32) * mv_11 * sqrt (2.0_default)) - ( & conjg (mn_34) * mv_12)) rcn_13 = ((mn_32 * conjg (mu_11) * sqrt (2.0_default)) + (mn_33 * & conjg (mu_12))) lnch_31 = (cosbe * ((conjg (mn_34) * conjg (mv_11)) + ((conjg (mv_12) / & sqrt (2.0_default)) * (conjg (mn_32) + ((sinthw / costhw) * & conjg (mn_31)))))) rnch_31 = (sinbe * ((mn_33 * mu_11) - ((mu_12 / sqrt (2.0_default)) * & (mn_32 + ((sinthw / costhw) * mn_31))))) lcn_14 = ((conjg (mn_42) * mv_11 * sqrt (2.0_default)) - ( & conjg (mn_44) * mv_12)) rcn_14 = ((mn_42 * conjg (mu_11) * sqrt (2.0_default)) + (mn_43 * & conjg (mu_12))) lnch_41 = (cosbe * ((conjg (mn_44) * conjg (mv_11)) + ((conjg (mv_12) / & sqrt (2.0_default)) * (conjg (mn_42) + ((sinthw / costhw) * & conjg (mn_41)))))) rnch_41 = (sinbe * ((mn_43 * mu_11) - ((mu_12 / sqrt (2.0_default)) * & (mn_42 + ((sinthw / costhw) * mn_41))))) lcn_21 = ((conjg (mn_12) * mv_21 * sqrt (2.0_default)) - ( & conjg (mn_14) * mv_22)) rcn_21 = ((mn_12 * conjg (mu_21) * sqrt (2.0_default)) + (mn_13 * & conjg (mu_22))) lnch_12 = (cosbe * ((conjg (mn_14) * conjg (mv_21)) + ((conjg (mv_22) / & sqrt (2.0_default)) * (conjg (mn_12) + ((sinthw / costhw) * & conjg (mn_11)))))) end subroutine setup_parameters8 subroutine setup_parameters9 () rnch_12 = (sinbe * ((mn_13 * mu_21) - ((mu_22 / sqrt (2.0_default)) * & (mn_12 + ((sinthw / costhw) * mn_11))))) lcn_22 = ((conjg (mn_22) * mv_21 * sqrt (2.0_default)) - ( & conjg (mn_24) * mv_22)) rcn_22 = ((mn_22 * conjg (mu_21) * sqrt (2.0_default)) + (mn_23 * & conjg (mu_22))) lnch_22 = (cosbe * ((conjg (mn_24) * conjg (mv_21)) + ((conjg (mv_22) / & sqrt (2.0_default)) * (conjg (mn_22) + ((sinthw / costhw) * & conjg (mn_21)))))) rnch_22 = (sinbe * ((mn_23 * mu_21) - ((mu_22 / sqrt (2.0_default)) * & (mn_22 + ((sinthw / costhw) * mn_21))))) lcn_23 = ((conjg (mn_32) * mv_21 * sqrt (2.0_default)) - ( & conjg (mn_34) * mv_22)) rcn_23 = ((mn_32 * conjg (mu_21) * sqrt (2.0_default)) + (mn_33 * & conjg (mu_22))) lnch_32 = (cosbe * ((conjg (mn_34) * conjg (mv_21)) + ((conjg (mv_22) / & sqrt (2.0_default)) * (conjg (mn_32) + ((sinthw / costhw) * & conjg (mn_31)))))) rnch_32 = (sinbe * ((mn_33 * mu_21) - ((mu_22 / sqrt (2.0_default)) * & (mn_32 + ((sinthw / costhw) * mn_31))))) lcn_24 = ((conjg (mn_42) * mv_21 * sqrt (2.0_default)) - ( & conjg (mn_44) * mv_22)) rcn_24 = ((mn_42 * conjg (mu_21) * sqrt (2.0_default)) + (mn_43 * & conjg (mu_22))) lnch_42 = (cosbe * ((conjg (mn_44) * conjg (mv_21)) + ((conjg (mv_22) / & sqrt (2.0_default)) * (conjg (mn_42) + ((sinthw / costhw) * & conjg (mn_41)))))) rnch_42 = (sinbe * ((mn_43 * mu_21) - ((mu_22 / sqrt (2.0_default)) * & (mn_42 + ((sinthw / costhw) * mn_41))))) lnc_11 = conjg (lcn_11) rnc_11 = conjg (rcn_11) lnc_12 = conjg (lcn_21) rnc_12 = conjg (rcn_21) lnc_21 = conjg (lcn_12) rnc_21 = conjg (rcn_12) lnc_22 = conjg (lcn_22) rnc_22 = conjg (rcn_22) lnc_31 = conjg (lcn_13) rnc_31 = conjg (rcn_13) lnc_32 = conjg (lcn_23) rnc_32 = conjg (rcn_23) lnc_41 = conjg (lcn_14) rnc_41 = conjg (rcn_14) lnc_42 = conjg (lcn_24) rnc_42 = conjg (rcn_24) gnzn_1_1 = (gz * axial0_11) gnzn_2_2 = (gz * axial0_22) gnzn_3_3 = (gz * axial0_33) gnzn_4_4 = (gz * axial0_44) !!! JR check 01.04.2005 g_h1111susu = (gz * mass(23) * ((1.0_default / 2.0_default) - & (sin2thw * q_up)) * sinapb) g_h1122susu = (gz * mass(23) * q_up * sinapb * sin2thw) g_h1111sdsd = (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * q_down)) * sinapb) g_h1122sdsd = (gz * mass(23) * q_down * sinapb * sin2thw) g_h2111susu = ( - (gz * mass(23) * ((1.0_default / 2.0_default) - & (sin2thw * q_up)) * cosapb)) g_h2122susu = ( - gz * mass(23) * q_up * cosapb * sin2thw) g_h2111sdsd = ( - (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * q_down)) * cosapb)) g_h2122sdsd = ( - gz * mass(23) * q_down * cosapb * sin2thw) !!! g_h3112susu = - (imago * ((g * mass(2) * (( & !!! conjg (au_1) * cosbe) + (mu * sinbe))) / & !!! (2.0_default * mass(24) * sinbe))) !!! g_h3121susu = conjg (g_h3112susu) !!! g_h3112sdsd = - (imago * ((g * mass(1) * (( & !!! conjg (ad_1) * tanb) + mu)) / (2.0_default * mass(24)))) !!! g_h3121sdsd = conjg (g_h3112sdsd) g_h1111snsn = (gz * mass(23) * (1.0_default / 2.0_default) * sinapb) g_h1111slsl = (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * ( - 1.0_default))) * sinapb) g_h1122slsl = (gz * mass(23) * ( - 1.0_default) * sinapb * sin2thw) g_h2111snsn = ( - (gz * mass(23) * (1.0_default / 2.0_default)) * cosapb) g_h2111slsl = ( - (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * ( - 1.0_default))) * cosapb)) g_h2122slsl = ( - (gz * mass(23) * ( - 1.0_default) * cosapb * sin2thw)) !!! g_h3112slsl = - (imago * ((g * mass(11) * (( & !!! conjg (al_1) * tanb) + mu)) / (2.0_default * mass(24)))) !!! g_h3121slsl = conjg (g_h3112slsl) g_h4111slsn = ((- g / (sqrt (2.0_default) * mass(24))) * (mass(24)**2) * sin2be) !!! g_h4112slsn = (sqrt (2.0_default) * ((g * mass(11) * ((conjg ( & !!! al_1) * sinbe) + (mu * cosbe))) / & !!! (2.0_default * mass(24) * cosbe))) g_h1211susu = g_h1111susu g_h1222susu = g_h1122susu g_h1211sdsd = g_h1111sdsd g_h1222sdsd = g_h1122sdsd g_h2211susu = g_h2111susu g_h2222susu = g_h2122susu g_h2211sdsd = g_h2111sdsd g_h2222sdsd = g_h2122sdsd !!! g_h1211susu = (gz * mass(23) * ((1.0_default / 2.0_default) - & !!! (sin2thw * q_up)) * sinapb) !!! g_h1222susu = (gz * mass(23) * q_up * sinapb * sin2thw) !!! g_h1211sdsd = (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & !!! (sin2thw * q_down)) * sinapb) !!! g_h1222sdsd = (gz * mass(23) * q_down * sinapb * sin2thw) !!! g_h2211susu = ( - (gz * mass(23) * ((1.0_default / 2.0_default) - & !!! (sin2thw * q_up)) * cosapb)) !!! g_h2222susu = ( - gz * mass(23) * q_up * cosapb * sin2thw) end subroutine setup_parameters9 subroutine setup_parameters10 () !!1 g_h2211sdsd = ( - (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & !!1 (sin2thw * q_down)) * cosapb)) !!1 g_h2222sdsd = ( - gz * mass(23) * q_down * cosapb * sin2thw) !!! g_h3212susu = - (imago * ((g * mass(4) * (( & !!! conjg (au_2) * cosbe) + (mu * sinbe))) / & !!! (2.0_default * mass(24) * sinbe))) !!! g_h3221susu = conjg (g_h3212susu) !!! g_h3212sdsd = - (imago * ((g * mass(3) * (( & !!! conjg (ad_2) * sinbe) + (mu * cosbe))) / & !!! (2.0_default * mass(24) * cosbe))) !!! g_h3221sdsd = conjg (g_h3212sdsd) g_h1211snsn = g_h1111snsn g_h1211slsl = g_h1111slsl g_h1222slsl = g_h1122slsl g_h2211snsn = g_h2111snsn g_h2211slsl = g_h2111slsl g_h2222slsl = g_h2122slsl !!! g_h1211snsn = (gz * mass(23) * (1.0_default / 2.0_default)) !!! g_h1211slsl = (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & !!! (sin2thw * ( - 1.0_default))) * sinapb) !!! g_h1222slsl = (gz * mass(23) * ( - 1.0_default) * sinapb * sin2thw) !!! g_h2211snsn = ( - (gz * mass(23) * (1.0_default / 2.0_default))) !!! g_h2211slsl = ( - (gz * mass(23) * (( - (1.0_default / 2.0_default)) - & !!! (sin2thw * ( - 1.0_default))) * cosapb)) !!! g_h2222slsl = ( - (gz * mass(23) * ( - 1.0_default) * cosapb * sin2thw)) !!! g_h3212slsl = - (imago * ((g * mass(13) * (( & !!! conjg (al_2) * sinbe) + (mu * cosbe))) / & !!! (2.0_default * mass(24) * cosbe))) !!! g_h3221slsl = conjg (g_h3212slsl) g_h4211slsn = ((- g / (sqrt (2.0_default) * mass(24))) * (mass(24)**2) * sin2be) !!! g_h4212slsn = (sqrt (2.0_default) * ((g * mass(13) * ((conjg ( & !!! al_2) * sinbe) + (mu * cosbe))) / & !!! (2.0_default * mass(24) * cosbe))) g_h1311susu = ((gz * mass(23) * ((1.0_default / 2.0_default) - & (sin2thw * q_up)) * sinapb) - ((g * & (mass(6)**2) * cosal) / (mass(24) * sinbe))) g_h1322susu = ((gz * mass(23) * q_up * sinapb * sin2thw) - ((g * & (mass(6)**2) * cosal) / (mass(24) * sinbe))) g_h1312susu = - ((g * mass(6) * ((conjg (au_3) * cosal) + ( & mu * sinal))) / (2.0_default * mass(24) * sinbe)) g_h1321susu = conjg (g_h1312susu) g_h1311sdsd = ((gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * q_down)) * sinapb) + ((g * & (mass(5)**2) * sinal) / (mass(24) * cosbe))) g_h1322sdsd = ((gz * mass(23) * q_down * sinapb * sin2thw) + ((g * & (mass(5)**2) * sinal) / (mass(24) * cosbe))) g_h1312sdsd = ((g * mass(5) * ((conjg (ad_3) * sinal) + ( & mu * cosal))) / (2.0_default * mass(24) * cosbe)) g_h1321sdsd = conjg (g_h1312sdsd) g_h2311susu = ( - ((gz * mass(23) * ((1.0_default / 2.0_default) - & (sin2thw * q_up)) * cosapb) + ((g * & (mass(6)**2) * sinal) / (mass(24) * sinbe)))) g_h2322susu = ( - ((gz * mass(23) * q_up * cosapb * sin2thw) + ((g * & (mass(6)**2) * sinal) / (mass(24) * sinbe)))) g_h2312susu = ((g * mass(6) * ((conjg (- au_3) * sinal) + ( & mu * cosal))) / (2.0_default * mass(24) * sinbe)) g_h2321susu = conjg (g_h2312susu) g_h2311sdsd = ( - ((gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * q_down)) * cosapb) + ((g * & (mass(5)**2) * cosal) / (mass(24) * cosbe)))) g_h2322sdsd = ( - ((gz * mass(23) * q_down * cosapb * sin2thw) + ((g * & (mass(5)**2) * cosal) / (mass(24) * cosbe)))) g_h2312sdsd = ((g * mass(5) * ((conjg (- ad_3) * cosal) + ( & mu * sinal))) / (2.0_default * mass(24) * cosbe)) g_h2321sdsd = conjg (g_h2312sdsd) g_h3312susu = - (imago * ((g * mass(6) * (( & conjg (au_3) * cosbe) + (mu * sinbe))) / & (2.0_default * mass(24) * sinbe))) g_h3321susu = conjg (g_h3312susu) g_h3312sdsd = - (imago * ((g * mass(5) * (( & conjg (ad_3) * sinbe) + (mu * cosbe))) / & (2.0_default * mass(24) * cosbe))) g_h3321sdsd = conjg (g_h3312sdsd) g_h1311snsn = (gz * mass(23) * (1.0_default / 2.0_default) * sinapb) g_h1311slsl = ((gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * ( - 1.0_default))) * sinapb) + ((g * & (mass(15)**2) * sinal) / (mass(24) * cosbe))) g_h1322slsl = ((gz * mass(23) * ( - 1.0_default) * sinapb * sin2thw) + ( & (g * (mass(15)**2) * sinal) / (mass(24) * cosbe))) g_h1312slsl = ((g * mass(15) * ((conjg (al_3) * sinal) + ( & mu * cosal))) / (2.0_default * mass(24) * cosbe)) g_h1321slsl = conjg (g_h1312slsl) g_h2311snsn = ( - (gz * mass(23) * (1.0_default / 2.0_default) * cosapb)) g_h2311slsl = ( - ((gz * mass(23) * (( - (1.0_default / 2.0_default)) - & (sin2thw * ( - 1.0_default))) * cosapb) + ((g * & (mass(15)**2) * cosal) / (mass(24) * cosbe)))) g_h2322slsl = ( - ((gz * mass(23) * ( - 1.0_default) * cosapb * sin2thw) + ( & (g * (mass(15)**2) * cosal) / (mass(24) * cosbe)))) g_h2312slsl = ((g * mass(15) * ((conjg (- al_3) * cosal) + ( & mu * sinal))) / (2.0_default * mass(24) * cosbe)) g_h2321slsl = conjg (g_h2312slsl) g_h3312slsl = - (imago * ((g * mass(15) * (( & conjg (al_3) * sinbe) + (mu * cosbe))) / & (2.0_default * mass(24) * cosbe))) g_h3321slsl = conjg (g_h3312slsl) g_h4311slsn = ((g / (sqrt (2.0_default) * mass(24))) * (( & (mass(15)**2) * tanb) - ((mass(24)**2) * sin2be))) g_h4312slsn = (sqrt (2.0_default) * ((g * mass(15) * ((conjg ( & al_3) * sinbe) + (mu * cosbe))) / & (2.0_default * mass(24) * cosbe))) g_h41_111susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_11 * ( - ( & (mass(24)**2) * sin2be))) g_h41_211susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_12 * ( - ( & (mass(24)**2) * sin2be))) g_h41_311susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_13 * (( - ( & (mass(24)**2) * sin2be)) + (((mass(5)**2) * tanb) + ((mass(2)**2) / tanb)))) g_h41_322susd = ((sqrt (2.0_default) * g * mass(2) * mass(5) * vckm_13) / & (mass(24) * sin2be)) g_h41_312susd = (((g * mass(5)) / ( & sqrt (2.0_default) * mass(24))) * vckm_13 * (mu + ( & conjg (ad_3) * tanb))) g_h41_321susd = (((g * mass(2)) / ( & sqrt (2.0_default) * mass(24))) * vckm_13 * (conjg (mu) + & (au_1 / tanb))) g_h42_111susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_21 * ( - ( & (mass(24)**2) * sin2be))) g_h42_211susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_22 * ( - ( & (mass(24)**2) * sin2be))) g_h42_311susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_23 * (( - ( & (mass(24)**2) * sin2be)) + (((mass(5)**2) * tanb) + ((mass(4)**2) / tanb)))) g_h42_322susd = ((sqrt (2.0_default) * g * mass(4) * mass(5) * vckm_23) / & (mass(24) * sin2be)) g_h42_312susd = (((g * mass(5)) / ( & sqrt (2.0_default) * mass(24))) * vckm_23 * (mu + ( & conjg (ad_3) * tanb))) g_h42_321susd = (((g * mass(4)) / ( & sqrt (2.0_default) * mass(24))) * vckm_23 * (conjg (mu) + & (au_2 / tanb))) g_h43_111susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_31 * (( - ( & (mass(24)**2) * sin2be)) + (((mass(1)**2) * tanb) + ((mass(6)**2) / tanb)))) g_h43_122susd = ((sqrt (2.0_default) * g * mass(6) * mass(1) * vckm_31) / & (mass(24) * sin2be)) g_h43_112susd = (((g * mass(1)) / ( & sqrt (2.0_default) * mass(24))) * vckm_31 * (mu + ( & conjg (ad_1) * tanb))) g_h43_121susd = (((g * mass(6)) / ( & sqrt (2.0_default) * mass(24))) * vckm_31 * (conjg (mu) + & (au_3 / tanb))) g_h43_211susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_32 * (( - ( & (mass(24)**2) * sin2be)) + (((mass(3)**2) * tanb) + ((mass(6)**2) / tanb)))) g_h43_222susd = ((sqrt (2.0_default) * g * mass(6) * mass(3) * vckm_32) / & (mass(24) * sin2be)) g_h43_212susd = (((g * mass(3)) / ( & sqrt (2.0_default) * mass(24))) * vckm_32 * (mu + ( & conjg (ad_2) * tanb))) g_h43_221susd = (((g * mass(6)) / ( & sqrt (2.0_default) * mass(24))) * vckm_32 * (conjg (mu) + & (au_3 / tanb))) g_h43_311susd = ((g / (sqrt (2.0_default) * mass(24))) * vckm_33 * (( - ( & (mass(24)**2) * sin2be)) + (((mass(5)**2) * tanb) + ((mass(6)**2) / tanb)))) g_h43_322susd = ((sqrt (2.0_default) * g * mass(6) * mass(5) * vckm_33) / & (mass(24) * sin2be)) g_h43_312susd = (((g * mass(5)) / ( & sqrt (2.0_default) * mass(24))) * vckm_33 * (mu + ( & conjg (ad_3) * tanb))) g_h43_321susd = (((g * mass(6)) / ( & sqrt (2.0_default) * mass(24))) * vckm_33 * (conjg (mu) + & (au_3 / tanb))) end subroutine setup_parameters10 subroutine setup_parameters11 () gh1sl1sl1_1 = g_h1111slsl gh1su1su1_1 = g_h1111susu gh1sd1sd1_1 = g_h1111sdsd gh2sl1sl1_1 = g_h2111slsl gh2su1su1_1 = g_h2111susu gh2sd1sd1_1 = g_h2111sdsd !!! gasl1sl1_1 = ((conjg (mix_sl111) * mix_sl112 * g_h3112slsl) + ( & !!! conjg (mix_sl112) * mix_sl111 * g_h3121slsl)) !!! gasu1su1_1 = ((conjg (mix_su111) * mix_su112 * g_h3112susu) + ( & !!! conjg (mix_su112) * mix_su111 * g_h3121susu)) !!! gasd1sd1_1 = ((conjg (mix_sd111) * mix_sd112 * g_h3112sdsd) + ( & !!! conjg (mix_sd112) * mix_sd111 * g_h3121sdsd)) !!! gasl1sl2_1 = ((conjg (mix_sl111) * mix_sl122 * g_h3112slsl) + ( & !!! conjg (mix_sl112) * mix_sl121 * g_h3121slsl)) !!! gasu1su2_1 = ((conjg (mix_su111) * mix_su122 * g_h3112susu) + ( & !!! conjg (mix_su112) * mix_su121 * g_h3121susu)) !!! gasd1sd2_1 = ((conjg (mix_sd111) * mix_sd122 * g_h3112sdsd) + ( & !!! conjg (mix_sd112) * mix_sd121 * g_h3121sdsd)) !!! gasl2sl1_1 = ((conjg (mix_sl121) * mix_sl112 * g_h3112slsl) + ( & !!! conjg (mix_sl122) * mix_sl111 * g_h3121slsl)) !!! gasu2su1_1 = ((conjg (mix_su121) * mix_su112 * g_h3112susu) + ( & !!! conjg (mix_su122) * mix_su111 * g_h3121susu)) !!! gasd2sd1_1 = ((conjg (mix_sd121) * mix_sd112 * g_h3112sdsd) + ( & !!! conjg (mix_sd122) * mix_sd111 * g_h3121sdsd)) gh1sl2sl2_1 = g_h1122slsl gh1su2su2_1 = g_h1122susu gh1sd2sd2_1 = g_h1122sdsd gh2sl2sl2_1 = g_h2122slsl gh2su2su2_1 = g_h2122susu gh2sd2sd2_1 = g_h2122sdsd !!! gasl2sl2_1 = ((conjg (mix_sl121) * mix_sl122 * g_h3112slsl) + ( & !!! conjg (mix_sl122) * mix_sl121 * g_h3121slsl)) !!! gasu2su2_1 = ((conjg (mix_su121) * mix_su122 * g_h3112susu) + ( & !!! conjg (mix_su122) * mix_su121 * g_h3121susu)) !!! gasd2sd2_1 = ((conjg (mix_sd121) * mix_sd122 * g_h3112sdsd) + ( & !!! conjg (mix_sd122) * mix_sd121 * g_h3121sdsd)) !!! ghsnsl1_1 = g_h4111slsn !!! ghsnsl1_1 = ((conjg (mix_sl111) * g_h4111slsn) + ( & !!! conjg (mix_sl112) * g_h4112slsn)) !!! ghsnsl1_1_c = conjg (ghsnsl1_1) ghsnsl1_1 = g_h4111slsn !!! ghsnsl2_1 = ((conjg (mix_sl121) * g_h4111slsn) + ( & !!! conjg (mix_sl122) * g_h4112slsn)) ghsnsl1_1_c = conjg (ghsnsl1_1) gh1sn1sn1_1 = g_h1111snsn gh2sn1sn1_1 = g_h2111snsn gh1sl1sl1_2 = g_h1211slsl gh1su1su1_2 = g_h1211susu gh1sd1sd1_2 = g_h1211sdsd gh2sl1sl1_2 = g_h2211slsl gh2su1su1_2 = g_h2211susu gh2sd1sd1_2 = g_h2211sdsd !!! gasl1sl1_2 = ((conjg (mix_sl211) * mix_sl212 * g_h3212slsl) + ( & !!! conjg (mix_sl212) * mix_sl211 * g_h3221slsl)) !!! gasu1su1_2 = ((conjg (mix_su211) * mix_su212 * g_h3212susu) + ( & !!! conjg (mix_su212) * mix_su211 * g_h3221susu)) !!! gasd1sd1_2 = ((conjg (mix_sd211) * mix_sd212 * g_h3212sdsd) + ( & !!! conjg (mix_sd212) * mix_sd211 * g_h3221sdsd)) !!! gasl1sl2_2 = ((conjg (mix_sl211) * mix_sl222 * g_h3212slsl) + ( & !!! conjg (mix_sl212) * mix_sl221 * g_h3221slsl)) !!! gasu1su2_2 = ((conjg (mix_su211) * mix_su222 * g_h3212susu) + ( & !!! conjg (mix_su212) * mix_su221 * g_h3221susu)) !!! gasd1sd2_2 = ((conjg (mix_sd211) * mix_sd222 * g_h3212sdsd) + ( & !!! conjg (mix_sd212) * mix_sd221 * g_h3221sdsd)) !!! gasl2sl1_2 = ((conjg (mix_sl221) * mix_sl212 * g_h3212slsl) + ( & !!! conjg (mix_sl222) * mix_sl211 * g_h3221slsl)) !!! gasu2su1_2 = ((conjg (mix_su221) * mix_su212 * g_h3212susu) + ( & !!! conjg (mix_su222) * mix_su211 * g_h3221susu)) !!! gasd2sd1_2 = ((conjg (mix_sd221) * mix_sd212 * g_h3212sdsd) + ( & !!! conjg (mix_sd222) * mix_sd211 * g_h3221sdsd)) gh1sl2sl2_2 = g_h1222slsl gh1su2su2_2 = g_h1222susu gh1sd2sd2_2 = g_h1222sdsd gh2sl2sl2_2 = g_h2222slsl gh2su2su2_2 = g_h2222susu gh2sd2sd2_2 = g_h2222sdsd !!! gasl2sl2_2 = ((conjg (mix_sl221) * mix_sl222 * g_h3212slsl) + ( & !!! conjg (mix_sl222) * mix_sl221 * g_h3221slsl)) !!! gasu2su2_2 = ((conjg (mix_su221) * mix_su222 * g_h3212susu) + ( & !!! conjg (mix_su222) * mix_su221 * g_h3221susu)) !!! gasd2sd2_2 = ((conjg (mix_sd221) * mix_sd222 * g_h3212sdsd) + ( & !!! conjg (mix_sd222) * mix_sd221 * g_h3221sdsd)) ghsnsl1_2 = g_h4211slsn !!! ghsnsl1_2 = ((conjg (mix_sl211) * g_h4211slsn) + ( & !!! conjg (mix_sl212) * g_h4212slsn)) ghsnsl1_2_c = conjg (ghsnsl1_2) !!! ghsnsl2_2 = g_h4211slsn !!! ghsnsl2_2 = ((conjg (mix_sl221) * g_h4211slsn) + ( & !!! conjg (mix_sl222) * g_h4212slsn)) !!! ghsnsl2_2_c = conjg (ghsnsl2_2) gh1sn1sn1_2 = g_h1211snsn gh2sn1sn1_2 = g_h2211snsn gh1sl1sl1_3 = ((conjg (mix_sl311) * mix_sl311 * g_h1311slsl) + ( & conjg (mix_sl312) * mix_sl312 * g_h1322slsl) + ( & conjg (mix_sl311) * mix_sl312 * g_h1312slsl) + ( & conjg (mix_sl312) * mix_sl311 * g_h1321slsl)) gh1su1su1_3 = ((conjg (mix_su311) * mix_su311 * g_h1311susu) + ( & conjg (mix_su312) * mix_su312 * g_h1322susu) + ( & conjg (mix_su311) * mix_su312 * g_h1312susu) + ( & conjg (mix_su312) * mix_su311 * g_h1321susu)) gh1sd1sd1_3 = ((conjg (mix_sd311) * mix_sd311 * g_h1311sdsd) + ( & conjg (mix_sd312) * mix_sd312 * g_h1322sdsd) + ( & conjg (mix_sd311) * mix_sd312 * g_h1312sdsd) + ( & conjg (mix_sd312) * mix_sd311 * g_h1321sdsd)) gh2sl1sl1_3 = ((conjg (mix_sl311) * mix_sl311 * g_h2311slsl) + ( & conjg (mix_sl312) * mix_sl312 * g_h2322slsl) + ( & conjg (mix_sl311) * mix_sl312 * g_h2312slsl) + ( & conjg (mix_sl312) * mix_sl311 * g_h2321slsl)) gh2su1su1_3 = ((conjg (mix_su311) * mix_su311 * g_h2311susu) + ( & conjg (mix_su312) * mix_su312 * g_h2322susu) + ( & conjg (mix_su311) * mix_su312 * g_h2312susu) + ( & conjg (mix_su312) * mix_su311 * g_h2321susu)) gh2sd1sd1_3 = ((conjg (mix_sd311) * mix_sd311 * g_h2311sdsd) + ( & conjg (mix_sd312) * mix_sd312 * g_h2322sdsd) + ( & conjg (mix_sd311) * mix_sd312 * g_h2312sdsd) + ( & conjg (mix_sd312) * mix_sd311 * g_h2321sdsd)) gasl1sl1_3 = ((conjg (mix_sl311) * mix_sl312 * g_h3312slsl) + ( & conjg (mix_sl312) * mix_sl311 * g_h3321slsl)) gasu1su1_3 = ((conjg (mix_su311) * mix_su312 * g_h3312susu) + ( & conjg (mix_su312) * mix_su311 * g_h3321susu)) gasd1sd1_3 = ((conjg (mix_sd311) * mix_sd312 * g_h3312sdsd) + ( & conjg (mix_sd312) * mix_sd311 * g_h3321sdsd)) gh1sl1sl2_3 = ((conjg (mix_sl311) * mix_sl321 * g_h1311slsl) + ( & conjg (mix_sl312) * mix_sl322 * g_h1322slsl) + ( & conjg (mix_sl311) * mix_sl322 * g_h1312slsl) + ( & conjg (mix_sl312) * mix_sl321 * g_h1321slsl)) gh1su1su2_3 = ((conjg (mix_su311) * mix_su321 * g_h1311susu) + ( & conjg (mix_su312) * mix_su322 * g_h1322susu) + ( & conjg (mix_su311) * mix_su322 * g_h1312susu) + ( & conjg (mix_su312) * mix_su321 * g_h1321susu)) gh1sd1sd2_3 = ((conjg (mix_sd311) * mix_sd321 * g_h1311sdsd) + ( & conjg (mix_sd312) * mix_sd322 * g_h1322sdsd) + ( & conjg (mix_sd311) * mix_sd322 * g_h1312sdsd) + ( & conjg (mix_sd312) * mix_sd321 * g_h1321sdsd)) gh2sl1sl2_3 = ((conjg (mix_sl311) * mix_sl321 * g_h2311slsl) + ( & conjg (mix_sl312) * mix_sl322 * g_h2322slsl) + ( & conjg (mix_sl311) * mix_sl322 * g_h2312slsl) + ( & conjg (mix_sl312) * mix_sl321 * g_h2321slsl)) gh2su1su2_3 = ((conjg (mix_su311) * mix_su321 * g_h2311susu) + ( & conjg (mix_su312) * mix_su322 * g_h2322susu) + ( & conjg (mix_su311) * mix_su322 * g_h2312susu) + ( & conjg (mix_su312) * mix_su321 * g_h2321susu)) gh2sd1sd2_3 = ((conjg (mix_sd311) * mix_sd321 * g_h2311sdsd) + ( & conjg (mix_sd312) * mix_sd322 * g_h2322sdsd) + ( & conjg (mix_sd311) * mix_sd322 * g_h2312sdsd) + ( & conjg (mix_sd312) * mix_sd321 * g_h2321sdsd)) gasl1sl2_3 = ((conjg (mix_sl311) * mix_sl322 * g_h3312slsl) + ( & conjg (mix_sl312) * mix_sl321 * g_h3321slsl)) gasu1su2_3 = ((conjg (mix_su311) * mix_su322 * g_h3312susu) + ( & conjg (mix_su312) * mix_su321 * g_h3321susu)) gasd1sd2_3 = ((conjg (mix_sd311) * mix_sd322 * g_h3312sdsd) + ( & conjg (mix_sd312) * mix_sd321 * g_h3321sdsd)) gh1sl2sl1_3 = ((conjg (mix_sl321) * mix_sl311 * g_h1311slsl) + ( & conjg (mix_sl322) * mix_sl312 * g_h1322slsl) + ( & conjg (mix_sl321) * mix_sl312 * g_h1312slsl) + ( & conjg (mix_sl322) * mix_sl311 * g_h1321slsl)) gh1su2su1_3 = ((conjg (mix_su321) * mix_su311 * g_h1311susu) + ( & conjg (mix_su322) * mix_su312 * g_h1322susu) + ( & conjg (mix_su321) * mix_su312 * g_h1312susu) + ( & conjg (mix_su322) * mix_su311 * g_h1321susu)) gh1sd2sd1_3 = ((conjg (mix_sd321) * mix_sd311 * g_h1311sdsd) + ( & conjg (mix_sd322) * mix_sd312 * g_h1322sdsd) + ( & conjg (mix_sd321) * mix_sd312 * g_h1312sdsd) + ( & conjg (mix_sd322) * mix_sd311 * g_h1321sdsd)) gh2sl2sl1_3 = ((conjg (mix_sl321) * mix_sl311 * g_h2311slsl) + ( & conjg (mix_sl322) * mix_sl312 * g_h2322slsl) + ( & conjg (mix_sl321) * mix_sl312 * g_h2312slsl) + ( & conjg (mix_sl322) * mix_sl311 * g_h2321slsl)) gh2su2su1_3 = ((conjg (mix_su321) * mix_su311 * g_h2311susu) + ( & conjg (mix_su322) * mix_su312 * g_h2322susu) + ( & conjg (mix_su321) * mix_su312 * g_h2312susu) + ( & conjg (mix_su322) * mix_su311 * g_h2321susu)) gh2sd2sd1_3 = ((conjg (mix_sd321) * mix_sd311 * g_h2311sdsd) + ( & conjg (mix_sd322) * mix_sd312 * g_h2322sdsd) + ( & conjg (mix_sd321) * mix_sd312 * g_h2312sdsd) + ( & conjg (mix_sd322) * mix_sd311 * g_h2321sdsd)) gasl2sl1_3 = ((conjg (mix_sl321) * mix_sl312 * g_h3312slsl) + ( & conjg (mix_sl322) * mix_sl311 * g_h3321slsl)) end subroutine setup_parameters11 subroutine setup_parameters12 () gasu2su1_3 = ((conjg (mix_su321) * mix_su312 * g_h3312susu) + ( & conjg (mix_su322) * mix_su311 * g_h3321susu)) gasd2sd1_3 = ((conjg (mix_sd321) * mix_sd312 * g_h3312sdsd) + ( & conjg (mix_sd322) * mix_sd311 * g_h3321sdsd)) gh1sl2sl2_3 = ((conjg (mix_sl321) * mix_sl321 * g_h1311slsl) + ( & conjg (mix_sl322) * mix_sl322 * g_h1322slsl) + ( & conjg (mix_sl321) * mix_sl322 * g_h1312slsl) + ( & conjg (mix_sl322) * mix_sl321 * g_h1321slsl)) gh1su2su2_3 = ((conjg (mix_su321) * mix_su321 * g_h1311susu) + ( & conjg (mix_su322) * mix_su322 * g_h1322susu) + ( & conjg (mix_su321) * mix_su322 * g_h1312susu) + ( & conjg (mix_su322) * mix_su321 * g_h1321susu)) gh1sd2sd2_3 = ((conjg (mix_sd321) * mix_sd321 * g_h1311sdsd) + ( & conjg (mix_sd322) * mix_sd322 * g_h1322sdsd) + ( & conjg (mix_sd321) * mix_sd322 * g_h1312sdsd) + ( & conjg (mix_sd322) * mix_sd321 * g_h1321sdsd)) gh2sl2sl2_3 = ((conjg (mix_sl321) * mix_sl321 * g_h2311slsl) + ( & conjg (mix_sl322) * mix_sl322 * g_h2322slsl) + ( & conjg (mix_sl321) * mix_sl322 * g_h2312slsl) + ( & conjg (mix_sl322) * mix_sl321 * g_h2321slsl)) gh2su2su2_3 = ((conjg (mix_su321) * mix_su321 * g_h2311susu) + ( & conjg (mix_su322) * mix_su322 * g_h2322susu) + ( & conjg (mix_su321) * mix_su322 * g_h2312susu) + ( & conjg (mix_su322) * mix_su321 * g_h2321susu)) gh2sd2sd2_3 = ((conjg (mix_sd321) * mix_sd321 * g_h2311sdsd) + ( & conjg (mix_sd322) * mix_sd322 * g_h2322sdsd) + ( & conjg (mix_sd321) * mix_sd322 * g_h2312sdsd) + ( & conjg (mix_sd322) * mix_sd321 * g_h2321sdsd)) gasl2sl2_3 = ((conjg (mix_sl321) * mix_sl322 * g_h3312slsl) + ( & conjg (mix_sl322) * mix_sl321 * g_h3321slsl)) gasu2su2_3 = ((conjg (mix_su321) * mix_su322 * g_h3312susu) + ( & conjg (mix_su322) * mix_su321 * g_h3321susu)) gasd2sd2_3 = ((conjg (mix_sd321) * mix_sd322 * g_h3312sdsd) + ( & conjg (mix_sd322) * mix_sd321 * g_h3321sdsd)) ghsnsl1_3 = ((conjg (mix_sl311) * g_h4311slsn) + ( & conjg (mix_sl312) * g_h4312slsn)) ghsnsl1_3_c = conjg (ghsnsl1_3) ghsnsl2_3 = ((conjg (mix_sl321) * g_h4311slsn) + ( & conjg (mix_sl322) * g_h4312slsn)) ghsnsl2_3_c = conjg (ghsnsl2_3) gh1sn1sn1_3 = g_h1311snsn gh2sn1sn1_3 = g_h2311snsn ghsu1sd1_1_1 = g_h41_111susd ghsu1sd1_1_1_c = conjg (ghsu1sd1_1_1) ghsu1sd1_1_2 = g_h41_211susd ghsu1sd1_1_2_c = conjg (ghsu1sd1_1_2) ghsu1sd1_1_3 = ((conjg (mix_su111) * mix_sd311 * g_h41_311susd) + ( & conjg (mix_su112) * mix_sd312 * g_h41_322susd) + ( & conjg (mix_su111) * mix_sd312 * g_h41_312susd) + ( & conjg (mix_su112) * mix_sd311 * g_h41_321susd)) ghsu1sd1_1_3_c = conjg (ghsu1sd1_1_3) ghsu1sd2_1_3 = ((conjg (mix_su111) * mix_sd321 * g_h41_311susd) + ( & conjg (mix_su112) * mix_sd322 * g_h41_322susd) + ( & conjg (mix_su111) * mix_sd322 * g_h41_312susd) + ( & conjg (mix_su112) * mix_sd321 * g_h41_321susd)) ghsu1sd2_1_3_c = conjg (ghsu1sd2_1_3) ghsu2sd1_1_3 = ((conjg (mix_su121) * mix_sd311 * g_h41_311susd) + ( & conjg (mix_su122) * mix_sd312 * g_h41_322susd) + ( & conjg (mix_su121) * mix_sd312 * g_h41_312susd) + ( & conjg (mix_su122) * mix_sd311 * g_h41_321susd)) ghsu2sd1_1_3_c = conjg (ghsu2sd1_1_3) ghsu2sd2_1_3 = ((conjg (mix_su121) * mix_sd321 * g_h41_311susd) + ( & conjg (mix_su122) * mix_sd322 * g_h41_322susd) + ( & conjg (mix_su121) * mix_sd322 * g_h41_312susd) + ( & conjg (mix_su122) * mix_sd321 * g_h41_321susd)) ghsu2sd2_1_3_c = conjg (ghsu2sd2_1_3) ghsu1sd1_2_1 = g_h42_111susd ghsu1sd1_2_1_c = conjg (ghsu1sd1_2_1) ghsu1sd1_2_2 = g_h42_211susd ghsu1sd1_2_2_c = conjg (ghsu1sd1_2_2) ghsu1sd1_2_3 = ((conjg (mix_su211) * mix_sd311 * g_h42_311susd) + ( & conjg (mix_su212) * mix_sd312 * g_h42_322susd) + ( & conjg (mix_su211) * mix_sd312 * g_h42_312susd) + ( & conjg (mix_su212) * mix_sd311 * g_h42_321susd)) ghsu1sd1_2_3_c = conjg (ghsu1sd1_2_3) ghsu1sd2_2_3 = ((conjg (mix_su211) * mix_sd321 * g_h42_311susd) + ( & conjg (mix_su212) * mix_sd322 * g_h42_322susd) + ( & conjg (mix_su211) * mix_sd322 * g_h42_312susd) + ( & conjg (mix_su212) * mix_sd321 * g_h42_321susd)) ghsu1sd2_2_3_c = conjg (ghsu1sd2_2_3) ghsu2sd1_2_3 = ((conjg (mix_su221) * mix_sd311 * g_h42_311susd) + ( & conjg (mix_su222) * mix_sd312 * g_h42_322susd) + ( & conjg (mix_su221) * mix_sd312 * g_h42_312susd) + ( & conjg (mix_su222) * mix_sd311 * g_h42_321susd)) ghsu2sd1_2_3_c = conjg (ghsu2sd1_2_3) ghsu2sd2_2_3 = ((conjg (mix_su221) * mix_sd321 * g_h42_311susd) + ( & conjg (mix_su222) * mix_sd322 * g_h42_322susd) + ( & conjg (mix_su221) * mix_sd322 * g_h42_312susd) + ( & conjg (mix_su222) * mix_sd321 * g_h42_321susd)) ghsu2sd2_2_3_c = conjg (ghsu2sd2_2_3) ghsu1sd1_3_1 = ((conjg (mix_su311) * mix_sd111 * g_h43_111susd) + ( & conjg (mix_su312) * mix_sd112 * g_h43_122susd) + ( & conjg (mix_su311) * mix_sd112 * g_h43_112susd) + ( & conjg (mix_su312) * mix_sd111 * g_h43_121susd)) ghsu1sd1_3_1_c = conjg (ghsu1sd1_3_1) ghsu1sd2_3_1 = ((conjg (mix_su311) * mix_sd121 * g_h43_111susd) + ( & conjg (mix_su312) * mix_sd122 * g_h43_122susd) + ( & conjg (mix_su311) * mix_sd122 * g_h43_112susd) + ( & conjg (mix_su312) * mix_sd121 * g_h43_121susd)) ghsu1sd2_3_1_c = conjg (ghsu1sd2_3_1) ghsu2sd1_3_1 = ((conjg (mix_su321) * mix_sd111 * g_h43_111susd) + ( & conjg (mix_su322) * mix_sd112 * g_h43_122susd) + ( & conjg (mix_su321) * mix_sd112 * g_h43_112susd) + ( & conjg (mix_su322) * mix_sd111 * g_h43_121susd)) ghsu2sd1_3_1_c = conjg (ghsu2sd1_3_1) ghsu2sd2_3_1 = ((conjg (mix_su321) * mix_sd121 * g_h43_111susd) + ( & conjg (mix_su322) * mix_sd122 * g_h43_122susd) + ( & conjg (mix_su321) * mix_sd122 * g_h43_112susd) + ( & conjg (mix_su322) * mix_sd121 * g_h43_121susd)) ghsu2sd2_3_1_c = conjg (ghsu2sd2_3_1) ghsu1sd1_3_2 = ((conjg (mix_su311) * mix_sd211 * g_h43_211susd) + ( & conjg (mix_su312) * mix_sd212 * g_h43_222susd) + ( & conjg (mix_su311) * mix_sd212 * g_h43_212susd) + ( & conjg (mix_su312) * mix_sd211 * g_h43_221susd)) ghsu1sd1_3_2_c = conjg (ghsu1sd1_3_2) ghsu1sd2_3_2 = ((conjg (mix_su311) * mix_sd221 * g_h43_211susd) + ( & conjg (mix_su312) * mix_sd222 * g_h43_222susd) + ( & conjg (mix_su311) * mix_sd222 * g_h43_212susd) + ( & conjg (mix_su312) * mix_sd221 * g_h43_221susd)) ghsu1sd2_3_2_c = conjg (ghsu1sd2_3_2) ghsu2sd1_3_2 = ((conjg (mix_su321) * mix_sd211 * g_h43_211susd) + ( & conjg (mix_su322) * mix_sd212 * g_h43_222susd) + ( & conjg (mix_su321) * mix_sd212 * g_h43_212susd) + ( & conjg (mix_su322) * mix_sd211 * g_h43_221susd)) ghsu2sd1_3_2_c = conjg (ghsu2sd1_3_2) ghsu2sd2_3_2 = ((conjg (mix_su321) * mix_sd221 * g_h43_211susd) + ( & conjg (mix_su322) * mix_sd222 * g_h43_222susd) + ( & conjg (mix_su321) * mix_sd222 * g_h43_212susd) + ( & conjg (mix_su322) * mix_sd221 * g_h43_221susd)) ghsu2sd2_3_2_c = conjg (ghsu2sd2_3_2) ghsu1sd1_3_3 = ((conjg (mix_su311) * mix_sd311 * g_h43_311susd) + ( & conjg (mix_su312) * mix_sd312 * g_h43_322susd) + ( & conjg (mix_su311) * mix_sd312 * g_h43_312susd) + ( & conjg (mix_su312) * mix_sd311 * g_h43_321susd)) ghsu1sd1_3_3_c = conjg (ghsu1sd1_3_3) ghsu1sd2_3_3 = ((conjg (mix_su311) * mix_sd321 * g_h43_311susd) + ( & conjg (mix_su312) * mix_sd322 * g_h43_322susd) + ( & conjg (mix_su311) * mix_sd322 * g_h43_312susd) + ( & conjg (mix_su312) * mix_sd321 * g_h43_321susd)) ghsu1sd2_3_3_c = conjg (ghsu1sd2_3_3) ghsu2sd1_3_3 = ((conjg (mix_su321) * mix_sd311 * g_h43_311susd) + ( & conjg (mix_su322) * mix_sd312 * g_h43_322susd) + ( & conjg (mix_su321) * mix_sd312 * g_h43_312susd) + ( & conjg (mix_su322) * mix_sd311 * g_h43_321susd)) ghsu2sd1_3_3_c = conjg (ghsu2sd1_3_3) ghsu2sd2_3_3 = ((conjg (mix_su321) * mix_sd321 * g_h43_311susd) + ( & conjg (mix_su322) * mix_sd322 * g_h43_322susd) + ( & conjg (mix_su321) * mix_sd322 * g_h43_312susd) + ( & conjg (mix_su322) * mix_sd321 * g_h43_321susd)) ghsu2sd2_3_3_c = conjg (ghsu2sd2_3_3) g_yuk_ch1_sl1_1_c = ((( - g) / 2.0_default) * mu_11) g_yuk_ch1_sl1_1 = conjg (g_yuk_ch1_sl1_1_c) g_yuk_ch1_sl1_2_c = ((( - g) / 2.0_default) * mu_11) g_yuk_ch1_sl1_2 = conjg (g_yuk_ch1_sl1_2_c) g_yuk_ch1_sl1_3_c = ((((( - g) / 2.0_default) * mu_11) * & conjg (mix_sl311)) + (((gcc * mass(15) * mu_12) / (mass(24) * cosbe)) * & conjg (mix_sl312))) g_yuk_ch1_sl1_3 = conjg (g_yuk_ch1_sl1_3_c) g_yuk_ch1_sl2_3_c = ((((( - g) / 2.0_default) * mu_11) * & conjg (mix_sl321)) + (((gcc * mass(15) * mu_12) / (mass(24) * cosbe)) * & conjg (mix_sl322))) g_yuk_ch1_sl2_3 = conjg (g_yuk_ch1_sl2_3_c) g_yuk_ch1_sn1_1_c = ( - ((g / 2.0_default) * mv_11)) g_yuk_ch1_sn1_1 = conjg (g_yuk_ch1_sn1_1_c) g_yuk_ch1_sn1_2_c = ( - ((g / 2.0_default) * mv_11)) g_yuk_ch1_sn1_2 = conjg (g_yuk_ch1_sn1_2_c) g_yuk_ch2_sl1_1_c = ((( - g) / 2.0_default) * mu_21) g_yuk_ch2_sl1_1 = conjg (g_yuk_ch2_sl1_1_c) g_yuk_ch2_sl1_2_c = ((( - g) / 2.0_default) * mu_21) g_yuk_ch2_sl1_2 = conjg (g_yuk_ch2_sl1_2_c) g_yuk_ch2_sl1_3_c = ((((( - g) / 2.0_default) * mu_21) * & conjg (mix_sl311)) + (((gcc * mass(15) * mu_22) / (mass(24) * cosbe)) * & conjg (mix_sl312))) g_yuk_ch2_sl1_3 = conjg (g_yuk_ch2_sl1_3_c) g_yuk_ch2_sl2_3_c = ((((( - g) / 2.0_default) * mu_21) * & conjg (mix_sl321)) + (((gcc * mass(15) * mu_22) / (mass(24) * cosbe)) * & conjg (mix_sl322))) g_yuk_ch2_sl2_3 = conjg (g_yuk_ch2_sl2_3_c) g_yuk_ch2_sl2_3_c = conjg (g_yuk_ch2_sl2_3) g_yuk_ch2_sn1_1_c = ( - ((g / 2.0_default) * mv_21)) g_yuk_ch2_sn1_1 = conjg (g_yuk_ch2_sn1_1_c) g_yuk_ch2_sn1_2_c = ( - ((g / 2.0_default) * mv_21)) g_yuk_ch2_sn1_2 = conjg (g_yuk_ch2_sn1_2_c) g_yuk_ch1_sd1_1_1 = ( - ((g / 2.0_default) * conjg (mu_11) * vckm_11)) g_yuk_ch1_sd1_1_1_c = conjg (g_yuk_ch1_sd1_1_1) g_yuk_ch1_su1_1_1 = ( - ((g / 2.0_default) * conjg (mv_11) * vckm_11)) g_yuk_ch1_su1_1_1_c = conjg (g_yuk_ch1_su1_1_1) g_yuk_ch1_sd1_1_2 = ( - ((g / 2.0_default) * conjg (mu_11) * vckm_12)) g_yuk_ch1_sd1_1_2_c = conjg (g_yuk_ch1_sd1_1_2) g_yuk_ch1_su1_1_2 = ( - ((g / 2.0_default) * conjg (mv_11) * vckm_12)) g_yuk_ch1_su1_1_2_c = conjg (g_yuk_ch1_su1_1_2) g_yuk_ch1_sd1_2_1 = ( - ((g / 2.0_default) * conjg (mu_11) * vckm_21)) g_yuk_ch1_sd1_2_1_c = conjg (g_yuk_ch1_sd1_2_1) g_yuk_ch1_su1_2_1 = ( - ((g / 2.0_default) * conjg (mv_11) * vckm_21)) g_yuk_ch1_su1_2_1_c = conjg (g_yuk_ch1_su1_2_1) g_yuk_ch1_sd1_2_2 = ( - ((g / 2.0_default) * conjg (mu_11) * vckm_22)) g_yuk_ch1_sd1_2_2_c = conjg (g_yuk_ch1_sd1_2_2) g_yuk_ch1_su1_2_2 = ( - ((g / 2.0_default) * conjg (mv_11) * vckm_22)) g_yuk_ch1_su1_2_2_c = conjg (g_yuk_ch1_su1_2_2) g_yuk_ch2_sd1_1_1 = ( - ((g / 2.0_default) * conjg (mu_21) * vckm_11)) g_yuk_ch2_sd1_1_1_c = conjg (g_yuk_ch2_sd1_1_1) g_yuk_ch2_su1_1_1 = ( - ((g / 2.0_default) * conjg (mv_21) * vckm_11)) g_yuk_ch2_su1_1_1_c = conjg (g_yuk_ch2_su1_1_1) g_yuk_ch2_sd1_1_2 = ( - ((g / 2.0_default) * conjg (mu_21) * vckm_12)) g_yuk_ch2_sd1_1_2_c = conjg (g_yuk_ch2_sd1_1_2) g_yuk_ch2_su1_1_2 = ( - ((g / 2.0_default) * conjg (mv_21) * vckm_12)) g_yuk_ch2_su1_1_2_c = conjg (g_yuk_ch2_su1_1_2) g_yuk_ch2_sd1_2_1 = ( - ((g / 2.0_default) * conjg (mu_21) * vckm_21)) g_yuk_ch2_sd1_2_1_c = conjg (g_yuk_ch2_sd1_2_1) g_yuk_ch2_su1_2_1 = ( - ((g / 2.0_default) * conjg (mv_21) * vckm_21)) g_yuk_ch2_su1_2_1_c = conjg (g_yuk_ch2_su1_2_1) g_yuk_ch2_sd1_2_2 = ( - ((g / 2.0_default) * conjg (mu_21) * vckm_22)) g_yuk_ch2_sd1_2_2_c = conjg (g_yuk_ch2_sd1_2_2) g_yuk_ch2_su1_2_2 = ( - ((g / 2.0_default) * conjg (mv_21) * vckm_22)) g_yuk_ch2_su1_2_2_c = conjg (g_yuk_ch2_su1_2_2) g_yuk_n1_sn1_1 = (gcc * ((mn_11 * (sinthw / costhw)) - mn_12)) g_yuk_n1_sn1_1_c = conjg (g_yuk_n1_sn1_1) g_yuk_n1_sn1_2 = (gcc * ((mn_11 * (sinthw / costhw)) - mn_12)) g_yuk_n1_sn1_2_c = conjg (g_yuk_n1_sn1_2) g_yuk_n1_sn1_3 = (gcc * ((mn_11 * (sinthw / costhw)) - mn_12)) g_yuk_n1_sn1_3_c = conjg (g_yuk_n1_sn1_3) g_yuk_n2_sn1_1 = (gcc * ((mn_21 * (sinthw / costhw)) - mn_22)) g_yuk_n2_sn1_1_c = conjg (g_yuk_n2_sn1_1) g_yuk_n2_sn1_2 = (gcc * ((mn_21 * (sinthw / costhw)) - mn_22)) g_yuk_n2_sn1_2_c = conjg (g_yuk_n2_sn1_2) g_yuk_n2_sn1_3 = (gcc * ((mn_21 * (sinthw / costhw)) - mn_22)) g_yuk_n2_sn1_3_c = conjg (g_yuk_n2_sn1_3) g_yuk_n3_sn1_1 = (gcc * ((mn_31 * (sinthw / costhw)) - mn_32)) g_yuk_n3_sn1_1_c = conjg (g_yuk_n3_sn1_1) g_yuk_n3_sn1_2 = (gcc * ((mn_31 * (sinthw / costhw)) - mn_32)) g_yuk_n3_sn1_2_c = conjg (g_yuk_n3_sn1_2) g_yuk_n3_sn1_3 = (gcc * ((mn_31 * (sinthw / costhw)) - mn_32)) g_yuk_n3_sn1_3_c = conjg (g_yuk_n3_sn1_3) g_yuk_n4_sn1_1 = (gcc * ((mn_41 * (sinthw / costhw)) - mn_42)) g_yuk_n4_sn1_1_c = conjg (g_yuk_n4_sn1_1) g_yuk_n4_sn1_2 = (gcc * ((mn_41 * (sinthw / costhw)) - mn_42)) g_yuk_n4_sn1_2_c = conjg (g_yuk_n4_sn1_2) g_yuk_n4_sn1_3 = (gcc * ((mn_41 * (sinthw / costhw)) - mn_42)) g_yuk_n4_sn1_3_c = conjg (g_yuk_n4_sn1_3) g_yuk_n1_sl1_1 = (gcc * (mn_12 + ((sinthw * mn_11) / costhw))) g_yuk_n1_sl1_1_c = conjg (g_yuk_n1_sl1_1) g_yuk_n1_sl2_1 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_sl2_1_c = conjg (g_yuk_n1_sl2_1) g_yuk_n1_su1_1 = (( - gcc) * (mn_12 + ((sinthw * mn_11) / & (3.0_default * costhw)))) g_yuk_n1_su1_1_c = conjg (g_yuk_n1_su1_1) g_yuk_n1_su2_1 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_su2_1_c = conjg (g_yuk_n1_su2_1) g_yuk_n1_sd1_1 = (gcc * (mn_12 - ((sinthw * mn_11) / & (costhw * 3.0_default)))) g_yuk_n1_sd1_1_c = conjg (g_yuk_n1_sd1_1) g_yuk_n1_sd2_1 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_sd2_1_c = conjg (g_yuk_n1_sd2_1) g_yuk_n2_sl1_1 = (gcc * (mn_22 + ((sinthw * mn_21) / costhw))) g_yuk_n2_sl1_1_c = conjg (g_yuk_n2_sl1_1) g_yuk_n2_sl2_1 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_sl2_1_c = conjg (g_yuk_n2_sl2_1) g_yuk_n2_su1_1 = (( - gcc) * (mn_22 + ((sinthw * mn_21) / & (3.0_default * costhw)))) g_yuk_n2_su1_1_c = conjg (g_yuk_n2_su1_1) g_yuk_n2_su2_1 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_su2_1_c = conjg (g_yuk_n2_su2_1) g_yuk_n2_sd1_1 = (gcc * (mn_22 - ((sinthw * mn_21) / & (costhw * 3.0_default)))) g_yuk_n2_sd1_1_c = conjg (g_yuk_n2_sd1_1) g_yuk_n2_sd2_1 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_sd2_1_c = conjg (g_yuk_n2_sd2_1) g_yuk_n3_sl1_1 = (gcc * (mn_32 + ((sinthw * mn_31) / costhw))) g_yuk_n3_sl1_1_c = conjg (g_yuk_n3_sl1_1) g_yuk_n3_sl2_1 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_sl2_1_c = conjg (g_yuk_n3_sl2_1) g_yuk_n3_su1_1 = (( - gcc) * (mn_32 + ((sinthw * mn_31) / & (3.0_default * costhw)))) g_yuk_n3_su1_1_c = conjg (g_yuk_n3_su1_1) g_yuk_n3_su2_1 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_su2_1_c = conjg (g_yuk_n3_su2_1) g_yuk_n3_sd1_1 = (gcc * (mn_32 - ((sinthw * mn_31) / & (costhw * 3.0_default)))) g_yuk_n3_sd1_1_c = conjg (g_yuk_n3_sd1_1) g_yuk_n3_sd2_1 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_sd2_1_c = conjg (g_yuk_n3_sd2_1) g_yuk_n4_sl1_1 = (gcc * (mn_42 + ((sinthw * mn_41) / costhw))) g_yuk_n4_sl1_1_c = conjg (g_yuk_n4_sl1_1) g_yuk_n4_sl2_1 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_sl2_1_c = conjg (g_yuk_n4_sl2_1) g_yuk_n4_su1_1 = (( - gcc) * (mn_42 + ((sinthw * mn_41) / & (3.0_default * costhw)))) g_yuk_n4_su1_1_c = conjg (g_yuk_n4_su1_1) g_yuk_n4_su2_1 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_su2_1_c = conjg (g_yuk_n4_su2_1) g_yuk_n4_sd1_1 = (gcc * (mn_42 - ((sinthw * mn_41) / & (costhw * 3.0_default)))) g_yuk_n4_sd1_1_c = conjg (g_yuk_n4_sd1_1) g_yuk_n4_sd2_1 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_sd2_1_c = conjg (g_yuk_n4_sd2_1) g_yuk_n1_sl1_2 = (gcc * (mn_12 + ((sinthw * mn_11) / costhw))) g_yuk_n1_sl1_2_c = conjg (g_yuk_n1_sl1_2) g_yuk_n1_sl2_2 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_sl2_2_c = conjg (g_yuk_n1_sl2_2) g_yuk_n1_su1_2 = (( - gcc) * (mn_12 + ((sinthw * mn_11) / & (3.0_default * costhw)))) g_yuk_n1_su1_2_c = conjg (g_yuk_n1_su1_2) g_yuk_n1_su2_2 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_su2_2_c = conjg (g_yuk_n1_su2_2) g_yuk_n1_sd1_2 = (gcc * (mn_12 - ((sinthw * mn_11) / & (costhw * 3.0_default)))) g_yuk_n1_sd1_2_c = conjg (g_yuk_n1_sd1_2) g_yuk_n1_sd2_2 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_11)) / costhw) g_yuk_n1_sd2_2_c = conjg (g_yuk_n1_sd2_2) g_yuk_n2_sl1_2 = (gcc * (mn_22 + ((sinthw * mn_21) / costhw))) g_yuk_n2_sl1_2_c = conjg (g_yuk_n2_sl1_2) g_yuk_n2_sl2_2 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_sl2_2_c = conjg (g_yuk_n2_sl2_2) g_yuk_n2_su1_2 = (( - gcc) * (mn_22 + ((sinthw * mn_21) / & (3.0_default * costhw)))) g_yuk_n2_su1_2_c = conjg (g_yuk_n2_su1_2) g_yuk_n2_su2_2 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_su2_2_c = conjg (g_yuk_n2_su2_2) g_yuk_n2_sd1_2 = (gcc * (mn_22 - ((sinthw * mn_21) / & (costhw * 3.0_default)))) g_yuk_n2_sd1_2_c = conjg (g_yuk_n2_sd1_2) g_yuk_n2_sd2_2 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_21)) / costhw) g_yuk_n2_sd2_2_c = conjg (g_yuk_n2_sd2_2) g_yuk_n3_sl1_2 = (gcc * (mn_32 + ((sinthw * mn_31) / costhw))) g_yuk_n3_sl1_2_c = conjg (g_yuk_n3_sl1_2) g_yuk_n3_sl2_2 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_sl2_2_c = conjg (g_yuk_n3_sl2_2) g_yuk_n3_su1_2 = (( - gcc) * (mn_32 + ((sinthw * mn_31) / & (3.0_default * costhw)))) g_yuk_n3_su1_2_c = conjg (g_yuk_n3_su1_2) g_yuk_n3_su2_2 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_su2_2_c = conjg (g_yuk_n3_su2_2) g_yuk_n3_sd1_2 = (gcc * (mn_32 - ((sinthw * mn_31) / & (costhw * 3.0_default)))) g_yuk_n3_sd1_2_c = conjg (g_yuk_n3_sd1_2) g_yuk_n3_sd2_2 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_31)) / costhw) g_yuk_n3_sd2_2_c = conjg (g_yuk_n3_sd2_2) g_yuk_n4_sl1_2 = (gcc * (mn_42 + ((sinthw * mn_41) / costhw))) g_yuk_n4_sl1_2_c = conjg (g_yuk_n4_sl1_2) g_yuk_n4_sl2_2 = ((gcc * 2.0_default * q_lep * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_sl2_2_c = conjg (g_yuk_n4_sl2_2) g_yuk_n4_su1_2 = (( - gcc) * (mn_42 + ((sinthw * mn_41) / & (3.0_default * costhw)))) g_yuk_n4_su1_2_c = conjg (g_yuk_n4_su1_2) g_yuk_n4_su2_2 = ((gcc * 2.0_default * q_up * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_su2_2_c = conjg (g_yuk_n4_su2_2) g_yuk_n4_sd1_2 = (gcc * (mn_42 - ((sinthw * mn_41) / & (costhw * 3.0_default)))) g_yuk_n4_sd1_2_c = conjg (g_yuk_n4_sd1_2) g_yuk_n4_sd2_2 = ((gcc * 2.0_default * q_down * sinthw * & conjg (mn_41)) / costhw) g_yuk_n4_sd2_2_c = conjg (g_yuk_n4_sd2_2) end subroutine setup_parameters12 subroutine setup_parameters13 () gncneu(1) = ((gz / 2.0_default) * ( & (2.0_default * 0.0_default * sin2thw) - & (1.0_default / 2.0_default))) gncneu(2) = ((( - gz) / 2.0_default) * & (1.0_default / 2.0_default)) gnclep(1) = ((gz / 2.0_default) * ( & (2.0_default * (-1.0_default) * sin2thw) - ( - & (1.0_default / 2.0_default)))) gnclep(2) = ((( - gz) / 2.0_default) * ( - & (1.0_default / 2.0_default))) gncup(1) = ((gz / 2.0_default) * ((2.0_default * & (2.0_default / 3.0_default) * sin2thw) - & (1.0_default / 2.0_default))) gncup(2) = ((( - gz) / 2.0_default) * (1.0_default / 2.0_default)) gncdwn(1) = ((gz / 2.0_default) * ((2.0_default * & ((-1.0_default) / 3.0_default) * sin2thw) - ( - & (1.0_default / 2.0_default)))) gncdwn(2) = ((( - gz) / 2.0_default) * ( - & (1.0_default / 2.0_default))) g_yuk1_1_3(1) = ((gcc / mass(24)) * vckm_13 * (mass(2) / tanb)) g_yuk1_1_3(2) = ((gcc / mass(24)) * vckm_13 * tanb * mass(5)) g_yuk1_2_3(1) = ((gcc / mass(24)) * vckm_23 * (mass(4) / tanb)) g_yuk1_2_3(2) = ((gcc / mass(24)) * vckm_23 * tanb * mass(5)) g_yuk1_3_3(1) = ((gcc / mass(24)) * vckm_33 * (mass(6) / tanb)) g_yuk1_3_3(2) = ((gcc / mass(24)) * vckm_33 * tanb * mass(5)) g_yuk1_3_2(1) = ((gcc / mass(24)) * vckm_32 * (mass(6) / tanb)) g_yuk1_3_2(2) = ((gcc / mass(24)) * vckm_32 * tanb * mass(3)) g_yuk1_3_1(1) = ((gcc / mass(24)) * vckm_31 * (mass(6) / tanb)) g_yuk1_3_1(2) = ((gcc / mass(24)) * vckm_31 * tanb * mass(1)) g_yuk2_1_3(1) = conjg (g_yuk1_1_3(2)) g_yuk2_1_3(2) = conjg (g_yuk1_1_3(1)) g_yuk2_2_3(1) = conjg (g_yuk1_2_3(2)) g_yuk2_2_3(2) = conjg (g_yuk1_2_3(1)) g_yuk2_3_1(1) = conjg (g_yuk1_3_1(2)) g_yuk2_3_1(2) = conjg (g_yuk1_3_1(1)) g_yuk2_3_2(1) = conjg (g_yuk1_3_2(2)) g_yuk2_3_2(2) = conjg (g_yuk1_3_2(1)) g_yuk2_3_3(1) = conjg (g_yuk1_3_3(2)) g_yuk2_3_3(2) = conjg (g_yuk1_3_3(1)) gnzn_1_2(1) = (gz * vector0_12) gnzn_1_2(2) = (gz * axial0_12) gnzn_1_3(1) = (gz * vector0_13) gnzn_1_3(2) = (gz * axial0_13) gnzn_1_4(1) = (gz * vector0_14) gnzn_1_4(2) = (gz * axial0_14) gnzn_2_3(1) = (gz * vector0_23) gnzn_2_3(2) = (gz * axial0_23) gnzn_2_4(1) = (gz * vector0_24) gnzn_2_4(2) = (gz * axial0_24) gnzn_3_4(1) = (gz * vector0_34) gnzn_3_4(2) = (gz * axial0_34) gczc_1_1(1) = (gz * vp_11) gczc_1_1(2) = (gz * ap_11) gczc_1_2(1) = (gz * vp_12) gczc_1_2(2) = (gz * ap_12) gczc_2_1(1) = (gz * vp_21) gczc_2_1(2) = (gz * ap_21) gczc_2_2(1) = (gz * vp_22) gczc_2_2(2) = (gz * ap_22) gnwc_1_1(1) = (gcc * lnc_11) gnwc_1_1(2) = (gcc * rnc_11) g_nhc_1_1(1) = ((g / 2.0_default) * lnch_11) g_nhc_1_1(2) = ((g / 2.0_default) * rnch_11) gnwc_1_2(1) = (gcc * lnc_12) gnwc_1_2(2) = (gcc * rnc_12) g_nhc_1_2(1) = ((g / 2.0_default) * lnch_12) g_nhc_1_2(2) = ((g / 2.0_default) * rnch_12) gnwc_2_1(1) = (gcc * lnc_21) gnwc_2_1(2) = (gcc * rnc_21) g_nhc_2_1(1) = ((g / 2.0_default) * lnch_21) g_nhc_2_1(2) = ((g / 2.0_default) * rnch_21) gnwc_2_2(1) = (gcc * lnc_22) gnwc_2_2(2) = (gcc * rnc_22) g_nhc_2_2(1) = ((g / 2.0_default) * lnch_22) g_nhc_2_2(2) = ((g / 2.0_default) * rnch_22) gnwc_3_1(1) = (gcc * lnc_31) gnwc_3_1(2) = (gcc * rnc_31) g_nhc_3_1(1) = ((g / 2.0_default) * lnch_31) g_nhc_3_1(2) = ((g / 2.0_default) * rnch_31) gnwc_3_2(1) = (gcc * lnc_32) gnwc_3_2(2) = (gcc * rnc_32) g_nhc_3_2(1) = ((g / 2.0_default) * lnch_32) g_nhc_3_2(2) = ((g / 2.0_default) * rnch_32) gnwc_4_1(1) = (gcc * lnc_41) gnwc_4_1(2) = (gcc * rnc_41) g_nhc_4_1(1) = ((g / 2.0_default) * lnch_41) g_nhc_4_1(2) = ((g / 2.0_default) * rnch_41) gnwc_4_2(1) = (gcc * lnc_42) gnwc_4_2(2) = (gcc * rnc_42) g_nhc_4_2(1) = ((g / 2.0_default) * lnch_42) g_nhc_4_2(2) = ((g / 2.0_default) * rnch_42) gcwn_1_1(1) = (gcc * lcn_11) gcwn_1_1(2) = (gcc * rcn_11) g_chn_1_1(1) = ((g / 2.0_default) * conjg (rnch_11)) g_chn_1_1(2) = ((g / 2.0_default) * conjg (lnch_11)) gcwn_1_2(1) = (gcc * lcn_12) gcwn_1_2(2) = (gcc * rcn_12) g_chn_2_1(1) = ((g / 2.0_default) * conjg (rnch_21)) g_chn_2_1(2) = ((g / 2.0_default) * conjg (lnch_21)) gcwn_1_3(1) = (gcc * lcn_13) gcwn_1_3(2) = (gcc * rcn_13) g_chn_3_1(1) = ((g / 2.0_default) * conjg (rnch_31)) g_chn_3_1(2) = ((g / 2.0_default) * conjg (lnch_31)) gcwn_1_4(1) = (gcc * lcn_14) gcwn_1_4(2) = (gcc * rcn_14) g_chn_4_1(1) = ((g / 2.0_default) * conjg (rnch_41)) g_chn_4_1(2) = ((g / 2.0_default) * conjg (lnch_41)) gcwn_2_1(1) = (gcc * lcn_21) gcwn_2_1(2) = (gcc * rcn_21) g_chn_1_2(1) = ((g / 2.0_default) * conjg (rnch_12)) g_chn_1_2(2) = ((g / 2.0_default) * conjg (lnch_12)) gcwn_2_2(1) = (gcc * lcn_22) gcwn_2_2(2) = (gcc * rcn_22) g_chn_2_2(1) = ((g / 2.0_default) * conjg (rnch_22)) g_chn_2_2(2) = ((g / 2.0_default) * conjg (lnch_22)) gcwn_2_3(1) = (gcc * lcn_23) gcwn_2_3(2) = (gcc * rcn_23) g_chn_3_2(1) = ((g / 2.0_default) * conjg (rnch_32)) g_chn_3_2(2) = ((g / 2.0_default) * conjg (lnch_32)) gcwn_2_4(1) = (gcc * lcn_24) gcwn_2_4(2) = (gcc * rcn_24) g_chn_4_2(1) = ((g / 2.0_default) * conjg (rnch_42)) g_chn_4_2(2) = ((g / 2.0_default) * conjg (lnch_42)) gcicih1_1_1 = ((( - g ) / 2.0_default) * snnh1_11) gcicih2_1_1 = ((( - g ) / 2.0_default) * snnh2_11) gcicia_1_1 = ((( - g ) / 2.0_default) * pnna_11) gcicih1_1_2(1) = ((( - g ) / 2.0_default) * snnh1_12) gcicih1_1_2(2) = ((( - g ) / 2.0_default) * pnnh1_12) gcicih2_1_2(1) = ((( - g ) / 2.0_default) * snnh2_12) gcicih2_1_2(2) = ((( - g ) / 2.0_default) * pnnh2_12) gcicia_1_2(1) = ((( - g ) / 2.0_default) * snna_12) gcicia_1_2(2) = ((( - g ) / 2.0_default) * pnna_12) gcicih1_1_3(1) = ((( - g ) / 2.0_default) * snnh1_13) gcicih1_1_3(2) = ((( - g ) / 2.0_default) * pnnh1_13) gcicih2_1_3(1) = ((( - g ) / 2.0_default) * snnh2_13) gcicih2_1_3(2) = ((( - g ) / 2.0_default) * pnnh2_13) gcicia_1_3(1) = ((( - g ) / 2.0_default) * snna_13) gcicia_1_3(2) = ((( - g ) / 2.0_default) * pnna_13) gcicih1_1_4(1) = ((( - g ) / 2.0_default) * snnh1_14) gcicih1_1_4(2) = ((( - g ) / 2.0_default) * pnnh1_14) gcicih2_1_4(1) = ((( - g ) / 2.0_default) * snnh2_14) gcicih2_1_4(2) = ((( - g ) / 2.0_default) * pnnh2_14) gcicia_1_4(1) = ((( - g ) / 2.0_default) * snna_14) gcicia_1_4(2) = ((( - g ) / 2.0_default) * pnna_14) gcicih1_2_2 = ((( - g ) / 2.0_default) * snnh1_22) gcicih2_2_2 = ((( - g ) / 2.0_default) * snnh2_22) gcicia_2_2 = ((( - g ) / 2.0_default) * pnna_22) gcicih1_2_3(1) = ((( - g ) / 2.0_default) * snnh1_23) gcicih1_2_3(2) = ((( - g ) / 2.0_default) * pnnh1_23) gcicih2_2_3(1) = ((( - g ) / 2.0_default) * snnh2_23) gcicih2_2_3(2) = ((( - g ) / 2.0_default) * pnnh2_23) end subroutine setup_parameters13 subroutine setup_parameters14 () !!! JR checked gch[x]h_[x]_[x] gcicia_2_3(1) = ((( - g ) / 2.0_default) * snna_23) gcicia_2_3(2) = ((( - g ) / 2.0_default) * pnna_23) gcicih1_2_4(1) = ((( - g ) / 2.0_default) * snnh1_24) gcicih1_2_4(2) = ((( - g ) / 2.0_default) * pnnh1_24) gcicih2_2_4(1) = ((( - g ) / 2.0_default) * snnh2_24) gcicih2_2_4(2) = ((( - g ) / 2.0_default) * pnnh2_24) gcicia_2_4(1) = ((( - g ) / 2.0_default) * snna_24) gcicia_2_4(2) = ((( - g ) / 2.0_default) * pnna_24) gcicih1_3_3 = ((( - g ) / 2.0_default) * snnh1_33) gcicih2_3_3 = ((( - g ) / 2.0_default) * snnh2_33) gcicia_3_3 = ((( - g ) / 2.0_default) * pnna_33) gcicih1_3_4(1) = ((( - g ) / 2.0_default) * snnh1_34) gcicih1_3_4(2) = ((( - g ) / 2.0_default) * pnnh1_34) gcicih2_3_4(1) = ((( - g ) / 2.0_default) * snnh2_34) gcicih2_3_4(2) = ((( - g ) / 2.0_default) * pnnh2_34) gcicia_3_4(1) = ((( - g ) / 2.0_default) * snna_34) gcicia_3_4(2) = ((( - g ) / 2.0_default) * pnna_34) gcicih1_4_4 = ((( - g ) / 2.0_default) * snnh1_44) gcicih2_4_4 = ((( - g ) / 2.0_default) * snnh2_44) gcicia_4_4 = ((( - g ) / 2.0_default) * pnna_44) gch1c_1_1 = (( - (g / sqrt (2.0_default))) * ((conjg (mu_11) * & conjg (mv_12) * cosal) - (conjg (mu_12) * conjg (mv_11) * sinal))) gch2c_1_1 = (( - (g / sqrt (2.0_default))) * ((conjg (mu_12) * & conjg (mv_11) * cosal) + (conjg (mu_11) * conjg (mv_12) * sinal))) gcac_1_1 = (imago * ( - (g / & sqrt (2.0_default))) * ((mv_11 * mu_12 * sinbe) + & (mv_12 * mu_11 * cosbe))) gch1c_1_2(1) = (( - gcc) * ((conjg (mu_11) * & conjg (mv_22) * cosal) - (conjg (mu_12) * conjg (mv_21) * sinal))) gch1c_1_2(2) = (( - gcc) * ( & (mv_12 * mu_21 * cosal) - (mv_11 * mu_22 * sinal))) gch2c_1_2(1) = (( - gcc) * ((conjg (mu_12) * & conjg (mv_21) * cosal) + (conjg (mu_11) * conjg (mv_22) * sinal))) gch2c_1_2(2) = (( - gcc) * ((mv_11 * mu_22 * cosal) & + (mv_12 * mu_21 * sinal))) gcac_1_2(1) = (imago * gcc * (( & conjg (mu_12) * conjg (mv_21) * sinbe) + ( & conjg (mu_11) * conjg (mv_22) * cosbe))) gcac_1_2(2) = (( - imago) * gcc * (( & mv_11 * mu_22 * sinbe) + (mv_12 * mu_21 * cosbe))) gch1c_2_1(1) = conjg (gch1c_1_2(2)) gch1c_2_1(2) = conjg (gch1c_1_2(1)) gch2c_2_1(1) = conjg (gch2c_1_2(2)) gch2c_2_1(2) = conjg (gch2c_1_2(1)) gcac_2_1(1) = conjg (gcac_1_2(2)) gcac_2_1(2) = conjg (gcac_1_2(1)) gch1c_2_2 = (( - (g / sqrt (2.0_default))) * ((conjg (mu_21) * & conjg (mv_22) * cosal) - (conjg (mu_22) * conjg (mv_21) * sinal))) gch2c_2_2 = (( - (g / sqrt (2.0_default))) * ((conjg (mu_22) * & conjg (mv_21) * cosal) + (conjg (mu_21) * conjg (mv_22) * sinal))) gcac_2_2 = (imago * ( - (g / & sqrt (2.0_default))) * ((mv_21 * mu_22 * sinbe) + & (mv_22 * mu_21 * cosbe))) g_yuk_ch1_sn1_3_c(1) = ((gcc * mass(15) * conjg (mu_12)) / (mass(24) & * cosbe)) g_yuk_ch1_sn1_3_c(2) = ( - ((g * mv_11) / 2.0_default)) g_yuk_ch1_sn1_3(1) = conjg (g_yuk_ch1_sn1_3_c(2)) g_yuk_ch1_sn1_3(2) = conjg (g_yuk_ch1_sn1_3_c(1)) g_yuk_ch2_sn1_3_c(1) = ((gcc * mass(15) * conjg (mu_22)) / (mass(24) & * cosbe)) g_yuk_ch2_sn1_3_c(2) = ( - ((g * mv_21) / 2.0_default)) g_yuk_ch2_sn1_3(1) = conjg (g_yuk_ch2_sn1_3_c(2)) g_yuk_ch2_sn1_3(2) = conjg (g_yuk_ch2_sn1_3_c(1)) g_yuk_ch1_sd1_1_3(1) = ((vckm_13 * gcc * mv_12 * mass(2) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch1_sd1_1_3(2) = (vckm_13 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch1_sd1_1_3_c(1) = conjg (g_yuk_ch1_sd1_1_3(2)) g_yuk_ch1_sd1_1_3_c(2) = conjg (g_yuk_ch1_sd1_1_3(1)) g_yuk_ch1_su1_1_3(1) = (vckm_13 * gcc * (((conjg (mv_12) * mass(2) * & conjg (mix_su112)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su111)))) g_yuk_ch1_su1_1_3(2) = ((vckm_13 * gcc * mu_12 * mass(5) * & conjg (mix_su111)) / (mass(24) * cosbe)) g_yuk_ch1_su1_1_3_c(1) = conjg (g_yuk_ch1_su1_1_3(2)) g_yuk_ch1_su1_1_3_c(2) = conjg (g_yuk_ch1_su1_1_3(1)) end subroutine setup_parameters14 subroutine setup_parameters15 () g_yuk_ch1_sd1_2_3(1) = ((vckm_23 * gcc * mv_12 * mass(4) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch1_sd1_2_3(2) = (vckm_23 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch1_sd1_2_3_c(1) = conjg (g_yuk_ch1_sd1_2_3(2)) g_yuk_ch1_sd1_2_3_c(2) = conjg (g_yuk_ch1_sd1_2_3(1)) g_yuk_ch1_su1_2_3(1) = (vckm_23 * gcc * (((conjg (mv_12) * mass(4) * & conjg (mix_su212)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su211)))) g_yuk_ch1_su1_2_3(2) = ((vckm_23 * gcc * mu_12 * mass(5) * & conjg (mix_su211)) / (mass(24) * cosbe)) g_yuk_ch1_su1_2_3_c(1) = conjg (g_yuk_ch1_su1_2_3(2)) g_yuk_ch1_su1_2_3_c(2) = conjg (g_yuk_ch1_su1_2_3(1)) g_yuk_ch1_sd1_3_3(1) = ((vckm_33 * gcc * mv_12 * mass(6) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch1_sd1_3_3(2) = (vckm_33 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch1_sd1_3_3_c(1) = conjg (g_yuk_ch1_sd1_3_3(2)) g_yuk_ch1_sd1_3_3_c(2) = conjg (g_yuk_ch1_sd1_3_3(1)) g_yuk_ch1_su1_3_3(1) = (vckm_33 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch1_su1_3_3(2) = ((vckm_33 * gcc * mu_12 * mass(5) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch1_su1_3_3_c(1) = conjg (g_yuk_ch1_su1_3_3(2)) g_yuk_ch1_su1_3_3_c(2) = conjg (g_yuk_ch1_su1_3_3(1)) g_yuk_ch1_sd1_3_2(1) = ((vckm_32 * gcc * mv_12 * mass(6) * & conjg (mix_sd211)) / (mass(24) * sinbe)) g_yuk_ch1_sd1_3_2(2) = (vckm_32 * gcc * (((conjg (mu_12) * mass(3) * & conjg (mix_sd212)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd211)))) g_yuk_ch1_sd1_3_2_c(1) = conjg (g_yuk_ch1_sd1_3_2(2)) g_yuk_ch1_sd1_3_2_c(2) = conjg (g_yuk_ch1_sd1_3_2(1)) g_yuk_ch1_su1_3_2(1) = (vckm_32 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch1_su1_3_2(2) = ((vckm_32 * gcc * mu_12 * mass(3) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch1_su1_3_2_c(1) = conjg (g_yuk_ch1_su1_3_2(2)) g_yuk_ch1_su1_3_2_c(2) = conjg (g_yuk_ch1_su1_3_2(1)) g_yuk_ch1_sd1_3_1(1) = ((vckm_31 * gcc * mv_12 * mass(6) * & conjg (mix_sd111)) / (mass(24) * sinbe)) g_yuk_ch1_sd1_3_1(2) = (vckm_31 * gcc * (((conjg (mu_12) * mass(1) * & conjg (mix_sd112)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd111)))) g_yuk_ch1_sd1_3_1_c(1) = conjg (g_yuk_ch1_sd1_3_1(2)) g_yuk_ch1_sd1_3_1_c(2) = conjg (g_yuk_ch1_sd1_3_1(1)) g_yuk_ch1_su1_3_1(1) = (vckm_31 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch1_su1_3_1(2) = ((vckm_31 * gcc * mu_12 * mass(1) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch1_su1_3_1_c(1) = conjg (g_yuk_ch1_su1_3_1(2)) g_yuk_ch1_su1_3_1_c(2) = conjg (g_yuk_ch1_su1_3_1(1)) g_yuk_ch1_sd2_1_3(1) = ((vckm_13 * gcc * mv_12 * mass(2) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch1_sd2_1_3(2) = (vckm_13 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch1_sd2_1_3_c(1) = conjg (g_yuk_ch1_sd2_1_3(2)) g_yuk_ch1_sd2_1_3_c(2) = conjg (g_yuk_ch1_sd2_1_3(1)) g_yuk_ch1_su2_1_3(1) = (vckm_13 * gcc * (((conjg (mv_12) * mass(2) * & conjg (mix_su122)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su121)))) g_yuk_ch1_su2_1_3(2) = ((vckm_13 * gcc * mu_12 * mass(5) * & conjg (mix_su121)) / (mass(24) * cosbe)) g_yuk_ch1_su2_1_3_c(1) = conjg (g_yuk_ch1_su2_1_3(2)) g_yuk_ch1_su2_1_3_c(2) = conjg (g_yuk_ch1_su2_1_3(1)) g_yuk_ch1_sd2_2_3(1) = ((vckm_23 * gcc * mv_12 * mass(4) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch1_sd2_2_3(2) = (vckm_23 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch1_sd2_2_3_c(1) = conjg (g_yuk_ch1_sd2_2_3(2)) g_yuk_ch1_sd2_2_3_c(2) = conjg (g_yuk_ch1_sd2_2_3(1)) g_yuk_ch1_su2_2_3(1) = (vckm_23 * gcc * (((conjg (mv_12) * mass(4) * & conjg (mix_su222)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su221)))) g_yuk_ch1_su2_2_3(2) = ((vckm_23 * gcc * mu_12 * mass(5) * & conjg (mix_su221)) / (mass(24) * cosbe)) g_yuk_ch1_su2_2_3_c(1) = conjg (g_yuk_ch1_su2_2_3(2)) g_yuk_ch1_su2_2_3_c(2) = conjg (g_yuk_ch1_su2_2_3(1)) g_yuk_ch1_sd2_3_3(1) = ((vckm_33 * gcc * mv_12 * mass(6) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch1_sd2_3_3(2) = (vckm_33 * gcc * (((conjg (mu_12) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch1_sd2_3_3_c(1) = conjg (g_yuk_ch1_sd2_3_3(2)) g_yuk_ch1_sd2_3_3_c(2) = conjg (g_yuk_ch1_sd2_3_3(1)) g_yuk_ch1_su2_3_3(1) = (vckm_33 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch1_su2_3_3(2) = ((vckm_33 * gcc * mu_12 * mass(5) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch1_su2_3_3_c(1) = conjg (g_yuk_ch1_su2_3_3(2)) g_yuk_ch1_su2_3_3_c(2) = conjg (g_yuk_ch1_su2_3_3(1)) g_yuk_ch1_sd2_3_2(1) = ((vckm_32 * gcc * mv_12 * mass(6) * & conjg (mix_sd221)) / (mass(24) * sinbe)) g_yuk_ch1_sd2_3_2(2) = (vckm_32 * gcc * (((conjg (mu_12) * mass(3) * & conjg (mix_sd222)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd221)))) g_yuk_ch1_sd2_3_2_c(1) = conjg (g_yuk_ch1_sd2_3_2(2)) g_yuk_ch1_sd2_3_2_c(2) = conjg (g_yuk_ch1_sd2_3_2(1)) g_yuk_ch1_su2_3_2(1) = (vckm_32 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch1_su2_3_2(2) = ((vckm_32 * gcc * mu_12 * mass(3) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch1_su2_3_2_c(1) = conjg (g_yuk_ch1_su2_3_3(2)) g_yuk_ch1_su2_3_2_c(2) = conjg (g_yuk_ch1_su2_3_3(1)) g_yuk_ch1_sd2_3_1(1) = ((vckm_31 * gcc * mv_12 * mass(6) * & conjg (mix_sd121)) / (mass(24) * sinbe)) g_yuk_ch1_sd2_3_1(2) = (vckm_31 * gcc * (((conjg (mu_12) * mass(1) * & conjg (mix_sd122)) / (mass(24) * cosbe)) - (conjg (mu_11) * & sqrt (2.0_default) * conjg (mix_sd121)))) g_yuk_ch1_sd2_3_1_c(1) = conjg (g_yuk_ch1_sd2_3_1(2)) g_yuk_ch1_sd2_3_1_c(2) = conjg (g_yuk_ch1_sd2_3_1(1)) g_yuk_ch1_su2_3_1(1) = (vckm_31 * gcc * (((conjg (mv_12) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_11) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch1_su2_3_1(2) = ((vckm_31 * gcc * mu_12 * mass(1) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch1_su2_3_1_c(1) = conjg (g_yuk_ch1_su2_3_1(2)) g_yuk_ch1_su2_3_1_c(2) = conjg (g_yuk_ch1_su2_3_1(1)) g_yuk_ch2_sd1_1_3(1) = ((vckm_13 * gcc * mv_22 * mass(2) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch2_sd1_1_3(2) = (vckm_13 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch2_sd1_1_3_c(1) = conjg (g_yuk_ch2_sd1_1_3(2)) g_yuk_ch2_sd1_1_3_c(2) = conjg (g_yuk_ch2_sd1_1_3(1)) g_yuk_ch2_su1_1_3(1) = (vckm_13 * gcc * (((conjg (mv_22) * mass(2) * & conjg (mix_su112)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su111)))) g_yuk_ch2_su1_1_3(2) = ((vckm_13 * gcc * mu_22 * mass(5) * & conjg (mix_su111)) / (mass(24) * cosbe)) g_yuk_ch2_su1_1_3_c(1) = conjg (g_yuk_ch2_su1_1_3(2)) g_yuk_ch2_su1_1_3_c(2) = conjg (g_yuk_ch2_su1_1_3(1)) g_yuk_ch2_sd1_2_3(1) = ((vckm_23 * gcc * mv_22 * mass(4) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch2_sd1_2_3(2) = (vckm_23 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch2_sd1_2_3_c(1) = conjg (g_yuk_ch2_sd1_2_3(2)) g_yuk_ch2_sd1_2_3_c(2) = conjg (g_yuk_ch2_sd1_2_3(1)) g_yuk_ch2_su1_2_3(1) = (vckm_23 * gcc * (((conjg (mv_22) * mass(4) * & conjg (mix_su212)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su211)))) g_yuk_ch2_su1_2_3(2) = ((vckm_23 * gcc * mu_22 * mass(5) * & conjg (mix_su211)) / (mass(24) * cosbe)) g_yuk_ch2_su1_2_3_c(1) = conjg (g_yuk_ch2_su1_2_3(2)) g_yuk_ch2_su1_2_3_c(2) = conjg (g_yuk_ch2_su1_2_3(1)) g_yuk_ch2_sd1_3_3(1) = ((vckm_33 * gcc * mv_22 * mass(6) * & conjg (mix_sd311)) / (mass(24) * sinbe)) g_yuk_ch2_sd1_3_3(2) = (vckm_33 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd312)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd311)))) g_yuk_ch2_sd1_3_3_c(1) = conjg (g_yuk_ch2_sd1_3_3(2)) g_yuk_ch2_sd1_3_3_c(2) = conjg (g_yuk_ch2_sd1_3_3(1)) g_yuk_ch2_su1_3_3(1) = (vckm_33 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch2_su1_3_3(2) = ((vckm_33 * gcc * mu_22 * mass(5) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch2_su1_3_3_c(1) = conjg (g_yuk_ch2_su1_3_3(2)) g_yuk_ch2_su1_3_3_c(2) = conjg (g_yuk_ch2_su1_3_3(1)) g_yuk_ch2_sd1_3_2(1) = ((vckm_32 * gcc * mv_22 * mass(6) * & conjg (mix_sd211)) / (mass(24) * sinbe)) g_yuk_ch2_sd1_3_2(2) = (vckm_32 * gcc * (((conjg (mu_22) * mass(3) * & conjg (mix_sd212)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd211)))) g_yuk_ch2_sd1_3_2_c(1) = conjg (g_yuk_ch2_sd1_3_2(2)) g_yuk_ch2_sd1_3_2_c(2) = conjg (g_yuk_ch2_sd1_3_2(1)) g_yuk_ch2_su1_3_2(1) = (vckm_32 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch2_su1_3_2(2) = ((vckm_32 * gcc * mu_22 * mass(3) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch2_su1_3_2_c(1) = conjg (g_yuk_ch2_su1_3_2(2)) g_yuk_ch2_su1_3_2_c(2) = conjg (g_yuk_ch2_su1_3_2(1)) g_yuk_ch2_sd1_3_1(1) = ((vckm_31 * gcc * mv_22 * mass(6) * & conjg (mix_sd111)) / (mass(24) * sinbe)) g_yuk_ch2_sd1_3_1(2) = (vckm_31 * gcc * (((conjg (mu_22) * mass(1) * & conjg (mix_sd112)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd111)))) g_yuk_ch2_sd1_3_1_c(1) = conjg (g_yuk_ch2_sd1_3_1(2)) g_yuk_ch2_sd1_3_1_c(2) = conjg (g_yuk_ch2_sd1_3_1(1)) g_yuk_ch2_su1_3_1(1) = (vckm_31 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su312)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su311)))) g_yuk_ch2_su1_3_1(2) = ((vckm_31 * gcc * mu_22 * mass(1) * & conjg (mix_su311)) / (mass(24) * cosbe)) g_yuk_ch2_su1_3_1_c(1) = conjg (g_yuk_ch2_su1_3_1(2)) g_yuk_ch2_su1_3_1_c(2) = conjg (g_yuk_ch2_su1_3_1(1)) g_yuk_ch2_sd2_1_3(1) = ((vckm_13 * gcc * mv_22 * mass(2) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch2_sd2_1_3(2) = (vckm_13 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch2_sd2_1_3_c(1) = conjg (g_yuk_ch2_sd2_1_3(2)) g_yuk_ch2_sd2_1_3_c(2) = conjg (g_yuk_ch2_sd2_1_3(1)) g_yuk_ch2_su2_1_3(1) = (vckm_13 * gcc * (((conjg (mv_22) * mass(2) * & conjg (mix_su122)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su121)))) g_yuk_ch2_su2_1_3(2) = ((vckm_13 * gcc * mu_22 * mass(5) * & conjg (mix_su121)) / (mass(24) * cosbe)) g_yuk_ch2_su2_1_3_c(1) = conjg (g_yuk_ch2_su2_1_3(2)) g_yuk_ch2_su2_1_3_c(2) = conjg (g_yuk_ch2_su2_1_3(1)) g_yuk_ch2_sd2_2_3(1) = ((vckm_23 * gcc * mv_22 * mass(4) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch2_sd2_2_3(2) = (vckm_23 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch2_sd2_2_3_c(1) = conjg (g_yuk_ch2_sd2_2_3(2)) g_yuk_ch2_sd2_2_3_c(2) = conjg (g_yuk_ch2_sd2_2_3(1)) g_yuk_ch2_su2_2_3(1) = (vckm_23 * gcc * (((conjg (mv_22) * mass(4) * & conjg (mix_su222)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su221)))) g_yuk_ch2_su2_2_3(2) = ((vckm_23 * gcc * mu_22 * mass(5) * & conjg (mix_su221)) / (mass(24) * cosbe)) g_yuk_ch2_su2_2_3_c(1) = conjg (g_yuk_ch2_su2_2_3(2)) g_yuk_ch2_su2_2_3_c(2) = conjg (g_yuk_ch2_su2_2_3(1)) g_yuk_ch2_sd2_3_3(1) = ((vckm_33 * gcc * mv_22 * mass(6) * & conjg (mix_sd321)) / (mass(24) * sinbe)) g_yuk_ch2_sd2_3_3(2) = (vckm_33 * gcc * (((conjg (mu_22) * mass(5) * & conjg (mix_sd322)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd321)))) g_yuk_ch2_sd2_3_3_c(1) = conjg (g_yuk_ch2_sd2_3_3(2)) g_yuk_ch2_sd2_3_3_c(2) = conjg (g_yuk_ch2_sd2_3_3(1)) g_yuk_ch2_su2_3_3(1) = (vckm_33 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch2_su2_3_3(2) = ((vckm_33 * gcc * mu_22 * mass(5) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch2_su2_3_3_c(1) = conjg (g_yuk_ch2_su2_3_3(2)) g_yuk_ch2_su2_3_3_c(2) = conjg (g_yuk_ch2_su2_3_3(1)) g_yuk_ch2_sd2_3_2(1) = ((vckm_32 * gcc * mv_22 * mass(6) * & conjg (mix_sd221)) / (mass(24) * sinbe)) g_yuk_ch2_sd2_3_2(2) = (vckm_32 * gcc * (((conjg (mu_22) * mass(3) * & conjg (mix_sd222)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd221)))) g_yuk_ch2_sd2_3_2_c(1) = conjg (g_yuk_ch2_sd2_3_2(2)) g_yuk_ch2_sd2_3_2_c(2) = conjg (g_yuk_ch2_sd2_3_2(1)) g_yuk_ch2_su2_3_2(1) = (vckm_32 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch2_su2_3_2(2) = ((vckm_32 * gcc * mu_22 * mass(3) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch2_su2_3_2_c(1) = conjg (g_yuk_ch2_su2_3_2(2)) g_yuk_ch2_su2_3_2_c(2) = conjg (g_yuk_ch2_su2_3_2(1)) g_yuk_ch2_sd2_3_1(1) = ((vckm_31 * gcc * mv_22 * mass(6) * & conjg (mix_sd121)) / (mass(24) * sinbe)) g_yuk_ch2_sd2_3_1(2) = (vckm_31 * gcc * (((conjg (mu_22) * mass(1) * & conjg (mix_sd122)) / (mass(24) * cosbe)) - (conjg (mu_21) * & sqrt (2.0_default) * conjg (mix_sd121)))) g_yuk_ch2_sd2_3_1_c(1) = conjg (g_yuk_ch2_sd2_3_1(2)) g_yuk_ch2_sd2_3_1_c(2) = conjg (g_yuk_ch2_sd2_3_1(1)) g_yuk_ch2_su2_3_1(1) = (vckm_31 * gcc * (((conjg (mv_22) * mass(6) * & conjg (mix_su322)) / (mass(24) * sinbe)) - (conjg (mv_21) * & sqrt (2.0_default) * conjg (mix_su321)))) g_yuk_ch2_su2_3_1(2) = ((vckm_31 * gcc * mu_22 * mass(1) * & conjg (mix_su321)) / (mass(24) * cosbe)) g_yuk_ch2_su2_3_1_c(1) = conjg (g_yuk_ch2_su2_3_1(2)) g_yuk_ch2_su2_3_1_c(2) = conjg (g_yuk_ch2_su2_3_1(1)) end subroutine setup_parameters15 subroutine setup_parameters16 () g_yuk_n1_sl1_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_11) * (sinthw / costhw) * mix_sl312) & + ((conjg (mn_13) * mass(15) * mix_sl311) / (mass(24) * cosbe))))) g_yuk_n1_sl1_3(2) = (gcc * ((1.0_default * (mn_12 + (1.0_default * & (sinthw / costhw) * mn_11)) * mix_sl311) - ( & (mn_13 * mass(15) * mix_sl312) / (mass(24) * cosbe)))) g_yuk_n1_sl1_3_c(1) = conjg (g_yuk_n1_sl1_3(2)) g_yuk_n1_sl1_3_c(2) = conjg (g_yuk_n1_sl1_3(1)) g_yuk_n1_su1_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_11) * & (sinthw / costhw) * mix_su312) + ((conjg (mn_14) * mass(6) * mix_su311) / & (mass(24) * sinbe))))) g_yuk_n1_su1_3(2) = (gcc * (((-1.0_default) * (mn_12 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_11)) * mix_su311) - ( & (mn_14 * mass(6) * mix_su312) / (mass(24) * sinbe)))) g_yuk_n1_su1_3_c(1) = conjg (g_yuk_n1_su1_3(2)) g_yuk_n1_su1_3_c(2) = conjg (g_yuk_n1_su1_3(1)) g_yuk_n1_sd1_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_11) * & (sinthw / costhw) * mix_sd312) + ((conjg (mn_13) * mass(5) * mix_sd311) / & (mass(24) * cosbe))))) g_yuk_n1_sd1_3(2) = (gcc * ((1.0_default * (mn_12 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_11)) * mix_sd311) - ( & (mn_13 * mass(5) * mix_sd312) / (mass(24) * cosbe)))) g_yuk_n1_sd1_3_c(1) = conjg (g_yuk_n1_sd1_3(2)) g_yuk_n1_sd1_3_c(2) = conjg (g_yuk_n1_sd1_3(1)) g_yuk_n2_sl1_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_21) * (sinthw / costhw) * mix_sl312) + ( & (conjg (mn_23) * mass(15) * mix_sl311) / (mass(24) * cosbe))))) g_yuk_n2_sl1_3(2) = (gcc * ((1.0_default * (mn_22 + (1.0_default * & (sinthw / costhw) * mn_21)) * mix_sl311) - ( & (mn_23 * mass(15) * mix_sl312) / (mass(24) * cosbe)))) g_yuk_n2_sl1_3_c(1) = conjg (g_yuk_n2_sl1_3(2)) g_yuk_n2_sl1_3_c(2) = conjg (g_yuk_n2_sl1_3(1)) g_yuk_n2_su1_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_21) * & (sinthw / costhw) * mix_su312) + ((conjg (mn_24) * mass(6) * mix_su311) / & (mass(24) * sinbe))))) g_yuk_n2_su1_3(2) = (gcc * (((-1.0_default) * (mn_22 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_21)) * mix_su311) - ( & (mn_24 * mass(6) * mix_su312) / (mass(24) * sinbe)))) g_yuk_n2_su1_3_c(1) = conjg (g_yuk_n2_su1_3(2)) g_yuk_n2_su1_3_c(2) = conjg (g_yuk_n2_su1_3(1)) g_yuk_n2_sd1_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_21) * & (sinthw / costhw) * mix_sd312) + ((conjg (mn_23) * mass(5) * mix_sd311) / & (mass(24) * cosbe))))) g_yuk_n2_sd1_3(2) = (gcc * ((1.0_default * (mn_22 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_21)) * mix_sd311) - ( & (mn_23 * mass(5) * mix_sd312) / (mass(24) * cosbe)))) g_yuk_n2_sd1_3_c(1) = conjg (g_yuk_n2_sd1_3(2)) g_yuk_n2_sd1_3_c(2) = conjg (g_yuk_n2_sd1_3(1)) g_yuk_n3_sl1_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_31) * (sinthw / costhw) * mix_sl312) + ( & (conjg (mn_33) * mass(15) * mix_sl311) / (mass(24) * cosbe))))) g_yuk_n3_sl1_3(2) = (gcc * ((1.0_default * (mn_32 + (1.0_default * & (sinthw / costhw) * mn_31)) * mix_sl311) - ( & (mn_33 * mass(15) * mix_sl312) / (mass(24) * cosbe)))) g_yuk_n3_sl1_3_c(1) = conjg (g_yuk_n3_sl1_3(2)) g_yuk_n3_sl1_3_c(2) = conjg (g_yuk_n3_sl1_3(1)) g_yuk_n3_su1_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_31) * & (sinthw / costhw) * mix_su312) + ((conjg (mn_34) * mass(6) * mix_su311) / & (mass(24) * sinbe))))) g_yuk_n3_su1_3(2) = (gcc * (((-1.0_default) * (mn_32 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_31)) * mix_su311) - ( & (mn_34 * mass(6) * mix_su312) / (mass(24) * sinbe)))) g_yuk_n3_su1_3_c(1) = conjg (g_yuk_n3_su1_3(2)) g_yuk_n3_su1_3_c(2) = conjg (g_yuk_n3_su1_3(1)) g_yuk_n3_sd1_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_31) * & (sinthw / costhw) * mix_sd312) + ((conjg (mn_33) * mass(5) * mix_sd311) / & (mass(24) * cosbe))))) g_yuk_n3_sd1_3(2) = (gcc * ((1.0_default * (mn_32 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_31)) * mix_sd311) - ( & (mn_33 * mass(5) * mix_sd312) / (mass(24) * cosbe)))) g_yuk_n3_sd1_3_c(1) = conjg (g_yuk_n3_sd1_3(2)) g_yuk_n3_sd1_3_c(2) = conjg (g_yuk_n3_sd1_3(1)) g_yuk_n4_sl1_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_41) * (sinthw / costhw) * mix_sl312) + ( & (conjg (mn_43) * mass(15) * mix_sl311) / (mass(24) * cosbe))))) g_yuk_n4_sl1_3(2) = (gcc * ((1.0_default * (mn_42 + (1.0_default * & (sinthw / costhw) * mn_41)) * mix_sl311) - ( & (mn_43 * mass(15) * mix_sl312) / (mass(24) * cosbe)))) g_yuk_n4_sl1_3_c(1) = conjg (g_yuk_n4_sl1_3(2)) g_yuk_n4_sl1_3_c(2) = conjg (g_yuk_n4_sl1_3(1)) g_yuk_n4_su1_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_41) * & (sinthw / costhw) * mix_su312) + ((conjg (mn_44) * mass(6) * mix_su311) / & (mass(24) * sinbe))))) g_yuk_n4_su1_3(2) = (gcc * (((-1.0_default) * (mn_42 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_41)) * mix_su311) - ( & (mn_44 * mass(6) * mix_su312) / (mass(24) * sinbe)))) g_yuk_n4_su1_3_c(1) = conjg (g_yuk_n4_su1_3(2)) g_yuk_n4_su1_3_c(2) = conjg (g_yuk_n4_su1_3(1)) g_yuk_n4_sd1_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_41) * & (sinthw / costhw) * mix_sd312) + ((conjg (mn_43) * mass(5) * mix_sd311) / & (mass(24) * cosbe))))) g_yuk_n4_sd1_3(2) = (gcc * ((1.0_default * (mn_42 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_41)) * mix_sd311) - ( & (mn_43 * mass(5) * mix_sd312) / (mass(24) * cosbe)))) g_yuk_n4_sd1_3_c(1) = conjg (g_yuk_n4_sd1_3(2)) g_yuk_n4_sd1_3_c(2) = conjg (g_yuk_n4_sd1_3(1)) g_yuk_n1_sl2_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_11) * (sinthw / costhw) * mix_sl322) + ( & (conjg (mn_13) * mass(15) * mix_sl321) / (mass(24) * cosbe))))) g_yuk_n1_sl2_3(2) = (gcc * ((1.0_default * (mn_12 + (1.0_default * & (sinthw / costhw) * mn_11)) * mix_sl321) - ( & (mn_13 * mass(15) * mix_sl322) / (mass(24) * cosbe)))) g_yuk_n1_sl2_3_c(1) = conjg (g_yuk_n1_sl2_3(2)) g_yuk_n1_sl2_3_c(2) = conjg (g_yuk_n1_sl2_3(1)) g_yuk_n1_su2_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_11) * & (sinthw / costhw) * mix_su322) + ((conjg (mn_14) * mass(6) * mix_su321) / & (mass(24) * sinbe))))) g_yuk_n1_su2_3(2) = (gcc * (((-1.0_default) * (mn_12 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_11)) * mix_su321) - ( & (mn_14 * mass(6) * mix_su322) / (mass(24) * sinbe)))) g_yuk_n1_su2_3_c(1) = conjg (g_yuk_n1_su2_3(2)) g_yuk_n1_su2_3_c(2) = conjg (g_yuk_n1_su2_3(1)) g_yuk_n1_sd2_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_11) * & (sinthw / costhw) * mix_sd322) + ((conjg (mn_13) * mass(5) * mix_sd321) / & (mass(24) * cosbe))))) g_yuk_n1_sd2_3(2) = (gcc * ((1.0_default * (mn_12 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_11)) * mix_sd321) - ( & (mn_13 * mass(5) * mix_sd322) / (mass(24) * cosbe)))) g_yuk_n1_sd2_3_c(1) = conjg (g_yuk_n1_sd2_3(2)) g_yuk_n1_sd2_3_c(2) = conjg (g_yuk_n1_sd2_3(1)) g_yuk_n2_sl2_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_21) * (sinthw / costhw) * mix_sl322) + ( & (conjg (mn_23) * mass(15) * mix_sl321) / (mass(24) * cosbe))))) g_yuk_n2_sl2_3(2) = (gcc * ((1.0_default * (mn_22 + (1.0_default * & (sinthw / costhw) * mn_21)) * mix_sl321) - ( & (mn_23 * mass(15) * mix_sl322) / (mass(24) * cosbe)))) g_yuk_n2_sl2_3_c(1) = conjg (g_yuk_n2_sl2_3(2)) g_yuk_n2_sl2_3_c(2) = conjg (g_yuk_n2_sl2_3(1)) g_yuk_n2_su2_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_21) * & (sinthw / costhw) * mix_su322) + ((conjg (mn_24) * mass(6) * mix_su321) / & (mass(24) * sinbe))))) g_yuk_n2_su2_3(2) = (gcc * (((-1.0_default) * (mn_22 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_21)) * mix_su321) - ( & (mn_24 * mass(6) * mix_su322) / (mass(24) * sinbe)))) g_yuk_n2_su2_3_c(1) = conjg (g_yuk_n2_su2_3(2)) g_yuk_n2_su2_3_c(2) = conjg (g_yuk_n2_su2_3(1)) g_yuk_n2_sd2_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_21) * & (sinthw / costhw) * mix_sd322) + ((conjg (mn_23) * mass(5) * mix_sd321) / & (mass(24) * cosbe))))) g_yuk_n2_sd2_3(2) = (gcc * ((1.0_default * (mn_22 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_21)) * mix_sd321) - ( & (mn_23 * mass(5) * mix_sd322) / (mass(24) * cosbe)))) g_yuk_n2_sd2_3_c(1) = conjg (g_yuk_n2_sd2_3(2)) g_yuk_n2_sd2_3_c(2) = conjg (g_yuk_n2_sd2_3(1)) g_yuk_n3_sl2_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_31) * (sinthw / costhw) * mix_sl322) + ( & (conjg (mn_33) * mass(15) * mix_sl321) / (mass(24) * cosbe))))) g_yuk_n3_sl2_3(2) = (gcc * ((1.0_default * (mn_32 + (1.0_default * & (sinthw / costhw) * mn_31)) * mix_sl321) - ( & (mn_33 * mass(15) * mix_sl322) / (mass(24) * cosbe)))) g_yuk_n3_sl2_3_c(1) = conjg (g_yuk_n3_sl2_3(2)) g_yuk_n3_sl2_3_c(2) = conjg (g_yuk_n3_sl2_3(1)) g_yuk_n3_su2_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_31) * & (sinthw / costhw) * mix_su322) + ((conjg (mn_34) * mass(6) * mix_su321) / & (mass(24) * sinbe))))) g_yuk_n3_su2_3(2) = (gcc * (((-1.0_default) * (mn_32 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_31)) * mix_su321) - ( & (mn_34 * mass(6) * mix_su322) / (mass(24) * sinbe)))) g_yuk_n3_su2_3_c(1) = conjg (g_yuk_n3_su2_3(2)) g_yuk_n3_su2_3_c(2) = conjg (g_yuk_n3_su2_3(1)) g_yuk_n3_sd2_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_31) * & (sinthw / costhw) * mix_sd322) + ((conjg (mn_33) * mass(5) * mix_sd321) / & (mass(24) * cosbe))))) g_yuk_n3_sd2_3(2) = (gcc * ((1.0_default * (mn_32 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_31)) * mix_sd321) - ( & (mn_33 * mass(5) * mix_sd322) / (mass(24) * cosbe)))) g_yuk_n3_sd2_3_c(1) = conjg (g_yuk_n3_sd2_3(2)) g_yuk_n3_sd2_3_c(2) = conjg (g_yuk_n3_sd2_3(1)) g_yuk_n4_sl2_3(1) = ( - (gcc * ((2.0_default * ( - & q_lep) * conjg (mn_41) * (sinthw / costhw) * mix_sl322) + ( & (conjg (mn_43) * mass(15) * mix_sl321) / (mass(24) * cosbe))))) g_yuk_n4_sl2_3(2) = (gcc * ((1.0_default * (mn_42 + (1.0_default * & (sinthw / costhw) * mn_41)) * mix_sl321) - ( & (mn_43 * mass(15) * mix_sl322) / (mass(24) * cosbe)))) g_yuk_n4_sl2_3_c(1) = conjg (g_yuk_n4_sl2_3(2)) g_yuk_n4_sl2_3_c(2) = conjg (g_yuk_n4_sl2_3(1)) g_yuk_n4_su2_3(1) = ( - (gcc * ((2.0_default * ( - & q_up) * conjg (mn_41) * & (sinthw / costhw) * mix_su322) + ((conjg (mn_44) * mass(6) * mix_su321) / & (mass(24) * sinbe))))) g_yuk_n4_su2_3(2) = (gcc * (((-1.0_default) * (mn_42 + ( & (1.0_default / 3.0_default) * & (sinthw / costhw) * mn_41)) * mix_su321) - ( & (mn_44 * mass(6) * mix_su322) / (mass(24) * sinbe)))) g_yuk_n4_su2_3_c(1) = conjg (g_yuk_n4_su2_3(2)) g_yuk_n4_su2_3_c(2) = conjg (g_yuk_n4_su2_3(1)) g_yuk_n4_sd2_3(1) = ( - (gcc * ((2.0_default * ( - ( - & (1.0_default / 3.0_default))) * conjg (mn_41) * & (sinthw / costhw) * mix_sd322) + ((conjg (mn_43) * mass(5) * mix_sd321) / & (mass(24) * cosbe))))) g_yuk_n4_sd2_3(2) = (gcc * ((1.0_default * (mn_42 + (( - & (1.0_default / 3.0_default)) * & (sinthw / costhw) * mn_41)) * mix_sd321) - ( & (mn_43 * mass(5) * mix_sd322) / (mass(24) * cosbe)))) !!! For the adjoint color flow method these constants have to be !!! divided by a factor of sqrt(2). g_yuk_n4_sd2_3_c(1) = conjg (g_yuk_n4_sd2_3(2)) g_yuk_n4_sd2_3_c(2) = conjg (g_yuk_n4_sd2_3(1)) !!! For the diagram-wise color calculation this has not to be !!! divided by an additional factor of sqrt(2) g_yuk_gsu1_3(1) = ( - (mix_su312 * (gs / sqrt (2.0_default)))) g_yuk_gsu1_3(2) = (mix_su311 * (gs / sqrt (2.0_default))) g_yuk_gsu1_3_c(1) = conjg (g_yuk_gsu1_3(2)) g_yuk_gsu1_3_c(2) = conjg (g_yuk_gsu1_3(1)) g_yuk_gsd1_3(1) = ( - (mix_sd312 * (gs / sqrt (2.0_default)))) g_yuk_gsd1_3(2) = (mix_sd311 * (gs / sqrt (2.0_default))) g_yuk_gsd1_3_c(1) = conjg (g_yuk_gsd1_3(2)) g_yuk_gsd1_3_c(2) = conjg (g_yuk_gsd1_3(1)) g_yuk_gsu2_3(1) = ( - (mix_su322 * (gs / sqrt (2.0_default)))) g_yuk_gsu2_3(2) = (mix_su321 * (gs / sqrt (2.0_default))) g_yuk_gsu2_3_c(1) = conjg (g_yuk_gsu2_3(2)) g_yuk_gsu2_3_c(2) = conjg (g_yuk_gsu2_3(1)) g_yuk_gsd2_3(1) = ( - (mix_sd322 * (gs / sqrt (2.0_default)))) g_yuk_gsd2_3(2) = (mix_sd321 * (gs / sqrt (2.0_default))) g_yuk_gsd2_3_c(1) = conjg (g_yuk_gsd2_3(2)) g_yuk_gsd2_3_c(2) = conjg (g_yuk_gsd2_3(1)) end subroutine setup_parameters16 subroutine setup_parameters17 () !!!!!!!!!!!!!!! !!!!!!H-Gluon-Gluon (preliminary) !!!!!!!!!!!!!!! gglglh = & gs**2/(8.0_default * pi**2 * vev) * (& !!! Top loop + sign(one,par%hgg_fac) * sqrt(abs(par%hgg_fac)) * & cosal/sinbe * loop_factor(mass(6), mass(25),'ferh0')& !!! Bottom loop - sign(one,par%hgg_fac) * sqrt(abs(par%hgg_fac)) * & sinal/cosbe * loop_factor(mass(5), mass(25),'ferh0')& !!! Squark loops + sign(one,par%hgg_sq) * sqrt(abs(par%hgg_sq)) * ( & + (vev / mass(41)**2) * gh1sd1sd1_1 * loop_factor(mass(41), mass(25),'squh0') & + (vev / mass(43)**2) * gh1sd1sd1_2 * loop_factor(mass(43), mass(25),'squh0') & + (vev / mass(45)**2) * gh1sd1sd1_3 * loop_factor(mass(45), mass(25),'squh0') & + (vev / mass(47)**2) * gh1sd2sd2_1 * loop_factor(mass(47), mass(25),'squh0') & + (vev / mass(49)**2) * gh1sd2sd2_2 * loop_factor(mass(49), mass(25),'squh0') & + (vev / mass(51)**2) * gh1sd2sd2_3 * loop_factor(mass(51), mass(25),'squh0') & + (vev / mass(42)**2) * gh1su1su1_1 * loop_factor(mass(42), mass(25),'squh0') & + (vev / mass(44)**2) * gh1su1su1_2 * loop_factor(mass(44), mass(25),'squh0') & + (vev / mass(46)**2) * gh1su1su1_3 * loop_factor(mass(46), mass(25),'squh0') & + (vev / mass(48)**2) * gh1su2su2_1 * loop_factor(mass(48), mass(25),'squh0') & + (vev / mass(50)**2) * gh1su2su2_2 * loop_factor(mass(50), mass(25),'squh0') & + (vev / mass(52)**2) * gh1su2su2_3 * loop_factor(mass(52), mass(25),'squh0')) & ) gglglhh = & gs**2/(8.0_default * pi**2 * vev) * (& !!! Top loop + sign(one,par%hgg_fac) * sqrt(abs(par%hgg_fac)) * & one/tanb * loop_factor(mass(6), mass(35),'ferh0')& !!! Bottom loop + sign(one,par%hgg_fac) * sqrt(abs(par%hgg_fac)) * & tanb * loop_factor(mass(5), mass(35),'ferh0')& !!! Squark loops + sign(one,par%hgg_sq) * sqrt(abs(par%hgg_sq)) * ( & + (vev / mass(41)**2) * gh2sd1sd1_1 * loop_factor(mass(41), mass(35),'squh0') & + (vev / mass(43)**2) * gh2sd1sd1_2 * loop_factor(mass(43), mass(35),'squh0') & + (vev / mass(45)**2) * gh2sd1sd1_3 * loop_factor(mass(45), mass(35),'squh0') & + (vev / mass(47)**2) * gh2sd2sd2_1 * loop_factor(mass(47), mass(35),'squh0') & + (vev / mass(49)**2) * gh2sd2sd2_2 * loop_factor(mass(49), mass(35),'squh0') & + (vev / mass(51)**2) * gh2sd2sd2_3 * loop_factor(mass(51), mass(35),'squh0') & + (vev / mass(42)**2) * gh2su1su1_1 * loop_factor(mass(42), mass(35),'squh0') & + (vev / mass(44)**2) * gh2su1su1_2 * loop_factor(mass(44), mass(35),'squh0') & + (vev / mass(46)**2) * gh2su1su1_3 * loop_factor(mass(46), mass(35),'squh0') & + (vev / mass(48)**2) * gh2su2su2_1 * loop_factor(mass(48), mass(35),'squh0') & + (vev / mass(50)**2) * gh2su2su2_2 * loop_factor(mass(50), mass(35),'squh0') & + (vev / mass(52)**2) * gh2su2su2_3 * loop_factor(mass(52), mass(35),'squh0')) & ) gglgla = & - gs**2/(8.0_default * pi**2 * vev) * & sign(one,par%hgg_fac) * sqrt(abs(par%hgg_fac)) * (& !!! Top loop + sinal/sinbe * loop_factor(mass(6), mass(36),'ferA0')& !!! Bottom loop + cosal/cosbe * loop_factor(mass(5), mass(36),'ferA0')& ) !!!!!!!!!!!!!!! !!!!!!H-Photon-Photon (preliminary) !!!!!!!!!!!!!!! gpph = & alpha/(2.0_default * pi * vev) * & sign(one,par%haa_fac) * sqrt(abs(par%haa_fac)) * (& !!! Top loop + cosal/sinbe * q_up**2 * 3.0_default * loop_factor(mass(6), mass(25),'ferh0')& !!! Bottom loop - sinal/cosbe * q_down**2 * 3.0_default * loop_factor(mass(5), mass(25),'ferh0')& !!! Tau loop - sinal/cosbe * loop_factor(mass(15), mass(25),'ferh0') & !!! W loop - sinamb * loop_factor(mass(24), mass(25), 'vech0') & !!! Charged Higgs loop + (vev / mass(37)**2) * gh3_2 * loop_factor(mass(37), mass(25),'squh0') & !!! Chargino loop + (vev / mass(69)) * gch1c_1_1 * loop_factor(mass(69), mass(25), 'ferh0') & + (vev / mass(70)) * gch1c_2_2 * loop_factor(mass(70), mass(25), 'ferh0') & !!! Sfermion loops + q_down**2 * 3.0_default * ( & + (vev / mass(41)**2) * gh1sd1sd1_1 * loop_factor(mass(41), mass(25),'squh0') & + (vev / mass(43)**2) * gh1sd1sd1_2 * loop_factor(mass(43), mass(25),'squh0') & + (vev / mass(45)**2) * gh1sd1sd1_3 * loop_factor(mass(45), mass(25),'squh0') & + (vev / mass(47)**2) * gh1sd2sd2_1 * loop_factor(mass(47), mass(25),'squh0') & + (vev / mass(49)**2) * gh1sd2sd2_2 * loop_factor(mass(49), mass(25),'squh0') & + (vev / mass(51)**2) * gh1sd2sd2_3 * loop_factor(mass(51), mass(25),'squh0')) & + q_up**2 * 3.0_default * ( & + (vev / mass(42)**2) * gh1su1su1_1 * loop_factor(mass(42), mass(25),'squh0') & + (vev / mass(44)**2) * gh1su1su1_2 * loop_factor(mass(44), mass(25),'squh0') & + (vev / mass(46)**2) * gh1su1su1_3 * loop_factor(mass(46), mass(25),'squh0') & + (vev / mass(48)**2) * gh1su2su2_1 * loop_factor(mass(48), mass(25),'squh0') & + (vev / mass(50)**2) * gh1su2su2_2 * loop_factor(mass(50), mass(25),'squh0') & + (vev / mass(52)**2) * gh1su2su2_3 * loop_factor(mass(52), mass(25),'squh0')) & + ( & + (vev / mass(53)**2) * gh1sl1sl1_1 * loop_factor(mass(53), mass(25),'squh0') & + (vev / mass(55)**2) * gh1sl1sl1_2 * loop_factor(mass(55), mass(25),'squh0') & + (vev / mass(57)**2) * gh1sl1sl1_3 * loop_factor(mass(57), mass(25),'squh0') & + (vev / mass(59)**2) * gh1sl2sl2_1 * loop_factor(mass(59), mass(25),'squh0') & + (vev / mass(61)**2) * gh1sl2sl2_2 * loop_factor(mass(61), mass(25),'squh0') & + (vev / mass(63)**2) * gh1sl2sl2_3 * loop_factor(mass(63), mass(25),'squh0')) & ) gpphh = & alpha/(2.0_default * pi * vev) * & sign(one,par%haa_fac) * sqrt(abs(par%haa_fac)) * (& !!! Top loop + sinal/sinbe * q_up**2 * 3.0_default * loop_factor(mass(6), mass(35),'ferh0')& !!! Bottom loop + cosal/cosbe * q_down**2 * 3.0_default * loop_factor(mass(5), mass(35),'ferh0')& !!! Tau loop + cosal/cosbe * loop_factor(mass(15), mass(35),'ferh0') & !!! W loop + cosamb * loop_factor(mass(24), mass(35), 'vech0') & !!! Charged Higgs loop + (vev / mass(37)**2) * gh3_1 * loop_factor(mass(37), mass(35),'squh0') & !!! Chargino loop + (vev / mass(69)) * gch2c_1_1 * loop_factor(mass(69), mass(35), 'ferh0') & + (vev / mass(70)) * gch2c_2_2 * loop_factor(mass(70), mass(35), 'ferh0') & !!! Sfermion loops + q_down**2 * 3.0_default * ( & + (vev / mass(41)**2) * gh2sd1sd1_1 * loop_factor(mass(41), mass(35),'squh0') & + (vev / mass(43)**2) * gh2sd1sd1_2 * loop_factor(mass(43), mass(35),'squh0') & + (vev / mass(45)**2) * gh2sd1sd1_3 * loop_factor(mass(45), mass(35),'squh0') & + (vev / mass(47)**2) * gh2sd2sd2_1 * loop_factor(mass(47), mass(35),'squh0') & + (vev / mass(49)**2) * gh2sd2sd2_2 * loop_factor(mass(49), mass(35),'squh0') & + (vev / mass(51)**2) * gh2sd2sd2_3 * loop_factor(mass(51), mass(35),'squh0')) & + q_up**2 * 3.0_default * ( & + (vev / mass(42)**2) * gh2su1su1_1 * loop_factor(mass(42), mass(35),'squh0') & + (vev / mass(44)**2) * gh2su1su1_2 * loop_factor(mass(44), mass(35),'squh0') & + (vev / mass(46)**2) * gh2su1su1_3 * loop_factor(mass(46), mass(35),'squh0') & + (vev / mass(48)**2) * gh2su2su2_1 * loop_factor(mass(48), mass(35),'squh0') & + (vev / mass(50)**2) * gh2su2su2_2 * loop_factor(mass(50), mass(35),'squh0') & + (vev / mass(52)**2) * gh2su2su2_3 * loop_factor(mass(52), mass(35),'squh0')) & + ( & + (vev / mass(53)**2) * gh2sl1sl1_1 * loop_factor(mass(53), mass(35),'squh0') & + (vev / mass(55)**2) * gh2sl1sl1_2 * loop_factor(mass(55), mass(35),'squh0') & + (vev / mass(57)**2) * gh2sl1sl1_3 * loop_factor(mass(57), mass(35),'squh0') & + (vev / mass(59)**2) * gh2sl2sl2_1 * loop_factor(mass(59), mass(35),'squh0') & + (vev / mass(61)**2) * gh2sl2sl2_2 * loop_factor(mass(61), mass(35),'squh0') & + (vev / mass(63)**2) * gh2sl2sl2_3 * loop_factor(mass(63), mass(35),'squh0')) & ) gppa = & alpha/(2.0_default * pi * vev) * & sign(one,par%haa_fac) * sqrt(abs(par%haa_fac)) * (& !!! Top loop + q_up**2 / tanb * 3.0_default * loop_factor(mass(6), mass(36),'ferA0')& !!! Bottom loop + q_down**2 * tanb * 3.0_default * loop_factor(mass(5), mass(36),'ferA0')& !!! Tau loop + tanb * loop_factor(mass(15), mass(35),'ferA0') & !!! Chargino loop + (vev / mass(69)) * gcac_1_1 * loop_factor(mass(69), mass(36), 'ferA0') & + (vev / mass(70)) * gcac_2_2 * loop_factor(mass(70), mass(36), 'ferA0')) !!! Couplings for loop-induced neutralino2 decay if (mass(66) > mass(65)) then neu2_dec = sqrt (8.0_default * PI * width(66) * mass(66)**5 / & (mass(66)**2 - mass(65)**2)**3) else neu2_dec = 0.0_default end if gnna(1) = (par%nna_v_fac * neu2_dec + par%nna_v) / mass(66) - gnna(2) = par%nna_a_fac * neu2_dec + par%nna_a / mass(66) + gnna(2) = (par%nna_a_fac * neu2_dec + par%nna_a) / mass(66) end subroutine setup_parameters17 end subroutine import_from_whizard subroutine model_update_alpha_s (alpha_s) real(default), intent(in) :: alpha_s gs = sqrt(2.0_default * PI * alpha_s) igs = cmplx(0.0_default, 1.0_default, kind=default) * gs gssq = (gs / sqrt (2.0_default)) g_yuk_gsu1_3(1) = ( - (mix_su312 * (gs / sqrt (2.0_default)))) g_yuk_gsu1_3(2) = (mix_su311 * (gs / sqrt (2.0_default))) g_yuk_gsu1_3_c(1) = conjg (g_yuk_gsu1_3(2)) g_yuk_gsu1_3_c(2) = conjg (g_yuk_gsu1_3(1)) g_yuk_gsd1_3(1) = ( - (mix_sd312 * (gs / sqrt (2.0_default)))) g_yuk_gsd1_3(2) = (mix_sd311 * (gs / sqrt (2.0_default))) g_yuk_gsd1_3_c(1) = conjg (g_yuk_gsd1_3(2)) g_yuk_gsd1_3_c(2) = conjg (g_yuk_gsd1_3(1)) g_yuk_gsu2_3(1) = ( - (mix_su322 * (gs / sqrt (2.0_default)))) g_yuk_gsu2_3(2) = (mix_su321 * (gs / sqrt (2.0_default))) g_yuk_gsu2_3_c(1) = conjg (g_yuk_gsu2_3(2)) g_yuk_gsu2_3_c(2) = conjg (g_yuk_gsu2_3(1)) g_yuk_gsd2_3(1) = ( - (mix_sd322 * (gs / sqrt (2.0_default)))) g_yuk_gsd2_3(2) = (mix_sd321 * (gs / sqrt (2.0_default))) g_yuk_gsd2_3_c(1) = conjg (g_yuk_gsd2_3(2)) g_yuk_gsd2_3_c(2) = conjg (g_yuk_gsd2_3(1)) gglglsqsq = (gs**2) gglpsqsq = 2.0_default * e * gs / 3.0_default gglsu1su1_1 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su111 * conjg (mix_su111))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_1 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su121 * conjg (mix_su121))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_1 = (gz * gs * (1.0_default / 2.0_default) * mix_su111 * & conjg (mix_su121)) gglsu2su1_1 = (gz * gs * (1.0_default / 2.0_default) * mix_su121 * & conjg (mix_su111)) gglsd1sd1_1 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd111 * conjg (mix_sd111))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_1 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd121 * conjg (mix_sd121))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_1 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd111 * conjg (mix_sd121))) gglsd2sd1_1 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd121 * conjg (mix_sd111))) gglsu1su1_2 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su211 * conjg (mix_su211))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_2 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su221 * conjg (mix_su221))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_2 = (gz * gs * (1.0_default / 2.0_default) * mix_su211 * & conjg (mix_su221)) gglsu2su1_2 = (gz * gs * (1.0_default / 2.0_default) * mix_su221 * & conjg (mix_su211)) gglsd1sd1_2 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd211 * conjg (mix_sd211))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_2 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd221 * conjg (mix_sd221))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_2 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd211 * conjg (mix_sd221))) gglsd2sd1_2 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd221 * conjg (mix_sd211))) gglsu1su1_3 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su311 * conjg (mix_su311))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu2su2_3 = (gz * gs * (((1.0_default / 2.0_default) * & (mix_su321 * conjg (mix_su321))) - (sin2thw * & (2.0_default / 3.0_default)))) gglsu1su2_3 = (gz * gs * (1.0_default / 2.0_default) * mix_su311 * & conjg (mix_su321)) gglsu2su1_3 = (gz * gs * (1.0_default / 2.0_default) * mix_su321 * & conjg (mix_su311)) gglsd1sd1_3 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd311 * conjg (mix_sd311))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd2sd2_3 = ( - (gz * gs * (((1.0_default / 2.0_default) * & (mix_sd321 * conjg (mix_sd321))) - (sin2thw * & (1.0_default / 3.0_default))))) gglsd1sd2_3 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd311 * conjg (mix_sd321))) gglsd2sd1_3 = ( - (gz * gs * & (1.0_default / 2.0_default) * mix_sd321 * conjg (mix_sd311))) gglwsu1sd1_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd111) gglwsu2sd2_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd121) gglwsu1sd2_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su111) * mix_sd121) gglwsu2sd1_1_1 = (g * gs * sqrt (2.0_default) * vckm_11 * & conjg (mix_su121) * mix_sd111) gglwsu1sd1_1_1_c = conjg (gglwsu1sd1_1_1) gglwsu2sd2_1_1_c = conjg (gglwsu2sd2_1_1) gglwsu1sd2_1_1_c = conjg (gglwsu1sd2_1_1) gglwsu2sd1_1_1_c = conjg (gglwsu2sd1_1_1) gglwsu1sd1_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd211) gglwsu2sd2_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd221) gglwsu1sd2_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su111) * mix_sd221) gglwsu2sd1_1_2 = (g * gs * sqrt (2.0_default) * vckm_12 * & conjg (mix_su121) * mix_sd211) gglwsu1sd1_1_2_c = conjg (gglwsu1sd1_1_2) gglwsu2sd2_1_2_c = conjg (gglwsu2sd2_1_2) gglwsu1sd2_1_2_c = conjg (gglwsu1sd2_1_2) gglwsu2sd1_1_2_c = conjg (gglwsu2sd1_1_2) gglwsu1sd1_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd311) gglwsu2sd2_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd321) gglwsu1sd2_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su111) * mix_sd321) gglwsu2sd1_1_3 = (g * gs * sqrt (2.0_default) * vckm_13 * & conjg (mix_su121) * mix_sd311) gglwsu1sd1_1_3_c = conjg (gglwsu1sd1_1_3) gglwsu2sd2_1_3_c = conjg (gglwsu2sd2_1_3) gglwsu1sd2_1_3_c = conjg (gglwsu1sd2_1_3) gglwsu2sd1_1_3_c = conjg (gglwsu2sd1_1_3) gglwsu1sd1_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd111) gglwsu2sd2_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd121) gglwsu1sd2_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su211) * mix_sd121) gglwsu2sd1_2_1 = (g * gs * sqrt (2.0_default) * vckm_21 * & conjg (mix_su221) * mix_sd111) gglwsu1sd1_2_1_c = conjg (gglwsu1sd1_2_1) gglwsu2sd2_2_1_c = conjg (gglwsu2sd2_2_1) gglwsu1sd2_2_1_c = conjg (gglwsu1sd2_2_1) gglwsu2sd1_2_1_c = conjg (gglwsu2sd1_2_1) gglwsu1sd1_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd211) gglwsu2sd2_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd221) gglwsu1sd2_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su211) * mix_sd221) gglwsu2sd1_2_2 = (g * gs * sqrt (2.0_default) * vckm_22 * & conjg (mix_su221) * mix_sd211) gglwsu1sd1_2_2_c = conjg (gglwsu1sd1_2_2) gglwsu2sd2_2_2_c = conjg (gglwsu2sd2_2_2) gglwsu1sd2_2_2_c = conjg (gglwsu1sd2_2_2) gglwsu2sd1_2_2_c = conjg (gglwsu2sd1_2_2) gglwsu1sd1_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd311) gglwsu2sd2_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd321) gglwsu1sd2_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su211) * mix_sd321) gglwsu2sd1_2_3 = (g * gs * sqrt (2.0_default) * vckm_23 * & conjg (mix_su221) * mix_sd311) gglwsu1sd1_2_3_c = conjg (gglwsu1sd1_2_3) gglwsu2sd2_2_3_c = conjg (gglwsu2sd2_2_3) gglwsu1sd2_2_3_c = conjg (gglwsu1sd2_2_3) gglwsu2sd1_2_3_c = conjg (gglwsu2sd1_2_3) gglwsu1sd1_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd111) gglwsu2sd2_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd121) gglwsu1sd2_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su311) * mix_sd121) gglwsu2sd1_3_1 = (g * gs * sqrt (2.0_default) * vckm_31 * & conjg (mix_su321) * mix_sd111) gglwsu1sd1_3_1_c = conjg (gglwsu1sd1_3_1) gglwsu2sd2_3_1_c = conjg (gglwsu2sd2_3_1) gglwsu1sd2_3_1_c = conjg (gglwsu1sd2_3_1) gglwsu2sd1_3_1_c = conjg (gglwsu2sd1_3_1) gglwsu1sd1_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd211) gglwsu2sd2_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd221) gglwsu1sd2_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su311) * mix_sd221) gglwsu2sd1_3_2 = (g * gs * sqrt (2.0_default) * vckm_32 * & conjg (mix_su321) * mix_sd211) gglwsu1sd1_3_2_c = conjg (gglwsu1sd1_3_2) gglwsu2sd2_3_2_c = conjg (gglwsu2sd2_3_2) gglwsu1sd2_3_2_c = conjg (gglwsu1sd2_3_2) gglwsu2sd1_3_2_c = conjg (gglwsu2sd1_3_2) gglwsu1sd1_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd311) gglwsu2sd2_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd321) gglwsu1sd2_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su311) * mix_sd321) gglwsu2sd1_3_3 = (g * gs * sqrt (2.0_default) * vckm_33 * & conjg (mix_su321) * mix_sd311) gglwsu1sd1_3_3_c = conjg (gglwsu1sd1_3_3) gglwsu2sd2_3_3_c = conjg (gglwsu2sd2_3_3) gglwsu1sd2_3_3_c = conjg (gglwsu1sd2_3_3) gglwsu2sd1_3_3_c = conjg (gglwsu2sd1_3_3) end subroutine model_update_alpha_s function loop_factor (mloop, mh, type) real(kind=default), intent(in) :: mloop, mh complex(kind=default) :: loop_factor character(5), intent(in) :: type real(kind=default) :: mr if ( mloop .LE. 1.d-06 ) then loop_factor = 0.d0 !!Sorting out the irrelevant ones else mr = mh**2/(4*mloop**2) if (mr .LE. 1.0) then loop_factor = asin( sqrt(mr) )**2 else loop_factor = & -(1.0_default/4.0_default) *& (log( (1.0_default+sqrt(1.0_default-1.0_default/mr))& /(1.0_default-sqrt(1.0_default-1.0_default/mr)) ) & - imago*pi)**2 end if select case (type) case ('ferh0') loop_factor = (2.0_default) *(mr + ( mr - 1.0_default) * loop_factor ) /mr**2 case ('ferA0') loop_factor = loop_factor / mr case ('squh0') loop_factor = - ( mr - loop_factor) / mr**2 case ('vech0') loop_factor = - (2.0_default * mr**2 + 3.0_default * mr + 3.0_default * & (2.0_default * mr - one) * loop_factor) / mr**2 case default loop_factor = 0.0 print *, "Wrong loop factor." end select end if end function loop_factor end module parameters_mssm_hgg