SUBROUTINE PLTEQU(NPTS,YDTYP,YARR,XMIN,DELX,PLTCHR,CONECT,OFFSET)
      INTEGER*2 NPTS,YDTYP,PLTCHR,CONECT
      REAL*4 XMIN,DELX,OFFSET
      REAL*4    XFAC,XOFF
      INTEGER*2 XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      COMMON/VXDES/XFAC,XOFF,XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      INTEGER*2 AMAX,ALAST,ALEN,A
      COMMON/VADES/AMAX,ALAST,ALEN,A(2)
      INTEGER*2 ANPTS,ATYPE,AXA,AXF,AXI,AXMIN,ADELX
      INTEGER*2 AYA,AYF,AYI,AEA,AJOIN,AOFF
      INTEGER*2 AXP,AYP,AEP,AXC,AYC,AEC,AXN,AYN,AEN,AIC
      COMMON/VAOFF/ANPTS,ATYPE,AXA,AXF,AXI,AYA,AYF,AYI,AEA,AJOIN,AOFF,
     1             AXP,AYP,AEP,AXC,AYC,AEC,AXN,AYN,AEN,AIC
      EQUIVALENCE (AXA,AXMIN),(AXF,ADELX)
      REAL*4 TEMP
      INTEGER*2 ITEMP(2)
      EQUIVALENCE (TEMP,ITEMP(1))
      CALL PLTARR(NPTS,0,YDTYP,TEMP,YARR,PLTCHR,CONECT,OFFSET)
      TEMP=XMIN*XFAC+XOFF
      S=SIGN(1.0,TEMP)
      A(ALAST+AXMIN)=TEMP+.5*S
      TEMP=DELX*XFAC
      A(ALAST+ADELX)=ITEMP(1)
      A(ALAST+ADELX+1)=ITEMP(2)
      RETURN
      END