From cf203dc9122f24fa1e391301c1671a199cd73f79 Mon Sep 17 00:00:00 2001
From: allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>
Date: Sun, 2 Jun 2002 22:23:14 +0000
Subject: 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
---
 src/ADMConstraints.F | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

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
                   
-- 
cgit v1.2.3