PARAMI9I0518P
      dimension a(2), bb(2,2), ccc(2)
      i = 1
      j = 2
      a(i)=bb(2,2)
      read tape ccc
      end
