COMMON / RUNOFF_MAP_I / nROmap, ijROocn, ijROatm
INTEGER nROmap
DO n=1,nROmap
n = nROmap
& 'done (nROmap=', nROmap, ' )'
nROmap = runOffMapSize
IF ( lengthName.EQ.0 ) nROmap=0
IF ( nROmap.EQ.0 ) THEN
& 'nothing to set (nROmap=', nROmap, ' )'
IF ( nROmap.GT.ROsize ) THEN
CALL MDS_BYTESWAPR8( 3*nROmap, tmpfld )