diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-10-01 14:06:32 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-10-01 14:06:32 +0200 |
commit | d7c63491dc1284ad57860d6cca6ada97d732e014 (patch) | |
tree | 22295dc22b60f540ea5bc4937713c1ed1f6dd4b7 /Tools/CodeGen/CalculationFunction.m | |
parent | df419204e3b27b3ee2021b8cdf37f44f671c749f (diff) |
CalculationFunction.m: Add function GridFunctionsInExpression
Diffstat (limited to 'Tools/CodeGen/CalculationFunction.m')
-rw-r--r-- | Tools/CodeGen/CalculationFunction.m | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Tools/CodeGen/CalculationFunction.m b/Tools/CodeGen/CalculationFunction.m index 1fd65a9..58e7a5f 100644 --- a/Tools/CodeGen/CalculationFunction.m +++ b/Tools/CodeGen/CalculationFunction.m @@ -25,6 +25,7 @@ BeginPackage["CalculationFunction`", {"CodeGen`", CreateCalculationFunction::usage = ""; VerifyCalculation::usage = ""; calculationSymbols::usage = ""; +GridFunctionsInExpression; Begin["`Private`"]; @@ -565,6 +566,11 @@ equationLoop[eqs_, cleancalc_, gfs_, shorts_, incs_, groups_, pddefs_, If[debugInLoop, Map[InfoVariable[GridName[#]] &, gfsInLHS], ""]}, opts]]; +(* Unsorted *) + +GridFunctionsInExpression[x_, groups_] := + Union[Cases[x, _ ? (MemberQ[allGroupVariables[groups],#] &), Infinity]]; + End[]; EndPackage[]; |