function result = p00_gauss_hermite ( problem, order )

%*****************************************************************************80
%
%% p00_gauss_hermite() applies a Gauss-Hermite quadrature rule.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    26 May 2009
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer PROBLEM, the index of the problem.
%
%    integer ORDER, the order of the Gauss-Laguerre rule
%    to apply.
%
%  Output:
%
%    real RESULT, the approximate integral.
%
  [ xtab, weight ] = hermite_compute ( order );

  option = 1;
  f_vec = p00_fun ( problem, option, order, xtab );

  result = weight(1:order)' * f_vec(1:order);

  return
end
