C-----THIS IS COMMON/INCLUDE FILE DPCOPC.INC-----
C     THIS IS COMMON FOR PLOT CONTROL
C
C     NOTE--THE PARAMETER SETTINGS FOR 20 TO 30
C           VARIABLES ARE DONE IN FILE DPCOPA.INC
C
C     NOTE--A SUBSET OF THIS INCLUDE FILE
C           (NAMELY, RWIND) IS USED IN
C           SUBROUTINES GRWRTH AND GRWRTV.
C           IF RWIND IS CHANGED, THEN
C           THESE 2 SUBROUTINES ALSO NEED
C           TO BE CHANGED.
C
C     UPDATED--SEPTEMBER 1988 (REMOVED 3D SETTINGS AND ADDED Z-AXIS ATTRIB.)
C     UPDATED--APRIL     1989 (ADDED ANIMATION SWITCH)
C     UPDATED--MAY       1990 (ADDED TIC OFFSET VARIABLES) (ALAN)
C     UPDATED--SEPTEMBER 1990 (ADDED PDEFDS TO FIX BUG IN DPLADS, DPTIDS)
C     UPDATED--AUGUST    1992 (ADDED BOX SHADOW HEIGHT AND WIDTH)
C     UPDATED--AUGUST    1992 (MODIFIED NAME OF BOX ARRAY)
C     UPDATED--OCTOBER   1993 (ADDED REGION BASE INTERPOLATE)
C     UPDATED--MARCH     1994 (ADDED REGION BASE POLYGON)
C     UPDATED--DECEMBER  1994 (ALLOW EXACT CHARACTER MAPPING)
C     UPDATED--JULY      1996 (ADDED DEVICE FONT ARRAY)
C     UPDATED--NOVEMBER  1997 (ADDED FX1MNZ, ETC.)
C     UPDATED--FEBRUARY  1998 (ADDED ILINPO, ICHAPO)
C     UPDATED--SEPTEMBER 1998 (ADDED AMPSCH, AMPSCW, IMPSW2)
C     UPDATED--OCTOBER   1999 (ADDED LABEL JUSTIFICATION, COOR, ANGLE)
C     UPDATED--OCTOBER   1999 (ADDED SUBREGION SWITCH ON/OFF)
C     UPDATED--OCTOBER   1999 (ADDED SUBREGION LIMITS)
C     UPDATED--OCTOBER   1999 (ADDED SUBREGION TYPE <BOX/POLYGON>)
C     UPDATED--DECEMBER  1999 (ADDED LEGEND UNITS <DATA/SCREEN>)
C     UPDATED--SEPTEMBER 2006 (RENAME ICHAR COMMON BLOCK TO AVOID
C                             CONFLICT WITH FORTRAN INTRINSIC
C                             FUNCTION)
C
      CHARACTER*4 IDMANU
      CHARACTER*4 IDMODE
      CHARACTER*4 IDMOD2
      CHARACTER*4 IDMOD3
      CHARACTER*4 IDPOWE
      CHARACTER*4 IDCONT
      CHARACTER*4 IDCOLO
      CHARACTER*4 IDSCRE
      CHARACTER*4 IDSCRO
      CHARACTER*4 IDPAER
      CHARACTER*4 IDSEGM
      CHARACTER*4 IDSOFT
      CHARACTER*4 IDSOF2
      CHARACTER*4 IDSOF3
CCCCC ADD FOLLOWING LINE JULY 1996.
      CHARACTER*4 IDFONT
C
      CHARACTER*4 IERASW
      CHARACTER*4 IBELSW
      CHARACTER*4 ISORSW
      CHARACTER*4 ICOPSW
      CHARACTER*4 IPENSW
      CHARACTER*4 IBACCO
      CHARACTER*4 IMARCO
CCCCC THE FOLLOWING ANIMATION SWITCH LINE WAS ADDED APRIL 1989
      CHARACTER*4 IANISW
      CHARACTER*4 IDEFXC
      CHARACTER*4 IDEFBK
      CHARACTER*4 IDEFMC
      CHARACTER*4 IDEPEC
      CHARACTER*4 ISEQSW
C
      CHARACTER*4 IGRASW
      CHARACTER*4 IDIASW
C
      CHARACTER*4 IX1MIN
      CHARACTER*4 IX1MAX
      CHARACTER*4 IY1MIN
      CHARACTER*4 IY1MAX
      CHARACTER*4 IZ1MIN
      CHARACTER*4 IZ1MAX
      CHARACTER*4 IX2MIN
      CHARACTER*4 IX2MAX
      CHARACTER*4 IY2MIN
      CHARACTER*4 IY2MAX
      CHARACTER*4 IZ2MIN
      CHARACTER*4 IZ2MAX
C
      CHARACTER*4 IX1FSW
      CHARACTER*4 IX2FSW
      CHARACTER*4 IY1FSW
      CHARACTER*4 IY2FSW
      CHARACTER*4 IZ1FSW
      CHARACTER*4 IZ2FSW
C
      CHARACTER*4 IX1FPA
      CHARACTER*4 IX2FPA
      CHARACTER*4 IY1FPA
      CHARACTER*4 IY2FPA
      CHARACTER*4 IZ1FPA
      CHARACTER*4 IZ2FPA
C
      CHARACTER*4 IX1FCO
      CHARACTER*4 IX2FCO
      CHARACTER*4 IY1FCO
      CHARACTER*4 IY2FCO
      CHARACTER*4 IZ1FCO
      CHARACTER*4 IZ2FCO
C
      CHARACTER*4 IX1TSW
      CHARACTER*4 IX2TSW
      CHARACTER*4 IY1TSW
      CHARACTER*4 IY2TSW
      CHARACTER*4 IZ1TSW
      CHARACTER*4 IZ2TSW
C
      CHARACTER*4 IX1JSW
      CHARACTER*4 IX2JSW
      CHARACTER*4 IY1JSW
      CHARACTER*4 IY2JSW
      CHARACTER*4 IZ1JSW
      CHARACTER*4 IZ2JSW
