C-----THIS IS COMMON/INCLUDE FILE DPCOSU.INC----- C THIS IS COMMON FOR SUPPORT C C UPDATED--APRIL 1989. CONTINUATION CHARACTERS (ALAN) C UPDATED--JULY 1992. ICOMFL RENAMED ICOMSW C UPDATED--AUGUST 1992. ADDED PARAMETERS FOR VECTOR PLOT (ALAN) C UPDATED--NOVEMBER 1992. ADDED PARAMETER FOR ANDREWS PLOT (ALAN) C UPDATED--MAY 1993. ADD MINMAX C UPDATED--JULY 1993. FRACTAL ITERATIONS, FRACTAL TYPE, C PRINCIPLE COMPONENT TYPE C UPDATED--JANUARY 1994. REMOVE MINMAX TO DPCOS2.INC C UPDATED--JUNE 1994. ADD OPTIMIZATION TOLERANCE C UPDATED--FEBRUARY 1995. ADD OPTIMIZATION METHOD (2 PARAMETERS) C UPDATED--JULY 1995. SWITCH FOR FIT ADDITIVE CONSTANT C UPDATED--AUGUST 1997. 9 RECIPE SWITCHES C UPDATED--APRIL 1998. ADDITIONAL RECIPE SWITCH C UPDATED--APRIL 2001. ADD OPTIONS FOR ORTHOGONAL DISTANCE (ODR) C FIT: C IODRE1(20)= C IODRE2(20)= C IODRD1(20)= C IODRD2(20)= C IODRD3(20)= C IODRD4(20)= C IWEIN1(20)= C IWEIN2(20)= C UPDATED--APRIL 2001. SUPPORT FOR 20 WEIGHT VARIABLES (FOR ODR) C UPDATED--JULY 2001. SUPPORT FOR KERNEL DENSITY ESTIMATES C UPDATED--JUNE 2002. ICAPTY (CAPTURE TYPE: TEXT/HTML/GRAP/ C LATEK) C UPDATED--AUGUST 2002. IATXSW (AUTOTEXT ) C UPDATED--FEBRUARY 2003. NUMRCM (MAXIMUM RECORD LENGTH ) C UPDATED--JANUARY 2004. IFCOLL, IFCOLU (ARRAYS FOR COLUMN LIMITS) C UPDATED--SEPTEMBER 2005. IMACSC (MACRO SUBSTITUTION CHARACTER) C UPDATED--SEPTEMBER 2005. IMACAR (STRINGS TO HOLD MACRO ARGUMENTS) C UPDATED--SEPTEMBER 2005. NMACAG (NUMBER OF ARGUMENTS TO MACRO) C UPDATED--JANUARY 2006. ICAPSC (CAPTURE SCREEN ON/OFF) C C ************************************** C ************************************** C ** DEFINE AND EQUIVALENCE INTEGER ** C ** SUPPORT ** C ** VARIABLES AND ARRAYS ** C ************************************** C ************************************** C DIMENSION ICLOCK(10) DIMENSION IFCOLL(50) DIMENSION IFCOLU(50) C COMMON /ISUPP/I1SUPP(160) C EQUIVALENCE (I1SUPP(1),IDEFBA) EQUIVALENCE (I1SUPP(2),IDEFDG) EQUIVALENCE (I1SUPP(3),IDEFC1) EQUIVALENCE (I1SUPP(4),IDEFC2) EQUIVALENCE (I1SUPP(5),IDEFNI) EQUIVALENCE (I1SUPP(6),IDEFR1) EQUIVALENCE (I1SUPP(7),IDEFR2) EQUIVALENCE (I1SUPP(8),IDEFSK) CCCCC FOLLOWING 3 LINES SEPTEMBER 1997 EQUIVALENCE (I1SUPP(9),IDEFR7) EQUIVALENCE (I1SUPP(10),IDEFR8) EQUIVALENCE (I1SUPP(11),IDEFR9) CCCCC THE FOLLOWING LINE WAS ADDED JULY 2001 EQUIVALENCE (I1SUPP(12),IDEFKN) CCCCC THE FOLLOWING LINE WAS ADDED FEBRUARY 2003 EQUIVALENCE (I1SUPP(13),IDEFRL) C EQUIVALENCE (I1SUPP(21),IBAUD) EQUIVALENCE (I1SUPP(22),IDEG) EQUIVALENCE (I1SUPP(23),IFCOL1) EQUIVALENCE (I1SUPP(24),IFCOL2) EQUIVALENCE (I1SUPP(25),IFITIT) EQUIVALENCE (I1SUPP(26),IFROW1) EQUIVALENCE (I1SUPP(27),IFROW2) EQUIVALENCE (I1SUPP(28),ISKIP) CCCCC FOLLOWING 3 LINES SEPTEMBER 1997 EQUIVALENCE (I1SUPP(29),IRECR1) EQUIVALENCE (I1SUPP(30),IRECR2) EQUIVALENCE (I1SUPP(31),IRECC1) C CCCCC THE FOLLOWING LINE WAS ADDED MAY 1993 CCCCC THE FOLLOWING LINE WAS COMMENTED OUT JANUARY 1994 CCCCC EQUIVALENCE (I1SUPP(31),MINMAX) CCCCC THE FOLLOWING LINE WAS ADDED JULY 1993 EQUIVALENCE (I1SUPP(32),IFRAIT) EQUIVALENCE (I1SUPP(33),NMACAG) C EQUIVALENCE (I1SUPP(41),ICLOCK(1)) CCCCC THE FOLLOWING LINE WAS ADDED JULY 2001 EQUIVALENCE (I1SUPP(51),IKDENP) CCCCC THE FOLLOWING LINE WAS ADDED FEBRUARY 2003 EQUIVALENCE (I1SUPP(52),NUMRCM) EQUIVALENCE (I1SUPP(61),IFCOLL) EQUIVALENCE (I1SUPP(111),IFCOLU) C C **************************************** C **************************************** C ** DEFINE AND EQUIVALENCE CHARACTER ** C ** SUPPORT ** C ** VARIABLES AND ARRAYS ** C **************************************** C **************************************** C CHARACTER*4 IDEFHO CHARACTER*4 IDEANU CHARACTER*4 IDEFK1 CHARACTER*4 IDEFK2 CHARACTER*4 IDEFPR CHARACTER*4 IDEFTC CHARACTER*4 IDEFW1 CHARACTER*4 IDEFW2 CCCCC FOLLOWING LINE ADDED JULY 2001 CHARACTER*4 IDEFKF C CHARACTER*4 IANGLU CHARACTER*4 IECHO CHARACTER*4 IHARDE CHARACTER*4 IKNOTS CHARACTER*4 IKNOT1 CHARACTER*4 IKNOT2 CHARACTER*4 IPREC CHARACTER*4 IPREER CHARACTER*4 IPRIN2 CHARACTER*4 ITERCH CHARACTER*4 ISUBMS CHARACTER*4 IWEIGH CHARACTER*4 IWEIG1 CHARACTER*4 IWEIG2 CHARACTER*4 IHMXPR CHARACTER*4 IFEED2 CCCCC FOLLOWING 4 LINES ADDED FEBRUARY 1995. CHARACTER*4 IOPTME CHARACTER*4 IOPTHE CHARACTER*4 IDEFOM CHARACTER*4 IDEFHS CCCCC THE FOLLOWING LINE (RECIPE SATTERWAITE APPROXIMATION) AUGUST 1997 CHARACTER*4 IDEFSA CCCCC THE FOLLOWING LINE (RECIPE OUTPUT) AUGUST 1997 CHARACTER*8 IDEFTN C CCCCC THE FOLLOWING LINE (FIT ADDITIVE CONSTANT) JULY 1995 CCCCC WAS ADDED JULY 1995 CHARACTER*4 IFITAC C CCCCC THE FOLLOWING 2 LINES (RECIPE SATTERWAITE APPROXIMATION) AUGUST 1997 CHARACTER*4 IRECSA CHARACTER*8 IRECTN CCCCC THE FOLLOWING LINE JULY 2001 CHARACTER*4 IKDETY CCCCC THE FOLLOWING LINE JUNE 2002 CHARACTER*4 ICAPTY CCCCC THE FOLLOWING LINE AUGUST 2002 CHARACTER*4 IATXSW CCCCC THE FOLLOWING LINE JANUARY 2006 CHARACTER*4 ICAPSC C CCCCC THE FOLLOWING 4 LINES (ORTHOGONAL DISTANCE FIT OPTIONS) APRIL 2001 CHARACTER*4 IODRE1 CHARACTER*4 IODRE2 CHARACTER*4 IODRD1 CHARACTER*4 IODRD2 CHARACTER*4 IODRD3 CHARACTER*4 IODRD4 CHARACTER*4 IWEIN1 CHARACTER*4 IWEIN2 CHARACTER*4 IHOST C CHARACTER*4 IH1SUP C DIMENSION IDEFHO(10) DIMENSION IHOST(10) DIMENSION IODRD1(20) DIMENSION IODRD2(20) DIMENSION IODRD3(20) DIMENSION IODRD4(20) DIMENSION IODRE1(20) DIMENSION IODRE2(20) DIMENSION IWEIN1(20) DIMENSION IWEIN2(20) C CCCCC APRIL 2001: UP SIZE FROM 70 TO 110 COMMON /IHSUPP/IH1SUP(250) C EQUIVALENCE (IH1SUP(1) ,IDEFHO(1)) EQUIVALENCE (IH1SUP(11),IDEANU) EQUIVALENCE (IH1SUP(12),IDEFK1) EQUIVALENCE (IH1SUP(13),IDEFK2) EQUIVALENCE (IH1SUP(14),IDEFPR) EQUIVALENCE (IH1SUP(15),IDEFTC) EQUIVALENCE (IH1SUP(16),IDEFW1) EQUIVALENCE (IH1SUP(17),IDEFW2) CCCCC FEBRUARY 1995. ADD FOLLOWING LINE EQUIVALENCE (IH1SUP(18),IDEFOM) EQUIVALENCE (IH1SUP(19),IDEFHS) CCCCC AUGUST 1997. ADD FOLLOWING LINE EQUIVALENCE (IH1SUP(20),IDEFSA) EQUIVALENCE (IH1SUP(21),IDEFTN) CCCCC JULY 2001. ADD FOLLOWING LINE EQUIVALENCE (IH1SUP(22),IDEFKF) C EQUIVALENCE (IH1SUP(31),IANGLU) EQUIVALENCE (IH1SUP(32),IECHO) EQUIVALENCE (IH1SUP(33),IHARDE) EQUIVALENCE (IH1SUP(34),IKNOTS) EQUIVALENCE (IH1SUP(35),IKNOT1) EQUIVALENCE (IH1SUP(36),IKNOT2) EQUIVALENCE (IH1SUP(37),IPREC) EQUIVALENCE (IH1SUP(38),IPREER) EQUIVALENCE (IH1SUP(39),IPRIN2) EQUIVALENCE (IH1SUP(40),ITERCH) EQUIVALENCE (IH1SUP(41),ISUBMS) EQUIVALENCE (IH1SUP(42),IWEIGH) EQUIVALENCE (IH1SUP(43),IWEIG1) EQUIVALENCE (IH1SUP(44),IWEIG2) EQUIVALENCE (IH1SUP(45),IHMXPR) EQUIVALENCE (IH1SUP(46),IFEED2) CCCCC FOLLOWING 2 LINES ADDED FEBRUARY 1995. EQUIVALENCE (IH1SUP(47),IOPTME) EQUIVALENCE (IH1SUP(48),IOPTHE) EQUIVALENCE (IH1SUP(49),IFITAC) CCCCC FOLLOWING 2 LINES ADDED AUGUST 1997. EQUIVALENCE (IH1SUP(50),IRECSA) EQUIVALENCE (IH1SUP(51),IRECTN) CCCCC FOLLOWING LINE ADDED JULY 2001. EQUIVALENCE (IH1SUP(56),IKDETY) CCCCC FOLLOWING LINE ADDED JUNE 2002. EQUIVALENCE (IH1SUP(57),ICAPTY) EQUIVALENCE (IH1SUP(58),IATXSW) EQUIVALENCE (IH1SUP(59),ICAPSC) C EQUIVALENCE (IH1SUP(61) ,IHOST(1)) CCCCC FOLLOWING BLOCK ADDED APRIL 2001 EQUIVALENCE (IH1SUP(71) ,IODRD1(1)) EQUIVALENCE (IH1SUP(91) ,IODRD2(1)) EQUIVALENCE (IH1SUP(111) ,IODRD3(1)) EQUIVALENCE (IH1SUP(131) ,IODRD4(1)) EQUIVALENCE (IH1SUP(151) ,IODRE1(1)) EQUIVALENCE (IH1SUP(171) ,IODRE2(1)) EQUIVALENCE (IH1SUP(191) ,IWEIN1(1)) EQUIVALENCE (IH1SUP(211) ,IWEIN2(1)) C CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN APRIL 1989 CCCCC FOR THE (LINE) CONTINUATION CHARACTERS. APRIL 1989 CCCCC ADD MACRO SUBSTITUTION CHARACTER SEPTEMBER 2005 C CHARACTER*4 ICONCH CHARACTER*4 IDEFCC CHARACTER*4 IMACSC CHARACTER*4 IDEFMS COMMON/IHSUP2/ICONCH,IDEFCC,IMACSC,IDEFMS CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN MAY 1990 CCCCC FOR THE COMMENT CHARACTER AND COMMENT CHECK FLAG. MAY, 1990. C CHARACTER*4 ICOMCH CHARACTER*4 IDEFCZ CHARACTER*4 ICOMSW COMMON/IHSUP3/ICOMCH,IDEFCZ,ICOMSW CCCCC THE FOLLOWING CHUNK WAS ADDED BY ALAN AUGUST 1992. CCCCC FOR THE VECTOR FORMAT, VECTOR ARROW COMMAND C CHARACTER*4 IVCFMT CHARACTER*4 IVCARR CHARACTER*4 IVCOPN CHARACTER*4 IDEFVF CHARACTER*4 IDEFVA CHARACTER*4 IDEFVO CCCCC JULY 1993. FOLLOWING LINES ADDED BY ALAN CCCCC FOR FRACTAL TYPE AND PRINCIPLE COMPONENT TYPE. CHARACTER*4 IFRATY CHARACTER*4 IPCMTY CHARACTER*4 IDEFFT CHARACTER*4 IDEFPT C COMMON/IHSUP4/IVCFMT,IDEFVF,IVCARR,IDEFVA,IVCOPN,IDEFVO, 1 IFRATY,IDEFFT,IPCMTY,IDEFPT C CHARACTER*40 IMACAR(10) COMMON/IHSUP5/IMACAR C C ******************************************************** C ******************************************************** C ** DEFINE AND EQUIVALENCE REAL (SINGLE PRECISION FLOATI C ** SUPPORT C ** VARIABLES AND ARRAYS C ******************************************************** C ******************************************************** C DIMENSION CLLIMI(4) DIMENSION CLWIDT(2) C COMMON /RSUPP/R1SUPP(60) C EQUIVALENCE (R1SUPP(1) ,DEFANG) EQUIVALENCE (R1SUPP(2) ,DEFFSD) EQUIVALENCE (R1SUPP(3) ,DEFFPW) EQUIVALENCE (R1SUPP(4) ,DEFERD) EQUIVALENCE (R1SUPP(5) ,DEFDMF) EQUIVALENCE (R1SUPP(6) ,DEFHAD) EQUIVALENCE (R1SUPP(7) ,DEFCSZ) EQUIVALENCE (R1SUPP(8) ,DEFFW) EQUIVALENCE (R1SUPP(9) ,DEFRAC) CCCCC FOLLOWING LINE ADDED NOVEMBER 1992 EQUIVALENCE (R1SUPP(10), DEFAIN) CCCCC FOLLOWING LINE ADDED JUNE 19941992 EQUIVALENCE (R1SUPP(11) ,DEFOAC) CCCCC FOLLOWING 4 LINES ADDED AUGUST 1997 EQUIVALENCE (R1SUPP(12) ,DEFRPC) EQUIVALENCE (R1SUPP(13) ,DEFRCO) EQUIVALENCE (R1SUPP(14) ,DEFRDG) EQUIVALENCE (R1SUPP(15) ,DEFRFA) CCCCC FOLLOWING LINE ADDED APRIL 1998 EQUIVALENCE (R1SUPP(16) ,DEFRFF) CCCCC FOLLOWING LINE ADDED JULY 2001 EQUIVALENCE (R1SUPP(17) ,DEFKWI) C EQUIVALENCE (R1SUPP(21),ANGLE) EQUIVALENCE (R1SUPP(22),DEMOFR) EQUIVALENCE (R1SUPP(23),ERASDE) EQUIVALENCE (R1SUPP(24),FITSD) EQUIVALENCE (R1SUPP(25),FITPOW) EQUIVALENCE (R1SUPP(26),HARDDE) EQUIVALENCE (R1SUPP(27),ACURSZ) EQUIVALENCE (R1SUPP(28),FILWID) EQUIVALENCE (R1SUPP(29),ROOTAC) CCCCC FOLLOWING LINE ADDED NOVEMBER 1992 EQUIVALENCE (R1SUPP(30),ANDINC) CCCCC FOLLOWING LINE ADDED JUNE 1994 EQUIVALENCE (R1SUPP(31),OPTACC) CCCCC FOLLOWING 4 LINES ADDED AUGUST 1997 EQUIVALENCE (R1SUPP(32),RECIPC) EQUIVALENCE (R1SUPP(33),RECICO) EQUIVALENCE (R1SUPP(34),RECIDG) EQUIVALENCE (R1SUPP(35),RECIFA) CCCCC FOLLOWING LINE ADDED APRIL 1998 EQUIVALENCE (R1SUPP(36),RECIFF) CCCCC FOLLOWING LINE ADDED APRIL 2001 EQUIVALENCE (R1SUPP(37),PODRDV) C EQUIVALENCE (R1SUPP(41) ,CLLIMI(1)) EQUIVALENCE (R1SUPP(51) ,CLWIDT(1)) CCCCC FOLLOWING LINE ADDED JULY 2001 EQUIVALENCE (R1SUPP(56) ,PKDEWI)