Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / 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 #else
29       SUBROUTINE GPLAST_DUMMY
30       END
31 #endif