!=======================================================================
! RCS Header:
!   Revision     [$Revision: 1.3.2.1 $]     Named [$Name: release#2_9_b5 $]
!   Last checkin [$Date: 2001/12/06 10:13:45 $]
!   Author       [$Author: frpb $]
!=======================================================================
      INTEGER LDLEN
      INTEGER LST(2), GLST(2,0:MAX_PROC-1)
      REAL GARR(MAX_ROTATE), HARR(MAX_ROTATE)
      INTEGER PAD_I1(GC__STREAM_PAD),PAD_R1(GC__STREAM_PAD),
     &        PAD_L1(GC__STREAM_PAD)
      INTEGER PAD_I2(GC__STREAM_PAD),PAD_R2(GC__STREAM_PAD)
      COMMON/GCG__ROTATE/ PAD_I1, LST, PAD_I2, GLST,   ! ROTI
     &                    PAD_R1, GARR, PAD_R2, HARR,  ! ROTR
     &                    PAD_L1, LDLEN                ! ROTL