1 2 3 4
subroutine grid (magrx,minrx,magry,minry) call gridal (magrx,minrx,magry,minry,0,0,0,1,1) return end