This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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