From 00cdecf2af8014e127a266348a3adc89a8b893b0 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 28 Sep 2011 11:04:44 +0200 Subject: MathematicaCompat.h: Remove unused code --- .../GenericFD/src/MathematicaCompat.h | 32 ---------------------- 1 file changed, 32 deletions(-) (limited to 'Auxiliary/Cactus/KrancNumericalTools') 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 -- cgit v1.2.3