Check if parameter does not appear in equation when trying to solve

in order to avoid potential errors when trying to solve for a parameter that does not appear in the equation
FlexibleSUSY · Feb 23, 2017 · 59f91a1 · 59f91a1
1 parent ab0782f
commit 59f91a1
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/meta/EWSB.m b/meta/EWSB.m
@@ -392,7 +392,13 @@
                                         And @@ (Function[p,FreeQ[e,p]] /@ par),
                                         FreeQ[e,par]
                                        ]];
-              independentEq = Select[eq, (!Selector[#])&];
+              independentEq = Select[eq, (!Selector[#])&];,
+              If[Head[par] =!= List,
+                 If[FreeQ[eq, par],
+                    Print["Error: parameter ", par, " does not appear in the equation"];
+                    Return[{}];
+                   ];
+                ];
              ];
            result = TimeConstrained[Solve[independentEq, par],
                                     FlexibleSUSY`FSSolveEWSBTimeConstraint, {}];