C-----THIS IS COMMON/INCLUDE FILE EDCOMM.INC-----
C     THIS IS COMMON FOR THE    FED EDITOR
C
C     UPDATED         --AUGUST   1992. UPDATED FOR PORTABILITY
C     UPDATED         --AUGUST   1992. EQUIVALENCE TO GARBAGE
C                                      COMMON TO REDUCE SPACE REQ.
C     UPDATED         --AUGUST   1992. GLOBALLY RENAME MAXCOM TO MAXCMN
C                                      AND MAXLIN TO MAXEDL
C                                      IN EDSUB.FOR TO AVOID
C                                      DUPLICATION IN DPCOPA.INC
C     UPDATED         --JULY     1993. REWRITE (JJF)
C
C-------------------------------------------
C
CCCCC INCLUDE 'DPCOPA.INC'     TO BE INCLUDED SEPARATELY   JULY 1993
      INCLUDE 'DPCOZI.INC'
      INCLUDE 'DPCOZC.INC'
C
      CHARACTER*1 IANS
C
      CHARACTER*4 ICOM
      CHARACTER*4 ICOM2
      CHARACTER*4 ICOMT
C
      CHARACTER*4 IHARG
      CHARACTER*4 IHARG2
      CHARACTER*4 IARGT
C
      CHARACTER*1 ICHA
C
      CHARACTER*4 IPRISW
      CHARACTER*4 IPR2SW
      CHARACTER*4 IPRINT
      CHARACTER*4 IMODE
      CHARACTER*4 IALL
      CHARACTER*4 IDELSW
C
      CHARACTER*1 ILOCST
      CHARACTER*1 IFINST
      CHARACTER*1 ICHAST
C
      CHARACTER*240 IHOLS1
      CHARACTER*240 IHOLS2
      CHARACTER*240 IHOLS3
      CHARACTER*240 IHOLS4
      CHARACTER*240 IHOLS5
      CHARACTER*240 IHOLS6
      CHARACTER*240 IHOLS7
      CHARACTER*240 IHOLS8
      CHARACTER*240 IHOLS9
      CHARACTER*240 IHOL10
