diff options
-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 |