diff --git a/Tools/CodeGen/Kranc.m b/Tools/CodeGen/Kranc.m index c83fddec..31ff1090 100644 --- a/Tools/CodeGen/Kranc.m +++ b/Tools/CodeGen/Kranc.m @@ -57,6 +57,10 @@ {Name, Definitions, shift, spacing, SBPDerivative}; +(* Interface.m *) + +{InterfaceTimelevels}; + (* KrancThorn.m *) ThornOptions = diff --git a/Tools/CodeGen/MoL.m b/Tools/CodeGen/MoL.m index 83b91fd1..04254124 100644 --- a/Tools/CodeGen/MoL.m +++ b/Tools/CodeGen/MoL.m @@ -34,6 +34,7 @@ MoLRHSGroupDefinitions; MoLRHSODEGroupDefinitions; MoLUsedFunctions; +MoLProcessGroups; Begin["`Private`"]; @@ -597,6 +598,19 @@ *) }]; +DefFn[ + MoLProcessGroups[declaredGroups_List, calcs_List, groups_List, + evolutionTimelevels_Integer] := + Module[ + {evolvedGroups, groups2}, + evolvedGroups = MoLEvolvedGroups[declaredGroups, calcs, groups]; + + groups2 = Map[If[MemberQ[evolvedGroups, groupName[#]], + (* Print["Adding InterfaceTimelevels to ", groupName[#]]; *) + EnsureInterfaceTimelevels[#, evolutionTimelevels], + #] &, groups]; + groups2]]; + End[]; EndPackage[];