C-----THIS IS COMMON/INCLUDE FILE DPCOSU.INC-----
C     THIS IS COMMON FOR SUPPORT
C
C     UPDATED--APRIL      1989.  CONTINUATION CHARACTERS (ALAN)
C     UPDATED--JULY       1992.  ICOMFL RENAMED ICOMSW
C     UPDATED--AUGUST     1992.  ADDED PARAMETERS FOR VECTOR PLOT (ALAN)
C     UPDATED--NOVEMBER   1992.  ADDED PARAMETER FOR ANDREWS PLOT (ALAN)
C     UPDATED--MAY        1993.  ADD MINMAX
C     UPDATED--JULY       1993.  FRACTAL ITERATIONS, FRACTAL TYPE,
C                                PRINCIPLE COMPONENT TYPE
C     UPDATED--JANUARY    1994.  REMOVE MINMAX TO DPCOS2.INC
C     UPDATED--JUNE       1994.  ADD OPTIMIZATION TOLERANCE
C     UPDATED--FEBRUARY   1995.  ADD OPTIMIZATION METHOD (2 PARAMETERS)
C     UPDATED--JULY       1995.  SWITCH FOR FIT ADDITIVE CONSTANT
C     UPDATED--AUGUST     1997.  9 RECIPE SWITCHES
C     UPDATED--APRIL      1998.  ADDITIONAL RECIPE SWITCH
C     UPDATED--APRIL      2001.  ADD OPTIONS FOR ORTHOGONAL DISTANCE (ODR)
C                                FIT:
C                                IODRE1(20)=<ON/OFF/VARIABLE NAME>
C                                IODRE2(20)=<ON/OFF/VARIABLE NAME>
C                                IODRD1(20)=<ON/OFF/VARIABLE NAME>
C                                IODRD2(20)=<ON/OFF/VARIABLE NAME>
C                                IODRD3(20)=<VARIABLE NAME>
C                                IODRD4(20)=<VARIABLE NAME>
C                                IWEIN1(20)=<VARIABLE NAME>
C                                IWEIN2(20)=<VARIABLE NAME>
C     UPDATED--APRIL      2001.  SUPPORT FOR 20 WEIGHT VARIABLES (FOR ODR)
C     UPDATED--JULY       2001.  SUPPORT FOR KERNEL DENSITY ESTIMATES
C     UPDATED--JUNE       2002.  ICAPTY (CAPTURE TYPE: TEXT/HTML/GRAP/
C                                LATEK)
C     UPDATED--AUGUST     2002.  IATXSW (AUTOTEXT <ON/OFF>)
C     UPDATED--FEBRUARY   2003.  NUMRCM (MAXIMUM RECORD LENGTH <VALUE>)
C     UPDATED--JANUARY    2004.  IFCOLL, IFCOLU (ARRAYS FOR COLUMN LIMITS)
C     UPDATED--SEPTEMBER  2005.  IMACSC (MACRO SUBSTITUTION CHARACTER) 
C     UPDATED--SEPTEMBER  2005.  IMACAR (STRINGS TO HOLD MACRO ARGUMENTS)
C     UPDATED--SEPTEMBER  2005.  NMACAG (NUMBER OF ARGUMENTS TO MACRO)
C     UPDATED--JANUARY    2006.  ICAPSC (CAPTURE SCREEN ON/OFF)
C
C               **************************************
C               **************************************
C               **  DEFINE AND EQUIVALENCE INTEGER  **
C               **  SUPPORT                         **
C               **  VARIABLES AND ARRAYS            **
C               **************************************
C               **************************************
C
      DIMENSION ICLOCK(10)
      DIMENSION IFCOLL(50)
      DIMENSION IFCOLU(50)
C
      COMMON /ISUPP/I1SUPP(160)
C
      EQUIVALENCE (I1SUPP(1),IDEFBA)
      EQUIVALENCE (I1SUPP(2),IDEFDG)
      EQUIVALENCE (I1SUPP(3),IDEFC1)
      EQUIVALENCE (I1SUPP(4),IDEFC2)
      EQUIVALENCE (I1SUPP(5),IDEFNI)
      EQUIVALENCE (I1SUPP(6),IDEFR1)
      EQUIVALENCE (I1SUPP(7),IDEFR2)
      EQUIVALENCE (I1SUPP(8),IDEFSK)
