adding helper function which returns model parameters with given dime…

…nsion
FlexibleSUSY · Jan 13, 2015 · 901a332 · 901a332
1 parent 5e5911b
commit 901a332
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -42,6 +42,8 @@
 GetInputParameters::usage="";
 GetModelParameters::usage="";
 GetOutputParameters::usage="";
+GetModelParametersWithMassDimension::usage="Returns model parameters
+with given mass dimension";
 
 CreateLocalConstRefs::usage="creates local const references to model
 parameters / input parameters.";
@@ -767,6 +769,24 @@
 
 StripIndices[par_] := par;
 
+ExtractParametersFromSARAHBetaLists[beta_List] :=
+    StripIndices[#[[1]]]& /@ beta;
+
+GetModelParametersWithMassDimension[dim_?IntegerQ] :=
+    Module[{dimPars},
+           Switch[dim,
+                  0, dimPars = Join[SARAH`BetaGauge, SARAH`BetaLijkl, SARAH`BetaYijk, SARAH`BetaQijkl];,
+                  1, dimPars = Join[SARAH`BetaMuij, SARAH`BetaTijk, SARAH`BetaMi, SARAH`BetaDGi, SARAH`BetaVEV];,
+                  2, dimPars = Join[SARAH`BetaLSi, SARAH`BetaBij, SARAH`Betam2ij];,
+                  3, dimPars = Join[SARAH`BetaLi];,
+                  _,
+                  Print["Error: GetModelParametersWithMassDimension: ", dim,
+                        " is not a valid dimension"];
+                  Return[{}];
+                 ];
+           ExtractParametersFromSARAHBetaLists[dimPars]
+          ];
+
 End[];
 
 EndPackage[];