Allow exceptions to be specified when searching for parameters

FlexibleSUSY · Jan 11, 2017 · 41711ce · 41711ce
1 parent 408e8af
commit 41711ce
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -315,7 +315,7 @@
           ];
 
 (* Returns all parameters within an expression *)
-FindAllParameters[expr_] :=
+FindAllParameters[expr_, exceptions_:{}] :=
     Module[{allParameters, allOutPars},
            allOutPars = DeleteDuplicates[Flatten[
                Join[allOutputParameters,
@@ -326,11 +326,12 @@
                Join[allModelParameters, allOutPars,
                     GetInputParameters[], Phases`GetArg /@ allPhases,
                     GetDependenceSPhenoSymbols[], GetExtraParameters[]]];
+           allParameters = DeleteCases[allParameters, p_ /; MemberQ[exceptions, p]];
            FindAllParametersFromList[expr, allParameters]
           ];
 
-FindAllParametersClassified[expr_] :=
-    Module[{symbols = DeleteDuplicates[Flatten[FindAllParameters[expr]]],
+FindAllParametersClassified[expr_, exceptions_:{}] :=
+    Module[{symbols = DeleteDuplicates[Flatten[FindAllParameters[expr, exceptions]]],
             inputPars, modelPars, outputPars, extraPars,
             poleMasses, phases, depNum, allOutPars},
            allOutPars = DeleteDuplicates[Flatten[