Remove unused function

FlexibleSUSY · Jan 11, 2017 · 55b9dfd · 55b9dfd
1 parent 3b22e0d
commit 55b9dfd
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 20 deletions.
diff --git a/meta/FlexibleEFTHiggsMatching.m b/meta/FlexibleEFTHiggsMatching.m
@@ -1,25 +1,12 @@
 BeginPackage["FlexibleEFTHiggsMatching`", {"CConversion`", "TreeMasses`", "LoopMasses`", "Constraint`", "ThresholdCorrections`", "Parameters`"}];
 
-CallSMPoleMassFunctions::usage = "";
 CalculateRunningUpQuarkMasses::usage = "";
 CalculateRunningDownQuarkMasses::usage = "";
 CalculateRunningDownLeptonMasses::usage = "";
 FillSMFermionPoleMasses::usage = "";
 
 Begin["`Private`"];
 
-CallSMPoleMassFunctions[states_, enablePoleMassThreads_] :=
-    Module[{particles, result, Selector},
-           Selector[p_] := SARAH`SMQ[p] && !IsMassless[p] && (IsVector[p] || IsFermion[p]);
-           particles = Select[LoopMasses`GetLoopCorrectedParticles[states], Selector];
-           If[enablePoleMassThreads =!= True,
-              result = StringJoin[LoopMasses`CallPoleMassFunction[#,"model."]& /@ particles];
-              ,
-              result = StringJoin[LoopMasses`CallThreadedPoleMassFunction[#,"model_ptr"]& /@ particles] <> "\n";
-             ];
-           result
-          ];
-
 CalculateRunningUpQuarkMasses[] :=
     Module[{result = "", i, iStr, mq, mqFun},
            For[i = 0, i < 3, i++,

diff --git a/meta/FlexibleSUSY.m b/meta/FlexibleSUSY.m
@@ -991,9 +991,7 @@ corresponding tadpole is real or imaginary (only in models with CP
     Module[{scheme = GetRenormalizationScheme[], userMatching = "",
             alphaS1Lmatching = "", alphaEM1Lmatching = "",
             setRunningUpQuarkMasses = "", setRunningDownQuarkMasses = "",
-            setRunningDownLeptonMasses = "", setYukawas = "",
-            callAllSMPoleMassFunctions = "",
-            callAllSMPoleMassFunctionsThreads = ""},
+            setRunningDownLeptonMasses = "", setYukawas = ""},
            If[FlexibleSUSY`FlexibleEFTHiggs === True,
               If[Head[susyScaleMatching] === List,
                  userMatching = Constraint`ApplyConstraints[susyScaleMatching];
@@ -1008,8 +1006,6 @@ corresponding tadpole is real or imaginary (only in models with CP
               setRunningDownQuarkMasses         = FlexibleEFTHiggsMatching`CalculateRunningDownQuarkMasses[];
               setRunningDownLeptonMasses        = FlexibleEFTHiggsMatching`CalculateRunningDownLeptonMasses[];
               setYukawas                        = ThresholdCorrections`SetDRbarYukawaCouplings[];
-              callAllSMPoleMassFunctions        = FlexibleEFTHiggsMatching`CallSMPoleMassFunctions[FlexibleSUSY`FSEigenstates, False];
-              callAllSMPoleMassFunctionsThreads = FlexibleEFTHiggsMatching`CallSMPoleMassFunctions[FlexibleSUSY`FSEigenstates, True];
              ];
            WriteOut`ReplaceInFiles[files,
                        { "@alphaS1Lmatching@"        -> IndentText[IndentText[WrapLines[alphaS1Lmatching]]],
@@ -1019,8 +1015,6 @@ corresponding tadpole is real or imaginary (only in models with CP
                          "@setRunningDownLeptonMasses@" -> IndentText[IndentText[setRunningDownLeptonMasses]],
                          "@setYukawas@"              -> IndentText[WrapLines[setYukawas]],
                          "@applyUserMatching@"       -> IndentText[IndentText[WrapLines[userMatching]]],
-                         "@callAllSMPoleMassFunctions@" -> IndentText[callAllSMPoleMassFunctions],
-                         "@callAllSMPoleMassFunctionsThreads@" -> IndentText[callAllSMPoleMassFunctionsThreads],
                          Sequence @@ GeneralReplacementRules[]
                        } ];
         ];