!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.3.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:13:43 $]
!   Author       [$Author: frpb $]
!=======================================================================
      INTEGER COLBUF(0:MAX_PROC-1), I, NCOL
      INTEGER PAD_C1(GC__STREAM_PAD),PAD_C2(GC__STREAM_PAD)
      COMMON /GCG__SPLIT/ PAD_C1, COLBUF, PAD_C2