function  val   = zermelo_cost(xf, PAR)

%*****************************************************************************80
%
%% ZERMELO_COST ...
%
%  Modified:
%
%    04 February 2010
%
%  Author:
%
%    Gene Cliff
%
  val = -xf(1);

  return
end