C
      CHARACTER*4 IX1NSW
      CHARACTER*4 IX2NSW
      CHARACTER*4 IY1NSW
      CHARACTER*4 IY2NSW
      CHARACTER*4 IZ1NSW
      CHARACTER*4 IZ2NSW
C
      CHARACTER*4 IX1TSC
      CHARACTER*4 IX2TSC
      CHARACTER*4 IY1TSC
      CHARACTER*4 IY2TSC
      CHARACTER*4 IZ1TSC
      CHARACTER*4 IZ2TSC
C
      CHARACTER*4 IX1TJU
      CHARACTER*4 IX2TJU
      CHARACTER*4 IY1TJU
      CHARACTER*4 IY2TJU
      CHARACTER*4 IZ1TJU
      CHARACTER*4 IZ2TJU
C
      CHARACTER*4 IX1TCO
      CHARACTER*4 IX2TCO
      CHARACTER*4 IY1TCO
      CHARACTER*4 IY2TCO
      CHARACTER*4 IZ1TCO
      CHARACTER*4 IZ2TCO
C
      CHARACTER*4 IX1ZSW
      CHARACTER*4 IX2ZSW
      CHARACTER*4 IY1ZSW
      CHARACTER*4 IY2ZSW
      CHARACTER*4 IZ1ZSW
      CHARACTER*4 IZ2ZSW
C
      CHARACTER*130 IX1ZCN
      CHARACTER*130 IX2ZCN
      CHARACTER*130 IY1ZCN
      CHARACTER*130 IY2ZCN
      CHARACTER*130 IZ1ZCN
      CHARACTER*130 IZ2ZCN
C
      CHARACTER*4 IX1ZFM
      CHARACTER*4 IX2ZFM
      CHARACTER*4 IY1ZFM
      CHARACTER*4 IY2ZFM
      CHARACTER*4 IZ1ZFM
      CHARACTER*4 IZ2ZFM
C
      CHARACTER*4 IX1ZFO
      CHARACTER*4 IX2ZFO
      CHARACTER*4 IY1ZFO
      CHARACTER*4 IY2ZFO
      CHARACTER*4 IZ1ZFO
      CHARACTER*4 IZ2ZFO
C
      CHARACTER*4 IX1ZCA
      CHARACTER*4 IX2ZCA
      CHARACTER*4 IY1ZCA
      CHARACTER*4 IY2ZCA
      CHARACTER*4 IZ1ZCA
      CHARACTER*4 IZ2ZCA
C
      CHARACTER*4 IX1ZJU
      CHARACTER*4 IX2ZJU
      CHARACTER*4 IY1ZJU
      CHARACTER*4 IY2ZJU
      CHARACTER*4 IZ1ZJU
      CHARACTER*4 IZ2ZJU
C
      CHARACTER*4 IX1ZDI
      CHARACTER*4 IX2ZDI
      CHARACTER*4 IY1ZDI
      CHARACTER*4 IY2ZDI
      CHARACTER*4 IZ1ZDI
      CHARACTER*4 IZ2ZDI
C
      CHARACTER*4 IX1ZFI
      CHARACTER*4 IX2ZFI
      CHARACTER*4 IY1ZFI
      CHARACTER*4 IY2ZFI
      CHARACTER*4 IZ1ZFI
      CHARACTER*4 IZ2ZFI
C
      CHARACTER*4 IX1ZCO
      CHARACTER*4 IX2ZCO
      CHARACTER*4 IY1ZCO
      CHARACTER*4 IY2ZCO
      CHARACTER*4 IZ1ZCO
      CHARACTER*4 IZ2ZCO
C
      CHARACTER*4 IVGRSW
      CHARACTER*4 IHGRSW
      CHARACTER*4 IVGRPA
      CHARACTER*4 IHGRPA
      CHARACTER*4 IVGRCO
      CHARACTER*4 IHGRCO
C
      CHARACTER*4 ITITTE
      CHARACTER*4 ITITFO
      CHARACTER*4 ITITCA
      CHARACTER*4 ITITFI
      CHARACTER*4 ITITCO
C
      CHARACTER*4 IX1LTE
      CHARACTER*4 IX2LTE
      CHARACTER*4 IX3LTE
      CHARACTER*4 IY1LTE
      CHARACTER*4 IY2LTE
      CHARACTER*4 IZ1LTE
      CHARACTER*4 IZ2LTE
C
      CHARACTER*4 IX1LFO
      CHARACTER*4 IX2LFO
      CHARACTER*4 IX3LFO
      CHARACTER*4 IY1LFO
      CHARACTER*4 IY2LFO
      CHARACTER*4 IZ1LFO
      CHARACTER*4 IZ2LFO
C
      CHARACTER*4 IX1LCA
      CHARACTER*4 IX2LCA
      CHARACTER*4 IX3LCA
      CHARACTER*4 IY1LCA
      CHARACTER*4 IY2LCA
      CHARACTER*4 IZ1LCA
      CHARACTER*4 IZ2LCA
C
      CHARACTER*4 IX1LFI
      CHARACTER*4 IX2LFI
      CHARACTER*4 IX3LFI
      CHARACTER*4 IY1LFI
      CHARACTER*4 IY2LFI
      CHARACTER*4 IZ1LFI
      CHARACTER*4 IZ2LFI
C
      CHARACTER*4 IX1LCO
      CHARACTER*4 IX2LCO
      CHARACTER*4 IX3LCO
      CHARACTER*4 IY1LCO
      CHARACTER*4 IY2LCO
      CHARACTER*4 IZ1LCO
      CHARACTER*4 IZ2LCO
C
      CHARACTER*4 IX1LJU
      CHARACTER*4 IX2LJU
      CHARACTER*4 IX3LJU
      CHARACTER*4 IY1LJU
      CHARACTER*4 IY2LJU
      CHARACTER*4 IZ1LJU
      CHARACTER*4 IZ2LJU
