From efb87a15fc6201a9511e124e56737fef7f36edf6 Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Thu, 30 Sep 2010 00:58:30 +0100 Subject: MathematicaCompat.h: Add MinMod function --- Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Auxiliary/Cactus') diff --git a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h index 29c89d1..bd9f1e5 100644 --- a/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h +++ b/Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h @@ -15,6 +15,8 @@ /* IfThen cannot be expressed in Fortran */ #endif +#define MinMod(x, y) ((x) * (y) < 0 ? 0 : (fabs((x)) < fabs((y)) ? (x) : (y))) + #define Exp(x) (exp(x)) #define Log(x) (log(x)) -- cgit v1.2.3