use unique name for check function

to prevent ambiguities if multiple librarylinks are loaded
FlexibleSUSY · Jan 27, 2017 · bfe9c15 · bfe9c15
1 parent f3ed012
commit bfe9c15
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/templates/librarylink.m.in b/templates/librarylink.m.in
@@ -22,8 +22,8 @@ FS@ModelName@::info = "`1`";
 FS@ModelName@::nonum = "Error: `1` is not a numeric input value!";
 FS@ModelName@Message[s_] := Message[FS@ModelName@::info, s];
 
-CheckIsNumeric[a_?NumericQ] := a;
-CheckIsNumeric[a_] := (Message[FS@ModelName@::nonum, a]; Abort[]);
+FS@ModelName@CheckIsNumeric[a_?NumericQ] := a;
+FS@ModelName@CheckIsNumeric[a_] := (Message[FS@ModelName@::nonum, a]; Abort[]);
 
 fsDefaultSettings = {
       precisionGoal -> 1.*^-4,           (* FlexibleSUSY[0] *)
@@ -98,7 +98,7 @@ FS@ModelName@OpenHandle[a___, (fsSettings | fsSMParameters | fsModelParameters)
 
 FS@ModelName@OpenHandle[OptionsPattern[]] :=
     FS@ModelName@OpenHandleLib[
-        CheckIsNumeric /@ {
+        FS@ModelName@CheckIsNumeric /@ {
             (* spectrum generator settings *)
             OptionValue[precisionGoal],
             OptionValue[maxIterations],
@@ -227,7 +227,7 @@ FS@ModelName@Set[handle_Integer, p:OptionsPattern[]] :=
 
             (* @ModelName@ input parameters *)
 @setInputParameterArguments@
-        }] /. HoldPattern[OptionValue[param_]] :> CheckIsNumeric[param] /.
+        }] /. HoldPattern[OptionValue[param_]] :> FS@ModelName@CheckIsNumeric[param] /.
         { p } /.
         FS@ModelName@GetSettings[handle] /.
         FS@ModelName@GetSMInputParameters[handle] /.