diff options
Diffstat (limited to 'Tools/CodeGen/KrancThorn.m')
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index c2e1289..d41fb51 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -343,6 +343,8 @@ CreateKrancThornTT[groups_, parentDirectory_, thornName_, opts___] := expCalcs = Map[makeCalculationExplicit, calcs]; expConsCalcs = Map[makeCalculationExplicit, consCalcs]; + Print[expConsCalcs]; + InfoMessage[Info, "Group definitions:", groups]; expDerivs = Flatten[Map[MakeExplicit,derivs],1]; @@ -378,7 +380,8 @@ makeCalculationExplicit[calc_] := CollectList -> MakeExplicit, Equations -> MakeExplicit, PrimitiveEquations -> MakeExplicit, - ConservedEquations -> MakeExplicit}]; + ConservedEquations -> MakeExplicit, + Primitives -> MakeExplicit}]; makeGroupExplicit[g_] := Module[{variables, newVariables, newGroup}, |