function blend_101_test ( )

%*****************************************************************************80
%
%% blend_101_test() tests blend_101().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    22 October 2018
%
%  Author:
%
%    John Burkardt
%
  n1 = 10;

  d(1:n1) = 0.0;

  for i = 1 : n1
    if ( i == 1 || i == n1 )
      d(i) = i;
    end
  end

  fprintf ( 1, '\n' );
  fprintf ( 1, 'blend_101_test():\n' );
  fprintf ( 1, '  blend_101() blends endpoint values into a list.\n' );

  r8vec_print ( n1, d, '  Initial data list' );

  for i = 1 : n1

    if ( i ~= 1 && i ~= n1 )
      r = ( i - 1 ) / ( n1 - 1 );
      d(i) = blend_101 ( r, d(1), d(n1) );
    end

  end

  r8vec_print ( n1, d, '  Blended data list' );

  return
end
