Allow storing the mass dimensions of input and extra parameters

FlexibleSUSY · Feb 1, 2017 · 6c41f3d · 6c41f3d
1 parent 8d4deb8
commit 6c41f3d
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -169,6 +169,23 @@
 allOutputParameters = {};
 allPhases = {};
 
+(* list storing mass dimensions for input and extra parameters *)
+extraMassDimensions = {};
+
+AddMassDimensionInfo[par_, dim_?NumberQ] :=
+    Module[{parNames},
+           parNames = #[[1]]& /@ extraMassDimensions;
+           If[!MemberQ[parNames, par],
+              extraMassDimensions = Utils`ForceJoin[extraMassDimensions, {{par, dim}}];,
+              pos = Position[parNames, par, 1];
+              extraMassDimensions = ReplacePart[extraMassDimensions, pos -> {par, dim}];
+             ];
+          ];
+
+AddMassDimensionInfo[par_, dim_] :=
+    Print["Error: mass dimension for parameter ", par,
+          " must be a number"];
+
 GuessInputParameterType[Sign[par_]] :=
     CConversion`ScalarType[CConversion`integerScalarCType];
 GuessInputParameterType[FlexibleSUSY`Phase[par_]] :=