function res=circShiftR(a,n)

L=size(a,2);
res=zeros(size(a));

for i=1:L,
   res(:,i)=a(:, mod( (i-1-n), L)+1) ; 
end;
