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