function [rp] = wshift2(char,r,idec)
% Copyright G. Allaire, Octobre 2002
%
[m,n] = size(r) ;
%
if char == '1D' 
%
if idec == 1

rp(1:n-1) = r(2:n) ;
rp(n) = r(1) ;

elseif idec == -1

rp(2:n) = r(1:n-1) ;
rp(1) = r(n) ;

else 

'erreur dans la routine wshift-replace.m'
'valeur inconnue de idec '
idec
break

end
%
else
%
'erreur dans la routine wshift-replace.m'
'chaine de caracteres inconnue '
char
break

end
