function out=r1(A,i,t)
%
% Anew=r1(A,i,t)
% multiplies the i-th row of the matrix Aold by t
% assigns the new value to the matrix Anew.
%
% Note: Anew may be equal to Aold. In this case the old
% matrix is overwritten.
%
% Author: M. Kawski, September 1996
%
A(i,:)=t*A(i,:);
out=A;