%  procedure to evaluate function at step 'alpha' along
%  direction s from point x_o
%
%  s and x_o are passed through the call to the fmin procedure
%
%%
   function val = onedim(alpha,f_name,x_o,s)
%
   x = x_o + alpha*s;
   val = feval(f_name,x);
%
% return
%