CCCCC FOLLOWING 3 LINES SEPTEMBER 1997
      EQUIVALENCE (I1SUPP(9),IDEFR7)
      EQUIVALENCE (I1SUPP(10),IDEFR8)
      EQUIVALENCE (I1SUPP(11),IDEFR9)
CCCCC THE FOLLOWING LINE WAS ADDED     JULY 2001
      EQUIVALENCE (I1SUPP(12),IDEFKN)
CCCCC THE FOLLOWING LINE WAS ADDED     FEBRUARY 2003
      EQUIVALENCE (I1SUPP(13),IDEFRL)
C
      EQUIVALENCE (I1SUPP(21),IBAUD)
      EQUIVALENCE (I1SUPP(22),IDEG)
      EQUIVALENCE (I1SUPP(23),IFCOL1)
      EQUIVALENCE (I1SUPP(24),IFCOL2)
      EQUIVALENCE (I1SUPP(25),IFITIT)
      EQUIVALENCE (I1SUPP(26),IFROW1)
      EQUIVALENCE (I1SUPP(27),IFROW2)
      EQUIVALENCE (I1SUPP(28),ISKIP)
CCCCC FOLLOWING 3 LINES SEPTEMBER 1997
      EQUIVALENCE (I1SUPP(29),IRECR1)
      EQUIVALENCE (I1SUPP(30),IRECR2)
      EQUIVALENCE (I1SUPP(31),IRECC1)
C
CCCCC THE FOLLOWING LINE WAS ADDED     MAY 1993
CCCCC THE FOLLOWING LINE WAS COMMENTED OUT   JANUARY 1994
CCCCC EQUIVALENCE (I1SUPP(31),MINMAX)
CCCCC THE FOLLOWING LINE WAS ADDED     JULY 1993
      EQUIVALENCE (I1SUPP(32),IFRAIT)
      EQUIVALENCE (I1SUPP(33),NMACAG)
C
      EQUIVALENCE (I1SUPP(41),ICLOCK(1))
CCCCC THE FOLLOWING LINE WAS ADDED     JULY 2001
      EQUIVALENCE (I1SUPP(51),IKDENP)
CCCCC THE FOLLOWING LINE WAS ADDED     FEBRUARY 2003
      EQUIVALENCE (I1SUPP(52),NUMRCM)
      EQUIVALENCE (I1SUPP(61),IFCOLL)
      EQUIVALENCE (I1SUPP(111),IFCOLU)
C
C               ****************************************
C               ****************************************
C               **  DEFINE AND EQUIVALENCE CHARACTER  **
C               **  SUPPORT                           **
C               **  VARIABLES AND ARRAYS              **
C               ****************************************
C               ****************************************
C
      CHARACTER*4 IDEFHO
      CHARACTER*4 IDEANU
      CHARACTER*4 IDEFK1
      CHARACTER*4 IDEFK2
      CHARACTER*4 IDEFPR
      CHARACTER*4 IDEFTC
      CHARACTER*4 IDEFW1
      CHARACTER*4 IDEFW2
CCCCC FOLLOWING LINE ADDED JULY 2001
      CHARACTER*4 IDEFKF
C
      CHARACTER*4 IANGLU
      CHARACTER*4 IECHO
      CHARACTER*4 IHARDE
      CHARACTER*4 IKNOTS
      CHARACTER*4 IKNOT1
      CHARACTER*4 IKNOT2
      CHARACTER*4 IPREC
      CHARACTER*4 IPREER
      CHARACTER*4 IPRIN2
      CHARACTER*4 ITERCH
      CHARACTER*4 ISUBMS
      CHARACTER*4 IWEIGH
      CHARACTER*4 IWEIG1
      CHARACTER*4 IWEIG2
      CHARACTER*4 IHMXPR
      CHARACTER*4 IFEED2
