function [A,beta]=QRDEC(A)
% A=QRDEC(A)
%
% QR-Zerlegung von A. A wird mit R "uberschrieben. Im unteren Dreieck sind die
% Parameter von Q gespeichert. 

