1 2 3 4
subroutine halfax (magrx,minrx,magry,minry,x,y,ixlab,iylab) call gridal (magrx,minrx,magry,minry,ixlab,iylab,10,x,y) return end