function [ w, xyz ] = tetrahedron_unit_o14b ( )

%*****************************************************************************80
%
%% TETRAHEDRON_UNIT_O14B returns a 14 point quadrature rule for the unit tetrahedron.
%
%  Discussion:
%
%    The integration region is:
%
%      0 <= X
%      0 <= Y
%      0 <= Z
%      X + Y + Z <= 1.
%
%  Licensing:
%
%    This code is distributed under the GNU LGPL license.
%
%  Modified:
%
%    19 April 2009
%
%  Author:
%
%    John Burkardt
%
%  Reference:
%
%    Carlos Felippa,
%    A compendium of FEM integration formulas for symbolic work,
%    Engineering Computation,
%    Volume 21, Number 8, 2004, pages 867-890.
%
%  Parameters:
%
%    Output, real W(14), the weights.
%
%    Output, real XYZ(3,14), the abscissas.
%
  w(1:14,1) = [ ...
    0.13283874668559071814, ...
    0.13283874668559071814, ...
    0.13283874668559071814, ...
    0.13283874668559071814, ...
    0.088589824742980710434, ...
    0.088589824742980710434, ...
    0.088589824742980710434, ...
    0.088589824742980710434, ...
    0.019047619047619047619, ...
    0.019047619047619047619, ...
    0.019047619047619047619, ...
    0.019047619047619047619, ...
    0.019047619047619047619, ...
    0.019047619047619047619 ];

  xyz(1:3,1:14) = [ ...
    0.056881379520423421748,  0.31437287349319219275,  0.31437287349319219275; ...
    0.31437287349319219275,  0.056881379520423421748,  0.31437287349319219275; ...
    0.31437287349319219275,  0.31437287349319219275,  0.056881379520423421748; ...
    0.31437287349319219275,  0.31437287349319219275,  0.31437287349319219275; ...
    0.69841970432438656092,  0.10052676522520447969,  0.10052676522520447969; ...
    0.10052676522520447969,  0.69841970432438656092,  0.10052676522520447969; ...
    0.10052676522520447969,  0.10052676522520447969,  0.69841970432438656092; ...
    0.10052676522520447969,  0.10052676522520447969,  0.10052676522520447969; ...
    0.50000000000000000000,  0.50000000000000000000,  0.00000000000000000000; ...
    0.50000000000000000000,  0.00000000000000000000,  0.50000000000000000000; ...
    0.50000000000000000000,  0.00000000000000000000,  0.00000000000000000000; ...
    0.00000000000000000000,  0.50000000000000000000,  0.50000000000000000000; ...
    0.00000000000000000000,  0.50000000000000000000,  0.00000000000000000000; ...
    0.00000000000000000000,  0.00000000000000000000,  0.50000000000000000000 ]';

  return
end
