SUBROUTINE VYLAB
      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 YALFMT
      LOGICAL*1 YAFMT(10)
      COMMON/VYAFMT/YALFMT,YAFMT
      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
      INTEGER*2 YANDB,YAIND
      INTEGER*2 BLANK
      DATA BLANK/"40/
      DO 2010 I=1,PCY
2010  PNTBUF(I)=BLANK
      YAIND=0
2020  YANDB=YAFDB+IFIX(FLOAT(YAIND)*YADDB+.5)
      IF(YANDB.GT.YMAXB)GO TO 2900
      I=POFBY+FLOAT(YANDB)*FLOAT(PCY-POFBY*2)/FLOAT(PBY)
      IF(I.GT.PCY)GO TO 2900
      IF(YTYPE.EQ.1)GO TO 2030
      YNOW=YAFDU+YAIND*YADDU
      GO TO 2040
2030  YNOW=YAFDU*(10.0**YAIND)
2040  CALL VCVT(YNOW,I,YAFMT,+1)
      YAIND=YAIND+1
      GO TO 2020
2900  CALL VPNT(PCY)
3000  CONTINUE
      RETURN
      END