PARAMI9I0518P
      dimension x(2)
      j = 2
      x(j) = x(j) + 1.0
      end
