diff options
author | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-07-30 15:34:20 +0000 |
---|---|---|
committer | allen <allen@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 1999-07-30 15:34:20 +0000 |
commit | aaedf899321cd9655dae3f463c5e24fe1e0d3cee (patch) | |
tree | 42c390a9cd13c7609914953e06133ea2ad6a755a /src | |
parent | 025aa71bd85ab3ed70df96382fb0507590b2bf38 (diff) |
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
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 4 |
1 files changed, 2 insertions, 2 deletions
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 |