C	$Id: stop_mp.F,v 1.2 2006/05/12 22:34:55 ce107 Exp $	
      SUBROUTINE STOP_MP

C     Initialise multi-processing
      IMPLICIT NONE

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"

C     == Local variables ==
      INTEGER rc

C     Shutdown multiprocessing here
#ifdef ALLOW_MPI
      CALL MPI_FINALIZE( rc )
#endif

      RETURN
      END