function Dn=imptrain(n)
%%% This function creates the Fourier series coefficients for an impulse
%%% train with the specified period T0.
T0=1;
Dn=1/T0*ones(size(n));

return