From c05f59d900a5477478a0cca12441953e4be3d2f8 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Thu, 12 Sep 2013 21:53:11 +0200 Subject: Remove old method for determining which grid functions need symmetries to be applied --- Tools/CodeGen/CodeGenSymmetries.m | 14 ++++---------- 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 -- cgit v1.2.3