function out=r1(A,i,t,j)
%
% Anew=r3(Aold,i,t,j)
% adds t times the i-th row of Aold to the j-th row of Aold
% and saves the result by assigning it 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(j,:)=A(j,:)+t*A(i,:);
out=A;