code 31069;
 real procedure ABSMAXMAT(LR, UR, LC, UC, I, J, A);
 value LR, UR, LC, UC; integer LR, UR, LC, UC, I, J; array A;
 begin integer II; real MAX, R;
    MAX:= 0; I:= LR; J:= LC;
    for LC:= LC step 1 until UC do 
    begin R:= INFNRMCOL(LR, UR, LC, II, A); if R > MAX then 
        begin MAX:= R; I:= II; J:= LC end 
    end;
    ABSMAXMAT:= MAX
end ABSMAXMAT;
        eop