pugh_Barrier() now really does a global synchronization.

Was an empty function before.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@119 b61c5cb5-eaca-4651-9a7a-d64986f99364

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Comm.c b/src/Comm.c
index 525fdaf..179c99c 100644
--- a/src/Comm.c
+++ b/src/Comm.c
@@ -639,6 +639,13 @@ int pugh_DisableGroupComm(cGH *GH, const char *groupname)
 
 int pugh_Barrier(cGH *GH)
 {
+#ifdef MPI
+  pGH *pughGH;
+
+  pughGH = (pGH *) GH->extensions [CCTK_GHExtensionHandle ("PUGH")];
+  CACTUS_MPI_ERROR (MPI_Barrier (pughGH->PUGH_COMM_WORLD));
+#endif
+
   return 0;
 }