subroutine gridl (magrx,minrx,magry,minry)
      call gridal (magrx,minrx,magry,minry,1,1,0,1,1)
      return
      end