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
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 <DATA/PRIOR> 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 <CENTER/RIGHT> 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/SURV/CDF>, RELI PLOTS THE RELIABILITY
C           FUNCTION, CDF PLOTS THE CDF.
C ICENTY  - SET CENSORING <TYPE 1/TYPE 2>
C IMATSC  - SET MATRIX SCALE <NONE/SD/RANGE>
C IPPTBI  - SET PERCENT POINT PLOT <BINNED/UNBINNED/INTERPOLATE>
C IQQPBI  - SET QUANTILE-QUANTILE PLOT <BINNED/UNBINNED/INTERPOLATE>
C IAUTCP  - SET AUTOCORRELATION BAND PLOT <WHITE NOISE/BOX-JENKINS>
C IEXPPA  - SET PARAMETER EXPAND <NUMERIC/EXPONENTIAL>
C IVNMEX  - SET VARIABLE LABEL EXPAND <ON/OFF>
C ICTBDI  - SET CROS TABULATE DIMENSION <1/2>
C ISORDI  - SET SORT DIRECTION <ASCENDING/DESCENDING>
C
C ISPMLA  - SET SCATTER PLOT MATRIX LABELS <ON/OFF/BOX>
C ISPMDI  - SET SCATTER PLOT MATRIX DIAGONAL <BLANK/LINE/HIST>
C ISPMFI   - SET SCATTER PLOT MATRIX FIT <NONE/LOESS/LOWESS/LINEAR/QUADRATIC>
C ISPMLD  - SET SCATTER PLOT MATRIX LOWER DIAGONAL <ON/OFF>
C ISPMTA  - SET SCATTER PLOT MATRIX TAG <ON/OFF>
C ISPMPT  - SET SCATTER PLOT MATRIX PLOT TYPE <PLOT/BIHISTOGRAM/QUANTILE-QUANTILE>
C ISPMFR  - SET SCATTER PLOT MATRIX FRAME <DEFAULT/USER>
C ISPMST  - SET SCATTER PLOT MATRIX STATISTTIC TYPE <NONE/XXXX>
C ISPMS2  - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR)
C ISPMCR  - SET SCATTER PLOT MATRIX CORRELATION <ON/OFF>
C
C ICPLLA  - SET CONDITIONING PLOT LABELS <ON/OFF>
C ICPLFI   - SET CONDITIONING PLOT FIT <NONE/LOESS/LOWESS/LINEAR/QUADRATIC>
C ICPLLD  - SET CONDITIONING PLOT LOWER DIAGONAL <ON/OFF>
C           (CURRENTLY NOT USED)
C ICPLTA  - SET CONDITIONING PLOT TAG <ON/OFF>
C ICPLPT  - SET CONDITIONING PLOT PLOT TYPE <PLOT/BIHISTOGRAM/QUANTILE-QUANTILE>
C           (CURRENTLY NOT USED)
C ICPLFR  - SET CONDITIONING PLOT FRAME <DEFAULT/USER>
C ICPLPS  - SET CONDITIONING PLOT PRE-SORT <ON/OFF>
C ICPLST  - SET CONDITIONING PLOT STATISTTIC TYPE <NONE/XXXX>
C ICPLS2  - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR)
C ICPLCR  - SET CONDITIONING PLOT CORRELATION <ON/OFF>
C IFPLLA  - SET FACTOR PLOT LABELS <ON/OFF>
C IFPLFI   - SET FACTOR PLOT FIT <NONE/LOESS/LOWESS/LINEAR/QUADRATIC>
C IFPLLD  - SET FACTOR PLOT LOWER DIAGONAL <ON/OFF>
C           (CURRENTLY NOT USED)
C IFPLTA  - SET FACTOR PLOT TAG <ON/OFF>
C IFPLPT  - SET FACTOR PLOT PLOT TYPE <PLOT/BIHISTOGRAM/QUANTILE-QUANTILE>
C           (CURRENTLY NOT USED)
C IFPLFR  - SET FACTOR PLOT FRAME <DEFAULT/USER>
C IFPLPS  - SET FACTOR PLOT PRE-SORT <ON/OFF>
C IFPLST  - SET FACTOR PLOT STATISTTIC TYPE <NONE/XXXX>
C IFPLS2  - ALLOWS FOR SECOND WORD ON STATISTIC (E.G., LINE CORR)
C IFPLCR  - SET FACTOR PLOT CORRELATION <ON/OFF>
C IFPLRV  - SET FACTOR PLOT RESPONSE VARIABLES <VALUE>
C IDCPDI  - SET DEX CONTOUR PLOT <MINIMUM/MAXIMUIM>
C IDCPFI  - SET DEX CONTOUR PLOT <LINEAR/QUADRATIC>
C IMANPA  - SET MANDEL PAULE <REGULAR/MODIFIED>
C           (NOTE THIS NOT USED AS CONSENSUS MEAN COMMAND ACTUALLY
C           COMPUTES BOTH AUTOMATICALLY)
C ISTALO  - SET LOCATION STATISTIC <MEAN/MEDIAN/MIDMEAN/TRIMMED MEAN>
C ISTASC  - SET SCALE STATISTIC <SD/AAD/MAD>
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 <VALUE>
C PODRST  - SET ORTHOGONAL DISTANCE STOP TOLERANCE <VALUE>
C PODRPT  - SET ORTHOGONAL DISTANCE PARAMETER TOLERANCE <VALUE>
C IODRPO  - SET ORTHOGONAL DISTANCE PRINT OPTION <DEFAULT/FULL>
C IBXPWI  - SET BOX PLOT WIDTH <VARIABLE/FIXED>
C I4PLMC  - SET 4-PLOT MULTIPLOT <ON/OFF>
C I6PLMC  - SET 6-PLOT MULTIPLOT <ON/OFF>
C IRANAL  - SET RANDOM NUMBER GENERATOR <FIBONACCI/LINEAR CONGRUENTIAL/
C                                       MULTIPLICATIVE CONGRUENTIAL>
C INUMCP  - SET NUMBER OF CP <VALUE>
C ICAPLI  - SET CAPTURE LINES <VALUE> ... <VALUE>
C ICAPBX  - SET CAPTURE BOX <ON/OFF>
C ICAPNM  - SET CAPTURE NUMBER <ON/OFF>
C IQUAME  - SET QUANTILE METHOD <ORDER/HERRELL-DAVIS>
C IQUASE  - SET QUANTILE STANDARD ERROR METHOD <MARITZ-JARRETT/
C                                               KERNEL DENSITY>
C ICOVTY  - SET COVARIANCE TYPE <DEFAULT/BIWEIGHT/PERCENTAGE BEND/WINSORIZED/
C                                RANK>
C ICORTY  - SET CORRELATION TYPE <DEFAULT/WINSORIZED/RANK>
C IFILQU  - SET FILE NAME QUOTE <ON/OFF>
C IBOOME  - SET BOOTSTRAP FIT METHOD <RESIDUALS/DATA>
C IQWNSY  - SET QWIN SYSTEM <SYSTEMQQ/WINEXEC>
C IPRNGS  - SET GHOSTVIEW PRINTER <ON/OFF>
C IGSVPA  - SET GHOSTVIEW PATH <path>
C IGSTPA  - SET GHOSTSCRIPT PATH <path>
C IPSTBB  - SET POSTSCRIPT BOUNDING BOX <FIXED/FLOAT>
C IPSTDV  - SET POSTSCRIPT CONVERT <PBM/PGM/PNM/PPM/TIFF/JPEG/PDF>
C IHTMHE  - SET HTML HEADER FILE <file>
C IHTMFO  - SET HTML FOOTER FILE <file>
C IAUTL0  - SET AUTOCORRELATION LAG ZERO <ON/OFF>
C IPCCST  - SET PARALLEL COORDINATES PLOT STANDARDIZE <NONE/USCORE/
C           ZSCORE>
C IBOOGR  - SET BOOTSTRAP GROUPS <INDEPENDENT/DEPENDENT>
C IMVNTY  - SET MULTIVARIATE NORMAL <SADVM/RANMVN/KROMVN/SPHMVN>
C ITABTI  - SET TABLE TITLE <VALUE>
C ITABBR  - SET TABLE BORDER <ON/OFF/RULE/COLS>
C ITABSP  - SET TABLE SPACING <VALUE>
C ITABWD  - SET TABLE WIDTH <VALUE>
C ILATHE  - SET LATEX HEADER FILE <file>
C ILATFO  - SET LATEX FOOTER FILE <file>
C IVARLA  - SET READ VARIABLE LABEL <ON/OFF/ROWLABEL>
C IGRPAU  - SET CONVERT CHARACTER <CHARACTER/IGNORE/ERROR>
C PREAMV  - SET READ MISSING VALUE <VALUE>
C IREADL  - SET READ DELIMITER <VALUE>
C IGEODF  - SET GEOMETRIC DEFINITION <JOHNSON AND KOTZ/DLMF>
C IPPCCC  - SET PPCC PLOT <LINEAR/BIWEIGHT/RANK>
C IHYPTY  - SET HYPERGEOMETRIC MAXIMUM LIKELIHOOD
C               <ACCEPTANCE SAMPLING/CAPTURE RECAPTURE>
C IPPCFO  - SET PPCC FORMAT <TRACE/3D>
C IPSTDC  - SET POSTSCRIPT COLOR DEFAULT <ON/OFF>
C IADEDF  - SET ASYMMETRIC LAPLACE DEFINITION <K/MU>
C IGEPDF  - SET GENERALIZED PARETO DEFINITION <JOHNSON AND KOTZ/SIMIU>
C IMAKDF  - SET GOMPERTZ MAKEHAM DEFINITION <DLMF/MEEKER>
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 <VALUE>
C IPPCDP  - SET PPCC PLOT DATA POINTS <VALUE>
C IPPCAP  - SET PPCC PLOT HORIZONTAL AXIS POINTS <VALUE1> <VALUE2>
C IPPCAO  - SET PPCC PLOT AXIS ORDER <DEFAULT/REVERSE>
C IHSTCW  - SET HISTOGRAM CLASS WIDTH <DEFAULT/SD/IQ/NORMAL/
C               NORMAL CORRECTED>
C IASHWT  - SET ASH WEIGHTING <TRIANGULAR/BIWEIGHT>
C IREAPD  - SET READ PAD MISSING COLUMNS <ON/OFF>
C IREASB  - SET READ SUBSET <PACK/DISPERSE>  <PACK/DISPERSE>
C IPPLCN  - SET CENSORED PROBABILITY PLOT
C               <KAPLAN-MIER/UNIFORM ORDER STATISTIC MEDIANS>
C IPPCCN  - SET CENSORED PPCC PLOT
C               <KAPLAN-MIER/UNIFORM ORDER STATISTIC MEDIANS>
C IQUAVR  - SET MAXIMUM LIKELIHOOD PERCENTILES <NONE/DEFAULT/VAR NAME>
C IEXPBC  - SET EXPONENTIAL BIAS CORECCTED <ON/OFF>
C IWEIBC  - SET WEIBULL BIAS CORECCTED <ON/OFF>
C IGUMBC  - SET GUMBEL BIAS CORECCTED <ON/OFF>
C ICORDI  - SET MATRIX CORRELATION DIRECTION <ROW/COLUMN>
C ICOVDI  - SET MATRIX COVARIANCE DIRECTION <ROW/COLUMN>
C IGUIFL  - SET GUI <ON/OFF>
C IRELVR  - SET MAXIMUM LIKELIHOOD RELIABILITY <NONE/DEFAULT/VAR NAME>
C IBOOPA  - SET DISTRIBUTIONAL BOOTSTRAP <NONPARAMETRIC/PARAMETRIC>
C IRTFPS  - SET RTF POINT SIZE <point size>
C IRTFFF  - SET RTF FIXED FONT <font name>
C IRTFFP  - SET RTF PROPORTIONAL FONT <font name>
C IEXPDI  - SET PARAMETER EXPAND DIGITS <VALUE>
C ILPRCO  - SET LINE PRINTER COLUMNS <80/130>
C IDECPT  - SET DECIMAL POINT
C IPOTME  - SET PEAKS OVER THRESHOLD METHOD <DEHAAN/CME/MOMENTS/PPCC/
C                                            KS/MLE>
C IPOTDI  - SET PEAKS OVER THRESHOLD DISTRIBUTION <GENERALIZED PARETO/
C               FRECHET/WEIBULL/GUMBEL>
C IPOTIT  - SET PEAKS OVER THRESHOLD ITERATIONS <VALUE>
C IPOTNP  - SET PEAKS OVER THRESHOLD INITIAL POINTS <VALUE>
C PPOTTH  - SET PEAKS OVER THRESHOLD INITIAL THRESHOLD <VALUE>
C PPOTIN  - SET PEAKS OVER THRESHOLD INCREMENT <VALUE>
C PPOTPE  - SET PEAKS OVER THRESHOLD PERIOD <VALUE>
C PPOTTO  - SET PEAKS OVER THRESHOLD TOLERANCE <VALUE>
C IPOTLF  - SET PEAKS OVER THRESHOLD LOAD FACTOR <ON/OFF>
C IPOTAX  - SET PEAKS OVER THRESHOLD X AXIS <POINTS/THRESHOLD>
C IFREBC  - SET FRECHET BIAS CORECCTED <ON/OFF>
C IGRU1S  - SET GRUBBS TEST ONE SIDED <ON/OFF>
C ILGADF  - SET LOG GAMMA DEFINITION <DEFAULT/REPARAMETRIZED>
C ISKNDF  - SET SKEW NORMAL DEFINITION <DEFAULT/REPARAMETRIZED>
C IGEPSV  - SET GENERALIZED PARETO ML STARTING VALUES
C               <MOMENTS/L MOMENTS/ELEMENTAL PERCENTILE/USER>
C IGLDDF  - SET GENERALIZED TUKEY LAMBDA DEFINITION <RAMBERG/FRIE>
C IZCHFI  - SET CHARACTER FILE NAME <name>
C ITMPFI  - SET LOCAL FILES <PID/IGNORE>
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
      COMMON/CSETE/
     1IQUAVR,IEXPBC,IWEIBC,ICORDI,ICOVDI,IGUIFL,IGUMBC,IRELVR,
     1IBOOPA,IDECPT,IPOTME,IPOTDI,IPOTLF,IPOTAX,IFREBC,IGRU1S,
     1ITMPFI
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
      COMMON/RSET/
     1PPENSW,PSUPXS,PSUPYS,PODRTF,PODRST,PODRPT,PREAMV,
     1PPOTTH,PPOTIN,PPOTPE,PPOTTO
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
