diff options
| author | tradke <tradke@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2005-02-16 11:16:55 +0000 |
|---|---|---|
| committer | tradke <tradke@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2005-02-16 11:16:55 +0000 |
| commit | 454196db27498e911ad9b98652377a47eac23b63 (patch) | |
| tree | a065e99426423057a13ccbafc4a4b808caf35dd6 | |
| parent | 14ff7488dc3d2014184aa69429c355bab1f294dd (diff) | |
Fix from Scott Hawley: the variable 'check_excision_bitmask' was being used as
if it were a logical variable, when it's actually an INTEGER*4.
This caused compile errors when using the g95 compiler under Mac OS X.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@111 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
| -rw-r--r-- | src/ADMConstraints.F | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 376c067..4abc93e 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -76,7 +76,7 @@ c Macros from Standard Einstein. c -------------------------------------------------------------- - if (check_excision_bitmask) then + if (check_excision_bitmask .ne. 0) then call SpaceMask_GetTypeBits(ex_field, excision_mask_name) call SpaceMask_GetStateBits(ex_type_excised, excision_mask_name, \ excision_type_excised) @@ -132,7 +132,7 @@ c Calculate constraints. if (use_mask .eq. 1) then if (abs(emask(i,j,k)-1) > 0.001) then docalc = .FALSE. - elseif (check_excision_bitmask .and. + elseif (check_excision_bitmask .ne. 0 .and. . SpaceMask_CheckStateBitsF90(space_mask, i, j, k,\ ex_field, ex_type_excised)) then docalc = .FALSE. |