function [ gcoef, gpoint] = p12_gauss8 ( )

%*****************************************************************************80
%
%% p12_gauss8() returns an 8 point Gauss quadrature rule.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    03 September 20080
%
%  Author:
%
%    John Burkardt
%
%  Output:
%
%    real GCOEF(8), the coefficients for the quadrature rule,
%    normalized for the interval [-1,1].
%
%    real GPOINT(8), the abscissas for the quadrature rule,
%    normalized for the interval [-1,1].
%
  gcoef(1) = 0.1012285363;
  gcoef(2) = 0.2223810345;
  gcoef(3) = 0.3137066459;
  gcoef(4) = 0.3626837834;
  gcoef(5) = 0.3626837834;
  gcoef(6) = 0.3137066459;
  gcoef(7) = 0.2223810345;
  gcoef(8) = 0.1012285363;

  gpoint(1) = - 0.9602898565;
  gpoint(2) = - 0.7966664774;
  gpoint(3) = - 0.5255324099;
  gpoint(4) = - 0.1834346425;
  gpoint(5) =   0.1834346425;
  gpoint(6) =   0.5255324099;
  gpoint(7) =   0.7966664774;
  gpoint(8) =   0.9602898565;

  return
end
