From 9ca83c20f7cae7602264c4e02fc2ae95457c369e Mon Sep 17 00:00:00 2001 From: hawke Date: Mon, 7 Apr 2003 10:52:03 +0000 Subject: 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 --- src/SpaceMask.h | 8 ++++---- 1 file 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 -- cgit v1.2.3