C C insertion file CPLOT C COMMON /CPLTV/ NCRV,NVAR,TICS,WHICH,FE,WCHVR, $ SDATIM,EDATIM,BLNKIT,DTYPE,DEVTYP,MTPLUT, $ YMIN,YMAX,LBCOLR, $ PLMN,PLMX,XPHYS,YPHYS,CPR,NCHR,FYT,FXT,XWINLC, $ XPAGE,YPAGE,XLEN,YLEN,ALEN,SIZEL,DEVCOD, $ CTYPE,XTYPE,YTYPE,LOCLGD,TSTEP,TUNITS, $ LNTYP,COLOR,SYMBL,SYMSIZ,PATTRN,BVALFG,TRANSF INTEGER NCRV,NVAR,SDATIM(6),EDATIM(6),TICS(4), $ LNTYP(TSMAX),COLOR(TSMAX),DEVCOD,FE,DEVTYP, $ PATTRN(TSMAX),SYMBL(TSMAX),XTYPE,YTYPE(2), $ TRANSF(TSMAX),BVALFG(4),CTYPE(TSMAX),LBCOLR, $ DTYPE(TSMAX), WHICH(TSMAX), WCHVR(3,TSMAX), $ TSTEP(TSMAX),TUNITS(TSMAX),CPR,NCHR,MTPLUT REAL PLMX(4),PLMN(4),YLEN,XLEN,XPHYS,YPHYS,FYT,FXT, $ XPAGE,YPAGE,SIZEL,LOCLGD(2),BLNKIT(4),ALEN, $ YMIN(TSMAX), YMAX(TSMAX), XWINLC(4), SYMSIZ(TSMAX) C COMMON /CPLTC/ TITL, YLABL, LBV, LBC, YXLABL, YALABL, CTXT, $ XLABL CHARACTER*1 TITL(240), YLABL(80), LBC(20,TSMAX), YXLABL(80), $ YALABL(80), CTXT(120), LBV(20,TSMAX), XLABL(80) C SAVE /CPLTV/, /CPLTC/ C