Find extra parameters as well

FlexibleSUSY · Dec 7, 2016 · 8e66431 · 8e66431
1 parent 5ca045c
commit 8e66431
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -226,7 +226,7 @@
            allParameters = DeleteDuplicates[
                Join[allModelParameters, allOutPars,
                     GetInputParameters[], Phases`GetArg /@ allPhases,
-                    GetDependenceSPhenoSymbols[]]];
+                    GetDependenceSPhenoSymbols[], GetExtraParameters[]]];
            compactExpr = RemoveProtectedHeads[expr];
            (* find all model parameters with SARAH head *)
            symbols = DeleteDuplicates[Flatten[
@@ -874,7 +874,7 @@
 
 FindAllParametersClassified[expr_] :=
     Module[{symbols = DeleteDuplicates[Flatten[FindAllParameters[expr]]],
-            inputPars, modelPars, outputPars,
+            inputPars, modelPars, outputPars, extraPars,
             poleMasses, phases, depNum, allOutPars},
            allOutPars = DeleteDuplicates[Flatten[
                Join[allOutputParameters,
@@ -891,13 +891,15 @@
            outputPars   = DeleteDuplicates[Select[symbols, (MemberQ[allOutPars,#])&]];
            phases       = DeleteDuplicates[Select[symbols, (MemberQ[Phases`GetArg /@ allPhases,#])&]];
            depNum       = DeleteDuplicates[Select[symbols, (MemberQ[GetDependenceSPhenoSymbols[],#])&]];
+           extraPars    = DeleteDuplicates[Select[symbols, (MemberQ[GetExtraParameters[],#])&]];
            {
                FSModelParameters -> modelPars,
                FSInputParameters -> inputPars,
                FSOutputParameters -> outputPars,
                FSPhysicalOutputParameters -> poleMasses,
                FSPhases -> phases,
-               FSDerivedParameters -> depNum
+               FSDerivedParameters -> depNum,
+               FSExtraParameters -> extraPars
            }
           ];