diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 15:29:44 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 15:29:44 +0200 |
| commit | 8833f0de4517fbd839d1baae4c863cebad3e9ef3 (patch) | |
| tree | fc212dcbf84b0720efab2b14d3425a881fb3a665 /Tools | |
| parent | 6687a779dac461b408bc115d274315e7e48757a4 (diff) | |
KrancThorn.m: Eliminate temporary variable
Diffstat (limited to 'Tools')
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index c2c6c1d..e1434d6 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -67,7 +67,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ evolutionTimelevels, defaultEvolutionTimelevels, parameters, configuration, - partialDerivs, coordGroup, evolvedGroups, rhsGroups, nonevolvedGroups, + partialDerivs, evolvedGroups, rhsGroups, nonevolvedGroups, interface, evolvedGroupDefinitions, thornspec, evolvedODEGroups, nonevolvedODEGroups, evolvedODEGroupDefinitions, rhsODEGroups, @@ -123,11 +123,10 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Add coordinates group ------------------------------------------------------------------------ *) - coordGroup = {"grid::coordinates", {Kranc`x,Kranc`y,Kranc`z,Kranc`r}}; - CheckGroups[groupsOrig]; - groups = Union[groupsOrig, {coordGroup}, + groups = Union[groupsOrig, + {{"grid::coordinates", {Kranc`x,Kranc`y,Kranc`z,Kranc`r}}}, SameTest->(ToLowerCase[#1]==ToLowerCase[#2]&)]; (* ------------------------------------------------------------------------ |