code 31068;
 real procedure ONENRMMAT(LR, UR, LC, UC, KC, A);
 value LR, UR, LC, UC; integer LR, UR, LC, UC, KC; array A;
 begin real MAX, R;
    MAX:= 0; KC:= LC;
    for LC:= LC step 1 until UC do 
    begin R:= ONENRMCOL(LR, UR, LC, A); if R > MAX then 
        begin MAX:= R; KC:= LC end 
    end;
    ONENRMMAT:= MAX
end ONENRMMAT;
        eop