function w = rbf_weight_test ( )

%*****************************************************************************80
%
%% rbf_weight_test() tests rbf_weight().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    04 June 2018
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'RBF_WEIGHT_TEST:\n' );
  fprintf ( 1, '  RBF_WEIGHT computes the weights associated with the\n' );
  fprintf ( 1, '  data abscissa values XD.\n' );

  m = 1;
  nd = 5;
  xd = [ 0.0; 1.0; 2.0; 3.0; 4.0 ];
  r0 = 1.5;
  fd = [ 0.0; 1.0; 4.0; 9.0; 16.0 ];

  w = rbf_weight ( m, nd, xd, r0, @phi1, fd );
 
  r8vec_print ( nd, w, '  Weights:' );

  return
end

