From c1bcd9aa9abea66fb6c74bf4956417be6801b574 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Thu, 12 Sep 2013 21:44:10 +0200
Subject: MoL.m: Add a group extra to indicate that the group is an RHS

---
 Tools/CodeGen/Kranc.m | 1 +
 Tools/CodeGen/MoL.m   | 1 +
 2 files changed, 2 insertions(+)

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]];
 
-- 
cgit v1.2.3