samer@32: function R=spec2fir(A)
samer@32: % SPEC2FIR: convert magnitude spectra to FIR filter coefficients
samer@32: %
samer@32: % spec2fir :: [[M,L]] -> [[2*(M-1),L]].
samer@32: 
samer@32: n=size(A,1);
samer@32: S=[A; conj(A(n-1:-1:2,:))];
samer@32: R=fftshift(real(ifft(S)),1);	% get filter coefficients
samer@32: