setXshift

 See also SETSHIFT

0001 function re=setXshift(r,pos,DX)
0002 %
0003 %
0004 % See also SETSHIFT
0005  
0006 numelems = length(pos);
0007 
0008 if (numelems ~= length(DX))
0009    error('ELEMINDEX, DX must have the same number of elements');
0010 end
0011 
0012 for i = 1:length(pos)
0013    r{pos(i)}.T1(1) =  -DX(i);
0014    r{pos(i)}.T2(1) =   DX(i);
0015 end
0016 
0017    re=r;
0018 
0019