From aaedf899321cd9655dae3f463c5e24fe1e0d3cee Mon Sep 17 00:00:00 2001 From: allen Date: Fri, 30 Jul 1999 15:34:20 +0000 Subject: Bug fix ... don't understand how this every worked in parallel! git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@14 b7a48df3-cbbf-4440-997f-b4b717c9f7fc --- src/ADMConstraints.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/ADMConstraints.F') diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 74c494d..02e13e0 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -97,7 +97,7 @@ c Macros from Standard Einstein do k = k1, k2 do j = j1, j2 - do i = k1, k2 + do i = i1, i2 c Calculate the stress energy tensor at this point c ------------------------------------------------ @@ -174,7 +174,7 @@ c Synchronize and apply flat boundary conditions call ApplyFlatBC(cctkGH,sw,"admconstraints::admconstraints") if (constraint_communication.eq.1) then - call CCTK_SyncGroup(cctkGH,"adm::ADM_constraints") + call CCTK_SyncGroup(cctkGH,"admconstraints::admconstraints") end if end subroutine ADMConstraints -- cgit v1.2.3