function c = fftfaltgew(a,b)
% c = fftfaltgew(a,b) gewoehnliche Faltung nach Faltungssatz
%  mit geeignetem Anhaengen von Nullen (zero padding)
n1 = length(a) ; n2 = length(b);  al = a; bl = b; nr = n1+n2-1;
% Nullen auffuellen bis zu Reaultatlaenge der gewoehnlichen Faltung
  al = [al zeros(1,nr-n1)];  
  bl = [bl zeros(1,nr-n2)];
c = real(ifft(fft(al).*fft(bl)));
