3470 IF A(I,J)>0 THEN SEA=SEA+ABS(ER/A(I,J))