diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2011-12-29 16:00:38 -0500 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2011-12-29 16:00:38 -0500 |
| commit | dacc0c39003dad32c7edb7d61fe2ab398fc0c934 (patch) | |
| tree | 250794c482fa42cc0db167f17dab834a019ebb1d | |
| parent | 698369edef18f9b5143c3e8b1b66a874eb5cfcb0 (diff) | |
Remove support for pown function
pown is only supported in OpenCL, and does not seem to give a performance improvement.
| -rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 1 | ||||
| -rw-r--r-- | Tools/CodeGen/CodeGenCactus.m | 2 |
2 files changed, 1 insertions, 2 deletions
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index d768625..0be42d3 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -1,5 +1,4 @@ #ifdef KRANC_C -# define pown(x,y) pow(x,y) # define IfThen(x,y,z) ((x) ? (y) : (z)) #else # define Abs(x) (abs(x)) diff --git a/Tools/CodeGen/CodeGenCactus.m b/Tools/CodeGen/CodeGenCactus.m index 60b9f9d..1a34074 100644 --- a/Tools/CodeGen/CodeGenCactus.m +++ b/Tools/CodeGen/CodeGenCactus.m @@ -738,7 +738,7 @@ DefFn[ from here. *) rhs = rhs //. Power[E, power_] -> exp[power]; rhs = rhs //. Log[x_] -> log[x]; - rhs = rhs //. Power[x_, n_Integer] -> pown[x,y]; + (* rhs = rhs //. Power[x_, n_Integer] -> pown[x,n]; *) rhs = rhs //. Power[x_, y_] -> pow[x,y]; rhs = rhs //. Sin[x_] -> sin[x]; rhs = rhs //. Cos[x_] -> cos[x]; |