1 *CMZ : 23/03/95 14.24.24 by John Apostolakis CERN GP-MIMD 2
2 *-- Author : John Apostolakis CERN GP-MIMD 2 23/03/95
3 #if defined(CERNLIB_PARA)
7 c Any processes making this call will wait, until all processes
8 c have arrived at this point.
10 #include "geant321/mpifinc.inc"
11 #include "geant321/gcunit.inc"
14 c It would make sense when debugging to include the following write:
15 c write (lout,*) ' Entering barrier: if any process cannot reach ',
16 c ' this point the program will hang here '
18 call MPI_barrier( MPI_COMM_WORLD, ierr )
19 if ( ierr .lt. 0 ) then
20 write (lout,*) ' There was error ', ierr, ' in pbarrier '
25 SUBROUTINE PBARRIER_DUMMY