diff options
| author | Erik Schnetter <schnetter@cct.lsu.edu> | 2011-05-27 15:13:31 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2011-05-27 16:14:21 +0200 |
| commit | c8c94cc24a88764febc27707632f29c785aced73 (patch) | |
| tree | 98ee3375677c7de2c98bd79a83912616878763a9 /Auxiliary | |
| parent | 58a28be91b53fd0d83d7c90883f1856a0d0178d7 (diff) | |
Make IfThen available in Fortran
Diffstat (limited to 'Auxiliary')
| -rw-r--r-- | Auxiliary/Cactus/KrancNumericalTools/GenericFD/src/MathematicaCompat.h | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |