function n=row_reduce(m);
%Puts a matrix into row reduced form
i=1;
j=1;
a=m;
c=size(a);

while and(i<=c(1),j<=c(2))
    if a(i,j)== 0
        k=i;
        while and(a(k,j)==0,k<c(1))
            k=k+1;
        end
        if a(k,j)==0
            j=j+1;
        else
            a=r2(a,i,k);
        end
    else
        a=r1(a,i,1/a(i,j));
        for k = 1:c(1)
            if k~=i
                a=r3(a,k,-a(k,j),i);
            end
        end
        i=i+1;
        j=j+1;
    end
end

n=a;