C-----THIS IS COMMON/INCLUDE FILE DPCODA.INC-----
C     THIS IS COMMON FOR DATA
C
C     UPDATED--AUGUST     1992. ADD DSIZE, DSYMB, DCOLOR, DFILL (ALAN)
C     UPDATED--JANUARY    1998. ADD MAXROM, MAXCOM
C
C     NOTE--THE PARAMETER SETTINGS FOR
C           MAXOBV, MAXOBW, AND MAXPOP
C           ARE DONE IN FILE DPCOPA.INC
C
C               **************************************
C               **************************************
C               **  DEFINE AND EQUIVALENCE INTEGER  **
C               **  DATA                            **
C               **  VARIABLES AND ARRAYS            **
C               **************************************
C               **************************************
C
      DIMENSION ISUB(MAXOBV)
C
      COMMON /IDATA/I1DATA(100)
C
      EQUIVALENCE (I1DATA(1) ,IDEMXN)
      EQUIVALENCE (I1DATA(2) ,IDEMXC)
C
      EQUIVALENCE (I1DATA(11),MAXNK)
      EQUIVALENCE (I1DATA(12),NK)
      EQUIVALENCE (I1DATA(13),MAXCOL)
      EQUIVALENCE (I1DATA(14),NUMCOL)
      EQUIVALENCE (I1DATA(15),MAXN)
      EQUIVALENCE (I1DATA(16),N)
      EQUIVALENCE (I1DATA(17),MAXCHF)
      EQUIVALENCE (I1DATA(18),NUMCHF)
      EQUIVALENCE (I1DATA(19),MAXFUN)
      EQUIVALENCE (I1DATA(20),NUMFUN)
      EQUIVALENCE (I1DATA(21),MAXCHM)
      EQUIVALENCE (I1DATA(22),NUMCHM)
      EQUIVALENCE (I1DATA(23),NUMCON)
      EQUIVALENCE (I1DATA(24),MAXCON)
      EQUIVALENCE (I1DATA(25),MAXROM)
      EQUIVALENCE (I1DATA(26),MAXCOM)
C
      COMMON /ISUCBL/ISUB
C
C               ****************************************
C               ****************************************
C               **  DEFINE AND EQUIVALENCE CHARACTER  **
C               **  DATA                              **
C               **  VARIABLES AND ARRAYS              **
C               ****************************************
C               ****************************************
C
      CHARACTER*4 IPARNC
      CHARACTER*4 IPANC2
      CHARACTER*4 IPAROP
      CHARACTER*4 MODEL
      CHARACTER*4 IFUNC
      CHARACTER*4 IFUNC2
      CHARACTER*4 IFUNC3
C
      CHARACTER*4 IH1DAT
C
      DIMENSION IPARNC(MAXFN2)
      DIMENSION IPANC2(MAXFN2)
      DIMENSION IPAROP(MAXFN2)
      DIMENSION MODEL(MAXF3)
      DIMENSION IFUNC(MAXF1)
      DIMENSION IFUNC2(MAXF1)
      DIMENSION IFUNC3(MAXF1)
C
      COMMON/IP1CBL/ IPARNC
      COMMON/IP2CBL/ IPANC2
      COMMON/IP3CBL/ IPAROP
      COMMON/MODCBL/ MODEL
      COMMON/IF1CBL/ IFUNC
      COMMON/IF2CBL/ IFUNC2
      COMMON/IF3CBL/ IFUNC3
      COMMON/IH1CBL/ IH1DAT
C
C               ********************************************************
C               ********************************************************
C               **  DEFINE AND EQUIVALENCE REAL (SINGLE PRECISION FLOATI
C               **  DATA
C               **  VARIABLES AND ARRAYS
C               ********************************************************
C               ********************************************************
C
      DIMENSION PARLIM(100)
CCCCC DIMENSION PARLIM(100,2)
C
      DIMENSION PRED(MAXOBV)
      DIMENSION RES(MAXOBV)
C
      DIMENSION Y(MAXPOP)
      DIMENSION X(MAXPOP)
      DIMENSION X3D(MAXPOP)
      DIMENSION D(MAXPOP)
CCCCC FOLLOWING 4 LINES ADDED AUGUST 1992 FOR SYMBOL PLOT, VECTOR PLOT
      DIMENSION DSIZE(MAXPOP)
      DIMENSION DSYMB(MAXPOP)
      DIMENSION DCOLOR(MAXPOP)
      DIMENSION DFILL(MAXPOP)
C
      DIMENSION YPLOT(MAXPOP)
      DIMENSION XPLOT(MAXPOP)
      DIMENSION X2PLOT(MAXPOP)
      DIMENSION TAGPLO(MAXPOP)
C
      DIMENSION V(MAXOBW)
C
      DIMENSION AMATR1(100,100)
C
C     -----
C
      COMMON /PARCBL/PARLIM
C
      COMMON /PRECBL/PRED
      COMMON /RESCBL/RES
C
      COMMON /YCBL/Y
      COMMON /XCBL/X
      COMMON /X3DCBL/X3D
C
CCCCC ADD AND ADJUST THE FOLLOWING 5 LINES   AUGUST 1992 (ALAN)
      COMMON /DCBL1/D
      COMMON /DCBL2/DSIZE
      COMMON /DCBL3/DSYMB
      COMMON /DCBL4/DCOLOR
      COMMON /DCBL5/DFILL
C
      COMMON /YPLCBL/YPLOT
      COMMON /XPLCBL/XPLOT
      COMMON /X2PCBL/X2PLOT
      COMMON /TAGCBL/TAGPLO
C
      COMMON /VCBL/V
C
      COMMON /AM1CBL/AMATR1
C