function fx = r8vec_step ( x0, n, x )

%*****************************************************************************80
%
%% r8vec_step() evaluates a unit step function.
%
%  Discussion:
%
%    F(X) = 0 if X < X0
%           1 if     X0 <= X
%
%  Licensing:
%
%    This code is distributed under the MIT license. 
%
%  Modified:
%
%    30 May 2013
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real X0, the location of the jump.
%
%    integer N, the number of argument values.
%
%  Output:
%
%    real X(N), the arguments.
%
%    real FX(N), the function values.
%
  fx = ( x0 <= x );

  return
end