C
      CHARACTER*4 IX1LDI
      CHARACTER*4 IX2LDI
      CHARACTER*4 IX3LDI
      CHARACTER*4 IY1LDI
      CHARACTER*4 IY2LDI
      CHARACTER*4 IZ1LDI
      CHARACTER*4 IZ2LDI
C
      CHARACTER*4 ILEGTE
      CHARACTER*4 ILEGFO
      CHARACTER*4 ILEGCA
      CHARACTER*4 ILEGJU
      CHARACTER*4 ILEGDI
      CHARACTER*4 ILEGFI
      CHARACTER*4 ILEGCO
      CHARACTER*4 ILEGNA
      CHARACTER*4 ILEGUN
C
      CHARACTER*4 IBOBFI
      CHARACTER*4 IBOBCO
      CHARACTER*4 IBOPPA
CCCCC AUGUST 1992.  MODIFIED NAME OF FOLLOWING ARRAY
CCCCC CHARACTER*4 IBOPCO
      CHARACTER*4 IBOBPA
      CHARACTER*4 IBOFPA
      CHARACTER*4 IBOFCO
C
      CHARACTER*4 IARRPA
      CHARACTER*4 IARRCO
      CHARACTER*4 IARHFI
C
      CHARACTER*4 ISEGPA
      CHARACTER*4 ISEGCO
C
      CHARACTER*4 ILINPA
CCCCC ADD FOLLOWING LINE FEBRUARY 1998.
      CHARACTER*4 ILINPO
      CHARACTER*4 ILINCO
C
      CHARACTER*4 ICHAPA
CCCCC ADD FOLLOWING LINE FEBRUARY 1998.
      CHARACTER*4 ICHAPO
      CHARACTER*4 ICHAFO
      CHARACTER*4 ICHACA
      CHARACTER*4 ICHAJU
      CHARACTER*4 ICHADI
      CHARACTER*4 ICHAFI
      CHARACTER*4 ICHACO
CCCCC THE FOLLOWING LINE WAS ADDED     DECEMBER 1994
      CHARACTER*4 ICHMAP
C
      CHARACTER*4 ITEXTE
      CHARACTER*4 ITEXPA
      CHARACTER*4 ITEXFO
      CHARACTER*4 ITEXCA
      CHARACTER*4 ITEXJU
      CHARACTER*4 ITEXDI
      CHARACTER*4 ITEXAU
      CHARACTER*4 ITEXFI
      CHARACTER*4 ITEXCO
C
      CHARACTER*4 IDEFPA
      CHARACTER*4 IDEFFO
      CHARACTER*4 IDEFCA
      CHARACTER*4 IDEFJU
      CHARACTER*4 IDEFDI
      CHARACTER*4 IDEFAU
      CHARACTER*4 IDEFFI
      CHARACTER*4 IDEFCO
CCCCC THE FOLLOWING LINE WAS ADDED     JULY 1996
      CHARACTER*4 IDEFFN
CCCCC THE FOLLOWING LINE WAS ADDED     DECEMBER 1994
CCCCC IDCMAP = DEFAULT CHARACTER MAPPING
      CHARACTER*4 IDCMAP
CCCCC THE FOLLOWING LINE WAS ADDED     DECEMBER 1999
      CHARACTER*4 IDEFUZ
C
      CHARACTER*4 ITEXCR
      CHARACTER*4 ITEXLF
C
      CHARACTER*4 IDEFCR
      CHARACTER*4 IDEFLF
C
      CHARACTER*4 ITEXSY
      CHARACTER*4 ITEXSP
C
      CHARACTER*4 IDEFSY
      CHARACTER*4 IDEFSP
C
      CHARACTER*4 INEGSW
C
      CHARACTER*4 IHORSW
C
      CHARACTER*4 IFENSW
C
CCCCC THE FOLLOWING 3 VARIABLES WERE MOVE TO DPCO3D.INC (FEBRUARY 1989)
CCCCC CHARACTER*4 IVISSW
CCCCC CHARACTER*4 IPEDSW
CCCCC CHARACTER*4 IPEDCO
C
      CHARACTER*4 IDEFMA
      CHARACTER*4 IDEFMO
      CHARACTER*4 IDEFM2
      CHARACTER*4 IDEFM3
C
      CHARACTER*4 IDEFPO
      CHARACTER*4 IDEFCN
      CHARACTER*4 IDEFDC
C  FOLLOWING 2 LINES ADDED MAY, 1990 (ALAN)
      CHARACTER*4 IDEFTU
      CHARACTER*4 ITICUN
C
      CHARACTER*4 IFILSW
      CHARACTER*4 IFILPA
      CHARACTER*4 IFILCO
      CHARACTER*4 IDEFFS
      CHARACTER*4 IDEFFP
      CHARACTER*4 IDEFFC
C
      CHARACTER*4 IPATSW
      CHARACTER*4 IPATPA
      CHARACTER*4 IPATLI
      CHARACTER*4 IPATCO
      CHARACTER*4 IDEFPS
      CHARACTER*4 IDEFPP
      CHARACTER*4 IDEFPL
      CHARACTER*4 IDEFPC
C
      CHARACTER*4 ISPISW
      CHARACTER*4 ISPILI
      CHARACTER*4 ISPICO
      CHARACTER*4 ISPIDI
      CHARACTER*4 IDEFSS
      CHARACTER*4 IDEFSL
      CHARACTER*4 IDEFSC
      CHARACTER*4 IDEFSD
C
      CHARACTER*4 IBARSW
      CHARACTER*4 IBABLI
      CHARACTER*4 IBABCO
      CHARACTER*4 IBAFSW
      CHARACTER*4 IBAFCO
      CHARACTER*4 IBAPTY
      CHARACTER*4 IBAPLI
      CHARACTER*4 IBAPCO
      CHARACTER*4 IBARTY
      CHARACTER*4 IBARDI
      CHARACTER*4 IDEBSW
      CHARACTER*4 IDEBBL
      CHARACTER*4 IDEBBC
      CHARACTER*4 IDEBFS
      CHARACTER*4 IDEBFC
      CHARACTER*4 IDEBPT
      CHARACTER*4 IDEBPL
      CHARACTER*4 IDEBPC
      CHARACTER*4 IDEBTY
      CHARACTER*4 IDEBDI
