C-----THIS IS COMMON/INCLUDE FILE DPCOHK.INC-----
C     THIS IS COMMON FOR HOUSEKEEPING
CCCCC UPDATED--OCTOBER   1993.  DISTINGUISH BETWEEN MAXSTR, MAXNME
CCCCC UPDATED--OCTOBER   1999.  SUPPORT FOR ROW AND VARIABLE LABELS
CCCCC UPDATED--DECEMBER  1999.  SUPPORT FOR GROUP LABELS
CCCCC UPDATED--OCTOBER   2000.  PUT GROUP LABEL VARIABLES IN COMMON
C
C               **************************************
C               **************************************
C               **  DEFINE AND EQUIVALENCE INTEGER  **
C               **  HOUSEKEEPING                    **
C               **  VARIABLES AND ARRAYS            **
C               **************************************
C               **************************************
C
      DIMENSION IARG(MAXSTR)
CCCCC OCTOBER 1993.  USE MAXNME
CCCCC DIMENSION IVSTAR(MAXSTR)
CCCCC DIMENSION IVSTOP(MAXSTR)
CCCCC DIMENSION IN(MAXSTR)
CCCCC DIMENSION IVALUE(MAXSTR)
CCCCC DIMENSION IVALU2(MAXSTR)
      DIMENSION IVSTAR(MAXNME)
      DIMENSION IVSTOP(MAXNME)
      DIMENSION IN(MAXNME)
      DIMENSION IVALUE(MAXNME)
      DIMENSION IVALU2(MAXNME)
C
      COMMON /IHOUSE/I1HOUS(5*MAXNME+MAXSTR+50)
C
      EQUIVALENCE (I1HOUS(1) ,MAXWID)
      EQUIVALENCE (I1HOUS(2) ,IWIDTH)
      EQUIVALENCE (I1HOUS(3) ,MAXWSV)
      EQUIVALENCE (I1HOUS(4) ,IWIDSV)
      EQUIVALENCE (I1HOUS(7) ,MAXARG)
      EQUIVALENCE (I1HOUS(8) ,NUMARG)
      EQUIVALENCE (I1HOUS(9) ,MAXNAM)
      EQUIVALENCE (I1HOUS(10),NUMNAM)
      EQUIVALENCE (I1HOUS(13),IWIDDC)
C
      EQUIVALENCE (I1HOUS(51) ,IARG(1))
      EQUIVALENCE (I1HOUS(MAXSTR+51),IVSTAR(1))
      EQUIVALENCE (I1HOUS(MAXNME+MAXSTR+51),IVSTOP(1))
      EQUIVALENCE (I1HOUS(2*MAXNME+MAXSTR+51),IN(1))
      EQUIVALENCE (I1HOUS(3*MAXNME+MAXSTR+51),IVALUE(1))
      EQUIVALENCE (I1HOUS(4*MAXNME+MAXSTR+51),IVALU2(1))
C
C               ****************************************
C               ****************************************
C               **  DEFINE AND EQUIVALENCE CHARACTER  **
C               **  HOUSEKEEPING                      **
C               **  VARIABLES AND ARRAYS              **
C               ****************************************
C               ****************************************
C
      CHARACTER*4 ICOM
      CHARACTER*4 ICOM2
      CHARACTER*4 ICOMLC
      CHARACTER*4 ICOML2
      CHARACTER*4 IDEFCM
C
      CHARACTER*4 IANS
      CHARACTER*4 IANSV
C
      CHARACTER*4 IHARG
      CHARACTER*4 IHARG2
      CHARACTER*4 IARGT
C
      CHARACTER*4 IHNAME
      CHARACTER*4 IHNAM2
      CHARACTER*4 IUSE
C
      CHARACTER*4 IDEFC
C
      CHARACTER*4 IH1HOU
C
      CHARACTER*4 IANSLC
      CHARACTER*4 IHARLC
      CHARACTER*4 IHARL2
C
      CHARACTER*40 IVARLB
      CHARACTER*24 IROWLB
      CHARACTER*24 IGRPLA(MAXGLA,MAXGRP)
      CHARACTER*8  IGRPVN(MAXGRP)
C
      DIMENSION IANS(MAXSTR)
      DIMENSION IANSV(MAXSTR)
C
      DIMENSION IHARG(MAXSTR)
      DIMENSION IHARG2(MAXSTR)
      DIMENSION IARGT(MAXSTR)
C
      DIMENSION IHNAME(MAXNME)
      DIMENSION IHNAM2(MAXNME)
      DIMENSION IUSE(MAXNME)
C
      DIMENSION IVARLB(MAXNME)
      DIMENSION IROWLB(MAXOBV)
C
      DIMENSION IDEFC(40)
C
      DIMENSION IANSLC(MAXSTR)
      DIMENSION IHARLC(MAXSTR)
      DIMENSION IHARL2(MAXSTR)
C
      COMMON /IHHOUS/IH1HOU(3*MAXNME+8*MAXSTR+120)
C
      EQUIVALENCE (IH1HOU(5) ,ICOM)
      EQUIVALENCE (IH1HOU(6) ,ICOM2)
      EQUIVALENCE (IH1HOU(7) ,ICOMLC)
      EQUIVALENCE (IH1HOU(8) ,ICOML2)
      EQUIVALENCE (IH1HOU(12),IDEFCM)
C
      EQUIVALENCE (IH1HOU(81) ,IANS(1))
      EQUIVALENCE (IH1HOU(MAXSTR+81),IANSV(1))
C
      EQUIVALENCE (IH1HOU(2*MAXSTR+81) ,IHARG(1))
      EQUIVALENCE (IH1HOU(3*MAXSTR+81) ,IHARG2(1))
      EQUIVALENCE (IH1HOU(4*MAXSTR+81) ,IARGT(1))
C
      EQUIVALENCE (IH1HOU(5*MAXSTR+81),IHNAME(1))
      EQUIVALENCE (IH1HOU(MAXNME+5*MAXSTR+81),IHNAM2(1))
      EQUIVALENCE (IH1HOU(2*MAXNME+5*MAXSTR+81),IUSE(1))
      EQUIVALENCE (IH1HOU(3*MAXNME+5*MAXSTR+81),IDEFC(1))
C
      EQUIVALENCE (IH1HOU(3*MAXNME+5*MAXSTR+121),IANSLC(1))
      EQUIVALENCE (IH1HOU(3*MAXNME+6*MAXSTR+121),IHARLC(1))
      EQUIVALENCE (IH1HOU(3*MAXNME+7*MAXSTR+121),IHARL2(1))
C
      COMMON /IHHOU2/IVARLB,IROWLB
      COMMON /IHHOU3/IGRPVN, IGRPLA
C
C               ********************************************************
C               ********************************************************
C               **  DEFINE AND EQUIVALENCE REAL (SINGLE PRECISION FLOATI
C               **  HOUSEKEEPING
C               **  VARIABLES AND ARRAYS
C               ********************************************************
C               ********************************************************
C
      DIMENSION ARG(MAXSTR)
CCCCC DIMENSION VALUE(MAXSTR)
      DIMENSION VALUE(MAXNME)
C
      COMMON /RHOUSE/R1HOUS(MAXSTR+MAXNME)
C
      EQUIVALENCE (R1HOUS(1)  ,ARG(1))
      EQUIVALENCE (R1HOUS(MAXSTR+1),VALUE(1))
C
