Add IfThen pseudo-function, which expands to ?: in C.

1 files changed, 2 insertions, 0 deletions

diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h
index 6e9ec8c..cef5d7e 100644
--- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h
+++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h
@@ -7,10 +7,12 @@
 #define Abs(x)        (fabs(x))
 #define Min(x, y)     (fmin((x), (y)))
 #define Max(x, y)     (fmax((x), (y)))
+#define IfThen(x,y,z) ((x) ? (y) : (z))
 #else
 #define Abs(x)        (abs(x))
 #define Min(x, y)     (min((x), (y)))
 #define Max(x, y)     (max((x), (y)))
+/* IfThen cannot be expressed in Fortran */
 #endif
 
 #define Exp(x)        (exp(x))