GEANT321/gparal/gpmsgerr.F

   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