dimension x(10,10)
      call s(x,m,n)
      end
      subroutine s(x,m,n)
      dimension x(m,n)
      end