diff options
Diffstat (limited to 'Tools/CodeGen/CalculationFunction.m')
-rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index 69b23da..60ff163 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -426,9 +426,9 @@ CreateCalculationFunction[calcp_, debug_, imp_, opts:OptionsPattern[]] := InfoMessage[InfoFull, "Equations:"]; - (* Wrap parameters with ToReal *) + (* Wrap parameters with ToReal unless they are part of the condition in an IfThen *) parameterRules = Map[(#->ToReal[#])&, parameters]; - eqs = eqs /. parameterRules; + eqs = eqs /. Prepend[parameterRules, IfThen[cond_, x_, y_] :> IfThen[cond, x/.parameterRules, y/.parameterRules]]; Map[printEq, eqs]; |