diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 21:53:11 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 21:53:11 +0200 |
| commit | c05f59d900a5477478a0cca12441953e4be3d2f8 (patch) | |
| tree | 124f47d0c67374cf3b3fd37634e9944403091293 | |
| parent | 7369286bc4ab997558d90a594d13873f9fd75ba4 (diff) | |
Remove old method for determining which grid functions need symmetries to be applied
| -rw-r--r-- | Tools/CodeGen/CodeGenSymmetries.m | 14 | ||||
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 16 |
2 files changed, 11 insertions, 19 deletions
diff --git a/Tools/CodeGen/CodeGenSymmetries.m b/Tools/CodeGen/CodeGenSymmetries.m index 60e898a..950cfb5 100644 --- a/Tools/CodeGen/CodeGenSymmetries.m +++ b/Tools/CodeGen/CodeGenSymmetries.m @@ -64,10 +64,10 @@ DefFn[ C CodeGen structure of a source file which will register the symmetries. *) DefFn[ CreateSymmetriesRegistrationSource[thornName_String, implementationName_String, - declaredGroups_List, groups_List, GFs_List, + declaredGroups_List, groups_List, reflectionSymmetries_List, debug:(True|False)] := Module[ - {spec, j, lang, tmp, GFs2, nonRHSGroups}, + {spec, j, lang, tmp, GFs, nonRHSGroups}, If[debug, Print["Registering Symmetries for: ", GFs]]; @@ -85,16 +85,10 @@ DefFn[ GridType, "gf"] === "array")) &]; - GFs2 = variablesFromGroups[nonRHSGroups, groups]; - - If[Union[GFs2] =!= Union[GFs], - Print["GFs don't match"]; - Print["GFs = ", Union[GFs]]; - Print["GFs2 = ", Union[GFs2]]; - Quit[1]]; + GFs = variablesFromGroups[nonRHSGroups, groups]; spec = Map[{FullName -> implementationName <> "::" <> ToString@#, - Sym -> calcSymmetry[#, Union@reflectionSymmetries]} &, GFs2]; + Sym -> calcSymmetry[#, Union@reflectionSymmetries]} &, GFs]; tmp = {FileHeader["C"], diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index b49eca0..701665e 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -288,15 +288,13 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ AppendTo[includeFiles, "Symmetry.h"]; - Module[{allGFs = Join[variablesFromGroups[evolvedGroups, groups], - variablesFromGroups[nonevolvedGroups, groups]]}, - InfoMessage[Terse, "Creating symmetry registration file"]; - AppendTo[ - sources, - {Filename -> "RegisterSymmetries.cc", - Contents -> CreateSymmetriesRegistrationSource[ - thornName, implementation, - declaredGroups, groups, allGFs, OptionValue[ReflectionSymmetries], False]}]]; + InfoMessage[Terse, "Creating symmetry registration file"]; + AppendTo[ + sources, + {Filename -> "RegisterSymmetries.cc", + Contents -> CreateSymmetriesRegistrationSource[ + thornName, implementation, + declaredGroups, groups, OptionValue[ReflectionSymmetries], False]}]; (* ------------------------------------------------------------------------ Startup source file |