SUBROUTINE VXLAB
      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 XALFMT
      LOGICAL*1 XAFMT(10)
      COMMON/VXAFMT/XALFMT,XAFMT
      INTEGER*2 XTA,XTL,XTOFFB,XTIND
      COMMON/VXTDES/XTA,XTL,XTOFFB,XTIND
      INTEGER*2 PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY
      REAL*4 PBPIY,PBPCY,PBPIX
      COMMON/VPDP/PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY,PBPIY,PBPCY,PBPIX
      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
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      INTEGER*2 BLANK
      DATA BLANK/"40/
      IF(XTA.EQ.0)GO TO 1010
      IF(XANDB.EQ.XSNOWB)GO TO 1010
      IF((XANDB-XSNOWB).GE.PSPP)GO TO 1010
      RETURN
1010  DO 1020 I=1,PCY
1020  PNTBUF(I)=BLANK
      IF(XTA.EQ.0)GO TO 2000
      IF((XTIND.GE.XTL).OR.(XTOFFB.GT.XSNOWB))GO TO 2000
      XTIND=XTIND+1
      CALL VGCVAL(XTA,XTIND,PNTBUF(1))
2000  IF(XANDB.NE.XSNOWB)GO TO 3000
      IPOS=IFIX(PCYSPP*(FLOAT(YMINB)/PBY)+.7)-1
      IF(XTYPE.EQ.0)XNOW=XAFDU+XAIND*XADDU
      IF(XTYPE.EQ.1)XNOW=XAFDU*(10.0**XAIND)
      ISAVE=IPOS
      CALL VCVT(XNOW,IPOS,XAFMT,-1)
      XAIND=XAIND+1
      XANDB=XAFDB+IFIX(FLOAT(XAIND)*XADDB+.5)
      CALL VBSET(YMINB-7,YMINB-1)
      CALL VBSET(YMAXB+1,YMAXB+7)
3000  CALL VSPP
      RETURN
      END