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