GEANT321/gparal/gplast.F

   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)
   4       subroutine gplast
   5 c
   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 !!
  12 c
  13       implicit none
  14       integer  ierror
  15
  16 #include "geant321/multiprox.inc"
  17 * +SEQ, IOUNIT.    to get LUNOUT/LUNERR --- the keep is defined in geanf
  18
  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
  23       endif
  24
  25       write(*,*) ' Calling STOP in MPI_finalize on node ', nprank
  26       stop
  27       end
  28 #endif