From ef25a29506d54469a3d996dd1376001cc7401b81 Mon Sep 17 00:00:00 2001 From: tradke Date: Sun, 9 Dec 2001 23:20:17 +0000 Subject: 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/EinsteinInitialData/IDBrillData/trunk@59 a678b1cf-93e1-4b43-a69d-d43939e66649 --- src/brilldata.F | 2 +- src/setupbrilldata2D.F | 2 +- src/setupbrilldata3D.F | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/brilldata.F b/src/brilldata.F index a91bbf9..255a0d3 100644 --- a/src/brilldata.F +++ b/src/brilldata.F @@ -106,7 +106,7 @@ c Check for errors. c Synchronization and symmetry boundaries. - call CCTK_SyncGroup(cctkGH,"idbrilldata::brillconf") + call CCTK_SyncGroup(ierr,cctkGH,"idbrilldata::brillconf") call CartSymGN(ierr,cctkGH,"idbrilldata::brillconf") c Reconstruct physical metric. diff --git a/src/setupbrilldata2D.F b/src/setupbrilldata2D.F index 9ec5c68..c91086b 100644 --- a/src/setupbrilldata2D.F +++ b/src/setupbrilldata2D.F @@ -130,7 +130,7 @@ c Set coefficient Nsource = 0. c Synchronization and boundaries. - call CCTK_SyncGroup(cctkGH,'idbrilldata::brillelliptic') + call CCTK_SyncGroup(ierr,cctkGH,'idbrilldata::brillelliptic') call CartSymGN(ierr,cctkGH,'idbrilldata::brillelliptic') return diff --git a/src/setupbrilldata3D.F b/src/setupbrilldata3D.F index 6babf69..edeb21a 100644 --- a/src/setupbrilldata3D.F +++ b/src/setupbrilldata3D.F @@ -195,7 +195,7 @@ c Set coefficient Nsource = 0. c Synchronization and boundaries. - call CCTK_SyncGroup(cctkGH,'idbrilldata::brillelliptic') + call CCTK_SyncGroup(ierr,cctkGH,'idbrilldata::brillelliptic') call CartSymGN(ierr,cctkGH,'idbrilldata::brillelliptic') return -- cgit v1.2.3