Check for dimensionless parameters amongst input and extra parameters…

… as well
FlexibleSUSY · Feb 2, 2017 · f1fd7cb · f1fd7cb
1 parent 8ca1e4f
commit f1fd7cb
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/meta/SemiAnalytic.m b/meta/SemiAnalytic.m
@@ -75,7 +75,7 @@
 
 IsDimensionZero[par_] :=
     Module[{dimZeroPars},
-           dimZeroPars = Parameters`GetModelParametersWithMassDimension[0];
+           dimZeroPars = Parameters`GetParametersWithMassDimension[0];
            MemberQ[Parameters`StripIndices[#]& /@ dimZeroPars, Parameters`StripIndices[par]]
           ];
 
@@ -194,7 +194,7 @@
 
 SelectParametersWithMassDimension[parameters_List, dim_?IntegerQ] :=
     Module[{allParameters},
-           allParameters = Parameters`GetModelParametersWithMassDimension[dim];
+           allParameters = Parameters`GetParametersWithMassDimension[dim];
            Select[parameters, MemberQ[allParameters, #]&]
           ];
 
@@ -354,7 +354,7 @@
     Module[{i, dimZeroPars, dimensions, expr,
             monomials = {}, coeff, term, basis = {}},
            If[pars =!= {},
-              dimZeroPars = Parameters`GetModelParametersWithMassDimension[0];
+              dimZeroPars = Parameters`GetParametersWithMassDimension[0];
               dimensions = Parameters`GetParameterDimensions[#]& /@ pars;
               expr = Plus @@ (SumOverElements[#]& /@ pars);
               expr = Expand[expr /. subs];