diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-11-21 16:17:43 +0100 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-11-21 16:17:43 +0100 |
commit | 7a654b106b7c29cf5c9522d586478f68ab47657d (patch) | |
tree | 7f31902b084ba85e02ba345976a9017ce2f937cd /Tools/CodeGen/Schedule.m | |
parent | 2d7502d4f7cb0dba0b52640de4bb624946460775 (diff) |
Change format of internal data structure for group storage
Diffstat (limited to 'Tools/CodeGen/Schedule.m')
-rw-r--r-- | Tools/CodeGen/Schedule.m | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/Tools/CodeGen/Schedule.m b/Tools/CodeGen/Schedule.m index 56af53e..c2ce5fa 100644 --- a/Tools/CodeGen/Schedule.m +++ b/Tools/CodeGen/Schedule.m @@ -28,11 +28,10 @@ Begin["`Private`"]; Scheduling -------------------------------------------------------------------------- *) -storageStructure[groupName_, timelevels_, param_String] := +storageStructure[groupName_, timelevels_] := { Group -> groupName, - Timelevels -> timelevels, - TimelevelsParameter -> param + Timelevels -> timelevels }; groupsSetInCalc[calc_, groups_] := @@ -274,15 +273,15 @@ CreateKrancScheduleFile[calcs_, groups_, evolvedGroups_, rhsGroups_, nonevolvedG {tl}, tl = NonevolvedTimelevels[groupFromName[#, groups]]; If[tl===1, - storageStructure[#, tl, "other_timelevels"], - storageStructure[#, evolutionTimelevels, "timelevels"]]] &, + storageStructure[#, {"other_timelevels", tl}], + storageStructure[#, {"timelevels", evolutionTimelevels}]]] &, (* over *) nonevolvedGroups], - Map[storageStructure[#, evolutionTimelevels, "timelevels"] &, + Map[storageStructure[#, {"timelevels", evolutionTimelevels}] &, evolvedGroups], - Map[storageStructure[#, evolutionTimelevels, "rhs_timelevels"] &, + Map[storageStructure[#, {"rhs_timelevels", evolutionTimelevels}] &, rhsGroups]]; (* Schedule groups defined in calculations *) |