function M = scambia_righe( M , i1 , i2 )
  M( [i1;i2] , : ) =  M( [i2;i1] , : ) ; % scambio righe
  fprintf('R%d ⇄ R%d\n', i1, i2) ;      % output testuale
  disp( M ) ;                            % output matrice
end