A class for the matching in the MSSM. More...

#include <SUSYMatching.h>

Inheritance diagram for SUSYMatching:

Detailed Description

A class for the matching in the MSSM.

Author: HEPfit Collaboration

Copyright: GNU General Public License

Definition at line 32 of file SUSYMatching.h.

Public Member Functions
virtual gslpp::vector< gslpp::complex >	AFunctions (int n)
	Calculates gamma penguin amplitudes for the process \( \ell_j \to \ell_i \gamma \) from [139] [19]. More...

virtual gslpp::vector< gslpp::complex >	BFunctions (int n)
	Calculates box diagram amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from from [139] [19]. More...

virtual gslpp::vector< gslpp::complex >	BHFunctions (int n)
	Calculates Higgs penguin amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from [19]. More...

virtual gslpp::vector< gslpp::complex >	C10_Lepton (int n)
	Calculates \( C_{10} \) and \( C^{\prime}_{10} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual gslpp::vector< gslpp::complex >	C7_Lepton (int n)
	Calculates \( C_{7} \) and \( C^{\prime}_{7} \) Wilson coefficients for the process \( \ell_j \to \ell_i \gamma \). More...

virtual gslpp::vector< gslpp::complex >	C9_Lepton (int n)
	Calculates \( C_{9} \) and \( C^{\prime}_{9} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual std::vector< WilsonCoefficient > &	CMBMll (QCD::lepton lepton)
	operator basis: current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic More...

virtual std::vector< WilsonCoefficient > &	CMbsg ()
	operator basis: More...

virtual std::vector< WilsonCoefficient > &	CMdbd2 ()
	\( \Delta B = 2 \), \( B_{d} \) More...

virtual std::vector< WilsonCoefficient > &	CMdbs2 ()
	\( \Delta B = 2 \), \( B_{s} \) More...

virtual std::vector< WilsonCoefficient > &	CMdk2 ()
	\( \Delta C = 2 \), More...

virtual std::vector< WilsonCoefficient > &	CMDLi3j (int li_lj)
	Wilson coefficient for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual std::vector< WilsonCoefficient > &	CMDLij (int li_lj)
	Wilson coefficient for the process \( \ell_j \to \ell_i \gamma \). More...

virtual std::vector< WilsonCoefficient > &	CMgminus2mu ()
	Wilson coefficient for \( (g-2)_{\mu} \) at one-loop. More...

virtual std::vector< WilsonCoefficient > &	CMmueconv ()
	Wilson coefficient for the process \( \mu \to e \) conversion in Nuclei. More...

void	Comp_DeltaDL ()

void	Comp_DeltaMd ()

void	Comp_Eps_J ()

void	Comp_Lambda0EpsY ()

void	Comp_mySUSY_CKM ()

void	Comp_mySUSYMQ ()

void	Comp_PHLR ()

void	Comp_PHRL ()

void	Comp_VdDNL (int flag)

void	Comp_VdDNR (int flag)

void	Comp_VdUCL ()

void	Comp_VdUCR (int flag)

void	Comp_VuDCL ()

void	Comp_VuDCR ()

void	Comp_VUDHH ()

void	Comp_VuUN ()

virtual gslpp::vector< gslpp::complex >	CP_Lepton (int n)
	Calculates \( C_{P} \) and \( C^{\prime}_{P} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual gslpp::vector< gslpp::complex >	CS_Lepton (int n)
	Calculates \( C_{S} \) and \( C^{\prime}_{S} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual gslpp::vector< gslpp::complex >	CT_Lepton (int n)
	Calculates \( C_{T} \) and \( C_{T5} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \). More...

virtual gslpp::vector< gslpp::complex >	DFunctions ()
	Calculates box diagram amplitudes for the process \( \mu \to e \) conversion in Nuclei from from [139]. More...

virtual gslpp::vector< gslpp::complex >	FFunctions (int n)
	Calculates Z penguin amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from [139] [19]. More...

virtual gslpp::vector< gslpp::complex >	gminus2mu ()
	Calculates amplitudes for \( (g-2)_{\mu} \) at one-loop from [139]. More...

virtual double	gminus2muNLO ()
	Calculates amplitudes for \( (g-2)_{\mu} \) at two-loop. More...

	SUSYMatching (const SUSY &SUSY_i)

void	updateSUSYParameters ()
	current-current oerators, Misiak basis More...

Public Member Functions inherited from StandardModelMatching
virtual std::vector< WilsonCoefficient > &	CMdd2 ()
	\( \Delta C = 2 \), More...

	StandardModelMatching (const StandardModel &SM_i)

void	updateSMParameters ()
	Updates to new Standard Model parameter sets. More...

virtual	~StandardModelMatching ()

Public Member Functions inherited from ModelMatching
virtual std::vector< WilsonCoefficient > &	CMbnlep (const int a)=0

virtual std::vector< WilsonCoefficient > &	CMbnlepCC (const int a)=0

virtual std::vector< WilsonCoefficient > &	CMd1 ()=0

virtual std::vector< WilsonCoefficient > &	CMd1Buras ()=0

virtual std::vector< WilsonCoefficientNew > &	CMDF1 (std::string blocks, unsigned int nops)=0

virtual std::vector< WilsonCoefficient > &	CMprimeBMll (QCD::lepton lepton)=0

virtual std::vector< WilsonCoefficient > &	CMprimebsg ()=0

virtual	~ModelMatching ()

Private Member Functions
double	Bk (double x, double y, int k)

double	BL (double a, int k)

double	bsll_C0 (double m1, double m2, double m3)

double	bsll_C2 (double m1, double m2, double m3, double mu2)

double	bsll_D0reg (double m1, double m2, double m3, double m4)

double	bsll_D2reg (double m1, double m2, double m3, double m4)

gslpp::complex	bsll_DeltaC10_SUSY (int lep_pair)

gslpp::complex	bsll_DeltaC7_SUSY ()

gslpp::complex	bsll_DeltaC9_SUSY (int lep_pair)

double	bsll_f1 (double x)

double	bsll_f2 (double x)

double	bsll_f3 (double x)

double	bsll_f4 (double x)

double	bsll_f5 (double x)

double	bsll_f6 (double x)

double	bsll_f7 (double x)

double	bsll_f8 (double x)

gslpp::complex	bsll_Y_SUSY (int lep_pair)

gslpp::complex	bsll_Z_SUSY (int lep_pair)

gslpp::vector< gslpp::complex >	CalcC7 (int b, int q)

gslpp::vector< gslpp::complex >	CdF2dChi0Chi0 (int b, int q, int Dmixingflag)

gslpp::vector< gslpp::complex >	CdF2dChi0g (int b, int q, int Dmixingflag)

gslpp::vector< gslpp::complex >	CdF2dChiChi (int b, int q, int Dmixingflag)

gslpp::vector< gslpp::complex >	CdF2dgg (int b, int q, int Dmixingflag)

gslpp::vector< gslpp::complex >	CdF2dHp (int b, int q, int Dmixingflag)

double	Ck (double x, double y, double z, int k)

double	CL (double a, double b, int k)

double	CLL (double a, int k)

double	D0N (double x, double y, double z, double t)

double	D2LL0 (double a, double b)

int	delta_ab (int a, int b)
	Kronecker delta. More...

gslpp::complex	DeltaDL (int J, int I)

gslpp::complex	DeltaDR (int J, int I)

gslpp::complex	DeltaFHL (int j, int i)

gslpp::complex	DeltaMd (int J, int I)

double	Dk (double x, double y, double z, double t, int k)

double	DL (double a, double b, double c, int k)

double	DL0 (double a, double b, double c, int k)

double	DLL (double a, double b, int k)

double	DLLL (double a, int k)

double	DLLp (double a, double b, int k)

gslpp::complex	Eps_J (int J)

gslpp::complex	EpsPrime (int J, int I)

double	F3C (double x)

double	F3N (double x)

double	F4C (double x)

double	F4N (double x)

double	F7k (double x, int k)

double	Fa (double x, double y)

double	Fb (double x, double y)

double	fft (double x)

double	fPS (double x)

double	fS (double x)

double	It (double a, double b, double c)

gslpp::complex	Lambda0EpsY (int J, int I)

double	Li2 (double x)

gslpp::matrix< gslpp::complex >	mySUSY_CKM ()

void	NeutralinoRemixing ()

gslpp::complex	PGLR (int j, int i)

gslpp::complex	PGRL (int j, int i)

gslpp::complex	PHLR (int j, int i)

gslpp::complex	PHRL (int j, int i)

gslpp::complex	PLRk (int j, int i, int k)

gslpp::complex	PLRk (int j, int i, int k, int Dmixingflag)

gslpp::complex	PRLk (int j, int i, int k)

gslpp::complex	PRLk (int j, int i, int k, int Dmixingflag)

gslpp::complex	VdDNL (int b, int k, int j, int flag)

gslpp::complex	VdDNL (int b, int k, int j, int flag, int Dmixingflag)

gslpp::complex	VdDNR (int b, int k, int j, int flag)

gslpp::complex	VdDNR (int b, int k, int j, int flag, int Dmixingflag)

gslpp::complex	VdUCL (int b, int k, int j)

gslpp::complex	VdUCL (int b, int k, int j, int Dmixingflag)

gslpp::complex	VdUCR (int b, int k, int j, int flag)

gslpp::complex	VdUCR (int b, int k, int j, int flag, int Dmixingflag)

gslpp::complex	VuDCL (int b, int k, int j)

gslpp::complex	VuDCR (int b, int k, int j)

gslpp::complex	VUDHH (int i, int j)

gslpp::complex	VuUN (int b, int k, int j, const std::string)

gslpp::complex	xdS (int S)

gslpp::complex	XLRS (int J, int I, int S)

gslpp::complex	XRLS (int J, int I, int S)

gslpp::complex	xuS (int S)

Private Attributes
double	Als

gslpp::matrix< gslpp::complex >	AmpA1LC

gslpp::matrix< gslpp::complex >	AmpA1LN
	Amplitudes of Chargino and Neutralino contribution to various LFV observables. More...

gslpp::matrix< gslpp::complex >	AmpA1RC

gslpp::matrix< gslpp::complex >	AmpA1RN

gslpp::matrix< gslpp::complex >	AmpALC

gslpp::matrix< gslpp::complex >	AmpALN

gslpp::matrix< gslpp::complex >	AmpARC

gslpp::matrix< gslpp::complex >	AmpARN

gslpp::matrix< gslpp::complex >	AmpTauA1LC

gslpp::matrix< gslpp::complex >	AmpTauA1LN

gslpp::matrix< gslpp::complex >	AmpTauA1RC

gslpp::matrix< gslpp::complex >	AmpTauA1RN

gslpp::matrix< gslpp::complex >	AmpTauALC

gslpp::matrix< gslpp::complex >	AmpTauALN

gslpp::matrix< gslpp::complex >	AmpTauARC

gslpp::matrix< gslpp::complex >	AmpTauARN

gslpp::matrix< gslpp::complex >	AmpTEA1LC

gslpp::matrix< gslpp::complex >	AmpTEA1LN

gslpp::matrix< gslpp::complex >	AmpTEA1RC

gslpp::matrix< gslpp::complex >	AmpTEA1RN

gslpp::matrix< gslpp::complex >	AmpTEALC

gslpp::matrix< gslpp::complex >	AmpTEALN

gslpp::matrix< gslpp::complex >	AmpTEARC

gslpp::matrix< gslpp::complex >	AmpTEARN

gslpp::matrix< gslpp::complex >	CLlE

gslpp::matrix< gslpp::complex >	CLlMU

gslpp::matrix< gslpp::complex >	CLlTAU

gslpp::matrix< gslpp::complex >	CLqDOWN

gslpp::matrix< gslpp::complex >	CLqUP

double	cosb

gslpp::matrix< gslpp::complex >	CRlE
	Chargino and Neutralino couplings to sfermions. More...

gslpp::matrix< gslpp::complex >	CRlMU

gslpp::matrix< gslpp::complex >	CRlTAU

gslpp::matrix< gslpp::complex >	CRqDOWN

gslpp::matrix< gslpp::complex >	CRqUP

gslpp::matrix< gslpp::complex >	DeltaDL_Cache

gslpp::matrix< gslpp::complex >	DeltaMd_cache

gslpp::matrix< gslpp::complex >	downQmassM

gslpp::vector< gslpp::complex >	Eps_JCache

gslpp::matrix< gslpp::complex >	gamDLMD

gslpp::matrix< gslpp::complex >	gamDRgamDRdag

gslpp::matrix< gslpp::complex >	gamDRMD

gslpp::matrix< gslpp::complex >	gamULCKM

gslpp::matrix< gslpp::complex >	gamULCKMMD

gslpp::matrix< gslpp::complex >	gamULgamULdag

gslpp::matrix< gslpp::complex >	gamURCKM

gslpp::matrix< gslpp::complex >	gamURCKMMU

double	gW

gslpp::matrix< gslpp::complex >	Lambda0EpsYCache

gslpp::matrix< double >	Leptf1

gslpp::matrix< double >	Leptf2

gslpp::matrix< double >	Leptf3

gslpp::matrix< double >	Leptf4

gslpp::matrix< double >	Leptfa1

gslpp::matrix< double >	Leptfa2

std::complex< double >	Leptfzc [3][2][2]

std::complex< double >	Leptfzn [6][4][4]

std::complex< double >	Leptgzc [3][2][2]

std::complex< double >	Leptgzn [6][4][4]

gslpp::matrix< double >	Lepty
	Functions needed to calculate various LFV observables. More...

gslpp::matrix< double >	Leptz

WilsonCoefficient	mcBMll

WilsonCoefficient	mcbnlep

WilsonCoefficient	mcbnlepCC

WilsonCoefficient	mcbsg

WilsonCoefficient	mcd1

WilsonCoefficient	mcd1Buras

WilsonCoefficient	mcdbd2

WilsonCoefficient	mcdbd2Chi0Chi0

WilsonCoefficient	mcdbd2Chi0Chi0T

WilsonCoefficient	mcdbd2Chi0g

WilsonCoefficient	mcdbd2Chi0gT

WilsonCoefficient	mcdbd2ChiChi

WilsonCoefficient	mcdbd2ChiChiT

WilsonCoefficient	mcdbd2gg

WilsonCoefficient	mcdbd2ggT

WilsonCoefficient	mcdbd2Hp

WilsonCoefficient	mcdbd2HpT

WilsonCoefficient	mcdbs2

WilsonCoefficient	mcdbs2Chi0Chi0

WilsonCoefficient	mcdbs2Chi0Chi0T

WilsonCoefficient	mcdbs2Chi0g

WilsonCoefficient	mcdbs2Chi0gT

WilsonCoefficient	mcdbs2ChiChi

WilsonCoefficient	mcdbs2ChiChiT

WilsonCoefficient	mcdbs2gg

WilsonCoefficient	mcdbs2ggT

WilsonCoefficient	mcdbs2Hp

WilsonCoefficient	mcdbs2HpT

WilsonCoefficient	mcdd2

WilsonCoefficient	mcdd2Chi0Chi0

WilsonCoefficient	mcdd2Chi0Chi0T

WilsonCoefficient	mcdd2Chi0g

WilsonCoefficient	mcdd2Chi0gT

WilsonCoefficient	mcdd2ChiChi

WilsonCoefficient	mcdd2ChiChiT

WilsonCoefficient	mcdd2gg

WilsonCoefficient	mcdd2ggT

WilsonCoefficient	mcdd2Hp

WilsonCoefficient	mcdd2HpT

WilsonCoefficient	mcdk2

WilsonCoefficient	mcdk2Chi0Chi0

WilsonCoefficient	mcdk2Chi0Chi0T

WilsonCoefficient	mcdk2Chi0g

WilsonCoefficient	mcdk2Chi0gT

WilsonCoefficient	mcdk2ChiChi

WilsonCoefficient	mcdk2ChiChiT

WilsonCoefficient	mcdk2gg

WilsonCoefficient	mcdk2ggT

WilsonCoefficient	mcdk2Hp

WilsonCoefficient	mcdk2HpT

WilsonCoefficient	mcDLi3j

WilsonCoefficient	mcDLij

WilsonCoefficient	mcgminus2mu

gslpp::vector< double >	MChi
	Chargino mass-eigenvalue. More...

gslpp::vector< double >	MChi0
	Neutralino mass-eigenvalue. More...

WilsonCoefficient	mcmueconv

double	Mg

double	MHpm

gslpp::vector< double >	MNeig

double	mu2R

double	mW

gslpp::matrix< gslpp::complex >	myCKM

gslpp::matrix< gslpp::complex >	myCKM_cache

gslpp::vector< double >	mym_sd_sq

gslpp::vector< double >	mym_se_sq

gslpp::vector< double >	mym_sn_sq

gslpp::vector< double >	mym_su_sq
	Sfermion mass-eigenvalue squared. More...

gslpp::matrix< gslpp::complex >	myN
	Neutralino mixing matrix. More...

gslpp::matrix< gslpp::complex >	myRd

gslpp::matrix< gslpp::complex >	myRl

gslpp::matrix< gslpp::complex >	myRn

gslpp::matrix< gslpp::complex >	myRu
	Sfermion mixing matrices. More...

const SUSY &	mySUSY

gslpp::vector< double >	mySUSYMQ

gslpp::matrix< gslpp::complex >	myU

gslpp::matrix< gslpp::complex >	myV
	Chargino mixing matrices. More...

gslpp::matrix< gslpp::complex >	NLlE

gslpp::matrix< gslpp::complex >	NLlMU

gslpp::matrix< gslpp::complex >	NLlTAU

gslpp::matrix< gslpp::complex >	NLqDOWN

gslpp::matrix< gslpp::complex >	NLqUP

gslpp::matrix< gslpp::complex >	NRlE

gslpp::matrix< gslpp::complex >	NRlMU

gslpp::matrix< gslpp::complex >	NRlTAU

gslpp::matrix< gslpp::complex >	NRqDOWN

gslpp::matrix< gslpp::complex >	NRqUP

gslpp::matrix< gslpp::complex >	ON

gslpp::matrix< gslpp::complex >	PHLRCache

gslpp::matrix< gslpp::complex >	PHRLCache

const Polylogarithms	Polylogs

const PVfunctions	PV

double	Q_S

double	sinb

double	sinthetaW

double	tanb

gslpp::matrix< gslpp::complex >	TDhat
	Sdown tri-linear coupling matrix. More...

gslpp::matrix< gslpp::complex >	TEhat
	Slepton tri-linear coupling matrix. More...

gslpp::matrix< gslpp::complex >	TUhat
	Sup tri-linear coupling matrix. More...

gslpp::matrix< gslpp::complex >	upQmassM

double	v

double	v1

double	v2

gslpp::complex	VdDNL_cache [3][6][4][2]

gslpp::complex	VdDNR_cache [3][6][4][2]

gslpp::complex	VdUCL_cache [3][6][2]

gslpp::complex	VdUCR_cache [3][6][2][2]

std::vector< WilsonCoefficient >	vmcbsg

std::vector< WilsonCoefficient >	vmdbd2

std::vector< WilsonCoefficient >	vmdbs2

std::vector< WilsonCoefficient >	vmdd2

std::vector< WilsonCoefficient >	vmdk2

gslpp::complex	VuDCL_cache [3][6][2]

gslpp::complex	VuDCR_cache [3][6][2]

gslpp::matrix< gslpp::complex >	VUDHH_cache

gslpp::complex	VuUNL_cache [3][6][4]

gslpp::complex	VuUNR_cache [3][6][4]

gslpp::complex	XUL [6][3][2]

gslpp::complex	XUR [6][3][2]

gslpp::complex	ZDL [6][3][4]

gslpp::complex	ZDR [6][3][4]

Constructor & Destructor Documentation

◆ SUSYMatching()

SUSYMatching::SUSYMatching ( const SUSY & SUSY_i )

Definition at line 14 of file SUSYMatching.cpp.

                                               :
  
     StandardModelMatching(SUSY_i),
     mySUSY(SUSY_i),
     Polylogs(),
     PV(true),
  
     mcdbd2(5, NDR, NLO),
     mcdbd2Hp(5, NDR, NLO),
     mcdbd2gg(5, NDR, NLO),
     mcdbd2ChiChi(5, NDR, NLO),
     mcdbd2Chi0Chi0(5, NDR, NLO),
     mcdbd2Chi0g(5, NDR, NLO),
     mcdbd2HpT(5, NDR, NLO),
     mcdbd2ggT(5, NDR, NLO),
     mcdbd2ChiChiT(5, NDR, NLO),
     mcdbd2Chi0Chi0T(5, NDR, NLO),
     mcdbd2Chi0gT(5, NDR, NLO),
     mcdbs2(5, NDR, NLO),
     mcdbs2Hp(5, NDR, NLO),
     mcdbs2gg(5, NDR, NLO),
     mcdbs2ChiChi(5, NDR, NLO),
     mcdbs2Chi0Chi0(5, NDR, NLO),
     mcdbs2Chi0g(5, NDR, NLO),
     mcdbs2HpT(5, NDR, NLO),
     mcdbs2ggT(5, NDR, NLO),
     mcdbs2ChiChiT(5, NDR, NLO),
     mcdbs2Chi0Chi0T(5, NDR, NLO),
     mcdbs2Chi0gT(5, NDR, NLO),
     mcdk2(5, NDR, NLO),
     mcdk2Hp(5, NDR, NLO),
     mcdk2gg(5, NDR, NLO),
     mcdk2ChiChi(5, NDR, NLO),
     mcdk2Chi0Chi0(5, NDR, NLO),
     mcdk2Chi0g(5, NDR, NLO),
     mcdk2HpT(5, NDR, NLO),
     mcdk2ggT(5, NDR, NLO),
     mcdk2ChiChiT(5, NDR, NLO),
     mcdk2Chi0Chi0T(5, NDR, NLO),
     mcdk2Chi0gT(5, NDR, NLO),
     mcdd2(5, NDR, NLO),
     mcdd2Hp(5, NDR, NLO),
     mcdd2gg(5, NDR, NLO),
     mcdd2ChiChi(5, NDR, NLO),
     mcdd2Chi0Chi0(5, NDR, NLO),
     mcdd2Chi0g(5, NDR, NLO),
     mcdd2HpT(5, NDR, NLO),
     mcdd2ggT(5, NDR, NLO),
     mcdd2ChiChiT(5, NDR, NLO),
     mcdd2Chi0Chi0T(5, NDR, NLO),
     mcdd2Chi0gT(5, NDR, NLO),
     mcDLij(2, NDR, LO),
     mcDLi3j(20, NDR, LO),
     mcmueconv(8, NDR, LO),
     mcgminus2mu(2, NDR, LO),
     mcbsg(8, NDR, NNLO),
     mcBMll(13, NDR, NLO),
     mcbnlep(10, NDR, NLO, NLO_QED11),
     mcbnlepCC(10, NDR, NLO),
     mcd1(10, NDR, NLO),
     mcd1Buras(10, NDR, NLO),
         
     myCKM(3, 3, 0.),
     mym_su_sq(6, 0.),
     mym_sd_sq(6, 0.),
     mym_se_sq(6, 0.),
     mym_sn_sq(6, 0.),
     myRu(6, 6, 0.),
     myRd(6, 6, 0.),
     myRl(6, 6, 0.),
     myRn(6, 6, 0.),
     MChi(2, 0.),
     myV(2, 2, 0.),
     myU(2, 2, 0.),
     MChi0(4, 0.),
     MNeig(4, 0.),
     myN(4, 4, 0.),
     ON(4, 4, 0.),
  
     Lepty(4, 6, 0.),
     Leptz(2, 3, 0.),
     Leptfa1(4, 6, 0.),
     Leptfa2(2, 3, 0.),
     Leptf1(4, 6, 0.),
     Leptf2(4, 6, 0.),
     Leptf3(2, 3, 0.),
     Leptf4(2, 3, 0.),
     CRlE(2, 3, 0.),
     CRlMU(2, 3, 0.),
     CRlTAU(2, 3, 0.),
     CRqUP(2, 6, 0.),
     CRqDOWN(2, 6, 0.),
     CLlE(2, 3, 0.),
     CLlMU(2, 3, 0.),
     CLlTAU(2, 3, 0.),
     CLqUP(2, 6, 0.),
     CLqDOWN(2, 6, 0.),
     NRlE(4, 6, 0.),
     NRlMU(4, 6, 0.),
     NRlTAU(4, 6, 0.),
     NRqUP(4, 6, 0.),
     NRqDOWN(4, 6, 0.),
     NLlE(4, 6, 0.),
     NLlMU(4, 6, 0.),
     NLlTAU(4, 6, 0.),
     NLqUP(4, 6, 0.),
     NLqDOWN(4, 6, 0.),
     AmpA1LN(4, 6, 0.),
     AmpA1RN(4, 6, 0.),
     AmpA1LC(2, 3, 0.),
     AmpA1RC(2, 3, 0.),
     AmpTauA1LN(4, 6, 0.),
     AmpTauA1RN(4, 6, 0.),
     AmpTauA1LC(2, 3, 0.),
     AmpTauA1RC(2, 3, 0.),
     AmpTEA1LN(4, 6, 0.),
     AmpTEA1RN(4, 6, 0.),
     AmpTEA1LC(2, 3, 0.),
     AmpTEA1RC(2, 3, 0.),
     AmpALN(4, 6, 0.),
     AmpARN(4, 6, 0.),
     AmpALC(2, 3, 0.),
     AmpARC(2, 3, 0.),
     AmpTauALN(4, 6, 0.),
     AmpTauARN(4, 6, 0.),
     AmpTauALC(2, 3, 0.),
     AmpTauARC(2, 3, 0.),
     AmpTEALN(4, 6, 0.),
     AmpTEARN(4, 6, 0.),
     AmpTEALC(2, 3, 0.),
     AmpTEARC(2, 3, 0.),
     TUhat(3, 3, 0.),
     TDhat(3, 3, 0.),
     TEhat(3, 3, 0.),
         
     gamULCKM(6, 3, 0.),
     gamURCKM(6, 3, 0.),
     gamULCKMMD(6, 3, 0.),
     gamURCKMMU(6, 3, 0.),
     gamDLMD(6, 3, 0.),
     gamDRMD(6, 3, 0.),
     gamULgamULdag(6, 6, 0.),
     gamDRgamDRdag(6, 6, 0.),
     upQmassM(3,3,0.),
     downQmassM(3,3,0.),
  
     Eps_JCache(3,0.),
     Lambda0EpsYCache(3,3,0.),
     DeltaDL_Cache(3,3,0.),
     PHLRCache(3,3,0.),
     PHRLCache(3,3,0.),
     myCKM_cache(3, 3, 0.),
     VUDHH_cache(6, 6, 0.),
     DeltaMd_cache(3, 3, 0.),
     mySUSYMQ(6, 0.)
  
 {
 }

Member Function Documentation

◆ AFunctions()

gslpp::vector< gslpp::complex > SUSYMatching::AFunctions ( int n )

virtual

Calculates gamma penguin amplitudes for the process \( \ell_j \to \ell_i \gamma \) from [139] [19].

Calculates gamma penguin amplitudes for m->(3)e (1), t->(3)m (2) and t->(3)e (3)**‍/ /**

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to e \gamma \), 2 = \( \tau \to \mu \gamma \), 3 = \( \tau \to e \gamma \)

Returns: returns the vector of gamma penguin amplitude

Definition at line 4049 of file SUSYMatching.cpp.

                                                                    {
         //gamma penguin contributions
  
     NeutralinoRemixing();
  
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double piconst = 1.0/(32.0 * pi * pi);
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mTAU = mySUSY.getLeptons(StandardModel::TAU).getMass();
     sinb = mySUSY.getSinb();
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
  
     gslpp::vector<gslpp::complex> AFunctions(4, 0.);
  
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlE.assign(a, x, - (g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 0) + (mE/cdenn)*ON(a, 2)*myRl(x, 3)));
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             NRlTAU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 2) + (mTAU/cdenn)*ON(a, 2)*myRl(x, 5)));
             //     RL + RR TYPE MI
             NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2)*myRl(x, 0) + 2.0*ON(a, 0)*ttw*myRl(x, 3)));
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
             NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2)*myRl(x, 2) + 2.0*ON(a, 0)*ttw*myRl(x, 5)));
 //    Commented expressions might be useful for complex neutralino mixing matrices
 //            NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2).conjugate()*myRl(x, 0) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 3)));
 //            NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2).conjugate()*myRl(x, 1) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 4)));
 //            NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2).conjugate()*myRl(x, 2) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 5)));
         }
     }
  
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlE.assign(a, x, - (g2*myV(a, 0)*myRn(x, 0)));
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             CRlTAU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 2)));
             //     LR-TYPE
             CLlE.assign(a, x, g2*mE/cdenc*myU(a, 1).conjugate()*myRn(x, 0));
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
             CLlTAU.assign(a, x, g2*mTAU/cdenc*myU(a, 1).conjugate()*myRn(x, 2));
         }
     }
  
     //     Definition of y and z - remember they are dimensionless quantities.
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             Lepty.assign(a, x, MNeig(a) * MNeig(a) / mym_se_sq(x) );
         }
     }
  
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             Leptz.assign(a, x, MChi(a) * MChi(a) / mym_sn_sq(x) );
         }
     }
  
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             if (fabs(1.0 - Lepty(a, x)) > 0.01) {
                 Leptfa1.assign(a, x, (1.0/mym_se_sq(x))*(1.0/pow((1.0 - Lepty(a, x)),4.0))*
                                 (2.0 - 9.0*Lepty(a, x) + 18.0*pow(Lepty(a, x),2.0) - 11.0*pow(Lepty(a, x),3.0)
                                 + 6.0*pow(Lepty(a, x),3.0)*log(Lepty(a, x))) );
                 Leptf1.assign(a, x, ((1.0 - 6.0*Lepty(a, x) + 3.0 * pow(Lepty(a, x),2.0) + 
                                       2.0*pow(Lepty(a, x),3.0) - 6.0*pow(Lepty(a,x),2.0)*log(Lepty(a, x))))/
                                     (6.0 * pow((1.0 - Lepty(a,x)),4.0)) );
                 Leptf2.assign(a, x, (1.0 - pow(Lepty(a, x),2.0) +  2.0 * Lepty(a, x) * log(Lepty(a, x)))/
                                     (pow((1.0-Lepty(a, x)),3.0)));
             }
             else {
                 Leptfa1.assign(a, x, (3.0/2.0)*(1.0/mym_se_sq(x)));
                 Leptf1.assign(a, x, 1.0/12.0 - (Lepty(a, x) - 1.0)/30.0);
                 Leptf2.assign(a, x, 1.0/3.0 - (Lepty(a, x) - 1.0)/6.0);
             }
         }
     }
  
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             if(fabs(1.0-Leptz(a, x)) > 0.01) {
                 Leptfa2.assign(a, x, (1.0/mym_sn_sq(x))*(1.0/pow(1.0 - Leptz(a,x),4.0))*
                                 (16.0 - 45.0*Leptz(a,x) + 36.0*pow(Leptz(a,x),2.0) - 7.0*pow(Leptz(a,x),3.0)
                                 + 6.0*(2.0 - 3.0*Leptz(a,x))*log(Leptz(a,x))) );
                 Leptf3.assign(a, x, ((2.0 + 3.0*Leptz(a, x) - 6.0*pow(Leptz(a, x),2.0) 
                                       + pow(Leptz(a, x),3.0) + 6.0*Leptz(a, x)*log(Leptz(a, x)))/
                              (6.0*pow((1.0 - Leptz(a, x)),4.0))) );
                 Leptf4.assign(a, x, ((-3.0 + 4.0*Leptz(a, x) - pow(Leptz(a, x),2.0)
                                       - 2.0*log(Leptz(a, x)))/
                                      pow((1.0 - Leptz(a, x)),3.0)) );
             }
             else {
                 Leptfa2.assign(a, x, (-9.0/2.0)*(1.0/mym_sn_sq(x)) );
                 Leptf3.assign(a, x, 1.0/12.0 - (Leptz(a, x) - 1.0)/20.0 );
                 Leptf4.assign(a, x, 2.0/3.0 - (Leptz(a, x) - 1.0)/2.0 );
             }
         }
     }
  
     if (li_to_lj == 1) // mu -> (3)e
     {
         //      Neutralino contributions
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 AmpA1RN.assign(a, x, (piconst/18.0)*NLlE(a,x)*NLlMU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpA1LN.assign(a, x, (piconst/18.0)*NRlE(a,x)*NRlMU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpARN.assign(a, x, piconst*(NRlE(a, x) * NRlMU(a, x).conjugate() * Leptf1(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                              + NLlE(a, x) * NLlMU(a, x).conjugate() * (mE/mMU) * Leptf1(a, x)
 //...until here
                                              + NRlE(a, x) * NLlMU(a, x).conjugate() * (MNeig(a)/mMU) * Leptf2(a, x)) /mym_se_sq(x) );
                 AmpALN.assign(a, x, piconst*(NLlE(a, x) * NLlMU(a, x).conjugate() * Leptf1(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                              + NRlE(a, x) * NRlMU(a, x).conjugate() * (mE/mMU) * Leptf1(a, x)
 //...until here
                                              + NLlE(a, x) * NRlMU(a, x).conjugate() * (MNeig(a)/mMU) * Leptf2(a, x)) /mym_se_sq(x) );
             }
         }
         gslpp::complex A1RN = 0.0;
         gslpp::complex A1LN = 0.0;
         gslpp::complex ARN = 0.0;
         gslpp::complex ALN = 0.0;
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 A1RN = A1RN + AmpA1RN(a,x);
                 A1LN = A1LN + AmpA1LN(a,x);
                 ARN = ARN + AmpARN(a,x);
                 ALN = ALN + AmpALN(a,x);
             }
         }
         //      Chargino contributions
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 AmpA1RC.assign(a, x, -(piconst/18.0)*CLlE(a,x)*CLlMU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpA1LC.assign(a, x, -(piconst/18.0)*CRlE(a,x)*CRlMU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpARC.assign(a, x, -(piconst/mym_sn_sq(x)) * (CRlE(a, x)*CRlMU(a, x).conjugate() * Leptf3(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                + CLlE(a, x) * CLlMU(a, x).conjugate() * (mE/mMU) * Leptf3(a, x)
 //...until here
                                                                + CRlE(a, x) * CLlMU(a, x).conjugate() * (MChi(a)/mMU) * Leptf4(a, x)) );
                 AmpALC.assign(a, x, -(piconst/mym_sn_sq(x)) * (CLlE(a, x) * CLlMU(a, x).conjugate() * Leptf3(a, x) 
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                + CRlE(a, x) * CRlMU(a, x).conjugate() * (mE/mMU) * Leptf3(a, x)
 //...until here
                                                                + CLlE(a, x) * CRlMU(a, x).conjugate() * (MChi(a)/mMU) * Leptf4(a, x)) );
             }
         }
         gslpp::complex A1RC = 0.0;
         gslpp::complex A1LC = 0.0;
         gslpp::complex ARC = 0.0;
         gslpp::complex ALC = 0.0;
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 A1RC = A1RC + AmpA1RC(a,x);
                 A1LC = A1LC + AmpA1LC(a,x);
                 ARC = ARC + AmpARC(a,x);
                 ALC = ALC + AmpALC(a,x);
             }
         }
         //     write AR and AL into a vector for mu->(3)e
         AFunctions.assign(0, A1RN + A1RC );
         AFunctions.assign(1, A1LN + A1LC );
         AFunctions.assign(2, ARN + ARC );
         AFunctions.assign(3, ALN + ALC );
  
     }
  
     if (li_to_lj == 2) // tau -> (3)mu
     {
         //      Neutralino contributions
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 AmpTauA1RN.assign(a, x, (piconst/18.0)*NLlMU(a,x)*NLlTAU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpTauA1LN.assign(a, x, (piconst/18.0)*NRlMU(a,x)*NRlTAU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpTauARN.assign(a, x, piconst * (NRlMU(a, x) * NRlTAU(a, x).conjugate() * Leptf1(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                   + NLlMU(a, x) * NLlTAU(a, x).conjugate() * (mMU/mTAU) * Leptf1(a, x)
 //...until here
                                                   + NRlMU(a, x) * NLlTAU(a, x).conjugate() * (MNeig(a)/mTAU) * Leptf2(a, x)) /mym_se_sq(x) );
                 AmpTauALN.assign(a, x, piconst * (NLlMU(a, x) * NLlTAU(a, x).conjugate() * Leptf1(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                   + NRlMU(a, x) * NRlTAU(a, x).conjugate() * (mMU/mTAU) * Leptf1(a, x)
 //...until here
                                                   + NLlMU(a, x) * NRlTAU(a, x).conjugate() * (MNeig(a)/mTAU) * Leptf2(a, x)) /mym_se_sq(x) );
             }
         }
         gslpp::complex TauA1RN = 0.0;
         gslpp::complex TauA1LN = 0.0;
         gslpp::complex TauARN = 0.0;
         gslpp::complex TauALN = 0.0;
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 TauA1RN = TauA1RN + AmpTauA1RN(a,x);
                 TauA1LN = TauA1LN + AmpTauA1LN(a,x);
                 TauARN = TauARN + AmpTauARN(a,x);
                 TauALN = TauALN + AmpTauALN(a,x);
             }
         }
         //      Chargino contributions
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 AmpTauA1RC.assign(a, x, -(piconst/18.0)*CLlMU(a,x)*CLlTAU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpTauA1LC.assign(a, x, -(piconst/18.0)*CRlMU(a,x)*CRlTAU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpTauARC.assign(a, x, -piconst / mym_sn_sq(x) * (CRlMU(a, x) * CRlTAU(a, x).conjugate() * Leptf3(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                   + CLlMU(a, x) * CLlTAU(a, x).conjugate() * (mMU/mTAU) * Leptf3(a, x)
 //...until here
                                                                   + CRlMU(a, x) * CLlTAU(a, x).conjugate() * (MChi(a)/mTAU) * Leptf4(a, x)) );
                 AmpTauALC.assign(a, x, -piconst / mym_sn_sq(x) * (CLlMU(a, x) * CLlTAU(a, x).conjugate() * Leptf3(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                   + CRlMU(a, x) * CRlTAU(a, x).conjugate() * (mMU/mTAU) * Leptf3(a, x)
 //...until here
                                                                   + CLlMU(a, x) * CRlTAU(a, x).conjugate() * (MChi(a)/mTAU) * Leptf4(a, x)) );
             }
         }
         gslpp::complex TauA1RC = 0.0;
         gslpp::complex TauA1LC = 0.0;
         gslpp::complex TauARC = 0.0;
         gslpp::complex TauALC = 0.0;
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 TauA1RC = TauA1RC + AmpTauA1RC(a,x);
                 TauA1LC = TauA1LC + AmpTauA1LC(a,x);
                 TauARC = TauARC + AmpTauARC(a,x);
                 TauALC = TauALC + AmpTauALC(a,x);
             }
         }
         //     write AR and AL into a vector for tau->(3)mu
         AFunctions.assign(0, TauA1RC + TauA1RN );
         AFunctions.assign(1, TauA1LC + TauA1LN );
         AFunctions.assign(2, TauARC + TauARN );
         AFunctions.assign(3, TauALC + TauALN );
     }
  
     if (li_to_lj == 3) // tau -> (3)e
     {
         //      Neutralino contributions
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 AmpTEA1RN.assign(a, x, (piconst/18.0)*NLlE(a,x)*NLlTAU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpTEA1LN.assign(a, x, (piconst/18.0)*NRlE(a,x)*NRlTAU(a,x).conjugate()*Leptfa1(a,x) );
                 AmpTEARN.assign(a, x, piconst * (NRlE(a, x) * NRlTAU(a, x).conjugate() * Leptf1(a,x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                  + NLlE(a, x) * NLlTAU(a, x).conjugate() * (mE/mTAU) * Leptf1(a,x)
 //...until here
                                                  + NRlE(a, x) * NLlTAU(a, x).conjugate() * (MNeig(a)/mTAU) * Leptf2(a, x)) / mym_se_sq(x) );
                 AmpTEALN.assign(a, x, piconst * (NLlE(a, x) * NLlTAU(a, x).conjugate() * Leptf1(a, x) 
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                  + NRlE(a, x) * NRlTAU(a, x).conjugate() * (mE/mTAU) * Leptf1(a, x)
 //...until here
                                                  + NLlE(a, x) * NRlTAU(a, x).conjugate() * (MNeig(a)/mTAU) * Leptf2(a, x)) / mym_se_sq(x) );
             }
         }
         gslpp::complex TEA1RN = 0.0;
         gslpp::complex TEA1LN = 0.0;
         gslpp::complex TEARN = 0.0;
         gslpp::complex TEALN = 0.0;
         for (int a=0;a<4;a++) {
             for (int x=0;x<6;x++) {
                 TEA1RN = TEA1RN + AmpTEA1RN(a,x);
                 TEA1LN = TEA1LN + AmpTEA1LN(a,x);
                 TEARN = TEARN + AmpTEARN(a,x);
                 TEALN = TEALN + AmpTEALN(a,x);
             }
         }
         //      Chargino contributions
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 AmpTEA1RC.assign(a, x, -(piconst/18.0)*CLlE(a,x)*CLlTAU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpTEA1LC.assign(a, x, -(piconst/18.0)*CRlE(a,x)*CRlTAU(a,x).conjugate()*Leptfa2(a,x) );
                 AmpTEARC.assign(a, x, -piconst / mym_sn_sq(x) * (CRlE(a, x) * CRlTAU(a, x).conjugate() * Leptf3(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                  + CLlE(a, x) * CLlTAU(a, x).conjugate() * (mE/mTAU) * Leptf3(a, x)
 //...until here
                                                                  + CRlE(a, x) * CLlTAU(a, x).conjugate() *(MChi(a)/mTAU) * Leptf4(a, x)) );
                 AmpTEALC.assign(a, x, -piconst / mym_sn_sq(x) * (CLlE(a, x) * CLlTAU(a, x).conjugate() * Leptf3(a, x)
 // The following contribution is absent in PRD 53.2442 (Hisano et al.), but appears in PRD 73.055003 (Arganda & Herrero)...
                                                                  + CRlE(a, x) * CRlTAU(a, x).conjugate() * (mE/mTAU) * Leptf3(a, x)
 //...until here
                                                                  + CLlE(a, x) * CRlTAU(a, x).conjugate() * (MChi(a)/mTAU) * Leptf4(a, x)) );
             }
         }
         gslpp::complex TEA1RC = 0.0;
         gslpp::complex TEA1LC = 0.0;
         gslpp::complex TEARC = 0.0;
         gslpp::complex TEALC = 0.0;
         for (int a=0;a<2;a++) {
             for (int x=0;x<3;x++) {
                 TEA1RC = TEA1RC + AmpTEA1RC(a, x);
                 TEA1LC = TEA1LC + AmpTEA1LC(a,x);
                 TEARC = TEARC + AmpTEARC(a,x);
                 TEALC = TEALC + AmpTEALC(a,x);
             }
         }
         //     write AR and AL into a vector for tau->(3)e
         AFunctions.assign(0, TEA1RC + TEA1RN );
         AFunctions.assign(1, TEA1LC + TEA1LN );
         AFunctions.assign(2, TEARC + TEARN );
         AFunctions.assign(3, TEALC + TEALN );
  
     }
  
     return(AFunctions);

◆ BFunctions()

gslpp::vector< gslpp::complex > SUSYMatching::BFunctions ( int n )

virtual

Calculates box diagram amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from from [139] [19].

Calculates box amplitudes for m->3e (1), t->3m (2) and t->3e (3) ‍/ /

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of gamma diagram amplitude

Definition at line 4364 of file SUSYMatching.cpp.

                                                                {
         //box diagram contributions
  
     NeutralinoRemixing();
  
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mTAU = mySUSY.getLeptons(StandardModel::TAU).getMass();
  
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
     double alph = mySUSY.getAle();
  
     gslpp::vector<gslpp::complex> BFunctions(8, 0.);
  
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlE.assign(a, x, - (g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 0) + (mE/cdenn)*ON(a, 2)*myRl(x, 3)));
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             NRlTAU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 2) + (mTAU/cdenn)*ON(a, 2)*myRl(x, 5)));
             //     RL + RR TYPE MI
             NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2)*myRl(x, 0) + 2.0*ON(a, 0)*ttw*myRl(x, 3)));
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
             NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2)*myRl(x, 2) + 2.0*ON(a, 0)*ttw*myRl(x, 5)));
 //    Commented expressions might be useful for complex neutralino mixing matrices
 //            NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2).conjugate()*myRl(x, 0) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 3)));
 //            NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2).conjugate()*myRl(x, 1) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 4)));
 //            NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2).conjugate()*myRl(x, 2) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 5)));
         }
     }
  
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlE.assign(a, x, - (g2*myV(a, 0)*myRn(x, 0)));
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             CRlTAU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 2)));
             //     LR-TYPE
             CLlE.assign(a, x, g2*mE/cdenc*myU(a, 1).conjugate()*myRn(x, 0));
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
             CLlTAU.assign(a, x, g2*mTAU/cdenc*myU(a, 1).conjugate()*myRn(x, 2));
         }
     }
  
     if (li_to_lj == 1) // mu -> 3e
     {
         //      Neutralino contributions
 //    J4n(a,b,x,t)=/*J4n(a,b,x,t)*/
 //                                                                    *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
 //    I4n(a,b,x,t)=/*I4n(a,b,x,t)*/
 //                                                                    *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi)
         gslpp::complex B1nRMu3E = 0.0;
         gslpp::complex B2nRMu3E = 0.0;
         gslpp::complex B3nRMu3E = 0.0;
         gslpp::complex B4nRMu3E = 0.0;
         gslpp::complex B1nLMu3E = 0.0;
         gslpp::complex B2nLMu3E = 0.0;
         gslpp::complex B3nLMu3E = 0.0;
         gslpp::complex B4nLMu3E = 0.0;
         for (int a=0;a<4;a++) {
             for (int b=0;b<4;b++) {
                 for (int x=0;x<6;x++) {
                     for (int t=0;t<6;t++) {
                         B1nRMu3E = B1nRMu3E + (1.0/(4.0*pi*alph))*(0.5*NLlMU(a,x)*NLlE(a,t)*NLlE(b,t)*NLlE(b,x)/*J4n(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                    +MNeig(a)*MNeig(b)*NLlMU(a,x)*NLlE(a,t)*NLlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nRMu3E = B2nRMu3E + (1.0/(4.0*pi*alph))*(0.25*(NLlMU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x)
                                                                          +NLlMU(a,x)*NRlE(a,t)*NLlE(b,t)*NRlE(b,x)
                                                                          -NLlMU(a,x)*NRlE(a,t)*NRlE(b,t)*NLlE(b,x))/*J4n(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                    -0.5*MNeig(a)*MNeig(b)*NLlMU(a,x)*NRlE(a,t)*NRlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nRMu3E = B3nRMu3E + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NLlMU(a,x)*NRlE(a,t)*NLlE(b,t)*NRlE(b,x)
                                                                                      +0.5*NLlMU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x))/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nRMu3E = B4nRMu3E + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NLlMU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B1nLMu3E = B1nLMu3E + (1.0/(4.0*pi*alph))*(0.5*NRlMU(a,x)*NRlE(a,t)*NRlE(b,t)*NRlE(b,x)/*J4n(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                    +MNeig(a)*MNeig(b)*NRlMU(a,x)*NRlE(a,t)*NRlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nLMu3E = B2nLMu3E + (1.0/(4.0*pi*alph))*(0.25*(NRlMU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x)
                                                                          +NRlMU(a,x)*NLlE(a,t)*NRlE(b,t)*NLlE(b,x)
                                                                          -NRlMU(a,x)*NLlE(a,t)*NLlE(b,t)*NRlE(b,x))/*J4n(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                    -0.5*MNeig(a)*MNeig(b)*NRlMU(a,x)*NLlE(a,t)*NLlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nLMu3E = B3nLMu3E + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NRlMU(a,x)*NLlE(a,t)*NRlE(b,t)*NLlE(b,x)
                                                                                      +0.5*NRlMU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x))/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nLMu3E = B4nLMu3E + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NRlMU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
         //      Chargino contributions
 //    J4c(a,b,x,t)=/*J4c(a,b,x,t)*/
 //                                                                    *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
 //    I4c(a,b,x,t)=/*I4c(a,b,x,t)*/
 //                                                                    *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi)
         gslpp::complex B1cRMu3E = 0.0;
         gslpp::complex B2cRMu3E = 0.0;
         gslpp::complex B3cRMu3E = 0.0;
         gslpp::complex B1cLMu3E = 0.0;
         gslpp::complex B2cLMu3E = 0.0;
         gslpp::complex B3cLMu3E = 0.0;
         for (int a=0;a<2;a++) {
             for (int b=0;b<2;b++) {
                 for (int x=0;x<3;x++) {
                     for (int t=0;t<3;t++) {
                         B1cRMu3E = B1cRMu3E + (1.0/(8.0*pi*alph))*CLlMU(a,x)*CLlE(a,t)*CLlE(b,t)*CLlE(b,x)/*J4c(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi);
                         B2cRMu3E = B2cRMu3E + (1.0/(4.0*pi*alph))*(0.25*CLlMU(a,x)*CLlE(a,t)*CRlE(b,t)*CRlE(b,x)/*J4c(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                    -0.5*MChi(a)*MChi(b)*CLlMU(a,x)*CRlE(a,t)*CRlE(b,t)*CLlE(b,x)/*I4c(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cRMu3E = B3cRMu3E + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CLlMU(a,x)*CRlE(a,t)*CLlE(b,t)*CRlE(b,x)/*I4c(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                         B1cLMu3E = B1cLMu3E + (1.0/(8.0*pi*alph))*(CRlMU(a,x)*CRlE(a,t)*CRlE(b,t)*CRlE(b,x)/*J4c(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi));
                         B2cLMu3E = B2cLMu3E + (1.0/(4.0*pi*alph))*(0.25*CRlMU(a,x)*CRlE(a,t)*CLlE(b,t)*CLlE(b,x)/*J4c(a,b,x,t)*/
                                                                     *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                    -0.5*MChi(a)*MChi(b)*CRlMU(a,x)*CLlE(a,t)*CLlE(b,t)*CRlE(b,x)/*I4c(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cLMu3E = B3cLMu3E + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CRlMU(a,x)*CLlE(a,t)*CRlE(b,t)*CLlE(b,x)/*I4c(a,b,x,t)*/
                                                                     *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
                 
 //     write BR and BL into a vector for mu->3e
         BFunctions.assign(0, B1nRMu3E + B1cRMu3E );
         BFunctions.assign(1, B1nLMu3E + B1cLMu3E );
         BFunctions.assign(2, B2nRMu3E + B2cRMu3E );
         BFunctions.assign(3, B2nLMu3E + B2cLMu3E );
         BFunctions.assign(4, B3nRMu3E + B3cRMu3E );
         BFunctions.assign(5, B3nLMu3E + B3cLMu3E );
         BFunctions.assign(6, B4nRMu3E );
         BFunctions.assign(7, B4nLMu3E );
     }
     if (li_to_lj == 2) // tau -> 3mu
     {
         //      Neutralino contributions
         gslpp::complex B1nRTau3Mu = 0.0;
         gslpp::complex B2nRTau3Mu = 0.0;
         gslpp::complex B3nRTau3Mu = 0.0;
         gslpp::complex B4nRTau3Mu = 0.0;
         gslpp::complex B1nLTau3Mu = 0.0;
         gslpp::complex B2nLTau3Mu = 0.0;
         gslpp::complex B3nLTau3Mu = 0.0;
         gslpp::complex B4nLTau3Mu = 0.0;
         for (int a=0;a<4;a++) {
             for (int b=0;b<4;b++) {
                 for (int x=0;x<6;x++) {
                     for (int t=0;t<6;t++) {
                         B1nRTau3Mu = B1nRTau3Mu + (1.0/(4.0*pi*alph))*(0.5*NLlTAU(a,x)*NLlMU(a,t)*NLlMU(b,t)*NLlMU(b,x)/*J4n(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                        +MNeig(a)*MNeig(b)*NLlTAU(a,x)*NLlMU(a,t)*NLlMU(b,t)*NLlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nRTau3Mu = B2nRTau3Mu + (1.0/(4.0*pi*alph))*(0.25*(NLlTAU(a,x)*NLlMU(a,t)*NRlMU(b,t)*NRlMU(b,x)
                                                                              +NLlTAU(a,x)*NRlMU(a,t)*NLlMU(b,t)*NRlMU(b,x)
                                                                              -NLlTAU(a,x)*NRlMU(a,t)*NRlMU(b,t)*NLlMU(b,x))/*J4n(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                        -0.5*MNeig(a)*MNeig(b)*NLlTAU(a,x)*NRlMU(a,t)*NRlMU(b,t)*NLlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nRTau3Mu = B3nRTau3Mu + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NLlTAU(a,x)*NRlMU(a,t)*NLlMU(b,t)*NRlMU(b,x)
                                                                                          +0.5*NLlTAU(a,x)*NLlMU(a,t)*NRlMU(b,t)*NRlMU(b,x))/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nRTau3Mu = B4nRTau3Mu + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NLlTAU(a,x)*NLlMU(a,t)*NRlMU(b,t)*NRlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B1nLTau3Mu = B1nLTau3Mu + (1.0/(4.0*pi*alph))*(0.5*NRlTAU(a,x)*NRlMU(a,t)*NRlMU(b,t)*NRlMU(b,x)/*J4n(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                        +MNeig(a)*MNeig(b)*NRlTAU(a,x)*NRlMU(a,t)*NRlMU(b,t)*NRlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nLTau3Mu = B2nLTau3Mu + (1.0/(4.0*pi*alph))*(0.25*(NRlTAU(a,x)*NRlMU(a,t)*NLlMU(b,t)*NLlMU(b,x)
                                                                            +NRlTAU(a,x)*NLlMU(a,t)*NRlMU(b,t)*NLlMU(b,x)
                                                                            -NRlTAU(a,x)*NLlMU(a,t)*NLlMU(b,t)*NRlMU(b,x))/*J4n(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                      -0.5*MNeig(a)*MNeig(b)*NRlTAU(a,x)*NLlMU(a,t)*NLlMU(b,t)*NRlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nLTau3Mu = B3nLTau3Mu + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NRlTAU(a,x)*NLlMU(a,t)*NRlMU(b,t)*NLlMU(b,x)
                                                                                        +0.5*NRlTAU(a,x)*NRlMU(a,t)*NLlMU(b,t)*NLlMU(b,x))/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nLTau3Mu = B4nLTau3Mu + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NRlTAU(a,x)*NRlMU(a,t)*NLlMU(b,t)*NLlMU(b,x)/*I4n(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
         //      Chargino contributions
         gslpp::complex B1cRTau3Mu = 0.0;
         gslpp::complex B2cRTau3Mu = 0.0;
         gslpp::complex B3cRTau3Mu = 0.0;
         gslpp::complex B1cLTau3Mu = 0.0;
         gslpp::complex B2cLTau3Mu = 0.0;
         gslpp::complex B3cLTau3Mu = 0.0;
         for (int a=0;a<2;a++) {
             for (int b=0;b<2;b++) {
                 for (int x=0;x<3;x++) {
                     for (int t=0;t<3;t++) {
                         B1cRTau3Mu = B1cRTau3Mu + (1.0/(8.0*pi*alph))*CLlTAU(a,x)*CLlMU(a,t)*CLlMU(b,t)*CLlMU(b,x)/*J4c(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi);
                         B2cRTau3Mu = B2cRTau3Mu + (1.0/(4.0*pi*alph))*(0.25*CLlTAU(a,x)*CLlMU(a,t)*CRlMU(b,t)*CRlMU(b,x)/*J4c(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                        -0.5*MChi(a)*MChi(b)*CLlTAU(a,x)*CRlMU(a,t)*CRlMU(b,t)*CLlMU(b,x)/*I4c(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cRTau3Mu = B3cRTau3Mu + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CLlTAU(a,x)*CRlMU(a,t)*CLlMU(b,t)*CRlMU(b,x)/*I4c(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                         B1cLTau3Mu = B1cLTau3Mu + (1.0/(8.0*pi*alph))*CRlTAU(a,x)*CRlMU(a,t)*CRlMU(b,t)*CRlMU(b,x)/*J4c(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi);
                         B2cLTau3Mu = B2cLTau3Mu + (1.0/(4.0*pi*alph))*(0.25*CRlTAU(a,x)*CRlMU(a,t)*CLlMU(b,t)*CLlMU(b,x)/*J4c(a,b,x,t)*/
                                                                         *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                        -0.5*MChi(a)*MChi(b)*CRlTAU(a,x)*CLlMU(a,t)*CLlMU(b,t)*CRlMU(b,x)/*I4c(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cLTau3Mu = B3cLTau3Mu + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CRlTAU(a,x)*CLlMU(a,t)*CRlMU(b,t)*CLlMU(b,x)/*I4c(a,b,x,t)*/
                                                                         *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
         //     write BR and BL into a vector for tau->3mu
         BFunctions.assign(0, B1nRTau3Mu + B1cRTau3Mu );
         BFunctions.assign(1, B1nLTau3Mu + B1cLTau3Mu );
         BFunctions.assign(2, B2nRTau3Mu + B2cRTau3Mu );
         BFunctions.assign(3, B2nLTau3Mu + B2cLTau3Mu );
         BFunctions.assign(4, B3nRTau3Mu + B3cRTau3Mu );
         BFunctions.assign(5, B3nLTau3Mu + B3cLTau3Mu );
         BFunctions.assign(6, B4nRTau3Mu );
         BFunctions.assign(7, B4nLTau3Mu );
     }
     if (li_to_lj == 3) // tau -> 3e
     {
         //      Neutralino contributions
         gslpp::complex B1nRTau3E = 0.0;
         gslpp::complex B2nRTau3E = 0.0;
         gslpp::complex B3nRTau3E = 0.0;
         gslpp::complex B4nRTau3E = 0.0;
         gslpp::complex B1nLTau3E = 0.0;
         gslpp::complex B2nLTau3E = 0.0;
         gslpp::complex B3nLTau3E = 0.0;
         gslpp::complex B4nLTau3E = 0.0;
         for (int a=0;a<4;a++) {
             for (int b=0;b<4;b++) {
                 for (int x=0;x<6;x++) {
                     for (int t=0;t<6;t++) {
                         B1nRTau3E = B1nRTau3E + (1.0/(4.0*pi*alph))*(0.5*NLlTAU(a,x)*NLlE(a,t)*NLlE(b,t)*NLlE(b,x)/*J4n(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                      +MNeig(a)*MNeig(b)*NLlTAU(a,x)*NLlE(a,t)*NLlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nRTau3E = B2nRTau3E + (1.0/(4.0*pi*alph))*(0.25*(NLlTAU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x)
                                                                            +NLlTAU(a,x)*NRlE(a,t)*NLlE(b,t)*NRlE(b,x)
                                                                            -NLlTAU(a,x)*NRlE(a,t)*NRlE(b,t)*NLlE(b,x))/*J4n(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                      -0.5*MNeig(a)*MNeig(b)*NLlTAU(a,x)*NRlE(a,t)*NRlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nRTau3E = B3nRTau3E + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NLlTAU(a,x)*NRlE(a,t)*NLlE(b,t)*NRlE(b,x)
                                                                                        +0.5*NLlTAU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x))/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nRTau3E = B4nRTau3E + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NLlTAU(a,x)*NLlE(a,t)*NRlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B1nLTau3E = B1nLTau3E + (1.0/(4.0*pi*alph))*(0.5*NRlTAU(a,x)*NRlE(a,t)*NRlE(b,t)*NRlE(b,x)/*J4n(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                      +MNeig(a)*MNeig(b)*NRlTAU(a,x)*NRlE(a,t)*NRlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B2nLTau3E = B2nLTau3E + (1.0/(4.0*pi*alph))*(0.25*(NRlTAU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x)
                                                                            +NRlTAU(a,x)*NLlE(a,t)*NRlE(b,t)*NLlE(b,x)
                                                                            -NRlTAU(a,x)*NLlE(a,t)*NLlE(b,t)*NRlE(b,x))/*J4n(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(4.0*pi*pi)
                                                                      -0.5*MNeig(a)*MNeig(b)*NRlTAU(a,x)*NLlE(a,t)*NLlE(b,t)*NRlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi));
                         B3nLTau3E = B3nLTau3E + (1.0/(4.0*pi*alph))*MNeig(a)*MNeig(b)*(NRlTAU(a,x)*NLlE(a,t)*NRlE(b,t)*NLlE(b,x)
                                                                                        +0.5*NRlTAU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x))/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                         B4nLTau3E = B4nLTau3E + (1.0/(32.0*pi*alph))*MNeig(a)*MNeig(b)*NRlTAU(a,x)*NRlE(a,t)*NLlE(b,t)*NLlE(b,x)/*I4n(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_se_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
         //      Chargino contributions
         gslpp::complex B1cRTau3E = 0.0;
         gslpp::complex B2cRTau3E = 0.0;
         gslpp::complex B3cRTau3E = 0.0;
         gslpp::complex B1cLTau3E = 0.0;
         gslpp::complex B2cLTau3E = 0.0;
         gslpp::complex B3cLTau3E = 0.0;
         for (int a=0;a<2;a++) {
             for (int b=0;b<2;b++) {
                 for (int x=0;x<3;x++) {
                     for (int t=0;t<3;t++) {
                         B1cRTau3E = B1cRTau3E + (1.0/(8.0*pi*alph))*CLlTAU(a,x)*CLlE(a,t)*CLlE(b,t)*CLlE(b,x)/*J4c(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi);
                         B2cRTau3E = B2cRTau3E + (1.0/(4.0*pi*alph))*(0.25*CLlTAU(a,x)*CLlE(a,t)*CRlE(b,t)*CRlE(b,x)/*J4c(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                      -0.5*MChi(a)*MChi(b)*CLlTAU(a,x)*CRlE(a,t)*CRlE(b,t)*CLlE(b,x)/*I4c(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cRTau3E = B3cRTau3E + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CLlTAU(a,x)*CRlE(a,t)*CLlE(b,t)*CRlE(b,x)/*I4c(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                         B1cLTau3E = B1cLTau3E + (1.0/(8.0*pi*alph))*CRlTAU(a,x)*CRlE(a,t)*CRlE(b,t)*CRlE(b,x)/*J4c(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi);
                         B2cLTau3E = B2cLTau3E + (1.0/(4.0*pi*alph))*(0.25*CRlTAU(a,x)*CRlE(a,t)*CLlE(b,t)*CLlE(b,x)/*J4c(a,b,x,t)*/
                                                                       *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(4.0*pi*pi)
                                                                      -0.5*MChi(a)*MChi(b)*CRlTAU(a,x)*CLlE(a,t)*CLlE(b,t)*CRlE(b,x)/*I4c(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi));
                         B3cLTau3E = B3cLTau3E + (1.0/(4.0*pi*alph))*MChi(a)*MChi(b)*CRlTAU(a,x)*CLlE(a,t)*CRlE(b,t)*CLlE(b,x)/*I4c(a,b,x,t)*/
                                                                       *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sn_sq(t))/(16.0*pi*pi);
                     }
                 }
             }
         }
         //     write BR and BL into a vector for tau->3e
         BFunctions.assign(0, B1nRTau3E + B1cRTau3E );
         BFunctions.assign(1, B1nLTau3E + B1cLTau3E );
         BFunctions.assign(2, B2nRTau3E + B2cRTau3E );
         BFunctions.assign(3, B2nLTau3E + B2cLTau3E );
         BFunctions.assign(4, B3nRTau3E + B3cRTau3E );
         BFunctions.assign(5, B3nLTau3E + B3cLTau3E );
         BFunctions.assign(6, B4nRTau3E );
         BFunctions.assign(7, B4nLTau3E );
     }
 //    if (li_to_lj == 4) // tau -> muee
 //    {
 //        //     write BR and BL into a vector for tau->muee
 //        BFunctions.assign(0, 0. );
 //        BFunctions.assign(1, 0. );
 //        BFunctions.assign(2, 0. );
 //        BFunctions.assign(3, 0. );
 //        BFunctions.assign(4, 0. );
 //        BFunctions.assign(5, 0. );
 //        BFunctions.assign(6, 0. );
 //        BFunctions.assign(7, 0. );
 //    }
 //    std::cout<<"BFunctions("<<li_to_lj<<") = "<<BFunctions<<std::endl;
  
     return(BFunctions);

◆ BHFunctions()

gslpp::vector< gslpp::complex > SUSYMatching::BHFunctions ( int n )

virtual

Calculates Higgs penguin amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from [19].

Calculates Higgs penguin amplitudes for m->3e (1), t->3m (2) and t->3e (3)**‍/ /**

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of Higgs penguin amplitude

Definition at line 4720 of file SUSYMatching.cpp.

                                                                 {
         //Higgs penguin contributions from PhysRevD.73.055003
  
  
     // To do:
     // Are the trilinear couplings from (A24) correct?
     // Should we update the missing parameters in the update function (sinalpha, A_l, ...)?
  
     NeutralinoRemixing();
  
     double MZ = mySUSY.getMz();
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double piconst = 1.0/(32.0 * pi * pi);
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mTAU = mySUSY.getLeptons(StandardModel::TAU).getMass();
     double cos2b = 2.0*cosb*cosb-1.0;
     gslpp::complex sina = mySUSY.getSaeff();
     gslpp::complex cosa = sqrt(1.0-sina*sina);
     gslpp::complex sinapb = sina*cosb+cosa*sinb;
     gslpp::complex cosapb = cosa*cosb-sina*sinb;
     gslpp::complex cosbma = cosb*cosa+sinb*sina;
     gslpp::complex sinbma = sinb*cosa-cosb*sina;
     double mh = mySUSY.getMHl();
     double mH = mySUSY.getMHh();
     double mA = mySUSY.getMHa();
     gslpp::complex M1 = mySUSY.getM1();
     gslpp::complex M2 = mySUSY.getM2();
     gslpp::complex muH = mySUSY.getMuH();
     TEhat = mySUSY.getTEhat();
  
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
     double alph = mySUSY.getAle();
  
     //DEBUG
  
     gslpp::vector<gslpp::complex> BHFunctions(4, 0.);
  
  
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlE.assign(a, x, - (g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 0) + (mE/cdenn)*ON(a, 2)*myRl(x, 3)));
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             NRlTAU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 2) + (mTAU/cdenn)*ON(a, 2)*myRl(x, 5)));
             //     RL + RR TYPE MI
             NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2)*myRl(x, 0) + 2.0*ON(a, 0)*ttw*myRl(x, 3)));
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
             NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2)*myRl(x, 2) + 2.0*ON(a, 0)*ttw*myRl(x, 5)));
 //    Commented expressions might be useful for complex neutralino mixing matrices
 //            NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2).conjugate()*myRl(x, 0) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 3)));
 //            NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2).conjugate()*myRl(x, 1) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 4)));
 //            NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2).conjugate()*myRl(x, 2) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 5)));
         }
     }
  
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlE.assign(a, x, - (g2*myV(a, 0)*myRn(x, 0)));
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             CRlTAU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 2)));
             //     LR-TYPE
             CLlE.assign(a, x, g2*mE/cdenc*myU(a, 1).conjugate()*myRn(x, 0));
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
             CLlTAU.assign(a, x, g2*mTAU/cdenc*myU(a, 1).conjugate()*myRn(x, 2));
         }
     }
  
     gslpp::vector<gslpp::complex> sigma1(3, 0.);
     gslpp::vector<gslpp::complex> sigma2(3, 0.);
     gslpp::vector<gslpp::complex> sigma3(3, 0.);
     gslpp::vector<gslpp::complex> sigma4(3, 0.);
     gslpp::vector<gslpp::complex> sigma5(3, 0.);
     sigma1.assign(0, sina);
     sigma1.assign(1, -cosa);
     sigma1.assign(2, sinb*gslpp::complex::i());
     sigma2.assign(0, cosa);
     sigma2.assign(1, sina);
     sigma2.assign(2, -cosb*gslpp::complex::i());
     sigma3.assign(0, sinapb);
     sigma3.assign(1, -cosapb);
     sigma3.assign(2, 0.);
     sigma4.assign(0, -sina);
     sigma4.assign(1, cosa);
     sigma4.assign(2, 0.);
     sigma5.assign(0, -cosbma);
     sigma5.assign(1, sinbma);
     sigma5.assign(2, cos2b*gslpp::complex::i());
  
     gslpp::matrix<gslpp::complex> Qpp(4, 4, 0.), Rpp(4, 4, 0.);
     gslpp::matrix<gslpp::complex> DL0(4, 4, 0.), DR0(4, 4, 0.), DL1(4, 4, 0.), DR1(4, 4, 0.), DL2(4, 4, 0.), DR2(4, 4, 0.);
     for (int a=0;a<4;a++) {
         for (int b=0;b<4;b++) {
             Qpp.assign(a, b, 0.5*(ON(a,2)*(ON(b,1)-ttw*ON(b,0))+ON(b,2)*(ON(a,1)-ttw*ON(a,0))) );
             Rpp.assign(a, b, (M2.conjugate()*ON(a,1)*ON(b,1) +M1.conjugate()*ON(a,0)*ON(b,0) -muH.conjugate()*(ON(a,2)*ON(b,3)+ON(a,3)*ON(b,2)))/(2.0*MW) );
             DL0.assign(b, a, -g2/sinb * (Qpp(a,b).conjugate()*sigma5(0) -Rpp(a,b).conjugate()*sigma2(0) +MNeig(a)/(2.0*MW)*sigma2(0)*delta_ab(a,b)) );
             DR0.assign(b, a, DL0(b,a).conjugate() );
             DL1.assign(b, a, -g2/sinb * (Qpp(a,b).conjugate()*sigma5(1) -Rpp(a,b).conjugate()*sigma2(1) +MNeig(a)/(2.0*MW)*sigma2(1)*delta_ab(a,b)) );
             DR1.assign(b, a, DL1(b,a).conjugate() );
             DL2.assign(b, a, -g2/sinb * (Qpp(a,b).conjugate()*sigma5(2) -Rpp(a,b).conjugate()*sigma2(2) +MNeig(a)/(2.0*MW)*sigma2(2)*delta_ab(a,b)) );
             DR2.assign(b, a, DL2(b,a).conjugate() );
         }
     }
  
     gslpp::matrix<gslpp::complex> Qch(2, 2, 0.), Rch(2, 2, 0.);
     gslpp::matrix<gslpp::complex> WL0(2, 2, 0.), WR0(2, 2, 0.), WL1(2, 2, 0.), WR1(2, 2, 0.), WL2(2, 2, 0.), WR2(2, 2, 0.);
     for (int a=0;a<2;a++) {
         for (int b=0;b<2;b++) {
             Qch.assign(a, b, myU(a,1)*myV(b,0)/sqrt(2.0) );
             Rch.assign(a, b, (M2.conjugate()*myU(a,0)*myV(b,0) +muH.conjugate()*myU(a,1)*myV(b,1))/(2.0*MW) );
             WR0.assign(a, b, -g2/sinb * (Qch(a,b)*sigma5(0).conjugate() -Rch(a,b)*sigma2(0).conjugate() +MChi(a)/(2.0*MW)*sigma2(0).conjugate()*delta_ab(a,b)) );
             WL0.assign(b, a, WR0(a,b).conjugate() );
             WR1.assign(a, b, -g2/sinb * (Qch(a,b)*sigma5(1).conjugate() -Rch(a,b)*sigma2(1).conjugate() +MChi(a)/(2.0*MW)*sigma2(1).conjugate()*delta_ab(a,b)) );
             WL1.assign(b, a, WR1(a,b).conjugate() );
             WR2.assign(a, b, -g2/sinb * (Qch(a,b)*sigma5(2).conjugate() -Rch(a,b)*sigma2(2).conjugate() +MChi(a)/(2.0*MW)*sigma2(2).conjugate()*delta_ab(a,b)) );
             WL2.assign(b, a, WR2(a,b).conjugate() );
         }
     }
  
     gslpp::vector<gslpp::complex> gLLE(3, 0.), gRRE(3, 0.), gLRE(3, 0.), gRLE(3, 0.);
     gslpp::vector<gslpp::complex> gLLMU(3, 0.), gRRMU(3, 0.), gLRMU(3, 0.), gRLMU(3, 0.);
     gslpp::vector<gslpp::complex> gLLTAU(3, 0.), gRRTAU(3, 0.), gLRTAU(3, 0.), gRLTAU(3, 0.);
     gslpp::vector<gslpp::complex> gLLNU(3, 0.);
     for (int p=0;p<3;p++) {
         gLLE.assign(p, MZ/ctw*sigma3(p)*(0.5-sw2) + mE*mE/(MW*cosb)*sigma4(p));
         gLLMU.assign(p, MZ/ctw*sigma3(p)*(0.5-sw2) + mMU*mMU/(MW*cosb)*sigma4(p));
         gLLTAU.assign(p, MZ/ctw*sigma3(p)*(0.5-sw2) + mTAU*mTAU/(MW*cosb)*sigma4(p));
         gRRE.assign(p, MZ/ctw*sigma3(p)*sw2 + mE*mE/(MW*cosb)*sigma4(p));
         gRRMU.assign(p, MZ/ctw*sigma3(p)*sw2 + mMU*mMU/(MW*cosb)*sigma4(p));
         gRRTAU.assign(p, MZ/ctw*sigma3(p)*sw2 + mTAU*mTAU/(MW*cosb)*sigma4(p));
         gLRE.assign(p, (-sigma1(p)*TEhat(0,0)/mE*v1/sqrt(2.0)-sigma2(p).conjugate()*muH)*mE/(2.0*MW*cosb));
         gLRMU.assign(p, (-sigma1(p)*TEhat(1,1)/mMU*v1/sqrt(2.0)-sigma2(p).conjugate()*muH)*mMU/(2.0*MW*cosb));
         gLRTAU.assign(p, (-sigma1(p)*TEhat(2,2)/mTAU*v1/sqrt(2.0)-sigma2(p).conjugate()*muH)*mTAU/(2.0*MW*cosb));
         gRLE.assign(p, gLRE(p).conjugate());
         gRLMU.assign(p, gLRMU(p).conjugate());
         gRLTAU.assign(p, gLRTAU(p).conjugate());
         gLLNU.assign(p, -0.5*MZ/ctw*sigma3(p));
     }
  
     //Note that the dependence on the Rl and Rn elements here is different than the one in PhysRevD.73.055003
     //due to the different choice of flavour basis.
     //The replacement rules are:
     //AH basis (PhysRevD.73.055003) -> SLHA basis
     //  (from 1 to 6)               -> (from 0 to 5)
     //  Rl(x,1)                     -> Rl(0,x)
     //  Rl(x,2)                     -> Rl(3,x)
     //  Rl(x,3)                     -> Rl(1,x)
     //  Rl(x,4)                     -> Rl(4,x)
     //  Rl(x,5)                     -> Rl(2,x)
     //  Rl(x,6)                     -> Rl(5,x)
     //For Rn, the indices have to be swapped.
  
     gslpp::matrix<gslpp::complex> Gl0(6, 6, 0.), Gl1(6, 6, 0.), Gl2(6, 6, 0.);
     for (int x=0;x<6;x++) {
         for (int y=0;y<6;y++) {
             Gl0.assign(x, y, -g2*( gLLE(0)*myRl(x,0).conjugate()*myRl(y,0) +gRRE(0)*myRl(x,3).conjugate()*myRl(y,3) +gLRE(0)*myRl(x,0).conjugate()*myRl(y,3) +gRLE(0)*myRl(x,3).conjugate()*myRl(y,0)
                                   +gLLMU(0)*myRl(x,1).conjugate()*myRl(y,1) +gRRMU(0)*myRl(x,4).conjugate()*myRl(y,4) +gLRMU(0)*myRl(x,1).conjugate()*myRl(y,4) +gRLMU(0)*myRl(x,4).conjugate()*myRl(y,1)
                                   +gLLTAU(0)*myRl(x,2).conjugate()*myRl(y,2) +gRRTAU(0)*myRl(x,5).conjugate()*myRl(y,5) +gLRTAU(0)*myRl(x,2).conjugate()*myRl(y,5) +gRLTAU(0)*myRl(x,5).conjugate()*myRl(y,2)));
             Gl1.assign(x, y, -g2*( gLLE(1)*myRl(x,0).conjugate()*myRl(y,0) +gRRE(1)*myRl(x,3).conjugate()*myRl(y,3) +gLRE(1)*myRl(x,0).conjugate()*myRl(y,3) +gRLE(1)*myRl(x,3).conjugate()*myRl(y,0)
                                   +gLLMU(1)*myRl(x,1).conjugate()*myRl(y,1) +gRRMU(1)*myRl(x,4).conjugate()*myRl(y,4) +gLRMU(1)*myRl(x,1).conjugate()*myRl(y,4) +gRLMU(1)*myRl(x,4).conjugate()*myRl(y,1)
                                   +gLLTAU(1)*myRl(x,2).conjugate()*myRl(y,2) +gRRTAU(1)*myRl(x,5).conjugate()*myRl(y,5) +gLRTAU(1)*myRl(x,2).conjugate()*myRl(y,5) +gRLTAU(1)*myRl(x,5).conjugate()*myRl(y,2)));
             Gl2.assign(x, y, -g2*( gLLE(2)*myRl(x,0).conjugate()*myRl(y,0) +gRRE(2)*myRl(x,3).conjugate()*myRl(y,3) +gLRE(2)*myRl(x,0).conjugate()*myRl(y,3) +gRLE(2)*myRl(x,3).conjugate()*myRl(y,0)
                                   +gLLMU(2)*myRl(x,1).conjugate()*myRl(y,1) +gRRMU(2)*myRl(x,4).conjugate()*myRl(y,4) +gLRMU(2)*myRl(x,1).conjugate()*myRl(y,4) +gRLMU(2)*myRl(x,4).conjugate()*myRl(y,1)
                                   +gLLTAU(2)*myRl(x,2).conjugate()*myRl(y,2) +gRRTAU(2)*myRl(x,5).conjugate()*myRl(y,5) +gLRTAU(2)*myRl(x,2).conjugate()*myRl(y,5) +gRLTAU(2)*myRl(x,5).conjugate()*myRl(y,2)));
         }
     }
  
     gslpp::matrix<gslpp::complex> Gnu0(3, 3, 0.), Gnu1(3, 3, 0.), Gnu2(3, 3, 0.);
     for (int x=0;x<3;x++) {
         Gnu0.assign(x, x, -g2*gLLNU(0) );
         Gnu1.assign(x, x, -g2*gLLNU(1) );
         Gnu2.assign(x, x, -g2*gLLNU(2) );
     }
  
     gslpp::vector<gslpp::complex> SRE(3, 0.), SLE(3, 0.), SRMU(3, 0.), SLMU(3, 0.), SRTAU(3, 0.), SLTAU(3, 0.);
     for (int p=0;p<3;p++) {
         SRE.assign(p, g2*mE/(2.0*MW*cosb) * sigma1(p));
         SLE.assign(p, g2*mE/(2.0*MW*cosb) * sigma1(p).conjugate());
         SRMU.assign(p, g2*mMU/(2.0*MW*cosb) * sigma1(p));
         SLMU.assign(p, g2*mMU/(2.0*MW*cosb) * sigma1(p).conjugate());
         SRTAU.assign(p, g2*mTAU/(2.0*MW*cosb) * sigma1(p));
         SLTAU.assign(p, g2*mTAU/(2.0*MW*cosb) * sigma1(p).conjugate());
     }
  
     if (li_to_lj == 1) // mu -> 3e
     {
         //     Neutralino contributions
         gslpp::complex HpengMuEEENR0 = 0.0;
         gslpp::complex HpengMuEEENL0 = 0.0;
         gslpp::complex HpengMuEEENR1 = 0.0;
         gslpp::complex HpengMuEEENL1 = 0.0;
         gslpp::complex HpengMuEEENR2 = 0.0;
         gslpp::complex HpengMuEEENL2 = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     //     h R contribution
                     HpengMuEEENR0 = HpengMuEEENR0 - 2.0*piconst*(NRlE(a,x)*DL0(a,b)*NLlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR0(a,b)*NRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR0(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL0(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL0(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR0(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR0(a,b)*NLlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     h L contribution
                     HpengMuEEENL0 = HpengMuEEENL0 - 2.0*piconst*(NLlE(a,x)*DR0(a,b)*NRlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL0(a,b)*NLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL0(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR0(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR0(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL0(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL0(a,b)*NRlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H R contribution
                     HpengMuEEENR1 = HpengMuEEENR1 - 2.0*piconst*(NRlE(a,x)*DL1(a,b)*NLlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR1(a,b)*NRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR1(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL1(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL1(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR1(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR1(a,b)*NLlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H L contribution
                     HpengMuEEENL1 = HpengMuEEENL1 - 2.0*piconst*(NLlE(a,x)*DR1(a,b)*NRlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL1(a,b)*NLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL1(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR1(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR1(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL1(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL1(a,b)*NRlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A R contribution
                     HpengMuEEENR2 = HpengMuEEENR2 - 2.0*piconst*(NRlE(a,x)*DL2(a,b)*NLlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR2(a,b)*NRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR2(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL2(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL2(a,b)*NLlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR2(a,b)*NRlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR2(a,b)*NLlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A L contribution
                     HpengMuEEENL2 = HpengMuEEENL2 - 2.0*piconst*(NLlE(a,x)*DR2(a,b)*NRlMU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL2(a,b)*NLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL2(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR2(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR2(a,b)*NRlMU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL2(a,b)*NLlMU(b,x).conjugate()*mMU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL2(a,b)*NRlMU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                 }
                 for (int y=0;y<6;y++) {
                     //     h R contribution
                     HpengMuEEENR0 = HpengMuEEENR0 - 2.0*piconst*Gl0(x,y)*(-NLlE(a,x)*NLlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     h L contribution
                     HpengMuEEENL0 = HpengMuEEENL0 - 2.0*piconst*Gl0(x,y)*(-NRlE(a,x)*NRlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H R contribution
                     HpengMuEEENR1 = HpengMuEEENR1 - 2.0*piconst*Gl1(x,y)*(-NLlE(a,x)*NLlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H L contribution
                     HpengMuEEENL1 = HpengMuEEENL1 - 2.0*piconst*Gl1(x,y)*(-NRlE(a,x)*NRlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A R contribution
                     HpengMuEEENR2 = HpengMuEEENR2 - 2.0*piconst*Gl2(x,y)*(-NLlE(a,x)*NLlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A L contribution
                     HpengMuEEENL2 = HpengMuEEENL2 - 2.0*piconst*Gl2(x,y)*(-NRlE(a,x)*NRlMU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlMU(a,y).conjugate()*mMU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlMU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                 }
                 //     h R contribution
                 HpengMuEEENR0 = HpengMuEEENR0 - 2.0*piconst*(SRMU(0)/(mE*mE-mMU*mMU)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(0)/(mMU*mMU-mE*mE)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     h L contribution
                 HpengMuEEENL0 = HpengMuEEENL0 - 2.0*piconst*(SLMU(0)/(mE*mE-mMU*mMU)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(0)/(mMU*mMU-mE*mE)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H R contribution
                 HpengMuEEENR1 = HpengMuEEENR1 - 2.0*piconst*(SRMU(1)/(mE*mE-mMU*mMU)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(1)/(mMU*mMU-mE*mE)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H L contribution
                 HpengMuEEENL1 = HpengMuEEENL1 - 2.0*piconst*(SLMU(1)/(mE*mE-mMU*mMU)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(1)/(mMU*mMU-mE*mE)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A R contribution
                 HpengMuEEENR2 = HpengMuEEENR2 - 2.0*piconst*(SRMU(2)/(mE*mE-mMU*mMU)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(2)/(mMU*mMU-mE*mE)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A L contribution
                 HpengMuEEENL2 = HpengMuEEENL2 - 2.0*piconst*(SLMU(2)/(mE*mE-mMU*mMU)*(-NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(2)/(mMU*mMU-mE*mE)*(-NRlE(a,x)*NRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlMU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlMU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
             }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggsnR = (-0.5*HpengMuEEENR0*SLE(0)/(mh*mh)-0.5*HpengMuEEENR1*SLE(1)/(mH*mH)-0.5*HpengMuEEENR2*SLE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggsnL = (-0.5*HpengMuEEENL0*SRE(0)/(mh*mh)-0.5*HpengMuEEENL1*SRE(1)/(mH*mH)-0.5*HpengMuEEENL2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnR = (HpengMuEEENR0*SRE(0)/(mh*mh)+HpengMuEEENR1*SRE(1)/(mH*mH)+HpengMuEEENR2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnL = (HpengMuEEENL0*SLE(0)/(mh*mh)+HpengMuEEENL1*SLE(1)/(mH*mH)+HpengMuEEENL2*SLE(2)/(mA*mA))/(4.0*pi*alph);
  
         //     Chargino contributions
         gslpp::complex HpengMuEEECR0 = 0.0;
         gslpp::complex HpengMuEEECL0 = 0.0;
         gslpp::complex HpengMuEEECR1 = 0.0;
         gslpp::complex HpengMuEEECL1 = 0.0;
         gslpp::complex HpengMuEEECR2 = 0.0;
         gslpp::complex HpengMuEEECL2 = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     //     h R contribution
                     HpengMuEEECR0 = HpengMuEEECR0 - 2.0*piconst*(CRlE(a,x)*WL0(a,b)*CLlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR0(a,b)*CRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR0(a,b)*CLlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL0(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL0(a,b)*CLlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR0(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR0(a,b)*CLlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     h L contribution
                     HpengMuEEECL0 = HpengMuEEECL0 - 2.0*piconst*(CLlE(a,x)*WR0(a,b)*CRlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL0(a,b)*CLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL0(a,b)*CRlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR0(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR0(a,b)*CRlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL0(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL0(a,b)*CRlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H R contribution
                     HpengMuEEECR1 = HpengMuEEECR1 - 2.0*piconst*(CRlE(a,x)*WL1(a,b)*CLlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR1(a,b)*CRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR1(a,b)*CLlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL1(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL1(a,b)*CLlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR1(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR1(a,b)*CLlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H L contribution
                     HpengMuEEECL1 = HpengMuEEECL1 - 2.0*piconst*(CLlE(a,x)*WR1(a,b)*CRlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL1(a,b)*CLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL1(a,b)*CRlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR1(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR1(a,b)*CRlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL1(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL1(a,b)*CRlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A R contribution
                     HpengMuEEECR2 = HpengMuEEECR2 - 2.0*piconst*(CRlE(a,x)*WL2(a,b)*CLlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR2(a,b)*CRlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR2(a,b)*CLlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL2(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL2(a,b)*CLlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR2(a,b)*CRlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR2(a,b)*CLlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A L contribution
                     HpengMuEEECL2 = HpengMuEEECL2 - 2.0*piconst*(CLlE(a,x)*WR2(a,b)*CRlMU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL2(a,b)*CLlMU(b,x).conjugate()*mMU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL2(a,b)*CRlMU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR2(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR2(a,b)*CRlMU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL2(a,b)*CLlMU(b,x).conjugate()*mMU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL2(a,b)*CRlMU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                 }
                 for (int y=0;y<3;y++) {
                     //     h R contribution
                     HpengMuEEECR0 = HpengMuEEECR0 - 2.0*piconst*Gnu0(x,y)*(-CLlE(a,x)*CLlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     h L contribution
                     HpengMuEEECL0 = HpengMuEEECL0 - 2.0*piconst*Gnu0(x,y)*(-CRlE(a,x)*CRlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H R contribution
                     HpengMuEEECR1 = HpengMuEEECR1 - 2.0*piconst*Gnu1(x,y)*(-CLlE(a,x)*CLlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H L contribution
                     HpengMuEEECL1 = HpengMuEEECL1 - 2.0*piconst*Gnu1(x,y)*(-CRlE(a,x)*CRlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A R contribution
                     HpengMuEEECR2 = HpengMuEEECR2 - 2.0*piconst*Gnu2(x,y)*(-CLlE(a,x)*CLlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A L contribution
                     HpengMuEEECL2 = HpengMuEEECL2 - 2.0*piconst*Gnu2(x,y)*(-CRlE(a,x)*CRlMU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlMU(a,y).conjugate()*mMU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlMU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                 }
                 //     h R contribution
                 HpengMuEEECR0 = HpengMuEEECR0 - 2.0*piconst*(SRMU(0)/(mE*mE-mMU*mMU)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(0)/(mMU*mMU-mE*mE)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     h L contribution
                 HpengMuEEECL0 = HpengMuEEECL0 - 2.0*piconst*(SLMU(0)/(mE*mE-mMU*mMU)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(0)/(mMU*mMU-mE*mE)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H R contribution
                 HpengMuEEECR1 = HpengMuEEECR1 - 2.0*piconst*(SRMU(1)/(mE*mE-mMU*mMU)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(1)/(mMU*mMU-mE*mE)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H L contribution
                 HpengMuEEECL1 = HpengMuEEECL1 - 2.0*piconst*(SLMU(1)/(mE*mE-mMU*mMU)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(1)/(mMU*mMU-mE*mE)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A R contribution
                 HpengMuEEECR2 = HpengMuEEECR2 - 2.0*piconst*(SRMU(2)/(mE*mE-mMU*mMU)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(2)/(mMU*mMU-mE*mE)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A L contribution
                 HpengMuEEECL2 = HpengMuEEECL2 - 2.0*piconst*(SLMU(2)/(mE*mE-mMU*mMU)*(-CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(2)/(mMU*mMU-mE*mE)*(-CRlE(a,x)*CRlMU(a,x).conjugate()*mMU*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlMU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlMU(a,x).conjugate()*mE*mMU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlMU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
            }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggscR = (-0.5*HpengMuEEECR0*SLE(0)/(mh*mh)-0.5*HpengMuEEECR1*SLE(1)/(mH*mH)-0.5*HpengMuEEECR2*SLE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggscL = (-0.5*HpengMuEEECL0*SRE(0)/(mh*mh)-0.5*HpengMuEEECL1*SRE(1)/(mH*mH)-0.5*HpengMuEEECL2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscR = (HpengMuEEECR0*SRE(0)/(mh*mh)+HpengMuEEECR1*SRE(1)/(mH*mH)+HpengMuEEECR2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscL = (HpengMuEEECL0*SLE(0)/(mh*mh)+HpengMuEEECL1*SLE(1)/(mH*mH)+HpengMuEEECL2*SLE(2)/(mA*mA))/(4.0*pi*alph);
  
         //     write B2H and B3H into a vector for mu->3e
         BHFunctions.assign(0, B2HiggsnR+B2HiggscR );
         BHFunctions.assign(1, B2HiggsnL+B2HiggscL );
         BHFunctions.assign(2, B3HiggsnR+B3HiggscR );
         BHFunctions.assign(3, B3HiggsnL+B3HiggscL );
     }
  
     if (li_to_lj == 2) // tau -> 3mu
     {
         //     Neutralino contributions
         gslpp::complex HpengTauMUMUMUNR0 = 0.0;
         gslpp::complex HpengTauMUMUMUNL0 = 0.0;
         gslpp::complex HpengTauMUMUMUNR1 = 0.0;
         gslpp::complex HpengTauMUMUMUNL1 = 0.0;
         gslpp::complex HpengTauMUMUMUNR2 = 0.0;
         gslpp::complex HpengTauMUMUMUNL2 = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     //     h R contribution
                     HpengTauMUMUMUNR0 = HpengTauMUMUMUNR0 - 2.0*piconst*(NRlMU(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlMU(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlMU(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     h L contribution
                     HpengTauMUMUMUNL0 = HpengTauMUMUMUNL0 - 2.0*piconst*(NLlMU(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlMU(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlMU(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H R contribution
                     HpengTauMUMUMUNR1 = HpengTauMUMUMUNR1 - 2.0*piconst*(NRlMU(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlMU(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlMU(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H L contribution
                     HpengTauMUMUMUNL1 = HpengTauMUMUMUNL1 - 2.0*piconst*(NLlMU(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlMU(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlMU(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A R contribution
                     HpengTauMUMUMUNR2 = HpengTauMUMUMUNR2 - 2.0*piconst*(NRlMU(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlMU(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlMU(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A L contribution
                     HpengTauMUMUMUNL2 = HpengTauMUMUMUNL2 - 2.0*piconst*(NLlMU(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlMU(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlMU(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlMU(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mMU*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlMU(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                 }
                 for (int y=0;y<6;y++) {
                     //     h R contribution
                     HpengTauMUMUMUNR0 = HpengTauMUMUMUNR0 - 2.0*piconst*Gl0(x,y)*(-NLlMU(a,x)*NLlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlMU(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlMU(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     h L contribution
                     HpengTauMUMUMUNL0 = HpengTauMUMUMUNL0 - 2.0*piconst*Gl0(x,y)*(-NRlMU(a,x)*NRlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlMU(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlMU(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H R contribution
                     HpengTauMUMUMUNR1 = HpengTauMUMUMUNR1 - 2.0*piconst*Gl1(x,y)*(-NLlMU(a,x)*NLlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlMU(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlMU(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H L contribution
                     HpengTauMUMUMUNL1 = HpengTauMUMUMUNL1 - 2.0*piconst*Gl1(x,y)*(-NRlMU(a,x)*NRlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlMU(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlMU(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A R contribution
                     HpengTauMUMUMUNR2 = HpengTauMUMUMUNR2 - 2.0*piconst*Gl2(x,y)*(-NLlMU(a,x)*NLlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlMU(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlMU(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A L contribution
                     HpengTauMUMUMUNL2 = HpengTauMUMUMUNL2 - 2.0*piconst*Gl2(x,y)*(-NRlMU(a,x)*NRlTAU(a,y).conjugate()*mMU*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlMU(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlMU(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                 }
                 //     h R contribution
                 HpengTauMUMUMUNR0 = HpengTauMUMUMUNR0 - 2.0*piconst*(SRTAU(0)/(mMU*mMU-mTAU*mTAU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRMU(0)/(mTAU*mTAU-mMU*mMU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     h L contribution
                 HpengTauMUMUMUNL0 = HpengTauMUMUMUNL0 - 2.0*piconst*(SLTAU(0)/(mMU*mMU-mTAU*mTAU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLMU(0)/(mTAU*mTAU-mMU*mMU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H R contribution
                 HpengTauMUMUMUNR1 = HpengTauMUMUMUNR1 - 2.0*piconst*(SRTAU(1)/(mMU*mMU-mTAU*mTAU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRMU(1)/(mTAU*mTAU-mMU*mMU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H L contribution
                 HpengTauMUMUMUNL1 = HpengTauMUMUMUNL1 - 2.0*piconst*(SLTAU(1)/(mMU*mMU-mTAU*mTAU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLMU(1)/(mTAU*mTAU-mMU*mMU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A R contribution
                 HpengTauMUMUMUNR2 = HpengTauMUMUMUNR2 - 2.0*piconst*(SRTAU(2)/(mMU*mMU-mTAU*mTAU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRMU(2)/(mTAU*mTAU-mMU*mMU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A L contribution
                 HpengTauMUMUMUNL2 = HpengTauMUMUMUNL2 - 2.0*piconst*(SLTAU(2)/(mMU*mMU-mTAU*mTAU)*(-NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLMU(2)/(mTAU*mTAU-mMU*mMU)*(-NRlMU(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlMU(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlMU(a,x)*NLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlMU(a,x)*NRlTAU(a,x).conjugate()*mMU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
             }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggsnRtm = (-0.5*HpengTauMUMUMUNR0*SLMU(0)/(mh*mh)-0.5*HpengTauMUMUMUNR1*SLMU(1)/(mH*mH)-0.5*HpengTauMUMUMUNR2*SLMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggsnLtm = (-0.5*HpengTauMUMUMUNL0*SRMU(0)/(mh*mh)-0.5*HpengTauMUMUMUNL1*SRMU(1)/(mH*mH)-0.5*HpengTauMUMUMUNL2*SRMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnRtm = (HpengTauMUMUMUNR0*SRMU(0)/(mh*mh)+HpengTauMUMUMUNR1*SRMU(1)/(mH*mH)+HpengTauMUMUMUNR2*SRMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnLtm = (HpengTauMUMUMUNL0*SLMU(0)/(mh*mh)+HpengTauMUMUMUNL1*SLMU(1)/(mH*mH)+HpengTauMUMUMUNL2*SLMU(2)/(mA*mA))/(4.0*pi*alph);
  
         //     Chargino contributions
         gslpp::complex HpengTauMUMUMUCR0 = 0.0;
         gslpp::complex HpengTauMUMUMUCL0 = 0.0;
         gslpp::complex HpengTauMUMUMUCR1 = 0.0;
         gslpp::complex HpengTauMUMUMUCL1 = 0.0;
         gslpp::complex HpengTauMUMUMUCR2 = 0.0;
         gslpp::complex HpengTauMUMUMUCL2 = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     //     h R contribution
                     HpengTauMUMUMUCR0 = HpengTauMUMUMUCR0 - 2.0*piconst*(CRlMU(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlMU(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlMU(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     h L contribution
                     HpengTauMUMUMUCL0 = HpengTauMUMUMUCL0 - 2.0*piconst*(CLlMU(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlMU(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlMU(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H R contribution
                     HpengTauMUMUMUCR1 = HpengTauMUMUMUCR1 - 2.0*piconst*(CRlMU(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlMU(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlMU(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H L contribution
                     HpengTauMUMUMUCL1 = HpengTauMUMUMUCL1 - 2.0*piconst*(CLlMU(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlMU(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlMU(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A R contribution
                     HpengTauMUMUMUCR2 = HpengTauMUMUMUCR2 - 2.0*piconst*(CRlMU(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlMU(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlMU(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A L contribution
                     HpengTauMUMUMUCL2 = HpengTauMUMUMUCL2 - 2.0*piconst*(CLlMU(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mMU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlMU(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mTAU*mMU*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlMU(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlMU(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mMU*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlMU(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                 }
                 for (int y=0;y<3;y++) {
                     //     h R contribution
                     HpengTauMUMUMUCR0 = HpengTauMUMUMUCR0 - 2.0*piconst*Gnu0(x,y)*(-CLlMU(a,x)*CLlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlMU(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlMU(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     h L contribution
                     HpengTauMUMUMUCL0 = HpengTauMUMUMUCL0 - 2.0*piconst*Gnu0(x,y)*(-CRlMU(a,x)*CRlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlMU(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlMU(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H R contribution
                     HpengTauMUMUMUCR1 = HpengTauMUMUMUCR1 - 2.0*piconst*Gnu1(x,y)*(-CLlMU(a,x)*CLlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlMU(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlMU(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H L contribution
                     HpengTauMUMUMUCL1 = HpengTauMUMUMUCL1 - 2.0*piconst*Gnu1(x,y)*(-CRlMU(a,x)*CRlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlMU(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlMU(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A R contribution
                     HpengTauMUMUMUCR2 = HpengTauMUMUMUCR2 - 2.0*piconst*Gnu2(x,y)*(-CLlMU(a,x)*CLlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlMU(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlMU(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A L contribution
                     HpengTauMUMUMUCL2 = HpengTauMUMUMUCL2 - 2.0*piconst*Gnu2(x,y)*(-CRlMU(a,x)*CRlTAU(a,y).conjugate()*mMU*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlMU(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlMU(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                 }
                 //     h R contribution
                 HpengTauMUMUMUCR0 = HpengTauMUMUMUCR0 - 2.0*piconst*(SRTAU(0)/(mMU*mMU-mTAU*mTAU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRMU(0)/(mTAU*mTAU-mMU*mMU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     h L contribution
                 HpengTauMUMUMUCL0 = HpengTauMUMUMUCL0 - 2.0*piconst*(SLTAU(0)/(mMU*mMU-mTAU*mTAU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLMU(0)/(mTAU*mTAU-mMU*mMU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H R contribution
                 HpengTauMUMUMUCR1 = HpengTauMUMUMUCR1 - 2.0*piconst*(SRTAU(1)/(mMU*mMU-mTAU*mTAU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRMU(1)/(mTAU*mTAU-mMU*mMU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H L contribution
                 HpengTauMUMUMUCL1 = HpengTauMUMUMUCL1 - 2.0*piconst*(SLTAU(1)/(mMU*mMU-mTAU*mTAU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLMU(1)/(mTAU*mTAU-mMU*mMU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A R contribution
                 HpengTauMUMUMUCR2 = HpengTauMUMUMUCR2 - 2.0*piconst*(SRTAU(2)/(mMU*mMU-mTAU*mTAU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRMU(2)/(mTAU*mTAU-mMU*mMU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A L contribution
                 HpengTauMUMUMUCL2 = HpengTauMUMUMUCL2 - 2.0*piconst*(SLTAU(2)/(mMU*mMU-mTAU*mTAU)*(-CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mMU*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLMU(2)/(mTAU*mTAU-mMU*mMU)*(-CRlMU(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlMU(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlMU(a,x)*CLlTAU(a,x).conjugate()*mMU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlMU(a,x)*CRlTAU(a,x).conjugate()*mMU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
            }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggscRtm = (-0.5*HpengTauMUMUMUCR0*SLMU(0)/(mh*mh)-0.5*HpengTauMUMUMUCR1*SLMU(1)/(mH*mH)-0.5*HpengTauMUMUMUCR2*SLMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggscLtm = (-0.5*HpengTauMUMUMUCL0*SRMU(0)/(mh*mh)-0.5*HpengTauMUMUMUCL1*SRMU(1)/(mH*mH)-0.5*HpengTauMUMUMUCL2*SRMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscRtm = (HpengTauMUMUMUCR0*SRMU(0)/(mh*mh)+HpengTauMUMUMUCR1*SRMU(1)/(mH*mH)+HpengTauMUMUMUCR2*SRMU(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscLtm = (HpengTauMUMUMUCL0*SLMU(0)/(mh*mh)+HpengTauMUMUMUCL1*SLMU(1)/(mH*mH)+HpengTauMUMUMUCL2*SLMU(2)/(mA*mA))/(4.0*pi*alph);
  
         //     write B2H and B3H into a vector for tau->3mu
         BHFunctions.assign(0, B2HiggsnRtm+B2HiggscRtm );
         BHFunctions.assign(1, B2HiggsnLtm+B2HiggscLtm );
         BHFunctions.assign(2, B3HiggsnRtm+B3HiggscRtm );
         BHFunctions.assign(3, B3HiggsnLtm+B3HiggscLtm );
     }
  
     if (li_to_lj == 3) // tau -> 3e
     {
         //     Neutralino contributions
         gslpp::complex HpengTauEEENR0 = 0.0;
         gslpp::complex HpengTauEEENL0 = 0.0;
         gslpp::complex HpengTauEEENR1 = 0.0;
         gslpp::complex HpengTauEEENL1 = 0.0;
         gslpp::complex HpengTauEEENR2 = 0.0;
         gslpp::complex HpengTauEEENL2 = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     //     h R contribution
                     HpengTauEEENR0 = HpengTauEEENR0 - 2.0*piconst*(NRlE(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     h L contribution
                     HpengTauEEENL0 = HpengTauEEENL0 - 2.0*piconst*(NLlE(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR0(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR0(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL0(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL0(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H R contribution
                     HpengTauEEENR1 = HpengTauEEENR1 - 2.0*piconst*(NRlE(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     H L contribution
                     HpengTauEEENL1 = HpengTauEEENL1 - 2.0*piconst*(NLlE(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR1(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR1(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL1(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL1(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A R contribution
                     HpengTauEEENR2 = HpengTauEEENR2 - 2.0*piconst*(NRlE(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NLlE(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NLlE(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                     //     A L contribution
                     HpengTauEEENL2 = HpengTauEEENL2 - 2.0*piconst*(NLlE(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             -mym_se_sq(x)*PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                             +mE*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))))
                                                                  +NRlE(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                     -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NRlE(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(b)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DR2(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(b)*PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                  +NRlE(a,x)*DR2(a,b)*NRlTAU(b,x).conjugate()*mE*MNeig(a)*(PV.C11(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                          -PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL2(a,b)*NLlTAU(b,x).conjugate()*mTAU*MNeig(a)*(PV.C12(mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))
                                                                                                                           -PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b)))
                                                                  +NLlE(a,x)*DL2(a,b)*NRlTAU(b,x).conjugate()*MNeig(a)*MNeig(b)*(-PV.C0(0.,mym_se_sq(x),MNeig(a)*MNeig(a),MNeig(b)*MNeig(b))));
                 }
                 for (int y=0;y<6;y++) {
                     //     h R contribution
                     HpengTauEEENR0 = HpengTauEEENR0 - 2.0*piconst*Gl0(x,y)*(-NLlE(a,x)*NLlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     h L contribution
                     HpengTauEEENL0 = HpengTauEEENL0 - 2.0*piconst*Gl0(x,y)*(-NRlE(a,x)*NRlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H R contribution
                     HpengTauEEENR1 = HpengTauEEENR1 - 2.0*piconst*Gl1(x,y)*(-NLlE(a,x)*NLlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     H L contribution
                     HpengTauEEENL1 = HpengTauEEENL1 - 2.0*piconst*Gl1(x,y)*(-NRlE(a,x)*NRlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A R contribution
                     HpengTauEEENR2 = HpengTauEEENR2 - 2.0*piconst*Gl2(x,y)*(-NLlE(a,x)*NLlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NRlE(a,x)*NRlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NRlE(a,x)*NLlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                     //     A L contribution
                     HpengTauEEENL2 = HpengTauEEENL2 - 2.0*piconst*Gl2(x,y)*(-NRlE(a,x)*NRlTAU(a,y).conjugate()*mE*(PV.C11(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                                                                 -PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)))
                                                                           -NLlE(a,x)*NLlTAU(a,y).conjugate()*mTAU*PV.C12(MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y))
                                                                           -NLlE(a,x)*NRlTAU(a,y).conjugate()*MNeig(a)*PV.C0(0.,MNeig(a)*MNeig(a),mym_se_sq(x),mym_se_sq(y)));
                 }
                 //     h R contribution
                 HpengTauEEENR0 = HpengTauEEENR0 - 2.0*piconst*(SRTAU(0)/(mE*mE-mTAU*mTAU)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(0)/(mTAU*mTAU-mE*mE)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     h L contribution
                 HpengTauEEENL0 = HpengTauEEENL0 - 2.0*piconst*(SLTAU(0)/(mE*mE-mTAU*mTAU)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(0)/(mTAU*mTAU-mE*mE)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H R contribution
                 HpengTauEEENR1 = HpengTauEEENR1 - 2.0*piconst*(SRTAU(1)/(mE*mE-mTAU*mTAU)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(1)/(mTAU*mTAU-mE*mE)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     H L contribution
                 HpengTauEEENL1 = HpengTauEEENL1 - 2.0*piconst*(SLTAU(1)/(mE*mE-mTAU*mTAU)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(1)/(mTAU*mTAU-mE*mE)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A R contribution
                 HpengTauEEENR2 = HpengTauEEENR2 - 2.0*piconst*(SRTAU(2)/(mE*mE-mTAU*mTAU)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SRE(2)/(mTAU*mTAU-mE*mE)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
                 //     A L contribution
                 HpengTauEEENL2 = HpengTauEEENL2 - 2.0*piconst*(SLTAU(2)/(mE*mE-mTAU*mTAU)*(-NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NRlE(a,x)*NRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x)))
                                                              +SLE(2)/(mTAU*mTAU-mE*mE)*(-NRlE(a,x)*NRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NRlE(a,x)*NLlTAU(a,x).conjugate()*mTAU*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       -NLlE(a,x)*NLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))
                                                                                       +NLlE(a,x)*NRlTAU(a,x).conjugate()*mE*MNeig(a)*PV.B0(1.,0.,MNeig(a)*MNeig(a),mym_se_sq(x))));
             }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggsnRte = (-0.5*HpengTauEEENR0*SLE(0)/(mh*mh)-0.5*HpengTauEEENR1*SLE(1)/(mH*mH)-0.5*HpengTauEEENR2*SLE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggsnLte = (-0.5*HpengTauEEENL0*SRE(0)/(mh*mh)-0.5*HpengTauEEENL1*SRE(1)/(mH*mH)-0.5*HpengTauEEENL2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnRte = (HpengTauEEENR0*SRE(0)/(mh*mh)+HpengTauEEENR1*SRE(1)/(mH*mH)+HpengTauEEENR2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggsnLte = (HpengTauEEENL0*SLE(0)/(mh*mh)+HpengTauEEENL1*SLE(1)/(mH*mH)+HpengTauEEENL2*SLE(2)/(mA*mA))/(4.0*pi*alph);
  
         //     Chargino contributions
         gslpp::complex HpengTauEEECR0 = 0.0;
         gslpp::complex HpengTauEEECL0 = 0.0;
         gslpp::complex HpengTauEEECR1 = 0.0;
         gslpp::complex HpengTauEEECL1 = 0.0;
         gslpp::complex HpengTauEEECR2 = 0.0;
         gslpp::complex HpengTauEEECL2 = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     //     h R contribution
                     HpengTauEEECR0 = HpengTauEEECR0 - 2.0*piconst*(CRlE(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     h L contribution
                     HpengTauEEECL0 = HpengTauEEECL0 - 2.0*piconst*(CLlE(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR0(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR0(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL0(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL0(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H R contribution
                     HpengTauEEECR1 = HpengTauEEECR1 - 2.0*piconst*(CRlE(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     H L contribution
                     HpengTauEEECL1 = HpengTauEEECL1 - 2.0*piconst*(CLlE(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR1(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR1(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL1(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL1(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A R contribution
                     HpengTauEEECR2 = HpengTauEEECR2 - 2.0*piconst*(CRlE(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CLlE(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CLlE(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                     //     A L contribution
                     HpengTauEEECL2 = HpengTauEEECL2 - 2.0*piconst*(CLlE(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*(PV.B0(1.,0.,MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             -mym_sn_sq(x)*PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mTAU*mTAU*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                             +mE*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))))
                                                                  +CRlE(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mTAU*mE*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                     -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CRlE(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(b)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WR2(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(b)*PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                  +CRlE(a,x)*WR2(a,b)*CRlTAU(b,x).conjugate()*mE*MChi(a)*(PV.C11(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                         -PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL2(a,b)*CLlTAU(b,x).conjugate()*mTAU*MChi(a)*(PV.C12(mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))
                                                                                                                          -PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b)))
                                                                  +CLlE(a,x)*WL2(a,b)*CRlTAU(b,x).conjugate()*MChi(a)*MChi(b)*(-PV.C0(0.,mym_sn_sq(x),MChi(a)*MChi(a),MChi(b)*MChi(b))));
                 }
                 for (int y=0;y<3;y++) {
                     //     h R contribution
                     HpengTauEEECR0 = HpengTauEEECR0 - 2.0*piconst*Gnu0(x,y)*(-CLlE(a,x)*CLlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     h L contribution
                     HpengTauEEECL0 = HpengTauEEECL0 - 2.0*piconst*Gnu0(x,y)*(-CRlE(a,x)*CRlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H R contribution
                     HpengTauEEECR1 = HpengTauEEECR1 - 2.0*piconst*Gnu1(x,y)*(-CLlE(a,x)*CLlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     H L contribution
                     HpengTauEEECL1 = HpengTauEEECL1 - 2.0*piconst*Gnu1(x,y)*(-CRlE(a,x)*CRlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A R contribution
                     HpengTauEEECR2 = HpengTauEEECR2 - 2.0*piconst*Gnu2(x,y)*(-CLlE(a,x)*CLlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CRlE(a,x)*CRlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CRlE(a,x)*CLlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                     //     A L contribution
                     HpengTauEEECL2 = HpengTauEEECL2 - 2.0*piconst*Gnu2(x,y)*(-CRlE(a,x)*CRlTAU(a,y).conjugate()*mE*(PV.C11(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                                                                  -PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)))
                                                                            -CLlE(a,x)*CLlTAU(a,y).conjugate()*mTAU*PV.C12(MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y))
                                                                            -CLlE(a,x)*CRlTAU(a,y).conjugate()*MChi(a)*PV.C0(0.,MChi(a)*MChi(a),mym_sn_sq(x),mym_sn_sq(y)));
                 }
                 //     h R contribution
                 HpengTauEEECR0 = HpengTauEEECR0 - 2.0*piconst*(SRTAU(0)/(mE*mE-mTAU*mTAU)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(0)/(mTAU*mTAU-mE*mE)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     h L contribution
                 HpengTauEEECL0 = HpengTauEEECL0 - 2.0*piconst*(SLTAU(0)/(mE*mE-mTAU*mTAU)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(0)/(mTAU*mTAU-mE*mE)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H R contribution
                 HpengTauEEECR1 = HpengTauEEECR1 - 2.0*piconst*(SRTAU(1)/(mE*mE-mTAU*mTAU)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(1)/(mTAU*mTAU-mE*mE)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     H L contribution
                 HpengTauEEECL1 = HpengTauEEECL1 - 2.0*piconst*(SLTAU(1)/(mE*mE-mTAU*mTAU)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(1)/(mTAU*mTAU-mE*mE)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A R contribution
                 HpengTauEEECR2 = HpengTauEEECR2 - 2.0*piconst*(SRTAU(2)/(mE*mE-mTAU*mTAU)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SRE(2)/(mTAU*mTAU-mE*mE)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
                 //     A L contribution
                 HpengTauEEECL2 = HpengTauEEECL2 - 2.0*piconst*(SLTAU(2)/(mE*mE-mTAU*mTAU)*(-CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mE*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CRlE(a,x)*CRlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x)))
                                                              +SLE(2)/(mTAU*mTAU-mE*mE)*(-CRlE(a,x)*CRlTAU(a,x).conjugate()*mTAU*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CRlE(a,x)*CLlTAU(a,x).conjugate()*mTAU*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       -CLlE(a,x)*CLlTAU(a,x).conjugate()*mE*mTAU*PV.B1(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))
                                                                                       +CLlE(a,x)*CRlTAU(a,x).conjugate()*mE*MChi(a)*PV.B0(1.,0.,MChi(a)*MChi(a),mym_sn_sq(x))));
            }
         }
  
         //     summing up the h (0), H (1) and A (2) parts
         gslpp::complex B2HiggscRte = (-0.5*HpengTauEEECR0*SLE(0)/(mh*mh)-0.5*HpengTauEEECR1*SLE(1)/(mH*mH)-0.5*HpengTauEEECR2*SLE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B2HiggscLte = (-0.5*HpengTauEEECL0*SRE(0)/(mh*mh)-0.5*HpengTauEEECL1*SRE(1)/(mH*mH)-0.5*HpengTauEEECL2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscRte = (HpengTauEEECR0*SRE(0)/(mh*mh)+HpengTauEEECR1*SRE(1)/(mH*mH)+HpengTauEEECR2*SRE(2)/(mA*mA))/(4.0*pi*alph);
         gslpp::complex B3HiggscLte = (HpengTauEEECL0*SLE(0)/(mh*mh)+HpengTauEEECL1*SLE(1)/(mH*mH)+HpengTauEEECL2*SLE(2)/(mA*mA))/(4.0*pi*alph);
  
         //     write B2H and B3H into a vector for tau->3e
         BHFunctions.assign(0, B2HiggsnRte+B2HiggscRte );
         BHFunctions.assign(1, B2HiggsnLte+B2HiggscLte );
         BHFunctions.assign(2, B3HiggsnRte+B3HiggscRte );
         BHFunctions.assign(3, B3HiggsnLte+B3HiggscLte );
     }
  
     return(BHFunctions);

◆ Bk()

double SUSYMatching::Bk	(	double	x,
		double	y,
		int	k
	)

private

Limit of B0 function for zero x or zero y

Definition at line 669 of file SUSYMatching.cpp.

                                                  {
  
     if((fabs(x) < SUSYLEPS2)&&(k==0)) return (log(y));
     if((fabs(y) < SUSYLEPS2)&&(k==0)) return (log(x));
     
     
     if (fabs((1. - y / x)) < SUSYLEPS2) {
         return (BL(x, k));
  
     }
     if (k == 0) {
         return (log(x) + (y * log(x / y)) / (x - y));
     }
     else if (k == 2) {
  
         return (1. / 4. + 0.5 * Ck(x, y, y, 2));
     }
     else {
  
         throw std::runtime_error("Error in Bk(x,y,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
  
 }

◆ BL()

double SUSYMatching::BL	(	double	a,
		int	k
	)

private

Definition at line 653 of file SUSYMatching.cpp.

                                        {
     
     if (k == 0) {
         return (1. + log(a));
     }
     else if (k == 2) {
         return ((-log(mu2R) + 2. + log(a)) / 2.);
     }
     else {
  
         throw std::runtime_error("Error in BL(a,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ bsll_C0()

double SUSYMatching::bsll_C0	(	double	m1,
		double	m2,
		double	m3
	)

private

Definition at line 3622 of file SUSYMatching.cpp.

 {
  
     if (m1 <= 0.0 || m2 <= 0.0 || m3 <= 0.0) throw std::runtime_error("SUSYMatching::bsll_C0(): Invalid argument!");
  
     if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         return -1. / (2 * m1 * m1);
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return (m3 * m3 * (1. - log(m3 * m3 / (m2 * m2))) - m2 * m2) / ((m2 * m2 - m3 * m3)*(m2 * m2 - m3 * m3));
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return (m2 * m2 * (1. - log(m2 * m2 / (m3 * m3))) - m3 * m3) / ((m2 * m2 - m3 * m3)*(m2 * m2 - m3 * m3));
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         return (m1 * m1 * (1. + log(m3 * m3 / (m1 * m1))) - m3 * m3) / ((m1 * m1 - m3 * m3)*(m1 * m1 - m3 * m3));
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return (m2 * m2 / (m1 * m1 - m2 * m2) * log(m2 * m2 / (m1 * m1)) - m3 * m3 / (m1 * m1 - m3 * m3) * log(m3 * m3 / (m1 * m1))) / (m2 * m2 - m3 * m3);
     } else {
         std::cout << "m1, m2, m3 = " << m1 << ", " << m2 << ", " << m3 << std::endl;
         throw std::runtime_error("SUSYMatching::bsll_C0(): limit/case not implemented!");
     }

◆ bsll_C2()

double SUSYMatching::bsll_C2	(	double	m1,
		double	m2,
		double	m3,
		double	mu2
	)

private

Definition at line 3643 of file SUSYMatching.cpp.

 {
  
     if (mu2 <= 0.0 || m1 <= 0.0 || m2 <= 0.0 || m3 <= 0.0) throw std::runtime_error("SUSYMatching::bsll_C2(): Invalid argument!");
  
     if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         return -(1 / 4.) * log(m3 * m3 / (mu2));
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return (pow(m2, 4.) - 4. * m2 * m2 * m3 * m3 + 3. * pow(m3, 4.) - (2. * pow(m2, 4.) - 4. * m2 * m2 * m3 * m3) * log(m2 * m2 / (mu2)) - 2. * pow(m3, 4.) * log(m3 * m3 / (mu2))) / (8. * (m2 * m2 - m3 * m3)*(m2 * m2 - m3 * m3));
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return (3. * pow(m2, 4.) - 4. * m2 * m2 * m3 * m3 + pow(m3, 4.) + (-2. * pow(m3, 4.) + 4. * m2 * m2 * m3 * m3) * log(m3 * m3 / (mu2)) - 2. * pow(m2, 4.) * log(m2 * m2 / (mu2))) / (8. * (m2 * m2 - m3 * m3)*(m2 * m2 - m3 * m3));
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         return (3. * pow(m1, 4.) - 4. * m1 * m1 * m3 * m3 + pow(m3, 4.) + (-2. * pow(m3, 4.) + 4. * m1 * m1 * m3 * m3) * log(m3 * m3 / (mu2)) - 2. * pow(m1, 4.) * log(m1 * m1 / (mu2))) / (8. * (m1 * m1 - m3 * m3)*(m1 * m1 - m3 * m3));
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2)) {
         return 3. / 8. - (1. / 4.)*(pow(m1, 4.) / ((m1 * m1 - m2 * m2)*(m1 * m1 - m3 * m3)) * log(m1 * m1 / (mu2)) + pow(m2, 4.) / ((m2 * m2 - m1 * m1)*(m2 * m2 - m3 * m3)) * log(m2 * m2 / (mu2)) + pow(m3, 4.) / ((m3 * m3 - m2 * m2)*(m3 * m3 - m1 * m1)) * log(m3 * m3 / (mu2)));
     } else {
         std::cout << "m1, m2, m3, mu2 = " << m1 << ", " << m2 << ", " << m3 << ", " << mu2 << std::endl;
         throw std::runtime_error("SUSYMatching::bsll_C2(): limit/case not implemented!");
     }

◆ bsll_D0reg()

double SUSYMatching::bsll_D0reg	(	double	m1,
		double	m2,
		double	m3,
		double	m4
	)

private

Definition at line 3664 of file SUSYMatching.cpp.

 {
  
     if (m1 <= 0.0 || m2 <= 0.0 || m3 <= 0.0 || m4 <= 0.0) throw std::runtime_error("SUSYMatching::bsll_D0(): Invalid argument!");
  
     if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m4) / m2) <= SUSYLEPS2)) {
         return 1. / (6. * m1 * m1 * m1 * m1);
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m3) <= SUSYLEPS2)) {
         return (m3 * m3 * m3 * m3 - m4 * m4 * m4 * m4 + 4. * m3 * m3 * m4 * m4 * log(m4 / m3)) / (2. * (m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4) * m3 * m3);
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m4) / m4) <= SUSYLEPS2)) {
         return (-m3 * m3 * m3 * m3 + m4 * m4 * m4 * m4 + 4. * m3 * m3 * m4 * m4 * log(m3 / m4)) / (2. * (-m3 * m3 + m4 * m4)*(-m3 * m3 + m4 * m4)*(-m3 * m3 + m4 * m4) * m4 * m4);
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m3 - m4) / m4) <= SUSYLEPS2)) {
         return (-m2 * m2 * m2 * m2 + m4 * m4 * m4 * m4 + 4. * m2 * m2 * m4 * m4 * log(m2 / m4)) / (2. * (-m2 * m2 + m4 * m4)*(-m2 * m2 + m4 * m4)*(-m2 * m2 + m4 * m4) * m4 * m4);
     } else if ((std::fabs((m2 - m3) / m2) <= SUSYLEPS2) && (std::fabs((m3 - m4) / m4) <= SUSYLEPS2)) {
         return (-m1 * m1 * m1 * m1 + m4 * m4 * m4 * m4 + 4. * m1 * m1 * m4 * m4 * log(m1 / m4)) / (2. * (-m1 * m1 + m4 * m4)*(-m1 * m1 + m4 * m4)*(-m1 * m1 + m4 * m4) * m4 * m4);
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2)) {
         double term1 = (m3 * m3 * (-m2 * m2 + m3 * m3 + 2. * m2 * m2 * log(m2 / m3))) / (m2 * m2 - m3 * m3) / (m2 * m2 - m3 * m3);
         double term2 = (m4 * m4 * (-m2 * m2 + m4 * m4 + 2. * m2 * m2 * log(m2 / m4))) / (m2 * m2 - m4 * m4) / (m2 * m2 - m4 * m4);
         return (term1 - term2) / (m2 * m2 * (m3 * m3 - m4 * m4));
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2)) {
         double term1 = (2. * m3 * m3 * log(m3 / m2)) / (-m2 * m2 + m3 * m3);
         double term2 = (2. * m4 * m4 * log(m4 / m2)) / (-m2 * m2 + m4 * m4);
         double term3 = (2. * m4 * m4 * log(m4 / m3)) / (-m3 * m3 + m4 * m4);
         return (-1. + term1 - term2 + term3) / (m3 * m3 - m2 * m2) / (m3 * m3 - m4 * m4);
     } else if ((std::fabs((m1 - m4) / m1) <= SUSYLEPS2)) {
         double term1 = (2. * m3 * m3 * log(m3 / m2)) / (-m2 * m2 + m3 * m3);
         double term2 = (2. * m3 * m3 * log(m3 / m4)) / (-m4 * m4 + m3 * m3);
         double term3 = (2. * m4 * m4 * log(m4 / m2)) / (-m2 * m2 + m4 * m4);
         return (1. + term1 - term2 - term3) / (m4 * m4 - m2 * m2) / (m3 * m3 - m4 * m4);
     } else if ((std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         double term1 = (2. * m3 * m3 * log(m3 / m1)) / (-m1 * m1 + m3 * m3);
         double term2 = (2. * m4 * m4 * log(m4 / m1)) / (-m1 * m1 + m4 * m4);
         double term3 = (2. * m4 * m4 * log(m4 / m3)) / (-m3 * m3 + m4 * m4);
         return (1. - term1 + term2 - term3) / (-m4 * m4 + m3 * m3) / (-m3 * m3 + m1 * m1);
     } else if ((std::fabs((m2 - m4) / m2) <= SUSYLEPS2)) {
         double term1 = (2. * m3 * m3 * log(m3 / m1)) / (-m1 * m1 + m3 * m3);
         double term2 = (2. * m3 * m3 * log(m3 / m4)) / (-m4 * m4 + m3 * m3);
         double term3 = (2. * m4 * m4 * log(m4 / m1)) / (-m1 * m1 + m4 * m4);
         return (-1. - term1 + term2 + term3) / (-m4 * m4 + m3 * m3) / (-m4 * m4 + m1 * m1);
     } else if ((std::fabs((m3 - m4) / m3) <= SUSYLEPS2)) {
         double term1 = (-m4 * m4 + m1 * m1 + 2. * m1 * m1 * log(m4 / m1)) / (m1 * m1 - m4 * m4) / (m1 * m1 - m4 * m4);
         double term2 = (-m4 * m4 + m2 * m2 + 2. * m2 * m2 * log(m4 / m2)) / (m2 * m2 - m4 * m4) / (m2 * m2 - m4 * m4);
         return (term1 - term2) / (m1 * m1 - m2 * m2);
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m3 - m4) / m3) > SUSYLEPS2) && (std::fabs((m1 - m4) / m1) > SUSYLEPS2) && (std::fabs((m1 - m3) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2) && (std::fabs((m2 - m4) / m2) > SUSYLEPS2)) {
         return (bsll_C0(m1, m3, m4) - bsll_C0(m2, m3, m4)) / (m1 * m1 - m2 * m2);
     } else {
         std::cout << "m1, m2, m3, m4 = " << m1 << ", " << m2 << ", " << m3 << ", " << m4 << std::endl;
         throw std::runtime_error("SUSYMatching::bsll_D0reg(): limit/case not implemented!");
     }

◆ bsll_D2reg()

double SUSYMatching::bsll_D2reg	(	double	m1,
		double	m2,
		double	m3,
		double	m4
	)

private

Definition at line 3715 of file SUSYMatching.cpp.

 {
  
     if (m1 <= 0.0 || m2 <= 0.0 || m3 <= 0.0 || m4 <= 0.0) throw std::runtime_error("SUSYMatching::bsll_D2(): Invalid argument!");
  
     if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m4) / m2) <= SUSYLEPS2)) {
         return -1. / (12. * m1 * m1 * m1 * m1);
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m3) / m3) <= SUSYLEPS2)) {
         return -(m3 * m3 * m3 * m3 - 4. * m3 * m3 * m4 * m4 + 3. * m4 * m4 * m4 * m4 - 4. * m4 * m4 * m4 * m4 * log(m4 / m3)) / (8. * (m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4));
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2) && (std::fabs((m2 - m4) / m4) <= SUSYLEPS2)) {
         return (m4 * m4 * m4 * m4 - 4. * m3 * m3 * m4 * m4 + 3. * m3 * m3 * m3 * m3 - 4. * m3 * m3 * m3 * m3 * log(m3 / m4)) / (8. * (m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4)*(m3 * m3 - m4 * m4));
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2) && (std::fabs((m3 - m4) / m3) <= SUSYLEPS2)) {
         return (m4 * m4 * m4 * m4 - 4. * m2 * m2 * m4 * m4 + 3. * m2 * m2 * m2 * m2 - 4. * m2 * m2 * m2 * m2 * log(m2 / m4)) / (8. * (m2 * m2 - m4 * m4)*(m2 * m2 - m4 * m4)*(m2 * m2 - m4 * m4));
     } else if ((std::fabs((m2 - m3) / m2) <= SUSYLEPS2) && (std::fabs((m3 - m4) / m3) <= SUSYLEPS2)) {
         return (m4 * m4 * m4 * m4 - 4. * m1 * m1 * m4 * m4 + 3. * m1 * m1 * m1 * m1 - 4. * m1 * m1 * m1 * m1 * log(m1 / m4)) / (8. * (m1 * m1 - m4 * m4)*(m1 * m1 - m4 * m4)*(m1 * m1 - m4 * m4));
     } else if ((std::fabs((m1 - m2) / m1) <= SUSYLEPS2)) {
         double num = 2. * m3 * m3 * m3 * m3 * (m2 * m2 - m4 * m4)*(m2 * m2 - m4 * m4) * log(m3 / m2)+(m2 * m2 - m3 * m3)*(m2 * m2 * (m2 * m2 - m4 * m4)*(m3 * m3 - m4 * m4) + 2. * (-m2 * m2 + m3 * m3) * m4 * m4 * m4 * m4 * log(m4 / m2));
         double den = 4. * (m2 * m2 - m3 * m3)*(m2 * m2 - m3 * m3)*(m2 * m2 - m4 * m4)*(m2 * m2 - m4 * m4)*(m3 * m3 - m4 * m4);
         return -(num / den);
     } else if ((std::fabs((m1 - m3) / m1) <= SUSYLEPS2)) {
         double num = -m2 * m2 * (2. * m3 * m3 * log(m3 / m2) / (m2 * m2 - m3 * m3) + 2. * m4 * m4 * log(m4 / m2) / (-m2 * m2 + m4 * m4)) + m3 * m3 * (-1. + 2. * m4 * m4 * log(m4 / m3) / (m4 * m4 - m3 * m3));
         double den = 4. * (-m2 * m2 + m3 * m3)*(m3 * m3 - m4 * m4);
         return (num / den);
     } else if ((std::fabs((m1 - m4) / m1) <= SUSYLEPS2)) {
         double num = 2. * m2 * m2 * m3 * m3 * log(m3 / m2) / (-m2 * m2 + m3 * m3) + m4 * m4 * (1. - 2. * m3 * m3 * log(m3 / m4) / (m3 * m3 - m4 * m4) - 2. * m2 * m2 * log(m2 / m4) / (m2 * m2 - m4 * m4));
         double den = 4. * (-m2 * m2 + m4 * m4)*(m3 * m3 - m4 * m4);
         return (num / den);
     } else if ((std::fabs((m2 - m3) / m2) <= SUSYLEPS2)) {
         double num = m3 * m3 + m1 * m1 * (2. * m3 * m3 * log(m3 / m1) / (m1 * m1 - m3 * m3) + 2. * m4 * m4 * log(m4 / m1) / (m4 * m4 - m1 * m1)) + 2. * m3 * m3 * m4 * m4 * log(m4 / m3) / (m3 * m3 - m4 * m4);
         double den = 4. * (m1 * m1 - m3 * m3)*(m3 * m3 - m4 * m4);
         return (num / den);
     } else if ((std::fabs((m2 - m4) / m2) <= SUSYLEPS2)) {
         double num = 2. * m1 * m1 * m3 * m3 * log(m3 / m1) / (m1 * m1 - m3 * m3) + m4 * m4 * (-1. + 2. * m3 * m3 * log(m3 / m4) / (m3 * m3 - m4 * m4) + 2. * m1 * m1 * log(m1 / m4) / (m1 * m1 - m4 * m4));
         double den = 4. * (m1 * m1 - m4 * m4)*(m3 * m3 - m4 * m4);
         return (num / den);
     } else if ((std::fabs((m3 - m4) / m3) <= SUSYLEPS2)) {
         double num = 2. * m1 * m1 * (m1 * m1 - m4 * m4 + 2. * m1 * m1 * log(m4 / m1)) / (m1 * m1 - m4 * m4) / (m1 * m1 - m4 * m4);
         num -= 2. * m2 * m2 * (m2 * m2 - m4 * m4 + 2. * m2 * m2 * log(m4 / m2)) / (m2 * m2 - m4 * m4) / (m2 * m2 - m4 * m4);
         double den = 8. * (m1 * m1 - m2 * m2);
         return (num / den);
     } else if ((std::fabs((m1 - m2) / m1) > SUSYLEPS2) && (std::fabs((m3 - m4) / m3) > SUSYLEPS2) && (std::fabs((m1 - m4) / m1) > SUSYLEPS2) && (std::fabs((m1 - m3) / m1) > SUSYLEPS2) && (std::fabs((m2 - m3) / m2) > SUSYLEPS2) && (std::fabs((m2 - m4) / m2) > SUSYLEPS2)) {
         return (m1 * m1 * bsll_C0(m1, m3, m4) - m2 * m2 * bsll_C0(m2, m3, m4)) / (4. * (m1 * m1 - m2 * m2));
     } else {
         std::cout << "m1,m2,m3,m4 = " << m1 << ", " << m2 << ", " << m3 << ", " << m4 << std::endl;
         throw std::runtime_error("SUSYMatching::bsll_D2reg(): limit/case not implemented!");
     }

◆ bsll_DeltaC10_SUSY()

gslpp::complex SUSYMatching::bsll_DeltaC10_SUSY ( int lep_pair )

private

Definition at line 4016 of file SUSYMatching.cpp.

 {
  
     double sw2 = sinthetaW*sinthetaW;
     return -bsll_Y_SUSY(lep_pair) / sw2;

◆ bsll_DeltaC7_SUSY()

gslpp::complex SUSYMatching::bsll_DeltaC7_SUSY ( )

private

Definition at line 3763 of file SUSYMatching.cpp.

 {
  
     double pi = M_PI;
     double MW = mySUSY.Mw_tree();
     double mt = mySUSY.Mq_Q(mySUSY.TOP);
     double mb = mySUSY.Mq_Q(mySUSY.BOTTOM);
     double g3 = sqrt(4. * pi * Als);
  
     //  charged Higgs loops
     gslpp::complex DC7_chargedHiggs = (0.5 * mt * mt / MHpm / MHpm * bsll_f1(mt * mt / MHpm / MHpm) / (tanb * tanb) + bsll_f2(mt * mt / MHpm / MHpm)) / 6.;
  
     //  chargino loops
     gslpp::complex DC7_chargino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 2; i++) {
             DC7_chargino += (-0.5 * (XUL[a][1][i]).conjugate() * XUL[a][2][i] * bsll_f1(mym_su_sq(a) / MChi(i) / MChi(i))
                     + (XUL[a][1][i]).conjugate() * XUR[a][2][i]*(MChi(i) / mb) * bsll_f2(mym_su_sq(a) / MChi(i) / MChi(i))) / MChi(i) / MChi(i);
         }
     }
     DC7_chargino *= MW * MW / (3. * gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
  
     //  neutralino loops
     gslpp::complex DC7_neutralino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 4; i++) {
             DC7_neutralino += (0.5 * (ZDL[a][1][i]).conjugate() * ZDL[a][2][i] * bsll_f3(mym_sd_sq(a) / MChi0(i) / MChi0(i))
                     + (ZDL[a][1][i]).conjugate() * ZDR[a][2][i]*(MChi0(i) / mb) * bsll_f4(mym_sd_sq(a) / MChi0(i) / MChi0(i))) / MChi0(i) / MChi0(i);
         }
     }
     DC7_neutralino *= -MW * MW / (3. * gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  gluino loops
     gslpp::complex DC7_gluino = 0.;
     for (int a = 0; a < 6; a++) {
         DC7_gluino += (-myRd(a, 1).conjugate() * myRd(a, 2) * bsll_f3(mym_sd_sq(a) / Mg / Mg)
                 + 2. * myRd(a, 1).conjugate() * myRd(a, 5)*(Mg / mb) * bsll_f4(mym_sd_sq(a) / Mg / Mg)) / Mg / Mg;
     }
     DC7_gluino *= 4. * MW * MW * g3 * g3 / (9. * gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //    std::cout << DC7_chargedHiggs << ", " << DC7_chargino << ", " << DC7_neutralino << ", " << DC7_gluino << std::endl;
  
     return DC7_chargedHiggs + DC7_chargino + DC7_neutralino + DC7_gluino;
  

◆ bsll_DeltaC9_SUSY()

gslpp::complex SUSYMatching::bsll_DeltaC9_SUSY ( int lep_pair )

private

Definition at line 4009 of file SUSYMatching.cpp.

 {
  
     double sw2 = sinthetaW*sinthetaW;
     return bsll_Y_SUSY(lep_pair) / sw2 - 4. * bsll_Z_SUSY(lep_pair);

◆ bsll_f1()

double SUSYMatching::bsll_f1 ( double x )

private

Definition at line 3537 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (-7. + 5. * x + 8. * x * x) / (6. * (1. - x) * (1. - x) * (1. - x))
                 - (2. * x - 3. * x * x) / ((1. - x) * (1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return -5. / 12.;
     }

◆ bsll_f2()

double SUSYMatching::bsll_f2 ( double x )

private

Definition at line 3548 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (3. * x - 5. * x * x) / (2. * (1. - x) * (1. - x))
                 + (2. * x - 3. * x * x) / ((1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return -7. / 6.;
     }

◆ bsll_f3()

double SUSYMatching::bsll_f3 ( double x )

private

Definition at line 3559 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (2. + 5. * x - x * x) / (6. * (1. - x) * (1. - x) * (1. - x))
                 + x / ((1. - x) * (1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return 1. / 12.;
     }

◆ bsll_f4()

double SUSYMatching::bsll_f4 ( double x )

private

Definition at line 3570 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (1. + x) / (2. * (1. - x) * (1. - x))
                 + x / ((1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return 1. / 6.;
     }

◆ bsll_f5()

double SUSYMatching::bsll_f5 ( double x )

private

Definition at line 3581 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return x / (1. - x) + x / ((1. - x) * (1. - x)) * log(x);
     } else return -1. / 2.;

◆ bsll_f6()

double SUSYMatching::bsll_f6 ( double x )

private

Definition at line 3589 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (38. * x - 79. * x * x + 47. * x * x * x) / (6. * (1. - x) * (1. - x) * (1. - x))
                 + (4. * x - 6. * x * x + 3. * x * x * x * x) / ((1. - x) * (1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return -3. / 4.;
     }

◆ bsll_f7()

double SUSYMatching::bsll_f7 ( double x )

private

Definition at line 3600 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (52. - 101. * x + 43. * x * x) / (6. * (1. - x) * (1. - x) * (1. - x))
                 + (6. - 9. * x + 2. * x * x * x) / ((1. - x) * (1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return -7. / 4.;
     }

◆ bsll_f8()

double SUSYMatching::bsll_f8 ( double x )

private

Definition at line 3611 of file SUSYMatching.cpp.

 {
  
     if (std::fabs(x - 1.) > SUSYLEPS2) {
         return (2. - 7. * x + 11. * x * x) / ((1. - x) * (1. - x) * (1. - x))
                 + (6. * x * x * x) / ((1. - x) * (1. - x) * (1. - x) * (1. - x)) * log(x);
     } else {
         return 3. / 2.;
     }

◆ bsll_Y_SUSY()

gslpp::complex SUSYMatching::bsll_Y_SUSY ( int lep_pair )

private

Definition at line 3810 of file SUSYMatching.cpp.

 {
  
  
     double pi = M_PI;
     double MW = mySUSY.Mw_tree();
     double mt = mySUSY.Mq_Q(mySUSY.TOP);
     double g3 = sqrt(4. * pi * Als);
     double sw2 = sinthetaW*sinthetaW;
     double tantheta = sqrt(sw2) / sqrt(1. - sw2);
     double mu2 = 100.; // check independence of the result from renornmalization scale mu!
  
     //  charged Higgs Z penguin and bubble
     gslpp::complex Y_chargedHiggs = -bsll_f5(mt * mt / MHpm / MHpm) / 8. / (tanb * tanb) * mt * mt / MW / MW;
  
     //  chargino Z penguin and bubble
     gslpp::complex Y_chargino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             for (int i = 0; i < 2; i++) {
                 for (int j = 0; j < 2; j++) {
                     Y_chargino += (XUL[a][1][i]).conjugate() * XUL[b][2][j] *
                             (bsll_C2(MChi(i), sqrt(mym_su_sq(a)), sqrt(mym_su_sq(b)), mu2) * gamULgamULdag(a, b)*(i == j)
                             - bsll_C2(sqrt(mym_su_sq(a)), MChi(i), MChi(j), mu2)*(a == b) * myV(i, 0).conjugate() * myV(j, 0)
                             + 0.5 * MChi(i) * MChi(j) * bsll_C0(sqrt(mym_su_sq(a)), MChi(i), MChi(j))*(a == b)
                             * myU(i, 0) * myU(j, 0).conjugate()) / 2.;
                 }
             }
         }
     }
     Y_chargino /= (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  neutralino Z penguin and bubble
     gslpp::complex Y_neutralino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             for (int i = 0; i < 4; i++) {
                 for (int j = 0; j < 4; j++) {
                     Y_neutralino += (ZDL[a][1][i]).conjugate() * ZDL[b][2][j] *
                             (bsll_C2(MChi0(i), sqrt(mym_sd_sq(a)), sqrt(mym_sd_sq(b)), mu2) * gamDRgamDRdag(a, b)*(i == j)
                             - bsll_C2(sqrt(mym_sd_sq(a)), MChi0(i), MChi0(j), mu2)*(a == b)*(myN(i, 2).conjugate() * myN(j, 2) - myN(i, 3).conjugate() * myN(j, 3))
                             - 0.5 * MChi0(i) * MChi0(j) * bsll_C0(sqrt(mym_sd_sq(a)), MChi0(i), MChi0(j))*(a == b)
                             *(myN(j, 2).conjugate() * myN(i, 2) - myN(j, 3).conjugate() * myN(i, 3))) / 2.;
                 }
             }
         }
     }
     Y_neutralino /= (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  gluino Z penguin and bubble
     gslpp::complex Y_gluino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             Y_gluino += 4. * myRd(a, 1).conjugate() * myRd(b, 2) * bsll_C2(Mg, sqrt(mym_sd_sq(a)), sqrt(mym_sd_sq(b)), mu2) * gamDRgamDRdag(a, b) / 3.;
         }
     }
     Y_gluino *= g3 * g3 / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  LFV contribution: chargino box
     gslpp::complex Y_chargino_box = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 2; i++) {
             for (int j = 0; j < 2; j++) {
                 Y_chargino_box += (XUL[a][1][i]).conjugate() * XUL[a][2][j] * bsll_D2reg(MChi(i), MChi(j), sqrt(mym_su_sq(a)), sqrt(mym_sn_sq(lep_pair))) * myV(i, 0).conjugate() * myV(j, 0);
             }
         }
     }
     Y_chargino_box *= MW * MW / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  LFV contribution: neutralino box
     gslpp::complex Z_neutralino_box = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 4; i++) {
             for (int j = 0; j < 4; j++) {
                 Z_neutralino_box += (ZDL[a][1][i]).conjugate() * ZDL[a][2][j] / (1. - sw2)*
                         (bsll_D2reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(3 + lep_pair))) * myN(i, 0).conjugate() * myN(j, 0)
                         + 0.5 * MChi0(i) * MChi0(j) * bsll_D0reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(3 + lep_pair))) * myN(j, 0).conjugate() * myN(i, 0));
             }
         }
     }
     Z_neutralino_box *= MW * MW / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     gslpp::complex Y_neutralino_box = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 4; i++) {
             for (int j = 0; j < 4; j++) {
                 Y_neutralino_box += (ZDL[a][1][i]).conjugate() * ZDL[a][2][j]*
                         (bsll_D2reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(lep_pair)))*
                         (tantheta * myN(i, 0).conjugate() + myN(i, 1).conjugate())*(tantheta * myN(j, 0) + myN(j, 1))
                         + 0.5 * MChi0(i) * MChi0(j) * bsll_D0reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(lep_pair)))
                         *(tantheta * myN(j, 0).conjugate() + myN(j, 1).conjugate())*(tantheta * myN(i, 0) + myN(i, 1))) / 2.;
             }
         }
     }
     Y_neutralino_box *= MW * MW / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
     Y_neutralino_box += 2. * sw2*Z_neutralino_box;
  
     //    std::cout << "Y_chargedHiggs = " << Y_chargedHiggs << ", " << "Y_chargino = " << Y_chargino << ", " << "Y_neutralino = " << Y_neutralino << ", " << "Y_gluino = " << Y_gluino << ", " << "Y_chargino_box = " << Y_chargino_box << ", " << "Y_neutralino_box = " << Y_neutralino_box <<  ", " << "Z_neutralino_box = " << Z_neutralino_box << std::endl;
  
     return Y_chargedHiggs + Y_chargino + Y_neutralino + Y_gluino + Y_chargino_box + Y_neutralino_box;

◆ bsll_Z_SUSY()

gslpp::complex SUSYMatching::bsll_Z_SUSY ( int lep_pair )

private

Definition at line 3912 of file SUSYMatching.cpp.

 {
  
     double pi = M_PI;
     double MW = mySUSY.Mw_tree();
     double sw2 = sinthetaW*sinthetaW;
     double mt = mySUSY.Mq_Q(mySUSY.TOP);
  
     //    double g2 = gW;
     double g3 = sqrt(4. * pi * Als);
     double mu2 = 100.; // check independence of the result from renornmalization scale mu!
  
     //  charged Higgs Z penguin and bubble
     gslpp::complex Z_chargedHiggs = -bsll_f5(mt * mt / MHpm / MHpm) / 8. / (tanb * tanb) * mt * mt / MW / MW;
  
     //  charged Higgs gamma penguin and bubble
     Z_chargedHiggs += -bsll_f6(mt * mt / MHpm / MHpm) / 72. / (tanb * tanb);
  
     //  chargino Z penguin and bubble
     gslpp::complex Z_chargino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             for (int i = 0; i < 2; i++) {
                 for (int j = 0; j < 2; j++) {
                     Z_chargino += (XUL[a][1][i]).conjugate() * (XUL[b][2][j]) *
                             (bsll_C2(MChi(i), sqrt(mym_su_sq(a)), sqrt(mym_su_sq(b)), mu2)*(gamULgamULdag(a, b))*(i == j)
                             - bsll_C2(sqrt(mym_su_sq(a)), MChi(i), MChi(j), mu2)*(a == b) * myV(i, 0).conjugate() * myV(j, 0)
                             + 0.5 * MChi(i) * MChi(j) * bsll_C0(sqrt(mym_su_sq(a)), MChi(i), MChi(j))*(a == b)
                             * myU(i, 0) * myU(j, 0).conjugate()) / 2.;
                 }
             }
         }
     }
     //  chargino gamma penguin and bubble
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 2; i++) {
             Z_chargino += mW * mW / mym_su_sq(a) * XUL[a][1][i].conjugate() * XUL[a][2][i] * bsll_f7(MChi(i) * MChi(i) / mym_su_sq(a)) / 36.;
         }
     }
     Z_chargino /= (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  neutralino Z penguin and bubble
     gslpp::complex Z_neutralino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             for (int i = 0; i < 4; i++) {
                 for (int j = 0; j < 4; j++) {
                     Z_neutralino += (ZDL[a][1][i]).conjugate() * ZDL[b][2][j] *
                             (bsll_C2(MChi0(i), sqrt(mym_sd_sq(a)), sqrt(mym_sd_sq(b)), mu2) * gamDRgamDRdag(a, b)*(i == j)
                             - bsll_C2(sqrt(mym_sd_sq(a)), MChi0(i), MChi0(j), mu2)*(a == b)*(myN(i, 2).conjugate() * myN(j, 2) - myN(i, 3).conjugate() * myN(j, 3))
                             - 0.5 * MChi0(i) * MChi0(j) * bsll_C0(sqrt(mym_sd_sq(a)), MChi0(i), MChi0(j))*(a == b)
                             *(myN(j, 2).conjugate() * myN(i, 2) - myN(j, 3).conjugate() * myN(i, 3))) / 2.;
                 }
             }
         }
     }
     //  neutralino gamma penguin and bubble
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 4; i++) {
             Z_neutralino -= mW * mW / mym_sd_sq(a)*(ZDL[a][1][i]).conjugate() * ZDL[a][2][i] *
                     bsll_f8(MChi0(i) * MChi0(i) / mym_sd_sq(a)) / 216.;
         }
     }
     Z_neutralino /= (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  gluino Z penguin and bubble
     gslpp::complex Z_gluino = 0.;
     for (int a = 0; a < 6; a++) {
         for (int b = 0; b < 6; b++) {
             Z_gluino += 4. * myRd(a, 1).conjugate() * myRd(b, 2) * bsll_C2(Mg, sqrt(mym_sd_sq(a)), sqrt(mym_sd_sq(b)), mu2) * gamDRgamDRdag(a, b) / 3.;
         }
     }
     //  gluino gamma penguin and bubble
     for (int a = 0; a < 6; a++) {
         Z_gluino -= mW * mW / mym_sd_sq(a) * myRd(a, 1).conjugate() * myRd(a, 2) * bsll_f8(Mg * Mg / mym_sd_sq(a)) / 81.;
     }
     Z_gluino *= g3 * g3 / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
     //  LFV contribution: neutralino box
     gslpp::complex Z_neutralino_box = 0.;
     for (int a = 0; a < 6; a++) {
         for (int i = 0; i < 4; i++) {
             for (int j = 0; j < 4; j++) {
                 Z_neutralino_box += (ZDL[a][1][i]).conjugate() * ZDL[a][2][j] / (1. - sw2)*
                         (bsll_D2reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(3 + lep_pair))) * myN(i, 0).conjugate() * myN(j, 0)
                         + 0.5 * MChi0(i) * MChi0(j) * bsll_D0reg(MChi0(i), MChi0(j), sqrt(mym_sd_sq(a)), sqrt(mym_se_sq(3 + lep_pair))) * myN(j, 0).conjugate() * myN(i, 0));
             }
         }
     }
     Z_neutralino_box *= MW * MW / (gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2));
  
  
     //    std::cout << "Z_chargedHiggs = " << Z_chargedHiggs << ", " << "Z_chargino = " << Z_chargino << ", " << "Z_neutralino = " << Z_neutralino << ", " << "Z_gluino = " << Z_gluino << ", " << "Z_neutralino_box = " << Z_neutralino_box << std::endl;
  
     return Z_chargedHiggs + Z_chargino + Z_neutralino + Z_gluino + Z_neutralino_box;

◆ C10_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::C10_Lepton ( int n )

virtual

Calculates \( C_{10} \) and \( C^{\prime}_{10} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Calculates C10 and C10' for m->eee (1), t->mmm (2), t->eee (3) and t->muee (4)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of \( C_{10} \) and \( C^{\prime}_{10} \) Wilson coefficients

Definition at line 7492 of file SUSYMatching.cpp.

                                                                {
  
     double MZ = mySUSY.getMz();
     double MW = mySUSY.Mw_tree();
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double cw2 = 1.0 - sw2;
  
     gslpp::vector<gslpp::complex> C10(2, 0.);
  
         //     write C10 and C10' into a vector
         C10.assign(0, 1.0/(4.0*sw2*cw2*MZ*MZ)*FFunctions(li_to_lj)(1)
                      + (BFunctions(li_to_lj)(3)-BFunctions(li_to_lj)(1))/2.0 );
         C10.assign(1, 1.0/(4.0*sw2*cw2*MZ*MZ)*FFunctions(li_to_lj)(0)
                      + (BFunctions(li_to_lj)(0)-BFunctions(li_to_lj)(2))/2.0 );
  
     return(C10);

◆ C7_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::C7_Lepton ( int n )

virtual

Calculates \( C_{7} \) and \( C^{\prime}_{7} \) Wilson coefficients for the process \( \ell_j \to \ell_i \gamma \).

Calculates C7 and C7' for m->e (1), t->m (2) and t->e (3)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to e \gamma \), 2 = \( \tau \to \mu \gamma \), 3 = \( \tau \to e \gamma \)

Returns: returns the vector of \( C_{7} \) and \( C^{\prime}_{7} \) Wilson coefficients

Definition at line 7462 of file SUSYMatching.cpp.

                                                               {
  
     gslpp::vector<gslpp::complex> C7(2, 0.);
  
     //     write C7 and C7' into a vector
     C7.assign(0, -0.5*AFunctions(li_to_lj)(2) );
     C7.assign(1, -0.5*AFunctions(li_to_lj)(3) );
     return(C7);

◆ C9_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::C9_Lepton ( int n )

virtual

Calculates \( C_{9} \) and \( C^{\prime}_{9} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Calculates C9 and C9' for m->eee (1), t->mmm (2), t->eee (3) and t->muee (4)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of \( C_{9} \) and \( C^{\prime}_{9} \) Wilson coefficients

Definition at line 7472 of file SUSYMatching.cpp.

                                                               {
  
     double MZ = mySUSY.getMz();
     double MW = mySUSY.Mw_tree();
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double cw2 = 1.0 - sw2;
  
     gslpp::vector<gslpp::complex> C9(2, 0.);
  
         //     write C9 and C9' into a vector
         C9.assign(0, AFunctions(li_to_lj)(1)
                      + (1.0-1.0/(4.0*sw2))/(cw2*MZ*MZ)*FFunctions(li_to_lj)(1)
                      + (BFunctions(li_to_lj)(1)+BFunctions(li_to_lj)(3))/2.0 );
         C9.assign(1, AFunctions(li_to_lj)(0)
                      + (1.0-1.0/(4.0*sw2))/(cw2*MZ*MZ)*FFunctions(li_to_lj)(0)
                      + (BFunctions(li_to_lj)(0)+BFunctions(li_to_lj)(2))/2.0 );
  
     return(C9);

◆ CalcC7()

gslpp::vector< gslpp::complex > SUSYMatching::CalcC7	(	int	b,
		int	q
	)

private

Definition at line 3407 of file SUSYMatching.cpp.

                                                             {
  
     gslpp::vector<gslpp::complex> VCLO(5, 0.);
     gslpp::complex CLO(0., 0., false);
     double m2top = mySUSYMQ(4) * mySUSYMQ(4);
     double M2Hp = mySUSY.getMHp() * mySUSY.getMHp();
     double M2W = mySUSY.Mw_tree() * mySUSY.Mw_tree();
  
     gslpp::vector<double> myMU2Squarks(6, 0.);
     myMU2Squarks = mySUSY.getMsu2();
     int j, k;
  
  
     VCLO.assign(0, F7k(m2top / M2W, 0) + (Eps_J(2) - EpsPrime(2, 2)) / (1 + Eps_J(2)
             * tanb) * F7k(m2top / M2W, 2));
  
     VCLO.assign(1, 1. / (3. * tanb * tanb) * F7k(m2top / M2Hp, 1) +
             F7k(m2top / M2Hp, 2) - (EpsPrime(2, 1) + Eps_J(2)) / (1. + Eps_J(2) * tanb) *
             tanb * F7k(m2top / M2Hp, 2));
  
     for (j = 0; j < 2; j++) {
         for (k = 0; k < 6; k++) {
             CLO += 1. / (3. * gW * gW * myCKM(2, 1).conjugate() * myCKM(2, 2)) *
                     M2W / (MChi(j) * MChi(j)) * (-1. / 2. * VdUCL(q, k, j).conjugate()
                     * VdUCL(b, k, j).conjugate()
                     * F7k(myMU2Squarks(k) / (MChi(j) * MChi(j)), 1) +
                     VdUCL(q, k, j).conjugate() * VdUCR(b, k, j,1) *
                     MChi(j) / mySUSYMQ(5) * 6. * 
                     F7k(myMU2Squarks(k) / (MChi(j) * MChi(j)), 2));
         }
     }
  
     VCLO.assign(2, CLO);
  
     return (VCLO);
     

◆ CdF2dChi0Chi0()

gslpp::vector< gslpp::complex > SUSYMatching::CdF2dChi0Chi0	(	int	b,
		int	q,
		int	Dmixingflag
	)

private

Computation Neutralino contribution to Wilson Coefficents

Definition at line 2161 of file SUSYMatching.cpp.

                                                                                    {  
  
     gslpp::vector<double> myM2Squarks(6, 0.);
     gslpp::vector<gslpp::complex> VCLO(8, 0.);
     gslpp::complex CLO(0., 0., false);
     int i, j, h, k, O;
     
     // Set the D - Dbar mixing flag
     // in D - Dbar mixing the flag = 1 otherwise the flag = 0
  
     if (Dmixingflag == 0) {
         myM2Squarks = mySUSY.getMsd2();
     }
     else if (Dmixingflag == 1) {
         myM2Squarks = mySUSY.getMsu2();
     }
     
     
     int D = Dmixingflag;
     
     for (O = 1; O < 9; O++) {
  
         CLO.assign(0., 0., 0);
  
         if (O == 1) {
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += - VdDNL(q, k, j, 1, D).conjugate()*VdDNL(b, k, i, 1, D)* 
                                     (1./ 32. / M_PI / M_PI * VdDNL(b, h, j, 1, D)
                                     * VdDNL(q, h, i, 1, D).conjugate()
                                     * Dk(myM2Squarks(k),myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 2) + MChi0(i) * MChi0(j) 
                                     / 64. / M_PI / M_PI * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi0(i) * MChi0(i), MChi0(j)
                                     * MChi0(j), 0) * VdDNL(b, h, i, 1, D)*
                                     VdDNL(q, h, j, 1, D).conjugate());
                         }
                     }
                 }
             }
         }
         else if (O == 2) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += MChi0(i) * MChi0(j) / 32. / M_PI / M_PI *
                                     Dk(myM2Squarks(k), myM2Squarks(h),
                                     MChi0(i) * MChi0(i), MChi0(j) * MChi0(j), 0) *
                                     VdDNL(b, k, i, 1, D) * VdDNR(q, k, j, 1, D).conjugate()*
                                     VdDNL(b, h, i, 1, D) * VdDNR(q, h, j, 1, D).conjugate() ;
                         }
                     }
                 }
             }
         }
         else if (O == 3) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -MChi0(i) * MChi0(j) / 32. / M_PI / M_PI *
                                     Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 0) * VdDNL(b, k, i, 1, D) *
                                     VdDNR(q, k, j, 1, D).conjugate() *
                                     (VdDNL(b, h, j, 1, D) * VdDNR(q, h, i, 1, D).conjugate() -
                                     VdDNL(b, h, i, 1, D) * VdDNR(q, h, j, 1, D).conjugate());
                         }
                     }
                 }
             }
         }
         else if (O == 4) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += 1. / 8. / M_PI / M_PI * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 2) * VdDNR(b, k, i, 1, D) *
                                     VdDNL(q, k, j, 1, D).conjugate() * (
                                     VdDNL(b, h, j, 1, D) * (VdDNR(q, h, i, 1, D).conjugate()) +
                                     VdDNL(b, h, i, 1, D) * (VdDNR(q, h, j, 1, D).conjugate()));
                         }
                     }
                 }
             }
         }
         else if (O == 5) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / 8. / M_PI / M_PI * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 2) * VdDNL(q, k, j, 1, D).conjugate() *
                                     VdDNR(q, h, j, 1, D).conjugate() * VdDNL(b, k, i, 1, D) *
                                     VdDNR(b, h, i, 1, D) - MChi0(i) * MChi0(j) / 16. / M_PI /
                                     M_PI * Dk(myM2Squarks(k), myM2Squarks(h),
                                     MChi0(i) * MChi0(i), MChi0(j) * MChi0(j), 0) *
                                     VdDNL(q, h, i, 1, D).conjugate() * VdDNR(q, k, j, 1, D).conjugate() *
                                     VdDNL(b, h, j, 1, D) * VdDNR(b, k, i, 1, D);
                         }
                     }
                 }
             }
         }
         else if (O == 6) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += - VdDNR(q, k, j, 1, D).conjugate()*VdDNR(b, k, i, 1, D)* 
                                     (1./ 32. / M_PI / M_PI * VdDNR(b, h, j, 1, D)
                                     * VdDNR(q, h, i, 1, D).conjugate() 
                                     * Dk(myM2Squarks(k),myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 2) + MChi0(i) * MChi0(j) 
                                     / 64. / M_PI / M_PI * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi0(i) * MChi0(i), MChi0(j)
                                     * MChi0(j), 0) * VdDNR(b, h, i, 1, D)*
                                     VdDNR(q, h, j, 1, D).conjugate());
                         }
                     }
                 }
             }
         }
         else if (O == 7) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += MChi0(i) * MChi0(j) / 32. / M_PI / M_PI *
                                     Dk(myM2Squarks(k), myM2Squarks(h),
                                     MChi0(i) * MChi0(i), MChi0(j) * MChi0(j), 0) *
                                     VdDNR(b, k, i, 1, D) * VdDNL(q, k, j, 1, D).conjugate()*
                                     VdDNR(b, h, i, 1, D) * VdDNL(q, h, j, 1, D).conjugate() ;
                         }
                     }
                 }
             }
  
         }
         else if (O == 8) {
  
             for (i = 0; i < 4; i++) {
                 for (j = 0; j < 4; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                            CLO += -MChi0(i) * MChi0(j) / 32. / M_PI / M_PI *
                                     Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i) * MChi0(i),
                                     MChi0(j) * MChi0(j), 0) * VdDNR(b, k, i, 1, D) *
                                     VdDNL(q, k, j, 1, D).conjugate() *
                                     (VdDNR(b, h, j, 1, D) * VdDNL(q, h, i, 1, D).conjugate() -
                                     VdDNR(b, h, i, 1, D) * VdDNL(q, h, j, 1, D).conjugate());
                         }
                     }
                 }
             }
         } 
  
         VCLO.assign(O - 1, CLO);
  
     }
     return (VCLO);
  
 }

◆ CdF2dChi0g()

gslpp::vector< gslpp::complex > SUSYMatching::CdF2dChi0g	(	int	b,
		int	q,
		int	Dmixingflag
	)

private

Computation Neutralino - Gluino Box

Definition at line 2347 of file SUSYMatching.cpp.

                                                                                 {   
  
  
     gslpp::matrix<gslpp::complex> myR(6, 6, 0.);
     gslpp::vector<double> myM2Squarks(6, 0.);
     gslpp::vector<gslpp::complex> VCLO(8, 0.);
     gslpp::complex CLO(0., 0., false);
     int i, h, k, O;
     double M2g = Mg*Mg;
  
  
     
     // Set the D - Dbar mixing flag
     // in D - Dbar mixing the flag = 1 otherwise the flag = 0
  
     if (Dmixingflag == 0) {
         myM2Squarks = mySUSY.getMsd2();
         myR = mySUSY.getRd();
     }
     else if (Dmixingflag == 1) {
         myM2Squarks = mySUSY.getMsu2();
         
         /* in the D mixing Rd -> Ru^* , b -> c , q -> u */
         
         myR = mySUSY.getRu().hconjugate().transpose();
     }
  
     int D = Dmixingflag;
     
     
     for (O = 1; O < 9; O++) {
  
         CLO.assign(0., 0., 0);
  
         if (O == 1) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                 CLO += -Als * 2. / 3. / 4. / M_PI * Dk(myM2Squarks(k), myM2Squarks(h),
                         MChi0(i) * MChi0(i), M2g, 2) * myR(k, q).conjugate()
                         * myR(h, b) * VdDNL(q, h, i, 1, D).conjugate() *
                         VdDNL(b, k, i, 1, D) - Als / 4. / M_PI * MChi0(i) * Mg / 6. *
                         Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i) * MChi0(i)
                         , M2g, 0) * (myR(h, q).conjugate() * myR(k, q).conjugate()
                         * VdDNL(b, h, i, 1, D) *  VdDNL(b, k, i, 1, D) 
                         + myR(h, b) * myR(k, b) * VdDNL(q, h, i, 1, D).conjugate() *
                         VdDNL(q, k, i, 1, D).conjugate());
  
                     }
                 }
             }
         }
         else if (O == 2) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO +=  Als /4. / M_PI * MChi0(i) * Mg / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 0) * (3. * myR(h, b) *
                                 myR(k, q + 3).conjugate() * VdDNL(b, k, i, 1, D) * 
                                 VdDNR(q, h, i, 1, D).conjugate()
                                 + myR(k, b) * myR(h, b) *
                                 VdDNR(q, k, i, 1, D).conjugate() * VdDNR(q, h, i, 1, D).conjugate() +
                                 myR(k, q + 3).conjugate() * myR(h, q + 3).conjugate() * 
                                 VdDNL(b, k, i, 1, D) * VdDNL(b, h, i, 1, D));
  
                     }
                 }
             }
         }
         else if (O == 3) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO +=  -Als / 4. / M_PI * MChi0(i) * Mg / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 0) * (
                                 myR(h, b) * myR(k, q + 3).conjugate() * VdDNL(b, k, i, 1, D) *
                                 VdDNR(q, h, i, 1, D).conjugate() - myR(k, b) *
                                 myR(h, b) * VdDNR(q, k, i, 1, D).conjugate() *
                                 VdDNR(q, h, i, 1, D).conjugate() - myR(k, q + 3).conjugate() *
                                 myR(h, q + 3).conjugate() * VdDNL(b, k, i, 1, D) *
                                 VdDNL(b, h, i, 1, D));
  
                     }
                 }
             }
         }
         else if (O == 4) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO +=  -Als / 4. / M_PI * 2. / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 2) * (
                                 myR(h, b) * myR(k, q).conjugate() * VdDNR(b, k, i, 1, D) *
                                 VdDNR(q, h, i, 1, D).conjugate() +
                                 myR(h, b + 3) *
                                 myR(k, q + 3).conjugate() * VdDNL(b, k, i, 1, D) * 
                                 VdDNL(q, h, i, 1, D).conjugate()
                                 - myR(h, b) * myR(k, b + 3) *
                                 VdDNL(q, k, i, 1, D).conjugate() * VdDNR(q, h, i, 1, D).conjugate()
                                 - myR(h, q).conjugate() * myR(k, q + 3).conjugate() * 
                                 VdDNL(b, k, i, 1, D) * VdDNR(b, h, i, 1, D) 
                                 - 3. * myR(k, b + 3) * myR(h, b) * 
                                 VdDNL(q, h, i, 1, D).conjugate() *VdDNR(q, k, i, 1, D).conjugate() 
                                 - 3. * myR(k, q + 3).conjugate() *
                                 myR(h, q).conjugate() * VdDNL(b, h, i, 1, D) * VdDNR(b, k, i, 1, D)) +
                                 Als / 4. / M_PI * MChi0(i) * Mg *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)* MChi0(i), M2g, 0) * 
                                 (myR(h, b) * myR(k, q + 3).conjugate() *
                                 VdDNR(b, k, i, 1, D) * VdDNL(q, h, i, 1, D).conjugate() +
                                 myR(h, b + 3) * myR(k, q).conjugate() *
                                 VdDNL(b, k, i, 1, D) * VdDNR(q, h, i, 1, D).conjugate());
  
                     }
                 }
             }
         }
         else if (O == 5) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO +=  Als / 4. / M_PI * 2. / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 2)*(
                                 3. * myR(h, b) * myR(k, q).conjugate() * VdDNR(b, k, i, 1, D) *
                                 VdDNR(q, h, i, 1, D).conjugate() + 3. * myR(h, b + 3) *
                                 myR(k, q + 3).conjugate() * VdDNL(b, k, i, 1, D) * 
                                 VdDNL(q, h, i, 1, D).conjugate()
                                 - 3. * myR(h, b) * myR(k, b + 3) *
                                 VdDNL(q, k, i, 1, D).conjugate() * VdDNR(q, h, i, 1, D).conjugate()
                                 - 3. * myR(h, q).conjugate() * myR(k, q + 3).conjugate() * 
                                 VdDNL(b, k, i, 1, D) * VdDNR(b, h, i, 1, D) - myR(k, b + 3) *
                                 myR(h, b) * VdDNL(q, h, i, 1, D).conjugate() *
                                 VdDNR(q, k, i, 1, D).conjugate() - myR(k, q + 3).conjugate() *
                                 myR(h, q).conjugate() * VdDNL(b, h, i, 1, D) * VdDNR(b, k, i, 1, D)) -
                                 Als / 4. / M_PI * MChi0(i) * Mg / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 0)* (myR(h, b) * myR(k, q + 3).conjugate() *
                                 VdDNR(b, k, i, 1, D) * VdDNL(q, h, i, 1, D).conjugate() +
                                 myR(h, b + 3) * myR(k, q).conjugate() *
                                 VdDNL(b, k, i, 1, D) * VdDNR(q, h, i, 1, D).conjugate());
  
                     }
                 }
             }
         }
         else if (O == 6) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO += -Als * 2. / 3. / 4. / M_PI * Dk(myM2Squarks(k), myM2Squarks(h),
                                 MChi0(i) * MChi0(i), M2g, 2) * myR(k, q + 3).conjugate()
                                 * myR(h, b + 3) * VdDNR(q, h, i, 1, D).conjugate() *
                                 VdDNR(b, k, i, 1, D) - Als / 4. / M_PI * MChi0(i) * Mg / 6. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i) * MChi0(i)
                                 , M2g, 0) * (myR(h, q + 3).conjugate() * myR(k, q + 3).conjugate()
                                 * VdDNR(b, h, i, 1, D) *  VdDNR(b, k, i, 1, D) 
                                 + myR(h, b + 3) * myR(k, b + 3) * VdDNR(q, h, i, 1, D).conjugate() *
                                 VdDNR(q, k, i, 1, D).conjugate());
  
                     }
                 }
             }
         }
         else if (O == 7) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO +=  Als /4. / M_PI * MChi0(i) * Mg / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 0) * (3. * myR(h, b + 3) *
                                 myR(k, q).conjugate() * VdDNR(b, k, i, 1, D) * 
                                 VdDNL(q, h, i, 1, D).conjugate()
                                 + myR(k, b + 3) * myR(h, b + 3) *
                                 VdDNL(q, k, i, 1, D).conjugate() * VdDNL(q, h, i, 1, D).conjugate() +
                                 myR(k, q).conjugate() * myR(h, q).conjugate() * 
                                 VdDNR(b, k, i, 1, D) * VdDNR(b, h, i, 1, D));
  
                     }
                 }
             }
         }
         else if (O == 8) {
             for (i = 0; i < 4; i++) {
                 for (h = 0; h < 6; h++) {
                     for (k = 0; k < 6; k++) {
  
                         CLO += -Als / 4. / M_PI * MChi0(i) * Mg / 3. *
                                 Dk(myM2Squarks(k), myM2Squarks(h), MChi0(i)
                                 * MChi0(i), M2g, 0) * (
                                 myR(h, b + 3) * myR(k, q).conjugate() * VdDNR(b, k, i, 1, D) *
                                 VdDNL(q, h, i, 1, D).conjugate() - myR(k, b + 3) *
                                 myR(h, b + 3) * VdDNL(q, k, i, 1, D).conjugate() *
                                 VdDNL(q, h, i, 1, D).conjugate() - myR(k, q).conjugate() *
                                 myR(h, q).conjugate() * VdDNR(b, k, i, 1, D) *
                                 VdDNR(b, h, i, 1, D));
  
                     }
                 }
             }
         }
         
         VCLO.assign(O - 1, CLO);
  
     }
     return (VCLO);
 }

◆ CdF2dChiChi()

gslpp::vector< gslpp::complex > SUSYMatching::CdF2dChiChi	(	int	b,
		int	q,
		int	Dmixingflag
	)

private

Computation Charginos contribution to Wilson Coefficents

Definition at line 2027 of file SUSYMatching.cpp.

                                                                                  {
  
     gslpp::vector<double> myM2Squarks(6, 0.);
  
     gslpp::complex CLO(0., 0., false);
     gslpp::vector<gslpp::complex> VCLO(8, 0.);
     int i, j, h, k, O;
  
     
     // Set the D - Dbar mixing flag
     // in D - Dbar mixing the flag = 1 otherwise the flag = 0
     
     if (Dmixingflag == 0) {
         myM2Squarks = mySUSY.getMsu2();
     }
     else if (Dmixingflag == 1) {
         myM2Squarks = mySUSY.getMsd2();
     }
  
     int D = Dmixingflag;
     
     for (O = 1; O < 9; O++) {
         
         CLO.assign(0., 0.,0);
         
         if (O == 1) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi(i) * MChi(i), MChi(j)
                                     * MChi(j), 2) * VdUCL(b, k, j, D) * VdUCL(b, h, i, D)
                                     * VdUCL(q, h, j, D).conjugate()
                                     * VdUCL(q, k, i, D).conjugate();
                         }
                     }
                 }
             }
         }
         else if (O == 3) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) *
                                     VdUCR(q, k, j, 1, D).conjugate() *
                                     VdUCR(q, h, i, 1, D).conjugate() *
                                     VdUCL(b, k, i, D) * VdUCL(b, h, j, D) *
                                     D0N(myM2Squarks(k),
                                     myM2Squarks(h), MChi(i) * MChi(i),
                                     MChi(j) * MChi(j));
                         }
                     }
                 }
             }
         }
         else if (O == 4) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += 1. / (8. * M_PI * M_PI) * VdUCL(q, h, i, D).conjugate() *
                                     VdUCR(q, k, j, 1, D).conjugate() * VdUCL(b, k, i, D) *
                                     VdUCR(b, h, j, 1, D) * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi(i) * MChi(i), MChi(j)
                                     * MChi(j), 2);
                         }
                     }
                 }
             }
         }
         else if (O == 5) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / (16. * M_PI * M_PI) * VdUCL(q, k, j, D).conjugate() *
                                     VdUCR(q, h, i, 1, D).conjugate() * VdUCL(b, k, i, D) *
                                     VdUCR(b, h, j, 1, D) * D0N(myM2Squarks(k),
                                     myM2Squarks(h), MChi(i) * MChi(i), MChi(j)
                                     * MChi(j));
                         }
                     }
                 }
             }
         }
         else if (O == 6) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) * Dk(myM2Squarks(k),
                                     myM2Squarks(h), MChi(i) * MChi(i), MChi(j)
                                     * MChi(j), 2) * VdUCR(q, k, i, 1, D).conjugate() *
                                     VdUCR(q, h, j, 1, D).conjugate() * VdUCR(b, h, i, 1, D) *
                                     VdUCR(b, k, j, 1, D);
                         }
                     }
                 }
             }
         }
         else if (O == 8) {
             for (i = 0; i < 2; i++) {
                 for (j = 0; j < 2; j++) {
                     for (h = 0; h < 6; h++) {
                         for (k = 0; k < 6; k++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) * VdUCL(q, k, j, D).conjugate() *
                                     VdUCL(q, h, i, D).conjugate() * VdUCR(b, k, i, 1, D) *
                                     VdUCR(b, h, j, 1, D) *
                                     D0N(myM2Squarks(k), myM2Squarks(h),
                                     MChi(i) * MChi(i), MChi(j) * MChi(j));
                         }
                     }
                 }
             }
         }
         
         VCLO.assign(O - 1, CLO);
     }
  
     return (VCLO);
 }

◆ CdF2dgg()

gslpp::vector< gslpp::complex > SUSYMatching::CdF2dgg	(	int	b,
		int	q,
		int	Dmixingflag
	)

private

Computation Gluinos Box

Definition at line 1879 of file SUSYMatching.cpp.

                                                                              {
  
     gslpp::matrix<gslpp::complex> myR(6, 6, 0.);
     gslpp::vector<double> myM2Squarks(6, 0.);
     
     
     // Set the D - Dbar mixing flag
     // in D - Dbar mixing the flag = 1 otherwise the flag = 0
     
     if (Dmixingflag == 0) {
         myM2Squarks = mySUSY.getMsd2();
         myR = mySUSY.getRd();
     }
     else if (Dmixingflag == 1) {
         myM2Squarks = mySUSY.getMsu2();  
         
         /* in the D mixing Rd -> Ru^* , b -> c , q -> u */
         
         myR = mySUSY.getRu().hconjugate().transpose();
         
     }
     
     gslpp::complex CLO(0., 0., false);
     gslpp::vector<gslpp::complex> VCLO(8, 0.);
  
  
     double M2g = Mg*Mg;
     int h, k, O;
  
     
     for (O = 1; O < 9; O++) {
         
         CLO.assign(0., 0.,0);
         
         if (O == 1) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO +=  -Als * Als * 
                             myR(h, b) * myR(k, b)
                             * myR(h, q).conjugate() * myR(k, q).conjugate() * 
                             (1. / 9. * M2g *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0) +
                             11. / 9. * Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 2));
                 }
             }    
         }
         else if (O == 2) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += -Als * Als * 17. / 18. * M2g * myR(h, b)
                             * myR(k, b) * myR(h, q + 3).conjugate()
                             * myR(k, q + 3).conjugate() *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0);
                 }
             }
         }
         else if (O == 3) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += Als * Als * 1. / 6. * M2g * myR(h, b)
                             * myR(k, b) * myR(h, q + 3).conjugate()
                             * myR(k, q + 3).conjugate() *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0);
                 }
             }
         }
         else if (O == 4) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += -Als * Als * 7. / 3. * M2g * myR(h, b)
                             * myR(k, b + 3) * myR(h, q).conjugate()
                             * myR(k, q + 3).conjugate() *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0) +
                             Als * Als * 2. / 9. *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 2) 
                             * myR(h, b) * myR(k, b + 3) *
                             (6. * myR(h, q).conjugate() * myR(k, q + 3).conjugate()
                             + 11. * myR(k, q).conjugate() * myR(h, q + 3).conjugate())
                     ;
                 }
             }
         }
         else if (O == 5) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += -Als * Als * 1. / 9. * M2g * myR(h, b)
                             * myR(k, b + 3) * myR(h, q).conjugate()
                             * myR(k, q + 3).conjugate() *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0) +
                             Als * Als * 10. / 9. *
                             Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 2) 
                             * myR(h, b) * myR(k, b + 3) *
                             (3. * myR(k, q).conjugate() * myR(h, q + 3).conjugate()
                             - 2. * myR(h, q).conjugate() * myR(k, q + 3).conjugate())
                             ;
                 }
             }
         }
         else if (O == 6) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += -Als * Als * myR(h, b + 3) * myR(k, b + 3)
                            * myR(h, q + 3).conjugate() * myR(k, q + 3).conjugate() *
                            (1. / 9. * M2g * Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0) -
                            11. / 9. * Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 2));
                 }
             }
         }  
         else if (O == 7) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += -Als * Als * 17. / 18. * M2g * myR(h, b + 3)
                            * myR(k, b + 3) * myR(h, q).conjugate()
                            * myR(k, q).conjugate() *
                            Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0);
                 }
             }
         }
         else if (O == 8) {
             for (h = 0; h < 6; h++) {
                 for (k = 0; k < 6; k++) {
  
                     CLO += Als * Als * 1. / 6. * M2g * myR(h, b + 3)
                            * myR(k, b + 3) * myR(h, q).conjugate()
                            * myR(k, q).conjugate() *
                            Dk(myM2Squarks(h), myM2Squarks(k), M2g, M2g, 0);
                 }
             }
         }
  
  
           VCLO.assign(O - 1, CLO);
         
     }
         
     return (VCLO);
 }

◆ CdF2dHp()

gslpp::vector< gslpp::complex > SUSYMatching::CdF2dHp	(	int	b,
		int	q,
		int	Dmixingflag
	)

private

Computation of Charged Higgs contributions

The double Penguin contributions are calulated only for the B and K mixing

end double Penguin contribution

Definition at line 1662 of file SUSYMatching.cpp.

                                                                              {
  
     gslpp::vector<double> M2S(3,0.);
     gslpp::vector<double> MQuarks(6,0.);
     int i;
     
     // Set the D - Dbar mixing flag
     // in D - Dbar mixing the flag = 1 otherwise the flag = 0
     
     if (Dmixingflag == 0) {
         for (i = 0; i < 6; i++) {
             MQuarks(i) += mySUSYMQ(i);
         }
     }
     else if (Dmixingflag == 1) {
         for (i = 0; i < 3; i++) {   
             
             MQuarks(2 * i) += mySUSYMQ(2 * i + 1);
             MQuarks(2 * i + 1) += mySUSYMQ(2 * i);
         }
         myCKM.transpose();
     }
     else {
         throw std::runtime_error("Error in Dmixingflag in SUSYMatching.cpp. Flag can be either 0 or 1  ");
     }
  
     M2S(0) = mySUSY.getMHl() * mySUSY.getMHl(); 
     M2S(1) = mySUSY.getMHh() * mySUSY.getMHh();
     M2S(2) = mySUSY.getMHa() * mySUSY.getMHa();
  
     gslpp::vector<gslpp::complex> VCLO(8, 0.);
     gslpp::complex CLO(0.,0.,false);
     
     
     int I, J, k, l, S, O;
     double M2W = mySUSY.Mw_tree();
     double M2H = mySUSY.getMHp();
     double M2I;
     double M2J;
     M2W *= M2W;
     M2H *= M2H;
  
     gslpp::vector<double> M2Hk(2, 0);
     M2Hk(0) = M2H;
     M2Hk(1) = M2W;
     
     int D = Dmixingflag;
  
     for (O = 1; O < 9; O++) {
  
         CLO.assign(0., 0., 0);
  
         if (O == 1) {
             for (I = 0; I < 3; I++) {
                 M2I = MQuarks(2 * I);
                 M2I *= M2I;
  
                 for (J = 0; J < 3; J++) {
                     
                         M2J = MQuarks(2 * J);
                         M2J *= M2J;
                         CLO +=  gW * gW / (32. * M_PI * M_PI) *
                                 myCKM(I, q).conjugate() * myCKM(J, b) * PRLk(J, q, 0, D).conjugate() *
                                 PRLk(I, b, 0, D)  * D0N(M2W, M2W, M2I, M2J)
  
                                 -  1. / (32. * M_PI * M_PI) * PRLk(I, q, 0, D).conjugate() *
                                 PRLk(J, q, 0, D).conjugate() * PRLk(I, b, 0, D) * PRLk(J, b, 0, D) *
                                 Dk(M2W, M2W, M2I, M2J, 2)
  
                                 -  1. / (16. * M_PI * M_PI) * PRLk(I, q, 1, D).conjugate() *
                                 PRLk(J, q, 0, D).conjugate() * PRLk(I, b, 0, D) * PRLk(J, b, 1, D) *
                                 Dk(M2W, M2W, M2I, M2J, 2);
                 }
             }
         }
         else if (O == 2) {
             for (I = 1; I < 3; I++) {
                 M2I = MQuarks(2 * I);
                 M2I *= M2I;
  
                 for (J = 1; J < 3; J++) {
  
                     M2J = MQuarks(2 * J);
                     M2J *= M2J;
  
                     for (k = 0; k < 2; k++) {
                         for (l = 0; l < 2; l++) {
                    
                                     CLO +=  -1. / (32. * M_PI * M_PI) * PLRk(I, q, l, D).conjugate() *
                                     PLRk(J, q, k, D).conjugate() * PRLk(I, b, k, D) * PRLk(J, b, l, D) *
                                     D0N(M2Hk(k), M2Hk(l), M2I, M2J);
                                     
         
                         }
                     }
                 }
             }
         }
         else if (O == 4) {
             for (I = 0; I < 3; I++) {
                 M2I = MQuarks(2 * I);
                 M2I *= M2I;
  
                 for (J = 0; J < 3; J++) {
  
                     M2J = MQuarks(2 * J);
                     M2J *= M2J;
  
                     for (k = 0; k < 2; k++) {
  
  
                         CLO +=  gW * gW / (8. * M_PI * M_PI) *
                                 myCKM(I, q).conjugate() * myCKM(J, b) *
                                 PLRk(J, q, k, D).conjugate() * PLRk(I, b, k, D) *
                                 Dk(M2W, M2Hk(k), M2I, M2J, 2);
  
                        
                         
                         for (l = 0; l < 2; l++) {
  
                             CLO +=  -1. / (16. * M_PI * M_PI) * PLRk(I, q, l, D).conjugate() *
                                     PRLk(J, q, k, D).conjugate() * PRLk(I, b, k, D) *
                                     PLRk(J, b, l, D) * D0N(M2Hk(k), M2Hk(l), M2I, M2J);
                         }
                     }
                 }
             }
          
              if (D == 0) {
                 for (S = 0; S < 3; S++) {
  
                     CLO += -XRLS(q, b, S) * XLRS(q, b, S) / M2S(S);
  
                 }
             }
          
         }
         else if (O == 5) {
             for (I = 0; I < 3; I++) {
                 M2I = MQuarks(2 * I);  
                 M2I *= M2I;
  
                 for (J = 0; J < 3; J++) {
  
                     M2J = MQuarks(2 * J);
                     M2J *= M2J;
  
                     for (k = 0; k < 2; k++) {
                         for (l = 0; l < 2; l++) {
  
                             CLO += 1. / 8. * PRLk(I, q, l, D).conjugate() *
                                     PLRk(J, q, k, D).conjugate() * PRLk(I, b, k, D) *
                                     PLRk(J, b, l, D) * Dk(M2Hk(k), M2Hk(l), M2I, M2J, 2);                        
                         }
                     }
                 }
             }
         }
         else if (O == 6) {
             for (I = 0; I < 3; I++) {
                 M2I = MQuarks(2 * I);
                 M2I *= M2I;
  
                 for (J = 0; J < 3; J++) {
  
                     M2J = MQuarks(2 * J);
                     M2J *= M2J;
  
                     for (k = 0; k < 2; k++) {
                         for (l = 0; l < 2; l++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) * PLRk(I, q, k, D).conjugate() *
                                     PLRk(J, q, l, D).conjugate() * PLRk(I, b, k, D) *
                                     PLRk(J, b, l, D) * Dk(M2Hk(k), M2Hk(l), M2I, M2J, 2);
                    
                         }
                     }
                 }
             }
         }
         else if (O == 7) {
             for (I = 0; I < 3; I++) {
                 M2I = MQuarks(2 * I);
                 M2I *= M2I;
  
                 for (J = 0; J < 3; J++) {
  
                     M2J = MQuarks(2 * J);
                     M2J *= M2J;
  
                     for (k = 0; k < 2; k++) {
                         for (l = 0; l < 2; l++) {
  
                             CLO += -1. / (32. * M_PI * M_PI) * PRLk(I, q, l, D).conjugate() *
                                     PRLk(J, q, k, D).conjugate() * PLRk(I, b, k, D) * PLRk(J, b, l, D) 
                                     * D0N(M2Hk(k), M2Hk(l), M2I, M2J);      
                         
                         }
                     }
                 }
             }
         }
  
         VCLO.assign(O - 1,CLO);
         
     }
  
     return (VCLO);
 }

◆ Ck()

double SUSYMatching::Ck	(	double	x,
		double	y,
		double	z,
		int	k
	)

private

Definition at line 610 of file SUSYMatching.cpp.

                                                           {
  
     if ((fabs(1. - y / x) < SUSYLEPS)&(fabs(1. - z / x) < SUSYLEPS)) {
  
         return (CLL(x,k));
  
     }
     else if ((fabs(1. - y / x) < SUSYLEPS)) {
  
         return (CL(x,z,k));
  
     }
     else if ((fabs(1. - z / x) < SUSYLEPS)) {
  
         return (CL(x,y,k));
  
     }
     else if ((fabs(1. - z / y) < SUSYLEPS)) {
  
         return (CL(y,x,k));
  
     }
  
     if (k == 0) {
         return ((y * log(y / x)) / ((x - y)*(-y + z)) + (z * log(z / x)) /
                 ((x - z)*(y - z)));
     }
     else if (k == 2) {
         return (-log(mu2R) + log(x) + y * y * log(y / x) / ((x - y)*(-y + z)) 
                 + z * z * log(z / x) / ((x - z)*(y - z)));
     }
     else {
  
         throw std::runtime_error("Error in Ck(x,y,z,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
     
 }

◆ CL()

double SUSYMatching::CL	(	double	a,
		double	b,
		int	k
	)

private

Definition at line 569 of file SUSYMatching.cpp.

                                                  {
     
     if (k == 0) {
         return ((a - b - b * log(a) + b * log(b)) / ((a - b)*(a - b)));
  
     }
     else if (k == 2) {
  
         return (-log(mu2R) + (a * (a - b) + a * (a - 2 * b) * log(a) + b * b * log(b)) /
                 ((a - b)*(a - b)));
     }
     else {
  
         throw std::runtime_error("Error in CL(a,b,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ CLL()

double SUSYMatching::CLL	(	double	a,
		int	k
	)

private

Definition at line 588 of file SUSYMatching.cpp.

                                         {
     
     if (k == 0) {
         return (1. / (2. * a));
  
     }
     else if (k == 2) {
  
         return (-log(mu2R) + 1.5 + log(a));
     }
     else {
  
         throw std::runtime_error("Error in CLL(a,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ CMBMll()

std::vector< WilsonCoefficient > & SUSYMatching::CMBMll ( QCD::lepton lepton )

virtual

operator basis: current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic

Returns: Wilson coefficients, Misiak basis, for \( B \rightarrow X_{s} \gamma, l^{+} l{-} \)

Implements ModelMatching.

Definition at line 3480 of file SUSYMatching.cpp.

 {
     int lepton_pair;
     switch (lepton) {
         case QCD::ELECTRON:
             lepton_pair = 0;
             break;
         case QCD::MU:
             lepton_pair = 1;
             break;
         case QCD::TAU:
             lepton_pair = 2;
             break;
         case QCD::NOLEPTON:
             lepton_pair = 1; // NOLEPTON SET TO MUON. Ayan Paul
             break;
         case QCD::NEUTRINO_1:
         case QCD::NEUTRINO_2:
         case QCD::NEUTRINO_3:
             std::runtime_error("SUSYMatching::CMBMll(): LEPTON not implemented");
             break;
     } 
     vmcBMll = StandardModelMatching::CMBMll(lepton);
  
     switch (mcBMll.getScheme()) {
         case NDR:
             //case HV:
             //case LRI:
             break;
         default:
             std::stringstream out;
             out << mcBMll.getScheme();
             throw std::runtime_error("StandardModel::CMBKstrall(): scheme " + out.str() + "not implemented");
     }
  
     mcBMll.setMu(mySUSY.getMuw());
  
     switch (mcBMll.getOrder()) {
         case NNLO:
         case NLO:
         case LO:
             mcBMll.setCoeff(8, bsll_DeltaC9_SUSY(lepton_pair), LO);
             mcBMll.setCoeff(9, bsll_DeltaC10_SUSY(lepton_pair), LO);
             break;
         default:
             std::stringstream out;
             out << mcBMll.getOrder();
             throw std::runtime_error("StandardModelMatching::CMBKstrall(): order " + out.str() + "not implemented");
     }
  
     vmcBMll.push_back(mcBMll);
     return (vmcBMll);

◆ CMbsg()

std::vector< WilsonCoefficient > & SUSYMatching::CMbsg ( )

virtual

operator basis:

current current; qcd penguins; magnetic and chromomagnetic penguins; semileptonic

Parameters

a,a=0 deltaS=0 deltaC=0; a=1 deltaS=1 deltaC=0;

Returns: Wilson coefficients Buras base for non-leptonic B decays ‍/ virtual std::vector<WilsonCoefficient>& CMbnlep(const int& a);

/**

     @brief operator basis: - current current opertors  
     @param a, a=0 deltaS=0 deltaC=0;  a=1 1,0 ;  a=2 0,1 ; a=3 1,1 
     @return Wilson coefficients, Buras basis, for non-leptonic B decays 
    &zwj;/

virtual std::vector<WilsonCoefficient>& CMbnlepCC(const int& a);

/** 

   @brief operator basis: current current; qcd penguins; 
   magnetic and chromomagnetic penguins; semileptonic 
   @return Wilson coefficients, Misiak basis, for \f$ B \rightarrow X_{s} \gamma, l^{+} l{-} \f$

Implements ModelMatching.

Definition at line 3445 of file SUSYMatching.cpp.

 {
  
     vmcbsg = StandardModelMatching::CMbsg();
  
     switch (mcbsg.getScheme()) {
         case NDR:
  
             break;
         default:
             std::stringstream out;
             out << mcbsg.getScheme();
             throw std::runtime_error("SUSYMatching::CMbsg(): scheme " + out.str() + "not implemented");
     }
  
     mcbsg.setMu(mySUSY.getMuw());
  
     switch (mcbsg.getOrder()) {
         case NNLO:
         case NLO:
         case LO:
             mcbsg.setCoeff(6, bsll_DeltaC7_SUSY(), LO);
 //            mcbsg.setCoeff(7,, LO); "WE WILL THINK ABOUT THIS LATER" : MAURO VALLI & AYAN PAUL (I WANTED TO THINK ABOUT IT NOW...)
  
             break;
         default:
             std::stringstream out;
             out << mcbsg.getOrder();
             throw std::runtime_error("SUSYMatching::CMbsg(): order " + out.str() + "not implemented");
     }
  
     vmcbsg.push_back(mcbsg);
     return (vmcbsg);

◆ CMdbd2()

std::vector< WilsonCoefficient > & SUSYMatching::CMdbd2 ( )

virtual

\( \Delta B = 2 \), \( B_{d} \)

Returns: return the vector of SUSY Wilson coefficients

Wilson coefficients of operator Q_1,2,3,4,5

Wilson coefficients of operator Q_1,2,3 tilde

Reimplemented from StandardModelMatching.

Definition at line 2570 of file SUSYMatching.cpp.

                                                    {
  
     int i;
     gslpp::vector<gslpp::complex> CdF2dHpT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dggT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChiChiT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChi0Chi0T(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChigT(8, 0.);
  
     if (mySUSY.IsFlag_h()) CdF2dHpT = CdF2dHp(0, 2, 0);
     if (mySUSY.IsFlag_ch()) CdF2dChiChiT = CdF2dChiChi(0, 2, 0);
     if (mySUSY.IsFlag_g()) CdF2dggT = CdF2dgg(0, 2, 0);
     if (mySUSY.IsFlag_ne()) CdF2dChi0Chi0T = CdF2dChi0Chi0(0, 2, 0);
     if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) CdF2dChigT = CdF2dChi0g(0, 2, 0);
     
     vmdbd2 = StandardModelMatching::CMdbd2();
     
     switch (mcdbd2Hp.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdbd2Hp.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbd2Hp.setCoeff(i, CdF2dHpT(i), LO);
                 }
                 vmdbd2.push_back(mcdbd2Hp);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2gg.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
  
                 mcdbd2gg.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbd2gg.setCoeff(i, CdF2dggT(i), LO);
                 }
                 vmdbd2.push_back(mcdbd2gg);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2ChiChi.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdbd2ChiChi.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbd2ChiChi.setCoeff(i, CdF2dChiChiT(i), LO);
                 }
                 vmdbd2.push_back(mcdbd2ChiChi);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2Chi0Chi0.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
                 mcdbd2Chi0Chi0.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbd2Chi0Chi0.setCoeff(i, CdF2dChi0Chi0T(i), LO);
                 }
                 vmdbd2.push_back(mcdbd2Chi0Chi0);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2Chi0g.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdbd2Chi0g.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                 mcdbd2Chi0g.setCoeff(i, CdF2dChigT(i), LO);
                 }
                 vmdbd2.push_back(mcdbd2Chi0g);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     
     switch (mcdbd2HpT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdbd2HpT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbd2HpT.setCoeff(i, CdF2dHpT(i + 5), LO);
                 }
                 vmdbd2.push_back(mcdbd2HpT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2ggT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
  
                 mcdbd2ggT.setMu(Q_S);
                 for(i = 0; i < 3 ; i++){
                 mcdbd2ggT.setCoeff(i, CdF2dggT(i + 5), LO);
                 }
                 vmdbd2.push_back(mcdbd2ggT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2ChiChiT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdbd2ChiChiT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbd2ChiChiT.setCoeff(i, CdF2dChiChiT(i + 5), LO);
                 }
                 vmdbd2.push_back(mcdbd2ChiChiT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2Chi0Chi0T.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
  
                 mcdbd2Chi0Chi0T.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbd2Chi0Chi0T.setCoeff(i, CdF2dChi0Chi0T(i + 5), LO);
                 }
                 vmdbd2.push_back(mcdbd2Chi0Chi0T);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
     }
     switch (mcdbd2Chi0gT.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdbd2Chi0gT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbd2Chi0gT.setCoeff(i, CdF2dChigT(i + 5), LO);
                 }
                 vmdbd2.push_back(mcdbd2Chi0gT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbd2()");
  
     }
     
     return (vmdbd2);
 }

◆ CMdbs2()

std::vector< WilsonCoefficient > & SUSYMatching::CMdbs2 ( )

virtual

\( \Delta B = 2 \), \( B_{s} \)

Returns: return the vector of SUSY Wilson coefficients

Wilson coefficients of operator Q_1,2,3,4,5

Wilson coefficients of operator Q_1,2,3 tilde

Reimplemented from StandardModelMatching.

Definition at line 2772 of file SUSYMatching.cpp.

                                                    {
     int i;
     gslpp::vector<gslpp::complex> CdF2dHpT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dggT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChiChiT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChi0Chi0T(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChigT(8, 0.);
     
     if (mySUSY.IsFlag_h()) CdF2dHpT = CdF2dHp(1, 2, 0);
     if (mySUSY.IsFlag_ch()) CdF2dChiChiT = CdF2dChiChi(1, 2, 0);
     if (mySUSY.IsFlag_g()) CdF2dggT = CdF2dgg(1, 2, 0);  
     if (mySUSY.IsFlag_ne()) CdF2dChi0Chi0T = CdF2dChi0Chi0(1, 2, 0);
     if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) CdF2dChigT = CdF2dChi0g(1, 2, 0);
     
     vmdbs2 = StandardModelMatching::CMdbs2();
  
     switch (mcdbs2Hp.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdbs2Hp.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbs2Hp.setCoeff(i, CdF2dHpT(i), LO);
                 }
                 vmdbs2.push_back(mcdbs2Hp);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2gg.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
                 mcdbs2gg.setMu(Q_S);
                 for(i = 0; i < 5 ; i++){
                 mcdbs2gg.setCoeff(i, CdF2dggT(i), LO);
                 }
                 vmdbs2.push_back(mcdbs2gg);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2ChiChi.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdbs2ChiChi.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbs2ChiChi.setCoeff(i, CdF2dChiChiT(i), LO);
                 }
                 vmdbs2.push_back(mcdbs2ChiChi);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2Chi0Chi0.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
                 mcdbs2Chi0Chi0.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbs2Chi0Chi0.setCoeff(i, CdF2dChi0Chi0T(i), LO);
                 }
                 vmdbs2.push_back(mcdbs2Chi0Chi0);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2Chi0g.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdbs2Chi0g.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdbs2Chi0g.setCoeff(i, CdF2dChigT(i), LO);
                 }
                 vmdbs2.push_back(mcdbs2Chi0g);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
   
     switch (mcdbs2HpT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdbs2HpT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbs2HpT.setCoeff(i, CdF2dHpT(i + 5), LO);
                 }
                 vmdbs2.push_back(mcdbs2HpT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2ggT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
                 mcdbs2ggT.setMu(Q_S);
                 for(i = 0; i < 3 ; i++){
                 mcdbs2ggT.setCoeff(i, CdF2dggT(i + 5), LO);
                 }
                 vmdbs2.push_back(mcdbs2ggT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2ChiChiT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdbs2ChiChiT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbs2ChiChiT.setCoeff(i, CdF2dChiChiT(i + 5), LO);
                 }
                 vmdbs2.push_back(mcdbs2ChiChiT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2Chi0Chi0T.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
                 mcdbs2Chi0Chi0T.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbs2Chi0Chi0T.setCoeff(i, CdF2dChi0Chi0T(i + 5), LO);
                 }
                 vmdbs2.push_back(mcdbs2Chi0Chi0T);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     switch (mcdbs2Chi0gT.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdbs2Chi0gT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdbs2Chi0gT.setCoeff(i, CdF2dChigT(i + 5), LO);
                 }
                 vmdbs2.push_back(mcdbs2Chi0gT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdbs2()");
     }
     
     
     return (vmdbs2);
 }

◆ CMdk2()

std::vector< WilsonCoefficient > & SUSYMatching::CMdk2 ( )

virtual

\( \Delta C = 2 \),

Returns: return the vector of SUSY Wilson coefficients ‍/ virtual std::vector<WilsonCoefficient>& CMdd2();

/**

\( \Delta S = 2 \)

Returns: return the vector of SUSY Wilson coefficients

Wilson coefficients of operator Q_1,2,3,4,5

Wilson coefficients of operator Q_1,2,3 tilde

Definition at line 2970 of file SUSYMatching.cpp.

                                                   {
  
     int i;
     gslpp::vector<gslpp::complex> CdF2dHpT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dggT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChiChiT(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChi0Chi0T(8, 0.);
     gslpp::vector<gslpp::complex> CdF2dChigT(8, 0.);
     
     if (mySUSY.IsFlag_h()) CdF2dHpT = CdF2dHp(0, 1, 0);
     if (mySUSY.IsFlag_ch()) CdF2dChiChiT = CdF2dChiChi(0, 1, 0);
     if (mySUSY.IsFlag_g()) CdF2dggT = CdF2dgg(0, 1, 0);
     if (mySUSY.IsFlag_ne()) CdF2dChi0Chi0T = CdF2dChi0Chi0(0, 1, 0);
     if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) CdF2dChigT = CdF2dChi0g(0, 1, 0);
     
     vmdk2 = StandardModelMatching::CMdk2();
  
     switch (mcdk2Hp.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdk2Hp.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdk2Hp.setCoeff(i, CdF2dHpT(i), LO);
                 }
                 vmdk2.push_back(mcdk2Hp);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2gg.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
                 mcdk2gg.setMu(Q_S);
                 for(i = 0; i < 5 ; i++){
                 mcdk2gg.setCoeff(i, CdF2dggT(i), LO);
                 }
                 vmdk2.push_back(mcdk2gg);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2ChiChi.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdk2ChiChi.setMu(Q_S);
                 for (i = 0; i < 5; i++) {
                     mcdk2ChiChi.setCoeff(i, CdF2dChiChiT(i), LO);
                 }
                 vmdk2.push_back(mcdk2ChiChi);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2Chi0Chi0.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
                 mcdk2Chi0Chi0.setMu(Q_S);    
                 for (i = 0; i < 5; i++) {
                     mcdk2Chi0Chi0.setCoeff(i, CdF2dChi0Chi0T(i), LO);
                 }
                 vmdk2.push_back(mcdk2Chi0Chi0);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2Chi0g.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdk2Chi0g.setMu(Q_S);    
                 for (i = 0; i < 5; i++) {
                     mcdk2Chi0g.setCoeff(i, CdF2dChigT(i), LO);
                 }
                 vmdk2.push_back(mcdk2Chi0g);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     
     switch (mcdk2HpT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_h()) {
                 mcdk2HpT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdk2HpT.setCoeff(i, CdF2dHpT(i + 5), LO);
                 }
                 vmdk2.push_back(mcdk2HpT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2ggT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_g()) {
                 mcdk2ggT.setMu(Q_S);
                 for(i = 0; i < 3 ; i++){
                 mcdk2ggT.setCoeff(i, CdF2dggT(i + 5), LO);
                 }
                 vmdk2.push_back(mcdk2ggT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2ChiChiT.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ch()) {
                 mcdk2ChiChiT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdk2ChiChiT.setCoeff(i, CdF2dChiChiT(i + 5), LO);
                 }
                 vmdk2.push_back(mcdk2ChiChiT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2Chi0Chi0T.getOrder()) {
         case NLO:
         case LO:
             if (mySUSY.IsFlag_ne()) {
                 mcdk2Chi0Chi0T.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdk2Chi0Chi0T.setCoeff(i, CdF2dChi0Chi0T(i + 5), LO);
                 }
                 vmdk2.push_back(mcdk2Chi0Chi0T);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     switch (mcdk2Chi0gT.getOrder()) {
         case NLO:
         case LO:
             if ((mySUSY.IsFlag_g()) || (mySUSY.IsFlag_ne())) {
                 mcdk2Chi0gT.setMu(Q_S);
                 for (i = 0; i < 3; i++) {
                     mcdk2Chi0gT.setCoeff(i, CdF2dChigT(i + 5), LO);
                 }
                 vmdk2.push_back(mcdk2Chi0gT);
             }
             break;
         case FULLNLO:
         case NNLO:
         case FULLNNLO:
         default:
             throw std::runtime_error("Error in SUSYMatching::CMdk2()");
     }
     
     
     return (vmdk2);
 }

◆ CMDLi3j()

std::vector< WilsonCoefficient > & SUSYMatching::CMDLi3j ( int li_lj )

virtual

Wilson coefficient for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Parameters

[in] li_lj determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of SUSY Wilson coefficients

Definition at line 7566 of file SUSYMatching.cpp.

                                                              {
  
     vmcDLi3j = StandardModelMatching::CMDLi3j(li_lj);
  
     gslpp::vector<gslpp::complex> Avector=AFunctions(li_lj);
     gslpp::vector<gslpp::complex> Bvector=BFunctions(li_lj);
     gslpp::vector<gslpp::complex> BHvector=BHFunctions(li_lj);
     gslpp::vector<gslpp::complex> Fvector=FFunctions(li_lj);
     switch (mcDLi3j.getOrder()) {
         case LO:
 //            mcDLi3j.setCoeff(0, C7_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(1, C7_Lepton(li_lj)(1), LO);
 //            mcDLi3j.setCoeff(2, C9_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(3, C9_Lepton(li_lj)(1), LO);
 //            mcDLi3j.setCoeff(4, C10_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(5, C10_Lepton(li_lj)(1), LO);
 //            mcDLi3j.setCoeff(6, CS_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(7, CS_Lepton(li_lj)(1), LO);
 //            mcDLi3j.setCoeff(8, CP_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(9, CP_Lepton(li_lj)(1), LO);
 //            mcDLi3j.setCoeff(10, CT_Lepton(li_lj)(0), LO);
 //            mcDLi3j.setCoeff(11, CT_Lepton(li_lj)(1), LO);
             mcDLi3j.setCoeff(0, Avector(0), LO);      //A1R
             mcDLi3j.setCoeff(1, Avector(1), LO);      //A1L
             mcDLi3j.setCoeff(2, Avector(2), LO);      //A2R
             mcDLi3j.setCoeff(3, Avector(3), LO);      //A2L
             mcDLi3j.setCoeff(4, Bvector(0), LO);      //B1R
             mcDLi3j.setCoeff(5, Bvector(1), LO);      //B1L
             mcDLi3j.setCoeff(6, Bvector(2), LO);      //B2R
             mcDLi3j.setCoeff(7, Bvector(3), LO);      //B2L
             mcDLi3j.setCoeff(8, Bvector(4), LO);      //B3R
             mcDLi3j.setCoeff(9, Bvector(5), LO);      //B3L
             mcDLi3j.setCoeff(10, Bvector(6), LO);     //B4R
             mcDLi3j.setCoeff(11, Bvector(7), LO);     //B4L
             mcDLi3j.setCoeff(12, BHvector(0), LO);    //BH2R
             mcDLi3j.setCoeff(13, BHvector(1), LO);    //BH2L
             mcDLi3j.setCoeff(14, BHvector(2), LO);    //BH3R
             mcDLi3j.setCoeff(15, BHvector(3), LO);    //BH3L
             mcDLi3j.setCoeff(16, Fvector(0), LO);     //FRR
             mcDLi3j.setCoeff(17, Fvector(1), LO);     //FRL
             mcDLi3j.setCoeff(18, Fvector(2), LO);     //FLR
             mcDLi3j.setCoeff(19, Fvector(3), LO);     //FLL
             break;
         case NNLO:
         case NLO:
         default:
             std::stringstream out;
             out << mcDLi3j.getOrder();
             throw std::runtime_error("SUSYMatching::CMDLi3j(): order " + out.str() + " not implemented.\nFor lepton flavour violating observables only Leading Order (LO) necessary.");
     }
  
     vmcDLi3j.push_back(mcDLi3j);
     return(vmcDLi3j);
  

◆ CMDLij()

std::vector< WilsonCoefficient > & SUSYMatching::CMDLij ( int li_lj )

virtual

Wilson coefficient for the process \( \ell_j \to \ell_i \gamma \).

Parameters

[in] li_lj determines the process, e.g., 1 = \( \mu \to e \gamma \), 2 = \( \tau \to \mu \gamma \), 3 = \( \tau \to e \gamma \)

Returns: returns the vector of SUSY Wilson coefficients

Definition at line 7543 of file SUSYMatching.cpp.

                                                             {
  
     vmcDLij = StandardModelMatching::CMDLij(li_lj);
  
     gslpp::vector<gslpp::complex> C7vector=C7_Lepton(li_lj);
     switch (mcDLij.getOrder()) {
         case LO:
             mcDLij.setCoeff(0, C7vector(0), LO);
             mcDLij.setCoeff(1, C7vector(1), LO);
             break;
         case NNLO:
         case NLO:
         default:
             std::stringstream out;
             out << mcDLij.getOrder();
             throw std::runtime_error("SUSYMatching::CMDLij(): order " + out.str() + " not implemented.\nFor lepton flavour violating observables only Leading Order (LO) necessary.");
     }
  
     vmcDLij.push_back(mcDLij);
     return(vmcDLij);
  

◆ CMgminus2mu()

std::vector< WilsonCoefficient > & SUSYMatching::CMgminus2mu ( )

virtual

Wilson coefficient for \( (g-2)_{\mu} \) at one-loop.

Returns: returns the vector of SUSY Wilson coefficients

Definition at line 7656 of file SUSYMatching.cpp.

                                                         {
  
     vmcgminus2mu = StandardModelMatching::CMgminus2mu();
  
     gslpp::vector<gslpp::complex> gminus2muvector=gminus2mu();
 //    std::cout<<"gminus2muvector in the Wilson coeff"<<gminus2muvector<<std::endl;
     double gminus2muvectorNLO=gminus2muNLO();
     switch (mcgminus2mu.getOrder()) {
         case LO:
             mcgminus2mu.setCoeff(0, gminus2muvector(0), LO);  //g-2_muR
             mcgminus2mu.setCoeff(1, gminus2muvector(1), LO);  //g-2_muL
             break;
         case NLO:
             mcgminus2mu.setCoeff(0, gminus2muvectorNLO, NLO);  //g-2_muR
             mcgminus2mu.setCoeff(1, 0., NLO);  //g-2_muL
             break;
         case NNLO:
         default:
             std::stringstream out;
             out << mcgminus2mu.getOrder();
             throw std::runtime_error("SUSYMatching::CMgminus2mu(): order " + out.str() + " not implemented.\nFor lepton flavour violating observables only Leading Order (LO) necessary.");
     }
  
     vmcgminus2mu.push_back(mcgminus2mu);
     return(vmcgminus2mu);
  

◆ CMmueconv()

std::vector< WilsonCoefficient > & SUSYMatching::CMmueconv ( )

virtual

Wilson coefficient for the process \( \mu \to e \) conversion in Nuclei.

Returns: returns the vector of SUSY Wilson coefficients

Definition at line 7622 of file SUSYMatching.cpp.

                                                       {
  
     double MW = mySUSY.Mw_tree();
     double sw2 = mySUSY.StandardModel::sW2(MW);
  
     vmcmueconv = StandardModelMatching::CMmueconv();
  
     gslpp::vector<gslpp::complex> Avector=AFunctions(1);
     gslpp::vector<gslpp::complex> Dvector=DFunctions();
     gslpp::vector<gslpp::complex> Fvector=FFunctions(1);
     switch (mcmueconv.getOrder()) {
         case LO:
             mcmueconv.setCoeff(0, Avector(0), LO);                                        //A1R
             mcmueconv.setCoeff(1, Avector(1), LO);                                        //A1L
             mcmueconv.setCoeff(2, Avector(2), LO);                                        //A2R
             mcmueconv.setCoeff(3, Avector(3), LO);                                        //A2L
             mcmueconv.setCoeff(4, Dvector(0)+(1.0/(4.0*sw2)-2.0/3.0)*Fvector(0), LO);     //DbaruR
             mcmueconv.setCoeff(5, Dvector(1)+(1.0/(4.0*sw2)-2.0/3.0)*Fvector(2), LO);     //DbaruL
             mcmueconv.setCoeff(6, Dvector(2)+(-1.0/(4.0*sw2)+1.0/3.0)*Fvector(0), LO);    //DbardR
             mcmueconv.setCoeff(7, Dvector(3)+(-1.0/(4.0*sw2)+1.0/3.0)*Fvector(2), LO);    //DbardL
             break;
         case NNLO:
         case NLO:
         default:
             std::stringstream out;
             out << mcmueconv.getOrder();
             throw std::runtime_error("SUSYMatching::CMmueconv(): order " + out.str() + " not implemented.\nFor lepton flavour violating observables only Leading Order (LO) necessary.");
     }
  
     vmcmueconv.push_back(mcmueconv);
     return(vmcmueconv);
  

◆ Comp_DeltaDL()

void SUSYMatching::Comp_DeltaDL ( )

Definition at line 807 of file SUSYMatching.cpp.

                                 {
  
     int I, J;
     gslpp::complex C(0., 0., false);
  
     for (I = 0; I < 3; I++) {
         for (J = 0; J < 3; J++) {
             if (J != I) {
                 double mdJ = mySUSYMQ(2 * J + 1);
                 double mdI = mySUSYMQ(2 * I + 1);
                 DeltaDL_Cache.assign(J, I, -(mdJ * DeltaMd(J, I) + DeltaMd(I, J).conjugate() * mdI) /
                         (mdJ * mdJ - mdI * mdI));
             } else
                 if (J == I) {
                 DeltaDL_Cache.assign(J, I, C);
             }
  
         }
  
     }
     
 }

◆ Comp_DeltaMd()

void SUSYMatching::Comp_DeltaMd ( )

Large tan beta correction to CKM, down-quark mass

Definition at line 711 of file SUSYMatching.cpp.

                                 {
  
     gslpp::vector<double> myMU2Squarks(6, 0.);
     gslpp::vector<double> myMD2Squarks(6, 0.);
     myMU2Squarks = mySUSY.getMsu2();
     myMD2Squarks = mySUSY.getMsd2();
  
     int k, l, I, J;//, i, j;
     
     for (J = 0; J < 3; J++) {
         for (I = 0; I < 3; I++) {
  
             gslpp::complex temp(0., 0., false);
  
             for (k = 0; k < 6; k++) {
  
                 temp += -2. / 3. * Als / M_PI * Mg * myRd(k, J + 3).conjugate()
                         * myRd(k, I) * Bk(Mg * Mg, myMD2Squarks(k), 0);
  
             }
           
             for (k = 0; k < 6; k++) {
                 for (l = 0; l < 4; l++) {
  
                     temp +=  1. / (16. * M_PI * M_PI) * VdDNR(J, k, l, 0).conjugate()
                             * VdDNL(I, k, l, 0)
                             * MChi0(l) * Bk(MChi0(l) * MChi0(l), myMD2Squarks(k), 0);
                 }
  
             }
             
             for (k = 0; k < 6; k++) {
                 for (l = 0; l < 2; l++) {
  
                     temp += 1. / (16. * M_PI * M_PI) * VdUCR(J, k, l, 0).conjugate() * VdUCL(I, k, l) *
                             MChi(l) * Bk(MChi(l) * MChi(l), myMU2Squarks(k), 0);
                 }
             }
             
             DeltaMd_cache.assign(J, I, temp);
         }
     }
 } 

◆ Comp_Eps_J()

void SUSYMatching::Comp_Eps_J ( )

Tan beta corrections to down quark masses

Definition at line 763 of file SUSYMatching.cpp.

                               {
     
     for (int J = 0; J < 3; J++) {
  
         Eps_JCache.assign(J, DeltaMd(J, J) / (tanb * mySUSYMQ(2 * J + 1)));
     }
 }

◆ Comp_Lambda0EpsY()

void SUSYMatching::Comp_Lambda0EpsY ( )

Definition at line 777 of file SUSYMatching.cpp.

                                    {
     
     int I,J;
     double mtop = mySUSYMQ(4);
     
     for( I = 0;I < 3;I++){
         for( J = 0;J < 3;J++){
             
             Lambda0EpsYCache.assign(J,I,DeltaMd(J,I)/(tanb
             * mySUSYMQ(2 * J + 1)) /( 2 /(v2 * v2)  
             * mtop * mtop ));
         }
     }
 }

◆ Comp_mySUSY_CKM()

void SUSYMatching::Comp_mySUSY_CKM ( )

Definition at line 843 of file SUSYMatching.cpp.

                                    {
  
     gslpp::complex Delta_CKM_IJ(0.,0.,false);
     
     int l, I, J;
  
     for (I = 0; I < 3; I++) {
         for (J = 0; J < 3; J++) {
             
             for (l = 0; l < 3; l++) {
  
                 Delta_CKM_IJ += myCKM(I, l) * DeltaDL(l, J);
                 
             }
             
             myCKM_cache.assign(I, J, myCKM(I, J) - Delta_CKM_IJ);
             Delta_CKM_IJ.assign(0.,0.,0);
            
         }
     }    
 }

◆ Comp_mySUSYMQ()

void SUSYMatching::Comp_mySUSYMQ ( )

Quark Masses run to the SUSY scale Q

Definition at line 698 of file SUSYMatching.cpp.

                                  {
     
         mySUSYMQ(0) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.UP).getMass_scale(),mySUSY.getQuarks(mySUSY.UP).getMass());
         mySUSYMQ(1) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.DOWN).getMass_scale(),mySUSY.getQuarks(mySUSY.DOWN).getMass());
         mySUSYMQ(2) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.CHARM).getMass());
         mySUSYMQ(3) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.STRANGE).getMass_scale(),mySUSY.getQuarks(mySUSY.STRANGE).getMass());
         mySUSYMQ(4) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.TOP).getMass());
         mySUSYMQ(5) = mySUSY.Mrun(Q_S,mySUSY.getQuarks(mySUSY.BOTTOM).getMass());
 }

◆ Comp_PHLR()

void SUSYMatching::Comp_PHLR ( )

Computation of charged Higgs - quark vertex

Definition at line 1319 of file SUSYMatching.cpp.

                             {
  
     gslpp::complex PHLR(0., 0., false);
     int k;
     int i, j;
     for (i = 0; i < 3; i++) {
         for (j = 0; j < 3; j++) {
  
  
  
             PHLR += myCKM(j, i) *
                     mySUSYMQ(2 * i + 1) / (1. + Eps_J(i) * tanb);
  
             for (k = 0; k < 3; k++) {
  
                 PHLR += myCKM(j, k) * mySUSYMQ(2 * k + 1) /
                         (1. + Eps_J(k) * tanb) * DeltaDR(k, i) - myCKM(j, k) *
                         DeltaDL(k, i) * mySUSYMQ(2 * i + 1) /
                         (1. + Eps_J(i) * tanb);
                 
             }
  
             PHLR *= sqrt(2.) / mySUSY.v() * tanb;
  
             PHLRCache.assign(j,i,PHLR);
             PHLR.assign(0.,0.,0);
         }
     }     
 }

◆ Comp_PHRL()

void SUSYMatching::Comp_PHRL ( )

Definition at line 1461 of file SUSYMatching.cpp.

                             {
     
     int i, j;
     for (i = 0; i < 3; i++) {
         for (j = 0; j < 3; j++) {
  
             PHRLCache.assign(j, i, sqrt(2.) / (v * tanb) *
             mySUSYMQ(2 * j) * myCKM(j, i) + DeltaFHL(j, i));
         }
     }
 }

◆ Comp_VdDNL()

void SUSYMatching::Comp_VdDNL ( int flag )

Computation of down quark - down squark - neutralino vertex

Definition at line 959 of file SUSYMatching.cpp.

                                      {
     
     gslpp::complex VdDNL_bkj(0., 0., false);
     /* tree-level cW2 */
     double cW2 = mySUSY.Mw_tree()*mySUSY.Mw_tree()/mySUSY.getMz()/mySUSY.getMz();
     /* SM value for cW2 in the on-shell scheme */
     //double cW2 = mySUSY.StandardModel::cW2();
     /* MSSM value for cW2 in the on-shell scheme */
     //double cW2 = mySUSY.cW2();
     double sW2 = 1.0 - cW2;
     double CosThetaW = sqrt(cW2);
     double SinThetaW = sqrt(sW2);
     int l, b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 4; j++) {
                 
                     if(flag==1) {
  
                             VdDNL_bkj += (-gW / sqrt(2.) * myRd(k, b) * (1. / 3.
                                     * SinThetaW / CosThetaW * myN(j, 0).conjugate() -
                                     myN(j, 1).conjugate()) - sqrt(2.) / v1
                                     * mySUSYMQ(2 * b + 1) /
                                     (1. + Eps_J(b) * tanb)
                                     * myRd(k, b + 3) * myN(j, 2).conjugate());
                             
                             for (l = 0; l < 3; l++) {
  
                                 // correzione vertici neutralini calcolate seguendo le indicazioni di Buras    
  
                                 VdDNL_bkj += (-gW / sqrt(2.) * myRd(k, l) * (1. / 3.
                                         * SinThetaW / CosThetaW * myN(j, 0).conjugate() -
                                         myN(j, 1).conjugate()) - sqrt(2.) / v1
                                         * mySUSYMQ(2 * l + 1) /
                                         (1. + Eps_J(l)* tanb)
                                         * myRd(k, l + 3) * myN(j, 2).conjugate())
                                         *DeltaDL(l, b);
                             }
                         }
  
                     if(flag==0){
                             
                             VdDNL_bkj += -gW / sqrt(2.) * myRd(k, b) * (1. / 3.
                                     * SinThetaW / CosThetaW * myN(j, 0).conjugate() -
                                     myN(j, 1).conjugate()) - sqrt(2.) / v1
                                     * mySUSYMQ(2 * b + 1)
                                     * myRd(k, b + 3) * myN(j, 2).conjugate();
  
                     }
  
                     VdDNL_cache[b][k][j][flag] = VdDNL_bkj;
                     VdDNL_bkj.assign(0., 0., 0);
  
             }
  
         }
     }
     
     if(flag != 0 && flag != 1) throw std::runtime_error("Error in Comp_VdDNL(flag) in SUSYMatching.cpp  ");
 }

◆ Comp_VdDNR()

void SUSYMatching::Comp_VdDNR ( int flag )

Definition at line 1031 of file SUSYMatching.cpp.

                                       {
  
     gslpp::complex VdDNR_bkj(0., 0., false);
     /* tree-level cW2 */
     double cW2 = mySUSY.Mw_tree()*mySUSY.Mw_tree()/mySUSY.getMz()/mySUSY.getMz();
     /* SM value for cW2 in the on-shell scheme */
     //double cW2 = mySUSY.StandardModel::cW2();
     /* MSSM value for cW2 in the on-shell scheme */
     //double cW2 = mySUSY.cW2();
     double sW2 = 1.0 - cW2;
     
     double CosThetaW = sqrt(cW2);
     double SinThetaW = sqrt(sW2);
     int l, b, k, j;
     
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 4; j++) {
  
                         if(flag==1){
  
                             VdDNR_bkj += -sqrt(2.) / 3. * gW * SinThetaW / CosThetaW *
                                     myRd(k, b + 3) * myN(j, 0) - sqrt(2.) / v1
                                     * mySUSYMQ(2 * b + 1) /
                                     (1. + Eps_J(b) * tanb) * myRd(k, b) *
                                     myN(j, 2);
  
                             for (l = 0; l < 3; l++) {
  
                                 // correzione vertici neutralini calcolate seguendo le indicazioni di Buras   
  
                                 VdDNR_bkj += (-sqrt(2.) / 3. * gW * SinThetaW / CosThetaW *
                                         myRd(k, l + 3) * myN(j, 0) - sqrt(2.) / v1
                                         * mySUSYMQ(2 * l + 1) /
                                         (1. + Eps_J(l) * tanb) * myRd(k, l) *
                                         myN(j, 2)) * DeltaDR(l, b);
                             }
                         }
  
                         if(flag==0){
                             VdDNR_bkj += -sqrt(2.) / 3. * gW * SinThetaW / CosThetaW *
                                         myRd(k, b + 3) * myN(j, 0) - sqrt(2.) / v1
                                         * mySUSYMQ(2 * b + 1)* myRd(k, b) * myN(j, 2);
                         }
                    
                     VdDNR_cache[b][k][j][flag] = VdDNR_bkj;
                     VdDNR_bkj.assign(0., 0., 0);
  
             }
         }
     }
     
     if(flag != 0 && flag != 1) throw std::runtime_error("Error in Comp_VdDNR(flag) in SUSYMatching.cpp  "); 
     
 }

◆ Comp_VdUCL()

void SUSYMatching::Comp_VdUCL ( )

Computation of down quark - up squark - chargino vertex

Definition at line 875 of file SUSYMatching.cpp.

                               {
  
  
     gslpp::complex VdUCL_bkj(0., 0., false);
     int l, b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 2; j++) {
  
  
                 for (l = 0; l < 3; l++) {
                     VdUCL_bkj += -gW * myRu(k, l) * myCKM(l, b) * myV(j, 0).conjugate()
                             + sqrt(2.) / v2 * mySUSYMQ(2 * l)
                             * myRu(k, l + 3) * myV(j, 1).conjugate() * myCKM(l, b);
                 }
  
                 VdUCL_cache[b][k][j] = VdUCL_bkj;
                 VdUCL_bkj.assign(0., 0., 0);
  
             }
         }
     }
 }

◆ Comp_VdUCR()

void SUSYMatching::Comp_VdUCR ( int flag )

Definition at line 909 of file SUSYMatching.cpp.

                                       {
  
     gslpp::complex VdUCR_bkj(0., 0., false);
     gslpp::complex Ydb(0., 0., false);
     gslpp::complex Ydp(0., 0., false);
     int l, p, b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 2; j++) {
                 for (l = 0; l < 3; l++) {
                     if(flag == 1) {
                         Ydb = mySUSYMQ(2 * b + 1) * sqrt(2.) / v1 /(1. + Eps_J(b)*tanb) ;
                         VdUCR_bkj += Ydb * myCKM(l, b) * myRu(k, l) * myU(j, 1);
                        
                         for (p = 0; p < 3; p++) {
                             Ydp = mySUSYMQ(2 * p + 1)* sqrt(2.) / v1 /(1. + Eps_J(p)* tanb) ;
                             VdUCR_bkj += (myCKM(l, p)*(Ydp * DeltaDR(p, b) 
                                     - DeltaDL(p, b) * Ydb) * myRu(k, l) * myU(j, 1));  
                         }
                               
                     }
                     else if(flag == 0){
                             Ydb = mySUSYMQ(2 * b + 1) * sqrt(2.) / v1;
                             VdUCR_bkj += Ydb * myRu(k, l) * myU(j, 1)
                                     * myCKM(l, b);
                     }
                     
                     else{throw std::runtime_error("Wrong flag assigned to vertex VdUCR_bkj å");}
                     
                 }
  
                 VdUCR_cache[b][k][j][flag] = VdUCR_bkj;
                 VdUCR_bkj.assign(0., 0., 0);
  
             }
         }
     }
 }

◆ Comp_VuDCL()

void SUSYMatching::Comp_VuDCL ( )

Computation of up quark - down squark - chargino vertex

Definition at line 1098 of file SUSYMatching.cpp.

                               { // to be corrected
  
  
     gslpp::matrix<gslpp::complex> myCKM(3, 3, 0.);
     gslpp::complex VuDCL_bkj(0., 0., false);
     gslpp::complex YdI(0., 0., false);
     int I, b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 2; j++) {
  
                 for (I = 0; I < 3; I++) {
                     YdI = sqrt(2.) / v1 * mySUSYMQ(2 * I + 1); 
                     VuDCL_bkj += -(gW * myRd(k, I) * myU(j, 0).conjugate()
                             - YdI * myRd(k, I + 3) * myU(j, 1).conjugate()) *
                             myCKM(b, I).conjugate();
                 }
  
                 VuDCL_cache[b][k][j] = VuDCL_bkj;
                 VuDCL_bkj.assign(0., 0., 0);
  
             }
         }
     }
 }

◆ Comp_VuDCR()

void SUSYMatching::Comp_VuDCR ( )

Definition at line 1131 of file SUSYMatching.cpp.

                               {
  
  
     gslpp::matrix<gslpp::complex> mySUSYCKM(3, 3, 0.);
     mySUSYCKM = mySUSY_CKM();
     gslpp::matrix<gslpp::complex> myV(2, 2, 0.);
     myV = mySUSY.getV();
     double Yub;
     gslpp::complex VuDCR_bkj(0., 0., false);
    
     int I, b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 2; j++) {
  
                 Yub = sqrt(2.) / v2 * mySUSYMQ(2 * b); // b is the up quark type index
  
                 for (I = 0; I < 3; I++) {
  
                     VuDCR_bkj +=  mySUSYCKM(b, I).conjugate() * Yub * myRd(k, I) * myV(j, 1) ; 
  
                 }
  
                 VuDCR_cache[b][k][j] = VuDCR_bkj;
                 VuDCR_bkj.assign(0., 0., 0);
             
                 
             }
         }
     }
 }

◆ Comp_VUDHH()

void SUSYMatching::Comp_VUDHH ( )

Computation of Charged Higgs - squrks down - squarks up vertex

Definition at line 1355 of file SUSYMatching.cpp.

                              {
     
     gslpp::complex VUDHijH(0., 0., false);
     gslpp::matrix<gslpp::complex> myTU(3, 3, 0.);
     gslpp::matrix<gslpp::complex> myTD(3, 3, 0.);
     gslpp::complex YuJ(0., 0., false);
     gslpp::complex YdI(0., 0., false);
     gslpp::matrix<gslpp::complex> mySUSYCKM(3, 3, 0.);
     mySUSYCKM = mySUSY_CKM();
     myTU = mySUSY.getTUhat();
     myTD = mySUSY.getTDhat();
     gslpp::matrix<gslpp::complex> ZH(2, 2, 0.);
     ZH.assign(0, 0, mySUSY.getSinb());
     ZH.assign(0, 1, -mySUSY.getCosb());
     ZH.assign(1, 0, mySUSY.getCosb());
     ZH.assign(1, 1, mySUSY.getSinb());
     int I, J, i, j;// ,l;
  
     for (i = 0; i < 6; i++) {
         for (j = 0; j < 6; j++) {
  
  
             for (I = 0; I < 3; I++) {
                 for (J = 0; J < 3; J++) {
                     
  
                     VUDHijH += v / sqrt(2.) * sqrt(2.) / v2 * mySUSYMQ(2 * J) * 
                             sqrt(2.) / v1 * mySUSYMQ(2 * I + 1) /
                             (1 + Eps_J(I) * tanb) * mySUSYCKM(J, I) * myRd(j, I + 3).conjugate() *
                             myRu(i, J + 3) 
                            
                              + 1. / sqrt(2.) * (v1 * sqrt(2.) / v1 * mySUSYMQ(2 * I + 1) /
                             (1 + Eps_J(I) * tanb) * sqrt(2.) / v1 * mySUSYMQ(2 * I + 1) /
                             (1 + Eps_J(I) * tanb) * ZH(0, 0) +
                             v2 * sqrt(2.) / v2 * mySUSYMQ(2 * J) * sqrt(2.) / v2 * mySUSYMQ(2 * J)
                             * ZH(1, 0)) * mySUSYCKM(J, I) * myRd(j, I).conjugate() * myRu(i, J) 
                              
                                      
                             + (ZH(0, 0) * (mySUSY.getMuH()).conjugate() *
                             sqrt(2.) / v2 * mySUSYMQ(2 * J) * mySUSYCKM(J, I) +
                             ZH(1,0)*(myTU(J,0)*mySUSYCKM(0,I) + myTU(J,1)*mySUSYCKM(1,I) 
                             + myTU(J,2)*mySUSYCKM(2,I)))
                             * myRu(i, J + 3) * myRd(j, I).conjugate()
                             
                             + (ZH(0,0) * (myTD(I,0).conjugate() * mySUSYCKM(J,0) 
                             + myTD(I,1).conjugate() * mySUSYCKM(J,1) 
                             + myTD(I,2).conjugate() * mySUSYCKM(J,2))
                             + ZH(1,0) * mySUSY.getMuH() *  sqrt(2.) / v1 * mySUSYMQ(2 * I + 1) /
                             (1 + Eps_J(I) * tanb) * mySUSYCKM(J,I)) * myRu(i,J) * 
                             myRd(j, I + 3).conjugate(); 
                                                             
  
                 }
             }
  
  
  
             VUDHH_cache.assign(i, j, VUDHijH);
             VUDHijH.assign(0., 0., 0);
         }
     }
 }

◆ Comp_VuUN()

void SUSYMatching::Comp_VuUN ( )

Computation of up quark - up squark - neutralino vertex

Definition at line 1204 of file SUSYMatching.cpp.

                             {
  
     double TanThetaW = sqrt(mySUSY.sW2() / mySUSY.cW2());
     gslpp::complex VuUNL_bkj(0.,0.,false);
     gslpp::complex VuUNR_bkj(0.,0.,false);
     double Yub;
     
     int b, k, j;
  
     for (b = 0; b < 3; b++) {
         for (k = 0; k < 6; k++) {
             for (j = 0; j < 4; j++) {
  
                 Yub = sqrt(2.) / v2 * mySUSYMQ(2 * b);
  
                 VuUNL_bkj += -1. / sqrt(2.) * gW * myRu(k, b) * (1. / (3. * TanThetaW) *
                         myN(j, 0).conjugate() + myN(j, 1).conjugate())
                         - Yub * myRu(k, b + 3) * myN(j, 3).conjugate();
  
                 VuUNR_bkj += 2. * sqrt(2.) / 3. * gW * TanThetaW * myRu(k, b + 3) *
                         myN(j, 0) - Yub * myRu(k, b) * myN(j, 3);
  
                 VuUNL_cache[b][k][j] = VuUNL_bkj;
                 VuUNL_bkj.assign(0., 0., 0);
                 VuUNR_cache[b][k][j] = VuUNR_bkj;
                 VuUNR_bkj.assign(0.,0.,0);
  
             }
         }
     }    
 }

◆ CP_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::CP_Lepton ( int n )

virtual

Calculates \( C_{P} \) and \( C^{\prime}_{P} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Calculates CP and CP' for m->eee (1), t->mmm (2), t->eee (3) and t->muee (4)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of \( C_{P} \) and \( C^{\prime}_{P} \) Wilson coefficients

Definition at line 7521 of file SUSYMatching.cpp.

                                                               {
  
     gslpp::vector<gslpp::complex> CP(2, 0.);
  
         //     write CP and CP' into a vector
         CP.assign(0, BFunctions(li_to_lj)(4)/2.0 );
         CP.assign(1, -BFunctions(li_to_lj)(5)/2.0 );
  
     return(CP);

◆ CS_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::CS_Lepton ( int n )

virtual

Calculates \( C_{S} \) and \( C^{\prime}_{S} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Calculates CS and CS' for m->eee (1), t->mmm (2), t->eee (3) and t->muee (4)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of \( C_{S} \) and \( C^{\prime}_{S} \) Wilson coefficients

Definition at line 7510 of file SUSYMatching.cpp.

                                                               {
  
     gslpp::vector<gslpp::complex> CS(2, 0.);
  
         //     write CS and CS' into a vector
         CS.assign(0, BFunctions(li_to_lj)(4)/2.0 );
         CS.assign(1, BFunctions(li_to_lj)(5)/2.0 );
  
     return(CS);

◆ CT_Lepton()

gslpp::vector< gslpp::complex > SUSYMatching::CT_Lepton ( int n )

virtual

Calculates \( C_{T} \) and \( C_{T5} \) Wilson coefficients for the process \( \ell_j \to \ell_i \ell_i \ell_i \).

Calculates CT and CT5 for m->eee (1), t->mmm (2), t->eee (3) and t->muee (4)

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of \( C_{T} \) and \( C_{T5} \) Wilson coefficients

Definition at line 7532 of file SUSYMatching.cpp.

                                                               {
  
     gslpp::vector<gslpp::complex> CT(2, 0.);
  
         //     write CT and CT5 into a vector
         CT.assign(0, (BFunctions(li_to_lj)(6)+BFunctions(li_to_lj)(7))/2.0 );
         CT.assign(1, (BFunctions(li_to_lj)(6)+BFunctions(li_to_lj)(7))/2.0 );
  
     return(CT);

◆ D0N()

double SUSYMatching::D0N	(	double	x,
		double	y,
		double	z,
		double	t
	)

private

Definition at line 283 of file SUSYMatching.cpp.

                                                                {
  
     if ((fabs(z) < SUSYLEPS3) || (fabs(t) < SUSYLEPS3)) {
         return (0.);
     }
     else
         return (sqrt(z * t) * Dk(x, y, z, t, 0));
  
 }

◆ D2LL0()

double SUSYMatching::D2LL0	(	double	a,
		double	b
	)

private

Definition at line 293 of file SUSYMatching.cpp.

                                              {
  
     return ( (log(a) - log(b)) / (4. * (-a + b)) );
  
 }

◆ delta_ab()

int SUSYMatching::delta_ab	(	int	a,
		int	b
	)

private

Kronecker delta.

Kronecker delta

Parameters

[in]	a	is the first index of the Kronecker delta function
[in]	b	is the second index of the Kronecker delta function

Definition at line 4715 of file SUSYMatching.cpp.

                                        {
     if(a == b) return 1;
     else return 0;

◆ DeltaDL()

gslpp::complex SUSYMatching::DeltaDL	(	int	J,
		int	I
	)

private

Definition at line 830 of file SUSYMatching.cpp.

                                                {
  
     return(DeltaDL_Cache(J,I));
 }

◆ DeltaDR()

gslpp::complex SUSYMatching::DeltaDR	(	int	J,
		int	I
	)

private

Definition at line 835 of file SUSYMatching.cpp.

                                               {
     
     gslpp::complex C(0., 0., false);
     C = DeltaDL_Cache(J,I).conjugate();
     
    return (C);  
 }

◆ DeltaFHL()

gslpp::complex SUSYMatching::DeltaFHL	(	int	j,
		int	i
	)

private

Definition at line 1425 of file SUSYMatching.cpp.

                                                 {
  
  
     gslpp::complex DFHL_ji(0., 0., false);
     gslpp::vector<double> myMU2Squarks(6, 0.);
     gslpp::vector<double> myMD2Squarks(6, 0.);
     myMU2Squarks = mySUSY.getMsu2();
     myMD2Squarks = mySUSY.getMsd2();
     gslpp::vector<double> MChi0(4, 0.);
     gslpp::complex Yuj(0., 0., false);
     gslpp::complex Ydi(0., 0., false);
     int m, l;
  
     Yuj = sqrt(2.) / v2 * mySUSYMQ(2 * j);
     Ydi = sqrt(2.) / v1 * mySUSYMQ(2 * i + 1) /
             (1 + Eps_J(i) * tanb);
  
     for (m = 0; m < 6; m++) {
         for (l = 0; l < 6; l++) {
  
             DFHL_ji += VUDHH(m,l) *(-2 * Als / (3. * M_PI) * Mg 
                     * myRu(m, j + 3).conjugate() * myRd(l, i) *
                     Ck(Mg * Mg, myMU2Squarks(m), myMD2Squarks(l), 0)
  
                     - 1. / (16. * M_PI * M_PI) * Yuj * Ydi *  
                     myRu(m, j).conjugate() * myRd(l, i + 3) *
                     mySUSY.getMuH().conjugate() *
                     Ck(mySUSY.getMuH().abs2(), myMU2Squarks(m), myMD2Squarks(l), 0));
  
         }
  
     }
    return (DFHL_ji);
 }

◆ DeltaMd()

gslpp::complex SUSYMatching::DeltaMd	(	int	J,
		int	I
	)

private

Definition at line 755 of file SUSYMatching.cpp.

                                                {
  
     return (DeltaMd_cache(J,I));
 }

◆ DFunctions()

gslpp::vector< gslpp::complex > SUSYMatching::DFunctions ( )

virtual

Calculates box diagram amplitudes for the process \( \mu \to e \) conversion in Nuclei from from [139].

Calculates box amplitudes for m->e conversion**‍/ /**

Returns: returns the vector of box diagram amplitude

Definition at line 6220 of file SUSYMatching.cpp.

                                                    {
         //box contributions to mu->e conversion
  
     NeutralinoRemixing();
  
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mUP = mySUSY.getQuarks(QCD::UP).getMass();
     double mDOWN = mySUSY.getQuarks(QCD::DOWN).getMass();
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
     double alph = mySUSY.getAle();
  
     gslpp::vector<gslpp::complex> DFunctions(4, 0.);
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlE.assign(a, x, - (g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 0) + (mE/cdenn)*ON(a, 2)*myRl(x, 3)));
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             NRqUP.assign(a, x, -(g2t)*((ON(a, 1)+ON(a, 0)*ttw/3.0)*myRu(x, 0)+mUP/(MW*sinb)*ON(a, 3)*myRu(x, 3)));
             NRqDOWN.assign(a, x, -(g2t)*((-ON(a, 1)+ON(a, 0)*ttw/3.0)*myRd(x, 0)+mDOWN/(MW*cosb)*ON(a, 2)*myRd(x, 3)));
             //     RL + RR TYPE MI
             NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2)*myRl(x, 0) + 2.0*ON(a, 0)*ttw*myRl(x, 3)));
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
             NLqUP.assign(a, x, -(g2t)*(mUP/(MW*sinb)*ON(a, 3)*myRu(x, 0)-4.0*ON(a, 0)*myRu(x, 3)*ttw/3.0));
             NLqDOWN.assign(a, x, -(g2t)*(mDOWN/(MW*cosb)*ON(a, 2)*myRd(x, 0)+2.0*ON(a, 0)*myRd(x, 3)*ttw/3.0));
         }
     }
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlE.assign(a, x, - (g2*myV(a, 0)*myRn(x, 0)));
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             //     LR-TYPE
             CLlE.assign(a, x, g2*mE/cdenc*myU(a, 1).conjugate()*myRn(x, 0));
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
         }
     }
     for (int a=0;a<2;a++) {
         for (int x=0;x<6;x++) {
             //     LL-TYPE
             CRqUP.assign(a, x, g2*(-myU(a, 0)*myRd(x, 0) + mDOWN/cdenc*myU(a, 1)*myRd(x, 3)));
             CRqDOWN.assign(a, x, g2*(-myV(a, 0)*myRu(x, 0) + mUP/(sqrt(2.0)*MW*sinb)*myV(a, 1)*myRu(x, 3)));
             //     LR-TYPE
             CLqUP.assign(a, x, g2*mUP/(sqrt(2.0)*MW*sinb)*myV(a, 1)*myRd(x, 0));
             CLqDOWN.assign(a, x, g2*mDOWN/cdenc*myU(a, 1)*myRu(x, 0));
         }
     }
  
     //     Neutralino contributions
     gslpp::complex DunR = 0.0;
     gslpp::complex DunL = 0.0;
     gslpp::complex DdnR = 0.0;
     gslpp::complex DdnL = 0.0;
     for (int a=0;a<4;a++) {
         for (int b=0;b<4;b++) {
             for (int x=0;x<6;x++) {
                 for (int y=0;y<6;y++) {
                     DunR = DunR + (0.125*(NLlMU(a,x).conjugate()*NLlE(b,x)*NLqUP(a,y)*NLqUP(b,y).conjugate()
                                           -NLlMU(a,x).conjugate()*NLlE(b,x)*NRqUP(a,y).conjugate()*NRqUP(b,y))
                                          *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_su_sq(y))/(4.0*pi*pi)
                                    -0.25*MNeig(a)*MNeig(b)*(NLlMU(a,x).conjugate()*NLlE(b,x)*NRqUP(a,y)*NRqUP(b,y).conjugate()
                                                             -NLlMU(a,x).conjugate()*NLlE(b,x)*NLqUP(a,y).conjugate()*NLqUP(b,y))
                                                            *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_su_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DunL = DunL + (0.125*(NRlMU(a,x).conjugate()*NRlE(b,x)*NRqUP(a,y)*NRqUP(b,y).conjugate()
                                           -NRlMU(a,x).conjugate()*NRlE(b,x)*NLqUP(a,y).conjugate()*NLqUP(b,y))
                                          *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_su_sq(y))/(4.0*pi*pi)
                                    -0.25*MNeig(a)*MNeig(b)*(NRlMU(a,x).conjugate()*NRlE(b,x)*NLqUP(a,y)*NLqUP(b,y).conjugate()
                                                             -NRlMU(a,x).conjugate()*NRlE(b,x)*NRqUP(a,y).conjugate()*NRqUP(b,y))
                                                            *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_su_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DdnR = DdnR + (0.125*(NLlMU(a,x).conjugate()*NLlE(b,x)*NLqDOWN(a,y)*NLqDOWN(b,y).conjugate()
                                           -NLlMU(a,x).conjugate()*NLlE(b,x)*NRqDOWN(a,y).conjugate()*NRqDOWN(b,y))
                                          *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_sd_sq(y))/(4.0*pi*pi)
                                    -0.25*MNeig(a)*MNeig(b)*(NLlMU(a,x).conjugate()*NLlE(b,x)*NRqDOWN(a,y)*NRqDOWN(b,y).conjugate()
                                                             -NLlMU(a,x).conjugate()*NLlE(b,x)*NLqDOWN(a,y).conjugate()*NLqDOWN(b,y))
                                                            *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_sd_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DdnL = DdnL + (0.125*(NRlMU(a,x).conjugate()*NRlE(b,x)*NRqDOWN(a,y)*NRqDOWN(b,y).conjugate()
                                           -NRlMU(a,x).conjugate()*NRlE(b,x)*NLqDOWN(a,y).conjugate()*NLqDOWN(b,y))
                                          *PV.D00(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_sd_sq(y))/(4.0*pi*pi)
                                    -0.25*MNeig(a)*MNeig(b)*(NRlMU(a,x).conjugate()*NRlE(b,x)*NLqDOWN(a,y)*NLqDOWN(b,y).conjugate()
                                                             -NRlMU(a,x).conjugate()*NRlE(b,x)*NRqDOWN(a,y).conjugate()*NRqDOWN(b,y))
                                                            *PV.D0(0., 0., MNeig(a)*MNeig(a), MNeig(b)*MNeig(b), mym_se_sq(x), mym_sd_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                 }
             }
         }
     }
  
     //     Chargino contributions
     gslpp::complex DucR = 0.0;
     gslpp::complex DucL = 0.0;
     gslpp::complex DdcR = 0.0;
     gslpp::complex DdcL = 0.0;
     for (int a=0;a<2;a++) {
         for (int b=0;b<2;b++) {
             for (int x=0;x<3;x++) {
                 for (int y=0;y<6;y++) {
                     DucR = DucR + (-0.125*CLlMU(a,x).conjugate()*CLlE(b,x)*CRqUP(a,y).conjugate()*CRqUP(b,y)
                                    *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sd_sq(y))/(4.0*pi*pi)
                                    +0.25*MChi(a)*MChi(b)*CLlMU(a,x).conjugate()*CLlE(b,x)*CLqUP(a,y).conjugate()*CLqUP(b,y)
                                    *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sd_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DucL = DucL + (-0.125*CRlMU(a,x).conjugate()*CRlE(b,x)*CLqUP(a,y).conjugate()*CLqUP(b,y)
                                    *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sd_sq(y))/(4.0*pi*pi)
                                    +0.25*MChi(a)*MChi(b)*CRlMU(a,x).conjugate()*CRlE(b,x)*CRqUP(a,y).conjugate()*CRqUP(b,y)
                                    *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_sd_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DdcR = DdcR + (0.125*CLlMU(a,x).conjugate()*CLlE(b,x)*CLqDOWN(a,y)*CLqDOWN(b,y).conjugate()
                                    *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_su_sq(y))/(4.0*pi*pi)
                                    -0.25*MChi(a)*MChi(b)*CLlMU(a,x).conjugate()*CLlE(b,x)*CRqDOWN(a,y)*CRqDOWN(b,y).conjugate()
                                    *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_su_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                     DdcL = DdcL + (0.125*CRlMU(a,x).conjugate()*CRlE(b,x)*CRqDOWN(a,y)*CRqDOWN(b,y).conjugate()
                                    *PV.D00(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_su_sq(y))/(4.0*pi*pi)
                                    -0.25*MChi(a)*MChi(b)*CRlMU(a,x).conjugate()*CRlE(b,x)*CLqDOWN(a,y)*CLqDOWN(b,y).conjugate()
                                    *PV.D0(0., 0., MChi(a)*MChi(a), MChi(b)*MChi(b), mym_sn_sq(x), mym_su_sq(y))/(16.0*pi*pi))/(4.0*pi*alph);
                 }
             }
         }
     }
  
     //     write DuR, DuL, DdR and DdL into a vector for mu->e conversion
     DFunctions.assign(0, DunR+DucR );  //DuR
     DFunctions.assign(1, DunL+DucL );  //DuL
     DFunctions.assign(2, DdnR+DdcR );  //DdR
     DFunctions.assign(3, DdnL+DdcL );  //DdL
  
     return(DFunctions);

◆ Dk()

double SUSYMatching::Dk	(	double	x,
		double	y,
		double	z,
		double	t,
		int	k
	)

private

Passarino Veltman functions, Dk with k = 0,2 , and their limits

four variables equals

three variables equals

pairs variables equals

one variable equal to zero

different variables

Definition at line 469 of file SUSYMatching.cpp.

                                                                      {
    
     if ((fabs(1. - y / x) < SUSYLEPS) && (fabs(1. - z / x) < SUSYLEPS) &&
             (fabs(1. - t / x) < SUSYLEPS)) {
         return DLLL(x, k);
     }
  
     if ((fabs(1. - y / x) < SUSYLEPS) && (fabs(1. - z / x) < SUSYLEPS)) {
         return DLL(x, t, k);
     }
     if ((fabs(1. - y / x) < SUSYLEPS) && (fabs(1. - t / x) < SUSYLEPS)) {
         return DLL(x, z, k);
     }
     if ((fabs(1. - z / x) < SUSYLEPS) && (fabs(1. - t / x) < SUSYLEPS)) {
         return DLL(x, y, k);
     }
     if ((fabs(1. - z / y) < SUSYLEPS) && (fabs(1. - t / y) < SUSYLEPS)) {
         return DLL(y, x, k);
     }
  
     if (fabs(1. - y / x) < SUSYLEPS) {
         if ((fabs(1. - t / z) < SUSYLEPS)) {
             return DLLp(x, z, k);
         }
         else
             return DL(x, z, t, k);
     }
     if (fabs(1. - z / x) < SUSYLEPS) {
         if (fabs(1. - t / y) < SUSYLEPS) {
             return DLLp(x, y, k);
         }
         else
             return DL(x, y, t, k);
     }
     if (fabs(1. - t / x) < SUSYLEPS) {
         if (fabs(1. - z / y) < SUSYLEPS) {
             return DLLp(x, y, k);
         }
         else
             return DL(x, z, y, k);
     }
     if ((fabs(1. - z / y) < SUSYLEPS)) {
         return DL(y, x, t, k);
     }
     if ((fabs(1. - t / y) < SUSYLEPS)) {
         return DL(y, z, x, k);
     }
     if ((fabs(1. - z / t) < SUSYLEPS)) {
         
         return (DL(x, y, z, k));
     }
  
     
     if (fabs(x) < SUSYLEPS) {
  
         return (DL0(y, z, t, k));
     }
     if (fabs(y) < SUSYLEPS) {
  
         return (DL0(x, z, t, k));
     }
     if (fabs(z) < SUSYLEPS) {
  
         return (DL0(x, y, t, k));
     }
     if (fabs(t) < SUSYLEPS) {
  
         return (DL0(x, y, z, k));
     }
     
     
     if (k == 0) {
         return x * log(x) / ((t - x)*(z - x)*(y - x)) + y * log(y)
                 / ((t - y)*(z - y)*(x - y)) + z * log(z)
                 / ((t - z)*(x - z)*(y - z)) +
                 t * log(t) / ((x - t)*(z - t)*(y - t));
     }
     else if (k == 2) {
         return (((t * t * log(t)) / ((-t + x)*(-t + y)*(-t + z))
                 + (x * x * log(x)) / ((t - x)*(-x + y)*(-x + z))
                 + (y * y * log(y)) / ((t - y)*(x - y)*(-y + z))
                 + (z * z * log(z)) / ((t - z)*(x - z)*(y - z)))/4.);
     }
     else {
  
         throw std::runtime_error("Error in Dk(x,y,z,t,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
     
 }

◆ DL()

double SUSYMatching::DL	(	double	a,
		double	b,
		double	c,
		int	k
	)

private

Definition at line 319 of file SUSYMatching.cpp.

                                                            {
     if (k == 0) {
         if (fabs(a) < SUSYLEPS) {
             
             throw std::runtime_error("Error in DL(a,b,c,0) in SUSYMatching.cpp because the limit DL(0,b,c, k = 0) is singular");
         }
         else if (fabs(b) < SUSYLEPS) {
  
             return ( (-a + c + a * log(a) - a * log(c)) / (a * (a - c) * (a - c)));
         }
         else if (fabs(c) < SUSYLEPS) {
  
             return ( (-a + b + a * log(a) - a * log(b)) / (a * (a - b) * (a - b)));
         }
         else
             return( (a*a-b*c)/(a-b)/(a-b)/(a-c)/(a-c)*log(a) +
                      b/(a-b)/(a-b)/(c-b)*log(b) - c/(a-c)/(a-c)/(c-b)*log(c) 
                      - 1./(a-b)/(a-c) ) ;
     }
     else if (k == 2) {
  
         if (fabs(a) < SUSYLEPS) {
  
             return ( (-log(b) + log(c)) / (4. * (b - c)));
         }
         else if (fabs(b) < SUSYLEPS) {
  
             return ( (-a + c + c * log(a) - c * log(c)) / (4. * (a - c) * (a - c)));
         }
         else if (fabs(c) < SUSYLEPS) {
  
             return ( (-a + b + b * log(a) - b * log(b)) / (4. * (a - b) * (a - b)));
         }
  
             return ( a*(-2.*b*c + a*(b + c))/4./(a - b)/(a - b)/(a - c)/(a - c)*log(a)
                     + b*b/4./(a - b)/(a - b)/(c - b)*log(b) - c*c/4./(a - c)/(a - c)/
                     (c - b)*log(c) + a/4./(a - b)/(c - a) );
     }
     else {
  
         throw std::runtime_error("Error in DL(a,b,c,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ DL0()

double SUSYMatching::DL0	(	double	a,
		double	b,
		double	c,
		int	k
	)

private

Definition at line 300 of file SUSYMatching.cpp.

                                                             {
  
     if (k == 2) {
         return ( (a * (-b + c) * log(a) + b * (a - c) * log(b)
                 + (-a + b) * c * log(c)) / (4. * (a - b)*(-a + c)*(-b + c)));
     }
     else if (k == 0) {
  
         return (((-b + c) * log(a) + (a - c) * log(b) + (-a + b) * log(c)) /
                 ((a - b)*(-a + c)*(-b + c)));
     }
     else {
  
         throw std::runtime_error("Error in DL0(a,b,c,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ DLL()

double SUSYMatching::DLL	(	double	a,
		double	b,
		int	k
	)

private

Definition at line 365 of file SUSYMatching.cpp.

                                                   {
     if (k == 0) {
         
         if (fabs(a) < SUSYLEPS) {
  
             throw std::runtime_error("Error in DLL(a,b,k = 0) in SUSYMatching.cpp because the limit DLL(0,b, k = 0) is singular");
         }
  
         if (fabs(b) < SUSYLEPS) {
             return (1. / (2. * a * a));
         }
         else
             return ( -(-a * a + b * b + 2 * a * b * log(a) - 2 * a * b * log(b)) /      // sign mistake found
                 (2. * a * (a - b) * (a - b) * (a - b)));
     }
     else if (k == 2) {
  
         if (fabs(a) < SUSYLEPS) {
  
             throw std::runtime_error("Error in DLL(a,b,k = 2) in SUSYMatching.cpp because the limit DLL(0,b, k = 2) is singular");
         }
  
         if (fabs(b) < SUSYLEPS) {
  
             return ( -1. / (8. * a));
         }
         else
             return (a * a - 4 * a * b + 3 * b * b + 2 * b * b * log(a)
                 - 2 * b * b * log(b)) / (8. * (-a + b) * (-a + b) * (-a + b));
     }
     else {
  
         throw std::runtime_error("Error in DLL(a,b,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ DLLL()

double SUSYMatching::DLLL	(	double	a,
		int	k
	)

private

Definition at line 451 of file SUSYMatching.cpp.

                                          {
     if (k == 0) {
         return (1. / (6. * a * a));
     }
     else if (k == 2) {
         return (-1. / (12. * a));
     }
     else {
  
         throw std::runtime_error("Error in DLLL(a,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ DLLp()

double SUSYMatching::DLLp	(	double	a,
		double	b,
		int	k
	)

private

Definition at line 403 of file SUSYMatching.cpp.

                                                    {
     if (k == 0) {
         
         if ( (fabs(a) < SUSYLEPS) || (fabs(b) < SUSYLEPS) ) {
             
             std::cout << "MChargini = " << mySUSY.getMch() << std::endl;
             std::cout << "MNeutralini = " << mySUSY.getMneu() << std::endl;
             std::cout << "MD2squarks = " << mySUSY.getMsd2() << std::endl;
             std::cout << "MU2squarks = " << mySUSY.getMsu2() << std::endl;
             std::cout << "Mgluino = " << mySUSY.getM3() << std::endl;
             std::cout << "MHp = " << mySUSY.getMHp() << std::endl;
             std::cout << "Mw_tree = " << mySUSY.Mw_tree() << std::endl;
             std::cout << "Mup(Q_S) = " << mySUSYMQ(0) << std::endl;
             std::cout << "Mdown(Q_S) = " << mySUSYMQ(1) << std::endl;
             std::cout << "Mc(Q_S) = " << mySUSYMQ(2) << std::endl;
             std::cout << "Ms(Q_S) = " << mySUSYMQ(3) << std::endl;
             std::cout << "Mtop(Q_S) = " << mySUSYMQ(4) << std::endl;
             std::cout << "Mb(Q_S) = " << mySUSYMQ(5) << std::endl;
             
             
             throw std::runtime_error("Error in DLLp function, because the limits D0(0,0,b,b) and D0(a,a,0,0) are singular "); 
         }
         return (-2 * a + 2 * b + (a + b) * log(a) - (a + b) * log(b))
                 / ((a - b)*(a - b)*(a - b));
     }
     else if (k == 2) {
             
             if ( fabs(a) < SUSYLEPS ){
                 
                 return (-1. / (4. * b ));
             }
             else if ( fabs(b) < SUSYLEPS ){
                     
                 return ( -1. / (4. * a) );
             }
         
         return (-a * a + b * b + 2 * a * b * log(a) - 2 * a * b * log(b))
                 / (4. * (a - b)*(a - b)*(a - b));
     }
     else {
  
         throw std::runtime_error("Error in DLLp(a,b,k) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
     
 }

◆ Eps_J()

gslpp::complex SUSYMatching::Eps_J ( int J )

private

Definition at line 771 of file SUSYMatching.cpp.

                                       {
  
     return (Eps_JCache(J));
  
 }

◆ EpsPrime()

gslpp::complex SUSYMatching::EpsPrime	(	int	J,
		int	I
	)

private

Definition at line 3374 of file SUSYMatching.cpp.

                                                {
    
     gslpp::matrix<gslpp::complex> myCKM(3, 3, 0.);
     myCKM = mySUSY_CKM();
     gslpp::complex YuJ(0., 0., false);
  
     YuJ = sqrt(2.) / v2 * mySUSYMQ(2 * J);
     
     
     return (-DeltaFHL(J,I) / (tanb * myCKM(J,I) * YuJ));

◆ F3C()

double SUSYMatching::F3C ( double x )

private

Definition at line 6871 of file SUSYMatching.cpp.

                                 {
  
     double r=0;
     if (std::fabs(x-1.) < 0.005)
     {
         r=1. + (1059.*(x-1.))/1175.;
     }
     else
     {
         r=(1. - x) * (151. * x*x - 335. * x + 592.)
           + 6. * (21. * x*x*x - 108. * x*x - 93. * x + 50.) * log(x)
           - 54. * x * (x*x - 2. * x - 2.) * pow(log(x),2)
           - 108. * x * (x*x - 2. * x + 12.) * Polylogs.Li2(1.- x).real() ;
         r*=4./(141.*pow(1. - x,4));
     }
     return r;

◆ F3N()

double SUSYMatching::F3N ( double x )

private

Definition at line 6906 of file SUSYMatching.cpp.

                                 {
  
     double r=0;
     if (std::fabs(x-1.) < 0.005)
     {
         r=1. + (76.*(x-1.))/875.;
     }
     else
     {
         r=(1-x)*(-97.*x*x-529.*x+2.)+6.*x*x*(13.*x+81.)*log(x)
           +108.*x*(7.*x+4.)*Polylogs.Li2(1.-x).real();
         r=r*4./(105.*pow(1-x,4));
     }
     return r;

◆ F4C()

double SUSYMatching::F4C ( double x )

private

Definition at line 6889 of file SUSYMatching.cpp.

                                 {
  
     double r=0;
     if (std::fabs(x-1.) < 0.005)
     {
         r=1. - (45.*(x-1.))/122.;
     }
     else
     {
         r=8.*(x*x-3.*x+2.)+(11.*x*x-40.*x+5.)*log(x)
           -2.*(x*x-2.*x-2.)*log(x)*log(x)
           -4.*(x*x-2.*x+9.)*Polylogs.Li2(1.-x).real();
         r=r*(-9.)/(122.*pow(1-x,3));
     }
     return r;

◆ F4N()

double SUSYMatching::F4N ( double x )

private

Definition at line 6922 of file SUSYMatching.cpp.

                                 {
  
     double r=0;
     if (std::fabs(x-1.) < 0.005)
     {
         r=1. - (111.*(x-1.)*(x-1.))/800.;
     }
     else
     {
         r=(x+3.)*(x*log(x)+x-1.0)+(6.*x+2.)*Polylogs.Li2(1.-x).real();
         r=r*(-9.)/(4.*pow(1-x,3));
     }
     return r;

◆ F7k()

double SUSYMatching::F7k	(	double	x,
		int	k
	)

private

Definition at line 3385 of file SUSYMatching.cpp.

                                         {
  
     if (k == 1) {
  
         if (fabs(x - 1.) < SUSYLEPS) return (-5. / 48.);
  
         return ((x * (7 - 5 * x - 8 * x * x)) / (24. * (-1 + x)*(-1 + x)*(-1 + x)) +
                 x * x * (-2 + 3 * x) * log(x) / (4. * (-1 + x)*(-1 + x)*(-1 + x)*(-1 + x)));
  
     }
     else if (k == 2) {
  
         if (fabs(x - 1.) < SUSYLEPS) return (-7. / 36.);
  
         return (((3 - 5 * x) * x) / (12. * (-1 + x)*(-1 + x)) +
                 (x * (-2 + 3 * x) * log(x)) / (6. * (-1 + x)*(-1 + x)*(-1 + x)));
  
     }
     else throw std::runtime_error("Error in F7k "); 
  

◆ Fa()

double SUSYMatching::Fa	(	double	x,
		double	y
	)

private

Definition at line 6937 of file SUSYMatching.cpp.

                                          {
  
     double r=0;
     if (std::fabs(x-y) < 0.005)
     {
         if (std::fabs(y-1.) < 0.005)
         {
             r=(49. - 22.*x - 22.*y + 10.*x*y)/60.;
         }
         else
         {
             r=(2. + 3.*x - 6.*x*x + x*x*x + 6.*x*log(x))/(4.*pow(x-1.,4)*x)
               +(2. + 3.*y - 6.*y*y + y*y*y + 6.*y*log(y))/(4.*pow(y-1.,4)*y);
         }
     }
     else
     {
         if (std::fabs(x-1.) < 0.005)
         {
             r=((x-1.)*(-25. + 48.*y - 36.*y*y + 16.*y*y*y - 3.*y*y*y*y - 12.*log(y)))/(12.*pow(y-1.,5))
                     + (-11. + 18.*y - 9.*y*y + 2.*y*y*y - 6.*log(y))/(6.*pow(y-1.,4));
         }
         else if (std::fabs(y-1.) < 0.005)
         {
             r=((y-1.)*(-25. + 48.*x - 36.*x*x + 16.*x*x*x - 3.*x*x*x*x - 12.*log(x)))/(12.*pow(x-1.,5))
                     + (-11. + 18.*x - 9.*x*x + 2.*x*x*x - 6.*log(x))/(6.*pow(x-1.,4));
         }
         else
         {
             double G3x, G3y;
             G3x=(1./(2.*pow(x-1,3))) *( (x-1)*(x-3)+2.*log(x) );
             G3y=(1./(2.*pow(y-1,3))) *( (y-1)*(y-3)+2.*log(y) );
             r=-(G3x-G3y)/(x-y);
         }
     }
     return r;

◆ Fb()

double SUSYMatching::Fb	(	double	x,
		double	y
	)

private

Definition at line 6975 of file SUSYMatching.cpp.

                                          {
  
     double r=0;
     if (std::fabs(x-y) < 0.005)
     {
         if (std::fabs(y-1.) < 0.005)
         {
             r=(13. - 5.*x - 5.*y + 2.*x*y)/60.;
         }
         else
         {
             r=((2. + 3.*x - 6.*x*x + x*x*x + 6.*x*log(x))/pow(x-1.,4) 
                + (2. + 3.*y - 6.*y*y + y*y*y + 6.*y*log(y))/pow(y-1.,4))/12.;
         }
     }
     else
     {
         if (std::fabs(x-1.) < 0.005)
         {
             r=(2. + 3.*y - 6.*y*y + y*y*y + 6.*y*log(y))/(6.*pow(y-1.,4))
                     + ((x-1.)*(3. + 10.*y - 18.*y*y + 6.*y*y*y - y*y*y*y + 12.*y*log(y)))/(12.*pow(y-1.,5));
         }
         else if (std::fabs(y-1.) < 0.005)
         {
             r=(2. + 3.*x - 6.*x*x + x*x*x + 6.*x*log(x))/(6.*pow(x-1.,4))
                     + ((y-1.)*(3. + 10.*x - 18.*x*x + 6.*x*x*x - x*x*x*x + 12.*x*log(x)))/(12.*pow(x-1.,5));
         }
         else
         {
             double G4x, G4y;
             G4x=(1./(2.*pow(x-1,3))) *( (x-1)*(x+1) -2.*x*log(x) );
             G4y=(1./(2.*pow(y-1,3))) *( (y-1)*(y+1) -2.*y*log(y) );
             r=-(G4x-G4y)/(x-y);
         }
     }
     return r;

◆ fft()

double SUSYMatching::fft ( double x )

private

Definition at line 6777 of file SUSYMatching.cpp.

                                 {
  
     double r=0;
     r=x*(2.+log(x)-fPS(x))/2.0;
     return r;

◆ FFunctions()

gslpp::vector< gslpp::complex > SUSYMatching::FFunctions ( int n )

virtual

Calculates Z penguin amplitudes for the process \( \ell_j \to \ell_i \ell_i \ell_i \) from [139] [19].

Calculates Z penguin amplitudes for m->3e (1), t->3m (2) and t->3e (3)**‍/ /**

Parameters

[in] n determines the process, e.g., 1 = \( \mu \to eee \), 2 = \( \tau \to \mu \mu \mu \), 3 = \( \tau \to eee \)

Returns: returns the vector of Z penguin amplitude

Definition at line 6356 of file SUSYMatching.cpp.

                                                                {
         //Z penguin contributions
  
     NeutralinoRemixing();
  
     double MZ = mySUSY.getMz();
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double piconst = 1.0/(32.0 * pi * pi);
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mTAU = mySUSY.getLeptons(StandardModel::TAU).getMass();
  
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
  
     gslpp::vector<gslpp::complex> FFunctions(4, 0.);
 //      Note: Here contributions proportional to the Yukawa couplings are set to 
 //      zero. In particular this leads to Right Chargino Contributions to be zero. 
  
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlE.assign(a, x, - (g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 0) + (mE/cdenn)*ON(a, 2)*myRl(x, 3)));
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             NRlTAU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 2) + (mTAU/cdenn)*ON(a, 2)*myRl(x, 5)));
             //     RL + RR TYPE MI
             NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2)*myRl(x, 0) + 2.0*ON(a, 0)*ttw*myRl(x, 3)));
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
             NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2)*myRl(x, 2) + 2.0*ON(a, 0)*ttw*myRl(x, 5)));
 //    Commented expressions might be useful for complex neutralino mixing matrices
 //            NLlE.assign(a, x, -(g2t)*((mE/cdenn)*ON(a, 2).conjugate()*myRl(x, 0) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 3)));
 //            NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2).conjugate()*myRl(x, 1) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 4)));
 //            NLlTAU.assign(a, x, -(g2t)*((mTAU/cdenn)*ON(a, 2).conjugate()*myRl(x, 2) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 5)));
         }
     }
  
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlE.assign(a, x, - (g2*myV(a, 0)*myRn(x, 0)));
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             CRlTAU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 2)));
             //     LR-TYPE
             CLlE.assign(a, x, g2*mE/cdenc*myU(a, 1).conjugate()*myRn(x, 0));
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
             CLlTAU.assign(a, x, g2*mTAU/cdenc*myU(a, 1).conjugate()*myRn(x, 2));
         }
     }
  
 //      Neutralino contributions
  
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             Lepty.assign(a, x, ( MNeig(a) * MNeig(a) ) / mym_se_sq(x) );
         }
     }
  
     for (int x=0;x<6;x++) {
         for (int a=0;a<4;a++) {
             for (int b=0;b<4;b++) {
                 if (a != b && std::fabs(Lepty(a,x)-Lepty(b,x)) > 0.01 && std::fabs(1.0-Lepty(a,x)) > 0.01 && std::fabs(1.0-Lepty(b,x)) > 0.01) {
                     Leptfzn[x][a][b] = log(Lepty(a,x)) + 1.0/(Lepty(a,x)-Lepty(b,x))*
                                      ( (Lepty(a,x)*Lepty(a,x)*log(Lepty(a,x)))/(1.0-Lepty(a,x)) - (Lepty(b,x)*Lepty(b,x)*log(Lepty(b,x)))/(1.0-Lepty(b,x)) );
                     Leptgzn[x][a][b] = (MNeig(a)*MNeig(b)/mym_se_sq(x))/(Lepty(a,x)-Lepty(b,x))*
                                      ( (Lepty(a,x)*log(Lepty(a,x)))/(1.0-Lepty(a,x)) - (Lepty(b,x)*log(Lepty(b,x)))/(1.0-Lepty(b,x)) );
                 }
                 else if (a != b && std::fabs(Lepty(a,x)-Lepty(b,x)) > 0.01 && std::fabs(1.0-Lepty(a,x)) > 0.01 && std::fabs(1.0-Lepty(b,x)) <= 0.01) {
                     Leptfzn[x][a][b] = (-2.0*log(Lepty(a,x))*Lepty(a,x)+log(Lepty(a,x))+Lepty(a,x)-1.0)/(Lepty(a,x)-1.0)/(Lepty(a,x)-1.0);
                     Leptgzn[x][a][b] = -(MNeig(a)*MNeig(b)/mym_se_sq(x))*(log(Lepty(a,x))*Lepty(a,x)-Lepty(a,x)+1.0)/(Lepty(a,x)-1.0)/(Lepty(a,x)-1.0);
                 }
                 else if (a != b && std::fabs(Lepty(a,x)-Lepty(b,x)) > 0.01 && std::fabs(1.0-Lepty(b,x)) > 0.01 && std::fabs(1.0-Lepty(a,x)) <= 0.01) {
                     Leptfzn[x][a][b] = (-log(Lepty(b,x))*Lepty(b,x)*Lepty(b,x)+Lepty(b,x)-1.0)/(Lepty(b,x)-1.0)/(Lepty(b,x)-1.0); 
                     Leptgzn[x][a][b] = -(MNeig(a)*MNeig(b)/mym_se_sq(x))*(log(Lepty(b,x))*Lepty(b,x)-Lepty(b,x)+1.0)/(Lepty(b,x)-1.0)/(Lepty(b,x)-1.0);
                 }
                 else if ((a == b || std::fabs(Lepty(a,x)-Lepty(b,x)) <= 0.01) && std::fabs(1.0-Lepty(a,x)) > 0.01 && std::fabs(1.0-Lepty(b,x)) > 0.01) {
                     Leptfzn[x][a][b] = (-Lepty(a,x)*Lepty(a,x)+Lepty(a,x)+log(Lepty(a,x)))/(Lepty(a,x)-1.0)/(Lepty(a,x)-1.0);
                     Leptgzn[x][a][b] = (MNeig(b)*MNeig(b)/mym_se_sq(x))*(-Lepty(a,x)+log(Lepty(a,x))+1.0)/(Lepty(a,x)-1.0)/(Lepty(a,x)-1.0);
                 }
                 else {
                     Leptfzn[x][a][b] = -3.0/2.0-(Lepty(a,x)-1.0)/3.0;
                     Leptgzn[x][a][b] = -MNeig(a)*MNeig(b)/(2.0*mym_se_sq(x));
                 }
             }
         }
     }
  
 //      Chargino contributions
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             Leptz.assign(a, x, MChi(a)*MChi(a)/mym_sn_sq(x) );
         }
     }
  
     for (int x=0;x<3;x++) {
         for (int a=0;a<2;a++) {
             for (int b=0;b<2;b++) {
                 if (a != b && std::fabs(Leptz(a,x)-Leptz(b,x)) > 0.01 && std::fabs(1.0-Leptz(a,x)) > 0.01 && std::fabs(1.0-Leptz(b,x)) > 0.01) {
                     Leptfzc[x][a][b] = log(Leptz(a,x)) + 1.0/(Leptz(a,x)-Leptz(b,x))*
                                      ( (Leptz(a,x)*Leptz(a,x)*log(Leptz(a,x)))/(1.0-Leptz(a,x)) - (Leptz(b,x)*Leptz(b,x)*log(Leptz(b,x)))/(1.0-Leptz(b,x)) );
                     Leptgzc[x][a][b] = (MChi(a)*MChi(b)/mym_sn_sq(x))/(Leptz(a,x)-Leptz(b,x))*
                                      ( (Leptz(a,x)*log(Leptz(a,x)))/(1.0-Leptz(a,x)) - (Leptz(b,x)*log(Leptz(b,x)))/(1.0-Leptz(b,x)) );
                 }
                 else if (a != b && std::fabs(Leptz(a,x)-Leptz(b,x)) > 0.01 && std::fabs(1.0-Leptz(a,x)) > 0.01 && std::fabs(1.0-Leptz(b,x)) <= 0.01) {
                     Leptfzc[x][a][b] = (-2.0*log(Leptz(a,x))*Leptz(a,x)+Leptz(a,x)+log(Leptz(a,x))-1.0)/(Leptz(a,x)-1.0)/(Leptz(a,x)-1.0);
                     Leptgzc[x][a][b] = -(MChi(a)*MChi(b)/mym_sn_sq(x))*(log(Leptz(a,x))*Leptz(a,x)-Leptz(a,x)+1.0)/(Leptz(a,x)-1.0)/(Leptz(a,x)-1.0);
                 }
                 else if (a != b && std::fabs(Leptz(a,x)-Leptz(b,x)) > 0.01 && std::fabs(1.0-Leptz(b,x)) > 0.01 && std::fabs(1.0-Leptz(a,x)) <= 0.01) {
                     Leptfzc[x][a][b] = (-log(Leptz(b,x))*Leptz(b,x)*Leptz(b,x)+Leptz(b,x)-1.0)/(Leptz(b,x)-1.0)/(Leptz(b,x)-1.0);
                     Leptgzc[x][a][b] = -(MChi(a)*MChi(b)/mym_sn_sq(x))*(log(Leptz(b,x))*Leptz(b,x)-Leptz(b,x)+1.0)/(Leptz(b,x)-1.0)/(Leptz(b,x)-1.0);
                 }
                 else if ((a == b || std::fabs(Leptz(a,x)-Leptz(b,x)) <= 0.01) && std::fabs(1.0-Leptz(a,x)) > 0.01 && std::fabs(1.0-Leptz(b,x)) > 0.01) {
                     Leptfzc[x][a][b] = (-Leptz(a,x)*Leptz(a,x)+Leptz(a,x)+log(Leptz(a,x)))/(Leptz(a,x)-1.0)/(Leptz(a,x)-1.0);
                     Leptgzc[x][a][b] = (MChi(b)*MChi(b)/mym_sn_sq(x))*((-Leptz(a,x)+log(Leptz(a,x))+1.0))/(Leptz(a,x)-1.0)/(Leptz(a,x)-1.0);
                 }
                 else {
                     Leptfzc[x][a][b] = -3.0/2.0-(Leptz(a,x)-1.0)/3.0;
                     Leptgzc[x][a][b] = -MChi(a)*MChi(b)/(2.0*mym_sn_sq(x));
                 }
             }
         }
     }
  
     if (li_to_lj == 1) // mu -> 3e
     {
         //     Neutralino contributions
         gslpp::complex ZpengMuEEENR = 0.0;
         gslpp::complex ZpengMuEEENL = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     ZpengMuEEENR = ZpengMuEEENR - NLlE(a,x)*NLlMU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                     ZpengMuEEENL = ZpengMuEEENL + NRlE(a,x)*NRlMU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                 }
             }
         }
         //     Chargino contributions
         gslpp::complex ZpengMuEEEC = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     ZpengMuEEEC = ZpengMuEEEC + CRlE(a,x)*CRlMU(b,x)*piconst*
                                                     (myU(a,1)*myU(b,1)*gslpp::complex(std::real(Leptgzc[x][a][b]),std::imag(Leptgzc[x][a][b]))
                                                      -myV(a,1)*myV(b,1)*gslpp::complex(std::real(Leptfzc[x][a][b]),std::imag(Leptfzc[x][a][b]))/2.0);
                 }
             }
         }
         //     write FRR, FRL, FLR and FLL into a vector for mu->3e
         FFunctions.assign(0, ZpengMuEEENR/(MZ*MZ*ctw*ctw) );                                 //FRR
         FFunctions.assign(1, ZpengMuEEENR*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );                  //FRL
         FFunctions.assign(2, (ZpengMuEEENL + ZpengMuEEEC)/(MZ*MZ*ctw*ctw) );                 //FLR
         FFunctions.assign(3, (ZpengMuEEENL + ZpengMuEEEC)*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );  //FLL
     }
     if (li_to_lj == 2) // tau -> 3mu
     {
         //     Neutralino contributions
         gslpp::complex ZpengTauMuMuMuNR = 0.0;
         gslpp::complex ZpengTauMuMuMuNL = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     ZpengTauMuMuMuNR = ZpengTauMuMuMuNR - NLlMU(a,x)*NLlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                     ZpengTauMuMuMuNL = ZpengTauMuMuMuNL + NRlMU(a,x)*NRlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                 }
             }
         }
         //     Chargino contributions
         gslpp::complex ZpengTauMuMuMuC = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     ZpengTauMuMuMuC = ZpengTauMuMuMuC + CRlMU(a,x)*CRlTAU(b,x)*piconst*
                                                     (myU(a,1)*myU(b,1)*gslpp::complex(std::real(Leptgzc[x][a][b]),std::imag(Leptgzc[x][a][b]))
                                                      -myV(a,1)*myV(b,1)*gslpp::complex(std::real(Leptfzc[x][a][b]),std::imag(Leptfzc[x][a][b]))/2.0);
                 }
             }
         }
         //     write FRR, FRL, FLR and FLL into a vector for tau->3mu
         FFunctions.assign(0, ZpengTauMuMuMuNR/(MZ*MZ*ctw*ctw) );                                     //FRR
         FFunctions.assign(1, ZpengTauMuMuMuNR*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );                      //FRL
         FFunctions.assign(2, (ZpengTauMuMuMuNL + ZpengTauMuMuMuC)/(MZ*MZ*ctw*ctw) );                 //FLR
         FFunctions.assign(3, (ZpengTauMuMuMuNL + ZpengTauMuMuMuC)*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );  //FLL
     }
     if (li_to_lj == 3) // tau -> 3e
     {
         //      Neutralino contributions
         gslpp::complex ZpengTauEEENR = 0.0;
         gslpp::complex ZpengTauEEENL = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     ZpengTauEEENR = ZpengTauEEENR - NLlE(a,x)*NLlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                     ZpengTauEEENL = ZpengTauEEENL + NRlE(a,x)*NRlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                 }
             }
         }
         //      Chargino contributions
         gslpp::complex ZpengTauEEEC = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     ZpengTauEEEC = ZpengTauEEEC + CRlE(a,x)*CRlTAU(b,x)*piconst*
                                                     (myU(a,1)*myU(b,1)*gslpp::complex(std::real(Leptgzc[x][a][b]),std::imag(Leptgzc[x][a][b]))
                                                      -myV(a,1)*myV(b,1)*gslpp::complex(std::real(Leptfzc[x][a][b]),std::imag(Leptfzc[x][a][b]))/2.0);
                 }
             }
         }
         //     write FRR, FRL, FLR and FLL into a vector for tau->3e
         FFunctions.assign(0, ZpengTauEEENR/(MZ*MZ*ctw*ctw) );                                  //FRR
         FFunctions.assign(1, ZpengTauEEENR*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );                   //FRL
         FFunctions.assign(2, (ZpengTauEEENL + ZpengTauEEEC)/(MZ*MZ*ctw*ctw) );                 //FLR
         FFunctions.assign(3, (ZpengTauEEENL + ZpengTauEEEC)*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );  //FLL
     }
     if (li_to_lj == 4) // tau -> muee
     {
         //     Neutralino contributions
         gslpp::complex ZpengTauMuEENR = 0.0;
         gslpp::complex ZpengTauMuEENL = 0.0;
         for (int x=0;x<6;x++) {
             for (int a=0;a<4;a++) {
                 for (int b=0;b<4;b++) {
                     ZpengTauMuEENR = ZpengTauMuEENR - NLlMU(a,x)*NLlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                     ZpengTauMuEENL = ZpengTauMuEENL + NRlMU(a,x)*NRlTAU(b,x)*piconst*
                                                     (ON(a,2)*ON(b,2)-ON(a,3)*ON(b,3))*gslpp::complex(std::real(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]),std::imag(Leptfzn[x][a][b]+2.0*Leptgzn[x][a][b]));
                 }
             }
         }
         //     Chargino contributions
         gslpp::complex ZpengTauMuEEC = 0.0;
         for (int x=0;x<3;x++) {
             for (int a=0;a<2;a++) {
                 for (int b=0;b<2;b++) {
                     ZpengTauMuEEC = ZpengTauMuEEC + CRlMU(a,x)*CRlTAU(b,x)*piconst*
                                                     (myU(a,1)*myU(b,1)*gslpp::complex(std::real(Leptgzc[x][a][b]),std::imag(Leptgzc[x][a][b]))
                                                      -myV(a,1)*myV(b,1)*gslpp::complex(std::real(Leptfzc[x][a][b]),std::imag(Leptfzc[x][a][b]))/2.0);
                 }
             }
         }
         //     write FRR, FRL, FLR and FLL into a vector for tau->muee
         FFunctions.assign(0, ZpengTauMuEENR/(MZ*MZ*ctw*ctw) );                                   //FRR
         FFunctions.assign(1, ZpengTauMuEENR*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );                    //FRL
         FFunctions.assign(2, (ZpengTauMuEENL + ZpengTauMuEEC)/(MZ*MZ*ctw*ctw) );                 //FLR
         FFunctions.assign(3, (ZpengTauMuEENL + ZpengTauMuEEC)*(-0.5+sw2)/(MZ*MZ*sw2*ctw*ctw) );  //FLL
     }
  
     return(FFunctions);

◆ fPS()

double SUSYMatching::fPS ( double x )

private

NLO g-2 auxiliary functions

Definition at line 6750 of file SUSYMatching.cpp.

                                 {
  
     __fPS_params params;
     params.a=x;
  
     double result;
     gsl_integration_glfixed_table * w
         = gsl_integration_glfixed_table_alloc(100);
     gsl_function F;
  
     F.function = &__fPS_integ;
     F.params = reinterpret_cast<void *>(&params);
  
     result = gsl_integration_glfixed (&F, 0, 1, w);
  
     gsl_integration_glfixed_table_free (w);
  
   return result;

◆ fS()

double SUSYMatching::fS ( double x )

private

Definition at line 6770 of file SUSYMatching.cpp.

                                {
  
     double r=0;
     r=(2.*x-1.)*fPS(x)-2.*x*(2.+log(x));
     return r;

◆ gminus2mu()

gslpp::vector< gslpp::complex > SUSYMatching::gminus2mu ( )

virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at one-loop from [139].

Calculates the muon g-2**‍/ /**

Returns: returns the vector of \( (g-2)_{\mu} \) amplitude

Definition at line 6619 of file SUSYMatching.cpp.

                                                   {
  
     NeutralinoRemixing();
  
     double MW = mySUSY.Mw_tree();
     double pi = M_PI;
     double piconst = 1.0/(32.0 * pi * pi);
     double sw2 = mySUSY.StandardModel::sW2(MW);
     double stw = sqrt(sw2);
     double ctw = sqrt(1.0 - sw2);
     double ttw = stw/ctw;
     double mMU = mySUSY.getLeptons(StandardModel::MU).getMass();
  
     double cdenc = sqrt(2.0)*MW*cosb;
     double cdenn = MW*cosb;
     double g2 = gW;
     double g2t = g2/sqrt(2.0);
  
     gslpp::vector<gslpp::complex> gminus2mu(2, 0.);
  
     //     Neutralino-Fermion-Sfermion couplings
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             //     LL + RL TYPE MI
             NRlMU.assign(a, x, -(g2t)*((-ON(a, 1) - ON(a, 0)*ttw)*myRl(x, 1) + (mMU/cdenn)*ON(a, 2)*myRl(x, 4)));
             //     RL + RR TYPE MI
             NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2)*myRl(x, 1) + 2.0*ON(a, 0)*ttw*myRl(x, 4)));
 //    Commented expressions might be useful for complex neutralino mixing matrices
 //            NLlMU.assign(a, x, -(g2t)*((mMU/cdenn)*ON(a, 2).conjugate()*myRl(x, 1) + 2.0*ON(a, 0).conjugate()*ttw*myRl(x, 4)));
         }
     }
  
     //     Chargino-Fermion-Sfermion couplings
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             //     LL-TYPE
             CRlMU.assign(a, x, - (g2*myV(a, 0)*myRn(x, 1)));
             //     LR-TYPE
             CLlMU.assign(a, x, g2*mMU/cdenc*myU(a, 1).conjugate()*myRn(x, 1));
         }
     }
  
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             Lepty.assign(a, x, MNeig(a) * MNeig(a) / mym_se_sq(x) );
         }
     }
  
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             Leptz.assign(a, x, MChi(a) * MChi(a) / mym_sn_sq(x) );
         }
     }
  
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             if (fabs(1.0 - Lepty(a, x)) > 0.01) {
                 Leptf1.assign(a, x, ((1.0 - 6.0*Lepty(a, x) + 3.0 * pow(Lepty(a, x),2.0) + 
                                       2.0*pow(Lepty(a, x),3.0) - 6.0*pow(Lepty(a,x),2.0)*log(Lepty(a, x))))/
                                     (6.0 * pow((1.0 - Lepty(a,x)),4.0)) );
                 Leptf2.assign(a, x, (1.0 - pow(Lepty(a, x),2.0) +  2.0 * Lepty(a, x) * log(Lepty(a, x)))/
                                     (pow((1.0-Lepty(a, x)),3.0)));
             }
             else {
                 Leptf1.assign(a, x, 1.0/12.0 - (Lepty(a, x) - 1.0)/30.0);
                 Leptf2.assign(a, x, 1.0/3.0 - (Lepty(a, x) - 1.0)/6.0);
             }
         }
     }
  
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             if(fabs(1.0-Leptz(a, x)) > 0.01) {
                 Leptf3.assign(a, x, ((2.0 + 3.0*Leptz(a, x) - 6.0*pow(Leptz(a, x),2.0) 
                                       + pow(Leptz(a, x),3.0) + 6.0*Leptz(a, x)*log(Leptz(a, x)))/
                              (6.0*pow((1.0 - Leptz(a, x)),4.0))) );
                 Leptf4.assign(a, x, ((-3.0 + 4.0*Leptz(a, x) - pow(Leptz(a, x),2.0)
                                       - 2.0*log(Leptz(a, x)))/
                                      pow((1.0 - Leptz(a, x)),3.0)) );
             }
             else {
                 Leptf3.assign(a, x, 1.0/12.0 - (Leptz(a, x) - 1.0)/20.0 );
                 Leptf4.assign(a, x, 2.0/3.0 - (Leptz(a, x) - 1.0)/2.0 );
             }
         }
     }
  
     //      Neutralino contributions
     gslpp::complex g2ARN = 0.0;
     gslpp::complex g2ALN = 0.0;
     for (int a=0;a<4;a++) {
         for (int x=0;x<6;x++) {
             g2ARN = g2ARN -mMU*mMU*piconst*(4.0*NRlMU(a,x)*NRlMU(a,x).conjugate()*Leptf1(a,x)
                                             +2.0*NRlMU(a,x)*NLlMU(a,x).conjugate()*(MNeig(a)/mMU)*Leptf2(a,x))/mym_se_sq(x);
             g2ALN = g2ALN -mMU*mMU*piconst*(4.0*NLlMU(a,x)*NLlMU(a,x).conjugate()*Leptf1(a,x)
                                             +2.0*NLlMU(a,x)*NRlMU(a,x).conjugate()*(MNeig(a)/mMU)*Leptf2(a,x))/mym_se_sq(x);
         }
     }
  
     //      Chargino contributions
     gslpp::complex g2ARC = 0.0;
     gslpp::complex g2ALC = 0.0;
     for (int a=0;a<2;a++) {
         for (int x=0;x<3;x++) {
             g2ARC = g2ARC +mMU*mMU*piconst*(4.0*CRlMU(a,x)*CRlMU(a,x).conjugate()*Leptf3(a,x)
                                             +2.0*CRlMU(a,x)*CLlMU(a,x).conjugate()*(MChi(a)/mMU)*Leptf4(a,x))/mym_sn_sq(x);
             g2ALC = g2ALC +mMU*mMU*piconst*(4.0*CLlMU(a,x)*CLlMU(a,x).conjugate()*Leptf3(a,x)
                                             +2.0*CLlMU(a,x)*CRlMU(a,x).conjugate()*(MChi(a)/mMU)*Leptf4(a,x))/mym_sn_sq(x);
         }
     }
  
     //     write R and L contributions to the muon g-2 into a vector
     gminus2mu.assign(0, g2ARN + g2ARC );    //g-2_muR
     gminus2mu.assign(1, g2ALN + g2ALC );    //g-2_muL
  
 //    std::cout<<"g2AN="<<g2ARN+g2ALN <<std::endl;
 //    std::cout<<"g2AC="<<g2ARC+g2ALC <<std::endl;
  
     return(gminus2mu);

◆ gminus2muNLO()

double SUSYMatching::gminus2muNLO ( )

virtual

Calculates amplitudes for \( (g-2)_{\mu} \) at two-loop.

Calculates the muon g-2**‍/ /**

Returns: returns the vector of the two-loop contributions to the \( (g-2)_{\mu} \) amplitude

bino-higgsino-R-smuon

Definition at line 7013 of file SUSYMatching.cpp.

                                   {
  
     updateSUSYParameters();
  
     double pi = M_PI;
     double MZ = mySUSY.getMz();
 //    double g1atMZ = sqrt(4.0*pi*mySUSY.getAle());
 //    double g2atMZ = gW;
     double g1atMZ = 0.357456;
     double g2atMZ = 0.651721;
     double g3atMZ = sqrt(4.0*pi*mySUSY.getAlsMz());
     double mh = mySUSY.getMHl();
     double mhh = mySUSY.getMHh();
     double ma = mySUSY.getMHa();
     gslpp::complex sa = mySUSY.getSaeff();
     gslpp::complex ca = sqrt(1.0-sa*sa);
     gslpp::complex s2a = 2.0*ca*sa;
     gslpp::complex c2a = ca*ca-sa*sa;
     double vew = v/sqrt(2.);
 //    double mE = mySUSY.getLeptons(StandardModel::ELECTRON).getMass();
     double mmu = mySUSY.getLeptons(StandardModel::MU).getMass();
     double mTAU = mySUSY.getLeptons(StandardModel::TAU).getMass();
     double mt = mySUSY.getQuarks(mySUSY.TOP).getMass();
     double mb = mySUSY.getQuarks(mySUSY.BOTTOM).getMass();
     gslpp::complex M1 = mySUSY.getM1();
     gslpp::complex M2 = mySUSY.getM2();
  
     gslpp::complex muH = mySUSY.getMuH();
     TUhat = mySUSY.getTUhat();
     TDhat = mySUSY.getTDhat();
     TEhat = mySUSY.getTEhat();
     gslpp::complex a3t = TUhat(2,2)*mySUSY.v2()/sqrt(2.0)/mt;
     gslpp::complex a3b = TDhat(2,2)*mySUSY.v1()/sqrt(2.0)/mb;
     gslpp::complex a3tau = TEhat(2,2)*mySUSY.v1()/sqrt(2.0)/mTAU;
  
     gslpp::matrix<gslpp::complex> MsQhat2(3,3,0);
     gslpp::matrix<gslpp::complex> MsUhat2(3,3,0);
     gslpp::matrix<gslpp::complex> MsDhat2(3,3,0);
     gslpp::matrix<gslpp::complex> MsLhat2(3,3,0);
     gslpp::matrix<gslpp::complex> MsEhat2(3,3,0);
     MsQhat2 = mySUSY.getMsQhat2();
     MsUhat2 = mySUSY.getMsUhat2();
     MsDhat2 = mySUSY.getMsDhat2();
     MsLhat2 = mySUSY.getMsLhat2();
     MsEhat2 = mySUSY.getMsEhat2();
     double msq1L = MsQhat2(0,0).real();
     double msq2L = MsQhat2(1,1).real();
     double msq3L = MsQhat2(2,2).real();
     double msuR = MsUhat2(0,0).real();
     double mscR = MsUhat2(1,1).real();
     double mstR = MsUhat2(2,2).real();
     double msdR = MsDhat2(0,0).real();
     double mssR = MsDhat2(1,1).real();
     double msbR = MsDhat2(2,2).real();
     double mseL = MsLhat2(0,0).real();
     double msmuL = MsLhat2(1,1).real();
     double mstauL = MsLhat2(2,2).real();
     double mseR = MsEhat2(0,0).real();
     double msmuR = MsEhat2(1,1).real();
     double mstauR = MsEhat2(2,2).real();
  
     int k;
     double b1[3];
     double gi[3];
     double g1, g2, g3;
     double res_g;
     b1[0]=41./6., b1[1]=-19./6., b1[2]=-7.;
     gi[0]=g1atMZ, gi[1]=g2atMZ, gi[2]=g3atMZ;
     for(k=0; k<3; k++){
         res_g=1./gi[k]/gi[k] -b1[k]/(8.*pi*pi)*log(sqrt(msmuL)/MZ);
         gi[k]=sqrt(1/res_g);
     }
     g1=gi[0], g2=gi[1], g3=gi[2];
  
     double alp = (g1*g1*g2*g2/(g1*g1+g2*g2))/(4.0*pi);
 //    double s2b = 2.0*cosb*sinb;
     double c2b = cosb*cosb-sinb*sinb;
     double mzq = sqrt( 0.5*(g1*g1+g2*g2)*vew*vew );
     double mwq = sqrt( 0.5*(g2*g2)*vew*vew );
     double sw2 = g1*g1/(g1*g1+g2*g2);
     gslpp::complex lh1 = -sa/cosb;
     gslpp::complex lh2 = ca/cosb;
     double lA = tanb;
     double msneu2 = msmuL+0.5*mzq*mzq*c2b;
  
         TEhat.assign(1,1, 0.);
 //     a3t = 0.;
 //     a3b = 0.;
 //     a3tau = 0.;
  
     
     gslpp::matrix<gslpp::complex> Rsmu(2,2,0.), Xm(2,2,0.);
     gslpp::vector<double> msmu2(2,0.);
     Rsmu.assign(0,0, msmuL+mmu*mmu+c2b*mzq*mzq*(-1.0/2.0+sw2) );
     Rsmu.assign(0,1, mySUSY.v1()/sqrt(2.0)*TEhat(1,1).conjugate()-muH*mmu*tanb);
     Rsmu.assign(1,0, mySUSY.v1()/sqrt(2.0)*TEhat(1,1)-muH.conjugate()*mmu*tanb);
     Rsmu.assign(1,1, msmuR+mmu*mmu-c2b*mzq*mzq*sw2);
     Rsmu.eigensystem(Xm,msmu2); //in the 1,2 basis now!
  
     gslpp::vector<gslpp::complex> gminus2muvector=gminus2mu();
 //    std::cout<<"gminus2muvector"<<gminus2muvector<<std::endl;
 //    double gm21loop = (gminus2muvector(0)+gminus2muvector(1)).abs();
 //    std::cout<<"gm21loop="<<gm21loop<<std::endl;
  
  
     double gm21loop = 1.06978e-9;
     mh=125.;
     alp = 0.00729927;
     mt=173.34;
  
     
     double res,res1;            //the two Barr-Zee contributions
     double gm2cor, res2, res3;  //muon mass correction, photonic two-loop and corrected smuon-muon-chargino/neutralino couplings
     double res01, res02;
     double gminus2muNLO;
  
     //two-loop corrections to SM one-loop diagrams
  
     // Barr-Zee diagrams (photonic)
     // chargino-loop
     gslpp::vector<gslpp::complex> lxh1(2,0);
     gslpp::vector<gslpp::complex> lxh2(2,0);
     gslpp::vector<gslpp::complex> lxA(2,0);
  
     double tmp1;
     for(int i=0; i<2; i++){
         tmp1=sqrt(2.0)*mwq/MChi(i);
         lxh1.assign(i, tmp1*( myU(i,0)*myV(i,1)*ca    + myU(i,1)*myV(i,0)*(-sa) ) );
         lxh2.assign(i, tmp1*( myU(i,0)*myV(i,1)*sa    + myU(i,1)*myV(i,0)*( ca) ) );
         lxA.assign(i,  tmp1*( myU(i,0)*myV(i,1)*(-cosb) + myU(i,1)*myV(i,0)*(-sinb) ) );
     }
  
     res=0;
     double xps, xh1, xh2;
     for(int i=0; i<2; i++){
         xps=MChi(i)*MChi(i)/(ma*ma);
         xh1=MChi(i)*MChi(i)/(mh*mh);
         xh2=MChi(i)*MChi(i)/(mhh*mhh);
  
         res += (lA*lxA(i)).real()*fPS(xps) + (lh1*lxh1(i)).real()*fS(xh1)
                +(lh2*lxh2(i)).real()*fS(xh2);
     }
     res *= alp*alp * mmu*mmu / (8.*pi*pi*mwq*mwq*sw2);
  
     // Barr-Zee diagrams (photonic)
     // sfermion-loop
     gslpp::matrix<gslpp::complex> stauM(2,2,0), sbottomM(2,2,0), stopM(2,2,0);
     gslpp::vector<double> mstau2(2,0), msbottom2(2,0), mstop2(2,0);
     gslpp::matrix<gslpp::complex> Ustau(2,2,0), Usbottom(2,2,0), Ustop(2,2,0);
  
     stauM.assign(0,0, mstauL+mTAU*mTAU + mzq*mzq*c2b*(0.5-(-1.)*sw2) );
     stauM.assign(1,1, mstauR+mTAU*mTAU + mzq*mzq*c2b*(-1.)*sw2);
     stauM.assign(0,1, mTAU*(a3tau-muH*tanb));
     stauM.assign(1,0, mTAU*(a3tau-muH*tanb));
  
     sbottomM.assign(0,0, msq3L+mb*mb + mzq*mzq*c2b*(0.5-(-1./3.)*sw2) );
     sbottomM.assign(1,1, msbR+mb*mb + mzq*mzq*c2b*(-1./3.)*sw2);
     sbottomM.assign(0,1, mb*(a3b-muH*tanb));
     sbottomM.assign(1,0, mb*(a3b-muH*tanb));
  
     stopM.assign(0,0, msq3L+mt*mt + mzq*mzq*c2b*(0.5-(2./3.)*sw2) );
     stopM.assign(1,1, mstR+mt*mt + mzq*mzq*c2b*(2./3.)*sw2);
     stopM.assign(0,1, mt*(a3t-muH/tanb));
     stopM.assign(1,0, mt*(a3t-muH/tanb));
  
     stauM.eigensystem(Ustau,mstau2);
     sbottomM.eigensystem(Usbottom,msbottom2);
     stopM.eigensystem(Ustop,mstop2);
  
     Ustau=Ustau.hconjugate();
     Usbottom=Usbottom.hconjugate();
     Ustop=Ustop.hconjugate();
  
     gslpp::vector<gslpp::complex> lstauh1(2,0);
     gslpp::vector<gslpp::complex> lstauh2(2,0);
     gslpp::vector<gslpp::complex> lsbottomh1(2,0);
     gslpp::vector<gslpp::complex> lsbottomh2(2,0);
     gslpp::vector<gslpp::complex> lstoph1(2,0);
     gslpp::vector<gslpp::complex> lstoph2(2,0);
  
     gslpp::complex rr;
     for(int i=0; i<2; i++){
         
         rr=2.*mTAU/(cosb*mstau2(i)) * Ustau(i,0).conjugate() * Ustau(i,1);
         lstauh1.assign(i,rr*(-muH*ca + a3tau*(-sa)) );
         lstauh2.assign(i,rr*(-muH*sa + a3tau*(ca)) );
         
         rr=2.*mb/(cosb*msbottom2(i)) * Usbottom(i,0).conjugate() * Usbottom(i,1);
         lsbottomh1.assign(i,rr*(-muH*ca + a3b*(-sa)) );
         lsbottomh2.assign(i,rr*(-muH*sa + a3b*(ca)) );
  
         rr=2.*mt/(cosb*mstop2(i)) * Ustop(i,0).conjugate() * Ustop(i,1);
         lstoph1.assign(i,rr*(-muH*sa + a3t*(ca)) );
         lstoph2.assign(i,rr*(-muH*(-ca) + a3t*(sa)) );
     }
 //    std::cout<<"mh="<<mh<<std::endl;
 //    std::cout<<"mhh="<<mhh<<std::endl;
 //    std::cout<<"ma="<<ma<<std::endl;
  
     res1=0;
     double qe2;
     double xx1,xx2;
     for(int i=0;i<2;i++){
         xx1=mstau2(i)/(mh*mh);
         xx2=mstau2(i)/(mhh*mhh);
         res1 += (lh1*lstauh1(i)).real()*fft(xx1)
                 +(lh2*lstauh2(i)).real()*fft(xx2);
 //    std::cout<<"mstau2="<<mstau2<<std::endl;
     
         qe2=1./3.0;
         xx1=msbottom2(i)/(mh*mh);
         xx2=msbottom2(i)/(mhh*mhh);
         res1 += (lh1*lsbottomh1(i)).real()*qe2*fft(xx1)
                 +(lh2*lsbottomh2(i)).real()*qe2*fft(xx2);
 //    std::cout<<"msbottom2="<<msbottom2<<std::endl;
  
         qe2=4./3.0;
         xx1=mstop2(i)/(mh*mh);
         xx2=mstop2(i)/(mhh*mhh);
         res1 += (lh1*lstoph1(i)).real()*qe2*fft(xx1)
                 +(lh2*lstoph2(i)).real()*qe2*fft(xx2);
 //    std::cout<<"mstop2="<<mstop2<<std::endl;
     }  
     res1 *= alp*alp * mmu*mmu / (8.*pi*pi*mwq*mwq*sw2);
  
     //adding up the photonic Barr-Zee contributions
     res02=res+res1;
  
 //    std::cout<<"res="<<res<<std::endl;
 //    std::cout<<"res1="<<res1<<std::endl;
  
     //two-loop corrections to MSSM one-loop diagrams
  
     gm2cor=0, res2=0, res3=0;
  
     //
     //   tanb enhanced correction from SUSY one-loop correction to the muon mass
     //   (ref. arXiv:0808.1530 )
     //
  
     double dmu=0;
 //    double I=0;
     double x0, x1a, x2a, xL, xR;
     double tmp2, tmp3;
  
     x0=sqrt(std::fabs(msneu2));
     xL=sqrt( msmuL-mzq*mzq*(sw2-0.5) );
     xR=sqrt( msmuR +mzq*mzq*sw2 );
  
     tmp2=M2.abs2()+muH.abs2() +2.*mwq*mwq;
     tmp3= tmp2*tmp2 -4.*M2.abs2()*muH.abs2();
     x1a=sqrt( 0.5*( tmp2-sqrt(tmp3) ) );
     x2a=sqrt( 0.5*( tmp2+sqrt(tmp3) ) );
  
     dmu=-muH.real()*tanb*g2*g2*M2.real()/(16.*pi*pi)*(It(x1a,x2a,x0) + 0.5*It(x1a,x2a,xL))
         -muH.real()*tanb*g1*g1*M1.real()/(16.*pi*pi)*(It(muH.real(),M1.real(),xR) - 0.5*It(muH.real(),M1.real(),xL) - It(M1.real(),xL,xR));
  
     // corrected one-loop result
     gm2cor=gm21loop/(1+dmu);
  
     //
     // photonic two-loop (arXiv:1003.5820)
     //
  
     // leading part is simple, which is enhanced by log(mmu/msmu)
     res2=gm2cor*alp/(4.*pi)*16.*log(mmu/sqrt(msmuL));
  
     // non-logarithmic corrections, which are usually small
     double amch=0;
     double amne=0;
  
     // switch of the sub-leading contribution to reduce the computation time
     int sub_leading=1;
  
             if (sub_leading==1){
                 // for the corrections to the chargino diagrams
                 gslpp::vector<gslpp::complex> ckL(2,0), ckR(2,0);
                 double ymu=mmu/(vew*cosb);
  
                 ckR.assign(0, ymu*myU(0,1));
                 ckR.assign(1, ymu*myU(1,1));
  
                 // gauge couplings are defined at the smuon mass scale msmuL
                 ckL.assign(0, -g2*myV(0,0));
                 ckL.assign(1, -g2*myV(1,0));
  
                 double xk=0;
                 for(int i=0; i<2; i++){
                     xk=MChi(i)*MChi(i)/msneu2;
                     amch=amch -(47.*mmu/(12.*msneu2))*( (ckL(i).abs()*ckL(i).abs() + ckR(i).abs()*ckR(i).abs())*F3C(xk) );
                     amch=amch -(122.*MChi(i)/(9.*msneu2))*F4C(xk)*( (ckL(i)*ckR(i)).real() );
                 }
                 amch=(1./(1+dmu))*amch*mmu/(16.*pi*pi)*alp/(4.*pi);
  
                 // for the corrections to the neutralino diagrams
                 gslpp::vector<gslpp::complex> nR1(4,0), nR2(4,0), nL1(4,0), nL2(4,0);
  
                 for(int i=0; i<4; i++){
                     nR1.assign(i, sqrt(2.)*g1*myN(i,0)*Xm(0,1) + ymu*myN(i,2)*Xm(0,0));
                     nR2.assign(i, sqrt(2.)*g1*myN(i,0)*Xm(1,1) + ymu*myN(i,2)*Xm(1,0));
                     nL1.assign(i, (1./sqrt(2.))*(g2*myN(i,1) + g1*myN(i,0))*Xm(0,0).conjugate() -ymu*myN(i,2)*Xm(0,1).conjugate());
                     nL2.assign(i, (1./sqrt(2.))*(g2*myN(i,1) + g1*myN(i,0))*Xm(1,0).conjugate() -ymu*myN(i,2)*Xm(1,1).conjugate());
                 }
  
                 double tmp4, tmp5;
                 double xi1, xi2;
                 double r1, r2;
                 for(int i=0; i<4; i++){
                     xi1=MChi0(i)*MChi0(i)/msmu2(0);
                     xi2=MChi0(i)*MChi0(i)/msmu2(1);
                     tmp4=nL1(i).abs2() + nR1(i).abs2();
                     tmp5=nL2(i).abs2() + nR2(i).abs2();
                     r1=35.*mmu/(72.*msmu2(0))*F3N(xi1)*tmp4 - 16.*MChi0(i)/(9.*msmu2(0))*F4N(xi1)*( (nL1(i)*nR1(i)).real() );
                     r2=35.*mmu/(72.*msmu2(1))*F3N(xi2)*tmp5 - 16.*MChi0(i)/(9.*msmu2(1))*F4N(xi2)*( (nL2(i)*nR2(i)).real() );
                     amne=amne+r1+r2;
                 }
  
                 amne*=(1./(1.+dmu))*mmu/(16.*pi*pi)*alp/(4.*pi);
             }// end of the subleading term
  
     //adding leading log correction and sub-leading terms
     res2=res2+amch+amne;
 //    std::cout<<"res2="<<res2<<std::endl;
  
     //
     //   Deviation of the smuon-muon-chargino/neutralino couplings 
     //   from gauge/Yukawa couplings due to the breaking of SUSY relations
     //   ref. arXiv:1311.1775
     //
   
     // approximate one-loop corrections
     // usually awhn and ablr are dominant contribution 
     double x1,y1,x2,y2,x3,y3,x4,y4,x5,y5;
     double awhn=mmu*mmu*muH.real()*tanb/(1+dmu);
     double awhl=awhn;
     double abhl=awhn;
     double abhr=awhn;
     double ablr=awhn;
  
     //wino-Higgsino-sneutrino
     x1=M2.abs2()/msneu2;
     y1=muH.abs2()/msneu2;
     awhn *= g2*g2*M2.real()/(8.*pi*pi*msneu2*msneu2)*Fa(x1,y1);
  
     //wino-Higgsino-L-smuon
     x2=M2.abs2()/msmuL;
     y2=muH.abs2()/msmuL;
     awhl *= -g2*g2*M2.real()/(16.*pi*pi*pow(msmuL,2))*Fb(x2,y2);
  
     //bino-higgsino-L-smuon
     x3=M1.abs2()/msmuL;
     y3=muH.abs2()/msmuL;
     abhl *= g1*g1*M1.real()/(16.*pi*pi*pow(msmuL,2))*Fb(x3,y3);
  
     x4=M1.abs2()/msmuR;
     y4=muH.abs2()/msmuR;
     abhr *= -g1*g1*M1.real()/(8.*pi*pi*pow(msmuR,2))*Fb(x4,y4);
  
     //bino-L-smuon-R-smuon
     x5=msmuL/(M1.abs2());
     y5=msmuR/(M1.abs2());
     ablr *= g1*g1/(8.*pi*pi*pow(M1.real(),3))*Fb(x5,y5);
  
     double dg2, dg1, dh, dwh, dbh, dtb;
     double msusy=sqrt(msmuL);
  
     dg1=g1*g1/(16.*pi*pi)*(4./3.)
         *(4./3.*log(sqrt(msuR)/msusy) + 4./3.*log(sqrt(mscR)/msusy) + 4./3.*log(sqrt(mstR)/msusy)
           + 2./3.*log(sqrt(msdR)/msusy) + 2./3.*log(sqrt(mssR)/msusy) + 2./3.*log(sqrt(msbR)/msusy)
           + 1./3.*log(sqrt(msq1L)/msusy) + 1./3.*log(sqrt(msq2L)/msusy) + 1./3.*log(sqrt(msq3L)/msusy)
           + log(sqrt(mseR)/msusy) + log(sqrt(mstauR)/msusy)
           + 1./2.*log(sqrt(mseL)/msusy) + 1./2.*log(sqrt(mstauL)/msusy) );
  
     dg2=g2*g2/(16.*pi*pi)*(4./3.)
         *(3./2.*log(sqrt(msq1L)/msusy) + 3./2.*log(sqrt(msq2L)/msusy) + 3./2.*log(sqrt(msq3L)/msusy)
           + 1./2.*log(sqrt(mseL)/msusy) + 1./2.*log(sqrt(mstauL)/msusy) );
  
     // corrections involving Yukawa couplings
     double yb, ytau, yt;
     double as_mt, delta_mt;
  
     // a_s(msmuL)
     as_mt=1/(g3*g3);
     //running down to mt
     as_mt=as_mt - (-7.)*log(mt/sqrt(msmuL))/(8.*pi*pi);
     as_mt=(1./as_mt)/(4.*pi);
  
     delta_mt=-4./3.*(as_mt/pi)-9.1*pow( (as_mt/pi), 2)-80.*pow((as_mt/pi),3);
  
     yb=mb/(vew*cosb);
     yt=mt/(vew*sinb)*(1+delta_mt); //neglecting small EW correction
     ytau=mTAU/(vew*cosb);
  
     // to the DR bar scheme
     yt=yt*(1+as_mt/(8.*pi)*(-4./3.));
     yb=yb*(1+as_mt/(8.*pi)*(-4./3.));
  
     dh=0.5/(16.*pi*pi)*(3.*yt*yt*log(sqrt(mstR)/msusy) +3.*yb*yb*log(sqrt(msbR)/msusy)
                         +3.*(yt*yt+yb*yb)*log(sqrt(msq3L)/msusy)
                         +ytau*ytau*log(sqrt(mstauR)/msusy) +ytau*ytau*log(sqrt(mstauL)/msusy));
  
     dwh=yt*yt/(16.*pi*pi)*(-6.*log(sqrt(msq3L)/msusy));
  
     dbh=yt*yt/(16.*pi*pi)*( 2.*log(sqrt(msq3L)/msusy)-8.*log(sqrt(mstR)/msusy) );
  
     Q_S=msusy;
     
     dtb=1./(16.*pi*pi)*( 3.*yb*yb -3.*yt*yt +ytau*ytau)*log(Q_S/msusy);
  
     // summing sfermion/fermion contributions
     res3= awhn*(dg2 + dh + dwh + dtb)
           + awhl*(dg2 + dh + dwh + dtb)
           + abhl*(dg1 + dh + dbh + dtb)
           + abhr*(dg1 + dh + dbh + dtb)
           + ablr*(dg1 + dtb);
 //    std::cout<<"awhn="<<awhn<<std::endl;
 //    std::cout<<"awhl="<<awhl <<std::endl;
 //    std::cout<<"abhl="<<abhl <<std::endl;
 //    std::cout<<"abhr="<<abhr<<std::endl;
 //    std::cout<<"ablr="<<ablr<<std::endl;
  
 //    std::cout<<"res3="<<res3<<std::endl;
 //    std::cout<<"gm2cor="<<gm2cor<<std::endl;
     res01=gm2cor+res2+res3-gm21loop;
  
 //    std::cout<<"res01="<<res01<<std::endl;
 //    std::cout<<"res02="<<res02<<std::endl;
  
     gminus2muNLO=res01+res02;
     
 //    std::cout<<"gm2NLO="<<gminus2muNLO<<std::endl;
     return(gminus2muNLO);

◆ It()

double SUSYMatching::It	(	double	a,
		double	b,
		double	c
	)

private

Definition at line 6784 of file SUSYMatching.cpp.

                                                    {
  
     double r=0;
     if (std::fabs(a-b) < 0.0005 && std::fabs(a-c) < 0.0005 && std::fabs(b-c) < 0.0005)
     {
         r=9./(2.*(a+b+c)*(a+b+c));
     }
     else
     {
         if (std::fabs(a-b) < 0.0005)
         {
             if (std::fabs(a-c) < 0.0005)
             {
                 r=(-4.*(4.*b*b*c*c*log(b*b/(c*c)) 
                         +((b+c)*(b+c))*(c*c*log((4.*c*c)/((b+c)*(b+c))) 
                             + b*b*log(((b+c)*(b+c))/(4.*b*b)))))
                   /(pow(b-c,3)*(b+c)*(3.*b+c)*(b+3.*c));
             }
             else
             {
                 if (std::fabs(b-c) < 0.0005)
                 {
                     r=(4.*(pow(a-2.*b+c,2)*(-3.*pow(a,8) - 46.*pow(a,7)*c - 42.*pow(a,6)*c*c + 234.*pow(a,5)*c*c*c
                                             - 234.*a*a*a*pow(c,5) + 42.*a*a*pow(c,6) + 46.*a*pow(c,7) + 3.*pow(c,8)
                                             + 8.*a*a*c*c*(11.*pow(a,4) + 28.*a*a*a*c + 50.*a*a*c*c + 28.*a*c*c*c + 11.*pow(c,4))
                                                 *log(c*c/(a*a))
                                             + a*a*(7.*pow(a,6) + 62.*pow(a,5)*c + 265.*pow(a,4)*c*c
                                                    + 356.*a*a*a*c*c*c + 265.*a*a*pow(c,4) + 62.*a*pow(c,5) + 7.*pow(c,6))
                                                 *log((4.*a*a)/((a+c)*(a+c)))
                                             + 7.*pow(a,6)*c*c*log(((a+c)*(a+c))/(4.*c*c))
                                             + 62.*pow(a,5)*c*c*c*log(((a+c)*(a+c))/(4.*c*c))
                                             + 265.*pow(a,4)*pow(c,4)*log(((a+c)*(a+c))/(4.*c*c))
                                             + 356.*a*a*a*pow(c,5)*log(((a+c)*(a+c))/(4.*c*c))
                                             + 265.*a*a*pow(c,6)*log(((a+c)*(a+c))/(4.*c*c))
                                             + 62.*a*pow(c,7)*log(((a+c)*(a+c))/(4.*c*c))
                                             + 7.*pow(c,8)*log(((a+c)*(a+c))/(4.*c*c)))
                            +((a-c)*(a-c))*pow(3.*a+c,2)*pow(a+3.*c,2)
                             *(4.*a*a*c*c*log((c*c)/(a*a))
                               +((a+c)*(a+c))*(a*a*log((4.*a*a)/((a+c)*(a+c))) + c*c*log(((a+c)*(a+c))/(4.*c*c))))))
                       /(pow(a-c,5)*(a+c)*pow(3.*a+c,3)*pow(a+3.*c,3));
                 }
                 else
                 {
                     r=((b*b) - (c*c) - (c*c)*log((b*b)/(c*c)))/pow((b*b) - (c*c),2) + 
    ((a - b)*(-pow(b,4) + pow(c,4) + 2*(b*b)*(c*c)*log((b*b)/(c*c))))/(b*pow((b*b) - (c*c),3));
                 }
             }
         }
         else
         {
             if (std::fabs(b-c) < 0.0005)
             {
                 if (std::fabs(a-c) < 0.0005)
                 {
                     r=(-4*(4*(a*a)*(b*b)*log((a*a)/(b*b)) + ((a+b)*(a+b))*((b*b)*log((4*(b*b))/((a+b)*(a+b))) + (a*a)*log(((a+b)*(a+b))/(4.*(a*a))))))/
 (pow(a - b,3)*(a + b)*(3*a + b)*(a + 3*b));
                 }
                 else
                 {
                     r=(-(a*a) + (c*c) - (a*a)*log((c*c)/(a*a)))/pow((a*a) - (c*c),2) + 
 ((b - c)*(pow(a,4) - pow(c,4) + 2*(a*a)*(c*c)*log((c*c)/(a*a))))/(c*pow(-(a*a) + (c*c),3));
                 }
             }   
             else
             {
                 if (std::fabs(a-c) < 0.0005)
                 {
                     r=(-(b*b) + (c*c) + (b*b)*log((b*b)/(c*c)))/pow((b*b) - (c*c),2) + 
    ((a - c)*(pow(b,4) - pow(c,4) - 2*(b*b)*(c*c)*log((b*b)/(c*c))))/(c*pow(-(b*b) + (c*c),3));
                 }
                 else
                 {
                     r=( a*a*b*b*log(a*a/(b*b))+b*b*c*c*log(b*b/(c*c))+c*c*a*a*log(c*c/(a*a)) )
                 /( (a*a-b*b)*(b*b-c*c)*(a*a-c*c) );
                 }
             }
         }
  
             
             
             
             
             
     }
     return r;

◆ Lambda0EpsY()

gslpp::complex SUSYMatching::Lambda0EpsY	(	int	J,
		int	I
	)

private

Definition at line 794 of file SUSYMatching.cpp.

                                                   {
     
     return (Lambda0EpsYCache(J,I));
     
 }

◆ Li2()

double SUSYMatching::Li2 ( double x )

private

◆ mySUSY_CKM()

gslpp::matrix< gslpp::complex > SUSYMatching::mySUSY_CKM ( )

private

Definition at line 867 of file SUSYMatching.cpp.

                                                    {
  
     return (myCKM_cache);
  
 }

◆ NeutralinoRemixing()

void SUSYMatching::NeutralinoRemixing ( )

private

Re-diagonalisation of the Neutralino mass matrix

Definition at line 4028 of file SUSYMatching.cpp.

                                       {
  
     gslpp::matrix<gslpp::complex> MN_tmp(4, 4, 0.);
     gslpp::matrix<gslpp::complex> Mdiag(4, 4, 0.);
     for (int a=0;a<4;a++) {
         Mdiag.assign(a,a,MChi0(a));
     }
 //    std::cout<<"Old eigenvalues "<<MChi0<<std::endl;
 //    std::cout<<"Old mixing matrix "<<myN<<std::endl;
     MN_tmp = myN.transpose() * Mdiag * myN;
     gslpp::matrix<gslpp::complex> cmplxONT(4, 4, 0.);
     MN_tmp.eigensystem(cmplxONT, MNeig);
     for (int a=0;a<4;a++) {
         for (int b=0;b<4;b++) {
             ON.assign(a,b,cmplxONT(b,a).real());
         }
     }
 //    std::cout<<"New eigenvalues"<<MNeig<<std::endl;
 //    std::cout<<"New mixing matrix "<<ON<<std::endl;

◆ PGLR()

gslpp::complex SUSYMatching::PGLR	(	int	j,
		int	i
	)

private

Definition at line 1307 of file SUSYMatching.cpp.

                                             {
  
     return (-sqrt(2.) / v * myCKM(j, i) *
             mySUSYMQ(2 * i + 1));
 }

◆ PGRL()

gslpp::complex SUSYMatching::PGRL	(	int	j,
		int	i
	)

private

Definition at line 1313 of file SUSYMatching.cpp.

                                             {
  
     return (sqrt(2.) / v * myCKM(j, i) *
             mySUSYMQ(2 * j));
 }

◆ PHLR()

gslpp::complex SUSYMatching::PHLR	(	int	j,
		int	i
	)

private

Definition at line 1349 of file SUSYMatching.cpp.

                                             {
  
     return(PHLRCache(j,i));
 }

◆ PHRL()

gslpp::complex SUSYMatching::PHRL	(	int	j,
		int	i
	)

private

Definition at line 1473 of file SUSYMatching.cpp.

                                            {
     
  
     return(PHRLCache(j,i));
 }

◆ PLRk() [1/2]

gslpp::complex SUSYMatching::PLRk	(	int	j,
		int	i,
		int	k
	)

private

Definition at line 1479 of file SUSYMatching.cpp.

                                                   {
     
     if(k == 0){
         return (PHLR(j,i));
     }
     else if(k == 1){
         return (PGLR(j,i));
     }
     else {
         throw std::runtime_error("Error in PLRk(j,i,k) in SUSYMatching.cpp  ");
     }
     
     return (EXIT_FAILURE);
 }

◆ PLRk() [2/2]

gslpp::complex SUSYMatching::PLRk	(	int	j,
		int	i,
		int	k,
		int	Dmixingflag
	)

private

Definition at line 1525 of file SUSYMatching.cpp.

                                                                     {
  
  
     if (Dmixingflag == 0) {
         return (PLRk(j, i, k));
  
     }
     else if (Dmixingflag == 1) {
         return (PRLk(i, j, k).conjugate());
     }
     else {
         throw std::runtime_error("Error in PLRk(j,i,k,Dmixingflag) in SUSYMatching.cpp  ");
     }
     
     return (EXIT_FAILURE);
 }

◆ PRLk() [1/2]

gslpp::complex SUSYMatching::PRLk	(	int	j,
		int	i,
		int	k
	)

private

Definition at line 1494 of file SUSYMatching.cpp.

                                                   {
     
     if(k == 0){
         return (PHRL(j,i));
     }
     else if(k == 1){
         return (PGRL(j,i));
     }
     else {
         throw std::runtime_error("Error in PRLk(j,i,k) in SUSYMatching.cpp  ");
     }
 }

◆ PRLk() [2/2]

gslpp::complex SUSYMatching::PRLk	(	int	j,
		int	i,
		int	k,
		int	Dmixingflag
	)

private

Charged Higgs vertices genralized both for B and D mixing

Definition at line 1510 of file SUSYMatching.cpp.

                                                                     {
  
     if (Dmixingflag == 0) {
         return (PRLk(j, i, k));
  
     }
     else if (Dmixingflag == 1) {
         return (PLRk(i, j, k).conjugate());
     }
     else {
         throw std::runtime_error("Error in PRLk(j,i,k,Dmixingflag) in SUSYMatching.cpp  ");
     }
  
 }

◆ updateSUSYParameters()

void SUSYMatching::updateSUSYParameters ( )

current-current oerators, Misiak basis

Returns: Wilson coefficients for \( D^{0} \rightarrow \pi \pi , K K \) ‍/ virtual std::vector<WilsonCoefficient>& CMd1();

/**

     @brief current-current oerators, Buras basis
     @return Wilson coefficients for \f$ D^{0} \rightarrow \pi \pi , K K \f$
    &zwj;/

virtual std::vector<WilsonCoefficient>& CMd1Buras();

/**

   @brief Updates to new SUSY parameter sets.
   @return

Definition at line 174 of file SUSYMatching.cpp.

 {
     myCKM = mySUSY.getVCKM();
     myRu = mySUSY.getRu();
     myRd = mySUSY.getRd();
     myRl = mySUSY.getRl();
     myRn = mySUSY.getRn();
     mym_su_sq = mySUSY.getMsu2();
     mym_sd_sq = mySUSY.getMsd2();
     mym_sn_sq = mySUSY.getMsn2();
     mym_se_sq = mySUSY.getMse2();
     Q_S = mySUSY.getQ_SUSY();
     mu2R = Q_S * Q_S;
     tanb = mySUSY.getTanb();
     sinb = mySUSY.getSinb();
     cosb = mySUSY.getCosb();
     Als = mySUSY.Als(Q_S);
     Mg = mySUSY.getMGl();
     MChi0 = mySUSY.getMneu();
     MChi = mySUSY.getMch();
     MHpm = mySUSY.getMHp();
     v = mySUSY.v();
     v1 = mySUSY.v1();
     v2 = mySUSY.v2();
     gW = sqrt(8. * mySUSY.getGF() / sqrt(2.)) * mySUSY.Mw_tree();
     myN = mySUSY.getN();
     myV = mySUSY.getV();
     myU = mySUSY.getU();
     
 //    std::cout << Mg << " Mg " << std::endl;
 //    std::cout << MChi0 << " MChi0 " << std::endl;
 //    std::cout << MChi << " MChi " << std::endl;
 //    std::cout << MHpm << " MHpm " << std::endl;
 //    
 //    std::cout << mym_su_sq << " mym_su_sq " << std::endl;
 //    std::cout << mym_sd_sq << " mym_sd_sq " << std::endl;
 //    std::cout << mym_sn_sq << " mym_sn_sq " << std::endl;
 //    std::cout << mym_se_sq << " mym_se_sq " << std::endl;
     
     mW = mySUSY.Mw_tree();
     sinthetaW = sqrt(mySUSY.StandardModel::sW2(mW));
  
     upQmassM.assign(0,0,mySUSY.Mq_Q(mySUSY.UP));
     upQmassM.assign(1,1,mySUSY.Mq_Q(mySUSY.CHARM));
     upQmassM.assign(2,2,mySUSY.Mq_Q(mySUSY.TOP));
  
     downQmassM.assign(0,0,mySUSY.Mq_Q(mySUSY.DOWN));
     downQmassM.assign(1,1,mySUSY.Mq_Q(mySUSY.STRANGE));
     downQmassM.assign(2,2,mySUSY.Mq_Q(mySUSY.BOTTOM));
     
     for (int i = 0; i < 6; i++) {
         for (int j = 0; j < 3; j++) {
             gslpp::complex sum_k_gamULCKM = 0.,sum_k_gamURCKMMU = 0., sum_k_gamULCKMMD = 0., sum_k_gamDRMD = 0., sum_k_gamDLMD = 0.;
             for (int k = 0; k < 3; k++) {
                 gslpp::complex temp_QmassUCKM = 0., temp_CKMQmassD = 0.;
                 for (int l = 0; l < 3; l++) {
                     temp_QmassUCKM +=  upQmassM(k, l) * myCKM(l, j);
                     temp_CKMQmassD +=  myCKM(k, l) * downQmassM(l, j) ;
                 }
                 sum_k_gamULCKM += myRu(i, k) * myCKM(k, j);
                 sum_k_gamURCKMMU +=  myRu(i, k + 3) * temp_QmassUCKM;
                 sum_k_gamULCKMMD += myRu(i, k) * temp_CKMQmassD;
                 sum_k_gamDRMD += myRd(i, k + 3) * downQmassM(k, j);
                 sum_k_gamDLMD += myRd(i, k) * downQmassM(k, j);
             }
             gamULCKM.assign(i, j, sum_k_gamULCKM);
             gamURCKMMU.assign(i, j, sum_k_gamURCKMMU);
             gamULCKMMD.assign(i, j, sum_k_gamULCKMMD);
             gamDRMD.assign(i, j, sum_k_gamDRMD);
             gamDLMD.assign(i, j, sum_k_gamDLMD);
         }
     }
  
     for (int i = 0; i < 6; i++) {
         for (int j = 0; j < 6; j++) {
             gslpp::complex sum_k_gamULgamULdag = 0.,sum_k_gamDRgamDRdag = 0.;
             for (int k = 0; k < 3; k++) {
                 sum_k_gamULgamULdag += myRu(i, k) * myRu(j, k).conjugate();
                 sum_k_gamDRgamDRdag += myRd(i, k + 3) * myRd(j, k + 3).conjugate();
             }
             gamULgamULdag.assign(i, j, sum_k_gamULgamULdag);
             gamDRgamDRdag.assign(i, j, sum_k_gamDRgamDRdag); 
         }
     }
  
     for (int i = 0; i < 6; i++) {
         for (int j = 0; j < 3; j++) {
             for (int k = 0; k < 2; k++) {
                 XUL[i][j][k] = gW * (-myV(k, 0).conjugate() * gamULCKM(i, j) + myV(k, 1).conjugate() * gamURCKMMU(i, j) / (sqrt(2.) * mW * sinb));
                 XUR[i][j][k] = gW * (myU(k, 1) * gamULCKMMD(i, j) / (sqrt(2.) * mW * cosb));
             }
         }
     }
  
     for (int i = 0; i < 6; i++) {
         for (int j = 0; j < 3; j++) {
             for (int k = 0; k < 4; k++) {
                 ZDL[i][j][k] = -gW/sqrt(2.) * ((-myN(k, 1).conjugate() + 1./3. * (sinthetaW / sqrt(1. - sinthetaW * sinthetaW)) * myN(k, 0).conjugate()) * myRd(i, j) + myN(k, 2).conjugate() * gamDRMD(i, j) / (mW * cosb));
                 ZDR[i][j][k] = -gW/sqrt(2.) * (2./3. * (sinthetaW / sqrt(1. - sinthetaW * sinthetaW)) * myN(k, 0) * myRd(i, j + 3) + myN(k, 2) * gamDLMD(i, j) / (mW * cosb));
             }
         }
     }
  
 }

◆ VdDNL() [1/2]

gslpp::complex SUSYMatching::VdDNL	(	int	b,
		int	k,
		int	j,
		int	flag
	)

private

Definition at line 1021 of file SUSYMatching.cpp.

                                                               {
  
     return (VdDNL_cache[b][k][j][flag]);
  
 }

◆ VdDNL() [2/2]

gslpp::complex SUSYMatching::VdDNL	(	int	b,
		int	k,
		int	j,
		int	flag,
		int	Dmixingflag
	)

private

Definition at line 1264 of file SUSYMatching.cpp.

                                                                                {
  
     if (Dmixingflag == 0) {
  
         return (VdDNL(b, k, j, flag));
  
     }
     else if (Dmixingflag == 1) {
  
         return (VuUN(b, k, j, "L"));
     }
     else {
  
         throw std::runtime_error("Error in VdDNL(b,k,j,flag,Dmixingflag) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ VdDNR() [1/2]

gslpp::complex SUSYMatching::VdDNR	(	int	b,
		int	k,
		int	j,
		int	flag
	)

private

Definition at line 1088 of file SUSYMatching.cpp.

                                                               {
  
     return (VdDNR_cache[b][k][j][flag]);
     
 }

◆ VdDNR() [2/2]

gslpp::complex SUSYMatching::VdDNR	(	int	b,
		int	k,
		int	j,
		int	flag,
		int	Dmixingflag
	)

private

Definition at line 1283 of file SUSYMatching.cpp.

                                                                                {
  
     if (Dmixingflag == 0) {
  
         return (VdDNR(b, k, j, flag));
  
     }
     else if (Dmixingflag == 1) {
  
         return (VuUN(b, k, j, "R"));
     }
     else {
  
         throw std::runtime_error("Error in VdDNR(b,k,j,flag,Dmixingflag) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ VdUCL() [1/2]

gslpp::complex SUSYMatching::VdUCL	(	int	b,
		int	k,
		int	j
	)

private

Definition at line 900 of file SUSYMatching.cpp.

                                                     {
  
     return (VdUCL_cache[b][k][j]);
  
 }

◆ VdUCL() [2/2]

gslpp::complex SUSYMatching::VdUCL	(	int	b,
		int	k,
		int	j,
		int	Dmixingflag
	)

private

Rules to include in the same formulas the D - D bar mixing

Definition at line 1169 of file SUSYMatching.cpp.

                                                                      {
  
     if (Dmixingflag == 0) {
  
         return (VdUCL(b, k, j));
     }
     else if (Dmixingflag == 1) {
  
         return (VuDCL(b, k, j));
     }
     else {
             
              throw std::runtime_error("Error in VdUCL(b,k,j,flag,Dmixingflag) in SUSYMatching.cpp  "); 
     }
 }

◆ VdUCR() [1/2]

gslpp::complex SUSYMatching::VdUCR	(	int	b,
		int	k,
		int	j,
		int	flag
	)

private

Definition at line 950 of file SUSYMatching.cpp.

                                                               {
    
     return (VdUCR_cache[b][k][j][flag]);       
 }

◆ VdUCR() [2/2]

gslpp::complex SUSYMatching::VdUCR	(	int	b,
		int	k,
		int	j,
		int	flag,
		int	Dmixingflag
	)

private

Definition at line 1185 of file SUSYMatching.cpp.

                                                                                {
  
     if (Dmixingflag == 0) {
  
         return (VdUCR(b, k, j, flag));
     }
     else if (Dmixingflag == 1) {
  
         return (VuDCR(b, k, j));
     }
     else {
             
              throw std::runtime_error("Error in VdUCR(b,k,j,flag,Dmixingflag) in SUSYMatching.cpp  "); 
     }
 }

◆ VuDCL()

gslpp::complex SUSYMatching::VuDCL	(	int	b,
		int	k,
		int	j
	)

private

Definition at line 1125 of file SUSYMatching.cpp.

                                                     {
  
     return (VuDCL_cache[b][k][j]);
  
 }

◆ VuDCR()

gslpp::complex SUSYMatching::VuDCR	(	int	b,
		int	k,
		int	j
	)

private

Definition at line 1164 of file SUSYMatching.cpp.

                                                     {
  
     return (VuDCR_cache[b][k][j]);
 }

◆ VUDHH()

gslpp::complex SUSYMatching::VUDHH	(	int	i,
		int	j
	)

private

Definition at line 1418 of file SUSYMatching.cpp.

                                              {
  
     return (VUDHH_cache(i, j));
   
 }

◆ VuUN()

gslpp::complex SUSYMatching::VuUN	(	int	b,
		int	k,
		int	j,
		const std::string	chirality
	)

private

Definition at line 1238 of file SUSYMatching.cpp.

                                                                               {
  
     if (chirality.compare("L") == 0) {
  
         return (VuUNL_cache[b][k][j]);
  
     }
     else if (chirality.compare("R") == 0) {
  
         return (VuUNR_cache[b][k][j]);
  
     }
     else {
  
         std::cout << " VuUN error in SUSYMatching.cpp" << std::endl;
         
     }
  
     return (EXIT_FAILURE);
     
 }

◆ xdS()

gslpp::complex SUSYMatching::xdS ( int S )

private

Definition at line 1544 of file SUSYMatching.cpp.

                                    {
     
     double M2A = mySUSY.getMHa() * mySUSY.getMHa();
     double M2Z = mySUSY.getMz() * mySUSY.getMz();
     double tan2alpha = 2. * tanb / (1 - tanb * tanb) * (M2A + M2Z) / (M2A - M2Z); 
     double tana = (-1. + sqrt(1. + tan2alpha * tan2alpha)) / tan2alpha;
     double sina = tana / sqrt(1. + tana * tana);
     double cosa = 1. / sqrt(1 + tana * tana);
     
     gslpp::complex Cosa(cosa,0.,false);
     gslpp::complex Sina(sina,0.,false);
     gslpp::complex i(0.,1.,false);
  
  
     switch ( S ) {
         case 0:
             return (Cosa);
  
         case 1:
             return (-Sina);
             
         case 2:
             return ( i * mySUSY.getSinb());
             
         default:
             throw std::runtime_error("Error in xdS(S) in SUSYMatching.cpp  ");
             break;
     }
     
     return (EXIT_FAILURE);
 }

◆ XLRS()

gslpp::complex SUSYMatching::XLRS	(	int	J,
		int	I,
		int	S
	)

private

Definition at line 1626 of file SUSYMatching.cpp.

                                                   {
  
  
     double Y2ut = sqrt(2.) / v2 * mySUSYMQ(4);
     Y2ut *= Y2ut;
     gslpp::complex temp(0.,0.,false);
     temp = 1 + Eps_J(J) * tanb;
     gslpp::complex rJI(0.,0.,false);
         
     rJI = ((1. +  (Eps_J(J) + (Eps_J(I).conjugate() - Eps_J(J).conjugate()) *
             Lambda0EpsY(J, I) / Lambda0EpsY(I, J).conjugate()) * tanb) /
             (1 + Eps_J(I).conjugate() * tanb));   
     
     if (J > I) {    
         return (mySUSYMQ(2 * I + 1) / (v1 * temp.abs2()) *
                 Lambda0EpsY(I, J).conjugate() * Y2ut * rJI *
                 (xuS(S).conjugate() - xdS(S).conjugate() * tanb));
     }
     else if (J < I) {
         return (XRLS(I, J, S).conjugate());
  
     }
     else {
         throw std::runtime_error("Error in XLRS(J,I,S) in SUSYMatching.cpp  ");
     }
     
     return (EXIT_FAILURE);
     
 }

◆ XRLS()

gslpp::complex SUSYMatching::XRLS	(	int	J,
		int	I,
		int	S
	)

private

Definition at line 1608 of file SUSYMatching.cpp.

                                                   {
     
     if (J > I) {            
         return (mySUSYMQ(2 * J + 1) / (v1 * (1 + Eps_J(J) * tanb) *
                 (1 + Eps_J(J) * tanb))  * Lambda0EpsY(J, I) * 2. / (v2 * v2) 
                 * mySUSYMQ(4) * mySUSYMQ(4) *
                 (xuS(S) - xdS(S) * tanb));
     }
     else if (J < I) {
         return (XLRS(I, J, S).conjugate());
     }
     else {
         throw std::runtime_error("Error in XRLS(J,I,S) in SUSYMatching.cpp  ");
     }
  
     return (EXIT_FAILURE);
 }

◆ xuS()

gslpp::complex SUSYMatching::xuS ( int S )

private

Definition at line 1576 of file SUSYMatching.cpp.

                                    {
     
     double M2A = mySUSY.getMHa() * mySUSY.getMHa();
     double M2Z = mySUSY.getMz() * mySUSY.getMz();
    
     double tan2alpha = 2. * tanb / (1 - tanb * tanb) * (M2A + M2Z) / (M2A - M2Z); 
     double tana = (-1. + sqrt(1. + tan2alpha * tan2alpha)) / tan2alpha;
     double sina = tana / sqrt(1. + tana * tana);
     double cosa = 1. / sqrt(1 + tana * tana);
     
     gslpp::complex Cosa(cosa,0.,false);
     gslpp::complex Sina(sina,0.,false);
     gslpp::complex i(0.,1.,false);
     
     switch ( S ) {
         case 0:
             return (Sina);
  
         case 1:
             return (Cosa);
             
         case 2:
             return (-i * mySUSY.getCosb());
             
         default:
             throw std::runtime_error("Error in xuS(S) in SUSYMatching.cpp  ");
             break;
     }
  
     return (EXIT_FAILURE);
 }

Member Data Documentation

◆ Als

double SUSYMatching::Als

private

Definition at line 466 of file SUSYMatching.h.

◆ AmpA1LC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpA1LC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpA1LN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpA1LN

private

Amplitudes of Chargino and Neutralino contribution to various LFV observables.

Definition at line 423 of file SUSYMatching.h.

◆ AmpA1RC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpA1RC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpA1RN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpA1RN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpALC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpALC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpALN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpALN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpARC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpARC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpARN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpARN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauA1LC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauA1LC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauA1LN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauA1LN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauA1RC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauA1RC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauA1RN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauA1RN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauALC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauALC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauALN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauALN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauARC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauARC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTauARN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTauARN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEA1LC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEA1LC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEA1LN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEA1LN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEA1RC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEA1RC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEA1RN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEA1RN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEALC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEALC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEALN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEALN

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEARC

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEARC

private

Definition at line 423 of file SUSYMatching.h.

◆ AmpTEARN

gslpp::matrix<gslpp::complex> SUSYMatching::AmpTEARN

private

Definition at line 423 of file SUSYMatching.h.

◆ CLlE

gslpp::matrix<gslpp::complex> SUSYMatching::CLlE

private

Definition at line 398 of file SUSYMatching.h.

◆ CLlMU

gslpp::matrix<gslpp::complex> SUSYMatching::CLlMU

private

Definition at line 398 of file SUSYMatching.h.

◆ CLlTAU

gslpp::matrix<gslpp::complex> SUSYMatching::CLlTAU

private

Definition at line 398 of file SUSYMatching.h.

◆ CLqDOWN

gslpp::matrix<gslpp::complex> SUSYMatching::CLqDOWN

private

Definition at line 398 of file SUSYMatching.h.

◆ CLqUP

gslpp::matrix<gslpp::complex> SUSYMatching::CLqUP

private

Definition at line 398 of file SUSYMatching.h.

◆ cosb

double SUSYMatching::cosb

private

Definition at line 471 of file SUSYMatching.h.

◆ CRlE

gslpp::matrix<gslpp::complex> SUSYMatching::CRlE

private

Chargino and Neutralino couplings to sfermions.

Definition at line 398 of file SUSYMatching.h.

◆ CRlMU

gslpp::matrix<gslpp::complex> SUSYMatching::CRlMU

private

Definition at line 398 of file SUSYMatching.h.

◆ CRlTAU

gslpp::matrix<gslpp::complex> SUSYMatching::CRlTAU

private

Definition at line 398 of file SUSYMatching.h.

◆ CRqDOWN

gslpp::matrix<gslpp::complex> SUSYMatching::CRqDOWN

private

Definition at line 398 of file SUSYMatching.h.

◆ CRqUP

gslpp::matrix<gslpp::complex> SUSYMatching::CRqUP

private

Definition at line 398 of file SUSYMatching.h.

◆ DeltaDL_Cache

gslpp::matrix<gslpp::complex> SUSYMatching::DeltaDL_Cache

private

Definition at line 622 of file SUSYMatching.h.

◆ DeltaMd_cache

gslpp::matrix<gslpp::complex> SUSYMatching::DeltaMd_cache

private

Definition at line 665 of file SUSYMatching.h.

◆ downQmassM

gslpp::matrix<gslpp::complex> SUSYMatching::downQmassM

private

Definition at line 513 of file SUSYMatching.h.

◆ Eps_JCache

gslpp::vector<gslpp::complex> SUSYMatching::Eps_JCache

private

Definition at line 615 of file SUSYMatching.h.

◆ gamDLMD

gslpp::matrix<gslpp::complex> SUSYMatching::gamDLMD

private

Definition at line 511 of file SUSYMatching.h.

◆ gamDRgamDRdag

gslpp::matrix<gslpp::complex> SUSYMatching::gamDRgamDRdag

private

Definition at line 512 of file SUSYMatching.h.

◆ gamDRMD

gslpp::matrix<gslpp::complex> SUSYMatching::gamDRMD

private

Definition at line 511 of file SUSYMatching.h.

◆ gamULCKM

gslpp::matrix<gslpp::complex> SUSYMatching::gamULCKM

private

Definition at line 511 of file SUSYMatching.h.

◆ gamULCKMMD

gslpp::matrix<gslpp::complex> SUSYMatching::gamULCKMMD

private

Definition at line 511 of file SUSYMatching.h.

◆ gamULgamULdag

gslpp::matrix<gslpp::complex> SUSYMatching::gamULgamULdag

private

Definition at line 512 of file SUSYMatching.h.

◆ gamURCKM

gslpp::matrix<gslpp::complex> SUSYMatching::gamURCKM

private

Definition at line 511 of file SUSYMatching.h.

◆ gamURCKMMU

gslpp::matrix<gslpp::complex> SUSYMatching::gamURCKMMU

private

Definition at line 511 of file SUSYMatching.h.

◆ gW

double SUSYMatching::gW

private

Definition at line 475 of file SUSYMatching.h.

◆ Lambda0EpsYCache

gslpp::matrix<gslpp::complex> SUSYMatching::Lambda0EpsYCache

private

Definition at line 618 of file SUSYMatching.h.

◆ Leptf1

gslpp::matrix<double> SUSYMatching::Leptf1

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptf2

gslpp::matrix<double> SUSYMatching::Leptf2

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptf3

gslpp::matrix<double> SUSYMatching::Leptf3

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptf4

gslpp::matrix<double> SUSYMatching::Leptf4

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptfa1

gslpp::matrix<double> SUSYMatching::Leptfa1

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptfa2

gslpp::matrix<double> SUSYMatching::Leptfa2

private

Definition at line 380 of file SUSYMatching.h.

◆ Leptfzc

std::complex<double> SUSYMatching::Leptfzc[3][2][2]

private

Definition at line 381 of file SUSYMatching.h.

◆ Leptfzn

std::complex<double> SUSYMatching::Leptfzn[6][4][4]

private

Definition at line 381 of file SUSYMatching.h.

◆ Leptgzc

std::complex<double> SUSYMatching::Leptgzc[3][2][2]

private

Definition at line 381 of file SUSYMatching.h.

◆ Leptgzn

std::complex<double> SUSYMatching::Leptgzn[6][4][4]

private

Definition at line 381 of file SUSYMatching.h.

◆ Lepty

gslpp::matrix<double> SUSYMatching::Lepty

private

Functions needed to calculate various LFV observables.

Definition at line 380 of file SUSYMatching.h.

◆ Leptz

gslpp::matrix<double> SUSYMatching::Leptz

private

Definition at line 380 of file SUSYMatching.h.

◆ mcBMll

WilsonCoefficient SUSYMatching::mcBMll

private

Definition at line 323 of file SUSYMatching.h.

◆ mcbnlep

WilsonCoefficient SUSYMatching::mcbnlep

private

Definition at line 323 of file SUSYMatching.h.

◆ mcbnlepCC

WilsonCoefficient SUSYMatching::mcbnlepCC

private

Definition at line 323 of file SUSYMatching.h.

◆ mcbsg

WilsonCoefficient SUSYMatching::mcbsg

private

Definition at line 323 of file SUSYMatching.h.

◆ mcd1

WilsonCoefficient SUSYMatching::mcd1

private

Definition at line 323 of file SUSYMatching.h.

◆ mcd1Buras

WilsonCoefficient SUSYMatching::mcd1Buras

private

Definition at line 323 of file SUSYMatching.h.

◆ mcdbd2

WilsonCoefficient SUSYMatching::mcdbd2

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2Chi0Chi0

WilsonCoefficient SUSYMatching::mcdbd2Chi0Chi0

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2Chi0Chi0T

WilsonCoefficient SUSYMatching::mcdbd2Chi0Chi0T

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2Chi0g

WilsonCoefficient SUSYMatching::mcdbd2Chi0g

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2Chi0gT

WilsonCoefficient SUSYMatching::mcdbd2Chi0gT

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2ChiChi

WilsonCoefficient SUSYMatching::mcdbd2ChiChi

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2ChiChiT

WilsonCoefficient SUSYMatching::mcdbd2ChiChiT

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2gg

WilsonCoefficient SUSYMatching::mcdbd2gg

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2ggT

WilsonCoefficient SUSYMatching::mcdbd2ggT

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2Hp

WilsonCoefficient SUSYMatching::mcdbd2Hp

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbd2HpT

WilsonCoefficient SUSYMatching::mcdbd2HpT

private

Definition at line 313 of file SUSYMatching.h.

◆ mcdbs2

WilsonCoefficient SUSYMatching::mcdbs2

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2Chi0Chi0

WilsonCoefficient SUSYMatching::mcdbs2Chi0Chi0

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2Chi0Chi0T

WilsonCoefficient SUSYMatching::mcdbs2Chi0Chi0T

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2Chi0g

WilsonCoefficient SUSYMatching::mcdbs2Chi0g

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2Chi0gT

WilsonCoefficient SUSYMatching::mcdbs2Chi0gT

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2ChiChi

WilsonCoefficient SUSYMatching::mcdbs2ChiChi

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2ChiChiT

WilsonCoefficient SUSYMatching::mcdbs2ChiChiT

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2gg

WilsonCoefficient SUSYMatching::mcdbs2gg

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2ggT

WilsonCoefficient SUSYMatching::mcdbs2ggT

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2Hp

WilsonCoefficient SUSYMatching::mcdbs2Hp

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdbs2HpT

WilsonCoefficient SUSYMatching::mcdbs2HpT

private

Definition at line 315 of file SUSYMatching.h.

◆ mcdd2

WilsonCoefficient SUSYMatching::mcdd2

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2Chi0Chi0

WilsonCoefficient SUSYMatching::mcdd2Chi0Chi0

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2Chi0Chi0T

WilsonCoefficient SUSYMatching::mcdd2Chi0Chi0T

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2Chi0g

WilsonCoefficient SUSYMatching::mcdd2Chi0g

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2Chi0gT

WilsonCoefficient SUSYMatching::mcdd2Chi0gT

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2ChiChi

WilsonCoefficient SUSYMatching::mcdd2ChiChi

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2ChiChiT

WilsonCoefficient SUSYMatching::mcdd2ChiChiT

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2gg

WilsonCoefficient SUSYMatching::mcdd2gg

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2ggT

WilsonCoefficient SUSYMatching::mcdd2ggT

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2Hp

WilsonCoefficient SUSYMatching::mcdd2Hp

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdd2HpT

WilsonCoefficient SUSYMatching::mcdd2HpT

private

Definition at line 319 of file SUSYMatching.h.

◆ mcdk2

WilsonCoefficient SUSYMatching::mcdk2

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2Chi0Chi0

WilsonCoefficient SUSYMatching::mcdk2Chi0Chi0

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2Chi0Chi0T

WilsonCoefficient SUSYMatching::mcdk2Chi0Chi0T

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2Chi0g

WilsonCoefficient SUSYMatching::mcdk2Chi0g

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2Chi0gT

WilsonCoefficient SUSYMatching::mcdk2Chi0gT

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2ChiChi

WilsonCoefficient SUSYMatching::mcdk2ChiChi

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2ChiChiT

WilsonCoefficient SUSYMatching::mcdk2ChiChiT

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2gg

WilsonCoefficient SUSYMatching::mcdk2gg

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2ggT

WilsonCoefficient SUSYMatching::mcdk2ggT

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2Hp

WilsonCoefficient SUSYMatching::mcdk2Hp

private

Definition at line 317 of file SUSYMatching.h.

◆ mcdk2HpT

WilsonCoefficient SUSYMatching::mcdk2HpT

private

Definition at line 317 of file SUSYMatching.h.

◆ mcDLi3j

WilsonCoefficient SUSYMatching::mcDLi3j

private

Definition at line 321 of file SUSYMatching.h.

◆ mcDLij

WilsonCoefficient SUSYMatching::mcDLij

private

Definition at line 321 of file SUSYMatching.h.

◆ mcgminus2mu

WilsonCoefficient SUSYMatching::mcgminus2mu

private

Definition at line 321 of file SUSYMatching.h.

◆ MChi

gslpp::vector<double> SUSYMatching::MChi

private

Chargino mass-eigenvalue.

Definition at line 358 of file SUSYMatching.h.

◆ MChi0

gslpp::vector<double> SUSYMatching::MChi0

private

Neutralino mass-eigenvalue.

Definition at line 368 of file SUSYMatching.h.

◆ mcmueconv

WilsonCoefficient SUSYMatching::mcmueconv

private

Definition at line 321 of file SUSYMatching.h.

◆ Mg

double SUSYMatching::Mg

private

Definition at line 467 of file SUSYMatching.h.

◆ MHpm

double SUSYMatching::MHpm

private

Definition at line 468 of file SUSYMatching.h.

◆ MNeig

gslpp::vector<double> SUSYMatching::MNeig

private

Definition at line 368 of file SUSYMatching.h.

◆ mu2R

double SUSYMatching::mu2R

private

Definition at line 465 of file SUSYMatching.h.

◆ mW

double SUSYMatching::mW

private

Definition at line 475 of file SUSYMatching.h.

◆ myCKM

gslpp::matrix<gslpp::complex> SUSYMatching::myCKM

private

Definition at line 333 of file SUSYMatching.h.

◆ myCKM_cache

gslpp::matrix<gslpp::complex> SUSYMatching::myCKM_cache

private

Definition at line 663 of file SUSYMatching.h.

◆ mym_sd_sq

gslpp::vector<double> SUSYMatching::mym_sd_sq

private

Definition at line 348 of file SUSYMatching.h.

◆ mym_se_sq

gslpp::vector<double> SUSYMatching::mym_se_sq

private

Definition at line 348 of file SUSYMatching.h.

◆ mym_sn_sq

gslpp::vector<double> SUSYMatching::mym_sn_sq

private

Definition at line 348 of file SUSYMatching.h.

◆ mym_su_sq

gslpp::vector<double> SUSYMatching::mym_su_sq

private

Sfermion mass-eigenvalue squared.

Definition at line 348 of file SUSYMatching.h.

◆ myN

gslpp::matrix<gslpp::complex> SUSYMatching::myN

private

Neutralino mixing matrix.

Definition at line 372 of file SUSYMatching.h.

◆ myRd

gslpp::matrix<gslpp::complex> SUSYMatching::myRd

private

Definition at line 353 of file SUSYMatching.h.

◆ myRl

gslpp::matrix<gslpp::complex> SUSYMatching::myRl

private

Definition at line 353 of file SUSYMatching.h.

◆ myRn

gslpp::matrix<gslpp::complex> SUSYMatching::myRn

private

Definition at line 353 of file SUSYMatching.h.

◆ myRu

gslpp::matrix<gslpp::complex> SUSYMatching::myRu

private

Sfermion mixing matrices.

Definition at line 353 of file SUSYMatching.h.

◆ mySUSY

const SUSY& SUSYMatching::mySUSY

private

Definition at line 309 of file SUSYMatching.h.

◆ mySUSYMQ

gslpp::vector<double> SUSYMatching::mySUSYMQ

private

Definition at line 666 of file SUSYMatching.h.

◆ myU

gslpp::matrix<gslpp::complex> SUSYMatching::myU

private

Definition at line 363 of file SUSYMatching.h.

◆ myV

gslpp::matrix<gslpp::complex> SUSYMatching::myV

private

Chargino mixing matrices.

Definition at line 362 of file SUSYMatching.h.

◆ NLlE

gslpp::matrix<gslpp::complex> SUSYMatching::NLlE

private

Definition at line 398 of file SUSYMatching.h.

◆ NLlMU

gslpp::matrix<gslpp::complex> SUSYMatching::NLlMU

private

Definition at line 398 of file SUSYMatching.h.

◆ NLlTAU

gslpp::matrix<gslpp::complex> SUSYMatching::NLlTAU

private

Definition at line 398 of file SUSYMatching.h.

◆ NLqDOWN

gslpp::matrix<gslpp::complex> SUSYMatching::NLqDOWN

private

Definition at line 398 of file SUSYMatching.h.

◆ NLqUP

gslpp::matrix<gslpp::complex> SUSYMatching::NLqUP

private

Definition at line 398 of file SUSYMatching.h.

◆ NRlE

gslpp::matrix<gslpp::complex> SUSYMatching::NRlE

private

Definition at line 398 of file SUSYMatching.h.

◆ NRlMU

gslpp::matrix<gslpp::complex> SUSYMatching::NRlMU

private

Definition at line 398 of file SUSYMatching.h.

◆ NRlTAU

gslpp::matrix<gslpp::complex> SUSYMatching::NRlTAU

private

Definition at line 398 of file SUSYMatching.h.

◆ NRqDOWN

gslpp::matrix<gslpp::complex> SUSYMatching::NRqDOWN

private

Definition at line 398 of file SUSYMatching.h.

◆ NRqUP

gslpp::matrix<gslpp::complex> SUSYMatching::NRqUP

private

Definition at line 398 of file SUSYMatching.h.

◆ ON

gslpp::matrix<gslpp::complex> SUSYMatching::ON

private

Definition at line 372 of file SUSYMatching.h.

◆ PHLRCache

gslpp::matrix<gslpp::complex> SUSYMatching::PHLRCache

private

Definition at line 636 of file SUSYMatching.h.

◆ PHRLCache

gslpp::matrix<gslpp::complex> SUSYMatching::PHRLCache

private

Definition at line 642 of file SUSYMatching.h.

◆ Polylogs

const Polylogarithms SUSYMatching::Polylogs

private

Definition at line 310 of file SUSYMatching.h.

◆ PV

const PVfunctions SUSYMatching::PV

private

Definition at line 311 of file SUSYMatching.h.

◆ Q_S

double SUSYMatching::Q_S

private

Definition at line 464 of file SUSYMatching.h.

◆ sinb

double SUSYMatching::sinb

private

Definition at line 470 of file SUSYMatching.h.

◆ sinthetaW

double SUSYMatching::sinthetaW

private

Definition at line 475 of file SUSYMatching.h.

◆ tanb

double SUSYMatching::tanb

private

Definition at line 469 of file SUSYMatching.h.

◆ TDhat

gslpp::matrix<gslpp::complex> SUSYMatching::TDhat

private

Sdown tri-linear coupling matrix.

Definition at line 457 of file SUSYMatching.h.

◆ TEhat

gslpp::matrix<gslpp::complex> SUSYMatching::TEhat

private

Slepton tri-linear coupling matrix.

Definition at line 462 of file SUSYMatching.h.

◆ TUhat

gslpp::matrix<gslpp::complex> SUSYMatching::TUhat

private

Sup tri-linear coupling matrix.

Definition at line 452 of file SUSYMatching.h.

◆ upQmassM

gslpp::matrix<gslpp::complex> SUSYMatching::upQmassM

private

Definition at line 513 of file SUSYMatching.h.

◆ v

double SUSYMatching::v

private

Definition at line 472 of file SUSYMatching.h.

◆ v1

double SUSYMatching::v1

private

Definition at line 473 of file SUSYMatching.h.

◆ v2

double SUSYMatching::v2

private

Definition at line 474 of file SUSYMatching.h.

◆ VdDNL_cache

gslpp::complex SUSYMatching::VdDNL_cache[3][6][4][2]

private

Feynmann rule for the Neutralino - down quark - down squarks vertex with tan beta correction

Definition at line 573 of file SUSYMatching.h.

◆ VdDNR_cache

gslpp::complex SUSYMatching::VdDNR_cache[3][6][4][2]

private

Definition at line 574 of file SUSYMatching.h.

◆ VdUCL_cache

gslpp::complex SUSYMatching::VdUCL_cache[3][6][2]

private

Feynmann rule for the Chargino - down quark - up squarks vertex with tan beta correction

Definition at line 565 of file SUSYMatching.h.

◆ VdUCR_cache

gslpp::complex SUSYMatching::VdUCR_cache[3][6][2][2]

private

Definition at line 566 of file SUSYMatching.h.

◆ vmcbsg

std::vector<WilsonCoefficient> SUSYMatching::vmcbsg

private

Definition at line 329 of file SUSYMatching.h.

◆ vmdbd2

std::vector<WilsonCoefficient> SUSYMatching::vmdbd2

private

Definition at line 325 of file SUSYMatching.h.

◆ vmdbs2

std::vector<WilsonCoefficient> SUSYMatching::vmdbs2

private

Definition at line 326 of file SUSYMatching.h.

◆ vmdd2

std::vector<WilsonCoefficient> SUSYMatching::vmdd2

private

Definition at line 328 of file SUSYMatching.h.

◆ vmdk2

std::vector<WilsonCoefficient> SUSYMatching::vmdk2

private

Definition at line 327 of file SUSYMatching.h.

◆ VuDCL_cache

gslpp::complex SUSYMatching::VuDCL_cache[3][6][2]

private

Feynmann rule for the Chargino - up quark - down squarks vertex with tan beta correction

Definition at line 581 of file SUSYMatching.h.

◆ VuDCR_cache

gslpp::complex SUSYMatching::VuDCR_cache[3][6][2]

private

Definition at line 582 of file SUSYMatching.h.

◆ VUDHH_cache

gslpp::matrix<gslpp::complex> SUSYMatching::VUDHH_cache

private

Definition at line 664 of file SUSYMatching.h.

◆ VuUNL_cache

gslpp::complex SUSYMatching::VuUNL_cache[3][6][4]

private

Vertices Neutralino (N) - up quark (u) - up squarks (U) from Buras arXiv:hep-ph/0210145v2 in SLHA convention usefull in D - Dbar mixing

Definition at line 590 of file SUSYMatching.h.

◆ VuUNR_cache

gslpp::complex SUSYMatching::VuUNR_cache[3][6][4]

private

Definition at line 591 of file SUSYMatching.h.

◆ XUL

gslpp::complex SUSYMatching::XUL[6][3][2]

private

Definition at line 515 of file SUSYMatching.h.

◆ XUR

gslpp::complex SUSYMatching::XUR[6][3][2]

private

Definition at line 515 of file SUSYMatching.h.

◆ ZDL

gslpp::complex SUSYMatching::ZDL[6][3][4]

private

Definition at line 515 of file SUSYMatching.h.

◆ ZDR

gslpp::complex SUSYMatching::ZDR[6][3][4]

private

Definition at line 515 of file SUSYMatching.h.

The documentation for this class was generated from the following files:

Detailed Description

Public Member Functions

Private Member Functions

Private Attributes

Constructor & Destructor Documentation

◆ SUSYMatching()

Member Function Documentation

◆ AFunctions()

◆ BFunctions()

◆ BHFunctions()

◆ Bk()

◆ BL()

◆ bsll_C0()

◆ bsll_C2()

◆ bsll_D0reg()

◆ bsll_D2reg()

◆ bsll_DeltaC10_SUSY()

◆ bsll_DeltaC7_SUSY()

◆ bsll_DeltaC9_SUSY()

◆ bsll_f1()

◆ bsll_f2()

◆ bsll_f3()

◆ bsll_f4()

◆ bsll_f5()

◆ bsll_f6()

◆ bsll_f7()

◆ bsll_f8()

◆ bsll_Y_SUSY()

◆ bsll_Z_SUSY()

◆ C10_Lepton()

◆ C7_Lepton()

◆ C9_Lepton()

◆ CalcC7()

◆ CdF2dChi0Chi0()

◆ CdF2dChi0g()

◆ CdF2dChiChi()

◆ CdF2dgg()

◆ CdF2dHp()

◆ Ck()

◆ CL()

◆ CLL()

◆ CMBMll()

◆ CMbsg()

◆ CMdbd2()

◆ CMdbs2()

◆ CMdk2()

◆ CMDLi3j()

◆ CMDLij()

◆ CMgminus2mu()

◆ CMmueconv()

◆ Comp_DeltaDL()

◆ Comp_DeltaMd()

◆ Comp_Eps_J()

◆ Comp_Lambda0EpsY()

◆ Comp_mySUSY_CKM()

◆ Comp_mySUSYMQ()

◆ Comp_PHLR()

◆ Comp_PHRL()

◆ Comp_VdDNL()

◆ Comp_VdDNR()

◆ Comp_VdUCL()

◆ Comp_VdUCR()

◆ Comp_VuDCL()

◆ Comp_VuDCR()

◆ Comp_VUDHH()

◆ Comp_VuUN()

◆ CP_Lepton()

◆ CS_Lepton()

◆ CT_Lepton()

◆ D0N()

◆ D2LL0()

◆ delta_ab()

◆ DeltaDL()

◆ DeltaDR()

◆ DeltaFHL()

◆ DeltaMd()

◆ DFunctions()

◆ Dk()

◆ DL()

◆ DL0()