%
function y=Ydir(j,hstep);
%
%y = j * hstep;
y = (j-1)*hstep;
%