C
      CHARACTER*4 IREGSW
      CHARACTER*4 IREBLI
      CHARACTER*4 IREBCO
      CHARACTER*4 IREFSW
      CHARACTER*4 IREFCO
      CHARACTER*4 IREPTY
      CHARACTER*4 IREPLI
      CHARACTER*4 IREPCO
CCCCC OCTOBER 1993.
      CHARACTER*4 IREBIN
CCCCC MARCH 1994.
      CHARACTER*4 IREBPL
CCCCC SEPTEMBER 1998.
      CHARACTER*4 IMPSW2
      CHARACTER*4 IDERSW
      CHARACTER*4 IDERBL
      CHARACTER*4 IDERBC
      CHARACTER*4 IDERFS
      CHARACTER*4 IDERFC
      CHARACTER*4 IDERPT
      CHARACTER*4 IDERPL
      CHARACTER*4 IDERPC
C
      CHARACTER*4 IMARSW
      CHARACTER*4 IMABLI
      CHARACTER*4 IMABCO
      CHARACTER*4 IMAFSW
      CHARACTER*4 IMAFCO
      CHARACTER*4 IMAPTY
      CHARACTER*4 IMAPLI
      CHARACTER*4 IMAPCO
      CHARACTER*4 IDEMSW
      CHARACTER*4 IDEMBL
      CHARACTER*4 IDEMBC
      CHARACTER*4 IDEMFS
      CHARACTER*4 IDEMFC
      CHARACTER*4 IDEMPT
      CHARACTER*4 IDEMPL
      CHARACTER*4 IDEMPC
C
      CHARACTER*4 ITEXSW
      CHARACTER*4 ITEBLI
      CHARACTER*4 ITEBCO
      CHARACTER*4 ITEFSW
      CHARACTER*4 ITEFCO
      CHARACTER*4 ITEPTY
      CHARACTER*4 ITEPLI
      CHARACTER*4 ITEPCO
      CHARACTER*4 IDETSW
      CHARACTER*4 IDETBL
      CHARACTER*4 IDETBC
      CHARACTER*4 IDETFS
      CHARACTER*4 IDETFC
      CHARACTER*4 IDETPT
      CHARACTER*4 IDETPL
      CHARACTER*4 IDETPC
C
      CHARACTER*4 IDETLF
C
      CHARACTER*4 ISUBSW
      CHARACTER*4 ISUBTY
      CHARACTER*4 IDEFSB
C
CCCCC JULY 1995.  ADD IDFONT TO COMMON BLOCK
      COMMON /CENVIR/
     1IDMANU(MAXDV),
     1IDMODE(MAXDV),
     1IDMOD2(MAXDV),
     1IDMOD3(MAXDV),
     1IDPOWE(MAXDV),
     1IDCONT(MAXDV),
     1IDCOLO(MAXDV),
     1IDSCRE(MAXDV),
     1IDSCRO(MAXDV),
     1IDPAER(MAXDV),
     1IDSEGM(MAXDV),
     1IDSOFT(MAXDV),
     1IDSOF2(MAXDV),
     1IDSOF3(MAXDV),
     1IDFONT(MAXDV)
C
      COMMON /IENVIR/
     1IDCODE(MAXDV),
     1IDUNIT(MAXDV),
     1IDNHPP(MAXDV),
     1IDNVPP(MAXDV),
     1IDBAUD(MAXDV),
     1NUMDEV,MAXDEV
C
C  MAY,1988.  ADD OFFSET VARIABLE.  REQUIRED BY DICOMED, ALSO
C  WILL BE USED TO SIMULATE "PORTRAIT" AND "LANDSCAPE" ON SOME
C  DEVICES.
      COMMON /IENVI2/IDNVOF(MAXDV),IDNHOF(MAXDV)
C
CCCCC A LINE IN THE FOLLOWING COMMON DECLARATION  (FEBURARY 1989)
CCCCC WAS COMMENTED OUT AND MOVED TO DPCO3D.INC   (FEBRUARY 1989)
CCCCC THE ANIMATION SWITCH (IANISW) WAS ADDED     (APRIL 1989)
      COMMON /CMISC/
     1IERASW,IBELSW,ISORSW,ICOPSW,
     1IPENSW,
     1IBACCO,IMARCO,IANISW,
     1IDEFXC,IDEFBK,IDEFMC,IDEPEC,
     1ISEQSW,
     1IFENSW,
     1INEGSW,
CCCCC1IVISSW,IPEDSW,IPEDCO,
     1IDEFMA,IDEFMO,IDEFM2,IDEFM3,
     1IDEFPO,IDEFCN,IDEFDC,
     1IDEFTU
CCCCC ABOVE LINE ADDED MAY, 1990 (DEFAULT TIC OFFSET UNITS)
C
      COMMON/CMISC2/
     1IHORSW
C
      COMMON/CMISC3/
     1IMPSW2
C
      COMMON /IMISC/
     1NUMRIN,NUMCOP,
     1NUMSEQ,
     1IDEFVP,IDEFHP,IDEFUN
C
CCCCC 3 LINES IN THE FOLLOWING COMMON DECLARATION  (FEBURARY 1989)
CCCCC WERE COMMENTED OUT AND MOVED TO DPCO3D.INC   (FEBRUARY 1989)
CCCCC ADD DEFTOF (DEFAULT TIC OFFSET) MAY, 1990
      COMMON /RMISC/
     1BAWIDT,BARSPA,DEFBAS,
CCCCC1AORIXC,AORIYC,AORIZC,
CCCCC1AEYEXC,AEYEYC,AEYEZC,
CCCCC1PPEDHE,
     1DEFSZ,DEFTL,
     1DEFTOF
CCCCC ADD FOLLOWING SEPTEMBER 1998.
      COMMON /RMISC2/
     1AMPSCH, AMPSCW
