function [A,R]=KLASSGS(A)
% [A,R]=KLASSGS(A)
% QR-Zerlegung von A mit klass. Gram-Schmidt. A wird mit Q "uberschrieben. 
% R wird extra gespeichert.

[m,n]=size(A);
