SUBROUTINE PLTARR(NPTS,XDTYP,YDTYP,XARR,YARR,PLTCHR,CONECT,OFFSET)
      INTEGER*2 NPTS,XDTYP,YDTYP,PLTCHR,CONECT
      REAL*4 OFFSET
      REAL*4    XFAC,XOFF
      INTEGER*2 XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      COMMON/VXDES/XFAC,XOFF,XTYPE,XMAXB,XSMINB,XSMAXB,XSNOWB
      REAL*4    XAFDU,XADDU,XADDB
      INTEGER*2 XAFDB,XANDB,XAIND,XAGRID,XANGB,XAING,XATICK,XANTB,XAINT
      COMMON/VXADES/XAFDU,XADDU,XADDB,XAFDB,XANDB,XAIND ,
     1              XAGRID,XANGB,XAING,XATICK,XANTB,XAINT
      REAL*4    YFAC,YOFF
      INTEGER*2 YTYPE,YMINB,YMAXB
      COMMON/VYDES/YFAC,YOFF,YTYPE,YMINB,YMAXB
      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)
      INTEGER*2 IC
      LOGICAL*1 C(2)
      EQUIVALENCE (IC,C(1))
      IF((ALAST+2*ALEN).GT.AMAX)RETURN
      ALAST=ALAST+ALEN
      A(ALAST+ANPTS)=NPTS
      C(1)=XDTYP
      C(2)=YDTYP
      A(ALAST+ATYPE)=IC
      CALL VGADDR(A(ALAST+AXA),XARR)
      A(ALAST+AXF)=0
      A(ALAST+AXI)=0
      CALL VGADDR(A(ALAST+AYA),YARR)
      A(ALAST+AYF)=0
      A(ALAST+AYI)=0
      A(ALAST+AEA)=0
      C(1)=PLTCHR
      C(2)=CONECT
      A(ALAST+AJOIN)=IC
      IF(XADDU.LT.0.0)GO TO 1010
      ITYPE=YTYPE
      FAC=YFAC
      GO TO 1020
1010  ITYPE=XTYPE
      FAC=XFAC
1020  IF(ITYPE.EQ.1)GO TO 1030
      TEMP=OFFSET*FAC
      S=SIGN(1.0,TEMP)
      A(ALAST+AOFF)=TEMP+.5*S
      GO TO 2000
1030  IF(OFFSET.LE.0.0)OFFSET=1.0
      TEMP=ALOG10(OFFSET)*FAC
      S=SIGN(1.0,TEMP)
      A(ALAST+AOFF)=TEMP+.5*S
2000  CONTINUE
      RETURN
      END