C
      COMMON /CGRAP/
     1IGRASW
C
      COMMON /RGRAP/
     1PGRAXO,PGRAYO,PGRAXC,PGRAYC,PGRAXN,PGRAYN,
     1PMARXC,
     1PGRAXF,PGRAYF,
     1PCROXC,PCROYC
C
      COMMON /CDIAL/
     1IDIASW
C
      COMMON /RDIAL/
     1PDIAXC,PDIAYC,PDIAX2,PDIAY2,
     1PDIAHE,PDIAWI,PDIAVG,PDIAHG
C
      COMMON /RWIND/
     1PWXMIN,PWXMAX,PWYMIN,PWYMAX,PWZMIN,PYZMAX,
     1WWXMIN,WWXMAX,WWYMIN,WWYMAX,WWZMIN,WWZMAX
C
      COMMON /CLIMIT/
     1IX1MIN,IX1MAX,IY1MIN,IY1MAX,IZ1MIN,IZ1MAX,
     1IX2MIN,IX2MAX,IY2MIN,IY2MAX,IZ2MIN,IZ2MAX
C
      COMMON /RLIMIT/
     1PXMIN,PXMAX,PYMIN,PYMAX,PZMIN,PZMAX,
     1PDXMIN,PDXMAX,PDYMIN,PDYMAX,PDZMIN,PDZMAX,
     1PGXMIN,PGXMAX,PGYMIN,PGYMAX,PGZMIN,PGZMAX,
     1GX1MIN,GX1MAX,GY1MIN,GY1MAX,GZ1MIN,GZ1MAX,
     1GX2MIN,GX2MAX,GY2MIN,GY2MAX,GZ2MIN,GZ2MAX,
     1DX1MIN,DX1MAX,DY1MIN,DY1MAX,DZ1MIN,DZ1MAX,
     1DX2MIN,DX2MAX,DY2MIN,DY2MAX,DZ2MIN,DZ2MAX,
     1FX1MIN,FX1MAX,FY1MIN,FY1MAX,FZ1MIN,FZ1MAX,
     1FX2MIN,FX2MAX,FY2MIN,FY2MAX,FZ2MIN,FZ2MAX
CCCCC NOVEMBER 1997.  FRAME LIMITS SET TO VALUE AFTER 
CCCCC TIC OFFSET APPLIED.  NEED TO SAVE VALUES BEFORE TIC
CCCCC TIC OFFSET SO LIMITS FREEZE WILL WORK CORRECTLY.
      COMMON /RLIMI2/
     1FX1MNZ,FX1MXZ,FY1MNZ,FY1MXZ,FZ1MNZ,FZ1MXZ,
     1FX2MNZ,FX2MXZ,FY2MNZ,FY2MXZ,FZ2MNZ,FZ2MXZ
C
      COMMON /CFRAME/
     1IX1FSW,IX2FSW,IY1FSW,IY2FSW,IZ1FSW,IZ2FSW,
     1IX1FPA,IX2FPA,IY1FPA,IY2FPA,IZ1FPA,IZ2FPA,
     1IX1FCO,IX2FCO,IY1FCO,IY2FCO,IZ1FCO,IZ2FCO
C
      COMMON /RFRAME/
     1PFRATH
C
      COMMON /CTICS/
     1IX1TSW,IX2TSW,IY1TSW,IY2TSW,IZ1TSW,IZ2TSW,
     1IX1JSW,IX2JSW,IY1JSW,IY2JSW,IZ1JSW,IZ2JSW,
     1IX1NSW,IX2NSW,IY1NSW,IY2NSW,IZ1NSW,IZ2NSW,
     1IX1TSC,IX2TSC,IY1TSC,IY2TSC,IZ1TSC,IZ2TSC,
     1IX1TJU,IX2TJU,IY1TJU,IY2TJU,IZ1TJU,IZ2TJU,
     1IX1TCO,IX2TCO,IY1TCO,IY2TCO,IZ1TCO,IZ2TCO
C
CCCCC ADD ITICUN (TIC OFFSET UNITS) MAY, 1990.
      COMMON /ITICS/
     1NMJX1T,NMJX2T,NMJY1T,NMJY2T,NMJZ1T,NMJZ2T,
     1NMNX1T,NMNX2T,NMNY1T,NMNY2T,NMNZ1T,NMNZ2T,
     1NX1COO,NX2COO,NY1COO,NY2COO,NZ1COO,NZ2COO,
     1NX1CMN,NX2CMN,NY1CMN,NY2CMN,NZ1CMN,NZ2CMN,
     1MAXTIC,
     1ITICUN
C
CCCCC ADD PX1TOL,...,PY2TOT (TIC OFFSETS) MAY, 1990.
      COMMON /RTICS/
     1PX1COO(MAXTC),PX2COO(MAXTC),PY1COO(MAXTC),PY2COO(MAXTC),
     1PZ1COO(MAXTC),PZ2COO(MAXTC),
     1X1COOR(MAXTC),X2COOR(MAXTC),Y1COOR(MAXTC),Y2COOR(MAXTC),
     1Z1COOR(MAXTC),Z2COOR(MAXTC),
     1PX1CMN(MAXTC),PX2CMN(MAXTC),PY1CMN(MAXTC),PY2CMN(MAXTC),
     1PZ1CMN(MAXTC),PZ2CMN(MAXTC),
     1X1COMN(MAXTC),X2COMN(MAXTC),Y1COMN(MAXTC),Y2COMN(MAXTC),
     1Z1COMN(MAXTC),Z2COMN(MAXTC),
     1PX1TLE,PX2TLE,PY1TLE,PY2TLE,
     1PZ1TLE,PZ2TLE,
     1PTICTH,PMNTFA,
     1PX1TOL,PX2TOL,PY1TOB,PY2TOB,PX1TOR,PX2TOR,PY1TOT,PY2TOT
