function c=eoshift(a,shift)
%EOSHIFT end-of-shift operation for a vector

[ia ajunk] = size(a);
if(ajunk>ia),ia=ajunk;end

c=1:ia;
c=c*0;

if(shift<0),
 c(1:ia+shift+1) = a(-shift:ia);
end
if(shift>0),
 c(shift:ia) = a(1:ia-shift+1);
end
if(shift==0)
 c = a; 
end
