diff options
| author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-06-02 22:23:14 +0000 |
|---|---|---|
| committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2002-06-02 22:23:14 +0000 |
| commit | cf203dc9122f24fa1e391301c1671a199cd73f79 (patch) | |
| tree | e993a364aeb135d9e6ac7603b05a1f44e36b6595 /src | |
| parent | d9d0dfb31bfd95f930b0437505c22e17f1d9802d (diff) | |
SGI compiler pointed out that logicals aren't 1 and 0 but .TRUE. and .FALSE.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@76 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
| -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 41e9224..313c16d 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -111,11 +111,11 @@ c Calculate constraints. do j=2,ny-1 do i=2,nx-1 - docalc = 1 + docalc = .TRUE. if (use_mask .eq. 1) then if (emask(i,j,k) .ne. 1) then - docalc = 0 + docalc = .FALSE. end if end if |