1C-----THIS IS COMMON/INCLUDE FILE EDCOMM.INC-----
2C     THIS IS COMMON FOR THE    FED EDITOR
3C
4C     UPDATED         --AUGUST   1992. UPDATED FOR PORTABILITY
5C     UPDATED         --AUGUST   1992. EQUIVALENCE TO GARBAGE
6C                                      COMMON TO REDUCE SPACE REQ.
7C     UPDATED         --AUGUST   1992. GLOBALLY RENAME MAXCOM TO MAXCMN
8C                                      AND MAXLIN TO MAXEDL
9C                                      IN EDSUB.FOR TO AVOID
10C                                      DUPLICATION IN DPCOPA.INC
11C     UPDATED         --JULY     1993. REWRITE (JJF)
12C     UPDATED         --APRIL    2020. USE 'DPCOP2.INC'
13C
14C-------------------------------------------
15C
16CCCCC INCLUDE 'DPCOPA.INC'     TO BE INCLUDED SEPARATELY   JULY 1993
17      INCLUDE 'DPCOZI.INC'
18      INCLUDE 'DPCOZC.INC'
19C
20      CHARACTER*1 IANS
21      CHARACTER*1 ICHA
22C
23      CHARACTER*4 ICOM
24      CHARACTER*4 ICOM2
25      CHARACTER*4 ICOMT
26C
27      CHARACTER*4 IHARG
28      CHARACTER*4 IHARG2
29      CHARACTER*4 IARGT
30C
31      CHARACTER*4 IPRISW
32      CHARACTER*4 IPR2SW
33CCCCC CHARACTER*4 IPRINT
34      CHARACTER*4 IMODE
35      CHARACTER*4 IALL
36      CHARACTER*4 IDELSW
37C
38      CHARACTER*1 ILOCST
39      CHARACTER*1 IFINST
40      CHARACTER*1 ICHAST
41C
42      CHARACTER*240 IHOLS1
43      CHARACTER*240 IHOLS2
44      CHARACTER*240 IHOLS3
45      CHARACTER*240 IHOLS4
46      CHARACTER*240 IHOLS5
47      CHARACTER*240 IHOLS6
48      CHARACTER*240 IHOLS7
49      CHARACTER*240 IHOLS8
50      CHARACTER*240 IHOLS9
51      CHARACTER*240 IHOL10
52C
53C     LOOPCT = LOOP COUNT
54C     LOOPST = LOOP STRING
55C     LOOPIW = LOOP WIDTH (= # CHARACTERS IN LOOPST)
56C
57      CHARACTER*240 LOOPST
58C
59      CHARACTER*1 IINFIN
60      CHARACTER*4 ICCALL
61      CHARACTER*4 ICXQT
62C
63      CHARACTER*4 INUMSW
64      CHARACTER*4 IECHSW
65      CHARACTER*4 IFEESW
66      CHARACTER*4 ITRASW
67      CHARACTER*4 IPROSW
68      CHARACTER*4 IPROMN
69C
70      CHARACTER*1 IMASK
71      CHARACTER*4 IJUST
72      CHARACTER*4 ISPACH
73      CHARACTER*4 ISPACV
74      CHARACTER*4 ITRANS
75      CHARACTER*4 ICERAS
76C
77      CHARACTER*256 IORINA
78      CHARACTER*12 IORIST
79      CHARACTER*12 IORIFO
80      CHARACTER*12 IORIAC
81      CHARACTER*12 IORIRW
82C
83      CHARACTER*256 ISAVNA
84      CHARACTER*12 ISAVST
85      CHARACTER*12 ISAVFO
86      CHARACTER*12 ISAVAC
87      CHARACTER*12 ISAVRW
88C
89      CHARACTER*256 IHELNA
90      CHARACTER*12 IHELST
91      CHARACTER*12 IHELFO
92      CHARACTER*12 IHELAC
93      CHARACTER*12 IHELRW
94C
95      CHARACTER*256 ICOPNA
96      CHARACTER*12 ICOPST
97      CHARACTER*12 ICOPFO
98      CHARACTER*12 ICOPAC
99      CHARACTER*12 ICOPRW
100C
101      CHARACTER*256 ICOMNA
102      CHARACTER*12 ICOMST
103      CHARACTER*12 ICOMFO
104      CHARACTER*12 ICOMAC
105      CHARACTER*12 ICOMRW
106C
107      CHARACTER*256 ICALNA
108      CHARACTER*12 ICALST
109      CHARACTER*12 ICALFO
110      CHARACTER*12 ICALAC
111      CHARACTER*12 ICALRW
112C
113      CHARACTER*256 IPRINA
114      CHARACTER*12 IPRIST
115      CHARACTER*12 IPRIFO
116      CHARACTER*12 IPRIAC
117      CHARACTER*12 IPRIRW
118C
119      CHARACTER*256 ILISNA
120      CHARACTER*12 ILISST
121      CHARACTER*12 ILISFO
122      CHARACTER*12 ILISAC
123      CHARACTER*12 ILISRW
124C
125      CHARACTER*256 IMESNA
126      CHARACTER*12 IMESST
127      CHARACTER*12 IMESFO
128      CHARACTER*12 IMESAC
129      CHARACTER*12 IMESRW
130C
131      CHARACTER*256 ISYSNA
132      CHARACTER*12 ISYSST
133      CHARACTER*12 ISYSFO
134      CHARACTER*12 ISYSAC
135      CHARACTER*12 ISYSRW
136C
137      CHARACTER*256 ILOGNA
138      CHARACTER*12 ILOGST
139      CHARACTER*12 ILOGFO
140      CHARACTER*12 ILOGAC
141      CHARACTER*12 ILOGRW
142C
143      CHARACTER*256 INEWNA
144      CHARACTER*12 INEWST
145      CHARACTER*12 INEWFO
146      CHARACTER*12 INEWAC
147      CHARACTER*12 INEWRW
148C
149      CHARACTER*256 IOPENA
150      CHARACTER*12 IOPEST
151      CHARACTER*12 IOPEFO
152      CHARACTER*12 IOPEAC
153      CHARACTER*12 IOPERW
154C
155CCCCC CHARACTER*240 ICOUT
156C
157      CHARACTER*4 ICOM3
158      CHARACTER*4 ICOM4
159      CHARACTER*30 ICOM5
160      CHARACTER*20 INLIN3
161      CHARACTER*20 INLIN4
162C
163      CHARACTER*4 IBUGMA
164      CHARACTER*4 IBUGTY
165      CHARACTER*4 IBUGED
166      CHARACTER*4 IBUGE2
167      CHARACTER*4 IBUGE3
168      CHARACTER*4 IBUGFI
169      CHARACTER*4 IBUGT1
170      CHARACTER*4 IBUGT2
171      CHARACTER*4 IBUGWR
172C
173      CHARACTER*4 ISUBRO
174      CHARACTER*4 IFOUND
175      CHARACTER*4 IERROR
176C
177CCCCC THE FOLLOWING 3 LINES WERE COMMENTED OUT   MAY 1993
178CCCCC CHARACTER*4 ISTEPN
179CCCCC CHARACTER*4 ISUBN1
180CCCCC CHARACTER*4 ISUBN2
181C
182CCCCC THE FOLLOWING 3 LINES WERE ADDED MAY 1993
183      CHARACTER*4 CHANGE
184      CHARACTER*4 LOCATE
185      CHARACTER*4 BOTTOM
186C
187CCCCC AUGUST 1992.  THE FOLLOWING BLOCK WAS ADDED FOR PORTABILITY
188CCCCC AUGUST 1992.  (ALAN)
189      CHARACTER*256 IEDDIR
190      CHARACTER*10 IEDEXT
191      CHARACTER*4 IEDCAS
192C
193C-------------------------------------------
194C
195      DIMENSION IANS(240)
196      DIMENSION IHARG(100)
197      DIMENSION IARGT(100)
198      DIMENSION IARG(100)
199      DIMENSION ARG(100)
200      DIMENSION IHARG2(100)
201C
202C     DEFINE ICHA(.) = MAIN INTERNAL CHARACTER STORAGE ARRAY FOR
203C                      THE EDITOR.
204C                      AS OF AUGUST 1992, THE SIZE OF ICHA(.)
205C                      IS DEFINED IN DPCOPA.INC
206C
207CCCCC DIMENSION ICHA(10000)   OK FOR IBM-PC
208CCCCC DIMENSION ICHA(100000)  COMMENTED OUT IN JANUARY 1986 ON VAX
209CCCCC AUGUST 1992.  DIMENSION ICHA() IN DPCOPA.INC VIA MAXEDC
210CCCCC DIMENSION ICHA(500000)
211CCCCC DIMENSION ICHA(1000000) MY CHOICE FOR STAND-ALONE FED JULY 1993
212      DIMENSION ICHA(MAXEDC)
213C
214C     DEFINE POINTER ARRAYS FOR THE EDITOR
215C
216CCCCC DIMENSION IPOIOL(1000)   OK FOR IBM-PCC
217CCCCC DIMENSION IPOIOL(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
218      DIMENSION IPOIOL(25000)
219CCCCC DIMENSION IPOINT(1000)  OK FOR IBM-PC
220CCCCC DIMENSION IPOINT(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
221      DIMENSION IPOINT(25000)
222CCCCC DIMENSION ILOCC1(1000)  OK FOR IBM-PC
223CCCCC DIMENSION ILOCC1(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
224      DIMENSION ILOCC1(25000)
225CCCCC DIMENSION NUMCPL(1000)  OK FOR IBM-PC
226CCCCC DIMENSION NUMCPL(10000) COMMENTED OUT IN JANUARY 1986 ON VAX
227      DIMENSION NUMCPL(25000)
228C
229      DIMENSION ILOCST(240)
230      DIMENSION IFINST(240)
231      DIMENSION ICHAST(240)
232C
233      DIMENSION ICOM3(100)
234      DIMENSION ICOM4(100)
235      DIMENSION ICOM5(100)
236      DIMENSION NCOM5(100)
237C
238      DIMENSION INLIN3(100)
239      DIMENSION INLIN4(100)
240C
241      DIMENSION NCCOM3(100)
242      DIMENSION NCCOM4(100)
243      DIMENSION NCINL3(100)
244      DIMENSION NCINL4(100)
245C
246C -------------------------------------------------------
247C
248C     AUGUST 1992--PULL THE INTERNAL EDITOR CHARACTER ARRAY ICHA(.)
249C     OUT OF COMMON SO AS TO LATER EQUIVALENCE IT
250C     TO A DATAPLOT COMMON SCRATCH AREA--THUS SAVING SPACE.
251C
252      COMMON /ICEDCH/
253CCCCC1IANS,ICOM,ICOM2,ICOMT,IHARG,IHARG2,IARGT,ICHA,
254     1IANS,ICOM,ICOM2,ICOMT,IHARG,IHARG2,IARGT,
255CCCCC1IPRISW,IPR2SW,IPRINT,IMODE,IALL,IDELSW,ILOCST,IFINST,ICHAST,
256     1IPRISW,IPR2SW,IMODE,IALL,IDELSW,ILOCST,IFINST,ICHAST,
257     1IHOLS1,IHOLS2,IHOLS3,IHOLS4,IHOLS5,IHOLS6,IHOLS7,IHOLS8,IHOLS9,
258     1IHOL10,IINFIN,ICCALL,ICXQT,INUMSW,IECHSW,IFEESW,ITRASW,
259     1IPROSW,IPROMN,IMASK,IJUST,ISPACH,ISPACV,ITRANS,ICERAS,
260     1LOOPST
261C
262CCCCC COMMON/ICEDCX/
263CCCCC1ICHA
264C
265C -------------------------------------------------------
266C
267      COMMON /ICEDC2/
268     1IORINA,IORIST,IORIFO,IORIAC,IORIRW,
269     1ISAVNA,ISAVST,ISAVFO,ISAVAC,ISAVRW,
270     1IHELNA,IHELST,IHELFO,IHELAC,IHELRW,
271     1ICOPNA,ICOPST,ICOPFO,ICOPAC,ICOPRW,
272     1ICOMNA,ICOMST,ICOMFO,ICOMAC,ICOMRW,
273     1ICALNA,ICALST,ICALFO,ICALAC,ICALRW,
274     1IPRINA,IPRIST,IPRIFO,IPRIAC,IPRIRW,
275     1ILISNA,ILISST,ILISFO,ILISAC,ILISRW,
276     1IMESNA,IMESST,IMESFO,IMESAC,IMESRW,
277     1ISYSNA,ISYSST,ISYSFO,ISYSAC,ISYSRW,
278     1ILOGNA,ILOGST,ILOGFO,ILOGAC,ILOGRW,
279     1INEWNA,INEWST,INEWFO,INEWAC,INEWRW,
280     1IOPENA,IOPEST,IOPEFO,IOPEAC,IOPERW
281C
282C -------------------------------------------------------
283C
284C     AUGUST 1992. PUT IHOST1 ETC. INTO DPCOHO.INC INSTEAD
285C
286      COMMON /ICEDC3/
287CCCCC1ICOUT,ICOM3,ICOM4,ICOM5,INLIN3,INLIN4,
288     1ICOM3,ICOM4,ICOM5,INLIN3,INLIN4,
289CCCCC1IHOST1,IHOST2,IMODE1,IMODE2,IOPSY1,IOPSY2,ISITE1,ISITE2,
290     1IBUGMA,IBUGTY,IBUGED,IBUGE2,IBUGE3,IBUGFI,IBUGT1,IBUGT2,IBUGWR,
291CCCCC THE FOLLOWING LINE WAS CHANGED   MAY 1993
292CCCCC1ISUBRO,IFOUND,IERROR,ISTEPN,ISUBN1,ISUBN2
293CCCCC1ISUBRO,IFOUND,IERROR
294     1ISUBRO,IFOUND,IERROR,CHANGE,LOCATE,BOTTOM
295C
296C -------------------------------------------------------
297C
298      COMMON /ICEDC4/
299     1IEDDIR,IEDEXT,IEDCAS
300C
301      COMMON/ICEDI4/
302     1NCEDT1,NCEDT2
303C
304C -------------------------------------------------------
305C
306C     AUGUST 1992.  TAKE SOME LARGE INTEGER "POINTER" ARRAYS
307C                   OUT OF COMMON SO AS TO BE EQUIVALENCED LATER.
308C                   TAKE    MAXEDL   OUT OF COMMON
309C                   (TO BE A PARAMETER STATEMENT IN    DPCOPA.INC)
310C
311      COMMON /ICEDIN/
312     1IWIDTH,ICOMI,IARG,NUMARG,NCHAOL,NUMCHA,MAXCHA,
313CCCCC1IPOIOL,IPOINT,ILOCC1,NUMCPL,MAXCPL,
314     1MAXCPL,
315CCCCC1NUMLOR,NUMLOL,NUMLIN,MAXEDL,IOLDLN,ICURLN,IDELLN,
316     1NUMLOR,NUMLOL,NUMLIN,IOLDLN,ICURLN,IDELLN,
317     1NUMROL,NUMROW,MAXROW,NUMCLS,NUMCFS,NUMCCS,
318     1NCHH1,NCHH2,NCHH3,NCHH4,NCHH5,
319     1NCHH6,NCHH7,NCHH8,NCHH9,NCHH10,IXQT,
320     1IBLIM1,IBLIM2,ICLIM1,ICLIM2,ILLIM1,ILLIM2,
321     1IFLIM1,IFLIM2,IMLIM1,IMLIM2,IPLIM1,IPLIM2,IP2LI1,IP2LI2,
322     1IVWIN1,IVWIN2,IHWIN1,IHWIN2,
323     1ISCRO1,ISCRO2,ISCCO1,ISCCO2,
324     1IPRRO1,IPRRO2,IPRCO1,IPRCO2,
325     1IINDEC,ICENTC,ITRUNC,ITABC,
326     1IORINU,ISAVNU,IHELNU,ICOPNU,ICOMNU,ICALNU,IPRINU,ILISNU,
327     1IMESNU,ISYSNU,ILOGNU,INEWNU,IOPENU,
328CCCCC1NCOUT,ILOUT,NCCOM3,NCCOM4,NCINL3,NCINL4,
329     1NCCOM3,NCCOM4,NCINL3,NCINL4,
330     1NCOM5,NUMCOM,MAXCMN,NUMINL,MAXINL,
331     1LOOPCT,LOOPIW
332C
333C -------------------------------------------------------
334C
335CCCCC AUGUST 1992.  FOLLOWING ADDED FOR PORTABILITY
336C
337      COMMON /ICEDRE/
338     1ACOM,
339     1ARG
340C
341C -----EQUIVALENCE---------------------------------------
342C
343C     AUGUST 1992.  USE SCRATCH COMMON TO REDUCE SPACE REQUIREMENTS
344C     CAUTION:  THIS IS EQUIVALENCING A CHARACTER ARRAY WITH A REAL
345C     ARRAY.  SINCE THIS IS SIMPLY SCRATCH SPACE, SHOULD NOT CAUSE
346C     A PROBLEM.  HOWEVER, IF YOUR COMPILER DOES NOT ALLOW THIS, DO
347C     ONE OF THE FOLLOWING:
348C        1) COMMENT OUT THE FOLLOWING EQUIVALENCE.  IF SPACE IS A
349C           PROBLEM,  SET THE VALUE OF MAXEDC IN DPCOPA.INC
350C        2) YOU CAN DE-ACTIVATE THE EDIT COMMAND BY COMMENTING
351C           OUT THE CALL TO DPEDIT IN THE MAIN ROUTINE.
352C
353      EQUIVALENCE(CGARBG(1),ICHA(1))
354      EQUIVALENCE(IGARBG(1),IPOIOL(1))
355      EQUIVALENCE(IGARBG(MAXEDL+1),IPOINT(1))
356      EQUIVALENCE(IGARBG(2*MAXEDL+1),ILOCC1(1))
357      EQUIVALENCE(IGARBG(3*MAXEDL+1),NUMCPL(1))
358C
359      INCLUDE 'DPCOP2.INC'
360C
361