diff options
author | hawke <hawke@a491c6a4-70bf-4b89-8b36-d6c0cb1f094e> | 2003-04-07 10:52:03 +0000 |
---|---|---|
committer | hawke <hawke@a491c6a4-70bf-4b89-8b36-d6c0cb1f094e> | 2003-04-07 10:52:03 +0000 |
commit | 9ca83c20f7cae7602264c4e02fc2ae95457c369e (patch) | |
tree | dd5c58a9ecb95e00155040d8c86009870b3694f9 | |
parent | c476443ffe5ada5e7af7c7b3d9271e5622f0f6e5 (diff) |
Remove whitespace from Fortran macros to avoid problems with perl CPP.
Add extra braces around arguments just in case.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/SpaceMask/trunk@27 a491c6a4-70bf-4b89-8b36-d6c0cb1f094e
-rw-r--r-- | src/SpaceMask.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/SpaceMask.h b/src/SpaceMask.h index b98cb30..3ea839d 100644 --- a/src/SpaceMask.h +++ b/src/SpaceMask.h @@ -86,8 +86,8 @@ extern SpaceMask_Registry* spacemask_Registry; @@*/ #ifdef FCODE -#define SpaceMask_SetStateBitsF90(mask, i, j, k, type_bits, state_bits) \ - mask(i,j,k) = ior(iand(mask(i,j,k), not(type_bits)), state_bits) +#define SpaceMask_SetStateBitsF90(mask,i,j,k,type_bits,state_bits) \ + mask((i),(j),(k))=ior(iand(mask((i),(j),(k)),not((type_bits))),(state_bits)) #endif #ifdef CCODE @@ -106,8 +106,8 @@ extern SpaceMask_Registry* spacemask_Registry; @@*/ #ifdef FCODE -#define SpaceMask_CheckStateBitsF90(mask, i, j, k, type_bits, state_bits) \ - (iand(mask(i,j,k), type_bits) .eq. state_bits) +#define SpaceMask_CheckStateBitsF90(mask,i,j,k,type_bits,state_bits) \ + (iand(mask((i),(j),(k)),(type_bits)).eq.(state_bits)) #endif #ifdef CCODE |