function [ t, x ] = rk1_ti_step_test ( n, t0, tn, fi, gi )

%*****************************************************************************80
%
%% rk1_ti_step_test() tests rk1_ti_step().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    21 June 2010
%
%  Author:
%
%    John Burkardt
%
  h = ( tn - t0 ) / n;
  q = 1.0;

  t = linspace ( t0, tn, n + 1 );
  x = zeros ( n + 1, 1 );

  x(1) = 0.0;
  for i = 1 : n
    x(i+1) = rk1_ti_step ( x(i), t(i), h, q, @fi, @gi );
  end

  return
end
