From 2ce001c1412d1fe4c75d8818ed145065a2522a15 Mon Sep 17 00:00:00 2001
From: Ian Hinder <ian.hinder@aei.mpg.de>
Date: Thu, 12 Sep 2013 19:06:12 +0200
Subject: Schedule.m: Remove old code for computing the storage group
 structures

---
 Tools/CodeGen/Schedule.m | 29 ++---------------------------
 1 file changed, 2 insertions(+), 27 deletions(-)

diff --git a/Tools/CodeGen/Schedule.m b/Tools/CodeGen/Schedule.m
index 9582908..89f6417 100644
--- a/Tools/CodeGen/Schedule.m
+++ b/Tools/CodeGen/Schedule.m
@@ -266,25 +266,6 @@ CreateKrancScheduleFile[calcs_, groups_, declaredGroups_, evolvedGroups_, rhsGro
       Comment       -> "register symmetries"
     };
 
-    globalStorageGroups =
-      Join[
-        Map[
-          Module[
-            {tl},
-            (* Number of timelevels requested for this group, or 1 if no request made *)
-            tl = NonevolvedTimelevels[groupFromName[#, groups]];
-            If[tl===1,
-               storageStructure[#, "other_timelevels"],
-               storageStructure[#, "timelevels"]]] &,
-          (* over *)
-          nonevolvedGroups],
-
-        Map[storageStructure[#, "timelevels"] &,
-            evolvedGroups],
-
-        Map[storageStructure[#, "rhs_timelevels"] &,
-            rhsGroups]];
-
     scheduleTimelevels[gn_] :=
       Module[
         {groupDef, extras},
@@ -298,13 +279,7 @@ CreateKrancScheduleFile[calcs_, groups_, declaredGroups_, evolvedGroups_, rhsGro
                     "other_timelevels",
                     "timelevels"]]];
 
-    globalStorageGroups2 = Map[storageStructure[#, scheduleTimelevels[#]] &, declaredGroups];
-
-    If[Union@globalStorageGroups2 =!= Union@globalStorageGroups,
-       Print["Global storage groups differ:"];
-       Print["globalStorageGroups = ", Union@globalStorageGroups];
-       Print["globalStorageGroups2 = ", Union@globalStorageGroups2];
-       Quit[1]];
+    globalStorageGroups = Map[storageStructure[#, scheduleTimelevels[#]] &, declaredGroups];
 
     (* Schedule groups defined in calculations *)
     calcGroups = Union[Flatten[Map[lookup[#, ScheduleGroups, {}] &, calcs],1]];
@@ -320,7 +295,7 @@ CreateKrancScheduleFile[calcs_, groups_, declaredGroups_, evolvedGroups_, rhsGro
        scheduledFunctions = Join[scheduledFunctions, CaKernelSchedule[thornName]]];
 
     allParams = Union@@((lookup[#,Parameters] &) /@ calcs);
-    schedule = CreateSchedule[globalStorageGroups2, 
+    schedule = CreateSchedule[globalStorageGroups, 
       Join[CactusBoundary`GetScheduledGroups[thornName], calcGroups], scheduledFunctions, allParams];
 
     Return[schedule]];
-- 
cgit v1.2.3