From c8c94cc24a88764febc27707632f29c785aced73 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Fri, 27 May 2011 15:13:31 +0200 Subject: Make IfThen available in Fortran --- Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Auxiliary') diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index 2f00da9..1823cd8 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -12,7 +12,7 @@ # 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 */ +# define IfThen(x,y,z) ((x)*(y) + (1-(x))*(z)) #endif #define Exp(x) (exp(x)) -- cgit v1.2.3