function x=Xdir(i,hstep);
%
%x = i * hstep;
x = (i-1)*hstep;
%
