Schedule.m: Remove unused maxtimelevels argument

ianhinder · Nov 21, 2012 · 3682e29 · 3682e29
1 parent aea4d20
commit 3682e29
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/Tools/CodeGen/Schedule.m b/Tools/CodeGen/Schedule.m
@@ -28,21 +28,21 @@
    Scheduling
    -------------------------------------------------------------------------- *)
 
-simpleGroupStruct[groupName_, timelevels_, maxtimelevels_] := 
+simpleGroupStruct[groupName_, timelevels_] := 
 {
   Group -> groupName, 
   Timelevels -> timelevels,
   MaxTimelevels -> "other_timelevels"
 };
 
-evolvedGroupStruct[groupName_, timelevels_, maxtimelevels_] := 
+evolvedGroupStruct[groupName_, timelevels_] := 
 {
   Group -> groupName, 
   Timelevels -> timelevels,
   MaxTimelevels -> "timelevels"
 };
 
-rhsGroupStruct[groupName_, timelevels_, maxtimelevels_] := 
+rhsGroupStruct[groupName_, timelevels_] := 
 {
   Group -> groupName, 
   Timelevels -> timelevels,
@@ -288,15 +288,15 @@
             {tl},
             tl = NonevolvedTimelevels[groupFromName[#, groups]];
             If[tl===1,
-               simpleGroupStruct[#, tl, evolutionTimelevels],
-               evolvedGroupStruct[#, evolutionTimelevels, evolutionTimelevels]]] &,
+               simpleGroupStruct[#, tl],
+               evolvedGroupStruct[#, evolutionTimelevels]]] &,
           (* over *)
           nonevolvedGroups],
 
-        Map[evolvedGroupStruct[#, evolutionTimelevels, evolutionTimelevels] &,
+        Map[evolvedGroupStruct[#, evolutionTimelevels] &,
             evolvedGroups],
 
-        Map[rhsGroupStruct[#, evolutionTimelevels, evolutionTimelevels] &,
+        Map[rhsGroupStruct[#, evolutionTimelevels] &,
             rhsGroups]];
 
     (* Schedule groups defined in calculations *)