rename internal function to avoid conflicts

FlexibleSUSY · May 5, 2017 · 489f67e · 489f67e
1 parent f595445
commit 489f67e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/meta/SelfEnergies.m b/meta/SelfEnergies.m
@@ -232,13 +232,13 @@
            Return[result /. SARAH`Mass -> FlexibleSUSY`M];
           ];
 
-GetParticleIndices[Cp[a__]] := Flatten[Cases[{a}, List[__], Infinity]];
+GetParticleIndicesInCoupling[Cp[a__]] := Flatten[Cases[{a}, List[__], Infinity]];
 
-GetParticleIndices[Cp[a__][_]] := GetParticleIndices[Cp[a]];
+GetParticleIndicesInCoupling[Cp[a__][_]] := GetParticleIndicesInCoupling[Cp[a]];
 
 CreateCouplingSymbol[coupling_] :=
     Module[{symbol, indices},
-           indices = GetParticleIndices[coupling];
+           indices = GetParticleIndicesInCoupling[coupling];
            symbol = ToValidCSymbol[coupling /. a_[List[__]] :> a];
            symbol[Sequence @@ indices]
           ];
@@ -265,7 +265,7 @@
     Module[{symbol, prototype = "", definition = "",
             indices = {}, body = "", cFunctionName = "", i,
             type, typeStr, initalValue},
-           indices = GetParticleIndices[coupling];
+           indices = GetParticleIndicesInCoupling[coupling];
            symbol = CreateCouplingSymbol[coupling];
            cFunctionName = ToValidCSymbolString[GetHead[symbol]];
            cFunctionName = cFunctionName <> "(";