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