integer a(2,3)
      call p(a,1,3)
      write (6,10) a(1,3)
 10   format (1x,I9)
      stop
      end