SUBROUTINE TICK(XTICK,YTICK)
      INTEGER*2 XTICK,YTICK
      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
      YATICK=YTICK
      XATICK=XTICK
      RETURN
      END