From 7cbaac094ca6dcb34b09e8db0546eed8555923e5 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Wed, 11 Sep 2013 17:06:15 +0200
Subject: MoL.m: Remove MoLEvolved from copied RHS group definition

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

(limited to 'Tools')

diff --git a/Tools/CodeGen/MoL.m b/Tools/CodeGen/MoL.m
index ce656e3..8632ca9 100644
--- a/Tools/CodeGen/MoL.m
+++ b/Tools/CodeGen/MoL.m
@@ -566,6 +566,8 @@ EvolvedGroupToRHSGroup[name_, groups_] :=
     group = SetGroupName[group, addrhs[name]];
     group = SetGroupVariables[group, newVars];
     group = AddGroupTag[group, "Prolongation" -> "None"];
+    group = DeleteGroupExtra[group, MoLEvolved];
+         
     Return[group]];
 
 DefFn[
-- 
cgit v1.2.3