diff options
author | tradke <tradke@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2001-12-09 23:20:12 +0000 |
---|---|---|
committer | tradke <tradke@b7a48df3-cbbf-4440-997f-b4b717c9f7fc> | 2001-12-09 23:20:12 +0000 |
commit | bac3a1ffb994bc61c85a1122b6fe86c8c13ec398 (patch) | |
tree | 795422f0a52faefd425b64bf640eba7a3c4ed511 /src | |
parent | c3b57a963f4125e0e53c4b76eaeca586ccad4b12 (diff) |
Fixed calls to CCTK_SyncGroup() which also takes an 'ierror' argument now.
You will also need to update the flesh now.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMConstraints/trunk@52 b7a48df3-cbbf-4440-997f-b4b717c9f7fc
Diffstat (limited to 'src')
-rw-r--r-- | src/ADMConstraints.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index 1bcbe5f..2157094 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -44,7 +44,7 @@ c (for outer boundary condition) integer, dimension(3),parameter :: sw = 1 -c Return code from Cactus boundary conditions. +c Return code from Cactus sync routine and boundary conditions. integer ierr @@ -233,8 +233,8 @@ c Apply flat boundary conditions at outer boundaries. c Synchronize. if (constraint_communication.eq.1) then - call CCTK_SyncGroup(cctkGH,"admconstraints::hamiltonian") - call CCTK_SyncGroup(cctkGH,"admconstraints::momentum") + call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::hamiltonian") + call CCTK_SyncGroup(ierr,cctkGH,"admconstraints::momentum") end if c Cartoon. |