
function flag = test_quasi_predominanza_diagonale (A)

% Uso:
%   flag = test_quasi_predominanza_diagonale (A)
%
% Dati di ingresso:
%   A:  matrice quadrata
% Dati di uscita:
%  flag: NaN  se la matrice A non e' quadrata,
%        1 se quasi a predominanza diagonale,
%        0 altrimenti.

M=size(A,1);
N=size(A,2);

if not(M == N)
    fprintf('\n \t La matrice non e'' quadrata');
    flag=NaN; return;
end

flag=1;

for k=1:M
    s=abs(A(k,k));
    riga_k=A(k,:);
    val_ass_riga_k=abs(riga_k);
    d=sum(val_ass_riga_k)-s;
    if s < d
        fprintf('\n \t La matrice non e'' quasi a predominanza diagonale');
        flag=0; break;
    end
end

if (flag == 1)
    fprintf('\n \t La matrice e'' quasi a predominanza diagonale');
end