CCCCC FOLLOWING 4 LINES ADDED FEBRUARY 1995.
      CHARACTER*4 IOPTME
      CHARACTER*4 IOPTHE
      CHARACTER*4 IDEFOM
      CHARACTER*4 IDEFHS
CCCCC THE FOLLOWING LINE (RECIPE SATTERWAITE APPROXIMATION) AUGUST 1997
      CHARACTER*4 IDEFSA
CCCCC THE FOLLOWING LINE (RECIPE OUTPUT) AUGUST 1997
      CHARACTER*8 IDEFTN
C
CCCCC THE FOLLOWING LINE (FIT ADDITIVE CONSTANT)     JULY 1995
CCCCC WAS ADDED                                      JULY 1995
      CHARACTER*4 IFITAC
C
CCCCC THE FOLLOWING 2 LINES (RECIPE SATTERWAITE APPROXIMATION) AUGUST 1997
      CHARACTER*4 IRECSA
      CHARACTER*8 IRECTN
CCCCC THE FOLLOWING LINE JULY 2001
      CHARACTER*4 IKDETY
CCCCC THE FOLLOWING LINE JUNE 2002
      CHARACTER*4 ICAPTY
CCCCC THE FOLLOWING LINE AUGUST 2002
      CHARACTER*4 IATXSW
CCCCC THE FOLLOWING LINE JANUARY 2006
      CHARACTER*4 ICAPSC
C
CCCCC THE FOLLOWING 4 LINES (ORTHOGONAL DISTANCE FIT OPTIONS) APRIL 2001
      CHARACTER*4 IODRE1
      CHARACTER*4 IODRE2
      CHARACTER*4 IODRD1
      CHARACTER*4 IODRD2
      CHARACTER*4 IODRD3
      CHARACTER*4 IODRD4
      CHARACTER*4 IWEIN1
      CHARACTER*4 IWEIN2
      CHARACTER*4 IHOST
C
      CHARACTER*4 IH1SUP
C
      DIMENSION IDEFHO(10)
      DIMENSION IHOST(10)
      DIMENSION IODRD1(20)
      DIMENSION IODRD2(20)
      DIMENSION IODRD3(20)
      DIMENSION IODRD4(20)
      DIMENSION IODRE1(20)
      DIMENSION IODRE2(20)
      DIMENSION IWEIN1(20)
      DIMENSION IWEIN2(20)
C
CCCCC APRIL 2001: UP SIZE FROM 70 TO 110
      COMMON /IHSUPP/IH1SUP(250)
C
      EQUIVALENCE (IH1SUP(1) ,IDEFHO(1))
      EQUIVALENCE (IH1SUP(11),IDEANU)
      EQUIVALENCE (IH1SUP(12),IDEFK1)
      EQUIVALENCE (IH1SUP(13),IDEFK2)
      EQUIVALENCE (IH1SUP(14),IDEFPR)
      EQUIVALENCE (IH1SUP(15),IDEFTC)
      EQUIVALENCE (IH1SUP(16),IDEFW1)
      EQUIVALENCE (IH1SUP(17),IDEFW2)
CCCCC FEBRUARY 1995.  ADD FOLLOWING LINE
      EQUIVALENCE (IH1SUP(18),IDEFOM)
      EQUIVALENCE (IH1SUP(19),IDEFHS)
CCCCC AUGUST 1997.  ADD FOLLOWING LINE
      EQUIVALENCE (IH1SUP(20),IDEFSA)
      EQUIVALENCE (IH1SUP(21),IDEFTN)
CCCCC JULY 2001.  ADD FOLLOWING LINE
      EQUIVALENCE (IH1SUP(22),IDEFKF)
