SUBROUTINE VSINIT
      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
      INTEGER*2 XTA,XTL,XTOFFB,XTIND
      COMMON/VXTDES/XTA,XTL,XTOFFB,XTIND
      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)
      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 PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY
      REAL*4 PBPIY,PBPCY,PBPIX
      COMMON/VPDP/PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY,PBPIY,PBPCY,PBPIX
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
C CHECK TO SEE IF INIT ALREADY DONE
      IF(XSMAXB.GE.XSMINB)RETURN
C ALL STATEMENTS BEFORE 2000 ARE PERFORMED ONLY BEFORE 1ST SEGMENT
      IF(XSMINB.GT.0)GO TO 2000
C INIT PLTYGB WITH GRID LINES
      CALL VYCTGD(YAGRID)
      DO 1010 I=1,PBUFL
1010  PLTYGB(I)=PLTBUF(I)
C DRAW LABEL,TICK MARKS AND BORDER
      IF(XADDU.GT.0.0)CALL VYLAB
      CALL VYCTGD(1)
      DO 1020 I=1,4
1020  CALL VPLT
      IF(YATICK.NE.0)CALL VYCTGD(YATICK)
      DO 1030 I=1,3
1030  CALL VPLT
C INITIALIZE X VARIABLES
      XTIND=0
      XAIND=0
      XANDB=XAFDB
      CALL VCIGT(XATICK,XAFDB,XADDB,XTYPE,XAINT,XANTB)
      CALL VCIGT(XAGRID,XAFDB,XADDB,XTYPE,XAING,XANGB)
2000  CONTINUE
      IF(ALAST.LT.0)GO TO 2008
      DO 2005 IOFF=0,ALAST,ALEN
2005  CALL VIPCN(A(IOFF+1))
      CALL VGETXY(A,A(ANPTS),IBXMAX,IDUM1,IDUM2)
      IF(IBXMAX.GT.XSMAXB)XSMAXB=IBXMAX
      IF(XSMAXB.GT.XMAXB)XSMAXB=XMAXB
2008  CONTINUE
      RETURN
      END