function r=testrankmax(A)
  % Controlla se A e' di rango massimo.

  % Esempio:
  %   A=rand(3,5); testrankmax(A)
  %     ===> 1

  % Esempio:
  %   A=rand(3,2)*rand(2,3); testrankmax(A)
  %     ===> 0

  [n,m]=size(A);
  r=(rank(A) == min(n,m));