function nintlib_test06 ( dim_num, func )

%*****************************************************************************80
%
%% nintlib_test06() tests monte_carlo_nd().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    25 February 2007
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer DIM_NUM, the spatial dimension.
%
%    function FUNC ( DIM_NUM, X ), the function to be integrated.
%
  test_num = 2;
%
%  Set the integration limits.
%
  a(1:dim_num) = 0.0;
  b(1:dim_num) = 1.0;
 
  for test = 1 : test_num

    eval_num = 8^test * 10000;

    result = monte_carlo_nd ( func, dim_num, a, b, eval_num );
 
    fprintf ( 1, '  MONTE_CARLO_ND: %20.12f  %8d\n', result, eval_num );

  end
 
  return
end
