SUBROUTINE ENDPLT
      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
      REAL*4    YAFDU,YADDU,YADDB
      INTEGER*2 YAFDB,YAGRID,YATICK
      COMMON/VYADES/YAFDU,YADDU,YADDB,YAFDB,YAGRID,YATICK
      INTEGER*2 AMAX,ALAST,ALEN,A
      COMMON/VADES/AMAX,ALAST,ALEN,A(2)
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      INTEGER*2 YANDB
      IF((XSMINB.NE.0).AND.(XSMINB.GT.XMAXB))GO TO 990
      CALL VSINIT
      IF(XSMINB.GT.XSMAXB)XSMAXB=XSMINB
      IF(XMAXB.NE.32767)XSMAXB=XMAXB
      ITMP=XMAXB
      XMAXB=XSMAXB
      CALL PLTSEG
      XMAXB=ITMP
      GO TO 1000
990   CONTINUE
      IF((XSMINB-1).EQ.XMAXB)GO TO 1000
      CALL VIPLTB
      CALL VBSET(YMINB,YMAXB)
      CALL VPLT
1000  CONTINUE
      I=YATICK
      IF(I.EQ.0)I=1
      CALL VYCTGD(I)
      DO 1020 I=1,3
1020  CALL VPLT
      CALL VYCTGD(1)
      DO 1130 I=1,4
1130  CALL VPLT
      IF(RPSPP.EQ.0) GO TO 1200
      CALL VIPLTB
1140  CALL VPLT
      IF(RPSPP.GT.0)GO TO 1140
1200  IF(XADDU.LT.0.0)CALL VYLAB
      XSMINB=0
      XSMAXB=-1
      DO 1210 I=1,AMAX
1210  A(I)=32767
      RETURN
      END