set input parameters, don't treat them as fixed by the constraint

FlexibleSUSY · Jul 13, 2015 · 01f5b70 · 01f5b70
1 parent ef2c3f5
commit 01f5b70
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/meta/Constraint.m b/meta/Constraint.m
@@ -491,7 +491,10 @@
     StringJoin[CheckPerturbativityForParameter[#,thresh]& /@ pars];
 
 GetNumberOfParameters[FlexibleSUSY`FSSolveEWSBFor[pars_List]] :=
-    Length[pars];
+    Plus @@ (BetaFunction`CountNumberOfParameters[Parameters`GetType[#]]& /@ pars);
+
+(* don't count input parameters as fixed parameters *)
+GetNumberOfParameters[{par_ /; IsInputParameter[par], _}] := 0;
 
 GetNumberOfParameters[{FlexibleSUSY`Phase[_], _}] := 1;
 
@@ -504,6 +507,10 @@
 CalculateNumberOfParameters[settings_List] :=
     ToString[Plus @@ (GetNumberOfParameters /@ settings)];
 
+(* simply set parameters *)
+CalculateDifference[{par_ /; IsInputParameter[par], value_}, _, _, _] :=
+    Parameters`SetInputParameter[par, value, "INPUTPARAMETER"];
+
 (* phases are equal if their real parts are equal *)
 CalculateDifference[{p:FlexibleSUSY`Phase[_], value_}, offset_Integer, vector_String, type_] :=
     vector <> "(" <> ToString[offset] <> ") = Re(" <>