code 31063;
 real procedure INFNRMCOL(L, U, J, K, A); value L, U, J;
 integer L, U, J, K; array A;
 begin real R, MAX;
    MAX:= 0; K:= L;
    for L:= L step 1 until U do 
    begin R:= ABS(A[L,J]); if R > MAX then 
        begin MAX:= R; K:= L end 
    end;
    INFNRMCOL:= MAX
end INFNRMCOL

        eop