adding helper function retuning dimensions of parameters

FlexibleSUSY · Feb 11, 2015 · 14c4384 · 14c4384
1 parent adcb585
commit 14c4384
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/meta/Parameters.m b/meta/Parameters.m
@@ -28,6 +28,7 @@
 GetPhase::usage="";
 HasPhase::usage="";
 GetTypeFromDimension::usage="";
+GetParameterDimensions::usage="";
 
 IsRealParameter::usage="";
 IsComplexParameter::usage="";
@@ -294,6 +295,16 @@
 GetType[sym_] :=
     GetTypeFromDimension[sym, SARAH`getDimParameters[sym]];
 
+GetParameterDimensions[sym_] :=
+    Module[{dim},
+           dim = SARAH`getDimParameters[sym];
+           Switch[dim,
+                  {}, {1},
+                  {0}, {1},
+                  _, dim
+                 ]
+          ];
+
 CreateIndexReplacementRules[pars_List] :=
     Module[{indexReplacementRules, p, i,j,k,l, dim, rule, parameter},
            indexReplacementRules = {};