C-----THIS IS COMMON/INCLUDE FILE DPCOZI.INC-----
C     THIS COMMON PROVIDES INTEGER ARRAY
C     DIMENSION REDUCTION VIA SCRATCH SPACE.
C
C     UPDATED--AUGUST      1990.  MOVE IIGAR0 SETTING TO DPCOPA.INC
C     UPDATED--MARCH       2001.  UP AMOUNT OF AVAILABLE INTEGER
C                                 STORAGE (TO ACCOMODATE BAG PLOT)
C
C     SEE THE COMMENTS FOR THE DPCOZZ INCLUDE FILE FOR MORE DETAILS
C     ON THE USE OF SCRATCH STORAGE.
C
CCCCC THE FOLLOWING 2 LINES WERE COMMENTED OUT    AUGUST 1990
CCCCC AND MOVED TO DPCOPA.INC     AUGUST 1990
CCCCC PARAMETER (IIGAR0=2*MAXPOP)
CCCCC PARAMETER (IIGAR0=17*MAXOBV)
C
      PARAMETER (IIGAR1=1)
      PARAMETER (IIGAR2=1*MAXOBV+1)
      PARAMETER (IIGAR3=2*MAXOBV+1)
      PARAMETER (IIGAR4=3*MAXOBV+1)
      PARAMETER (IIGAR5=4*MAXOBV+1)
      PARAMETER (IIGAR6=5*MAXOBV+1)
      PARAMETER (IIGAR7=6*MAXOBV+1)
      PARAMETER (IIGAR8=7*MAXOBV+1)
      PARAMETER (IIGAR9=8*MAXOBV+1)
      PARAMETER (IIGR10=9*MAXOBV+1)
      PARAMETER (IIGR11=10*MAXOBV+1)
      PARAMETER (IIGR12=11*MAXOBV+1)
      PARAMETER (IIGR13=12*MAXOBV+1)
      PARAMETER (IIGR14=13*MAXOBV+1)
      PARAMETER (IIGR15=14*MAXOBV+1)
      PARAMETER (IIGR16=15*MAXOBV+1)
      PARAMETER (IIGR17=16*MAXOBV+1)
      PARAMETER (IIGAG1=1)
      PARAMETER (IIGAG2=1*MAXPOP+1)
      COMMON/IGARB/IGARBG(IIGAR0)
C