!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.2.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:13:56 $]
!   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_SSYNC (NPROC, ISTAT)                  
!     ******************************************************************
!     * Purpose:
!     *  
!     *  Synchronize the processors. Only on if SHM_SRC.
!     *
!     * Input:
!     *  NPROC   - number of nodes 
!     *
!     * Output:
!     *  ISTAT   - Return status, GC_OK if success.
!     *
!     * NOTES:       
!     * 
!     ******************************************************************

      IMPLICIT NONE
      INTEGER NPROC, ISTAT


#if defined(SHM_SRC)
      CALL BARRIER()
#endif

      ISTAT = GC__OK
      
      RETURN
      END