C-----THIS IS COMMON/INCLUDE FILE DPCOZD.INC-----
C     THIS COMMON PROVIDES DOUBLE PRECISION ARRAY
C     DIMENSION REDUCTION VIA SCRATCH SPACE.
C
C     UPDATED--AUGUST      1990.  MOVE IDGAR0 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 2 LINES WERE COMMENTED OUT    AUGUST 1990
CCCCC AND MOVED TO DPCOPA.INC     AUGUST 1990
CCCCC PARAMETER (IDGAR0=2*MAXPOP)
CCCCC PARAMETER (IDGAR0=3*MAXOBV)
C
      PARAMETER (IDGAR1=1)
      PARAMETER (IDGAR2=1*MAXOBV+1)
      PARAMETER (IDGAR3=2*MAXOBV+1)
      PARAMETER (IDGAR4=3*MAXOBV+1)
      PARAMETER (IDGAR5=4*MAXOBV+1)
      PARAMETER (IDGAR6=5*MAXOBV+1)
      PARAMETER (IDGAR7=6*MAXOBV+1)
      PARAMETER (IDGAR8=7*MAXOBV+1)
      PARAMETER (IDGAR9=8*MAXOBV+1)
      PARAMETER (IDGAR10=9*MAXOBV+1)
      PARAMETER (IDGAG1=1)
      PARAMETER (IDGAG2=1*MAXPOP+1)
      DOUBLE PRECISION DGARBG
      COMMON/DGARB/DGARBG(IDGAR0)
C