%
%  add_column.m  ver 1.1  August 28, 2012
%
function[temp]=add_column(m,i)
%
sz=size(m);
n=sz(2);
%
np1=n+1;
%
im1=i-1;
ip1=i+1;
%
temp=zeros(sz(1),np1);
%
if(i==1)
    temp(:,2:np1)=m;
end
if(i==n+1)
    temp(:,1:n)=m;
end
if(i>1 && i<=n)
%    
    temp(:,1:im1)    =m(:,1:im1);
%
    temp(:,ip1:np1)  =m(:,i:n);
%
end