diff options
author | Erik Schnetter <schnetter@gmail.com> | 2011-09-28 11:04:44 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-09-29 20:57:10 +0200 |
commit | 00cdecf2af8014e127a266348a3adc89a8b893b0 (patch) | |
tree | a4c8abdfca237d8b7bba4c040537389074147e35 /Auxiliary/Cactus | |
parent | e64d904a508a0de313acd91697b0269987963ad2 (diff) |
MathematicaCompat.h: Remove unused code
Diffstat (limited to 'Auxiliary/Cactus')
-rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index 1823cd8..de93c51 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -38,38 +38,6 @@ # define ToReal(x) (real((x),kind(khalf))) #endif -#if 0 - -/* TODO: use fma(x,y,z) to implement fmadd and friends? Note that fma - may be unsupported, or may be slow. */ - -/* #define fmadd(x,y,z) ((x)*(y)+(z)) */ -/* #define fmsub(x,y,z) ((x)*(y)-(z)) */ -/* #define fnmadd(x,y,z) (-(z)-(x)*(y)) */ -/* #define fnmsub(x,y,z) (+(z)-(x)*(y)) */ - -#define fpos(x) (+(x)) -#define fneg(x) (-(x)) -#define fmul(x,y) ((x)*(y)) -#define fdiv(x,y) ((x)/(y)) -#define fadd(x,y) ((x)+(y)) -#define fsub(x,y) ((x)-(y)) - -#define fmadd(x,y,z) (fadd(fmul(x,y),z)) -#define fmsub(x,y,z) (fsub(fmul(x,y),z)) -#define fnmadd(x,y,z) (fsub(fneg(z),fmul(x,y))) -#define fnmsub(x,y,z) (fsub(z,fmul(x,y))) - -#define kexp(x) (exp(x)) -#define kfabs(x) (fabs(x)) -#define kfmax(x,y) (fmax(x,y)) -#define kfmin(x,y) (fmin(x,y)) -#define klog(x) (log(x)) -#define kpow(x,y) (pow(x,y)) -#define ksqrt(x) (sqrt(x)) - -#endif - #ifdef KRANC_C # define E M_E # define Pi M_PI |