C-----THIS IS COMMON/INCLUDE FILE DPCOZ2.INC-----
C     THIS COMMON PROVIDES SINGLE PRECISION ARRAY
C     DIMENSION REDUCTION VIA SCRATCH SPACE.
C
C     UPDATED--AUGUST      1990.  MOVE IG2RB0 SETTING TO DPCOPA.INC
C
C     SEE THE COMMENTS FOR THE DPCOZZ INCLUDE FILE FOR MORE DETAILS ON THE USE
C     OF SCRATCH STORAGE.
C
CCCCC THE FOLLOWING 3 LINES WERE COMMENTED OUT    AUGUST 1990
CCCCC AND MOVED TO DPCOPA.INC     AUGUST 1990
CCCCC PARAMETER (IG2RB0=13*MAXPOP)
CCCCC PARAMETER (IG2RB0=MAXCMF*MAXOBV)
CCCCC PARAMETER (IG2RB0=35*MAXOBV)
C
      PARAMETER (IGAR11=0*MAXOBV+1)
      PARAMETER (IGAR12=1*MAXOBV+1)
      PARAMETER (IGAR13=2*MAXOBV+1)
      PARAMETER (IGAR14=3*MAXOBV+1)
      PARAMETER (IGAR15=4*MAXOBV+1)
      PARAMETER (IGAR16=5*MAXOBV+1)
      PARAMETER (IGAR17=6*MAXOBV+1)
      PARAMETER (IGAR18=7*MAXOBV+1)
      PARAMETER (IGAR19=8*MAXOBV+1)
      PARAMETER (IGAR20=9*MAXOBV+1)
      PARAMETER (IGAR21=10*MAXOBV+1)
      PARAMETER (IGAR22=11*MAXOBV+1)
      PARAMETER (IGAR23=12*MAXOBV+1)
      PARAMETER (IGAR24=13*MAXOBV+1)
      PARAMETER (IGAR25=14*MAXOBV+1)
      PARAMETER (IGAR26=15*MAXOBV+1)
      PARAMETER (IGAR27=16*MAXOBV+1)
      PARAMETER (IGAR28=17*MAXOBV+1)
      PARAMETER (IGAR29=18*MAXOBV+1)
      PARAMETER (IGAR30=19*MAXOBV+1)
      PARAMETER (IGAR31=20*MAXOBV+1)
      PARAMETER (IGAR32=21*MAXOBV+1)
      PARAMETER (IGAR33=22*MAXOBV+1)
      PARAMETER (IGAR34=23*MAXOBV+1)
      PARAMETER (IGAR35=24*MAXOBV+1)
      PARAMETER (IGAR36=25*MAXOBV+1)
      PARAMETER (IGAR37=26*MAXOBV+1)
      PARAMETER (IGAR38=27*MAXOBV+1)
      PARAMETER (IGAR39=28*MAXOBV+1)
      PARAMETER (IGAR40=29*MAXOBV+1)
      PARAMETER (IGAR41=30*MAXOBV+1)
      PARAMETER (IGAR42=31*MAXOBV+1)
      PARAMETER (IGAR43=32*MAXOBV+1)
      PARAMETER (IGAR44=33*MAXOBV+1)
      PARAMETER (IGAR45=34*MAXOBV+1)
      PARAMETER (IGAR46=35*MAXOBV+1)
      PARAMETER (IGAR47=36*MAXOBV+1)
      PARAMETER (IGAR48=37*MAXOBV+1)
      PARAMETER (IGAR49=38*MAXOBV+1)
      PARAMETER (IGAR50=39*MAXOBV+1)
      PARAMETER (IGAR51=40*MAXOBV+1)
      PARAMETER (IGAR52=41*MAXOBV+1)
      PARAMETER (IGAR53=42*MAXOBV+1)
      PARAMETER (IGAR54=43*MAXOBV+1)
      PARAMETER (IGAR55=44*MAXOBV+1)
      PARAMETER (IGAR56=45*MAXOBV+1)
C
      PARAMETER (IGARG6=0*MAXPOP+1)
      PARAMETER (IGARG7=1*MAXPOP+1)
      PARAMETER (IGARG8=2*MAXPOP+1)
      PARAMETER (IGARG9=3*MAXPOP+1)
      PARAMETER (IGRG10=4*MAXPOP+1)
      PARAMETER (IGRG11=5*MAXPOP+1)
      PARAMETER (IGRG12=6*MAXPOP+1)
      PARAMETER (IGRG13=7*MAXPOP+1)
      PARAMETER (IGRG14=8*MAXPOP+1)
      PARAMETER (IGRG15=9*MAXPOP+1)
      PARAMETER (IGRG16=10*MAXPOP+1)
      PARAMETER (IGRG17=11*MAXPOP+1)
      PARAMETER (IGRG18=12*MAXPOP+1)
C
      REAL G2RBAG
      COMMON/RGARB2/G2RBAG(IG2RB0)
C