C-----THIS IS COMMON/INCLUDE FILE DPCOST.INC----- C THIS IS COMMON FOR (NEW) COMMANDS UNDER SET & PROBE C UPDATED--FEBRUARY 1998. ADD IPRNTR C UPDATED--APRIL 1997. ADD ICCHPR C UPDATED--APRIL 1997. ADD INETSW C UPDATED--APRIL 1997. ADD ICCHWT C UPDATED--MAY 1998. ADD IKAPSW C UPDATED--MAY 1998. ADD ICENTY C UPDATED--JUNE 1998. ADD IMATSC C UPDATED--SEPTEMBER 1998. ADD IPPTBI, IQQPBI C UPDATED--NOVEMBER 1998. ADD IRHSTG C UPDATED--JULY 1999. ADD IAUTCP C UPDATED--SEPTEMBER/OCT 1999. ADD SCATTER PLOT MATRIX, FACTOR PLOT C CONDITION PLOT OPTIONS C UPDATED--NOVEMBER 1999. ADD IEXPPA C UPDATED--DECEMBER 1999. ADD IVNMEX C UPDATED--JANUARY 2000. ADD ICTBDI C UPDATED--JANUARY 2000. ADD ISORDI C UPDATED--FEBRUARY 2000. ADD IDCPDI, IDCPFI C UPDATED--OCTOBER 2000. ADD IMANPA C UPDATED--MARCH 2001. ADD ISTALO C UPDATED--MARCH 2001. ADD ISTASC C UPDATED--MARCH 2001. ADD PSUPXS C UPDATED--MARCH 2001. ADD PSUPYS C UPDATED--APRIL 2001. ADD PODRTF, PODRST, PODRPT, IODRPO C UPDATED--MARCH 2002. ADD IBXPWI C UPDATED--MARCH 2002. ADD I4PLMC C UPDATED--MARCH 2002. ADD I6PLMC C UPDATED--MAY 2002. ADD IRANAL C UPDATED--JUNE 2002. ADD INUMCP C UPDATED--JUNE 2002. ADD ICAPLI, ICAPBX, ICAPNM C UPDATED--JULY 2002. ADD IQUAME, IQUASE C UPDATED--JULY 2002. ADD ICOVTY, ICORTY C UPDATED--JULY 2002. ADD IFILQU C UPDATED--JULY 2002. ADD IBOOME C UPDATED--NOVEMBER 2002. ADD IQWNSY C UPDATED--NOVEMBER 2002. ADD IPRNGS C UPDATED--NOVEMBER 2002. ADD IGSVPA, NCGSPA C UPDATED--JANUARY 2003. ADD IPSTBB C UPDATED--JANUARY 2003. ADD IGSTPA, NCGHPA C UPDATED--JANUARY 2003. ADD IPSTDV C UPDATED--JANUARY 2003. ADD IHTMHE, NCHTMH C UPDATED--JANUARY 2003. ADD IHTMFO, NCHTMF C UPDATED--FEBRUARY 2003. ADD IAUTL0 C UPDATED--MARCH 2003. ADD IPCCST C UPDATED--MARCH 2003. ADD IBOOGR C UPDATED--MAY 2003. ADD IMVNTY C UPDATED--SEPTEMBER 2003. ADD ITABTI C UPDATED--SEPTEMBER 2003. ADD ITABBR C UPDATED--SEPTEMBER 2003. ADD ITABSP C UPDATED--SEPTEMBER 2003. ADD ITABWD C UPDATED--SEPTEMBER 2003. ADD ITABHT C UPDATED--SEPTEMBER 2003. ADD ILATHE, NCLATH C UPDATED--SEPTEMBER 2003. ADD ILATFO, NCLATF C UPDATED--JANUARY 2004. ADD IVARLA, IGRPAU C UPDATED--JANUARY 2004. ADD IREAMV, IREADL C UPDATED--MARCH 2004. ADD IGEODF C UPDATED--MARCH 2004. ADD IPPCCC C UPDATED--MARCH 2004. ADD IHYPTY C UPDATED--MAY 2004. ADD IPPCFO C UPDATED--JUNE 2004. ADD IPSTDC C UPDATED--JUNE 2004. ADD IADEDF C UPDATED--JUNE 2004. ADD IGEPDF C UPDATED--JULY 2004. ADD IMAKDF C UPDATED--SEPTEMBER 2004. ADD IBEIDF C UPDATED--SEPTEMBER 2004. ADD IPPLDP C UPDATED--SEPTEMBER 2004. ADD IPPCDP C UPDATED--SEPTEMBER 2004. ADD IPPCAP C UPDATED--SEPTEMBER 2004. ADD IPPCAO C UPDATED--SEPTEMBER 2004. ADD IHSTCW C UPDATED--SEPTEMBER 2004. ADD IASHWT C UPDATED--OCTOBER 2004. ADD IREAPD C UPDATED--OCTOBER 2004. ADD IREASB C UPDATED--OCTOBER 2004. ADD IPPLCN C UPDATED--OCTOBER 2004. ADD IPPCCN C UPDATED--OCTOBER 2004. ADD IQUAVR C UPDATED--OCTOBER 2004. ADD IEXPBC C UPDATED--NOVEMBER 2004. ADD IWEIBC C UPDATED--NOVEMBER 2004. ADD IGUMBC C UPDATED--NOVEMBER 2004. ADD ICORDI, ICOVDI C UPDATED--DECEMBER 2004. ADD IGUIFL C UPDATED--DECEMBER 2004. ADD IRELVR C UPDATED--FEBRAUARY 2005. ADD IBOOPA C UPDATED--FEBRUARY 2005. ADD IRTFPS C UPDATED--FEBRUARY 2005. ADD IRTFFF, NCRTF1, IRTFFP, NCRTF2 C UPDATED--FEBRUARY 2005. ADD IEXPDI C UPDATED--MARCH 2005. ADD ILPRCO C UPDATED--APRIL 2005. ADD IDECPT C UPDATED--APRIL 2005. ADD IPOTPT C UPDATED--APRIL 2005. ADD IPOTME C UPDATED--APRIL 2005. ADD IPOTNP C UPDATED--APRIL 2005. ADD IPOTIT C UPDATED--APRIL 2005. ADD PPOTIN C UPDATED--APRIL 2005. ADD PPOTTH C UPDATED--APRIL 2005. ADD PPOTPE C UPDATED--APRIL 2005. ADD PPOTTO C UPDATED--APRIL 2005. ADD IPOTLF C UPDATED--APRIL 2005. ADD IPOTAX C UPDATED--MAY 2005. ADD IFREBC C UPDATED--MAY 2005. ADD IGRU1S C UPDATED--JULY 2005. ADD ILGADF C UPDATED--JULY 2005. ADD ISKNDF C UPDATED--OCTOBER 2005. ADD IGEPSV C UPDATED--FEBRUARY 2006. ADD IGLDDF C UPDATED--FEBRUARY 2006. ADD IZCHFI C UPDATED--MARCH 2006. ADD ITMPFI C UPDATED--MAY 2006. ADD IPPCBW C UPDATED--MAY 2006. ADD IBGEDF C UPDATED--JUNE 2006. ADD IFORFM C UPDATED--JUNE 2006. ADD IMPACM C UPDATED--JUNE 2006. ADD IMMPCM C UPDATED--JUNE 2006. ADD IVRUCM C UPDATED--JUNE 2006. ADD IBOBCM C UPDATED--JUNE 2006. ADD ISCECM C UPDATED--JUNE 2006. ADD IMOMCM C UPDATED--JUNE 2006. ADD IGRDCM C UPDATED--JUNE 2006. ADD IGMECM C UPDATED--JUNE 2006. ADD IGCICM C UPDATED--JUNE 2006. ADD IDSLCM C UPDATED--JULY 2006. ADD IGETDF C UPDATED--JULY 2006. ADD PCHSLM C UPDATED--AUGUST 2006. ADD ICONDF C UPDATED--OCTOBER 2006. ADD I4PLDI C UPDATED--OCTOBER 2006. ADD PMAXLO C C IJUSSW - FOR METAFILES, DETERMINE WHETHER JUSTIFICATION DONE BY C DATAPLOT OR BY THE POST-PROCESSOR C IRFLSW - FOR METAFILES, DETERMINE WHETHER REGION FILLS DONE BY C DATAPLOT MOVE AND DRAW OR DONE BY POST-PROCESSOR C IFNTSW - FOR METAFILES, ARE SOFTWARE FONTS DRAWN BY DATAPLOT OR C BY POST-PROCESSOR C IPTHSW - FOR METAFILES, IS LINE THICKNESS IMPLEMENTED BY DATAPLOT OR C BY POST-PROCESSOR C PPENSW - LINE WIDTH TO BE USED FOR METAFILES IF DATAPLOT DOES THE C REGION FILLS OR LINE THICKNESS C IORNSW - FOR THOSE DEVICES SUPPORTING BOTH A LANDSCAPE AND A PORTRAIT C ICCHPR - CONTROL CHART FOR SETTING CONTROL CHART C LIMITS FROM CURRENT DATA OR FROM USER SPECIFIED C TARGET AND SIGMAE. C NOTE: NOT USED. C INETSW - IF NEW, OPEN A NEW NETSCAPE WINDOW FOR WEB HELP. IF OLD, C USE THE -remote OPTION TO SPECIFY A PREVIOUSLY OPENED C NETSCAPE OPTION. C ICCHWT - CONTROL CHART WEIGHTING
FOR SPECIFYING C WHETHER WEIGHTING FOR EWMA AND MOVING AVERAGE CONTROL C CHARTS ARE CENTERED (I.E, X(I-1), X(I), X(I+1)) OR C ALL PREVIOUS VALUES (I.E., X(I-2), X(I-1), X(I)). C IKAPSW - KAPLAN-MEIER , RELI PLOTS THE RELIABILITY C FUNCTION, CDF PLOTS THE CDF. C ICENTY - SET CENSORING C IMATSC - SET MATRIX SCALE C IPPTBI - SET PERCENT POINT PLOT C IQQPBI - SET QUANTILE-QUANTILE PLOT C IAUTCP - SET AUTOCORRELATION BAND PLOT C IEXPPA - SET PARAMETER EXPAND C IVNMEX - SET VARIABLE LABEL EXPAND C ICTBDI - SET CROS TABULATE DIMENSION <1/2> C ISORDI - SET SORT DIRECTION C C ISPMLA - SET SCATTER PLOT MATRIX LABELS C ISPMDI - SET SCATTER PLOT MATRIX DIAGONAL C ISPMFI - SET SCATTER PLOT MATRIX FIT C ISPMLD - SET SCATTER PLOT MATRIX LOWER DIAGONAL C ISPMTA - SET SCATTER PLOT MATRIX TAG C ISPMPT - SET SCATTER PLOT MATRIX PLOT TYPE C ISPMFR - SET SCATTER PLOT MATRIX FRAME C ISPMST - SET SCATTER PLOT MATRIX STATISTTIC TYPE C ISPMS2 - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR) C ISPMCR - SET SCATTER PLOT MATRIX CORRELATION C C ICPLLA - SET CONDITIONING PLOT LABELS C ICPLFI - SET CONDITIONING PLOT FIT C ICPLLD - SET CONDITIONING PLOT LOWER DIAGONAL C (CURRENTLY NOT USED) C ICPLTA - SET CONDITIONING PLOT TAG C ICPLPT - SET CONDITIONING PLOT PLOT TYPE C (CURRENTLY NOT USED) C ICPLFR - SET CONDITIONING PLOT FRAME C ICPLPS - SET CONDITIONING PLOT PRE-SORT C ICPLST - SET CONDITIONING PLOT STATISTTIC TYPE C ICPLS2 - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR) C ICPLCR - SET CONDITIONING PLOT CORRELATION C IFPLLA - SET FACTOR PLOT LABELS C IFPLFI - SET FACTOR PLOT FIT C IFPLLD - SET FACTOR PLOT LOWER DIAGONAL C (CURRENTLY NOT USED) C IFPLTA - SET FACTOR PLOT TAG C IFPLPT - SET FACTOR PLOT PLOT TYPE C (CURRENTLY NOT USED) C IFPLFR - SET FACTOR PLOT FRAME C IFPLPS - SET FACTOR PLOT PRE-SORT C IFPLST - SET FACTOR PLOT STATISTTIC TYPE C IFPLS2 - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR) C IFPLCR - SET FACTOR PLOT CORRELATION C IFPLRV - SET FACTOR PLOT RESPONSE VARIABLES C IDCPDI - SET DEX CONTOUR PLOT C IDCPFI - SET DEX CONTOUR PLOT C IMANPA - SET MANDEL PAULE C (NOTE THIS NOT USED AS CONSENSUS MEAN COMMAND ACTUALLY C COMPUTES BOTH AUTOMATICALLY) C ISTALO - SET LOCATION STATISTIC C ISTASC - SET SCALE STATISTIC C PSUPXS - SET HORIZONTAL SCALE FACTOR FOR SUPER/SUB/SCRIPTS C PSUPYS - SET VERTICAL SCALE FACTOR FOR SUPER/SUB/SCRIPTS C PODRTF - SET ORTHOGONAL DISTANCE TRUST REGION RADIUS C PODRST - SET ORTHOGONAL DISTANCE STOP TOLERANCE C PODRPT - SET ORTHOGONAL DISTANCE PARAMETER TOLERANCE C IODRPO - SET ORTHOGONAL DISTANCE PRINT OPTION C IBXPWI - SET BOX PLOT WIDTH C I4PLMC - SET 4-PLOT MULTIPLOT C I6PLMC - SET 6-PLOT MULTIPLOT C IRANAL - SET RANDOM NUMBER GENERATOR C INUMCP - SET NUMBER OF CP C ICAPLI - SET CAPTURE LINES ... C ICAPBX - SET CAPTURE BOX C ICAPNM - SET CAPTURE NUMBER C IQUAME - SET QUANTILE METHOD C IQUASE - SET QUANTILE STANDARD ERROR METHOD C ICOVTY - SET COVARIANCE TYPE C ICORTY - SET CORRELATION TYPE C IFILQU - SET FILE NAME QUOTE C IBOOME - SET BOOTSTRAP FIT METHOD C IQWNSY - SET QWIN SYSTEM C IPRNGS - SET GHOSTVIEW PRINTER C IGSVPA - SET GHOSTVIEW PATH C IGSTPA - SET GHOSTSCRIPT PATH C IPSTBB - SET POSTSCRIPT BOUNDING BOX C IPSTDV - SET POSTSCRIPT CONVERT C IHTMHE - SET HTML HEADER FILE C IHTMFO - SET HTML FOOTER FILE C IAUTL0 - SET AUTOCORRELATION LAG ZERO C IPCCST - SET PARALLEL COORDINATES PLOT STANDARDIZE C IBOOGR - SET BOOTSTRAP GROUPS C IMVNTY - SET MULTIVARIATE NORMAL C ITABTI - SET TABLE TITLE C ITABBR - SET TABLE BORDER C ITABSP - SET TABLE SPACING C ITABWD - SET TABLE WIDTH C ILATHE - SET LATEX HEADER FILE C ILATFO - SET LATEX FOOTER FILE C IVARLA - SET READ VARIABLE LABEL C IGRPAU - SET CONVERT CHARACTER C PREAMV - SET READ MISSING VALUE C IREADL - SET READ DELIMITER C IGEODF - SET GEOMETRIC DEFINITION C IPPCCC - SET PPCC PLOT C IHYPTY - SET HYPERGEOMETRIC MAXIMUM LIKELIHOOD C C IPPCFO - SET PPCC FORMAT C IPSTDC - SET POSTSCRIPT COLOR DEFAULT C IADEDF - SET ASYMMETRIC LAPLACE DEFINITION C IGEPDF - SET GENERALIZED PARETO DEFINITION C IMAKDF - SET GOMPERTZ MAKEHAM DEFINITION C IBEIDF - SET BESSEL I FUNCTION DEFINITION <1/2> C IBEKDF - SET BESSEL K FUNCTION DEFINITION <1/2> C IPPLDP - SET PROBABILITY PLOT DATA POINTS C IPPCDP - SET PPCC PLOT DATA POINTS C IPPCAP - SET PPCC PLOT HORIZONTAL AXIS POINTS C IPPCAO - SET PPCC PLOT AXIS ORDER C IHSTCW - SET HISTOGRAM CLASS WIDTH C IASHWT - SET ASH WEIGHTING C IREAPD - SET READ PAD MISSING COLUMNS C IREASB - SET READ SUBSET C IPPLCN - SET CENSORED PROBABILITY PLOT C C IPPCCN - SET CENSORED PPCC PLOT C C IQUAVR - SET MAXIMUM LIKELIHOOD PERCENTILES C IEXPBC - SET EXPONENTIAL BIAS CORECCTED C IWEIBC - SET WEIBULL BIAS CORECCTED C IGUMBC - SET GUMBEL BIAS CORECCTED C ICORDI - SET MATRIX CORRELATION DIRECTION C ICOVDI - SET MATRIX COVARIANCE DIRECTION C IGUIFL - SET GUI C IRELVR - SET MAXIMUM LIKELIHOOD RELIABILITY C IBOOPA - SET DISTRIBUTIONAL BOOTSTRAP C IRTFPS - SET RTF POINT SIZE C IRTFFF - SET RTF FIXED FONT C IRTFFP - SET RTF PROPORTIONAL FONT C IEXPDI - SET PARAMETER EXPAND DIGITS C ILPRCO - SET LINE PRINTER COLUMNS <80/130> C IDECPT - SET DECIMAL POINT C IPOTME - SET PEAKS OVER THRESHOLD METHOD C IPOTDI - SET PEAKS OVER THRESHOLD DISTRIBUTION C IPOTIT - SET PEAKS OVER THRESHOLD ITERATIONS C IPOTNP - SET PEAKS OVER THRESHOLD INITIAL POINTS C PPOTTH - SET PEAKS OVER THRESHOLD INITIAL THRESHOLD C PPOTIN - SET PEAKS OVER THRESHOLD INCREMENT C PPOTPE - SET PEAKS OVER THRESHOLD PERIOD C PPOTTO - SET PEAKS OVER THRESHOLD TOLERANCE C IPOTLF - SET PEAKS OVER THRESHOLD LOAD FACTOR C IPOTAX - SET PEAKS OVER THRESHOLD X AXIS C IFREBC - SET FRECHET BIAS CORECCTED C IGRU1S - SET GRUBBS TEST ONE SIDED C ILGADF - SET LOG GAMMA DEFINITION C ISKNDF - SET SKEW NORMAL DEFINITION C IGEPSV - SET GENERALIZED PARETO ML STARTING VALUES C C IGLDDF - SET GENERALIZED TUKEY LAMBDA DEFINITION C IZCHFI - SET CHARACTER FILE NAME C ITMPFI - SET LOCAL FILES C IPPCBW - SET PPCC PLOT LOCATION SCALE C IBGEDF - SET BETA GEOMETRIC DEFINITION C IFORFM - SET FORTRAN FORMAT CONTROL C IMPACM - SET MANDEL-PAULE C IMMPCM - SET MODIFIED MANDEL-PAULE C IVRUCM - SET VANGEL RUHKIN C IBOBCM - SET BOB C ISCECM - SET SCHILLER-EBERHARDT C IMOMCM - SET METHOD OF MEANS C IGRDCM - SET GRAYBILL DEAL C IGMECM - SET GRAND MEANS C IGCICM - SET GENERALIZED CONFIDENCE INTERVALS C IDSLCM - SET DERSIMONIAN LAIRD C IFAICM - SET FAIRWEATHER C IGETDF - SET GEETA DEFINITION C PCHSLM - SET CHISQUARE LIMIT C ICONDF - SET CONSUL DEFINITION C I4PLDI - SET 4PLOT DISTRIBUTION C PMAXLO - SET MAXWELL LOCATION C PARAMETER(MAXMPL=25) C CHARACTER*4 IJUSSW CHARACTER*4 IRFLSW CHARACTER*4 IPTHSW CHARACTER*4 IFNTSW CHARACTER*4 IORNSW CHARACTER*4 ICCHPR COMMON/CSET/ 1IJUSSW,IRFLSW,IPTHSW,IFNTSW,IORNSW,ICCHPR C CHARACTER*4 INETSW COMMON/CSET2/ 1INETSW C CHARACTER*4 ICCHWT COMMON/CSET3/ 1ICCHWT C CHARACTER*40 IPRNTR COMMON/CSET4/ 1IPRNTR C COMMON/ISET1/ 1NCPRNT,INUMCP PARAMETER(MAXCLI=5) COMMON/ISET2/ 1ICAPLI(MAXCLI) COMMON/ISET3/ 1NCGSPA,NCGHPA,NCHTMH,NCHTMF,NCLATH,NCLATF COMMON/ISET4/ 1ITABSP,ITABWD,ITABHT,NCTABT COMMON/ISET5/ 1IRTFPS,IEXPDI,NCRTF1,NCRTF2,ILPRCO,IPOTNP,IPOTIT C INTEGER IPPCAP(2) COMMON/ISET5/ 1IPPLDP,IPPCDP,IPPCAP C CHARACTER*4 IKAPSW COMMON/CSET5/ 1IKAPSW C CHARACTER*4 ICENTY COMMON/CSET6/ 1ICENTY C CHARACTER*4 IMATSC COMMON/CSET7/ 1IMATSC C CHARACTER*4 IPPTBI CHARACTER*4 IQQPBI COMMON/CSET8/ 1IPPTBI,IQQPBI C CHARACTER*4 IAUTCP CHARACTER*4 IAUTL0 CHARACTER*4 IPCCST CHARACTER*4 IBOOGR CHARACTER*4 IMVNTY COMMON/CSET8/ 1IAUTCP,IAUTL0,IPCCST,IBOOGR,IMVNTY C CHARACTER*4 IRHSTG CHARACTER*4 IEXPPA CHARACTER*4 IVNMEX CHARACTER*4 ICTBDI CHARACTER*4 ISORDI CHARACTER*4 IDCPDI CHARACTER*4 IDCPFI CHARACTER*4 IMANPA CHARACTER*4 ISTALO CHARACTER*4 ISTASC CHARACTER*4 IODRPO COMMON/CSET9/ 1IRHSTG,IEXPPA,IVNMEX,ICTBDI,ISORDI, 1IDCPDI,IDCPFI,IMANPA,ISTALO,ISTASC, 1ISUPXS,ISUPYS,IODRPO C CHARACTER*4 IBXPWI CHARACTER*4 I4PLMC CHARACTER*4 I6PLMC CHARACTER*4 IRANAL CHARACTER*4 ICAPBX CHARACTER*4 ICAPNM CHARACTER*4 IQUAME CHARACTER*4 IQUASE CHARACTER*4 ICOVTY CHARACTER*4 ICORTY CHARACTER*4 IFILQU CHARACTER*4 IBOOME CHARACTER*4 IQWNSY CHARACTER*4 IPRNGS CHARACTER*4 IPSTBB CHARACTER*4 IPSTDV CHARACTER*80 IGSVPA CHARACTER*80 IGSTPA CHARACTER*80 IZCHFI COMMON/CSETA/ 1IBXPWI,I4PLMC,I6PLMC,IRANAL,ICAPBX,ICAPNM,IQUAME,IQUASE,ICOVTY, 1ICORTY,IFILQU,IBOOME,IQWNSY,IPRNGS,IPSTBB,IGSVPA,IGSTPA,IPSTDV, 1IZCHFI C CHARACTER*80 IHTMHE CHARACTER*80 IHTMFO CHARACTER*80 ILATHE CHARACTER*80 ILATFO CHARACTER*40 IRTFFF CHARACTER*40 IRTFFP COMMON/CSETB/ 1IHTMHE,IHTMFO,ILATHE,ILATFO,IRTFFF,IRTFFP C CHARACTER*4 ITABBR CHARACTER*80 ITABTI COMMON/CSETC/ 1ITABBR,ITABTI C CHARACTER*4 IVARLA CHARACTER*4 IGRPAU CHARACTER*4 IREADL CHARACTER*4 IGEODF CHARACTER*4 IPPCCC CHARACTER*4 IHYPTY CHARACTER*4 IPPCFO CHARACTER*4 IPSTDC CHARACTER*4 IADEDF CHARACTER*4 IGEPDF CHARACTER*4 IMAKDF CHARACTER*4 IBEIDF CHARACTER*4 IBEKDF CHARACTER*4 IPPCAO CHARACTER*4 IHSTCW CHARACTER*4 IASHWT CHARACTER*4 IREAPD CHARACTER*4 IREASB CHARACTER*4 IPPLCN CHARACTER*4 IPPCCN CHARACTER*4 ILGADF CHARACTER*4 ISKNDF CHARACTER*4 IGEPSV CHARACTER*4 IGLDDF COMMON/CSETD/ 1IVARLA,IGRPAU,IREADL,IGEODF,IPPCCC,IHYPTY,IPPCFO,IPSTDC,IADEDF, 1IGEPDF,IMAKDF,IBEIDF,IBEKDF,IPPCAO,IHSTCW,IASHWT,IREAPD,IREASB, 1IPPLCN,IPPCCN,ILGADF,ISKNDF,IGEPSV,IGLDDF C CHARACTER*8 IQUAVR CHARACTER*4 IEXPBC CHARACTER*4 IWEIBC CHARACTER*4 IGUMBC CHARACTER*4 ICORDI CHARACTER*4 ICOVDI CHARACTER*4 IGUIFL CHARACTER*8 IRELVR CHARACTER*4 IBOOPA CHARACTER*4 IDECPT CHARACTER*4 IPOTME CHARACTER*4 IPOTDI CHARACTER*4 IPOTLF CHARACTER*4 IPOTAX CHARACTER*4 IFREBC CHARACTER*4 IGRU1S CHARACTER*4 ITMPFI CHARACTER*4 IPPCBW CHARACTER*4 IBGEDF CHARACTER*4 IFORFM CHARACTER*4 IGETDF CHARACTER*4 ICONDF CHARACTER*4 I4PLDI COMMON/CSETE/ 1IQUAVR,IEXPBC,IWEIBC,ICORDI,ICOVDI,IGUIFL,IGUMBC,IRELVR, 1IBOOPA,IDECPT,IPOTME,IPOTDI,IPOTLF,IPOTAX,IFREBC,IGRU1S, 1ITMPFI,IPPCBW,IBGEDF,IFORFM,IGETDF,ICONDF,I4PLDI C CHARACTER*4 IMPACM CHARACTER*4 IMMPCM CHARACTER*4 IVRUCM CHARACTER*4 IBOBCM CHARACTER*4 ISCECM CHARACTER*4 IMOMCM CHARACTER*4 IGRDCM CHARACTER*4 IGMECM CHARACTER*4 IGCICM CHARACTER*4 IDSLCM CHARACTER*4 IFAICM CHARACTER*4 IBCPCM COMMON/CSETF/ 1IMPACM,IMMPCM,IVRUCM,IBOBCM,ISCECM, 1IMOMCM,IGRDCM,IGMECM,IGCICM,IDSLCM, 1IFAICM,IBCPCM C CHARACTER*4 ISPMLA CHARACTER*4 ISPMDI CHARACTER*4 ISPMFI CHARACTER*4 ISPMLD CHARACTER*4 ISPMTA CHARACTER*4 ISPMPT CHARACTER*4 ISPMFR CHARACTER*4 ISPMST CHARACTER*4 ISPMS2 CHARACTER*4 ISPMS3 CHARACTER*4 ISPMS4 CHARACTER*4 ISPMCC CHARACTER*4 ISPMXA CHARACTER*4 ISPMYA CHARACTER*4 ISPX2L CHARACTER*4 ISPMTD CHARACTER*16 ISPX2P CHARACTER*16 ISPX2S C REAL PPENSW REAL PSUPXS REAL PSUPYS REAL PODRTF REAL PODRST REAL PODRPT REAL PREAMV REAL PPOTTH REAL PPOTIN REAL PPOTPE REAL PPOTTO REAL PCHSLM REAL PMAXLO COMMON/RSET/ 1PPENSW,PSUPXS,PSUPYS,PODRTF,PODRST,PODRPT,PREAMV, 1PPOTTH,PPOTIN,PPOTPE,PPOTTO,PCHSLM,PMAXLO C COMMON/CSETSP/ 1ISPMLA,ISPMDI,ISPMFI,ISPMLD,ISPMTA,ISPMPT,ISPMFR, 1ISPMST,ISPMS2,ISPMS3,ISPMS4, 1ISPMCC, 1ISPMXA,ISPMYA, 1ISPX2L,ISPX2P,ISPX2S,ISPMTD C REAL PSPLLL,PSPLUL, 1PSPLSL,PSPLSU, 1PSPMTD C COMMON/RSETSP/ 1PSPLLL(MAXMPL),PSPLUL(MAXMPL), 1PSPLSL(MAXMPL),PSPLSU(MAXMPL), 1PSPMTD C CHARACTER*4 ICPLLA CHARACTER*4 ICPLFI CHARACTER*4 ICPLTA CHARACTER*4 ICPLPT CHARACTER*4 ICPLFR CHARACTER*4 ICPLST CHARACTER*4 ICPLS2 CHARACTER*4 ICPLS3 CHARACTER*4 ICPLS4 CHARACTER*4 ICPLCC CHARACTER*4 ICPLP1 CHARACTER*4 ICPLP2 CHARACTER*4 ICPLP3 CHARACTER*4 ICPLP4 CHARACTER*4 ICPLP5 CHARACTER*4 ICPLC1 CHARACTER*4 ICPLC2 CHARACTER*4 ICPLC3 CHARACTER*4 ICPLC4 CHARACTER*4 ICPLC5 CHARACTER*4 ICPLXA CHARACTER*4 ICPLYA CHARACTER*4 ICPX2L CHARACTER*4 ICPLTD C COMMON/CSETCP/ 1ICPLLA,ICPLFI,ICPLTA,ICPLPT,ICPLFR, 1ICPLST,ICPLS2,ICPLS3,ICPLS4, 1ICPLCC, 1ICPLP1,ICPLP2,ICPLP3,ICPLP4,ICPLP5, 1ICPLC1,ICPLC2,ICPLC3,ICPLC4,ICPLC5, 1ICPLXA,ICPLYA, 1ICPX2L,ICPLTD C REAL PCPLRV,PCPLTV,PCPLTD, 1PCPXLL,PCPXUL,PCPYLL,PCPYUL, 1PCPYSL,PCPYSU, 1PCPXSL,PCPXSU C COMMON/RSETCP/ 1PCPLRV,PCPLTV,PCPLTD, 1PCPXLL(MAXMPL),PCPXUL(MAXMPL),PCPYLL(MAXMPL),PCPYUL(MAXMPL), 1PCPYSL(MAXMPL),PCPYSU(MAXMPL), 1PCPXSL(MAXMPL),PCPXSU(MAXMPL) C CHARACTER*4 IFPLLA CHARACTER*4 IFPLFI CHARACTER*4 IFPLTA CHARACTER*4 IFPLPT CHARACTER*4 IFPLFR CHARACTER*4 IFPLST CHARACTER*4 IFPLS2 CHARACTER*4 IFPLS3 CHARACTER*4 IFPLS4 CHARACTER*4 IFPLCC CHARACTER*4 IFPLP1 CHARACTER*4 IFPLP2 CHARACTER*4 IFPLP3 CHARACTER*4 IFPLP4 CHARACTER*4 IFPLP5 CHARACTER*4 IFPLC1 CHARACTER*4 IFPLC2 CHARACTER*4 IFPLC3 CHARACTER*4 IFPLC4 CHARACTER*4 IFPLC5 CHARACTER*4 IFPLXA CHARACTER*4 IFPLYA CHARACTER*4 IFPX2L CHARACTER*4 IFPLTD C COMMON/CSETFP/ 1IFPLLA,IFPLFI,IFPLTA,IFPLPT,IFPLFR, 1IFPLST,IFPLS2,IFPLS3,IFPLS4,IFPLCC, 1IFPLP1,IFPLP2,IFPLP3,IFPLP4,IFPLP5, 1IFPLC1,IFPLC2,IFPLC3,IFPLC4,IFPLC5, 1IFPLXA,IFPLYA, 1IFPX2L,IFPLTD C REAL PFPLRV,PFPLTD, 1PFPXLL,PFPXUL,PFPYLL,PFPYUL, 1PFPYSL,PFPYSU, 1PFPXSL,PFPXSU C COMMON/RSETFP/ 1PFPLRV,PFPLTD, 1PFPXLL(MAXMPL),PFPXUL(MAXMPL),PFPYLL(MAXMPL),PFPYUL(MAXMPL), 1PFPYSL(MAXMPL),PFPYSU(MAXMPL), 1PFPXSL(MAXMPL),PFPXSU(MAXMPL) C