C
      COMMON /CTICLA/
     1IX1ZSW,IX2ZSW,IY1ZSW,IY2ZSW,IZ1ZSW,IZ2ZSW,
     1IX1ZCN,IX2ZCN,IY1ZCN,IY2ZCN,IZ1ZCN,IZ2ZCN,
     1IX1ZFM,IX2ZFM,IY1ZFM,IY2ZFM,IZ1ZFM,IZ2ZFM,
     1IX1ZFO,IX2ZFO,IY1ZFO,IY2ZFO,IZ1ZFO,IZ2ZFO,
     1IX1ZCA,IX2ZCA,IY1ZCA,IY2ZCA,IZ1ZCA,IZ2ZCA,
     1IX1ZJU,IX2ZJU,IY1ZJU,IY2ZJU,IZ1ZJU,IZ2ZJU,
     1IX1ZDI,IX2ZDI,IY1ZDI,IY2ZDI,IZ1ZDI,IZ2ZDI,
     1IX1ZFI,IX2ZFI,IY1ZFI,IY2ZFI,IZ1ZFI,IZ2ZFI,
     1IX1ZCO,IX2ZCO,IY1ZCO,IY2ZCO,IZ1ZCO,IZ2ZCO
C
      COMMON /ITICLA/
     1IX1ZDP,IX2ZDP,IY1ZDP,IY2ZDP,IZ1ZDP,IZ2ZDP
C
      COMMON /RTICLA/
     1PX1ZDS,PX2ZDS,PY1ZDS,PY2ZDS,PZ1ZDS,PZ2ZDS,
     1AX1ZAN,AX2ZAN,AY1ZAN,AY2ZAN,AZ1ZAN,AZ2ZAN,
     1PX1ZHE,PX1ZWI,PX1ZVG,PX1ZHG,
     1PX2ZHE,PX2ZWI,PX2ZVG,PX2ZHG,
     1PY1ZHE,PY1ZWI,PY1ZVG,PY1ZHG,
     1PY2ZHE,PY2ZWI,PY2ZVG,PY2ZHG,
     1PZ1ZHE,PZ1ZWI,PZ1ZVG,PZ1ZHG,
     1PZ2ZHE,PZ2ZWI,PZ2ZVG,PZ2ZHG,
     1PTIZTH
C
      COMMON /CGRID/
     1IVGRSW,IHGRSW,
     1IVGRPA,IHGRPA,
     1IVGRCO,IHGRCO
C
      COMMON /RGRID/
     1PVGRTH,PHGRTH
C
      COMMON /CTITLE/
     1ITITTE(MAXCH),
     1ITITFO,ITITCA,ITITFI,ITITCO
C
      COMMON /ITITLE/
     1NCTITL
C
      COMMON /RTITLE/
     1PTITHE,PTITWI,PTITVG,PTITHG,PTITTH,PTITDS
C
      COMMON /CLABEL/
     1IX1LTE(MAXCH),
     1IX1LFO,IX1LCA,IX1LFI,IX1LCO,IX1LJU,IX1LDI,
     1IX2LTE(MAXCH),
     1IX2LFO,IX2LCA,IX2LFI,IX2LCO,IX2LJU,IX2LDI,
     1IX3LTE(MAXCH),
     1IX3LFO,IX3LCA,IX3LFI,IX3LCO,IX3LJU,IX3LDI,
     1IY1LTE(MAXCH),
     1IY1LFO,IY1LCA,IY1LFI,IY1LCO,IY1LJU,IY1LDI,
     1IY2LTE(MAXCH),
     1IY2LFO,IY2LCA,IY2LFI,IY2LCO,IY2LJU,IY2LDI,
     1IZ1LTE(MAXCH),
     1IZ1LFO,IZ1LCA,IZ1LFI,IZ1LCO,IZ1LJU,IZ1LDI,
     1IZ2LTE(MAXCH),
     1IZ2LFO,IZ2LCA,IZ2LFI,IZ2LCO,IZ2LJU,IZ2LDI
C
      COMMON /ILABEL/
     1NCX1LA,NCX2LA,NCX3LA,NCY1LA,NCY2LA,NCZ1LA,NCZ2LA
C
      COMMON /RLABEL/
     1PX1LHE,PX1LWI,PX1LVG,PX1LHG,PX1LTH,PX1LDS,PX1LOF,PX1LAN,
     1PX2LHE,PX2LWI,PX2LVG,PX2LHG,PX2LTH,PX2LDS,PX2LOF,PX2LAN,
     1PX3LHE,PX3LWI,PX3LVG,PX3LHG,PX3LTH,PX3LDS,PX3LOF,PX3LAN,
     1PY1LHE,PY1LWI,PY1LVG,PY1LHG,PY1LTH,PY1LDS,PY1LOF,PY1LAN,
     1PY2LHE,PY2LWI,PY2LVG,PY2LHG,PY2LTH,PY2LDS,PY2LOF,PY2LAN,
     1PZ1LHE,PZ1LWI,PZ1LVG,PZ1LHG,PZ1LTH,PZ1LDS,PZ1LOF,PZ1LAN,
     1PZ2LHE,PZ2LWI,PZ2LVG,PZ2LHG,PZ2LTH,PZ2LDS,PZ2LOF,PZ2LAN
C
C  SEPTEMBER, 1990.  STORE PDEFDS SO THAT DEFAULT DISPLACEMENT CAN BE RESET.
      COMMON/RLABL2/
     1PDEFDS
C
      COMMON /CLEG/
     1ILEGTE(MAXLG2),
     1ILEGFO(MAXLG),
     1ILEGCA(MAXLG),
     1ILEGJU(MAXLG),
     1ILEGDI(MAXLG),
     1ILEGFI(MAXLG),
     1ILEGCO(MAXLG),
     1ILEGNA(MAXLG),
     1ILEGUN(MAXLG),
     1IDEFUZ
C
      COMMON /ILEG/
     1ILEGST(MAXLG),
     1ILEGSP(MAXLG),
     1NCLEG,MXCLEG,
     1NUMLEG,MAXLEG
