diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-09-29 00:56:32 +0100 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-09-29 00:56:32 +0100 |
commit | 3be364278d0a5b3fa501a3015fef3acd3d5357cd (patch) | |
tree | 346aa4842ac5aa6ebcda5f3f157b8cbdfb83d9ea /Tools/CodeGen | |
parent | 5713f44742a1ce14c9d13f981827be3be6f7e8b8 (diff) |
Differencing.m: Make FD operator pattern more generic
Previously it required a grid spacing to be present; now it does not
Diffstat (limited to 'Tools/CodeGen')
-rw-r--r-- | Tools/CodeGen/Differencing.m | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Tools/CodeGen/Differencing.m b/Tools/CodeGen/Differencing.m index 0eb864e..ff6db9c 100644 --- a/Tools/CodeGen/Differencing.m +++ b/Tools/CodeGen/Differencing.m @@ -273,8 +273,8 @@ ComponentDerivativeOperatorMacroDefinition[componentDerivOp:(name_[inds___] -> e (* Print["rhs2 == ", FullForm[rhs2]];*) - pat = Times[spInExpr:(Power[spacing[_],_]..), (Rational[x_,y_])..., rest__]; -(* Print["pat == ", pat//FullForm];*) + pat = (Times[spInExpr:(Power[spacing[_],_]...), (Rational[x_,y_])..., rest__]) | (rest__); + (* Print["pat == ", pat//FullForm]; *) If[MatchQ[rhs2, pat], (* Print["matches!"];*) |