GEANT321/gparal/pbarrier.F

   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)
   4       subroutine pbarrier
   5       implicit none
   6 c
   7 c     Any processes making this call will wait, until all processes
   8 c     have arrived at this point.
   9 c
  10 #include "geant321/mpifinc.inc"
  11 #include "geant321/gcunit.inc"
  12       integer ierr
  13
  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 '
  17 c
  18       call MPI_barrier( MPI_COMM_WORLD, ierr )
  19       if ( ierr .lt. 0 ) then
  20           write (lout,*)  ' There was error ', ierr, ' in pbarrier '
  21       endif
  22       return
  23       end
  24 #endif