diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 19:06:12 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 19:07:21 +0200 |
| commit | 2ce001c1412d1fe4c75d8818ed145065a2522a15 (patch) | |
| tree | 8caaa3028296c5abc3d7a548e5b9d85ecda16661 | |
| parent | 0b09169bacd7995d28b56a574bd060ebb243ca6f (diff) | |
Schedule.m: Remove old code for computing the storage group structures
| -rw-r--r-- | Tools/CodeGen/Schedule.m | 29 |
1 files 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]]; |