COMMON / RUNOFF_MAP_I / nROmap, ijROocn, ijROatm
INTEGER ijROocn(ROsize), ijROatm(ROsize)
ijo=ijROocn(n)
ijo = ijROocn(n) - 1
ijROocn(n) = ijo
& n,ijROatm(n),ijROocn(n),arROmap(n)
ijROocn(n)=0