1 *CMZ : 23/08/95 15.00.00 by John Apostolakis
2 *-- Author : John Apostolakis CERN/GP-MIMD2 22/07/94
4 #if defined(CERNLIB_PARA)
6 c This makes a "best attempt" to abort all parallel Geant tasks.
7 c It should be used if a fatal error is detected in a task that
8 c cannot be recovered, or will cause irreperable damage later.
12 #include "geant321/mpifinc.inc"
13 #include "geant321/multiprox.inc"
14 #include "geant321/gcunit.inc"
16 $' gpabort: calling MPI_abort to terminate program from node ',
20 call MPI_abort( MPI_COMM_WORLD, ierror )
21 if (ierror .ne. 0) then
23 $ ' ERROR in gpabort: MPI_abort failed to terminate on node ',
24 $ nprank, ' error code: ', ierror, ' STOPPING this node.'