function h_list = r8vec_multispace ( h, alpha, n )

%*****************************************************************************80
%
%% r8vec_multispace() makes a scaled list of values.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    29 August 2019
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    real h, the first value.
%
%    real alpha, the scale factor.
%
%    integer n, the number of values in the list.
%
%  Output:
%
%    real h_list(n), the values h, h*alpha, h*alpha^2, ..., h*alpha^(n-1).
%
  h_list = zeros ( n, 1 );
  h_list(1) = h;
  for i = 2 : n
    h_list(i) = h_list(i-1) * alpha;
  end

  return
end

