diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-09-30 00:58:30 +0100 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2010-09-30 00:58:30 +0100 |
commit | efb87a15fc6201a9511e124e56737fef7f36edf6 (patch) | |
tree | 656a3435cd3c2e41675945ecc827c4f0d971694c /Auxiliary/Cactus | |
parent | eef77e0f5790fbce094bff142904a765573c41ef (diff) |
MathematicaCompat.h: Add MinMod function
Diffstat (limited to 'Auxiliary/Cactus')
-rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 2 |
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 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)) |