C
      EQUIVALENCE (IH1SUP(31),IANGLU)
      EQUIVALENCE (IH1SUP(32),IECHO)
      EQUIVALENCE (IH1SUP(33),IHARDE)
      EQUIVALENCE (IH1SUP(34),IKNOTS)
      EQUIVALENCE (IH1SUP(35),IKNOT1)
      EQUIVALENCE (IH1SUP(36),IKNOT2)
      EQUIVALENCE (IH1SUP(37),IPREC)
      EQUIVALENCE (IH1SUP(38),IPREER)
      EQUIVALENCE (IH1SUP(39),IPRIN2)
      EQUIVALENCE (IH1SUP(40),ITERCH)
      EQUIVALENCE (IH1SUP(41),ISUBMS)
      EQUIVALENCE (IH1SUP(42),IWEIGH)
      EQUIVALENCE (IH1SUP(43),IWEIG1)
      EQUIVALENCE (IH1SUP(44),IWEIG2)
      EQUIVALENCE (IH1SUP(45),IHMXPR)
      EQUIVALENCE (IH1SUP(46),IFEED2)
CCCCC FOLLOWING 2 LINES ADDED FEBRUARY 1995.
      EQUIVALENCE (IH1SUP(47),IOPTME)
      EQUIVALENCE (IH1SUP(48),IOPTHE)
      EQUIVALENCE (IH1SUP(49),IFITAC)
CCCCC FOLLOWING 2 LINES ADDED AUGUST 1997.
      EQUIVALENCE (IH1SUP(50),IRECSA)
      EQUIVALENCE (IH1SUP(51),IRECTN)
CCCCC FOLLOWING LINE ADDED JULY 2001.
      EQUIVALENCE (IH1SUP(56),IKDETY)
CCCCC FOLLOWING LINE ADDED JUNE 2002.
      EQUIVALENCE (IH1SUP(57),ICAPTY)
      EQUIVALENCE (IH1SUP(58),IATXSW)
      EQUIVALENCE (IH1SUP(59),ICAPSC)
C
      EQUIVALENCE (IH1SUP(61) ,IHOST(1))
CCCCC FOLLOWING BLOCK ADDED APRIL 2001
      EQUIVALENCE (IH1SUP(71) ,IODRD1(1))
      EQUIVALENCE (IH1SUP(91) ,IODRD2(1))
      EQUIVALENCE (IH1SUP(111) ,IODRD3(1))
      EQUIVALENCE (IH1SUP(131) ,IODRD4(1))
      EQUIVALENCE (IH1SUP(151) ,IODRE1(1))
      EQUIVALENCE (IH1SUP(171) ,IODRE2(1))
      EQUIVALENCE (IH1SUP(191) ,IWEIN1(1))
      EQUIVALENCE (IH1SUP(211) ,IWEIN2(1))
C
CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN   APRIL 1989
CCCCC FOR THE (LINE) CONTINUATION CHARACTERS. APRIL 1989
CCCCC ADD MACRO SUBSTITUTION CHARACTER        SEPTEMBER 2005
C
      CHARACTER*4 ICONCH
      CHARACTER*4 IDEFCC
      CHARACTER*4 IMACSC
      CHARACTER*4 IDEFMS
      COMMON/IHSUP2/ICONCH,IDEFCC,IMACSC,IDEFMS
CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN   MAY   1990
CCCCC FOR THE COMMENT CHARACTER AND COMMENT CHECK FLAG.  MAY, 1990.
C
      CHARACTER*4 ICOMCH
      CHARACTER*4 IDEFCZ
      CHARACTER*4 ICOMSW
      COMMON/IHSUP3/ICOMCH,IDEFCZ,ICOMSW
CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN   AUGUST 1992.
CCCCC FOR THE VECTOR FORMAT, VECTOR ARROW COMMAND
C
      CHARACTER*4 IVCFMT
      CHARACTER*4 IVCARR
      CHARACTER*4 IVCOPN
      CHARACTER*4 IDEFVF
      CHARACTER*4 IDEFVA
      CHARACTER*4 IDEFVO
CCCCC JULY 1993.  FOLLOWING LINES ADDED BY ALAN
CCCCC FOR FRACTAL TYPE AND PRINCIPLE COMPONENT TYPE.
      CHARACTER*4 IFRATY
      CHARACTER*4 IPCMTY
      CHARACTER*4 IDEFFT
      CHARACTER*4 IDEFPT
C
      COMMON/IHSUP4/IVCFMT,IDEFVF,IVCARR,IDEFVA,IVCOPN,IDEFVO,
     1              IFRATY,IDEFFT,IPCMTY,IDEFPT