C
      COMMON /RLEG/
     1PLEGXC(MAXLG),
     1PLEGYC(MAXLG),
     1PLEGHE(MAXLG),
     1PLEGWI(MAXLG),
     1PLEGVG(MAXLG),
     1PLEGHG(MAXLG),
     1PLEGTH(MAXLG),
     1ALEGAN(MAXLG)
C
      COMMON /CBOX/
     1IBOBFI(MAXBX),
     1IBOBCO(MAXBX),
     1IBOPPA(MAXBX),
CCCCC AUGUST 1992.  MODIFIED FOLLOWING LINE
CCCCC1IBOPCO(MAXBX),
     1IBOBPA(MAXBX),
     1IBOPCO(MAXBX),
     1IBOFPA(MAXBX),
     1IBOFCO(MAXBX)
C
      COMMON /IBOX/
     1NUMBOX,MAXBOX
C
      COMMON /RBOX/
     1PBOXXC(MAXBX,2),
     1PBOXYC(MAXBX,2),
     1PBOPTH(MAXBX),
     1PBOPGA(MAXBX),
CCCCC THE FOLLOWING LINE WAS CHANGED AUGUST 1992
CCCCC 2 LINES WERE ADDED AUGUST 1992
CCCCC BOX SHADOW HEIGHT AND WIDTH AUGUST 1992
CCCCC1PBOFTH(MAXBX)
     1PBOFTH(MAXBX),
     1PBOSHE(MAXBX),
     1PBOSWI(MAXBX)
C
CCCCC THE FOLLOWING 2 LINES WERE ADDED           OCTOBER 1992 (ALAN)
CCCCC TO STORE DEFAULT SHADOW HEIGHT AND WIDTH   OCTOBER 1992 (ALAN)
      COMMON /RBOX2/
     1PDEFSH,PDEFSW
C
      COMMON /CARROW/
     1IARRPA(MAXAR),
     1IARRCO(MAXAR),
     1IARHFI(MAXAR)
C
      COMMON /IARROW/
     1NUMARR,MAXARR
C
      COMMON /RARROW/
     1PARRXC(MAXAR,2),
     1PARRYC(MAXAR,2),
     1PARRTH(MAXAR),
     1PARHLE(MAXAR),
     1PARHWI(MAXAR)
C
      COMMON /CSEG/
     1ISEGPA(MAXSG),
     1ISEGCO(MAXSG)
C
      COMMON /ISEG/
     1NUMSEG,MAXSEG
C
      COMMON /RSEG/
     1PSEGXC(MAXSG,2),
     1PSEGYC(MAXSG,2),
     1PSEGTH(MAXSG)
C
      COMMON /CLINE/
     1ILINPA(MAXLN),
     1ILINCO(MAXLN)
      COMMON /CLINE2/
     1ILINPO(MAXLN)
C
      COMMON /ILINE/
     1MAXLIN
C
      COMMON /PLINE/
     1PLINTH(MAXLN),
     1PLINLE(MAXLN),
     1PLINL2(MAXLN),
     1PLINL3(MAXLN),
     1PLINGA(MAXLN),
     1PLING2(MAXLN),
     1PLING3(MAXLN)
C
      COMMON /CCHAR/
     1ICHAPA(MAXCH2),
     1ICHAFO(MAXCH2),
     1ICHACA(MAXCH2),
     1ICHAJU(MAXCH2),
     1ICHADI(MAXCH2),
     1ICHAFI(MAXCH2),
CCCCC THE FOLLOWING LINES WAS AUGMENTED & EXTENDED   DECEMBER 1994
CCCCC1ICHACO(MAXCH2)
     1ICHACO(MAXCH2),
     1ICHMAP
CCCCC ADD FOLLOWING FEBRUARY 1998.
      COMMON /CCHAR2/
     1ICHAPO(MAXCH2)
C
CCCCC SEPEMBER 2006.  RENAME COMMON BLOCK TO AVOID CONFLICT
CCCCC                 WITH FORTRAN ICHAR FUNCTION.
CCCCC COMMON /ICHAR/
      COMMON /IICHAR/
     1MAXCHA
C
      COMMON /RCHAR/
     1PCHAHE(MAXCH2),
     1PCHAWI(MAXCH2),
     1PCHAVG(MAXCH2),
     1PCHAHG(MAXCH2),
     1PCHATH(MAXCH2),
     1PCHAHO(MAXCH2),
     1PCHAVO(MAXCH2),
     1ACHAAN(MAXCH2)
C
      COMMON /CTEX/
     1ITEXTE(MAXCH),
     1ITEXPA,ITEXFO,ITEXCA,ITEXJU,ITEXDI,ITEXAU,ITEXFI,ITEXCO,
CCCCC THE FOLLOWING LINE WAS CHANGED    DECEMBER 1994
CCCCC1IDEFPA,IDEFFO,IDEFCA,IDEFJU,IDEFDI,IDEFAU,IDEFFI,IDEFCO,
     1IDEFPA,IDEFFO,IDEFCA,IDEFJU,IDEFDI,IDEFAU,IDEFFI,IDEFCO,IDCMAP,
CCCCC THE FOLLOWING LINE WAS ADDED    JULY 1996
     1IDEFFN,
     1ITEXCR,ITEXLF,
     1IDEFCR,IDEFLF,
     1ITEXSY,ITEXSP,
     1IDEFSY,IDEFSP
C
      COMMON /ITEX/
     1NCTEXT,MXCTEX
C
      COMMON /RTEX/
     1PTEXHE,PTEXWI,PTEXVG,PTEXHG,
     1PTEXTH,PTEXLE,ATEXAN,
     1PDEFHE,PDEFWI,PDEFVG,PDEFHG,
     1PDEFTH,PDEFLE,ADEFAN,
     1PTEXMR,
     1PDEFMR,
     1PXSTAR,PYSTAR,
     1PXEND,PYEND
C
      COMMON /CFILL/
     1IFILSW(MAXFL),
     1IFILPA(MAXFL),
     1IFILCO(MAXFL),
     1IDEFFS,
     1IDEFFP,
     1IDEFFC
