From ac0441559f03fa142c708a7ccac8024817de9781 Mon Sep 17 00:00:00 2001
From: tradke <tradke@b61c5cb5-eaca-4651-9a7a-d64986f99364>
Date: Thu, 6 Dec 2007 10:46:32 +0000
Subject: Use MPI_COMM_WORLD as communicator if a NULL pointer was passed for
 the cGH argument into PUGH's overloadable for CCTK_Barrier(). This allows
 CCTK_Barrier() to be called even before a grid hierarchy exists (eg. during
 PARAM_CHECK).

git-svn-id: http://svn.cactuscode.org/arrangements/CactusPUGH/PUGH/trunk@488 b61c5cb5-eaca-4651-9a7a-d64986f99364
---
 src/Comm.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Comm.c')

diff --git a/src/Comm.c b/src/Comm.c
index fdcde7c..68e8fa7 100644
--- a/src/Comm.c
+++ b/src/Comm.c
@@ -510,7 +510,8 @@ int PUGH_DisableGArrayGroupComm(pGH *pughGH, int first_var, pComm *groupcomm)
 int PUGH_Barrier(const cGH *GH)
 {
 #ifdef CCTK_MPI
-  CACTUS_MPI_ERROR (MPI_Barrier (PUGH_pGH (GH)->PUGH_COMM_WORLD));
+  CACTUS_MPI_ERROR (MPI_Barrier (GH ? PUGH_pGH (GH)->PUGH_COMM_WORLD :
+                                      MPI_COMM_WORLD));
 #else
   GH = GH;
 #endif
-- 
cgit v1.2.3