C
      CHARACTER*40 IMACAR(10)
      COMMON/IHSUP5/IMACAR
C
C               ********************************************************
C               ********************************************************
C               **  DEFINE AND EQUIVALENCE REAL (SINGLE PRECISION FLOATI
C               **  SUPPORT
C               **  VARIABLES AND ARRAYS
C               ********************************************************
C               ********************************************************
C
      DIMENSION CLLIMI(4)
      DIMENSION CLWIDT(2)
C
      COMMON /RSUPP/R1SUPP(60)
C
      EQUIVALENCE (R1SUPP(1) ,DEFANG)
      EQUIVALENCE (R1SUPP(2) ,DEFFSD)
      EQUIVALENCE (R1SUPP(3) ,DEFFPW)
      EQUIVALENCE (R1SUPP(4) ,DEFERD)
      EQUIVALENCE (R1SUPP(5) ,DEFDMF)
      EQUIVALENCE (R1SUPP(6) ,DEFHAD)
      EQUIVALENCE (R1SUPP(7) ,DEFCSZ)
      EQUIVALENCE (R1SUPP(8) ,DEFFW)
      EQUIVALENCE (R1SUPP(9) ,DEFRAC)
CCCCC FOLLOWING LINE ADDED NOVEMBER 1992
      EQUIVALENCE (R1SUPP(10), DEFAIN)
CCCCC FOLLOWING LINE ADDED JUNE 19941992
      EQUIVALENCE (R1SUPP(11) ,DEFOAC)
CCCCC FOLLOWING 4 LINES ADDED AUGUST 1997
      EQUIVALENCE (R1SUPP(12) ,DEFRPC)
      EQUIVALENCE (R1SUPP(13) ,DEFRCO)
      EQUIVALENCE (R1SUPP(14) ,DEFRDG)
      EQUIVALENCE (R1SUPP(15) ,DEFRFA)
CCCCC FOLLOWING LINE ADDED APRIL 1998
      EQUIVALENCE (R1SUPP(16) ,DEFRFF)
CCCCC FOLLOWING LINE ADDED JULY 2001
      EQUIVALENCE (R1SUPP(17) ,DEFKWI)
C
      EQUIVALENCE (R1SUPP(21),ANGLE)
      EQUIVALENCE (R1SUPP(22),DEMOFR)
      EQUIVALENCE (R1SUPP(23),ERASDE)
      EQUIVALENCE (R1SUPP(24),FITSD)
      EQUIVALENCE (R1SUPP(25),FITPOW)
      EQUIVALENCE (R1SUPP(26),HARDDE)
      EQUIVALENCE (R1SUPP(27),ACURSZ)
      EQUIVALENCE (R1SUPP(28),FILWID)
      EQUIVALENCE (R1SUPP(29),ROOTAC)
CCCCC FOLLOWING LINE ADDED NOVEMBER 1992
      EQUIVALENCE (R1SUPP(30),ANDINC)
CCCCC FOLLOWING LINE ADDED JUNE 1994
      EQUIVALENCE (R1SUPP(31),OPTACC)
CCCCC FOLLOWING 4 LINES ADDED AUGUST 1997
      EQUIVALENCE (R1SUPP(32),RECIPC)
      EQUIVALENCE (R1SUPP(33),RECICO)
      EQUIVALENCE (R1SUPP(34),RECIDG)
      EQUIVALENCE (R1SUPP(35),RECIFA)
CCCCC FOLLOWING LINE ADDED APRIL 1998
      EQUIVALENCE (R1SUPP(36),RECIFF)
CCCCC FOLLOWING LINE ADDED APRIL 2001
      EQUIVALENCE (R1SUPP(37),PODRDV)
C
      EQUIVALENCE (R1SUPP(41) ,CLLIMI(1))
 
      EQUIVALENCE (R1SUPP(51) ,CLWIDT(1))
CCCCC FOLLOWING LINE ADDED JULY 2001
      EQUIVALENCE (R1SUPP(56) ,PKDEWI)
