From b47a8491c9277108bb8262a146c5ee3758dd813c Mon Sep 17 00:00:00 2001
From: allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>
Date: Wed, 27 Oct 1999 12:54:28 +0000
Subject: Fixed logical

Cactus/161


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@26 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
---
 src/ADMConstraints.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F
index a40a3cb..7f74c2e 100644
--- a/src/ADMConstraints.F
+++ b/src/ADMConstraints.F
@@ -175,7 +175,7 @@ c     Synchronize and apply flat boundary conditions
 
       call CartSymBCGroup(ierr,cctkGH,"admconstraints::admconstraints")
 
-      if (CCTK_Equals(bound,"flat")) then
+      if (CCTK_Equals(bound,"flat") == 1) then
          call FlatBCGroup(ierr,cctkGH,sw,"admconstraints::admconstraints")
       end if
 
-- 
cgit v1.2.3