diff options
-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 |