Skip to content

Commit

Permalink
use SARAH context for bar
Browse files Browse the repository at this point in the history
  • Loading branch information
Alexander Voigt authored and Alexander Voigt committed Mar 19, 2017
1 parent 984dc98 commit e41ec6f
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions meta/SelfEnergies2L.m
Expand Up @@ -7,7 +7,7 @@

AppendIndex[p_, idx_, 1] := p;
AppendIndex[p_, idx_, range_] := AppendIndex[p, idx];
AppendIndex[bar[p_], idx_] := bar[AppendIndex[p, idx]];
AppendIndex[SARAH`bar[p_], idx_] := SARAH`bar[AppendIndex[p, idx]];
AppendIndex[Susyno`LieGroups`conj[p_], idx_] := Susyno`LieGroups`conj[AppendIndex[p, idx]];
AppendIndex[p_, idx_] := p[{idx}];

Expand Down Expand Up @@ -35,7 +35,7 @@
IsAmbiguousContraction[indices_List] :=
Or @@ ((#[[2]] > 2) & /@
Tally[First /@ (DeleteCases[indices, {_, gE1 | gE2}] /.
bar -> Identity /. Susyno`LieGroups`conj -> Identity)]);
SARAH`bar -> Identity /. Susyno`LieGroups`conj -> Identity)]);

(* one or more fields with indices appear more once *)

Expand Down Expand Up @@ -71,7 +71,7 @@

ConvertSarah2LDiagramList[tad_List, head_:Total] :=
head[SumTadpoleType /@ tad] //. {
(m : (SARAH`Mass | SARAH`Mass2))[(bar | Susyno`LieGroups`conj)[p_], idx___] :> m[p, idx],
(m : (SARAH`Mass | SARAH`Mass2))[(SARAH`bar | Susyno`LieGroups`conj)[p_], idx___] :> m[p, idx],
(m : (SARAH`Mass | SARAH`Mass2))[p_, idx__] :> m[p[{idx}]],
C[p__] :> Cp[p]
};
Expand Down

0 comments on commit e41ec6f

Please sign in to comment.