]>
Commit | Line | Data |
---|---|---|
fe4da5cc | 1 | c----------------------------------------------------------------- |
2 | c Author John Apostolakis, GPMIMD-2, CERN-CN, February 1994 | |
3 | c | |
4 | c gpmsgerr(..) report a error given by MPI (in sending | |
5 | c or receiving a message). | |
6 | c----------------------------------------------------------------- | |
7 | ||
8 | subroutine gpmsgerr( mpi_routine, ierr, srcroutinename ) | |
9 | implicit none | |
10 | character*(*) srcroutinename, mpi_routine | |
11 | integer lunerr, ierr | |
12 | #include "geant321/multiprox.inc" | |
13 | #include "geant321/gcunit.inc" | |
14 | ||
15 | c As stderr is not defined, use Geant's stdout | |
16 | lunerr= lout | |
17 | ||
18 | write(LUNERR,*) 'WARNING: MPI routine ', mpi_routine, | |
19 | & ' returned error code ', ierr , ' on node ', nprank, | |
20 | & ' when called from routine ', srcroutinename | |
21 | ||
22 | RETURN | |
23 | END |