function i=ultimariga(A)
  % Ritorna l'indice dell'ultima riga non nulla.

  % Esempio:
  %   riganonzero(eye(3))
  %     ====> 3

  % Esempio:
  %   riganonzero(zeros(2,4))
  %     ====> 0

  % Esempio:
  %   riganonzero([eye(7);zeros(2,7)])
  %     ====> 7

  n = size(A,1);
  for i=n:-1:1
    if not (all (A(i,:) == 0))
      return
    end
  end
  i=0;