SUBROUTINE VYCTGD(NUM)
C CALC TICK MARKS OR GRID LINES OR DIVISIONS ON YAXIS
      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 YANDB,IND,LOC,YAIND
      CALL VIPLTB
      IF(NUM.EQ.0)RETURN
      YANDB=YAFDB
      YAIND=0
      CALL VCIGT(NUM,YAFDB-YMINB,YADDB,YTYPE,IND,LOC)
1000  LOC=LOC+YMINB
      IF(LOC.GT.YMAXB)RETURN
      CALL VSBSET(LOC)
      IF(IND.NE.NUM)GO TO 1010
      YAIND=YAIND+1
      YANDB=YAFDB+IFIX(FLOAT(YAIND)*YADDB+.5)
1010  CALL VCNGT(NUM,YANDB-YMINB,YADDB,YTYPE,IND,LOC)
      GO TO 1000
      END