code 34235;
    real procedure INV1(A, N, RI, CI, WITHNORM);
    value N, WITHNORM; integer N; boolean WITHNORM;
    array A; integer array RI, CI;
    begin integer L, K, K1;
        real AID, NRMINV;
        INV(A, N, RI); NRMINV:= 0; if WITHNORM then 
        for L:= 1 step 1 until N do 
        NRMINV:= NRMINV + ABS(A[L,N]);
        for K:= N - 1 step - 1 until 1 do 
        begin if WITHNORM then 
            begin AID:= 0;
                for L:= 1 step 1 until N do 
                AID:= AID + ABS(A[L,K]);
                if NRMINV < AID then NRMINV:= AID
            end;
            K1:= CI[K]; if K1 ^= K then ICHROW(1, N, K, K1, A)
        end;
        INV1:= NRMINV
    end INV1;
        eop