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