1 *CMZ : 23/08/94 15.10.00 by John Apostolakis
2 *-- Author : John Apostolakis CERN/GP-MIMD2 23/08/94
3 #if defined(CERNLIB_PARA)
6 c This routine cleans up all the parallel environment on which
7 c parallel Geant is layered. No parallel Geant routines should
8 c be called after calling gplast.
9 c To ensure that compatibility with all current MPI implementations
10 c we ask that no code is executed after calling gplast.
11 c To implement this choice we call 'STOP' at the end !!
16 #include "geant321/multiprox.inc"
17 * +SEQ, IOUNIT. to get LUNOUT/LUNERR --- the keep is defined in geanf
19 call MPI_finalize( ierror )
20 if (ierror .ne. 0) then
21 write(*,*) ' gplast: Error in MPI_finalize on node ', nprank
22 * write(LUNERR,*) ' gplast: Error in MPI_finalize on node ', nprank
25 write(*,*) ' Calling STOP in MPI_finalize on node ', nprank
29 SUBROUTINE GPLAST_DUMMY