Translate m_[i2,i1] in beta functions

This form appears in beta functions of SARAH models Seesaw[1-3].
FlexibleSUSY · Sep 8, 2014 · 3484954 · 3484954
1 parent 265d34b
commit 3484954
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/meta/BetaFunction.m b/meta/BetaFunction.m
@@ -114,7 +114,8 @@
             beta       = (loopFactor * expr) /.
                             { Kronecker[Susyno`LieGroups`i1,SARAH`i2] :> CreateUnitMatrix[type],
                               a_[Susyno`LieGroups`i1] :> a,
-                              a_[Susyno`LieGroups`i1,SARAH`i2] :> a };
+                              a_[Susyno`LieGroups`i1,SARAH`i2] :> a,
+                              a_[SARAH`i2,Susyno`LieGroups`i1] :> SARAH`Tp[a] };
             {localDecl, traceRules} = Traces`CreateDoubleTraceAbbrs[{expr}];
             localDecl  = Traces`CreateLocalCopiesOfTraces[{expr}, "TRACE_STRUCT"];
             beta = beta /. traceRules;