!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.2.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:13:44 $]
!   Author       [$Author: frpb $]
!=======================================================================
      INTEGER GR_ID(MAX_GROUP), GR_SZ(MAX_GROUP), GR_LOC(MAX_GROUP),
     $     GR_MEM(MAX_GROUP*MAX_PROC), GR_ILOC, GR_SEQNO, SEQNO
      COMMON /GC__GRSTORE/GR_MEM, GR_ID, GR_SZ, GR_LOC, GR_ILOC,
     $     GR_SEQNO, SEQNO