diff options
| author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-12-09 23:20:14 +0000 |
|---|---|---|
| committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-12-09 23:20:14 +0000 |
| commit | d29c6c5b8c401c0ec15fb3310be5fd9dbe0836c8 (patch) | |
| tree | 3071e8cdc2d70099cc6e54509abf71f44cb64d5b | |
| parent | 5137da7593389f06d6d811c186a3510acc8a8b90 (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/AHFinder/trunk@264 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder_exp.F | 4 | ||||
| -rw-r--r-- | src/AHFinder_gau.F | 2 | ||||
| -rw-r--r-- | src/AHFinder_mask.F | 2 | ||||
| -rw-r--r-- | src/AHFinder_shift.F | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/src/AHFinder_exp.F b/src/AHFinder_exp.F index 6cc9543..ac251d1 100644 --- a/src/AHFinder_exp.F +++ b/src/AHFinder_exp.F @@ -356,8 +356,8 @@ ! Synchronize. - call CCTK_SyncGroup(cctkGH,"ahfinder::ahfgradient") - call CCTK_SyncGroup(cctkGH,"ahfinder::ahfinderexp") + call CCTK_SyncGroup(ierr,cctkGH,"ahfinder::ahfgradient") + call CCTK_SyncGroup(ierr,cctkGH,"ahfinder::ahfinderexp") call CartSymGN(ierr,cctkGH,"ahfinder::ahfgradient") call CartSymGN(ierr,cctkGH,"ahfinder::ahfinderexp") diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 6ecc2f6..bdd3119 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -479,7 +479,7 @@ ! Synchronize. - call CCTK_SyncGroup(cctkGH,"ahfinder::ahfinder_gauss") + call CCTK_SyncGroup(ierror,cctkGH,"ahfinder::ahfinder_gauss") ! ************************************* diff --git a/src/AHFinder_mask.F b/src/AHFinder_mask.F index 6be6677..a7cb626 100644 --- a/src/AHFinder_mask.F +++ b/src/AHFinder_mask.F @@ -222,7 +222,7 @@ ! *** APPLY SYMMETRY BOUNDARIES AND SYNCHRONIZE *** ! ***************************************************** - call CCTK_SyncGroup(cctkGH,"ahfinder::ahfmask") + call CCTK_SyncGroup(ierr,cctkGH,"ahfinder::ahfmask") call CartSymGN(ierr,cctkGH,"ahfinder::ahfmask") ! If desired, copy ahf_mask to einstein mask (emask). diff --git a/src/AHFinder_shift.F b/src/AHFinder_shift.F index 5d0064b..5d5fc70 100644 --- a/src/AHFinder_shift.F +++ b/src/AHFinder_shift.F @@ -349,7 +349,7 @@ ! ******************************************** call CartSymGN(ierr,cctkGH,"einstein::shift") - call CCTK_SyncGroup(cctkGH,"einstein::shift") + call CCTK_SyncGroup(ierr,cctkGH,"einstein::shift") ! *************** |