subroutine HMARK c c draws a horizontal 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',mm,0) call lgo('R',-mm,0) call lgo('I',-mm,0) call lgo('R',mm,0) return end