function y = upsam(x,S)
L=length(x);
%zeros(S-1,L)
uu=[x;zeros(S-1,L)];
y=uu(:);
y = y.';
y=y(1:S*L-1);