diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 21:44:10 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 21:44:25 +0200 |
commit | c1bcd9aa9abea66fb6c74bf4956417be6801b574 (patch) | |
tree | cceed8b09b6154125eea1b8693a8c43fe0b5568b | |
parent | 99b1b9c61397c6e85a324d25e510a15b06100b31 (diff) |
MoL.m: Add a group extra to indicate that the group is an RHS
-rw-r--r-- | Tools/CodeGen/Kranc.m | 1 | ||||
-rw-r--r-- | Tools/CodeGen/MoL.m | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m index a3bf3e5..93035db 100644 --- a/Tools/CodeGen/Kranc.m +++ b/Tools/CodeGen/Kranc.m @@ -55,6 +55,7 @@ SimpleCode}; (* MoL.m *) MoLEvolved; +MoLRHS; (* Differencing.m *) diff --git a/Tools/CodeGen/MoL.m b/Tools/CodeGen/MoL.m index b6090f1..a2a64e0 100644 --- a/Tools/CodeGen/MoL.m +++ b/Tools/CodeGen/MoL.m @@ -572,6 +572,7 @@ EvolvedGroupToRHSGroup[name_, groups_] := group = AddGroupTag[group, "Prolongation" -> "None"]; group = DeleteGroupExtra[group, MoLEvolved]; group = group /. (ScheduleTimelevels -> _) :> (ScheduleTimelevels -> "rhs_timelevels"); + group = AddGroupExtra[group, MoLRHS -> "True"]; Return[group]]; |