diff options
| author | tradke <tradke@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-12-09 23:20:17 +0000 |
|---|---|---|
| committer | tradke <tradke@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2001-12-09 23:20:17 +0000 |
| commit | ef25a29506d54469a3d996dd1376001cc7401b81 (patch) | |
| tree | 5c275f07db505061f3ccaae9adf9c90f4d2a1e15 | |
| parent | 6a10d68c494eea2065ae8f6f8f886cb85bbf5381 (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/EinsteinInitialData/IDBrillData/trunk@59 a678b1cf-93e1-4b43-a69d-d43939e66649
| -rw-r--r-- | src/brilldata.F | 2 | ||||
| -rw-r--r-- | src/setupbrilldata2D.F | 2 | ||||
| -rw-r--r-- | 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 |