function Aprime=scale(A,row,multiple)
% replaces row in a matrix by a multiple of row
Aprime=A;
if multiple==0
   disp('zero multiple not allowed')
else    
   Aprime(row,:)=multiple*A(row,:);
endif

  