subroutine foo(a,m,n)
      integer m,n
      real a(m,n),b(1,2,3,4,5,6,7)
      end