C
C     LOOPCT = LOOP COUNT
C     LOOPST = LOOP STRING
C     LOOPIW = LOOP WIDTH (= # CHARACTERS IN LOOPST)
C
      CHARACTER*240 LOOPST
C
      CHARACTER*1 IINFIN
      CHARACTER*4 ICCALL
      CHARACTER*4 ICXQT
C
      CHARACTER*4 INUMSW
      CHARACTER*4 IECHSW
      CHARACTER*4 IFEESW
      CHARACTER*4 ITRASW
      CHARACTER*4 IPROSW
      CHARACTER*4 IPROMN
C
      CHARACTER*1 IMASK
      CHARACTER*4 IJUST
      CHARACTER*4 ISPACH
      CHARACTER*4 ISPACV
      CHARACTER*4 ITRANS
      CHARACTER*4 ICERAS
C
      CHARACTER*80 IORINA
      CHARACTER*12 IORIST
      CHARACTER*12 IORIFO
      CHARACTER*12 IORIAC
      CHARACTER*12 IORIRW
C
      CHARACTER*80 ISAVNA
      CHARACTER*12 ISAVST
      CHARACTER*12 ISAVFO
      CHARACTER*12 ISAVAC
      CHARACTER*12 ISAVRW
C
      CHARACTER*80 IHELNA
      CHARACTER*12 IHELST
      CHARACTER*12 IHELFO
      CHARACTER*12 IHELAC
      CHARACTER*12 IHELRW
C
      CHARACTER*80 ICOPNA
      CHARACTER*12 ICOPST
      CHARACTER*12 ICOPFO
      CHARACTER*12 ICOPAC
      CHARACTER*12 ICOPRW
C
      CHARACTER*80 ICOMNA
      CHARACTER*12 ICOMST
      CHARACTER*12 ICOMFO
      CHARACTER*12 ICOMAC
      CHARACTER*12 ICOMRW
C
      CHARACTER*80 ICALNA
      CHARACTER*12 ICALST
      CHARACTER*12 ICALFO
      CHARACTER*12 ICALAC
      CHARACTER*12 ICALRW
C
      CHARACTER*80 IPRINA
      CHARACTER*12 IPRIST
      CHARACTER*12 IPRIFO
      CHARACTER*12 IPRIAC
      CHARACTER*12 IPRIRW
C
      CHARACTER*80 ILISNA
      CHARACTER*12 ILISST
      CHARACTER*12 ILISFO
      CHARACTER*12 ILISAC
      CHARACTER*12 ILISRW
C
      CHARACTER*80 IMESNA
      CHARACTER*12 IMESST
      CHARACTER*12 IMESFO
      CHARACTER*12 IMESAC
      CHARACTER*12 IMESRW
C
      CHARACTER*80 ISYSNA
      CHARACTER*12 ISYSST
      CHARACTER*12 ISYSFO
      CHARACTER*12 ISYSAC
      CHARACTER*12 ISYSRW
C
      CHARACTER*80 ILOGNA
      CHARACTER*12 ILOGST
      CHARACTER*12 ILOGFO
      CHARACTER*12 ILOGAC
      CHARACTER*12 ILOGRW
C
      CHARACTER*80 INEWNA
      CHARACTER*12 INEWST
      CHARACTER*12 INEWFO
      CHARACTER*12 INEWAC
      CHARACTER*12 INEWRW
C
      CHARACTER*80 IOPENA
      CHARACTER*12 IOPEST
      CHARACTER*12 IOPEFO
      CHARACTER*12 IOPEAC
      CHARACTER*12 IOPERW
C
      CHARACTER*240 ICOUT
C
      CHARACTER*4 ICOM3
      CHARACTER*4 ICOM4
      CHARACTER*30 ICOM5
      CHARACTER*20 INLIN3
      CHARACTER*20 INLIN4
C
      CHARACTER*4 IBUGMA
      CHARACTER*4 IBUGTY
      CHARACTER*4 IBUGED
      CHARACTER*4 IBUGE2
      CHARACTER*4 IBUGE3
      CHARACTER*4 IBUGFI
      CHARACTER*4 IBUGT1
      CHARACTER*4 IBUGT2
      CHARACTER*4 IBUGWR
C
      CHARACTER*4 ISUBRO
C
      CHARACTER*4 IFOUND
      CHARACTER*4 IERROR
C
CCCCC THE FOLLOWING 3 LINES WERE COMMENTED OUT   MAY 1993
CCCCC CHARACTER*4 ISTEPN
CCCCC CHARACTER*4 ISUBN1
CCCCC CHARACTER*4 ISUBN2
C
CCCCC THE FOLLOWING 3 LINES WERE ADDED MAY 1993
      CHARACTER*4 CHANGE
      CHARACTER*4 LOCATE
      CHARACTER*4 BOTTOM
C
CCCCC AUGUST 1992.  THE FOLLOWING BLOCK WAS ADDED FOR PORTABILITY
CCCCC AUGUST 1992.  (ALAN)
      CHARACTER*80 IEDDIR
      CHARACTER*10 IEDEXT
      CHARACTER*4 IEDCAS
C
C-------------------------------------------
C
      DIMENSION IANS(240)
      DIMENSION IHARG(100)
      DIMENSION IARGT(100)
      DIMENSION IARG(100)
      DIMENSION ARG(100)
      DIMENSION IHARG2(100)
C
C     DEFINE ICHA(.) = MAIN INTERNAL CHARACTER STORAGE ARRAY FOR
C                      THE EDITOR.
C                      AS OF AUGUST 1992, THE SIZE OF ICHA(.)
C                      IS DEFINED IN DPCOPA.INC
C
CCCCC DIMENSION ICHA(10000)   OK FOR IBM-PC
CCCCC DIMENSION ICHA(100000)  COMMENTED OUT IN JANUARY 1986 ON VAX
CCCCC AUGUST 1992.  DIMENSION ICHA() IN DPCOPA.INC VIA MAXEDC
CCCCC DIMENSION ICHA(500000)
CCCCC DIMENSION ICHA(1000000) MY CHOICE FOR STAND-ALONE FED JULY 1993
      DIMENSION ICHA(MAXEDC)
C
C     DEFINE POINTER ARRAYS FOR THE EDITOR
C
CCCCC DIMENSION IPOIOL(1000)   OK FOR IBM-PCC
CCCCC DIMENSION IPOIOL(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
      DIMENSION IPOIOL(25000)
CCCCC DIMENSION IPOINT(1000)  OK FOR IBM-PC
CCCCC DIMENSION IPOINT(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
      DIMENSION IPOINT(25000)
CCCCC DIMENSION ILOCC1(1000)  OK FOR IBM-PC
CCCCC DIMENSION ILOCC1(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
      DIMENSION ILOCC1(25000)
CCCCC DIMENSION NUMCPL(1000)  OK FOR IBM-PC
CCCCC DIMENSION NUMCPL(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
      DIMENSION NUMCPL(25000)
C
      DIMENSION ILOCST(240)
      DIMENSION IFINST(240)
      DIMENSION ICHAST(240)
C
      DIMENSION ICOM3(100)
      DIMENSION ICOM4(100)
      DIMENSION ICOM5(100)
      DIMENSION NCOM5(100)
C
      DIMENSION INLIN3(100)
      DIMENSION INLIN4(100)
C
      DIMENSION NCCOM3(100)
      DIMENSION NCCOM4(100)
      DIMENSION NCINL3(100)
      DIMENSION NCINL4(100)
C
C -------------------------------------------------------
C
C     AUGUST 1992--PULL THE INTERNAL EDITOR CHARACTER ARRAY ICHA(.)
C     OUT OF COMMON SO AS TO LATER EQUIVALENCE IT
C     TO A DATAPLOT COMMON SCRATCH AREA--THUS SAVING SPACE.
C
      COMMON /ICEDCH/
CCCCC1IANS,ICOM,ICOM2,ICOMT,IHARG,IHARG2,IARGT,ICHA,
     1IANS,ICOM,ICOM2,ICOMT,IHARG,IHARG2,IARGT,
     1IPRISW,IPR2SW,IPRINT,IMODE,IALL,IDELSW,ILOCST,IFINST,ICHAST,
     1IHOLS1,IHOLS2,IHOLS3,IHOLS4,IHOLS5,IHOLS6,IHOLS7,IHOLS8,IHOLS9,
     1IHOL10,IINFIN,ICCALL,ICXQT,INUMSW,IECHSW,IFEESW,ITRASW,
     1IPROSW,IPROMN,IMASK,IJUST,ISPACH,ISPACV,ITRANS,ICERAS,
     1LOOPST
C
CCCCC COMMON/ICEDCX/
CCCCC1ICHA
C
C -------------------------------------------------------
C
      COMMON /ICEDC2/
     1IORINA,IORIST,IORIFO,IORIAC,IORIRW,
     1ISAVNA,ISAVST,ISAVFO,ISAVAC,ISAVRW,
     1IHELNA,IHELST,IHELFO,IHELAC,IHELRW,
     1ICOPNA,ICOPST,ICOPFO,ICOPAC,ICOPRW,
     1ICOMNA,ICOMST,ICOMFO,ICOMAC,ICOMRW,
     1ICALNA,ICALST,ICALFO,ICALAC,ICALRW,
     1IPRINA,IPRIST,IPRIFO,IPRIAC,IPRIRW,
     1ILISNA,ILISST,ILISFO,ILISAC,ILISRW,
     1IMESNA,IMESST,IMESFO,IMESAC,IMESRW,
     1ISYSNA,ISYSST,ISYSFO,ISYSAC,ISYSRW,
     1ILOGNA,ILOGST,ILOGFO,ILOGAC,ILOGRW,
     1INEWNA,INEWST,INEWFO,INEWAC,INEWRW,
     1IOPENA,IOPEST,IOPEFO,IOPEAC,IOPERW
C
C -------------------------------------------------------
C
C     AUGUST 1992. PUT IHOST1 ETC. INTO DPCOHO.INC INSTEAD
C
      COMMON /ICEDC3/
     1ICOUT,ICOM3,ICOM4,ICOM5,INLIN3,INLIN4,
CCCCC1IHOST1,IHOST2,IMODE1,IMODE2,IOPSY1,IOPSY2,ISITE1,ISITE2,
     1IBUGMA,IBUGTY,IBUGED,IBUGE2,IBUGE3,IBUGFI,IBUGT1,IBUGT2,IBUGWR,
CCCCC THE FOLLOWING LINE WAS CHANGED   MAY 1993
CCCCC1ISUBRO,IFOUND,IERROR,ISTEPN,ISUBN1,ISUBN2
CCCCC1ISUBRO,IFOUND,IERROR
     1ISUBRO,IFOUND,IERROR,CHANGE,LOCATE,BOTTOM
C
C -------------------------------------------------------
C
      COMMON /ICEDC4/
     1IEDDIR,IEDEXT,IEDCAS
C
      COMMON/ICEDI4/
     1NCEDT1,NCEDT2
C
C -------------------------------------------------------
C
C     AUGUST 1992.  TAKE SOME LARGE INTEGER "POINTER" ARRAYS
C                   OUT OF COMMON SO AS TO BE EQUIVALENCED LATER.
C                   TAKE    MAXEDL   OUT OF COMMON
C                   (TO BE A PARAMETER STATEMENT IN    DPCOPA.INC)
C
      COMMON /ICEDIN/
     1IWIDTH,ICOMI,IARG,NUMARG,NCHAOL,NUMCHA,MAXCHA,
CCCCC1IPOIOL,IPOINT,ILOCC1,NUMCPL,MAXCPL,
     1MAXCPL,
CCCCC1NUMLOR,NUMLOL,NUMLIN,MAXEDL,IOLDLN,ICURLN,IDELLN,
     1NUMLOR,NUMLOL,NUMLIN,IOLDLN,ICURLN,IDELLN,
     1NUMROL,NUMROW,MAXROW,NUMCLS,NUMCFS,NUMCCS,
     1NCHH1,NCHH2,NCHH3,NCHH4,NCHH5,
     1NCHH6,NCHH7,NCHH8,NCHH9,NCHH10,IXQT,
     1IBLIM1,IBLIM2,ICLIM1,ICLIM2,ILLIM1,ILLIM2,
     1IFLIM1,IFLIM2,IMLIM1,IMLIM2,IPLIM1,IPLIM2,IP2LI1,IP2LI2,
     1IVWIN1,IVWIN2,IHWIN1,IHWIN2,
     1ISCRO1,ISCRO2,ISCCO1,ISCCO2,
     1IPRRO1,IPRRO2,IPRCO1,IPRCO2,
     1IINDEC,ICENTC,ITRUNC,ITABC,
     1IORINU,ISAVNU,IHELNU,ICOPNU,ICOMNU,ICALNU,IPRINU,ILISNU,
     1IMESNU,ISYSNU,ILOGNU,INEWNU,IOPENU,
     1NCOUT,ILOUT,NCCOM3,NCCOM4,NCINL3,NCINL4,
     1NCOM5,NUMCOM,MAXCMN,NUMINL,MAXINL,
     1LOOPCT,LOOPIW
C
C -------------------------------------------------------
C
CCCCC AUGUST 1992.  FOLLOWING ADDED FOR PORTABILITY
C
      COMMON /ICEDRE/
     1ACOM,
     1ARG
C
C -----EQUIVALENCE---------------------------------------
C
C     AUGUST 1992.  USE SCRATCH COMMON TO REDUCE SPACE REQUIREMENTS
C     CAUTION:  THIS IS EQUIVALENCING A CHARACTER ARRAY WITH A REAL
C     ARRAY.  SINCE THIS IS SIMPLY SCRATCH SPACE, SHOULD NOT CAUSE
C     A PROBLEM.  HOWEVER, IF YOUR COMPILER DOES NOT ALLOW THIS, DO
C     ONE OF THE FOLLOWING:
C        1) COMMENT OUT THE FOLLOWING EQUIVALENCE.  IF SPACE IS A
C           PROBLEM,  SET THE VALUE OF MAXEDC IN DPCOPA.INC
C        2) YOU CAN DE-ACTIVATE THE EDIT COMMAND BY COMMENTING
C           OUT THE CALL TO DPEDIT IN THE MAIN ROUTINE.
C
      EQUIVALENCE(CGARBG(1),ICHA(1))
      EQUIVALENCE(IGARBG(1),IPOIOL(1))
      EQUIVALENCE(IGARBG(MAXEDL+1),IPOINT(1))
      EQUIVALENCE(IGARBG(2*MAXEDL+1),ILOCC1(1))
      EQUIVALENCE(IGARBG(3*MAXEDL+1),NUMCPL(1))
C
