aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorallen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>1999-09-11 14:54:57 +0000
committerallen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc>1999-09-11 14:54:57 +0000
commitf945f571f73a7fcc5df1a82f185eb0155d2f548c (patch)
treec0b47df4e4bb6475b095962ed1daa1556ad0c6f0 /src
parent415534ba5f23a61a6b19fa86b35624fa9f47dd07 (diff)
Adding error code for boundary routines
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@17 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
-rw-r--r--src/ADMConstraints.F7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F
index 02e13e0..24adbbc 100644
--- a/src/ADMConstraints.F
+++ b/src/ADMConstraints.F
@@ -50,9 +50,12 @@ c@@*/
integer :: i,j,k,i1,i2,j1,j2,k1,k2
-c Stencil width used for calculating constraints (needed for outer boundary condition)
+c Stencil width used for calculating constraints (for outer boundary condition)
integer, dimension(3),parameter :: sw = 1
+c Return code from Cactus boundary conditions
+ integer ierr
+
CCTK_REAL :: dx,dy,dz
CCTK_REAL :: pi,det,uxx,uxy,uxz,uyy,uyz,uzz
@@ -171,7 +174,7 @@ c ----------------------------------
c Synchronize and apply flat boundary conditions
call ApplySymmetry(cctkGH,"admconstraints::admconstraints")
- call ApplyFlatBC(cctkGH,sw,"admconstraints::admconstraints")
+ call ApplyFlatBC(ierr,cctkGH,sw,"admconstraints::admconstraints")
if (constraint_communication.eq.1) then
call CCTK_SyncGroup(cctkGH,"admconstraints::admconstraints")