!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.2.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:13:46 $]
!   Author       [$Author: frpb $]
!=======================================================================

! *****************************COPYRIGHT*******************************
! (c) CROWN COPYRIGHT 2001, Met Office, All Rights Reserved.           
! Please refer to Copyright file in top level GCOM directory
!                 for further details
! *****************************COPYRIGHT*******************************

#include "gc_prolog.h"


      SUBROUTINE GC_EXIT()
!     ******************************************************************
!     * Purpose:
!     *
!     *  Controlled cleanup of the parallel system.
!     *
!     * Input:
!     *
!     * Output:
!     *
!     * NOTES:
!     *  This is a dummy routine for SHMEM
!     *  
!     ******************************************************************
      IMPLICIT NONE

#if defined(MPI_SRC)
      INTEGER INFO

      CALL MPI_FINALIZE(INFO)
#endif

      RETURN
      END