1C-----THIS IS COMMON/INCLUDE FILE DPCOPA.INC----- 2C THIS IS COMMON FOR (GENERAL) PARAMETER DEFINITIONS 3C 4CCCCC UPDATED--AUGUST 1990. MOVE IGARB0 FROM DPCOZZ.INC 5CCCCC UPDATED--AUGUST 1990. MOVE IIGAR0 FROM DPCOZI.INC 6CCCCC UPDATED--AUGUST 1990. MOVE IG2RB0 FROM DPCOZ2.INC 7CCCCC UPDATED--AUGUST 1990. MOVE IDGAR0 FROM DPCOZD.INC 8CCCCC UPDATED--AUGUST 1992. CHANGE MAX LABEL CHAR TO 200 9CCCCC UPDATED--AUGUST 1992. ADD MAXEDC PARAMETER FOR EDIT COMMAND 10CCCCC ADD MAXEDL FOR MAXIMUM NUMBER OF 11CCCCC LINES IN EDIT COMMAND 12CCCCC UPDATED--NOVEMBER 1992. INCREASE MAX ROWS/COL FOR MATRICES 13CCCCC UPDATED--APRIL 1993. INCREASE MAX LIST LINES--50 ->200 14CCCCC UPDATED--AUGUST 1993. CHECK FOR MATRICES 15CCCCC UPDATED--OCTOBER 1993. DEFINE MAXNME 16CCCCC UPDATED--JUNE 1994. MORE SPACE FOR INTEGER COMMON 17CCCCC UPDATED--MAY 1995. MORE SPACE FOR DPCOZZ.INC 18CCCCC UPDATED--APRIL 1996. MORE SPACE FOR DPCOZ2.INC (FOR DDS 19CCCCC CODE) 20CCCCC UPDATED--APRIL 1997. ADD MAXPM 21CCCCC UPDATED--MAY 1997. INCREASE VALUE OF MAXNME 22CCCCC UPDATED--DECEMBER 1997. ADD MAXLIP FOR REPLOT COMMAND 23CCCCC UPDATED--JANUARY 1998. UPDATE MAXROM (MORE EFFICIENT USE OF 24CCCCC TEMPORARY MATRICES) 25CCCCC UPDATED--JANUARY 1998. CHANGE MAXROM AND MAXCOM TO MAXTOM. 26CCCCC DIMENSION OF MATRICES CAN NOW BE SET 27CCCCC VIA THE DIMENSION COMMAND. RELATED, 28CCCCC UP VALUE OF MAXNME. 29CCCCC UPDATED--OCTOBER 1999. DEFINE MAXSUB TO BE MAXIMUM NUMBER 30C OF SUB-REGIONS ON PLOT 31CCCCC UPDATED--DECEMBER 1999. DEFINE MAXGRP TO BE MAXIMUM NUMBER 32C OF GROUP LABELS 33CCCCC UPDATED--MARCH 2001. UP AMOUNT OF INTEGER STORAGE (TO 34CCCCC ACCOMODATE BAG PLOT COMMAND) 35CCCCC UPDATED--SEPTEMBER 2002. INCREASED VALUE FOR MAXLIL 36CCCCC UPDATED--FEBRUARY 2003. DEFINE MAXRCL = MAXIMUM NUMBER OF 37CCCCC CHARACTERS THAT CAN BE READ FROM A 38CCCCC DATA FILE 39CCCCC UPDATED--MAY 2003. INCREASE SIZE OF MAXNME (MAXIMUM 40CCCCC NUMBER OF NAMES) 41CCCCC UPDATED--JANUARY 2004. SIZE OF CHARACTER ARRAY NOW 42CCCCC ACCOMODATE DATAPLOT SUPPORT FOR 43CCCCC CHARACTER DATA 44CCCCC UPDATED--JANUARY 2004. DEFINE MAXIMUM NUMBER OF GROUP LABELS 45CCCCC UPDATED--FEBRUARY 2005. INCREASE MAXIMUM LINES IN LOOP 46CCCCC UPDATED--FEBRUARY 2006. INCREASE MAXIMUM COLUMNS IN LOOP 47CCCCC UPDATED--MAY 2007. ADD MAXIMUM NUMBER OF CONTOUR LABELS 48CCCCC UPDATED--AUGUST 2007. ADD KGARB0 49CCCCC UPDATED--OCTOBER 2007. INCREASE MAXF1 FROM 10,000 TO 50,000 50CCCCC UPDATED--JANUARY 2008. INCREASE VALUE OF KGARB0 51CCCCC UPDATED--DECEMBER 2008. DEFINE MAXGR2 TO BE MAXIMUM NUMBER 52C OF CHARACTERS FOR A GROUP LABEL 53CCCCC UPDATED--APRIL 2009. INCREASE VALUE OF MAXSTR TO 255 54CCCCC UPDATED--APRIL 2009. SET VALUE OF MAXCIL = MAXSTR 55CCCCC UPDATED--MAY 2011. INCREASE VALUE OF MAXLIL 56CCCCC UPDATED--MAY 2011. SPECIFY MAXIMUM NUMBER OF NESTED LOOPS 57CCCCC UPDATED--MAY 2011. SPECIFY MAXIMUM NUMBER OF NESTED MACROS 58CCCCC UPDATED--FEBRUARY 2014. INCREASE VALUE OF MAXLIL 59CCCCC UPDATED--JUNE 2018. INCREASE MAXGRP FROM 5 TO 20 60CCCCC UPDATED--JUNE 2019. INCREASE MAXGRP FROM 5 TO 50 61CCCCC UPDATED--APRIL 2020. ADD "MAXARG", "MAXFNC" 62C 63C-----1. INTERNAL WORKSPACE--------------------------------------------- 64C 65C DEFINE INTERNAL DATA SPACE DIMENSIONS: 66C MAXOBV = THE MAXIMUM NUMBER OF OBS. PER VARIABLE 67C MAXOBW = THE MAXIMUM NUMBER OF OBS. PER WORKSPACE 68C MAXPOP = THE MAXIMUM NUMBER OF PLOT POINTS 69C 70CCCCC PARAMETER (MAXOBV=2048) 71CCCCC PARAMETER (MAXOBW=20480) 72CCCCC PARAMETER (MAXPOP=5000) 73C 74CCCCC PARAMETER (MAXOBV=16400) 75CCCCC PARAMETER (MAXOBW=82000) 76CCCCC PARAMETER (MAXPOP=16400) 77C 78 PARAMETER (MAXOBV=2000000) 79CCCCC PARAMETER (MAXOBV=1800000) 80CCCCC PARAMETER (MAXOBV=450000) 81CCCCC PARAMETER (MAXOBV=1000000) 82 PARAMETER (MAXOBW=10*MAXOBV) 83 PARAMETER (MAXPOP=2*MAXOBV) 84C 85C-----2. EDITOR/FED--------------------------------------------- 86C 87C DEFINE EDIT/FED DIMENSIONS (AUGUST 1992): 88C MAXEDC = THE MAXIMUM NUMBER OF CHARACTERS 89C THAT THE EDIT/FED COMMAND CAN ACCOMODATE 90C MAXEDL = THE MAXIMUM NUMBER OF LINES 91C THAT THE EDIT/FED COMMAND CAN ACCOMODATE 92C 93CCCCC THE FOLLOWING 2 LINES WERE CHANGED JULY 1993 (JJF) 94CCCCC 250K => 500K AND 10K => 25K JULY 1993 (JJF) 95CCCCC PARAMETER (MAXEDC=250000) 96CCCCC PARAMETER (MAXEDL=10000) 97CCCCC PARAMETER (MAXEDC=500000) 98 PARAMETER (MAXEDC=24*MAXOBV) 99 PARAMETER (MAXEDL=25000) 100C 101C NOTE--THESE NUMBERS CAN BE REDUCED IF SPACE IS A PROBLEM. 102C (KEEP AS MULTIPLE OF 8 TO MAINTAIN WORD BOUNDARY.) ???? 103C-----3. REGRESSION--------------------------------------------- 104C 105C DEFINE REGRESSION DIMENSIONS: 106C MAXCMP = THE MAXIMUM NUMBER OF COEFFICIENTS IN 107C POLYNOMIAL/MULTILINEAR REGRESSION 108C (NORMALLY, THIS SETTING IS LEFT 109C UNCHANGED AT 35) 110C 111 PARAMETER (MAXCMF=35) 112C 113C-----4. SCRATCH ARRAYS--------------------------------------------- 114C 115C DEFINE SCRATCH ARRAY DIMENSIONS: 116C DANGER--THE FOLLOWING 4 SECTIONS DEFINE SCRATCH ARRAY SIZES 117C WHICH ARE CONDITIONAL ON SETTTINGS IN THE ABOVE 118C 3 SECTIONS. THE SCRATCH ARRAYS SIZES AS 119C DEFINED BELOW VIA IGARB0, IIGAR0, IG2RB0, AND IDGAR0 120C MUST BE CORRECT, OR ELSE ERRORS WILL RESULT. 121C IF YOU MAKE CHANGES IN THE ABOVE 3 SECTIONS, 122C THEN YOU MUST THINK THROUGH AND MANUALLY CHANGE 123C THE SCRATCH ARRAY SIZES BELOW. 124C 125C STEP 1--ACTIVATE THE LARGER OF THE FOLLOWING 2 LINES-- 126CCCCC MAY 1995. CHAGE FROM 10*MAXOBV TO 20*MAXOBV 127C 128CCCCC PARAMETER (IGARB0=10*MAXOBV) 129CCCCC PARAMETER (IGARB0=20*MAXOBV) 130CCCCC PARAMETER (IGARB0=66*MAXOBV) 131 PARAMETER (IGARB0=35*MAXOBV) 132CCCCC PARAMETER (IGARB0=5*MAXPOP) 10 BY 2048 133C 134C STEP 2--ACTIVATE THE LARGEST OF THE FOLLOWING 3 LINES-- 135C 136 PARAMETER (IIGAR0=17*MAXOBV) 137CCCCC PARAMETER (IIGAR0=2*MAXPOP) 138CCCCC PARAMETER (IIGAR0=4*MAXEDL) 139C 140CCCCC PARAMETER (KGARB0=4*MAXOBV) 141 PARAMETER (KGARB0=6*MAXOBV) 142C 143C STEP 3--ACTIVATE THE LARGEST OF THE FOLLOWING 4 LINES-- 144C 46*MAXOBV ADDED APRIL 1996 TO ACCOMODATE DDS CODE 145C 146CCCCC PARAMETER (IG2RB0=35*MAXOBV) 147CCCCC PARAMETER (IG2RB0=MAXCMF*MAXOBV) 148 PARAMETER (IG2RB0=46*MAXOBV) 149CCCCC PARAMETER (IG2RB0=13*MAXPOP) 150C 151C STEP 4--ACTIVATE THE LARGER OF THE FOLLOWING 2 LINES-- 152C MODIFIED JUNE 1994 (FROM 3*MAXOBV TO 7*MAXOBV) 153C MODIFIED APRIL 2001 (FROM 7*MAXOBV TO 10*MAXOBV) 154C 155CCCCC PARAMETER (IDGAR0=3*MAXOBV) 156 PARAMETER (IDGAR0=10*MAXOBV) 157CCCCC PARAMETER (IDGAR0=2*MAXPOP) 158C 159C STEP 5--HAVE THE FOLLOWING LINE ACTIVE. 160C 161CCCCC THE FOLLOWING LINE WAS ADDED SEPTEMBER 1992 162 PARAMETER (ICGAR0=MAXEDC) 163C 164C - - - NORMALLY, THE SETTINGS BELOW THIS LINE ARE LEFT UNCHANGED - - 165C 166C-----5. LIST/SAVE/LOOP--------------------------------------------- 167C 168C DEFINE LIST/SAVE/LOOP DIMENSIONS: 169C MAXLIS = THE MAXIMUM NUMBER OF LINES IN LIST/SAVE TABLE 170C MAXLIL = THE MAXIMUM NUMBER OF LINES IN LOOP TABLE 171C MAXLIP = THE MAXIMUM NUMBER OF LINES IN REPLOT TABLE 172C MAXCIS = THE MAXIMUM NUMBER OF COLUMNS IN LIST/SAVE TABLE 173C (CURRENTLY, THIS SHOULD NOT BE GREATER THAN 80) 174C MAXCIL = THE MAXIMUM NUMBER OF COLUMNS IN LOOP TABLE 175C (CURRENTLY, THIS SHOULD NOT BE GREATER THAN 80) 176C MAXLOO = THE MAXIMUM NUMBER OF NESTED LOOPS 177CCCCC ADD FOLLOWING APRIL 1997 178C MAXPM = THE MAXIMUM NUMBER OF PIXMAPS TO SAVE 179C MAXMAC = THE MAXIMUM NUMBER OF NESTED CALLS 180C (IF SET > 10, NEED TO MODIFY INITFO IN 181C DP1.FOR) 182C 183CCCCC THE FOLLOWING LINE WAS CHANGED APRIL 1993 184CCCCC PARAMETER (MAXLIS=50) 185 PARAMETER (MAXLIS=200) 186 PARAMETER (MAXLIP=20) 187 PARAMETER (MAXLOO=20) 188CCCCC SEPTEMBER 2002. INCREASE VALUE OF MAXLIL 189CCCCC FEBRUARY 2014. INCREASE VALUE OF MAXLIL 190CCCCC PARAMETER (MAXLIL=500) 191CCCCC PARAMETER (MAXLIL=1000) 192CCCCC PARAMETER (MAXLIL=2000) 193CCCCC PARAMETER (MAXLIL=5000) 194 PARAMETER (MAXLIL=20000) 195CCCCC PARAMETER (MAXCIS=80) 196CCCCC PARAMETER (MAXCIS=255) 197 PARAMETER (MAXCIS=1024) 198CCCCC PARAMETER (MAXCIL=80) 199CCCCC PARAMETER (MAXCIL=255) 200 PARAMETER (MAXCIL=1024) 201 PARAMETER (MAXPM=200) 202 PARAMETER (MAXMAC=10) 203C 204C-----6. MATRICES--------------------------------------------- 205 206C DEFINE MATRIX DIMENSIONS: 207C MAXROM = THE MAXIMUM NUMBER OF ROWS IN A MATRIX 208C MAXCOM = THE MAXIMUM NUMBER OF COLUMNS IN A MATRIX 209CCCCC JANUARY 1998. USE MAXTOM INSTEAD OF MAXROM AND MAXCOM. 210CCCCC MAXROM, MAXCOM WILL BE MOVED TO DPCODA.INC AND CAN BE 211CCCCC MODIFIED VIA A DIMENSION MATRIX <ROWS/COLUMNS> <VALUE> 212C 213CCCCC THE FOLLOWING 2 LINES WERE CHANGED NOVEMBER 1992 214CCCCC AND THEN MAXROM CHANGED AGAIN JUNE 1993 215CCCCC AUGUST 1993: 6*MAXROM*MAXCOM MUST BE SMALLER THAN IG2RB0 216CCCCC AS DEFINED IN STEP 3. 217CCCCC (USUALLY 46*MAXOBV = 920,0000) 218CCCCC JANUARY 1998: 6*MAXROM*MAXCOM TO 3*MAXROM*MAXCOM (6 TO 3 219CCCCC TEMPORARY MATRICES NOW REQUIRED) 220CCCCC IF YOU WANT TO EXCEED THIS, THEN UNCOMMENT 221CCCCC THE IG2RB0 LINE HERE AND COMMENT OUT THE ONE IN 222CCCCC STEP 3. 223CCCCC JANUARY 1998: MAXTOM=46*MAXOBV/3 224CCCCC JULY 2019: MAXTOM=35*MAXOBV/3 225CC 226CCCCC PARAMETER (MAXROM=20) 227CCCCC PARAMETER (MAXCOM=20) 228CCCCC PARAMETER (MAXROM=100) 229CCCCC PARAMETER (MAXROM=1500) 230CCCCC PARAMETER (MAXROM=3000) 231CCCCC PARAMETER (MAXCOM=100) 232CCCCC PARAMETER (MAXTOM=INT(46.0*REAL(MAXOBV)/3.0)) 233 PARAMETER (MAXTOM=INT(35.0*REAL(MAXOBV)/3.0)) 234CCCCC PARAMETER (IG2RB0=6*MAXROM*MAXCOM) 235C 236C-----7. PLOT CONTROL--------------------------------------------- 237C 238C DEFINE PLOT CONTROL COMPONENT DIMENSIONS: 239C MAXTC = THE MAXIMUM NUMBER OF TIC MARKS ON AN AXIS 240C MAXLG = THE MAXIMUM NUMBER OF LEGENDS 241C MAXBX = THE MAXIMUM NUMBER OF BOXES 242C MAXAR = THE MAXIMUM NUMBER OF ARROWS 243C MAXSG = THE MAXIMUM NUMBER OF SEGMENTS 244C MAXLN = THE MAXIMUM NUMBER OF TRACES 245C MAXCH2 = THE MAXIMUM NUMBER OF CHARACTER TRACES 246C MAXFL = THE MAXIMUM NUMBER FILL 247C MAXPT = THE MAXIMUM NUMBER OF PATTERN 248C MAXSP = THE MAXIMUM NUMBER OF SPIKES 249C MAXBA = THE MAXIMUM NUMBER OF BARS 250C MAXRE = THE MAXIMUM NUMBER OF REGIONS 251C MAXTX = THE MAXIMUM NUMBER FOR TEXT COMMAND 252C MAXTX = THE MAXIMUM NUMBER OF SUBREGIONS 253C MAXGRP = THE MAXIMUM NUMBER OF GROUP LABEL VARIABLES 254C MAXGR2 = THE MAXIMUM NUMBER OF CHARACTERS FOR A GROUP LABEL 255C MAXGLA = THE MAXIMUM NUMBER OF LEVELS FOR A GROUP VARIABLE 256C MAXCNL = THE MAXIMUM NUMBER OF CONTOUR LABELS 257C 258 PARAMETER (MAXTC=100) 259 PARAMETER (MAXLG=100) 260 PARAMETER (MAXBX=100) 261 PARAMETER (MAXAR=100) 262 PARAMETER (MAXSG=100) 263 PARAMETER (MAXLN=100) 264 PARAMETER (MAXCH2=100) 265 PARAMETER (MAXFL=100) 266 PARAMETER (MAXPT=100) 267 PARAMETER (MAXSP=100) 268 PARAMETER (MAXBA=100) 269 PARAMETER (MAXRG=100) 270 PARAMETER (MAXMR=100) 271 PARAMETER (MAXTX=100) 272 PARAMETER (MAXSUB=10) 273CCCCC PARAMETER (MAXGRP=5) 274 PARAMETER (MAXGRP=50) 275 PARAMETER (MAXGR2=40) 276 PARAMETER (MAXGLA=1000) 277 PARAMETER (MAXCNL=100) 278C 279C NOTE--CHANGING THE ABOVE DEFAULTS FROM 100 TO 50 280C SAVE ABOUT 8000 WORDS. 281C THIS CAN BE HELPFUL FOR SYSTEMS SUCH AS CDC 282C NOS THAT HAVE RESTRICTIVE MEMORY REQUIREMENTS. 283C 284C-----8. CHARACTER STRINGS--------------------------------------------- 285C 286C DEFINE CHARACTER STRING SIZES: 287C MAXCH = THE MAXIMUN NUMBER OF CHARACTERS IN A TEXT 288C STRING FOR A LEGEND, TITLE, LABEL, ETC. 289C MAXLG2 = THE MAXIMUN NUMBER OF CHARACTERS IN LEGEND 290C 291C MAXF1 = THE TOTAL NUMBER OF CHARACTERS FOR ALL FUNCTIONS 292C MAXF2 = THE MAXIMUM NUMBER OF FUNCTIONS 293C MAXF3 = THE TOTAL NUMBER OF CHARACTERS PRINTED 294C FOR THE LAST MODEL FITTED 295C 296C MAXSTR = THE MAXIMUM NUMBER OF CHARACTERS IN A STRING 297C (USED TO DIMENSION IANS, IANSLC, ETC.) 298C MAXARG = THE MAXIMUM NUMBER OF COMMAND LINE ARGUMENTS 299C MAXFNC = THE MAXIMUM NUMBER OF CHARACTERS FOR FILE NAMES 300C MAXNME = THE MAXIMUM NUMBER OF NAMES (PARAMETERS, 301C VARIABLES, MATRICES) 302C MAXRCL = THE MAXIMUM NUMBER OF CHARACTERS THAT CAN BE 303C READ FROM A DATA FILE (AS OPPOSSED TO A COMMAND LINE) 304C 305CCCCC THE FOLLOWING LINE WAS CHANGED AUGUST 1992 306CCCCC PARAMETER (MAXCH=130) 307 PARAMETER (MAXCH=200) 308 PARAMETER (MAXLG2=1000) 309C 310CCCCC PARAMETER (MAXF1=1000) 311CCCCC PARAMETER (MAXFN2=100) 312CCCCC PARAMETER (MAXF3=200) 313CCCCC PARAMETER (MAXF1=10000) 314 PARAMETER (MAXF1=50000) 315CCCCC PARAMETER (MAXFN2=200) 316CCCCC PARAMETER (MAXF3=200) 317 PARAMETER (MAXFN2=500) 318 PARAMETER (MAXF3=500) 319C 320CCCCC PARAMETER (MAXSTR=255) 321 PARAMETER (MAXSTR=1024) 322 PARAMETER (MAXARG=200) 323 PARAMETER (MAXFNC=256) 324CCCCC MAY 1997. UP MAXIMUM NUMBER OF NAMES 325CCCCC JANUARY 1998. UP MAXIMUM NUMBER OF NAMES 326CCCCC PARAMETER (MAXNME=500) 327CCCCC PARAMETER (MAXNME=1000) 328CCCCC PARAMETER (MAXNME=2500) 329 PARAMETER (MAXNME=50000) 330 PARAMETER (MAXRCL=9999) 331C 332C NOTE--LENGTH OF A LINE READ IN IS STILL LIMITED TO 80 CHARACTERS 333C SINCE SOME LOCAL VARIABLES ARE STILL HARD-CODED TO 80 334C IN ABOUT A HALF DOZEN ROUTINES 335C 336C-----9. DEVICES--------------------------------------------- 337C 338C DEFINE MAXIMUM NUMBER OF DEVICES: 339C MAXDV = THE MAXIMUM NUMBER OF DEVICES 340C 341 PARAMETER (MAXDV=10) 342C 343