function Aprime=scaledisp(A,row,multiple)
% replaces row in a matrix by a multiple of that row
% (c) 2013, Bernhard G. Bodmann
Aprime=A;
if multiple==0
   disp('zero multiple not allowed')
else    
   Aprime(row,:)=multiple*A(row,:);
end
printf("Scale row %i by factor %f:\n",row,multiple); 

dispsysmat(Aprime);



   
   

  