BSMCharacterisation: MB.fr

File MB.fr, 66.5 KB (added by BenjF, 4 years ago)

Main MB FeynRules file, v1.1

Line 
1(*****************************************************************************)
2(*  This is the FeynRules model file for the EFT mass basis                  *)
3(*****************************************************************************)
4
5(* ************************** *)
6(* *****  Information   ***** *)
7(* ************************** *)
8
9M$ModelName = "MB";
10
11M$Information = {
12 Authors      -> {"B. Fuks", "K. Mawatari"},
13 Version      -> "1.1",
14 Date         -> "30.07.2015",
15 Institutions -> {"IPHC Strasbourg / U. Strasbourg", "Vrije Universiteit Brussel"},
16 Emails       -> {"benjamin.fuks@iphc.cnrs.fr", "kentarou.mawatari@vub.ac.be"},
17 URLs         -> "http://feynrules.irmp.ucl.ac.be/wiki/EFTmassbasis",
18 References   -> {"A. Falkwoski, B. Fuks, K. Mawatari, K. Mimasu, F. Riva and V. Sanz, arXiv:1507.xxxxx"}
19};
20
21
22(* ************************** *)
23(* *****  Change  log   ***** *)
24(* ************************** *)
25
26(* 14.07.2015 v1.0 - release version (based on the Higgs basis note (Jun/14)). *)
27(* 27.07.2015 v1.1 - modifying the flavor structure.                           *)
28
29
30FeynmanGauge = False;
31
32(* ************************** *)
33(* **  Interaction  orders ** *)
34(* ************************** *)
35
36M$InteractionOrderLimit = { {QNP, 2} };
37M$InteractionOrderHierarchy = { {QNP, 1} };
38
39
40(* ************************** *)
41(* *****   Parameters   ***** *)
42(* ************************** *)
43M$Parameters = {
44
45  (* Quadratic terms *)
46  dM  == { TeX -> "\[Delta]m", ParameterType -> External, Value -> 0.1, BlockName -> MBxmass,  OrderBlock -> 1, Description -> "W-mass corrections"},
47
48  (* Lvertex parameters *)
49  RdGLzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLzu[i_,j_]->0.1}, BlockName ->   MBxdGLzu, Description -> "Z-u vertex interactions (real part, L)"},
50  IdGLzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLzu[i_,j_]->0.0}, BlockName -> IMMBxdGLzu, Description -> "Z-u vertex interactions (im part, L)"  },
51  RdGLzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLzd[i_,j_]->0.1}, BlockName ->   MBxdGLzd, Description -> "Z-d vertex interactions (real part, L)"},
52  IdGLzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLzd[i_,j_]->0.0}, BlockName -> IMMBxdGLzd, Description -> "Z-d vertex interactions (im part, L)"  },
53  RdGLze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLze[i_,j_]->0.1}, BlockName ->   MBxdGLzl, Description -> "Z-l vertex interactions (real part, L)"},
54  IdGLze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLze[i_,j_]->0.0}, BlockName -> IMMBxdGLzl, Description -> "Z-l vertex interactions (im part, L)"},
55  RdGLzv ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLzv[i_,j_]->0.1}, BlockName ->   MBxdGLzv, Description -> "Z-v vertex interactions (real part, L)"},
56  IdGLzv ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLzv[i_,j_]->0.0}, BlockName -> IMMBxdGLzv, Description -> "Z-v vertex interactions (im part, L)"},
57  RdGRzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRzu[i_,j_]->0.1}, BlockName ->   MBxdGRzu, Description -> "Z-u vertex interactions (real part, R)"},
58  IdGRzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRzu[i_,j_]->0.0}, BlockName -> IMMBxdGRzu, Description -> "Z-u vertex interactions (im part, R)"  },
59  RdGRzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRzd[i_,j_]->0.1}, BlockName ->   MBxdGRzd, Description -> "Z-d vertex interactions (real part, R)"},
60  IdGRzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRzd[i_,j_]->0.0}, BlockName -> IMMBxdGRzd, Description -> "Z-d vertex interactions (im part, R)"  },
61  RdGRze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRze[i_,j_]->0.1}, BlockName ->   MBxdGRzl, Description -> "Z-l vertex interactions (real part, R)"},
62  IdGRze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRze[i_,j_]->0.0}, BlockName -> IMMBxdGRzl, Description -> "Z-l vertex interactions (im part, R)"},
63  RdGLwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLwq[i_,j_]->0.1}, BlockName ->   MBxdGWLq, Description -> "W-q vertex interactions (real part, L)"},
64  IdGLwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLwq[i_,j_]->0.0}, BlockName -> IMMBxdGWLq, Description -> "W-q vertex interactions (im part, L)"  },
65  RdGRwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRwq[i_,j_]->0.1}, BlockName ->   MBxdGWRq, Description -> "W-q vertex interactions (real part, R)"},
66  IdGRwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRwq[i_,j_]->0.0}, BlockName -> IMMBxdGWRq, Description -> "W-q vertex interactions (im part, R)"  },
67  RdGLwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLwl[i_,j_]->0.1}, BlockName ->   MBxdGWLl, Description -> "W-l vertex interactions (real part, L)"},
68  IdGLwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLwl[i_,j_]->0.0}, BlockName -> IMMBxdGWLl, Description -> "W-l vertex interactions (im part, L)"  },
69
70  dGLzu ==  { TeX -> Subsuperscript["\[Delta]g", L, Zu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
71    Value -> {dGLzu[i_,j_]->RdGLzu[i,j] + I IdGLzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-u vertex interactions (L)"},
72  dGLzd ==  { TeX -> Subsuperscript["\[Delta]g", L, Zd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
73    Value -> {dGLzd[i_,j_]->RdGLzd[i,j] + I IdGLzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-d vertex interactions (L)"},
74  dGLze ==  { TeX -> Subsuperscript["\[Delta]g", L, Zl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
75    Value -> {dGLze[i_,j_]->RdGLze[i,j] + I IdGLze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-l vertex interactions (L)"},
76  dGLzv ==  { TeX -> Subsuperscript["\[Delta]g", L, Zv], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
77    Value -> {dGLzv[i_,j_]->RdGLzv[i,j] + I IdGLzv[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-v vertex interactions (L)"},
78  dGRzu ==  { TeX -> Subsuperscript["\[Delta]g", R, Zu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
79    Value -> {dGRzu[i_,j_]->RdGRzu[i,j] + I IdGRzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-u vertex interactions (R)"},
80  dGRzd ==  { TeX -> Subsuperscript["\[Delta]g", R, Zd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
81    Value -> {dGRzd[i_,j_]->RdGRzd[i,j] + I IdGRzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-d vertex interactions (R)"},
82  dGRze ==  { TeX -> Subsuperscript["\[Delta]g", R, Zl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
83    Value -> {dGRze[i_,j_]->RdGRze[i,j] + I IdGRze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-l vertex interactions (R)"},
84  dGLwq ==  { TeX -> Subsuperscript["\[Delta]g", L, Wq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
85    Value -> {dGLwq[i_,j_]->RdGLwq[i,j] + I IdGLwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "W-q vertex interactions (L)"},
86  dGRwq ==  { TeX -> Subsuperscript["\[Delta]g", R, Wq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
87    Value -> {dGRwq[i_,j_]->RdGRwq[i,j] + I IdGRwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "W-q vertex interactions (R)"},
88  dGLwl ==  { TeX -> Subsuperscript["\[Delta]g", L, Wl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
89    Value -> {dGLwl[i_,j_]->RdGLwl[i,j] + I IdGLwl[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "W-l vertex interactions (L)"},
90
91  (* Ldip parameters *)
92  Rdgu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdgu[i_,j_]->0.1}, BlockName ->   MBxdgu, Description -> "G-u dipole interactions (real part)"},
93  Idgu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idgu[i_,j_]->0.0}, BlockName -> IMMBxdgu, Description -> "G-u dipole interactions (im part)"  },
94  Rdgd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdgd[i_,j_]->0.1}, BlockName ->   MBxdgd, Description -> "G-d dipole interactions (real part)"},
95  Idgd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idgd[i_,j_]->0.0}, BlockName -> IMMBxdgd, Description -> "G-d dipole interactions (im part)"  },
96  Rdau ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdau[i_,j_]->0.1}, BlockName ->   MBxdau, Description -> "A-u dipole interactions (real part)"},
97  Idau ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idau[i_,j_]->0.0}, BlockName -> IMMBxdau, Description -> "A-u dipole interactions (im part)"  },
98  Rdad ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdad[i_,j_]->0.1}, BlockName ->   MBxdad, Description -> "A-d dipole interactions (real part)"},
99  Idad ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idad[i_,j_]->0.0}, BlockName -> IMMBxdad, Description -> "A-d dipole interactions (im part)"  },
100  Rdae ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdae[i_,j_]->0.1}, BlockName ->   MBxdae, Description -> "A-e dipole interactions (real part)"},
101  Idae ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idae[i_,j_]->0.0}, BlockName -> IMMBxdae, Description -> "A-e dipole interactions (im part)"  },
102  Rdzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdzu[i_,j_]->0.1}, BlockName ->   MBxdzu, Description -> "Z-u dipole interactions (real part)"},
103  Idzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idzu[i_,j_]->0.0}, BlockName -> IMMBxdzu, Description -> "Z-u dipole interactions (im part)"  },
104  Rdzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdzd[i_,j_]->0.1}, BlockName ->   MBxdzd, Description -> "Z-d dipole interactions (real part)"},
105  Idzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idzd[i_,j_]->0.0}, BlockName -> IMMBxdzd, Description -> "Z-d dipole interactions (im part)"  },
106  Rdze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdze[i_,j_]->0.1}, BlockName ->   MBxdze, Description -> "Z-e dipole interactions (real part)"},
107  Idze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idze[i_,j_]->0.0}, BlockName -> IMMBxdze, Description -> "Z-e dipole interactions (im part)"  },
108  Rdwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdwq[i_,j_]->0.1}, BlockName ->   MBxdwq, Description -> "W-q dipole interactions (real part)"},
109  Idwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idwq[i_,j_]->0.0}, BlockName -> IMMBxdwq, Description -> "W-q dipole interactions (im part)"  },
110  Rdwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdwl[i_,j_]->0.1}, BlockName ->   MBxdwl, Description -> "W-l dipole interactions (real part)"},
111  Idwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idwl[i_,j_]->0.0}, BlockName -> IMMBxdwl, Description -> "W-l dipole interactions (im part)"  },
112  Rtdgu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdgu[i_,j_]->0.1}, BlockName ->   MBxtdgu, Description -> "G-u dipole interactions (real part)"},
113  Itdgu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdgu[i_,j_]->0.0}, BlockName -> IMMBxtdgu, Description -> "G-u dipole interactions (im part, CP-odd)  "},
114  Rtdgd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdgd[i_,j_]->0.1}, BlockName ->   MBxtdgd, Description -> "G-d dipole interactions (real part, CP-odd)"},
115  Itdgd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdgd[i_,j_]->0.0}, BlockName -> IMMBxtdgd, Description -> "G-d dipole interactions (im part, CP-odd)"  },
116  Rtdau == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdau[i_,j_]->0.1}, BlockName ->   MBxtdau, Description -> "A-u dipole interactions (real part, CP-odd)"},
117  Itdau == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdau[i_,j_]->0.0}, BlockName -> IMMBxtdau, Description -> "A-u dipole interactions (im part, CP-odd)"  },
118  Rtdad == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdad[i_,j_]->0.1}, BlockName ->   MBxtdad, Description -> "A-d dipole interactions (real part, CP-odd)"},
119  Itdad == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdad[i_,j_]->0.0}, BlockName -> IMMBxtdad, Description -> "A-d dipole interactions (im part, CP-odd)"  },
120  Rtdae == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdae[i_,j_]->0.1}, BlockName ->   MBxtdae, Description -> "A-e dipole interactions (real part, CP-odd)"},
121  Itdae == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdae[i_,j_]->0.0}, BlockName -> IMMBxtdae, Description -> "A-e dipole interactions (im part, CP-odd)"  },
122  Rtdzu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdzu[i_,j_]->0.1}, BlockName ->   MBxtdzu, Description -> "Z-u dipole interactions (real part, CP-odd)"},
123  Itdzu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdzu[i_,j_]->0.0}, BlockName -> IMMBxtdzu, Description -> "Z-u dipole interactions (im part, CP-odd)"  },
124  Rtdzd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdzd[i_,j_]->0.1}, BlockName ->   MBxtdzd, Description -> "Z-d dipole interactions (real part, CP-odd)"},
125  Itdzd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdzd[i_,j_]->0.0}, BlockName -> IMMBxtdzd, Description -> "Z-d dipole interactions (im part, CP-odd)"  },
126  Rtdze == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdze[i_,j_]->0.1}, BlockName ->   MBxtdze, Description -> "Z-e dipole interactions (real part, CP-odd)"},
127  Itdze == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdze[i_,j_]->0.0}, BlockName -> IMMBxtdze, Description -> "Z-e dipole interactions (im part, CP-odd)"  },
128  Rtdwq == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdwq[i_,j_]->0.1}, BlockName ->   MBxtdwq, Description -> "W-q dipole interactions (real part, CP-odd)"},
129  Itdwq == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdwq[i_,j_]->0.0}, BlockName -> IMMBxtdwq, Description -> "W-q dipole interactions (im part, CP-odd)"  },
130
131  dgu ==  { TeX -> Subscript["d", gu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
132    Value -> {dgu[i_,j_]->Rdgu[i,j] + I Idgu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "G-u dipole interactions"},
133  dgd ==  { TeX -> Subscript["d", gd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
134    Value -> {dgd[i_,j_]->Rdgd[i,j] + I Idgd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "G-d dipole interactions"},
135  dau ==  { TeX -> Subscript["d", au], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
136    Value -> {dau[i_,j_]->Rdau[i,j] + I Idau[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-u dipole interactions"},
137  dad ==  { TeX -> Subscript["d", ad], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
138    Value -> {dad[i_,j_]->Rdad[i,j] + I Idad[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-d dipole interactions"},
139  dae ==  { TeX -> Subscript["d", ae], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
140    Value -> {dae[i_,j_]->Rdae[i,j] + I Idae[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-e dipole interactions"},
141  dzu ==  { TeX -> Subscript["d", zu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
142    Value -> {dzu[i_,j_]->Rdzu[i,j] + I Idzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-u dipole interactions"},
143  dzd ==  { TeX -> Subscript["d", zd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
144    Value -> {dzd[i_,j_]->Rdzd[i,j] + I Idzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-d dipole interactions"},
145  dze ==  { TeX -> Subscript["d", ze], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
146    Value -> {dze[i_,j_]->Rdze[i,j] + I Idze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-e dipole interactions"},
147  dwq ==  { TeX -> Subscript["d", wq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
148    Value -> {dwq[i_,j_]->Rdwq[i,j] + I Idwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "w-q dipole interactions"},
149  dwl ==  { TeX -> Subscript["d", wl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
150    Value -> {dwl[i_,j_]->Rdwl[i,j] + I Idwl[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "W-l dipole interactions"},
151  tdgu ==  { TeX -> Subscript[OverTilde["d"], gu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
152    Value -> {tdgu[i_,j_]->Rtdgu[i,j] + I Itdgu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "G-u dipole interactions (CP-odd)"},
153  tdgd ==  { TeX -> Subscript[OverTilde["d"], gd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
154    Value -> {tdgd[i_,j_]->Rtdgd[i,j] + I Itdgd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "G-d dipole interactions (CP-odd)"},
155  tdau ==  { TeX -> Subscript[OverTilde["d"], au], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
156    Value -> {tdau[i_,j_]->Rtdau[i,j] + I Itdau[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-u dipole interactions (CP-odd)"},
157  tdad ==  { TeX -> Subscript[OverTilde["d"], ad], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
158    Value -> {tdad[i_,j_]->Rtdad[i,j] + I Itdad[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-d dipole interactions (CP-odd)"},
159  tdae ==  { TeX -> Subscript[OverTilde["d"], ae], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
160    Value -> {tdae[i_,j_]->Rtdae[i,j] + I Itdae[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "A-e dipole interactions (CP-odd)"},
161  tdzu ==  { TeX -> Subscript[OverTilde["d"], zu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
162    Value -> {tdzu[i_,j_]->Rtdzu[i,j] + I Itdzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-u dipole interactions (CP-odd)"},
163  tdzd ==  { TeX -> Subscript[OverTilde["d"], zd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
164    Value -> {tdzd[i_,j_]->Rtdzd[i,j] + I Itdzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-d dipole interactions (CP-odd)"},
165  tdze ==  { TeX -> Subscript[OverTilde["d"], ze], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
166    Value -> {tdze[i_,j_]->Rtdze[i,j] + I Itdze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "Z-e dipole interactions (CP-odd)"},
167  tdwq ==  { TeX -> Subscript[OverTilde["d"], wq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
168    Value -> {tdwq[i_,j_]->Rtdwq[i,j] + I Itdwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "w-q dipole interactions (CP-odd)"},
169
170 (* Ltgc parameters *)
171  dKa  == { TeX -> Subscript["\[Delta]\[Kappa]",a], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 1, Description -> "fsA-W-W interactions"},
172  dKz  == { TeX -> Subscript["\[Delta]\[Kappa]",z], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 2, Description -> "fsZ-W-W interactions"},
173  dG1z == { TeX -> Subscript["\[Delta]g","1z"],     ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 3, Description -> "fsW-W-Z interactions"},
174  La   == { TeX -> Subscript["\[Lambda]",a],        ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 4, Description -> "fsW-fsW-fsA interactions"},
175  Lz   == { TeX -> Subscript["\[Lambda]",z],        ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 5, Description -> "fsW-fsW-fsZ interactions"},
176  C3g  == { TeX -> Subscript[c,"3G"],               ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 6, Description -> "fsG-fsG-fsG interactions"},
177  tKa == { TeX -> Subscript[OverTilde["\[Kappa]"],a],  ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 7,  Description -> "fsA-W-W interactions (CP-odd)"},
178  tKz == { TeX -> Subscript[OverTilde["\[Kappa]"],z],  ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 8,  Description -> "fsZ-W-W interactions (CP-odd)"},
179  tLa == { TeX -> Subscript[OverTilde["\[Lambda]"],a], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 9,  Description -> "fsW-fsW-fsA interactions (CP-odd)"},
180  tLz == { TeX -> Subscript[OverTilde["\[Lambda]"],z], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 10, Description -> "fsW-fsW-fsZ interactions (CP-odd)"},
181  tC3g== { TeX -> Subscript[OverTilde["c"],"3g"],      ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxtgc, OrderBlock -> 11, Description -> "fsG-fsG-fsG interactions (CP-odd)"},
182
183 (* Lqgc parameters *)
184  dGw4   == { TeX -> Subscript["\[Delta]g",w4],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 1, Description -> "W^4 interactions"},
185  dGw2z2 == { TeX -> Subscript["\[Delta]g",w2z2], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 2, Description -> "W^2-Z^2 interactions"},
186  dGw2za == { TeX -> Subscript["\[Delta]g",w2za], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 3, Description -> "W^2-Z-A interactions"},
187  Lw4    == { TeX -> Subscript["\[Lambda]",w4],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 4, Description -> "fsW^2-W^2 interactions"},
188  Lw2z2  == { TeX -> Subscript["\[Lambda]",w2z2], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 5, Description -> "fsW-fsZ-W-Z interactions"},
189  Lw2a2  == { TeX -> Subscript["\[Lambda]",w2a2], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 6, Description -> "fsW-fsA-W-A interactions"},
190  Lw2az  == { TeX -> Subscript["\[Lambda]",w2az], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 7, Description -> "fsW-fsA-W-Z interactions"},
191  Lw2za  == { TeX -> Subscript["\[Lambda]",w2za], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 8, Description -> "fsW-fsZ-W-A interactions"},
192  C4g    == { TeX -> Subscript[c,"4G"],           ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 9, Description -> "fsG-fsG-G-G interactions"},
193  tLw4   == { TeX -> Subscript[OverTilde["\[Lambda]"],w4],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 10, Description -> "fsW^2-W^2 interactions (CP-odd)"},
194  tLw2z2 == { TeX -> Subscript[OverTilde["\[Lambda]"],w2z2], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 11, Description -> "fsW-fsZ-W-Z interactions (CP-odd)"},
195  tLw2a2 == { TeX -> Subscript[OverTilde["\[Lambda]"],w2a2], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 12, Description -> "fsW-fsA-W-A interactions (CP-odd)"},
196  tLw2az == { TeX -> Subscript[OverTilde["\[Lambda]"],w2az], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 13, Description -> "fsW-fsA-W-Z interactions (CP-odd)"},
197  tLw2za == { TeX -> Subscript[OverTilde["\[Lambda]"],w2za], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 14, Description -> "fsW-fsZ-W-A interactions (CP-odd)"},
198  tC4g   == { TeX -> Subscript[OverTilde[c],"4G"],           ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxqgc, OrderBlock -> 15, Description -> "fsG-fsG-G-G interactions (CP-odd)"},
199
200  (* Lh parameters *)
201  dCw  == { TeX -> Subscript["\[Delta]c",w],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 1, Description -> "W-W-h interactions"},
202  dCz  == { TeX -> Subscript["\[Delta]c",z],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 2, Description -> "Z-Z-h interactions"},
203  Cww  == { TeX -> Subscript[c,ww],            ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 3, Description -> "fsW-fsW-h interactions"},
204  Cgg  == { TeX -> Subscript[c,gg],            ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 4, Description -> "fsG-fsG-h interactions"},
205  Caa  == { TeX -> Subscript[c,aa],            ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 5, Description -> "fsA-fsA-h interactions"},
206  Cza  == { TeX -> Subscript[c,za],            ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 6, Description -> "fsZ-fsA-h interactions"},
207  Czz  == { TeX -> Subscript[c,zz],            ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 7, Description -> "fsZ-fsZ-h interactions"},
208  Cwbx == { TeX -> Subscript[c,w,Square[""]],  ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 8, Description -> "fsW-W-h interactions"},
209  Czbx == { TeX -> Subscript[c,z,Square[""]],  ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 9, Description -> "fsZ-Z-h interactions"},
210  Cabx == { TeX -> Subscript[c,a,Square[""]],  ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 10,Description -> "fsA-Z-h interactions"},
211  tCww  == { TeX -> Subscript[OverTilde[c],ww], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 11, Description -> "fsW-fsW-h interactions (CP-odd)"},
212  tCgg  == { TeX -> Subscript[OverTilde[c],gg], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 12, Description -> "fsG-fsG-h interactions (CP-odd)"},
213  tCaa  == { TeX -> Subscript[OverTilde[c],aa], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 13, Description -> "fsA-fsA-h interactions (CP-odd)"},
214  tCza  == { TeX -> Subscript[OverTilde[c],za], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 14, Description -> "fsZ-fsA-h interactions (CP-odd)"},
215  tCzz  == { TeX -> Subscript[OverTilde[c],zz], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxh, OrderBlock -> 15, Description -> "fsZ-fsZ-h interactions (CP-odd)"},
216
217  dYu == { TeX -> Subscript["\[Delta]Y",u], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {dYu[i_,j_]->0.1}, InteractionOrder -> {QNP, 1},
218    BlockName -> MBxdYu, Description -> "Norm of Huu couplings"},
219  dYd == { TeX -> Subscript["\[Delta]Y",d], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {dYd[i_,j_]->0.1}, InteractionOrder -> {QNP, 1},
220    BlockName -> MBxdYd, Description -> "Norm of Hdd couplings"},
221  dYe == { TeX -> Subscript["\[Delta]Y",e], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {dYe[i_,j_]->0.1}, InteractionOrder -> {QNP, 1},
222    BlockName -> MBxdYe, Description -> "Norm of Hee couplings"},
223  Su  == { TeX -> Subscript[S,"\[Phi]u"], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Su[i_,j_]->0.707107}, BlockName -> MBxSu, Description -> "Sin(phase) of Huu couplings"},
224  Sd  == { TeX -> Subscript[S,"\[Phi]d"], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Sd[i_,j_]->0.707107}, BlockName -> MBxSd, Description -> "Sin(phase) of Hdd couplings"},
225  Se  == { TeX -> Subscript[S,"\[Phi]e"], ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Se[i_,j_]->0.707107}, BlockName -> MBxSe, Description -> "Sin(phase) of Hee couplings"},
226  Cu  == { TeX -> Subscript[C,"\[Phi]u"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, Value -> {Cu[i_,j_]->Sqrt[1-Su[i,j]^2]}, Description -> "Cos(phase) of Huu couplings"},
227  Cd  == { TeX -> Subscript[C,"\[Phi]d"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, Value -> {Cd[i_,j_]->Sqrt[1-Sd[i,j]^2]}, Description -> "Cos(phase) of Huu couplings"},
228  Ce  == { TeX -> Subscript[C,"\[Phi]e"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, Value -> {Ce[i_,j_]->Sqrt[1-Se[i,j]^2]}, Description -> "Cos(phase) of Huu couplings"},
229
230  (* Lhvff parameters *)
231  RdGLhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhzu[i_,j_]->0.1}, BlockName ->   MBxdGLhzu, Description -> "h-Z-u vertex interactions (real part, L)"},
232  IdGLhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhzu[i_,j_]->0.0}, BlockName -> IMMBxdGLhzu, Description -> "h-Z-u vertex interactions (im part, L)"  },
233  RdGLhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhzd[i_,j_]->0.1}, BlockName ->   MBxdGLhzd, Description -> "h-Z-d vertex interactions (real part, L)"},
234  IdGLhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhzd[i_,j_]->0.0}, BlockName -> IMMBxdGLhzd, Description -> "h-Z-d vertex interactions (im part, L)"  },
235  RdGLhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhze[i_,j_]->0.1}, BlockName ->   MBxdGLhzl, Description -> "h-Z-l vertex interactions (real part, L)"},
236  IdGLhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhze[i_,j_]->0.0}, BlockName -> IMMBxdGLhzl, Description -> "h-Z-l vertex interactions (im part, L)"},
237  RdGLhzv ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhzv[i_,j_]->0.1}, BlockName ->   MBxdGLhzv, Description -> "h-Z-v vertex interactions (real part, L)"},
238  IdGLhzv ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhzv[i_,j_]->0.0}, BlockName -> IMMBxdGLhzv, Description -> "h-Z-v vertex interactions (im part, L)"},
239  RdGRhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRhzu[i_,j_]->0.1}, BlockName ->   MBxdGRhzu, Description -> "h-Z-u vertex interactions (real part, R)"},
240  IdGRhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRhzu[i_,j_]->0.0}, BlockName -> IMMBxdGRhzu, Description -> "h-Z-u vertex interactions (im part, R)"  },
241  RdGRhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRhzd[i_,j_]->0.1}, BlockName ->   MBxdGRhzd, Description -> "h-Z-d vertex interactions (real part, R)"},
242  IdGRhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRhzd[i_,j_]->0.0}, BlockName -> IMMBxdGRhzd, Description -> "h-Z-d vertex interactions (im part, R)"  },
243  RdGRhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRhze[i_,j_]->0.1}, BlockName ->   MBxdGRhzl, Description -> "h-Z-l vertex interactions (real part, R)"},
244  IdGRhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRhze[i_,j_]->0.0}, BlockName -> IMMBxdGRhzl, Description -> "h-Z-l vertex interactions (im part, R)"},
245  RdGLhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhwq[i_,j_]->0.1}, BlockName ->   MBxdGhWLq, Description -> "h-W-q vertex interactions (real part, L)"},
246  IdGLhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhwq[i_,j_]->0.0}, BlockName -> IMMBxdGhWLq, Description -> "h-W-q vertex interactions (im part, L)"  },
247  RdGRhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGRhwq[i_,j_]->0.1}, BlockName ->   MBxdGhWRq, Description -> "h-W-q vertex interactions (real part, R)"},
248  IdGRhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGRhwq[i_,j_]->0.0}, BlockName -> IMMBxdGhWRq, Description -> "h-W-q vertex interactions (im part, R)"  },
249  RdGLhwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdGLhwl[i_,j_]->0.1}, BlockName ->   MBxdGhWLl, Description -> "h-W-l vertex interactions (real part, L)"},
250  IdGLhwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdGLhwl[i_,j_]->0.0}, BlockName -> IMMBxdGhWLl, Description -> "h-W-l vertex interactions (im part, L)"  },
251
252  dGLhzu ==  { TeX -> Subsuperscript["\[Delta]g", L, hZu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
253    Value -> {dGLhzu[i_,j_]->RdGLhzu[i,j] + I IdGLhzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-u vertex interactions (L)"},
254  dGLhzd ==  { TeX -> Subsuperscript["\[Delta]g", L, hZd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
255    Value -> {dGLhzd[i_,j_]->RdGLhzd[i,j] + I IdGLhzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-d vertex interactions (L)"},
256  dGLhze ==  { TeX -> Subsuperscript["\[Delta]g", L, hZl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
257    Value -> {dGLhze[i_,j_]->RdGLhze[i,j] + I IdGLhze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-l vertex interactions (L)"},
258  dGLhzv ==  { TeX -> Subsuperscript["\[Delta]g", L, hZv], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
259    Value -> {dGLhzv[i_,j_]->RdGLhzv[i,j] + I IdGLhzv[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-v vertex interactions (L)"},
260  dGRhzu ==  { TeX -> Subsuperscript["\[Delta]g", R, hZu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
261    Value -> {dGRhzu[i_,j_]->RdGRhzu[i,j] + I IdGRhzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-u vertex interactions (R)"},
262  dGRhzd ==  { TeX -> Subsuperscript["\[Delta]g", R, hZd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
263    Value -> {dGRhzd[i_,j_]->RdGRhzd[i,j] + I IdGRhzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-d vertex interactions (R)"},
264  dGRhze ==  { TeX -> Subsuperscript["\[Delta]g", R, hZl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
265    Value -> {dGRhze[i_,j_]->RdGRhze[i,j] + I IdGRhze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-l vertex interactions (R)"},
266  dGLhwq ==  { TeX -> Subsuperscript["\[Delta]g", L, hWq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
267    Value -> {dGLhwq[i_,j_]->RdGLhwq[i,j] + I IdGLhwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-W-q vertex interactions (L)"},
268  dGRhwq ==  { TeX -> Subsuperscript["\[Delta]g", R, hWq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
269    Value -> {dGRhwq[i_,j_]->RdGRhwq[i,j] + I IdGRhwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-W-q vertex interactions (R)"},
270  dGLhwl ==  { TeX -> Subsuperscript["\[Delta]g", L, hWl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
271    Value -> {dGLhwl[i_,j_]->RdGLhwl[i,j] + I IdGLhwl[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-W-l vertex interactions (L)"},
272
273
274  (* Lhdvff parameters *)
275  Rdhgu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhgu[i_,j_]->0.1}, BlockName ->   MBxdhgu, Description -> "h-G-u dipole interactions (real part)"},
276  Idhgu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhgu[i_,j_]->0.0}, BlockName -> IMMBxdhgu, Description -> "h-G-u dipole interactions (im part)"  },
277  Rdhgd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhgd[i_,j_]->0.1}, BlockName ->   MBxdhgd, Description -> "h-G-d dipole interactions (real part)"},
278  Idhgd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhgd[i_,j_]->0.0}, BlockName -> IMMBxdhgd, Description -> "h-G-d dipole interactions (im part)"  },
279  Rdhau ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhau[i_,j_]->0.1}, BlockName ->   MBxdhau, Description -> "h-A-u dipole interactions (real part)"},
280  Idhau ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhau[i_,j_]->0.0}, BlockName -> IMMBxdhau, Description -> "h-A-u dipole interactions (im part)"  },
281  Rdhad ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhad[i_,j_]->0.1}, BlockName ->   MBxdhad, Description -> "h-A-d dipole interactions (real part)"},
282  Idhad ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhad[i_,j_]->0.0}, BlockName -> IMMBxdhad, Description -> "h-A-d dipole interactions (im part)"  },
283  Rdhae ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhae[i_,j_]->0.1}, BlockName ->   MBxdhae, Description -> "h-A-e dipole interactions (real part)"},
284  Idhae ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhae[i_,j_]->0.0}, BlockName -> IMMBxdhae, Description -> "h-A-e dipole interactions (im part)"  },
285  Rdhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhzu[i_,j_]->0.1}, BlockName ->   MBxdhzu, Description -> "h-Z-u dipole interactions (real part)"},
286  Idhzu ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhzu[i_,j_]->0.0}, BlockName -> IMMBxdhzu, Description -> "h-Z-u dipole interactions (im part)"  },
287  Rdhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhzd[i_,j_]->0.1}, BlockName ->   MBxdhzd, Description -> "h-Z-d dipole interactions (real part)"},
288  Idhzd ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhzd[i_,j_]->0.0}, BlockName -> IMMBxdhzd, Description -> "h-Z-d dipole interactions (im part)"  },
289  Rdhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhze[i_,j_]->0.1}, BlockName ->   MBxdhze, Description -> "h-Z-e dipole interactions (real part)"},
290  Idhze ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhze[i_,j_]->0.0}, BlockName -> IMMBxdhze, Description -> "h-Z-e dipole interactions (im part)"  },
291  Rdhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhwq[i_,j_]->0.1}, BlockName ->   MBxdhwq, Description -> "h-W-q dipole interactions (real part)"},
292  Idhwq ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhwq[i_,j_]->0.0}, BlockName -> IMMBxdhwq, Description -> "h-W-q dipole interactions (im part)"  },
293  Rdhwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rdhwl[i_,j_]->0.1}, BlockName ->   MBxdhwl, Description -> "h-W-l dipole interactions (real part)"},
294  Idhwl ==  { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Idhwl[i_,j_]->0.0}, BlockName -> IMMBxdhwl, Description -> "h-W-l dipole interactions (im part)"  },
295  Rtdhgu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhgu[i_,j_]->0.1}, BlockName ->   MBxtdhgu, Description -> "h-G-u dipole interactions (real part)"},
296  Itdhgu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhgu[i_,j_]->0.0}, BlockName -> IMMBxtdhgu, Description -> "h-G-u dipole interactions (im part, CP-odd)  "},
297  Rtdhgd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhgd[i_,j_]->0.1}, BlockName ->   MBxtdhgd, Description -> "h-G-d dipole interactions (real part, CP-odd)"},
298  Itdhgd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhgd[i_,j_]->0.0}, BlockName -> IMMBxtdhgd, Description -> "h-G-d dipole interactions (im part, CP-odd)"  },
299  Rtdhau == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhau[i_,j_]->0.1}, BlockName ->   MBxtdhau, Description -> "h-A-u dipole interactions (real part, CP-odd)"},
300  Itdhau == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhau[i_,j_]->0.0}, BlockName -> IMMBxtdhau, Description -> "h-A-u dipole interactions (im part, CP-odd)"  },
301  Rtdhad == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhad[i_,j_]->0.1}, BlockName ->   MBxtdhad, Description -> "h-A-d dipole interactions (real part, CP-odd)"},
302  Itdhad == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhad[i_,j_]->0.0}, BlockName -> IMMBxtdhad, Description -> "h-A-d dipole interactions (im part, CP-odd)"  },
303  Rtdhae == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhae[i_,j_]->0.1}, BlockName ->   MBxtdhae, Description -> "h-A-e dipole interactions (real part, CP-odd)"},
304  Itdhae == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhae[i_,j_]->0.0}, BlockName -> IMMBxtdhae, Description -> "h-A-e dipole interactions (im part, CP-odd)"  },
305  Rtdhzu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhzu[i_,j_]->0.1}, BlockName ->   MBxtdhzu, Description -> "h-Z-u dipole interactions (real part, CP-odd)"},
306  Itdhzu == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhzu[i_,j_]->0.0}, BlockName -> IMMBxtdhzu, Description -> "h-Z-u dipole interactions (im part, CP-odd)"  },
307  Rtdhzd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhzd[i_,j_]->0.1}, BlockName ->   MBxtdhzd, Description -> "h-Z-d dipole interactions (real part, CP-odd)"},
308  Itdhzd == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhzd[i_,j_]->0.0}, BlockName -> IMMBxtdhzd, Description -> "h-Z-d dipole interactions (im part, CP-odd)"  },
309  Rtdhze == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhze[i_,j_]->0.1}, BlockName ->   MBxtdhze, Description -> "h-Z-e dipole interactions (real part, CP-odd)"},
310  Itdhze == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhze[i_,j_]->0.0}, BlockName -> IMMBxtdhze, Description -> "h-Z-e dipole interactions (im part, CP-odd)"  },
311  Rtdhwq == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Rtdhwq[i_,j_]->0.1}, BlockName ->   MBxtdhwq, Description -> "h-W-q dipole interactions (real part, CP-odd)"},
312  Itdhwq == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {Itdhwq[i_,j_]->0.0}, BlockName -> IMMBxtdhwq, Description -> "h-W-q dipole interactions (im part, CP-odd)"  },
313
314  dhgu ==  { TeX -> Subscript["d", hgu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
315    Value -> {dhgu[i_,j_]->Rdhgu[i,j] + I Idhgu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-G-u dipole interactions"},
316  dhgd ==  { TeX -> Subscript["d", hgd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
317    Value -> {dhgd[i_,j_]->Rdhgd[i,j] + I Idhgd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-G-d dipole interactions"},
318  dhau ==  { TeX -> Subscript["d", hau], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
319    Value -> {dhau[i_,j_]->Rdhau[i,j] + I Idhau[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-u dipole interactions"},
320  dhad ==  { TeX -> Subscript["d", had], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
321    Value -> {dhad[i_,j_]->Rdhad[i,j] + I Idhad[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-d dipole interactions"},
322  dhae ==  { TeX -> Subscript["d", hae], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
323    Value -> {dhae[i_,j_]->Rdhae[i,j] + I Idhae[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-e dipole interactions"},
324  dhzu ==  { TeX -> Subscript["d", hzu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
325    Value -> {dhzu[i_,j_]->Rdhzu[i,j] + I Idhzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-u dipole interactions"},
326  dhzd ==  { TeX -> Subscript["d", hzd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
327    Value -> {dhzd[i_,j_]->Rdhzd[i,j] + I Idhzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-d dipole interactions"},
328  dhze ==  { TeX -> Subscript["d", hze], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
329    Value -> {dhze[i_,j_]->Rdhze[i,j] + I Idhze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-e dipole interactions"},
330  dhwq ==  { TeX -> Subscript["d", hwq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
331    Value -> {dhwq[i_,j_]->Rdhwq[i,j] + I Idhwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-w-q dipole interactions"},
332  dhwl ==  { TeX -> Subscript["d", hwl], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
333    Value -> {dhwl[i_,j_]->Rdhwl[i,j] + I Idhwl[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-W-l dipole interactions"},
334
335  tdhgu ==  { TeX -> Subscript[OverTilde["d"], hgu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
336    Value -> {tdhgu[i_,j_]->Rtdhgu[i,j] + I Itdhgu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-G-u dipole interactions (CP-odd)"},
337  tdhgd ==  { TeX -> Subscript[OverTilde["d"], hgd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
338    Value -> {tdhgd[i_,j_]->Rtdhgd[i,j] + I Itdhgd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-G-d dipole interactions (CP-odd)"},
339  tdhau ==  { TeX -> Subscript[OverTilde["d"], hau], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
340    Value -> {tdhau[i_,j_]->Rtdhau[i,j] + I Itdhau[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-u dipole interactions (CP-odd)"},
341  tdhad ==  { TeX -> Subscript[OverTilde["d"], had], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
342    Value -> {tdhad[i_,j_]->Rtdhad[i,j] + I Itdhad[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-d dipole interactions (CP-odd)"},
343  tdhae ==  { TeX -> Subscript[OverTilde["d"], hae], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
344    Value -> {tdhae[i_,j_]->Rtdhae[i,j] + I Itdhae[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-A-e dipole interactions (CP-odd)"},
345  tdhzu ==  { TeX -> Subscript[OverTilde["d"], hzu], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
346    Value -> {tdhzu[i_,j_]->Rtdhzu[i,j] + I Itdhzu[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-u dipole interactions (CP-odd)"},
347  tdhzd ==  { TeX -> Subscript[OverTilde["d"], hzd], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
348    Value -> {tdhzd[i_,j_]->Rtdhzd[i,j] + I Itdhzd[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-d dipole interactions (CP-odd)"},
349  tdhze ==  { TeX -> Subscript[OverTilde["d"], hze], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
350    Value -> {tdhze[i_,j_]->Rtdhze[i,j] + I Itdhze[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-Z-e dipole interactions (CP-odd)"},
351  tdhwq ==  { TeX -> Subscript[OverTilde["d"], hwq], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter->True,
352    Value -> {tdhwq[i_,j_]->Rtdhwq[i,j] + I Itdhwq[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "h-w-q dipole interactions (CP-odd)"},
353
354  (* Lhself parameters *)
355  dL3 == { TeX -> Subscript["\[Delta]\[Lambda]",3], ParameterType -> External, Value -> 0.1, InteractionOrder -> {{QED,1}, {QNP, 1}}, BlockName -> MBxhself,  OrderBlock -> 1, Description -> "Trilinear Higgs self-coupling"},
356  dL4 == { TeX -> Subscript["\[Delta]\[Lambda]",4], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhself,  OrderBlock -> 2, Description -> "Quartic Higgs self-coupling"},
357
358  (* Lhh parameters *)
359  dCw2  == { TeX -> Subsuperscript["\[Delta]c",w,"(2)"],    ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 1, Description -> "W-W-h-h interactions"},
360  dCz2  == { TeX -> Subsuperscript["\[Delta]c",z,"(2)"],    ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 2, Description -> "Z-Z-h-h interactions"},
361  Cww2  == { TeX -> Subsuperscript[c,ww,"(2)"],             ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 3, Description -> "fsW-fsW-h-h interactions"},
362  Cgg2  == { TeX -> Subsuperscript[c,gg,"(2)"],             ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 4, Description -> "fsG-fsG-h-h interactions"},
363  Caa2  == { TeX -> Subsuperscript[c,aa,"(2)"],             ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 5, Description -> "fsA-fsA-h-h interactions"},
364  Cza2  == { TeX -> Subsuperscript[c,za,"(2)"],             ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 6, Description -> "fsZ-fsA-h-h interactions"},
365  Czz2  == { TeX -> Subsuperscript[c,zz,"(2)"],             ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 7, Description -> "fsZ-fsZ-h-h interactions"},
366  Cwbx2 == { TeX -> Subsuperscript[c,w,Square[""],"(2)"],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 8, Description -> "fsW-W-h-h interactions"},
367  Czbx2 == { TeX -> Subsuperscript[c,z,Square[""],"(2)"],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 9, Description -> "fsZ-Z-h-h interactions"},
368  Cabx2 == { TeX -> Subsuperscript[c,a,Square[""],"(2)"],   ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 10,Description -> "fsA-Z-h-h interactions"},
369  tCww2  == { TeX -> Subsuperscript[OverTilde[c],ww,"(2)"], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 11, Description -> "fsW-fsW-h-h interactions (CP-odd)"},
370  tCgg2  == { TeX -> Subsuperscript[OverTilde[c],gg,"(2)"], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 12, Description -> "fsG-fsG-h-h interactions (CP-odd)"},
371  tCaa2  == { TeX -> Subsuperscript[OverTilde[c],aa,"(2)"], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 13, Description -> "fsA-fsA-h-h interactions (CP-odd)"},
372  tCza2  == { TeX -> Subsuperscript[OverTilde[c],za,"(2)"], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 14, Description -> "fsZ-fsA-h-h interactions (CP-odd)"},
373  tCzz2  == { TeX -> Subsuperscript[OverTilde[c],zz,"(2)"], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBxhh, OrderBlock -> 15, Description -> "fsZ-fsZ-h-h interactions (CP-odd)"},
374
375  RdYu2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdYu2[i_,j_]->0.1}, BlockName ->   MBxdYu2, Description -> "HHuu couplings (real part)"},
376  RdYd2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdYd2[i_,j_]->0.1}, BlockName ->   MBxdYd2, Description -> "HHdd couplings (real part)"},
377  RdYe2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {RdYe2[i_,j_]->0.1}, BlockName ->   MBxdYe2, Description -> "HHee couplings (real part)"},
378  IdYu2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdYu2[i_,j_]->0.0}, BlockName -> IMMBxdYu2, Description -> "HHuu couplings (im part)"},
379  IdYd2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdYd2[i_,j_]->0.0}, BlockName -> IMMBxdYd2, Description -> "HHdd couplings (im part)"},
380  IdYe2 == { ParameterType -> External, Indices -> {Index[Generation], Index[Generation]}, Value -> {IdYe2[i_,j_]->0.0}, BlockName -> IMMBxdYe2, Description -> "HHee couplings (im part)"},
381
382  dYu2 == { TeX -> Subsuperscript["\[Delta]Y",u,"(2)"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter -> True,
383    Value -> {dYu2[i_,j_]->RdYu2[i,j]+I*IdYu2[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "HHuu couplings"},
384  dYd2 == { TeX -> Subsuperscript["\[Delta]Y",d,"(2)"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter -> True,
385    Value -> {dYd2[i_,j_]->RdYd2[i,j]+I*IdYd2[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "HHdd couplings"},
386  dYe2 == { TeX -> Subsuperscript["\[Delta]Y",e,"(2)"], ParameterType -> Internal, Indices -> {Index[Generation], Index[Generation]}, ComplexParameter -> True,
387    Value -> {dYe2[i_,j_]->RdYe2[i,j]+I*IdYe2[i,j]}, InteractionOrder -> {QNP, 1}, Description -> "HHee couplings"},
388
389  (* Four-fermion interactions *)
390  cll1122 == { TeX -> Subscript[c,ll,1122],    ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBx4f,  OrderBlock -> 1, Description -> "Four fermion interaction strength"},
391  cpuu3333== { TeX -> Subscript["c'",uu,3333], ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBx4f,  OrderBlock -> 2, Description -> "Four fermion interaction strength"},
392  cll1221 == { TeX -> Subscript[c,ll,1221],    ParameterType -> External, Value -> 0.1, InteractionOrder -> {QNP, 1}, BlockName -> MBx4f,  OrderBlock -> 3, Description -> "Four fermion interaction strength"}
393};
394
395
396(* ************************** *)
397(* *****   Lagrangian   ***** *)
398(* ************************** *)
399
400(* eq. (3.3 *)
401LMass:= 2 dM gw^2 vev^2/4 W[mu] Wbar[mu];
402
403(* eq. (3.4) *)
404Lvertex := Block[{LZ,LW},
405  LZ =  Sqrt[gw^2+g1^2] Z[mu] ( uqbar.Ga[mu].dGLzu.ProjM.uq + dqbar.Ga[mu].dGLzd.ProjM.dq + lbar.Ga[mu].dGLze.ProjM.l + vlbar.Ga[mu].dGLzv.ProjM.vl +
406                                uqbar.Ga[mu].dGRzu.ProjP.uq + dqbar.Ga[mu].dGRzd.ProjP.dq + lbar.Ga[mu].dGRze.ProjP.l );
407  LW= gw/Sqrt[2] W[mu] (uqbar.Ga[mu].dGLwq.ProjM.dq + uqbar.Ga[mu].dGRwq.ProjP.dq + vlbar.Ga[mu].dGLwl.ProjM.l);
408  LZ+LW+HC[LW]
409];
410
411(* eq. (3.5) for the dipole terms *)
412Ldip:=Block[{LG,LA,LZ,LW},
413  LG = gs FS[G,mu,nu,a] (uqbar.Sig[mu,nu].T[a].dgu.uq + dqbar.Sig[mu,nu].T[a].dgd.dq) +
414       gs Dual[FS][G,mu,nu,a] (uqbar.Sig[mu,nu].T[a].tdgu.uq + dqbar.Sig[mu,nu].T[a].tdgd.dq);
415  LA = ee FS[A,mu,nu] (uqbar.Sig[mu,nu].dau.uq + dqbar.Sig[mu,nu].dad.dq + lbar.Sig[mu,nu].dae.l) +
416       ee Dual[FS][A,mu,nu] (uqbar.Sig[mu,nu].tdau.uq + dqbar.Sig[mu,nu].tdad.dq + lbar.Sig[mu,nu].tdae.l);
417  LZ = Sqrt[gw^2+g1^2] FS[Z,mu,nu] (uqbar.Sig[mu,nu].dzu.uq + dqbar.Sig[mu,nu].dzd.dq + lbar.Sig[mu,nu].dze.l) +
418       Sqrt[gw^2+g1^2] Dual[FS][Z,mu,nu] (uqbar.Sig[mu,nu].tdzu.uq + dqbar.Sig[mu,nu].tdzd.dq + lbar.Sig[mu,nu].tdze.l);
419  LW = Sqrt[2] gw (FS[Wbar,mu,nu] dqbar.Sig[mu,nu].dwq.uq + FS[W,mu,nu] vlbar.Sig[mu,nu].dwl.l) +
420       Sqrt[2] gw Dual[FS][Wbar,mu,nu] dqbar.Sig[mu,nu].tdwq.uq;
421  -1/(4 vev) (LG+LA+LZ+LW+HC[LW])
422];
423
424(* eqs. (3.6) and (3.7) for the gauge boson self-interactions *)
425Ltgc := I ee ( dKa FS[A,mu,nu] W[mu] Wbar[nu]  + tKa Dual[FS][A,mu,nu] W[mu] Wbar[nu]  ) +
426        I gw cw ( dG1z (FS[W,mu,nu] Wbar[mu] - FS[Wbar,mu,nu] W[mu] ) Z[nu] + dKz FS[Z,mu,nu] W[mu] Wbar[nu]  + tKz Dual[FS][Z,mu,nu] W[mu] Wbar[nu] ) +
427        I ee/MW^2 ( La FS[W,mu,nu] FS[Wbar,nu,rho] FS[A,rho,mu] + tLa FS[W,mu,nu] FS[Wbar,nu,rho] Dual[FS][A,rho,mu] ) +
428        I gw cw/MW^2 ( Lz  FS[W,mu,nu] FS[Wbar,nu,rho] FS[Z,rho,mu] + tLz FS[W,mu,nu] FS[Wbar,nu,rho] Dual[FS][Z,rho,mu] ) +
429        gs^3/vev^2 f[a,b,c] ( C3g FS[G,mu,nu,a] FS[G,nu,rho,b] FS[G,rho,mu,c] + tC3g Dual[FS][G,mu,nu,a] FS[G,nu,rho,b] FS[G,rho,mu,c] );
430
431Lqgc := gw^2/2    dGw4    ( W[mu] W[mu] Wbar[nu] Wbar[nu] - W[mu] Wbar[mu] W[nu] Wbar[nu] ) +
432        gw^2 cw^2 dGw2z2  ( W[mu] Z[mu] Wbar[nu] Z[nu]    - W[mu] Wbar[mu] Z[nu] Z[nu]    ) +
433        gw^2 cw sw dGw2za ( W[mu] Z[mu] Wbar[nu] A[nu]    + W[mu] A[mu] Wbar[nu] Z[nu] - 2 W[mu] Wbar[mu] Z[nu] A[nu] ) -
434        gw^2/2/MW^2    Lw4   ( FS[W,mu,nu] FS[Wbar,nu,rho] - FS[Wbar,mu,nu] FS[W,nu,rho] ) ( W[mu] Wbar[rho] - Wbar[mu] W[rho] ) -
435        gw^2 cw^2/MW^2 Lw2z2 ( W[mu] ( FS[Z,mu,nu] FS[Wbar,nu,rho] - FS[Wbar,mu,nu] FS[Z,nu,rho] ) Z[rho] + Wbar[mu] ( FS[Z,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[Z,nu,rho] ) Z[rho] ) -
436        ee^2/MW^2      Lw2a2 ( W[mu] ( FS[A,mu,nu] FS[Wbar,nu,rho] - FS[Wbar,mu,nu] FS[A,nu,rho] ) A[rho] + Wbar[mu] ( FS[A,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[A,nu,rho] ) A[rho] ) -
437        ee gw cw/MW^2  Lw2az ( W[mu] ( FS[A,mu,nu] FS[Wbar,nu,rho] - FS[Wbar,mu,nu] FS[A,nu,rho] ) Z[rho] + Wbar[mu] ( FS[A,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[A,nu,rho] ) Z[rho] ) -
438        ee gw cw/MW^2  Lw2za ( W[mu] ( FS[Z,mu,nu] FS[Wbar,nu,rho] - FS[Wbar,mu,nu] FS[Z,nu,rho] ) A[rho] + Wbar[mu] ( FS[Z,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[Z,nu,rho] ) A[rho] ) +
439        3 gs^3/vev^2   C4g f[a,b,c] f[c,d,e] FS[G,mu,nu,a] FS[G,nu,rho,b] G[rho,d] G[mu,e] -
440        gw^2/2/MW^2    tLw4   ( FS[W,mu,nu] Dual[FS][Wbar,nu,rho] - FS[Wbar,mu,nu] Dual[FS][W,nu,rho] ) ( W[mu] Wbar[rho] - Wbar[mu] W[rho] ) -
441        gw^2 cw^2/MW^2 tLw2z2 ( W[mu] ( FS[Z,mu,nu] Dual[FS][Wbar,nu,rho] - FS[Wbar,mu,nu] Dual[FS][Z,nu,rho] ) Z[rho] + Wbar[mu] ( FS[Z,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[Z,nu,rho] ) Z[rho] ) -
442        ee^2/MW^2      tLw2a2 ( W[mu] ( FS[A,mu,nu] Dual[FS][Wbar,nu,rho] - FS[Wbar,mu,nu] Dual[FS][A,nu,rho] ) A[rho] + Wbar[mu] ( FS[A,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[A,nu,rho] ) A[rho] ) -
443        ee gw cw/MW^2  tLw2az ( W[mu] ( FS[A,mu,nu] Dual[FS][Wbar,nu,rho] - FS[Wbar,mu,nu] Dual[FS][A,nu,rho] ) Z[rho] + Wbar[mu] ( FS[A,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[A,nu,rho] ) Z[rho] ) -
444        ee gw cw/MW^2  tLw2za ( W[mu] ( FS[Z,mu,nu] Dual[FS][Wbar,nu,rho] - FS[Wbar,mu,nu] Dual[FS][Z,nu,rho] ) A[rho] + Wbar[mu] ( FS[Z,mu,nu] FS[W,nu,rho] - FS[W,mu,nu] FS[Z,nu,rho] ) A[rho] ) +
445        3 gs^3/vev^2   tC4g f[a,b,c] f[c,d,e] Dual[FS][G,mu,nu,a] FS[G,nu,rho,b] G[rho,d] G[mu,e];
446
447
448(* eq.(3.8) for the 3-point single Higgs interactions*)
449Lh := Block[{Lvv,Lff},
450  Lvv = 2 dCw MW^2 Wbar[mu] W[mu] + dCz MZ^2 Z[mu] Z[mu] +
451           gs^2/4      Cgg FS[G,mu,nu,a]  FS[G,mu,nu,a] + gs^2/4      tCgg FS[G,mu,nu,a]  Dual[FS][G,mu,nu,a] +
452           gw^2/2      Cww FS[Wbar,mu,nu] FS[W,mu,nu]   + gw^2/2      tCww FS[Wbar,mu,nu] Dual[FS][W,mu,nu]  +
453           ee^2/4      Caa FS[A,mu,nu]    FS[A,mu,nu]   + ee^2/4      tCaa FS[A,mu,nu]    Dual[FS][A,mu,nu] +
454           ee gw/2/cw  Cza FS[Z,mu,nu]    FS[A,mu,nu]   + ee gw/2/cw  tCza FS[Z,mu,nu]    Dual[FS][A,mu,nu] +
455           gw^2/4/cw^2 Czz FS[Z,mu,nu]    FS[Z,mu,nu]   + gw^2/4/cw^2 tCzz FS[Z,mu,nu]    Dual[FS][Z,mu,nu] +
456           gw^2 Cwbx (Wbar[mu] del[FS[W,mu,nu],nu] + W[mu] del[FS[Wbar,mu,nu],nu]) + g1 gw Cabx Z[mu] del[FS[A,mu,nu],nu] + gw^2 Czbx Z[mu] del[FS[Z,mu,nu],nu];
457  Lff = - ExpandIndices[Plus@@Flatten[Table[Sqrt[Mu[ff] Mu[ffp]] dYu[ff,ffp] (Cu[ff,ffp] IndexDelta[sp1,sp2]-I*Su[ff,ffp] Ga[5,sp1,sp2]) uqbar[sp1,ff,cc].uq[sp2,ffp,cc], {ffp,1,3},{ff,1,3}]]] -
458          ExpandIndices[Plus@@Flatten[Table[Sqrt[Md[ff] Md[ffp]] dYd[ff,ffp] (Cd[ff,ffp] IndexDelta[sp1,sp2]-I*Sd[ff,ffp] Ga[5,sp1,sp2]) dqbar[sp1,ff,cc].dq[sp2,ffp,cc], {ffp,1,3},{ff,1,3}]]] -
459          ExpandIndices[Plus@@Flatten[Table[Sqrt[Ml[ff] Ml[ffp]] dYe[ff,ffp] (Ce[ff,ffp] IndexDelta[sp1,sp2]-I*Se[ff,ffp] Ga[5,sp1,sp2]) lbar[sp1,ff].l[sp2,ffp], {ffp,1,3},{ff,1,3}]]];
460  H/vev (Lvv + Lff)
461];
462
463(* eq (3.9) for the hvff interactions *)
464Lhvff := Block[{LW,LZ},
465  LW = Sqrt[2] gw H/vev W[mu] (uqbar.Ga[mu].dGLhwq.ProjM.dq + uqbar.Ga[mu].dGRhwq.ProjP.dq + vlbar.Ga[mu].dGLhwl.ProjM.l);
466  LZ = 2 Sqrt[gw^2+g1^2] H/vev Z[mu] ( uqbar.Ga[mu].dGLhzu.ProjM.uq + dqbar.Ga[mu].dGLhzd.ProjM.dq + lbar.Ga[mu].dGLhze.ProjM.l + vlbar.Ga[mu].dGLhzv.ProjM.vl +
467                                       uqbar.Ga[mu].dGRhzu.ProjP.uq + dqbar.Ga[mu].dGRhzd.ProjP.dq + lbar.Ga[mu].dGRhze.ProjP.l );
468  LZ + LW + HC[LW]
469];
470
471(* eq. (3.11) for the hvff dipole terms *)
472Lhdvff:=Block[{LG,LA,LZ,LW},
473  LG = gs FS[G,mu,nu,a] (uqbar.Sig[mu,nu].T[a].dhgu.uq + dqbar.Sig[mu,nu].T[a].dhgd.dq) +
474       gs Dual[FS][G,mu,nu,a] (uqbar.Sig[mu,nu].T[a].tdhgu.uq + dqbar.Sig[mu,nu].T[a].tdhgd.dq);
475  LA = ee FS[A,mu,nu] (uqbar.Sig[mu,nu].dhau.uq + dqbar.Sig[mu,nu].dhad.dq + lbar.Sig[mu,nu].dhae.l) +
476       ee Dual[FS][A,mu,nu] (uqbar.Sig[mu,nu].tdhau.uq + dqbar.Sig[mu,nu].tdhad.dq + lbar.Sig[mu,nu].tdhae.l);
477  LZ = Sqrt[gw^2+g1^2] FS[Z,mu,nu] (uqbar.Sig[mu,nu].dhzu.uq + dqbar.Sig[mu,nu].dhzd.dq + lbar.Sig[mu,nu].dhze.l) +
478       Sqrt[gw^2+g1^2] Dual[FS][Z,mu,nu] (uqbar.Sig[mu,nu].tdhzu.uq + dqbar.Sig[mu,nu].tdhzd.dq + lbar.Sig[mu,nu].tdhze.l);
479  LW = Sqrt[2] gw (FS[Wbar,mu,nu] dqbar.Sig[mu,nu].dhwq.uq + FS[W,mu,nu] vlbar.Sig[mu,nu].dhwl.l) +
480       Sqrt[2] gw Dual[FS][Wbar,mu,nu] dqbar.Sig[mu,nu].tdhwq.uq;
481  -H/(4 vev^2) (LG+LA+LZ+LW+HC[LW])
482];
483
484(* eq.(3.12)  for the Higgs self interactions *)
485Lhself := -dL3 vev H^3 - dL4 H^4;
486
487(* eq (3.13) for the diHiggs couplings *)
488Lhh := Block[{Lvv,Lff},
489  Lvv = dCw2 gw^2 Wbar[mu] W[mu] + dCz2 Sqrt[g1^2+gw^2]/2 Z[mu] Z[mu] +
490         gs^2/8        Cgg2 FS[G,mu,nu,a]  FS[G,mu,nu,a] + gs^2/8          tCgg2 FS[G,mu,nu,a]  Dual[FS][G,mu,nu,a] +
491         gw^2/4        Cww2 FS[Wbar,mu,nu] FS[W,mu,nu]   + gw^2/4          tCww2 FS[Wbar,mu,nu] Dual[FS][W,mu,nu]   +
492         ee^2/8        Caa2 FS[A,mu,nu]    FS[A,mu,nu]   + ee^2/8          tCaa2 FS[A,mu,nu]    Dual[FS][A,mu,nu]   +
493         gw g1/4       Cza2 FS[Z,mu,nu]    FS[A,mu,nu]   + gw g1/4         tCza2 FS[Z,mu,nu]    Dual[FS][A,mu,nu]   +
494         (gw^2+g1^2)/8 Czz2 FS[Z,mu,nu]    FS[Z,mu,nu]   + (gw^2 + g1^2)/8 tCzz2 FS[Z,mu,nu]    Dual[FS][Z,mu,nu]   -
495         gw^2 Cwbx2/2 (Wbar[mu] del[FS[W,mu,nu],nu] + W[mu] del[FS[Wbar,mu,nu],nu]) -
496         gw^2 Cabx2/2 Z[mu] del[FS[A,mu,nu],nu] -
497         gw^2 Czbx2/2 Z[mu] del[FS[Z,mu,nu],nu];
498  Lff = -ExpandIndices[Plus@@Flatten[Table[Sqrt[Mu[ff] Mu[ffp]]/2 dYu2[ff,ffp] ProjM[sp1,sp2] uqbar[sp1,ff,cc].uq[sp2,ffp,cc], {ffp,1,3},{ff,1,3}]]] -
499         ExpandIndices[Plus@@Flatten[Table[Sqrt[Md[ff] Md[ffp]]/2 dYd2[ff,ffp] ProjM[sp1,sp2] dqbar[sp1,ff,cc].dq[sp2,ffp,cc], {ffp,1,3},{ff,1,3}]]] -
500         ExpandIndices[Plus@@Flatten[Table[Sqrt[Ml[ff] Ml[ffp]]/2 dYe2[ff,ffp] ProjM[sp1,sp2] lbar[sp1,ff].l[sp2,ffp], {ffp,1,3},{ff,1,3}]]];
501  H^2/vev^2 ( Lvv + Lff + HC[Lff] )
502];
503
504(* LOther not included *)
505
506(* The sum of all contributions *)
507LMB:= {LMass, Lvertex, Ldip, Ltgc, Lqgc, Lh, Lhvff, Lhdvff, Lhself, Lhh};