function c = fftfaltzirk(a,b)
% c = fftfaltzirk(a,b) zirkulaere Faltung nach Faltungssatz
n1 = length(a) ; n2 = length(b);  al = a; bl = b;
if n1 < n2  % Laengen-Test mit Nullen nachfuellen
  al = [al zeros(1,n2-n1)];   n1 = n2;
elseif n1 > n2
  bl = [bl zeros(1,n1-n2)];
end
c = real(ifft(fft(al).*fft(bl)));