C
      COMMON /IFILL/
     1MAXFIL
C
      COMMON /RFILL/
     1PFILSP(MAXFL),
     1PFILTH(MAXFL),
     1AFILBA(MAXFL),
     1PDEFFG,
     1PDEFFT,
     1ADEFFB
C
      COMMON /CPATT/
     1IPATSW(MAXPT),
     1IPATPA(MAXPT),
     1IPATLI(MAXPT),
     1IPATCO(MAXPT),
     1IDEFPS,
     1IDEFPP,
     1IDEFPL,
     1IDEFPC
C
      COMMON /IPATT/
     1MAXPAT
C
      COMMON /RPATT/
     1PPATHE(MAXPT),
     1PPATWI(MAXPT),
     1PPATSP(MAXPT),
     1PPATTH(MAXPT),
     1PDEFPH,
     1PDEFPW,
     1PDEFPG,
     1PDEFPT
C
      COMMON /CSPIKE/
     1ISPISW(MAXSP),
     1ISPILI(MAXSP),
     1ISPICO(MAXSP),
     1ISPIDI(MAXSP),
     1IDEFSS,
     1IDEFSL,
     1IDEFSC,
     1IDEFSD
C
      COMMON /ISPIKE/
     1MAXSPI
C
      COMMON /RSPIKE/
     1PSPITH(MAXSP),
     1ASPIBA(MAXSP),
     1PDEFST,
     1ADEFSB
C
      COMMON /CBAR/
     1IBARSW(MAXBA),
     1IBABLI(MAXBA),
     1IBABCO(MAXBA),
     1IBAFSW(MAXBA),
     1IBAFCO(MAXBA),
     1IBAPTY(MAXBA),
     1IBAPLI(MAXBA),
     1IBAPCO(MAXBA),
     1IBARTY(MAXBA),
     1IBARDI(MAXBA),
     1IDEBSW,
     1IDEBBL,
     1IDEBBC,
     1IDEBFS,
     1IDEBFC,
     1IDEBPT,
     1IDEBPL,IDEBPC,IDEBTY,IDEBDI
C
      COMMON /IBAR/
     1MAXBAR
C
      COMMON /RBAR/
     1ABARBA(MAXBA),
     1ABARWI(MAXBA),
     1PBABTH(MAXBA),
     1PBAPTH(MAXBA),
     1PBAPSP(MAXBA),
     1ADEBBA,
     1ADEBWI,
     1PDEBBT,
     1PDEBPT,
     1PDEBPS
C
      COMMON /CREG/
     1IREGSW(MAXRG),
     1IREBLI(MAXRG),
     1IREBCO(MAXRG),
     1IREFSW(MAXRG),
     1IREFCO(MAXRG),
     1IREPTY(MAXRG),
     1IREPLI(MAXRG),
     1IREPCO(MAXRG),
     1IDERSW,
     1IDERBL,
     1IDERBC,
     1IDERFS,
     1IDERFC,
     1IDERPT,
     1IDERPL,
     1IDERPC
CCCCC OCTOBER 1993.  ADD FOLLOWING 2 LINES
      COMMON /CREG2/
     1IREBIN
CCCCC MARCH 1994.  ADD FOLLOWING 2 LINES
      COMMON /CREG3/
     1IREBPL
C
      COMMON /IREG/
     1MAXREG
C
      COMMON /RREG/
     1AREGBA(MAXRG),
     1AREGWI(MAXRG),
     1PREBTH(MAXRG),
     1PREPTH(MAXRG),
     1PREPSP(MAXRG),
     1ADERBA,
     1ADERWI,
     1PDERBT,
     1PDERPT,
     1PDERPS
C
      COMMON /CMARK/
     1IMARSW(MAXMR),
     1IMABLI(MAXMR),
     1IMABCO(MAXMR),
     1IMAFSW(MAXMR),
     1IMAFCO(MAXMR),
     1IMAPTY(MAXMR),
     1IMAPLI(MAXMR),
     1IMAPCO(MAXMR),
     1IDEMSW,
     1IDEMBL,
     1IDEMBC,
     1IDEMFS,
     1IDEMFC,
     1IDEMPT,
     1IDEMPL,
     1IDEMPC
C
      COMMON /IMARK/
     1MAXMAR
C
      COMMON /RMARK/
     1AMARBA(MAXMR),
     1AMARWI(MAXMR),
     1PMABTH(MAXMR),
     1PMAPTH(MAXMR),
     1PMAPSP(MAXMR),
     1ADEMBA,
     1ADEMWI,
     1PDEMBT,
     1PDEMPT,
     1PDEMPS
C
      COMMON /CTEXT/
     1ITEXSW(MAXTX),
     1ITEBLI(MAXTX),
     1ITEBCO(MAXTX),
     1ITEFSW(MAXTX),
     1ITEFCO(MAXTX),
     1ITEPTY(MAXTX),
     1ITEPLI(MAXTX),
     1ITEPCO(MAXTX),
     1IDETSW,
     1IDETBL,
     1IDETBC,
     1IDETFS,
     1IDETFC,
     1IDETPT,
     1IDETPL,
     1IDETPC,
     1IDETLF
C
      COMMON /ITEXT/
     1MAXTEX
C
      COMMON /RTEXT/
     1ATEXBA(MAXTX),
     1ATEXWI(MAXTX),
     1PTEBTH(MAXTX),
     1PTEPTH(MAXTX),
     1PTEPSP(MAXTX),
     1ADETBA,
     1ADETWI,
     1PDETBT,
     1PDETPT,
     1PDETPS
C
      COMMON /RSUBR/
     1ASUBXL(MAXSUB),
     1ASUBXU(MAXSUB),
     1ASUBYL(MAXSUB),
     1ASUBYU(MAXSUB)
C
      COMMON /ISUBR/
     1ISUBNU
C
      COMMON /CSUBR/
     1ISUBTY(MAXSUB),
     1ISUBSW(MAXSUB),
     1IDEFSB
C
C
C
C
C
C