diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 15:00:47 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-11 15:00:47 +0200 |
commit | 40d2ed8e5683e2ec54f7da98c6f0ea3ece3e4639 (patch) | |
tree | f2d259d825d1e30308deba6eb8fe551342196cdf | |
parent | 686470eddf04222f46b33b26d5fe2a0a2569e2aa (diff) |
Param.m: Eliminate temporary variable
-rw-r--r-- | Tools/CodeGen/Param.m | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Tools/CodeGen/Param.m b/Tools/CodeGen/Param.m index d3f3152..730a7c5 100644 --- a/Tools/CodeGen/Param.m +++ b/Tools/CodeGen/Param.m @@ -339,7 +339,7 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_, evolutionTimelevels_, defaultEvolutionTimelevels_, calcs_, opts:OptionsPattern[]] := Module[ - {evolvedGFs, otherTimelevelsParam, genericfdStruct, verboseStruct, calcEveryStructs, calcOffsetStructs, + {otherTimelevelsParam, genericfdStruct, verboseStruct, calcEveryStructs, calcOffsetStructs, allInherited, allExtended, implementationNames, userImplementations, userImplementations2, implementations, params, paramspec, param}, @@ -347,8 +347,6 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_, (* reals and ints are symbols containing parameter names. The inherited ones have implementation names as well *) - evolvedGFs = variablesFromGroups[evolvedGroups, groups]; - otherTimelevelsParam = { Name -> "other_timelevels", @@ -373,7 +371,7 @@ CreateKrancParam[evolvedGroups_, nonevolvedGroups_, {otherTimelevelsParam}, calcEveryStructs, calcOffsetStructs, - CactusBoundary`GetParameters[evolvedGFs, evolvedGroups]]; + CactusBoundary`GetParameters[variablesFromGroups[evolvedGroups, groups], evolvedGroups]]; paramspec = {Implementations -> usedParameters[parameters, opts], NewParameters -> params}; |