]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 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 |