subroutine VMARK c c draws a vertical subdivision of the axis being produced c by AXL, which calls this routine. c mm=irnd(72.0/25.4) ! a 1mm distance in 1/72" units call lgo('I',0,mm) call lgo('R',0,-mm) call lgo('I',0,-mm) call lgo('R',0,mm) return end