diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-10-27 12:54:28 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-10-27 12:54:28 +0000 |
commit | b47a8491c9277108bb8262a146c5ee3758dd813c (patch) | |
tree | 5a7f1ea50842fec23f20a48a713537fffedb9ce3 /src | |
parent | 19b102850583f79f8c7aa9676c3c6ea79359ad65 (diff) |
Fixed logical
Cactus/161
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@26 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 2 |
1 files changed, 1 insertions, 1 deletions
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 |