Still legacy application

vbnet For x = 1 To y q(x, y + 1) = q(x, y + 1) + p(I, J) * ay(I) For z = 1 To y q(z, x) = q(z, x) + p(I, z) * p(I, x) Next z Next x I immediately refactored the I and J to be lowercase.